(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 480674, 10300] NotebookOptionsPosition[ 443778, 9438] NotebookOutlinePosition[ 460419, 9738] CellTagsIndexPosition[ 460376, 9735] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Tarea 8\.aa: Operadores L\[OAcute]gicos y Relacionales. Ciclos y Estructuras de Control. M\ \[EAcute]todos de resoluci\[OAcute]n de una Ecuaci\[OAcute]n No Lineal.\ \>", "Title", CellChangeTimes->{{3.42734278509206*^9, 3.4273428050291452`*^9}, 3.428126571703125*^9, {3.458980892578125*^9, 3.45898096840625*^9}, { 3.459666071703125*^9, 3.45966608446875*^9}, 3.4596661445*^9, { 3.45966645709375*^9, 3.459666512296875*^9}, {3.459667067609375*^9, 3.459667072453125*^9}}, TextAlignment->Center, TextJustification->0], Cell[CellGroupData[{ Cell["\<\ Ejercicio 1\.ba.- Utilizando el comando Table, representar sucesivamente las gr\[AAcute]ficas \ de sin(nx) para n desde 1 hasta 5. Repetir el ejercicio con el comando \ Animate.\ \>", "Subsection", CellChangeTimes->{ 3.4280497007994742`*^9, 3.428134779234375*^9, {3.459671224796875*^9, 3.4596712326875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.436799100015625*^9, 3.436799105296875*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`n$$], 0, 5}}, Typeset`size$$ = {540., {165., 175.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$5386$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$5386$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ Sin[$CellContext`n$$ $CellContext`x], {$CellContext`x, -Pi, Pi}], "Specifications" :> {{$CellContext`n$$, 0, 5, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{605., {220., 227.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.472217253828125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ejercicio 2\.ba.- Siendo Sn la suma de los n primeros n\[UAcute]meros naturales. \ \[DownQuestion]C\[UAcute]al es el mayor valor de n tal que Sn<11?. En este \ caso, \[DownQuestion]Cuanto es exactamente la suma Sn?. Repetir el ejercicio de forma que Sn<10^4.\ \>", "Subsection", CellChangeTimes->{ 3.4280497092369742`*^9, 3.4281348065625*^9, {3.459754381734375*^9, 3.459754384046875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"s", "=", "0"}], ";", RowBox[{"n", "=", "1"}]}], ",", RowBox[{ RowBox[{"s", "+", "n"}], "<", "11"}], ",", RowBox[{"n", "++"}], ",", RowBox[{ RowBox[{"s", "=", RowBox[{"s", "+", "n"}]}], ";", RowBox[{"Print", "[", "s", "]"}]}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"n", "-", "1"}]}], "]"}]}]}]], "Input"], Cell[BoxData["1"], "Print", CellChangeTimes->{3.472217253953125*^9}], Cell[BoxData["3"], "Print", CellChangeTimes->{3.472217253953125*^9}], Cell[BoxData["6"], "Print", CellChangeTimes->{3.472217253953125*^9}], Cell[BoxData["10"], "Print", CellChangeTimes->{3.47221725396875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"El mayor valor de n es: \"\>", "\[InvisibleSpace]", "4"}], SequenceForm["El mayor valor de n es: ", 4], Editable->False]], "Print", CellChangeTimes->{3.47221725396875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"s", "=", "0"}], ";", RowBox[{"n", "=", "1"}]}], ",", RowBox[{ RowBox[{"s", "+", "n"}], "<", SuperscriptBox["10", "4"]}], ",", RowBox[{"n", "++"}], ",", RowBox[{"s", "=", RowBox[{"s", "+", "n"}]}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"n", "-", "1"}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "s"}], "]"}]}]}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"El mayor valor de n es: \"\>", "\[InvisibleSpace]", "140"}], SequenceForm["El mayor valor de n es: ", 140], Editable->False]], "Print", CellChangeTimes->{3.472217254*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Y el valor de la suma es: \"\>", "\[InvisibleSpace]", "9870"}], SequenceForm["Y el valor de la suma es: ", 9870], Editable->False]], "Print", CellChangeTimes->{3.472217254*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 3\.ba.-\n", "Utilizando la funci\[OAcute]n Prime, crear una lista con los 20 primeros n\ \[UAcute]meros primos. Hallar todos los n\[UAcute]meros primos menores que \ 1000 guard\[AAcute]ndolos en variables de la forma ", Cell[BoxData[ FormBox[ SubscriptBox["a", "i"], TraditionalForm]]], "." }], "Subsection", CellChangeTimes->{{3.4280497616275992`*^9, 3.4280497617838492`*^9}, 3.428134856828125*^9, {3.4597543951875*^9, 3.459754397265625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"l20", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71"}], "}"}]], "Output", CellChangeTimes->{3.47221725403125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"Prime", "[", "i", "]"}], "<", "1000"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "=", RowBox[{"Prime", "[", "i", "]"}]}], ";", RowBox[{"Print", "[", SubscriptBox["a", "i"], "]"}]}]}], "]"}]], "Input"], Cell[BoxData["2"], "Print", CellChangeTimes->{3.4722172540625*^9}], Cell[BoxData["3"], "Print", CellChangeTimes->{3.4722172540625*^9}], Cell[BoxData["5"], "Print", CellChangeTimes->{3.4722172540625*^9}], Cell[BoxData["7"], "Print", CellChangeTimes->{3.4722172540625*^9}], Cell[BoxData["11"], "Print", CellChangeTimes->{3.4722172540625*^9}], Cell[BoxData["13"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["17"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["19"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["23"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["29"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["31"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["37"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["41"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["43"], "Print", CellChangeTimes->{3.472217254078125*^9}], Cell[BoxData["47"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["53"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["59"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["61"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["67"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["71"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["73"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["79"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["83"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["89"], "Print", CellChangeTimes->{3.47221725409375*^9}], Cell[BoxData["97"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["101"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["103"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["107"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["109"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["113"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["127"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["131"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["137"], "Print", CellChangeTimes->{3.472217254109375*^9}], Cell[BoxData["139"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["149"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["151"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["157"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["163"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["167"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["173"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["179"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["181"], "Print", CellChangeTimes->{3.472217254125*^9}], Cell[BoxData["191"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["193"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["197"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["199"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["211"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["223"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["227"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["229"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["233"], "Print", CellChangeTimes->{3.472217254140625*^9}], Cell[BoxData["239"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["241"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["251"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["257"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["263"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["269"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["271"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["277"], "Print", CellChangeTimes->{3.47221725415625*^9}], Cell[BoxData["281"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["283"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["293"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["307"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["311"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["313"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["317"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["331"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["337"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["347"], "Print", CellChangeTimes->{3.472217254171875*^9}], Cell[BoxData["349"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["353"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["359"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["367"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["373"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["379"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["383"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["389"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["397"], "Print", CellChangeTimes->{3.4722172541875*^9}], Cell[BoxData["401"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["409"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["419"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["421"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["431"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["433"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["439"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["443"], "Print", CellChangeTimes->{3.472217254203125*^9}], Cell[BoxData["449"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["457"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["461"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["463"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["467"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["479"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["487"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["491"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["499"], "Print", CellChangeTimes->{3.47221725421875*^9}], Cell[BoxData["503"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["509"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["521"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["523"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["541"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["547"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["557"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["563"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["569"], "Print", CellChangeTimes->{3.472217254234375*^9}], Cell[BoxData["571"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["577"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["587"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["593"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["599"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["601"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["607"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["613"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["617"], "Print", CellChangeTimes->{3.47221725425*^9}], Cell[BoxData["619"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["631"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["641"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["643"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["647"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["653"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["659"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["661"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["673"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["677"], "Print", CellChangeTimes->{3.472217254265625*^9}], Cell[BoxData["683"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["691"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["701"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["709"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["719"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["727"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["733"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["739"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["743"], "Print", CellChangeTimes->{3.47221725428125*^9}], Cell[BoxData["751"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["757"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["761"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["769"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["773"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["787"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["797"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["809"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["811"], "Print", CellChangeTimes->{3.472217254296875*^9}], Cell[BoxData["821"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["823"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["827"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["829"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["839"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["853"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["857"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["859"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["863"], "Print", CellChangeTimes->{3.4722172543125*^9}], Cell[BoxData["877"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["881"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["883"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["887"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["907"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["911"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["919"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["929"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["937"], "Print", CellChangeTimes->{3.472217254328125*^9}], Cell[BoxData["941"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["947"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["953"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["967"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["971"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["977"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["983"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["991"], "Print", CellChangeTimes->{3.47221725434375*^9}], Cell[BoxData["997"], "Print", CellChangeTimes->{3.47221725434375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 4\.ba.-\n", "Comprobar gr\[AAcute]ficamente que la funci\[OAcute]n f(x) = x- 0.2 sen(x) \ - 0,5 tiene una \[UAcute]nica raiz real en el intervalo [0.5 , 1]. Aplicar \ los m\[EAcute]todos de la bisecci\[OAcute]n, y Newton-Raphson, contando en \ cada caso el n\[UAcute]mero de iteraciones que se han realizado , para \ determinar la raiz con una precisi\[OAcute]n de ", Cell[BoxData[ FormBox[ SuperscriptBox["10", RowBox[{"-", "4"}]], TraditionalForm]]], ". Establecer un n\.ba m\[AAcute]ximo de iteraciones a realizar igual a 50." }], "Subsection", CellChangeTimes->{ 3.42813486221875*^9, {3.459754405234375*^9, 3.4597544071875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", "-", RowBox[{".2", " ", RowBox[{"Sin", "[", "x", "]"}]}], "-", ".5"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkWs0lHkAhwfTqXQotGmUHLmk0rJl2dbmt8WJiEXTqta9WJRNd/a0WR1U SqqdWrklt5INua116S2Z2pwixrXGTKaJkcEY75hMZv7bfnjO8/H58JiHH/aP 0GYwGN6f+d+eEZLOR6MRLsYRMj4hQorpahInZLlhYX9uiUIppDbdysypZrFR muUSNzYppLxe9lXlsg7grM8anT6hkAo4oGy+xjqO7g0brcspITVod841nZUM i0ajHwMThVT+Fz+kprE4YAc5Mus1AippQfWaC6wi/JFznRetHqT27L1dIZuq Qcezhat8O95Qi0hSoPsqCh7znbKecAcoK78JyZOLregdcLnay+2jTrVvRib9 HBZrBLZ5N3so4xoDgZZWB84UuBw7cZVH1YlcX3R814VeeblXUGAn1RKTu2Kv tBtpcSVHhkLaKYX1lsX3Y/tg71yfccanjdKeLVuywuo1qhvuetsNcSlHElq3 q5wP24nUm3TDY+pFskP703VC1JtvC8/0bKTMrozNlk68BRkxtWfur6LGlEJB j70I7OJs1XPDIqroQ2Ob/uV3YBi7KW01sZS+6Z1JsVgMX6c7TpHL83EpujYy 33IYUVVRrqKESsx8XyaOShzB2XXx9y789Q+Ob2ytWfZEgmk7fS5sHkNY3nqx 0/wDmru0tzQLuPgU05299tcxzOVx+U/PtWH91vmayEYp1q6odS+VtMO9wPzn B8YTiA8LUR3s78Qp05DVQ4GTEA9oX9q8vBu20t2L+rxl4BB0D/n2wmixbEGr SoasAG7FtYf9YFLZFRY5Uwjjuhiw57/BQYfGgYVeciQUp2Y6pQ6ibEd4/sMZ Oep6zN43aIRQjJksGb4xDbfrvpGUzRBqd7nrcNxozBNezpTEipDokXKrZpiG 2TNdC9WtdzAf9OwvTFEgbHyZxaF2Mb51SuawNs5gB+dO8i7WMAJXdcxq8Wbw d197TqHvCBRt6aK4JCU8eGy2vEiCTGbwcX/Lj0iT8tPC34/CSFBboN36Ec2B r6C3egzzfktibz4yi0+LedS+01IwSoMrRIYqDFdlfOXQMo6jWRXphi0qBJ84 qba3nkTz+vMLDH75hEe2QcVerjIYeB61Pas/B1VY25JpiQz8Da94CU1zMG8r HpnJnUJlHizFwWqw99ic3OYhR1CFo4GpRg3XlpnBaJkcv6fcTuLf08Db6TXf 7u407ktMs/V3EmydNAqQsGmcz00JFfgQ6N2o2zoRQOOA/7hVuR+BU/O/rvQ+ Giubmiq9Awgk/Q6XGWE00jJ+enopnGD9JrWzSSyNKMebU7oJBEWJvFm/FBqr k5d6zC8hqJ/LlHfV0tB8c1qv7y7BlFrw7E09jYHxd10lZQSVSUE14kYaVwKq g7Y/IOAz1F0zj2mQdf7HUpoIQrdzrFe20+B3ZuTp8AgO93OsDn7+Vp+q3M/r +dwvTY89MUqD4xyytrCf4GF0wYtEKQ2v4i9rtgkIGk4vf8WR02iIf/k8aZTA 15AppTQ0bmz4OsNPSqCbUSpt01LgiCiHbT5JUBUbyOxlKmCz85DwEU2we04U L9VVgKnVXXRFSeDJqO5R6inwttY5JlRFYKl/YYeOgQJNMYV29moCls/+bv2l CvxptkhBCEHJCE6aGCvwH5kSlbM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 2}, {-0.4999999673469388, 1.3181404704214201`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.47221725440625*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"x", "-", RowBox[{".2", " ", RowBox[{"Sin", "[", "x", "]"}]}], "-", ".5"}]}], ";"}]], "Input"], Cell["\ta) Bisecci\[OAcute]n", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"a", "=", "0.5"}], ";", RowBox[{"b", "=", "1"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "1"}], ";", RowBox[{"lon", "=", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], ";", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}]}], ",", RowBox[{ RowBox[{"lon", ">", "0.0001"}], "&&", RowBox[{"k", "<", "50"}]}], ",", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "c", "]"}], "*", RowBox[{"f", "[", "a", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", RowBox[{"lon", "=", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{"c", ",", "\"\< \>\"", ",", "lon", ",", "\"\< \>\"", ",", RowBox[{"f", "[", "c", "]"}]}], "]"}]}], ",", RowBox[{"k", "++"}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "k"}], "]"}]}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.25`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.007980545411907555`"}], SequenceForm[0.625, " ", 0.25, " ", 0.007980545411907555], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.5625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.04416053470720403`"}]}], SequenceForm[0.5625, " ", 0.125, " ", -0.04416053470720403], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.59375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.018144626249473383`"}]}], SequenceForm[0.59375, " ", 0.0625, " ", -0.018144626249473383`], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.609375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.03125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0050960136469014455`"}]}], SequenceForm[0.609375, " ", 0.03125, " ", -0.0050960136469014455`], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.6171875`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.015625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0014387335284459235`"}], SequenceForm[0.6171875, " ", 0.015625, " ", 0.0014387335284459235`], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.61328125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0078125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0018295182835770807`"}]}], SequenceForm[0.61328125, " ", 0.0078125, " ", -0.0018295182835770807`], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.615234375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00390625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0001956125427245159`"}]}], SequenceForm[0.615234375, " ", 0.00390625, " ", -0.0001956125427245159], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.6162109375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.001953125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0006215053755287553`"}], SequenceForm[0.6162109375, " ", 0.001953125, " ", 0.0006215053755287553], Editable->False]], "Print", CellChangeTimes->{3.472217254578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.61572265625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0009765625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0002129326465703102`"}], SequenceForm[0.61572265625, " ", 0.0009765625, " ", 0.0002129326465703102], Editable->False]], "Print", CellChangeTimes->{3.47221725459375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.615478515625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00048828125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "8.656610652940655`*^-6"}], SequenceForm[ 0.615478515625, " ", 0.00048828125, " ", 8.656610652940655*^-6], Editable->False]], "Print", CellChangeTimes->{3.47221725459375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.6153564453125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.000244140625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.00009347882620475145`"}]}], SequenceForm[ 0.6153564453125, " ", 0.000244140625, " ", -0.00009347882620475145], Editable->False]], "Print", CellChangeTimes->{3.47221725459375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.61541748046875`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0001220703125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.00004241132283669402`"}]}], SequenceForm[ 0.61541748046875, " ", 0.0001220703125, " ", -0.00004241132283669402], Editable->False]], "Print", CellChangeTimes->{3.47221725459375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.615447998046875`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00006103515625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0000168774098593949`"}]}], SequenceForm[ 0.615447998046875, " ", 0.00006103515625, " ", -0.0000168774098593949], Editable->False]], "Print", CellChangeTimes->{3.47221725459375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"El n\.ba de iter.ha sido: \"\>", "\[InvisibleSpace]", "14"}], SequenceForm["El n\.ba de iter.ha sido: ", 14], Editable->False]], "Print", CellChangeTimes->{3.47221725459375*^9}] }, Open ]], Cell["\tb) Newton-Raphson", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"xv", "=", "0.75"}], ";", RowBox[{"error", "=", "1"}], ";", RowBox[{"eps", "=", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ";", RowBox[{"nmax", "=", "50"}], ";", RowBox[{"n", "=", "1"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"error", ">", "eps"}], "&&", RowBox[{"n", "<", "nmax"}]}], ",", RowBox[{ RowBox[{"xn", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"xv", "-", RowBox[{ RowBox[{"f", "[", "xv", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "xv", "]"}]}]}], ",", "10"}], "]"}]}], ";", RowBox[{"error", "=", RowBox[{"Abs", "[", RowBox[{"xn", "-", "xv"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< la sol.aprox.es \>\"", ",", "xn"}], "]"}], ";", RowBox[{"xv", "=", "xn"}], ";", RowBox[{"n", "++"}]}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"En la iter. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" la sol.aprox.es \"\>", "\[InvisibleSpace]", "0.61684165645002875244529150223`10."}], SequenceForm["En la iter. ", 1, " la sol.aprox.es ", 0.61684165645`10.], Editable->False]], "Print", CellChangeTimes->{3.4722172546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"En la iter. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" la sol.aprox.es \"\>", "\[InvisibleSpace]", "0.6154682998040541530571090334`10."}], SequenceForm["En la iter. ", 2, " la sol.aprox.es ", 0.6154682998`10.], Editable->False]], "Print", CellChangeTimes->{3.4722172546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"En la iter. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" la sol.aprox.es \"\>", "\[InvisibleSpace]", "0.6154681694899665211906381046`10."}], SequenceForm["En la iter. ", 3, " la sol.aprox.es ", 0.61546816949`10.], Editable->False]], "Print", CellChangeTimes->{3.4722172546875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 5\.ba.-\n", "Representar en una misma gr\[AAcute]fica las funciones f(x) = 2 cos(x) y \ g(x) = ", Cell[BoxData[ FormBox[ SuperscriptBox["e", "x"], TraditionalForm]]], " para obtener aproximaciones iniciales de las raices de 2cos(x) - ", Cell[BoxData[ FormBox[ SuperscriptBox["e", "x"], TraditionalForm]]], "= 0. \[DownQuestion]Cu\[AAcute]ntas ra\[IAcute]ces tiene?. \ \[DownQuestion]Cu\[AAcute]ntas son positivas?. Determinar las raices con una \ precisi\[OAcute]n de ", Cell[BoxData[ FormBox[ SuperscriptBox["10", RowBox[{"-", "8"}]], TraditionalForm]]], " utilizando el m\[EAcute]todo de Newton-Raphson ." }], "Subsection", CellChangeTimes->{ 3.428134866296875*^9, {3.459754417265625*^9, 3.459754418796875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", "x", "]"}]}], ",", RowBox[{"Exp", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJw12Hc8Vm/YAHDreZ5SKVroZ5SiJDQ0fsZ1SCUNFJKINBGpFO2s7JGWlVGR kRGlX1LXEVllhWRvJVEi4xnnvOf9fN73r/P5/nPf17nv67rOfe6lDmf2HRcR EhLSFRYS+t/n0eyIXzTNIe+O6b0Uy6JxAU9WWZvPITXujd7vyqCxZHuyzcUp Drk1wfTsyzQalTteV/z8zSHbjESkjJNp/DG793FzN4e8VDxXUiGORjcnLau8 Yg55lai+5BlA49J8DBtBDvml54xSnx+Nn4WNP6wq5JDxImrVRj40bog+vC7x BYesT9+2SnCNxsky/9mhyRwyRuoOW+o8jddXtJAn/DkkjzT59vMQjRpnj00m +XBIKVHHoe9WNHYVjqxpv8Eht+tHcdstaDQwF43d78khf+QO6+SZ0MjyUbtA OHLIpY1vj4lvpTGk6/oq2V0cUjx+d5fzShpjYpUiqyQ45NojCZ+FRihM14xO eiXOIY1jyj5+HKSw4IPE8yQ2E+/Bqhdh/RS2/JquuUCxyfSYTmt+G4WyhrVz 5EfYpIlM1CKPjxTG/rwa6FrFJpvURUyGUiiM0/1yc24Im2Q//2970wEKn33e FTHtzyazDa4EPNpHYeHJooReHzb5MTWg+/geCttuP3v36gqbXPOa39FgQKHc gDffzplNlr8SVzdfQ2F8mIZnjjGbDNb1OdgsRGFCZ8AZs5lsMsDqxqYZjwRo P2tGzU0Wm0xY+8TcIE6Ayzb5q+cIs8kVxcL5F+4LMCXMb1iCyyKzWNnG5UEC zNL1dv70g0X2HlHo/ue8AAtjr5zc8YlFLtlbPOprIMCWA652uuEsMv7PUhfr Nj4uqt1vsmohi7ywdFrSlc9DmWqVJmdJFsmqWNmx6i8P//nEO5w1h0V+KhUO 6xzm4dLyx67r2SxytGxewuZOHqqRY6G6k2JkWfTdvKQiHhrk3Plk1ixGpmrK SZn58fBMRP3Oyw/FSJnBip2aM3hYbrrf8OMKMdL/ZNecffxpNFq1wl1pmSj5 w42tdtppEv/Nskmp0RAhA0sdfBwyx5EbdGL+ulXCZLjtlvFTDqP4d/LJvcMq QqR+1oUyAxzCkmWRG965UHjAhMML/9SH2qwbeauP8ZEbvNfhUm8z3iU2bdK/ xsVd8yIz8jM/4NE4q/4fCVMYrbiozlo/B2qeys8UjpnAlvZb9BbVBpCfnbMW 88ex0q/V99H5bhBXHKgZTP+Dex74nb2/ahBOm/tFpab+RkuZ62efqP4G++LO j/KRw2jkfnbXeqMxWKZLmX3wGsT7OyWKrtlMQNqpvO43+f1Ymvxeae/gFDQ4 JCjsSunH0OLw8LixKRCyDbZtudePg7Lmx/sEU2BpdrR5yr0ff3kObrWXmgaR f+fXaa3vx4nM114ztKfBetZ5Mju7D+0Mt6dJB0+DeNa6hMepvfii65nJCmUu OI09twmO6cYFKr8Uj+7gQfTGUe2TQd1od/5RZ40JD8ovaS7Zerkbd9g5ZmhZ 8WCFUHYz92A36kw9PfLzFA+6Zj+zdJLpxoiHvnPYQTywUE4x3RnVhe03L4R+ r+SBV+6GQAm1TtQSWdhzaAcfOjbn7Sid1Yl2Y/MMBvbyQQfXsq8PdaB32hZX R0s+THxU9xlO78AprouS9XE+nO5fee3Tqg5sUDL71OfNBytpubNBKu14ON73 wsNCPqhfZx1kK7Wiuor4+XBVAcgW1D74LtaKb2cFrHunKQDWROyXyoEWlOk1 vTKwUQBtLuvMw9NbMDLb9LHSVgEE2dqZSK9rwXPDWiqmhwTwTef1NlX9ZlSu fNXgFiSARN7pdXvtmnD1yPnisl4BhGzafFZTvwn1bSaUVgwKwOO8aI6UUhN2 PBjpuzIigL1D0WuaBr7gMRt/n4XTAhC0lK60d/2C/Og4qek5FFgXKCqcu9aI 2tp6Hjc3UjD/UsOs+7H16Fu0KSHAm4Ipelry1+V6HNoyqXHWn4KOWwrSRtb1 OLL9WLVZCAWpd52Wc6UZK2tp8O5RoJcjpHv4/meUXZdqO5JKgeM3NVfl23UY v8TcxqKKgr2u+9xvuNVhwUK5De/qKNjw1+PyV5M61I3QYSt8oYASKb4VJFGH m5T+3C3voOCu/MGEkeBa9Iz5rPPmFwXXM8STXObU4OIH8u/l5tGw87VFpsKn asy1WPaGtYCGBWWJr+uCqrFPVOdh/2Ia0no2ftaaUY2R4enSoQo0NMgcFaVE qvDx3MLay+o0qAa8OR42VYnUulbXWmMamo6dVs3uLcW6czeWHL5Gw7t20035 KaUYYP8zad5NGlIstQzfOpaiw88wkUJvGtyNKNuPvz6gra64qcCfhnlqEbe/ 8Urwtp7xLNVIJr6xvCmFBcXoolnuszqZBs3TUSyVpveo9/P0KeenNEj3X5VS j3mPp3UPyj9Jo2HgyzY1HcX32D6fzaczafAuaLKzUitClgTX7Ug+DRdEJ0OX Br5DN+E/Xys/0GD4F59qzH2Ht9yXRz8oo0HqW0CR7r23qPzETMm2goasStm/ B5MKcXCjyN3Pn5jxb+vZRL4uwNTS7tYT9TS88OFcTIQCxO1i3dMNzHwXasOz PrxGVUnpTL8vNCgcdCiurPsP1X9mRvk302CleEtV9Ec+3rNVebGhkwZlKRND Sbd89LO2/RbaRcO4qPRhhYmXuGp+X0dnNw23v6Xd1hZ5iWZxuTKufTRUZlVN nZfNwxmEVf76QRqiEu9LeSfmIlkzW2z/DxpORNqpRSjn4rb7LfOdh2gQvThq 92zdczym/cHTb5gGj8uqYRX3slBoyS6zo6M07B35/SU7JRMdjsr+a/iHicfh lcL9V89Qycx+tfwYDY07DZ87NKdjjM8d5bfjNDx7K841+pGGO4yUNb3/0uC7 ts5Ag5eKFrmX9YkJGtbLHG7g/fMUPdVLLj+dpEE8dLlcz5oUPDXo9Mh0ioYe oaHj5XrJeDN2Y90fxre/e0zetX+MFr9zti7j0nDKRo+4cvYR9h6X889mTNSK BR7xTsIdnqp1WjwaOs4oadkYJeBYfa7nGj4NoQdySlc6PcTvslON8Yx1QNfq b3AsLuae3TJTQMOQcuVgUWY0DuvOfHyacYzEgSthNQ9wz+ZUqQrGOyd6Zx8a vYdR5L8B8hQNU+1u8Srz72Lu+ixRF8ZPPwg0xjdEorD7qO8LxpaZQUWkZQR6 Do7P+stYXFUjRXY0BO96pUep00z800YVeRsC8Vg2a/URxqXlDj93e/phgDPv fQhjpaircwfeeKHWBm/754xFatSOU9QV3DwnUrSG8VsX+wzNW+7498byZ/2M R6VX9n6QdUKX2A3WfxnXPpPvNN9niVvG382hGIsd2aUYsFUPwp8UldKM09Qf ecwucADD3Tp+XMbRng//1je6wYd5mjtHGLc3O2Yn7fUE+YcJUq2Ml2lvdDxT dgMml4Z3k4zX7/W6LZ/oA7ctxPITGDdeP+nqZ+MPZefZER6MPbL37PopHQyz 9eLPGDGW7Vq/cn9jGDjzGs2lGB+eESrSbnQbrnu+hkZmfbIVhc7OU7kDFzmW mrcZC20537mVdQ/m3CxQ3s7YzGxgj0fvfQiGyWXjzH48cjxYmF4UBbhSfkUs Y8MYiJa8HgfzEy5pNzD7ey83l7PNJh5MQptNTjA+3y+lrSOXCBdOXnYaZfKj ROCXdoaXBM9tB3L/MPnzMxDtA388glPswa5TjBcuml78uPkx6L2IXfh1mqkX 9dO3vrxKBp+xiDtJTD6GFSTr/k5JAXOdxe08Jn9fbe8cn3n/KXCnGtaYMJ5h t++ornsa7JgI6+9i8j89fDPxRDMTUnSv5OYw9SNWklDI2ZAFZSf3ypFMfdlN sbc4b8qG8SMbLcp+0xCU80NaJiEHbI23r3k7QoOezGvJruRcCD4w4LedqV/n vJ81t1XyICq3zn7B/9b3HsWwrWl5cOf+rFkt32j44+Uv/vTZCwipyK7e3c/0 0x8Woq55+dCsLflPLdNP6n0DixS0XgHv1uvLNh3Meiu8vVGX/wp2xrlldLXR YL1/OX9DwX8gs+aOby3Tj+YW/hnnkQUQ+6hJcS/TzzxDwwcCq9+BrWPmkaIS GpJVip9omyKIjgfN//iehs9FEw7DdQgznwbFfyJpWMTLOpPqRMKMTEr/VSEN bhqLfs5yLQLXY7erVF/QsCKqr++zezHIzaTcg5OY+jxOFWe8LIb9u7hcqQQa 9q2Tfuw7UQymT7cejYyj4eanXUc2epZAmLNZu+cDGlqE8tqjr3wA/mhTYF8I sz+OXl/svctgq5613aaLNAR8FH7Z964MjlK0j9t5pv+u8b5zilcGiUnspEdu TL6Oepu6uZeD+fTr0lEnGuwv+VbeOFEBVbmpn7XtaFgb6P8u3vgjaHbt9Lqx nfm+pYamtEnVAD5r06ycS0O1uISfvUkNOKm15SvNpqH8dNjRvuAa6Dmyf/fF GUy+R+2Yd1GkFixUx1PZwjTstzGqunalFiYeHiMaRinQ6du5I9SlDhzXEqlK nymYM75b+5lZPdBzmrKiQymY17LuqMe5eujfYosvAyhYQEoHG9yph93V9z5W +FAgG9LX8rWhHiR9drU1X6Jg5fKrl1lWDXB20VXRmOMUGJhnvD58uBHm9jrf i9Wm4OKLmZslnZugbotYdGa3AC7F/LJrC26C3AOWFR9bBXD1ZqP/02dNzHsV LetpFIDP7qQm3ZEmUP+2+MBkhQAi+jZ7OJ39Co7BJaPFzwWQseBUfrFHMywS jrP4dkMAXe6lGy76tsJjE+eLDouY81c5Szb1SSv8th7lpM0VwNd/ttHNJa0w EFyv932GAGpLiit0WW1wQMn3sSmPD+SCosOsW23gHtbnWdHJh4QXbwLu+reD qfGqNpunfDg8ntOWG9QJG2SfrFq8lg8jr/e89yjvBjk5Fm2owZxXZ5a5X2nq htbpTbqWKjywsSJUbgx0g9bYAq8jCjyonFgXckusB2ylaxVPzOVB8nppy3tE D4gUpo6q/OKCTWbPYO5/PZBXIHsqPJMLlYkekiOpvZD+4vtx7goupPgn2R8L 7AdXz9jSdNY0rJjImO8ZOwjlFS8fLDCegI5chbfap4ahTvjDjQjHMbB40BUw FPEb7ghn3Q/e/xvik0Pe7r7/B+Q8xHrNLgyC2CGXYdalceCt2KGVat8D1fZp T/f5ToCZnVHrmcYGeDlH1nby9BTI6h7Qj4vPB+WYpd85u7kgUzhX827ce+Re 9BVk7OdDs3Ws9UqHZhziLpFI3UxBoELhwj2ifZh40r9hiZIQ0aN/LMw/cQgj 9D+FyKwQJk7V/uuRbD6KEmcyDIoXihBO0dsN3GzH8Z3hf2/zZUWJrtZQxeWW kyhwsdtoKSFGsNXySxU/TKPD5uFgSSkxInE48dxk1TSWilzp/rRQjPhxSM6r /Ms0hj24H7JVToyInFB4d/D7NMoXVfVoqokREaXd3ptncVFvgU74LGMxArZL RPSbcPFGgfR30k+M+GrXjL8buCjM+Ry9WiBGZFNeVSereMgOcF+0WZhF3PMo 5p9q5KH4zMV3DFksQtL4r/jRdh4umGUTYjuHRSSm0G/0mf/PlXMHrofLsYjh 48Ob0mbzce9i7tExXRYR83t5k7wxH+NUlqm/uc4i9MQb5j9APiallqSXebOI hqIzJjmlfExZdVKl4RaL6JPRUHtfxcfs1c8Uh8NYxOjOtqKaVj6+19g4XyGB RXgM5a2OnOTj4CbjKW9kEVe7M1xy1whwo9G598ZCbKLExf+5+V0BBq6b9UtS jE2oV//rtDBGgG3/PFnSzGETwZpfA2oSBOg92uh+ci6bSA/K/6ORIcDqmC0q vvJsQnphrEVSkQBPDguFvNVhxlNM0982LMCoyHALzUtsIih4ak8gUDh0daX3 5FU2Eb5b9qS7IYV6J4uy3t1kE01DyqTVTgr7tMc4ewLYhI1k8po5+ynU7Lcs cHzAJsCD83X5CQorNskrPH7JJuZbDV+TCKaQ2/bs+8I/bOLyWhlucQ2FhqfL I/ZMsIlzTRm5exooDOX1bvbjsgmjzNbm6q8UKsouCRwX4RCsI/PPvOqmcMeB wFX18zlEfK5z5NIxCu/WHXeK0OIQbsZtOVYLaOyw95Iq38IhxDX031tJ06jy O66A1uUQjYS1huk/NBZINIif2c4h7vgaSK9YTmP3LoOMPQc4xKGDyeyT62lU L5X/KX6JmU/J0dnYlEZPi3/vGlzjEIl2s1/jfhqL+ix0LntxiJaQbjO1AzSa i4aGDAZyiN/pFkeGbGm8QvDUymM4RJG6VbuQM43lBU0ufoUcwpBr7hXgQ6OU 8djCtySHkLdct/DcLRptmiXejZdwiMj3qgP7Amn8NblN4lgVhziorKPDDaNx kdaLLIMODiHDX/C4M5pG+5Iay8s9HCLh5fBMnzga0/YPUc8HOIRTJD6VS6BR 59wyk6W/OMQB2dN+m5/QeEtYb9JqjENw7rQW/5dCY23EwYSISQ5xvdJlo2Ya jbKKF3aU8zhEztbzbfEZNP7f/R3x//d3/wM493Ks "]]}, {RGBColor[0, 0, 1], LineBox[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAAY6+Q7///B8BQwywBsX2pPxT7GiY7 /AfA4Z12AbaJqT/ERqVcdvgHwDhtn6zAlak/Jt65yezwB8DDoz8O562pP+oM 46PZ4QfAIjXdSXjeqT9wajVYs8MHwI66zf+uQKo/fiXawGaHB8BF2/mTgAmr P5qbI5LNDgfAsGUeGVKtrD+f34hvUQkGwDvTOMGOSrA/FtBTTykVBcD1Zc5j nFqyP8hQU0TLJQTAC1oemSihtD9IKSV0IyIDwMYhnB0Ha7c/Oq5cps8vAsBQ AUUbDly6P/qKZhMyKQHALce2zUn3vT/196SVXicAwJsIjkE7/sA/xCKSNL5t /r8ASGhASRzDPzsFf7MrZPy/8LEXOai0xT+UQDc3QX36v+jePj4Tcsg/Y5xY 5eqf+L+f2+UAknfLP8+nHgkBmva/QGJtIFMrzz8eDLAxv7b0v5YoPDdEidE/ CiDmz+mq8r/xSqEiue3TP2xUhZioqPC/rTQ1YzGY1j9gw9/LHpLtvyyK+ZG0 Ztk/Ij3+UcWB6b8IRDRRQNfcP6los+G7tuW/qU3ntzM84D9q87Fci5rhv943 4fjTdeI/Ln4FWQYj278zLuTc+PDkPxN51AuWm9O/VTk1fj2O5z/XZGwqr+PG v0zu2uSWwuo/d3oqjsmVrr/UI0HK9yTuP6qPOECkMK0/xvrzGE7w8D+OaYHW YILHPxp2FnTQOfM/DfRMO6xR0z95b0+SUKP1P+B0xjR2hNs/HDuClVqY+D/u uU3Cd8jhPw2qcz0j5Ps/poehYGSJ5T9yddhDx1z/PyX2qxN4m+k/AnlvpvLO AUDesh+9O2jtP83/f3jBDQRAVZfgiOuQ8D/yHYyqiIcGQJ6ljL1MlvI/xazM uQ+QCUAEW23tBXn0P+xM/2eUwgxAzmCpp1KE9j9RkQ2++FYQQLUNGl33bPg/ okqO7vloEkAmmiHoB0z6P29gC1O7sRRA+naE/atT/D82LaZZU34XQOv6Gw6o OP4/h/m/eFJyGkA6HEtgBC//P9JulDLQJBxA3leAsA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-3, 3}, {-1.9799849586408742`, 7.035950460729241}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.47221725475*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", "x", "]"}]}], "-", RowBox[{"Exp", "[", "x", "]"}]}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"x0", "=", RowBox[{"-", "2"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"error", "=", "1"}], ";", RowBox[{"k", "=", "1"}]}], ",", RowBox[{"error", ">", SuperscriptBox["10", RowBox[{"-", "8"}]]}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}], ",", "12"}], "]"}]}], ";", RowBox[{"error", "=", RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}]}], ";", RowBox[{"x0", "=", "x1"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "k", ",", "\"\< Val.aprox. \>\"", ",", "x1"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" Val.aprox. \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.42514572717238360660598689482`11.321381149246095"}]}], SequenceForm[ "Iter. ", 1, " Val.aprox. ", -1.425145727172`11.321381149246095], Editable->False]], "Print", CellChangeTimes->{3.47221725490625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" Val.aprox. \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.45379296532489494360389001318`12."}]}], SequenceForm["Iter. ", 2, " Val.aprox. ", -1.453792965325`12.], Editable->False]], "Print", CellChangeTimes->{3.47221725490625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Val.aprox. \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.45367366835815146987374922761`12."}]}], SequenceForm["Iter. ", 3, " Val.aprox. ", -1.453673668358`12.], Editable->False]], "Print", CellChangeTimes->{3.47221725490625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" Val.aprox. \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.45367366646104161916427888983`12."}]}], SequenceForm["Iter. ", 4, " Val.aprox. ", -1.453673666461`12.], Editable->False]], "Print", CellChangeTimes->{3.47221725490625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 6\.ba.-\n", "Comprobar de forma gr\[AAcute]fica que la ecuaci\[OAcute]n .\n\t\t4 sen(x) \ = 1+x\ntiene tres raices reales : ", Cell[BoxData[ FormBox[ SubscriptBox["r", "1"], TraditionalForm]]], "<", Cell[BoxData[ FormBox[ SubscriptBox["r", "2"], TraditionalForm]]], "<", Cell[BoxData[ FormBox[ SubscriptBox["r", "3"], TraditionalForm]]], " . A continuaci\[OAcute]n determinar con una precisi\[OAcute]n de ", Cell[BoxData[ FormBox[ SuperscriptBox["10", RowBox[{"-", "6"}]], TraditionalForm]]], ",\n\ta) ", Cell[BoxData[ FormBox[ SubscriptBox["r", "1"], TraditionalForm]]], " utilizando el mdo de la secante.\n\tb) ", Cell[BoxData[ FormBox[ SubscriptBox["r", "2"], TraditionalForm]]], " \" \" \" \" \" bisecci\[OAcute]n.\n\tc) ", Cell[BoxData[ FormBox[ SubscriptBox["r", "3"], TraditionalForm]]], " \" \" \" \" Newton." }], "Subsection", CellChangeTimes->{ 3.4281348698125*^9, {3.45975442978125*^9, 3.45975443153125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"4", " ", RowBox[{"Sin", "[", "x", "]"}]}], "-", "1", "-", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtmXk0ld/3x6/M7g0hZCaFMn8USe2bEpFICJWxJGPJFKVZiiRFkqRMRUkp IjmHKJUSyZxMUQjXnR5D/J7vWr+/nvVaz1nn2Xu/33ufc9dV9Q5xOLSEQqHk 81Ao/3vqgvTo4qIYfnFvz/seeVl6yMzK+JlZMew9seNSvYQsvaTUYDWTLYbf Hu4+90hYlm6oaes9PCaG+4ZNjX24MnTjZRe6GtvFsORO8967LTJ0+iDj4+2n YtgxbXOEYbwM3eHS56L/PMSwgMbtF2OT0vTIpgtBh6tFMeXPQtTG58vpra3U 0RqvpdhBxyw55ZMEXRGHSBkr0PCuo97Jm5EY/WVAHb/YDxHM967wecprYbpn osFU5zlh3GpFP6gnwEsnUmLiEQjhNOvPgbuOzUCOaO+K9H4BnD4e43N0ZgQy rQ1Cv13mx5QNIbe9lhagc4FeUVo7+LDZEjsvDhpBMbyFkaF/l+CoUMUV/SwO 8jrTpN72kAcbT0YS9hIU7Nx5b/OPHB7sKXGxU2YlBVsbHnUZyuLBD8U861v/ o2CjIfHE6Zs8eMUmpyJ9JwoWsnJgip7lwRclxg2O3qLgYrHvNZauPFheUmCb iBwPnsvqcq8Q5sE7PV7JJ8oswalvfqVn+lPwLr3Wir5pXuwelRFrfIiC35+y u2O2hA9r/md3sMWDggdprOsJy/hw5cNXekLkd7LMyh4v0efDvTcS3h0HCg4a c5J3CuTDGv4GLGspCg7pXilyaYAPh+rMZk3HLCLoXvaVp54f8+X4+GseW0Tp x+8ufdXCj9NkP69z911EQcdvd3v28ePXvNmNH+wX0cSqvhVX5sj1XRaz2asW kU3B33JTAwGcFnfdya5pAd0Y3G+/LEMAV/7UpD1WW0CSwx//xHgJ4pNmPE8y ZBeQKKVEqyRQEG+63Wl7WXQBsRy/uXRECmLscOWa7+w/pDu8OoYvSRC/rx+T UG35h45K2179VCGIW4uKV6Sd/YdcVYv7JcSE8ESkkcaZvnnkZxclG1kihEta aQ3BbfPooWLDqHqlED5m8MvvQOM86j0k7ffurRBmjaYWmr6aR5diAvYPtQnh uQNcHfa1eeSrvG42YV4IC22rNPKHebR53Dwx3kIYrxSnmztmzaGTkXIK2l+E cZJ+f7T/jTlUaVRnOtsmjAn7c6Vn4ucQxTr3QcVPYdx4vU79Segc2hI7YUlj COMwyR2CApZzKLs6BlEkRfA7aYfG8slZ9LnzjN4qRxGsb8zk+zI0i7ZebTUR 3C+CM/be3DTUOYv8QqUjunxEcEh6W7F43SyqduGNdzwugmXl9l0/kj6L/qO4 jqddF8H+iged5bfMol/fbYf2fBLBrZv4rxmsn0XlBw+UW7WI4M3u+e8t186i EmH2U91OESx577dJ2PJZJP1YSuzLsAiuUgmS//xnBq0S5Alz46FiUfWIvtiU GRQgetf30X9UHLVNZkXqpRm0/XKzfckGKh44+Gp30ckZtKZK3PUhUHF53mxt u+8Mcl9bWxtgQ8WeGqfz9DfOoEPKM2zwpuLna+L9BwYJ1GNY8lHxKhUrN3tW rO0kUGDBjS9KKVScGLlBKPwLgfos+KOX3aLiQ3WjeYIVBPqyxqnhUzYVy7rb 9msnEYgx5L7jZikVn7ou4RJpQqCOB381wtuoeNR4LB/rEOjB/bqG5C4qdu59 yxZeSaBjoCCT1UvF+mvDb2QuJdBkV2H11WEy/rr2LzUDXOSVs9Gmhk3FVkSm Be0qFyVu/rNwYhkNv8wKv+l0jou22wg1lkjRsJrFrsGsSC7iURbY0ylDw3PX F88YeHPRrpHUlEVFGi5e613lbMxFpTWG7GwtGpZvMaVma3PRlXnL4kPaNBwf Jen2R5WLMtqatRT0aNirvo4bQ+OiiArBIHcjGpby0Pjvfj8Heb9F20020/BZ fsq50TYOcvgkvj6BTsMTRR1f/2vkoLI/fNNN5jT8nrgc/K6Mg6zLfb/rWtKw 0T3vN2KPOehf+ONFqx00nG2xkeZ6n4M6/SzmHW1oODpl/NFYAgftmvcNNbej 4WGTesLoLAfVXJqdWLmbhvf8vGsZG8FBL+S5W7kONKytbfdLnJx87oKXTh13 puGf9c9U1q/nIP3Hw/tr99PwyT0z20y0OWh/f+1hOXcalu2nHzFV46Azf0/q +nrQsP1807PNohy0WO/I7vCi4fHLMm10Pg4KyfEhFr3Jesh4zJrPslF3lOEb uYM0jA0nzC2H2aijbHXKWl8a3o/XHd7Rw0bp3j55qodpmLA9lWDTwkanE5LO UP1o+GZ33VPbBjbirYZVf0jWP0Jrtatmo9YdkqmVR2i4kbOH2P2Cjcy3FDaf 9qdhvwt3FBwL2ehmVGGPSQBZn3trDrmksdHim9SDcYE0bKYTetktkY1KTYaG 5IJouKOy4sn+c2yk/cnbNIfkMCueFvcoNmoQbvJVDqZh8TYrjmcwGw1tHwu4 RvJjn2Q5n4NsZJgSa8Mk2YrRvvmQGxvxv3IUtAmh4aFYZZ/D9mx0l775fhrJ Z2mHLx3ZzkahIeLybSQrZRQXBZix0XnzvAjhozRcqcFpCjJko+Rj3S/1SXZ+ uYkVoslGwUFpXTYkT5tflA1VYiO6R/WwG8lJXxvNwqTYqFqD3nOA5DXuUl4R IuT+7kvfOJL8bmzfxSgKG83YKyQAyd4nch5Fc1ho4xI/KyWSFwTGPp8cZ6GH WlOcKTKejJuG07EDLHTcsCK9nOT1atHSZztYqMa0US+U5JanNabnv7DQkIRx tQrJwZuEPS7WsdA1M9r2t2T+Ip/sz1+qZCHKqPcHV5LzXdILLpewkMk/Z+sh sp5bh39+SshnIRVB4U/eJPcd15i6mslCVduzbL+TepzkCZFKTmEh+4f01o0k y14rM0mJZ6ErdUpeaaR+LxQW9t+MJeP9GcAZIvW1L7Q4mxbGQpm/PdI0SB43 vpqX7s9CelHGW91JP6jvUZjIdGah7V0ZjQWkn3Cfj8S9nSxUqFH+pPJ/fgsu Wn/fnIVyJ9tzaw6R/rpsejpPl4U6BGJ6i3xIf8mcyylQZyGN+eerrpH+bcz9 8P6RHAt5lLkl+pL+5sMu4sUCLLQJ3aphkP2QbZttVDLPRB9rBFPzDpD+6h5x eT7NRFqTmddtyf4J40TcL+tlIvMlyuLRrjT8SzvVEJUx0YNnP/ws9pD6xeZN /C5iovZLKVoRZH8GN70slLhPvk9alLpN9i9xrE3NN4GJbF0PnXhJ9rdIuYzk Uk8mGquLarfaSsN2QppN652Y6PmV7p3ULWQ+riYJntZMpL3XSwiT80Vx3oX3 hRETuTjyelJMyfy2ZDDdhJmoitjE6SHnU3hK4dMLC9Mo6a8Wj6EO6cfByoBi 5jTyqlwfcmINqV9c9yBP7zR6UfLw/E910p+fFFofPp9GMW28hNAKGo5xuveC s28aGRrmHW9doGKc//Soyu5pxNpnE7t7jor5CKRtvX0auUdWrKnhUnFSRl/u XX3ye+ohJ6KmqDj7p2rqNv5pdNRNzceyn4rfHckNTylmoCN/ytT8MRVTX78w qMphoGD0xEKyiortafV/f6Uz0FrndXZPy6m4s/jXoQ3nGej5/XkNXEzF48zV zn17GWiJw1CIRSYVL4t9tF6Xh4HULY75DYRRcVyZZoM4dwrZeMm6SB2l4tmJ Alfm+BSi7V6lvDGAPC888k++6phCdpo2Ww97kefZlpxa85IpxKtdscfUlood +O/u2usxhax5N6xsUqNijRWqnykxk+iGFuPb13oRLH5FearedxIlh/s8y0Mi mJhVlExwmETjS4L+hlSI4IYeOdflayZRuavtjaHHItgvW+qXVucEKvU8uNzu hggu1BD652A8gV6MNsxou4tg7fWT2nnMcTRzVMpJZ1wY++qePl3xYxx5blnK kR4SxvdWi7V8fj+OMuVGvrC6hbGEjF4k5844Khv9uuXqJ2HM5QbXWG4bR+88 y/oMCoVxbcWE0+jNMbSTdqHM7pAwdtk0Eau3fhQ5+CnH0L4J4fPb/n6tiBpB jclfPJaR97Faq3E7I58R5HI71ejYeUFMsR37Umw7ghyLCI/3UeT9zulPY47a CNJyzWp39hHEEb6/Gq42DqPYVUXSvCaC2C/+B/ZSGUYGPrzbbv0UwDsbP5cI Nwwh9UCF1wMaAni5Y3Gyq8wA0q5xOVSWxYefc+rFGtS7UFZq0vPTx3hwXvev q38ufEEhQ3mSkzvn0IHdCi+6fV4gXnkDaZdmJqoQifleG14KUtl6P83KfqN1 AzxKZ12aIEK5/aL2nWa0cur1jGltJ4RK8Zy6I1QPO3I6P+9yGYBPcnPhb6QG YepisW990AA0aDzv2ms5COl+5xc3nh+AF/Eugy0nBuG3jo6BVvEAVE2KePj3 DkL8qzM3efnI5z6rE/L5Q9DwWWPfq6eDIDUVaeivNwyWRPhvVcFfcHttanyP 5h+wsJXgZb8cAerR8+MHSiYgyUuYMfNhBMyvv1l7oH0COsIpPxd+jECumfl5 04UJ8M+aqBQS+A1L0oSVr9lMQtLkx1AF59/gLpd86e7QJHRcPz+wlfMbsmTt MhXjp8C/jVWTsn4UtG5nDwXnM6B0dOzpLetRqPvww6SynAHzCwN3M91H4ePU m3XMBgYkaTSfyI8bhbnjjQs6Y+T6qCcGlW2jcHRfTF697jTMy/ne748YA7/U NzJhz6fhmkf7Gf3ycXC20y+4WMSEuHEzGG4cB2GJidLS10yIPfHg352BcVjm cPTJx09MCL4RFC0o+heOOBisKx1jwq73vGG9B/+CfDMvBK1hgaie/uFEiQnQ +CibEZ3DAoGq1FXmmhMgeMCh0uA5Cxas5ga5myYg6MQYfzNmwYT3O0+fIxPg 5Oox9f4HC76k7XczxRNwLL2oMVWaDUkL8ba/gyYhVUApo+A8G+ISJqhZ5yfh VM9u4Z5kNsTKOn7cc3sSbL5F/uXeZUOwobIlqpuEqzVxv3+Vs0Gj1E3l09Ip 0KjPibw9ygbBkakVDw5OwcrgriQnGw6836W41F6CAcum+vI6ZjggpdsvHarA gBSaa40ZLxc8l+ap3FzNgKkHRm5XaFyY/aRt1GHKAPc3U0P9SlzQ3mG2z9OH AV8Uj8WdNedC8tZ9j46+YMDvJpG9Jy9yoUdNuTSlmgH+hNrLsKtc0FoyWPWC 1GlEQFPWOZULtdj/K9HDgHff5b9+y+UCe1M09wz/NHwryIXKWi64mdy2uO48 DdpVp+a0Z7mQL3PArtRzGh5nPnF9TiGAyVFx/e4/DTayCbYqggQkvnwYuOL0 NIiw6rtfShKADF/duF8wDeyOhK53awmgSZy8+/bZNJidM9ZNNiDAhQEFv15P gxLz+OAWYwKmn76v1Po6DZpO21zdzQlQ12nvf0ZMQ0lbV230XoK8ctwZ+7aE Cemm3sfj9hPwZsydzaYxobP19Z5oLwKcC4eFTFWZMBTxOkEugIB4DY5e7Q4m TA/1GJidIqBVoHLD0B4mWOXmVMSfJUB1+NRWAXcmfLLs3/LmIgGVufx7rUOZ sEbyo1nvVQL+qi6Pbckg3+cXbVrMJMAk5v6xmlwm9Gy4cuFENgHnWnUOlRQz 4eYjz+SeHAKkL23fmVTLhNpnYQP7Cwnw7GuBU41MED8VrxT9hIDCDR7/BbYx ITeJTj1TQsDm8Ug561EynmePByzKyHgt+EQ3sJiQ+D32LX8FAS1ZyTyaC0yw 9jfYUvyaAN/dj37zS7Dg3er2xVeYgJLCdT0sedLnp/WN5d8SMMtb2zS4igWh j9cTh+oJuFbWVVazgQUfHE/wvfxAQJfY4cKSrSwoczm4veITWd8jzLv3bFng b+m6mPeZgFfytIunvFiQXKpaZ9JMwJLw9KjAABbM2oy/620hYOcX9cB94SzI FnqqG9RKQN+ZTXs2XGbBqE6I/NZ2AtZ0fdiueYMFpjGPb13pICDsP2dTmbss OFnhdbiyk4DqxAEdgQIWpBdYxLV0ESA0HKzKLmGB3GrZqZZuAhxgTmqokgUN Jg+yX/cQkJl+SehbHQschMpuJP4gYJghOV/zhQUDg7r1Fr0EGNhkT5Z0sKDC nKE/QvLJXO3BewMsqK0fbTn6k4B3/161JY2zQHuDRMEAyeJ7LT6e4pB9n3r4 kVkfAW4lzW8CKWxw5mV9jyU5V9j92T4RNtzs+KD5iOQJ79Fcayk2GGbxZb0m 2aQqIn2DEhtyxT4YlJF8bjlvoqYmG14pWPSlk9wYfO20jCEbpMae5vmQLN0g f1zAjA3F7TtipUn2VH3oy7Zgg1HUft9nZDyF0UZuQ3bkXMk0dTMimfUN235z ZYOCPd35HpnPZh3bLbU+bPDvbnGeJvOPj+s0ehbEBqt6Txcdkr/9PKSZHcmG Pa1ee+3JeiltmJa/dpYN28T32u8j6+mXEisWm8CGnW8/wi6y3s/HRHiDUtkQ GGOvpkXqMb/tFmffPTbUUS+yxkj9tmetHLV+xIa+q6KlaW0EJHOf/thQygYB n0w3re+kXwob6mTes6F2pmSvAOmHYF6nVwLNbJiYrMu3/0r6Z39/EbuLfJ/L bT73hfSL2GzKtwk2ZPKZlmR9JCDNLy6ulmBD7x7VA/ENpH9qJKKfLeHAg8dt na7vCAgPW+t1TZoD36xq1r+oIesnMlnlrMqBxq/5ZgKI3P/ec1klbQ4MFJ+s 2FhFxv9xw9fHWzigaxcnvJvsnyzPf2vDdnLA9Hf2d/1SAoCDL23cy4Et8SdE WE9JvVSt4GMgB6pNa7LVH5H5lFPvXI/kQD4jdu56HgH1O5s4Luc4cGru1rOB +6Q/o5yLR25xQHOb0ErdDAKSvhxU5H/LAZVfk28DLxOgf1DzRONnDrSe2PiA dYGA5pmx1hsdHAjfcfWtxxkCpFYdT1SbIPfPFa/7GUFARszZOVjBBc4F2rE4 bwLyNbM6o0O4wJIK2BFoRIBVtdc682gumNN1VmroEvBnz6rrwuQc1xtavqJe gwDt04+t0jPIc+Fn4O5COVLP75XlL+u50LY1Ga1Y5EL1ufbUKXkCpopfyiSQ 89tT9g6jfDXp+3L9/ohKLvAUu9ueJufu2lDRJxbPubCt8xefqCUBcmq2lon3 ufBRj3V8bSgBnN3r/d7EcqG9R9zBl9QpT3nwdvF/XLBOONQRRuoe8VoiL2wN F6o2VLqfJ32XtLzAT1WVC9lpPgHZUwREC/fJ6Ilywc++7EKX7AyYH54Slx/h wOzbfeW7jsxAg8Umr3U3ORAYWrLpwPEZyNo2+Mv3Mgd6VfjrAk7NgNvbebXT sRyoPVX8Nf76DJyLH3vv48eBBGOe0dqKGTjvldzwz5QDCkX5CsYis2AtG6Me 3k2e165zDyykZqFRNSBYookNFCF7LUelWfI87IxOq2XD0MGZdccMZ+HKCsmf DqTPnyjttCtym4XIu1unM8PZsDmFcVa5aBb6dqNdkcJs8DxhNiK4cw4eh93f aqfEgjUHG75POM9Ba4K7etRSFjB3OdZ995qDZVZ3087Pk/cX9cD7OZFzoL12 zNS8iwmPm+7sg5w5cLz7vdX9JhNmVs01RczOgTyVRpXlZUJKS8WrXw/nQTzL wCjnIwP2v7EoaCydh3Npf6vVyxiw6mFzamn1PPDcPm53+T4DXp36E3q2lVyv x7gxF8mAXs0VOoqUf6C0ea32xZUMWHM66r7j3n9AU/Bs1g+fgrdrja+85V8A tXNSrQoCE+Cu55jDEFuAg+nWwhqdf4EwPFalLLcARy8v/lgs+gvapkUTMboL YB+lnKS4+y/ctFLeY7R3AeYvaGiI3B4H30OCCnkPF4AmrRn0THkMhO61P4mz WYRWhb7ei0K/YbVw1e9cKwo98YyaOdO6H6bf6/o/sKXQtdtqVJQl+6E67v7Y PQcKfWeMwiWl7j5w5rs0kbGfQs/10FmZ7t8HFxd3s5KPUugqz+1spkR/whB7 ZPFkOslfw0Ymj3XDgwFJGaffFLo9jeldzfkGilUBFvzxPPQzVRVsE5ESoMwu eRQ6sIS+Tddk09/AfsTd/ca9fhUfvTXq4bHfjGnUbeQhv+oCP93P4LWVneQi OrpXfJlajwD9Ct8M7/ggP15xc8iFT1GI3mq9emGWSsPF+7ILmFHCdOe/xbIH /JfhvZtOWzW8EaGLW8RrsZKl8DP3IDXTeSqdX+6HU9cNGUyIbOWtcFpK3xY9 I1VXIocdmjeuV0wXpQf6BMirHFTEIhupNVV3RemWxR7GBSGKuCa3y2Z/jig9 4JSdg1aMItaPOuF1p1iUrm3JOq6UoohFlcsTV9SL0kUhe+ITUsQfAg0Hl0+L 0p3X69P05ZQwXUgrWXSnGP1xk2Pd4kcl8vc8IVe8W4xeuB/f7f2uhJ92v8+z 3StGr7e4xyjvU8JKT31fJ3qL0eNutxOuHCU875Q7LHJCjN48VCy9T1UZl+co bxLMF6MLfWWo74pQxsFLJ9/nF4nR/UtkmlrOKOPVkdUO25+J0btMwl7uTlDG N60P+F2sEqNnn8/V2JytjEMZGTd4v4nRh5R2mDR/UMZr9vkr5XSI0W9FR7pp tCrj/roNj8x7xeilDz9nRPYqY/v0juqzf8ToSf9UDgswlbHQkoc7VCfF6N56 b8a2/VPGKCCyFbPE6GX5P1E1rwqO+L7dw3OW3F8GiXUIqeD//z+J3tX0yGdi qQr+P20ilIs= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-4, 4}, {-8.027209391097063, 6.027209391097063}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.47221725503125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"4", " ", RowBox[{"Sin", "[", "x", "]"}]}], "-", "1", "-", "x"}]}], ";"}]], "Input"], Cell["\ta) M\[EAcute]todo de la secante:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"x1", "=", RowBox[{"-", "3."}]}], ";", RowBox[{"x2", "=", RowBox[{"-", "2."}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "1"}], ";", RowBox[{"error", "=", "1"}]}], ",", RowBox[{"error", ">", SuperscriptBox["10", RowBox[{"-", "6"}]]}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x3", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x2", "-", RowBox[{ RowBox[{"f", "[", "x2", "]"}], "*", FractionBox[ RowBox[{"x2", "-", "x1"}], RowBox[{ RowBox[{"f", "[", "x2", "]"}], "-", RowBox[{"f", "[", "x1", "]"}]}]]}]}], ",", "10"}], "]"}]}], ";", RowBox[{"error", "=", RowBox[{"Abs", "[", RowBox[{"x3", "-", "x2"}], "]"}]}], ";", RowBox[{"x1", "=", "x2"}], ";", RowBox[{"x2", "=", "x3"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "k", ",", "\"\< Val.aprox \>\"", ",", "x3"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Etapa: \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" Val.aprox \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.6475270563600301621`10."}]}], SequenceForm["Etapa: ", 1, " Val.aprox ", -2.6475270564`10.], Editable->False]], "Print", CellChangeTimes->{3.472217255203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Etapa: \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" Val.aprox \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.7151329676634321508`10."}]}], SequenceForm["Etapa: ", 2, " Val.aprox ", -2.7151329677`10.], Editable->False]], "Print", CellChangeTimes->{3.472217255203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Etapa: \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Val.aprox \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.7019251404734473591`10."}]}], SequenceForm["Etapa: ", 3, " Val.aprox ", -2.7019251405`10.], Editable->False]], "Print", CellChangeTimes->{3.472217255203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Etapa: \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" Val.aprox \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.7020610490603690858`10."}]}], SequenceForm["Etapa: ", 4, " Val.aprox ", -2.7020610491`10.], Editable->False]], "Print", CellChangeTimes->{3.47221725521875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Etapa: \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" Val.aprox \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.7020613733341789657`10."}]}], SequenceForm["Etapa: ", 5, " Val.aprox ", -2.7020613733`10.], Editable->False]], "Print", CellChangeTimes->{3.47221725521875*^9}] }, Open ]], Cell["\tb) M\[EAcute]todo de la bisecci\[OAcute]n", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"a", "=", "0"}], ";", RowBox[{"b", "=", "1."}], ";", RowBox[{"lon", "=", RowBox[{"b", "-", "a"}]}], ";", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", RowBox[{"k", "=", "1"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"lon", ">", SuperscriptBox["10", RowBox[{"-", "6"}]]}], "\[And]", RowBox[{ RowBox[{"Abs", "[", " ", RowBox[{"f", "[", "c", "]"}], "]"}], ">", ".0001"}]}], ",", RowBox[{ RowBox[{"k", "++"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "c", "]"}], "*", RowBox[{"f", "[", "a", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", RowBox[{"lon", "=", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "k", ",", "\"\< \>\"", ",", "c", ",", "\"\< \>\"", ",", "lon", ",", "\"\< \>\"", ",", RowBox[{"f", "[", "c", "]"}]}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.25`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.5`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.26038416298190825`"}]}], SequenceForm[ "Iter. ", 2, " ", 0.25, " ", 0.5, " ", -0.26038416298190825`], Editable->False]], "Print", CellChangeTimes->{3.47221725534375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.25`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.09009011634419029`"}], SequenceForm[ "Iter. ", 3, " ", 0.375, " ", 0.25, " ", 0.09009011634419029], Editable->False]], "Print", CellChangeTimes->{3.47221725534375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0827459416784766`"}]}], SequenceForm[ "Iter. ", 4, " ", 0.3125, " ", 0.125, " ", -0.0827459416784766], Editable->False]], "Print", CellChangeTimes->{3.47221725534375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.34375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.004330276089012264`"}], SequenceForm[ "Iter. ", 5, " ", 0.34375, " ", 0.0625, " ", 0.004330276089012264], Editable->False]], "Print", CellChangeTimes->{3.47221725534375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.328125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.03125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.03905047826645358`"}]}], SequenceForm[ "Iter. ", 6, " ", 0.328125, " ", 0.03125, " ", -0.03905047826645358], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3359375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.015625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.017319860276559407`"}]}], SequenceForm[ "Iter. ", 7, " ", 0.3359375, " ", 0.015625, " ", -0.017319860276559407`], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.33984375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0078125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.006484619383849477`"}]}], SequenceForm[ "Iter. ", 8, " ", 0.33984375, " ", 0.0078125, " ", -0.006484619383849477], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.341796875`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00390625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0010746144234607957`"}]}], SequenceForm[ "Iter. ", 9, " ", 0.341796875, " ", 0.00390625, " ", -0.0010746144234607957`], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3427734375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.001953125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0016284718935106746`"}], SequenceForm[ "Iter. ", 10, " ", 0.3427734375, " ", 0.001953125, " ", 0.0016284718935106746`], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.34228515625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0009765625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00027708878091314837`"}], SequenceForm[ "Iter. ", 11, " ", 0.34228515625, " ", 0.0009765625, " ", 0.00027708878091314837`], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.342041015625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00048828125`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.0003987228372177576`"}]}], SequenceForm[ "Iter. ", 12, " ", 0.342041015625, " ", 0.00048828125, " ", -0.0003987228372177576], Editable->False]], "Print", CellChangeTimes->{3.472217255359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3421630859375`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.000244140625`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.00006080702871114063`"}]}], SequenceForm[ "Iter. ", 13, " ", 0.3421630859375, " ", 0.000244140625, " ", -0.00006080702871114063], Editable->False]], "Print", CellChangeTimes->{3.472217255375*^9}] }, Open ]], Cell["\tc) M\[EAcute]todo de Newton-Raphson", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"x0", "=", "2."}], ";", RowBox[{"error", "=", "1"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"error", ">", SuperscriptBox["10", RowBox[{"-", "6"}]]}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}], ",", "10"}], "]"}]}], ";", RowBox[{"error", "=", RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}]}], ";", RowBox[{"x0", "=", "x1"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "k", ",", "\"\< Valor Aprox. \>\"", ",", "x1"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" Valor Aprox. \"\>", "\[InvisibleSpace]", "2.2391326027327136394`10."}], SequenceForm["Iter. ", 1, " Valor Aprox. ", 2.2391326027`10.], Editable->False]], "Print", CellChangeTimes->{3.472217255484375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" Valor Aprox. \"\>", "\[InvisibleSpace]", "2.2104675877671059406`10."}], SequenceForm["Iter. ", 2, " Valor Aprox. ", 2.2104675878`10.], Editable->False]], "Print", CellChangeTimes->{3.472217255484375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Valor Aprox. \"\>", "\[InvisibleSpace]", "2.2100840138117141341`10."}], SequenceForm["Iter. ", 3, " Valor Aprox. ", 2.2100840138`10.], Editable->False]], "Print", CellChangeTimes->{3.472217255484375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" Valor Aprox. \"\>", "\[InvisibleSpace]", "2.2100839440926632`10."}], SequenceForm["Iter. ", 4, " Valor Aprox. ", 2.2100839441`10.], Editable->False]], "Print", CellChangeTimes->{3.4722172555*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 7\.ba.-\n", "Encontrar una raiz aproximada de la ecuaci\[OAcute]n :\n\t\t", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "-", "x", "-", "1"}], " ", "=", " ", "0"}], TraditionalForm]]], "\nen el intervalo [1 , 2] con una precisi\[OAcute]n de ", Cell[BoxData[ FormBox[ SuperscriptBox["10", RowBox[{"-", "10"}]], TraditionalForm]]], " primero por el m\[EAcute]todo de Newton y luego por el de la secante. \ Contar el n\.ba de iteraciones que se han realizado en ambos casos para \ comprobar cu\[AAcute]l de los dos m\[EAcute]todos tiene una convergencia m\ \[AAcute]s r\[AAcute]pida. " }], "Subsection", CellChangeTimes->{ 3.428134875234375*^9, {3.459754446390625*^9, 3.459754449078125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"x", "^", "3"}], "-", "x", "-", "1"}]}], ";", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "4"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k8VO8Xx+1ZI5Es2ZN2yjeSPFchO2UpQmiTFlKkUiIJSSkiIaVkjWQv nRIiWSM7M3Nnw1jHDKH63d9fz+t95z73Ofecz/mcO2o+/odO8vHw8CTx8vD8 f2Wn6zf9+zcF/4z8H/1/fTLl2uXPnoKg+drASfoUGJiEjowQ6y6Hy8OLLVNw k/qZA8TaPhmy8VzaFIhutlK/9WwK7h9rsigynAL1SvfrPPpT8E34dkRh6CQ4 dIZv5b0wCdYHdj8yWDMBbI1XBhe9J6Ex5bV7Lc8EPAlq2E92mgS2fKWx7zgL BteKuX3ZMwlhNUcUhb+w4PSxxKhwkUl4IWwx8+Q8C26yskd4X09AWU4/jd48 DgVCPxL4Blmwbajoxd+0MaDY5CqcaGWBd+6LvIsxYyD3OCqr/jMLyj6xeAWC xyBCxaQs+jULYvLdvKLsx8DVoLx3pT8LJIa0jXkExkDIL1NFkY8F9vIbYz8E joJR8Y2c0LlxWBuRGK3kPQoXuW66w/Rx4GmLZj6zH4XBCNn9L4g4JpZ6Ejhb RuH9s9hTG5LGIWgma1x6lAleLZcLd2qPA199XCPzFBOerD60K0lhHDSunZ3S PsyEZtftwBUfB8+3fPeiDjBhF320vWpmDOjXtGhPtZkg8c9zDn0Yg2D2rygV FgOqdSz32NiNgeNgUNzTEAbIJq5rOnF5FA4eDRMkZ9PB/Hq9e+HpUTDU3NJ/ 6xkdgn3OT3PcRmFv+LYvBg/p0KtTI3fXZBTOlfM+mb5Kh7QW91O5K0fBySxC JMyODhor0vgnc5gQWzoRJ75MA6fJ/cm70pgQoCRF3jBLg8ju8U1hD5jQvhqi 3Jg0oGftOSQVzIR+/4dPBLtpkIcNZO7Yz4QFmRfBF4tooHtNwfjKEAMyO68X JvnSwMe7tgPaGXDnwe3Lql40eGThd1K4jgGmPXY/vhymwdya6rineQzY0vDn z4EDNKh87zrw4QoDYl091npvoAGaSAnhkWZApez6jA/jVAjowsQtBRmQMRTe nEulQuYH5vOEBTp82tzXWDhEBb5Yg2/qI3SIlTfjn2+jQoNWr6xZAR10LpWs v19GBVsvufcx5nTgDlGTaiKpwFMUqS5tSIecQudClTAqlP6ZSUjdSoeM/V/5 nlylgtKzHwH5MnRYGbDJEC5QgdUdvq2FQoOGWCydz404X3Mq3fkXDUJsik4J OlPB6ZK7xHATDTq3m69WcqDCRyl91mQxDbaIRDAjzakQZ83KlQqjgV2Dpdl+ PSpgqa7yTwNpIOm8agzfToU5ZkO02ika9HttkUvZTAX3qBend9jSwDB9dtBQ gwpbvrisd1KkwV/fnl7f1VQgSdYlDq6kwdDzQxGvJKmQ6KkrcJKPBlpFNq5s MSosL4nhQaNUyBNw9PkuQIUfu75kJldQwcr680v3eRxu3dkmpZpPxC1odU1n Dge9rmdhORlU2MS+oSk3g0PaxWDPqjtUmJC79lVpHIdzBZuVBhyp8NJsYGIF CQfVpZR7xw9QgebRqnRxCIcuS6GlcUMquAgmf2X142DEIPUtq1EhqMjYWvEX DmLqT5KVp3EI1vkn4NSCw6cA/hVvcBx4I8pL7ZtxCISA4O09OCh9uhDu0YRD v7u1M/YJh/dZV0yL6nGIz6+sa3yHwwrN1ZrsrzjsW1yvd/A1EaeRGduiFoe8 ZJ7VPnE4GFL5dm4CHDzp5yPGwnBQtOqLK6vBQfq/gZnASzhMcgZyDn3E4Vpn WfttNxzkW5Z+f6nCYZuaBiZuh4NV2/G1iZU4UPwfFiWa4KBcf7/5SgVxXeJs /Gtt4rm7a2ovleGQ4PD4uooiDrMb5tZcLcWh9/EH36cSOETmvqA+ek/s68Gd V/MQeS0+sO5LCQ4nFcT335+lgPo23xJ+ggs89HRW0ChwQfZOkhvxXrOZ7uvC eyiw+4hqZX0xDrupkaJLTRTIYn4QMyP41obC+csfKfCjsi+8twiHBr9u6uRb CnRVL4ndIlji7Z8O3xcUGCJlPdtDsNPMeqA8poDQOid1MYJT9ewK3KMo4O8d nzD5FgfyleCnv0IoYJjZ1U8jWPtDRpTDWQrcac6Zmib4wt+GS989KBDYHfdF kthfZjLlZepAAdVivn37CF6OlLP7tI8C72zjfKIJ3teI9hj8RwHTzHwZCsEx Yr7aJRsosPiUYmlPxN9u91B2iwIF2Fves9sIXvOoki9bnAL21s/5TxDv79FN mlL5R4btDO2zYkR+Xq0VGXo6Q4b3sx2KDQSPHdX9vppKhqVjSisSifzqPnet uP+LDNpqscpBRP5DKOGvVjSRwVU73fEMUZ9P6/MSwj+Qofh0T3JAOQ6CZzpv LhWSwaajejCWqKdNweLZoEwy2B9uWl1J1PvRlLrr1CMy9IxHblsg9KAafGkn foUMy8Ji3cWEXk5XPVP18CNDb1Df/o2ELt8uf5XocSfDxyp391JCb3tuyzC/ m5BB6UGMAx+hz4gGo25TPeJ+AX3J+jocGkVO1n7SIsM6hRd7UxtwcHlYllYi Roba8ZKi698JHf8citnylwQ+cZ6/7v7AAV8jdCV7mgQSSa07sltxCEh3OZja TQLeN/yO8j9xuJc3LxjxnAQTFgupPYM4dE6osJcSSHDq9Z++SyM4rNW1IAVF kmB88Ve/GgWH7IqU6jNnSPDMVYJZwsDhS91u/4M7SaDsDalv2DhM1MwXm8SP APsyq6R1JeG3UUOZ/EEjkBjikoVJE/5k9/Vh/dER8GlbMPkiS/jLSHyA5cYR CL36zW1SiQrifFo6B+uG4WLX+2Iu4V+bzZ2KvBaHINaa93mZDRXerjR8rk4e At4Buwnxg1TY0aPygPptCCKbjmwNJPzT0Hf8gm/SELxqiHA85Un4VGzEtgCd IVjj4jLJDqDCmdbiwrBTgzDpryeZmkL48ZMn6Sa2g7DBMpv9PZ2I91jofX69 QbC6f0RCJIsKIdMHzt/lHQQL12PvCgqpEC09suVB2gDQZdYFPvxKhTcuEgUZ nf3Q+znhLswQPjZ8Jq/GuA+E162PO0PMp/iH9Uk+Gn0Qez8t5oMnDQz2qYWv EO6DHUX2doqET8e+7j18sKMXCq/6z/AH0UDn3AFB2vFeuOVcu3jlMQ2u/db0 Eo/pAZ1ryktDnTSQkiHJHv3ZDfoCSzUGR+lgZOkSvnC6E/pvPs0mxzOA1WSk uc62E6jyP7f+S2HAMyuNbyY7OiElVMtLK4sBi9bT4veWO6C5x/V+QgUxF+1i U9YldEBPWmFoH4kBek6fivZVt0PuuhFTjf+Y4PrJ5qO8fCuQ+uU27aEywXCM FbTP5xv8Z2lf4+06BpeupZ3eW1EGlqqcU2vtJmAvczjV8EcSCt+o3aJ1eBrk FppUzNo+IRn1ipB22gz8SRZaQeluRq1dSilpDmxQt5mX6Bb7gd74i+mccGGD OQ9TptHkBxJd8hbTdmfDQ98m9beFP5B6VJT/q9Ns0NwdZ3ztTgu6T/LT9L/J Bqv+VcHS/7Whxr1xXLN8NljHxweqWXWgF87x4w28c+DJFOIqnOxAGzps+UVW zEHAvrCrMrc60MChwBBz8TlI5PrfWlHegcLFNnm+XzMHw54H4yfUOlFZ3So7 p81zcHG7TF7V706kN1kYVOA4B8ntT8kHc7uQT1/Q49uZc1DCDLW/UduF0r6i Y12v5qCVx6smZ6ALZR6UdVPNnQMhXa2n/yS6kSr5bn3uuzkITihxKAzsRhNR ou3htXPgcqgZhI1+oeXS28km+BzIdC2nQ2sP6u7aKdWjygEd1ojYOKMHrdPW PB+hyQEbga9X1/D2ol1epsba2hyI1ItxPr+zFy0JVa0/vp0D7ERZCcWUXlTD mD2ZtJcDnc7bQoO9+5BnTfYD+hEOJPQcc9s6148E2MtvpO9xIFqo5UeQ5AB6 91VwHsVz4OZ/hujTpgEUqF9IO5nAAb/HMpr23gOo8NjayGfJHDC1b5oIaB1A YXLqnIIsDiw07AgvzRlEohZrtHyqOcRcfM5e/jqIKmIfz8rWcICmKXHKbGQQ +bcWM74AEU8Ew+qX7BC6WSy2ja+eA/nGaTILEUMofr/gUY02DniWC+bs8RhG nEaFUjKZA060QIXIkGEk66EeL0PlgLUMKe7H42Fk4NAsj+gcMAisvujxfRgJ 5ptoXx/jwKpt/nvC9EeQZnLEwfhZDgh7DBZ+OzSCmu8eZt6Y48Dfe5aqUhdG UECUHecElwNjoxqCL16NIF1B3FF+kQOUQ+dOk4VJSOS8r6MCLxc8xl5m3llD QtI7pJrr+LjQG97Xt1GThNaUut04JcCFtmJzm0BEQtHmay8/WMGFjyvVdPmD SShWZKEvWIIL+tmH/d7cJqEuhRCX/pVcKNkbn2WdQDwvRbFTT4oLueeWZBML SGhyq0RuqzQXnnzvXtTESShhs4dgkhwX4hfNj8RMk5CycVti3louRG2qLJv4 Q0KM56V7K+S5EBybGlC+lox+97yHMkUuXKgWa1XQIqPcmerYN0pcODUWujls JxkdJ0s6PlzHhcNWx+gH7MjoS9MNMFfhgsO19v0FR8moWTDSWUaVCxZ5Ji+k zpDR24ySH70EG4hquvfdJqOm88f3matzQccwqWpvAhn5Mjp3TBGs7Sck9zKD jApNzZjxGlxY+53Z4VdFRlwdiagSTS5ILbpub2sgIx9+B69d67kgvKk5bmcX Ge3DAvBignncjMaSyWRkGXNCWF2LCwsxhQeWJ8lo8y2NxhiCp6uUX3stk1Fa Q5Yik2Dm6AO+ehEKcvg7sGS0gQskeV6vjXIUtNBY6x1NcJ9lYM19TQqyarQz /05w51VcYVaXghbTg1/yaXPhe65TiAuioKpxHX9dgmv76rurbSjIyPHyaxeC q0X0d6q4UZB+sL5xIMElu3Me3j5NQR7cgB2RBOedkZ9kXKYgnyC563EEv3wa a20TQZyfqLbqHsGpTUs5xQ8oqIt7ZyKM4Ee/zwnJplNQntEekbMEx24cPn41 j4K2CBt42BAc4Wr/ZaiCglYuBVI0CL4W81l5Xz0FCVRQEmaI+AOrdEOzOymo dujGiTKC/UZf9omSKGhJao+jP8E+8jL6/hNEPLNSh1UIPmp5J/HnIgXla3B9 64l8OV3lzugL4yjGnBzuTbBN7mn7NFkcvVtuTGUT+Tft6y3g0cBRNyOr4DrB RiJWoid1cJSX61v8m6if3u4Pp5v24oiCSzw/T/CWM1vqt1rjaIdB7MUeot5K TStvcU/iiFZGeR1H6EHmd9iQ2yUcFasX/O5R44L4xhlDuIUjL50NsvIEL0f/ 5Nx9hiNUJn43lNDfXKWpIyuHON//RFuGMhdYzLJih3IcKR+y+FpO6HXIIuWs fAeOUmUeJHwj9P0rRKTpxjCO9AxGPD4rcKE155oWZRxHDqJPqt4S/fBJ2IOc J0RFA5g0/zmifzIa1Q4bGVERnm0s70v017PDjblVFlS0eNPHXXMVF1LoF5Z3 OVORTnqQW48kUS+Bjy90L1BRyp/EADWif+9gLiytTCo6HcM4YUb0d0TbsvGr Aip62VI6Ui7IhZueWQlqVVS0aekbQ5nwg5DQ6V1KnVRUfXw8upOHC+cqY8NX CdDQ/Gtn/2+/OXDmgG5XvBQN1fiHl7LmOXDqV4+W+Doa+ltv6SpM+JHXnOYP oV00dPfMQJ464V+OOrBm+TQNdX7TbaWMcsAwh51Pb6Yh/WpNubgeDujrp/49 3ktDtgNbcmW6OaDXgB0kU4nf226ix50c2Ea9zx34Q0Oq4Zt9Als4oKaqbdKx nY6OW/SMVNQS/pji/uvDYzpK2Ttb45bPAcEN/Bt3Z9JRmmI+A8vhAF957vXy Ajpqlz5arfSaA8s/uarv6unINaN5f1kGB6YlE85mz9ORzEnlA2eIedFzt54n 4SgDycQKrOq9zIF96u+6lc4w0PLOGaO6AA4UfEzLywlmoO9vlzqzznHg1swl p88JDJRKs1Dde4ID2kfVc6a+MdCTPwOXeg5x4Nq2MHs7PSYy4n/5/NVWDlAb /TT7TZioaPIufx0x/+yOu/w+ac9EK2lCHr80OKCesjXrhh8TSX15+/OnPAea eQe5BZlMVDBQw68ryAGlboMMMYlRFPvtieSFvjmI8te8lKwwigYSNx6v+jkH 0yJSFhrao0j5Tbv+fMsc1BkzZgz3jyKur+EBK2Jen89JMvO7Ooqur0jcYZs3 B5+uz7IaaaNIa1BpEK7MgZd6wZ6oT2Nor/mFW+uF56BNsUVwc/MY2lIQ67SD +B4xlp1sa+sZQ1LlG9N2LLJBSVjnhPzMGHIcRRckWGzomXgfV6AxjkT1/17Z 3MYGu6oPQ53R40itypbN/5gNex2aw1QcWSj/zSPZP1JsKLBkWdYdY6HQe4Ok c8JsUNgvIXPmHAspFW/yafs3Cwv/2eeU3GGhE1Ma/ucmZ6FU8We7WSULuRV9 EBdqnoUtjH61c+sm0PebYtol4bOgcHPsayVjAp3JjzpbR50BboSD1DnOBFLN DtTK6puBzrvl7ir8k2hTNuv0xdYZiE2I4NxRnkQ/eHy9BitmYOmVwgZH50mU tynGaTxmBgabrWInaidRWNbQO/qmGXgun++gnjGF1GFVpLLXNIQqr0rvzp9C ddGTV0YOTcMRjSuj0VVT6G3Bft4HZtMgtXV/xFTXFJq21Suv2jQNWOaE67Dg NJLmDSm4ypyCd+/v3Ms3mkaXZ1Lf0ldMwaP+skmzvGkUkBRs0rd5Aow3Cr35 VzyNylcxFy5JTMD4FZdjVRXT6OZ4jM34JAtMZefbttRPI/Nupwf+71jAtTd4 t5o0jW4drGX/0GOBW331JbLsDIr366xp1RsHjWJYCA2fQRaS1+/Eyo9C6Z0m vtIjs6jx1f0jdYFUwG+X/rfoOYsC6nVffralgnTEc1/s5Czy3PhI8Jk28f/i ZlDrj4uzSBQZjI8O4bD5iloqLXYWKeydmJg0x+Gl71VduZpZtNIrueieNAUS rDd6XVNjo1em2bo3VUbgwqqYGmyMjdqNkZMo6gKnpCe6K2fY6Ejc9ivpAz9h t/yr1wPzbETavVau/8pPEFCD+8GCc8jA6Nth+6JOSNXheBSoziFmgvVLLYUO aLD3/it3eA61Y7+khz41g0r8bjT1dQ59Fmne7pTxEdpFxz6np3PQ54j238Ne NcjA+FHRfBYH8SxwB+y0AWVeNMw4mEdw+qT47ZDPKKA39rpgBQe1jz6T0dpf i6SyN+86307sX60Vp0qqR/Ym5/ON+Llouv2x5qrdLaj1ynTSgC8XaSv2PF+r 9ws1U7l+8nrzKEDPr+O6Lo5OtLqkPa1dQEKeGn5/o2fRq/VH1owFLqJXDda/ DX/+QTc8BPVdhZZRv2joL/5FAewfn1Nmyoc/aN+GltS3IeKYciXn4aDvP2Rz rJX+1lcaG8tWS3weyoMJxikN+9atwZ5qywtUOfNiBXb/NVquUMKSUk9981bl w07Ofbtd+UEVO5bo0SrO4MNEt7scNszRwP6Yvv79/BM/1maacKhZbQPGpO0L qb0rgK35mNB1OX8T9mavrmKLtyB2aySZsqdnG1ZyJ2jV6a1CWN6EYb9KtC4W 53zcmp8jhGl/pcWTa3dihoMvcu+2rMBepp9R9fTYhek57jr6LFkY+zhwquzS bwOML1xRNzlQBEtbXwJevEbY8115VkmWopjojVOPb+oiLHowvkJdWgwzLlaO vLTNBDPbXWeRMi6GsVeu9Inl24/ZRdlvTS8Xx4Yzzv5p6TTFtI5GOr+6IYEl LAaq7ik1xzrpIi8fO6/E3mYtyHYMWmDffWgm0iqS2MauY3Yv/lhhQwJvFpLU JTHzlp4Nx1dYY9PZvkXyWpLY9tnN+zasssZkx8eV1LZKYu//O29YrmmNeV2a nd++RxL7PBKITVlbY/O3/xXaHpbEvF5EDrSkWmOar+UVYh5IYin0h7LI0AbT PzDQLv5YEpt7UxFtaWqDWY2m3X34RBJLOzBs6mJng/lvVeUkp0tiyinbnwb7 2GDVZVrt2fmSmEo1b1VnrA3m0LAzqu6bJPYQ91j5e8AGO+7LMbJolsSETgvr aNNtsGDRCnZzqyQm8rIuw3XaBntmZ+j9s1sS+1MafOKrgC1G/4UZUXBJjBJL Si7Zaov9DuFjn2RIYlQhg41z+raYuGJd7uiYJCa9IU/EYJ8ttuPYAbmZGUkM +06pbHCxxcx4RVovcyQx3+jN0au8bbEjWd8jFxYkMXHvx288z9pifmZxe0KX JbHqi0fl3gbZYjcYtrP//kliq3rrev6F2WL/AwxQzB0= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 4}, {-1.38489959795637, 58.99999520408176}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4722172555625*^9}] }, Open ]], Cell["\ta) M\[EAcute]todo de Newton", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "1"}], ";", RowBox[{"error", "=", "1"}], ";", RowBox[{"k", "=", "1"}]}], ",", RowBox[{"error", ">", SuperscriptBox["10", RowBox[{"-", "10"}]]}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}], ",", "12"}], "]"}]}], ";", RowBox[{"error", "=", RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}]}], ";", RowBox[{"x0", "=", "x1"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "k", ",", "\"\< Val.Aprox. \>\"", ",", "x1"}], "]"}]}]}], "]"}], ";", RowBox[{"n1", "=", RowBox[{"k", "-", "1"}]}]}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.5`12."}], SequenceForm["Iter. ", 1, " Val.Aprox. ", 1.5`12.], Editable->False]], "Print", CellChangeTimes->{3.472217255671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.34782608695652173913043478261`12."}], SequenceForm["Iter. ", 2, " Val.Aprox. ", 1.347826086957`12.], Editable->False]], "Print", CellChangeTimes->{3.472217255671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32520039895090687451516382844`12."}], SequenceForm["Iter. ", 3, " Val.Aprox. ", 1.325200398951`12.], Editable->False]], "Print", CellChangeTimes->{3.472217255671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.3247181739990537343587310143`12."}], SequenceForm["Iter. ", 4, " Val.Aprox. ", 1.324718173999`12.], Editable->False]], "Print", CellChangeTimes->{3.472217255671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32471795724478980823964747415`12."}], SequenceForm["Iter. ", 5, " Val.Aprox. ", 1.324717957245`12.], Editable->False]], "Print", CellChangeTimes->{3.472217255671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32471795724478980820805473773`12."}], SequenceForm["Iter. ", 6, " Val.Aprox. ", 1.324717957245`12.], Editable->False]], "Print", CellChangeTimes->{3.472217255671875*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.472217255671875*^9}] }, Open ]], Cell["\tb) M\[EAcute]todo de la secante", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x1", "=", "1"}], ";", RowBox[{"x2", "=", "2"}], ";", RowBox[{"error", "=", "1"}], ";", RowBox[{"k", "=", "1"}]}], ",", RowBox[{"error", ">", SuperscriptBox["10", RowBox[{"-", "10"}]]}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x3", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x2", "-", RowBox[{ RowBox[{"f", "[", "x2", "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x2", "-", "x1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x2", "]"}], "-", RowBox[{"f", "[", "x1", "]"}]}], ")"}]}]}]}], ",", "13"}], "]"}]}], ";", RowBox[{"error", "=", RowBox[{"Abs", "[", RowBox[{"x3", "-", "x2"}], "]"}]}], ";", RowBox[{"x1", "=", "x2"}], ";", RowBox[{"x2", "=", "x3"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "k", ",", "\"\< Val.Aprox. \>\"", ",", "x3"}], "]"}]}]}], "]"}], ";", RowBox[{"n2", "=", RowBox[{"k", "-", "1"}]}]}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.16666666666666666666666666667`13."}], SequenceForm["Iter. ", 1, " Val.Aprox. ", 1.1666666666667`13.], Editable->False]], "Print", CellChangeTimes->{3.472217255765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.25311203319502074688796680498`13."}], SequenceForm["Iter. ", 2, " Val.Aprox. ", 1.253112033195`13.], Editable->False]], "Print", CellChangeTimes->{3.472217255765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.33720644584165640039570185142`13."}], SequenceForm["Iter. ", 3, " Val.Aprox. ", 1.3372064458417`13.], Editable->False]], "Print", CellChangeTimes->{3.472217255765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32385009638764090385381405945`13."}], SequenceForm["Iter. ", 4, " Val.Aprox. ", 1.3238500963876`13.], Editable->False]], "Print", CellChangeTimes->{3.472217255765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32470793653208797064174737304`13."}], SequenceForm["Iter. ", 5, " Val.Aprox. ", 1.3247079365321`13.], Editable->False]], "Print", CellChangeTimes->{3.472217255765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32471796535381767575939715844`13."}], SequenceForm["Iter. ", 6, " Val.Aprox. ", 1.3247179653538`13.], Editable->False]], "Print", CellChangeTimes->{3.472217255765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32471795724467030158200181565`13."}], SequenceForm["Iter. ", 7, " Val.Aprox. ", 1.3247179572447`13.], Editable->False]], "Print", CellChangeTimes->{3.47221725578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iter. \"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" Val.Aprox. \"\>", "\[InvisibleSpace]", "1.32471795724467030153570154538`13."}], SequenceForm["Iter. ", 8, " Val.Aprox. ", 1.3247179572447`13.], Editable->False]], "Print", CellChangeTimes->{3.47221725578125*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.47221725578125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 8\.ba.-\n", "Hacer una representaci\[OAcute]n gr\[AAcute]fica de las funciones f(x) = \ 2cosx y g(x) = ", Cell[BoxData[ FormBox[ SuperscriptBox["e", "x"], TraditionalForm]]], " para obtener estimaciones iniciales de las raices de la ec. 2cosx - ", Cell[BoxData[ FormBox[ SuperscriptBox["e", "x"], TraditionalForm]]], "=0. \[DownQuestion]Cu\[AAcute]ntas raices tiene ? \ \[DownQuestion]Cu\[AAcute]ntas son positivas?. Determinar las raices \ positivas con una precisi\[OAcute]n \[VerticalSeparator]f(r)\ \[VerticalSeparator] < ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["10", RowBox[{"-", "3"}]], " "}], TraditionalForm]]], "utilizando el m\[EAcute]todo de la secante y el de Newton-Raphson." }], "Subsection", CellChangeTimes->{ 3.42813487921875*^9, {3.459754459671875*^9, 3.45975446125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "x", "]"}]}], ",", RowBox[{"Exp", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVmHk81M8fx+VeV267brtSKZESJYZcnQgliYiI7kSuSpd8CZUjIQmFVM4c kZmcUYQkQiG33Kxjj/l9fv/sPp6PmZ15v1+v93vm81mVUxdtTnNycHBkEx// /y59eW0ZYxpqvvKs8U3XKqx0+lpnxqahS5aedTmjq7BWSiUugklD/hp9ufFL q7DtXuNWmRUaSiw/q6QlxYATpxXObpmjIaVQYYNLVgyoqFbde2KQhsTETHjk EQPefSVSXfaZhhQH/e92PWLCcGe3R7iOhpz41jcbpzDhI+nSk2a1NJTFqwhj XzNhSqgrs+UTDaETW6+sVjFhiUeRzugHGvrkdk2pZo4Jx9WOZ0m/paHl3Nt/ 9lqy4OHMl5E+j2jo9MG5h70LLLjcJ6oeG01DRbcvBThgFkyVDa4riqShHPlc qXISG05F2uDF/4j8tBTMNBXZ8MFVfMn/Ng2xDz4N/WXGhvXGDnbXfWho810l GZ2HbHghqGbm2WUaCnQ0UOd/yobS7zUjKy/S0Kyoqzd6wYbuG3jr8FkaOt9l YNtXwIacawt1b7vT0CLH2qWe72xo0CMkd/8IDdX2lNpUi2I4KOVfkmlLQyXn HrYPyWD4wOqv7efDNHQiT0dyUhHDX1VlD0iWNNTS7ViUvRlD/2wPdoQ5De0Q 9W39ZY6h8t/WxDemNLTV43Ii9RCG9fIGuk17aOjQneg5S1sMpR9KXBIBNBTn nr7ryEkMC/1Q/0NdGrLRjU6Q8cPweN6mG/k6NOQ2d3TvnSAMOcfjZdu2Eb8X THD+HoKhtdN5WwktGrqgzspRjsBwykS2Nm4DDZm9+HPoYgqG8dfvuRar0dCf sCNFrDQMDUpmWB2qNOTbmuV8KZPIR71+B1mFqIcJj4uceRhuFLualUihoXyK qGwXJMaPR5G6ZWgoNT/wzoFqDGfSs7zlpGnoVuL4y5d1GJbu6N2cLE5DRxze Coo1YSgfshTZI0pD/dLk/dQWDG82iE3Lr6Uhh+USXbnvGJqfMM9/JkhDmxxi ZGo6MXz90kX8N4mGJC4E8VztxlB4OtBHkZ+GDv+YfSr4G8P2W7k6z7mJ+Hxy 380OYKj3pSH+DycNyVD1NhkNYZgkObiktIaGRGXazP1GMDyVSf6QyqKi6Pz/ 7J5OYFg3oy3Xz6Ai5b7rJqGTRH67DgWrrFLRdi+tL8enifzuePa6LlPROS39 celZIr+vtwzT6FR04dP+5x/mMLSTTn4+sEBFU9aKY2YLGJacLOagzVPRs4/3 60oXMbwxN16VPk1FyRyfdI8sYzigz6M6OEnsN/Wo4cYKhmb3lO6p/qOiytHV 8ehVDLOadw67j1PRA41NSWEMDIXIdhYvR6loa5Z71xkmhpdcL2QNDVNRwDwj Q4uF4ffXYSS1ISrqdDjG+kPwjoU0b4+/VPTrx3y/HxvDRIOPX171U1GUuKPN IsHs0J+bR/5Q0e+zGpaOGEPXltnI9b+J30/J/8giuIYiNO3ZQ0WjDlPDvQRv cFOzzvpFRXwKAXdWCX7wxih/tJOKuh0yX7MJnl48Lr7xJxXV/vU9MU6wDfD1 8fpBRcNgIeEjwcVh0e3Z36lI7KWpiz/Bsm3ZOuOtVJTPSCqQJfi6XE28egsV ZfQaP8wg4utz/73k3UxFHPEPV6QINn23fCznKxW1KC9OXSDyy1oS/zDRSEVI ffpSLqGHoLGG3OYGKioXFQv5Seh1Idwi+Fw9Fd38g+VHCD3bvrv2vqmlIrKt z97fhN47FIINJ6up6HiHDtdHwo+nHvHPNaqoyPi2quWdJQyZuXkcFxAVWSpo qm+lY+iy0uj6rpKKGmWPJdQR/tbsGaqaqqAi7sSipybzGK5/gGma5YQfp89p ZhH1MaW4fTi3hMjPaVx+wxShxxlLi5n3VLTlotM1k38Yvs8/k6VVREWHYu+d NR/HMNj0mXd+HhWNiMiv5xrGUMCbd7ogm4oWrUNlj/Vg6Gc4J8PMJPzZYcxZ 2UXUj/hvI7NXhD+q83eEfmL4ofz9459pVCTvruvk1oqht/DpHcwkov7OD6Qt 12DY0W990iyRWG/bjbj0TxjuKd4dFpVAzOer26ZbSfhxUvKXchwV8YDA6+QS DBvyqq+bRRHrf5d+WE30//Z7ua+iHlDRxM/d6kXpGKY6JH37GU5F6yqEQiOf E+cZp4+K930qmm6fjFqNJ+rFjlobFULsf3g/qLyLYdhSiFDnFSqa7J5XnHbE cOHLOR2Vy1R0qmrc4/xRQt/UY87eFwl/c6yz262J/t2nlcc8S0X3E/9pOJth OJr4x1blNBWlab1566SBoYWhYZK3PRXtvd7kL77ChgXi6jWFR6hIKnYpgDrH hoojUpNMWypy8jKEchNsSI+eNIy2pqLWjE71xh42fNWfPFC4j+i/Q/2yMpAN ee8xNrL0qSiUr3en3002lOhmKavsoiKBwcE+Dz82VN7KQTbTI+obvtA2OM+G u3q5eSO3E/EIctATjxP3iY7IgLwGFTW3vv0jt50NfwwpJ+5WpCK9Pez0XQMs ot9pj1zkqSi3wun3fz9ZcOrRurC7slRkcbzuIPzKgvyG6n5fpYn1n1MmeopZ cHf8NpsTa6lonO6jN/gfC2aYmwsEcxDrr8wXbtrEgvnJe9ekslWQ9JMvlQOK LFg5t3+5mqmCNF8deBYizoKdKVbDgisqaM+VzRyXV5hQcOlYVdIsMV58O2pd HRNeyTwbWD6ggiKf/0weOc6ExvyPxldrVJDE6YTj1CsMKHBhzyvDahXkURdP aXVjwPbv8663P6kg1V0mO88eYUCP50e7SJUqyCJYvM5VjwHDd8h/JpeooATr /r0OLOJ5wj3z5Y5sFSRYcwIF3VmFbp8+ulyJVEGvzikz/oSswHuB4x1jR4j5 eroCA3uW4IxrgQu/nQr65m+XprFlCR7fFziuZqOCYh2Fyt0pS3ALWYDtZqmC YoIHSuKm6bDj/cZ1v81VEHmXzjB3Eh2qzZ7xadNVQUFuhmEbphZhnefI2nKK CjqzPMgvFLoA+Y8M7n3Qq4xIP5yCCkNm4atZo1wXT2VU22nhSW0bgkmrVbcP zikhamFebPRkC/QcMC0w5FJCPK6me99VNwDzLMudEqqKqObr0NYrIoPAcU4h +8A+BbQuzp1paTgD6rQF1sebKaCbRmZvO+1ngJYPPaPPWAE53eq3trs8A7gX mlN9dykgvs4iskrGDHi3eDPh+SYFlLTj4F4R0izgWOm/Py+sgIwWDu5WbZkF GfilR1KbPIpYaarNtpkHk0JbVCcc5dHsETf+dFU6aDnnv8n3mDwyPBH66Ike HRR8rdLGdvKoftM+/6CDdOD/wN5YwlIembVvooldpQNOoVvO+kbyaHVXjPWV KjqQFmxPiFCVR60750yx4xIwIgUKb56UQ/n1VyX6bi0DqleNZPGYHKr2DLiY EbMMeBpE5I2G5VCAcu7poy+XQWNYurrdHzm0GgQnbn9eBnb8TRbBrXKo9it9 iim8Arz4lG9/fS+HQi7m3vGKWwGPeero527IoThF75NNcaug+IxB4ptAOaTr KTri+2oVdH8pMvjnJ4deJw6zeEtWgerj9LtnL8oheepUysBPYr7iLXFvFzl0 /+YtuRtkBvilu3uL5x451GlMz9kZxwDsxMLWV4ZyyO1TzE33DAagsdV9h3fJ oaybfFzXChngXA2l4vQ2OTTQc3PQppWYb720z11VDqGKhvRBQSageRecduWV QzFHnSfcg5lgb9NG0gtOOdTkUFLEHc4E57RevOljyyL67KRbxBMmKKZHz59c kkWL9j6mhwqI+XfO33IelUX7dbbXvRgm5idveObYKIsOJzt03tnPAkXNKe1H omSRuJTU9n42C4xblPFlhsuiLUzJURkSGyh9+r5rOVQWWRyUUtORYIPwQv4X iTdlUdLOfgXaejY4mXDl/J9LssjgyajY10NsIHDKnNfLVhbxEs2+P54NjLpd dn6wkkXP5UuChlPYwNcu6JzgQVnkGOvMcyaTDfrM89remsqiQ48W5BVK2eD9 JtnnczqyKBvXJFh2soHL4qRuMFkWCVa3jnyWwCD+Av/ZJklZdOHXh6FPshh8 GaGmKIrJooRnWfdSVTDY8cue+xNJFrWddYoV0cRAEH5q4WFQkEFHqtXbvRgY 6fVw2S9RkGLGfdhmiYFfPn1H1jwFHbSzftlrh0Ff+qZn+/9RkEOecmW6CwbF YXFe0b0UpODWkzjjh8G/NXnJfV3E+LStpnEwBipBjd+2dlBQkbW6xLVbGDw4 j3XamynIc//JkscRGLjaeHFSEAWplLcwwlKI+L/c0fGuoKDfe+/HcqVj8NU0 5Ux5KQXx3P3k6JZJxK/7vdkpn4LqOjg923IxEJI3SEpLo6Drm0JELkAMPhS9 t9/2nII+fPlW/70KA89DWyRrkijIytVBmlqHQdUNpcihWAp633TWy/8rBpdk Evb5PaIgqXt7vUK+YaCYJ8rLF0VBjnTexUttGAT0r7m54T4Fhc9FZQp2YqAW GKhfdoeCBgt3NL7/hUG7+PzSvhAKknwefGlvLwZapoOXzgZQkMw3J6P1Axj8 7jmhwfSlIFaLq4fPIAYRvj/GHlyhoNCAH/xZwxgMv6o79e4sBYX9TapoHMcg FgAlcIaCxCUGGkv/YbCns6T7mzsFPa+/YRU9hcHMJa0EF1cKqiTL7LOcweAZ Kdtu1omCMgJcixdnMdifpiJ2+zgF0T6si783j8HyrsQmcXsKiuAzGGEtYGB3 LsJ8uzUFzR9V7spcwoCTh5ur9iAFhUQtXutaxiD3WTA8so+C7gOtu/MrGJzY sRg0bEZByX4crMVVDAS+nde7toeCNqdl9vcxMCj1HF7gAxQkEOO/tYiJgQfH yfwEfQqaCf45cZGFgeTTn+c36hFM3ykqycbg01Zr9Q/bKaiToZaSSvCFxs/D +7dS0MPxHXFSGAN5N+P0bg0Kcg+VWLxCcCOj7OQ5dQras3TtYynB/rHa8iw1 Yr0GralhgtU0cjojaRSkNSN3n0Xw91panKIysT7aEMYkOMQ5+XCuPAUNLNnP /iV4y5KkiBGFgs4Ul1cVEtwTHdnYIkVB8bevMc8SHL6B976rOMEWKEWIYL1P N0zmRCjI5UhPdhwR75DDEr4tSEGRLjRFPoIfz12skOAn/L/NZrgQ+RpFjPpn cBN+7xg1SSf0mKK56uisIerX5Ry9idAruaJrtpZFRnrGGyT7CT33H7F5d3SV jEJuNT7rIfRemmz0HqGTkYK6RCwi/MgINVnvP09Gyq++Lz0g/LJRqvjLP0NG Xz5NNRjTMeAo3Z769B8ZjWcfE/xD+PvO+u0J9TEyok5If3Qn/CfdTvlxYICM hEJZvhuJeimWlXnc85uMtrfev3mGqCf3wmjL891k9OyoOjuaqDc0GFIf1U5G 06O7XBJGCX+ur9xRaiWjhOo48wCiXuWkrxjlNZFR5+WBzD1EPftZuJW11pGR 15ux/qg/hP9/+cXJ1cT4vstVv3owOHLznbczJCPjWHsOQaJftpesyE2UkJHZ NkoKuR0DVdvnV7cWkdGaKXkuegtRL9OmTdfyyOiWQsu3kiYM5tUe3uDOJqNv zOScUaJ/B6p0fu5/ScQbnoLsqzFoc+7WfPSCjMRMlfblEP1fEK/Wr5BI7Nd7 9RMuIfqb96OJbgQZ5czcf+dMnB8uaaeSr98no51f5j7OpmFgZci/WH2HjJTO 0E94EefPFj/bV9bBZPTV7akDbxwGk0Nj/N7nyahhVv/TUggG3rXSzclWZISZ eroVthgcd61Q+3uAjAyd+w4kHsJgH8v15sa9ZORhuW6XkwUGG3TeahUbkdFL adOyR7swGMkwifm2lYwSryv9ea9E6H/30jFOSTIKXIzmmBlkAztl6fy9omRU cK/grGIvG5hUlJOihcgoaHWNuPYPNqAu8JbL8ZBRZlH5JlItG/S7PVPQocug +pFSh2vpbOBs0jjg2SmDKFEx8scd2aCO3VQz2S6DvB1ClW/bsMGWD62vfFpl 0Kw6WT9mHxuwtbq8bzbKIF5F9W+XdNngmeLoXHyFDPq52WK7rDgb9KzwcNWl yqBD1F/bN1ezgGOeMU3VSwZdOGaSfluSBarOmvG8Pi2D9LUVu7v5WUB9/b4R zVMy6EfWW6oSiwlWn1nn6DvKoNGgq9zuQ0yQGHFym+0hGSRzm2ftaBET/PK4 bnJ7qwwSDDZx6LdigmMKZW59K9LIf+pRX48vA3D2jPXL0aWRbtwfZXsPBniT KOtiPyeNSJE7xMuOMgAHOfhE87g0+jF0C2zXZYBMcXCkolsaecLGQ6SlVUDn qzVP+CiNhGOXPu+6sgpi51o2Wt+SRsdlIa+q/Qr4Vj86DfmlUUyiwqeE33QQ nlzBEuKRRhzfkjR7GujA9PJDweNrpFEgXVNF6D0dfJDVW7+wIoWUt/W0b42g g4zz9503TEghybD8q/E76CBQQq3pYZMUUstwvdn+3yJQO+n22vWxFNrzH8Pq FXUBBNN73bnkpZC905T6iMos2M3luHUjkERLwTUbqCNDIKCPTCq2kkBVX/IU 4q83gYYkZ711l8RRjESUzvS+RmjV7WW9HCuGhr1bVz7P/oU2E+99tDNFUcMZ n+X0whkooP9i6EO6KJos89lr/mUGVoc/sDdJFUVJabGr3QMzcLu6m77dU1Hk Y3jKsF9sFkp5iXL5RYiiE0fOHj18cRZ2Dns/LrsoikrOqwWWrp+DTgNK+UZ6 oig6TFlLPWoeSmsL0hq2i6I1Aw2aMhnzsPkWPfbwVlGUJy50YbFsHhqqNPmf UhdFZ9Vz3e8NzUNll0Cju/KiSC9f8/Ks/gIc6G3/Vs8hihrrzAcmhhbgtwKJ 3meP1yLq+0gXhgYd1hwzXaFErEWtw0+qkk3osJR9VSr+zlp0ccfQDXUHOkzb 33Eo6upa4vnE7IPAXTq8OpBQeePoWnR5y89NPZ10SBZXTD0puxaFRfMXFNxY gqcub3BTSRNBuooZH3M/LMOjMg43nyWKIMlM+dHSpmV44ON/SZQYEWRxQVXz Td8y3E6a+C52VwRpZIu2WPOuQN4Xb005PURQf/hg5EPrFZjToq32d6MIGhSQ rezuW4ELmgZjGfnC6KKrk8a2mVUowFmkavpaGL1UoyZLcTCgcru6y980YbQw +1uify0DHvIn/1SJFUYnE56Mamsy4Cs0X5PiJ4wsBvIK0TkGPHb4dWqCvjB6 O1/qF/CXAS/QVHp0twsj5MtnNzzLgHcXn8j83CyM/li9OKfPwYT5T+9FSSkK I73T/Eop8kwoMOAS/JhDGLGULPVM7Ziw4orMsQe1QsgxW5DFD5mwzTQqZlOl EEpUa+Fe+MKEo9I83xqLhVCOpldUXScTSpXPmZGyhFAtO5KhMseEF7iat4WG C6HnI2fE8mksqBx7d22IlRCKmHkgsv42C957P1vn0yWIoNGuKo3NbPigTlXq cZsgcjU51HlIhw0f/7R3y/siiOLkaLH2hmyYuvIR//soiA7lew6st2bDCoNw PY80QRTxaD21/AobztVSXx87K4gSmgtyXhWy4UrHkWU/d0GUatSg5FzOhhyj YeZxToJo0PZiB7uKDUUEpgdarQRRYfzIAqOVDTdalssd2C6Izmu9PDE4xYYu HbaRBiwBdF/xPfBSxdBzJLTbkS6Anp07f6JAHcMLy2UbA6cF0NZ3dl6DWhgG yyrXFfcLoKvQ25jLAMMnzv/YmnUC6DI58sImOwxTLiodsoQCKDJN4WG5A4YZ ITZJ50oF0EfTtTe3n8SwIK1UN/u1AEoPXSjq88KwefjuJWq0ANIOSZWg3sDw x1JJpVGYAArVSdJevo1hD/+E0MlbAmgh04ej5D6GY+qHs5N8BNCMX3Xi1EMM uS8qDEgeE0D2001nzdIwFAyx1tp2WAA9Jmmku7zCUPzRnRuH9wugAzk7Lrq/ xlC5cEw2arcA8vniX7auAEP9pfe2fCoCSL2huT4KYVgnYvLrIUUAJZPvau6o wdBarcVFVlwALXqEzn2qx9DjyPh5DS4BtGqpfSO0GcPZc9cWihkkVL572Qi2 Evrc5Q4yWiChvA4T2552DB8XKobZDpHQr4K3jtW/MFT4kiPS20tCNKHsg5G9 GGYN6MV5dJDQHtPB2/p9GH4Us00LqCchkz+9702HMNy7sW8DFyKhCrdd756P YNhmdD73QSkJCYhI/P09huHoxfsVz7NJ6GnTjVXSFIY+9yVNNqaR0MqBy12L 0xiyU140FCSSUHRtymTtLIZhxVusd8eQkPEpH53AeQwlmss7aiNIKCPQJ1d8 kfBvaK+T1V0SMn+qfzyajuEG1o+/ncEk4n4K2T6zhGGhpJv3KV9iP8m1Bjor GBpunpmZOE9CVeFfrzivYthgcv2arwcJKe0ubj/LwNDOUYDNdiah1I/9rk5M DH9feXI3zJ6EtvYEU7axMPQKVxUUtyYhn2dNq/8IXniR/yhpLwm5GmnzRLAx vFFmSF5nTEI/DVT0hDGGpNYvKe92ktDafRtjfAiOHT22Tk+bhNhWs1KVBCtx DOd8Uieh10F66B/Br2V8tA/QSMheq+MRJni7JkdZuxwJFQt/CKcTDM0jgbMk CY1NTbxuJXi/s2zdiBAJ3RuPmHtIcLtv5sHLPCR0yabNdTvBJyO3f19l8aP8 wrUr5UR84xmfHO7S+dHmjjel6wn2rbDsE57mRxYV6i+uEflwtHd7PBnhR9fS qIU5RP7hE2cmlfv4UTnbbLqa0EeKi+7zupOfeN91PooI/VJl76xua+VHYcKW Y6mEvuraorc+NvCjmVqR7NPLGBq5qke1fOBHF/ecLkwi/PriXyJ5vJAf7Tl8 hkN4AcOjD02T/ubwo6OKMjdPzWF4Fjpn0ZOJeMpPyHwg6oPeMbElJI4f5Z6h bq/4h2HIlP97UhQ/yn4wG5Y2jmG8QkyV/E1+dHhCYkBuGEMVHeV9r64R8Xnb j7/7i+Gbg2+/aV4i4vl7V1utH8NPQfU9e1z5EeAIi/jUjeG/Lgb9jAk/ojT3 pud8w/CMltnDy7v5EXlb/s+nXzH8Gxq1MVCHH9lNRExdbMDw1zaVExHr+dHc Ds5vxPsorI80//RWkNAr7FlaYBGGewajjxdz86PH9R06WXkYVu7qmq9k8aGp UYtPH99gWDRyVq1lmg+NZdV8Tc3AMM34UcTcdz7Ed7Ze2CKG6LeEX6qMr3xI w+tPWVEUhglTtEquOj4UzZq8JhCOYXRS8YxkKR9qvLRe70II0b+L3Ud0k/nQ ta1RWjLnMLTPVlMOdudDeaQk/zlDov/wxbK7TnxoV/E2yb96GFoeLbOJPMqH nC90cFZoY2jKdfBeyl4+9NxzcUJNDUNtp8vjaDMf0iW/vNoviKGQWEURzyIv OrO1rW2yjQ3DPHksRaZ4Uf2cAP30FzbkqrQckR7hRd/E7GBdNRuuevdTNnTx IqFAC8c9RWw4UsN7c/9HXrRNut+ZGsuGVf6H90Xf40UnIhU4IqzY8CSjb035 DV4kfVD690dzNmRev/Rh+Bov2hI8lfPLgA133IneZOjNi1Y0dLa2bWLD15FN wpOWvIhH2COpjJe4j9L2te0n86KvW6UnL5ayoNtXY0feHB7kFyVX8VaQBTms WiW0M3jQLTI8upmDBVNaXb46PeNBj4x3f4tbYMLOjpsG76N50JmRp0Ebe5nw YP9HJferPMj2mlyB3Vsm3E7fOfjJgAeZlMnvr9rHhNzK2uevt3CjpVs1v3f5 MOC6bDlnyQZu9NKbLjHvxoDm2jxWOZ+4kZ5I8ecYOwYMM+3U6irgRhTO90NR Ogwo5HVjYXscN/KxmHc7T1+FEgWNQf8ciPk2Q+4/fVYh1dQt3PEvFxLuviNX 7bQCjc7EZu6kc6LDe64M283SoY3WrhyraU6Us6+8mfs3Hbot/3l3epQTvTAK SktvpMPQsE3Fj35xIgELW/N36XT4NauqZqySmO/VIrNiR4fHxmb6n97nRB9J 95svFy3Cy96H5FfJnIhzVsXHwXMBpp3jffRBfw1yuXjV/FrqLGTSFlQkStkw +CV/VvfgEGQPr97cpceAGnFDBb0vW2DXB5lbsw1LkJ4l90M1sBZkt+jmmoot wD2cjBsv//0F1c7X9FUSZuCd97FKNIsZwO19QlHivxlYcuubLb/rDDD1NV7D EzgDTxo95/sTOANqIgTrRx1n4I+rYY9d3s2A2tLnNnlKM3CwcF1pvuQsiFz3 8PsNy2nIQ1a94/97FsRGbtUqPzcJ38iXTzJPzwPJDMZiiiXB+37UDV+fB3Ef astva01CpUKmE4ybB/EjDhb7F/7B/+TWXtldOw8SjG87dwX9g5HbhobcaAsg ebHtwVL4BKy/3NR+pGcBpDtdHduWPQY1Y1z7dI3o4LWq/eaMiDH4ROOO+vkj dFAwsfOi5IUxeN/P43S0Nx2gALywoD0GB8WdTyfG0kFPXDhHccUojFkj9/Tz CB1IN6fK6LWMQAvjIGe/8CUQbthktntpCPYP+1g9R8vgEU9e2JuuIbgzG3If /r4MEr4+/iJfMQTjDc+HTw4tg8zjxw6zQojxP9fqhwVWQI3f3xOVAkMw20LQ utN2BbDfrfgYKQ7Cq4qnpV73r4DLSmpppmYDMOsslE79twp2Daxo5m8cgFbB cybXGauA+2XTRwWRAcjBHeNpLsAACeq+XfSOfvikC3gkr2eASp0a0ewz/XCZ ck/sqCsDCBw8dVP4QR88acBuo7cwgNns7rI3L3uhtKFN+atUJuj0G2y/d6EX RmU5xE29YYJzzIgZZ91e2Bk6SVMpY4LHfN3rxRp6YK909C7zVib4rRAQ7/uv G244sMYumoMF/Pa/9zHc9gsqXt+eIuXIAlnpGltaUAe8+rdQrAyzwHGnl0Jc 9zqgqqu+vaQAGwjLKEzo7OuAGwMSTx2RZIMr4UJZSa0/oGm1WmbYBjbQvzyh 4jnQDpdDL80VWLFBs2G2FJvrO+Re2qaz9ikbhCwrL2h9boO88oadVS/YYFtB QpvbgzbIuS2/wvE1GySsC4tukGyDgUZ/NxmUs8EpIU9S3LpWmB4j9PNjNxuM F+5btY9qhmEvN+/Pk8HAav3Oko/SzfAFPlpQpIhBUeKGq7TnTTAt6/vUs3UY XL/FNzWV+xUKtJR+VdyGgahVbf+91kb4J1ImoOsgBr5VRSkTDo3weoREH5ct Br90MhwPDzRATnLxpLgDBhnyd37Iz3+G2SO9I7/dMdAdN2oolKyHNd+DGzSC MEh20gqlPKuDpILGjuAQDDhalUxurquDlABBt7x7GDSWsCv276iFjfdsh2ui MXC6V5HXb18Nmy8ixfQ0DKqWc85b9FXBOG+ULZWJgdq5JPW3Z6rgznMcj8/l YDBjE5jhH/AJ2i5ona0vxIDP+JKW0g4I9T9r9mhVYzDI83NN09FKSC9nDfxX hwFqNPgeeO0j3Bh2o7yxAQN/O0G/jtJyGP+v+idXCwZ2lCsWd7s+wAcaX6WZ bRho/e4ka6+WQeFkEcWeHxiMer4qj9QvhQ85YoNtuzGo2SwcqX+iBOaLvPs2 3otB6qyP81hwMay5njfg1YeBQ5DxGrPKIhibPmKkNITBDqOstrnfhdBf8n7Y kREMxHnWZqTiAnjUaTDMZ4zQI6rHnGmUD70UAt56TGLwytaE/No1D16Qz23W n8aAZ6vd91zuXHiUJzVteQaDyg8qfoLmb2HhkZX1z+Yw8DOdJnvez4GeAkFO Gxcw2NJcUV71ORu+SF0yfraIwYh9uLOiQBYsk7ZrX6ZjcOzsuowfDzLgN7Vn bI8Vwv/FOfOtzWkwb39ebMAqBg030NiDtS9gsttMuw8DA04xeUrrixR4ZM3z yiNMDHxUS5zDVJMg107Rw0osQm9dmwyQ+QSWvHwd0UKw3YHJMfrGWPjnzMh5 LzYGtc5hmu/ePIRv1W2Wxgg+N2g+3ugcDi/L/rfeBmNgKXjdd6f7Hfh3ajf7 BcEn3T3WWH/3h87DWkFdBJu5v9Q8XnEaCtfvSlkmuIWDP+pdyV4g+mePJ/F8 Co4W2JWThS6D/7hNOyYJjnEfzdBfcxO8jDswUU3wGUFDC82gUBDhH/DqFsGh g3wVyDcSHJDj4F9PcNvvM+SNeo9Bvo+qaBER36kvTW2X38cBaWwANxA8W6Id +UH7KZCvKpa6R+QXkvHEgisvGTjsFZRsIPQI28vmeCWdCnB644cFQq9vlVrO +3+8AN7n4wX4CZbWcSufikkHWVVUbi5CX+ecOHKMzUswbb4ja2iZ8Fvls6+u WCbgor5eyl3CYOrJalv3tywQj73mXQm/dohoaIVEvQYxIleTGYS/1++ejFQ9 9AbYc3TNB88T9bj6aPyz4DswwVexOjSLgdDlGovzjblAucumYAdRL83vJNd0 p+cDHrVvev//P3Zu7K2mxp0CUHI3WODJOBHfOgvnm6cKwdSl849DR4l+TAoo p6m8B0Vrfb/ID2Lw7/5v33MppWBPabq42i/iPDAsKD8eUAYmXR9WBPzEoH7x 3pp9dh/AK4Ov8sXtGKS5aUSuE6gAa/KP8Y81E/0AgjN++0LAnRv9WbcKAxpj va/HBgQMv+xzba3EILFDLKE3DoE/ZY5VtuWEnpFDvV8ufQIB5s0j4kUYuDEe eGWpVYMNJfGCQRnE/h1+D5Riq0GXpLG2YyoG1gUuufFraoBpTLiuajIGhl7b F+/21IBSR5fxSzEYyP7sDnF9XAfu20QfWCTOo5YC9QRZdgOQEpHme2uPgUWU ZPmjs40gs/XuO3kbor+82L38XY0g48DX877EeZij3EZbKvwCnuKbpgNGRP1E BeR+92oCm8KcGrM3YKCo4+5W590Cpjc3aSzMs8EvatfCrRctIGuNv+fSPzaI E7UMNehsAb2zC5yDQ2wg9E83u8isFdS2bLga8JMNVtMEp9OU28CdsQvtcWVs 8EO0MPBmx3dwRWmz99MA4j5ptN/XL9YOGjXnW69fYgORu0wZk0PtgHxoB89e TzYwXzJ7z1vTDiyC2ZORdmxQ3Ns5HZn/A4hl0N70abBB/Gu2e/KDn6DdscQo u5sFtN3Tt7Hrf4J/Ma17p1pYoFlhL6cLVydwtqh9SaljAd5Hj57TAjvBd2bi HVoeC1y7pvrrtWcX2JN8o4v7DgscM91vVbanG4THSobzqrLAAmtKQe5GN1hf X3DhvQwLPCyJ+Rdc1g34XZ9bHBBkgc/qvf8ZafWAmP92rtk8xwQ7xS7V1Cv0 gkpLVnVVJRPI/o7b2bH8G5i5ARsrWyaYKp95FGDfDy4Fk/R1vRlgVd5myxaf fhDVdurNgCMD8N4obByI6genl54kBRxiAAUjP66Ddf0g7uQvRW8tBjhYw7iq qDMAlPtXxo8uroLXX3mPVYv/BejDcSevoFXg0SuvKNw8CBKX/3ZX+a+AXvbe 16mmo6Bm0DJ+jf4SsK75uC7KbRR4H/0Skb9uCVT9p/0i6PYoIL2TGjggugSy JOUTjqJRcGZWdo3REB1cUZ++J7R7DBh+CzTYEEUHvEfjXP23jYPMnk1xAj2L YMvbfrI19R/4793vwewzCyD1ytFYA+N/4DyW2NhsvQAk9L6s3eTyD8Ql6/j8 0VsAy1VFvLwp/0ChQfmVBv4FUNV5f6GcMgl0NKTjPmbOg6PcW1rWi02BM/bs w7sG5sDnhrQDUlpT4KvT87idDXNAP1qmntNqCsgYzB9cnzcHlGXXVPY+mALO KpevNl+fA+Oa7Tkx/NNAXurWLkvyHDixuHf9rfXToFRhTW41exZ8+/Ax7YL5 NCg7bmO3YWgWFJllPt13dxrsvL3uEcyfBWqC8lK66dMgdeTNsbkns+Bpy8OH qlXT4OR+0XzJG7NAKJ5HSLx/GmQt+heouc+CG46B9zGeBuxrSr4b9s+C/wGA oMCX "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl2c41Y8fhu29Mo91HMeoJElIRp8jkaJsZSQjZFSEkkopUlaSEIWojDSM yv5+sgkhKasyKltWZvx//1fPdV/38/q5rkfa+ay5KwMdHZ03PR3d/7P46YWl jQ0Z5DjDwRvUwgqVx5vr9NdlcAu+ytw0yAq1QtL3I9dkcIz3B1vZX1boCGva KbIsg3EZ8df1KGww7irppTQrg5cSpX4p+rMBWb66335YBpXz85TPSrFD6DOe 6pIGGSSbqiA1lAPMsp5G+92VQd/r3OfWbnPD0g8+hfg7MqhgrEHkP+WGdLHL dUXRMmjizc0R8p4bpqLNNxZuy2BnrvnK6WVuiPLf8Am8LoNXj8Yt3PDkgXpd G8srfjIox3VS7q0ZL+j0cYmHW8mg7N5GB79kPti6yT87WVQGA1iHr6vk8kOU bQx7r4gMLjKxsEeW8sOfzGxPcWEZTKyu+T7TxA/F6v2KD/llsPGVYf7YOD8Y 2BvkP+KUwT4HWYMIJQFwziKVpv+j4kpEuEfUWwFI1qn48GyAiiTStqtL7YLA 4ckyXZBDRdcDfRLn94jA+b2zImtZVEy9Wh3rdlgEBvm/0fSfUVFPSUDmlJMI lJa9ifuSQcXgqKr+1Nsi4Mntqr6WQsWnKUyH+npEoPF19RX9GCoqaChJPrlG gluL17i+nqOis0Cv5aduUWAJW936T4uKFjbL83vqJECg9x9FWpOKpZXju1gH JICyk46kr0HFLEv0mFyVAM1+JpZoVSraf9giwqwiCWfUeAYltlNR7oAr+8k0 Sfj8k5KsTaai8f6tIgvBZHhiYMBxmY6KMv+GTrFupYAu292xlRpptPBMGxmU pwLHmX3P9lZL49mlV8M56lTo/DTndP29NLbttE8MNqCCW5p1N3ulNEZ4g6mZ GxUi1CUaSO+k8XTMFcdHz6jQcTLrqXqONMo6F6f1bJUBl/cVjueipXE2KWOO piULYUFjXaNW0uh2jffGwyh5+ONU4MhmKY3ZOx2aex7Lg+3BoDF5c2ms/7xB 2v5OHpRIHOsuR6RxnlrMyjMoD11vtsp9M5BGphOGJtUam0F+5pRfx25pvHXE /yTX2Gaoc//NWyYqjQM2FvaZ9luBzWrYMKqfgjU+Uvcv3lSEoPoryYW9FLwd fsynN10RJveITPR0U/DvL+YCqzJF6CAfurO1i4JuvCLV9/4owsORV5/rWimo +0/sgYb9dlC+fMmZHinYZea7b4+GEhzN5L98PoOCmp7Kat/oleHZDO2VozsF f3BwlUov7oROv9u1Wa4UjMp7vZzOogKMf9t7p1wo6JV1I3G7sAo4rjizXXGk YN7Db+Jn1VRAnDHM6YENBa1IFVHx/ioQK9go0GFEQbzUa+u3oAJBu80C9ZQp mGMVIPOZXhVSVqquG89KoYCuW/CfA+qgyRBiFDslhVpLmfcb7NWhhx0EO8ek sDLvq2KRrzqQRMue2g1JoQIoy9alqEP87sIGz04p/HA3cc+XP+oQ45/Jc/ut FFoaUEwrU3dDyNSN5NogKXTb/MhKnmMPuA/uL9jLKIX7xeVmPshoQzC7E1PV BhlF1EJTHLS1IUH5irX+GhnX6LeVsVhpQ03wmxWjBTIKzlo8TbypDVRxeT2b 32RsOtSgVjmmDd8sWDv9PpCxn2zHuOOdDljXNi5k3yNjdYBR3hYnAIPsI3sE ZMl4T2Q8mu6qLpz5yS2eTSHjnQteFSvRupBAbVnTliRj7gSZoH+kC78fGqGb MBmjdvG6qpfpwq27hgdK2cjI9PuNj9aSLnwI2mflNCmJ7LKuFpX++8D0sLrv q7eS6HTWNGvxgh7YzUrmGB2UxKEI/+6+HH2oU+HYnKAvifEVI0lrFfqg7Pf3 yQ9dSbw/R8exo0MfmOZb0wM0JXETkWnQvKIPLxeuJqVtk0Sxj6MCY8YGQLc8 ED7HLYkfN0+FVc0bwJONp24pHRIYeI/Xz83CECa5lGTH7STw+19m03xTI2jz DtwWcEwCqSUjz4+fMoKC5iqVDUsJ7CmjRJGvGUFg1FFdgSMSmCKElG+vjICB K8RBiyaBY5xesdZ8xiDM2ZkUKSuBEoO7PLU/GwONPYhbcVIcq48WWzicPQJx zHV/vYPFsYOyTp8xbwpvT+kk5wWJ488ZF5tYJjPo/VCkM3FeHKOZXmdHC5qB bFxmqNdZcRSMPOj+RtUM3pJD+D0dxTGBdGemNMAMenZrK7nvE8dc087W3BUz kPEscHViEUfz7mhKGJ8FFLWmdlrFiOE+MnUi5qwVjB0oYc2KEMPoW+1nLG9Y gdT7T5pLN8WwxJJTSTHRCiIK2R4nXxXDFyMBT/kJKziRdO70dx8xnGhdMK/g tQYOZwMWDwsxZFaoK0gqsgbHhcndl0limP84RHaI6xhwSeikZGSIYtvkBb7e VVsoLXpzdFeaKDL/KArmE7AD98NKgjUpophQuXnIRsEOqoKlon/GiyKvrNen LTZ2cHGA/uqWcFHcHtaoVvLODn49q3N+6SWKVhN81oWB9vB+p6lCqaootovx NEZwOMD5Ay4l7XUkbBUPvTBf7AhuQ2z8pGoSGg95JMY0OILV1ZeeDgQJ09s7 9Hd/dQTVd8vi4+9IuEaJCS1adIQ5+dhgphwSFr/kZ3fc7QQ+LBV6uyNJKPKl 2SK8xAk8a4VbH5qQkCba0hrU6AwOek2D7l9FkHdX8w1dcVeoW2+pmewUQcdI 6pGM7a6gVNr+zK9dBD8xCIsK0FxhXbnb82qTCDLmPByRdXWFR+SR2YRyEbzL fHiR47Ur9C0zM9ali6DJs4r9k4ZuYPdaV0bWQwQfnxgjfMLd4ZhkicuPZWHk UE6hfdT0BIa+0QHxv8K4L0U18Y6FJ+QlizkenRXG/CW6g+7enkBHumzfOib8 3375CB9P9YQsfrAq7xXGiJrfdScZveAva61BUoUwiipHqC21e0H8bNtW0xBh DFzJONcecho+1o9ME2zCSGrOCupM8oGIh+X/uJiFUdC7sEA12wf2+8Zy2tIL Y0ab7dbMdz5QKqaxeX5ZCJttzVmfd/nAk9PhDlvGhfBhsceKu5AvBAnIt8S2 COGZSHJExn1fkD/hkusUJ4R3aw6YXXp8Di7/7T/JKCGEvffzKdOj/vBqjHft DkkIae5qDfRr/jD4TfeehJAQMtoOc8vyBIBh/dP3ajxC+O/mh5xElQAQTDpN PkUnhKORYenalwMgb8+/L83Dgqh68UXCbf7z0HdZwijhhSByCirdijO6ANqM dju3giCG2PCPp89ehPyVkpNeWoJ4nf5F4AxHEMjPkpJe7P7P8/F/PCYTBHwD Xes7lQUxmvp2m7dlEAxXmjdrSgviyya5jax3QRAZdMjdmFEQHxUf2hx+/RL0 zOx5dLZeAOWc+cOuKVyBiz9I7G9NBHCzwrWYAyevgdvi59rdxgIo4Z7ok3ru Gljy3LteYiiAqnfm+ulDroGSNvdaua4ARrJ53Jx6dA2GEumnq3cJ4Oy3ET3H r9fgsMlYZ7uIANLpqux9ZRIC0pVl6ZPf+fE3ufuxkeF1aExx0JDz4Uduz7c1 MidDoaGhMrTYmx9tDEyD0wNCoW6B3G7kwY9ilaTdiuGhUGXy3eOcMz/u0yvo 9skNhVJGxxTCkh/7ivoOv54JhVwvp3WbPfz48YPXaYEbYRCldbImhoEf38jP lTXk3wSTXg/TpfhNuPplQYdt322I5VzU0L27CVNE77fcsrkNbVqh0hHRm7Cx 9baWlO9tMH2YOit+cxMSe8YZY9L/4+Of4uHCf75mNTSALgJMv2t337TZhM/P dgUF1/zHQ7zOQuRNmPp9rJ3bIQrMx9/4qWTx4brP2QT+vjvAofX4Z2kmHybF WnwrW7wD1RFRR/XS+TAnadv9SvZYUFVw0bJ8wIdb3MU3PZGLBSEPPsbzkXzo 2doxRecQC19/ecaVnOXDF0vLsZztsXB8UCqfpsGH33x0v7zGu/CxQKD/URwv LikNV1Q23IOaY/uXRSN5sXal2/h47z0oXvcXSrjBi1YaFU7cU/cg41DX4Rj/ /7jT/ESGQDz4DyZVBlvzotcl80uPT8QDiZ+cfkKMF/vZxRcZVuPB2XeLi3QG D+64rGzaDAkwv0Nn9Ek+N6r6zYUEMT8ADoYi2f253DgWMP0wSeIBUDoVHIcy uHFUvFygedcDOBxI+iIdz41t+Q0ufs4P4BnO1aSe58Yyq5LSWnwAx8xy05O0 uJH5N+toREgylJ8TORZVy4U3Kl6ZbRF8CGFvZur8ujmxpfRUeuD1NIiqkxWK 6+DE2GRPUtqjNIj7ctTl9QdO/Kx2aKGvOA3Slys2Jio40VXFSiltOg3KdSI0 3DI4MURCflxqRzrM1lJzj3lxok5d9Dp9ejo4dllE6/zjQFab2myhyMegtfjG glWaA8vT1a6O3MqEOh69nlhRDtTx2CKqkJIJpvJtjmL8HHjkSUfV5ReZ4GY1 dno7Iwdyv5cJs+rIhLhC8i2Ln+wovq8nvEviCYycDS9Py2FHIxXjBtk3TyB+ 5Jichgo7+miHXnCfewoT3at/T+mx4Zp5c+PJ3Gw4pawf66vNhoZTDWUjRDYM 3YzZGqTGhjdr9c5d/ZwNPbuk7SM3s2Hios6Zn3Q5UB9t8P4FJxsevrrN5/6x HMjQvRs5+4kVDWufa8Zz5sLRHHnK5ZOsqMfDPRp67TlUBZodvBPGglXVHIfk cl/CidUf9GXBLGhB21ZzvOYlrF3xKf11gQWDUlZy8r69BPUbd7bt9WTBxGZX 5hiBV5Ab3cI9eYQFow4YkJyCX0FcxsGOQyQWNOmv/Kmo+BpcmnXtWJ4zo7ZN 9i8+3nxgoqicvtLGhEZOGRWdKwUglyPuINjIhDP2Vam+XIVgoMJs8vw9E54y ZvpKJhfCrf1flbsLmHBoV9adXN1C4PIInle9z4R23rHErduFIFDQdGnChglv /uQpOC1RBNT9LhF2Q4z4bBeH80GTN0A7FZ+15y8DhmyLJ/+deAfmyprPTaYZ UIzD824efTG4LH1/6TrCgEHFmbP+wsVw89a2t3d7GPBAjXulFq0YmrOrakYr GTDLT2FnZnwxHBv9M/AgnAEXWQQcf9NKwNfzsMQKiQEPynNkvM0qhQxvlrul WvTI+OWOqVJBBWhosbRoqdLjmZG4T9ytFdDCzsJeoUiPPZYC11jHKmDpGXMI IUmPFe/63h2kVsKRASbfmg06XPLuPMoVXwnLVoxmrdV0uKiiZZp+mQBToNs0 aESHrAkJA3b5CGsy89ICxetEj4fryuGaKmADb0Igd51o+u9pYWcVCNoO2ws+ XCc0+4/00X5WgWJsZ6LQtXVCl8cw8TRLNdivFXGTDNcJz1T7HecPVkN5Z8Cy xNd/hJff8g6Tjmq4ErbYJr+0Rpz6F8l1ZboG1n+tXNXUWCVWzckHOm3r4Yjt hl2Iwiohc2hufPhMPTxqYdRokFglzsD3FpYb9aBdxPXHin6V0Mw3CA1+Xg9B IWRH36YVwj54y3H4Vw8L4vto2fYrRK6y+pLAkwaYML1NJxyyTLSnqJkEbDRC d6lIyEzjIvEtL9I/508zKGu1tfCULRKNEkmpGZwtcKvslphi3iJRwhA+USTf Aurly4VuMYsEHXOfmdzxFrhX0fur13yR4Jbv/7L7QwscxjTjut6/xIkH7bUa ea3wvnYzKWVygYDyW5rbdNsgp233q/2b5oknZxteH9vXAYOtp6QdGecJMknV VNO8A8RaHty7tDBHpId9ILY6d0BE4+qFgu45orI1AVSud4B3FUGjZMwRP6SS BcerOkC56EDHqsocMft7rpXlwCd4m3h0ocByljjdZxm317YTqh0uaEkn/SFE FQpa4191AZOnPVng9h+iSkH90mJNF+wP0KVnDvpDuBXcMz3T0wU1kZz1I3Z/ iEWTmfdJzF+gtjjN/LXUH6LrGvFl0P4LRMvFfgo+Mk00BaZ/tOf9CvHRO5XL vCeJi8th7/1CuyHzuP/orpxRotB+VKG5sA9yZY8qPokcJSbLJYztW/ugYHzP WcEzo8SKQxID82gf4MWN+XmVUeKcaXBEOrkf+u5H0L0tHyFEU3RuMUT2g3Br uohG22+iy9j/3s1T3yBib4u+9uJPgmtqdlOK+A/wlZLP2K8/SPw55ctuLzgI moPLO/K3DhJPGpJ0FmUGgelpS4UkzyDBOO4xlrZrEJIUArr/dg0QSbyJfaIW g1CpVsOXc2qAOE2v7JUfNwgcxs5XuaN+EIp1x+9dFBwC/Rntkryn/YRq/A3d auowZGduV2rDLkLmnrIG++lfYHv8KRdjWBeRPLTiyXr9F3CLSI6rHewiGnfF 7RdN/AXnIriyU9o/E16nW9UC3/8CLd9xaffBTmLN/pOInMhvaN2bI7TO+ImY WqYcMar7DWOFB1eOxrQSpKGwj6aqo8Cq66MspU4QF0aE5t9ZTMAw8xf6FutK 4ozcy+pA7wnAJp1PQRcqCIptiqpJ2AQEWnKe7youI6p5KAY67yZgxP1ZWbRW MVEbSNWhSExCU0yfwRotn9DVDLXnH5sE72GDsSaHCKK+hHF6Z+I0TIR/C/BO LYakrUHvzj+agZ69BWW2F0vg/c+MZ9F5M1C/EEZ/0LIUckeGr+eXzUCGy/Zo OY5ySB1j20HpmQEbuPzkWwABRyZUYpJFZsFlNcojW74ajDteHeK+PwttBQpJ YuuNIGS23KmVPAef+QqDrnZ9AocVwxj3tgU413T04MCmTsgrJDxfDi8AT+ia iN7hTnj9WI/CtrwABov6b1hqOiE2KNF+XvovvO3/Oh2d/xlO/6NjL/D/Cwm5 6ycfRn0Bva7nve2Si3Bs/yGTkn29kM3Zpi57dQmmyv7cvXh0AKzLTxy0vL4K KxLmSkp+A+CTerlrR/IqsAQXNg3GDEBNl58gpWAVJGnnGY3rBqBopH5s7+Aq GNes+pPVBmHF3mT1gt4a5DazHKvmHwIRnMz/zf4P3PolyNytw2AJtvO0rHU4 tze49P3oMDC7Q0LX+3UITvtufZ75J1i4eRrc6FuH+04Zd75r/wTX6FRpKv8G 1PzcTF/w/CdMmj5bvBC8AdQplWHr27+A/VvsetN2Olr/umFu+v4RMPitsCIs SE8zramQi3EZgY6m2Yh0WXpa1W2Vx5euj4Dhly1Smmr0tGxBiSRrHIGmh/N3 HlnT084pTIdxaY+CuOa44eZkehqL9X2nwF1jsCjttmwhy0BTejFAMqVOgNF2 /ruh+oy09HPW8Tq6E8A0lle7/RgjTUDjA+82xwnQkqdwjXoy0paqilhYUieg SSlVMCGWkVb1NXy+THQS2h0FGJr7GGnWTEptmzdNQaOq2tLbQCZaQ2OGkZDy FDxxDM+8HcVE07ojUs9gMgVDzOXXzqYz0Shi9JX9UVNAf2O3eEADE21sR+fz e2zTYOhu3e8hykyzXzDcHLJ5GiIukGW/bmemfSytyDhjMA3clud32e5jphXp Zz04GPpf3/nW0gMvZpo8p4TQ7sxpWL3S1Hn0GjPtQVtsrGzVNAwdz6vbep+Z xpXAzMU/MA1fS9IHeHOZacF2QeEbG9PwnLx9DwfBTPsfhtnYlw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-10, 1}, {-1.9999995896096345`, 2.718281218232581}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.472217255859375*^9}] }, Open ]], Cell["Infinitas raices negativas. Una raiz positiva.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", "x", "]"}]}], "-", RowBox[{"Exp", "[", "x", "]"}]}]}], ";"}]], "Input"], Cell["a) Con el m\[EAcute]todo de Newton:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0"}], ";", RowBox[{"x1", "=", "0"}], ";", RowBox[{"k", "=", "1"}]}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"f", "[", "x1", "]"}], "]"}], ">", ".001"}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"N", "[", RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}], "]"}]}], ";", RowBox[{"Print", "[", "x1", "]"}], ";", RowBox[{"x0", "=", "x1"}]}]}], "]"}]], "Input"], Cell[BoxData["1.`"], "Print", CellChangeTimes->{3.472217256015625*^9}], Cell[BoxData["0.627904125793578`"], "Print", CellChangeTimes->{3.472217256015625*^9}], Cell[BoxData["0.544206631445441`"], "Print", CellChangeTimes->{3.472217256015625*^9}], Cell[BoxData["0.5397973256980853`"], "Print", CellChangeTimes->{3.472217256015625*^9}] }, Open ]], Cell["\<\ b) Con el m\[EAcute]todo de la secante:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0"}], ";", RowBox[{"x1", "=", "1"}], ";", RowBox[{"x2", "=", "x1"}], ";", RowBox[{"k", "=", "1"}]}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"f", "[", "x2", "]"}], "]"}], ">", ".001"}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x2", "=", RowBox[{"N", "[", RowBox[{"x1", "-", RowBox[{ RowBox[{"f", "[", "x1", "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x1", "]"}], "-", RowBox[{"f", "[", "x0", "]"}]}], ")"}]}]}]}], "]"}]}], ";", RowBox[{"Print", "[", "x2", "]"}], ";", RowBox[{"x0", "=", "x1"}], ";", RowBox[{"x1", "=", "x2"}]}]}], "]"}]], "Input"], Cell[BoxData["0.379121445816054`"], "Print", CellChangeTimes->{3.47221725609375*^9}], Cell[BoxData["0.500260421285745`"], "Print", CellChangeTimes->{3.47221725609375*^9}], Cell[BoxData["0.5442561500236549`"], "Print", CellChangeTimes->{3.47221725609375*^9}], Cell[BoxData["0.539672449392395`"], "Print", CellChangeTimes->{3.47221725609375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 9\.ba.-\n", "Resolver con un error relativo inferior al 0.05% la ec. f(x) = ", Cell[BoxData[ FormBox[ SuperscriptBox["e", RowBox[{"-", "x"}]], TraditionalForm]]], "-x = 0, mediante el m\[EAcute]todo de la secante tomando como valores \ iniciales ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["x", RowBox[{"-", "1"}]], "=", "0"}], ",", " ", RowBox[{ RowBox[{"y", " ", SubscriptBox["x", "0"]}], "=", " ", "1"}], ","}], TraditionalForm]]], " y sabiendo que la soluci\[OAcute]n exacta es 0.56714329. Trabajar con \ redondeo a seis cifras significativas." }], "Subsection", CellChangeTimes->{ 3.42813488321875*^9, {3.459754469171875*^9, 3.459754470796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "-", "x"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0"}], ";", RowBox[{"x1", "=", "1"}], ";", RowBox[{"erel", "=", "1"}], ";", RowBox[{"r", "=", ".56714329"}], ";", RowBox[{"k", "=", "1"}]}], ",", RowBox[{"erel", ">", ".05"}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"x2", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x1", "-", RowBox[{ RowBox[{"f", "[", "x1", "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x1", "]"}], "-", RowBox[{"f", "[", "x0", "]"}]}], ")"}]}]}]}], ",", "6"}], "]"}]}], ";", RowBox[{"erel", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"r", "-", "x2"}], "]"}], "/", "r"}], "*", "100"}], ",", "6"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{"x2", ",", "\"\< \>\"", ",", "erel"}], "]"}], ";", RowBox[{"x0", "=", "x1"}], ";", RowBox[{"x1", "=", "x2"}]}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.6126998367802820395`5.342064907198129", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "8.0326343595252787111`6."}], SequenceForm[0.6127`5.342064907198129, " ", 8.032634`6.], Editable->False]], "Print", CellChangeTimes->{3.472217256234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.5638383891610742252`6.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.5827276628673084824`6."}], SequenceForm[0.5638384`6., " ", 0.5827277`6.], Editable->False]], "Print", CellChangeTimes->{3.472217256234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.567170358419744645`6.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0047727655818068327`6."}], SequenceForm[0.5671704`6., " ", 0.004772766`6.], Editable->False]], "Print", CellChangeTimes->{3.472217256234375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 10\.ba.-\n", "Sabiendo que ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["e", "x"], " ", "=", RowBox[{"1", "+", "x", "+", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"2", "!"}]]}]}], TraditionalForm]]], "+", Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox["x", "3"], RowBox[{"3", "!"}]], TraditionalForm]]], "+.... . Encontrar el polinomio que nos da, para x=5, una valor aproximado \ de ", Cell[BoxData[ FormBox[ SuperscriptBox["e", RowBox[{"5", " "}]], TraditionalForm]]], "con un error menor que", Cell[BoxData[ FormBox[ RowBox[{" ", SuperscriptBox["10", RowBox[{"-", "4"}]]}], TraditionalForm]]], ". Utilizar como criterio de parada que el valor absoluto del sumando a a\ \[NTilde]adir sea menor que ", Cell[BoxData[ FormBox[ SuperscriptBox["10", RowBox[{"-", "4"}]], TraditionalForm]]], ". El n\.ba de operaciones se puede optimizar teniendo en cuenta que el \ nuevo sumando que hay que a\[NTilde]adir es igual al \[UAcute]ltimo que se ha \ a\[NTilde]adido dividido por n. Por ejemplo : ", Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox["x", "3"], RowBox[{"3", "!"}]], TraditionalForm]]], " = (", Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox["x", "2"], RowBox[{"2", "!"}]], TraditionalForm]]], ")*", Cell[BoxData[ FormBox[ FractionBox["x", "3"], TraditionalForm]]], ", es decir , term = term/n y a continuaci\[OAcute]n : suma = suma +term" }], "Subsection", CellChangeTimes->{ 3.4280497268150992`*^9, {3.42813488653125*^9, 3.42813488765625*^9}, { 3.45975448325*^9, 3.45975448496875*^9}}], Cell[TextData[{ "1\.aa Forma: Definiendo el polinomio en s(x), el t\[EAcute]rmino a a\ \[NTilde]adir en funci\[OAcute]n de x como ", Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox["x", "n"], RowBox[{"n", "!"}]], TraditionalForm]]], ", y evaluando este t\[EAcute]rmino en 5. para comparar con ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["10", RowBox[{"-", "4"}]], "."}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.459754495765625*^9, 3.4597544968125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"term", "[", "x_", "]"}], "=", "1"}], ";", RowBox[{"n", "=", "1"}]}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"5.", "^", "n"}], "/", RowBox[{"n", "!"}]}], "]"}], ">", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", RowBox[{"n", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"term", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"x", "^", "n"}], "/", RowBox[{"n", "!"}]}]}], ";", RowBox[{ RowBox[{"s", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"s", "[", "x", "]"}], "+", RowBox[{"term", "[", "x", "]"}]}]}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "n", ",", "\"\< \>\"", ",", RowBox[{"s", "[", "x", "]"}], ",", "\"\< \>\"", ",", RowBox[{"s", "[", "5.", "]"}], ",", "\"\< \>\"", ",", RowBox[{"term", "[", "5.", "]"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Set", "::", "\<\"write\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Integer\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(9870[x_]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.472217256375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Set", "::", "\<\"write\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Integer\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(9870[x_]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.472217256375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5.`"}], SequenceForm["n= ", 1, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 5.], Editable->False]], "Print", CellChangeTimes->{3.472217256375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Set", "::", "\<\"write\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Integer\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(9870[x_]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.472217256390625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\ \", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Set :: \\\"write\\\"\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \ during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4722172565*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "12.5`"}], SequenceForm["n= ", 2, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 12.5], Editable->False]], "Print", CellChangeTimes->{3.472217256515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "20.833333333333332`"}], SequenceForm["n= ", 3, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 20.833333333333332`], Editable->False]], "Print", CellChangeTimes->{3.472217256515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "26.041666666666664`"}], SequenceForm["n= ", 4, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 26.041666666666664`], Editable->False]], "Print", CellChangeTimes->{3.472217256515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "26.041666666666668`"}], SequenceForm["n= ", 5, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 26.041666666666668`], Editable->False]], "Print", CellChangeTimes->{3.472217256515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "21.70138888888889`"}], SequenceForm["n= ", 6, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 21.70138888888889], Editable->False]], "Print", CellChangeTimes->{3.4722172565625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "15.500992063492063`"}], SequenceForm["n= ", 7, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 15.500992063492063`], Editable->False]], "Print", CellChangeTimes->{3.47221725659375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9.68812003968254`"}], SequenceForm["n= ", 8, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 9.68812003968254], Editable->False]], "Print", CellChangeTimes->{3.472217256640625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5.3822889109347445`"}], SequenceForm["n= ", 9, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 5.3822889109347445`], Editable->False]], "Print", CellChangeTimes->{3.472217256671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2.691144455467372`"}], SequenceForm["n= ", 10, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 2.691144455467372], Editable->False]], "Print", CellChangeTimes->{3.4722172566875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2232474797578965`"}], SequenceForm["n= ", 11, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 1.2232474797578965`], Editable->False]], "Print", CellChangeTimes->{3.47221725671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.5096864498991236`"}], SequenceForm["n= ", 12, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.5096864498991236], Editable->False]], "Print", CellChangeTimes->{3.472217256734375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.19603324996120133`"}], SequenceForm["n= ", 13, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.19603324996120133`], Editable->False]], "Print", CellChangeTimes->{3.472217256765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.07001187498614334`"}], SequenceForm["n= ", 14, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.07001187498614334], Editable->False]], "Print", CellChangeTimes->{3.47221725678125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.02333729166204778`"}], SequenceForm["n= ", 15, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.02333729166204778], Editable->False]], "Print", CellChangeTimes->{3.472217256796875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.007292903644389931`"}], SequenceForm["n= ", 16, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.007292903644389931], Editable->False]], "Print", CellChangeTimes->{3.472217256828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0021449716601146854`"}], SequenceForm["n= ", 17, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.0021449716601146854`], Editable->False]], "Print", CellChangeTimes->{3.47221725684375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0005958254611429682`"}], SequenceForm["n= ", 18, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.0005958254611429682], Editable->False]], "Print", CellChangeTimes->{3.472217256859375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00015679617398499162`"}], SequenceForm["n= ", 19, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.00015679617398499162`], Editable->False]], "Print", CellChangeTimes->{3.472217256890625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"5.", "^", "19"}], "/", RowBox[{"19", "!"}]}]], "Input"], Cell[BoxData["0.00015679617398499162`"], "Output", CellChangeTimes->{3.472217256921875*^9}] }, Open ]], Cell[TextData[{ "2\.aa Forma: Definiendo, igual que antes, el polinomio en s(x), el t\ \[EAcute]rmino a a\[NTilde]adir en funci\[OAcute]n de x como ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"el", " ", "anterior"}], ",", " ", RowBox[{ FractionBox[ SuperscriptBox["x", RowBox[{"n", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}]], ".", FractionBox["x", "n"]}]}], TraditionalForm]]], ", es decir, term[x_]=term[x].", Cell[BoxData[ FormBox[ FractionBox["x", "n"], TraditionalForm]]], ", y evaluando este t\[EAcute]rmino en 5. para comparar con ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["10", RowBox[{"-", "4"}]], "."}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.45975450184375*^9, 3.459754502796875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"term", "[", "x_", "]"}], "=", "1"}], ";", RowBox[{"n", "=", "1"}]}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"term", "[", "5.", "]"}], "*", RowBox[{"5", "/", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}]}], "]"}], ">", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", RowBox[{"n", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"term", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"term", "[", "x", "]"}], "*", RowBox[{"x", "/", "n"}]}]}], ";", RowBox[{ RowBox[{"s", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"s", "[", "x", "]"}], "+", RowBox[{"term", "[", "x", "]"}]}]}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "n", ",", "\"\< \>\"", ",", RowBox[{"s", "[", "x", "]"}], ",", "\"\< \>\"", ",", RowBox[{"s", "[", "5.", "]"}], ",", "\"\< \>\"", ",", RowBox[{"term", "[", "5.", "]"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Set", "::", "\<\"write\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Integer\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(9870[x_]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.472217256953125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Set", "::", "\<\"write\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Integer\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(9870[x_]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.472217256984375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5.`"}], SequenceForm["n= ", 1, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 5.], Editable->False]], "Print", CellChangeTimes->{3.472217257015625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Set", "::", "\<\"write\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Integer\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(9870[x_]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.47221725703125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\ \", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Set :: \\\"write\\\"\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \ during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4722172570625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "12.5`"}], SequenceForm["n= ", 2, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 12.5], Editable->False]], "Print", CellChangeTimes->{3.47221725709375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "20.833333333333332`"}], SequenceForm["n= ", 3, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 20.833333333333332`], Editable->False]], "Print", CellChangeTimes->{3.472217257109375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "26.041666666666664`"}], SequenceForm["n= ", 4, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 26.041666666666664`], Editable->False]], "Print", CellChangeTimes->{3.472217257140625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "26.041666666666668`"}], SequenceForm["n= ", 5, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 26.041666666666668`], Editable->False]], "Print", CellChangeTimes->{3.47221725715625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "21.70138888888889`"}], SequenceForm["n= ", 6, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 21.70138888888889], Editable->False]], "Print", CellChangeTimes->{3.4722172571875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "15.500992063492063`"}], SequenceForm["n= ", 7, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 15.500992063492063`], Editable->False]], "Print", CellChangeTimes->{3.47221725721875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9.68812003968254`"}], SequenceForm["n= ", 8, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 9.68812003968254], Editable->False]], "Print", CellChangeTimes->{3.472217257234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5.3822889109347445`"}], SequenceForm["n= ", 9, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 5.3822889109347445`], Editable->False]], "Print", CellChangeTimes->{3.472217257265625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2.691144455467372`"}], SequenceForm["n= ", 10, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 2.691144455467372], Editable->False]], "Print", CellChangeTimes->{3.47221725728125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2232474797578965`"}], SequenceForm["n= ", 11, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 1.2232474797578965`], Editable->False]], "Print", CellChangeTimes->{3.4722172573125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.5096864498991236`"}], SequenceForm["n= ", 12, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.5096864498991236], Editable->False]], "Print", CellChangeTimes->{3.472217257328125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.19603324996120133`"}], SequenceForm["n= ", 13, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.19603324996120133`], Editable->False]], "Print", CellChangeTimes->{3.47221725734375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.07001187498614334`"}], SequenceForm["n= ", 14, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.07001187498614334], Editable->False]], "Print", CellChangeTimes->{3.472217257375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.02333729166204778`"}], SequenceForm["n= ", 15, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.02333729166204778], Editable->False]], "Print", CellChangeTimes->{3.472217257390625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.007292903644389931`"}], SequenceForm["n= ", 16, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.007292903644389931], Editable->False]], "Print", CellChangeTimes->{3.472217257421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0021449716601146854`"}], SequenceForm["n= ", 17, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.0021449716601146854`], Editable->False]], "Print", CellChangeTimes->{3.4722172574375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.0005958254611429682`"}], SequenceForm["n= ", 18, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.0005958254611429682], Editable->False]], "Print", CellChangeTimes->{3.472217257453125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n= \"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "x", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"9870", "[", "5.`", "]"}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.00015679617398499162`"}], SequenceForm["n= ", 19, " ", 9870[$CellContext`x], " ", 9870[5.], " ", 0.00015679617398499162`], Editable->False]], "Print", CellChangeTimes->{3.472217257484375*^9}] }, Open ]], Cell[TextData[{ "3\.aa Forma: Sin definir el polinomio como funci\[OAcute]n de x, sino \ calculando directamente el valor n\[UAcute]merico en 5. y lo mismo para el t\ \[EAcute]rmino a a\[NTilde]adir calculando el valor num\[EAcute]rico de la \ forma \[OAcute]ptima, es decir como term=term*5/n, para comparar con ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["10", RowBox[{"-", "4"}]], "."}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.459754508703125*^9, 3.459754509703125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"term", "=", "1"}], ";", RowBox[{"suma", "=", "1."}], ";", RowBox[{"n", "=", "1"}]}], ",", RowBox[{"term", ">", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", RowBox[{"n", "++"}], ",", RowBox[{ RowBox[{"term", "=", RowBox[{"term", "*", RowBox[{"5.", "/", "n"}]}]}], ";", RowBox[{"Print", "[", "term", "]"}], ";", RowBox[{"suma", "=", RowBox[{"suma", "+", "term"}]}], ";", RowBox[{"Print", "[", "suma", "]"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData["5.`"], "Print", CellChangeTimes->{3.47221725753125*^9}], Cell[BoxData["6.`"], "Print", CellChangeTimes->{3.4722172575625*^9}], Cell[BoxData["12.5`"], "Print", CellChangeTimes->{3.472217257578125*^9}], Cell[BoxData["18.5`"], "Print", CellChangeTimes->{3.472217257609375*^9}], Cell[BoxData["20.833333333333332`"], "Print", CellChangeTimes->{3.472217257625*^9}], Cell[BoxData["39.33333333333333`"], "Print", CellChangeTimes->{3.472217257640625*^9}], Cell[BoxData["26.041666666666664`"], "Print", CellChangeTimes->{3.47221725765625*^9}], Cell[BoxData["65.375`"], "Print", CellChangeTimes->{3.4722172576875*^9}], Cell[BoxData["26.041666666666664`"], "Print", CellChangeTimes->{3.472217257703125*^9}], Cell[BoxData["91.41666666666666`"], "Print", CellChangeTimes->{3.47221725771875*^9}], Cell[BoxData["21.701388888888886`"], "Print", CellChangeTimes->{3.47221725775*^9}], Cell[BoxData["113.11805555555554`"], "Print", CellChangeTimes->{3.472217257765625*^9}], Cell[BoxData["15.50099206349206`"], "Print", CellChangeTimes->{3.47221725778125*^9}], Cell[BoxData["128.6190476190476`"], "Print", CellChangeTimes->{3.472217257796875*^9}], Cell[BoxData["9.688120039682538`"], "Print", CellChangeTimes->{3.4722172578125*^9}], Cell[BoxData["138.30716765873012`"], "Print", CellChangeTimes->{3.47221725784375*^9}], Cell[BoxData["5.382288910934744`"], "Print", CellChangeTimes->{3.472217257859375*^9}], Cell[BoxData["143.68945656966486`"], "Print", CellChangeTimes->{3.472217257875*^9}], Cell[BoxData["2.691144455467372`"], "Print", CellChangeTimes->{3.472217257890625*^9}], Cell[BoxData["146.38060102513222`"], "Print", CellChangeTimes->{3.47221725790625*^9}], Cell[BoxData["1.2232474797578963`"], "Print", CellChangeTimes->{3.472217257921875*^9}], Cell[BoxData["147.60384850489012`"], "Print", CellChangeTimes->{3.4722172579375*^9}], Cell[BoxData["0.5096864498991234`"], "Print", CellChangeTimes->{3.47221725796875*^9}], Cell[BoxData["148.11353495478926`"], "Print", CellChangeTimes->{3.472217257984375*^9}], Cell[BoxData["0.1960332499612013`"], "Print", CellChangeTimes->{3.472217258*^9}], Cell[BoxData["148.30956820475046`"], "Print", CellChangeTimes->{3.472217258015625*^9}], Cell[BoxData["0.07001187498614331`"], "Print", CellChangeTimes->{3.47221725803125*^9}], Cell[BoxData["148.3795800797366`"], "Print", CellChangeTimes->{3.472217258046875*^9}], Cell[BoxData["0.023337291662047767`"], "Print", CellChangeTimes->{3.4722172580625*^9}], Cell[BoxData["148.40291737139864`"], "Print", CellChangeTimes->{3.47221725809375*^9}], Cell[BoxData["0.007292903644389927`"], "Print", CellChangeTimes->{3.472217258109375*^9}], Cell[BoxData["148.41021027504303`"], "Print", CellChangeTimes->{3.472217258125*^9}], Cell[BoxData["0.0021449716601146846`"], "Print", CellChangeTimes->{3.472217258140625*^9}], Cell[BoxData["148.41235524670313`"], "Print", CellChangeTimes->{3.47221725815625*^9}], Cell[BoxData["0.0005958254611429679`"], "Print", CellChangeTimes->{3.472217258171875*^9}], Cell[BoxData["148.41295107216428`"], "Print", CellChangeTimes->{3.472217258203125*^9}], Cell[BoxData["0.00015679617398499154`"], "Print", CellChangeTimes->{3.47221725821875*^9}], Cell[BoxData["148.41310786833827`"], "Print", CellChangeTimes->{3.472217258234375*^9}], Cell[BoxData["0.000039199043496247886`"], "Print", CellChangeTimes->{3.47221725825*^9}], Cell[BoxData["148.41314706738177`"], "Print", CellChangeTimes->{3.472217258265625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 11\.ba.-\n", StyleBox[" La sucesi\[OAcute]n ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ RowBox[{"{", SubscriptBox["a", "n"]}], TraditionalForm]]], "}", StyleBox[" de los n\[UAcute]meros de Fibonacci verifica que ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["a", "n"], TraditionalForm]], FontColor->GrayLevel[0]], StyleBox[" = ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["a", RowBox[{"n", "-", "1"}]], TraditionalForm]], FontColor->GrayLevel[0]], StyleBox["+", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["a", RowBox[{"n", "-", "2"}]], TraditionalForm]], FontColor->GrayLevel[0]], StyleBox[", siendo a0 = a1 = 1. Crear una lista que contenga a los 20 \ primeros t\[EAcute]rminos de la sucesi\[OAcute]n. Calcular los \ t\[EAcute]rminos de la sucesi\[OAcute]n que sean menores que 1000.\nCon el \ comando StringForm conseguimos que dentro de un bucle se imprima el valor del \ sub\[IAcute]ndice.(", FontColor->GrayLevel[0]], Cell[BoxData[ RowBox[{"Print", "[", RowBox[{"StringForm", "[", RowBox[{"\<\"\\!\\(x\\_``\\) = ``, \\!\\(y\\_``\\) = ``\"\>", ",", "1", ",", RowBox[{"a", "^", "2"}], ",", "1", ",", RowBox[{"b", "^", "2"}]}], "]"}], "]"}]]], StyleBox[")", FontColor->GrayLevel[0]] }], "Subsection", CellChangeTimes->{{3.4280497363307242`*^9, 3.4280497370182242`*^9}, 3.428134839171875*^9, 3.428134892953125*^9, {3.45975451903125*^9, 3.459754520171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"l20", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "20", "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"l20", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"l20", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{3.428134839171875*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"l20", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"l20", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "+", RowBox[{"l20", "[", RowBox[{"[", RowBox[{"i", "-", "2"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "3", ",", "20"}], "}"}]}], "]"}], ";", RowBox[{"Print", "[", "l20", "]"}]}]], "Input", CellChangeTimes->{3.428134839171875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "13", ",", "21", ",", "34", ",", "55", ",", "89", ",", "144", ",", "233", ",", "377", ",", "610", ",", "987", ",", "1597", ",", "2584", ",", "4181", ",", "6765"}], "}"}]], "Print", CellChangeTimes->{3.472217258296875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "0"], "=", "1"}], ";", RowBox[{ SubscriptBox["a", "1"], "=", "1"}], ";", RowBox[{"i", "=", "2"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"i", "-", "1"}]], "+", SubscriptBox["a", RowBox[{"i", "-", "2"}]]}], "<", "1000"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "=", RowBox[{ SubscriptBox["a", RowBox[{"i", "-", "1"}]], "+", SubscriptBox["a", RowBox[{"i", "-", "2"}]]}]}], ";", RowBox[{"Print", "[", RowBox[{"StringForm", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``\>\"", ",", "i", ",", SubscriptBox["a", "i"]}], "]"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{3.428134839171875*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(2\\)\\)]\\)= \ \\!\\(2\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 2, 2], Editable->False]], "Print", CellChangeTimes->{3.4722172583125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(3\\)\\)]\\)= \ \\!\\(3\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 3, 3], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(4\\)\\)]\\)= \ \\!\\(5\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 4, 5], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(5\\)\\)]\\)= \ \\!\\(8\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 5, 8], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(6\\)\\)]\\)= \ \\!\\(13\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 6, 13], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(7\\)\\)]\\)= \ \\!\\(21\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 7, 21], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(8\\)\\)]\\)= \ \\!\\(34\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 8, 34], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(9\\)\\)]\\)= \ \\!\\(55\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 9, 55], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(10\\)\\)]\\)= \ \\!\\(89\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 10, 89], Editable->False]], "Print", CellChangeTimes->{3.472217258328125*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(11\\)\\)]\\)= \ \\!\\(144\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 11, 144], Editable->False]], "Print", CellChangeTimes->{3.47221725834375*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(12\\)\\)]\\)= \ \\!\\(233\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 12, 233], Editable->False]], "Print", CellChangeTimes->{3.47221725834375*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(13\\)\\)]\\)= \ \\!\\(377\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 13, 377], Editable->False]], "Print", CellChangeTimes->{3.47221725834375*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(14\\)\\)]\\)= \ \\!\\(610\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 14, 610], Editable->False]], "Print", CellChangeTimes->{3.47221725834375*^9}], Cell[BoxData[ InterpretationBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), \\(\\!\\(15\\)\\)]\\)= \ \\!\\(987\\)\"\>", StringForm["\!\(\*SubscriptBox[\(a\), \(``\)]\)= ``", 15, 987], Editable->False]], "Print", CellChangeTimes->{3.47221725834375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"Fibonacci", "[", "i", "]"}], "<", "1000"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Print", "[", RowBox[{"Fibonacci", "[", "i", "]"}], "]"}]}], "]"}], ";", RowBox[{"n", "=", RowBox[{"i", "-", "1"}]}], ";", RowBox[{"lista", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Fibonacci", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{3.428134839171875*^9}], Cell[BoxData["1"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["1"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["2"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["3"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["5"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["8"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["13"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["21"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["34"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["55"], "Print", CellChangeTimes->{3.472217258375*^9}], Cell[BoxData["89"], "Print", CellChangeTimes->{3.472217258390625*^9}], Cell[BoxData["144"], "Print", CellChangeTimes->{3.472217258390625*^9}], Cell[BoxData["233"], "Print", CellChangeTimes->{3.472217258390625*^9}], Cell[BoxData["377"], "Print", CellChangeTimes->{3.472217258390625*^9}], Cell[BoxData["610"], "Print", CellChangeTimes->{3.472217258390625*^9}], Cell[BoxData["987"], "Print", CellChangeTimes->{3.472217258390625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "13", ",", "21", ",", "34", ",", "55", ",", "89", ",", "144", ",", "233", ",", "377", ",", "610", ",", "987"}], "}"}]], "Output", CellChangeTimes->{3.472217258390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"Fibonacci", "[", "i", "]"}], "<", "1000"}], ",", RowBox[{"i", "++"}]}], "]"}], ";", RowBox[{"n", "=", RowBox[{"i", "-", "1"}]}], ";", RowBox[{"lista", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Fibonacci", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{3.428134839171875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "13", ",", "21", ",", "34", ",", "55", ",", "89", ",", "144", ",", "233", ",", "377", ",", "610", ",", "987"}], "}"}]], "Output", CellChangeTimes->{3.472217258421875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 11\.ba.-\n", "Los polinomios de Laguerre son una familia de polinomios que verifican la \ ecuaci\[OAcute]n diferencial de Laguerre. Entre sus propiedades m\[AAcute]s \ importantes se puede citar que son ortogonales en [-1,1] , esto es,\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ SubscriptBox["L", "n"], "(", "x", ")"}], RowBox[{ SubscriptBox["L", "m"], "(", "x", ")"}], SuperscriptBox["e", RowBox[{"-", "x"}]], RowBox[{"\[DifferentialD]", "x"}]}]}], "=", RowBox[{ RowBox[{"(", RowBox[{"n", "!"}], ")"}], SubscriptBox["\[Delta]", "nm"]}]}], TraditionalForm]]], " siendo ", Cell[BoxData[ FormBox[ SubscriptBox["\[Delta]", "nm"], TraditionalForm]]], " la Delta de Kronecker.\nOtra propiedad interesante es que verifican la f\ \[OAcute]rmula de recursi\[OAcute]n:\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"n", "+", "1"}]], "(", "x", ")"}], " ", "="}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "n"}], "+", "1", "-", "x"}], ")"}], RowBox[{ SubscriptBox["L", "n"], "(", "x", ")"}]}]}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["n", "2"]}], RowBox[{ SubscriptBox["L", RowBox[{"n", "-", "1"}]], "(", "x", ")"}]}], ")"}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], TraditionalForm]]], ", con ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["L", "0"], "(", "x", ")"}], "=", RowBox[{ RowBox[{"1", " ", "y", " ", RowBox[{ SubscriptBox["L", "1"], "(", "x", ")"}]}], "=", RowBox[{"1", "-", RowBox[{"x", "."}]}]}]}], TraditionalForm]]], "\n", StyleBox["Mathematica", FontSlant->"Italic"], " dispone del comando LaguerreL que permite obtener estos polinomios. \ Obtener en la ayuda informaci\[OAcute]n sobre este comando.\nObtener los 12 \ primeros polinomios mediante la f\[OAcute]rmula de recursi\[OAcute]n, \ utilizando el comando Do. \nRepetir con el comando de ", StyleBox["Mathematica", FontSlant->"Italic"], " y comprobar que los polinomios obtenidos anteriormente son correctos.\n\ Representarlos en el intervalo [0,10], en tres l\[IAcute]neas de cuatro gr\ \[AAcute]ficos.\nDefinir una funci\[OAcute]n de dos variables, m y n, que sea \ igual a ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ SubscriptBox["L", "n"], "(", "x", ")"}], RowBox[{ SubscriptBox["L", "m"], "(", "x", ")"}], SuperscriptBox["e", RowBox[{"-", "x"}]], RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]], " para comprobar la ortogonalidad." }], "Subsection", CellChangeTimes->{{3.4280497363307242`*^9, 3.4280497370182242`*^9}, 3.428134839171875*^9, 3.428134892953125*^9, 3.43619967125*^9, 3.43624980384375*^9, {3.459754548953125*^9, 3.459754550359375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["l", "0"], "[", "x_", "]"}], "=", "1"}], ";", RowBox[{ RowBox[{ SubscriptBox["l", "1"], "[", "x_", "]"}], "=", RowBox[{"1", "-", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["l", RowBox[{"i", "+", "1"}]], "[", "x_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "i"}], "+", "1", "-", "x"}], ")"}], "*", RowBox[{ SubscriptBox["l", "i"], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"i", "^", "2"}], "*", RowBox[{ SubscriptBox["l", RowBox[{"i", "-", "1"}]], "[", "x", "]"}]}]}]}], ";", RowBox[{"Print", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{ SubscriptBox["l", RowBox[{"i", "+", "1"}]], "[", "x", "]"}], "/", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], "!"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4361999835*^9, {3.4367994425*^9, 3.436799614171875*^9}, { 3.436799802421875*^9, 3.4367998181875*^9}, {3.436799927921875*^9, 3.4367999374375*^9}, {3.436800048484375*^9, 3.436800059953125*^9}}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", FractionBox[ SuperscriptBox["x", "2"], "2"]}]], "Print", CellChangeTimes->{3.4722172584375*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"3", " ", "x"}], "+", FractionBox[ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "2"], "-", FractionBox[ SuperscriptBox["x", "3"], "6"]}]], "Print", CellChangeTimes->{3.4722172584375*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"4", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "3"], "+", FractionBox[ SuperscriptBox["x", "4"], "24"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"5", " ", "x"}], "+", RowBox[{"5", " ", SuperscriptBox["x", "2"]}], "-", FractionBox[ RowBox[{"5", " ", SuperscriptBox["x", "3"]}], "3"], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "24"], "-", FractionBox[ SuperscriptBox["x", "5"], "120"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"6", " ", "x"}], "+", FractionBox[ RowBox[{"15", " ", SuperscriptBox["x", "2"]}], "2"], "-", FractionBox[ RowBox[{"10", " ", SuperscriptBox["x", "3"]}], "3"], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "8"], "-", FractionBox[ SuperscriptBox["x", "5"], "20"], "+", FractionBox[ SuperscriptBox["x", "6"], "720"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"7", " ", "x"}], "+", FractionBox[ RowBox[{"21", " ", SuperscriptBox["x", "2"]}], "2"], "-", FractionBox[ RowBox[{"35", " ", SuperscriptBox["x", "3"]}], "6"], "+", FractionBox[ RowBox[{"35", " ", SuperscriptBox["x", "4"]}], "24"], "-", FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "5"]}], "40"], "+", FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "720"], "-", FractionBox[ SuperscriptBox["x", "7"], "5040"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"8", " ", "x"}], "+", RowBox[{"14", " ", SuperscriptBox["x", "2"]}], "-", FractionBox[ RowBox[{"28", " ", SuperscriptBox["x", "3"]}], "3"], "+", FractionBox[ RowBox[{"35", " ", SuperscriptBox["x", "4"]}], "12"], "-", FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "5"]}], "15"], "+", FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "180"], "-", FractionBox[ SuperscriptBox["x", "7"], "630"], "+", FractionBox[ SuperscriptBox["x", "8"], "40320"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"9", " ", "x"}], "+", RowBox[{"18", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"14", " ", SuperscriptBox["x", "3"]}], "+", FractionBox[ RowBox[{"21", " ", SuperscriptBox["x", "4"]}], "4"], "-", FractionBox[ RowBox[{"21", " ", SuperscriptBox["x", "5"]}], "20"], "+", FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "60"], "-", FractionBox[ SuperscriptBox["x", "7"], "140"], "+", FractionBox[ SuperscriptBox["x", "8"], "4480"], "-", FractionBox[ SuperscriptBox["x", "9"], "362880"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"10", " ", "x"}], "+", FractionBox[ RowBox[{"45", " ", SuperscriptBox["x", "2"]}], "2"], "-", RowBox[{"20", " ", SuperscriptBox["x", "3"]}], "+", FractionBox[ RowBox[{"35", " ", SuperscriptBox["x", "4"]}], "4"], "-", FractionBox[ RowBox[{"21", " ", SuperscriptBox["x", "5"]}], "10"], "+", FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "24"], "-", FractionBox[ SuperscriptBox["x", "7"], "42"], "+", FractionBox[ SuperscriptBox["x", "8"], "896"], "-", FractionBox[ SuperscriptBox["x", "9"], "36288"], "+", FractionBox[ SuperscriptBox["x", "10"], "3628800"]}]], "Print", CellChangeTimes->{3.472217258453125*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"11", " ", "x"}], "+", FractionBox[ RowBox[{"55", " ", SuperscriptBox["x", "2"]}], "2"], "-", FractionBox[ RowBox[{"55", " ", SuperscriptBox["x", "3"]}], "2"], "+", FractionBox[ RowBox[{"55", " ", SuperscriptBox["x", "4"]}], "4"], "-", FractionBox[ RowBox[{"77", " ", SuperscriptBox["x", "5"]}], "20"], "+", FractionBox[ RowBox[{"77", " ", SuperscriptBox["x", "6"]}], "120"], "-", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "7"]}], "168"], "+", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "8"]}], "2688"], "-", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "9"]}], "72576"], "+", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "10"]}], "3628800"], "-", FractionBox[ SuperscriptBox["x", "11"], "39916800"]}]], "Print", CellChangeTimes->{3.472217258484375*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"12", " ", "x"}], "+", RowBox[{"33", " ", SuperscriptBox["x", "2"]}], "-", FractionBox[ RowBox[{"110", " ", SuperscriptBox["x", "3"]}], "3"], "+", FractionBox[ RowBox[{"165", " ", SuperscriptBox["x", "4"]}], "8"], "-", FractionBox[ RowBox[{"33", " ", SuperscriptBox["x", "5"]}], "5"], "+", FractionBox[ RowBox[{"77", " ", SuperscriptBox["x", "6"]}], "60"], "-", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "7"]}], "70"], "+", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "8"]}], "896"], "-", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "9"]}], "18144"], "+", FractionBox[ RowBox[{"11", " ", SuperscriptBox["x", "10"]}], "604800"], "-", FractionBox[ SuperscriptBox["x", "11"], "3326400"], "+", FractionBox[ SuperscriptBox["x", "12"], "479001600"]}]], "Print", CellChangeTimes->{3.472217258484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"LaguerreL", "[", RowBox[{"i", ",", "x"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "12"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.43679963975*^9, 3.436799685234375*^9}}], Cell[BoxData["1"], "Print", CellChangeTimes->{3.472217258515625*^9}], Cell[BoxData[ RowBox[{"1", "-", "x"}]], "Print", CellChangeTimes->{3.472217258515625*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ")"}]}]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"18", " ", "x"}], "+", RowBox[{"9", " ", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["x", "3"]}], ")"}]}]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "24"], " ", RowBox[{"(", RowBox[{"24", "-", RowBox[{"96", " ", "x"}], "+", RowBox[{"72", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"16", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "4"]}], ")"}]}]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "120"], " ", RowBox[{"(", RowBox[{"120", "-", RowBox[{"600", " ", "x"}], "+", RowBox[{"600", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"200", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"25", " ", SuperscriptBox["x", "4"]}], "-", SuperscriptBox["x", "5"]}], ")"}]}]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "720"], " ", RowBox[{"(", RowBox[{"720", "-", RowBox[{"4320", " ", "x"}], "+", RowBox[{"5400", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"2400", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"450", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"36", " ", SuperscriptBox["x", "5"]}], "+", SuperscriptBox["x", "6"]}], ")"}]}]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ FractionBox[ RowBox[{"5040", "-", RowBox[{"35280", " ", "x"}], "+", RowBox[{"52920", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"29400", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"7350", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"882", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"49", " ", SuperscriptBox["x", "6"]}], "-", SuperscriptBox["x", "7"]}], "5040"]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ FractionBox[ RowBox[{"40320", "-", RowBox[{"322560", " ", "x"}], "+", RowBox[{"564480", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"376320", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"117600", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"18816", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"1568", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"64", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], "40320"]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ FractionBox[ RowBox[{"362880", "-", RowBox[{"3265920", " ", "x"}], "+", RowBox[{"6531840", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"5080320", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"1905120", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"381024", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"42336", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"2592", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"81", " ", SuperscriptBox["x", "8"]}], "-", SuperscriptBox["x", "9"]}], "362880"]], "Print", CellChangeTimes->{3.47221725853125*^9}], Cell[BoxData[ FractionBox[ RowBox[{"3628800", "-", RowBox[{"36288000", " ", "x"}], "+", RowBox[{"81648000", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"72576000", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"31752000", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"7620480", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"1058400", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"86400", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"4050", " ", SuperscriptBox["x", "8"]}], "-", RowBox[{"100", " ", SuperscriptBox["x", "9"]}], "+", SuperscriptBox["x", "10"]}], "3628800"]], "Print", CellChangeTimes->{3.472217258546875*^9}], Cell[BoxData[ FractionBox[ RowBox[{"39916800", "-", RowBox[{"439084800", " ", "x"}], "+", RowBox[{"1097712000", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"1097712000", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"548856000", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"153679680", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"25613280", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"2613600", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"163350", " ", SuperscriptBox["x", "8"]}], "-", RowBox[{"6050", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"121", " ", SuperscriptBox["x", "10"]}], "-", SuperscriptBox["x", "11"]}], "39916800"]], "Print", CellChangeTimes->{3.472217258546875*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "479001600"], RowBox[{"(", RowBox[{"479001600", "-", RowBox[{"5748019200", " ", "x"}], "+", RowBox[{"15807052800", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"17563392000", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"9879408000", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"3161410560", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"614718720", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"75271680", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"5880600", " ", SuperscriptBox["x", "8"]}], "-", RowBox[{"290400", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"8712", " ", SuperscriptBox["x", "10"]}], "-", RowBox[{"144", " ", SuperscriptBox["x", "11"]}], "+", SuperscriptBox["x", "12"]}], ")"}]}]], "Print", CellChangeTimes->{3.472217258546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"grafs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["l", "i"], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.436800139546875*^9, 3.436800202890625*^9}, { 3.436800294921875*^9, 3.436800295921875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwlxX8403kcAPAZJjN9zbenzikbj6PUSs91dWr5vPUT4eqEol9WflTS5ewe h0ryoz13aV1ifuycRI+K6o7SdXw/p0WYVX70yy7OhjO0WMtI7e6e/fF6Xs6C o19H0Wk0WuB//l96QsBYfiDFWydd1WI0apGskxsQxt2J8rQ7u47qtMjY1HCa yz2IvHxSe3sHtUiKz3Isud+jk2qsp9q1KG6t8MgkR4SYi/1d0oq0qPN9bO4b TgFyrtuVQlulRVY9/e5jnEq0teMUzyz+NSptLTk2wrmLrjPk5+nKUVR9Q9QT t7QVzcld0HIgcRjFoCcFowmdKGDfvN9EmwZR/MAiVU31C+RnezinfKEKMZ0z 3Hu/7EOj9ZM3fXJ6UY5dm0fpPhVSvzp4td77BRL0bKfM5YOI7xd6yhDTgY49 yBAcddcgvmZUuE7QjG59wwr+xG8MJSUXx6y9U4tKUw5rPMPeIPjnVeFq+UUq vWRm29vRccQ1tHA2PmqgaJ198EeyDtEkDKv+7jbKLTE6abuHHkkeF/y9rbKL UuvzQ23q3yHxs73hvLcvKf+BQ8d/OmZAua3d066qPipILV7s5DSNih86h/H5 akpzX5D2sOo96sp+QDsfMUQtZT9dsH7vB7TL5fqarAYNxUT6SKXuI5pzQnO/ bmiM2jwWPukSQoOcl7WvN159Qz1vPGAWvsQMbma20Gt2TFC1Z2R7uHozOMQW 1YNGR0VbCvsUCjrImRosleqp/QkptaxCc2hSvzvksGKSWhazWBEQaQF7FKHF BY0G6pH9EhuhlyX8/NmOuZqEaepedXrREnMGfLfbctVOxgyVYuaxVf4XA97R t/8iufeBYiqTfeNrrGBOnV6sjDVSAxXOuSWps8A0DecudLC4G2INps2wuDC6 OZLLBNN0HJ67W8EaYoJpOjZsKJ8qabAB0+ZYNbAuqTGbBaYt8KW1yx3bI23B tCWuyhSyY3izwTQDZ4fs32Kunw2mGfgLZWlldjsBpq2wZFFRVfsWO/AMXhlR lD8Ln8RnJVvu2sHHNMfl+QnWONAxpLzVlQ2FK6/6X/RjYp/45gi2iA3pypw7 LvY2uGS+wFWuZ4O3l8xXMmKDXe9fyQuKsAffrK940tssLOY1enQ02AM3IiPk 8nFbHK2zeNLiQYJ80PrShZDZWHBrgis6R4JMMOBjzyFwXHrwjP95Ep5bXDFc dCGwMLjmGesCCZqK2BsObgQ+oxfmiPNIsBsZme/MI3C119T7fCkJu76dmFy2 hsBTfxqfVlwjYeK0sSowjMDiDtZZWTMJ3HKHT0XnCFxYdiQ2q4WEFZt7HrMu ELgsUbHet42ETcPF2eI8At+eK55uU5AQx+Pq86UEVoaTsZ3dJNTVuj2uuEZg d5XD+n4VCUFNn2fJmgnsWZPsdHmAhH2xer5vG4FXZ/ZMRQ2RkMi8o2tTEDjA XXpzWEOCJGh1ZGc3gRMOc53Gx0lQPwV+v4rAqfxTU7/qSDAk0XVRQwTOtO3v StSTwHSUVQ5rCCy5UfaDwUCC597N88bHCXwpzSLm92kSNphZKxL1BL62LWpd 6gwJoWWtGQYDgWtcmhZ4fyQhduOPa1JnCNygc5syGklIHQqcMBoJ/C94Z14L "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-3.9999998979591833`, 0.9999998979591836}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nk8VN//B/A7Y6hkHy2WIikSH1FZWpyTdkmLiJJkKVtESYulqEQbErKE smRpsaRvyEEqO9lSiCzFSIQZY5Z7fvf31zyej3vvnHPP+7xf96xw9D7sQicI QpJGEP//mxzkKKbnfNVk8RbvaIwxqG5TNT+qagsEtAWqA78wwJ/KQ1VV3cDU ArWk2kYMkivuqYiqXgaK/V9OZiVi4LnV7+ysSjgwytBc9MQQgza+a8ykymNQ F11geOkcCeZ1D2iMq2QDM76hXd+wAKTVpfiMqbwDCbQFKy/3zYGXr8K7Pf+r A5M+GzZoxEyDM+DL4z++beD5zH/GeVJ/gNfwmsGil9+AeqPe0Q+1P4H4ihsa fUb9QNVtj+/yo43gvky9VprDILhmxRpY4p6HHLuPIJGGX8Aod9ycNdSBfD7e cPTWYIGnAbOT/lsHUf45Ccule8fB0ZZkE5OjLJR21YO17ugk8FU0f30rbxKF pAgOzfz5B/z2FA3GPJlGRFs/LLsyDdIFI27V6zlo9YXTl45osYF8q7VmdTYX 6Wzqs0xZxwYzKmsO7S7gog2EjS7LgA3+VLNvfSzhItO7e38Fb2cDNfkghcJ6 LrJP1z6Sa8cGOZ/Nvh8e56LY9ild+gM20Aptr0vXnUOiG4N/v5pmg5F92Wei X8+hIXac9cL3HHBa3SYy5hkPPd22/nzvBw4Qk9Zd7p/LQyfvNT14VccBvgXm 3ZaFPPRdXbTWsosDSlbaDfKreOiLpe/mpGkOoL2u1xIb4KHyfHNVHa1Z4OA9 HiuiwkdxZ2ksi7hZ4Ba+eSgtho/Mht0Do3244KUW3dLTS4B2Ba7M23GJC27l /EovuyBApot6vnOCuOCwH8Nu3lUB2rRzv9Hxu1xQNzY2dydMgLQydKdXZnGB vp37zKFUAVroMuP6pocLfpmtGmppEaCGocAjXbvnwI+TD18m6AhRTYBBaITF HLAwScsyXC9E1fIT+Vus5kDhmRHRZiMhKtvhIJ3mOAeOJapN/dkuRHnppnVu gXNA7dau8GFbIbrnPA/yC+ZArJt5Qe0NIbIYily7fDkPSLgenDjRKUQNa4fa 7dR5oDqklT/1XYj2nTcMStTiAdFWD83QPiHaQ//RstSQB1ZLDf2MGREiU9W1 F5kHeaBfwOoI5AnRRruPFfNDeMCg6HCVyzISKbfPWU0P84BHRHjevZMkSlDa j/X+8ICzwVTpLScSKTilPj83xQO/FvuOXTlDosVTu/jjJA9E+L3NOeJNIhmZ mNSRJXxglm2T0xhEIhHz/8Z69/JBHmvmRUcSiVgfHK/VvOADXnvMp60dJFKJ 6nK/X8QH6Znelwe7SHTE3sLqSCkfJPiYnQvtIVE511irv4YPTk/jNQWDJIrW kW2fHeSD65nujXX/SLQ5DmloKApAXZ1J+4gERuecN8qNqwqAup7CZ30ZjDL1 cgUFGtT1yGnhRSZGMg2xX0w2CgBn83PDvwoYDRFeV60PCkDrNtnuuNUY3XVX br55SwCSFg78/GqCUaVh9Lt99wQgS6xM/tM2jDiM+emyMQIg4D2683IHRg4p 05eS0wQgvHnvTi8zjDa016m9KROA1Zr5I8+tMOrdevni0JQA+MYFTYh7YPSf bOey7SeFYL+XvPB6FEa/7v0KeeQiBKZlEsoPH2KULD77+7eHEOS1K29JeYSR BGNpwd1LQjDsfCP4+WOMWBzbXZ1RQtBP92EGp2GU0dPr5VYtBMTGCu8trzGy s/3bVlonBDZaG1OF+RjJd5JGUl+EYDWr8su7QoxCmlVECnuFQL1WzWjlW2r+ VafiBBxqPAZdruQ9RsrPh9GDNSQY9DHgzdZi1K7OUR/QJcETKc0tbvUY3UkT i9hgQIImP73gjgaMeAkaR76ZkuDhszvzU5ox6rrnNqJmR4LMgBOanHaMIsWv 7PdzJIHcWcnzoBOj3WERBZ9dScDW6CgP/YpR8bXcAE8/EigLc22F3zB6eH5c pvg+CTjq/klFPzAymxT6zX9EAqbb8ERHH0b0s1LdxxJJkOXvsWOqn6r3ad0M nEUC/ZnySaVBjCxsfYz3VpKgxT3Uev1vjMQ6rz9J/EyCVPrrAu0RjN4fjhb5 20hS6zkjvWIUI23zwsbo7yRovV3dyGNhJA7Yp3qmSWBkEWLt+xejS9s05xfz SFCjfYFmNUHVa/vxlw9oGCywrW/Sm8Soak8lz1Qag6SE7JZv/zBat28mVXkx BuOv1olmTGH0ZL/Gbo4yBhNyy+zcpzG6cvjew2wtDBhVq3wGZzAaOVJhHKqH wRIpU904NkbWR6f77Iww+J71QXonByN9O1ttmV0Y+FZzDB/MYjTmsurjxVMY DKcpr+qdw+iYq43HQVcMrhx34pziYVTjfkdWyxuDCkdpVj/ldO9/J3oDMDhx LM6okY+RnK86420oBkVm5x9uEmB07cLRnMgIDEpuF8k8pWx3+T1nezw1/vhp 35NCjOquTiYtS8FgSr7L+g1lo6CV22czqPvDX54QJan+umY92pKHwXpz1q0D lOVDwx/kFGJgZ3en9SHlkJtlG2+UYLCxJAq2Up4Mm+g+UYlBuYuwRRxjZB+h FmJYgwHXvil0K+WGu1aass0YDGYwbN0pb3pwu4nVgUHQptSDUZSfR5VeqO7B oEY5zb2A8uKYv4pPBqnvuvm8rEbKN2JXVPqzMPCuaxUdpDwVf+TMoX8Y1D8S CZui7JAYJrmWi8HXl4+1BJSbkksKGdS5IGbRo0nqfICWt3C0J+gEJOrYXULK VodkCDsxAi5vKB1kU77buqatZgEBx5R+y4xQ/mC5PXOjJAFd3/k7tFPmtdtd fipDwNj0s60llPWsL5pLyxPQr7fmdCJl168PVAKWEJDhHL7sIuUUm+ypEUUC mhq94phR7vxW9dFqOQH1j22aUqAsebwnvmoFAVtrtWQGqfXb0cP20F1FQLWw awczKV89IQ2SNClHby50olzwQ1NugTZ1P+u4kRLl0ZOmw366BFwf9bOvgaqf 6s/j/xvQJ+COmw3ZlyjfH7xvX2ZMwEvWrenlVP0/Oj/XW7OVgAnrxztsKAuG KxmxkICe9mfXjFP7x31kJsd7NzVecrIhg3Kam1RQjxkBxfL3T92i9lsXS+PQ XgvqeTmnZhHKu8ePzapZUfMpfz85xqX6QT60LdiGgJWPXs/aUp7ZnPuq5zj1 f/6GR6uo/Z0awT8T60hAA1uaagi1/3kaSV0LzhHwdcLNrvdU/xw8UF10+jwB tT4uTSep/sq8+Cfyw0UCLuaBGmPKlh+37A0MJCAMNVNMofozz7H33WQEAYfl Dg6vGqfyI0I0dv99ArIiQ/2M/2Bkk6/jmxNFQAeFffa7xzASJYK0nOMJmLI3 1vgwlQ/2ycsTv2YQ0Etj2RL1Yer70XUyoLyCgBZdf87+rxuj0zjMRqmaqr/Q IcznO0Zlq19vuPSZgNPabnPqVJ65+RHjek0EPJG78fcVKv+q5NJOZHQTMGQV Gh1owejC/gGTuxwCSkjHRDyrpvrtgrjS6BwBN3fv0aF/oOqVpD+7U0jAnvwo zeOVGDWyQl5hERo8F9SnKaDyevXtlarnZWmQFeNxkFdMrX+VM+2YNg0uf7tz 8+8sqt+2fVcM1KVBoZhllmQmRvMqD2xI1adBcV6uhm46RgZo05lfRjT4qha6 OKViFFMq0+i7kwbVpTltkfEYHSgqi79jT4Ol+g+CcRj1vuv1C16eosGgN9br vt7EKKggq/6LMw16d7uxs0Op9X4dTS7xoMEfMufLYDCVpy9cndP9aXBohazJ +osYfcqQX/c+kgaTeq5Kazth9EM9Ym//QxrcHi1kvHHAiP0MO4rE0aDCWJ2U sT1G6k9Zj/Ym0+CBW3tO6ttSefKkgt+RTYO/HJunRy0wMonz/Py3igarihaO eRpj9OZ2tb0qmwZ1Sk3kqsSpvDCrXxrGpZ5f+vGf+zyMEiRaW8f51HzIa/Ol GFT+RfbtKqXToYPr425TIYnM43n/WcvQYUGe+dIzEyQayFqH76ylw2Je2djj VhJJfU5KmT1Fh8Z51bznMSSihT+ztXehwwRDQUV8JIlmzHKYH13p0NPcrTzk Lom+Nb0Ni/amQ1e5IfudN0iU3tnqrRNIh2+l7QxunifRpl/zoVM8HRY2W4GJ gyQ6LerX39REh6tdzr3znEciRZXar/wvdKgmm98zQydRk9GyZs0OOhz6tJTt TwqRgefH9yHddPjmwAlRb7YQibUtSjQYocOozpJnqoNClJFabPWEJgLXvfv8 Neq9EA1t5tad3SACaa2ay/K8hMjJ9+obiQQRyD40f1lFpQAZ6P94syZZBBas 2OykViZA4lOweFeqCBRsrWkJLhag1z5ib69lisC9dv9WaOcKkOBc1P9mCkRg jm5wklmMAMV6Z5X21IvAu3rhU09cBKjWs60yTygCv6dZq2UwBEj3zNom81MM +HTD10iNDXz0w03F+4UzA7rrvVBH2nx015MpI+XKgMxqJ8ahVXw06sM/1OzF gIIc3yynxXz0LKC+41AAAxoELwnYweWhJdEevdZxDGi2LfDkTAkP4bLcPw6N DDix9p2U5BYeapbTXuhnLAr1Eqek1HTmUOnLkERtETE4uSn5uT+Hg67StA42 9IrBkYGVFyMNZpB4z5U9XkXUmXsDZ12h5j80nLkiJiVgPgQtfj9fCMZQjKYC 453VAqhcNZyt7jWEIhNOfz6lKg7FH9S2b7/wDR2LOdEk8VscGsmAsIkdVYi7 I2MupXwh7E+6kuzY9wEMDpteqgqTgKmPO2eM6b3g6VY9pcZTkvCCLJe1NGIU vLjpJ3tGRwp6gpS2djAFwqyc9omwpWDFov2DxeOzYGNPWnZYozS8ZvNUqcSL BPFrEl807pOBkiFW1zPd6DC44l78vncyULqtY9JDUgzuV7LKqFOXhYvjfVOq GxfAbV6fj8uGy0KB6VuGxUVJmKLsqN7AloX90+2lixtloPqHrFiL43IwKWeR 7osWORipU6XVWi4HVwfVk9m98vD0NONLrRYTViuFFaroLIGO+VOq4Q+YcHXO 7vZINwXoGWIpMItiQlpO+fi78wrQz7Loq8RDJkw3948eClSAt9l+9yNjmfDY lReBJtEK8KXxHD8umQm9/HW6GaUKcK4Sd2bmMqE+92pBt4QijGyVuFf9mQl3 ylu25ucrwoRnZ11v1TLhz7OkpUSZInx2oWn7nnrquvuYg+snRVi8OJJX38SE gfsilFd1K8KeY0zXtg4mjHnVrZjPUIIagwrbBwaZ8CTZsJ5powTXFV1Znj7M hB03ot1uOSrBTTe751x+M6EqdT7geypBc43k16MsJpQb9bQYva4EfT1Ul//7 x4R5hMayrlwlGLDl+lzBNBPGJ8/lHS1WgjclB9ovsJlwf69kTVeFEox/9ewO l8uEq3byU/o6lODTa4wzJTwmNDvbbufSrwRzD7mYBgiY0NBoIv0PSwkWqX1a ZkIy4b+MfZf82EqwfHr1HMZMeK14tBNjJfh/hiv6nQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-1.9999999425648172`, 6.9999993877551105`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nc8lt8bB3AK2Z77viOpjIgynyalOheSrJQVwteslB2JVJIGJaOlMjJa FFIaVA5JioQoSVKS7PE89uh3fn95vV9ez7nP+FzXOQpufpaec3h4eJJ5eXj+ /zflmJvASo8jm6sVX0b9+7cAyj/Jm+2St0dWwyKqpe0L4F/Fq5Py8l6oaNep P7FvF0AKjpXjlw9FkUIr0rbFLQDvTcE+Y3LRqHj83B99uQXwaWrfpUG5a2j5 qeNnjfWkYN63Xyp9cvfQWYuFA5di50P6+7SAHrnnyCVkbLR+KwW5edHfvDXf o2N8ZaYeR/lhL6q71hv4CZVXKWRvtB5Bvh0r2h/nfkX5IZv3++SUI2GFKJUf Om1ItOOUZ4xKf0nlxgStY4ZtiC8+pVgxvb/ktF2q9hLLNpS+c/mdQJmBkjnx z4x2H2hDv4S/PZEWGCyZnO3d+yWlDaVUGPLKjA6W9LTY3P045ycyfzdcrfZx uKQ6SWUFrv6Jktwqwwo9R0susKpU013akZmcuVDOspmS59pLCrf7tiNawehN ttNMyW9nPzR9pB1payZGR1yeKdF9wFjvutqOHrKljXP5Zkv+GjseFatpR5v0 PgQzP2dLDE72fQzV/Y1Egy7G8Bvz4PERiWBLqQ60/uTEcEA3L3b7Zl0yt/oP GlzhVjcwwIeFb/z0Cfj6B003nrjjLsCPCxx8F//48wedrlioVr6YH89tPhNa xNuJ3G792mZqzI+zmopWB2h3IpP7K/QD0/nxn0b5u60ZnajPb8FW5e0CeH9t b/zz0L9Iz7ZiL7o2D9PxoUjlzF8UP2ZYbfFgHi6yEOi/dOkvqvyvxMK8dB4W +Shn6p/3FxkVfiyV6JqH73+w5Ffp+IsSKp4WFmgL4v73z0Iv7ehCHgx77GCd IA54E+Xmp9KNyr9LFk6PCmHZ31sFRld3o/kyVg5n5gnjqjlC2eHQjUTKO7m8 0sJ4GcQORdt3I/VdNyTf6gjjr0WXI7LOdaPKtW9tEkKFsV7+7dSvA90oM1/C dvm4MKZuVDYbPOtBM8csjwZ1ieBXz2OOvS/vQdcf7XOdOy6CDzSZLd1Z14My 541eiRQQxW8k67ycu3vQMr5JXktFURwa/3X88OJeFCNssHytoyj+eapbKjei F4mteLpBokoUP/QXtZI27kMScVKpyiliuPo6E/rAtg+NvHKRacwWw3/KZdL0 PfrQ+HRTYsAzMSyzcEWP9/E+JO8850zQJzEcVWp4srSwD6XU/vuVISiObenj j/Yv7UcuVq1pWX7iePLREPNyqh/Nez7YasOWwPNbx9dbCg0gy+VpM+91JbCm II9Lp9QAWhE+FKtpJIHdHcXvU6sGkNV5Nl3qJIGr+dS27Nk3gJT2/5CYHyOB U208giQaB9DwuI5U8A8JnH7kQDd71yASUt4ZkbqZhdlYaPyM0yCSXrNrjKvP wpjvLv8P90HkKT0xaWDEwm2xv+Vj/QfR7RCh3CoLFpa96bSrK3oQeS9W7zvh wsLXyy3K018MIinHkSXnIlhYVai/brxsEDkpdVEHolj4ufn5HxbvBlEO7ZRt cJaFmz5XTs40DiLz4Fc1rXEsLNWlt9JhYBBZtq6TeJnKwolia1LppUPoQHLY S5liFl5qWZ/jtXwIxS1Kv3/qFQs/vOL/HGsOoUiWul1XKQvXyj1o8NUdQnV+ +7qvV7Kw+CplkSrrIXQvzmTZnUYWjrGVPnzyzBCyfcg28Oxn4ci06Z3c3iGk 7Ln3YqQMhXewnwWocYYQtVLEamoxhWVLDya4TQyhf0H7DX3kKFz0q7u2ln8Y hc5Ovd2oROHhZV8tHsgOI2HTjwdiNCjsdr/QfM+OYZTibuf1czOF2ZsCfFJs h5Fr3qmZPqDw7Af12AbHYXTy62AzR5/C1wcyq/W9htERN4WQnq0Url+VaCoX OYy2h1k4xmynsN5zX+OmR8Mo1oFX8qwjhcVNVL0kiobRr3OtHSucKdzS3HF2 Kx5Gw7zhUm/+o/DhacfKx9XDqNEmKbnTjcL5yNQooWMYvf9Y5P59H4WP1Qrs rewZRqIOs/Ym+yls5lp2+t/QMNJ2NCjOP0Dhv5HrK3xmh9FX18ByL18Ky1eo GJos4KDAW5XSsQcp3G/b7nFiCQexloZfeBNE4RedqVHPFDmo3DgwbCyYwnZC UuXKbA7iXfO2yOgwhePN+AzmGnPQyO0QvuvhFHb+XuK2wYKDHPOyrFKPUljd 90hkgA0HCVyxUUo+RuHKuOHSH64cVHy13SIqgsI8n9rgRRgHlaXNHxOIonBU 16v0sBMcJHpRqvMvsRBPypz1Zzmo/qsden2KwrSGfXnhZQ5SCq3Rcj1D4asG 2suCkjnI/vu1KqWzFF7sIHl6VSb5/v3Gz23Ey87UGeXlc9DSjBp9/RgKZ6fk 3fV5ykGxDYp3Ook1H8cKqb/ioEXRCyNPnaOwzk/jqrtVHNQXJ5WZfZ6sf0xF fW89BzX3FfaujCXnJS4Qu+wrB23sWPb4IbGJbtn2jD8clP/0zuvrFyhcs/Nm nksfBx1I3SnBF0dhq33HWHJcMt7a6R+exE3HHAO+T5L1RR3UxsSOlzfU3+Dl ohsXTi5g4incliO92kGQi/x3j59wJvYsG70oLcFFzoMphzOIu5sauJ8luWij Fcy0EvsOFNhcXsxFLdE51PwEklf+hCdWilwkeT3nqR5xyGK/BbQqFxVHiw7t JZ5eZX64ls1Fmc7XS04TRxirfb2gzUUZsgrLUon5XYQ2mG/mopiP3oq5xDGH Oq+LGHLRmhDjF0+IxWPfTL0z5aKARSeHnhJfzMx0PGvJRdJlHeUPiaWLTrzc as9FM/6bdLKIk2v/k+V34aIRDVvzOGKFzk3HX+/hosbZKf6DxLdnFrWd8CHr 7Zp0tyBWnT8JEMRFyRxZLyXiPNWm9NkwLtJQXLNgmKx3jd6TOS9PcNHEUQH/ Z8TPdl1yP3KWjCfkFhxCvNE3sHx9HBddqqZXaBGXRu1YNn6Zi0Srf5//QfZ7 6w3N00+SuYgSz8o4S/z+oWhnUCYXhSQt9lYl3l7ZbbQ6m4vmB8j0lJPz/NRa eXcon4tepHgp2BG3iJza7/uKi6KE1Yv3kfN3Wepepf6Gi0xttZf+IXnp0NFT 76ki+yNWbuRI3O8507f3KxetaExoXEXydTD823blNi7yHNqvd5Hkbzzxed7v P1xkHT8S2BtNYV4cHODK5aIrPhaa0SS/pz9b1ctNcVHi0yfF1STvwn0rV7fy jqBLN/5JChHPl+nnOkiMoNFte3S8SX0oB+05bK06gsJavuxpOUFhjQ0/rNLY IyjXRGvDGKm3NTx2Wt3rRlCipW6jCLH+eeM/xw1G0F6xbfuWkvp0zlK3znEc QYJ689X4w0j+9t/SGnUbQbEXBj36Sb17s2VF9LxGUMFKrcC6EAqHvZAo+xw8 gppss0VPkf5wpWFYa07cCLLWPLw/w5/CKdcPiJhfHkG3Nxjtc/CjcJbL7z9X b4ygs3bKhqKk/xT0NqZo3B1BY7d70p1If6rhey5iXzqCNt4MZD31JHlce7wz jzOCUhIDBbfaU1h0aqxscmIEzRT5307eRfpBqX+qIc8oqvZu3tBnQ/qZuZvN N9FRlG/y1izckuTB0/C1gPIosuLt3GRpSuGgyyJpTnajSPfv5uRWXQof2R0V dtd5FF3JVtzRuJ7CkQozNhyPUYR8P1IV2qS/PegXjQ4YRcFfLMsvr6bw/Td1 YY9jRhHboEu8X5XCv0eu2oq8HEUscZsTJ6UpnKG3+uD316PILkP2Xackhf+L rYnLe0/+n9mtZchQuFmJ/51V0yga/zTh2iNG4TqrQN1kziiKcOA73zGHwq8e mslrqI6hhJWGSYk9LHzVh7d7+9UxVIAtLrc8ZWHr58kCCqljaNAkede+xyxM 8+socrLGUFbi/qC+fBa+kOzreLVgDJ3fMl3efo+Fo6q+1fz4MIbMr80djbjB wv4rnjzy5xtH6ZuW6Bw/ysImHfuPJgaMo/OqtpC0kYW3HlW8v+XwOCpc+2Ni jw4L60u2NI8eG0dHnX5Gaa1h4Q2G5jq7z4+jja4OUrlq5P6/pcVRvDOOznxw sXOVYWERT+6+wpZxJPz46huDPvI++X3UusloAvEk/CvTtJHA23/Hq8nKTqIw K3HGh1ccV6v9bnBUmkSp1woDPo2KYdOD2sduqE4ik2bVT1q9YnjbnNZaae1J dDqj6977z2JYX17tELNjEv3Ovzl6NkcMr3V8gwUjJ1F9k/Z5VSsxvLhhwobT MYmeDC3NkLwhirtfu0VUPphCG1UfGquJi2C5hKb9Fx5PoUDJoAxxHhFs7bzd xrp4CknzLac7h4Txq/H1qm2VU8g7irMlpFEYJ2pQDWPtU8h/s5izZLIw1r1a oqIiM43qeftiTVWE8fn9iz+eOj2NWud7uT5fK4Q1qc9LDP6bQaz2ByV7Vs/D wmjEtYUziyqT+g1PCs3FRn0OY0tteOCFveCFA31TJU1lHrwO6rxQaSKh4DU4 WFJ4ttxZfoQXBuUi8iWOfCnZwx/cVlMzB+JfGkxvv/cNuQceKRS9Phes5Wvx +aMcpLVXrcbMlQ8yel9H+6/ggY+0ukjwen649/NXXpbDPCjOjbyhPlcAzIpK RSZ1xeEIr+qO6u8CwJcqos/bRYNwS9g238fz4FhpTsBMjhR03Fa4lBYuCEcf 7RS6yJaBS8sX8j23EQL2nNeVs9NLIP76nreu8sIwFSxntblEHhwuOdWIdgqD Dutp7T6/pTC+5dZE2isR6H0d/sNTRwnaO/QPl50RhStmLRNhDcsgY9PKRR9c xWBfRmeOSoQKPCBNY6+GOBSkqYv5Ti6HMzbupnNHxEFtJCjzvK0qrG1Jv3fm gwTcRqp3nB+pQdKKGw8+mLJg4ao0sXfN6nAcxyaZPmfB4YNM9YVRDej+ji9N FLHgvkLsaNKkBthOceLvvGDB3QWHbt6c1QD1dQ7RczELXFiCfncFNKEpRzms uIIF8jmmrdekNGHV1ZLdag0sSNU23zx3nSb88RmSFRkg429YUN0VqAnmi2xu vVeiwGvXI6eG35qQ9FsT71amYKVJxuaZTk34/UDwW68KBb/8irFijyaEwwuW hBoFw3XRt7yGNOG+p2K41UoKDrt5fm+a0QTh/CHLlk0U1Oif89gipQVvt1zg 6belYIuvZrmJoRbQ4vsWHbej4De+76G8TQucv+itYzlQILNOL+6fiRaMeo0c WOVEwWqB98ezd2iBcpzjl0PuFDTnrij6tVsLor6q5v7zo+Bm3qXhbwFaoOf7 djcVTcHTlkLP3htaMNnUtbU8hgKjt2YPc1O14LGB6KqQ8xQs+ys145NOxlu4 U/B7HAVmNlcT2m9rgWh58+O7VygQuBZzKfuhFjQt7BeDLArSM7etuVOhBf5v 5mPfEgqyHiYcsO7XAlW2do5CKQVrz0SPPB7Ugvbr9lcayijY9mWbG83RAlv/ VO8NFRSc9vNvez2mBRsXLV8o8IEi+azPjuBhg2CAbmBKMwXWCV+zA4XYkLbY Tal6hPw+em/qMhk2bFitpuk2RsGDRi83ehEbGoy52uPjZP53Vr2aIRYMOW2q NE2B8Yck3dolbPCvyw4Mn0ODZP0mAw8FNsBpDlaXoOHcIvlV25azoTn5xfsy Fg0CO+4Yyq5gQ9CjUw12NA3eX8e7h4nvti34GyVJA6f1SNdVNTZQuhslvi+i IdPlbE6tJht+DUQ5xS6nwTZ5cGB6DRvCBbbvVVSlwf3Jek7xWjZILVkQ8FyN hjUjOyJD17HBxOReVIcmDQsa9+sParOhIOtDzqa1NNx4V4+qN7DhpL3UZJ8e +X773W+bgA1Kr+9c2b6bhoRK6Qk+EzbUqI9ntTjSEPLsfW8C8eEr2x7td6Zh F6+x3xJTNlR5dX087UqD9TM9ObYZGwJZakIle2lwOWiosGU7G0qcco9oBdGQ 05rprGzJhn1vZ6NfBtNgcrB2fjIxvdIiyTSEhoXvl1mzrNiwh2/w8d4wGq40 /fTmEovmrOxPi6Bh6crS6WwbNjiMP3ZhxdIQmqBqVGfHBj43fr/UCzSoOid5 atmzIbfK5qh6PA36tufmnSfmTRu9tu0iDf2/rjaAA9lfQ51PEddocFb2iU7a zQbLvLM/xW/Q4CCgXNRNPCX9dSA5maxva+IBXUc2bO8NFX2eRkMqz2KLJuKR xGLDoVs0RElJSfA4syF1WsT6+B0a0nPP6W4l3rbH0U3sHg123351xBAnr585 tuI+DZ2iHwok/mODftvmZ64FNCSfLVCc58KGXuO4ioFHNOQdtV2rR3zl0Y+G o4U0jOsKl4USd52OGLr2jIYwTR3TP8TxGmWq9a/I/DI/0g9cyXp0dgtFYnLe bdkVrcQlBtzOlWVkv0rsHoi7saHfXvlWwhsaVML/o7yI+T1LTuq9paH4T13s ReLF/nZuQ5Vk/aImui+ITU/HyO2spiE3/ZiKoDsb3BIUZ3lqaGhLsfZUIw5L ftGS/5Hkyde93ow44Y5NsUsdDXFN2r7exHcL+q+xPtFwJtNZJ4YYvzxzGDfQ gC57sG8Tf6mU3+X/meT74GcbTCzww3J+7VcatlMrVQaIl3T3DB//RkOA4+r6 uR5skuOoOq3vNMQ8aLgrRWzGI5v/o5WG5vfp2SrE7iJPL8S10ZASpvJlHXGY 1A4f9IsG+uSwxhbiRIUu04F2kt/suFwL4nvqkappHTSIPj1nZ0+MtRcJWXTS IO53UM2VuEn/cefsXxpeJH1S3ks8YG5ekdtNg82kjskBYgH7P1nOvTRIObAv +xDLehw/Kd5Pw+ZjW+f5Eq/1k3Z7NUDG1xC86f3/+YY9BN8hGl6pz/nPi9jj lImcLIeGRINSAw/iI/HtMx+4NLzVrjd3+v98b4S3HB0l9fmxNNyaOPu2ZLHG OA3mdYtrjYlLH+Ze+z5Bw6K5/kab/j/fF0aHY6do2KK27Zcm8eDbNttNMzTw s1bdlCWe9yl0bd8syW9IUYTo/+fbSs9P4WHAfLnvyXGy3+u6cobN5jBg8ffr nV/E5twtddNzGeg4GtP3ntjj3/e8+/wMmOaJWj8kDhcOueA4j4FS/b7my8QX JVk+okIMnJp9duIwcbb8PdMXwgw03p02sicuU9NX9RZlYHCeoYYO8aBeUGeV BAMRM1JWgyRvguZiFUcoBgLkixLfEcvZ3c5SYxhQoS4P3CTe7tvkek6Kgeag Zf+MiT1DA0BXmgHrIG7+IuLwKGG5noUMnHfQPNZD8p9zfWOLyRIGtLiSXqeI y241Fk3KMiC95vspC+LmfN9r2fIMPDuo/2IBseDbm7bCSgzIiMgEZZD62sPh q3unysA6Y/e56aRenbO31DiqM3BpwiHOhdjWNapqQIMBo/mF/rLEWz/OrZBc yYCCmMyqy6TelXPmFLtqM3Avx+uWrxPZbzf9Z1wdBt6Ya9fLE0stjCw8s4EB SfewnXWknwic4c1/sImB1we6DTWIO9x4bk0YMOB5ac10LelXLQsh47whA6v9 /AuCiRtqj6fJGZHfV6x5Jk1cvvnfNUMTBk56t+Xbk36XJTN7IWEHA7TuabO3 u8j51U8dXuHEwO4v8t92WLPBMVr30AtnBnzHeZ2bSX+1hiMHLVwYsLqToOpG vCV30ifYnYHZVVvTvEl/VoqZcCv1YuDvzYpe7x1saNcbM7M/xIDHx/UVMqTf N4+vM+kNYSDRUuHZWXIf1OcdMjoeysD24O99XHJflC0Z1bsVzkDbEifFSmM2 ZExw1w1FMhByfeN9eyPSXx4Oy0fHMVC1PqF9uT4bvCOtpk0SGPDyuhy7R48N wVaPv4heZCCz8LVABrmfzo4EX4i/woDZ08seNCL9fv3E1NUUcr6dtSVNumyY KP33+XYOA0lr8yOnyP0456JLwb4HDBgEmfySJBb1KI1VzWNAeEmPoOZqcj4C J7fkFjCwE6+7t2slWb+JQEHhc7Jfjc9U4jVIv60XjS1/y4DfoaDsy8vYcD3T Z9/pdwxoJnttOq/EhsygGoNtVQycC9WLi1BkwxOp+MmqGgaO+sb7uJH7v8WB 2fepkYHfld4CIuR9oNK+0OBXOwPvwtW0Bxg2sB+HyWZ1MHDLFY6U0uS9cerb hGcnA6mm8w8lUKR/qKTkd3WT+tMfjFWVIPfrAXnZoSHyff0NOnrCJP8bT0wU cBi4/kVQiZe8X06J/WoIGiHfS4oqezWPDUl5mefGxxkIKgiTXM1P9j+Cb2/R JNnfS4OVXXNJvez01A+fZiClUFgjdQ4bHi+tWLJ5lpx381a9HbxseMVRnvj3 jwH5d0v5ech76X8no7VI "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-4.3923032509109, 16.39230390044235}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k8VF8bAHAkzB2EKUqyZ59B9vU8Q1oQUpZKikqypZVSUYQUSbIWUcqS qPgVkZMla5ItCWXfd0KU975/zef7OXPvmXPOs5yRcD5tfYKNhYWlnpWF5f+f j645c6ge9zPMbH92aHVVC8qbxM3txA8g9Q0bHhxs14LVTx8CxcVPIWG76aXa PC14hMPF1opfQm99ihjTp7TAw+CC54LYLcT7STt1e4smNC27Rk+JxaN6nZvJ RK4GcP7okR0Xy0AcWVohIxfUIKUm+cyoWAE699CM70wgA+bi8hV+3ilADglN ZhcNGLDjZG1v41IBCriItr9YoMPYmgWbwqZCpBzNsy3Tgw7aBha6t0KK0F6J Qc8xeyVoyFlhk50sQS802uqv6iqAf42SqeqRMtTAm1ZzWkIGXubc+uHBqEHe CWmLfb9FYERg5I6pUw0623DorUSYCMheNDWUi65BfZ4aKHuLCDzWp6b0LtUg gYUxi1yTzRBVfcflYEUt+rciP3ksfhNc7L07vdPhM4JXD8HTUhCSqbWB/CYN qOiYtkzjyDo4ib7Gj51tQiJHtxZbR04hltTfhT9uNyHxTTb/JRydQHHsIh01 T5sQyxuqS2nqKKqqdhHNaG1CG7+FXn9GH0By+1dST+g2I6ufP587vm9FQ66y L7pYW1DDAIM76U1TiVvU1Q8Nka3IIduj6LPNUgnbfOrPkoxWlOfz5f2e+39K EuyqWHJKW9ELVeuxD1+WS2pEaMbhc60ILlUoXjT5V6L4PL1yt/03dJUYjRWP YsVj75saSsXa0G2u2IoqOw7s1S/fm/fyOxpxcvie7b8O/3L8zvWx+jvif5rs PsrNh/e1hTI+931HDc2hu94c4MPatYOX+oXbkWWzX9DhGT685lUan2BIO/KN rOkUFRfAcVckDH2O/EAqn1Sa3D3X44+0TfE6fJ0onhnK3/dlI1YPr/pgotiJ eiqO34uhbcLPOHz79u7oRM4f6VmrtpvwnaVWZbcrnehRiCbtd8cmbPsz+lPC UCfKzd8beLFfGI9k8s0t4y5012GDWceQCCYkgmR/av9CNQOPKQsO4rhK/57y NZNfSH5rk5qjrzgOtk/S2mL9C/Xvjq9+dl8cs0W+23nI/RdKtF492lEtjv/8 Gzv57RE5nlHm2K4ugUc7bNK/sHWjX38HIxTWSuK6OFl5XNeNzkr5mh67K4XD 8tRVj3zvRnp5Ze+pz6Xwrgamzr/+boTfOPyM+SCFyzkdduuvdqMKBxYXm3Ep XHQx8tQ71R5U1x5x5/xuaZy9fykjN6YH+U2sCG5fkcYRfLUKKUd7ka9CRZqX uQwu0NqSb+HVi+qfR3yjO8vgPsfTaMWvF2U7bBOu85HBetm0/Xaxvei+dw/7 s1QZPLTb4SpPfS/aknK9qeG3DDYOHP9ySa8P5Zkd9uSJl8WL8+suWAv2I68D F1YuV8hhqS3Oq6tS/Uhz+4869W9y2GJ73q1s1X4k/6ST+WVIDqdF2Sdx7SHH X5SbPaPKY2vllMoPgf0o6a2IQZelPM523SasON2PPqOCgIBGeez8Y3/JmroB dLklM7wfK2AisdvzzPcBpFam4n27XgG/Pugl8nNgAMlMaset71DAa9pDLhWy DqKwj26DDb8V8NO2QrUzWoMoX02/akZBEQ+0iKd3pQ4iS8HZ4v5wRRzxINvW PHcQBfplulfEK2JNG921hcWDiPN86sZbaYo4pHmf84O2QXQ58W5SUZEilmsK FjHnHUK6DVmPWoYVsVvDWGTBpSH09eeZa98NlbBA5CUkGzKEGAqCof92KeFC S46J6OghlG6pv5trnxKmfhEz884ZQgInRsRqXJTwi8/Wa2X7h1DxhP8RrnAl PFHz7lK01TASaERyl5qVcEyYiRyb4zBKTXjPMdmhhA1NG1tPuw+jet+r+0z7 lfDd6lE1s+Bh1OhudeLVvBJWqRKdYC0aRjphpulGG+j4TEWQ82nZEcRq7Brr Z0nHon07OH6rjSAPupfEdxs6rmWjZF6BEUQo2iuIO9DxVgifvnVgBDmOXex0 c6Xj74UPAp7eHkHc239XzfrTcfB3O2nFuBG0eFLPNOkmHastbqp69XQE3XEP ur/tNh2HayStKykeQdkRD1M3xtAxM/dZ0vfJETQXvfrqRyYdT9S7Gh1dGUGR wzfPtuTQceK4wsAA1yjaVTtoXJBHx/MKOfQ5iVH04Em0AfpAxxlpb4t4948i 29u5YSYNdGxbfunog6OjqH2dTkNkMx2v6dVjF/EcRYs5Sqc/tdHxYXFsJh9M +nFI59QvOuZPrGo3fjeKHIrpl4yn6PhDQdi1mvJRJHxJO6Rnlo7d28wl934d RTMl85oeC3RcseHrKceRUbTfICYZ/aPjS5HfF31FxlADa/S9QYKBZXISH67K jSFl9qMZHTwM3PT5MARrjCHJns7MIj4GplN7Qu5bjKHC098jDAQZuPvmiODL gDHE573YYizOwBFPXxSqh4+h4IZAzXuSDKxX5uX4Pn4M8Rr6VlVLM/ADltm0 qtfkfKedn67IMbCRWP5uy5Ix9PyyNsuCAgNPGviMt9SOoUwx7VcdSgy8229Z vbdvDAkcddV0U2Hg3/HFbaemx5CMobeIwDYGfvLO/8rU3zH0Rc/KL02Nga2+ McV9iHGkID99SFqDgf/Oryn/KziOevJ1KyM0GThz/aeTQVLjSOIM7VOfFgPb qYVSqSrj6F71UScZHQZ+5c29b+PucXTCbTjSQ4+B6xJol7Jtx5FJSPKOYH0G HigXTjY6Po6SnHPooQYMzDIpUfHtzDja5npq71lDBhbeJD/q4T+OBs6LFG9H DKxurMLPFj6OKls3XFklbemppRWbMI7Y96TEpwIDu8UaHlZKH0csXBQJBpOB gz6aBH7MH0cqGQ+2pJJOGjXPsC0jbRyR8I/0uw37v4w2jKPmA9pPjI0YuBEd mg/oGkccPd+MzpAeP+W8WXBsHDUwc4JCSHNFn2JmLY2js1ar54JJS37wPgmc E2iHLaeIF2n9IZ/wlvUTqIp7baghaVsB/zdukhMoI0m9bIGcz1s/+Puq8gTK fd7QFk86zCV8NdpgAtWrCzRLk34aGb1VwWwCiZSr4DhyPSWFiWYl9hPo63bn 9Hlyve19qWf2u0wge6EfsXqk53gzY4fPTSBVnvp4N3K/eHVeFV+7PoHYT3kU 3CD3U+7Yu17a3QmU3dXPGkTut1F4CSXjIfn++67XvMjzcHj7SdkwcwK5i0jo Guky8MXuzzZNbydQz3VdWNVm4HvUFj/XignUp9eVmEae7wuNjpS/jRNoVk3d XoM8/09Heiujfk2gpnLngJfqDPznzTSteHkCOez9AYdVGXh916KONWUSyWm7 TUYpMzCDi+XooOAkGg0/pPmazsDHHHhf8G+bRHt0ugqy5Rn4WvCGxmdoEkmv SecOk2XguFyRRb09kyhc2kTaaisZP+yK211cJ5GE2oH6eDI/Bhjb3JYvTKKP W1YubhEl4+eATmRk4CSqO1jDd3szA2tk7+woTJpEyU+Ut0uT+ZVkc/z8upZJ VLr+v5+WZH6+83dPeNoziQzF7HZKc5L5mXEW60xNor700MWeNQzM7g8cr9dO oTqN18fE/tKxdpOFdYf4FDL9cfDegwk6NnG17n8mO4W2eXy6VDxCx9Z/bXzP MKaQxUzZmoYBOvaQPZzEoT+FOFbt5PK76DjFz31ExW4KrcelAwGf6VgFUxZD Dk8hfbPKo+bVdIzZ09f+PDaFdC6OBK+toONf4X3i4d5TyOPjpmUoIuvx48N2 w7fI9wXk+3Vm0HFCuWV5StEUmparScq7TscKlImvi6VT6AVRz3bkCh0X7Lnz 07J6CvE+Sny8cJGO21qr/vxtmUKJSi0vZt3pWHCYqXpwcgrpiu/+J0TW9yge 9SQByWk0dv+2xiZpOpa0bsw6JTeNDr09YpO1hY5fxXgXYMY0qki/pKckRMcN YtnNXnrT6Nm981f/UOiYd5sMtXb/NEq4vFxXPaGEw2w3+gaGTKPA+zRdvXwl fCN5Ze/c2DQqMvbjfqahhK1U3p1RnJ1GVwyvfTenK2HRj+fuOS9NI+lldqk+ abIf9ow0NKydQbZj/8z6aEp4Zut3y2zRGcTZtq5NcVoRO7/I3+NiNYPS1p4a 6kpXxMwCr91tb2YQu1cug4dHEfOaKpxaVziDwrQSZJrYFHFHe3/oDjyDkmaW E8MWFbDvikNVXt0MMg5dEa3vVcC5yGznvf4Z9Jsr7Hh6gQIW/yRrYio0i2L+ /uvKdVbALE2/oOjyLNKvU+velSmPg4Y/pFy+Pou4Pf1Ddz2SxxSWR2w6obMo 8Qhhoh0pjwXoB8rzH8wiRkfT1qEL8nhryNedObmzqL0+9lEYyGNTvVKL1IFZ tJOfRaS3UQ7ff/LEIdR6Dp22yMmXHZPFMuddfPcrzKOjj6int85uxXTdn/uS VeZRzNgT7ZjerVidxV55RHMemaYf2LXctBUb3dk94G88jziOHDiQmrcVOz5V 2p/lMI/KrHhETlzYimOaZ5TZ7s4j4z9Js2Vz0nithv9gzuw8yq/vkt8yKoX7 5mNtqcW/kc3oQvfoWwls2u92NerMIqq6lki9170RW/RFKoqK/kH4SLJVaA2B R8qcA6qylxEOHu549LKrhMHfusX4yF+k3bzpwg5DDiDQvFPH7D90lP+PlnqK EOwcP7ggacMCT/8u1dSlS0Jb6XHWg0qsYC5sRJewlYf80HJH8XlWGJIufNnq pQwuay/8qq9nA3o0a8G9gW1w7KxfPnfCGvhps7fs61sNUD6pWG/uxA6Uy+KH aOba8EVAiXpBZy08lJeq+vtdF96/vJGotIYDWIezjFiW9IHD3EY4loMDHpwd c4hlNYC9w7LxrAQHcI2d2CJPGMCg1OeYVj4OkLmTF6K/2QBo8UJRAaIckGBY hiUNDMA98EVosw4HZIYeLBnxN4DN9q0XrnhzgH7u3Lg9qyH4sSpY1XVygBu3 fJbKrCEMbKe2yXRzgHbF6LLBH0OwCh07cr2PA1aKZhJMWBFIr8s5rTnKARNx Je+N1yGoE1G/+3iRA3wbtlgtKyAQ1TasP0/jBDajFHZbJwSlXtbmW3ZzQthd m+qsagRKr9Wafcw5IfXMJGX1C4KY+fUOjZacsLGk6oA5+bfL/co39xBbTtia GSbW0oNgfZjD7eljnLDt6Que5GUELmkuNRXXOKHJffI4RRCA6Li8yyuPEyyu 7jbV3A6g6ZPBc/ctJxzdpMj4sgPASaCtMaeQEyZmLjmf2A3wbpfG4WnMCedz TxbcsgBwyZ88c/4zJyTu/Ex9bQ/wMeJ44uUBTjCnrTwK8ADwZVpMBG/kAsZm v6N8UQBPO668eb6ZCw772A/ujQb44pPlWyXKBRn+Xs8jYwBkXnKtIbZygfRn 74a1iQBNwmVC4apcQH9Ie13/BIAxp8W8b8oFqumDgu15AP3PJKKTr3CB1qJy RGMzwFhQ99KaAC4wSbQb7mkFmHFOOeIayAXnIiIGJtsAWMQkFFXDuKDDqrhs tQNAOFa8tDSWC1q8tad/9wFYhYhN9b/mgvUWRQeN5gDsTvy0Mf2PC/rlu7xF fgM4Gie/f1lAjrOHbp5dAHBfFQ3xweTzZ8UUY5YBgn1ERSn1XDBC3yryho0J RSe3mCsNc0H1ff7wnXxMKDPpfBU5xgW9dimhI/xMqJF6JDQ/yQUzgg+oYTQm fPsp0lv8mwvqNno+/SDIhBk7kcuW7BSIHtpP/SfCBLldm9PPilHgyeWFP81y TFCW+cHzTZICrEWPuEGBCZrsief0ZCjANB6Me67IBGMsjNjpFPh5iynqwWCC o7Zw6wNdClRe1fxUo8aEaLlN7AU2FDChBnV2GjDBwVHmea89BaLOliwsGzJB OlrNlNeBAudQ/bwgMCFvdU/kMWcKCOmMJxgbMaG59YYI72kKBJ6f9fHZwQTa zTH1Y6EUUPjAmNtlwYT2wqVv4bcp0CWxnk3DkgmpUxx+7yLI+RupI1usmLDN QeIjzwMK2G+tMxnYywRrNds971IoQDH/tnmvDROiuktO8LynQBqrSXHEISYc FPrMpf2BAg9OLkrvcmCC5J72LOePFNjvtuvwP9Kv381Nv62kgKO8u4GTIxMa 78pfc26mgJpRcBaLExMSKjQlwr9RwE5tMOQxaedl4/K37RQQVNmhYuBM7reL I8HTTYEbD/N6PI4xgd/wfszbcQokTR35kHaCCW3nHuv0TFHAouv9iKILEx5n ZHdwz1HguHhY10vSKhuqJJ3/UKDd0UA46yQTFk1bKu78Jb//m81J2pUJOKDH 9S0LAeYbVzwSSFuNrbzk5iTgxuk9jVdOMWGjJGGtRRDAnRiqMEz6l53QvBMP ARUGxSbWbkzwLlPVe0sjoFOgo1TYnQmRCS6VTuIE0FMCqoI8mOBz8ca5K1IE ePA23Gsh7WidJBYrQwDVT1NXypMJSkSrT50SAZHyejL5pGkD01KDygRI3Wxy XSL95yNPA6saAd40n1BdLyZUXzKR09IhIH6p1eEN6Vwbp+a9+gQYxt3lGyUd p3o1wAMRoLpglix2mgn+PPFKIUYETA2Gce0l7TKc15ZiQkDC9Vozf9J7KhqC inYRsCge7ppJWj1lTOWbGTmfq6VjI+nNV7k6py0I4IcopQXSbAekb3FbExDa 0tK40ZsJw+qgIWtDgNLDBCst0g18Dt1MewJmzJ3SrEm/G/MJdzhEgM9AZoMb 6eSq+zo+jgQsvFj86k86+GlO/z0nAuwV6tLvkfYKqL334jgBWxjP9z8mbeMw aFB5kvw9n6ktWaT1tdeMdLsRIHbsinweaan1YjErngQk3vXbW0CamNI1EjpD wJL2HfP3pKdrbSdUzxMwEaYqXEi67fnZBHMfAtp/TxTkky4JjNhx8jIBBWq7 FF+SfnYkc+b6VQKUDT96PiEdofcp6WEAAUH2XQEPSF8Q6jF9G0hACiF9PIi0 w+zf31+DCVgvKSTkTXr7l01Pxm4RwPtaP96etGKWhiVnOAEuNOERA9ICIXuX JSIJiOpTp4iTXnL2fK5/n4BXFNrvf+T+/jK8tc8uhoy/F7q57aRf/sZZdx6S 8eMVEBZK+kFjh93zZAK0DF5kHCR95eXimtJUAoSH9aPlSZu5qDgspBNwVyOr upiMh21G5lwCL8jzeB1HCyQtLOqap5RDAKWSkDUhPdSSzO2cT8CqW3J6CRlv X169f3flHQE17M0bfEn/F/7teOx7AiR2vzKlkw4yWVdc95GAw713KBFkPLtL KJ4aLCfzxzs5Soe09d8dG9iqCPi+IbC7m8wHifxrnlr1BMwJDtfLkea6l7DJ +isBz1uve1SS+TPl8V+FRzMBO3021juT/iA9sSW1nYB0idM/7pL5djD6cD33 IAFry8QEysj8FXlDbHYfIeBJjb6oAemfX9+erB4n4PQzSbs3ZL4fXyfAGjxH gB7/mj3RZH3wCvuktspKBdO9xjpyZP1QyTgXcHgtFdjmGhIDyfoyWyn++T0X FQKfpcn8IOuP71o/F991VBAIHHl97SgTbgQox0+LUEFz27GY2MPk+SZ39FuK U4FZ+VyxmaxvnB9ubXspRYWnNdV93KTvLPfWuilQQfiiLz57kAkxF+P+9WpR YWjahpfPjgkZHqzHW62pkNb253YkWX89br/MVbelgtB/QaJ3yfrMyDz0N+oA FRpknepu7SHr52B+jOVRKmRvX/E5Z0b2L2e36ipPKnwZ0WHZuJPMN/smxvtQ KowMrXFOI/tFlE+A36Y7VOi8ueR+Qp/Mnxh6lc9dKlS5Ct2S0CPrf1OIk3oM FXgf1/8J12ZCn4V+dPYTKiRbWr/UIvvP4va0peQPVPjPTnbosywZX++TA8s/ UoEyOp7rKsMElm0JPMPlVKgW0uZi2UquX+yuxLZaKjCW645KSzJBcMl3d/k3 KvRtYuYYk/1RLds8fmiKCsWmQR4d68jz2DCnrSrFDQcl2b+eI/v5zO2JUhsZ bij8mpWbPANwgW3Y/LI8N9Rf46NVTQFcmew8WqbMDf7SWY684wC3qytDbfS5 QfOXJ+eZfoD0q4ltl2y4YUD3kHVEC0Bvv5FvaQg3NMaevCjzBsAouT5V4TY3 CF46LvAqF+Cx/cHPURHcUHNYJFTrJXl/qD0jeewBN7y3k17VygBoz31ct+YJ N6SpXeXjTAZo9PsnbvKBGwxMfrp23gIo5S+srpzjhhmTwN2uDgAStSZzyovc YNhs5uh5ACAg6Kto3DI3dKlVg5ctgOHC0DlXNh54KHDF85gVQGGHkCiFjwda NnI7bCbvd6+fXzhrqsgDXGTyflQASDVQ3fzZiQeO80UVVwyT900LInD5OA/0 OT3W0ulF0HOkd0TelQdujtIs0joQSN14UBjsxQMK4hoWJ8n759NPSwfAjwdu LNWER+UhSLMsjXsTzQNVXfeTb15FkO60TzChkpxvJvZbOwVB9s0L/CfpvJDy 61y3PLchjOkfvnFThRe6qvfA6BpDUJrbPvtEjRd8ox3d05YNINN5fcsvHV6w 6u+QZh81gHT0Ju7gDl4Yljkv4l5tAE+XpsQsjvDCvzMi37uCDCDB04OhcY8X KnRGrh76rQ8hNsfM1szzAjd9aDahTA9SLTscTizyws404V+v3+lB0W4br8pl XnjlN4pKs/VgxmDnvdts66DRzu9AZaweOMgofqPxrYOAg+wTbu56sG1hxlla cR0oviz3EOLXg664G5dNnNaBsNv9U+y2uqDRkZIR8nkdrJyulZf5pA1x8onZ n834IJwjaM+wvwb44/A4swI+oEpI/XnvoQp7Ntuk1UjzwzOOWratNfLA9Ko8 xH+LH96Z32G5cFIckkWcpevm+SHyK012aJAdpMuex1gcEgDxpbqMUze4cCS9 VKHxgwDw/f5v+/qNkthllv1rtQINyie+hHAsK2PnVzPit+7SIEp1x7n1vzSx x419K6b3aFDEZ7gpZ1UTX9iX9437Pg26zkso7hXTwqHzFyIiY2hg/erE7SxH LfxSZ2k59hEN6un1REGnFl76uNr6LIt8vv/6KY1ObRzZyB1eXkmDAePEhGfd ujjhiadrcDUNLkY9l1Vk08NPztcb76qlgZtlad9/knr4P8HIP7X1NCDC3Qd7 j+nhjoM016YWGjjutW27P6CHZXs3Gff00oBvePDN7nF9rJJ3WfRpPw1CPf3t gdcA6978sXRikAbad3/yGCobYHPZR7nDIzQoHeV6YnHGAJ91FxednqaBd5U2 Kp83wFf0ry+9nqUBr+b+bbOChvgmT0/z+XkaRAcjGXltQxyX8+T24iINLHx8 uTIvG+LUAPaThX/I9TKKZ+YSDXHW3hNGV1ZoULhQ0rKj2BDnSX7aYviPBk8l LuckdxniD7MyS6urNLAS6ru6umqI/wfNd0kX "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-30.999992244898124`, 34.880715912311594`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8VP8XxjFjENlGightIhWlTelzKksYzJQljBlEJFtlKyppsZSokChb KtlJC4lPskUkCiFZZ6xZoq+t/O7vr/t6/3Hv65zzPOc8V8nB86gTHw8PTzYv D8//n48uOVA0HAMOSL/SXPq3ZAsVzYo0S0UrxG8qb7qj0haWqkqvKiqeQnqH a2tiwm3hEY5Q4Fc8j9qOT0z0r7AFN20f9/8UwlCIfo5MxlYmNC+4RE8oPECp j9L4sIs1CHT0Ko8pPEflNNf4h/8sIKU26cyIQhHqlsgp3p1Nh+m4l6o/bxWh My06l0+ep4Oec11f01wR4vmZR6/SpcMo6T/z4uZiJHnT9JpGqSns0TbRCgsp QZc2TEyJbDKBxtxFPuXxMuRiRtfoX24El2vVDDXYH1Ba//HV/Yq6kJ7/emNm zAc0IZfgrl6pA01xh0gbPn1A9K6P7t9P6cB65+Mlq/ZWIKG3fz5B4WGoJV3b ykOtROq8gzZ2xodAWrtD8nNVFRK/4y0SoIQgJzesw21rLXJQOpAc9VIThiWH bxna16I2ngtHzRQ0QdnX8MCm6FpU4886lxe2A5L3C6f0zdUinVL/KXW77XD3 462T1pV1SNDiQrCRlDr49kVO6jPrkZRY55ylhjIkCdddldBtRI35FIVtwYJw QDuAGcRqRN0XBv9lOJKh02PzznG/RoQLx68+M+KBVU03OZ8yGtFEVkCwpskE uhNHMwgV/4KSAx6J0vLHy65uaBBd6viCpK6/fKeURMXO6MuD0bPNKDPadfW2 Z5swT+qf4o6bzegnp3eVeIgKjiPLddamNSOtirXvRpxUcc3Hk2uetzSjG1cZ P6IV1fAms8VUJ62vqFBBJedt2DY86KKc1cX7DT2tMHPqXbEDu969WNoY1YJO ue4vJFvtxXwzqT/LnregV88si6lFe3G8ZQ1PbnkLgqA7oc9WaeFaOerhiOkW tG8yzoXVooU3P0uvNjjeisxv5aaK0fbj0bfNjeUKbcjhbc72F4oIewyo9BXm fEeiId0/Dfccwt2s74LvP35H9z6L3tJxPISPtYVure//jtapCfPORx7Ce+q4 5wdk29HfBO/WOM4hTMp/Ii4d0o4kGUbbM6IO47hApQN+7A7E23TAaV+bDn5P lXmwV/wHMtw3LC+1Sx9rRtSU6m7+gcpHjsx9stLHTyn+/Qy9H8hxYVpO76I+ vjXXss018AdSO9BZe/6DPrb4GV0VP/gDmVbdSRymHcHDGeLTC7gLSdl5/RE3 M8DLlK4p/9zTjVKSF5WdNI1wzf472y7pdiPbd98UbpsY4RvHE3fLH+1GzErZ E1ddjDBf1Bt9m9PdyFk2Yl9zghGe/zfq3PqoG8kFbABhHhoe6TRP/8zXg4q/ 2/ZNl9JwxqxDnodYD/IdeP9g/BsNu0h5vVku14Psx9Qt34zScL9ReI3Rzh40 aKZpXihjjDuLSwernXvQcb1rLKszxvhTnLIK/kR8LzI91nOlCQ4v1NRgf+9B 67+0RltuNsFHGg/u/TfQg65UaZqKIRNcIcA02L/Ug95bdzn+cjLBJb5Rp95o 9CLKSnMhj3wTnG029zwvthctyLV9Ckem2M2LUmD6uBe18N7VDKCbYtVb1OJf ub2IvE5FQNveFD/9sKVW7WMvsa/FljuDTXHidofh9IVedEEsImrhvSm+LV6n mmLXh1xG7jZckKPjot3yL008+lDW7RIX2fV03M/yRIsBfeh44r3UpM10vC+b amZ5vw8JBuzdY6NFx4MGzIvLG/pQmvF8aZwFHUudyRF429GHzunqqDrb0jGK 47nrMtSHglnpxasd6TiWk/b0A7kfeQ4rRew+Q8eHr459Pr+vH51496BmXzgd e2Qga2WDfvSv5q6adhQdx3+50//Voh9ZLM3t3RBLxxMKu+a2ne1HsfVDd5+n 0HFiyaW1nPR+dO2cltD113Q8OyPmc1R6ACmWZRyP6aLjdfIOS0vrBtCZuExe oT46NtEpDMvWGEBVMoFWjlw6fnL3eKKg8QByWEGzaBqn46PbUqpLrw4g0c/T RyKW6PiSxW+G250BZLyzSw1IDPz8om6nTNIAeuP+FDooDMzzaWjCu3gA/Q0T 3FO7nIGzXbbLbp4cQDsDYjZGyDJwW+S1tLZ/A6i5eYXhVXkGJr9u2XpDhIOm hjzkHRQZ2Jo/4HCPMgdpbLCgtm9g4Btq9fW3d3LQjpEc83ObGDj/mMLx/Yc5 yCjfJ2RGlYEFUz+43WdxkJroi9nCbQy84+OK/3TcOEii+ovllAYDsyacr0yd 5yC5ypyBVZoM/PKASKxxDAe5+lZ8UtrDwN1OLMWFVA562R6sS9ZiYJGIvIz0 PA6S5i5Ta9zHwA4dZmWkTxx0R9TsynrEwMsSetzPfOegltApmafAwAXWHnI/ ORy0YeT0FslDRP2yC7W0aQ7KWIysdTnMwKT2kPPFvFykHarKk6HDwFkPpDZt EuOiV0zSj2+6DGxmldISI8dFfsZdnqN6DLy4aut1kioXxW0PqB7TZ+C0tuId Z3ZzUdBQzNT3IwxMi9Pv7dLhIiVzzlKeAQNPW36Noh3loissxX9nDRn44Up7 VMzmounp3wsKRgys2zo2puzORU9Flwu+IfhX7IWHMRe4iJNO1dhHY+BYCwEj UigXParJvP6c4APS0XNeMVz04IKPFMmYgTnfFNO7UrlI9KvIqD7Bt2OyLWh5 XNQ1JbTan+Bd5lr8xe+4SPYfT949grukql8o13GR4cbgoniCQ74ec4hp46L+ JzJ6EQSrR3eLkzhclPbe1PE0wW3H3Mu8fnPRfE362p0EB1Hn3bt4BpGb9JPI YaKeTc035Giig2hM7H3RTYIb71LrilYPIgtln9xVBPsfTT6vrDKIitp3Xr5D 9KcouWVTzK5BVFd4bvcfYh4fvxS18OkMIppxAkeP4LN39K57MQaRg8GKhKvE /GQZzTu6WIOIn6l3IouYb7m4Xa+R2yCy14s0fk/M37VxNKro/CDSbKO5lBP6 SEadR8ohg0h7ovV9LqFfsSnlV3T0ILoXeN0ljNBX+LOCkVfuICqfC2nhJfxQ eDtr7kfJINq68lxxMuEXpsnedKNaoj6+7PVqhJ+y6o/yKw8MoqdWopWC+wk/ RPx8ET01iCiBWSutCT8u0twc+HiGUFrHDZU4wq/Gn66X/ZAdQjy3Cz60E37+ VfvmfDR9CElmWrEC1Ag9w3U38bGGkPraU7s1if04YNjU4nl6CIkfb4Z2ZQaO /Diyw+jGEOJrXpT7tZbQo2bNL94S4vuVGVd3rSL0CMl86PlxCBXYFLhYryD0 0N9j9KNlCLkW7Pl1WpKYfxUj/c3kEAKvMMnjIgx8pvKag6fyMDp0sVXXgrgP a/r1KH92DKPMD9Fo/SId1/EJZQTCMLo99/ph7ywdb4CIyTCrYTRvJpmjPkXH 34tjgtJuDiOnoeST1H46Ppj3NPH7+DD6GvFlcrGCjn81uByyWxxGFf6WrBZM xwljqhyO4AgynPPtTi6h4xnV3C3TSiOo6V86Q6iQjp8/eV0iajaC5NcdlFNJ pWOJhJr2w29GUNadkZHsADouLQq/VFsxgoRyz7c98qXj0220tYwvI6jgDjfs MnF/K1d8OcUaHkF05YaTq5zp+HzU91l/uVH0cJ/UnhQGHfdcH5bOCRpFUXqn nq8i8iDfS+TYKoMxZKXr49Z80RR/iqeez7YYQym63N+bPE0xp0I26ZDjGPq6 t0/Fzs4Uy8qojLhdHkO7Xl0U8T5kiq+91736/uUY8pFKua/Jb4otJC+/cF37 C4W6vqGoXzfB8y8mqe8WfqE+BbP8Gk9jLNU1u/eo0Dh6qPvAMMTWGG8V5LHj So8jWxm/DlUjY3yCKZolsX0c+d0RNVLaSOQtebPOSZdx1Eg6q9HQTsOJ5o7e Yt/G0aJ08OUDiIZTAk4Pq1tOoJZT7AzVGUOsjoVmQ2wnUFPXNwHlHkOMyen8 P09MINF9O2NF6w1xd0S/YoTXBNLMso9NSjPEa5JtLYfCJpDa0eXH644a4vgK 04qUkgl0rcbQ1SbTAN9drpkouXYSlTq97hs0PoKDkxYZ06OTyPDCwtd/TF3M 09wNJRd+o/07xFOSG7TxRu+T/maqM8hO64+rlrca7p+5byH87g+C3KZg77bf yHDA9eLdM7PoRgLf4Ti/7WDSH7V5zZp5tNVfZe3ezIMw/MEhqCZ7AbFGeCki dAPYKtEif5j9F9H9k4pvRdNhGZqx7/z9D1WNlYUITh8D/THr/9aa88D9ALMX +3ZZQqLU1ebLx3nAe21W9epDljC9LzO304YH6iYPWE0bW0Jy+IJzrAMP8HO8 +m47WcK88sM2IS8eWCEur3gq2hKyHH4UTYTzAEfVNi1nwhLE29iBpZgHLr3Y 9Nr+8XFoK3fktVbjhbmk7KnICSuYONgue3EbL0yU7xmqmrMCgfemmsnbeSFh p8OVP3zWsKtMy5mzhxd2noWbaIU1RL8Vrz+rywuGNI9X/nutwbSwJO4mixd2 7zVZuBZkDVVPpNTfRfHC90uPt04J2kDX+nCD7nu8MM3vS94jYQMzj5ccSPcJ dkcbfGVsYH3qcIzBI154wnHW7lCxgeBEvPDtOS/Md5oHHTG0gQP33ap/lfPC Brq1THaYDbwMrWApzvBCl6ejbgQfE9IN61aFzPLCkTKKu/cyJsSLNDWNLfBC rc+DTUclmRAU9VPvLR8frIvNNZ1UYgItbn6rhTgf2IhJCpcCE3qfqS/d3MwH f/0VMm8HMkG0+mHSf/Z8YPE1Gs+OMoE37LEVy4kP1EWgLes3E6YNM6iVLnyg NP1bxXKeCd8bXofc9eSDZLMRr9sCtpDW0uS55SIfjA/2Hg5RsgUtjiCciOOD 5bZTJUnHbOEkv093QwMf1B26cNE6zxZkFT62Lnzhg5pHt/y9X9pCwx75z5u+ 8cHK6nvPrxfbwi63ynfBHXywVmXxSUSFLVCaVyTsGuQD71ny1x1ttvAk+ZV5 Ii8JenMGT7X+tYXjxcuM68gk6Mht5ZzgY4HIV5bOrAAJEoVvB3IpLPAWENhx VJQEZYKGI81iLNDxsBSnrCZBaPP+JweVWNC/b7bWXZMEQj5sYc9DLIgzp5XH 7yZBiRivnpseC2ieyUXVWiQQzVO/ZGfIgsLUI+lKB0nwKS63e8tRFlwTenD9 mzEJxFw/A9OeBetb94K2Mwm0/SlClEssaJuI2O3qStS7zJR59goLbi3r3Xrf nQS78jvufbvGgmntcPnJcyQ4Qyp4HnSTBRVp7fNpQSSQCjimdyqOBSfOBrwU iSfB5/DCueA8Fuza3vVS5REJPLNLk01esGDZFLzSSybBQWEjL4lXLMg7Q3kd 9JQEJ2KfXQ18y4JFrztvpgtIcP/zX4vBShZ8Vp9+I/GKBD4uCfLuNSxInbAo 2lpEAs05B76hWhYYeMkVu5SR4ArVSanqMwtiPZ+97awjgcMBw7srvrPg1LZl JXMNJLDxAuVjHSzYP+5WIt1Egih+/8aQHyzo89j+jt5GAl+ZNuuWHhaoe7wr regnQc2RP1sEh1nw0a35fdZfEsyKqNW8m2XBQ7Vd5R95yBDHEZFym2eB12hc OYdEhrKeDHuJRRZIu7E+KC4jA++tor+wxAKH00MV0dJkQGLvZTX52bBzM60y X4YMP/XXWMRT2CA4klPZIEeGd70J4f8JsCHX1btKcB0Zkj1r22OXsWHx1FJ1 4DYyFPymLriIseGzikPNg+1kEDEN6b0hzobUoYqaVzvJ8KR1pDhBgg0Gp8I/ Tuwjg6P2Ha0MKhvkVMY+LkdkEC5v//lYig0Tg6a1qofI4FW+8Wz0CjbEuqyo czxChrrdw1bWK9lwapN/3RUjMnwd8cvetooN+wfb6xJNyKDzQHN4geBe5+RP bWZkIPFfWH1elg0vlUn1M5Zk8LizUVR1NRtCuU71kjZk6C8w4HwheJvz5gaa PRkmR4wPU+TZ0HVKwTPbkQzh+7boJxJ8y40qLupChlBmX+TmNWzQ8hTI9zhN hrMJJnI5BA+dWWB89iD6iTcd2aDAhjjv8altZ8kQT/+4cJdgPb++e1E+ZJBf lkKbIXj6fKvmpD8ZjJxLO2mKbHgcWPeNEUiGM0zhzAcEH71c5ltwmQw+Gt6v OgjmCX6xknqVDOZXuH8lldiQc+3Zm3M3yNC+1yIIEWwbkmD1NYwMqxNe7Lcn WCQ8cl4zggybds9o+BNcfOtqQkwUGe5NSrKvEewS6bf/zz0ySC9RPlwneOXd 0z8s7pNh3UA9M5Dgqmj2pdfxZLh1/uRmF4K97x9TWJVIhn89X7YYELw2Xh/7 pxB+uEc9oUDwl4f77L+nkWHtMY3aYaLeoKRtfFrphB47djhkErw1dd3j+Ewy RMasU7UnuDNtpc5CDhnoKmJKIgTffCY8YFNABrsRsl4WMR+tjKXrJS/J8GKD dNxBggezfm+ULyL08bCQ/kTMOzaXW32xhAyiGR1lRgTrFnS4dJWRiXwovYcJ vaYLPwuhD2T4s7jyjirBqa8/ZCRVkeGuGeV1mBwblkoyR+3qCX3y1pxXJvTP KUuKeN9Ihs4XEdSThF+Y5fe2rv1Khhip1c0PZNhQVB3g1ddOhg5JzdJuwn8u tZ4SOl1kmPhPevC3NBuk608UpPWQobKmasci4ddzTUbTToNkqP9itmWU8Pfa byimaoToL+Lh92ZJNjS27tilPE7sj9a1tDxiH7b8WO0/OEMGfW+FewbE/nC5 IwuuJH7Iq/IvnRUi+h3++bCOwg96Nx4bhgmyQWesWVttGT+cOnxlXJTYx5Sp t5fHxPlBFoUHzZHYYPP3JslrDT/I2+Mso7/EPeMJSmtU4ockpv3ItQUWvOHz 1tXYwA/qwlbaL+ZYsEKQGTK1mR/+KH1cNT5D3DNJNWGfvfxwnHb3Yd8YCw64 uw8l7OcHCfc/00MjLMipzqkuR/xwLe5NJWeIBbcDNa6J6/GDSOL1hg8DxH3n 7PqbeZQfulZyvYSJ+1VbdHC89zQ/3Lrpn9D4kQVaUlfrhTz5gTOQr3egmgUZ HhWZ6mf5gc+1+kRqBQvC1um7XPLnB01bpSnjMhYciaD1yFznB1qZssX2QhZU 2lk20xP54ZxS/sy2hyzQfBuX75fCDyV2++PID1iQtqI9MjGNH0zMPz/7HEPk SS2TNprBD+khEssNIllwSNOhMuQ1UT8pdKiGyA8s4P66tJEftJQL3i46suBt TnCCGokCsm9WPduxngUUmrnsfQoFLr/ydfVTYAFjSPkB7zIKVKnqDOXKsoC7 rj62RZwCZu/mVy2Js4D6YOXdoDUU+NU4gaSJPD19NSv0614KSHVsyFJutoXV x1t8Ar0IDr5yrtWXyPOZ9GnOOQpo5hq/KvCyhfy7AecYfhRQ4VV/HexqC/r1 imc2XqJAcYLCNA/LFs4dOu3WeJMC5YVB9r46tlCnxnNi/TOClxSP6IrZQgCv Kv3TDwqcjXZ+4vOQCRwd4baNPRQIVzN7IhLDBHroKPtKPwU40jEtcRFMWC+W 67lrhAJn9s40RF1iwic5zcjkWQqwfletX2IzYc2eAw3eVAEInh1t/abIhHKP ozR5AwFYMWJp6xlvA2oFO7760QSg/sjm2Ow7NhA7I8VsMhUA7qwctSfUBk4H tp4OsRCA3q27O5X9bEAqnHlz8oQAdKq9KtM8ZgMnn5ysrbwkAIKMDB+akA0s 67xwxKNQAJ76u9HPuxP/j37Pl0e+FoAa37h3Yo7WYC/Z1pRbLABys7tGHlpb w5sjO20nsQBED/WGJ+hbw8mX42e86wUgT2Z4UkXJGt7fdky4wBGArBOLkrea rMD/oMmvG6sEYcI5N+L0VisYeKoUnRQoCIfbcx3qai1h9FrPHClIEN5sm45d XWoJUw4pbJerghDJkthun28JPApKmzXCBYGuGJn66b4lyN5XLC+/LwiZymIx 6x0tgR6iMDFQIAjzWxaF2uctoMRZnqY2JAj+NuL9TooWEL1JhlxkLgQ0tVAu k2YGUfEnq+0VlwHPufsx2r50sI62bRDhLiP6E3UxsTsCszpP5pJKhUG8zPyp iPB+6Bs45F8eIgLw20JLym41pGprrK63Xw48QnWaHf80cPZ1HwnnLaLQmfpB SJSti0PMTxiRZkRhV3kfc0qcgXd2pjwPqRcDO7vQr/P6x3GcSkJ2vZE4ZJyR 8Qrfx8aXcUScUZE4LLY5rbrsdwIbrzZ/UrteAqy4ZqVpRs74oEe1jUSYBBTl 8N2z7HbFSXIO6z/NSEB3Ykei8lsPvP7Ds1gTG0nIn9Ms27f2DI7aUq7aVCoJ yypa/KWbzuKTv8lfPqpSYfVsl7R+tDd2yJ9SDIukgmepcIrdWl/sFnxs0fAO FdYH6n6TVfHFPscKW0XuUaF1eoHUvM0Xh8743I6KpYLkyA1DbW1fnLN3buH+ IyooSGaYzln64rn3Sy1PM6lw+8DrluURvjiqSSSiopoKp7TU3z6a8cXxj91d bnykwrBH/WapRV/82Lvh8JE6KtA6ZRxD+fzwK+mo+boGKpDZThtcxfxwpzXV pfkbFXJUDEolVfywcp/M4d4+Khx7aDjwx8YPqxdeWJM2QIUemqqkgYMf1rre MefEJd6vNBqLc/HDNOVHeUPDVPCznn2m4eOHz55WXDM5SQUbjg+f/m0/HLj/ yhzx7wTM7B7vG9F++Pry3q/eM0Q/L1pDP8T74bjcxzdnZ6mgnkKJ3PXMD6cG kZ2L56kwGC9xyS3bD2cynA4FLlLB/Y+hYPILP1y4tkr+wD8qGL9drfalyA+X /t44t7REhZaJUe5SmR/+H5Ira8g= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-379.9999770408152, 124.52378917392011`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8VG8bxsealDIzKtmShNAmvxLluS0plCgtllTIluzL2MeQECXEzERK 1kqpVEh6bClrdkJkT1JkJ97z/jPz+X7OOc+5l+u+7rPV0vnUFU4SiaRB/Pz/ PznQknevtZ+6Vlqf8EpQGJQ3SR4/J2mC6huHKzbrh8HKx+IQSUl7NJUnbma3 MQyScfQWHkkftDLq2PAg5zo4Hva8NrslAl2/HTvj9y0Umhbt4v9sYSG1DQuh ZbohsKqzT/bXlmxkrNJh1XWEDu34vefYSDaqWzfCB5vo8DiDWfbzxWPU+rsg KKshCAzcDC6Oaj1F7CDGtOjmIEhYXZgwbPsctR7Rjb3xNAAoSZ84J9peoncr 4uu1B33hYVWK688tBSjyjd6hH0meMMV8Ld8TVYBSd3Mw2NqeoGNb3d84X4D8 g19ffDPmAWNcs2cKmwrRmszdfYrqHqBy2EA14kYRstr1lmPdkBt8eb7EKfv7 A5K7uKrfTtcFgqoU9fZeLEOXUFjorQIbyHrxVubJ3TK0fObuiYdSNtDI1OTa XlOGGmnMcJ+oKyBte75I+GA5ssl/YUuztIYqrtBdJGoFipapNEndZAkbD3dS 6j9+RPkekdK042bw7HlEp+OuKpT/4MXnbu0jMEoZjdK7XIXao+TFG+21QNZL T10uvgo5FnEEaN7RgAeH1jzsn69CuWEFH6Tq1SD2c5SNaUU1emCze2Xmozx4 9d+eOGpei/4c3Gk6Rd2JU9ZUh5CPfEGFKeMTN/MMsfphP3O6xRckEef7G/sZ 4S4nhf9+e39B9tjLp17jFBZuvDlU8/gLupYvtsG/6jS+wzyuGy7YgDx4rt2S rTuLQ7bXrVvpbEAnX13ttk0xx7aogTXm1oTYPwXENd9aYVLqTGHnzSbU3ZYv GLXKGjO5xbqq0pqQYdGrS6fPWeNPn20kslub0Kqbl6zMpq2xnPFS6hXVZpT+ Zs06UwUbPGIn+/QbRws6LfrOzTTIDtOrj9fWirSgcykKgg8r7bDwLrfxon0t aOnKY2WH9fb42N+iPfeutKD281Um15PtcXbAqdfnPregH12OK8OvHLBDbEDx l5hW5HbF/E36Z0fMOZ3a8yG7FYlSi7tV+a9h9rlPpOelragwov7eOb1ruEqM qhU91YqkNQ6J7fh8DStkZlXqnm9DP9nzP5RLnPDYu6YvpVvaUWU+M4V9wgU7 De7oz3vWgUQuSH4MWnLFvRYdfCWfO9C9DTnpOZvc8On28F21Ax1oZtjSi63k hlWqh30GRb6iZ7lyz1/YumGuF+mCG298Ra92HWrprHPDTP+t6t4XO1FPD9lV 94475p/5YhXi24nIC5/3BmS54wBnesTtu52IXjs56vbBHVta9jRnVneiJO8J nvQxd6x4LPlq+4Eu5LRRaeMObQ9cQt3MOijYjdpE6Fu/Dntg5ehPxUcUutGb 9y25WoseOIOXNmCk043GNMZ2uq3zxFHzrbsd/LtRrh48lVD2xGd74j+yR7pR Jl9fQ6G/Jx59LDi1iL8h5bnfunJcXthcGm/m6/qG7LCb9wzFC9cnOyOh2W9I c+0RrygpL5wXUxepuLMHuYecvi+o4YWDvKK2XmD1IG6p1DuBfl6Yf2uobI9K L/Jf/JcoPOSFPx26szvwSC+S3wonMye8cNj5+wfET/Ui/fMvI1b988KcMflH za72ou4Hs8KHqd54YXnMti25F0Wwv8bRD3vjfJEFZ6/HvYjkVHcu5ag39tq/ irbhbS+yuaL+IcbIG09e2xp++ksvUh/6sGrM2hv/7DqTVc/5HVEbs23CI7zx 4znLXKf13xHwqO2CWG9sJ+SSLyD2HdmbnHxTzfbGA/qRn/T/+44+XYm+a/HE G3cVFo9U2n5Hy5/MHL2rvDG7tfqPjcd3tNJ+QaihwRufn2yf4wn+jvakZyes tHvj5h1/+bTZ39GhzDVvOoe8cQ1Tdgeu+Y6exKTuiSfRcGSe8t6LHd9R1/kZ PyYvDR/7onFwefA7YlRK5LutpeHyVea6h1a+owfn1aOzN9EwY5u9UeeaPmT/ /vBVXnEaBuRl4ivch2aMpMoPStFwkVeMff7ePjTuIuEirUjDvrHJrufU+9DG rLZVXXtoWOXZY58ZvT4kc63gkcN/NJw3WB6hbN2HJLVyXATUadiNo/FOk0sf anm9MLhVk4b3iPew3AL6UFXg8LCADg3nGM9n5yb0Ie2wiM3XTtCwowvvy5OP +pCxjFB0ryENy0dRC8ef9yGDgREhRWMazijbWaX4uQ99jL09om9Kw9Y9qo3V LX1oeleDt+QFGpZaPPrVoa8PiRw5lFp7kYbvK1mOZi32odqXfQYvrWnY3MB5 8ihfP3qsJyc0akPDIg7+C0NC/ejj9ycLC3Y03H49gjNsaz/Sn2/cNuhAwwkP E/i37+pHKS4zuVmONGz8/hGlXLUf3bthWXbEiYYpHbkiVkf70d/es/5FzjT8 Zeq9FKdxP4oI5f231pWGbwlWyz+81I+efk+0OeBGwwUHxF8bOPWjTI3IPyfd aXjAwhkt+fUjtfQ96w950LBgWMnn7Ih+tME6cmyRYLUcqvG5xH6UHHL95W1P GrZpvvKNO70focLlyFmCYxff2r182Y+63EpS9nnR8Hsp/r8XcT86/+WGiDbB I7rmAQJ1/UjgxYL0DoKFXJ+tetfZj8RfvhjpI55HTFKs3Q/i+r59t10Jdvhw SmzjbD9SMpnSaCHenzCUllHGPYDEqCby6wguEZjd40oZQEuiea5iRPxjyrrv JCQHkMaKjgaJyE/Y/N6Rmp0DaERUs7TAhYa1Qn7V+6gNoJXMcnFdoj5Oj5Gp rO4AmnvV5f/sGg2zG+4MNJ8dQGa7bvCNXqXhirl+J4b1AOIcfv5j0Z6G/2zZ P7/bbQDFxu7VHbClYbGj4SHdQcT1upaTj67Q8FGnrwI3owcQj9QZmYNWRL+L AqWGsgZQ3KDr4A9CD5/7vzyNezOAuCUVtvCY0fAU/7YDGuUDKGf9bNXsORrW N6nUT+oZQKcctESsjWjYi765VffXALp549y6b4QeUzOvXppdGEDyFekb9ujR 8Nz0es9TGweRstWFZXNCz9vELVdWtg2iddWNu1UIvRto50Xk7B1EI3ZsobGD NJwee/4+34lB9Ew3MPEbMS+ndj+sLA4ZRBU3fL5OitFw4Nm/Ro53BlH3dNty IjGP2QFHujanDCIdpVvUTRQaJtX8+ONROIjsdx558oiY5xw7JRGFiUF06uGq 7oVf3rj9dmha+/IgUkgrr3Uf9sbcb1t3ha0dQnP/ngxX9npjUx4/re+yQ8jk xHYlziZvzJda5phoMYQidQzMy157Y8tO4w9cNUPo5H2DRywPb8x/7/s1144h pCJSYUty9MYvTZ3EeoaGkMXWuLkjVt6Y6+sNn0KOYfQtfes6J8IP09oL97ke GEbIatv4f4reeKhFMutb6jAyfRVBK+v0wrfu5pw9njuMbC6Fpco2eOH9Z1R5 Ct8PowbV1FrHj174RvNpy7vtw6hH5+xLdq4XlmsKEzu+bgQFIVV6eIgXdvgy FlPgM4J86noNq7Z5YUqMD5K9MYL4jA+/M9jkhQtP8o7Hx4+gM2OWx9/we+E1 9Vv0XZ6PIDcXW4fdE574ae0pHtnBEUQSzzhSW+SJx6vyfeINf6ClkvyqZgNP 7FoRauksO4o6ZWriFyw8sMSADu/MvlEUfncq7j9DD1zNufqxP4wiwzUiAmYa Hng7RE9EmIyiyokjLVe2eeCOwrv0tJujyE93S2zAkDvWyM243/F7FDW9/KRR Y+eOyfc+fdXK/4ksi6+aMS3c8AuXtaeFdX8hz3Bj8jkhF1zDpvrknP2FhFQe oYxlZzxULpKiaf0LOZUFavo2O2ORzTt+Ogb9Qtb21sNvgpxxaMmRkJLXv5Dx cwuZiGYnfJYS9MpBahx1Ja75Vu59DS+8mqC+XxxHaS9jfHZlOOCHfldH95z7 g/jm8aVNz60xI2XJaGpsAnm48p9XvWSESU29UOT7Fz0w3SqYc/AwyHjY0Izl p1FmRkcc2ngZBqYTz655P4Me5vFZxCpcA71Bh4BY1zkkXN6Z9yvDAwwGYhQk JBaQb536MYExH6hRGGg2l15Ab8uPFysv+4C++4HAe/ILSN2uxs5Q0BeOcX77 InxgAfH7hx22VvYFTUkFL6rhAsq3VhD+5+cL/5lXYD7GAlKhZ6r+4vMDseb5 M38HF9ADlfqOu5v9gS16YmXv2AI6uSiyar+8P2y2epDlMrmA5Pd8D/+s6g8b J3UWfy0vIO7vSc5VZv4gKBj/YGTTIvJ4H0zdl+wPXMd3/ezWXUQheQLCbPEA GC2zpH/KWUQB7mOMOKFA2HKn3eFW3iJ6d6VStlU6EIwtDM4Yv1tEK3OUJb7/ AqF47qB876dF9LUsfQM6EwixO8nNs/2LiOyrrzEWHwhqiR9kZUWWUPSD32ra 5CCIchCrvx62hCQLPscW/guCkgOxBfrRS8jta3TVAg8dZrj50sjxS8i5wHpm vQAdLqX8pSU/XEJK0vc0torSQbm5Sup1EfF80J2TPfvp0H3Yx2tgcgntqcxP /ehIh13kVnGti//Qn/WNVTsb6TAUPcS4e+Uf6pptm2xqo0My/+zw8NV/6Jmt YbhbNx3Wcgu/jKL9Q3BS4i9zhA6jMyY6rXf+IZOvwdGRy3RI7+p2si//h956 yvCvyAWDWNbgh9s7lpHeqgb7LbRgaJaeke7bvYyk0oct6v2D4eZD3kjl/cuo etgjxDs4GBbYssYdmsvIun35dG5kMLRH249ImS+j7xs+9ZUlBUOc+y/BN7eW 0WWVF+D6IRj40fTlrr/L6EMk52DHcjDQNOT43iwso9erxq07ORkwpGX27DbH CnrjJhrQxMuA0mMlC5rrV9AjAS3nzHUM8D0VHZctv4JU9zTLfxNnwM8r2yu8 Lq+grSt2UddVGWBqd/6qod0KShdzr/x9mAGfHG6S5Z1XUFZqGt1QgwFpzhMX uv1XkPwluu30UQaY+7yf0WKuoGpDnm81xgyoiTojR65fQXJDukovHBmgeju8 brRlBaH7m9IYzgzIuvPOo7xrBeW8bA3Qc2NAaMLWEu/RFfTf063W770ZIPFl RvE3JwmedUV17GYw4IyRIMmclwQcRY52eaEMiGrc0fRpNQnKRWLP7L7BgIVm c59UQRIoa2zR4YtiQGtHacUZCRLo7N13WecuAwTMupilW0kwnixUFpDIAO2u 6au7t5Og/x/d9wmLAS+/yVFWK5Jgl83A4I9kBtzqv2VRdJAEpAb+uMl0BlRY Z+3dcZgEFk8srndlMmBpsIQ7AUhwNcu1oiibAQ4jU4+djxLnu/2ncCmHAUd/ mc5KnSFB6YF0D6U8BtwXCmkKOk8CG/duw8rXDJhSe/K8y4wEa0M/1556y4AH kYu2CZYkCO17n3GikMhHNql9tQsJpHd9xY0fGGB4sjzPxp0EvkNmt8RKGJDh NRZT5kWC30WjM+alDDhdcUg3IIAE988mJZSUM+CpZXfBn0gSFLM5VzZ/ZgBn JE/CiVskeC8eESdcxYDzL3a6Pb5D1Kv4eLFANQN4SIHy1kwSqMdbNnfWEP2U zeAtuUeCqedZxXm1RH0M6vrEU0iw8RX1cGgdAyySJe61pRP1ibWe4v3CgLxy HW/lbBLseXdesZBg/jGn03eekkDP+taMVQMDLlETd48/J8HKaPwp7kYGvFX9 sEb/FQlkppbRPYLXWQ4PZ74hwQ0Hy2K5JgZYR6wv5y4kQUnA+dqnBAu2X/Qv xiRQinS9x2xmgM3KjfOi5SQ4tqfNhNTCgCKZXGVaJZF/lXGmBcEUg3bBlioS MOrjQl4RbO9J+rW3jojvL4wvE4yT5D7faiBBiszaYWhlwMZyw/SfzSQ4lZB1 zYdgx5+04GPtRPzZNcFZBJdSHl5I7yRBxcrebXUEC6t+PsjZQwIpt7tGowQ7 XZ7YcLGP0OP6t2v/EVwevnny3SAJOsVNjXnbGCCaq1En/IM4b+MRuf+zW5v9 Y88xEgRlaIQvEfd/Wr4T1vibyOeZmMcPgiVkCi13/yVBrnrGzxqCPU70qUfN kKCP+WI8g+AqD37RH/MkmFDcEOBNsGSS0uyRfySoZD5OUCfYq8y0KZXEAeMZ BmpLRL61o4znK1wcEHjiu0MuwdKUJzfNV3FA39Mj280I9j3YZFvAzwGf1lk6 LBH1/XJpUWvjOg74ObBFNZ5gmfBtku5kDliovBovRbD/c/2leiEOcPP6zyeT 6E9jq3u7ojAHeDU5j0gRHLS9PGZIggMorWSbf0T/W4+POWpJccDUuJOHOcGK HkK6D7ZzQAZbVuAloZf2UmsOU0UOoP3K74Z6BvzR+CoSsJsDYkUb3t4g9Laq 5KTyAyUOePj42tmPhB73f1C1HVLhgNL+K9/lCb0aqOfSVx/igDDb3lpDQs9X 3m9nKyIO4F0WC3Ii9B7/TrDW7QgHaDXv23PnEzEfqmFDd49xgHQq2pNQyYCy gsWVfH0OsEl2mY79yIDJt0NKK0YcUNxYXO9OzNPJvCLmTQsOcNg8W/n/ebTZ p/Ty2WWiHoO803eLGRD4MrO6wZoD3jJcRwzfE+fnxi5vusoBpBbxbc+IeebP sbNO8ybimSz5xUPM/8d0oT3vYzhA/N7u9QpZDPgmHanbG8cByRJ/3jtkMGD6 0YolVyJRz9ZdB1LTiH6ljt7VTeYAfv6gyLkHDGDcx4st2RzAqW1UrEn4l3qi Y+V4KRH/8WMvToQz4OzGvl7yR+L6yT5l/jAGXLt7bkH5MwcMSFlEFIcwIClO c6dfPQfkv/2esS6I8JvbwnGrujjgUGtvyXFPBrwOL7eQnOYg/E7xF1wi/Fqv WvjGHHH/kudt9QsMYK9tbPy1SNT/lVCykikD6DE9Ou84OUHGyPXfv9MMOM5c 2HVWkBPYGjI/thL7oS9zz8pNBU6g50jLpygwoMX+QMHkLk747RMyyCVH6F9B 3d1EiRPig1eLXJRmQM5z/WGZg5wgzGUzOSfGANpbm/oSHeJ50rJfoQDhF5VJ KbOXOUFWhrvD81cwcEQ8MrG4wgle/c4PNH8Ew5TeY2qFHScc1Xk3wTMYDB11 b2/EOnNCdStjv0tXMKS1NjrvDOCEb/PO9k1VwaA6xAdWTE54MFDDaEkPBhse z966Ok7Qasy53mAcDCJbPrctNnACdhQIrD0ZDHUq4vVyLZzAcLcyK9ELhv2O Fe8ZnZxQmvvpcwwEA2/Thnv7Rwg+VJZYpxAM6Q/enLnPwQV7VbzJlaRgGFCb q7qmzAXXplbn5KXRgXnmeCn7ABccWvpW8vw+HY47PyioVOWCj9qKQ6lMOuSl HsvaqsEFHT+5rFyj6BC6mnW95QQXCG/vO/vcnQ7SbQfhsC0X5BQEeucCHazc /F6vZXNBGusZZ3p2EOxX+vZ6RzIX1Ahr0n/eCwL+SXij84ALxEiOottuBUGu K+9begYXDOzSeXvFLQiWXO7kT73kAuVZ2R4V1SBIcM5811XNBer/DKs3VwbC Z8emkqf/uKCu5s/D7pYA2G2rUHf8MjdwDmvaKX/yg2/2W5xzrLlBddRV2fq1 H0Q5UgXX2XGDehz3zZBUP/jhumhU78QNvZs+/Izx94NH/tUtRv7cUKNvvmZ4 tx9sir3afTaRG8ptI09ej/OFlaInY5dquSEUKcg+N/CBeoriGs+DPABDm3b8 vusF754x7ily8UL+4Qtvk/pcwI9D3rCmmxfO/1HBddgK+Lt8jznlrYLcGYXt t7dqwmDG1vgUfz5QCbEru0U/g+PlNnMXnFkNUadC1d9rOuIYtk3lZUl+kB40 VMi974VN4y/UrR3mB9cn/ltmJILwnHb6fErxGnDfl+fiqhyK+wc1aaU31sLe c4qrxujhOPXwXtHaywLgwnuAJ0ggGudc9yTb7lwH1ZvFVINiYvCNM1b6XNPr YFqdx+eqeyz+r+th9o3a9ZAUJpvofTYeM3fcy6nVF4TcQ5nRPD/v4qm/Oukh JwQhvl7sguvEXXyyeDLp4ElBSHP9cKZj9i7mPa0XlX5KEBpW3AqSuROwp/+8 Q4CJIMxZ/+OfE0/Ap+rPye20FYT0+kudf04m4LWeQo+iGIJQlNDh1J+bgINw NFO/QBBcyQ71J20S8Wg3jp8vFIRPOi3y964m4rOLf2MyiwTBwFFCr88lESvu N43gwoKQVSlZY+WXiNufyPi++ygI4TxdaftiErFS4gczhWZB+HnDuY+7IBEP XZuQWPNbENQqQ1wvrmJio5vSogV/BKFU5MaFLWuZuCjr3CbbSUEYkeet/SrI xHH979eXTQtC0tmoXdoiTAwmkSS/JUGQErQt71VkYrb2tr7R1WTIHnFnICMm PiF6Jr1KmgygNnHvegITMwd2YTMZMjwLar/pwGbigRy+zjFZMkTOKVro32di fygSXK9AhqG5wUekDCZ+emWb/+m9ZECS8uEHXzMxf+7Eqa7DZIhL6jPpb2Ti Su1bpPGzZBCzFrBdu4aFKevsRIPOk6HI0zfbYR0LW7Rp7Bc0JYPpIcvkcjIL z9hPX1W6QAbxLylxV4VZWOa2eZuXFRneunXdvr6dhUM75J+tOJNhmwLZZ0Sd hTWcKs3IEWRYd2zq5UUnFl5o/6FTHkmGyVW3+6+5snCe1lol7ygydJUervHy IM7bbMTXfZsMExe9imm+LLy2/GteVgIZ/BIbJg+FsXD75nEBSCPu593BUZHE wrGhgvOT6WQIPTXbGpDCwvq/lQbSM4n85FKO7k1l4eJy78I1T8jwaUZz8kYm C6c5c9i2vSBDi5u76tQLFnapEMJOH8ig+/QMT2UFC8vvOfBkawkZLB67vpD7 xML9bJOE5lIyrMb1naFVLHzW5b6j6kcynFzWTFOsZ+FDonKbeWuJ989/aDzY zsJ8rmpuyV/JkH9aQEL3BwuXdl64YNhFhpCgb51GP1nYT4d+jOsbGcpUOJaM f7HwuGiFhP13MlhePmuuN8HCzR8NqpVHyPD3ktS1iTkWThGzlK6ZJsMl+SjD 3avYWHWfwi7LWaI/hYi7hI+Nm3WnDszNkSFofs+7E/xszOcdpi+9RIYktdM7 zwuwsUvDYzd/TgoIzlou7aGyMf+Iuz+FmwIf6DWP2EJsnLZ8KCyLhwKBube0 VjawcbtCPauZjwJZtnk2BcJsDGF/seJ6Ciyc/7hhQpyNvyYVVZUKUkDutpKp 0hY29nh1vfk8hTive1+UkyQbZ/VuGgndQAEu0v1XbVJsTFY7tL5blAIajypH HWXZuO936IVoOQocVPvR8HA3G/vzGthuk6fAMQ9vwzt72Hij+CbXAgUKGDr4 ZPrtZWM9vezQwV0U2Pw3tQP2sfHLtNonh/+jQDFtn3z0fjY+/i7hddN+CvC1 cR47fYCNhxoufrBXoUB61cg+IRU2FlmZaLyrRoEw+WaXsINsHGKyceGXBpGP ia6Z4iE2lnDp4QrVooDMttGKTwTnh2UJiByhwJyk7dTFw2w89kp1q84xgsf7 EgPV2TisikuhS5cCHfkm/LyIjSW/1yi76VNA9EmSWjjBxusuHrtvQAF5/oAW f2DjcWm5U8qGFChvT1D7TXC42oRZlREFMuM8zcw12LjILsR5xpgCtRn0MhlN Nj4bdNwn6iwFFmt3rg4l+M/dDSFS5ymQEPSQq4tg6bLMBAMzot5qA2R/LTau U5xL6zKngGrbg4pSgmkJx145WFBgPE/OglubjaVIrJK5ixRoFj31FQiutv9R H3aZArxtf1VoBHs0HfwmZEWBrv8GaY8JljgcOZZqTQHq2mVmG8GfMr4u7LGh wOyLjcwVgt0EFVZ/sKVAMDefp9QRNhbz9dt0wp4C3lee7AKCK/qrt3c6EPG+ +1p2nmCnE2LK9o4Uwh9c9jkSLPzWUXP2GgUm/Y76+xJcKvne8LozBXJPqCWH EOwYKXCR6kqB6X7ZuzcI3jh14dpDNwqY4R+WYQR/uPDMb7cHoY/RCzx0gu0q lyPee1JA4fdlPw+CKXtPMvW9KWDS11RmRXAROyWjg0YB/wux3ScItuH+k2fr S4EYun+lEsGCTlA27UeB1ZOudArBBW0xDSEBFFj5dmrVLyJfS43vPeQgCugt rpiWErz2yd7xFDoFHgeb+sYS/EaIsbSTQYHRfdrWFwi+FNjIXxRC6Ms0ZdM2 7f/Pm9RmvesUkK40iOsn+vPKyF22PYzQy5f/Wu8TbP6u7D+bcArsOqPSY0ww 73Yh7akICli9V83hIdh0Lu+SYDQF8nyb4s4R/ee25HG+f4sCz4/893iO0M+z 6jMBijEUaO3ZGRxPMEfKDOtYHAXajtEdiwi9PeY7mtUaT4H6L9mBxwg2dkt8 Y51AARv26hP1hF6zjqg00VkUENchi9QS+j71PPz7unsUGJCL3qhN8KJwx++k JAoMGgxXvSbmwWDMZ21BCgUOnRg4G0HMy3TsuyMT6RRwie3t/kPM1/2lNcZB mRR4cFze7zDBx2zMLQWyKbBGvKgylJjHpIP/Anc8pQDa6e3ARcyrZq96/uWX FLjx8FE+JuZ7TPf2x9+vKCDbyXjZp8TGCa96mgNeUyD74f7TK4Qf/AijT7Dy Cf3ajYXKEX4Rs7NUvrGY8BcvqyhVRSIfFbPVDEzoYXxTj4gCoRetqeG9pUR/ s9W7pnYQ82gik36nggIVVg+/3CX8SD8scotRDQWerRULuEn4leWdbcukOgpc sXu/rLKVjX2Tirpy6wn9dl6W7CX8LuvlOEuwiQK/SDfVRQk/5O05JfSlg5hf cYdS7U1sLD76czKok9BnrrzkB8JPladDG3Z3U6DHIJe6j/BbqzVvb93upYDp mYU3q8hsjA+Irj45TIH3HprVVoR/+8X0/6udIvQZNksZWiT22z3/roAZCnwk Fe6fn2fhxxkb3u2cowDdzLSLh9gP7UVHadGLFNDUOZu1ZoqF9/94Mnmckwp/ BE5t/Uzsmz8aHsPV66nQciU7kv8rsZ9OCHz0I1PB4Hin2us2Ft5yPiNNgUqF GI5aM5MWFjZwar98cyMVZkS1+6O/sPAT9qEuPXEqhDxa/J35kYVt/nI3fJan Qq4zz8p9Yn9aPNauM1ekQlSZy7H1z4n9eDm0+vdOKojsFazyecrCOvVcHzfs pYK/nq7bYWL/yjzhfHf5ABVU3M4fDiL296AlKX1eiwojD29P/7zOwtaNi7Qd F6hAn+KpsTJmYfMINa8iCyqwgySubDZiYWPwcz95iYj3TrjI5xMsrP1s4Zqn FRVEy5dbNx5lYenIecsSeyrk/zMOunqQ2N8as8dNvKgw0V7ZOifGwpYvJiUj blPhyas1a+73MLEj4/SS3h0qfLVMkhPvZGLP03lta+OoUCfwoj6+lYnDpz1v xSRQwdLo4JtrtUz87OD8YmIyFQQDSisrCpl4vmSlNeMJFSxkRzeti2fimMa1 0eWVVPB1F/WbA+J77tE1u7DPVKAYXWoNU2PiRx51WseqqSCzL+eewH4mfrMx ZqG6jgqlma8ucSswcZcp1a6phQrt6F9hghATy/Zv1urrp0LRfaWRE0OJeE+e r0TaIJHPOy6aZW8iVr3eOX9lmAphnzOsnL8m4uOyybk/RqmgajKv51aXiN2u SkpMTFChcUBOU+xNIvY/FDz/8i8Ver99Zf59noivC/Q1e0wT8VIztcuyEzHz +aObc3NEP4V1mPrJiTiVzm1buEAFkp+3OndiIn5idEXTf4lKfA/S978mvofz pD6Kqy9TQU8zNsgiMhEX/5WZX1mhwonAXmFSaCL+Hzi+ek8= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-1681.3824049218067`, 719.999559183729}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k4lN8XAPCxVLLMjOUrSahEpWhRluSeFEVKkbUUSqFCogVJRLInWbON sc4USWV3LWVfkmTft6RFdga/9/fPzPN5nvu+99zznnPemS2W9npW7CQSSYf4 +P93rLvl2n1XXdWEuASEVjPfQcVXSR0jSRN0z/z7JKfLO1j9XOwlKWmDpq7o mWkffwexOFBijeQDNBEsqviiPRtuHnG+NSfxDBXeNLslsi4bvi5Zh/2ViEL1 DRbf6m5lwbrOAZlfEulo/MVMi8eXDGjDRc4TY+moe9Rd84tTBmSkRJb/fJuB JEeUmOEiGXDG8czl8WNMxFOXv+GRRTqEr88PH72eiWy3nGwomk8FgVdV7JPf sxGtuXTTG9VkSKyJv/1TIg+RpZfzD4skwHTk+129AXmI+09V8Yx3PGherx1s XshDzH+b5R264mCCY84g/2s+Yl369NQwIBaUjpxRefa0EKlGeB9smYuGpkwW u8yfErSkeMPtF+slPKrZrb3vcjmiVqo/m3R6BmlvP0ozXpaj49/mGzZf9IXm SHWO7XXl6JXhlgJBjacgdd24UES5AvUlHe82FPOGGo4nciTBT6jVYVuNQJ8H CB/pFGj8/BlNME+0nLl7G95kPuu8KVeD6MPXFlNkbPC4wHiAtkUN8omojJd0 voll7mqr7QirQcI8k5lzhfY4QZUncXChBuUOCBeNbr6DQ6sDrpl+qkWHXpRF 6Lo+wHcHgydPXKxHX6aZclvaPXG25l/a9uB6NKFi1H833Av/ST97nqOsHtFy 87Y46z3B1g78H4tlGlBCELev/WdvbLoc6nZwqgHl9gTdexDni+N5ar34NZrQ q9fVZXWUIKx2xPWix6UmZHlt1W5nbhDuspM9+OdeEzr3tO4quhyMRZr9R+oy mtCoPmdK/fkQ/DxSR8uX+gVViecORkQ8x17bG8irnV8Q90mVKaPVF/g6+hI1 4fgVnTbTPcd7IRKTaLP5nf5fUaqpW6FPdCSO5BTrqqF/Rc2bp4PvtEfiqupr 4umtX1GccIJGikEU3nGeRbNSaUFyXq55biei8Zi1DLOH7Rv6Fxb1RJ//Ffao 1amvF/2GHLdIiciefIVF5Bx/Fx74hsgnqvXd3F/hk1OFe2OsviFuNggI/PEK pz/Ue29U/Q3dnKc53cuLxbahD4ubQlpRTFY/tQ7iMfsMrbckvRXt4A3SuGMf j6ONqkiZZa3oDM9TuZjYeFwjJngscLoVdQrdbrebj8eyqWmVWsbf0alvmq0i 5xPwRMHXpjKJNjRi8vaD+nwCfiK+MPlWqQ19/m97xXueRCz2WFww8Vwbymh0 jJwQT8Q6mjYGj7zakIqu6a2U44n4ddNK++HRNiQevCH9bGAithveOZjzph1l +70WeyNIw32X2rlKq9uRtt2kd40UDeu3+crVD7Wj8zRdNvpBGlaqHX0wLNqB RkrLlIMNaZjjbTJV+GkHMkmdWDj9kobv7jI4tJXWgcIMTY+Y0ml4LInzolxR B1rZDCnb39FwQ/iVVM2pDvTcOuHPYiMNR7ptUbt3uROpGQf5p6xNwtyzTVe8 XDqRQLiX9DvBJPzQ3uNZ8MtOlDrcO+khmYQtLXtbUms7keCjKjEL5SS8+2Ts jTbFLhQq9KNJxToJx5XqPB/S60K0hJBloztJmP8w68PfW13ILn2/mZJ7Ep7d c4F9PZ1Y36eUc+xFEi4V3BilTO1G+72/vfXPT8IKgVXFGrLd6L9P+Hp1eRJO WXt/6JxmNxr3ntSuq0vCAQut8rZu3Wg16/uLrT1JeMXRx+BuRDcKUnl59+5I Er49cdDVM7sbRYeneYT8TsKGvWGfo8e6UZ3yAw6RlSRcZXx8IoWjB/ltV573 XkPHh5un+N+J96BZdJ63gJeOJT/pmdWe70HikoefuYrS8XgGdXoJ96BuF57A iwfo+KIU3sjV1YMc66sUuJXpuDHWHgnN9aB/cS3DHmp0nBPS4Ld7Ty8qPnXD sOYkHctwu2cpnexFQ3f+BMWepuNorz2tx6/0osOVOWUqenT86G7AFrOoXqSn GsbbYkrH//4cPmGT04tcxlKimy7R8VWbnzedG3uR/+hPwUhLOv4+EB36eLwX iQVScnZdo+Ptctu7PrP3IctjcR98bei4Z5z1W4fah3zCOI2yb9JxZGoL29fN fUhUIbgp1Z6Oubc8kelV6kPaB5IPzznRcZXqc3l3jT602B/PJXuPjn2M4xQ3 6/UhN6rBgf0P6Pi4EwMVXupDQuIuP3ld6Zg9JPfEhRt96NJNpnmBGx1jxifd xXt9qM/qdtkRdzp2r2w2inrSh8qfHIKwR3SsOth7Wel5Hzpqcm59iQcdL65M XP8e24euhqzqFD+m41zRRfu7GX3o/uI1lVBPOr57aN39/z72odLnL0mHvehY QU/II6e8D/V6PG7IJfzv1hZf/aY+FLJz/VeeJ3Sc9Uwu5F9XHzokO6WqQNgu +XDk8x99SNfmt8p+wrtLTybsne1DwgKhS2sI/+wySGtk70ebk81eZxL3y5i3 zLKj9KOqhVx3ecLWQg65fGL9qFdjOtabiEd670PM3NGP1kudVM4m4h065Vd1 6mA/8oj+5v6eOA/tekTT+NF+ZL8l5VUwcV5zL3rbszP9KDGdgYHIh3j8274d F/rRCA2LVBP56sovHqu83o+Y7GnNO4h8RrfW/r3m1I8ea/OJmRP5Nv7XNr/m cT8KC3qy1Z54HsLkEVJyYD8ydfMTNHSm45adU1zHo/tRgfkTsf/u0HGoBol/ MKUfrchhW6YDHZ+14Nvo+a4fcT91khWzo+O6SJmduK4f3etg5npb07FfjsK+ y+39KCRzZ+8jKzo+2XRUeWW4HzU2UHfrE/VVse6ilupqPzqlTp3wvkDHntts znXyDCDz9uu5w0Z0DOiuiYvIAFI7nWYmcZ6OC++G2OTuG0DK/FeHJHXo2CU0 9raR2gDy67IS/3GCjpXeZDyY1R5Ay0/NBvyPEf0xXPFM4eoA0tVTy7VQoePX 5xfSs8IH0J+H8tf1pen4psPabN2kAeSm8rNwWpKOdwUI5v/OHEDsydaLtzfR cUr5nprd1QPom2ZXO4lKx3H7LcfTlgZQv+GGAae5JBxErd2VaD6IbjSwP+ss ScJ5ipvfn7EbRDlqtvuYH5Pw0CV7xHIdRM9y9GIMMpPw4deC540iBtH32nbf A3FJeEzr4kO+hkHE/sU6cotLEj7m9avxweEhVCQrGDq9KwnbZSBTGa0hlHt7 gmxLzMPoL8+HWgyH0I1de8IK/kvCfyUOLcg7DqFff+54T63ScFyh+9aRtCHE vedKTGEzDc/PUJz1hIdRh5fldO9tGt622XJ1ddswarzF37THiobPHM959nrf MOoWKesyNabh5FDjOK7Tw6jvoLKuvhoN68knVhZ7DaMKi7usMi4afm29X1R2 chiBJ69iVUQituw8X8JRN4Le5z/Zkh+fgLlj+m/dbh9BqNDxW2RwAs42tRPr HRlBHk2+GWaPEjBHx9MH+WyjaPuv71bRlxIwvS3/wG3FUeTCGugY2pSAR75J pvXQRtETbmu7z9visW3TREjegzHU5DKnZtz+Ct/+9MTSXmYciWa1vI+ui8Di Q5prZw+Mo/kQlNlMj8C17Osz3GAcad8K2vbHLQJvh8DJZybjCL93vtW6OwK3 57/0oPuPo7i/iQJW/uH4aFZKXPufcfRBXdX/w7GXmD+mquNY7k8UYCy8VEoL xW8dePVFtH4hKYuZ+96n/XCi643xvUZ/UYIaJ5t3xHHsGc86Nz0xiWbm54eb jvkA6WsfFLpMIWu+4/Vx28NB2una/fO7ZtAZFc1Ln+4nwB6VXv34vTMoxtbZ 4L5/AiiQjOXHD82gHMvcUIm4BFAP0Bp5dGwG6Wa9ydEuT4BL9N3nGReJ62/e vyXAlwjhLf/k2YNn0GsT3heX4hJhzcFHo5lTMyhTNUom6SMNeJfmyhYXZlBg oRZ3bRUNBEod4jRIs8hdNXhquJ0GkqctDTp5Z9FZv9Wc6SUaqFpplK+VnkXq OeunnVASOL3kiTcznkWi1vsD58uTYGgmwpCnaBbVTyu1NpbRgXb0wJ3u8lmk /cHS/MVXOlwObAjOrJlFBlEXbDWH6NAhtaZav20WmTzganVZkwxf9B0Pv5oi 9gsrXdh0IhmK3+pI7tk1h75W9VIUK5Mh4hbb+JmIOaThffR2SH4KnM97tXZL 3ByKPNHduq86BQTWKG2bos8hoc/KMaXfUyDold3FiOw5RF0Zl2BOp8CT2s6G 3vo5hK+dVmHuSQWHnR/eOXDOo1KzP+PnXqWC9rDtw9Db8+iBeErf6o000Hy4 jXn8/jxq3ttcLXU/DdT/6+qYdZ9HXVb2rYpP0kBF47TShYB5RLckq+94lQa7 kuWntqXOo4c5IsX7atOAx2ra+n3XPNKtOaMzsD0duJaZEdcH51E23T93ZG86 cL60+rxxfB51uO763XY4HVgVrdvc5+aR6qnCBJ9z6TAhldejKbCAMsy2hK11 S4e6oYfn204soEqDG1fC6tOhyu2Ql9+ZBUR9ake+8z0dKoT+vFU1WEAhJMpB 1J8OhcfNKYmWC4gmfHEwfjodmHT1GpuHC+hJoZy2p2gGBF5dB0vZC+htSHFE pSXx/2goRFZcfBEJaKOzysMZUCc71HJRahFJT/Q4qU1kwKk7iu4xuxZRzGdV 4QNTGXCSvadJRHERvYl3+DROYoC6pOxdwbOLyI959MWLTQw4ePET5vJcRIob 70xXnWZATpKI7QnfReR7KPFLhT4D9v+8IegTtIg2uelzZZkwQM5F4BpHzCJ6 nhLlct6KATsiL/OsvFtESQ71at9cGSDWsmAwNbyIJPbllOYkMyB60+nVfROL qE1X2DI5gwEbrySkOfxbRHrn1hz1zmSA8D/NpV8ri8jVaTRHII8BVGpYwtiG JUQS4da9WsuAIKNRLRnxJUQdHStqaGQAX7zKlJXUEro/3GO+o4UB3HL9GoN7 l9DZSzfV0rsYwKEj97Nbawk9ztdS7p9ggOeLx2FiZ5dQF3V056e/DCB1thy5 YLiEbhZLaEZOM4Bl4xrSZrmEHIrzlnlYDJh9WnXwq+sSqhNKPLeTmwlOjZt6 +T2XELfOlI8PHxOmhO19z/ouISkTo/5mKhP+Jv/XWR+2hLJ8aOzKG5gwXm7p UfV6Cd3jo46obGOCxPM226CcJaR0WKL3tDQTzl86Y3C+YAlFz5Wu6OxkQvG8 8q6+qiXkohSYSZEn7v8pUyilcQmlGb9HX/cxYceL7as3WpcQ/YDDtKcCE0L3 8LfMDS4hX1dKTYoyEyoXfYqLxpeQir3muKgqE1iVrDSvySVkKPl+j6saE65Z jj2krC4hyVXdzaRjTDgcUSIjI8pCxoXnYzadYoLD1YMCvyRZSCS4o+mvDhNS 9jFY2TIslLulYUf2GSZQ68K/qB1kIXN7U1g4xwSNKN5CTlUW6tdVIT3SZ4LL Nc+UGnUW0tgrPPj3PBOGSHauhmdZ6GxssUCUERM2NgxaiRmxUJbLVvNGYyac iTE5O2DGQr6/s75MmjDBy7pRJe0qCwl6NVwnXWBC7kGN7XY3WOgD88fWJcK/ 2AsoCo4sFFbhwjFwkQlbm/YuLtxnIQEOTu73Zkwwik0ZKnnEQs4u/IpOl5gQ YCvW6O3DQjf5lf0lLjOhVDE071QgcZ6Hous+Ep7l5KLzh7FQvNplhoo5E2Sb HwZ9j2YhRkT+/QzC5vFT92MTWUjG/4f9WgsmvLxpc+VKGguVtmQ/P0O4Rrn3 9M5MFjo4NNLjSXh1rYHSn/csVPb9snESYYWWmq3vC1lo7i7baiZhm0Tgcy1n oV178r6mEY6z+zAHNSy0ndP9eyDhr4d3D6z9wkJdcWd5LhPmWk+rq/vOQj8P HHYQI3ykdcPH0B4in77n1n0m4nNMCkw0HmYhnvGsLxcIpzlwBIhPEPHt8mjq Js7XfeTB3aF/LGQS/YdTh7AAzx/zjAUWamBTdkgh8nOy7eopB9IyCo6NF/xF 5O9hcsfBQ+uWkaOIw18JwtmOZyVZfMtI0YfEhYh8j6LP3GVCy+jApawL2sTz EONTnXm6aRmJ3x2bOGrKBJ9UmRrBncto5U55/QzxvAucYnPa5ZcR6fU1yWxD oj+OCsbHH1pGZqWhH0wNmGDatXJH9vgyMa8n3jnoMSE43enSpPYyEly+It5z lgkVd8dPfjy3jHzdFpoVdZkgx9+6+djlZcQVe29LFlGvI4Ejni+tllHhENXu jxYTYrnnRkdvLKOG8u6wzSeZwMspkh1wfxnx9+67p3mc6MdZE83W58T6zi0F NYeZQLtjy9gRuYzECr3XPCb6x+SvC9U1bhmJVpMVpRWZUPUjpkOCsYzOffMz PLKfCcld3XY2FcT15u55cTJMuGjy+2tBzTJSZ8rb10kxQah1RYn8ZRkNW2SI /tjCBM9GCY533cuoL6re9M8mop7KLCJYs8tI+eriR3kKkb+04ZLgnSvIY5FS 9PgfA1qkZqUG5FeQhVZEZfxvBvgnrvVTOLSCNi3vGmeOM2AxWuZ8u/oKcrea 8AgbYEBboM3Y1osraOs9B6WoLwx4cecX9UPQCooZ2MfmymSA9t9lZ66XxHoV 6/f+qQxgv0XuNI1ZQTNJ5hn+NAY4XJNPXk1dQetQooVJJAPOmNxW1ipdQR88 VvV3exHzFM1YdE2toCmr01+yDRhw/+gOrg+LxH4JgaeVdBkwcuzCm2C2VRRT YmeUcZIBZSdLF9Upq2g5T1Dq/GEGuOgFvkjftUr8XnkvUCLBgJ9W2z/dtVhF ggP+v2eGMsDU2vjGWetVdM235qBmdwZU2frz77JfRTvfXDjj9S0D6PaTZt1u q8hHx3VNxacMuPigaPZY5Cqq3/aCxzyZeN8FGOzgb1xFCmWzwWstMkAl2Ldh /Nsqytl4ZqO0cQakPS9wquhaRe4D0SX7dTPgSfiW0nvjq8giiuee4JEMEG+a 3f2HnQQc1W/FpzZkQGt72ScDcRJEVS61yNekw4lfpnNbDUgQ0DTnUSGZDnFC Xl8fGZPg0Bsf1c//pcP0YUZm1wUSFMr+s/3AnQ4JfkvXwy1JQEt7f8hyOg0W ZV61rXcgQVXRB5mxz2nAtOzO++tHAivqoGO2dRpQ2y67FWMSnLx/SsA2PhWu rT413lRBApEj6I5GaCoUSmcp3K8kQZ/vpzVU71SwcSb92tdAgq3tC22OtqlQ JpBoltxJAt+iiz/tFVLB6fSAWsAsCUbthOxOf0qBtrKrbKa72SDIfsC3oiOZ 6L8O0YfybODm6GEUWZcM60p1FRL2s8HFrFF0qTgZDpWoXB9RYoNFeXZnnJgM YQXUekcNNtCa6uLvvZ4MujmFkf6X2MBJhEfeb5IOn5OF9haFsEFxwOfA0sUk eO9bcUlyhg1EySwyeSQR0rRrRZ7Os8FS6+/f4l8TIZq3ufnXEhtsP+V0agtO BI+QXs0CdnYw2yL/ajEqEXQiF+UMqezQYbXHn3Q6EQZS9676y7JD/oSrlEVW ApArX8XPWbBDmAD/m6vtcXBtjXNfQwM7WGvY3RF2jYIrjq7veaM5oE9mEf03 HgDy12UbdCw4gaSlfZ1SfBUaBXbzOCuvAaHx0LlmAx9c8MYzZjfHWuiYt7e1 D4rErmy7ztZ1rwVruxD9/IwkzN3lctIuZx2E3Nu//shgBh5O2RIW78YFShxf eydys3DYjo2ceQbrQV+EQ1BYNAeHRF+rtJDkhjhdNp6Haz5i0zCzBt5Rbkh+ d4CnMioPi73j3nRjnBusBRVXj9PzcO+Xj9erf3FDT/JQROGbPHyVIsDmM80N X19nJEeW52E7v88HVtl4IEtNNpfjVx729JCPmhTjgR9cu8YS1fJx+k22q616 PMArU6za15WP548nL8QX88C9w2L89zkLsVtBvFdFKQ+EKP29kMpbiEn7o/l+ VPCA6Jf1Ck1ChXidRPCW/bU8sC2d7xF5eyEWXrivVfGdByJiYrcf0SjEB17r RI395YFGX8XBy08Ksd1/00r7tvGCxLf7rfTlQvzP/3eZgTQvhH/kDV/lLMLO 7D90XHbyAs8nw4f6vEXY7U+3ebk8L5wqzv4wIlqE/asrfQ1UeeHzPxP3fMUi nPYwpu2BAS8YC6rnCDkU4cFh9ftlT4n1lZ0R7p1FWD2+gbbLnxe8hX1vew0U 4QRj0/rQIF741O3d8OhHEb5Ue3vrlZe8cOR4OMfluSLckZVQx5HECysOxv8+ CBTjZtcVSY1iXlg4uplRfaIYl/HnV1dO88KBTLaDFoxivKVWY1p+nhc+/pm2 1n1bjD2efBGPXOIFDb0JpsLHYqw2N3bHmp0PZP5jMxoqK8b5XRvE11P54Ljg cPP39mKcnersqC3LB3ypija8a0sw7ci+TfUWfHBSPOpumFEJLjvD7bV0lQ8i j+9V4LtYggcuD47vtOaDR23m1Q/NS/A2z5f5PnZ8sCRAcdC0KcH0zwsm4MoH vkIPrZxdSnCyblnkuzA+0Hv8lnkipgR/No8hDUTwwToPRaZqfAkeue1kTY3h gxF3qunOpBIsHSatdCuRD5gKiR9+ZJTglDa/79Jv+EDnVc/utfklOM1CXzi6 kg++BZH7GK0luMpxt3tVDR+kSC9HinaU4DGvNSOz9Xxg2BjU5tFdgnekfHyv 38IH/O6j/QeGSnD6+CYDvn4+iO3rbj8wWYIz7gy98Fjkgz67b0l1nBjXPCla erPMByK2vsloLcbjL8OvdJPIkLnPy+jNOoxlc08eUFlHhhT5jEp3boyZLGbz lCAZBpYscn9SMH7t7cx/fQ8ZRJ5rd05vxHhC1czTey8ZNC8EPhDbhPHu6eNT SQfIwKpz7EdiGGdYCn3rUyZDcdPMehdxjNPQu0hTTTJkX8pNKNiK8dhs9PoH WmQQ5R+1K92GscwbT5cIHTIcY9xcKZPCOEVM72KLHhnmT1uZ5UljTF/4K3Hm MhmcboetOO7CeCirLeSmJRn2bl/ON5TFeJs1ZvO3IoO2Cm3vod0Y01qDBytv kCHnH+3Y2B6M49/JpR69T4aekXcTIvsw7rEVFjF3JUOYj7xRB2HxrSu+7u5k MPJecYzYj/GrkHrbgidkGO/PyudUwDj61k25g8/JwOerbc84hHGH1Pl4/TAy mEsgLW1FjDd2HaY6RpDBtq+xbohwpDbPvzexZDDbvFDHq4zxd7Ypy/oEMlzb 8/pENGHhvI6vP5PIwAxWsN6mgvFLmYz3OzLIUCG4HL7jMMYtPc+lT7wmQzTV PIlOWCj8QYRVFhk4hDvOialiHMqp9YD2gchfxOXnK4SbC/aO4zwycCq/kLQ5 gjH/HZELvYVkUN8rd6aRcEj/qKpYORmeb5jyCFLDuCmy8bXKZzIYPjz1ZJQw 5exHcZNqMmyVst6qijA+sy4++F4dGd6ApWkA4aBiH1J4IxkMmvVl2wg3ONvd zmkmw5YkozAJwJhvj+FA8zcyLJ54FmZJOCBmewWliwwOxmOGnYTr9PgOyvUS 8Qyf3cB/FGMe7plknQEy1Pua3VAnrF3aJXxjmAySTXv07An73a94+myMDL8F B2oiCFfLM+dTf5KBdj+mpYAw1+gLm8+/yRDw29Wuk/DJONeOoUkyTO9LiZgl /NTgyimOGaI+a4/o8qkT9aDbddFqngzSEocnJAkXahnYVS6RwWb+jY484e/H Gh7tXCXqd4eXvRLhf0dOPPdnp8B/cTR9VcK8Spj2aw0FLpsvzKkQltmvnKO7 ngL7w5wuKBBW35396S0vBXIesD/cQfiitOx3QSoFhG6FXthA+J4kfcxZkAJv R4RmSYRDRTcvfhemgJ6r66lhIl6mUDiPiigFjnXlmlYQriRTNr/aTIHw73hr HOEBLl+5FUkKaBr70hwJs9jZwFyKAlevrWk/SnjD8oNzZTIUOC0j/4mH8P65 f5ZSshRo6F62aiLyf3ryhpOPHAUMx23zgwlb/xzyHttHAclah1Itwp7DZhHa BylgLcbjskI839je1jSmEgUCIg8Nviac266bT1algJrI5JIR4eavVbUOiDhv qHI5i6gfrqr83wqaFEC/nU0OEd5WdoAUoUWBKqNb0rVE/akVMvkXdIj96xdi TQnfyYpTKNKngJjGsK8NUb89kZ4uGhYUeLi/fv8Joh8WQpf8U69SYGFCVvkt 0S9CgU6x660pkF96ZeA/wlqPr+F6Owp4yoRvbCT6LcdGe62hGwWaRKtJbAcx brxSviH3EQX8FxkcQPTvuJnqTlEvCkTLTSc+OICxhJ6cTs8zIn556usuov/9 VARCr0VQiGpXHLKQwzhZwT+pKpoCt3KW05yJ+YHlON/viqOA6KYVtifEfJnZ Ovv9N50C19n23Aoh5pE5T8fme9kUCHvFTrUm5tXBrsT0p/UUePdMs5p/M8ZU Oev5zCYKSFfGygwR83LikdyJtq8UoLJulL4VJebbtoKhHR0UmO9opKuJEOe9 0SJRM0LEvzFSREIQ40U3jlNrSVSYfSkmvUjM67Hka47RbFSQFlH784iY560N 1VFyHFTAK59+kNZgnC0ZMma4lgpr7ZMcptkwtq0Q80nlpcKi+YrNsbkS3M5z qPTkRip0DXXt3tlFvL8Uosa6RKkwEFh2ObqtBOeYsSi3xahg5ig0yPatBIdk ll2KkqCCxHVa67v6EnxSX5f1YzsVwnee1U8qLsG50daK/vup0F7HlZsZV4Ij d8a8rj9FhekNUQr3iPft9JRmstdpKuxN4S/U0ivBusX/XinrUoFjlllMPV2C 1+prByTrUcFmZHCvm3oJdnZbsH1oQgUPxTWMqt0lWK/RaMee68T9Fwp5FFeL Ma+zUFKAJxUu7e15bRlTjK0RjlZ/QoW4fb+Ty8KKcfn6m6Hz3lS4LRu+KBxU jF3iyh9ffUaF0hTPD688ivGPSkdz1RAqyKvvvCJmVYw/i37ZPBFLhaub3o3/ lC3Gj3Bg5Kk8KojfK+SrzCrC4904bCGfCn7GSwLf04qw4dJUSGohFTQFXtZ1 JhTh3YdMn3FgKthKrbtQHlKE2xjSLgWfqbCUltHGTfx+2h9RckG2hQok9XyW y+4iPHJrUpznDxVM3r4P6X5ViM/5S23K+0vEW0u/4fWiEBemGW24/o8K3QNN fzf7FeIXg0WU8hkqNJcqLey9V4jBxI/kyqJCm5biSsPZQhx9fNvA+Hp+MPmw GY+zFeLTmwySa6T44aLj3PeECwU4ckgOX5DmBwO+NrOX5wrw0GuuzgkZfjjf t7LG40QBdoNCKkWWH2oWnhUpHijATKttbvr7+MGBOly3l7sAc2dN6nUd4Ydv mawArQ/5uPJ4EOm3IbFez+2f8Lp8fNSu8gL/M36YpXnI7PfPxYttPzQr/Pih oGfPEO1hLs45xrv/XgA/+JS9kOByyMXSG89xdQfzg+gro/+yzudi3oqOnLRw fuhkm6De3ZyL2zb+5gM6P6gZFE52MD9ih09C2K6EH7LvMKXJ5R9wvJilVN0M P2RIyDefrc/BUuWp4WcuCADnjl4rD2YWDtlTtqu5WABITOe3WqJp+NoU55fq XYIwb+TnuzYrClu+/Sf5LFgQ8CYZtHHDVXzTU5+l/VwQPCTOVe37aI6d9XO+ 874QBNJC5UZ5pin2nXEOCgkn7Gc3vf+oNn6jvLAUEUvY9f16PWkdWChdbU1h ENc/4dzNc/g2hDTzBlZUCoLklYgLSf4+EJ10y9qnWhCaTs0pztx8CklODcdO 1grC3zrJ98FnfOGDcMhibYMg9Ok84o4T8IMuU0Hrr9+I9ZbNNmJxgSAzuPHY wKAgVIkbrIBFKOzNcRGnDwtCiIbNX+mWUFDx7lywGiX25y6U2HviBejIxGb9 GCfOGzj/h7EnDBxvSIpPThLx3KLZnGC9BDfVxwvZU8T63E/GGg7h4M030OI0 Q9i8e85qKBwiM5P85+cFwSHs2Qq5PgJoHpzX8xeJ/VwM1COORgLjnJW6G0sQ zJ2f/D76IRJytn7erLYiCPBm4yRZNgqKp6QXVlcFYcyLrLQSHwX/A7rISlA= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-8324.471302344502, 5039.996400000546}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k8lN8Xx0XCjH20iCwlZC8tktxDERJlKZUUES1UikSLoiwhhEQiaaEs WSpLukT2dSwzjH2bkb6VdcaS3/P7Z+b1ft3ndZ9zPudzzn2uvNNlKxduLi4u LeLn//9Jd5xWbXX203+ET03+yx6CCqqc+TG540hhXSndxnMIln+UBsjJnUfh /WzP5e1DkITDZXnlbqK3eZSPR4oH4dJeL/c52RCkuDVhw1DdAFAX3GL+yD5D tWqlZ7g4fcDXPaj0SzYdhZzM3l2sTQca/uo1wUxHdTr5GXH1NMh4E//958cM FHzr60nyORpYeFqcHt/3AUUHi4SWJnRCnEBR3JhrNroTXe2rT+4A8efV3H87 c9Gx60rROvxUeFmbfPWnbCFSvHhh+n5PLUzHF6j0hRWihO98Nzw314Kxa91Q K6cQ7eQKvfXGowYmeOZsi6hFKEnvuEvnymrQ2WuhGxJUgrbzmCrqQSU0Zy9y K/3+hqL/jT6SGf4G4kjAQUgDI1+3zAifxFLYoxijG+SMkaCaUMdO268QMZ0+ 5duC0Z3v2zU7m4pge1S7i9P7MmQvE6vrNlAAd2vVzLae/o6ur12dkzv2Dt59 /Kz4PvY7YpisLulMeQOt8YY8m+u/I5OfN07ecUgDBVe7knW7KxA+G9VzuzEZ ankCNbgolUhr/86sw1/CYM3ebvGmHz/QxPjlIJeRaJyVHdJ9SaMWffNaj2sq 8/C4+HiYmWMt6qU4nLgTl4+VvM30lWNqEVe6cLy3SwFO0SO/HOLUIiNVSozO v084uibs3InKOuTnEu+jJVWEvYce/z1g34B0QzKUNLgxzjX+k7r5cQMykWRf 4TuF8e/0wzY85Q3ooXh0oMhnjN2uiH0uVWpE11W27c52K8MnlqJv7ZhqRFlf RHj3lZfjZHJdgJhRM9rS8kP6kmUl1t/rZ+/v0IwizwvFRiZVYoaH6o7fN5pR r1iew5/xSryu9dFofUYzcnWIYzsH/MBR8eamwaItyPt9d/au91U4YHOj8HJ3 C3L4eoys3lmDNx67M+Y+04KWHSz7HCVrMQ7WwAzhVvTk8Qvp3hO1ePFnxNUi g1Yk53uwNru7FnvlWrZ5vW1FBzIdEuvb6rArank24UlFa76r/Hv8ugFzpc4W dT+iogW96QH/7gYcv1KaUZtGRX2CjyLqRBtxdc05mfQOKrqqIzV95WYjVrZZ THXRbUPXpTQLhfc1Yaab0ofeFe2IVbTh6Wr7ZuxfZ97QsL4dRcsuHlvp2YzX aXj+V6LdjiZ5ZA++DmrGJlMlWoku7Wh/Dnn18sdmnH7bquBYTTvaXT9tLMXT gi9E3y5tjuxAJpoLK/SftmDumdS+b+kdaPT4mwfe71pwwrFqruzyDsTwO3X8 XGELrpWm7Auf7kBGnWNb3btasOrbd1Wmdp2oJG3yrJxkK64QaGTqXO1EviIN m6WVW7H9pSkB5dBONFE1kN+ysxWHbdU3X1VCrHt1eV20bsUTxdTmclkaMpao WOMU0ooDZTh/P+rQkPQ1z87tca1Y+p4M5eURGvrLO9bxPbUVmxuft70bQKzH +lWtLW7Fmc3/6HvGaEjQt6ArmdmKjbUVFlS46Mh9755/9lOtuDfWVHq9JB2d 2x/1g7bUioVPxjiwzejovxRLLyFxKvYY2TKUn0VH4vNREdd2UXG/A52/rIaO fD+IPWcCFVvTgjUahuko63tcBMWMinXqxm6OrO9CAmeYL8JOUvH7/U+T/+7o Qtp8O3y7z1KxTKlx5dLhLqQfFFQwcJGKeT6+Fl0T1IVY2jEVq/2o2FvFdufG 1C70aajXev99Kma+Wmmv8bUL/Ug9XKQaQsWNcWffGk91oenDCvcU46gYRCkN VsLd6NNGlUTd51ScF1I+6bClGxWxXyzzp1Jx/C15/Runu5FNuN+6jg9UTJpt Phvg243uhiQFtn+k4tuX/UMex3ajN9tfZUR+ouI/TM3sxJxuZOHWMsJXTMVO Tn1tb+u60U7QitrzjYrbuiPm80a7UdfWR3xq36n4gK2+HF7BQB4KV1/Rf1Cx mknSRdouBnrh8TPfvYGKX5SZRw1bMZDYy8u9Ns1ULLZn8dMfdwZyKHSInW+l 4sD894zFYAYa11mvfbqdimfVT3ILpDHQmpQq0YBOKj7/lqS8+hsDqT88HHSO TsUMuaJD8l0M5JPj9Fugm4otEs5fU59hIAmVKy/dGVRcRpF8tlu0B4mczJ6J 6qHi7eHVpUaqPeiAnNT+G71U/GaVz/AR4x7kPug5vKGPiiX9lUgOjj0oIlNX 4yHBYZwOzQu3elCSSbFPDsH/PB/aej/tQYHm3FJJBF+d2OF3P7cHZewZvGhO 8LDLSEpEQw8yezZZVkrsf7Qv5kcCsweFckVemybeX223f+INTy+a2sPo+EXE t6d1SixPpheF2JcavCfizzr4ate33b1oZ8uggHoXFctVWp2qs+lFmbeLA6/R qDhanzug83IvYrfc5bvbQcW8Xz6+GwrtRVcH1MYs26jYZ6tj4+/XvSj/5gOf 0RYqHs8QnV7AvUhPV1x0XxMV2ytgSX5GL/ovQ577XD0VNyVdRhJzvSjZujrV soaK8yMbQ9XU+1D/NBn5lFOxEulOjo5JH1Ktyxn4XErFCQHqHfvP9qGU8kX/ b0VUfNc7TP7Usz6UJCO3QjmXiid/7zlwPr8PCc5tCwrJpGLn8z8veTX1Ib9V zjb576h4s8Zmxg/ufiT7V17Q9QXhP/lApT6dflSg8ZxhGkTooxeleceoHyV8 HP148R4VP7R7sWuDVT8KbzgpcoboB+7ILwdOXuxH2WEFrmUeVDz/b8K1M6kf uTy3f+tuTcVf1s9f9s7oR87fT9FUzIn+2cnns/pzP2KzKU9L9hPxucsHWzf3 I0rE3q8OO6j4J8P2XRP3AFJKS0hJk6DiDLZTjofIAHrten+7kCAVu0lc+SIk PYDcNClHzHmI+h4MrT64YwD1cYXJWP5txYyiUmaV6wDS10Vd7nWtuD5eaQuu H0CxjcFVRj6tODR/+9bT9AHECCkc1XZvxSbNBrv/jQwg7/KdLouOxPzjszfV Wx5AbYUyVzYcbMUl3pHnv2wdRHFoav8bKWJe2XDSc+IGUX6OWMqqTy04QrRO 5eWZIWSiMRzytKUZF+7aUGDhMYTWpf8cZuNmPOxwGS36DaFYCZ+QnTnNeE8m xebY0yHkZqNUdSCiGTNN7W8LNQ6h1iaHjzUmzXhfwK+mm3uGkdX20Qnhy02Y PSPiZbVmBDFdQ/UCFuqxU7fNN576UWTi/DLHz7sKkxIH3K/SRxHtRrmMuUkV zj3hId03OoocwnLPzkpWYZ6uoJtFK8aQ29WyTV0lP3AarUj76q4xlH/vtNE4 1w882i73rjd1DHV53dwaer8CX2ieiCy8yUQp0jtwskcZvloZ6HRZaRzNG54w 8V8uwB+vCFqvM/2F/CW+9NJuBsFLv4vjWsf+IJXpwszzl77C/eTFI9MTfxHD Njvk0FwNHNb6clV16i/KmX9S6CJXCzJl16KcOH9RBP4adNa0FooGx5ubeSfR 9tLeQJHEWpjcTLfMlJlEV+7uK9i8tw6cPhQcOnd4Elnm0shbb9WDQaGHKS1v EpWemP+6ONwIwmYq50WKJtHc8cOJkaQmYHSNBBvjSeRl9OXJKq0m8Fm0r86v n0QnSj5cjvdtghx08EDUyCRKWCkSoszXDHI/lIzM1k6hOtXdu7jim4GL2g8l vlPob5ehHT2zBQJZpS99702h2zs/yEnhFhDgSuLeHTyF/mVqPzNtbQFx9eMV BbFTiCrp7nJptgU2B7UcyM6ZQm6Qt1C1txXM9pRbpI5OoYUE8/m66lZ48uqV fbDVNMp6Nbg+r4kK64rufTU+Po2mv1+b8eyjwvPm0zK8Z6bRl1O2vDK/qfBm Sar/nvs0mmX+Tdwh3AZfjsWc9QueRmp7l0LOH2wDBvnBBY/SafTG7Hp/d1kb KF4/52OjMoPa2Jr0jBftoK7bZ52sNYPW/1ap7stoh+1cdprjO2eQ1Kf/0lZ8 bgfDMNPRu/tmUF5eoIhgUzs4pKnZvLefQRFbznPv+dcOcW2TmtyPZ5AJv8GZ RbsOSEq4SD4UO4MoRgHXl852QNqZ4dGniTMo8We+9E+PDsidaE9SfzeDEtam SIQFdkDjykLy8bIZNH9Wat1wVgfw7rg7lj01g0zXyB5iLneA4MJc+TxnBjF1 Hp7JEegE8bIrL4y4ZlHjqY6vzpROkDvkZNstOIsG6+qMohU7Qc/F6PsqxVmk P/xEisu8E67HkpNP2c2i/UNmMZuedILfyUDfdw6ziKH1+GZWYifcl1+ynXKe RSvfzrhvTuuEyMz/BEOuziLvzXdvdOZ3wofKFt/80FmkeFTsy8H2ThieeXqU /HUW/Tejfs1TnAapBtrXer7PohNrRYrs1tPgdHjj4+zaWdS/sc5BaSMNuhR4 a6xps6j64pFPt7fSoMXac8/zqVmkIrrviLAlDSKShew85mdRyoyM7q6jNDD/ +e46rJhDZ85XXTQ5RYPq+32Zw8JzKPrJ2ZRNF2lQ+tFcTl1lDlnY7qJ8fUCD W0tjestac+jC2jOrlMNosNs04HjLrjnU/Elwm180DfL7C6O9jOaQFNqm1vWC uC+JKPGWnplDHYMB/r6faPDUfcW4xdM5ZHXeIWzfAA1sCp+vkn8xh1IOR53d OkoDcV6dTVNpc+iFSMoZvp9EvM897J/mzqF1Z+RrL07TILCuu7GvYQ4ZGpha rllFB8O1N35+bJtDCUevmRqR6LDsJM4f2D2H5stGz9kL08F33sRAmTWHAt5m kfetocOVLZ/yrqxkI+9feVyTCnTQ8DrSbEhmo7eayeuclOnwE09MSIiz0Wxs im2RKh3O2W1SLJRlo6XVFINN2+igkFZq+EiRjSxdK/9o76DD4O/jp0+ps5Gw tmi1mg4dTgVFxq/Yw0a0mfd/OvbSYT1VtYBqwEZwtnJfMBD3SZmqltcmbLRV lr9cfh8dbD4tkcyOslF9ktV+IRM6iHM/U5I+xUaej96ZnTajQ9Oh7fv/O8tG m3kr/J+Z08Fs5MLt6KtsdJT3xb0fh+lgfHvTh/0+bLSGyjiXY0XosZrRNXuH jYratB0CbOiga3RI52QYG8mmbgkZPkaHnT28rkJP2Gh13a9vnsfpsM2rNPbb MzbSqpcQGT9BB5XXmlOb3rKR/FG/pSen6KC4lynfkUnsv9Mu5YcDHTa2pxwO zmejGw9bnQZP00HG/fhd3WIi33W9xmNniHx5xbMmytiIP+i2RbsjHdYk1TJe VBP7KZf7fXAi8tsRQD7SxEYJvPXNl87SQbhhjy5PBxuZNtdYrnGmA9ll2q2A wUaP29nz7wjmX/rw1HWIyHc6rU3BhQ4rY11+SI6z0fFo5b4QgrnUZWbq/rAR X9SENI3gxYqOTXfm2GjU0C1S5Bwd2PaPrbT+sdGTM/J6WgRPTx+4N7iSg5aX 3m/UJfhPGFdODJmDfO9mGKsTPKFQ2GsszkFbHjdkCBDMLLkqxFnHQWTxtiNN xP7DNip672U5SGHDI/07BPdPDF44pchB4+MN19YQzAhMfCaizkHnmx9MPyXi p0nbVJdpc1DItozv3AS35QvOXdPloMN+MHyUyL/ZvHKzogEH6YjYH48h9Kkf vm1DO8BB/oYyisWEftW3dgaEWnCQt8WnQ3WEvhUSvz/q2XJQvbEjtYLQH394 2//fSQ4aFr5Q9JaoT8n+MyIvnTjomOWWVdeJ+n1hrNO3Ps9BShd5i7bY0yH/ essl3iscZODlSa8m6v0hzbD2/G0OCmqinP9O+OOd3gJbKpCD4myv98scpUNa W55SYygHecqVtpwl/PR85eYH2+I5aE/AvFYG4b/45z15wy84CLY8ePPegg4x 2+MG415zkKrUltdxhF/DnflgIZeDxL7fPbSF8Hfo4jePzEIOkhDZsdxsRIeH MT5JpzEHSZbymzkR/XCngjX/vYGDltxeFhvo08FDob4gjMlB3X8iHkwT/Xeh JHBY/zcHMdgt3ixNoj9t9lL+znDQxiO5m6rV6OAQmHXFlmcetTffLTdUpIPF cKSqjMw84hEIjVNfR+irOtxmrzCP+IfDxHIl6HDw2q47iSrz6FD/estNYnQw 4e5tXrdrHnFv7pevFyD6SU7Vm3J4HllKHI3fNU8D7HpH1uroPPpZXPBs4ywN UHZLdaQ98fz6tDvzf2mgp+8jJXx+HincPL3yKosGO+wrMf/9ebQck3/zZicx H1+tu3AgeB6tHPwgVt9Kg20/L1IeRswjre6HOeRGGmj4ip/jSZxH66p3rLaq oIFy/Gnyv7x5tGtH0+JCNg2k2zi2UyPzyHs07Hp1AA0SpA4tb52YRxaMDXm/ btNA8mzKuyuT88ht+KcRlw8N1kwaL/z6N4+Gpn7c+kXMc1HRmBTm2gVUKSJU xrSiAY+5xs8e0wW0mK5q7rqBBuPfnfyrMxdQ//dCx/fE+SQbRbsQkb+AVBtt L7cR55eNg4WtTfECqumJOcGM7oRS9m6V/uoFZCrvzGr274RodbG2uSFi/b7n j9cnO2HP029KSusXUXSWZLSLUCeEXZBuevBwERlfvKzs49gBZbuiCw+GL6Ij tIphwaMdMLuSP00sZhEl+EeGh5t1wJnkKZ+kl4vI6zmn2kq7A7a31W4sKFlE 7w+pMn/xdEDP3pvew5OLaNbD+LfHy3bQEOvYsO/0EhrnydjR19AGo+Gj92Nd llB2aHrZH9wGSaS5sbGLS0hiKITxN68NBFeuyw3zWUJhxQr95c/aYHz2uHFH 1BLC997yv3Rug9eMHo/zFUtIy87c0HaOCtLvRr493vIPHXlZkU0XpQIJzTgy pv6hjav55g6saQEfA2X+T/P/UF3DUcb6lS0wuu9k1uMVy2guJkCy528zlJuU zRuKLKMXEyX1mg3N4GsV/iRdZRk1rFh7VSSgGX66bK70dlxG49X7tB90NkF9 mK2yWNMy+rfbv/+lUwMc+HVibqMtF9wpGXtRI1sNtHLnFSfUVgCUaR+11C+E guAKB7mZFeAvw3XO4clNOMfr1d/YyA0ST/x6aU8K8VlPvwLBBB54RpV3YzTU YE1X1UZzx5VgXz6v/hGI+564GtlrNy/cEeA/zWbScXHW/UQ1nlXgU+nj/Lew D/utUDlc37MKTFa/FQ3NH8Sj+8k0xYFV0KH6K+136SA+HDxx+t7wKjjl/7vD omYQK4hkX975cxWYha9f5vQM4nrp7Y9T2Kvgh75WAzffEJbR0W+8TuEDsdjc FvqxIVzuYWW+wZQPlg92hd6cHsIkhq+JRz4fKMYqp7qtG8E7b6QLPf7MBz21 QXI35UawozitNbuIDzbqflm6rzyCv5jsOPUX84Gl9JPK+zoj+FzB76vXG/ig 06tl4za7EVwW4ZzoO8oHL1eZdZrHjWAfA4v/Hq7jh8yQTQV2QqM4jXEr760U Pxge2TMdLjGKm26896mW4Yf68qMyJVKjWDGLn4e0mR92mGdu5lEZxdT139eG b+WHgV2DyXuMR7HG9C6DJ2b80OLQYGB9exSPvJGPSb7FD2lXZt/xjo7iicAB Do8/P3wkV96lT4ziSaeXp90C+GFbuUBg2tQo5pKVV90ayg8J9Ykr5VaM4fVP 5crLn/KDW8366x+kxvDhINk/I7n80KV6IXit5Rgucd1grsbih4hHCfxS2WP4 u1HPx8gJfvD+pN9Tnz+GazclrZ35zQ/W4jecvIrGcGef9NDXWX5wOdR1OaNy DE8ek/a1XCkAIjOxmmndY1jZROqdp6wAZBamr6HyMnGMsuTKQlsBmPigX8Nr zcT2Dopvh+wEoPFd+2ndY0ysEKNtJmwvAOv2/7xx7iQT5y8fijzrJAAnLnTK vz7LxG0d96WFLwtAk7i8eMk1JqY8mNh+NlgAjBa411lEM3FXEacz/JEAJNoV hnBimTj1zyq/LxECsPmyvPXzZ0y8zV6+TChWADY6jQ9WpTCxlfbRQ19eCgCW UMj5lMXE0QPfXISKifU7YZ1/qpn4xNoGfp1SAVC+tz1BtJ6JNx7qeu9UJgD9 u/TDlZqYOPfL9N/PVQLQcHp+XrediVsfb7nj1CYAvJl78ub6mVhM/0nc518C 8EzYNvLHLBPTrqXsHvwjADoXiwzsOEyckp7JEJwWAMVV+f/6F5hYa3X1Rqd5 AQiZCo7u5GLhwxOLWYJ8JHB2NRu2I7FwZMK5Kkc5EpTM8hzKkGLhG973r93a RALZBdvMlxtY2MHqhexTRRJ4KJceiZRlYTVSx416NRLIyYiftt7EwjU3jZR3 7SZB4G6Jo1dUWDjH1rHtiB4JulusXsqrsXD81tv+lxAJRle7yteqs/A5Vj7t pREJHm5L+sK1lYW5jyuECFqR4OqK5yIrd7EwazvsULIlgdsnaoOHDgs3i9oP GNiRgPZ+V27zbhZOrn6y+4YDCYpj7Edv6rHww7TskShHElhFP95WtpeFPfzr oj44k0B6pDVpWZ+F9XR4xgcukGA8J7jW0YCFN0nIxi26k2Cnqn/wA0MWJv3R NVx7lQRpS1EOKftYmPbWM8H8BgmKqpXNi41Y2GvtoNnnABJUN6QtPTBlYfup pdmWhyTwMew3dzJj4f1Nkq8mQkiwhlLyZsdBFhYPOrIgH0mCp5yKa2XmLMxx cn+r94QEk1I5QzcPsXC/foj1sTgS+OZ9PrbFgoWzZvH7sOck0Hica+RuycKx rYxjb5NJ4PDbu2TFYRa+lcXmKU8lgeQSRyucYOdQiRzGaxKk6mW8FDnCwgfP adnPvSMBbyxbMITgbYbm/OIfSGB+2O4qh+D1Mm75atkkiJdCDWesWHjFfMCZ A7kkOM+3WfYbwcz2ZEGnAhIkBgW6SFizcNPH4i+3vpCg8lrXizMEfwrvdH5a TIKNfG9qXhGcdH5KNLeUBIv9bsM9BAcaiXytLyMR311vfwnbsPBFedXzYxUk iKGPDu0k2GrJeDV3NQlqVT9W2hKsS3cqk64jwVfVqKiLBMsX3HHf1UiCUA8J Yx+C+aMSJK1aSKD5X+2AH8F/Ln2qvNRGgliBA2e9Ce40ab0a1EnUI3BDjSvB pQr/bUjtIoFoyIjYYYJfc5FqS3qI+r/W0dMkOIyx2buznwTrGnKNeQm+9sVg 4+QQCRgnJjVbifhPxJxqFBwjAUk4fjaWYOk8ktTFcRJEhvEbmxHc1/LZteYX 0S/pUc1ThF6pf5zzlf6SYFb7Vkw0wc4i4iseTpPAyVIiUpFgRY1vh4bnSJDj mV6WTejPMr+UYLhAgj63CCUNgj1Cf2gvryCDTvKrEBJRT630a/6neMmgLxV6 342o/1SVXEMxPxnUBtXSiwl/+PD6nfMRIQO469w0IPyjq6Cc1yFOBm8JT9nr hL+WDNuXt68hg2CDwK9Ewn/3/TWf/ZUmw5VhSXYt4df9yYwRSzkyZLXe3tZq wsJ8pSHbsjaRwffvmojGA4Q+C0N1F1TIsD16OPUN4XeL9VHratTJkGsje/z+ fhYW263vorSVDJo1iSrWRH/Eecf/G9pFhv9WPJJsAxa2izU6aLiHDLYlMtsD EQtL5U8+TdEng8bqnc5biP5L+Wu+9ZQRGfrNjy5b7WHh9EsrnDusyHDxxej8 xh0sfOlRVs72o0S+BQKJftosrJFxcin6OBkU09qMaoj5kDtWEGd5hgzMD9qf 9mmwcInThZpqdzKMKIb35iuy8J17a9coXSXDbxuLnAIFFjZIqXB6cJ0M0/Ef 77/fyMI/emQWDfwIfVYnKnjLEPPEjqpRHEyGDC0HvaDVLBx9w99PMowMF6Zv TWpSWNg2Tr36xmMyXNcTTmkQZeEuapDj9jgytGpo9YyRWXjYQi8m8xUZDLkq yp6uYGH2/tec5FIy0PaUHBkeZ+JbxckBFWUE13vYizKZmGtbghCrggz2ouGl 20aYmE/2sfy2OjL827vt4Yk+Jl7D8TGt6CRD9OF8kZ1UJtbONH/G/EO8zyDW R7qQiT9tOrBJaJoMQjHv0zMLmFg3wSBz6xwZ0s+OK+3IZWLDoJ1lvktk2BeW LqD0nokPO8qxBEmCIP12u3Xccyb2WD2ts3WTIDy053ucepuJJx/9V26rKAgp 43a28TeZ2IubZe67RRBuvJd0DPQi4v/dc+a7piCwDK0PIHcmflRTFWyrJwhj ILMf7Jn43e1E2k1bQfikKZ/nocPEQyOGPuVBgkBTtg7zY41hw+TGVJVHgrB2 8hy1amgMp9idaIiOEIS2HOdU/t4x7FB3dePZWEGgHPrS6do6hrtyUup5XgmC s2Rx0nPi/G/1+ydnVCoIPos+0X3BY7hcrKimaloQPjguZ9dJj2H5OqNpTbYg FOcyVqavHsP+gS0y8QuC4BAmOeIrPIb155jX3LiFYNtxAdPF5VFcxFgrIyAq BCc6x955DY7i3LdenmaqQlBRqLl53+tRnLp3q1SDoxBY6Falm28cxeUWpIAF ZyHQcnDsObR+FA+eHhrf4iYEy1mLG43ER/Gm+7FFDz2EAL/OH13NTXyP/eAc Bz8haApXc4KBEfzasjw+L0YIPq/tKStMGsHvHK3XJFQJQWRa3tV9IiM484GX mKu6MLwy2OA30jaEJ/RO3X+gJQxb1A/ve1M7hNWm90+90haGk9YThafwEM5w kmjv3y0MwucVP+e8H8LvUF78CWNhMP70mDJ2bwincf7IWpwWhjPLNhfj1IZw gvsljR1RwlDPlKrl9xvEQbZnD/LMCEPlI2W/8MV+nGrJsHdhC0Pwfe2Q6f/6 cYmprUfVgjCsKa4TOTLQjyf3Hoh6xC0CRUlZj8cr+7G9omonRVQEusk6CckR /Xjb3KSTgqoIZBieG6bI9OPe+Pu+Ro4i8C7J+d6lC714B+NlelCDCIQez3k+ FtKF47ckZjYcFIUKC9ufprda8V0cHn+wUBTkDCIu/DItw4ekbF/XKogBVnsY I6ieAgYeVSfFQsQgWIQv0vFWDSRLOynUz4hBCcmLq0aIDgrf38ZZnBSHDKO6 Gf/AQYhUL1dpLRUHkuQbv6OhTDg3tbKlRoUCGX5GLzUVf4PTx0m5kMcU0B62 knj7ehIu3bdeNIuigLGWgMCBvEnwss7vFHxCPD+dQR/BkxA84xURGUeBrvZr /2QZk5C1m7PwNIkCBafshh+ITwGnbLnjzXsK3Du3Mlri7hREtgqGV1RR4MKi +4jcsWlIeOXu9rCGAhdRuGeM8zS8ut64z6SOAq/lpuxWeU7DpzWR83WNFFD2 UJQfCZsmziGKG7WdAt+NNqlFlE+D0pDkvsEhCqSpb38Sqj4DWvm+MmkjFPjd 5lo1oDsDug+6OS5jFCBdFKLsMpkBc6WkHNY4BeTXavZ3O82A50U5mb9/KaB5 yLBXKH4Gbund4+ROUcBL9/YJ29cz8EBosO36DAXG4hUaEnJnID771SM2mwIf +Lc+kG2YgVT/la5F8xQQ+XCk3KFrBt4fcTG8tUgB81HbkcSxGcjf+GOD/j8K OI2uH++YnoHSKUXO8jIFNiTfrhfhnoX/AbUtxHM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-51875.87131258507, 90144.98742448953}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnc81d8fx3H3NcLFLQlJNkUyos450pLKyKisCCUpysiuhCSrQvXNaKI0 pIV0j9Gwk+xsaVDWvTa/z++fex/Px+d8zuf9fr1f533eq11PWrkL8PHxbSB+ /v9/O9yVqn0kZItpTmne4lopVPFV3txO/gCo/4KE51ok0dKH0gvy8sfAurq5 Ht84SXSbc0WOIn8WeDs8WFk7KoG8N/ufmJK7BCrst+ZqlrPQ17mj10blbgDu 4QB7vXAxROvoUx6RywUKEnuG2q4xUSvnnf/wz1wQE1Gz4YMkE+U9SC//8zwP +M33WsenMdBev73Ov7c+Bi/m/Oru3KajVEZR6pDnUyAxJ0fte0FF4v99Ehhr KQDe8Zt6uTQSyq7K9P0j9xbkyKl4didPw8n0l2rd8W9BJB0vk3k1Bbd7Vvc3 zrwFD8JaMlZ18uAwacqm6GsRKFx7vMJTkwsNNu/ddCmmBLjc+cLpGxiDDU/n BZT/vQci785lpu8eguKA4SSsxQE5y5qKh6oGoZHStU0xRzhg8e/JE1F7BmDC ZO5E8BcOcAm060hz6IW6yd/cXR9h0LltfiJyawuMqNIw03YuB1n+T8Rf3U6H Oc9fKz26Xg44gg2/3rGSOY3pJqS1NeUgsvDX94Pa+RxFT/uS5YYVQPRueYBT COZUkaK0+FiVwFugsUTkXiNHanOHeP2HD+BLgtIaubw+zpOnlzq8taqAz8qq vyH/jXF+i/+ONztcBYav1j1zEh7nKAeYbVG5VgVIh04yVoSNc7KMBbP7Z6qA Cdni/YoDE5yUz/EeByurwZ01oo0nSVxOQH/i2A6HWkDeixySFKY5BdtH76xN rAUBgU8tY89Nc/7lWuwnldUCR9XFEO/uac7RU2KvS5XrwOOcO0GLaTOcgwsp oRsn6sAmFylF7/lZTqZg9QWxbQ2gVFtNKOrqAmfL5hCHSKcGsO7Qu4dNvQuc Th/1jf8CG4B4ZZLR2nWLnOWNl3/U5DWAC0l+ctUfFjnJ6ea7YkW/gB+KdL/d v5c466vmV0+pfgFP0h+/dlrOh+vmHs+6b/0CXFs0QmSM+DDTWfjx1oAvoOmc cb5KBB++sLZOZKnjC2hPPap1jZ8fK9iFD53gfgG6zyM+klbzY06sFqdTpBFY W/Z+nQf8eP5Pgm8RagReS+TUK6H82L9gX5P/w0YwulD8zXCUH3uCLzeG/b6C aB+zbOMyAcx3h1fUcfkr2LL0fkakXQCnk2U6q+59BaLrdVlBYwL402cP2dzm ryC4LTBDVI6EVfbP33Hf1AQ2dr9NO+ZPwpxXqyv2WzeBlauWQvjiSNh+xY7B rd5NwEPoholOBgnHdiUrK2Q0AbXW25FHK0n451Hlx13830CLxcNRzWVkHFlt XlsrTXBMo3SePBkv1/L7W7LhG4iQeKZdqU3GOydK1t9y/wZO3hld025Fxrlh Vi/tPn8DP5ur5uKTyNikJ7B5e9838Dpix0mRTDJuN7k9tXHuG9AqVS/XySdj Jv2noYRmM5Bpc1hy/0TGXilhpQ1JzcBgDDlEzZKxAPdO9/vcZnAmcu9RNSoF 37T7xPe0rBnUf5PVCRSj4CoZ1tYrk81AMUF5iKpMwa4RBkdChVsA9VRKpZk2 Bc/2Ol48rtQCOtyUduobUbD6w5yPu+xbgLqDl4zQXgquYNT9NPBtASz/JCeu LQU7eE8wVOJaQJ5UzdpLzhQcr73FnFrSAt7lFsgXnKRgxWtuJ7hNLSB4tYzJ zkAKLuHFJgyMtIDvIcsr4sIpeLj4a0OZXCsIkE7CUvEUHCU7M/bcoBUc1WSr HE6hYJlzsqxsy1aQILyr8kA6BRf2b9VN8moFjgtNwvwZFGy+/ZhNxIVWoJIr EWB3l4IHchICfP5rBVxzIT/HHAoOFSxMc3zZCmI7vPxZ+RSc37DYZjTUCsRn fJyTX1Lw9g2Kc2p8baDA5rP6wbcU3HV9l4z0ijbQFDVZ1VRCwQHTPpsZOm2g dPvUE34OBYscuuY0bdYG9Kcu7Ooto+AH795GDLm1gbQX04JnKil4i3x3VnNo G/gZ6exZ9JGCm8+Tyyqvt4FCX5+aws8U7DOo2l/4pA3MVsc8cqum4B6nNjr+ 3AYs5AI1+moo2Lo1Vqt2oA1kbb7VS6+j4A+WBvvbltpA7AbpA60EG1QPnR2U bge6PQ/kLesp+JFpWubYxnZgqHWu8jTBsqXbKxcs2kHj7oAmSHCSPu83w7sd vO/vaXtDvE96fl9UKoZYb5N7uLOWyE/NRk/hTjsoGN429Yj4/s+7ZAetd+1g fGXxWhUivkOrCs9tam0H0gW3Ai2J+OtS3R5un2gHKyQYgSpEflCUVWsl0gH8 zrzIz6+g4BeXysadVDvAOcH2e72YgpVIfsuPm3YA8327BytKKTg9dPWWQOcO oKbuPmVXTMFMXoPbheAO8ENf0u3WawoOOxl5KfF6B1CeaH2a+IKCR3+ue3rr WQc4NPXuyManhF9du5seVncAsMGVfiWPgps6EmZf/OgAK1ZPyqfdp+AdNlvk OfydIHVRR3d/FgVr7Lx9vFW/E8jcuuT86xoFZ2Dz5AGrTuCXxo0sS6BgMaP5 V6MnOsEZ79dPLWIpmKd5SIBxrxNQO5S3JgRTMGatuGEo+h3IJKte/u8QBete +VS6Tf07uF74yk3Dmqg/NWjAcvt3oJtpedDfjPD/TPM6r9DvIDB6KlvXgIJt u699uPnzO5jMsLwYIErBn+xNhx+QusBs6lWj7xQKNmqcEHsh2wWi7oZT+OfI WL7SyrF6fxc4Wqjy8dwAGf/OE52c43SBjY6BCf6FZOygyFlB7+wCxgdu+DY+ JOP62yeBxFQXsPhv39bRm2RcmFQXp6HZDSSyVqSfiiTjiID41Y43ukHR9bv6 yTuJ/rE6SrnboAdo3bULK6ol4U/GyevCt/WAvjXjqYGlJBxtn6G/yqoH1Pxx 1CI/JWGBpDc7Dh3vAV06V82vJJLw7OKwZ8vtHhCHqCeP7SXhP502OfUCvcDt cNH1G+UCuCZdWZVT0wtuW+41ME/gx3GFutrObb3AuLj0Ss5ZfryzARkuDvYC Ma91kd1H+HEFzWGX8VIvOOF1Nb5rEz8uCUg69ka7D6gGrfJUG+TD+ftncp+l 9oHTy4f3ow18OEG0Wi3bpR/I1t2T3nJygfNWf9XLvT79QGXh5/5CwwXOgNNJ MB/SD8zc0tFv0gLHKJ+13y6tn5h3+tanp81zfu5yCBOu6wfLQ0p0xUrmOFsv jNSfNRoAqZvNOlbOznCmucv8raQGwZviLzBhH4/j2rH/PanmBzCOND3cxxzh +FZGuZ5U/g34ar057TVv4PNTQtbLd42AdkdH35kVo7DmJutsvu0IeK2TP29k Owp/VEhnmhwZAR5bVlo5p4xC6RWqf7wjRoBWcaX8DuYYjMLbLuCXIyBgxqs2 ZXoM2opHvPBS+AtOzbv9aKmbgLMvxljv5v6CtbJXBmVcpqBE17ShFeMfsOcz m/iZNgW16HwuQ1L/AGM27Gt8/RR0cxB5LKbzD1AbGhmHtkzDGrK6qcfRf+C0 feUhpvQMzLA5cmbZt38g9e/NI+GfZ2F2yPHf6+1GgfGnFCd52iJcz2FMxziO goOXh4NX6i1CDjmH0u02Cuh/l5mOHFmEPVcG5K+cGgW++p82SpQtQtksR7tf l0bBa1ED9vHgJXizYl9FdskoeOD0fTDelw+lCOtmiCuMAZHsWdLbz/xIwarx 0TGVMWBrc/RlSBc/ep566i1HawzonAo8qjzBjxrk8pt8jMaArNrBFEMZASSi oyRYvX8MKNUv6u44IYDibJcHXYgZA0XrNinNMknofOa85eTwGDAtXAsO6JKR xfo3vuoTY+CWYHF35TYyksWnk11nxsCFruDn0nZkVNT3u6GBMg4utc8VhZ4l o/G1bfvyZceBg7yo1up3ZOT6+OUeD4tx0G6buLEPUBB667Or9cU4qKdNli3p UJGImdqxZUXjwDjo0EMnREWd7YOx2znj4OGqzbH39lFR0LzDp8KacZBK1Zcf PE5Fz8DuHcmD4+AfzbfJ4C4VyX9Q3mbGngAV8i38isI0xPe1B5YET4B7VQ7h nbU0FPWrNDv43ATgLTlr8LXTEIPvtoBh7ASIHpsMpfygIXHNAxUvr0+ALL6C v4ULNLQ25suOp88mQFnOsuAH6nRkZlS2986PCfCW/rqm/hwd1VlmPXUZmSD6 Z6CuYDwdWR8NF5WbnAA+rffHlFPpyOH6psZb/JPga2qiIyWPjnz+Fdhcl5kE Tjue39rXQEdX7951iLWaBC+TelfKsRloedG5d9sPTIJ4wWY3HzkG+q/BWZbi MglYzNGmDGUGerCwsufciUmw3LtF/a4+A72xu+YWEjsJPDKFowxtGcjYx6/C MHEShKuM/El2ZCAcZbF2+vokmG684Vd9hIGqngsNnbk7CfZKnm7r9WOgTsGL Xj6lk4Dz8ujSrSsM5KLgVq1ROQluX5Pbt3CVgQYNkMaf6kkwsrq3CNxkoL/u CyOebZOgbL39kOcDBuLn+PsenpwEw8G7s7a9Y6DoZutGublJoFH1ruNpGQMx R7Q3dPFzgf9wm/7cRwaSkP47eXAZF/yejbLd2MhASmc8gvarcYGC53Jr/UEG 0tzUbZ25ngs6FJ+ecv7FQLp89ut+63HBmyWv194jDGQSv+tHxFYuSO6u+KDH ZaBdVmW4ahcXdM41pExMM5DFcqPbkhZcoAi7Eq7PM5DTPY39jxy4gPymVPYS iYncve6v47kSvObhq3YqE3mvlxVEx7jAk784WozJRMEly8qa/bngaplfq5Yo E6U2ja8TSOSCw1nzF1VWMtHtm8cF91znAne1OIV7q5jonsvAj7RbXKBedUqQ Is9EBcPfbmvmcIHBmp7aAEUmeluw92zQEy7o0vXIj1FiIk7Qx/3lhVyw4jcY DFNhojryW8EDmAt+yZd7SWsw0bcq7aG7H7mg0ZL+nqPJRJ1JeWV/a7nAxrU1 yHwdE/XbrskwbOKCVmJgeLeeiX7L/Hc2qp0LRN8oq0voMNFYn4RNfQ+xf3uX msUGJprOubJeeogLWKeTMnx1mWjRhyrkPkKsf0WPC9rIRJSNEUNPJ7hgkKI8 dkSPiYTmpspmZ7hg48D3Fj19JhLHpzK28fGASY+OyV+CV8T8OptE5YHRi1t0 LxswkfweV5sOIR4oM9coEDZkImVWx3olFg/8jt7E8SdYq81ayHcFD0CLItdy gjdm1gwVy/HAwbBlGTyCjd23lVOVeKAi7lnAsk1MtFW9NMNSgwemLiuNCRNs NqYX/J8OD1ySFhYfJ9Zbvn5qM2TAA2HbxLuKCbYPU9HWAcR+kbwDxwl23pot FLaNB1xT4uP4CPZgSP/8uJsHZi++PRNCxHuiPqVc3IoHqtLOrOok8jlzXTDT 0Z4HtJQ+XlIgOORQVHCOEw+EZNWU7iX0OL96wWbiCA84BRRgF0KvS0P+2luO 84A77U2aPaFnUv5foUu+PGCQorVdj9A77bTnz6+BPKCteLZxRpuJMgx7ymXD eeBzrJDJXaJejyu/BBfG8YDXbsPeh0R9X1w2s11KIvRzlZAhEfUvsizXNkvj gRMZxRamakz06Xvhz+67PBAhWFAaRPin/q5mhVoeD3y0qSN5E/5qPvYg0/8Z D6R+szi4TYGJBrhptoLveKD7b7d1HuHPO2jD6e/lPBBVkyPBR/jX+Upd4tMq HuDPbg3WX85E7YqUz9atPLD5aZPdbnEmSj+VNbi2mwfEnol0Ky9jItsSI4Hp QR7ooVzW+CHIRF+s/Yz+myD0jFljTKcwUUKmsL3PLPF9Pfdl3vxMZP4n5wzk nwIdIrrVzxcY6NP57vwBkSnwyPudXD9xXkufm8trqk2BkAkTg64BBgpdGDJe Wj8FThixdlv1MJDhrgsHvuhPAaU248ScDgYq7Hmb4r9tCrCV73+Z+8JAecuU KaUuU+Ae9eOeLUS/STvB/3tv2hRQNnfsNUpgoP1v/6OuzpgC5mGbHrXEMJA4 xWDNxL0pwLu9ZaftOQZK+M/HIa2AYF+68vxpBoqq7qjrriX2C1V59MeOgU6p vnpxijwNFsjGj9ykGUjL37LBRHAaVGZz+7XFGegPZ3hYQnwaKJwQetDPYCAP +zVKb+WmwY+WaN7YNB05xiSl8xtNg3RTE9nib8R9MegVluI7DU5o7PFjxtHR 9rA1j02DpoGIy6q+bZF0ZCLZ2c4LnwZ0G/p9jwA62rRtj8Gh+GnQSZO2tXel I7X76ybWPJwGcvOqHxYM6EjQffLoy85p8Oj9QWmHXhqqGQjb37pjBtQvPbhX LktDn0L1LsTtnQGNHab1ZWI0VCHx77mxzQwwRdMzOWQaKjF1WZbtOgM+jUlf UvtNRY/vmVQdC5sBan2v1pALqejKERqcK5gB2Y/0FWS3UtHegSR1WdlZYBup +cZ2HwXVqA80OSjOgtCxdWWekIJ2n9YPv6U2C9RPlhQc0aagnQJdDcv1Z0HW DApRYFGQibx6AMtiFgTrJUs9/UZGGx0qOfTzs8Bty4YpNjEvyDTN2EwMzoJD GmS56N0k9LvcNfJT/hwQLLGP61jgQ3LJrV4JhXMg5WOube5PPrTfaa/N/uI5 UKUmlOb2lQ+VThuq9XyaA2Uw+f3tHGIe0hRrmuqfA0VjxmVqVnzIKO29srL0 PBCl3Aw+tXUJxnvJ1F+Mngc7lyuvtfCYh1pizau2Oi8AxRXbm6x38CATcA93 TiyC+DaeVLhzP9wxcnBKwYYPxo4mBa5Ib+K0lh3hP6jBD6/GzAcf3D7JeRlb 4STP5YctcobfHFX5sQfFv6euTgCqRByKp52mYze/kJdCN0nQJXpV3J3nIlhP p+ul6m0SnJx203z3SQQzx+Gr7Vkk2DVEo9R0i+BnvtTXkQ9IENDPyn8QXobn TyW/mSwgwcbUhgJiMsKpJx8Wd1aTIN+ogv03EVH82fsrfrxAgjpVBvY3SkXx Ok/1OvPDZPisT/fsX4Y47jomdzL/CBmWiPs35EmI43hvlqjIUTK8X7MU7SQn jn/5zlnW+5DhsuF+3iNdcXw3tPqbZSgZmtWcXdvlJI7ZKce/26aRoVqpxO8b z8XxUsmjYZdaMjT/NeKDLFj4yfvMK7iBDD81PRjpPMDCDmVXtRSayPDs3l3z Pm4s/PZjyKn+djLc/uHes4AAFj7duHvS/ScZPpUDVaz/WHho6M+cF4kC0+7E +0cMsnC9uIagvyEFpiZn2E6cksBbTpz4dcuYAvXuy+h9CJLATz4++VgGKDDq 4rFNSZESOCFUO0p0OwXu/OWTyUiSwOY/9BYeWVHgcr05x+QnErjqLfrXd5wC mb4eDaO/JHCli91XiwwKfDa2zvfLAUmsW5z+PDCbAl+Uh4VEukjie5LtiRn3 iP1CFlcreUriqCoH8+E8CqS/v7zB5owkNtF1rYx5TYFZffYzKEESc2gnXpc2 UGAQX3OWFUcSFz85f0uDRIWN+Zw3G1dJYaq5jXQalQplD1VOrl0jhS1/Kd/g Z1JhQljPTaaqFB5aU5vaLEqFfdGBrOe6Uph1g50SKUuFUrKam/x2S+HjFx7H NhlS4SYbySQcIIVfyUfQwGYqVJ/xc+GFSGH+UsvoXEiFyk69NnLnpHDaNO9C +A4qHJj3zdxzWQqXn0ARKjZUGHVCyWhlphRead/sH3qKCidMbCUDK6SwBzdn 8sdpKrSVumA9/EkKP08JOW0ZSIX6JItAm1opvKNW3lcpnArr9ApcSM1S+LTJ ce+Gy1QYyVS3qv0hhas1+NwUH1Lhq77ZcCkqG0tVNfYm5FFh5uKi4ycGGx/2 vO8yk0+FlOH6nyeE2Xgq28yprpAKTa+qTF6VYOM17OsHgsqosClozYXdCmwc wq9mUfOdCjW+G2a5G7HxD1PBVqVeQp+aBKWtW9jYInbY+dwAFYY2Z6dLIDZW XPb0pN4fKiz0O6J7dTsb18joJmZNU+HjL9qzixZsrOciyZ6bo8IzVSoJIdZs nHWXl2GzRIUbaOpTf2zY2F/t7RMmlQaL6w9tzjnIxrIGW+rOsGhw+nvX3gQ3 No4NkbOtl6LBgiMhINedjcdL+bpUpWnwPR3/e+3Jxh+3lY90ydPgQtps1LPj bHzKeqfwLi0avGmgYyRymo3bU1Wv39WmwbiNi70fzrCxaTtz1aIuDYpKueqe DmDjFYdrNV4Y0aDxpHnjg7NsXOZjZb5qFw3GGNo+OxvBxhoFG5oCzWmw4pKb b30kG6dyJRwa99Ggw7Wd1cvPs/Hx0JbjMbY0KN56G0ZHsXHz+zcTvQdokGl8 2y7vIhtD0s0QY0cin6cpiziajSXiHC6PuRHxCL+ZqI5l4/DazSxzTxocN83e XHqJjX+Kyt164EXkqzwhci+Oja32863h96HBbTFp7mGX2fhdWm/eIV8a3H42 DJjFs7FKR5nOqzM06GR34ybzChunyN4rEg2iQdP3A2dKCfa471FVGU6DHB4z ky+RjRt+7rCSP0+DZJuJ3wkEb9JQbQ++SOx/UOmJaBIb3zvJdP0WS4MjvNc/ LhK87MWfX+viafC3E075S3Awr8Y3LpEGAxiHn5kls/GA4ZOZgRQaXPa8aPNN gveGJZ4DqYSe1lMG3wl+wznFuHmDBq+s35bFSmFjBbJV8uR/NOhc0+K7meD4 HRtW7Msi6jk89Oggwbw4iezcu0T8N1+YHyf4cB1XhfyQBv/JhVudJLhGrOWZ Ux6hFzOp2INgPZs3Bm/zaTBBTT/akuCs9Bsc1nMaHE788GwdwczO4J0+hcT6 K6mG/P9fH5grnPiaBmM3RYdXEfEdFm9tfFpEg1GmgeWxBMfnU9Mb3tGgGJCl Gf8//p0bHcc4NGj2esPOASL/gX43BfEKwj+6Zy6e+78+ESlDOh9p8O/GrHcs gjdJ48fWVTTYpxf67yahr8fLf75naol88hpWsAlOsZDVv95Ag9fmjxnFJhD1 /GM+//IrDe67utz6L1Gvn9EhuLmZBmtqnjnvIlhCIS96qo3wE5+gyw2i3uBd 6+7l32kwOJRk3UX4wcueJmbYQ+R7iRgnCcYJR24F/6BBg31nG7wIPw2rXnW5 9YsGg3y+nb9A+G15JV5bMkzEP2KvkBzDxj5zss8WxmlQ72ye4mXCrzdT9/jL 8miwJ8f7YiDh50rt0E1ghgafhGypt7/AxjJH2yoil2hwckhRepY4DztJ9Lhs ATrMstuzoog4L6cz9PaVUehwu1T+gk84G1c1XW0jCdHhvhJ3v9chbByE9v6N Xk6HIiPd42X+hN86Q188XEmHVx2rBdSI81kf+Cjokywd/vWbG73ox8ZKT+gk 5lo6bLedOyJzko2/Spezr2jT4WgJK7WcOP+LL8c683XpUNb1zvkvRH9Qs5S/ U6dPhwG/I3Y0Ef0jMiZMQ3QLsb4o0O6NMxtrTeqjq2Z0mPvQM3zWlo0PJnpQ C/fQ4Qkp55VP97PxRbXr1U0WdOgt8PiyvRUbd7qM20jZ0aHnMYmBS3vYOK72 sdcNNzpUMcpw99jKxoMPVl/LDKVD+N3HlKpJ6B3VO0OKpEMPXcWsD6pEv3LN dj56gQ7P3LOpP6vExnxyq9W14+jwgMndB2/k2Fg6Tb6sLI0OS+xt1qWLEf01 Rm50sIAO906q+XSNS2E7924bs1d0WHHteVf1XynstDWz+MlbOrTW5JN7/Ju4 n5ZkYwI5RP4vKkS29Unh6EBZWUYdHdbeKs9rbZDCJZ6rzDV+0WFV4/hA9CPi Ptr2/XnSMB3eFzhsl/1ACletuc3m/qPDN3tNbj3JlsIt3TL973iEPqSo9Ow0 KTxuJxO8j8yAxYF6fr/OS2GVnStz/OQYMJHusMBnJ4Wvqawgv7VhwGPtVS7W XEns4KT0sN+eAf+F5xYb/JPEitc2mIk4MKCCZGGe+C9JXLi0J8nNlQGdU5x3 3uuUxE3N52VETjJglvbJ9C3lkph1cVjXLZYB5dd57rYg7veU3vfuwsUMKL3N tPrvSkl8kF1LNyhlQNtk5dNHJSSxwp72R66YAbcn7alvFpLEBW8mx15/ZMDw ZK/c5AUJ3JioGu7axIBDOnyMyC4JLLblaurrEQb88Jh2F2ZI4KSbHh8PyzNh +C2RoEOSEjgw4Pzp0DVMGJ8QH3ZLSAI7WWXIpSkxod6zum8NJAmswWwOrNFg wh5f9Ysrx1n489ltKvqGTDgz911Yu46FBQ4oXhKyYsIrQ2Y7nKJY2J/dZ/b6 AhP6fVwhVvdTHB+85lgnNMSEyR6U8dMpYljmBXPl8d9MmCFw771ctBju/vLa 8/MIE+q6rk19f1YMH1kmzh89yYRv8UWvDhcx7BP3YcMSvyAsnX3GjNISw+cj 190YkxGEznQt2n8fRXGuN/+RZitBuFz3cPZC7zI8bXp/JrNUED6JoNsVmQjh 0OLMCxVYEBqPnvG2VxLCfDo3hX9VCMLYde/N+hlCmCaXuFqnWhD+CM0Ne98g iKVmgnZVtAjC2TynyBRHQbwh3/zGz1FBeBBsV8s9zcQ+kpMG2muEoLQKqac6 mY77B02CymKEoPiVvYHJaWR8Z7P2ytrDwpBuq6RcLsfj5F/0F/PUFIGRtPow dlMZJ8bGbTeJKwKbvL92O18ehxs7s3NjapdBmStKaxCgoHTVW/m1u0Vhsuw2 XZejoiiCcyV991tRKFZ0PreyXArtWWlzv0pRDA7o9FIneTII+Xw8JHaJ4BXN BsW7V6NMGVfFGq4YzBs4rczUUUSK5Q9T9x4Sh67ZUXUHXiihJM0ytcZScagp NfQy+JcKyjE4xDjPEYd2NXNageMq6P3WySHtMnHI41xb5TOngv4eULqfXCkO 9VUldu8WVkW7o+PkLGvEYc71Uv+y9aqI2m0l0dAmDs/APZFZAaooJKl/oXZS HLop1u9ZWlBFHhPkL5/VWFCHm7l0bFYNOeWZ1jlosKBJxP2MI/zqyPZwVPU/ TRa05qtLOEBXR9vrSR8ktVlQwFvOVkdKHSk9Eig+rM+CD3TZapna6mjQle/+ zFYW/FT/WtfNUx0daZwLUnVkwQOEEyLq1JHDJaOAEicWfNEdsbm0SR3thyGn 97mw4KJKywKvXR2ZPpk94e9GvK8nimyH1JFi3IwrPsaC3TtEw6uX1FE/mjI/ EMCCwaSTBgnrNJDr83H5S4ksuNlGXMwlTgN5n7eeN0sm4r8gfPhskgbyty5s EbrKgs4Xex/HpWqgWK5/QlIqC54tk1K5fkcDPTGcmUu7zYLGD+Q27yrSQDN4 qfnBIxY88U/MS+2nBkpqFLpS8ZEFM+4WuL/crIlu3j1xNPozC6oOlyZ+MNFE d8/Ubd1ZzYLt9HcG9Ts00SuppNnqOhaMeOQ0/cFSE3UeZB39+o0F95WZVuxz 10TK/Su29vWzoEHnFdPyOE20vjBY9t4gC+bKJN8wS9REmy52zLgPEc/LLml/ vqqJzJVvP/v1mwUPT6etfPyfJvI7Li87NsaCFf46vvQnmijU+NxMwQQLXlvf HbCrQBNdFO5rOsNlQRkRlTvnXmmi9Kd3L09Ps6BUm8ChllJNdCeS7Fk0y4Jn oqx7J8s00SNLd5PQeRZ0aXgXzvioiQoVPqzaskhw3P11ktWaqHRCaWZpiQUT d5waZddrov8B4eVBNg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-386203.8305592527, 976779.9696066248}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k4lN8bxi0zdsWMVBSiKGtkHcw5xzojFKUsMyrJkqwhlSgJLaS+QkJK ShvRhiRHKGuSfUmFlGSbsSb93t8/M9fnus475zz3fT/PeWeDR6DjIT4eHp4C 4uP/31lRHgLanifpEs1CylGF21H1JwXbvQouIDVkLEDTfDv6V1txVkHBF9wN vT+R1WmDsioT5ckKx4He79CIl3w26IhpmP+c/HlwIhoPVhxgoE9/fFIm5a8D H6fc6hAzSxT+Tm7rRFEGUIHWA6VfLZDMf20Nv80zgSs3d/zpGQvkoQr5f3nf BGI79H6/fmuOIh6Jlk533gbHC3KuSu00Q4K931R+y98HC97hU/YUgLoqX4eN /bgPdqWLMy540dGDu+lvfxU9AElRx8Wlyk2RfYj9vlHzR+Cc0/IWcT8TlCpc ljriXQh+WefU+ncZIUrme76pzmKweSQQP5rQRbfqbwb/ki8F71NUZ8bFNiNu +nPVgUulQNP/ufLB38rIyrthsHWhFMA+l59nWjahMf45p7JPZUCFqlJflK2E DE3taefjywFXYcx26Zkcailc4lOZeAM2P7m19GibOKIAYXdxzUrQ4vAkYdZF GBkrp9DiPStB5qHZa2svkFES9z7nxMdKoHDKvytk5RLUvdJ+yOMhBpW/qvqV FYoqo+vVbbT3vQVl37QvM4ZFcX7RS+WH196CQq3XAZYqK3Fruhn/psa34JVw 3uPVWyXxRm/n8jVG1eCzE7/DKTcpXM8fq8lDrQE848J7ByJlsLRpL+VDbS2Y 33+5InVOEcONXhOMv7XgknyNulaeEvYVnWqo2vYOqF7RECneuRGXdwuce5Hz DqSKwvMxtzZhj3CduawT74Fd6mrHbNXNuKDwfO8RzXowR1eWN+hXx6OU0Us2 B+qBve3V6fADGlgl3Ia+OaUeVGa0RIgNaeAcE9Fbgwv1IFOj8jga0sRX6y55 udY0gN37Wo4l+GzF4YOXp6xZTSDzYlactJYOLraavL3pchNQdH4k5+2pgyfu 79zNX9UEWoxfDnLSdbBPkOTLCpVmQOIUqNX+08Guf69G6nGawbllNsmvehu+ KdpwVtKyBRzxGLqVpaqH6aYnWafdW0DgJdtyjd16uC9ATW/iWAuIOk2LEjml h9e0Xvze+KAF+K60WXzcqIevpNsyEyQ+gsMeI09KDurjrfVLG+a2fAReV8ZH 6+L1cfOfR4uHzAnedLlM66E+Ftkn/sg8/CPYOwD4/k7o47Obmlf86/0I7rE6 3UqDDbDi3qgR/5mP4LxvfdCFZANcmaBZ2beiFaz8UtP+ssAAL/1KCi5DrYAl 9YOt9tMAhxXvaAu71wquW0j3X95jiKWG/j0aqmwFSc4y4+wgQ1y86sm5XT2t 4K1HQ8fl84Z4PELCQFv8Eyj12DCkWGaIvcHH62Mhn4DNt6vP5aWMMM/t2bLe i58Av33BlorNRjidtK6v/s4nMKPTmtRkYoTf13nJ3e/4BORWq/9ndtAI71e/ BNInPoGa5bVD98OM8HxS0f54oTYwPXH6/Ll4I7x599LtQ7Q2oCTnp5F13whX vthQvXtXG3gCBLp6So2w81rrYfMjbcB/2kYruc4IJ3y+oqKY3QYKrznqHhox wj98VB595m0HwJUv78M6Gj7dYNvUJNMOnr8Iq/26mYbXaIaMl29rBzwlV5VC dGmYwSnfeuNQO8if1mmQsKHhL07fHC5EtYMhbb0ihd00HFEiePR4WjvQ6h8Q LmbT8P1Tjs/31rUD1W8FZqxAGjb7cqzD6ls7UDz+tST8GA33mGXN6f1pB+Si 7qZV0TQckle1ZpNUB0jeNW5Di6NhEaEfRlIaHUBpsG5+6BIN3z4s7sZv1QE4 s4dvSv9Hw7Qmnchp9w5gnb5RoCWdhlu1nLO+HusAJ7KzOZLZNHz46qmKluQO cEC0Q6P/Ng3zzdweeHO/Axz3Xn9C5x4NZ+x9z1NY1QHWya3PojykYZ2y3xuy ezvAqu5PrlEFNFy/jmqeyO0Af/pSw8OLaNgj2tAzUrwTqHpSnv55SsOLX9nn /JQ7we9FZuuKFzR81eLsXVfQCWJ60q89eUnDavfy3zGdO0G+RfHrryU0XC3c /MMwuBP4fL4lkltKw6wjHOHNFzpBomij8QzB3OY1aqtzO4Eyc3xlN8GXtOm2 AuWdoDFB3nIHwRtTDvrPtHWC6Ast6c7E75XPJiQN/e4E/IaN72aI/Xe7FBR+ EugCT5cNklSe0/DYq08tVfJd4O+WlHvjxTQcK7cwVWTYBfxNy5u3P6HhdWfk qLccusAb+5HX4DENPxs0100+3AUe78vXbLhPw7ZWvk7RZ7uAaMl493geDQ/l J4UHZHaBi3SBiIe3aDhS9Fka+3kX2P8prZI3i4Yftyx3G490AbvMm+pRV2nY atvGP6o83SA92bg8j/Dv8zXmOpm13QDXZDX7Ev6ucEtxn7fpBnl9K+3qI2j4 7uvS6JGD3UBAx1jBJ5iG6QoDOR2R3WB4v6dFni8NBwxvGXxW0A0aOsnWPC5E /ty7hXBdN8i8zHfVdQcN7+pK0Gwa6gY8Id5+VpY0bNgwcnxYpgdkTRkzOrRo +KFF2s0pvR7wq3VKKHIjDctVWNX83dkDSvyzWl+soWH+ojwJ6fge8JYpOD3+ zwiHqzrpK97uAfOJcPn3NNEvuSSW5usesC3N6/S5YSPcnHrwnhWnB4gfVrU5 Q/RXeuQG+rF9vUA6Kz7q7SUjLDLbcvDsiV7wMZ/UkBVphE8Fnj5/+VovMAyX BauPGGEPj4G2ew29gLZqy8go0wirM7L8ugz6wJ4eSyF1XiOMqWuvG0n0g6ZX z/zr3A2xbuL7Cku1fvDo4WrqHMMQ3xWIGHKw6gdS1RN5LTqG+NJCh9bhyH6g fWv3/QtkQ7xnIKU240c/ODa2fFnrngEefSDB/VP5GcQVg6vDvcS83BCrMmD4 BXRevhYjL6GH35tc0Yqy/ALkzc00bTm6OM4522C94xcgNbK3zrxDF/Mll1i7 +X0Bx44jntQbunhxecy7M+sLyND572m7ki7+1eeU/4HvK7h5sTiMprYNN6ar bKls/Apm5NSoYK02TpJoUL21fxDQOKtX2stuwR69u9/wN34HESfshIP+/akM ron1CFQZBb2Rw7cTgzcguSErgdlto2CIV8Tu9asNqIFP+EEkHAUhqnHsGrIi 2gQTp867jAKuZcFa9nVF1F127fSdi6PgxIW/f25WKCH05G5298QoUDF647ee VxlJ3njfY17yC8Tp717pc1AVVZReiKqv/gU8rBcmR++pIr8uW0WHj7/ABknl x7QxVVSz6qOv++gvYj5GHQGhauh4cvd8xLoxkM/5o9Z+Rh19PTcqXXB6DLQw +d+MXdVERUFiu9Ywf4OMNf98D1hqo8YM6vHHe34DP1nrmNde2uh7tcxNM8/f INcyRWE2XhvJrN3y60j0bzAVxm+7VKeNYrHlWfz8N4gN3LO011YH7aFEPz2s OA62q14bUbXZhhafTlFf/xkHe3qXvptt0UNSn+eNHIUnwNL+zIQRSz2kKcSz f0R6AlBD3lh6euihg6wVjyR1JkDjwxOZwxl6qJGkZuHlMwEmRT/8RxLRR9lO nqEr2yfAT6GUqBtf9NGtk36jW/dOAsfZtI+RAYZoa6XwfDx7EowZ7N/iGWuI Kkn55IGDk4An++5K5QxD9CVxSCExaBKs/+nLMKoxRHI57L0/z08CrcVr5TfW GqGM6h3Vt8onAScgZ8H8lRFSFR7/OF81CSZsZKyamo1Qqd2lgR11k0BU6Zvp 1m9GqKvj/eLf9kmQsJ22HCNEQ9I/kbbrxCTQcV0f7rqLhq6K62ZTFKfAiihu yruvNKTo2PrQd/MUyDndZvF9moaKUoNKKzWnwJ72RU4/vzFqkX/cFmA8BZQv uag7bzJGK3SURRt2T4Hpnf7Sx7yM0YU9ayLOxhPrKT48zl+NkcyNF+d6EqfA XNOBz3yTxuj+wO7/tFOmwNuEGvO4ZWP03udKwUDOFDgcVpAoLWuCBE6KDBuX TQE9tak4lqMJirm55MAdmwJIUHPmeKkJ2rm1JFiNMwWiq2Vn/GtMkBw+esVj YQos5u+sMv5ogsq+jba0kKeBdhNPmecPEzS9qXvHY7lpwK7+2v9LyhRVvkgJ HNo4DbTSzAQK5E1RkvXOy7Jq00Dun8wvpqopUvV913zeYBo4ZfwYWgFMkcej 53ZeO6fB2MelyCYvU7TVNNg/a880SDn2x48dZIqWm9QT21jTgGwqJvnuuCnK mMhtNPOdBnd6DE6pXDJFrTpXt8vHTAOKC2N4XaEpQqUBzK6n02B2x2hxz29T tMJG1Xdl2TQwtFTdKTBjivp6hhOsKqfBo7EXz0SXTFHEEuv9s8Zp8FrfoT9X mI6egO3WV4anwQ0oOC+sREdRLQLe739NgzcUeRnSFjqyPVAV929qGhzZdEGm S5OOfsQY1fovT4OauzerxWl0pFCrYmmzmgNe0gu3PLGno/E9g55n1nPAQV3L +8d30VH5SHZsiRIH7F1/RGW9Mx05C0tXK2/lAPNpA53p/XSknPFxkK3PASoG N94rHaIjrmoi/zUTDhjqFA3W8qWjZFuSOT+TA3zZq8Tbg+jIvf+NB20HB2QV nxMNDKUj9YCTMcFOHLB+qUh78Bgdvb88jQcOcEBi8mEx1yg6SlUo+CrtwwHz fd8aWWfoyLPIl9c+gAOed403GsXSEc+nL7D8BAc4zErkxZyno9ifFbdOnOGA VAW36A2X6EiYJ4vPKIED/Hv/E0xJoqMk6ZMH55I44PDTcKueZDqiaLhUP7/G AZLOvy24V+kozdxgU2gmBxR5rRT7lkJH61xXxenkcsAOPcW83FQ6ygnifJ+8 zwE1WelrjdLpaFP8R+vCJxzw5D3l6O3rxP+1rMJ8/5ccMDbPfjWQQUeazxKF 1Ss4oHpP6NLkDTp6Wu93eLSaAyJfRcKOTDoy/MpsyG/ggInI+iuXswi951TU vVs5wNaof3FdNh2hFQKJm7o5oOP2/rgogms3Dv0eHOCAxu3q4BnBNsZV9re/ c0ByiPnWCoKbHXIK9/8m/Gxq88wkeJdPlIQ8lwP2O9N+2BPcFcUK7l/kgGi5 hZp2Yj/WNVrrDV4uCBbGwtoEf3m4ZpurEBekPjryZj9xvkNVs/+tWckFE5K8 HE/i/KNdbdyOVVwgFv/4iSlRX8BEsdO1dVww59tA+kXoMU2+8mKXEhfQZ/v/ HEmjo2PrAldTVLlgPeXq7bfX6GhJxy6iZSsXFMhWkCf+o6PTTLXuJAMuuPji gM7EFToi7xem2dG5YDI9T6/6Mh1dCB/JELXkglcuvesCEunov9xcVoIjF4yR NZtgAh2tKTvz2sqFC/6UlxT5nqOjzJZ9cuT9XPD2nESRdwwd3f0r++WMP7H/ xleGgyfpSFVqEcJQLuifLevfH0FHhapdt5ZPcEF8yNeOp0QeS/amHDyZwAWO qx/x9ByhI5OAkGqjy1zwwUR/x2MfOsKxOzfNX+OC77eKNfZ40lF9kdhIaC4X 1HnNdG52o6M+0XOHAyq4QHXDmvRPVnS0X/Fgg3oNF0iV3JB1QnQ0bIjUfzVw gfLTpsePjIl+O/T3t3c3F9By3OFnLTrirQwLPsDlAnNB2RlbaTqK69jVKv+H 0BPNvD29ko5Efmtv+8w7A+L4grZcFKIjKZlxruvKGRB6YmRZadEUKYd6RexW nQGXxH7UefeaIg3awK6bW2fAQrIS+fMnU6TL46w1qj8DLByYhVsbTZHZJeb3 aPMZMHBIJdGv3BS531Hf/ZA1A6KGz8sZ3TBFqW3TWnyXZ4De4UlP5GiKsjL8 RO2uEc8PPR48xzBFd/YPfU+7MQOGgrgf7tFNUfFYe5ZG/gx4ekFaN5aYn82k UlEXPAPev88l3eIxRWS96JFCzgxY8X3zt+N3TZDYn7mqxYUZoKmTZ5aVYYIo OCjbkmcWUPUWlW8mmSAFOw+nXrFZEHXmw1t6uAkyOWT5VkB5Flgpme+YMDdB oddEb7KdZ4Hh9pN/NnUbo6GZtD2ir2dB4tvtzKBfNHQbbTva/3YWLIY1XtPu oaF9ic2XC+sJZhR5Nr+noZ6N5LpdXbPA8nHzdEYeDX3cFWKcyZkF4rkNz2PY NFRRZKugoToHvG9ZO9ypNUJp/ryj9mlzQOjRCr/JKEO0uzRTYEP2HFHPrsI9 voaIQjZU4tyZAyHL237d2GWIkjIDWGnFc6BMh7/irYohim3obR5omgM8oW28 l5oNUNCWF0+DSPMg74BJyxppA2QzfPjU1eB5EPLU4uFMoh6yOqX0yCJiHjjH tOmNheohs1V9PbNR84Ckzb5Y66aHaJZ2hm6X5oFj/ClxFeJ9RTVPi6N0bx6k Xp9/mFGli0QPcX2e982DCOcwf6/Jbahx6NTuLusFoG7HCTpoqIPsh5LV5OQW wdYXN1d48Wqg0bcep98//gPWlKsMnxeURZqSHevN9/0FEgdkKM3B/FgEzBzo 4yyD3OyBuLxUZWz923VO0YkHylBEileX6uKuKk9eV3Ve6LBDZ/XQXlM8iXpk Tmnxwr0iwhsdwk2xIN6hm6PDC20Ff0QUpphi/Tc07++GvPBKHPcB+GiKU15J NIVY8sKN0QzSIyYd73hWnn7RnRee2LjRMdcA4No8qa2vk3lh5wO1yKqzED9P qHZXmOGF+Qqax08bmeF8m4Y18fO8cE4/vaLA2gxniLW2/v7DC4f/uuZ9dDLD p5MHrF7x8cGXh76pzQSbYdv0Rc09EnxQIezJVNF9M/zt3tZ/F9X44NvvtkoL 0uZ4xbvMm3MH+OCvuJwV4T/MMe/5XBf3Q3ww4ePunRtnzDHX5gG1xocPWjug sRpeC9zd/DL+aiAfXHcXig3KWOA7Ha2BGqf4oPRau69nbS0w7bsQPJjOB7Fj 5q29jy2wFznsS3MzH2y9mHZU8JAllpGv6/zzkQ/ec2xR2h1oiZsN13/Y3E7w 49mWlOOWWP9IzeuYXj548U6UwHSiJRb4tOqG/g8++D58q7zsC0ucl/PCKZuX H/pxAzcqkqzwkPF8vb8uPzxnAYbbU61wupNtVYYBPxwq1D147aYVtg3MKX1H 44eG7sdXMvKt8LPbjPwNiB82PCf1xpVa4Vjh6+fa7fjhxIxNum+vFd7YaQRN vfmhiMZwSsU6a3ww5ORzsQx+SH/X7hF9zRrr63x+viWLHyrdHRANz7TGItPw hVUOPzycebJkX641fhIs8PL0XX74SWyvsFiRNV4KulLCLeaHqpfSyO8brHFq 4L1XfQ38UHdLknvdsjX21RIpX2jmh61CTyjjJAY2mThSLt3KD0dzdM6QRRl4 MEDn9c4ufpjl+Pek2GoG3hrwuqJ6iB+KkXKCTmgycN2RT/jRX36o/X33o1ZX Bs5U16+q4yHBZze6RDfsZ+CgsfSq7/wkuOnLocEDhxhY+oj7WwUREnztPTda FsjAHn4/q1OkSTBueXyi7iwDL/n+exepRYLO2cfjne8z8IctHu+v65DgC60D OY2PGfj2z+r3L/RIMK2wc0anmIGZvhfqJo1JMJTvLKOjjIFTfVY1eDJIcLyv Sf1YAwNreas12x4gQTm7REH5UQb+7Csf+NiTBAVSb2fyjTPwpSNUiRU+JJh+ 4VVl+xQD/wz+4/AhgASrPDzv2iwwcG5kQ7tDJAkyYtIjAwSZ2DH6TXhxNAm6 +F2WaxZhYp6Yp6upZ0nQKsRZe/0KJmbH33BpO0+CPjpLGeelmHj1Vb/+PWkk 2OzeJ3tDgYlrU/ZFvcwgQZ7Ko1/DlJg4NG2X/JpsEnywRWQJKDPxx0zjA913 SDDRfVnxthoTX7wnOuxWTIJ9FVn9WXpMTHvw71z5cxIUTY+dnDZg4h+POMrr Swm967h0AxoTWxb3+nx+Q4K3Wn1jEulM/K/84dj+JhIxD846BFkxccGbm4m4 hQQnV+8YpzOYmFX1n6ZiGwka/rhQuMRk4tJ3J4MGe0jw6b9jKZZ2TOxTHyhp 8ZkES35+Km6xZ2LppoPFd76S4L5O7qjNTiY+2rqde+gHCTqEmWWL7WJixXZw rfYXCeb+85TavZuJWzq36atMkOBnYJhxwYmJo3pUOuOnSZCSZa/xZA8Ta/TL RvyYIfT+Yt5QvZeJ+wZWrmUukOArvdfB752Z+MI3/rL7S8T5VXzlXrkw8cjI rz+H+cnw0U90xt+NiVNHBzIbBMjQ7cGijgaLiS1+fzJVFyFDn+G/X3sJnp54 9/mSOBnaL2y+dJzNxLemX0X/liDDmWwPLQF3Jt45U6hgL0WGCT8y6s4QvDyX iwtWk2EIbHAeI/jRYprHSlkytPGZ7bHcx8Rufy/yB8mRYc6xzfZJBIvwnL7T soEMeXrDn9QQXMIXaqm9iQzrHXl4xgj2Ivt8v7KZDKenxmi8+5l4lRArflqN DCXXB+wjE1wtsnPzLi0y/JNQ4TdPrA8Rt6h7qkOGNUaK7j0EK0gYHpbSJ8OT Z77rPiT4A0VdNMyIDMeXD4wfJpju7//zhgkZSsOcM/IEF7wreFcFCL5SrFpD nF9OcTLvpxkZhm90+uFGcFKkdqyEFRk+0N9eOkjosdwR4mHAJENr8X2ZLIL9 tZ9Bd1syHJs5kFxL6Nd3cUbu3A4yPG2pnrKBYNvv+n8fOpKh3t6su//XvxxG 9LY6kWH2xRu1D1yZWP1GaemCMxlWWEtxugi/RHeahFvvI8PyP3b+QoSfJx6c 2h3gQYYmDWKlwoTfo6Q3OtcOkeHAByS+ROSjvhRNfPMjwyTVvQ1PiTzRpM42 CQeSoamT/7bjjkz8IKD64dYQwm/WoRwtByY+r2TtExVBhqtOPz0XSORz/lSC Vd5JMtxjf2xp3pbIb1fdxsYoMgSu86FHtzMxI9H269pzZLjG0NXHmMh/yUji G5hAhoXHvnxNIPpDxexDlvdFMhRvDnB9Z8HEAnMOrs+vkGHxKmOr1YiJa/bv /bQzmwxVVWkLfEZMrPsqvejYLTLkuxjh1qXPxHdW9VzOvkOGTJHbJdm6TBxb z7Ide0CGK0+qeSxrMbGZrkdN/EsyFEho9hEm+r04KTe3oIwMnZp/pXsR80Dx 59CZ9tdkuNx8BT8j5gVvtjddqZoMo5/U/VGSZeJKQf+XFS1kGHs8T8J+JRNv 9Si4NvyJ0P9HCu82MSbOKZ84KtZJhoY/PUaFhJk4Ojhkq2s/Ge589i43no/I S++x+zM/ybD0XEBJC5eBXxXE3FDnF4AwnH3tSgcDC9g6yaQJCECp2YVszVYG dvipcp1XRADOqfaTypoYeESpKbVDQgBeaRsYuVHNwNTrq6+elhOAGfSS9ZeK GNjv7KOENiMBKNNitCyXwMAvFKIFgakA/HqqUOV2DAPzVjjE3YcC0MMevqKe YuC0+dmzUdYCUDvKb1NVMAO/9UfRm50E4Lvn05ttiftE1rkjLDJIAHIT1ihJ b2Zgr5l87vejAjDweU3S6Q0MXHT15FGHYwLw9aGrJ7tlGNi6SSFYOUoABoed H9gjzsBHzfyOtFwUgBYpX/lPT1njBnWegxvvCcBvdk5HE19Y45O8qjsb+wUg YAv63dlmjb9biHYpfxWA3qZSMmJq1nhnwti+M0MCcLzxus5BRWu8cWVhoP4v Aej8buDBgIQ1blynezlnXgAOGn0kU35bYTlDenMoVRBmP4j55X7bClcFONqu ZwpC8nXZ7YU8Vli9eFvbMVtByOdW91d41hKnzkixWncIQr3WwujdvyyxX2Sn X/weQRiUOf6vpN0SS11gXZw6KAhLc93cKu9bYq88r/qaKEH4TDHmS4O9JRbp O8EIeCYIdeKq6qYvWWD9Y/fFL78UhMVBErZbzljgA5Su1sIyQfhqTYuaY5gF LmHosacqBeGa/KeUk2zi/ej5RHBokyCcFSv4sUXDAuMkzxsnvgtCAcPqdf/q zHEEsh+PWyMEB/mO895ZMMPDdzek3IwUgkusAy6N2giPxX5d4D8tBHdb/V4K 3YDwtMetfT5nheC59euHV0gizCO/QU37AsHuflnSkxDLpClUVaUJQeVS10Ph jyHeGS8/OVwsBNW1Jjad2gRxufd6W/WfQrD8gGhHwSo6Ttm8llTqJAxrWWr5 952NcHKG17sDCiIw4Xt3SeSgJnZNYTeLjYjA/bGaza3OFDxvkbdws0IUiiUZ h7b7KKDBYbOIqngxeCSHpEFu0kW3TbVlmw6IQ8fgBnLGYYQenwuT9NZYAW3c VIfLFq1RvNPB7fwzK2DmiycKOyzskV7frfvxTSth8u70zcf3OaL0LTceN22X gHfDBxMqVJwQl2OVd9ZOAtZrJGtqbHNCOyqmM412SMBZByGeVLoTEthlcynP UQLC4Y4Ve5ycUFjkwuFTLhKQonLb4HKME3L8sHezhrcEBEd80r/0OiGxMKnc SzESUPNF1ULH+T0oujIxfXupBFwSN/qv9eNeNNpfmbJQJgHPkgV1gnv3oj1/ OMn3yiVglcPQJ6HhvUhd3/U8f6UE5FOWE1Oa34u6HiqfeFUrAU882lLBJ+eM dNLeuKm1Eee/wXx42McZffefkhOdkIAv9cTkSueckcPFjbKlkxIwy2zZOIDH BZXn713tPS0Bp68ulckKu6D/Bl+vfDsjAeVXu73fJ+OCoMsFnpNLRP2mJakX TVxQhoXSt1FhSZivurnUP9oF2ck65dVvlITn4wIMaP9cUPqQZqWbsiTcdrso 1V/AFQ09FuodU5GEx15vb74u7ooiYbnESjVJeMHT9mWfrCt6dEgpcpe2JLTN thMQM3RFIk+mHPtMJaG4GsVWPNAVvbNI4hnfIwm/ewr5ne50RZQVPrLRzpLQ Kik75V2/K3LvRPoSrpJwWf6nvOCQK5r1nfHTYUvC5zMGdoGTrkj5Mqsz/KAk 5CZ6Zg8KuaHYbtWCf4GSsO3Z5F9nQzeEAt65SZ6XhHxP5JXdr7ihxa6fVtUX JOGRvycerUtzQ8/MxXSOXZKEOjWKZR8z3ZDyWgeh/suS0F1uo6t8vhsSq+55 lp8qCbO1qXqMCjfUtXZcHN6RhK6dBjmNP9zQ1ViJhek8SRghcyNz6rcb2j6h M5R3TxJKgLt9Yhw3VFF9rEz0oSTMGdq0WvmvG7oTyOvdWSQJnZeO8w1KsFBQ jVRlwBviPBdvKpzVZyHVrQYPN2BJmG5sd0TEmIUGM1xS26okYZBEVlk8YKE9 QdlHaLWScMYT7PBksJCJ7Oa1Ak2SMGTD2M87LiwkFGwcktUjCQ/bV0XAEyxU 1ctm7+yThH7vz65WjmKhk1anGfyfJeFCS8oJ3hgWGpetkfP9SvjNCI66fp6F 2mrtG3R/SML9k4hqn85CN9d5bGyckYR3cwfVap+yEG2bmqbHHKHPfIr7hxfE eibXYH5eEq5QMQv5UErsfyxu+8YlSTgeVrX12Ruivo8PQiL5KHCdql7JygYW EvlxNJJCokB0KjnnQxML3Vk2icsnU+D831jHuBYW6lL7cL1NiAL1CooEu9pZ CMZxKtVXUqBQR7+X2BcW6sksr6+SoEBPx5fbY76xUOjTc23OFAoMjdw1OD7E QvlfVv+IXUWBTy5flX/0k4UkjU1W9stSoLTEwKkX0yz0bSKWnbiZAmMCsr2E +NkoUsDeW0mVAmsZ11V/kNhIev3q4FI1Chx6uDusQoCNbGzuxw5rUqA6zS3F XoSNiu80PTTVo0DzOmbBkgQb2b5Kff5JnwLFDveykyls9P3jvje+hhToRiZH y0ixkcy/qdZrxhT42PClKGU1G511kV78jShQd6eRQNI6NpILGuCPNadAVty6 xbb1bFQSly8uY0mBl2J4t1Pk2WjsKW2DFYMCNx8rWgjcwEZx9fxqfUwK9EoM cUxWZCOFr426IdspsOzuhuW7Smy0e8U+RrY9Bc7m7LB4uYmNxjdudtTdSYFL Wzu7nyizUYLxlFu9AwWWKLmX5KiwUbnP2cDZ3RRYqH3N6uAWNtoTbXv80h4K 3Hhn/5SeKhtNXlt1VtGZAuW3ePQuE7zx7b1UezcKPNGz9+BRdTZqVp+/08ci 9C8hPZfVYKOIVMbTw+4UeDt/MKuMYEWe63h+HwXa9T2T3anJRg2+Pz/EHaBA 0WKaeh/BoZ+MPksdpED6C6Mmdy1CD9MLY7c9KbA+N2Kpk+D3d3sWt3pR4H3P ypfWW9koREJN+I03BWZQ+pYeE7zuxMnVdr4UeHcuvU5Em41qBhs29R6mwNak Wll3ggPs1un6HqHAZ7H6U/cIXvPyiNmcPwXKlJRb/yC4SuH1znOBFHiRprVe XoeNjlwQ30cNJvx08Aq0JViay/a/FUKBqaEmJkEEv2EXnNQKpcBGx6QzFwj2 ebd8/nUYkadmmukNginaO9K3H6NADx4l/9sEl2fcvNsdQYEJBqorcwj2Ik0+ 8z5BgZRFvQ0pBEsEwLczJykQkzVvRRFc2pn88ewpCrywc+nSPoI90NcByWii H4QTv+kTLPZQe/zmaQocT2u+SSL4hVTMkkYMBY5mF1W9J+rZH9UqUn6WAr8s bmaeJVjkh+Jam3OEnm+3aOsS/NThqEpXHAXa2j2M6CX0Y716q+eVQIH+KvfW HydYYJOUBfc8BcrJr5UTJ9h1/tl+iUSiP5tdtqwh/CB5kAOzk4h+2aO29TLh X0GD0yn1ZMKPzIgLS4TfvDdnrzP+o0DXV3e0y4h8PBCyzu9IoUAbj/QTIgTv Dkl74ZlK5NdTe6WDGhvlWxp+On2dAkd+XKNiIn+OhQlfV9wg/GMmRI9uZqM/ a7onMjOJ/q321xIh2H7suFjpTQrUfByxS53I88zVV5ZTeYT/6/qO/SH6I3tJ dHf0PcI/o7zmDgU2YnixPMTvUyCt39c1n+inTKO/UVseUaCq+TVhTaLfzL7Q Sw4UE/PJCf/3lujPMebl2omnFGgRl7tvpzQbpT4daDv1nHi+R9bxE9HPP+NO T10vIfTpfpf7SpKNkjWqVFsrCL/qWXWrRIl6DN2EYyopsLzW57u6MJEXc+6I dhUF9pULuxkKEv3oopx3pYYC2zSCzdSJ+bM97oK8QyMFPj/k3By/yEIeV5SW eZqJfPBEHEHzLHQis7zvyQdinpy0c5iYIeZb8fh1iU9EXvtHvqtMsZDAgKNU SzcFvjPbKiw2wkLrR39NR/dSYLcB/Y43MQ91Z2I/avVTYD93KuzlVxY6KPoy 6fIXCkw5ffr5tj4WqjSQFd4xQvhV6BOYTczfk8mDf5u4FDjgl65q/JKFrt6I 7Ds1S4HfHlPtuon5/+Duqlca8xQ46B6f4PeEmNfl1hGJf4j6mveZH7nPQvo/ H07b8lHh0b3V6Z8zWGgShY40rKRCVakS23MnifvBTrz2pCQV1j6N0vU8xkLy znfvqFGp0ONkv4zBURayD+g6cFGaCjWWQX/JYRZ6mGHSZ7OeCvFttxXqxP3m xSF9rFOlQhkuuffDNhZyf2DRzFKnwgTfhkmkRdyPB2IbJjSosO/Jqaj7qixk 9YG/dpU2FX4JcfnrvIGFlB/yvTpgQIUDtx39jFaw0LAHT96CORVOrfum9G/Y DXm2/onYwqbCf045fmmJboh13ji83J0Kg6gW11/Eu6Hd8OTRHfup0Puc5YaG M27IomDRP+wgFZZeZJu2hbmhjRcWPLAv8Xspzle82G5oEM3ZuoRTYXxytdhF VTfkUTStcP4yFZrvvfa3udwVHYnZtWRzhQqFn8mWVD5zRWG7nnWK/UeF5Gwz 6bxHrihhJiwpOZUKcxpXv7LMdEUFRgt/0rKokF/RPu37CVe0gP913H1Iha+G R1Tv6rmi5FaxxOp3VOg82Csvc4t4n8v194mro8Le/NcR+9JcUG5oszmjgVif vONwWqILeiGdvNjQTIVv/xqvHjjugvpcqT6f2qlQyU81rcnBBakMrjX/NkiF K9of6Kr8c0Zbn52QuzNMhZ5r69ekcp0R7VzvwqERKkz75Z4699MZ2apkPfk5 SoWOwo/dr7Y5oxA/BbmpKUKPPAVVlfvOKNLkzEIxhwoXz0h9Uc12RufEv7WF zlBhc3qI9ob/nFF6Ye7F+XnCz8SX94YjndHt0yTvskUqrJmza3oa7IweOhwy i1yiQp4Xjy+HejmjZ4q16+nLVBgnYTSh4uaMKjjKC//+UaFs7J6xph3O6H/0 pLlR "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-3.3259627455478986`*^6, 7.654025705261322*^6}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k8VN8bx5lBizBDSZuQkLVUInHOkYRU9oRk37eZQdZRJLIOX2WpVNIu JC0kHNmyZd/TQkLWQRHld3//zLzer3vuc57zeT7Pc+8Vt/cxdiJxcHBUEj// /7/FtOfZ5xii2avFyniwNhJVtYsZnBE7CwqOTSRWv4pAqzVlkWJibkBd3Wl7 lFMEulWRsJNbLAhYxL7hHaq6hDw1/L1+77wKhOVuFHDHXUTty66pMzszwEGy sGq0aygKqBXdO/08E6y89bXa0xOCtv7X0TB59CZoPJeauqAbguxlIfmny22g 9s38MY9iMArM5S1md2eDaX+jo8PcgWhN/zfpyZ2PAV95tKDFTwbqqXjnPzH6 GOjJkLUWPBnoyYP09z+fPwFeIsHxD6bp6BT91Pnxo7nAWW3tVrhIQ9fXlVz/ 4ZIPPGOHxvYI+yLBm3Wk2e5C8OGtzA/HNW7obv1t2s+dxSD+wovWMLoFmk9/ Kfs5vhg4svU/2fSaIx2XhqG2pWJQsRI9maxthibIv81K2kvAhhDbuE5pY6Sq cerw1ehSEIjpq6e1dFFL/gpJerocfFnUu1SuwosEwTobPsUKADvteuOOr1ao S6UejnasAGsPh9zi5NiBE+cfzwW3VoAywckg6qN9+EByp5P9UwxMaqjvzn/W wuH18vr7zr8Hv8T8BeNqjPGj56+lnl57D0SyT4qNfjHBbela5N2N78EEZcHo 2W9TLOliUSqiVgUcSOvIV7aewfXky4ocQtUgRmj9s7UqVlhYo1/wY00N8Nss cOGSox2Gks7Tun9rQGx+jvCBLjvsxjvbULm/FlhXv3E6pmOPS3t5ol7dqQVp ASN2ieIO2D5A+fet4DrQfGzGj7PaEeflX+33VKwHord8BO9iFzwuOB6vb1cP 7H9tF0zf6IqlA/Q1ZVLrAZeP8yYdZ1d85wjv3aGlesAK2cL/kdsNp3yId7as bgAuY9KvGg6642b5yc2qiw0g1Sel6TnTHfOyTn7YJNcIXk8ExNjUuOPL5vzy raxGIGuUf13I2AMHDCXNHrduAnIxIwxxK09cqDOTvTupCawE3xGkZ3ri6ceG puTKJiAkyhGZ3uOJXX2pr8ukm0FEStgpbyMvbPk3JfTgXDM4wzfpQjvoja/b zikISX0ExypjL+R4eOP29yafZyw+AhVH382ld7yxQexGrdyyj4ByvEznzhof fJu3IZJ6rAVQBBpLvOt8sKZGiPVFmxbgcFagYHHBBw94yx2cvtACdI3c3x+m +mKRtriRxictwECizFf6iC9OTjfQi6G0gpubl1J74nzx3voV8d97WsGG6k+x l7J8cfNy7h+no61g3jto+EmBL15/ni/3aEAraGu/KR/R7osjdzfzr/a3Au2E g7WWQjQscYb5w2uhFdgkqaaJStBwRYxixQB/G/jL1r/qtpeGV34m0kpQG/ih 4rgr/QQNZ+4A+nus2sC3nQa0MAsaVj09LZHu1wYmmTwKk4407F94usP/YRuw cB3b6xNKwxuHV3OHK9qAAGKJREbTcOGmgiiTvjYwpbDmmWQKDU8FUg7t42sH deW5ghsf0HD8kwqBO1LtII+yJswhn4ZlB3xH+WE7ONt0teboGxp2Aa0ZE/R2 cBNXiJXU0TBH9q+S/rh24MpJz5NvoeF0ru0D9TntIOvqQZ9D3TS81wX9LX7X DgxsqDv7P9Fw3Qdn0cdd7eDJa9MgkWEatpWPB+nT7cDOL111ZoyGFxOf20av 7QB5ceXCDtM0LGO6ku10uAMINr8R2rFE6PNKvMrUpAM8dqjNdvpLwxZbjn8/ 6tkBRnn37zPgpOOZEE+e/VEdgGfojH8rFx3HDCZLS2R1gMmaQclfa+hYDL3W pb7uAOO17+ZL1tPxm3sDbhwtHcA0QzVDjI+ODXlIcdOjHUCD9LVaWoCOR12l cwc5O4H2yTSFVgodX2wwaGra2gl0i2MjdgjSsYgifap0fye4NqoWwCdExwWs NIFcg06w24hRfJdg3bnSvTecOgH7qdlKH8FfzL4ZxTI7gYSj4VQxwYFv1jCC 0jpBGI+kJiCYsk0h1bWgE2ws+JbhQcR/HGb88syHTrA5bCYPUOlY68uFLp1v xH6/ybKlRH59Wrd+H1zuBDlRUq+/EvnT71eK7N7YBR52F3E+56Xj9WtH1TYq dIHL5ueLZNfRcbY7nxVZpwussGSDTvPQ8eEm5VC2TRcYeeyztJNMx21KFre+ XugCOtUDn26u0rB7SlhZC6sLpPv7N9cs0zBpIftz+eMusGbPf/Ss34Qfz9Rx 5FcS669/95Wco+H67UJHE+a7gKdPhpAmUU/7cFXHUL5uUHuZj9Q+RMN/vp6L 8pDqBufDBwZFBmlY7uGjWj2LbuD8I2imuJWGq9Y1j6rSusEhJVF34QYatvac WycT2w04Rz9YSVUR/tynacBT2g2uGJXvcXhJwxNv21sqd/YA1cqST3apNHxZ dGn2uWoPmHxQftUjjoa3XxIVumvUA5zidmUrRNCwgY6bWXhkD+hvoV755E3D z1r+9ar/6AEdiS5LK9o0rLNfclmWoxf4vHnzs0+Nhgev6W3fuqUXVIhvFQ5Q pGF+q1SbRf1ecDed5DUiTMPe3/cMFeX1ggwt34DyYV/8xaZ3Lf7QC2Libytc 6PLFJj0xik3DveCS6dmO77W+WLXhR9D3rX0gTflg9/hjX0x+fp8iHN0HQrp5 2x+6++L0UHHNC+f7wfU7bT2by33w+l8tDpHB/WD+GrtfINMHh/lcvJp0rR9o r9btj/fzwfb2nzseNvQDHtPyY5tlfLC87i2PnkMDoCKH0/zmVW+MhbZkqFE+ gVCbgnUxh7zwgYS6smNyn0Bz+5Y6B14v/IAncNhI5xOQrSl80TPoieOXupTc Qz8Bkfo+6n+XPbH559SazNFPYGsWieXZ4IHHn1DmlysGQWzsbG3lcXe8Xvyy 9GfVL8D4z7ULSmQXXHckWYl57AuIm45gyLQ44ysWWYd2GH8Bb12WZUZvOmMS 681xK48v4ISFumr5QWf859+ES/etL0CkwpI95OiEfw6YPfpI+gpAlvyrqmIH 3Jguvaei8Stoyhc1Tz1qixMpDbJ3bYdAm8/hNVZkY2zfb1pObhwBz1dvb569 cwKtv/HVi9Y7AoYeFyuJpBigQkvv7Z9HRsCBX2f0PkScROS+6KASzh/A0Eb+ EbY/jXJ6SvbTDv0ANImhQPdEIzTSKfZoMPsHUNJTPzKjbobcWyZYxUGjQCPt LCPBxhoJsoKAdPQogMlkrZUma1RymmcqNXUU2J4+s2GjxjnE+3HnCd/8UZDy LiRKfasNym0y5pb+Pgr6I1NWTVvOo6n6N0GphmPg1IDxlehrdohWfdneR3oc bP9ks3Gy3hGJDuvw/No/DgYoauLKS46ogbTuSSgcB/Yqn0m60k5oN0yYvXp2 HHyLFD3zPcIJ9ZZcu5gTNw5CyTuHPx9yRqjgQVbv9DgwGb1ncy/dBVFv1PUd ffMT9Mxoqv3a747KimOZ9VU/QS/Jk3vSyh159BhIGLX+BMFm9Zp5ke6oelOr m834T3C5OuJUUps7CmL1LgZunwDpsgdMar080NeoceG8ixMg1NRXaCLDEz33 3WAiojcJLEXqzq+v80aNmUJBz8wnQQaL2Vb/0xuNVG29reU4CfJy0wSOC/ig rVv2/PQMnwRXGjKt6GY+6DI+FolfTgLPt3LhrEEfZC4Y/sJdYgqsXPS4/IPm i3yPXOldVZoC85KezlmXfFGsc8JqqsYUiErTPKic7IvKS26cKLeYAoIfzzvN 5PsiGYc3Q0JJU4DBCntR/dMX/XkxK/RueQrkBe8QqLemoY2Di2rG66aBvrbx YX13GlJcy2H7Q3gatOiGZz+4QEMO1vy5VOVp8CVPY818Mg01cslpO7tOg3eX zoAvVTSUZeboJ9A5DTRL9sst7qKjN+EemTnfpkFGQNE9VSU6an9Mr1CbmQbp o4sTpofpiCsc8hRyzwCrnLjPYoZ0pNp+ynhAbAZIlL5o4w6mo7shHuN7z8yA 3Lexezhr6WhvxbrF6HMzILOz7KzTRzqq4HrE/dlhBojk+/Q+7qajLwnDYgm+ M+CPwr2q9h90JHrn3JmxqzPAhpuOnvIwUN7wsiNkzYDsIr8hKj8DaezJpKdd nwFep3d0WGxiIOvCroRj92ZASpZsTvQuBsqsOl11t3QGmEus2e6myUCy66Za FytngGTUp1Nt2gxUfDL+8+kPM8T7nWrfthPE+3xX3Z+/nTPgdFUkyfAMAwmP oX2W0zNAt/NG3xFvBnqg8EXz+cIMIHncpj5mMNBBOtNg7coM4Bg6+3IhkIFM l0tcXq2dBScerDXcG8lAKXwHsgQlZkG3WoSK3HUGkjBue+omMwsuFJ5VuZHJ QM+v+xZXKM6CXcf48c8sBmrZ+azDW30WuFZwXlV8yEC2jie+VaNZYGqf8VHs KQNNPxqb3q47C+CB8hdzeQzEryzF22A6Cwo+cbupv2KgrIAqEQkr4vqZXO2C YgZSeGsvFWQ3C9aN/WzjfsdABtq3kbT3LGC/6Nlh8p6BBmI0TjP9ZsHHYuUR /RoG8mjqt+4MngXOwuGBuz4wUKy5SGBk9Cx4UtgtdKGZgbbeeBXVlzALatQK 97BbGOjxZ9P/9qXOAl2DbbtOtTOQquTcnZjMWaC1rZ0nrpOB6lyT8z7fmQVL u9/1P+pmIItnSqUqD2eBCN+XRw97GejHbNOHhGezwNbZyT+6n4F4QtZ/Vy+Z BSuRP/eMDzLQ9fJH7JSKWXAvd0LM6wsD7eY6zjFeMwtyXhsebP3KQEW63/lQ 0yywc5/0Fh5iIO2EyG3p7bOAFFDSeWSYgTpaxfdM984C5olWmvZ3BnIQrlDR +TILeGY8TyiMMBDb0kb71giRf+uY+2+CI26vGM1PzII1mdU92T8YyHDvG5rc 3CxwYBpLKowykChmJNsvzYJTW75xZBI8YaT0PGN1Fjx0aAkYI7jk23hLCzcb 7PZIS9w2xkAxjAczazawwUm5j4Z7CTbnsqcAQTZIdlaokSZY8tqOvQEibPAh POo3J8Hs3b2nn4mygatJ3WQZEa/iVarPsCQbTFO4Cm0ITjxumLRNjg0ubnQ8 +ZXIz7qHN994HxvEVOz9oEOwrFtt89VDbOB35qNiEnGexaWIqQoNYn0nji4h zl8Tq8m/eJQNcuoffKoj9End9kdBSZ8NEg+oHS4h9LPPfXnS2ZANWiwMHyZ+ Y6C9GjSvW+ZssJz1WVGH0Ptfk3xChzUbLLj/6vvymYEabUZzeR3Y4PTv8pc2 RL0yp+81arkR9ytFfigfYCDXi+cngnzYoC8uW4yLqK8KdduG5/5soDp2o1qO qH+bcsqJnRFsEAtu7tpN+OXO+5Me5jFswM6RYv9qYyBv03VxCYlscDszWS2X 8Nv6gIv1y5lsMHJR5TxuYCBU7K3X84INDpDLYVoF0Q/6sm4CJWygtJJKuUL4 faDve4xOBbH+5+kiixIGClyxritqZAO3z18fPH7BQAXgxPHk72yQcHPx6nIO AzFbeFzqfrKJ+lbrrb9L9Itd5ZXVWTYQN/mk+fcmA41GqNV4/WODCFLwclIq A4nVSB/T3zwHzpz12O0ewUBT5kOOl3bMgczRmYUbYQxU+iPr8ptdc0Cg6ahD ITEfLNYJV0ntnQP8Qu16CcQ8YRlwHSXrzQH0Sb5yxYKBONq/wNLgOaD58vmV ZhkGujxWdjf40hzoqhfcUinOQOs4bpHUYuaAwpDAhetbGUhQ4WzVy2tzYH+v xdevvER/RLcezy+YA34Hu6O4J+lIX73yVPbIHEg+uEk8+TEdNRvdybednAPd e9MvZt6hIxNXJmXn/BzQr/YciUqjI+trh9tucM4Dfw/fzeQoOvKeLjS7tn0e rBE1M8uwoaP/7t2zjjGeB7/nT9Qe30BHIiWX3umcnQfLe5JcQzjp6GbLeVFu 23mg8E7aKeUXDT34u+3LJa95UGs4Xuf+hYbenEl1CImZBz3zr57WFtLQAG+U u3fZPBjcIV5wzJiGpPycA01lF8BkqP+9hVBfpHD4s8ntvQvA7byB+UsfX3SA w0JpXGUB2Lr/vmdj74u04vVGwo8ugJdxPLbex32RTY686VPrBaDhdzPpMsUX Xe9gK5GSFoCjQfEhdQ0fxH0w/Ef+3AIQrp1vljL3QsMLaea8734B19lL+gwh N5SN9jM+vf8FglXeP/jz0xWdT2hOyq//BZ7UvF45W+WK+iS5P5j0/AKss89D 7vq5olYTuvrNuV8ghZ0jZNnugsqeG4gpyP4GFpxpxjlXnVGaF+f4qbTf4Mnv kZCD/Q5I/7t7WAptEdQ9/M7ppWmNTg2z5ERF/4Avz6b51nIroPH39hfrni0D jp023xLiTLEitWvH0fN/wfib7Bndwy54PViwG5j7B1YGgs0mNWg4EMmsffXn Hyg9MEJaMqXhkaNWeUmcq6Asu9TltwcNV+riP1oCq2B0vS9nYwYNBxsn/PdY dhWoGc5sb5un4Z9Ou6sD7FZBO9dLd/CIjhvjzWSoH1eB/Qp3FB+XHz6cFNM8 3rkKTGUCrx/f4ocfJb/1qxpYBYUDfk00RT98+bo4vjC+ClZb9G2uW/hh0ZZf 8tMkDsjbPzS1I9cPd/VWVpuJckA76nZxYUN/fHzS8reEGQcsd2gU2hMXgLM2 RraHW3DAQXH/tPFbAXhe/Wn+gBUHZL/ZfzOzIADfiV12uW7PAT393/+o7gzA f6Rv9qzz5YBjw6mVx3dewLn2n4pnYjngTG5VxnjeBUzpOR9aVsEB6w9s+wYr ArHzarTFtioO+O2ftUpRSyAulSo4EFjLAdvTn0ps/BqI3fw5Jvc1c0BJp8bY DM4gXCl499z9fg7o8phOKUZB2O/kN834XxxQnPxnWLMsCPdUOnJaynPC4eTG b2sfBeMZ1Lc1TIkTHnu2co3nZTBeg08fuKPMCY/z1i/O4mCsUn7YZUSVEwbM Gz5I7g/GqW8pTfRjnLDjYsx/c3wh+HRRaXqcDSdkFMoGqPmEYOf9yoV5dpyw 20Mxny8kBDMLHza0OnLCt57ypI9XQnBuQcq/zR6c8N/6iDaRrBC8/pmrY84F Tpih4SlV1xCCa+5v3PuOxQkNysc3Je4KxYOSsXpf/uOEJSH1g0qKoXjh3qo9 OY3IX85WrUw1FEtmj1/Tu8UJHYVokXdOhuKIrIrlzsecMFicFh8cEIo10zxr pyo5Id6w+1FYVSh+GVNlI7bACXUe1l6INwrDj/QbRKIXOeGda9GXbS3DcOaG trbJZU6YbXLo0XaHMHyR9VnnLYkEvdcMC530C8MG6X8UzSkkOOM3eTPhWhj+ 9nDvapwcCdpVKb660h6GO90OFbMVSRBqD8f09IXhOjlNxlllEuQRGlykfgvD z/JP/JBSI8GshTep6jNhOPC180esQ4LjkfUrrrxMzF978/ZvOxJ0vXO7RUqD iTmv3jtr40SCP/jKLaa1mHhe/4lQtSsJpnh/Fr6ty8S9za+jU3xIUHimfUeR CRPndLX5KISRoOl2+9cvXJk4Lb13T+pFEuyT+Hz6pRcTx1p+GfoTSYKeXJmz t+hM7DM4eaYulgSn4irVJUOZ+PDIWuiQToKCv55YcSUyscIjgT8fbpDggLdD nkYKE4u5CxftvU2Cxo67v527zsTcU7tk/t0nwdlRrj7jLCZuWdCkZLwg1lcN xfE/Y+L3r4/Vr74iwUsuW12YBUz8KsjgsnMJCZ6YzV/teMHEN/6eXdyPSfCX fLCFSgkTO3P7f2luJsHpaX61D9VMvHXnh+7lVhI8VTnsplXHxM2qOz7KdJKg SPi94Pv1TKziWf0uop8EdXdr7t3zkYnHo7a8zB8kwVgHr496rUycddsrd+Ar CZrtkz9q2s7EPO2bbqiMkmCk4LVbUt1MXDLhluLwkwTTA1eZUz1M7M1TdpU1 RYJs/mDZO31MLCEmeOndLAmylq/cUh9g4i4158DxeRKkL77srPhE6GlS4rN5 kQR3G+W0KH1mYk0vfhftZRLU+bISF/OFie/feWWWxUmGeh/6D//+xsQWJetP NnCRYVfC8h6+YSbe0GGjvbiGDLecfdOy4TsTV0wWqu/mJUPBXA6FXwT7rVmz 35ifDEujW458GGFiGXEr2XAqGV523/cv6gcTDxzOF8/dSIYdJw/7yI8yMcuU vKV3Mxma3hNILCVY2/sMhWcbGR4wHrJQGWPixeina/aLkmFu0XxTBsG5d1f/ nRcnw73XWD9HCLZ9a/IrXpJM9Be1YMc4E2/sfDhZLE2GedsGt2gSXDe1PDwi S4bJPp7SugSHrjUcEFIkQ550zW51gvdK5LTDfWS42XVYegvBw+qL9V4HyPA/ weXNX4j46WYGlZmHyFBZWuEBi2ADnzvFtYfJcDpJuVWWYI6r8wXzGmQokNiS lkfkX5St+0gckaHc697FbQS7lt68fUqbDH3YCnN04vzbu2auhxwnw3v+JVEv CH1aprUTH+mTIawMyv9E6Hd5XUZU50kyDMxm+MwSeqvumgwlGZGhqtS7qqkh Jp44gvyUTMlQ505gXidRnzvm1zysz5Chwr1OuQdfmdjUd8z+qiUZ7vlHOWJL 1HNtrIblq3NkKFviN0gm6l16L9loyJYMu4UtBJMJP0h2q0ENFzJ0zz8i70r4 p2cm4ZC7OxmOnVekFhL+il//TTHNiwy3p16M+t5F9LNG7I5ZBlHfA2+2riP8 +ejM4EbRC2Qoeur34aUWJramKW84EUyGM5r6Y23NTFyV0/cn5yIZuqr6TGsR /g8sU2S3RpKhdAX5eG8tE8v3RIz9u0KG/4T3yZ8l+ieVV67HIoEMrXrcb2+q YGIHesjLDZlkeCinSv5SEdE/yoMv99wiw1nrY+2M50y8ng1f6dwhQ/WdR0cN 85i4gMbz+uIDMuxVOH2+/iETr/gmv5kvJMPxmgtJJRlM/HHv/BvqKzLcZGz1 moOYB9kz5sWKxWTonydpvI+YF3q+20tcy8nw4ObwIaNYJr7u8/DtQAMZTnFH JbCCmNhNaX3pUjMZClsHOMr6M/GRac9S4TYyjNJ79jLPl4mHvJXfGfaQYfDL kIYAF8Jf3u/KqobJ8KTW1h9cpkz8wbMd5/4l7t/9QmTrHia+Ka9S+YGDC273 EzhovYuJfSfSK0fIXDDxqPpQzA4mFva0eS+2ngsWbAxeuUtlYnuPsapUYS7Y 9sfpbPtiGF5xW60NVeKCr7dJZBx4H4Y/7rGvy1DmguJD5+rFSsNw9lhV3auD XFBkIrTgd1EY1nOL/TCjzgX7ll/fd3oQhq+7bmpw1OWCKce/MLViwrCSi1yz gR0XfGxV7UzSDcODbjt9njlyQZlDVc+HNMNwvKcQhd+VC+ryaErmHgzDY7Rl o4/eXPDgvDuLLRGG74U2dBqFcsHBltB/ZiuheHOKxyfzNC4IDy7uCXkSimtS zzNfZ3LBf/89ILfeDsV+aSY7RbK4YIRN+yn+a6G49aa6XW8OF+TaqnoKhIfi uIe8360KuWA3On85xDgUr5Y+nbBt4oLnxHXS7eZDcF757QTcwgVNn3lQ942G YOvK/xQlOrjgfUey2Wh/CC6uDfEd6uOCk9a1JvzvQzCj7cS80ygX9GpjDqiy QvCPHz+X3cnc0HdvTwGfVAj+KCjP66/GDRMfbiaNgGBiPnqN3TjCDQcb3+aW 7wvGebV5tZWAG8bf0iNF7QrGiaH7LlN0uGFMRmxtG08wNhhR+fvUmBvKgHLv kMYgXF+Mpr95cEPHFylsHtMgXG17pt0wixtm6z9fUjENxAfepj+/cJcbtuyY oPx3NBDnbOpLysrhhizxvOf9yoH4cr21wcQTbji6/2CeMjUQax2wr45+zQ1/ 6Xu6LzZewBVrvF6XtXDDHvuF2jF4Ab/Ni7ghT+aBA3k2TTe3BmAeA7OtaTw8 cDS05B0HTwA2GpPO4FzPA1+1BXCfnvXHP3Y1Xe+i8MAWu8baJ7X+WChjc8pF UR7IjMQmtgx/7BGZG9OhxgNHNk0lNdX44W0WXf6hvjxQ7HnXSbINA4dwyho2 fuKBN2dsh9MMffGINm+P1FceKNoypet2yBcbxkycvzTMAyXUk7tlRH2xpEC+ j8pPHmiw0dLwe5cPbtx+IOnOIg/88pt/i9N6HyyqqtnsJ7QGtnj3nRt098KV 3sYGO/TWQGuRE4aBgu54/UCwrnfRGtjoE3U/huSAvz8QT70duhbOnBzZ9BJr 4VSZLVzFZuvgxfQJ8tIRC8TKdK61E1sPVYSaZpWueCLL1HPNG36sh9lpSerB zgFoUfv+0u0yXvh3XfCmh9RwNPRdK7AyegM0JluVnrCNRNka+7Y12fHBEpn6 vEeK0ajy1PrIZUc+WFi9cPWfejT6dn5ofI8rH7Q0MIUn9aLRrohrJVe8+aDs 5VSJTodolFOzdBaG8MFdn9YtJaRHo/unK9NfpPLBdW5pHbc4YtAjOxPhzFo+ 2HQpcJG7IQY9i/KnuijwQ1Kh9K2w47Fo4si5iKi9/HBWs+nJDeNYJD+vPXdv Pz9cyNDUeH4uFj2x39j5RY0fHs6j91QyYtEj8CLdUocfXuM8AMNvx6KcpZmd p87zw54Sy6wzC7Eo08tT8WAyEb/rsce5zDji+8r0tkkqPxzYqXjTNicObRlQ p9DT+OHfSJ7rlnlxKF2fl513ix/e7V5pVq6MQ9ekn7yUecIPWWtuv2aMxSHW 1x9Htr/nh7QDQsHKKvEo2szhBHmBH+7Tu88fVhePsk8PWDstEvv599nxtcWj Uj0z79plfqjP3sif0h+P2BrHk+NIAlBGm2keOBWPrKXkuoUoAlBJ8uT4a6EE pPybbS8pJwAfN0gc+2uVgAbTI4KP2QnAwbipIfpQAlpKWY576CgA/c2ORF/6 mYA2JvjdWucqAMUNRgoj5xKQ3iXniiZvAXjFxzbWnpyIitz0ecxDBeCFTqf4 qxKJKPawYIpzmgCM4bIMv2CTiA4O3H0c3SQAOXv/ST1uTEQURdfF/BYBaPY0 2Sy/LRFNhCse72kXgDfNNUhPehJRzq63wzJ9AjBrIvh96HAi2ujRsbN+RACm Nt9wSltORH9CySd4OChw7dv6A7ekk9DofWd6JicFliYXSI7JJ6Gu5g8ZimQK dEuu0t+jnIQKxVij5jwU+GpwRfrKkSTkXrX9ysMNFJi+TfrZc8Mk1MurgnW3 UOARQxuJxoAkVHMgY3RgKwWqM676ng1JQkXnVgRo2ylQNPxJQV94EmLlV9pk 7KTAO0VHf72JSUK6JqdXxnZT4KPkgV3DGUnoTabroThlCtQz8Q+bLU5CD943 2Ow8QIGGXHdIpe+SUOqE4pUXB4n8qYZqwTgJ+WoudPSrEvmcffK0tS4JyXy7 RJcHFMgvsEZ1oisJpe+58azpBAVuDdya2TiThObndO5HnqTAyMXbXpT5JHS6 jH1T7TRxv/Bs1LHfSYjHRD/+vjEFFurY0SP/JiH/0CX3sLMUKDHQMPCAi4Va dO7b77eiQGUNtQw+HhaSpxpZjllTYKhx2XfPNSw0fP+RnpktoRd9u9Sm9Sxk /PGMjIILBYJ923k2CLBQXgZZbMiVAqtfSnMforDQOsf8zRnuFDixOTfCkspC FYs8a7i9ify9Ls/ECrHQ9veF/0p8KLCpNnkgbSMLBSbY/PKlUaBOa6zmrU0s pCTx6vuAHwV+1m61St7MQrETdp9SAijwq8GU4EURFhp5xdepG0iBU/D6IZct LJR1wqmqKIQCVVq0seg2Ftrgv/FefAQF3gLjN5VFWcgVVGRqXabAYwMi0cME v1/nmbIYRYG08evNiTtZKDjr/SXHqxTINZXu1SjGQl2uPkFb4yhQ/LUSPi/O Qsr7t9Fa4ikwP1Pd/SfBY7V02yMsChy1/130U4KFtFNELdjJFChf2GJsu4uF 7ljXn370HwVeYtM0mwhekQo4bnONAsWmfvkrS7KQxaw42JhGgXnHmL+TCC56 26RSn06BJNoe/J1ggStBihczKbCmfHvr/t0s5G64W0rlJgWqWYbvDia4Zmvr jolbFNiBQkrfECzxPXRT9m3CP8YaqdMEh+XL8FncpcBhuPBEVIqFeoI6uPjv UWDt7c5/xwg+oH1x5X0OBYoMCCU6Eczil58PekCBg2DUPIzgnz3dP5UeUWA4 O+FMAsE69yKHvj+mQNclrcRrBGd7KfXfeEr4SVV36f/871B/m9EzCqxnfL2e SPBZUnT9mnwKlD5l5hROcFGjcuW7Agr8dmLS3pVgStpgMaOQiNe2kKBHsKdd 7PM9RRQovKdsWILgOjmVx59fEvoGpTvNE+eR/PX1zrXXFCjU1stfRnB4RUL6 iWIKLJLoGwwnePxTRepSCQVWJFXKqxNsvjzHelhKgU8+941MEXpiEekEszIK zJ7I4L1BsLyK5VVyBQVe0ArKAASnmSREPccUeGrnQuIAUS8SreLS+fdEf/nF j9MI7nkqFfy2htCnXrg5iqj30Q9nA9zqKPDHvk0mXATnjcTTN9cT9R04phpC +CNKfM6d0UTon0DfYUz4aUZTykX8IwUqPEzaWkj4zdr6rMPHFsKvMuL09QQr p5VbyXUQ88GZUy5nBwvdKmKf6e2kwDH2lavft7PQ2rbdptHdFBgYPXVkJ8Gf N8QbDPVR4NL56ZshW1lIX7ZcN3mA0EerUyeL6IdXx9naYJDQ100FFhP9Eh9h oXHjK6Fvu/j2HmEW+n07Tk1viAL9U/hX+ol+s39XdvD3MAVKpahL9RD9qLYo qWgySvQHTc20WJDoN69ZUd5pCszVSZ0T5WchozjJbcUzhB40QPq+gYVKH53Z 7MIm4sepGt3jZaH/ht4JvF+gQPaT00/XrmMheDaWI2SFmDcy+koBZBZ6GvBu ReYfUV9S7M5/nCwknDqz2LVKgZJDnTpMDhaabDafVSZTodk9fc/mP0koU3vX t/F1VDi3I4n9ajIJcdubD6bzUuGLV7M8+uPEvAy/2qfDR4WasicCm0aS0PGS 6bZsChVOF7x1u/+ZmI9Kpe8tN1OhZ3PJ6YyWJHRym9n9ekkqtLlQEZKUT8zT YcUKKykqtMyMf8N4moSGn63tn5Am9ns8BvQfJqFQWEoRkKPCau5emeasJJTr tCvUZB8V2utt0NyXkITWF8waD2hQId/BsjMOLknIPKjBywtQYbLZy7se9kko W+t+zD9IhWofD0o4n0tCap0WZWLaVLgp2Llyn0kScv1TvsdJnwrTbS7a7dJM QrXaiRxT5lQosSZQ1YeahAT5XbeFW1BhmdYBn0zeJGTTjVQollRItSppfM2d hH65LXgon6PCB5X1i3VLiUgqybo7wIEKf+4N/af9NRFd7pXNW/Whwtjvx7fe e5aIkHetFfUqFXrb3T8+p048P3vGdKpiCT2mNTaX7See30c3KF+IJ86j3h8T KEfE22K09lMSoXdOjmHp1kS0oaqv6NF1KrzIOO4WvpiAerZM8cEcKvxTonB1 riAB+VZvrPAup0J90f8E/9uUgGT3Hnoqjqnwrc+rPiPeBDSUefZ6RyUVbm+x 1ubgTEDmvlmeh2uoUDzi1V+5iXh0ZJvMFp4mKvwsF7uxHMejtTR1+q0+Klx5 9eNYh1s8ur3dXrJxgQov/zyZWP4sDh3eL6do/5sKX+owNI5lx6EOvflDi4tU 2Oz1vLT0ehxae+HKCckVKnTLlFK6FB6HfFuf0ENJgjDxXcm/84ZxCF6Zq5AX EITjRvUKAdOx6Nv05XMJMoJwpEJrZMOuWCT5/uH1U1aCsHDI9uZ+2xjULL+Y M2AtCLd+MPwXYRSDAq/rvnC3EYR9Dc9FqrViUIPb2McrdoLwVGc8U3x3DKJT 5NaVuwhCtsvSMfWxaFR+Li9EyU8Q2tf8jZv3jkaWi0W2lARBmKuZK5jgewWx FCpl28oEYfyCfPaAwWX0SNVqXUSFIKxj5Jg7qV1G5Ufnf+yrFIRaZR4Sn3df RlNnpe4nVwvCGpXdAg/+RaITV2J3GjUKwovy4o8v5Ucins/GG1t6BSHHuheG DP5IFMIa+ts0T+THGSx+Dl9CznNcrR9khaDqMy7vqMUwZP+cLXY1SQguXtgp UMGkI88IkxX9ZIKPrtga6tKRv0lR94b/hGABx9k31VQ6ilnwT2RdF4I533Kf n8+hoTy1peW0W0IwXmqLq3GdL1rCq10PngrBmHmN3HBhb8Rq25BQVSsEH/FF eestO6PMe16uVz4IQV87U+b3aGd0z6/5qG4DkY/lZtfTG53RK2HWn4ZmIcih HKSXIO+EBiyFXNs7haDYUlldkaUDkh7acvTbEHF9b6RlltV5tLcoWDTnO8Gi nCIF3jbocFT/ktMPIWioqZZld+kcMpC+VTA2LgRZkzqU+/etEN1DTHR2VgjO uL0bLho7g0KPXFoqnCPWo5ewcckcRfF96/BbINandF+MWmeO0vPvxS0uEtz8 sGxQ2hRlX+RyKfkjBKHZiWPhKiboqZGTVuiKELzozlVZqW2MiiRqdmj+E4J7 Bd8FPTY2QmVzUkurq8R+T+Oe77c1RP8DzWYEwQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-3.2416898463973586`*^7, 6.774105432052878*^7}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8lN8Xxw2SdRCVSkoJWUvyJereq1BSJLRpocWSFKVsFaXIUojITrYZ I9sQklwzZM++JcqedWxZ4/f8/pl5vV/Pfe4953M+59xH0vKu8U12Nja2HOLn ///RTyy59t9wO3KQ/ih30b8IMZt2GpzbeQFQt1Qu8a4vQmvlxc937rQBJ46T FQ4/+4yiSwJ2rNvpAgwG/W+vuhUiu8NOd+Z3vAKKMWNm1e75qGnZOoS14z3I X3r6Sz+bjh5+k9g3mRUBptiznhcdpqOtb5urx49GgfHt1fzqVTnIUg5yjFrF gn92WFNvMBs50/gKptsSgJ3GXxArl4XW/+iVGd9BAWfJiuLry9NQe8kXp7Fh CuBmuF76uUJF1ORwxmgWFQSLmXRHHqSi046nr44cpQGVV/t3faOlonc8he+G rDKAhwzrTEBWEtoQVcE+1ZYN6rf6xYZuiEPL5DzKPa0cwHrYKeNQG4P6PT8Y seJygNCShflBl2iUZ/UkZtKGDrZ6ni+W+hGBLh5QPTSxnAtuuFeviVaEoviq WIfRHQXAV5k3duK5D5oNz5Xr8S8AtpEHkmQEXyJdq+q+xsUCIK75/UlP/HM0 xjFvWthUCK5JLKX/9/kxUj98+tAr7yKguu1j9WjOLVSfscIuM/kVkEvd1Gu/ PMQbAM8VAaUSsKfq+G2vUlesKR1yyPtGCRA9vZSaVfAEv56lzLg2lIBHyZrz feA5Vg1quWmZhsHBYwkbKHm++GmVgv7+qwzgEsFxBqmH4NSsT9JpoQzAPGSQ /2NdKG4M1+bYU8MAJX9MaLb1oVjK6nyRmAYTkO/HHXQzD8NVHF5KbCJl4N6X 3/cWjCLw7AiZz/VEGYii3eCp5IrE2xvfD808LQPJJwrffiqIxPfiMuKGxsqA 3KTZN/bN0XjT4R8bvpeXg4Vz6a7dGbEYSt2aPP6vHIRZna8JlYnDNnxT1aUH vgGGzpRZj1McLurgepEX9w3MWf5RuEmOx5YPVeajXSsAl6rb8FPlBPwx49UP O6UqYHs5zYRHNRGPbBjx17eoAp+3CryXvJ2IZR7qH5ENqQKPD2wMk4tPxHFa fPF9i1VAro2kuok3CQdX+t+6WFYNVHnlMr2/J+E6hfHN6gvVQKft+OsLq0mY L/BU5Ub5GjByKeWHnEIy9jIjKzQE1oAWX8+lRq9k/LDvzZSeeS1YFy166bZc Cs7WZSXseVML3hmtNNqeScGTFCMTjtJacOBO8dyjRynY+p7wp2KZOjAiu3Kw tCQFX/wX7H5wpg5Ic2YJ6R1Pxe+uzSiKSH8HZW9aLvVbpeImxtke1vnvQNN7 26bol6nYwFdUm1b8HfjEmIRZ4VQcy1f9XFinHnDtmox/o0DBRw67mXtcqQe/ j109/p8OBXfZyx+cfFQPvvp6pa+/TMFijX6DNdR6cFD0g8ZeXwrO49D6qsms B1lsXLGPYynY5OBYGPVnPeiZnAEkOgUHhRuc8BFqAFK+rdFRnRS8r2pFcn5v A2iX2+r3aYyC65ZpSzePNoAn2q9EuVcpmPeqAO3owwYQs3zmhJEEFacGfvHK ftMAuO5ybz6pSMW6pXcuS1IawDHP5DJPTSp+vqeOvPajAaiXm8ynmlLxrnNP hu7MNYCK/vnXURZUXOKjVNJFbgSZC9R9jXZUfKWwO/ykbCMovOxoefIRFa+M vnYoRI3grX1sKo8nFUdsB/p7LzUCh9KGF2RfKlY3nNwV/qAR/LFecL0UTMWt HrHLXK8bgZn02fXT76nYKduw2SmlETR9vJ/aFEfFov1rtP6SRqDw+0gnKYWK szdmvjjb2Qgesk1sekKjYiO9a1dKZxrB/Lhg24ksKp5wFvpvv0ATOGzhG3Qr l4r9qSWCcdJNQEIy8nNLPhXLdd0bJsMmcPlQR0X4ZyquEJDEjy8Q6/9Tk8/6 QsVWoOH9mGMTgKZrxju/UjFbwt/CH35NoHKj67UBgsM5xbuqEpvA1sqSJ7wl VLzPCv0r+NIEeL1OcwYRzysqb0lQWpvAymMJXddiKr6m4A/CJ5tAr3R62Lci Kl54nXXNm7sZzGst6rsWUnHgVKvnQ8lmINbrlfn2ExXLmqwk3DzUDJoyzDZv pBN650kyTc42A62apZq1DCo+v0Vv4KhdM/i68ny7aRoVs9zsuA68aAZmBf5n NyVTsU93kMyumGawDajnHyP024k+HRf+1Ay64w+8/U3om/+hy4atvhnc+5kn N0HoP2wtQ+smtQCzoqm4S8+p2KPaoLZ2awvoedDB+dWVisWUHCeKDrSAG4Zp ymEOVHx8pmhf5M0WkPsyvJl6mYp/mfae8X3SAljUmxXDxlTsnL/+vktYC2CP fPYwTo+KKY+Nc89VtoCuPOsBT2Uq1v71qFW3twVMrPMW/biLiju1o+cPLreA gMfxnec3UjEv97CGqGIrUL63sqC0SMG2wY+L6wNbgXOCa81qIQWzzyX0fKW0 ggjnF3yISsER5yrYMkpbwZMRxjm+9xRcJS5yNGC2FVw6+SVfy4mC5VNSv504 3wbOwrt5KrIUzOSpG1Z3aAPDF148axGhYHO7GR5Z3zbwpl/TlWctFfvvP2LA VdQGyoIkLfc2p+Kxz031pTvawcDr82zWLqnYS2JxKku9HbhQr+/IsUjF4p4S IvFn2sHUv3yV8BPEPNC1MX36vB0suQZ6qoql4vT61Q7NoXbwZVnjZVNmCrYf 2NtH/9gBUi227Q6tT8a/rnRw48oOcED2SeqjzGR8tt1Hqba/A9jtUSmce5OM 1auHXAa2doIjNjEhlaeSMUdWktAm707Q5f/76AwzCYe7Sx55dPUH+OOtPWaR kIixyJb3GkI/wYYc8fUsyQSsGlBRrCP/E1wNM9z8fj4eJ3M595/R/QmGwtw2 c9TGY//FVmVb95+AGuEiK/EoHpv1hJRHDP8EgdeKlgMq4vAIVWh2uaQbqDV3 051KYzCvpJdMj/ovoK34Rf7y73BcoRWk/ETnF5gob7x+zDscvzwf8992419A muE3M6MQjtkD8/Uu3f4Figpsm7IeheGl1TGrtuhf4Irz4P563nd4tMs09Tv7 b8BdbONZK/sW14TL7C2p+Q3ae7Wjdkb44tdC1XLx1/oAKz9Kvi7lHC74b3vu afs+8Iuv/vPCiTO4/8pdsOLWB6CdR8jpHzpYM13E5FxYH2DjHiGLW4qj4RPm jwXq+oDRUEXgAbFL6Ojz8e8umv3gr9vPQU/T+2hhTtDJeNMAmEmNf5g2/wLt 3m65trZ7AGw+ES42l/8SnT5Gf5W+fwB8nHKfrHDxRknB52O4Tw2A1szwnPVL PshYOf5b8fMBINjR/zV91g+lW6tslZ8aAEUHN+m9GA5Elj9MvnLUDIKCJ7IT ewLeId7I33ccOgYBJdgiRLbvHcq+aC/eMzgI+MKfC3eohyGOTm+XQtIQkDt/ YQT2haHE9sIDDv8Nge2HR4a3qL5Hgy07U7sThsDJvKNbb5ZFItv6scACl2Fg VK1vJ3cmDm0IdAEy3sOA+qvY9MHDOFRoyDUREjIM/rQYbPOPjEN833ecvJcx DLrLrA2kBuIQrdZ4nczAMChSth9lOcWjiap8lxCjP2ATx8O4qoAE5FDmZXlX ZgQU3zzQujM0EUn063L9PTACzJQVpXKyElE1Ow/VHY4A3yGt56J1iWgPDJh6 dWEEsPdJLh3lSkIdhaEeiX4jwP+1i7/xgySEMpNjOiaJ5wf9uzbqJaOJOmvt aysjIPnzZJfftWQUOS43OMg9Co6RDmp+d0lGc3IZirOSo+D3jUL6l7RkREn6 VEQ2GQXJ+0QV/hNIQcKRFZ1H80fBa3k/Sd/yFFRc4PukijkK+AfCyDVdKeh2 u8GuMw2jwK6sZ0vndAoq29hgc2VkFKjwHtG/KJGKXAI7FpzFx4DQ7KnrfxxT 0e8XI5s+eowB3cWVc2obKOh1Iq1QNWAMlBsg6wN7KEiTYX/l8/sxICWSWLr8 HwWFss0kVWSPgb+DOUoT5hR0wm1Zta9/DNx7KT18PpGCsu7xnxU7MQ7oZmoI 7KWimggRl3SzcdAGnc4dPkRFg8ytsdo3xoEK/fPEij4Vbd2yd9Tu6Th4OHgx oOQ2FXlhnec4dxy4zdtKXqBSUcyoAcWMMQ58ikYbLQuoKH+jyffR+nFAblMc U6ygonEby22bxsbB7vbnxtwDVGS24WmO7a4JIKjWzKrdlobuab3sWFOeABSX qz29smnI91bAWsjhCaAhzaZZcDANfS2MPPn1/ARoSFg4Rj2dhmSv5/eJvJkA eZ1XBWIepyHtgK88lKgJgB/OVxX7pCHzT+XKR6gTQJLtmFj82zQUxNfiZl02 AbxK8tyoqWloKWdK5MvyBLi6ekml4XsaEu1e0DDmmQSqp3vU1trTkBI327Wh TZNgw6XPPJO/09B1czJNWGUSWBz+gURn0tCTlxsbk8EkeHW57fOJ5TQUnim+ oHlqEqyGRioiDhqq4ZQ/dst6EqDBu9IPN9DQoJKK7bLTJPik/LgsZwsNsV3Q CAx8PgnSi0/65+ykoYPpel2FMZNg/6U3ZYuKNBRjeuOBYMskMIlxvZ2gQ0P5 T29HJPZOgp2Z/lXT+jTURHEs0WBNgioFU+Y6IxrifAq5stexwCWTtor7F2hI WPTYe3d+FmBz+TNbd5mGJCh6CnoiLECtt1gds6Ah9abTxl07WcB6sxHLwYaG dKyNB5JlWOC+2uZ/7XY0ZPzP1NlBiQWelQwoc9yjoavBF/i0DrJA5s3aSJYj DdnJXI7h0mKBk7xaJvFONORSdG1/gzYLJKku2210pqGXZ24wI0+wwAE35SUD VxoKGbQ6d8uIBf5MnxM67k5D8W63R/adY4HSmFNMric0tK+EZ8H7MgvwuXaZ OzyloRLO1HU911kg0PKQS4oHDRmd0BVRs2WBl1rK8hRPGvoV0L8z4B4LtL0t 83r4jIbuNT5T6n9IrFfTDxd8TkNrmyS1NB+zgGT9SecHBL++9PVE8HMWiPCK +C+JYIm4y+f+vGIBfn+9P/EEf+xfvgEDWSCjLjHOluDDeyMcw96xwKjHMYc1 Yv+aO+oeE1EsgL8u2F8j2Dy7NUDnAwsEKDalBxDxjP19EBlFYQHxN1La3kS8 bpoilJkMFmiwdoeniHx4PbLy9PNYwCEq9UvPYxqKYBoy44tYoIIrt+4IoYcc z0TDQikLcEqM+tgSehWc8u8xrCQ4sIF0ndDzeLDcePJ3FpD9LW8o+5CG2lsr lv61EHrxLb0svE9D1tusuE27WOCGuPPXLQ40NH913SZaLwvMt20X1LWnoU1/ 0P6LkywwHj10msuahpIVfx3JmmOB0LO77kTcIPzn+MSAe4UFJvWzVpev0ZDJ cqFVHvcUUNrj3ClD+KkfXHASEJwCiVahJtMmNHTfa/7ZjY1TwGSiPt6X8F+w gGrMhl1ToEysa/MePRraZdyYZiM7Bd6vM3GU0aahrHf3CkqUpsAZ8iGOBS0a qt+R3myvOQWoPmuKnCo0RFaR5qs2mQLCQqJu1UR/xDxkiu26NAVa/m6/pC1C Q4qfLaVdLKYAl4qttg8/DRkci0Uy9lOAU2nHW89VYl6YiTk/954Cgsv+RxR/ paGtkXkvOgOmQIp3zfkdRD9Tekze7g+ZAu21e87/Jvq9wjroY0/cFKg68M25 pTgNcbnxDmgWToFNgfX2nhFp6FnsypnZsSmw0XKrCvuJNGS0L99BfmYKDB7y MlI/koYk8P0gy8UpQIu/x6Z9IA0V9o7U16+bBkphWX714mloek+HYbrENKjZ nRP+c5yKLGm5p24ZTYOhqbdnG72paN9hhzvRZtOg6mtcpaErFa3WKgQ0m0+D q126xQl2VBQx+aFG22YahD4s+lBpREWNKsEndzybBi57Qv5IbKYiVGB/oj1n GtwVE5LijKIgsr6cjWDhNNgWd6Z12I+CujoHfHRLpsH9//aIJblRkPOKeQW9 ZhpY6Wg2JV6koExwUi9oYBrMbJ4eYW6ioJ3lMjr6m2eAZkiUZLJ3KmJr+gWL XGfAj4J8n0GDFOT1pzje1XMGwGaSqoZaCuJhi2bX8JkB2/dfeWOxIwVtULzA zA2dAdzZpzepTiWjPd4NehmZM0D036+0geBkpK9ZejphcAZknsx9k1SXhN5+ +GDuYzwLcvZWVk/LJiLpB7ecTeTmgNzfPSMD9+OQ4qGes7H75sAW+uvLhmZx SJXtvPKI2hzg6lgWilWPQ9r+JwafHp0DVJ7Byr7FWHQlUcEkzXwO7BLY9K+J Oxa9a55WZn8zBzh7rOfebo9G6w4+HcqYmQMP06YGZ6Xeo/65MDO+L3/BKpiz sS0ORPoDto+DHRbAzgD35FMVt/Dp/kB5CYklwGNYFy/79h0eYVh6VKQvg7NG 9b2QLxHvCGq3fU1fBkZnpmPvKydikyunTU0+LwM97MF4ezYRFy9oyP2qWAbj fS4xkZGJOFhRuHm+bxkIc0yfLpNLwpphX2Vktq6AnnH6pSs6ydjfVvz7i5cr oO5tQWekbSpWEm7dfvTqP/DPceXYuTs0PBgw+Cz05j/A/FlLzX9Fw9G880ND t/8BPTNHYfZkGubnFMv2d/4H1HWnXQ26aXjk7wXd1qB/gGu+e6HoVDpO6vpp b8P8B6yPXKj8K/MRi6cOfH2zdxVYbskKlqrMwM1Sf6V6lVeBrjd4Zdabgf3i uXxV1VbBPPe+Z3eWM/BShIxJh/YqsC3XE07alInbA2yGd5mvgpAv5j9+6mXi t/fHhfJerwJahQ0lLyUT84I5i66ZVaCtfz2qyDwLOyNZ7rylVRCkO3zO2ToL Dx699PENaQ2Ank/5ux5k4dLjeElbcA0kWmYcOuqXhV2NA95S5NZA/prHfFZ+ Fh69uafsocUa0DcYN9QSysYXrc/fNrIm+POWv11bs3GFrZ+w3N01cOacov/t Pdk48e7U5Z/ua0Bmq8ll40PZ2Nzly9+j4Wvg99tuO53r2bjG31RW+PsaCBRV 0c/PysaH3vjUjbSsAaG3jhsPfM7GqUGfHzC71sDLLZ5Kkcxs7PVOEj8aWQNa dnukDrRlY4n6vwqT7GzQOOeNmOdyNm7tKC0zlWCD0NDkcADMwXrjF+d3mbJB 536uPfJFOThG9HnT0/Ns8Ir7xfHtjBw8q5mW0XWJDXK0+Gb8q8zBcb7LVu8s 2aDI6hcur7YcvCQT1c5zjw3WXP17PG0qB9MsfxawfNmgR+/uyCu76Jjdd927 U6/ZoLWfAIeELB2fz1J0pAaxQfbQWlKVIh2vY3sidyOcDaaKu6YPqdPxlWiJ yLYkNthTw7ZH4zQdC7VfdS8uYYNFESa8+5zo+Naa9/ltTDYoxzN0M8+Fjouk M1Wdv7HBzvZRrr1P6NjGiW18fx0bXAk7v77pJR2Xboi/nPSDDWa/7fXWCKNj sUOVGuw9bNAAZ4VIRtKxvcXUxqu9bNBPtJ45F0PH2zJRndgfNujGVHlqmUzH D071HvH/ywaPvRycMqDTcdUD3m1/Ftlg8Wu+j6Gf6HhnlMq8zj82eL8v+25V IR3XjjzLWOMgwUyxkbn5EjqW2pDmZ76eBOVbW3JYDDp21WiyKuAlwe6gZZuW cjqW9tm9874wCSaW2WRb1tCxe8bJle+iJHjNI+wI33c6bmy9364gRoJpeZV5 sQ10/HQPM3BQggSPOZZe9W+l4/bSG6SLCiQoFe2g96CHjlmoc+tjZRJ88baD euE3Ha/HhqpxKiRIanr9TLGPjtW+HrIaVCdB7dfHvOMG6fj0kUwPHi0S7G99 lwmG6fjmlz0RCoAEt6506Nb+oeOQz0K1jjok6OV2PSdnjI5ph14Ohh4nwSVJ y5f8E3TMKFheyz9Jgvv+K/16dpKOO9UdtnSdJkGj72uXX7HoePrToMraGRI0 Kf5wNX2Kjnn+MzfYZUqCCSFHGV+nCf3yGm7qnCfBwkhP75IZOjakF4X7XSHB 1NE4hYA5ot4HVLI/WpAgU5eL78JfOn6SnVLdcIMEzVjCOiLzdBy6f/vArBUJ 5kcldXwmmJYZvLr5NglOJ2Z8M16gY6Yyt5imPQlqcsiT2wn+8fHx/isOJHjP cAft5CIRn+KMvucDEsz7HBeXTjBvuvWNxEck2ChUP/KP4F0K3Y+/uZJgILXz ldYSHWuknQ0beUyCxx8sudsQbCRXmSngSYKHBpwYXgRbU45U7fMiwZGVWPPX BHvI0vvOepOgO2jXe0lwWMrefw99SZA329fLjuCP0rGbIgJI8F+r8gZEcHmS 6L4vgSR4iWrA4iC4W8r3xK+3JPg32lEil4hn7sOaJUcYCZaFgigTgvl3O7lL R5CgeP9lm14iP6mEkdAT0ST4W8frxRWCtSSvZdjFkeDHbidWBaHP2biWijcf SFDpIDtVkmDbHSd7s5NJkEt5XbY1oe+zmJLlFgoJSgtYcccQ+kdsV9u4SCP2 sxJPx7N0nBWVpiSeSYLjctJxTUS9KrZJHgc5JBgVFPS7iajnr4h3FpZ5RHy7 nB1KiXovbOF3e1FAgvO0NcNYwg+C7z1DUotI0Fr74mNbwi9Hwuy+TZSS4LDw 67Jqwl9mm3p/CZeT4IcY7t8Wo3R8J/TckmolCX5pCjcYJPwY9VZb0e07Ce7l YGwsJPxL35CvG9NIgqvVVx/wDNBxdZDiNdxCgm0NxOcd4felN2Jv13eR4NCH G08DiP7YIPiaJtdDghS1y3LvftLx3tcc5ad6SVDdT10u4Acxn/wnFt4OE/2K ++R12+g414d5ZeccCU6GMYz6a+k4Vb9azHuBBA93FybLVhP68Dc2ji8T/WvL j85XEPUO7NH9zM4O24r7jruU0rFB+JKSmRA7jPvE1lyaS8fgIulPkQg7bNo4 62qRTccq4twfdm9mh4kZag9GP9Lx5riNm6e2s0Ndqc6bOIWOe1P2rfnJs0Ol QpdnTuF03GLzX8G0EjvcF2qyYB9C6C9/5P4FFXZ42sGr8WwgHadnnByS1mCH OpvFinu86dj5063vWJcdqsqRvrA9pGPyt6jYeQt2qKATOWBDzFfSqw8Xrtxk h8th0zNbT9DxrD5VpMyaHa73Snr36Sgdd9R98g6+yw573+um5BDzObG18a7i Y3YoqTp/6ZMkHR8a5IbXw9nhQkidC2syByumCi5VRrJDEbPEd+Z/cvBO2030 fbHskP+Mkze9Nwevm9gtu5rEDlfM18/LtOTg+rkjQu9z2OHoVYU32wty8K11 Tr/q6tjhgFJUt97jHLx1R2XbcgOR/08H3kWnHFynvv27bAs73GS42h9un4PV 7Mq+PPvBDiu3/P6UeDUHczVtjFQbZod76rHxOHG/JcXlmcaQOOB1oZR7umw5 uF9zoeqOKgd8prkipemYjcNNDUoj/uOAZj7nn1VbZ2ODu3EF3w5xwC3nDfed vJqN6QnHUyURB1y1FwoVMyDuV573L1pOcUDxoCN7xqSysVSbBjxsxQHvqvyO cmvKwtcd3XL5IzggKcj6l5VUFlZT6c7dG80Bbfzfk2W3ZGHeaZinG8cBj6X/ +NsukIUzHbg+eSRzwKArs4IC85l45V5Q/mw2B3x5hH/H14pM/O5uyueuag64 u0ghwcgmE1faNWHaPw54bWVANPdIBla2kq8zsOCE4SbhB6/iNNxts+Nu+g1O 2FzUyr43Pg3724kIka0J9km/0OSRhv84LJ/5bs8JD9Wrr1SCNPzBvbrljDsn XIjHnqiIijcH3/5pFsYJHdfWqd/JoOC1orSxa7Wc8Fjaq+jzT1Pw9w0KfE4a 62B24PX88qoE/Pnjs0gFDi7oM6jMqbIYhN1IckY1P7lgpmy50K0zDxFvl+tx e/p6+Ov9JwUlsRg0kCwZEuvODR9dDfFSolJRiOwWzgJTHphG+/Ch4nEOCoy4 9c1iJy+Mm/g5sNCXjy6GXK7jH+KFD1aFo8iUL0g8h3fb7RFe+KJy5NnFoi+o p+GTVeU4L/wwe8zo/fcv6IbgBtLLWV5I2s+ynpz7gux9yw+skfjgT69U8RVU jJ55KL+fEueDo0qdf/3aihHFjnSj1ZgPyspXbZZb+Irs/D5mqprxQfKEDa2L swQpUS/9C77AB02C1VhRAiUoeyj3neE1Pjgg6nd8/Y4SVGRpW1lxhw/+bdsZ 8AyVoPrzTUqfffjgq4uJiwIvStDCsaTF2GI+aPtzpPAUF0bun2OfMzEffLHE tidcACM2lQiBP0w+WPqi+/EPUYzW73gjqVLNB2tiuP4Y7MZo06LzCWYbHzQM NpDsBBgdSDd4P8wi1h8/ty7iEUb2G2fV9+/mhyLfrULe/MZo2m+i1FSaHyYP bxmcGMLIif2PgetefvhbkBWiO0GcP/nzGkOZH54yjl3oXsLIr/Kbj6kWP9Q9 3nYlR6QUpT6ObHcx5YdMo8tDg0dLUd+AtnOpNz9Ud7secimmFGnH1iXI+fHD pPUcP/cnlqK48xdrg1/zQ48TJm9WKaXoSrXDruuh/PDk6rC4W24p6syMq+H4 wA95dAYM2WpKUaPb6k6dYn5oxu3GVJsvRfsP+p5Mx/zw3rZgU4eVUhQ4sfHh xjJ+6Lirl5RAYqDTForVA9X8MNV73/sBPgaq0jV3etnBD7kpiUfmdjBQqXBh 5bdZfvhXRNtURZeBJKt1ZpUX+CHpJJdtjT4DeXg1SIQv88OXr1WMzA0Z6Mj8 8H1rdgH4q3P2yeXzDFTYtVmCR0gAOvzzHum3YaDsFCdHfXkBWPJ9VIHTj4GE LUjR2UoCcCVm5uTiawa6tzXg21YVAdhlcn6+L5iBlAISxUfVBWDezdje9xEM RHVsKvfTFYCvKrjCvSkMlHB4/7ZaCwHIqXNv7lYZEe9p3ufLNwTg3dYDlm4V DNR7tW9kr7UA9LA65vqymoF2PwstfGkvAFcvVsR6NDBQYvniBegmAC/VBttw /mQgZlsjtn8iABNlfnTU9jBQ/3Da3mhPAVg9VdUV0MtAUnxXFhe9BeBPp3ev p4YYKMmwNDwnRADaL9qe1ptmoPJrkWy9YQJwqd2CrWyWgQYdHlgLRQrAUX5D RY15BpIOkVa/Ey8AfYbdxzhXGCi53bdN+qMAFKoQzty7jolSLc5uivgmAHPK lNqTNjJRhaPCk4oqASi3Vjj4ajMTDT9fN/i3VgAmFJQcvbGFiWSTP+WebRaA Bl/ju5fFmYgyss1U4LcAtP7+4HTebiaqWp4t0uwXgOIudt4Ge5hohL9OynaI 0Je+caldmonklD1my8cF4Pj768+a9zIR9X7/W48lAcjg3NJhqky87/Vl+eM/ Acgfk/4+eh/xfui76z/ZyPDHLxmPH/uZSD7/+IFD68lQNkYlV0OViQwqJSOt ecmQLWFt9cJBJrLrXGIPEyBD+nX5m/fUmIi2QmucESFDxujRx0/VmahG4OWh XZvJ8ApfgJyzBhONSVxNMNpKhr1R4yO3DjGRAhJ2TN9JnJfQESmtRexvPNLx YzcZGlz47T1PsN11BuKVIUP59YuPiw8zUfoLJ2ErRTLcWen+VAkQ+2ldfvZi Hxke3th9uplghdljMx8OkGGdy9Cze5CJbqcp3ChVI0Px5sAtHIjI31K05ZcG GU7mtQj5EzyyZUVnTYsM1W7n3uLTZqK9DX152yEZxrBUtngSbO1TLaN1lAzR qon0OMGpICf8oi4Z/sch7W94lKjX3wgelxNkqC9DP55KsMzHZ65hBmT48qTw xXmCb920Hc01JPLjPVusdYyJksWNzZuNybC4MPi+M8GDTRq106ZkmHd7/BGV 4D1+kkeEL5Ah78jzykaCb2jzZCibE/sXu96aIjhxkbXj9FUyHFJcMuDSYaL+ zPZAO0syrNdUchMmeLd1CcnvJhmyU3QnNxBsuSPVkWJNhhJzD1N4CU5ofdP3 7TYZzl/5G79A7Pc74JHJoD0ZSg2sdXURvFPnahmnIxmG6TaafSL42oqu2m4n MtzOkSngQ3BsjlIKcibDv5d61k4T3G27SeyaGxleNKHK8xMssWvV58kTMtyY feXNVyL/yx0Di1GeZDj+79ReG4KjAmttP3uR4XGv2nlugrv0cn90eJNhpqna Ygyh77a1KIMFXzI8rTcgL09wxB07pYNBxHkFkRLSRL06pUxiz4aQ4W5890cI Ud8tXZpCjmFk+GluF2ORqH+4Pt/0x2gyTH3yhz/5CBO1kWYsa+PI8G7w0O1x wj+bCjqbRj+QodXZiEk5gkNlqLmyVDL0WxG/6qPJRM3dQdJ66WQ4ODanl0r4 U/SdS9jNTDKsiAw1LCb8G8x5wiUhjwy7l27k1vzHRIG/h7TEGWToWFyY43iA ierDv6cfKifDm1ukbx9VYSJBo08SFyrJkPlURY2X6KfXxS/Z3n0nww2tfSRX JSbyj9zDFOwiw9zG+yd7ZYl+MRY4qNRD5C8U7nZdhon4eOeSDHrJMAXK53YS /e3rzPR+NUyGNaO1IG0XE3mbXj/JMUeGD99IBzdvI+pr2GV+c4F4f+tHvW5i fhSdMLX/tkyG0PGURhcxX6YP6wX5sQvCdcmnqukiTGQuLd8mIiQIDdc1e7Xz MtGjnYnDTiKC0Pnbg7nn3ES+W7cvtW0ShKtBaWG7uZjoG1lwe9R2QVhhuHYb kJhIZX7aUkpeEFpX3zzw5y8DnZq6/eClkiDctfBJUI2Yj9aj/S+G9wtCL5qj 6KMpBoruaU2lqQtCuR2s4JZRBuKuKJxQ1RWEUaxOPc5fDNQd/sxVx0IQLtk6 YJlyBloMXvZLuSEIK1+9ysorZSDRgAfRPNaCcL10xmeNrwx0wvNWSa29IGTu 0Nsmns9AdBt9LjN3QUgua5o9Q9wfvoc2BN8KE4QtjUf8PV8R81zV70NFhCAU y/NqPPOCgUqUOHPlYgThvSutezd5MtDcrr9tE4mCcP92MV43Zwa6xte5/VG2 INRxjfXOvcVAB7viKd61gtAuIlVrHDKQkJL1Qka9IGxX8+M+q8VAY0+V9Nqb BOHxdwfsPv5H3D+7P/fLdgpCicCPSzpKRPy3m3dUDQrCcMGdqgtbGWjJneMk F5sQfA97pWymS1EHnxo+vkUI+rHtOPDkfSkqV30/3LVVCLpRcveHvS1F9Msr gg7iQvDvUGRdUgBx32eUXnm/QwjSutUHPniWouNnDVf+7BGCoQeZb3fblKL8 COv//FSE4E7Pifv71UpR+N7I9NqTQrBp6y8O/wqMZmd0k56fEoI9Tw3tv5Zg ZFg8HaVhKARnVMNKB/Mx4jqr759kLARfa6QpClOI7yH3RdvHF4Sgctbq/hYf jIy/n5NVtBKCxtUm0tt0MeJ3Ev3g/0wIbkY5zpRPJcgalERoewlB19kulvnH EsTgsQteeCEED1kZvOBMKkGuMQzPG6+E4Mefn3n3BZegP98cr2kFEue/Ofl1 4XYJKt/asH0sWgia74qMMt5egp6WBISfLBCCYl0L1+9OFKORnyUhi4VCcOFD hLV+RzEyW54JTCkSgt1ntgkIMouRgtrFVxwlQrB9xfuE6fti1J4m7fq5XAhq 8w2It2oXI5Wwr5fkm4VgwsCu3PSgL2jwzpQE36QQrCoWm+qUKEKntpkmVUkJ Qw9qn6DHQj4K71cquSQtDI3OO8YV9OSj/nTuH2MywpDtSQf5d3k+codFQoLy wrD/mHL0Ykg+ot3c7X52vzB0Pvl4r/G+fMSbOWXcdVgYKmw+eiP5+if07dhr tgkzYah96dfs+i+5CNl/uyT8ShjS6ot2yGtlo1hxS6maOWE49oD652HAByTF SHl3+tIGCNdt1ljYZo8CFUvlGos3wMBcO7NXv+LwrRnOhko5EVgu/MbypVoO tsya3vnqjQi8/ltWvCf6C7Z7dnZFP0gECg+iSVzzBTudpbfxvxWBn32VeVOW v2CfOafXge9EYBN+UPHoQjH+qLG4HBYtAs0alLX2b/yKF/Faa3KaCHREoYYu uiU4sJE/gPlNBO6LKioKKsY44sMd65eVIjD3ZpyZaCvGHx7UHT1eLQI3BJxr fjeOcd6mwKXqOhFoUoSNI8VLcddFEeumFhH4YSUHxLuWYpm+LUd7+0Tg8b7d f8PUGHgf3VUicUAENtbx8ImeZuBDL34s3hwSgRePC1i8ucnABjLRmX9GRKDd lE/K8xAGdry9U2JqSgQaWZQ9tZhmYHctz8XsGREo5C/6tJWHiV8I9DY/mBOB D6lv7+hLMnF4xge/hQURKLBFaFLJiIkTPDitCpdE4DU5zzuxVkycduamtvuK CIzK58kmP2Vi+q7y7UdWReD3E9ey3d8xcfGM9OLamgic3HDoxp90Jv4fNFlk hw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-6.938835924537028*^8, 6.801423025520327*^8}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}], "}"}]], "Output", CellChangeTimes->{3.4722172601875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{"Partition", "[", RowBox[{"grafs", ",", "3"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4368002483125*^9, 3.436800266421875*^9}, { 3.436800313125*^9, 3.436800318484375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwlxX8403kcAPAZJjN9zbenzikbj6PUSs91dWr5vPUT4eqEol9WflTS5ewe h0ryoz13aV1ifuycRI+K6o7SdXw/p0WYVX70yy7OhjO0WMtI7e6e/fF6Xs6C o19H0Wk0WuB//l96QsBYfiDFWydd1WI0apGskxsQxt2J8rQ7u47qtMjY1HCa yz2IvHxSe3sHtUiKz3Isud+jk2qsp9q1KG6t8MgkR4SYi/1d0oq0qPN9bO4b TgFyrtuVQlulRVY9/e5jnEq0teMUzyz+NSptLTk2wrmLrjPk5+nKUVR9Q9QT t7QVzcld0HIgcRjFoCcFowmdKGDfvN9EmwZR/MAiVU31C+RnezinfKEKMZ0z 3Hu/7EOj9ZM3fXJ6UY5dm0fpPhVSvzp4td77BRL0bKfM5YOI7xd6yhDTgY49 yBAcddcgvmZUuE7QjG59wwr+xG8MJSUXx6y9U4tKUw5rPMPeIPjnVeFq+UUq vWRm29vRccQ1tHA2PmqgaJ198EeyDtEkDKv+7jbKLTE6abuHHkkeF/y9rbKL UuvzQ23q3yHxs73hvLcvKf+BQ8d/OmZAua3d066qPipILV7s5DSNih86h/H5 akpzX5D2sOo96sp+QDsfMUQtZT9dsH7vB7TL5fqarAYNxUT6SKXuI5pzQnO/ bmiM2jwWPukSQoOcl7WvN159Qz1vPGAWvsQMbma20Gt2TFC1Z2R7uHozOMQW 1YNGR0VbCvsUCjrImRosleqp/QkptaxCc2hSvzvksGKSWhazWBEQaQF7FKHF BY0G6pH9EhuhlyX8/NmOuZqEaepedXrREnMGfLfbctVOxgyVYuaxVf4XA97R t/8iufeBYiqTfeNrrGBOnV6sjDVSAxXOuSWps8A0DecudLC4G2INps2wuDC6 OZLLBNN0HJ67W8EaYoJpOjZsKJ8qabAB0+ZYNbAuqTGbBaYt8KW1yx3bI23B tCWuyhSyY3izwTQDZ4fs32Kunw2mGfgLZWlldjsBpq2wZFFRVfsWO/AMXhlR lD8Ln8RnJVvu2sHHNMfl+QnWONAxpLzVlQ2FK6/6X/RjYp/45gi2iA3pypw7 LvY2uGS+wFWuZ4O3l8xXMmKDXe9fyQuKsAffrK940tssLOY1enQ02AM3IiPk 8nFbHK2zeNLiQYJ80PrShZDZWHBrgis6R4JMMOBjzyFwXHrwjP95Ep5bXDFc dCGwMLjmGesCCZqK2BsObgQ+oxfmiPNIsBsZme/MI3C119T7fCkJu76dmFy2 hsBTfxqfVlwjYeK0sSowjMDiDtZZWTMJ3HKHT0XnCFxYdiQ2q4WEFZt7HrMu ELgsUbHet42ETcPF2eI8At+eK55uU5AQx+Pq86UEVoaTsZ3dJNTVuj2uuEZg d5XD+n4VCUFNn2fJmgnsWZPsdHmAhH2xer5vG4FXZ/ZMRQ2RkMi8o2tTEDjA XXpzWEOCJGh1ZGc3gRMOc53Gx0lQPwV+v4rAqfxTU7/qSDAk0XVRQwTOtO3v StSTwHSUVQ5rCCy5UfaDwUCC597N88bHCXwpzSLm92kSNphZKxL1BL62LWpd 6gwJoWWtGQYDgWtcmhZ4fyQhduOPa1JnCNygc5syGklIHQqcMBoJ/C94Z14L "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-3.9999998979591833`, 0.9999998979591836}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {193.5, -120.14580741297955`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nk8VN//B/A7Y6hkHy2WIikSH1FZWpyTdkmLiJJkKVtESYulqEQbErKE smRpsaRvyEEqO9lSiCzFSIQZY5Z7fvf31zyej3vvnHPP+7xf96xw9D7sQicI QpJGEP//mxzkKKbnfNVk8RbvaIwxqG5TNT+qagsEtAWqA78wwJ/KQ1VV3cDU ArWk2kYMkivuqYiqXgaK/V9OZiVi4LnV7+ysSjgwytBc9MQQgza+a8ykymNQ F11geOkcCeZ1D2iMq2QDM76hXd+wAKTVpfiMqbwDCbQFKy/3zYGXr8K7Pf+r A5M+GzZoxEyDM+DL4z++beD5zH/GeVJ/gNfwmsGil9+AeqPe0Q+1P4H4ihsa fUb9QNVtj+/yo43gvky9VprDILhmxRpY4p6HHLuPIJGGX8Aod9ycNdSBfD7e cPTWYIGnAbOT/lsHUf45Ccule8fB0ZZkE5OjLJR21YO17ugk8FU0f30rbxKF pAgOzfz5B/z2FA3GPJlGRFs/LLsyDdIFI27V6zlo9YXTl45osYF8q7VmdTYX 6Wzqs0xZxwYzKmsO7S7gog2EjS7LgA3+VLNvfSzhItO7e38Fb2cDNfkghcJ6 LrJP1z6Sa8cGOZ/Nvh8e56LY9ild+gM20Aptr0vXnUOiG4N/v5pmg5F92Wei X8+hIXac9cL3HHBa3SYy5hkPPd22/nzvBw4Qk9Zd7p/LQyfvNT14VccBvgXm 3ZaFPPRdXbTWsosDSlbaDfKreOiLpe/mpGkOoL2u1xIb4KHyfHNVHa1Z4OA9 HiuiwkdxZ2ksi7hZ4Ba+eSgtho/Mht0Do3244KUW3dLTS4B2Ba7M23GJC27l /EovuyBApot6vnOCuOCwH8Nu3lUB2rRzv9Hxu1xQNzY2dydMgLQydKdXZnGB vp37zKFUAVroMuP6pocLfpmtGmppEaCGocAjXbvnwI+TD18m6AhRTYBBaITF HLAwScsyXC9E1fIT+Vus5kDhmRHRZiMhKtvhIJ3mOAeOJapN/dkuRHnppnVu gXNA7dau8GFbIbrnPA/yC+ZArJt5Qe0NIbIYily7fDkPSLgenDjRKUQNa4fa 7dR5oDqklT/1XYj2nTcMStTiAdFWD83QPiHaQ//RstSQB1ZLDf2MGREiU9W1 F5kHeaBfwOoI5AnRRruPFfNDeMCg6HCVyzISKbfPWU0P84BHRHjevZMkSlDa j/X+8ICzwVTpLScSKTilPj83xQO/FvuOXTlDosVTu/jjJA9E+L3NOeJNIhmZ mNSRJXxglm2T0xhEIhHz/8Z69/JBHmvmRUcSiVgfHK/VvOADXnvMp60dJFKJ 6nK/X8QH6Znelwe7SHTE3sLqSCkfJPiYnQvtIVE511irv4YPTk/jNQWDJIrW kW2fHeSD65nujXX/SLQ5DmloKApAXZ1J+4gERuecN8qNqwqAup7CZ30ZjDL1 cgUFGtT1yGnhRSZGMg2xX0w2CgBn83PDvwoYDRFeV60PCkDrNtnuuNUY3XVX br55SwCSFg78/GqCUaVh9Lt99wQgS6xM/tM2jDiM+emyMQIg4D2683IHRg4p 05eS0wQgvHnvTi8zjDa016m9KROA1Zr5I8+tMOrdevni0JQA+MYFTYh7YPSf bOey7SeFYL+XvPB6FEa/7v0KeeQiBKZlEsoPH2KULD77+7eHEOS1K29JeYSR BGNpwd1LQjDsfCP4+WOMWBzbXZ1RQtBP92EGp2GU0dPr5VYtBMTGCu8trzGy s/3bVlonBDZaG1OF+RjJd5JGUl+EYDWr8su7QoxCmlVECnuFQL1WzWjlW2r+ VafiBBxqPAZdruQ9RsrPh9GDNSQY9DHgzdZi1K7OUR/QJcETKc0tbvUY3UkT i9hgQIImP73gjgaMeAkaR76ZkuDhszvzU5ox6rrnNqJmR4LMgBOanHaMIsWv 7PdzJIHcWcnzoBOj3WERBZ9dScDW6CgP/YpR8bXcAE8/EigLc22F3zB6eH5c pvg+CTjq/klFPzAymxT6zX9EAqbb8ERHH0b0s1LdxxJJkOXvsWOqn6r3ad0M nEUC/ZnySaVBjCxsfYz3VpKgxT3Uev1vjMQ6rz9J/EyCVPrrAu0RjN4fjhb5 20hS6zkjvWIUI23zwsbo7yRovV3dyGNhJA7Yp3qmSWBkEWLt+xejS9s05xfz SFCjfYFmNUHVa/vxlw9oGCywrW/Sm8Soak8lz1Qag6SE7JZv/zBat28mVXkx BuOv1olmTGH0ZL/Gbo4yBhNyy+zcpzG6cvjew2wtDBhVq3wGZzAaOVJhHKqH wRIpU904NkbWR6f77Iww+J71QXonByN9O1ttmV0Y+FZzDB/MYjTmsurjxVMY DKcpr+qdw+iYq43HQVcMrhx34pziYVTjfkdWyxuDCkdpVj/ldO9/J3oDMDhx LM6okY+RnK86420oBkVm5x9uEmB07cLRnMgIDEpuF8k8pWx3+T1nezw1/vhp 35NCjOquTiYtS8FgSr7L+g1lo6CV22czqPvDX54QJan+umY92pKHwXpz1q0D lOVDwx/kFGJgZ3en9SHlkJtlG2+UYLCxJAq2Up4Mm+g+UYlBuYuwRRxjZB+h FmJYgwHXvil0K+WGu1aass0YDGYwbN0pb3pwu4nVgUHQptSDUZSfR5VeqO7B oEY5zb2A8uKYv4pPBqnvuvm8rEbKN2JXVPqzMPCuaxUdpDwVf+TMoX8Y1D8S CZui7JAYJrmWi8HXl4+1BJSbkksKGdS5IGbRo0nqfICWt3C0J+gEJOrYXULK VodkCDsxAi5vKB1kU77buqatZgEBx5R+y4xQ/mC5PXOjJAFd3/k7tFPmtdtd fipDwNj0s60llPWsL5pLyxPQr7fmdCJl168PVAKWEJDhHL7sIuUUm+ypEUUC mhq94phR7vxW9dFqOQH1j22aUqAsebwnvmoFAVtrtWQGqfXb0cP20F1FQLWw awczKV89IQ2SNClHby50olzwQ1NugTZ1P+u4kRLl0ZOmw366BFwf9bOvgaqf 6s/j/xvQJ+COmw3ZlyjfH7xvX2ZMwEvWrenlVP0/Oj/XW7OVgAnrxztsKAuG KxmxkICe9mfXjFP7x31kJsd7NzVecrIhg3Kam1RQjxkBxfL3T92i9lsXS+PQ XgvqeTmnZhHKu8ePzapZUfMpfz85xqX6QT60LdiGgJWPXs/aUp7ZnPuq5zj1 f/6GR6uo/Z0awT8T60hAA1uaagi1/3kaSV0LzhHwdcLNrvdU/xw8UF10+jwB tT4uTSep/sq8+Cfyw0UCLuaBGmPKlh+37A0MJCAMNVNMofozz7H33WQEAYfl Dg6vGqfyI0I0dv99ArIiQ/2M/2Bkk6/jmxNFQAeFffa7xzASJYK0nOMJmLI3 1vgwlQ/2ycsTv2YQ0Etj2RL1Yer70XUyoLyCgBZdf87+rxuj0zjMRqmaqr/Q IcznO0Zlq19vuPSZgNPabnPqVJ65+RHjek0EPJG78fcVKv+q5NJOZHQTMGQV Gh1owejC/gGTuxwCSkjHRDyrpvrtgrjS6BwBN3fv0aF/oOqVpD+7U0jAnvwo zeOVGDWyQl5hERo8F9SnKaDyevXtlarnZWmQFeNxkFdMrX+VM+2YNg0uf7tz 8+8sqt+2fVcM1KVBoZhllmQmRvMqD2xI1adBcV6uhm46RgZo05lfRjT4qha6 OKViFFMq0+i7kwbVpTltkfEYHSgqi79jT4Ol+g+CcRj1vuv1C16eosGgN9br vt7EKKggq/6LMw16d7uxs0Op9X4dTS7xoMEfMufLYDCVpy9cndP9aXBohazJ +osYfcqQX/c+kgaTeq5Kazth9EM9Ym//QxrcHi1kvHHAiP0MO4rE0aDCWJ2U sT1G6k9Zj/Ym0+CBW3tO6ttSefKkgt+RTYO/HJunRy0wMonz/Py3igarihaO eRpj9OZ2tb0qmwZ1Sk3kqsSpvDCrXxrGpZ5f+vGf+zyMEiRaW8f51HzIa/Ol GFT+RfbtKqXToYPr425TIYnM43n/WcvQYUGe+dIzEyQayFqH76ylw2Je2djj VhJJfU5KmT1Fh8Z51bznMSSihT+ztXehwwRDQUV8JIlmzHKYH13p0NPcrTzk Lom+Nb0Ni/amQ1e5IfudN0iU3tnqrRNIh2+l7QxunifRpl/zoVM8HRY2W4GJ gyQ6LerX39REh6tdzr3znEciRZXar/wvdKgmm98zQydRk9GyZs0OOhz6tJTt TwqRgefH9yHddPjmwAlRb7YQibUtSjQYocOozpJnqoNClJFabPWEJgLXvfv8 Neq9EA1t5tad3SACaa2ay/K8hMjJ9+obiQQRyD40f1lFpQAZ6P94syZZBBas 2OykViZA4lOweFeqCBRsrWkJLhag1z5ib69lisC9dv9WaOcKkOBc1P9mCkRg jm5wklmMAMV6Z5X21IvAu3rhU09cBKjWs60yTygCv6dZq2UwBEj3zNom81MM +HTD10iNDXz0w03F+4UzA7rrvVBH2nx015MpI+XKgMxqJ8ahVXw06sM/1OzF gIIc3yynxXz0LKC+41AAAxoELwnYweWhJdEevdZxDGi2LfDkTAkP4bLcPw6N DDix9p2U5BYeapbTXuhnLAr1Eqek1HTmUOnLkERtETE4uSn5uT+Hg67StA42 9IrBkYGVFyMNZpB4z5U9XkXUmXsDZ12h5j80nLkiJiVgPgQtfj9fCMZQjKYC 453VAqhcNZyt7jWEIhNOfz6lKg7FH9S2b7/wDR2LOdEk8VscGsmAsIkdVYi7 I2MupXwh7E+6kuzY9wEMDpteqgqTgKmPO2eM6b3g6VY9pcZTkvCCLJe1NGIU vLjpJ3tGRwp6gpS2djAFwqyc9omwpWDFov2DxeOzYGNPWnZYozS8ZvNUqcSL BPFrEl807pOBkiFW1zPd6DC44l78vncyULqtY9JDUgzuV7LKqFOXhYvjfVOq GxfAbV6fj8uGy0KB6VuGxUVJmKLsqN7AloX90+2lixtloPqHrFiL43IwKWeR 7osWORipU6XVWi4HVwfVk9m98vD0NONLrRYTViuFFaroLIGO+VOq4Q+YcHXO 7vZINwXoGWIpMItiQlpO+fi78wrQz7Loq8RDJkw3948eClSAt9l+9yNjmfDY lReBJtEK8KXxHD8umQm9/HW6GaUKcK4Sd2bmMqE+92pBt4QijGyVuFf9mQl3 ylu25ucrwoRnZ11v1TLhz7OkpUSZInx2oWn7nnrquvuYg+snRVi8OJJX38SE gfsilFd1K8KeY0zXtg4mjHnVrZjPUIIagwrbBwaZ8CTZsJ5powTXFV1Znj7M hB03ot1uOSrBTTe751x+M6EqdT7geypBc43k16MsJpQb9bQYva4EfT1Ul//7 x4R5hMayrlwlGLDl+lzBNBPGJ8/lHS1WgjclB9ovsJlwf69kTVeFEox/9ewO l8uEq3byU/o6lODTa4wzJTwmNDvbbufSrwRzD7mYBgiY0NBoIv0PSwkWqX1a ZkIy4b+MfZf82EqwfHr1HMZMeK14tBNjJfh/hiv6nQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-1.9999999425648172`, 6.9999993877551105`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {580.5, -120.14580741297955`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nc8lt8bB3AK2Z77viOpjIgynyalOheSrJQVwteslB2JVJIGJaOlMjJa FFIaVA5JioQoSVKS7PE89uh3fn95vV9ez7nP+FzXOQpufpaec3h4eJJ5eXj+ /zflmJvASo8jm6sVX0b9+7cAyj/Jm+2St0dWwyKqpe0L4F/Fq5Py8l6oaNep P7FvF0AKjpXjlw9FkUIr0rbFLQDvTcE+Y3LRqHj83B99uQXwaWrfpUG5a2j5 qeNnjfWkYN63Xyp9cvfQWYuFA5di50P6+7SAHrnnyCVkbLR+KwW5edHfvDXf o2N8ZaYeR/lhL6q71hv4CZVXKWRvtB5Bvh0r2h/nfkX5IZv3++SUI2GFKJUf Om1ItOOUZ4xKf0nlxgStY4ZtiC8+pVgxvb/ktF2q9hLLNpS+c/mdQJmBkjnx z4x2H2hDv4S/PZEWGCyZnO3d+yWlDaVUGPLKjA6W9LTY3P045ycyfzdcrfZx uKQ6SWUFrv6Jktwqwwo9R0susKpU013akZmcuVDOspmS59pLCrf7tiNawehN ttNMyW9nPzR9pB1payZGR1yeKdF9wFjvutqOHrKljXP5Zkv+GjseFatpR5v0 PgQzP2dLDE72fQzV/Y1Egy7G8Bvz4PERiWBLqQ60/uTEcEA3L3b7Zl0yt/oP GlzhVjcwwIeFb/z0Cfj6B003nrjjLsCPCxx8F//48wedrlioVr6YH89tPhNa xNuJ3G792mZqzI+zmopWB2h3IpP7K/QD0/nxn0b5u60ZnajPb8FW5e0CeH9t b/zz0L9Iz7ZiL7o2D9PxoUjlzF8UP2ZYbfFgHi6yEOi/dOkvqvyvxMK8dB4W +Shn6p/3FxkVfiyV6JqH73+w5Ffp+IsSKp4WFmgL4v73z0Iv7ehCHgx77GCd IA54E+Xmp9KNyr9LFk6PCmHZ31sFRld3o/kyVg5n5gnjqjlC2eHQjUTKO7m8 0sJ4GcQORdt3I/VdNyTf6gjjr0WXI7LOdaPKtW9tEkKFsV7+7dSvA90oM1/C dvm4MKZuVDYbPOtBM8csjwZ1ieBXz2OOvS/vQdcf7XOdOy6CDzSZLd1Z14My 541eiRQQxW8k67ycu3vQMr5JXktFURwa/3X88OJeFCNssHytoyj+eapbKjei F4mteLpBokoUP/QXtZI27kMScVKpyiliuPo6E/rAtg+NvHKRacwWw3/KZdL0 PfrQ+HRTYsAzMSyzcEWP9/E+JO8850zQJzEcVWp4srSwD6XU/vuVISiObenj j/Yv7UcuVq1pWX7iePLREPNyqh/Nez7YasOWwPNbx9dbCg0gy+VpM+91JbCm II9Lp9QAWhE+FKtpJIHdHcXvU6sGkNV5Nl3qJIGr+dS27Nk3gJT2/5CYHyOB U208giQaB9DwuI5U8A8JnH7kQDd71yASUt4ZkbqZhdlYaPyM0yCSXrNrjKvP wpjvLv8P90HkKT0xaWDEwm2xv+Vj/QfR7RCh3CoLFpa96bSrK3oQeS9W7zvh wsLXyy3K018MIinHkSXnIlhYVai/brxsEDkpdVEHolj4ufn5HxbvBlEO7ZRt cJaFmz5XTs40DiLz4Fc1rXEsLNWlt9JhYBBZtq6TeJnKwolia1LppUPoQHLY S5liFl5qWZ/jtXwIxS1Kv3/qFQs/vOL/HGsOoUiWul1XKQvXyj1o8NUdQnV+ +7qvV7Kw+CplkSrrIXQvzmTZnUYWjrGVPnzyzBCyfcg28Oxn4ci06Z3c3iGk 7Ln3YqQMhXewnwWocYYQtVLEamoxhWVLDya4TQyhf0H7DX3kKFz0q7u2ln8Y hc5Ovd2oROHhZV8tHsgOI2HTjwdiNCjsdr/QfM+OYZTibuf1czOF2ZsCfFJs h5Fr3qmZPqDw7Af12AbHYXTy62AzR5/C1wcyq/W9htERN4WQnq0Url+VaCoX OYy2h1k4xmynsN5zX+OmR8Mo1oFX8qwjhcVNVL0kiobRr3OtHSucKdzS3HF2 Kx5Gw7zhUm/+o/DhacfKx9XDqNEmKbnTjcL5yNQooWMYvf9Y5P59H4WP1Qrs rewZRqIOs/Ym+yls5lp2+t/QMNJ2NCjOP0Dhv5HrK3xmh9FX18ByL18Ky1eo GJos4KDAW5XSsQcp3G/b7nFiCQexloZfeBNE4RedqVHPFDmo3DgwbCyYwnZC UuXKbA7iXfO2yOgwhePN+AzmGnPQyO0QvuvhFHb+XuK2wYKDHPOyrFKPUljd 90hkgA0HCVyxUUo+RuHKuOHSH64cVHy13SIqgsI8n9rgRRgHlaXNHxOIonBU 16v0sBMcJHpRqvMvsRBPypz1Zzmo/qsden2KwrSGfXnhZQ5SCq3Rcj1D4asG 2suCkjnI/vu1KqWzFF7sIHl6VSb5/v3Gz23Ey87UGeXlc9DSjBp9/RgKZ6fk 3fV5ykGxDYp3Ook1H8cKqb/ioEXRCyNPnaOwzk/jqrtVHNQXJ5WZfZ6sf0xF fW89BzX3FfaujCXnJS4Qu+wrB23sWPb4IbGJbtn2jD8clP/0zuvrFyhcs/Nm nksfBx1I3SnBF0dhq33HWHJcMt7a6R+exE3HHAO+T5L1RR3UxsSOlzfU3+Dl ohsXTi5g4incliO92kGQi/x3j59wJvYsG70oLcFFzoMphzOIu5sauJ8luWij Fcy0EvsOFNhcXsxFLdE51PwEklf+hCdWilwkeT3nqR5xyGK/BbQqFxVHiw7t JZ5eZX64ls1Fmc7XS04TRxirfb2gzUUZsgrLUon5XYQ2mG/mopiP3oq5xDGH Oq+LGHLRmhDjF0+IxWPfTL0z5aKARSeHnhJfzMx0PGvJRdJlHeUPiaWLTrzc as9FM/6bdLKIk2v/k+V34aIRDVvzOGKFzk3HX+/hosbZKf6DxLdnFrWd8CHr 7Zp0tyBWnT8JEMRFyRxZLyXiPNWm9NkwLtJQXLNgmKx3jd6TOS9PcNHEUQH/ Z8TPdl1yP3KWjCfkFhxCvNE3sHx9HBddqqZXaBGXRu1YNn6Zi0Srf5//QfZ7 6w3N00+SuYgSz8o4S/z+oWhnUCYXhSQt9lYl3l7ZbbQ6m4vmB8j0lJPz/NRa eXcon4tepHgp2BG3iJza7/uKi6KE1Yv3kfN3Wepepf6Gi0xttZf+IXnp0NFT 76ki+yNWbuRI3O8507f3KxetaExoXEXydTD823blNi7yHNqvd5Hkbzzxed7v P1xkHT8S2BtNYV4cHODK5aIrPhaa0SS/pz9b1ctNcVHi0yfF1STvwn0rV7fy jqBLN/5JChHPl+nnOkiMoNFte3S8SX0oB+05bK06gsJavuxpOUFhjQ0/rNLY IyjXRGvDGKm3NTx2Wt3rRlCipW6jCLH+eeM/xw1G0F6xbfuWkvp0zlK3znEc QYJ689X4w0j+9t/SGnUbQbEXBj36Sb17s2VF9LxGUMFKrcC6EAqHvZAo+xw8 gppss0VPkf5wpWFYa07cCLLWPLw/w5/CKdcPiJhfHkG3Nxjtc/CjcJbL7z9X b4ygs3bKhqKk/xT0NqZo3B1BY7d70p1If6rhey5iXzqCNt4MZD31JHlce7wz jzOCUhIDBbfaU1h0aqxscmIEzRT5307eRfpBqX+qIc8oqvZu3tBnQ/qZuZvN N9FRlG/y1izckuTB0/C1gPIosuLt3GRpSuGgyyJpTnajSPfv5uRWXQof2R0V dtd5FF3JVtzRuJ7CkQozNhyPUYR8P1IV2qS/PegXjQ4YRcFfLMsvr6bw/Td1 YY9jRhHboEu8X5XCv0eu2oq8HEUscZsTJ6UpnKG3+uD316PILkP2Xackhf+L rYnLe0/+n9mtZchQuFmJ/51V0yga/zTh2iNG4TqrQN1kziiKcOA73zGHwq8e mslrqI6hhJWGSYk9LHzVh7d7+9UxVIAtLrc8ZWHr58kCCqljaNAkede+xyxM 8+socrLGUFbi/qC+fBa+kOzreLVgDJ3fMl3efo+Fo6q+1fz4MIbMr80djbjB wv4rnjzy5xtH6ZuW6Bw/ysImHfuPJgaMo/OqtpC0kYW3HlW8v+XwOCpc+2Ni jw4L60u2NI8eG0dHnX5Gaa1h4Q2G5jq7z4+jja4OUrlq5P6/pcVRvDOOznxw sXOVYWERT+6+wpZxJPz46huDPvI++X3UusloAvEk/CvTtJHA23/Hq8nKTqIw K3HGh1ccV6v9bnBUmkSp1woDPo2KYdOD2sduqE4ik2bVT1q9YnjbnNZaae1J dDqj6977z2JYX17tELNjEv3Ovzl6NkcMr3V8gwUjJ1F9k/Z5VSsxvLhhwobT MYmeDC3NkLwhirtfu0VUPphCG1UfGquJi2C5hKb9Fx5PoUDJoAxxHhFs7bzd xrp4CknzLac7h4Txq/H1qm2VU8g7irMlpFEYJ2pQDWPtU8h/s5izZLIw1r1a oqIiM43qeftiTVWE8fn9iz+eOj2NWud7uT5fK4Q1qc9LDP6bQaz2ByV7Vs/D wmjEtYUziyqT+g1PCs3FRn0OY0tteOCFveCFA31TJU1lHrwO6rxQaSKh4DU4 WFJ4ttxZfoQXBuUi8iWOfCnZwx/cVlMzB+JfGkxvv/cNuQceKRS9Phes5Wvx +aMcpLVXrcbMlQ8yel9H+6/ggY+0ukjwen649/NXXpbDPCjOjbyhPlcAzIpK RSZ1xeEIr+qO6u8CwJcqos/bRYNwS9g238fz4FhpTsBMjhR03Fa4lBYuCEcf 7RS6yJaBS8sX8j23EQL2nNeVs9NLIP76nreu8sIwFSxntblEHhwuOdWIdgqD Dutp7T6/pTC+5dZE2isR6H0d/sNTRwnaO/QPl50RhStmLRNhDcsgY9PKRR9c xWBfRmeOSoQKPCBNY6+GOBSkqYv5Ti6HMzbupnNHxEFtJCjzvK0qrG1Jv3fm gwTcRqp3nB+pQdKKGw8+mLJg4ao0sXfN6nAcxyaZPmfB4YNM9YVRDej+ji9N FLHgvkLsaNKkBthOceLvvGDB3QWHbt6c1QD1dQ7RczELXFiCfncFNKEpRzms uIIF8jmmrdekNGHV1ZLdag0sSNU23zx3nSb88RmSFRkg429YUN0VqAnmi2xu vVeiwGvXI6eG35qQ9FsT71amYKVJxuaZTk34/UDwW68KBb/8irFijyaEwwuW hBoFw3XRt7yGNOG+p2K41UoKDrt5fm+a0QTh/CHLlk0U1Oif89gipQVvt1zg 6belYIuvZrmJoRbQ4vsWHbej4De+76G8TQucv+itYzlQILNOL+6fiRaMeo0c WOVEwWqB98ezd2iBcpzjl0PuFDTnrij6tVsLor6q5v7zo+Bm3qXhbwFaoOf7 djcVTcHTlkLP3htaMNnUtbU8hgKjt2YPc1O14LGB6KqQ8xQs+ys145NOxlu4 U/B7HAVmNlcT2m9rgWh58+O7VygQuBZzKfuhFjQt7BeDLArSM7etuVOhBf5v 5mPfEgqyHiYcsO7XAlW2do5CKQVrz0SPPB7Ugvbr9lcayijY9mWbG83RAlv/ VO8NFRSc9vNvez2mBRsXLV8o8IEi+azPjuBhg2CAbmBKMwXWCV+zA4XYkLbY Tal6hPw+em/qMhk2bFitpuk2RsGDRi83ehEbGoy52uPjZP53Vr2aIRYMOW2q NE2B8Yck3dolbPCvyw4Mn0ODZP0mAw8FNsBpDlaXoOHcIvlV25azoTn5xfsy Fg0CO+4Yyq5gQ9CjUw12NA3eX8e7h4nvti34GyVJA6f1SNdVNTZQuhslvi+i IdPlbE6tJht+DUQ5xS6nwTZ5cGB6DRvCBbbvVVSlwf3Jek7xWjZILVkQ8FyN hjUjOyJD17HBxOReVIcmDQsa9+sParOhIOtDzqa1NNx4V4+qN7DhpL3UZJ8e +X773W+bgA1Kr+9c2b6bhoRK6Qk+EzbUqI9ntTjSEPLsfW8C8eEr2x7td6Zh F6+x3xJTNlR5dX087UqD9TM9ObYZGwJZakIle2lwOWiosGU7G0qcco9oBdGQ 05rprGzJhn1vZ6NfBtNgcrB2fjIxvdIiyTSEhoXvl1mzrNiwh2/w8d4wGq40 /fTmEovmrOxPi6Bh6crS6WwbNjiMP3ZhxdIQmqBqVGfHBj43fr/UCzSoOid5 atmzIbfK5qh6PA36tufmnSfmTRu9tu0iDf2/rjaAA9lfQ51PEddocFb2iU7a zQbLvLM/xW/Q4CCgXNRNPCX9dSA5maxva+IBXUc2bO8NFX2eRkMqz2KLJuKR xGLDoVs0RElJSfA4syF1WsT6+B0a0nPP6W4l3rbH0U3sHg123351xBAnr585 tuI+DZ2iHwok/mODftvmZ64FNCSfLVCc58KGXuO4ioFHNOQdtV2rR3zl0Y+G o4U0jOsKl4USd52OGLr2jIYwTR3TP8TxGmWq9a/I/DI/0g9cyXp0dgtFYnLe bdkVrcQlBtzOlWVkv0rsHoi7saHfXvlWwhsaVML/o7yI+T1LTuq9paH4T13s ReLF/nZuQ5Vk/aImui+ITU/HyO2spiE3/ZiKoDsb3BIUZ3lqaGhLsfZUIw5L ftGS/5Hkyde93ow44Y5NsUsdDXFN2r7exHcL+q+xPtFwJtNZJ4YYvzxzGDfQ gC57sG8Tf6mU3+X/meT74GcbTCzww3J+7VcatlMrVQaIl3T3DB//RkOA4+r6 uR5skuOoOq3vNMQ8aLgrRWzGI5v/o5WG5vfp2SrE7iJPL8S10ZASpvJlHXGY 1A4f9IsG+uSwxhbiRIUu04F2kt/suFwL4nvqkappHTSIPj1nZ0+MtRcJWXTS IO53UM2VuEn/cefsXxpeJH1S3ks8YG5ekdtNg82kjskBYgH7P1nOvTRIObAv +xDLehw/Kd5Pw+ZjW+f5Eq/1k3Z7NUDG1xC86f3/+YY9BN8hGl6pz/nPi9jj lImcLIeGRINSAw/iI/HtMx+4NLzVrjd3+v98b4S3HB0l9fmxNNyaOPu2ZLHG OA3mdYtrjYlLH+Ze+z5Bw6K5/kab/j/fF0aHY6do2KK27Zcm8eDbNttNMzTw s1bdlCWe9yl0bd8syW9IUYTo/+fbSs9P4WHAfLnvyXGy3+u6cobN5jBg8ffr nV/E5twtddNzGeg4GtP3ntjj3/e8+/wMmOaJWj8kDhcOueA4j4FS/b7my8QX JVk+okIMnJp9duIwcbb8PdMXwgw03p02sicuU9NX9RZlYHCeoYYO8aBeUGeV BAMRM1JWgyRvguZiFUcoBgLkixLfEcvZ3c5SYxhQoS4P3CTe7tvkek6Kgeag Zf+MiT1DA0BXmgHrIG7+IuLwKGG5noUMnHfQPNZD8p9zfWOLyRIGtLiSXqeI y241Fk3KMiC95vspC+LmfN9r2fIMPDuo/2IBseDbm7bCSgzIiMgEZZD62sPh q3unysA6Y/e56aRenbO31DiqM3BpwiHOhdjWNapqQIMBo/mF/rLEWz/OrZBc yYCCmMyqy6TelXPmFLtqM3Avx+uWrxPZbzf9Z1wdBt6Ya9fLE0stjCw8s4EB SfewnXWknwic4c1/sImB1we6DTWIO9x4bk0YMOB5ac10LelXLQsh47whA6v9 /AuCiRtqj6fJGZHfV6x5Jk1cvvnfNUMTBk56t+Xbk36XJTN7IWEHA7TuabO3 u8j51U8dXuHEwO4v8t92WLPBMVr30AtnBnzHeZ2bSX+1hiMHLVwYsLqToOpG vCV30ifYnYHZVVvTvEl/VoqZcCv1YuDvzYpe7x1saNcbM7M/xIDHx/UVMqTf N4+vM+kNYSDRUuHZWXIf1OcdMjoeysD24O99XHJflC0Z1bsVzkDbEifFSmM2 ZExw1w1FMhByfeN9eyPSXx4Oy0fHMVC1PqF9uT4bvCOtpk0SGPDyuhy7R48N wVaPv4heZCCz8LVABrmfzo4EX4i/woDZ08seNCL9fv3E1NUUcr6dtSVNumyY KP33+XYOA0lr8yOnyP0456JLwb4HDBgEmfySJBb1KI1VzWNAeEmPoOZqcj4C J7fkFjCwE6+7t2slWb+JQEHhc7Jfjc9U4jVIv60XjS1/y4DfoaDsy8vYcD3T Z9/pdwxoJnttOq/EhsygGoNtVQycC9WLi1BkwxOp+MmqGgaO+sb7uJH7v8WB 2fepkYHfld4CIuR9oNK+0OBXOwPvwtW0Bxg2sB+HyWZ1MHDLFY6U0uS9cerb hGcnA6mm8w8lUKR/qKTkd3WT+tMfjFWVIPfrAXnZoSHyff0NOnrCJP8bT0wU cBi4/kVQiZe8X06J/WoIGiHfS4oqezWPDUl5mefGxxkIKgiTXM1P9j+Cb2/R JNnfS4OVXXNJvez01A+fZiClUFgjdQ4bHi+tWLJ5lpx381a9HbxseMVRnvj3 jwH5d0v5ech76X8no7VI "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-4.3923032509109, 16.39230390044235}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {967.5, -120.14580741297955`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k8VF8bAHAkzB2EKUqyZ59B9vU8Q1oQUpZKikqypZVSUYQUSbIWUcqS qPgVkZMla5ItCWXfd0KU975/zef7OXPvmXPOs5yRcD5tfYKNhYWlnpWF5f+f j645c6ge9zPMbH92aHVVC8qbxM3txA8g9Q0bHhxs14LVTx8CxcVPIWG76aXa PC14hMPF1opfQm99ihjTp7TAw+CC54LYLcT7STt1e4smNC27Rk+JxaN6nZvJ RK4GcP7okR0Xy0AcWVohIxfUIKUm+cyoWAE699CM70wgA+bi8hV+3ilADglN ZhcNGLDjZG1v41IBCriItr9YoMPYmgWbwqZCpBzNsy3Tgw7aBha6t0KK0F6J Qc8xeyVoyFlhk50sQS802uqv6iqAf42SqeqRMtTAm1ZzWkIGXubc+uHBqEHe CWmLfb9FYERg5I6pUw0623DorUSYCMheNDWUi65BfZ4aKHuLCDzWp6b0LtUg gYUxi1yTzRBVfcflYEUt+rciP3ksfhNc7L07vdPhM4JXD8HTUhCSqbWB/CYN qOiYtkzjyDo4ib7Gj51tQiJHtxZbR04hltTfhT9uNyHxTTb/JRydQHHsIh01 T5sQyxuqS2nqKKqqdhHNaG1CG7+FXn9GH0By+1dST+g2I6ufP587vm9FQ66y L7pYW1DDAIM76U1TiVvU1Q8Nka3IIduj6LPNUgnbfOrPkoxWlOfz5f2e+39K EuyqWHJKW9ELVeuxD1+WS2pEaMbhc60ILlUoXjT5V6L4PL1yt/03dJUYjRWP YsVj75saSsXa0G2u2IoqOw7s1S/fm/fyOxpxcvie7b8O/3L8zvWx+jvif5rs PsrNh/e1hTI+931HDc2hu94c4MPatYOX+oXbkWWzX9DhGT685lUan2BIO/KN rOkUFRfAcVckDH2O/EAqn1Sa3D3X44+0TfE6fJ0onhnK3/dlI1YPr/pgotiJ eiqO34uhbcLPOHz79u7oRM4f6VmrtpvwnaVWZbcrnehRiCbtd8cmbPsz+lPC UCfKzd8beLFfGI9k8s0t4y5012GDWceQCCYkgmR/av9CNQOPKQsO4rhK/57y NZNfSH5rk5qjrzgOtk/S2mL9C/Xvjq9+dl8cs0W+23nI/RdKtF492lEtjv/8 Gzv57RE5nlHm2K4ugUc7bNK/sHWjX38HIxTWSuK6OFl5XNeNzkr5mh67K4XD 8tRVj3zvRnp5Ze+pz6Xwrgamzr/+boTfOPyM+SCFyzkdduuvdqMKBxYXm3Ep XHQx8tQ71R5U1x5x5/xuaZy9fykjN6YH+U2sCG5fkcYRfLUKKUd7ka9CRZqX uQwu0NqSb+HVi+qfR3yjO8vgPsfTaMWvF2U7bBOu85HBetm0/Xaxvei+dw/7 s1QZPLTb4SpPfS/aknK9qeG3DDYOHP9ySa8P5Zkd9uSJl8WL8+suWAv2I68D F1YuV8hhqS3Oq6tS/Uhz+4869W9y2GJ73q1s1X4k/6ST+WVIDqdF2Sdx7SHH X5SbPaPKY2vllMoPgf0o6a2IQZelPM523SasON2PPqOCgIBGeez8Y3/JmroB dLklM7wfK2AisdvzzPcBpFam4n27XgG/Pugl8nNgAMlMaset71DAa9pDLhWy DqKwj26DDb8V8NO2QrUzWoMoX02/akZBEQ+0iKd3pQ4iS8HZ4v5wRRzxINvW PHcQBfplulfEK2JNG921hcWDiPN86sZbaYo4pHmf84O2QXQ58W5SUZEilmsK FjHnHUK6DVmPWoYVsVvDWGTBpSH09eeZa98NlbBA5CUkGzKEGAqCof92KeFC S46J6OghlG6pv5trnxKmfhEz884ZQgInRsRqXJTwi8/Wa2X7h1DxhP8RrnAl PFHz7lK01TASaERyl5qVcEyYiRyb4zBKTXjPMdmhhA1NG1tPuw+jet+r+0z7 lfDd6lE1s+Bh1OhudeLVvBJWqRKdYC0aRjphpulGG+j4TEWQ82nZEcRq7Brr Z0nHon07OH6rjSAPupfEdxs6rmWjZF6BEUQo2iuIO9DxVgifvnVgBDmOXex0 c6Xj74UPAp7eHkHc239XzfrTcfB3O2nFuBG0eFLPNOkmHastbqp69XQE3XEP ur/tNh2HayStKykeQdkRD1M3xtAxM/dZ0vfJETQXvfrqRyYdT9S7Gh1dGUGR wzfPtuTQceK4wsAA1yjaVTtoXJBHx/MKOfQ5iVH04Em0AfpAxxlpb4t4948i 29u5YSYNdGxbfunog6OjqH2dTkNkMx2v6dVjF/EcRYs5Sqc/tdHxYXFsJh9M +nFI59QvOuZPrGo3fjeKHIrpl4yn6PhDQdi1mvJRJHxJO6Rnlo7d28wl934d RTMl85oeC3RcseHrKceRUbTfICYZ/aPjS5HfF31FxlADa/S9QYKBZXISH67K jSFl9qMZHTwM3PT5MARrjCHJns7MIj4GplN7Qu5bjKHC098jDAQZuPvmiODL gDHE573YYizOwBFPXxSqh4+h4IZAzXuSDKxX5uX4Pn4M8Rr6VlVLM/ADltm0 qtfkfKedn67IMbCRWP5uy5Ix9PyyNsuCAgNPGviMt9SOoUwx7VcdSgy8229Z vbdvDAkcddV0U2Hg3/HFbaemx5CMobeIwDYGfvLO/8rU3zH0Rc/KL02Nga2+ McV9iHGkID99SFqDgf/Oryn/KziOevJ1KyM0GThz/aeTQVLjSOIM7VOfFgPb qYVSqSrj6F71UScZHQZ+5c29b+PucXTCbTjSQ4+B6xJol7Jtx5FJSPKOYH0G HigXTjY6Po6SnHPooQYMzDIpUfHtzDja5npq71lDBhbeJD/q4T+OBs6LFG9H DKxurMLPFj6OKls3XFklbemppRWbMI7Y96TEpwIDu8UaHlZKH0csXBQJBpOB gz6aBH7MH0cqGQ+2pJJOGjXPsC0jbRyR8I/0uw37v4w2jKPmA9pPjI0YuBEd mg/oGkccPd+MzpAeP+W8WXBsHDUwc4JCSHNFn2JmLY2js1ar54JJS37wPgmc E2iHLaeIF2n9IZ/wlvUTqIp7baghaVsB/zdukhMoI0m9bIGcz1s/+Puq8gTK fd7QFk86zCV8NdpgAtWrCzRLk34aGb1VwWwCiZSr4DhyPSWFiWYl9hPo63bn 9Hlyve19qWf2u0wge6EfsXqk53gzY4fPTSBVnvp4N3K/eHVeFV+7PoHYT3kU 3CD3U+7Yu17a3QmU3dXPGkTut1F4CSXjIfn++67XvMjzcHj7SdkwcwK5i0jo Guky8MXuzzZNbydQz3VdWNVm4HvUFj/XignUp9eVmEae7wuNjpS/jRNoVk3d XoM8/09Heiujfk2gpnLngJfqDPznzTSteHkCOez9AYdVGXh916KONWUSyWm7 TUYpMzCDi+XooOAkGg0/pPmazsDHHHhf8G+bRHt0ugqy5Rn4WvCGxmdoEkmv SecOk2XguFyRRb09kyhc2kTaaisZP+yK211cJ5GE2oH6eDI/Bhjb3JYvTKKP W1YubhEl4+eATmRk4CSqO1jDd3szA2tk7+woTJpEyU+Ut0uT+ZVkc/z8upZJ VLr+v5+WZH6+83dPeNoziQzF7HZKc5L5mXEW60xNor700MWeNQzM7g8cr9dO oTqN18fE/tKxdpOFdYf4FDL9cfDegwk6NnG17n8mO4W2eXy6VDxCx9Z/bXzP MKaQxUzZmoYBOvaQPZzEoT+FOFbt5PK76DjFz31ExW4KrcelAwGf6VgFUxZD Dk8hfbPKo+bVdIzZ09f+PDaFdC6OBK+toONf4X3i4d5TyOPjpmUoIuvx48N2 w7fI9wXk+3Vm0HFCuWV5StEUmparScq7TscKlImvi6VT6AVRz3bkCh0X7Lnz 07J6CvE+Sny8cJGO21qr/vxtmUKJSi0vZt3pWHCYqXpwcgrpiu/+J0TW9yge 9SQByWk0dv+2xiZpOpa0bsw6JTeNDr09YpO1hY5fxXgXYMY0qki/pKckRMcN YtnNXnrT6Nm981f/UOiYd5sMtXb/NEq4vFxXPaGEw2w3+gaGTKPA+zRdvXwl fCN5Ze/c2DQqMvbjfqahhK1U3p1RnJ1GVwyvfTenK2HRj+fuOS9NI+lldqk+ abIf9ow0NKydQbZj/8z6aEp4Zut3y2zRGcTZtq5NcVoRO7/I3+NiNYPS1p4a 6kpXxMwCr91tb2YQu1cug4dHEfOaKpxaVziDwrQSZJrYFHFHe3/oDjyDkmaW E8MWFbDvikNVXt0MMg5dEa3vVcC5yGznvf4Z9Jsr7Hh6gQIW/yRrYio0i2L+ /uvKdVbALE2/oOjyLNKvU+velSmPg4Y/pFy+Pou4Pf1Ddz2SxxSWR2w6obMo 8Qhhoh0pjwXoB8rzH8wiRkfT1qEL8nhryNedObmzqL0+9lEYyGNTvVKL1IFZ tJOfRaS3UQ7ff/LEIdR6Dp22yMmXHZPFMuddfPcrzKOjj6int85uxXTdn/uS VeZRzNgT7ZjerVidxV55RHMemaYf2LXctBUb3dk94G88jziOHDiQmrcVOz5V 2p/lMI/KrHhETlzYimOaZ5TZ7s4j4z9Js2Vz0nithv9gzuw8yq/vkt8yKoX7 5mNtqcW/kc3oQvfoWwls2u92NerMIqq6lki9170RW/RFKoqK/kH4SLJVaA2B R8qcA6qylxEOHu549LKrhMHfusX4yF+k3bzpwg5DDiDQvFPH7D90lP+PlnqK EOwcP7ggacMCT/8u1dSlS0Jb6XHWg0qsYC5sRJewlYf80HJH8XlWGJIufNnq pQwuay/8qq9nA3o0a8G9gW1w7KxfPnfCGvhps7fs61sNUD6pWG/uxA6Uy+KH aOba8EVAiXpBZy08lJeq+vtdF96/vJGotIYDWIezjFiW9IHD3EY4loMDHpwd c4hlNYC9w7LxrAQHcI2d2CJPGMCg1OeYVj4OkLmTF6K/2QBo8UJRAaIckGBY hiUNDMA98EVosw4HZIYeLBnxN4DN9q0XrnhzgH7u3Lg9qyH4sSpY1XVygBu3 fJbKrCEMbKe2yXRzgHbF6LLBH0OwCh07cr2PA1aKZhJMWBFIr8s5rTnKARNx Je+N1yGoE1G/+3iRA3wbtlgtKyAQ1TasP0/jBDajFHZbJwSlXtbmW3ZzQthd m+qsagRKr9Wafcw5IfXMJGX1C4KY+fUOjZacsLGk6oA5+bfL/co39xBbTtia GSbW0oNgfZjD7eljnLDt6Que5GUELmkuNRXXOKHJffI4RRCA6Li8yyuPEyyu 7jbV3A6g6ZPBc/ctJxzdpMj4sgPASaCtMaeQEyZmLjmf2A3wbpfG4WnMCedz TxbcsgBwyZ88c/4zJyTu/Ex9bQ/wMeJ44uUBTjCnrTwK8ADwZVpMBG/kAsZm v6N8UQBPO668eb6ZCw772A/ujQb44pPlWyXKBRn+Xs8jYwBkXnKtIbZygfRn 74a1iQBNwmVC4apcQH9Ie13/BIAxp8W8b8oFqumDgu15AP3PJKKTr3CB1qJy RGMzwFhQ99KaAC4wSbQb7mkFmHFOOeIayAXnIiIGJtsAWMQkFFXDuKDDqrhs tQNAOFa8tDSWC1q8tad/9wFYhYhN9b/mgvUWRQeN5gDsTvy0Mf2PC/rlu7xF fgM4Gie/f1lAjrOHbp5dAHBfFQ3xweTzZ8UUY5YBgn1ERSn1XDBC3yryho0J RSe3mCsNc0H1ff7wnXxMKDPpfBU5xgW9dimhI/xMqJF6JDQ/yQUzgg+oYTQm fPsp0lv8mwvqNno+/SDIhBk7kcuW7BSIHtpP/SfCBLldm9PPilHgyeWFP81y TFCW+cHzTZICrEWPuEGBCZrsief0ZCjANB6Me67IBGMsjNjpFPh5iynqwWCC o7Zw6wNdClRe1fxUo8aEaLlN7AU2FDChBnV2GjDBwVHmea89BaLOliwsGzJB OlrNlNeBAudQ/bwgMCFvdU/kMWcKCOmMJxgbMaG59YYI72kKBJ6f9fHZwQTa zTH1Y6EUUPjAmNtlwYT2wqVv4bcp0CWxnk3DkgmpUxx+7yLI+RupI1usmLDN QeIjzwMK2G+tMxnYywRrNds971IoQDH/tnmvDROiuktO8LynQBqrSXHEISYc FPrMpf2BAg9OLkrvcmCC5J72LOePFNjvtuvwP9Kv381Nv62kgKO8u4GTIxMa 78pfc26mgJpRcBaLExMSKjQlwr9RwE5tMOQxaedl4/K37RQQVNmhYuBM7reL I8HTTYEbD/N6PI4xgd/wfszbcQokTR35kHaCCW3nHuv0TFHAouv9iKILEx5n ZHdwz1HguHhY10vSKhuqJJ3/UKDd0UA46yQTFk1bKu78Jb//m81J2pUJOKDH 9S0LAeYbVzwSSFuNrbzk5iTgxuk9jVdOMWGjJGGtRRDAnRiqMEz6l53QvBMP ARUGxSbWbkzwLlPVe0sjoFOgo1TYnQmRCS6VTuIE0FMCqoI8mOBz8ca5K1IE ePA23Gsh7WidJBYrQwDVT1NXypMJSkSrT50SAZHyejL5pGkD01KDygRI3Wxy XSL95yNPA6saAd40n1BdLyZUXzKR09IhIH6p1eEN6Vwbp+a9+gQYxt3lGyUd p3o1wAMRoLpglix2mgn+PPFKIUYETA2Gce0l7TKc15ZiQkDC9Vozf9J7KhqC inYRsCge7ppJWj1lTOWbGTmfq6VjI+nNV7k6py0I4IcopQXSbAekb3FbExDa 0tK40ZsJw+qgIWtDgNLDBCst0g18Dt1MewJmzJ3SrEm/G/MJdzhEgM9AZoMb 6eSq+zo+jgQsvFj86k86+GlO/z0nAuwV6tLvkfYKqL334jgBWxjP9z8mbeMw aFB5kvw9n6ktWaT1tdeMdLsRIHbsinweaan1YjErngQk3vXbW0CamNI1EjpD wJL2HfP3pKdrbSdUzxMwEaYqXEi67fnZBHMfAtp/TxTkky4JjNhx8jIBBWq7 FF+SfnYkc+b6VQKUDT96PiEdofcp6WEAAUH2XQEPSF8Q6jF9G0hACiF9PIi0 w+zf31+DCVgvKSTkTXr7l01Pxm4RwPtaP96etGKWhiVnOAEuNOERA9ICIXuX JSIJiOpTp4iTXnL2fK5/n4BXFNrvf+T+/jK8tc8uhoy/F7q57aRf/sZZdx6S 8eMVEBZK+kFjh93zZAK0DF5kHCR95eXimtJUAoSH9aPlSZu5qDgspBNwVyOr upiMh21G5lwCL8jzeB1HCyQtLOqap5RDAKWSkDUhPdSSzO2cT8CqW3J6CRlv X169f3flHQE17M0bfEn/F/7teOx7AiR2vzKlkw4yWVdc95GAw713KBFkPLtL KJ4aLCfzxzs5Soe09d8dG9iqCPi+IbC7m8wHifxrnlr1BMwJDtfLkea6l7DJ +isBz1uve1SS+TPl8V+FRzMBO3021juT/iA9sSW1nYB0idM/7pL5djD6cD33 IAFry8QEysj8FXlDbHYfIeBJjb6oAemfX9+erB4n4PQzSbs3ZL4fXyfAGjxH gB7/mj3RZH3wCvuktspKBdO9xjpyZP1QyTgXcHgtFdjmGhIDyfoyWyn++T0X FQKfpcn8IOuP71o/F991VBAIHHl97SgTbgQox0+LUEFz27GY2MPk+SZ39FuK U4FZ+VyxmaxvnB9ubXspRYWnNdV93KTvLPfWuilQQfiiLz57kAkxF+P+9WpR YWjahpfPjgkZHqzHW62pkNb253YkWX89br/MVbelgtB/QaJ3yfrMyDz0N+oA FRpknepu7SHr52B+jOVRKmRvX/E5Z0b2L2e36ipPKnwZ0WHZuJPMN/smxvtQ KowMrXFOI/tFlE+A36Y7VOi8ueR+Qp/Mnxh6lc9dKlS5Ct2S0CPrf1OIk3oM FXgf1/8J12ZCn4V+dPYTKiRbWr/UIvvP4va0peQPVPjPTnbosywZX++TA8s/ UoEyOp7rKsMElm0JPMPlVKgW0uZi2UquX+yuxLZaKjCW645KSzJBcMl3d/k3 KvRtYuYYk/1RLds8fmiKCsWmQR4d68jz2DCnrSrFDQcl2b+eI/v5zO2JUhsZ bij8mpWbPANwgW3Y/LI8N9Rf46NVTQFcmew8WqbMDf7SWY684wC3qytDbfS5 QfOXJ+eZfoD0q4ltl2y4YUD3kHVEC0Bvv5FvaQg3NMaevCjzBsAouT5V4TY3 CF46LvAqF+Cx/cHPURHcUHNYJFTrJXl/qD0jeewBN7y3k17VygBoz31ct+YJ N6SpXeXjTAZo9PsnbvKBGwxMfrp23gIo5S+srpzjhhmTwN2uDgAStSZzyovc YNhs5uh5ACAg6Kto3DI3dKlVg5ctgOHC0DlXNh54KHDF85gVQGGHkCiFjwda NnI7bCbvd6+fXzhrqsgDXGTyflQASDVQ3fzZiQeO80UVVwyT900LInD5OA/0 OT3W0ulF0HOkd0TelQdujtIs0joQSN14UBjsxQMK4hoWJ8n759NPSwfAjwdu LNWER+UhSLMsjXsTzQNVXfeTb15FkO60TzChkpxvJvZbOwVB9s0L/CfpvJDy 61y3PLchjOkfvnFThRe6qvfA6BpDUJrbPvtEjRd8ox3d05YNINN5fcsvHV6w 6u+QZh81gHT0Ju7gDl4Yljkv4l5tAE+XpsQsjvDCvzMi37uCDCDB04OhcY8X KnRGrh76rQ8hNsfM1szzAjd9aDahTA9SLTscTizyws404V+v3+lB0W4br8pl XnjlN4pKs/VgxmDnvdts66DRzu9AZaweOMgofqPxrYOAg+wTbu56sG1hxlla cR0oviz3EOLXg664G5dNnNaBsNv9U+y2uqDRkZIR8nkdrJyulZf5pA1x8onZ n834IJwjaM+wvwb44/A4swI+oEpI/XnvoQp7Ntuk1UjzwzOOWratNfLA9Ko8 xH+LH96Z32G5cFIckkWcpevm+SHyK012aJAdpMuex1gcEgDxpbqMUze4cCS9 VKHxgwDw/f5v+/qNkthllv1rtQINyie+hHAsK2PnVzPit+7SIEp1x7n1vzSx x419K6b3aFDEZ7gpZ1UTX9iX9437Pg26zkso7hXTwqHzFyIiY2hg/erE7SxH LfxSZ2k59hEN6un1REGnFl76uNr6LIt8vv/6KY1ObRzZyB1eXkmDAePEhGfd ujjhiadrcDUNLkY9l1Vk08NPztcb76qlgZtlad9/knr4P8HIP7X1NCDC3Qd7 j+nhjoM016YWGjjutW27P6CHZXs3Gff00oBvePDN7nF9rJJ3WfRpPw1CPf3t gdcA6978sXRikAbad3/yGCobYHPZR7nDIzQoHeV6YnHGAJ91FxednqaBd5U2 Kp83wFf0ry+9nqUBr+b+bbOChvgmT0/z+XkaRAcjGXltQxyX8+T24iINLHx8 uTIvG+LUAPaThX/I9TKKZ+YSDXHW3hNGV1ZoULhQ0rKj2BDnSX7aYviPBk8l LuckdxniD7MyS6urNLAS6ru6umqI/wfNd0kX "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-30.999992244898124`, 34.880715912311594`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {193.5, -360.43742223893867`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996215`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8VP8XxjFjENlGightIhWlTelzKksYzJQljBlEJFtlKyppsZSokChb KtlJC4lPskUkCiFZZ6xZoq+t/O7vr/t6/3Hv65zzPOc8V8nB86gTHw8PTzYv D8//n48uOVA0HAMOSL/SXPq3ZAsVzYo0S0UrxG8qb7qj0haWqkqvKiqeQnqH a2tiwm3hEY5Q4Fc8j9qOT0z0r7AFN20f9/8UwlCIfo5MxlYmNC+4RE8oPECp j9L4sIs1CHT0Ko8pPEflNNf4h/8sIKU26cyIQhHqlsgp3p1Nh+m4l6o/bxWh My06l0+ep4Oec11f01wR4vmZR6/SpcMo6T/z4uZiJHnT9JpGqSns0TbRCgsp QZc2TEyJbDKBxtxFPuXxMuRiRtfoX24El2vVDDXYH1Ba//HV/Yq6kJ7/emNm zAc0IZfgrl6pA01xh0gbPn1A9K6P7t9P6cB65+Mlq/ZWIKG3fz5B4WGoJV3b ykOtROq8gzZ2xodAWrtD8nNVFRK/4y0SoIQgJzesw21rLXJQOpAc9VIThiWH bxna16I2ngtHzRQ0QdnX8MCm6FpU4886lxe2A5L3C6f0zdUinVL/KXW77XD3 462T1pV1SNDiQrCRlDr49kVO6jPrkZRY55ylhjIkCdddldBtRI35FIVtwYJw QDuAGcRqRN0XBv9lOJKh02PzznG/RoQLx68+M+KBVU03OZ8yGtFEVkCwpskE uhNHMwgV/4KSAx6J0vLHy65uaBBd6viCpK6/fKeURMXO6MuD0bPNKDPadfW2 Z5swT+qf4o6bzegnp3eVeIgKjiPLddamNSOtirXvRpxUcc3Hk2uetzSjG1cZ P6IV1fAms8VUJ62vqFBBJedt2DY86KKc1cX7DT2tMHPqXbEDu969WNoY1YJO ue4vJFvtxXwzqT/LnregV88si6lFe3G8ZQ1PbnkLgqA7oc9WaeFaOerhiOkW tG8yzoXVooU3P0uvNjjeisxv5aaK0fbj0bfNjeUKbcjhbc72F4oIewyo9BXm fEeiId0/Dfccwt2s74LvP35H9z6L3tJxPISPtYVure//jtapCfPORx7Ce+q4 5wdk29HfBO/WOM4hTMp/Ii4d0o4kGUbbM6IO47hApQN+7A7E23TAaV+bDn5P lXmwV/wHMtw3LC+1Sx9rRtSU6m7+gcpHjsx9stLHTyn+/Qy9H8hxYVpO76I+ vjXXss018AdSO9BZe/6DPrb4GV0VP/gDmVbdSRymHcHDGeLTC7gLSdl5/RE3 M8DLlK4p/9zTjVKSF5WdNI1wzf472y7pdiPbd98UbpsY4RvHE3fLH+1GzErZ E1ddjDBf1Bt9m9PdyFk2Yl9zghGe/zfq3PqoG8kFbABhHhoe6TRP/8zXg4q/ 2/ZNl9JwxqxDnodYD/IdeP9g/BsNu0h5vVku14Psx9Qt34zScL9ReI3Rzh40 aKZpXihjjDuLSwernXvQcb1rLKszxvhTnLIK/kR8LzI91nOlCQ4v1NRgf+9B 67+0RltuNsFHGg/u/TfQg65UaZqKIRNcIcA02L/Ug95bdzn+cjLBJb5Rp95o 9CLKSnMhj3wTnG029zwvthctyLV9Ckem2M2LUmD6uBe18N7VDKCbYtVb1OJf ub2IvE5FQNveFD/9sKVW7WMvsa/FljuDTXHidofh9IVedEEsImrhvSm+LV6n mmLXh1xG7jZckKPjot3yL008+lDW7RIX2fV03M/yRIsBfeh44r3UpM10vC+b amZ5vw8JBuzdY6NFx4MGzIvLG/pQmvF8aZwFHUudyRF429GHzunqqDrb0jGK 47nrMtSHglnpxasd6TiWk/b0A7kfeQ4rRew+Q8eHr459Pr+vH51496BmXzgd e2Qga2WDfvSv5q6adhQdx3+50//Voh9ZLM3t3RBLxxMKu+a2ne1HsfVDd5+n 0HFiyaW1nPR+dO2cltD113Q8OyPmc1R6ACmWZRyP6aLjdfIOS0vrBtCZuExe oT46NtEpDMvWGEBVMoFWjlw6fnL3eKKg8QByWEGzaBqn46PbUqpLrw4g0c/T RyKW6PiSxW+G250BZLyzSw1IDPz8om6nTNIAeuP+FDooDMzzaWjCu3gA/Q0T 3FO7nIGzXbbLbp4cQDsDYjZGyDJwW+S1tLZ/A6i5eYXhVXkGJr9u2XpDhIOm hjzkHRQZ2Jo/4HCPMgdpbLCgtm9g4Btq9fW3d3LQjpEc83ObGDj/mMLx/Yc5 yCjfJ2RGlYEFUz+43WdxkJroi9nCbQy84+OK/3TcOEii+ovllAYDsyacr0yd 5yC5ypyBVZoM/PKASKxxDAe5+lZ8UtrDwN1OLMWFVA562R6sS9ZiYJGIvIz0 PA6S5i5Ta9zHwA4dZmWkTxx0R9TsynrEwMsSetzPfOegltApmafAwAXWHnI/ ORy0YeT0FslDRP2yC7W0aQ7KWIysdTnMwKT2kPPFvFykHarKk6HDwFkPpDZt EuOiV0zSj2+6DGxmldISI8dFfsZdnqN6DLy4aut1kioXxW0PqB7TZ+C0tuId Z3ZzUdBQzNT3IwxMi9Pv7dLhIiVzzlKeAQNPW36Noh3loissxX9nDRn44Up7 VMzmounp3wsKRgys2zo2puzORU9Flwu+IfhX7IWHMRe4iJNO1dhHY+BYCwEj UigXParJvP6c4APS0XNeMVz04IKPFMmYgTnfFNO7UrlI9KvIqD7Bt2OyLWh5 XNQ1JbTan+Bd5lr8xe+4SPYfT949grukql8o13GR4cbgoniCQ74ec4hp46L+ JzJ6EQSrR3eLkzhclPbe1PE0wW3H3Mu8fnPRfE362p0EB1Hn3bt4BpGb9JPI YaKeTc035Giig2hM7H3RTYIb71LrilYPIgtln9xVBPsfTT6vrDKIitp3Xr5D 9KcouWVTzK5BVFd4bvcfYh4fvxS18OkMIppxAkeP4LN39K57MQaRg8GKhKvE /GQZzTu6WIOIn6l3IouYb7m4Xa+R2yCy14s0fk/M37VxNKro/CDSbKO5lBP6 SEadR8ohg0h7ovV9LqFfsSnlV3T0ILoXeN0ljNBX+LOCkVfuICqfC2nhJfxQ eDtr7kfJINq68lxxMuEXpsnedKNaoj6+7PVqhJ+y6o/yKw8MoqdWopWC+wk/ RPx8ET01iCiBWSutCT8u0twc+HiGUFrHDZU4wq/Gn66X/ZAdQjy3Cz60E37+ VfvmfDR9CElmWrEC1Ag9w3U38bGGkPraU7s1if04YNjU4nl6CIkfb4Z2ZQaO /Diyw+jGEOJrXpT7tZbQo2bNL94S4vuVGVd3rSL0CMl86PlxCBXYFLhYryD0 0N9j9KNlCLkW7Pl1WpKYfxUj/c3kEAKvMMnjIgx8pvKag6fyMDp0sVXXgrgP a/r1KH92DKPMD9Fo/SId1/EJZQTCMLo99/ph7ywdb4CIyTCrYTRvJpmjPkXH 34tjgtJuDiOnoeST1H46Ppj3NPH7+DD6GvFlcrGCjn81uByyWxxGFf6WrBZM xwljqhyO4AgynPPtTi6h4xnV3C3TSiOo6V86Q6iQjp8/eV0iajaC5NcdlFNJ pWOJhJr2w29GUNadkZHsADouLQq/VFsxgoRyz7c98qXj0220tYwvI6jgDjfs MnF/K1d8OcUaHkF05YaTq5zp+HzU91l/uVH0cJ/UnhQGHfdcH5bOCRpFUXqn nq8i8iDfS+TYKoMxZKXr49Z80RR/iqeez7YYQym63N+bPE0xp0I26ZDjGPq6 t0/Fzs4Uy8qojLhdHkO7Xl0U8T5kiq+91736/uUY8pFKua/Jb4otJC+/cF37 C4W6vqGoXzfB8y8mqe8WfqE+BbP8Gk9jLNU1u/eo0Dh6qPvAMMTWGG8V5LHj So8jWxm/DlUjY3yCKZolsX0c+d0RNVLaSOQtebPOSZdx1Eg6q9HQTsOJ5o7e Yt/G0aJ08OUDiIZTAk4Pq1tOoJZT7AzVGUOsjoVmQ2wnUFPXNwHlHkOMyen8 P09MINF9O2NF6w1xd0S/YoTXBNLMso9NSjPEa5JtLYfCJpDa0eXH644a4vgK 04qUkgl0rcbQ1SbTAN9drpkouXYSlTq97hs0PoKDkxYZ06OTyPDCwtd/TF3M 09wNJRd+o/07xFOSG7TxRu+T/maqM8hO64+rlrca7p+5byH87g+C3KZg77bf yHDA9eLdM7PoRgLf4Ti/7WDSH7V5zZp5tNVfZe3ezIMw/MEhqCZ7AbFGeCki dAPYKtEif5j9F9H9k4pvRdNhGZqx7/z9D1WNlYUITh8D/THr/9aa88D9ALMX +3ZZQqLU1ebLx3nAe21W9epDljC9LzO304YH6iYPWE0bW0Jy+IJzrAMP8HO8 +m47WcK88sM2IS8eWCEur3gq2hKyHH4UTYTzAEfVNi1nwhLE29iBpZgHLr3Y 9Nr+8XFoK3fktVbjhbmk7KnICSuYONgue3EbL0yU7xmqmrMCgfemmsnbeSFh p8OVP3zWsKtMy5mzhxd2noWbaIU1RL8Vrz+rywuGNI9X/nutwbSwJO4mixd2 7zVZuBZkDVVPpNTfRfHC90uPt04J2kDX+nCD7nu8MM3vS94jYQMzj5ccSPcJ dkcbfGVsYH3qcIzBI154wnHW7lCxgeBEvPDtOS/Md5oHHTG0gQP33ap/lfPC Brq1THaYDbwMrWApzvBCl6ejbgQfE9IN61aFzPLCkTKKu/cyJsSLNDWNLfBC rc+DTUclmRAU9VPvLR8frIvNNZ1UYgItbn6rhTgf2IhJCpcCE3qfqS/d3MwH f/0VMm8HMkG0+mHSf/Z8YPE1Gs+OMoE37LEVy4kP1EWgLes3E6YNM6iVLnyg NP1bxXKeCd8bXofc9eSDZLMRr9sCtpDW0uS55SIfjA/2Hg5RsgUtjiCciOOD 5bZTJUnHbOEkv093QwMf1B26cNE6zxZkFT62Lnzhg5pHt/y9X9pCwx75z5u+ 8cHK6nvPrxfbwi63ynfBHXywVmXxSUSFLVCaVyTsGuQD71ny1x1ttvAk+ZV5 Ii8JenMGT7X+tYXjxcuM68gk6Mht5ZzgY4HIV5bOrAAJEoVvB3IpLPAWENhx VJQEZYKGI81iLNDxsBSnrCZBaPP+JweVWNC/b7bWXZMEQj5sYc9DLIgzp5XH 7yZBiRivnpseC2ieyUXVWiQQzVO/ZGfIgsLUI+lKB0nwKS63e8tRFlwTenD9 mzEJxFw/A9OeBetb94K2Mwm0/SlClEssaJuI2O3qStS7zJR59goLbi3r3Xrf nQS78jvufbvGgmntcPnJcyQ4Qyp4HnSTBRVp7fNpQSSQCjimdyqOBSfOBrwU iSfB5/DCueA8Fuza3vVS5REJPLNLk01esGDZFLzSSybBQWEjL4lXLMg7Q3kd 9JQEJ2KfXQ18y4JFrztvpgtIcP/zX4vBShZ8Vp9+I/GKBD4uCfLuNSxInbAo 2lpEAs05B76hWhYYeMkVu5SR4ArVSanqMwtiPZ+97awjgcMBw7srvrPg1LZl JXMNJLDxAuVjHSzYP+5WIt1Egih+/8aQHyzo89j+jt5GAl+ZNuuWHhaoe7wr regnQc2RP1sEh1nw0a35fdZfEsyKqNW8m2XBQ7Vd5R95yBDHEZFym2eB12hc OYdEhrKeDHuJRRZIu7E+KC4jA++tor+wxAKH00MV0dJkQGLvZTX52bBzM60y X4YMP/XXWMRT2CA4klPZIEeGd70J4f8JsCHX1btKcB0Zkj1r22OXsWHx1FJ1 4DYyFPymLriIseGzikPNg+1kEDEN6b0hzobUoYqaVzvJ8KR1pDhBgg0Gp8I/ Tuwjg6P2Ha0MKhvkVMY+LkdkEC5v//lYig0Tg6a1qofI4FW+8Wz0CjbEuqyo czxChrrdw1bWK9lwapN/3RUjMnwd8cvetooN+wfb6xJNyKDzQHN4geBe5+RP bWZkIPFfWH1elg0vlUn1M5Zk8LizUVR1NRtCuU71kjZk6C8w4HwheJvz5gaa PRkmR4wPU+TZ0HVKwTPbkQzh+7boJxJ8y40qLupChlBmX+TmNWzQ8hTI9zhN hrMJJnI5BA+dWWB89iD6iTcd2aDAhjjv8altZ8kQT/+4cJdgPb++e1E+ZJBf lkKbIXj6fKvmpD8ZjJxLO2mKbHgcWPeNEUiGM0zhzAcEH71c5ltwmQw+Gt6v OgjmCX6xknqVDOZXuH8lldiQc+3Zm3M3yNC+1yIIEWwbkmD1NYwMqxNe7Lcn WCQ8cl4zggybds9o+BNcfOtqQkwUGe5NSrKvEewS6bf/zz0ySC9RPlwneOXd 0z8s7pNh3UA9M5Dgqmj2pdfxZLh1/uRmF4K97x9TWJVIhn89X7YYELw2Xh/7 pxB+uEc9oUDwl4f77L+nkWHtMY3aYaLeoKRtfFrphB47djhkErw1dd3j+Ewy RMasU7UnuDNtpc5CDhnoKmJKIgTffCY8YFNABrsRsl4WMR+tjKXrJS/J8GKD dNxBggezfm+ULyL08bCQ/kTMOzaXW32xhAyiGR1lRgTrFnS4dJWRiXwovYcJ vaYLPwuhD2T4s7jyjirBqa8/ZCRVkeGuGeV1mBwblkoyR+3qCX3y1pxXJvTP KUuKeN9Ihs4XEdSThF+Y5fe2rv1Khhip1c0PZNhQVB3g1ddOhg5JzdJuwn8u tZ4SOl1kmPhPevC3NBuk608UpPWQobKmasci4ddzTUbTToNkqP9itmWU8Pfa byimaoToL+Lh92ZJNjS27tilPE7sj9a1tDxiH7b8WO0/OEMGfW+FewbE/nC5 IwuuJH7Iq/IvnRUi+h3++bCOwg96Nx4bhgmyQWesWVttGT+cOnxlXJTYx5Sp t5fHxPlBFoUHzZHYYPP3JslrDT/I2+Mso7/EPeMJSmtU4ockpv3ItQUWvOHz 1tXYwA/qwlbaL+ZYsEKQGTK1mR/+KH1cNT5D3DNJNWGfvfxwnHb3Yd8YCw64 uw8l7OcHCfc/00MjLMipzqkuR/xwLe5NJWeIBbcDNa6J6/GDSOL1hg8DxH3n 7PqbeZQfulZyvYSJ+1VbdHC89zQ/3Lrpn9D4kQVaUlfrhTz5gTOQr3egmgUZ HhWZ6mf5gc+1+kRqBQvC1um7XPLnB01bpSnjMhYciaD1yFznB1qZssX2QhZU 2lk20xP54ZxS/sy2hyzQfBuX75fCDyV2++PID1iQtqI9MjGNH0zMPz/7HEPk SS2TNprBD+khEssNIllwSNOhMuQ1UT8pdKiGyA8s4P66tJEftJQL3i46suBt TnCCGokCsm9WPduxngUUmrnsfQoFLr/ydfVTYAFjSPkB7zIKVKnqDOXKsoC7 rj62RZwCZu/mVy2Js4D6YOXdoDUU+NU4gaSJPD19NSv0614KSHVsyFJutoXV x1t8Ar0IDr5yrtWXyPOZ9GnOOQpo5hq/KvCyhfy7AecYfhRQ4VV/HexqC/r1 imc2XqJAcYLCNA/LFs4dOu3WeJMC5YVB9r46tlCnxnNi/TOClxSP6IrZQgCv Kv3TDwqcjXZ+4vOQCRwd4baNPRQIVzN7IhLDBHroKPtKPwU40jEtcRFMWC+W 67lrhAJn9s40RF1iwic5zcjkWQqwfletX2IzYc2eAw3eVAEInh1t/abIhHKP ozR5AwFYMWJp6xlvA2oFO7760QSg/sjm2Ow7NhA7I8VsMhUA7qwctSfUBk4H tp4OsRCA3q27O5X9bEAqnHlz8oQAdKq9KtM8ZgMnn5ysrbwkAIKMDB+akA0s 67xwxKNQAJ76u9HPuxP/j37Pl0e+FoAa37h3Yo7WYC/Z1pRbLABys7tGHlpb w5sjO20nsQBED/WGJ+hbw8mX42e86wUgT2Z4UkXJGt7fdky4wBGArBOLkrea rMD/oMmvG6sEYcI5N+L0VisYeKoUnRQoCIfbcx3qai1h9FrPHClIEN5sm45d XWoJUw4pbJerghDJkthun28JPApKmzXCBYGuGJn66b4lyN5XLC+/LwiZymIx 6x0tgR6iMDFQIAjzWxaF2uctoMRZnqY2JAj+NuL9TooWEL1JhlxkLgQ0tVAu k2YGUfEnq+0VlwHPufsx2r50sI62bRDhLiP6E3UxsTsCszpP5pJKhUG8zPyp iPB+6Bs45F8eIgLw20JLym41pGprrK63Xw48QnWaHf80cPZ1HwnnLaLQmfpB SJSti0PMTxiRZkRhV3kfc0qcgXd2pjwPqRcDO7vQr/P6x3GcSkJ2vZE4ZJyR 8Qrfx8aXcUScUZE4LLY5rbrsdwIbrzZ/UrteAqy4ZqVpRs74oEe1jUSYBBTl 8N2z7HbFSXIO6z/NSEB3Ykei8lsPvP7Ds1gTG0nIn9Ms27f2DI7aUq7aVCoJ yypa/KWbzuKTv8lfPqpSYfVsl7R+tDd2yJ9SDIukgmepcIrdWl/sFnxs0fAO FdYH6n6TVfHFPscKW0XuUaF1eoHUvM0Xh8743I6KpYLkyA1DbW1fnLN3buH+ IyooSGaYzln64rn3Sy1PM6lw+8DrluURvjiqSSSiopoKp7TU3z6a8cXxj91d bnykwrBH/WapRV/82Lvh8JE6KtA6ZRxD+fzwK+mo+boGKpDZThtcxfxwpzXV pfkbFXJUDEolVfywcp/M4d4+Khx7aDjwx8YPqxdeWJM2QIUemqqkgYMf1rre MefEJd6vNBqLc/HDNOVHeUPDVPCznn2m4eOHz55WXDM5SQUbjg+f/m0/HLj/ yhzx7wTM7B7vG9F++Pry3q/eM0Q/L1pDP8T74bjcxzdnZ6mgnkKJ3PXMD6cG kZ2L56kwGC9xyS3bD2cynA4FLlLB/Y+hYPILP1y4tkr+wD8qGL9drfalyA+X /t44t7REhZaJUe5SmR/+H5Ira8g= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-379.9999770408152, 124.52378917392011`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {580.5, -360.43742223893867`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996215`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8VG8bxsealDIzKtmShNAmvxLluS0plCgtllTIluzL2MeQECXEzERK 1kqpVEh6bClrdkJkT1JkJ97z/jPz+X7OOc+5l+u+7rPV0vnUFU4SiaRB/Pz/ PznQknevtZ+6Vlqf8EpQGJQ3SR4/J2mC6huHKzbrh8HKx+IQSUl7NJUnbma3 MQyScfQWHkkftDLq2PAg5zo4Hva8NrslAl2/HTvj9y0Umhbt4v9sYSG1DQuh ZbohsKqzT/bXlmxkrNJh1XWEDu34vefYSDaqWzfCB5vo8DiDWfbzxWPU+rsg KKshCAzcDC6Oaj1F7CDGtOjmIEhYXZgwbPsctR7Rjb3xNAAoSZ84J9peoncr 4uu1B33hYVWK688tBSjyjd6hH0meMMV8Ld8TVYBSd3Mw2NqeoGNb3d84X4D8 g19ffDPmAWNcs2cKmwrRmszdfYrqHqBy2EA14kYRstr1lmPdkBt8eb7EKfv7 A5K7uKrfTtcFgqoU9fZeLEOXUFjorQIbyHrxVubJ3TK0fObuiYdSNtDI1OTa XlOGGmnMcJ+oKyBte75I+GA5ssl/YUuztIYqrtBdJGoFipapNEndZAkbD3dS 6j9+RPkekdK042bw7HlEp+OuKpT/4MXnbu0jMEoZjdK7XIXao+TFG+21QNZL T10uvgo5FnEEaN7RgAeH1jzsn69CuWEFH6Tq1SD2c5SNaUU1emCze2Xmozx4 9d+eOGpei/4c3Gk6Rd2JU9ZUh5CPfEGFKeMTN/MMsfphP3O6xRckEef7G/sZ 4S4nhf9+e39B9tjLp17jFBZuvDlU8/gLupYvtsG/6jS+wzyuGy7YgDx4rt2S rTuLQ7bXrVvpbEAnX13ttk0xx7aogTXm1oTYPwXENd9aYVLqTGHnzSbU3ZYv GLXKGjO5xbqq0pqQYdGrS6fPWeNPn20kslub0Kqbl6zMpq2xnPFS6hXVZpT+ Zs06UwUbPGIn+/QbRws6LfrOzTTIDtOrj9fWirSgcykKgg8r7bDwLrfxon0t aOnKY2WH9fb42N+iPfeutKD281Um15PtcXbAqdfnPregH12OK8OvHLBDbEDx l5hW5HbF/E36Z0fMOZ3a8yG7FYlSi7tV+a9h9rlPpOelragwov7eOb1ruEqM qhU91YqkNQ6J7fh8DStkZlXqnm9DP9nzP5RLnPDYu6YvpVvaUWU+M4V9wgU7 De7oz3vWgUQuSH4MWnLFvRYdfCWfO9C9DTnpOZvc8On28F21Ax1oZtjSi63k hlWqh30GRb6iZ7lyz1/YumGuF+mCG298Ra92HWrprHPDTP+t6t4XO1FPD9lV 94475p/5YhXi24nIC5/3BmS54wBnesTtu52IXjs56vbBHVta9jRnVneiJO8J nvQxd6x4LPlq+4Eu5LRRaeMObQ9cQt3MOijYjdpE6Fu/Dntg5ehPxUcUutGb 9y25WoseOIOXNmCk043GNMZ2uq3zxFHzrbsd/LtRrh48lVD2xGd74j+yR7pR Jl9fQ6G/Jx59LDi1iL8h5bnfunJcXthcGm/m6/qG7LCb9wzFC9cnOyOh2W9I c+0RrygpL5wXUxepuLMHuYecvi+o4YWDvKK2XmD1IG6p1DuBfl6Yf2uobI9K L/Jf/JcoPOSFPx26szvwSC+S3wonMye8cNj5+wfET/Ui/fMvI1b988KcMflH za72ou4Hs8KHqd54YXnMti25F0Wwv8bRD3vjfJEFZ6/HvYjkVHcu5ag39tq/ irbhbS+yuaL+IcbIG09e2xp++ksvUh/6sGrM2hv/7DqTVc/5HVEbs23CI7zx 4znLXKf13xHwqO2CWG9sJ+SSLyD2HdmbnHxTzfbGA/qRn/T/+44+XYm+a/HE G3cVFo9U2n5Hy5/MHL2rvDG7tfqPjcd3tNJ+QaihwRufn2yf4wn+jvakZyes tHvj5h1/+bTZ39GhzDVvOoe8cQ1Tdgeu+Y6exKTuiSfRcGSe8t6LHd9R1/kZ PyYvDR/7onFwefA7YlRK5LutpeHyVea6h1a+owfn1aOzN9EwY5u9UeeaPmT/ /vBVXnEaBuRl4ivch2aMpMoPStFwkVeMff7ePjTuIuEirUjDvrHJrufU+9DG rLZVXXtoWOXZY58ZvT4kc63gkcN/NJw3WB6hbN2HJLVyXATUadiNo/FOk0sf anm9MLhVk4b3iPew3AL6UFXg8LCADg3nGM9n5yb0Ie2wiM3XTtCwowvvy5OP +pCxjFB0ryENy0dRC8ef9yGDgREhRWMazijbWaX4uQ99jL09om9Kw9Y9qo3V LX1oeleDt+QFGpZaPPrVoa8PiRw5lFp7kYbvK1mOZi32odqXfQYvrWnY3MB5 8ihfP3qsJyc0akPDIg7+C0NC/ejj9ycLC3Y03H49gjNsaz/Sn2/cNuhAwwkP E/i37+pHKS4zuVmONGz8/hGlXLUf3bthWXbEiYYpHbkiVkf70d/es/5FzjT8 Zeq9FKdxP4oI5f231pWGbwlWyz+81I+efk+0OeBGwwUHxF8bOPWjTI3IPyfd aXjAwhkt+fUjtfQ96w950LBgWMnn7Ih+tME6cmyRYLUcqvG5xH6UHHL95W1P GrZpvvKNO70focLlyFmCYxff2r182Y+63EpS9nnR8Hsp/r8XcT86/+WGiDbB I7rmAQJ1/UjgxYL0DoKFXJ+tetfZj8RfvhjpI55HTFKs3Q/i+r59t10Jdvhw SmzjbD9SMpnSaCHenzCUllHGPYDEqCby6wguEZjd40oZQEuiea5iRPxjyrrv JCQHkMaKjgaJyE/Y/N6Rmp0DaERUs7TAhYa1Qn7V+6gNoJXMcnFdoj5Oj5Gp rO4AmnvV5f/sGg2zG+4MNJ8dQGa7bvCNXqXhirl+J4b1AOIcfv5j0Z6G/2zZ P7/bbQDFxu7VHbClYbGj4SHdQcT1upaTj67Q8FGnrwI3owcQj9QZmYNWRL+L AqWGsgZQ3KDr4A9CD5/7vzyNezOAuCUVtvCY0fAU/7YDGuUDKGf9bNXsORrW N6nUT+oZQKcctESsjWjYi765VffXALp549y6b4QeUzOvXppdGEDyFekb9ujR 8Nz0es9TGweRstWFZXNCz9vELVdWtg2iddWNu1UIvRto50Xk7B1EI3ZsobGD NJwee/4+34lB9Ew3MPEbMS+ndj+sLA4ZRBU3fL5OitFw4Nm/Ro53BlH3dNty IjGP2QFHujanDCIdpVvUTRQaJtX8+ONROIjsdx558oiY5xw7JRGFiUF06uGq 7oVf3rj9dmha+/IgUkgrr3Uf9sbcb1t3ha0dQnP/ngxX9npjUx4/re+yQ8jk xHYlziZvzJda5phoMYQidQzMy157Y8tO4w9cNUPo5H2DRywPb8x/7/s1144h pCJSYUty9MYvTZ3EeoaGkMXWuLkjVt6Y6+sNn0KOYfQtfes6J8IP09oL97ke GEbIatv4f4reeKhFMutb6jAyfRVBK+v0wrfu5pw9njuMbC6Fpco2eOH9Z1R5 Ct8PowbV1FrHj174RvNpy7vtw6hH5+xLdq4XlmsKEzu+bgQFIVV6eIgXdvgy FlPgM4J86noNq7Z5YUqMD5K9MYL4jA+/M9jkhQtP8o7Hx4+gM2OWx9/we+E1 9Vv0XZ6PIDcXW4fdE574ae0pHtnBEUQSzzhSW+SJx6vyfeINf6ClkvyqZgNP 7FoRauksO4o6ZWriFyw8sMSADu/MvlEUfncq7j9DD1zNufqxP4wiwzUiAmYa Hng7RE9EmIyiyokjLVe2eeCOwrv0tJujyE93S2zAkDvWyM243/F7FDW9/KRR Y+eOyfc+fdXK/4ksi6+aMS3c8AuXtaeFdX8hz3Bj8jkhF1zDpvrknP2FhFQe oYxlZzxULpKiaf0LOZUFavo2O2ORzTt+Ogb9Qtb21sNvgpxxaMmRkJLXv5Dx cwuZiGYnfJYS9MpBahx1Ja75Vu59DS+8mqC+XxxHaS9jfHZlOOCHfldH95z7 g/jm8aVNz60xI2XJaGpsAnm48p9XvWSESU29UOT7Fz0w3SqYc/AwyHjY0Izl p1FmRkcc2ngZBqYTz655P4Me5vFZxCpcA71Bh4BY1zkkXN6Z9yvDAwwGYhQk JBaQb536MYExH6hRGGg2l15Ab8uPFysv+4C++4HAe/ILSN2uxs5Q0BeOcX77 InxgAfH7hx22VvYFTUkFL6rhAsq3VhD+5+cL/5lXYD7GAlKhZ6r+4vMDseb5 M38HF9ADlfqOu5v9gS16YmXv2AI6uSiyar+8P2y2epDlMrmA5Pd8D/+s6g8b J3UWfy0vIO7vSc5VZv4gKBj/YGTTIvJ4H0zdl+wPXMd3/ezWXUQheQLCbPEA GC2zpH/KWUQB7mOMOKFA2HKn3eFW3iJ6d6VStlU6EIwtDM4Yv1tEK3OUJb7/ AqF47qB876dF9LUsfQM6EwixO8nNs/2LiOyrrzEWHwhqiR9kZUWWUPSD32ra 5CCIchCrvx62hCQLPscW/guCkgOxBfrRS8jta3TVAg8dZrj50sjxS8i5wHpm vQAdLqX8pSU/XEJK0vc0torSQbm5Sup1EfF80J2TPfvp0H3Yx2tgcgntqcxP /ehIh13kVnGti//Qn/WNVTsb6TAUPcS4e+Uf6pptm2xqo0My/+zw8NV/6Jmt YbhbNx3Wcgu/jKL9Q3BS4i9zhA6jMyY6rXf+IZOvwdGRy3RI7+p2si//h956 yvCvyAWDWNbgh9s7lpHeqgb7LbRgaJaeke7bvYyk0oct6v2D4eZD3kjl/cuo etgjxDs4GBbYssYdmsvIun35dG5kMLRH249ImS+j7xs+9ZUlBUOc+y/BN7eW 0WWVF+D6IRj40fTlrr/L6EMk52DHcjDQNOT43iwso9erxq07ORkwpGX27DbH CnrjJhrQxMuA0mMlC5rrV9AjAS3nzHUM8D0VHZctv4JU9zTLfxNnwM8r2yu8 Lq+grSt2UddVGWBqd/6qod0KShdzr/x9mAGfHG6S5Z1XUFZqGt1QgwFpzhMX uv1XkPwluu30UQaY+7yf0WKuoGpDnm81xgyoiTojR65fQXJDukovHBmgeju8 brRlBaH7m9IYzgzIuvPOo7xrBeW8bA3Qc2NAaMLWEu/RFfTf063W770ZIPFl RvE3JwmedUV17GYw4IyRIMmclwQcRY52eaEMiGrc0fRpNQnKRWLP7L7BgIVm c59UQRIoa2zR4YtiQGtHacUZCRLo7N13WecuAwTMupilW0kwnixUFpDIAO2u 6au7t5Og/x/d9wmLAS+/yVFWK5Jgl83A4I9kBtzqv2VRdJAEpAb+uMl0BlRY Z+3dcZgEFk8srndlMmBpsIQ7AUhwNcu1oiibAQ4jU4+djxLnu/2ncCmHAUd/ mc5KnSFB6YF0D6U8BtwXCmkKOk8CG/duw8rXDJhSe/K8y4wEa0M/1556y4AH kYu2CZYkCO17n3GikMhHNql9tQsJpHd9xY0fGGB4sjzPxp0EvkNmt8RKGJDh NRZT5kWC30WjM+alDDhdcUg3IIAE988mJZSUM+CpZXfBn0gSFLM5VzZ/ZgBn JE/CiVskeC8eESdcxYDzL3a6Pb5D1Kv4eLFANQN4SIHy1kwSqMdbNnfWEP2U zeAtuUeCqedZxXm1RH0M6vrEU0iw8RX1cGgdAyySJe61pRP1ibWe4v3CgLxy HW/lbBLseXdesZBg/jGn03eekkDP+taMVQMDLlETd48/J8HKaPwp7kYGvFX9 sEb/FQlkppbRPYLXWQ4PZ74hwQ0Hy2K5JgZYR6wv5y4kQUnA+dqnBAu2X/Qv xiRQinS9x2xmgM3KjfOi5SQ4tqfNhNTCgCKZXGVaJZF/lXGmBcEUg3bBlioS MOrjQl4RbO9J+rW3jojvL4wvE4yT5D7faiBBiszaYWhlwMZyw/SfzSQ4lZB1 zYdgx5+04GPtRPzZNcFZBJdSHl5I7yRBxcrebXUEC6t+PsjZQwIpt7tGowQ7 XZ7YcLGP0OP6t2v/EVwevnny3SAJOsVNjXnbGCCaq1En/IM4b+MRuf+zW5v9 Y88xEgRlaIQvEfd/Wr4T1vibyOeZmMcPgiVkCi13/yVBrnrGzxqCPU70qUfN kKCP+WI8g+AqD37RH/MkmFDcEOBNsGSS0uyRfySoZD5OUCfYq8y0KZXEAeMZ BmpLRL61o4znK1wcEHjiu0MuwdKUJzfNV3FA39Mj280I9j3YZFvAzwGf1lk6 LBH1/XJpUWvjOg74ObBFNZ5gmfBtku5kDliovBovRbD/c/2leiEOcPP6zyeT 6E9jq3u7ojAHeDU5j0gRHLS9PGZIggMorWSbf0T/W4+POWpJccDUuJOHOcGK HkK6D7ZzQAZbVuAloZf2UmsOU0UOoP3K74Z6BvzR+CoSsJsDYkUb3t4g9Laq 5KTyAyUOePj42tmPhB73f1C1HVLhgNL+K9/lCb0aqOfSVx/igDDb3lpDQs9X 3m9nKyIO4F0WC3Ii9B7/TrDW7QgHaDXv23PnEzEfqmFDd49xgHQq2pNQyYCy gsWVfH0OsEl2mY79yIDJt0NKK0YcUNxYXO9OzNPJvCLmTQsOcNg8W/n/ebTZ p/Ty2WWiHoO803eLGRD4MrO6wZoD3jJcRwzfE+fnxi5vusoBpBbxbc+IeebP sbNO8ybimSz5xUPM/8d0oT3vYzhA/N7u9QpZDPgmHanbG8cByRJ/3jtkMGD6 0YolVyJRz9ZdB1LTiH6ljt7VTeYAfv6gyLkHDGDcx4st2RzAqW1UrEn4l3qi Y+V4KRH/8WMvToQz4OzGvl7yR+L6yT5l/jAGXLt7bkH5MwcMSFlEFIcwIClO c6dfPQfkv/2esS6I8JvbwnGrujjgUGtvyXFPBrwOL7eQnOYg/E7xF1wi/Fqv WvjGHHH/kudt9QsMYK9tbPy1SNT/lVCykikD6DE9Ou84OUHGyPXfv9MMOM5c 2HVWkBPYGjI/thL7oS9zz8pNBU6g50jLpygwoMX+QMHkLk747RMyyCVH6F9B 3d1EiRPig1eLXJRmQM5z/WGZg5wgzGUzOSfGANpbm/oSHeJ50rJfoQDhF5VJ KbOXOUFWhrvD81cwcEQ8MrG4wgle/c4PNH8Ew5TeY2qFHScc1Xk3wTMYDB11 b2/EOnNCdStjv0tXMKS1NjrvDOCEb/PO9k1VwaA6xAdWTE54MFDDaEkPBhse z966Ok7Qasy53mAcDCJbPrctNnACdhQIrD0ZDHUq4vVyLZzAcLcyK9ELhv2O Fe8ZnZxQmvvpcwwEA2/Thnv7Rwg+VJZYpxAM6Q/enLnPwQV7VbzJlaRgGFCb q7qmzAXXplbn5KXRgXnmeCn7ABccWvpW8vw+HY47PyioVOWCj9qKQ6lMOuSl HsvaqsEFHT+5rFyj6BC6mnW95QQXCG/vO/vcnQ7SbQfhsC0X5BQEeucCHazc /F6vZXNBGusZZ3p2EOxX+vZ6RzIX1Ahr0n/eCwL+SXij84ALxEiOottuBUGu K+9begYXDOzSeXvFLQiWXO7kT73kAuVZ2R4V1SBIcM5811XNBer/DKs3VwbC Z8emkqf/uKCu5s/D7pYA2G2rUHf8MjdwDmvaKX/yg2/2W5xzrLlBddRV2fq1 H0Q5UgXX2XGDehz3zZBUP/jhumhU78QNvZs+/Izx94NH/tUtRv7cUKNvvmZ4 tx9sir3afTaRG8ptI09ej/OFlaInY5dquSEUKcg+N/CBeoriGs+DPABDm3b8 vusF754x7ily8UL+4Qtvk/pcwI9D3rCmmxfO/1HBddgK+Lt8jznlrYLcGYXt t7dqwmDG1vgUfz5QCbEru0U/g+PlNnMXnFkNUadC1d9rOuIYtk3lZUl+kB40 VMi974VN4y/UrR3mB9cn/ltmJILwnHb6fErxGnDfl+fiqhyK+wc1aaU31sLe c4qrxujhOPXwXtHaywLgwnuAJ0ggGudc9yTb7lwH1ZvFVINiYvCNM1b6XNPr YFqdx+eqeyz+r+th9o3a9ZAUJpvofTYeM3fcy6nVF4TcQ5nRPD/v4qm/Oukh JwQhvl7sguvEXXyyeDLp4ElBSHP9cKZj9i7mPa0XlX5KEBpW3AqSuROwp/+8 Q4CJIMxZ/+OfE0/Ap+rPye20FYT0+kudf04m4LWeQo+iGIJQlNDh1J+bgINw NFO/QBBcyQ71J20S8Wg3jp8vFIRPOi3y964m4rOLf2MyiwTBwFFCr88lESvu N43gwoKQVSlZY+WXiNufyPi++ygI4TxdaftiErFS4gczhWZB+HnDuY+7IBEP XZuQWPNbENQqQ1wvrmJio5vSogV/BKFU5MaFLWuZuCjr3CbbSUEYkeet/SrI xHH979eXTQtC0tmoXdoiTAwmkSS/JUGQErQt71VkYrb2tr7R1WTIHnFnICMm PiF6Jr1KmgygNnHvegITMwd2YTMZMjwLar/pwGbigRy+zjFZMkTOKVro32di fygSXK9AhqG5wUekDCZ+emWb/+m9ZECS8uEHXzMxf+7Eqa7DZIhL6jPpb2Ti Su1bpPGzZBCzFrBdu4aFKevsRIPOk6HI0zfbYR0LW7Rp7Bc0JYPpIcvkcjIL z9hPX1W6QAbxLylxV4VZWOa2eZuXFRneunXdvr6dhUM75J+tOJNhmwLZZ0Sd hTWcKs3IEWRYd2zq5UUnFl5o/6FTHkmGyVW3+6+5snCe1lol7ygydJUervHy IM7bbMTXfZsMExe9imm+LLy2/GteVgIZ/BIbJg+FsXD75nEBSCPu593BUZHE wrGhgvOT6WQIPTXbGpDCwvq/lQbSM4n85FKO7k1l4eJy78I1T8jwaUZz8kYm C6c5c9i2vSBDi5u76tQLFnapEMJOH8ig+/QMT2UFC8vvOfBkawkZLB67vpD7 xML9bJOE5lIyrMb1naFVLHzW5b6j6kcynFzWTFOsZ+FDonKbeWuJ989/aDzY zsJ8rmpuyV/JkH9aQEL3BwuXdl64YNhFhpCgb51GP1nYT4d+jOsbGcpUOJaM f7HwuGiFhP13MlhePmuuN8HCzR8NqpVHyPD3ktS1iTkWThGzlK6ZJsMl+SjD 3avYWHWfwi7LWaI/hYi7hI+Nm3WnDszNkSFofs+7E/xszOcdpi+9RIYktdM7 zwuwsUvDYzd/TgoIzlou7aGyMf+Iuz+FmwIf6DWP2EJsnLZ8KCyLhwKBube0 VjawcbtCPauZjwJZtnk2BcJsDGF/seJ6Ciyc/7hhQpyNvyYVVZUKUkDutpKp 0hY29nh1vfk8hTive1+UkyQbZ/VuGgndQAEu0v1XbVJsTFY7tL5blAIajypH HWXZuO936IVoOQocVPvR8HA3G/vzGthuk6fAMQ9vwzt72Hij+CbXAgUKGDr4 ZPrtZWM9vezQwV0U2Pw3tQP2sfHLtNonh/+jQDFtn3z0fjY+/i7hddN+CvC1 cR47fYCNhxoufrBXoUB61cg+IRU2FlmZaLyrRoEw+WaXsINsHGKyceGXBpGP ia6Z4iE2lnDp4QrVooDMttGKTwTnh2UJiByhwJyk7dTFw2w89kp1q84xgsf7 EgPV2TisikuhS5cCHfkm/LyIjSW/1yi76VNA9EmSWjjBxusuHrtvQAF5/oAW f2DjcWm5U8qGFChvT1D7TXC42oRZlREFMuM8zcw12LjILsR5xpgCtRn0MhlN Nj4bdNwn6iwFFmt3rg4l+M/dDSFS5ymQEPSQq4tg6bLMBAMzot5qA2R/LTau U5xL6zKngGrbg4pSgmkJx145WFBgPE/OglubjaVIrJK5ixRoFj31FQiutv9R H3aZArxtf1VoBHs0HfwmZEWBrv8GaY8JljgcOZZqTQHq2mVmG8GfMr4u7LGh wOyLjcwVgt0EFVZ/sKVAMDefp9QRNhbz9dt0wp4C3lee7AKCK/qrt3c6EPG+ +1p2nmCnE2LK9o4Uwh9c9jkSLPzWUXP2GgUm/Y76+xJcKvne8LozBXJPqCWH EOwYKXCR6kqB6X7ZuzcI3jh14dpDNwqY4R+WYQR/uPDMb7cHoY/RCzx0gu0q lyPee1JA4fdlPw+CKXtPMvW9KWDS11RmRXAROyWjg0YB/wux3ScItuH+k2fr S4EYun+lEsGCTlA27UeB1ZOudArBBW0xDSEBFFj5dmrVLyJfS43vPeQgCugt rpiWErz2yd7xFDoFHgeb+sYS/EaIsbSTQYHRfdrWFwi+FNjIXxRC6Ms0ZdM2 7f/Pm9RmvesUkK40iOsn+vPKyF22PYzQy5f/Wu8TbP6u7D+bcArsOqPSY0ww 73Yh7akICli9V83hIdh0Lu+SYDQF8nyb4s4R/ee25HG+f4sCz4/893iO0M+z 6jMBijEUaO3ZGRxPMEfKDOtYHAXajtEdiwi9PeY7mtUaT4H6L9mBxwg2dkt8 Y51AARv26hP1hF6zjqg00VkUENchi9QS+j71PPz7unsUGJCL3qhN8KJwx++k JAoMGgxXvSbmwWDMZ21BCgUOnRg4G0HMy3TsuyMT6RRwie3t/kPM1/2lNcZB mRR4cFze7zDBx2zMLQWyKbBGvKgylJjHpIP/Anc8pQDa6e3ARcyrZq96/uWX FLjx8FE+JuZ7TPf2x9+vKCDbyXjZp8TGCa96mgNeUyD74f7TK4Qf/AijT7Dy Cf3ajYXKEX4Rs7NUvrGY8BcvqyhVRSIfFbPVDEzoYXxTj4gCoRetqeG9pUR/ s9W7pnYQ82gik36nggIVVg+/3CX8SD8scotRDQWerRULuEn4leWdbcukOgpc sXu/rLKVjX2Tirpy6wn9dl6W7CX8LuvlOEuwiQK/SDfVRQk/5O05JfSlg5hf cYdS7U1sLD76czKok9BnrrzkB8JPladDG3Z3U6DHIJe6j/BbqzVvb93upYDp mYU3q8hsjA+Irj45TIH3HprVVoR/+8X0/6udIvQZNksZWiT22z3/roAZCnwk Fe6fn2fhxxkb3u2cowDdzLSLh9gP7UVHadGLFNDUOZu1ZoqF9/94Mnmckwp/ BE5t/Uzsmz8aHsPV66nQciU7kv8rsZ9OCHz0I1PB4Hin2us2Ft5yPiNNgUqF GI5aM5MWFjZwar98cyMVZkS1+6O/sPAT9qEuPXEqhDxa/J35kYVt/nI3fJan Qq4zz8p9Yn9aPNauM1ekQlSZy7H1z4n9eDm0+vdOKojsFazyecrCOvVcHzfs pYK/nq7bYWL/yjzhfHf5ABVU3M4fDiL296AlKX1eiwojD29P/7zOwtaNi7Qd F6hAn+KpsTJmYfMINa8iCyqwgySubDZiYWPwcz95iYj3TrjI5xMsrP1s4Zqn FRVEy5dbNx5lYenIecsSeyrk/zMOunqQ2N8as8dNvKgw0V7ZOifGwpYvJiUj blPhyas1a+73MLEj4/SS3h0qfLVMkhPvZGLP03lta+OoUCfwoj6+lYnDpz1v xSRQwdLo4JtrtUz87OD8YmIyFQQDSisrCpl4vmSlNeMJFSxkRzeti2fimMa1 0eWVVPB1F/WbA+J77tE1u7DPVKAYXWoNU2PiRx51WseqqSCzL+eewH4mfrMx ZqG6jgqlma8ucSswcZcp1a6phQrt6F9hghATy/Zv1urrp0LRfaWRE0OJeE+e r0TaIJHPOy6aZW8iVr3eOX9lmAphnzOsnL8m4uOyybk/RqmgajKv51aXiN2u SkpMTFChcUBOU+xNIvY/FDz/8i8Ver99Zf59noivC/Q1e0wT8VIztcuyEzHz +aObc3NEP4V1mPrJiTiVzm1buEAFkp+3OndiIn5idEXTf4lKfA/S978mvofz pD6Kqy9TQU8zNsgiMhEX/5WZX1mhwonAXmFSaCL+Hzi+ek8= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-1681.3824049218067`, 719.999559183729}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {967.5, -360.43742223893867`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996215`}]}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k4lN8XAPCxVLLMjOUrSahEpWhRluSeFEVKkbUUSqFCogVJRLInWbON sc4USWV3LWVfkmTft6RFdga/9/fPzPN5nvu+99zznnPemS2W9npW7CQSSYf4 +P93rLvl2n1XXdWEuASEVjPfQcVXSR0jSRN0z/z7JKfLO1j9XOwlKWmDpq7o mWkffwexOFBijeQDNBEsqviiPRtuHnG+NSfxDBXeNLslsi4bvi5Zh/2ViEL1 DRbf6m5lwbrOAZlfEulo/MVMi8eXDGjDRc4TY+moe9Rd84tTBmSkRJb/fJuB JEeUmOEiGXDG8czl8WNMxFOXv+GRRTqEr88PH72eiWy3nGwomk8FgVdV7JPf sxGtuXTTG9VkSKyJv/1TIg+RpZfzD4skwHTk+129AXmI+09V8Yx3PGherx1s XshDzH+b5R264mCCY84g/2s+Yl369NQwIBaUjpxRefa0EKlGeB9smYuGpkwW u8yfErSkeMPtF+slPKrZrb3vcjmiVqo/m3R6BmlvP0ozXpaj49/mGzZf9IXm SHWO7XXl6JXhlgJBjacgdd24UES5AvUlHe82FPOGGo4nciTBT6jVYVuNQJ8H CB/pFGj8/BlNME+0nLl7G95kPuu8KVeD6MPXFlNkbPC4wHiAtkUN8omojJd0 voll7mqr7QirQcI8k5lzhfY4QZUncXChBuUOCBeNbr6DQ6sDrpl+qkWHXpRF 6Lo+wHcHgydPXKxHX6aZclvaPXG25l/a9uB6NKFi1H833Av/ST97nqOsHtFy 87Y46z3B1g78H4tlGlBCELev/WdvbLoc6nZwqgHl9gTdexDni+N5ar34NZrQ q9fVZXWUIKx2xPWix6UmZHlt1W5nbhDuspM9+OdeEzr3tO4quhyMRZr9R+oy mtCoPmdK/fkQ/DxSR8uX+gVViecORkQ8x17bG8irnV8Q90mVKaPVF/g6+hI1 4fgVnTbTPcd7IRKTaLP5nf5fUaqpW6FPdCSO5BTrqqF/Rc2bp4PvtEfiqupr 4umtX1GccIJGikEU3nGeRbNSaUFyXq55biei8Zi1DLOH7Rv6Fxb1RJ//Ffao 1amvF/2GHLdIiciefIVF5Bx/Fx74hsgnqvXd3F/hk1OFe2OsviFuNggI/PEK pz/Ue29U/Q3dnKc53cuLxbahD4ubQlpRTFY/tQ7iMfsMrbckvRXt4A3SuGMf j6ONqkiZZa3oDM9TuZjYeFwjJngscLoVdQrdbrebj8eyqWmVWsbf0alvmq0i 5xPwRMHXpjKJNjRi8vaD+nwCfiK+MPlWqQ19/m97xXueRCz2WFww8Vwbymh0 jJwQT8Q6mjYGj7zakIqu6a2U44n4ddNK++HRNiQevCH9bGAithveOZjzph1l +70WeyNIw32X2rlKq9uRtt2kd40UDeu3+crVD7Wj8zRdNvpBGlaqHX0wLNqB RkrLlIMNaZjjbTJV+GkHMkmdWDj9kobv7jI4tJXWgcIMTY+Y0ml4LInzolxR B1rZDCnb39FwQ/iVVM2pDvTcOuHPYiMNR7ptUbt3uROpGQf5p6xNwtyzTVe8 XDqRQLiX9DvBJPzQ3uNZ8MtOlDrcO+khmYQtLXtbUms7keCjKjEL5SS8+2Ts jTbFLhQq9KNJxToJx5XqPB/S60K0hJBloztJmP8w68PfW13ILn2/mZJ7Ep7d c4F9PZ1Y36eUc+xFEi4V3BilTO1G+72/vfXPT8IKgVXFGrLd6L9P+Hp1eRJO WXt/6JxmNxr3ntSuq0vCAQut8rZu3Wg16/uLrT1JeMXRx+BuRDcKUnl59+5I Er49cdDVM7sbRYeneYT8TsKGvWGfo8e6UZ3yAw6RlSRcZXx8IoWjB/ltV573 XkPHh5un+N+J96BZdJ63gJeOJT/pmdWe70HikoefuYrS8XgGdXoJ96BuF57A iwfo+KIU3sjV1YMc66sUuJXpuDHWHgnN9aB/cS3DHmp0nBPS4Ld7Ty8qPnXD sOYkHctwu2cpnexFQ3f+BMWepuNorz2tx6/0osOVOWUqenT86G7AFrOoXqSn GsbbYkrH//4cPmGT04tcxlKimy7R8VWbnzedG3uR/+hPwUhLOv4+EB36eLwX iQVScnZdo+Ptctu7PrP3IctjcR98bei4Z5z1W4fah3zCOI2yb9JxZGoL29fN fUhUIbgp1Z6Oubc8kelV6kPaB5IPzznRcZXqc3l3jT602B/PJXuPjn2M4xQ3 6/UhN6rBgf0P6Pi4EwMVXupDQuIuP3ld6Zg9JPfEhRt96NJNpnmBGx1jxifd xXt9qM/qdtkRdzp2r2w2inrSh8qfHIKwR3SsOth7Wel5Hzpqcm59iQcdL65M XP8e24euhqzqFD+m41zRRfu7GX3o/uI1lVBPOr57aN39/z72odLnL0mHvehY QU/II6e8D/V6PG7IJfzv1hZf/aY+FLJz/VeeJ3Sc9Uwu5F9XHzokO6WqQNgu +XDk8x99SNfmt8p+wrtLTybsne1DwgKhS2sI/+wySGtk70ebk81eZxL3y5i3 zLKj9KOqhVx3ecLWQg65fGL9qFdjOtabiEd670PM3NGP1kudVM4m4h065Vd1 6mA/8oj+5v6eOA/tekTT+NF+ZL8l5VUwcV5zL3rbszP9KDGdgYHIh3j8274d F/rRCA2LVBP56sovHqu83o+Y7GnNO4h8RrfW/r3m1I8ea/OJmRP5Nv7XNr/m cT8KC3qy1Z54HsLkEVJyYD8ydfMTNHSm45adU1zHo/tRgfkTsf/u0HGoBol/ MKUfrchhW6YDHZ+14Nvo+a4fcT91khWzo+O6SJmduK4f3etg5npb07FfjsK+ y+39KCRzZ+8jKzo+2XRUeWW4HzU2UHfrE/VVse6ilupqPzqlTp3wvkDHntts znXyDCDz9uu5w0Z0DOiuiYvIAFI7nWYmcZ6OC++G2OTuG0DK/FeHJHXo2CU0 9raR2gDy67IS/3GCjpXeZDyY1R5Ay0/NBvyPEf0xXPFM4eoA0tVTy7VQoePX 5xfSs8IH0J+H8tf1pen4psPabN2kAeSm8rNwWpKOdwUI5v/OHEDsydaLtzfR cUr5nprd1QPom2ZXO4lKx3H7LcfTlgZQv+GGAae5JBxErd2VaD6IbjSwP+ss ScJ5ipvfn7EbRDlqtvuYH5Pw0CV7xHIdRM9y9GIMMpPw4deC540iBtH32nbf A3FJeEzr4kO+hkHE/sU6cotLEj7m9avxweEhVCQrGDq9KwnbZSBTGa0hlHt7 gmxLzMPoL8+HWgyH0I1de8IK/kvCfyUOLcg7DqFff+54T63ScFyh+9aRtCHE vedKTGEzDc/PUJz1hIdRh5fldO9tGt622XJ1ddswarzF37THiobPHM959nrf MOoWKesyNabh5FDjOK7Tw6jvoLKuvhoN68knVhZ7DaMKi7usMi4afm29X1R2 chiBJ69iVUQituw8X8JRN4Le5z/Zkh+fgLlj+m/dbh9BqNDxW2RwAs42tRPr HRlBHk2+GWaPEjBHx9MH+WyjaPuv71bRlxIwvS3/wG3FUeTCGugY2pSAR75J pvXQRtETbmu7z9visW3TREjegzHU5DKnZtz+Ct/+9MTSXmYciWa1vI+ui8Di Q5prZw+Mo/kQlNlMj8C17Osz3GAcad8K2vbHLQJvh8DJZybjCL93vtW6OwK3 57/0oPuPo7i/iQJW/uH4aFZKXPufcfRBXdX/w7GXmD+mquNY7k8UYCy8VEoL xW8dePVFtH4hKYuZ+96n/XCi643xvUZ/UYIaJ5t3xHHsGc86Nz0xiWbm54eb jvkA6WsfFLpMIWu+4/Vx28NB2una/fO7ZtAZFc1Ln+4nwB6VXv34vTMoxtbZ 4L5/AiiQjOXHD82gHMvcUIm4BFAP0Bp5dGwG6Wa9ydEuT4BL9N3nGReJ62/e vyXAlwjhLf/k2YNn0GsT3heX4hJhzcFHo5lTMyhTNUom6SMNeJfmyhYXZlBg oRZ3bRUNBEod4jRIs8hdNXhquJ0GkqctDTp5Z9FZv9Wc6SUaqFpplK+VnkXq OeunnVASOL3kiTcznkWi1vsD58uTYGgmwpCnaBbVTyu1NpbRgXb0wJ3u8lmk /cHS/MVXOlwObAjOrJlFBlEXbDWH6NAhtaZav20WmTzganVZkwxf9B0Pv5oi 9gsrXdh0IhmK3+pI7tk1h75W9VIUK5Mh4hbb+JmIOaThffR2SH4KnM97tXZL 3ByKPNHduq86BQTWKG2bos8hoc/KMaXfUyDold3FiOw5RF0Zl2BOp8CT2s6G 3vo5hK+dVmHuSQWHnR/eOXDOo1KzP+PnXqWC9rDtw9Db8+iBeErf6o000Hy4 jXn8/jxq3ttcLXU/DdT/6+qYdZ9HXVb2rYpP0kBF47TShYB5RLckq+94lQa7 kuWntqXOo4c5IsX7atOAx2ra+n3XPNKtOaMzsD0duJaZEdcH51E23T93ZG86 cL60+rxxfB51uO763XY4HVgVrdvc5+aR6qnCBJ9z6TAhldejKbCAMsy2hK11 S4e6oYfn204soEqDG1fC6tOhyu2Ql9+ZBUR9ake+8z0dKoT+vFU1WEAhJMpB 1J8OhcfNKYmWC4gmfHEwfjodmHT1GpuHC+hJoZy2p2gGBF5dB0vZC+htSHFE pSXx/2goRFZcfBEJaKOzysMZUCc71HJRahFJT/Q4qU1kwKk7iu4xuxZRzGdV 4QNTGXCSvadJRHERvYl3+DROYoC6pOxdwbOLyI959MWLTQw4ePET5vJcRIob 70xXnWZATpKI7QnfReR7KPFLhT4D9v+8IegTtIg2uelzZZkwQM5F4BpHzCJ6 nhLlct6KATsiL/OsvFtESQ71at9cGSDWsmAwNbyIJPbllOYkMyB60+nVfROL qE1X2DI5gwEbrySkOfxbRHrn1hz1zmSA8D/NpV8ri8jVaTRHII8BVGpYwtiG JUQS4da9WsuAIKNRLRnxJUQdHStqaGQAX7zKlJXUEro/3GO+o4UB3HL9GoN7 l9DZSzfV0rsYwKEj97Nbawk9ztdS7p9ggOeLx2FiZ5dQF3V056e/DCB1thy5 YLiEbhZLaEZOM4Bl4xrSZrmEHIrzlnlYDJh9WnXwq+sSqhNKPLeTmwlOjZt6 +T2XELfOlI8PHxOmhO19z/ouISkTo/5mKhP+Jv/XWR+2hLJ8aOzKG5gwXm7p UfV6Cd3jo46obGOCxPM226CcJaR0WKL3tDQTzl86Y3C+YAlFz5Wu6OxkQvG8 8q6+qiXkohSYSZEn7v8pUyilcQmlGb9HX/cxYceL7as3WpcQ/YDDtKcCE0L3 8LfMDS4hX1dKTYoyEyoXfYqLxpeQir3muKgqE1iVrDSvySVkKPl+j6saE65Z jj2krC4hyVXdzaRjTDgcUSIjI8pCxoXnYzadYoLD1YMCvyRZSCS4o+mvDhNS 9jFY2TIslLulYUf2GSZQ68K/qB1kIXN7U1g4xwSNKN5CTlUW6tdVIT3SZ4LL Nc+UGnUW0tgrPPj3PBOGSHauhmdZ6GxssUCUERM2NgxaiRmxUJbLVvNGYyac iTE5O2DGQr6/s75MmjDBy7pRJe0qCwl6NVwnXWBC7kGN7XY3WOgD88fWJcK/ 2AsoCo4sFFbhwjFwkQlbm/YuLtxnIQEOTu73Zkwwik0ZKnnEQs4u/IpOl5gQ YCvW6O3DQjf5lf0lLjOhVDE071QgcZ6Hous+Ep7l5KLzh7FQvNplhoo5E2Sb HwZ9j2YhRkT+/QzC5vFT92MTWUjG/4f9WgsmvLxpc+VKGguVtmQ/P0O4Rrn3 9M5MFjo4NNLjSXh1rYHSn/csVPb9snESYYWWmq3vC1lo7i7baiZhm0Tgcy1n oV178r6mEY6z+zAHNSy0ndP9eyDhr4d3D6z9wkJdcWd5LhPmWk+rq/vOQj8P HHYQI3ykdcPH0B4in77n1n0m4nNMCkw0HmYhnvGsLxcIpzlwBIhPEPHt8mjq Js7XfeTB3aF/LGQS/YdTh7AAzx/zjAUWamBTdkgh8nOy7eopB9IyCo6NF/xF 5O9hcsfBQ+uWkaOIw18JwtmOZyVZfMtI0YfEhYh8j6LP3GVCy+jApawL2sTz EONTnXm6aRmJ3x2bOGrKBJ9UmRrBncto5U55/QzxvAucYnPa5ZcR6fU1yWxD oj+OCsbHH1pGZqWhH0wNmGDatXJH9vgyMa8n3jnoMSE43enSpPYyEly+It5z lgkVd8dPfjy3jHzdFpoVdZkgx9+6+djlZcQVe29LFlGvI4Ejni+tllHhENXu jxYTYrnnRkdvLKOG8u6wzSeZwMspkh1wfxnx9+67p3mc6MdZE83W58T6zi0F NYeZQLtjy9gRuYzECr3XPCb6x+SvC9U1bhmJVpMVpRWZUPUjpkOCsYzOffMz PLKfCcld3XY2FcT15u55cTJMuGjy+2tBzTJSZ8rb10kxQah1RYn8ZRkNW2SI /tjCBM9GCY533cuoL6re9M8mop7KLCJYs8tI+eriR3kKkb+04ZLgnSvIY5FS 9PgfA1qkZqUG5FeQhVZEZfxvBvgnrvVTOLSCNi3vGmeOM2AxWuZ8u/oKcrea 8AgbYEBboM3Y1osraOs9B6WoLwx4cecX9UPQCooZ2MfmymSA9t9lZ66XxHoV 6/f+qQxgv0XuNI1ZQTNJ5hn+NAY4XJNPXk1dQetQooVJJAPOmNxW1ipdQR88 VvV3exHzFM1YdE2toCmr01+yDRhw/+gOrg+LxH4JgaeVdBkwcuzCm2C2VRRT YmeUcZIBZSdLF9Upq2g5T1Dq/GEGuOgFvkjftUr8XnkvUCLBgJ9W2z/dtVhF ggP+v2eGMsDU2vjGWetVdM235qBmdwZU2frz77JfRTvfXDjj9S0D6PaTZt1u q8hHx3VNxacMuPigaPZY5Cqq3/aCxzyZeN8FGOzgb1xFCmWzwWstMkAl2Ldh /Nsqytl4ZqO0cQakPS9wquhaRe4D0SX7dTPgSfiW0nvjq8giiuee4JEMEG+a 3f2HnQQc1W/FpzZkQGt72ScDcRJEVS61yNekw4lfpnNbDUgQ0DTnUSGZDnFC Xl8fGZPg0Bsf1c//pcP0YUZm1wUSFMr+s/3AnQ4JfkvXwy1JQEt7f8hyOg0W ZV61rXcgQVXRB5mxz2nAtOzO++tHAivqoGO2dRpQ2y67FWMSnLx/SsA2PhWu rT413lRBApEj6I5GaCoUSmcp3K8kQZ/vpzVU71SwcSb92tdAgq3tC22OtqlQ JpBoltxJAt+iiz/tFVLB6fSAWsAsCUbthOxOf0qBtrKrbKa72SDIfsC3oiOZ 6L8O0YfybODm6GEUWZcM60p1FRL2s8HFrFF0qTgZDpWoXB9RYoNFeXZnnJgM YQXUekcNNtCa6uLvvZ4MujmFkf6X2MBJhEfeb5IOn5OF9haFsEFxwOfA0sUk eO9bcUlyhg1EySwyeSQR0rRrRZ7Os8FS6+/f4l8TIZq3ufnXEhtsP+V0agtO BI+QXs0CdnYw2yL/ajEqEXQiF+UMqezQYbXHn3Q6EQZS9676y7JD/oSrlEVW ApArX8XPWbBDmAD/m6vtcXBtjXNfQwM7WGvY3RF2jYIrjq7veaM5oE9mEf03 HgDy12UbdCw4gaSlfZ1SfBUaBXbzOCuvAaHx0LlmAx9c8MYzZjfHWuiYt7e1 D4rErmy7ztZ1rwVruxD9/IwkzN3lctIuZx2E3Nu//shgBh5O2RIW78YFShxf eydys3DYjo2ceQbrQV+EQ1BYNAeHRF+rtJDkhjhdNp6Haz5i0zCzBt5Rbkh+ d4CnMioPi73j3nRjnBusBRVXj9PzcO+Xj9erf3FDT/JQROGbPHyVIsDmM80N X19nJEeW52E7v88HVtl4IEtNNpfjVx729JCPmhTjgR9cu8YS1fJx+k22q616 PMArU6za15WP548nL8QX88C9w2L89zkLsVtBvFdFKQ+EKP29kMpbiEn7o/l+ VPCA6Jf1Ck1ChXidRPCW/bU8sC2d7xF5eyEWXrivVfGdByJiYrcf0SjEB17r RI395YFGX8XBy08Ksd1/00r7tvGCxLf7rfTlQvzP/3eZgTQvhH/kDV/lLMLO 7D90XHbyAs8nw4f6vEXY7U+3ebk8L5wqzv4wIlqE/asrfQ1UeeHzPxP3fMUi nPYwpu2BAS8YC6rnCDkU4cFh9ftlT4n1lZ0R7p1FWD2+gbbLnxe8hX1vew0U 4QRj0/rQIF741O3d8OhHEb5Ue3vrlZe8cOR4OMfluSLckZVQx5HECysOxv8+ CBTjZtcVSY1iXlg4uplRfaIYl/HnV1dO88KBTLaDFoxivKVWY1p+nhc+/pm2 1n1bjD2efBGPXOIFDb0JpsLHYqw2N3bHmp0PZP5jMxoqK8b5XRvE11P54Ljg cPP39mKcnersqC3LB3ypija8a0sw7ci+TfUWfHBSPOpumFEJLjvD7bV0lQ8i j+9V4LtYggcuD47vtOaDR23m1Q/NS/A2z5f5PnZ8sCRAcdC0KcH0zwsm4MoH vkIPrZxdSnCyblnkuzA+0Hv8lnkipgR/No8hDUTwwToPRaZqfAkeue1kTY3h gxF3qunOpBIsHSatdCuRD5gKiR9+ZJTglDa/79Jv+EDnVc/utfklOM1CXzi6 kg++BZH7GK0luMpxt3tVDR+kSC9HinaU4DGvNSOz9Xxg2BjU5tFdgnekfHyv 38IH/O6j/QeGSnD6+CYDvn4+iO3rbj8wWYIz7gy98Fjkgz67b0l1nBjXPCla erPMByK2vsloLcbjL8OvdJPIkLnPy+jNOoxlc08eUFlHhhT5jEp3boyZLGbz lCAZBpYscn9SMH7t7cx/fQ8ZRJ5rd05vxHhC1czTey8ZNC8EPhDbhPHu6eNT SQfIwKpz7EdiGGdYCn3rUyZDcdPMehdxjNPQu0hTTTJkX8pNKNiK8dhs9PoH WmQQ5R+1K92GscwbT5cIHTIcY9xcKZPCOEVM72KLHhnmT1uZ5UljTF/4K3Hm MhmcboetOO7CeCirLeSmJRn2bl/ON5TFeJs1ZvO3IoO2Cm3vod0Y01qDBytv kCHnH+3Y2B6M49/JpR69T4aekXcTIvsw7rEVFjF3JUOYj7xRB2HxrSu+7u5k MPJecYzYj/GrkHrbgidkGO/PyudUwDj61k25g8/JwOerbc84hHGH1Pl4/TAy mEsgLW1FjDd2HaY6RpDBtq+xbohwpDbPvzexZDDbvFDHq4zxd7Ypy/oEMlzb 8/pENGHhvI6vP5PIwAxWsN6mgvFLmYz3OzLIUCG4HL7jMMYtPc+lT7wmQzTV PIlOWCj8QYRVFhk4hDvOialiHMqp9YD2gchfxOXnK4SbC/aO4zwycCq/kLQ5 gjH/HZELvYVkUN8rd6aRcEj/qKpYORmeb5jyCFLDuCmy8bXKZzIYPjz1ZJQw 5exHcZNqMmyVst6qijA+sy4++F4dGd6ApWkA4aBiH1J4IxkMmvVl2wg3ONvd zmkmw5YkozAJwJhvj+FA8zcyLJ54FmZJOCBmewWliwwOxmOGnYTr9PgOyvUS 8Qyf3cB/FGMe7plknQEy1Pua3VAnrF3aJXxjmAySTXv07An73a94+myMDL8F B2oiCFfLM+dTf5KBdj+mpYAw1+gLm8+/yRDw29Wuk/DJONeOoUkyTO9LiZgl /NTgyimOGaI+a4/o8qkT9aDbddFqngzSEocnJAkXahnYVS6RwWb+jY484e/H Gh7tXCXqd4eXvRLhf0dOPPdnp8B/cTR9VcK8Spj2aw0FLpsvzKkQltmvnKO7 ngL7w5wuKBBW35396S0vBXIesD/cQfiitOx3QSoFhG6FXthA+J4kfcxZkAJv R4RmSYRDRTcvfhemgJ6r66lhIl6mUDiPiigFjnXlmlYQriRTNr/aTIHw73hr HOEBLl+5FUkKaBr70hwJs9jZwFyKAlevrWk/SnjD8oNzZTIUOC0j/4mH8P65 f5ZSshRo6F62aiLyf3ryhpOPHAUMx23zgwlb/xzyHttHAclah1Itwp7DZhHa BylgLcbjskI839je1jSmEgUCIg8Nviac266bT1algJrI5JIR4eavVbUOiDhv qHI5i6gfrqr83wqaFEC/nU0OEd5WdoAUoUWBKqNb0rVE/akVMvkXdIj96xdi TQnfyYpTKNKngJjGsK8NUb89kZ4uGhYUeLi/fv8Joh8WQpf8U69SYGFCVvkt 0S9CgU6x660pkF96ZeA/wlqPr+F6Owp4yoRvbCT6LcdGe62hGwWaRKtJbAcx brxSviH3EQX8FxkcQPTvuJnqTlEvCkTLTSc+OICxhJ6cTs8zIn556usuov/9 VARCr0VQiGpXHLKQwzhZwT+pKpoCt3KW05yJ+YHlON/viqOA6KYVtifEfJnZ Ovv9N50C19n23Aoh5pE5T8fme9kUCHvFTrUm5tXBrsT0p/UUePdMs5p/M8ZU Oev5zCYKSFfGygwR83LikdyJtq8UoLJulL4VJebbtoKhHR0UmO9opKuJEOe9 0SJRM0LEvzFSREIQ40U3jlNrSVSYfSkmvUjM67Hka47RbFSQFlH784iY560N 1VFyHFTAK59+kNZgnC0ZMma4lgpr7ZMcptkwtq0Q80nlpcKi+YrNsbkS3M5z qPTkRip0DXXt3tlFvL8Uosa6RKkwEFh2ObqtBOeYsSi3xahg5ig0yPatBIdk ll2KkqCCxHVa67v6EnxSX5f1YzsVwnee1U8qLsG50daK/vup0F7HlZsZV4Ij d8a8rj9FhekNUQr3iPft9JRmstdpKuxN4S/U0ivBusX/XinrUoFjlllMPV2C 1+prByTrUcFmZHCvm3oJdnZbsH1oQgUPxTWMqt0lWK/RaMee68T9Fwp5FFeL Ma+zUFKAJxUu7e15bRlTjK0RjlZ/QoW4fb+Ty8KKcfn6m6Hz3lS4LRu+KBxU jF3iyh9ffUaF0hTPD688ivGPSkdz1RAqyKvvvCJmVYw/i37ZPBFLhaub3o3/ lC3Gj3Bg5Kk8KojfK+SrzCrC4904bCGfCn7GSwLf04qw4dJUSGohFTQFXtZ1 JhTh3YdMn3FgKthKrbtQHlKE2xjSLgWfqbCUltHGTfx+2h9RckG2hQok9XyW y+4iPHJrUpznDxVM3r4P6X5ViM/5S23K+0vEW0u/4fWiEBemGW24/o8K3QNN fzf7FeIXg0WU8hkqNJcqLey9V4jBxI/kyqJCm5biSsPZQhx9fNvA+Hp+MPmw GY+zFeLTmwySa6T44aLj3PeECwU4ckgOX5DmBwO+NrOX5wrw0GuuzgkZfjjf t7LG40QBdoNCKkWWH2oWnhUpHijATKttbvr7+MGBOly3l7sAc2dN6nUd4Ydv mawArQ/5uPJ4EOm3IbFez+2f8Lp8fNSu8gL/M36YpXnI7PfPxYttPzQr/Pih oGfPEO1hLs45xrv/XgA/+JS9kOByyMXSG89xdQfzg+gro/+yzudi3oqOnLRw fuhkm6De3ZyL2zb+5gM6P6gZFE52MD9ih09C2K6EH7LvMKXJ5R9wvJilVN0M P2RIyDefrc/BUuWp4WcuCADnjl4rD2YWDtlTtqu5WABITOe3WqJp+NoU55fq XYIwb+TnuzYrClu+/Sf5LFgQ8CYZtHHDVXzTU5+l/VwQPCTOVe37aI6d9XO+ 874QBNJC5UZ5pin2nXEOCgkn7Gc3vf+oNn6jvLAUEUvY9f16PWkdWChdbU1h ENc/4dzNc/g2hDTzBlZUCoLklYgLSf4+EJ10y9qnWhCaTs0pztx8CklODcdO 1grC3zrJ98FnfOGDcMhibYMg9Ok84o4T8IMuU0Hrr9+I9ZbNNmJxgSAzuPHY wKAgVIkbrIBFKOzNcRGnDwtCiIbNX+mWUFDx7lywGiX25y6U2HviBejIxGb9 GCfOGzj/h7EnDBxvSIpPThLx3KLZnGC9BDfVxwvZU8T63E/GGg7h4M030OI0 Q9i8e85qKBwiM5P85+cFwSHs2Qq5PgJoHpzX8xeJ/VwM1COORgLjnJW6G0sQ zJ2f/D76IRJytn7erLYiCPBm4yRZNgqKp6QXVlcFYcyLrLQSHwX/A7rISlA= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-8324.471302344502, 5039.996400000546}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {193.5, -600.7290370648977}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996215`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k8lN8Xx0XCjH20iCwlZC8tktxDERJlKZUUES1UikSLoiwhhEQiaaEs WSpLukT2dSwzjH2bkb6VdcaS3/P7Z+b1ft3ndZ9zPudzzn2uvNNlKxduLi4u LeLn//9Jd5xWbXX203+ET03+yx6CCqqc+TG540hhXSndxnMIln+UBsjJnUfh /WzP5e1DkITDZXnlbqK3eZSPR4oH4dJeL/c52RCkuDVhw1DdAFAX3GL+yD5D tWqlZ7g4fcDXPaj0SzYdhZzM3l2sTQca/uo1wUxHdTr5GXH1NMh4E//958cM FHzr60nyORpYeFqcHt/3AUUHi4SWJnRCnEBR3JhrNroTXe2rT+4A8efV3H87 c9Gx60rROvxUeFmbfPWnbCFSvHhh+n5PLUzHF6j0hRWihO98Nzw314Kxa91Q K6cQ7eQKvfXGowYmeOZsi6hFKEnvuEvnymrQ2WuhGxJUgrbzmCrqQSU0Zy9y K/3+hqL/jT6SGf4G4kjAQUgDI1+3zAifxFLYoxijG+SMkaCaUMdO268QMZ0+ 5duC0Z3v2zU7m4pge1S7i9P7MmQvE6vrNlAAd2vVzLae/o6ur12dkzv2Dt59 /Kz4PvY7YpisLulMeQOt8YY8m+u/I5OfN07ecUgDBVe7knW7KxA+G9VzuzEZ ankCNbgolUhr/86sw1/CYM3ebvGmHz/QxPjlIJeRaJyVHdJ9SaMWffNaj2sq 8/C4+HiYmWMt6qU4nLgTl4+VvM30lWNqEVe6cLy3SwFO0SO/HOLUIiNVSozO v084uibs3InKOuTnEu+jJVWEvYce/z1g34B0QzKUNLgxzjX+k7r5cQMykWRf 4TuF8e/0wzY85Q3ooXh0oMhnjN2uiH0uVWpE11W27c52K8MnlqJv7ZhqRFlf RHj3lZfjZHJdgJhRM9rS8kP6kmUl1t/rZ+/v0IwizwvFRiZVYoaH6o7fN5pR r1iew5/xSryu9dFofUYzcnWIYzsH/MBR8eamwaItyPt9d/au91U4YHOj8HJ3 C3L4eoys3lmDNx67M+Y+04KWHSz7HCVrMQ7WwAzhVvTk8Qvp3hO1ePFnxNUi g1Yk53uwNru7FnvlWrZ5vW1FBzIdEuvb6rArank24UlFa76r/Hv8ugFzpc4W dT+iogW96QH/7gYcv1KaUZtGRX2CjyLqRBtxdc05mfQOKrqqIzV95WYjVrZZ THXRbUPXpTQLhfc1Yaab0ofeFe2IVbTh6Wr7ZuxfZ97QsL4dRcsuHlvp2YzX aXj+V6LdjiZ5ZA++DmrGJlMlWoku7Wh/Dnn18sdmnH7bquBYTTvaXT9tLMXT gi9E3y5tjuxAJpoLK/SftmDumdS+b+kdaPT4mwfe71pwwrFqruzyDsTwO3X8 XGELrpWm7Auf7kBGnWNb3btasOrbd1Wmdp2oJG3yrJxkK64QaGTqXO1EviIN m6WVW7H9pSkB5dBONFE1kN+ysxWHbdU3X1VCrHt1eV20bsUTxdTmclkaMpao WOMU0ooDZTh/P+rQkPQ1z87tca1Y+p4M5eURGvrLO9bxPbUVmxuft70bQKzH +lWtLW7Fmc3/6HvGaEjQt6ArmdmKjbUVFlS46Mh9755/9lOtuDfWVHq9JB2d 2x/1g7bUioVPxjiwzejovxRLLyFxKvYY2TKUn0VH4vNREdd2UXG/A52/rIaO fD+IPWcCFVvTgjUahuko63tcBMWMinXqxm6OrO9CAmeYL8JOUvH7/U+T/+7o Qtp8O3y7z1KxTKlx5dLhLqQfFFQwcJGKeT6+Fl0T1IVY2jEVq/2o2FvFdufG 1C70aajXev99Kma+Wmmv8bUL/Ug9XKQaQsWNcWffGk91oenDCvcU46gYRCkN VsLd6NNGlUTd51ScF1I+6bClGxWxXyzzp1Jx/C15/Runu5FNuN+6jg9UTJpt Phvg243uhiQFtn+k4tuX/UMex3ajN9tfZUR+ouI/TM3sxJxuZOHWMsJXTMVO Tn1tb+u60U7QitrzjYrbuiPm80a7UdfWR3xq36n4gK2+HF7BQB4KV1/Rf1Cx mknSRdouBnrh8TPfvYGKX5SZRw1bMZDYy8u9Ns1ULLZn8dMfdwZyKHSInW+l 4sD894zFYAYa11mvfbqdimfVT3ILpDHQmpQq0YBOKj7/lqS8+hsDqT88HHSO TsUMuaJD8l0M5JPj9Fugm4otEs5fU59hIAmVKy/dGVRcRpF8tlu0B4mczJ6J 6qHi7eHVpUaqPeiAnNT+G71U/GaVz/AR4x7kPug5vKGPiiX9lUgOjj0oIlNX 4yHBYZwOzQu3elCSSbFPDsH/PB/aej/tQYHm3FJJBF+d2OF3P7cHZewZvGhO 8LDLSEpEQw8yezZZVkrsf7Qv5kcCsweFckVemybeX223f+INTy+a2sPo+EXE t6d1SixPpheF2JcavCfizzr4ate33b1oZ8uggHoXFctVWp2qs+lFmbeLA6/R qDhanzug83IvYrfc5bvbQcW8Xz6+GwrtRVcH1MYs26jYZ6tj4+/XvSj/5gOf 0RYqHs8QnV7AvUhPV1x0XxMV2ytgSX5GL/ovQ577XD0VNyVdRhJzvSjZujrV soaK8yMbQ9XU+1D/NBn5lFOxEulOjo5JH1Ktyxn4XErFCQHqHfvP9qGU8kX/ b0VUfNc7TP7Usz6UJCO3QjmXiid/7zlwPr8PCc5tCwrJpGLn8z8veTX1Ib9V zjb576h4s8Zmxg/ufiT7V17Q9QXhP/lApT6dflSg8ZxhGkTooxeleceoHyV8 HP148R4VP7R7sWuDVT8KbzgpcoboB+7ILwdOXuxH2WEFrmUeVDz/b8K1M6kf uTy3f+tuTcVf1s9f9s7oR87fT9FUzIn+2cnns/pzP2KzKU9L9hPxucsHWzf3 I0rE3q8OO6j4J8P2XRP3AFJKS0hJk6DiDLZTjofIAHrten+7kCAVu0lc+SIk PYDcNClHzHmI+h4MrT64YwD1cYXJWP5txYyiUmaV6wDS10Vd7nWtuD5eaQuu H0CxjcFVRj6tODR/+9bT9AHECCkc1XZvxSbNBrv/jQwg7/KdLouOxPzjszfV Wx5AbYUyVzYcbMUl3pHnv2wdRHFoav8bKWJe2XDSc+IGUX6OWMqqTy04QrRO 5eWZIWSiMRzytKUZF+7aUGDhMYTWpf8cZuNmPOxwGS36DaFYCZ+QnTnNeE8m xebY0yHkZqNUdSCiGTNN7W8LNQ6h1iaHjzUmzXhfwK+mm3uGkdX20Qnhy02Y PSPiZbVmBDFdQ/UCFuqxU7fNN576UWTi/DLHz7sKkxIH3K/SRxHtRrmMuUkV zj3hId03OoocwnLPzkpWYZ6uoJtFK8aQ29WyTV0lP3AarUj76q4xlH/vtNE4 1w882i73rjd1DHV53dwaer8CX2ieiCy8yUQp0jtwskcZvloZ6HRZaRzNG54w 8V8uwB+vCFqvM/2F/CW+9NJuBsFLv4vjWsf+IJXpwszzl77C/eTFI9MTfxHD Njvk0FwNHNb6clV16i/KmX9S6CJXCzJl16KcOH9RBP4adNa0FooGx5ubeSfR 9tLeQJHEWpjcTLfMlJlEV+7uK9i8tw6cPhQcOnd4Elnm0shbb9WDQaGHKS1v EpWemP+6ONwIwmYq50WKJtHc8cOJkaQmYHSNBBvjSeRl9OXJKq0m8Fm0r86v n0QnSj5cjvdtghx08EDUyCRKWCkSoszXDHI/lIzM1k6hOtXdu7jim4GL2g8l vlPob5ehHT2zBQJZpS99702h2zs/yEnhFhDgSuLeHTyF/mVqPzNtbQFx9eMV BbFTiCrp7nJptgU2B7UcyM6ZQm6Qt1C1txXM9pRbpI5OoYUE8/m66lZ48uqV fbDVNMp6Nbg+r4kK64rufTU+Po2mv1+b8eyjwvPm0zK8Z6bRl1O2vDK/qfBm Sar/nvs0mmX+Tdwh3AZfjsWc9QueRmp7l0LOH2wDBvnBBY/SafTG7Hp/d1kb KF4/52OjMoPa2Jr0jBftoK7bZ52sNYPW/1ap7stoh+1cdprjO2eQ1Kf/0lZ8 bgfDMNPRu/tmUF5eoIhgUzs4pKnZvLefQRFbznPv+dcOcW2TmtyPZ5AJv8GZ RbsOSEq4SD4UO4MoRgHXl852QNqZ4dGniTMo8We+9E+PDsidaE9SfzeDEtam SIQFdkDjykLy8bIZNH9Wat1wVgfw7rg7lj01g0zXyB5iLneA4MJc+TxnBjF1 Hp7JEegE8bIrL4y4ZlHjqY6vzpROkDvkZNstOIsG6+qMohU7Qc/F6PsqxVmk P/xEisu8E67HkpNP2c2i/UNmMZuedILfyUDfdw6ziKH1+GZWYifcl1+ynXKe RSvfzrhvTuuEyMz/BEOuziLvzXdvdOZ3wofKFt/80FmkeFTsy8H2ThieeXqU /HUW/Tejfs1TnAapBtrXer7PohNrRYrs1tPgdHjj4+zaWdS/sc5BaSMNuhR4 a6xps6j64pFPt7fSoMXac8/zqVmkIrrviLAlDSKShew85mdRyoyM7q6jNDD/ +e46rJhDZ85XXTQ5RYPq+32Zw8JzKPrJ2ZRNF2lQ+tFcTl1lDlnY7qJ8fUCD W0tjestac+jC2jOrlMNosNs04HjLrjnU/Elwm180DfL7C6O9jOaQFNqm1vWC uC+JKPGWnplDHYMB/r6faPDUfcW4xdM5ZHXeIWzfAA1sCp+vkn8xh1IOR53d OkoDcV6dTVNpc+iFSMoZvp9EvM897J/mzqF1Z+RrL07TILCuu7GvYQ4ZGpha rllFB8O1N35+bJtDCUevmRqR6LDsJM4f2D2H5stGz9kL08F33sRAmTWHAt5m kfetocOVLZ/yrqxkI+9feVyTCnTQ8DrSbEhmo7eayeuclOnwE09MSIiz0Wxs im2RKh3O2W1SLJRlo6XVFINN2+igkFZq+EiRjSxdK/9o76DD4O/jp0+ps5Gw tmi1mg4dTgVFxq/Yw0a0mfd/OvbSYT1VtYBqwEZwtnJfMBD3SZmqltcmbLRV lr9cfh8dbD4tkcyOslF9ktV+IRM6iHM/U5I+xUaej96ZnTajQ9Oh7fv/O8tG m3kr/J+Z08Fs5MLt6KtsdJT3xb0fh+lgfHvTh/0+bLSGyjiXY0XosZrRNXuH jYratB0CbOiga3RI52QYG8mmbgkZPkaHnT28rkJP2Gh13a9vnsfpsM2rNPbb MzbSqpcQGT9BB5XXmlOb3rKR/FG/pSen6KC4lynfkUnsv9Mu5YcDHTa2pxwO zmejGw9bnQZP00HG/fhd3WIi33W9xmNniHx5xbMmytiIP+i2RbsjHdYk1TJe VBP7KZf7fXAi8tsRQD7SxEYJvPXNl87SQbhhjy5PBxuZNtdYrnGmA9ll2q2A wUaP29nz7wjmX/rw1HWIyHc6rU3BhQ4rY11+SI6z0fFo5b4QgrnUZWbq/rAR X9SENI3gxYqOTXfm2GjU0C1S5Bwd2PaPrbT+sdGTM/J6WgRPTx+4N7iSg5aX 3m/UJfhPGFdODJmDfO9mGKsTPKFQ2GsszkFbHjdkCBDMLLkqxFnHQWTxtiNN xP7DNip672U5SGHDI/07BPdPDF44pchB4+MN19YQzAhMfCaizkHnmx9MPyXi p0nbVJdpc1DItozv3AS35QvOXdPloMN+MHyUyL/ZvHKzogEH6YjYH48h9Kkf vm1DO8BB/oYyisWEftW3dgaEWnCQt8WnQ3WEvhUSvz/q2XJQvbEjtYLQH394 2//fSQ4aFr5Q9JaoT8n+MyIvnTjomOWWVdeJ+n1hrNO3Ps9BShd5i7bY0yH/ essl3iscZODlSa8m6v0hzbD2/G0OCmqinP9O+OOd3gJbKpCD4myv98scpUNa W55SYygHecqVtpwl/PR85eYH2+I5aE/AvFYG4b/45z15wy84CLY8ePPegg4x 2+MG415zkKrUltdxhF/DnflgIZeDxL7fPbSF8Hfo4jePzEIOkhDZsdxsRIeH MT5JpzEHSZbymzkR/XCngjX/vYGDltxeFhvo08FDob4gjMlB3X8iHkwT/Xeh JHBY/zcHMdgt3ixNoj9t9lL+znDQxiO5m6rV6OAQmHXFlmcetTffLTdUpIPF cKSqjMw84hEIjVNfR+irOtxmrzCP+IfDxHIl6HDw2q47iSrz6FD/estNYnQw 4e5tXrdrHnFv7pevFyD6SU7Vm3J4HllKHI3fNU8D7HpH1uroPPpZXPBs4ywN UHZLdaQ98fz6tDvzf2mgp+8jJXx+HincPL3yKosGO+wrMf/9ebQck3/zZicx H1+tu3AgeB6tHPwgVt9Kg20/L1IeRswjre6HOeRGGmj4ip/jSZxH66p3rLaq oIFy/Gnyv7x5tGtH0+JCNg2k2zi2UyPzyHs07Hp1AA0SpA4tb52YRxaMDXm/ btNA8mzKuyuT88ht+KcRlw8N1kwaL/z6N4+Gpn7c+kXMc1HRmBTm2gVUKSJU xrSiAY+5xs8e0wW0mK5q7rqBBuPfnfyrMxdQ//dCx/fE+SQbRbsQkb+AVBtt L7cR55eNg4WtTfECqumJOcGM7oRS9m6V/uoFZCrvzGr274RodbG2uSFi/b7n j9cnO2HP029KSusXUXSWZLSLUCeEXZBuevBwERlfvKzs49gBZbuiCw+GL6Ij tIphwaMdMLuSP00sZhEl+EeGh5t1wJnkKZ+kl4vI6zmn2kq7A7a31W4sKFlE 7w+pMn/xdEDP3pvew5OLaNbD+LfHy3bQEOvYsO/0EhrnydjR19AGo+Gj92Nd llB2aHrZH9wGSaS5sbGLS0hiKITxN68NBFeuyw3zWUJhxQr95c/aYHz2uHFH 1BLC997yv3Rug9eMHo/zFUtIy87c0HaOCtLvRr493vIPHXlZkU0XpQIJzTgy pv6hjav55g6saQEfA2X+T/P/UF3DUcb6lS0wuu9k1uMVy2guJkCy528zlJuU zRuKLKMXEyX1mg3N4GsV/iRdZRk1rFh7VSSgGX66bK70dlxG49X7tB90NkF9 mK2yWNMy+rfbv/+lUwMc+HVibqMtF9wpGXtRI1sNtHLnFSfUVgCUaR+11C+E guAKB7mZFeAvw3XO4clNOMfr1d/YyA0ST/x6aU8K8VlPvwLBBB54RpV3YzTU YE1X1UZzx5VgXz6v/hGI+564GtlrNy/cEeA/zWbScXHW/UQ1nlXgU+nj/Lew D/utUDlc37MKTFa/FQ3NH8Sj+8k0xYFV0KH6K+136SA+HDxx+t7wKjjl/7vD omYQK4hkX975cxWYha9f5vQM4nrp7Y9T2Kvgh75WAzffEJbR0W+8TuEDsdjc FvqxIVzuYWW+wZQPlg92hd6cHsIkhq+JRz4fKMYqp7qtG8E7b6QLPf7MBz21 QXI35UawozitNbuIDzbqflm6rzyCv5jsOPUX84Gl9JPK+zoj+FzB76vXG/ig 06tl4za7EVwW4ZzoO8oHL1eZdZrHjWAfA4v/Hq7jh8yQTQV2QqM4jXEr760U Pxge2TMdLjGKm26896mW4Yf68qMyJVKjWDGLn4e0mR92mGdu5lEZxdT139eG b+WHgV2DyXuMR7HG9C6DJ2b80OLQYGB9exSPvJGPSb7FD2lXZt/xjo7iicAB Do8/P3wkV96lT4ziSaeXp90C+GFbuUBg2tQo5pKVV90ayg8J9Ykr5VaM4fVP 5crLn/KDW8366x+kxvDhINk/I7n80KV6IXit5Rgucd1grsbih4hHCfxS2WP4 u1HPx8gJfvD+pN9Tnz+GazclrZ35zQ/W4jecvIrGcGef9NDXWX5wOdR1OaNy DE8ek/a1XCkAIjOxmmndY1jZROqdp6wAZBamr6HyMnGMsuTKQlsBmPigX8Nr zcT2Dopvh+wEoPFd+2ndY0ysEKNtJmwvAOv2/7xx7iQT5y8fijzrJAAnLnTK vz7LxG0d96WFLwtAk7i8eMk1JqY8mNh+NlgAjBa411lEM3FXEacz/JEAJNoV hnBimTj1zyq/LxECsPmyvPXzZ0y8zV6+TChWADY6jQ9WpTCxlfbRQ19eCgCW UMj5lMXE0QPfXISKifU7YZ1/qpn4xNoGfp1SAVC+tz1BtJ6JNx7qeu9UJgD9 u/TDlZqYOPfL9N/PVQLQcHp+XrediVsfb7nj1CYAvJl78ub6mVhM/0nc518C 8EzYNvLHLBPTrqXsHvwjADoXiwzsOEyckp7JEJwWAMVV+f/6F5hYa3X1Rqd5 AQiZCo7u5GLhwxOLWYJ8JHB2NRu2I7FwZMK5Kkc5EpTM8hzKkGLhG973r93a RALZBdvMlxtY2MHqhexTRRJ4KJceiZRlYTVSx416NRLIyYiftt7EwjU3jZR3 7SZB4G6Jo1dUWDjH1rHtiB4JulusXsqrsXD81tv+lxAJRle7yteqs/A5Vj7t pREJHm5L+sK1lYW5jyuECFqR4OqK5yIrd7EwazvsULIlgdsnaoOHDgs3i9oP GNiRgPZ+V27zbhZOrn6y+4YDCYpj7Edv6rHww7TskShHElhFP95WtpeFPfzr oj44k0B6pDVpWZ+F9XR4xgcukGA8J7jW0YCFN0nIxi26k2Cnqn/wA0MWJv3R NVx7lQRpS1EOKftYmPbWM8H8BgmKqpXNi41Y2GvtoNnnABJUN6QtPTBlYfup pdmWhyTwMew3dzJj4f1Nkq8mQkiwhlLyZsdBFhYPOrIgH0mCp5yKa2XmLMxx cn+r94QEk1I5QzcPsXC/foj1sTgS+OZ9PrbFgoWzZvH7sOck0Hica+RuycKx rYxjb5NJ4PDbu2TFYRa+lcXmKU8lgeQSRyucYOdQiRzGaxKk6mW8FDnCwgfP adnPvSMBbyxbMITgbYbm/OIfSGB+2O4qh+D1Mm75atkkiJdCDWesWHjFfMCZ A7kkOM+3WfYbwcz2ZEGnAhIkBgW6SFizcNPH4i+3vpCg8lrXizMEfwrvdH5a TIKNfG9qXhGcdH5KNLeUBIv9bsM9BAcaiXytLyMR311vfwnbsPBFedXzYxUk iKGPDu0k2GrJeDV3NQlqVT9W2hKsS3cqk64jwVfVqKiLBMsX3HHf1UiCUA8J Yx+C+aMSJK1aSKD5X+2AH8F/Ln2qvNRGgliBA2e9Ce40ab0a1EnUI3BDjSvB pQr/bUjtIoFoyIjYYYJfc5FqS3qI+r/W0dMkOIyx2buznwTrGnKNeQm+9sVg 4+QQCRgnJjVbifhPxJxqFBwjAUk4fjaWYOk8ktTFcRJEhvEbmxHc1/LZteYX 0S/pUc1ThF6pf5zzlf6SYFb7Vkw0wc4i4iseTpPAyVIiUpFgRY1vh4bnSJDj mV6WTejPMr+UYLhAgj63CCUNgj1Cf2gvryCDTvKrEBJRT630a/6neMmgLxV6 342o/1SVXEMxPxnUBtXSiwl/+PD6nfMRIQO469w0IPyjq6Cc1yFOBm8JT9nr hL+WDNuXt68hg2CDwK9Ewn/3/TWf/ZUmw5VhSXYt4df9yYwRSzkyZLXe3tZq wsJ8pSHbsjaRwffvmojGA4Q+C0N1F1TIsD16OPUN4XeL9VHratTJkGsje/z+ fhYW263vorSVDJo1iSrWRH/Eecf/G9pFhv9WPJJsAxa2izU6aLiHDLYlMtsD EQtL5U8+TdEng8bqnc5biP5L+Wu+9ZQRGfrNjy5b7WHh9EsrnDusyHDxxej8 xh0sfOlRVs72o0S+BQKJftosrJFxcin6OBkU09qMaoj5kDtWEGd5hgzMD9qf 9mmwcInThZpqdzKMKIb35iuy8J17a9coXSXDbxuLnAIFFjZIqXB6cJ0M0/Ef 77/fyMI/emQWDfwIfVYnKnjLEPPEjqpRHEyGDC0HvaDVLBx9w99PMowMF6Zv TWpSWNg2Tr36xmMyXNcTTmkQZeEuapDj9jgytGpo9YyRWXjYQi8m8xUZDLkq yp6uYGH2/tec5FIy0PaUHBkeZ+JbxckBFWUE13vYizKZmGtbghCrggz2ouGl 20aYmE/2sfy2OjL827vt4Yk+Jl7D8TGt6CRD9OF8kZ1UJtbONH/G/EO8zyDW R7qQiT9tOrBJaJoMQjHv0zMLmFg3wSBz6xwZ0s+OK+3IZWLDoJ1lvktk2BeW LqD0nokPO8qxBEmCIP12u3Xccyb2WD2ts3WTIDy053ucepuJJx/9V26rKAgp 43a28TeZ2IubZe67RRBuvJd0DPQi4v/dc+a7piCwDK0PIHcmflRTFWyrJwhj ILMf7Jn43e1E2k1bQfikKZ/nocPEQyOGPuVBgkBTtg7zY41hw+TGVJVHgrB2 8hy1amgMp9idaIiOEIS2HOdU/t4x7FB3dePZWEGgHPrS6do6hrtyUup5XgmC s2Rx0nPi/G/1+ydnVCoIPos+0X3BY7hcrKimaloQPjguZ9dJj2H5OqNpTbYg FOcyVqavHsP+gS0y8QuC4BAmOeIrPIb155jX3LiFYNtxAdPF5VFcxFgrIyAq BCc6x955DY7i3LdenmaqQlBRqLl53+tRnLp3q1SDoxBY6Falm28cxeUWpIAF ZyHQcnDsObR+FA+eHhrf4iYEy1mLG43ER/Gm+7FFDz2EAL/OH13NTXyP/eAc Bz8haApXc4KBEfzasjw+L0YIPq/tKStMGsHvHK3XJFQJQWRa3tV9IiM484GX mKu6MLwy2OA30jaEJ/RO3X+gJQxb1A/ve1M7hNWm90+90haGk9YThafwEM5w kmjv3y0MwucVP+e8H8LvUF78CWNhMP70mDJ2bwincf7IWpwWhjPLNhfj1IZw gvsljR1RwlDPlKrl9xvEQbZnD/LMCEPlI2W/8MV+nGrJsHdhC0Pwfe2Q6f/6 cYmprUfVgjCsKa4TOTLQjyf3Hoh6xC0CRUlZj8cr+7G9omonRVQEusk6CckR /Xjb3KSTgqoIZBieG6bI9OPe+Pu+Ro4i8C7J+d6lC714B+NlelCDCIQez3k+ FtKF47ckZjYcFIUKC9ufprda8V0cHn+wUBTkDCIu/DItw4ekbF/XKogBVnsY I6ieAgYeVSfFQsQgWIQv0vFWDSRLOynUz4hBCcmLq0aIDgrf38ZZnBSHDKO6 Gf/AQYhUL1dpLRUHkuQbv6OhTDg3tbKlRoUCGX5GLzUVf4PTx0m5kMcU0B62 knj7ehIu3bdeNIuigLGWgMCBvEnwss7vFHxCPD+dQR/BkxA84xURGUeBrvZr /2QZk5C1m7PwNIkCBafshh+ITwGnbLnjzXsK3Du3Mlri7hREtgqGV1RR4MKi +4jcsWlIeOXu9rCGAhdRuGeM8zS8ut64z6SOAq/lpuxWeU7DpzWR83WNFFD2 UJQfCZsmziGKG7WdAt+NNqlFlE+D0pDkvsEhCqSpb38Sqj4DWvm+MmkjFPjd 5lo1oDsDug+6OS5jFCBdFKLsMpkBc6WkHNY4BeTXavZ3O82A50U5mb9/KaB5 yLBXKH4Gbund4+ROUcBL9/YJ29cz8EBosO36DAXG4hUaEnJnID771SM2mwIf +Lc+kG2YgVT/la5F8xQQ+XCk3KFrBt4fcTG8tUgB81HbkcSxGcjf+GOD/j8K OI2uH++YnoHSKUXO8jIFNiTfrhfhnoX/AbUtxHM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-51875.87131258507, 90144.98742448953}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {580.5, -600.7290370648977}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996215`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnc81d8fx3H3NcLFLQlJNkUyos450pLKyKisCCUpysiuhCSrQvXNaKI0 pIV0j9Gwk+xsaVDWvTa/z++fex/Px+d8zuf9fr1f533eq11PWrkL8PHxbSB+ /v9/O9yVqn0kZItpTmne4lopVPFV3txO/gCo/4KE51ok0dKH0gvy8sfAurq5 Ht84SXSbc0WOIn8WeDs8WFk7KoG8N/ufmJK7BCrst+ZqlrPQ17mj10blbgDu 4QB7vXAxROvoUx6RywUKEnuG2q4xUSvnnf/wz1wQE1Gz4YMkE+U9SC//8zwP +M33WsenMdBev73Ov7c+Bi/m/Oru3KajVEZR6pDnUyAxJ0fte0FF4v99Ehhr KQDe8Zt6uTQSyq7K9P0j9xbkyKl4didPw8n0l2rd8W9BJB0vk3k1Bbd7Vvc3 zrwFD8JaMlZ18uAwacqm6GsRKFx7vMJTkwsNNu/ddCmmBLjc+cLpGxiDDU/n BZT/vQci785lpu8eguKA4SSsxQE5y5qKh6oGoZHStU0xRzhg8e/JE1F7BmDC ZO5E8BcOcAm060hz6IW6yd/cXR9h0LltfiJyawuMqNIw03YuB1n+T8Rf3U6H Oc9fKz26Xg44gg2/3rGSOY3pJqS1NeUgsvDX94Pa+RxFT/uS5YYVQPRueYBT COZUkaK0+FiVwFugsUTkXiNHanOHeP2HD+BLgtIaubw+zpOnlzq8taqAz8qq vyH/jXF+i/+ONztcBYav1j1zEh7nKAeYbVG5VgVIh04yVoSNc7KMBbP7Z6qA Cdni/YoDE5yUz/EeByurwZ01oo0nSVxOQH/i2A6HWkDeixySFKY5BdtH76xN rAUBgU8tY89Nc/7lWuwnldUCR9XFEO/uac7RU2KvS5XrwOOcO0GLaTOcgwsp oRsn6sAmFylF7/lZTqZg9QWxbQ2gVFtNKOrqAmfL5hCHSKcGsO7Qu4dNvQuc Th/1jf8CG4B4ZZLR2nWLnOWNl3/U5DWAC0l+ctUfFjnJ6ea7YkW/gB+KdL/d v5c466vmV0+pfgFP0h+/dlrOh+vmHs+6b/0CXFs0QmSM+DDTWfjx1oAvoOmc cb5KBB++sLZOZKnjC2hPPap1jZ8fK9iFD53gfgG6zyM+klbzY06sFqdTpBFY W/Z+nQf8eP5Pgm8RagReS+TUK6H82L9gX5P/w0YwulD8zXCUH3uCLzeG/b6C aB+zbOMyAcx3h1fUcfkr2LL0fkakXQCnk2U6q+59BaLrdVlBYwL402cP2dzm ryC4LTBDVI6EVfbP33Hf1AQ2dr9NO+ZPwpxXqyv2WzeBlauWQvjiSNh+xY7B rd5NwEPoholOBgnHdiUrK2Q0AbXW25FHK0n451Hlx13830CLxcNRzWVkHFlt XlsrTXBMo3SePBkv1/L7W7LhG4iQeKZdqU3GOydK1t9y/wZO3hld025Fxrlh Vi/tPn8DP5ur5uKTyNikJ7B5e9838Dpix0mRTDJuN7k9tXHuG9AqVS/XySdj Jv2noYRmM5Bpc1hy/0TGXilhpQ1JzcBgDDlEzZKxAPdO9/vcZnAmcu9RNSoF 37T7xPe0rBnUf5PVCRSj4CoZ1tYrk81AMUF5iKpMwa4RBkdChVsA9VRKpZk2 Bc/2Ol48rtQCOtyUduobUbD6w5yPu+xbgLqDl4zQXgquYNT9NPBtASz/JCeu LQU7eE8wVOJaQJ5UzdpLzhQcr73FnFrSAt7lFsgXnKRgxWtuJ7hNLSB4tYzJ zkAKLuHFJgyMtIDvIcsr4sIpeLj4a0OZXCsIkE7CUvEUHCU7M/bcoBUc1WSr HE6hYJlzsqxsy1aQILyr8kA6BRf2b9VN8moFjgtNwvwZFGy+/ZhNxIVWoJIr EWB3l4IHchICfP5rBVxzIT/HHAoOFSxMc3zZCmI7vPxZ+RSc37DYZjTUCsRn fJyTX1Lw9g2Kc2p8baDA5rP6wbcU3HV9l4z0ijbQFDVZ1VRCwQHTPpsZOm2g dPvUE34OBYscuuY0bdYG9Kcu7Ooto+AH795GDLm1gbQX04JnKil4i3x3VnNo G/gZ6exZ9JGCm8+Tyyqvt4FCX5+aws8U7DOo2l/4pA3MVsc8cqum4B6nNjr+ 3AYs5AI1+moo2Lo1Vqt2oA1kbb7VS6+j4A+WBvvbltpA7AbpA60EG1QPnR2U bge6PQ/kLesp+JFpWubYxnZgqHWu8jTBsqXbKxcs2kHj7oAmSHCSPu83w7sd vO/vaXtDvE96fl9UKoZYb5N7uLOWyE/NRk/hTjsoGN429Yj4/s+7ZAetd+1g fGXxWhUivkOrCs9tam0H0gW3Ai2J+OtS3R5un2gHKyQYgSpEflCUVWsl0gH8 zrzIz6+g4BeXysadVDvAOcH2e72YgpVIfsuPm3YA8327BytKKTg9dPWWQOcO oKbuPmVXTMFMXoPbheAO8ENf0u3WawoOOxl5KfF6B1CeaH2a+IKCR3+ue3rr WQc4NPXuyManhF9du5seVncAsMGVfiWPgps6EmZf/OgAK1ZPyqfdp+AdNlvk OfydIHVRR3d/FgVr7Lx9vFW/E8jcuuT86xoFZ2Dz5AGrTuCXxo0sS6BgMaP5 V6MnOsEZ79dPLWIpmKd5SIBxrxNQO5S3JgRTMGatuGEo+h3IJKte/u8QBete +VS6Tf07uF74yk3Dmqg/NWjAcvt3oJtpedDfjPD/TPM6r9DvIDB6KlvXgIJt u699uPnzO5jMsLwYIErBn+xNhx+QusBs6lWj7xQKNmqcEHsh2wWi7oZT+OfI WL7SyrF6fxc4Wqjy8dwAGf/OE52c43SBjY6BCf6FZOygyFlB7+wCxgdu+DY+ JOP62yeBxFQXsPhv39bRm2RcmFQXp6HZDSSyVqSfiiTjiID41Y43ukHR9bv6 yTuJ/rE6SrnboAdo3bULK6ol4U/GyevCt/WAvjXjqYGlJBxtn6G/yqoH1Pxx 1CI/JWGBpDc7Dh3vAV06V82vJJLw7OKwZ8vtHhCHqCeP7SXhP502OfUCvcDt cNH1G+UCuCZdWZVT0wtuW+41ME/gx3GFutrObb3AuLj0Ss5ZfryzARkuDvYC Ma91kd1H+HEFzWGX8VIvOOF1Nb5rEz8uCUg69ka7D6gGrfJUG+TD+ftncp+l 9oHTy4f3ow18OEG0Wi3bpR/I1t2T3nJygfNWf9XLvT79QGXh5/5CwwXOgNNJ MB/SD8zc0tFv0gLHKJ+13y6tn5h3+tanp81zfu5yCBOu6wfLQ0p0xUrmOFsv jNSfNRoAqZvNOlbOznCmucv8raQGwZviLzBhH4/j2rH/PanmBzCOND3cxxzh +FZGuZ5U/g34ar057TVv4PNTQtbLd42AdkdH35kVo7DmJutsvu0IeK2TP29k Owp/VEhnmhwZAR5bVlo5p4xC6RWqf7wjRoBWcaX8DuYYjMLbLuCXIyBgxqs2 ZXoM2opHvPBS+AtOzbv9aKmbgLMvxljv5v6CtbJXBmVcpqBE17ShFeMfsOcz m/iZNgW16HwuQ1L/AGM27Gt8/RR0cxB5LKbzD1AbGhmHtkzDGrK6qcfRf+C0 feUhpvQMzLA5cmbZt38g9e/NI+GfZ2F2yPHf6+1GgfGnFCd52iJcz2FMxziO goOXh4NX6i1CDjmH0u02Cuh/l5mOHFmEPVcG5K+cGgW++p82SpQtQtksR7tf l0bBa1ED9vHgJXizYl9FdskoeOD0fTDelw+lCOtmiCuMAZHsWdLbz/xIwarx 0TGVMWBrc/RlSBc/ep566i1HawzonAo8qjzBjxrk8pt8jMaArNrBFEMZASSi oyRYvX8MKNUv6u44IYDibJcHXYgZA0XrNinNMknofOa85eTwGDAtXAsO6JKR xfo3vuoTY+CWYHF35TYyksWnk11nxsCFruDn0nZkVNT3u6GBMg4utc8VhZ4l o/G1bfvyZceBg7yo1up3ZOT6+OUeD4tx0G6buLEPUBB667Or9cU4qKdNli3p UJGImdqxZUXjwDjo0EMnREWd7YOx2znj4OGqzbH39lFR0LzDp8KacZBK1Zcf PE5Fz8DuHcmD4+AfzbfJ4C4VyX9Q3mbGngAV8i38isI0xPe1B5YET4B7VQ7h nbU0FPWrNDv43ATgLTlr8LXTEIPvtoBh7ASIHpsMpfygIXHNAxUvr0+ALL6C v4ULNLQ25suOp88mQFnOsuAH6nRkZlS2986PCfCW/rqm/hwd1VlmPXUZmSD6 Z6CuYDwdWR8NF5WbnAA+rffHlFPpyOH6psZb/JPga2qiIyWPjnz+Fdhcl5kE Tjue39rXQEdX7951iLWaBC+TelfKsRloedG5d9sPTIJ4wWY3HzkG+q/BWZbi MglYzNGmDGUGerCwsufciUmw3LtF/a4+A72xu+YWEjsJPDKFowxtGcjYx6/C MHEShKuM/El2ZCAcZbF2+vokmG684Vd9hIGqngsNnbk7CfZKnm7r9WOgTsGL Xj6lk4Dz8ujSrSsM5KLgVq1ROQluX5Pbt3CVgQYNkMaf6kkwsrq3CNxkoL/u CyOebZOgbL39kOcDBuLn+PsenpwEw8G7s7a9Y6DoZutGublJoFH1ruNpGQMx R7Q3dPFzgf9wm/7cRwaSkP47eXAZF/yejbLd2MhASmc8gvarcYGC53Jr/UEG 0tzUbZ25ngs6FJ+ecv7FQLp89ut+63HBmyWv194jDGQSv+tHxFYuSO6u+KDH ZaBdVmW4ahcXdM41pExMM5DFcqPbkhZcoAi7Eq7PM5DTPY39jxy4gPymVPYS iYncve6v47kSvObhq3YqE3mvlxVEx7jAk784WozJRMEly8qa/bngaplfq5Yo E6U2ja8TSOSCw1nzF1VWMtHtm8cF91znAne1OIV7q5jonsvAj7RbXKBedUqQ Is9EBcPfbmvmcIHBmp7aAEUmeluw92zQEy7o0vXIj1FiIk7Qx/3lhVyw4jcY DFNhojryW8EDmAt+yZd7SWsw0bcq7aG7H7mg0ZL+nqPJRJ1JeWV/a7nAxrU1 yHwdE/XbrskwbOKCVmJgeLeeiX7L/Hc2qp0LRN8oq0voMNFYn4RNfQ+xf3uX msUGJprOubJeeogLWKeTMnx1mWjRhyrkPkKsf0WPC9rIRJSNEUNPJ7hgkKI8 dkSPiYTmpspmZ7hg48D3Fj19JhLHpzK28fGASY+OyV+CV8T8OptE5YHRi1t0 LxswkfweV5sOIR4oM9coEDZkImVWx3olFg/8jt7E8SdYq81ayHcFD0CLItdy gjdm1gwVy/HAwbBlGTyCjd23lVOVeKAi7lnAsk1MtFW9NMNSgwemLiuNCRNs NqYX/J8OD1ySFhYfJ9Zbvn5qM2TAA2HbxLuKCbYPU9HWAcR+kbwDxwl23pot FLaNB1xT4uP4CPZgSP/8uJsHZi++PRNCxHuiPqVc3IoHqtLOrOok8jlzXTDT 0Z4HtJQ+XlIgOORQVHCOEw+EZNWU7iX0OL96wWbiCA84BRRgF0KvS0P+2luO 84A77U2aPaFnUv5foUu+PGCQorVdj9A77bTnz6+BPKCteLZxRpuJMgx7ymXD eeBzrJDJXaJejyu/BBfG8YDXbsPeh0R9X1w2s11KIvRzlZAhEfUvsizXNkvj gRMZxRamakz06Xvhz+67PBAhWFAaRPin/q5mhVoeD3y0qSN5E/5qPvYg0/8Z D6R+szi4TYGJBrhptoLveKD7b7d1HuHPO2jD6e/lPBBVkyPBR/jX+Upd4tMq HuDPbg3WX85E7YqUz9atPLD5aZPdbnEmSj+VNbi2mwfEnol0Ky9jItsSI4Hp QR7ooVzW+CHIRF+s/Yz+myD0jFljTKcwUUKmsL3PLPF9Pfdl3vxMZP4n5wzk nwIdIrrVzxcY6NP57vwBkSnwyPudXD9xXkufm8trqk2BkAkTg64BBgpdGDJe Wj8FThixdlv1MJDhrgsHvuhPAaU248ScDgYq7Hmb4r9tCrCV73+Z+8JAecuU KaUuU+Ae9eOeLUS/STvB/3tv2hRQNnfsNUpgoP1v/6OuzpgC5mGbHrXEMJA4 xWDNxL0pwLu9ZaftOQZK+M/HIa2AYF+68vxpBoqq7qjrriX2C1V59MeOgU6p vnpxijwNFsjGj9ykGUjL37LBRHAaVGZz+7XFGegPZ3hYQnwaKJwQetDPYCAP +zVKb+WmwY+WaN7YNB05xiSl8xtNg3RTE9nib8R9MegVluI7DU5o7PFjxtHR 9rA1j02DpoGIy6q+bZF0ZCLZ2c4LnwZ0G/p9jwA62rRtj8Gh+GnQSZO2tXel I7X76ybWPJwGcvOqHxYM6EjQffLoy85p8Oj9QWmHXhqqGQjb37pjBtQvPbhX LktDn0L1LsTtnQGNHab1ZWI0VCHx77mxzQwwRdMzOWQaKjF1WZbtOgM+jUlf UvtNRY/vmVQdC5sBan2v1pALqejKERqcK5gB2Y/0FWS3UtHegSR1WdlZYBup +cZ2HwXVqA80OSjOgtCxdWWekIJ2n9YPv6U2C9RPlhQc0aagnQJdDcv1Z0HW DApRYFGQibx6AMtiFgTrJUs9/UZGGx0qOfTzs8Bty4YpNjEvyDTN2EwMzoJD GmS56N0k9LvcNfJT/hwQLLGP61jgQ3LJrV4JhXMg5WOube5PPrTfaa/N/uI5 UKUmlOb2lQ+VThuq9XyaA2Uw+f3tHGIe0hRrmuqfA0VjxmVqVnzIKO29srL0 PBCl3Aw+tXUJxnvJ1F+Mngc7lyuvtfCYh1pizau2Oi8AxRXbm6x38CATcA93 TiyC+DaeVLhzP9wxcnBKwYYPxo4mBa5Ib+K0lh3hP6jBD6/GzAcf3D7JeRlb 4STP5YctcobfHFX5sQfFv6euTgCqRByKp52mYze/kJdCN0nQJXpV3J3nIlhP p+ul6m0SnJx203z3SQQzx+Gr7Vkk2DVEo9R0i+BnvtTXkQ9IENDPyn8QXobn TyW/mSwgwcbUhgJiMsKpJx8Wd1aTIN+ogv03EVH82fsrfrxAgjpVBvY3SkXx Ok/1OvPDZPisT/fsX4Y47jomdzL/CBmWiPs35EmI43hvlqjIUTK8X7MU7SQn jn/5zlnW+5DhsuF+3iNdcXw3tPqbZSgZmtWcXdvlJI7ZKce/26aRoVqpxO8b z8XxUsmjYZdaMjT/NeKDLFj4yfvMK7iBDD81PRjpPMDCDmVXtRSayPDs3l3z Pm4s/PZjyKn+djLc/uHes4AAFj7duHvS/ScZPpUDVaz/WHho6M+cF4kC0+7E +0cMsnC9uIagvyEFpiZn2E6cksBbTpz4dcuYAvXuy+h9CJLATz4++VgGKDDq 4rFNSZESOCFUO0p0OwXu/OWTyUiSwOY/9BYeWVHgcr05x+QnErjqLfrXd5wC mb4eDaO/JHCli91XiwwKfDa2zvfLAUmsW5z+PDCbAl+Uh4VEukjie5LtiRn3 iP1CFlcreUriqCoH8+E8CqS/v7zB5owkNtF1rYx5TYFZffYzKEESc2gnXpc2 UGAQX3OWFUcSFz85f0uDRIWN+Zw3G1dJYaq5jXQalQplD1VOrl0jhS1/Kd/g Z1JhQljPTaaqFB5aU5vaLEqFfdGBrOe6Uph1g50SKUuFUrKam/x2S+HjFx7H NhlS4SYbySQcIIVfyUfQwGYqVJ/xc+GFSGH+UsvoXEiFyk69NnLnpHDaNO9C +A4qHJj3zdxzWQqXn0ARKjZUGHVCyWhlphRead/sH3qKCidMbCUDK6SwBzdn 8sdpKrSVumA9/EkKP08JOW0ZSIX6JItAm1opvKNW3lcpnArr9ApcSM1S+LTJ ce+Gy1QYyVS3qv0hhas1+NwUH1Lhq77ZcCkqG0tVNfYm5FFh5uKi4ycGGx/2 vO8yk0+FlOH6nyeE2Xgq28yprpAKTa+qTF6VYOM17OsHgsqosClozYXdCmwc wq9mUfOdCjW+G2a5G7HxD1PBVqVeQp+aBKWtW9jYInbY+dwAFYY2Z6dLIDZW XPb0pN4fKiz0O6J7dTsb18joJmZNU+HjL9qzixZsrOciyZ6bo8IzVSoJIdZs nHWXl2GzRIUbaOpTf2zY2F/t7RMmlQaL6w9tzjnIxrIGW+rOsGhw+nvX3gQ3 No4NkbOtl6LBgiMhINedjcdL+bpUpWnwPR3/e+3Jxh+3lY90ydPgQtps1LPj bHzKeqfwLi0avGmgYyRymo3bU1Wv39WmwbiNi70fzrCxaTtz1aIuDYpKueqe DmDjFYdrNV4Y0aDxpHnjg7NsXOZjZb5qFw3GGNo+OxvBxhoFG5oCzWmw4pKb b30kG6dyJRwa99Ggw7Wd1cvPs/Hx0JbjMbY0KN56G0ZHsXHz+zcTvQdokGl8 2y7vIhtD0s0QY0cin6cpiziajSXiHC6PuRHxCL+ZqI5l4/DazSxzTxocN83e XHqJjX+Kyt164EXkqzwhci+Oja32863h96HBbTFp7mGX2fhdWm/eIV8a3H42 DJjFs7FKR5nOqzM06GR34ybzChunyN4rEg2iQdP3A2dKCfa471FVGU6DHB4z ky+RjRt+7rCSP0+DZJuJ3wkEb9JQbQ++SOx/UOmJaBIb3zvJdP0WS4MjvNc/ LhK87MWfX+viafC3E075S3Awr8Y3LpEGAxiHn5kls/GA4ZOZgRQaXPa8aPNN gveGJZ4DqYSe1lMG3wl+wznFuHmDBq+s35bFSmFjBbJV8uR/NOhc0+K7meD4 HRtW7Msi6jk89Oggwbw4iezcu0T8N1+YHyf4cB1XhfyQBv/JhVudJLhGrOWZ Ux6hFzOp2INgPZs3Bm/zaTBBTT/akuCs9Bsc1nMaHE788GwdwczO4J0+hcT6 K6mG/P9fH5grnPiaBmM3RYdXEfEdFm9tfFpEg1GmgeWxBMfnU9Mb3tGgGJCl Gf8//p0bHcc4NGj2esPOASL/gX43BfEKwj+6Zy6e+78+ESlDOh9p8O/GrHcs gjdJ48fWVTTYpxf67yahr8fLf75naol88hpWsAlOsZDVv95Ag9fmjxnFJhD1 /GM+//IrDe67utz6L1Gvn9EhuLmZBmtqnjnvIlhCIS96qo3wE5+gyw2i3uBd 6+7l32kwOJRk3UX4wcueJmbYQ+R7iRgnCcYJR24F/6BBg31nG7wIPw2rXnW5 9YsGg3y+nb9A+G15JV5bMkzEP2KvkBzDxj5zss8WxmlQ72ye4mXCrzdT9/jL 8miwJ8f7YiDh50rt0E1ghgafhGypt7/AxjJH2yoil2hwckhRepY4DztJ9Lhs ATrMstuzoog4L6cz9PaVUehwu1T+gk84G1c1XW0jCdHhvhJ3v9chbByE9v6N Xk6HIiPd42X+hN86Q188XEmHVx2rBdSI81kf+Cjokywd/vWbG73ox8ZKT+gk 5lo6bLedOyJzko2/Spezr2jT4WgJK7WcOP+LL8c683XpUNb1zvkvRH9Qs5S/ U6dPhwG/I3Y0Ef0jMiZMQ3QLsb4o0O6NMxtrTeqjq2Z0mPvQM3zWlo0PJnpQ C/fQ4Qkp55VP97PxRbXr1U0WdOgt8PiyvRUbd7qM20jZ0aHnMYmBS3vYOK72 sdcNNzpUMcpw99jKxoMPVl/LDKVD+N3HlKpJ6B3VO0OKpEMPXcWsD6pEv3LN dj56gQ7P3LOpP6vExnxyq9W14+jwgMndB2/k2Fg6Tb6sLI0OS+xt1qWLEf01 Rm50sIAO906q+XSNS2E7924bs1d0WHHteVf1XynstDWz+MlbOrTW5JN7/Ju4 n5ZkYwI5RP4vKkS29Unh6EBZWUYdHdbeKs9rbZDCJZ6rzDV+0WFV4/hA9CPi Ptr2/XnSMB3eFzhsl/1ACletuc3m/qPDN3tNbj3JlsIt3TL973iEPqSo9Ow0 KTxuJxO8j8yAxYF6fr/OS2GVnStz/OQYMJHusMBnJ4Wvqawgv7VhwGPtVS7W XEns4KT0sN+eAf+F5xYb/JPEitc2mIk4MKCCZGGe+C9JXLi0J8nNlQGdU5x3 3uuUxE3N52VETjJglvbJ9C3lkph1cVjXLZYB5dd57rYg7veU3vfuwsUMKL3N tPrvSkl8kF1LNyhlQNtk5dNHJSSxwp72R66YAbcn7alvFpLEBW8mx15/ZMDw ZK/c5AUJ3JioGu7axIBDOnyMyC4JLLblaurrEQb88Jh2F2ZI4KSbHh8PyzNh +C2RoEOSEjgw4Pzp0DVMGJ8QH3ZLSAI7WWXIpSkxod6zum8NJAmswWwOrNFg wh5f9Ysrx1n489ltKvqGTDgz911Yu46FBQ4oXhKyYsIrQ2Y7nKJY2J/dZ/b6 AhP6fVwhVvdTHB+85lgnNMSEyR6U8dMpYljmBXPl8d9MmCFw771ctBju/vLa 8/MIE+q6rk19f1YMH1kmzh89yYRv8UWvDhcx7BP3YcMSvyAsnX3GjNISw+cj 190YkxGEznQt2n8fRXGuN/+RZitBuFz3cPZC7zI8bXp/JrNUED6JoNsVmQjh 0OLMCxVYEBqPnvG2VxLCfDo3hX9VCMLYde/N+hlCmCaXuFqnWhD+CM0Ne98g iKVmgnZVtAjC2TynyBRHQbwh3/zGz1FBeBBsV8s9zcQ+kpMG2muEoLQKqac6 mY77B02CymKEoPiVvYHJaWR8Z7P2ytrDwpBuq6RcLsfj5F/0F/PUFIGRtPow dlMZJ8bGbTeJKwKbvL92O18ehxs7s3NjapdBmStKaxCgoHTVW/m1u0Vhsuw2 XZejoiiCcyV991tRKFZ0PreyXArtWWlzv0pRDA7o9FIneTII+Xw8JHaJ4BXN BsW7V6NMGVfFGq4YzBs4rczUUUSK5Q9T9x4Sh67ZUXUHXiihJM0ytcZScagp NfQy+JcKyjE4xDjPEYd2NXNageMq6P3WySHtMnHI41xb5TOngv4eULqfXCkO 9VUldu8WVkW7o+PkLGvEYc71Uv+y9aqI2m0l0dAmDs/APZFZAaooJKl/oXZS HLop1u9ZWlBFHhPkL5/VWFCHm7l0bFYNOeWZ1jlosKBJxP2MI/zqyPZwVPU/ TRa05qtLOEBXR9vrSR8ktVlQwFvOVkdKHSk9Eig+rM+CD3TZapna6mjQle/+ zFYW/FT/WtfNUx0daZwLUnVkwQOEEyLq1JHDJaOAEicWfNEdsbm0SR3thyGn 97mw4KJKywKvXR2ZPpk94e9GvK8nimyH1JFi3IwrPsaC3TtEw6uX1FE/mjI/ EMCCwaSTBgnrNJDr83H5S4ksuNlGXMwlTgN5n7eeN0sm4r8gfPhskgbyty5s EbrKgs4Xex/HpWqgWK5/QlIqC54tk1K5fkcDPTGcmUu7zYLGD+Q27yrSQDN4 qfnBIxY88U/MS+2nBkpqFLpS8ZEFM+4WuL/crIlu3j1xNPozC6oOlyZ+MNFE d8/Ubd1ZzYLt9HcG9Ts00SuppNnqOhaMeOQ0/cFSE3UeZB39+o0F95WZVuxz 10TK/Su29vWzoEHnFdPyOE20vjBY9t4gC+bKJN8wS9REmy52zLgPEc/LLml/ vqqJzJVvP/v1mwUPT6etfPyfJvI7Li87NsaCFf46vvQnmijU+NxMwQQLXlvf HbCrQBNdFO5rOsNlQRkRlTvnXmmi9Kd3L09Ps6BUm8ChllJNdCeS7Fk0y4Jn oqx7J8s00SNLd5PQeRZ0aXgXzvioiQoVPqzaskhw3P11ktWaqHRCaWZpiQUT d5waZddrov8B4eVBNg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-386203.8305592527, 976779.9696066248}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {967.5, -600.7290370648977}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996215`}]}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k4lN8bxi0zdsWMVBSiKGtkHcw5xzojFKUsMyrJkqwhlSgJLaS+QkJK ShvRhiRHKGuSfUmFlGSbsSb93t8/M9fnus475zz3fT/PeWeDR6DjIT4eHp4C 4uP/31lRHgLanifpEs1CylGF21H1JwXbvQouIDVkLEDTfDv6V1txVkHBF9wN vT+R1WmDsioT5ckKx4He79CIl3w26IhpmP+c/HlwIhoPVhxgoE9/fFIm5a8D H6fc6hAzSxT+Tm7rRFEGUIHWA6VfLZDMf20Nv80zgSs3d/zpGQvkoQr5f3nf BGI79H6/fmuOIh6Jlk533gbHC3KuSu00Q4K931R+y98HC97hU/YUgLoqX4eN /bgPdqWLMy540dGDu+lvfxU9AElRx8Wlyk2RfYj9vlHzR+Cc0/IWcT8TlCpc ljriXQh+WefU+ncZIUrme76pzmKweSQQP5rQRbfqbwb/ki8F71NUZ8bFNiNu +nPVgUulQNP/ufLB38rIyrthsHWhFMA+l59nWjahMf45p7JPZUCFqlJflK2E DE3taefjywFXYcx26Zkcailc4lOZeAM2P7m19GibOKIAYXdxzUrQ4vAkYdZF GBkrp9DiPStB5qHZa2svkFES9z7nxMdKoHDKvytk5RLUvdJ+yOMhBpW/qvqV FYoqo+vVbbT3vQVl37QvM4ZFcX7RS+WH196CQq3XAZYqK3Fruhn/psa34JVw 3uPVWyXxRm/n8jVG1eCzE7/DKTcpXM8fq8lDrQE848J7ByJlsLRpL+VDbS2Y 33+5InVOEcONXhOMv7XgknyNulaeEvYVnWqo2vYOqF7RECneuRGXdwuce5Hz DqSKwvMxtzZhj3CduawT74Fd6mrHbNXNuKDwfO8RzXowR1eWN+hXx6OU0Us2 B+qBve3V6fADGlgl3Ia+OaUeVGa0RIgNaeAcE9Fbgwv1IFOj8jga0sRX6y55 udY0gN37Wo4l+GzF4YOXp6xZTSDzYlactJYOLraavL3pchNQdH4k5+2pgyfu 79zNX9UEWoxfDnLSdbBPkOTLCpVmQOIUqNX+08Guf69G6nGawbllNsmvehu+ KdpwVtKyBRzxGLqVpaqH6aYnWafdW0DgJdtyjd16uC9ATW/iWAuIOk2LEjml h9e0Xvze+KAF+K60WXzcqIevpNsyEyQ+gsMeI09KDurjrfVLG+a2fAReV8ZH 6+L1cfOfR4uHzAnedLlM66E+Ftkn/sg8/CPYOwD4/k7o47Obmlf86/0I7rE6 3UqDDbDi3qgR/5mP4LxvfdCFZANcmaBZ2beiFaz8UtP+ssAAL/1KCi5DrYAl 9YOt9tMAhxXvaAu71wquW0j3X95jiKWG/j0aqmwFSc4y4+wgQ1y86sm5XT2t 4K1HQ8fl84Z4PELCQFv8Eyj12DCkWGaIvcHH62Mhn4DNt6vP5aWMMM/t2bLe i58Av33BlorNRjidtK6v/s4nMKPTmtRkYoTf13nJ3e/4BORWq/9ndtAI71e/ BNInPoGa5bVD98OM8HxS0f54oTYwPXH6/Ll4I7x599LtQ7Q2oCTnp5F13whX vthQvXtXG3gCBLp6So2w81rrYfMjbcB/2kYruc4IJ3y+oqKY3QYKrznqHhox wj98VB595m0HwJUv78M6Gj7dYNvUJNMOnr8Iq/26mYbXaIaMl29rBzwlV5VC dGmYwSnfeuNQO8if1mmQsKHhL07fHC5EtYMhbb0ihd00HFEiePR4WjvQ6h8Q LmbT8P1Tjs/31rUD1W8FZqxAGjb7cqzD6ls7UDz+tST8GA33mGXN6f1pB+Si 7qZV0TQckle1ZpNUB0jeNW5Di6NhEaEfRlIaHUBpsG5+6BIN3z4s7sZv1QE4 s4dvSv9Hw7Qmnchp9w5gnb5RoCWdhlu1nLO+HusAJ7KzOZLZNHz46qmKluQO cEC0Q6P/Ng3zzdweeHO/Axz3Xn9C5x4NZ+x9z1NY1QHWya3PojykYZ2y3xuy ezvAqu5PrlEFNFy/jmqeyO0Af/pSw8OLaNgj2tAzUrwTqHpSnv55SsOLX9nn /JQ7we9FZuuKFzR81eLsXVfQCWJ60q89eUnDavfy3zGdO0G+RfHrryU0XC3c /MMwuBP4fL4lkltKw6wjHOHNFzpBomij8QzB3OY1aqtzO4Eyc3xlN8GXtOm2 AuWdoDFB3nIHwRtTDvrPtHWC6Ast6c7E75XPJiQN/e4E/IaN72aI/Xe7FBR+ EugCT5cNklSe0/DYq08tVfJd4O+WlHvjxTQcK7cwVWTYBfxNy5u3P6HhdWfk qLccusAb+5HX4DENPxs0100+3AUe78vXbLhPw7ZWvk7RZ7uAaMl493geDQ/l J4UHZHaBi3SBiIe3aDhS9Fka+3kX2P8prZI3i4Yftyx3G490AbvMm+pRV2nY atvGP6o83SA92bg8j/Dv8zXmOpm13QDXZDX7Ev6ucEtxn7fpBnl9K+3qI2j4 7uvS6JGD3UBAx1jBJ5iG6QoDOR2R3WB4v6dFni8NBwxvGXxW0A0aOsnWPC5E /ty7hXBdN8i8zHfVdQcN7+pK0Gwa6gY8Id5+VpY0bNgwcnxYpgdkTRkzOrRo +KFF2s0pvR7wq3VKKHIjDctVWNX83dkDSvyzWl+soWH+ojwJ6fge8JYpOD3+ zwiHqzrpK97uAfOJcPn3NNEvuSSW5usesC3N6/S5YSPcnHrwnhWnB4gfVrU5 Q/RXeuQG+rF9vUA6Kz7q7SUjLDLbcvDsiV7wMZ/UkBVphE8Fnj5/+VovMAyX BauPGGEPj4G2ew29gLZqy8go0wirM7L8ugz6wJ4eSyF1XiOMqWuvG0n0g6ZX z/zr3A2xbuL7Cku1fvDo4WrqHMMQ3xWIGHKw6gdS1RN5LTqG+NJCh9bhyH6g fWv3/QtkQ7xnIKU240c/ODa2fFnrngEefSDB/VP5GcQVg6vDvcS83BCrMmD4 BXRevhYjL6GH35tc0Yqy/ALkzc00bTm6OM4522C94xcgNbK3zrxDF/Mll1i7 +X0Bx44jntQbunhxecy7M+sLyND572m7ki7+1eeU/4HvK7h5sTiMprYNN6ar bKls/Apm5NSoYK02TpJoUL21fxDQOKtX2stuwR69u9/wN34HESfshIP+/akM ron1CFQZBb2Rw7cTgzcguSErgdlto2CIV8Tu9asNqIFP+EEkHAUhqnHsGrIi 2gQTp867jAKuZcFa9nVF1F127fSdi6PgxIW/f25WKCH05G5298QoUDF647ee VxlJ3njfY17yC8Tp717pc1AVVZReiKqv/gU8rBcmR++pIr8uW0WHj7/ABknl x7QxVVSz6qOv++gvYj5GHQGhauh4cvd8xLoxkM/5o9Z+Rh19PTcqXXB6DLQw +d+MXdVERUFiu9Ywf4OMNf98D1hqo8YM6vHHe34DP1nrmNde2uh7tcxNM8/f INcyRWE2XhvJrN3y60j0bzAVxm+7VKeNYrHlWfz8N4gN3LO011YH7aFEPz2s OA62q14bUbXZhhafTlFf/xkHe3qXvptt0UNSn+eNHIUnwNL+zIQRSz2kKcSz f0R6AlBD3lh6euihg6wVjyR1JkDjwxOZwxl6qJGkZuHlMwEmRT/8RxLRR9lO nqEr2yfAT6GUqBtf9NGtk36jW/dOAsfZtI+RAYZoa6XwfDx7EowZ7N/iGWuI Kkn55IGDk4An++5K5QxD9CVxSCExaBKs/+nLMKoxRHI57L0/z08CrcVr5TfW GqGM6h3Vt8onAScgZ8H8lRFSFR7/OF81CSZsZKyamo1Qqd2lgR11k0BU6Zvp 1m9GqKvj/eLf9kmQsJ22HCNEQ9I/kbbrxCTQcV0f7rqLhq6K62ZTFKfAiihu yruvNKTo2PrQd/MUyDndZvF9moaKUoNKKzWnwJ72RU4/vzFqkX/cFmA8BZQv uag7bzJGK3SURRt2T4Hpnf7Sx7yM0YU9ayLOxhPrKT48zl+NkcyNF+d6EqfA XNOBz3yTxuj+wO7/tFOmwNuEGvO4ZWP03udKwUDOFDgcVpAoLWuCBE6KDBuX TQE9tak4lqMJirm55MAdmwJIUHPmeKkJ2rm1JFiNMwWiq2Vn/GtMkBw+esVj YQos5u+sMv5ogsq+jba0kKeBdhNPmecPEzS9qXvHY7lpwK7+2v9LyhRVvkgJ HNo4DbTSzAQK5E1RkvXOy7Jq00Dun8wvpqopUvV913zeYBo4ZfwYWgFMkcej 53ZeO6fB2MelyCYvU7TVNNg/a880SDn2x48dZIqWm9QT21jTgGwqJvnuuCnK mMhtNPOdBnd6DE6pXDJFrTpXt8vHTAOKC2N4XaEpQqUBzK6n02B2x2hxz29T tMJG1Xdl2TQwtFTdKTBjivp6hhOsKqfBo7EXz0SXTFHEEuv9s8Zp8FrfoT9X mI6egO3WV4anwQ0oOC+sREdRLQLe739NgzcUeRnSFjqyPVAV929qGhzZdEGm S5OOfsQY1fovT4OauzerxWl0pFCrYmmzmgNe0gu3PLGno/E9g55n1nPAQV3L +8d30VH5SHZsiRIH7F1/RGW9Mx05C0tXK2/lAPNpA53p/XSknPFxkK3PASoG N94rHaIjrmoi/zUTDhjqFA3W8qWjZFuSOT+TA3zZq8Tbg+jIvf+NB20HB2QV nxMNDKUj9YCTMcFOHLB+qUh78Bgdvb88jQcOcEBi8mEx1yg6SlUo+CrtwwHz fd8aWWfoyLPIl9c+gAOed403GsXSEc+nL7D8BAc4zErkxZyno9ifFbdOnOGA VAW36A2X6EiYJ4vPKIED/Hv/E0xJoqMk6ZMH55I44PDTcKueZDqiaLhUP7/G AZLOvy24V+kozdxgU2gmBxR5rRT7lkJH61xXxenkcsAOPcW83FQ6ygnifJ+8 zwE1WelrjdLpaFP8R+vCJxzw5D3l6O3rxP+1rMJ8/5ccMDbPfjWQQUeazxKF 1Ss4oHpP6NLkDTp6Wu93eLSaAyJfRcKOTDoy/MpsyG/ggInI+iuXswi951TU vVs5wNaof3FdNh2hFQKJm7o5oOP2/rgogms3Dv0eHOCAxu3q4BnBNsZV9re/ c0ByiPnWCoKbHXIK9/8m/Gxq88wkeJdPlIQ8lwP2O9N+2BPcFcUK7l/kgGi5 hZp2Yj/WNVrrDV4uCBbGwtoEf3m4ZpurEBekPjryZj9xvkNVs/+tWckFE5K8 HE/i/KNdbdyOVVwgFv/4iSlRX8BEsdO1dVww59tA+kXoMU2+8mKXEhfQZ/v/ HEmjo2PrAldTVLlgPeXq7bfX6GhJxy6iZSsXFMhWkCf+o6PTTLXuJAMuuPji gM7EFToi7xem2dG5YDI9T6/6Mh1dCB/JELXkglcuvesCEunov9xcVoIjF4yR NZtgAh2tKTvz2sqFC/6UlxT5nqOjzJZ9cuT9XPD2nESRdwwd3f0r++WMP7H/ xleGgyfpSFVqEcJQLuifLevfH0FHhapdt5ZPcEF8yNeOp0QeS/amHDyZwAWO qx/x9ByhI5OAkGqjy1zwwUR/x2MfOsKxOzfNX+OC77eKNfZ40lF9kdhIaC4X 1HnNdG52o6M+0XOHAyq4QHXDmvRPVnS0X/Fgg3oNF0iV3JB1QnQ0bIjUfzVw gfLTpsePjIl+O/T3t3c3F9By3OFnLTrirQwLPsDlAnNB2RlbaTqK69jVKv+H 0BPNvD29ko5Efmtv+8w7A+L4grZcFKIjKZlxruvKGRB6YmRZadEUKYd6RexW nQGXxH7UefeaIg3awK6bW2fAQrIS+fMnU6TL46w1qj8DLByYhVsbTZHZJeb3 aPMZMHBIJdGv3BS531Hf/ZA1A6KGz8sZ3TBFqW3TWnyXZ4De4UlP5GiKsjL8 RO2uEc8PPR48xzBFd/YPfU+7MQOGgrgf7tFNUfFYe5ZG/gx4ekFaN5aYn82k UlEXPAPev88l3eIxRWS96JFCzgxY8X3zt+N3TZDYn7mqxYUZoKmTZ5aVYYIo OCjbkmcWUPUWlW8mmSAFOw+nXrFZEHXmw1t6uAkyOWT5VkB5Flgpme+YMDdB oddEb7KdZ4Hh9pN/NnUbo6GZtD2ir2dB4tvtzKBfNHQbbTva/3YWLIY1XtPu oaF9ic2XC+sJZhR5Nr+noZ6N5LpdXbPA8nHzdEYeDX3cFWKcyZkF4rkNz2PY NFRRZKugoToHvG9ZO9ypNUJp/ryj9mlzQOjRCr/JKEO0uzRTYEP2HFHPrsI9 voaIQjZU4tyZAyHL237d2GWIkjIDWGnFc6BMh7/irYohim3obR5omgM8oW28 l5oNUNCWF0+DSPMg74BJyxppA2QzfPjU1eB5EPLU4uFMoh6yOqX0yCJiHjjH tOmNheohs1V9PbNR84Ckzb5Y66aHaJZ2hm6X5oFj/ClxFeJ9RTVPi6N0bx6k Xp9/mFGli0QPcX2e982DCOcwf6/Jbahx6NTuLusFoG7HCTpoqIPsh5LV5OQW wdYXN1d48Wqg0bcep98//gPWlKsMnxeURZqSHevN9/0FEgdkKM3B/FgEzBzo 4yyD3OyBuLxUZWz923VO0YkHylBEileX6uKuKk9eV3Ve6LBDZ/XQXlM8iXpk Tmnxwr0iwhsdwk2xIN6hm6PDC20Ff0QUpphi/Tc07++GvPBKHPcB+GiKU15J NIVY8sKN0QzSIyYd73hWnn7RnRee2LjRMdcA4No8qa2vk3lh5wO1yKqzED9P qHZXmOGF+Qqax08bmeF8m4Y18fO8cE4/vaLA2gxniLW2/v7DC4f/uuZ9dDLD p5MHrF7x8cGXh76pzQSbYdv0Rc09EnxQIezJVNF9M/zt3tZ/F9X44NvvtkoL 0uZ4xbvMm3MH+OCvuJwV4T/MMe/5XBf3Q3ww4ePunRtnzDHX5gG1xocPWjug sRpeC9zd/DL+aiAfXHcXig3KWOA7Ha2BGqf4oPRau69nbS0w7bsQPJjOB7Fj 5q29jy2wFznsS3MzH2y9mHZU8JAllpGv6/zzkQ/ec2xR2h1oiZsN13/Y3E7w 49mWlOOWWP9IzeuYXj548U6UwHSiJRb4tOqG/g8++D58q7zsC0ucl/PCKZuX H/pxAzcqkqzwkPF8vb8uPzxnAYbbU61wupNtVYYBPxwq1D147aYVtg3MKX1H 44eG7sdXMvKt8LPbjPwNiB82PCf1xpVa4Vjh6+fa7fjhxIxNum+vFd7YaQRN vfmhiMZwSsU6a3ww5ORzsQx+SH/X7hF9zRrr63x+viWLHyrdHRANz7TGItPw hVUOPzycebJkX641fhIs8PL0XX74SWyvsFiRNV4KulLCLeaHqpfSyO8brHFq 4L1XfQ38UHdLknvdsjX21RIpX2jmh61CTyjjJAY2mThSLt3KD0dzdM6QRRl4 MEDn9c4ufpjl+Pek2GoG3hrwuqJ6iB+KkXKCTmgycN2RT/jRX36o/X33o1ZX Bs5U16+q4yHBZze6RDfsZ+CgsfSq7/wkuOnLocEDhxhY+oj7WwUREnztPTda FsjAHn4/q1OkSTBueXyi7iwDL/n+exepRYLO2cfjne8z8IctHu+v65DgC60D OY2PGfj2z+r3L/RIMK2wc0anmIGZvhfqJo1JMJTvLKOjjIFTfVY1eDJIcLyv Sf1YAwNreas12x4gQTm7REH5UQb+7Csf+NiTBAVSb2fyjTPwpSNUiRU+JJh+ 4VVl+xQD/wz+4/AhgASrPDzv2iwwcG5kQ7tDJAkyYtIjAwSZ2DH6TXhxNAm6 +F2WaxZhYp6Yp6upZ0nQKsRZe/0KJmbH33BpO0+CPjpLGeelmHj1Vb/+PWkk 2OzeJ3tDgYlrU/ZFvcwgQZ7Ko1/DlJg4NG2X/JpsEnywRWQJKDPxx0zjA913 SDDRfVnxthoTX7wnOuxWTIJ9FVn9WXpMTHvw71z5cxIUTY+dnDZg4h+POMrr Swm967h0AxoTWxb3+nx+Q4K3Wn1jEulM/K/84dj+JhIxD846BFkxccGbm4m4 hQQnV+8YpzOYmFX1n6ZiGwka/rhQuMRk4tJ3J4MGe0jw6b9jKZZ2TOxTHyhp 8ZkES35+Km6xZ2LppoPFd76S4L5O7qjNTiY+2rqde+gHCTqEmWWL7WJixXZw rfYXCeb+85TavZuJWzq36atMkOBnYJhxwYmJo3pUOuOnSZCSZa/xZA8Ta/TL RvyYIfT+Yt5QvZeJ+wZWrmUukOArvdfB752Z+MI3/rL7S8T5VXzlXrkw8cjI rz+H+cnw0U90xt+NiVNHBzIbBMjQ7cGijgaLiS1+fzJVFyFDn+G/X3sJnp54 9/mSOBnaL2y+dJzNxLemX0X/liDDmWwPLQF3Jt45U6hgL0WGCT8y6s4QvDyX iwtWk2EIbHAeI/jRYprHSlkytPGZ7bHcx8Rufy/yB8mRYc6xzfZJBIvwnL7T soEMeXrDn9QQXMIXaqm9iQzrHXl4xgj2Ivt8v7KZDKenxmi8+5l4lRArflqN DCXXB+wjE1wtsnPzLi0y/JNQ4TdPrA8Rt6h7qkOGNUaK7j0EK0gYHpbSJ8OT Z77rPiT4A0VdNMyIDMeXD4wfJpju7//zhgkZSsOcM/IEF7wreFcFCL5SrFpD nF9OcTLvpxkZhm90+uFGcFKkdqyEFRk+0N9eOkjosdwR4mHAJENr8X2ZLIL9 tZ9Bd1syHJs5kFxL6Nd3cUbu3A4yPG2pnrKBYNvv+n8fOpKh3t6su//XvxxG 9LY6kWH2xRu1D1yZWP1GaemCMxlWWEtxugi/RHeahFvvI8PyP3b+QoSfJx6c 2h3gQYYmDWKlwoTfo6Q3OtcOkeHAByS+ROSjvhRNfPMjwyTVvQ1PiTzRpM42 CQeSoamT/7bjjkz8IKD64dYQwm/WoRwtByY+r2TtExVBhqtOPz0XSORz/lSC Vd5JMtxjf2xp3pbIb1fdxsYoMgSu86FHtzMxI9H269pzZLjG0NXHmMh/yUji G5hAhoXHvnxNIPpDxexDlvdFMhRvDnB9Z8HEAnMOrs+vkGHxKmOr1YiJa/bv /bQzmwxVVWkLfEZMrPsqvejYLTLkuxjh1qXPxHdW9VzOvkOGTJHbJdm6TBxb z7Ide0CGK0+qeSxrMbGZrkdN/EsyFEho9hEm+r04KTe3oIwMnZp/pXsR80Dx 59CZ9tdkuNx8BT8j5gVvtjddqZoMo5/U/VGSZeJKQf+XFS1kGHs8T8J+JRNv 9Si4NvyJ0P9HCu82MSbOKZ84KtZJhoY/PUaFhJk4Ojhkq2s/Ge589i43no/I S++x+zM/ybD0XEBJC5eBXxXE3FDnF4AwnH3tSgcDC9g6yaQJCECp2YVszVYG dvipcp1XRADOqfaTypoYeESpKbVDQgBeaRsYuVHNwNTrq6+elhOAGfSS9ZeK GNjv7KOENiMBKNNitCyXwMAvFKIFgakA/HqqUOV2DAPzVjjE3YcC0MMevqKe YuC0+dmzUdYCUDvKb1NVMAO/9UfRm50E4Lvn05ttiftE1rkjLDJIAHIT1ihJ b2Zgr5l87vejAjDweU3S6Q0MXHT15FGHYwLw9aGrJ7tlGNi6SSFYOUoABoed H9gjzsBHzfyOtFwUgBYpX/lPT1njBnWegxvvCcBvdk5HE19Y45O8qjsb+wUg YAv63dlmjb9biHYpfxWA3qZSMmJq1nhnwti+M0MCcLzxus5BRWu8cWVhoP4v Aej8buDBgIQ1blynezlnXgAOGn0kU35bYTlDenMoVRBmP4j55X7bClcFONqu ZwpC8nXZ7YU8Vli9eFvbMVtByOdW91d41hKnzkixWncIQr3WwujdvyyxX2Sn X/weQRiUOf6vpN0SS11gXZw6KAhLc93cKu9bYq88r/qaKEH4TDHmS4O9JRbp O8EIeCYIdeKq6qYvWWD9Y/fFL78UhMVBErZbzljgA5Su1sIyQfhqTYuaY5gF LmHosacqBeGa/KeUk2zi/ej5RHBokyCcFSv4sUXDAuMkzxsnvgtCAcPqdf/q zHEEsh+PWyMEB/mO895ZMMPDdzek3IwUgkusAy6N2giPxX5d4D8tBHdb/V4K 3YDwtMetfT5nheC59euHV0gizCO/QU37AsHuflnSkxDLpClUVaUJQeVS10Ph jyHeGS8/OVwsBNW1Jjad2gRxufd6W/WfQrD8gGhHwSo6Ttm8llTqJAxrWWr5 952NcHKG17sDCiIw4Xt3SeSgJnZNYTeLjYjA/bGaza3OFDxvkbdws0IUiiUZ h7b7KKDBYbOIqngxeCSHpEFu0kW3TbVlmw6IQ8fgBnLGYYQenwuT9NZYAW3c VIfLFq1RvNPB7fwzK2DmiycKOyzskV7frfvxTSth8u70zcf3OaL0LTceN22X gHfDBxMqVJwQl2OVd9ZOAtZrJGtqbHNCOyqmM412SMBZByGeVLoTEthlcynP UQLC4Y4Ve5ycUFjkwuFTLhKQonLb4HKME3L8sHezhrcEBEd80r/0OiGxMKnc SzESUPNF1ULH+T0oujIxfXupBFwSN/qv9eNeNNpfmbJQJgHPkgV1gnv3oj1/ OMn3yiVglcPQJ6HhvUhd3/U8f6UE5FOWE1Oa34u6HiqfeFUrAU882lLBJ+eM dNLeuKm1Eee/wXx42McZffefkhOdkIAv9cTkSueckcPFjbKlkxIwy2zZOIDH BZXn713tPS0Bp68ulckKu6D/Bl+vfDsjAeVXu73fJ+OCoMsFnpNLRP2mJakX TVxQhoXSt1FhSZivurnUP9oF2ck65dVvlITn4wIMaP9cUPqQZqWbsiTcdrso 1V/AFQ09FuodU5GEx15vb74u7ooiYbnESjVJeMHT9mWfrCt6dEgpcpe2JLTN thMQM3RFIk+mHPtMJaG4GsVWPNAVvbNI4hnfIwm/ewr5ne50RZQVPrLRzpLQ Kik75V2/K3LvRPoSrpJwWf6nvOCQK5r1nfHTYUvC5zMGdoGTrkj5Mqsz/KAk 5CZ6Zg8KuaHYbtWCf4GSsO3Z5F9nQzeEAt65SZ6XhHxP5JXdr7ihxa6fVtUX JOGRvycerUtzQ8/MxXSOXZKEOjWKZR8z3ZDyWgeh/suS0F1uo6t8vhsSq+55 lp8qCbO1qXqMCjfUtXZcHN6RhK6dBjmNP9zQ1ViJhek8SRghcyNz6rcb2j6h M5R3TxJKgLt9Yhw3VFF9rEz0oSTMGdq0WvmvG7oTyOvdWSQJnZeO8w1KsFBQ jVRlwBviPBdvKpzVZyHVrQYPN2BJmG5sd0TEmIUGM1xS26okYZBEVlk8YKE9 QdlHaLWScMYT7PBksJCJ7Oa1Ak2SMGTD2M87LiwkFGwcktUjCQ/bV0XAEyxU 1ctm7+yThH7vz65WjmKhk1anGfyfJeFCS8oJ3hgWGpetkfP9SvjNCI66fp6F 2mrtG3R/SML9k4hqn85CN9d5bGyckYR3cwfVap+yEG2bmqbHHKHPfIr7hxfE eibXYH5eEq5QMQv5UErsfyxu+8YlSTgeVrX12Ruivo8PQiL5KHCdql7JygYW EvlxNJJCokB0KjnnQxML3Vk2icsnU+D831jHuBYW6lL7cL1NiAL1CooEu9pZ CMZxKtVXUqBQR7+X2BcW6sksr6+SoEBPx5fbY76xUOjTc23OFAoMjdw1OD7E QvlfVv+IXUWBTy5flX/0k4UkjU1W9stSoLTEwKkX0yz0bSKWnbiZAmMCsr2E +NkoUsDeW0mVAmsZ11V/kNhIev3q4FI1Chx6uDusQoCNbGzuxw5rUqA6zS3F XoSNiu80PTTVo0DzOmbBkgQb2b5Kff5JnwLFDveykyls9P3jvje+hhToRiZH y0ixkcy/qdZrxhT42PClKGU1G511kV78jShQd6eRQNI6NpILGuCPNadAVty6 xbb1bFQSly8uY0mBl2J4t1Pk2WjsKW2DFYMCNx8rWgjcwEZx9fxqfUwK9EoM cUxWZCOFr426IdspsOzuhuW7Smy0e8U+RrY9Bc7m7LB4uYmNxjdudtTdSYFL Wzu7nyizUYLxlFu9AwWWKLmX5KiwUbnP2cDZ3RRYqH3N6uAWNtoTbXv80h4K 3Hhn/5SeKhtNXlt1VtGZAuW3ePQuE7zx7b1UezcKPNGz9+BRdTZqVp+/08ci 9C8hPZfVYKOIVMbTw+4UeDt/MKuMYEWe63h+HwXa9T2T3anJRg2+Pz/EHaBA 0WKaeh/BoZ+MPksdpED6C6Mmdy1CD9MLY7c9KbA+N2Kpk+D3d3sWt3pR4H3P ypfWW9koREJN+I03BWZQ+pYeE7zuxMnVdr4UeHcuvU5Em41qBhs29R6mwNak Wll3ggPs1un6HqHAZ7H6U/cIXvPyiNmcPwXKlJRb/yC4SuH1znOBFHiRprVe XoeNjlwQ30cNJvx08Aq0JViay/a/FUKBqaEmJkEEv2EXnNQKpcBGx6QzFwj2 ebd8/nUYkadmmukNginaO9K3H6NADx4l/9sEl2fcvNsdQYEJBqorcwj2Ik0+ 8z5BgZRFvQ0pBEsEwLczJykQkzVvRRFc2pn88ewpCrywc+nSPoI90NcByWii H4QTv+kTLPZQe/zmaQocT2u+SSL4hVTMkkYMBY5mF1W9J+rZH9UqUn6WAr8s bmaeJVjkh+Jam3OEnm+3aOsS/NThqEpXHAXa2j2M6CX0Y716q+eVQIH+KvfW HydYYJOUBfc8BcrJr5UTJ9h1/tl+iUSiP5tdtqwh/CB5kAOzk4h+2aO29TLh X0GD0yn1ZMKPzIgLS4TfvDdnrzP+o0DXV3e0y4h8PBCyzu9IoUAbj/QTIgTv Dkl74ZlK5NdTe6WDGhvlWxp+On2dAkd+XKNiIn+OhQlfV9wg/GMmRI9uZqM/ a7onMjOJ/q321xIh2H7suFjpTQrUfByxS53I88zVV5ZTeYT/6/qO/SH6I3tJ dHf0PcI/o7zmDgU2YnixPMTvUyCt39c1n+inTKO/UVseUaCq+TVhTaLfzL7Q Sw4UE/PJCf/3lujPMebl2omnFGgRl7tvpzQbpT4daDv1nHi+R9bxE9HPP+NO T10vIfTpfpf7SpKNkjWqVFsrCL/qWXWrRIl6DN2EYyopsLzW57u6MJEXc+6I dhUF9pULuxkKEv3oopx3pYYC2zSCzdSJ+bM97oK8QyMFPj/k3By/yEIeV5SW eZqJfPBEHEHzLHQis7zvyQdinpy0c5iYIeZb8fh1iU9EXvtHvqtMsZDAgKNU SzcFvjPbKiw2wkLrR39NR/dSYLcB/Y43MQ91Z2I/avVTYD93KuzlVxY6KPoy 6fIXCkw5ffr5tj4WqjSQFd4xQvhV6BOYTczfk8mDf5u4FDjgl65q/JKFrt6I 7Ds1S4HfHlPtuon5/+Duqlca8xQ46B6f4PeEmNfl1hGJf4j6mveZH7nPQvo/ H07b8lHh0b3V6Z8zWGgShY40rKRCVakS23MnifvBTrz2pCQV1j6N0vU8xkLy znfvqFGp0ONkv4zBURayD+g6cFGaCjWWQX/JYRZ6mGHSZ7OeCvFttxXqxP3m xSF9rFOlQhkuuffDNhZyf2DRzFKnwgTfhkmkRdyPB2IbJjSosO/Jqaj7qixk 9YG/dpU2FX4JcfnrvIGFlB/yvTpgQIUDtx39jFaw0LAHT96CORVOrfum9G/Y DXm2/onYwqbCf045fmmJboh13ji83J0Kg6gW11/Eu6Hd8OTRHfup0Puc5YaG M27IomDRP+wgFZZeZJu2hbmhjRcWPLAv8Xspzle82G5oEM3ZuoRTYXxytdhF VTfkUTStcP4yFZrvvfa3udwVHYnZtWRzhQqFn8mWVD5zRWG7nnWK/UeF5Gwz 6bxHrihhJiwpOZUKcxpXv7LMdEUFRgt/0rKokF/RPu37CVe0gP913H1Iha+G R1Tv6rmi5FaxxOp3VOg82Csvc4t4n8v194mro8Le/NcR+9JcUG5oszmjgVif vONwWqILeiGdvNjQTIVv/xqvHjjugvpcqT6f2qlQyU81rcnBBakMrjX/NkiF K9of6Kr8c0Zbn52QuzNMhZ5r69ekcp0R7VzvwqERKkz75Z4699MZ2apkPfk5 SoWOwo/dr7Y5oxA/BbmpKUKPPAVVlfvOKNLkzEIxhwoXz0h9Uc12RufEv7WF zlBhc3qI9ob/nFF6Ye7F+XnCz8SX94YjndHt0yTvskUqrJmza3oa7IweOhwy i1yiQp4Xjy+HejmjZ4q16+nLVBgnYTSh4uaMKjjKC//+UaFs7J6xph3O6H/0 pLlR "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-3.3259627455478986`*^6, 7.654025705261322*^6}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {193.5, -841.0206518908569}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996204`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3k8VN8bx5lBizBDSZuQkLVUInHOkYRU9oRk37eZQdZRJLIOX2WpVNIu JC0kHNmyZd/TQkLWQRHld3//zLzer3vuc57zeT7Pc+8Vt/cxdiJxcHBUEj// /7/FtOfZ5xii2avFyniwNhJVtYsZnBE7CwqOTSRWv4pAqzVlkWJibkBd3Wl7 lFMEulWRsJNbLAhYxL7hHaq6hDw1/L1+77wKhOVuFHDHXUTty66pMzszwEGy sGq0aygKqBXdO/08E6y89bXa0xOCtv7X0TB59CZoPJeauqAbguxlIfmny22g 9s38MY9iMArM5S1md2eDaX+jo8PcgWhN/zfpyZ2PAV95tKDFTwbqqXjnPzH6 GOjJkLUWPBnoyYP09z+fPwFeIsHxD6bp6BT91Pnxo7nAWW3tVrhIQ9fXlVz/ 4ZIPPGOHxvYI+yLBm3Wk2e5C8OGtzA/HNW7obv1t2s+dxSD+wovWMLoFmk9/ Kfs5vhg4svU/2fSaIx2XhqG2pWJQsRI9maxthibIv81K2kvAhhDbuE5pY6Sq cerw1ehSEIjpq6e1dFFL/gpJerocfFnUu1SuwosEwTobPsUKADvteuOOr1ao S6UejnasAGsPh9zi5NiBE+cfzwW3VoAywckg6qN9+EByp5P9UwxMaqjvzn/W wuH18vr7zr8Hv8T8BeNqjPGj56+lnl57D0SyT4qNfjHBbela5N2N78EEZcHo 2W9TLOliUSqiVgUcSOvIV7aewfXky4ocQtUgRmj9s7UqVlhYo1/wY00N8Nss cOGSox2Gks7Tun9rQGx+jvCBLjvsxjvbULm/FlhXv3E6pmOPS3t5ol7dqQVp ASN2ieIO2D5A+fet4DrQfGzGj7PaEeflX+33VKwHord8BO9iFzwuOB6vb1cP 7H9tF0zf6IqlA/Q1ZVLrAZeP8yYdZ1d85wjv3aGlesAK2cL/kdsNp3yId7as bgAuY9KvGg6642b5yc2qiw0g1Sel6TnTHfOyTn7YJNcIXk8ExNjUuOPL5vzy raxGIGuUf13I2AMHDCXNHrduAnIxIwxxK09cqDOTvTupCawE3xGkZ3ri6ceG puTKJiAkyhGZ3uOJXX2pr8ukm0FEStgpbyMvbPk3JfTgXDM4wzfpQjvoja/b zikISX0ExypjL+R4eOP29yafZyw+AhVH382ld7yxQexGrdyyj4ByvEznzhof fJu3IZJ6rAVQBBpLvOt8sKZGiPVFmxbgcFagYHHBBw94yx2cvtACdI3c3x+m +mKRtriRxictwECizFf6iC9OTjfQi6G0gpubl1J74nzx3voV8d97WsGG6k+x l7J8cfNy7h+no61g3jto+EmBL15/ni/3aEAraGu/KR/R7osjdzfzr/a3Au2E g7WWQjQscYb5w2uhFdgkqaaJStBwRYxixQB/G/jL1r/qtpeGV34m0kpQG/ih 4rgr/QQNZ+4A+nus2sC3nQa0MAsaVj09LZHu1wYmmTwKk4407F94usP/YRuw cB3b6xNKwxuHV3OHK9qAAGKJREbTcOGmgiiTvjYwpbDmmWQKDU8FUg7t42sH deW5ghsf0HD8kwqBO1LtII+yJswhn4ZlB3xH+WE7ONt0teboGxp2Aa0ZE/R2 cBNXiJXU0TBH9q+S/rh24MpJz5NvoeF0ru0D9TntIOvqQZ9D3TS81wX9LX7X DgxsqDv7P9Fw3Qdn0cdd7eDJa9MgkWEatpWPB+nT7cDOL111ZoyGFxOf20av 7QB5ceXCDtM0LGO6ku10uAMINr8R2rFE6PNKvMrUpAM8dqjNdvpLwxZbjn8/ 6tkBRnn37zPgpOOZEE+e/VEdgGfojH8rFx3HDCZLS2R1gMmaQclfa+hYDL3W pb7uAOO17+ZL1tPxm3sDbhwtHcA0QzVDjI+ODXlIcdOjHUCD9LVaWoCOR12l cwc5O4H2yTSFVgodX2wwaGra2gl0i2MjdgjSsYgifap0fye4NqoWwCdExwWs NIFcg06w24hRfJdg3bnSvTecOgH7qdlKH8FfzL4ZxTI7gYSj4VQxwYFv1jCC 0jpBGI+kJiCYsk0h1bWgE2ws+JbhQcR/HGb88syHTrA5bCYPUOlY68uFLp1v xH6/ybKlRH59Wrd+H1zuBDlRUq+/EvnT71eK7N7YBR52F3E+56Xj9WtH1TYq dIHL5ueLZNfRcbY7nxVZpwussGSDTvPQ8eEm5VC2TRcYeeyztJNMx21KFre+ XugCOtUDn26u0rB7SlhZC6sLpPv7N9cs0zBpIftz+eMusGbPf/Ss34Qfz9Rx 5FcS669/95Wco+H67UJHE+a7gKdPhpAmUU/7cFXHUL5uUHuZj9Q+RMN/vp6L 8pDqBufDBwZFBmlY7uGjWj2LbuD8I2imuJWGq9Y1j6rSusEhJVF34QYatvac WycT2w04Rz9YSVUR/tynacBT2g2uGJXvcXhJwxNv21sqd/YA1cqST3apNHxZ dGn2uWoPmHxQftUjjoa3XxIVumvUA5zidmUrRNCwgY6bWXhkD+hvoV755E3D z1r+9ar/6AEdiS5LK9o0rLNfclmWoxf4vHnzs0+Nhgev6W3fuqUXVIhvFQ5Q pGF+q1SbRf1ecDed5DUiTMPe3/cMFeX1ggwt34DyYV/8xaZ3Lf7QC2Libytc 6PLFJj0xik3DveCS6dmO77W+WLXhR9D3rX0gTflg9/hjX0x+fp8iHN0HQrp5 2x+6++L0UHHNC+f7wfU7bT2by33w+l8tDpHB/WD+GrtfINMHh/lcvJp0rR9o r9btj/fzwfb2nzseNvQDHtPyY5tlfLC87i2PnkMDoCKH0/zmVW+MhbZkqFE+ gVCbgnUxh7zwgYS6smNyn0Bz+5Y6B14v/IAncNhI5xOQrSl80TPoieOXupTc Qz8Bkfo+6n+XPbH559SazNFPYGsWieXZ4IHHn1DmlysGQWzsbG3lcXe8Xvyy 9GfVL8D4z7ULSmQXXHckWYl57AuIm45gyLQ44ysWWYd2GH8Bb12WZUZvOmMS 681xK48v4ISFumr5QWf859+ES/etL0CkwpI95OiEfw6YPfpI+gpAlvyrqmIH 3Jguvaei8Stoyhc1Tz1qixMpDbJ3bYdAm8/hNVZkY2zfb1pObhwBz1dvb569 cwKtv/HVi9Y7AoYeFyuJpBigQkvv7Z9HRsCBX2f0PkScROS+6KASzh/A0Eb+ EbY/jXJ6SvbTDv0ANImhQPdEIzTSKfZoMPsHUNJTPzKjbobcWyZYxUGjQCPt LCPBxhoJsoKAdPQogMlkrZUma1RymmcqNXUU2J4+s2GjxjnE+3HnCd/8UZDy LiRKfasNym0y5pb+Pgr6I1NWTVvOo6n6N0GphmPg1IDxlehrdohWfdneR3oc bP9ks3Gy3hGJDuvw/No/DgYoauLKS46ogbTuSSgcB/Yqn0m60k5oN0yYvXp2 HHyLFD3zPcIJ9ZZcu5gTNw5CyTuHPx9yRqjgQVbv9DgwGb1ncy/dBVFv1PUd ffMT9Mxoqv3a747KimOZ9VU/QS/Jk3vSyh159BhIGLX+BMFm9Zp5ke6oelOr m834T3C5OuJUUps7CmL1LgZunwDpsgdMar080NeoceG8ixMg1NRXaCLDEz33 3WAiojcJLEXqzq+v80aNmUJBz8wnQQaL2Vb/0xuNVG29reU4CfJy0wSOC/ig rVv2/PQMnwRXGjKt6GY+6DI+FolfTgLPt3LhrEEfZC4Y/sJdYgqsXPS4/IPm i3yPXOldVZoC85KezlmXfFGsc8JqqsYUiErTPKic7IvKS26cKLeYAoIfzzvN 5PsiGYc3Q0JJU4DBCntR/dMX/XkxK/RueQrkBe8QqLemoY2Di2rG66aBvrbx YX13GlJcy2H7Q3gatOiGZz+4QEMO1vy5VOVp8CVPY818Mg01cslpO7tOg3eX zoAvVTSUZeboJ9A5DTRL9sst7qKjN+EemTnfpkFGQNE9VSU6an9Mr1CbmQbp o4sTpofpiCsc8hRyzwCrnLjPYoZ0pNp+ynhAbAZIlL5o4w6mo7shHuN7z8yA 3Lexezhr6WhvxbrF6HMzILOz7KzTRzqq4HrE/dlhBojk+/Q+7qajLwnDYgm+ M+CPwr2q9h90JHrn3JmxqzPAhpuOnvIwUN7wsiNkzYDsIr8hKj8DaezJpKdd nwFep3d0WGxiIOvCroRj92ZASpZsTvQuBsqsOl11t3QGmEus2e6myUCy66Za FytngGTUp1Nt2gxUfDL+8+kPM8T7nWrfthPE+3xX3Z+/nTPgdFUkyfAMAwmP oX2W0zNAt/NG3xFvBnqg8EXz+cIMIHncpj5mMNBBOtNg7coM4Bg6+3IhkIFM l0tcXq2dBScerDXcG8lAKXwHsgQlZkG3WoSK3HUGkjBue+omMwsuFJ5VuZHJ QM+v+xZXKM6CXcf48c8sBmrZ+azDW30WuFZwXlV8yEC2jie+VaNZYGqf8VHs KQNNPxqb3q47C+CB8hdzeQzEryzF22A6Cwo+cbupv2KgrIAqEQkr4vqZXO2C YgZSeGsvFWQ3C9aN/WzjfsdABtq3kbT3LGC/6Nlh8p6BBmI0TjP9ZsHHYuUR /RoG8mjqt+4MngXOwuGBuz4wUKy5SGBk9Cx4UtgtdKGZgbbeeBXVlzALatQK 97BbGOjxZ9P/9qXOAl2DbbtOtTOQquTcnZjMWaC1rZ0nrpOB6lyT8z7fmQVL u9/1P+pmIItnSqUqD2eBCN+XRw97GejHbNOHhGezwNbZyT+6n4F4QtZ/Vy+Z BSuRP/eMDzLQ9fJH7JSKWXAvd0LM6wsD7eY6zjFeMwtyXhsebP3KQEW63/lQ 0yywc5/0Fh5iIO2EyG3p7bOAFFDSeWSYgTpaxfdM984C5olWmvZ3BnIQrlDR +TILeGY8TyiMMBDb0kb71giRf+uY+2+CI26vGM1PzII1mdU92T8YyHDvG5rc 3CxwYBpLKowykChmJNsvzYJTW75xZBI8YaT0PGN1Fjx0aAkYI7jk23hLCzcb 7PZIS9w2xkAxjAczazawwUm5j4Z7CTbnsqcAQTZIdlaokSZY8tqOvQEibPAh POo3J8Hs3b2nn4mygatJ3WQZEa/iVarPsCQbTFO4Cm0ITjxumLRNjg0ubnQ8 +ZXIz7qHN994HxvEVOz9oEOwrFtt89VDbOB35qNiEnGexaWIqQoNYn0nji4h zl8Tq8m/eJQNcuoffKoj9End9kdBSZ8NEg+oHS4h9LPPfXnS2ZANWiwMHyZ+ Y6C9GjSvW+ZssJz1WVGH0Ptfk3xChzUbLLj/6vvymYEabUZzeR3Y4PTv8pc2 RL0yp+81arkR9ytFfigfYCDXi+cngnzYoC8uW4yLqK8KdduG5/5soDp2o1qO qH+bcsqJnRFsEAtu7tpN+OXO+5Me5jFswM6RYv9qYyBv03VxCYlscDszWS2X 8Nv6gIv1y5lsMHJR5TxuYCBU7K3X84INDpDLYVoF0Q/6sm4CJWygtJJKuUL4 faDve4xOBbH+5+kiixIGClyxritqZAO3z18fPH7BQAXgxPHk72yQcHPx6nIO AzFbeFzqfrKJ+lbrrb9L9Itd5ZXVWTYQN/mk+fcmA41GqNV4/WODCFLwclIq A4nVSB/T3zwHzpz12O0ewUBT5kOOl3bMgczRmYUbYQxU+iPr8ptdc0Cg6ahD ITEfLNYJV0ntnQP8Qu16CcQ8YRlwHSXrzQH0Sb5yxYKBONq/wNLgOaD58vmV ZhkGujxWdjf40hzoqhfcUinOQOs4bpHUYuaAwpDAhetbGUhQ4WzVy2tzYH+v xdevvER/RLcezy+YA34Hu6O4J+lIX73yVPbIHEg+uEk8+TEdNRvdybednAPd e9MvZt6hIxNXJmXn/BzQr/YciUqjI+trh9tucM4Dfw/fzeQoOvKeLjS7tn0e rBE1M8uwoaP/7t2zjjGeB7/nT9Qe30BHIiWX3umcnQfLe5JcQzjp6GbLeVFu 23mg8E7aKeUXDT34u+3LJa95UGs4Xuf+hYbenEl1CImZBz3zr57WFtLQAG+U u3fZPBjcIV5wzJiGpPycA01lF8BkqP+9hVBfpHD4s8ntvQvA7byB+UsfX3SA w0JpXGUB2Lr/vmdj74u04vVGwo8ugJdxPLbex32RTY686VPrBaDhdzPpMsUX Xe9gK5GSFoCjQfEhdQ0fxH0w/Ef+3AIQrp1vljL3QsMLaea8734B19lL+gwh N5SN9jM+vf8FglXeP/jz0xWdT2hOyq//BZ7UvF45W+WK+iS5P5j0/AKss89D 7vq5olYTuvrNuV8ghZ0jZNnugsqeG4gpyP4GFpxpxjlXnVGaF+f4qbTf4Mnv kZCD/Q5I/7t7WAptEdQ9/M7ppWmNTg2z5ERF/4Avz6b51nIroPH39hfrni0D jp023xLiTLEitWvH0fN/wfib7Bndwy54PViwG5j7B1YGgs0mNWg4EMmsffXn Hyg9MEJaMqXhkaNWeUmcq6Asu9TltwcNV+riP1oCq2B0vS9nYwYNBxsn/PdY dhWoGc5sb5un4Z9Ou6sD7FZBO9dLd/CIjhvjzWSoH1eB/Qp3FB+XHz6cFNM8 3rkKTGUCrx/f4ocfJb/1qxpYBYUDfk00RT98+bo4vjC+ClZb9G2uW/hh0ZZf 8tMkDsjbPzS1I9cPd/VWVpuJckA76nZxYUN/fHzS8reEGQcsd2gU2hMXgLM2 RraHW3DAQXH/tPFbAXhe/Wn+gBUHZL/ZfzOzIADfiV12uW7PAT393/+o7gzA f6Rv9qzz5YBjw6mVx3dewLn2n4pnYjngTG5VxnjeBUzpOR9aVsEB6w9s+wYr ArHzarTFtioO+O2ftUpRSyAulSo4EFjLAdvTn0ps/BqI3fw5Jvc1c0BJp8bY DM4gXCl499z9fg7o8phOKUZB2O/kN834XxxQnPxnWLMsCPdUOnJaynPC4eTG b2sfBeMZ1Lc1TIkTHnu2co3nZTBeg08fuKPMCY/z1i/O4mCsUn7YZUSVEwbM Gz5I7g/GqW8pTfRjnLDjYsx/c3wh+HRRaXqcDSdkFMoGqPmEYOf9yoV5dpyw 20Mxny8kBDMLHza0OnLCt57ypI9XQnBuQcq/zR6c8N/6iDaRrBC8/pmrY84F Tpih4SlV1xCCa+5v3PuOxQkNysc3Je4KxYOSsXpf/uOEJSH1g0qKoXjh3qo9 OY3IX85WrUw1FEtmj1/Tu8UJHYVokXdOhuKIrIrlzsecMFicFh8cEIo10zxr pyo5Id6w+1FYVSh+GVNlI7bACXUe1l6INwrDj/QbRKIXOeGda9GXbS3DcOaG trbJZU6YbXLo0XaHMHyR9VnnLYkEvdcMC530C8MG6X8UzSkkOOM3eTPhWhj+ 9nDvapwcCdpVKb660h6GO90OFbMVSRBqD8f09IXhOjlNxlllEuQRGlykfgvD z/JP/JBSI8GshTep6jNhOPC180esQ4LjkfUrrrxMzF978/ZvOxJ0vXO7RUqD iTmv3jtr40SCP/jKLaa1mHhe/4lQtSsJpnh/Fr6ty8S9za+jU3xIUHimfUeR CRPndLX5KISRoOl2+9cvXJk4Lb13T+pFEuyT+Hz6pRcTx1p+GfoTSYKeXJmz t+hM7DM4eaYulgSn4irVJUOZ+PDIWuiQToKCv55YcSUyscIjgT8fbpDggLdD nkYKE4u5CxftvU2Cxo67v527zsTcU7tk/t0nwdlRrj7jLCZuWdCkZLwg1lcN xfE/Y+L3r4/Vr74iwUsuW12YBUz8KsjgsnMJCZ6YzV/teMHEN/6eXdyPSfCX fLCFSgkTO3P7f2luJsHpaX61D9VMvHXnh+7lVhI8VTnsplXHxM2qOz7KdJKg SPi94Pv1TKziWf0uop8EdXdr7t3zkYnHo7a8zB8kwVgHr496rUycddsrd+Ar CZrtkz9q2s7EPO2bbqiMkmCk4LVbUt1MXDLhluLwkwTTA1eZUz1M7M1TdpU1 RYJs/mDZO31MLCEmeOndLAmylq/cUh9g4i4158DxeRKkL77srPhE6GlS4rN5 kQR3G+W0KH1mYk0vfhftZRLU+bISF/OFie/feWWWxUmGeh/6D//+xsQWJetP NnCRYVfC8h6+YSbe0GGjvbiGDLecfdOy4TsTV0wWqu/mJUPBXA6FXwT7rVmz 35ifDEujW458GGFiGXEr2XAqGV523/cv6gcTDxzOF8/dSIYdJw/7yI8yMcuU vKV3Mxma3hNILCVY2/sMhWcbGR4wHrJQGWPixeina/aLkmFu0XxTBsG5d1f/ nRcnw73XWD9HCLZ9a/IrXpJM9Be1YMc4E2/sfDhZLE2GedsGt2gSXDe1PDwi S4bJPp7SugSHrjUcEFIkQ550zW51gvdK5LTDfWS42XVYegvBw+qL9V4HyPA/ weXNX4j46WYGlZmHyFBZWuEBi2ADnzvFtYfJcDpJuVWWYI6r8wXzGmQokNiS lkfkX5St+0gckaHc697FbQS7lt68fUqbDH3YCnN04vzbu2auhxwnw3v+JVEv CH1aprUTH+mTIawMyv9E6Hd5XUZU50kyDMxm+MwSeqvumgwlGZGhqtS7qqkh Jp44gvyUTMlQ505gXidRnzvm1zysz5Chwr1OuQdfmdjUd8z+qiUZ7vlHOWJL 1HNtrIblq3NkKFviN0gm6l16L9loyJYMu4UtBJMJP0h2q0ENFzJ0zz8i70r4 p2cm4ZC7OxmOnVekFhL+il//TTHNiwy3p16M+t5F9LNG7I5ZBlHfA2+2riP8 +ejM4EbRC2Qoeur34aUWJramKW84EUyGM5r6Y23NTFyV0/cn5yIZuqr6TGsR /g8sU2S3RpKhdAX5eG8tE8v3RIz9u0KG/4T3yZ8l+ieVV67HIoEMrXrcb2+q YGIHesjLDZlkeCinSv5SEdE/yoMv99wiw1nrY+2M50y8ng1f6dwhQ/WdR0cN 85i4gMbz+uIDMuxVOH2+/iETr/gmv5kvJMPxmgtJJRlM/HHv/BvqKzLcZGz1 moOYB9kz5sWKxWTonydpvI+YF3q+20tcy8nw4ObwIaNYJr7u8/DtQAMZTnFH JbCCmNhNaX3pUjMZClsHOMr6M/GRac9S4TYyjNJ79jLPl4mHvJXfGfaQYfDL kIYAF8Jf3u/KqobJ8KTW1h9cpkz8wbMd5/4l7t/9QmTrHia+Ka9S+YGDC273 EzhovYuJfSfSK0fIXDDxqPpQzA4mFva0eS+2ngsWbAxeuUtlYnuPsapUYS7Y 9sfpbPtiGF5xW60NVeKCr7dJZBx4H4Y/7rGvy1DmguJD5+rFSsNw9lhV3auD XFBkIrTgd1EY1nOL/TCjzgX7ll/fd3oQhq+7bmpw1OWCKce/MLViwrCSi1yz gR0XfGxV7UzSDcODbjt9njlyQZlDVc+HNMNwvKcQhd+VC+ryaErmHgzDY7Rl o4/eXPDgvDuLLRGG74U2dBqFcsHBltB/ZiuheHOKxyfzNC4IDy7uCXkSimtS zzNfZ3LBf/89ILfeDsV+aSY7RbK4YIRN+yn+a6G49aa6XW8OF+TaqnoKhIfi uIe8360KuWA3On85xDgUr5Y+nbBt4oLnxHXS7eZDcF757QTcwgVNn3lQ942G YOvK/xQlOrjgfUey2Wh/CC6uDfEd6uOCk9a1JvzvQzCj7cS80ygX9GpjDqiy QvCPHz+X3cnc0HdvTwGfVAj+KCjP66/GDRMfbiaNgGBiPnqN3TjCDQcb3+aW 7wvGebV5tZWAG8bf0iNF7QrGiaH7LlN0uGFMRmxtG08wNhhR+fvUmBvKgHLv kMYgXF+Mpr95cEPHFylsHtMgXG17pt0wixtm6z9fUjENxAfepj+/cJcbtuyY oPx3NBDnbOpLysrhhizxvOf9yoH4cr21wcQTbji6/2CeMjUQax2wr45+zQ1/ 6Xu6LzZewBVrvF6XtXDDHvuF2jF4Ab/Ni7ghT+aBA3k2TTe3BmAeA7OtaTw8 cDS05B0HTwA2GpPO4FzPA1+1BXCfnvXHP3Y1Xe+i8MAWu8baJ7X+WChjc8pF UR7IjMQmtgx/7BGZG9OhxgNHNk0lNdX44W0WXf6hvjxQ7HnXSbINA4dwyho2 fuKBN2dsh9MMffGINm+P1FceKNoypet2yBcbxkycvzTMAyXUk7tlRH2xpEC+ j8pPHmiw0dLwe5cPbtx+IOnOIg/88pt/i9N6HyyqqtnsJ7QGtnj3nRt098KV 3sYGO/TWQGuRE4aBgu54/UCwrnfRGtjoE3U/huSAvz8QT70duhbOnBzZ9BJr 4VSZLVzFZuvgxfQJ8tIRC8TKdK61E1sPVYSaZpWueCLL1HPNG36sh9lpSerB zgFoUfv+0u0yXvh3XfCmh9RwNPRdK7AyegM0JluVnrCNRNka+7Y12fHBEpn6 vEeK0ajy1PrIZUc+WFi9cPWfejT6dn5ofI8rH7Q0MIUn9aLRrohrJVe8+aDs 5VSJTodolFOzdBaG8MFdn9YtJaRHo/unK9NfpPLBdW5pHbc4YtAjOxPhzFo+ 2HQpcJG7IQY9i/KnuijwQ1Kh9K2w47Fo4si5iKi9/HBWs+nJDeNYJD+vPXdv Pz9cyNDUeH4uFj2x39j5RY0fHs6j91QyYtEj8CLdUocfXuM8AMNvx6KcpZmd p87zw54Sy6wzC7Eo08tT8WAyEb/rsce5zDji+8r0tkkqPxzYqXjTNicObRlQ p9DT+OHfSJ7rlnlxKF2fl513ix/e7V5pVq6MQ9ekn7yUecIPWWtuv2aMxSHW 1x9Htr/nh7QDQsHKKvEo2szhBHmBH+7Tu88fVhePsk8PWDstEvv599nxtcWj Uj0z79plfqjP3sif0h+P2BrHk+NIAlBGm2keOBWPrKXkuoUoAlBJ8uT4a6EE pPybbS8pJwAfN0gc+2uVgAbTI4KP2QnAwbipIfpQAlpKWY576CgA/c2ORF/6 mYA2JvjdWucqAMUNRgoj5xKQ3iXniiZvAXjFxzbWnpyIitz0ecxDBeCFTqf4 qxKJKPawYIpzmgCM4bIMv2CTiA4O3H0c3SQAOXv/ST1uTEQURdfF/BYBaPY0 2Sy/LRFNhCse72kXgDfNNUhPehJRzq63wzJ9AjBrIvh96HAi2ujRsbN+RACm Nt9wSltORH9CySd4OChw7dv6A7ekk9DofWd6JicFliYXSI7JJ6Gu5g8ZimQK dEuu0t+jnIQKxVij5jwU+GpwRfrKkSTkXrX9ysMNFJi+TfrZc8Mk1MurgnW3 UOARQxuJxoAkVHMgY3RgKwWqM676ng1JQkXnVgRo2ylQNPxJQV94EmLlV9pk 7KTAO0VHf72JSUK6JqdXxnZT4KPkgV3DGUnoTabroThlCtQz8Q+bLU5CD943 2Ow8QIGGXHdIpe+SUOqE4pUXB4n8qYZqwTgJ+WoudPSrEvmcffK0tS4JyXy7 RJcHFMgvsEZ1oisJpe+58azpBAVuDdya2TiThObndO5HnqTAyMXbXpT5JHS6 jH1T7TRxv/Bs1LHfSYjHRD/+vjEFFurY0SP/JiH/0CX3sLMUKDHQMPCAi4Va dO7b77eiQGUNtQw+HhaSpxpZjllTYKhx2XfPNSw0fP+RnpktoRd9u9Sm9Sxk /PGMjIILBYJ923k2CLBQXgZZbMiVAqtfSnMforDQOsf8zRnuFDixOTfCkspC FYs8a7i9ify9Ls/ECrHQ9veF/0p8KLCpNnkgbSMLBSbY/PKlUaBOa6zmrU0s pCTx6vuAHwV+1m61St7MQrETdp9SAijwq8GU4EURFhp5xdepG0iBU/D6IZct LJR1wqmqKIQCVVq0seg2Ftrgv/FefAQF3gLjN5VFWcgVVGRqXabAYwMi0cME v1/nmbIYRYG08evNiTtZKDjr/SXHqxTINZXu1SjGQl2uPkFb4yhQ/LUSPi/O Qsr7t9Fa4ikwP1Pd/SfBY7V02yMsChy1/130U4KFtFNELdjJFChf2GJsu4uF 7ljXn370HwVeYtM0mwhekQo4bnONAsWmfvkrS7KQxaw42JhGgXnHmL+TCC56 26RSn06BJNoe/J1ggStBihczKbCmfHvr/t0s5G64W0rlJgWqWYbvDia4Zmvr jolbFNiBQkrfECzxPXRT9m3CP8YaqdMEh+XL8FncpcBhuPBEVIqFeoI6uPjv UWDt7c5/xwg+oH1x5X0OBYoMCCU6Eczil58PekCBg2DUPIzgnz3dP5UeUWA4 O+FMAsE69yKHvj+mQNclrcRrBGd7KfXfeEr4SVV36f/871B/m9EzCqxnfL2e SPBZUnT9mnwKlD5l5hROcFGjcuW7Agr8dmLS3pVgStpgMaOQiNe2kKBHsKdd 7PM9RRQovKdsWILgOjmVx59fEvoGpTvNE+eR/PX1zrXXFCjU1stfRnB4RUL6 iWIKLJLoGwwnePxTRepSCQVWJFXKqxNsvjzHelhKgU8+941MEXpiEekEszIK zJ7I4L1BsLyK5VVyBQVe0ArKAASnmSREPccUeGrnQuIAUS8SreLS+fdEf/nF j9MI7nkqFfy2htCnXrg5iqj30Q9nA9zqKPDHvk0mXATnjcTTN9cT9R04phpC +CNKfM6d0UTon0DfYUz4aUZTykX8IwUqPEzaWkj4zdr6rMPHFsKvMuL09QQr p5VbyXUQ88GZUy5nBwvdKmKf6e2kwDH2lavft7PQ2rbdptHdFBgYPXVkJ8Gf N8QbDPVR4NL56ZshW1lIX7ZcN3mA0EerUyeL6IdXx9naYJDQ100FFhP9Eh9h oXHjK6Fvu/j2HmEW+n07Tk1viAL9U/hX+ol+s39XdvD3MAVKpahL9RD9qLYo qWgySvQHTc20WJDoN69ZUd5pCszVSZ0T5WchozjJbcUzhB40QPq+gYVKH53Z 7MIm4sepGt3jZaH/ht4JvF+gQPaT00/XrmMheDaWI2SFmDcy+koBZBZ6GvBu ReYfUV9S7M5/nCwknDqz2LVKgZJDnTpMDhaabDafVSZTodk9fc/mP0koU3vX t/F1VDi3I4n9ajIJcdubD6bzUuGLV7M8+uPEvAy/2qfDR4WasicCm0aS0PGS 6bZsChVOF7x1u/+ZmI9Kpe8tN1OhZ3PJ6YyWJHRym9n9ekkqtLlQEZKUT8zT YcUKKykqtMyMf8N4moSGn63tn5Am9ns8BvQfJqFQWEoRkKPCau5emeasJJTr tCvUZB8V2utt0NyXkITWF8waD2hQId/BsjMOLknIPKjBywtQYbLZy7se9kko W+t+zD9IhWofD0o4n0tCap0WZWLaVLgp2Llyn0kScv1TvsdJnwrTbS7a7dJM QrXaiRxT5lQosSZQ1YeahAT5XbeFW1BhmdYBn0zeJGTTjVQollRItSppfM2d hH65LXgon6PCB5X1i3VLiUgqybo7wIEKf+4N/af9NRFd7pXNW/Whwtjvx7fe e5aIkHetFfUqFXrb3T8+p048P3vGdKpiCT2mNTaX7See30c3KF+IJ86j3h8T KEfE22K09lMSoXdOjmHp1kS0oaqv6NF1KrzIOO4WvpiAerZM8cEcKvxTonB1 riAB+VZvrPAup0J90f8E/9uUgGT3Hnoqjqnwrc+rPiPeBDSUefZ6RyUVbm+x 1ubgTEDmvlmeh2uoUDzi1V+5iXh0ZJvMFp4mKvwsF7uxHMejtTR1+q0+Klx5 9eNYh1s8ur3dXrJxgQov/zyZWP4sDh3eL6do/5sKX+owNI5lx6EOvflDi4tU 2Oz1vLT0ehxae+HKCckVKnTLlFK6FB6HfFuf0ENJgjDxXcm/84ZxCF6Zq5AX EITjRvUKAdOx6Nv05XMJMoJwpEJrZMOuWCT5/uH1U1aCsHDI9uZ+2xjULL+Y M2AtCLd+MPwXYRSDAq/rvnC3EYR9Dc9FqrViUIPb2McrdoLwVGc8U3x3DKJT 5NaVuwhCtsvSMfWxaFR+Li9EyU8Q2tf8jZv3jkaWi0W2lARBmKuZK5jgewWx FCpl28oEYfyCfPaAwWX0SNVqXUSFIKxj5Jg7qV1G5Ufnf+yrFIRaZR4Sn3df RlNnpe4nVwvCGpXdAg/+RaITV2J3GjUKwovy4o8v5Ucins/GG1t6BSHHuheG DP5IFMIa+ts0T+THGSx+Dl9CznNcrR9khaDqMy7vqMUwZP+cLXY1SQguXtgp UMGkI88IkxX9ZIKPrtga6tKRv0lR94b/hGABx9k31VQ6ilnwT2RdF4I533Kf n8+hoTy1peW0W0IwXmqLq3GdL1rCq10PngrBmHmN3HBhb8Rq25BQVSsEH/FF eestO6PMe16uVz4IQV87U+b3aGd0z6/5qG4DkY/lZtfTG53RK2HWn4ZmIcih HKSXIO+EBiyFXNs7haDYUlldkaUDkh7acvTbEHF9b6RlltV5tLcoWDTnO8Gi nCIF3jbocFT/ktMPIWioqZZld+kcMpC+VTA2LgRZkzqU+/etEN1DTHR2VgjO uL0bLho7g0KPXFoqnCPWo5ewcckcRfF96/BbINandF+MWmeO0vPvxS0uEtz8 sGxQ2hRlX+RyKfkjBKHZiWPhKiboqZGTVuiKELzozlVZqW2MiiRqdmj+E4J7 Bd8FPTY2QmVzUkurq8R+T+Oe77c1RP8DzWYEwQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-3.2416898463973586`*^7, 6.774105432052878*^7}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {580.5, -841.0206518908569}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996204`}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8lN8Xxw2SdRCVSkoJWUvyJereq1BSJLRpocWSFKVsFaXIUojITrYZ I9sQklwzZM++JcqedWxZ4/f8/pl5vV/Pfe4953M+59xH0vKu8U12Nja2HOLn ///RTyy59t9wO3KQ/ih30b8IMZt2GpzbeQFQt1Qu8a4vQmvlxc937rQBJ46T FQ4/+4yiSwJ2rNvpAgwG/W+vuhUiu8NOd+Z3vAKKMWNm1e75qGnZOoS14z3I X3r6Sz+bjh5+k9g3mRUBptiznhcdpqOtb5urx49GgfHt1fzqVTnIUg5yjFrF gn92WFNvMBs50/gKptsSgJ3GXxArl4XW/+iVGd9BAWfJiuLry9NQe8kXp7Fh CuBmuF76uUJF1ORwxmgWFQSLmXRHHqSi046nr44cpQGVV/t3faOlonc8he+G rDKAhwzrTEBWEtoQVcE+1ZYN6rf6xYZuiEPL5DzKPa0cwHrYKeNQG4P6PT8Y seJygNCShflBl2iUZ/UkZtKGDrZ6ni+W+hGBLh5QPTSxnAtuuFeviVaEoviq WIfRHQXAV5k3duK5D5oNz5Xr8S8AtpEHkmQEXyJdq+q+xsUCIK75/UlP/HM0 xjFvWthUCK5JLKX/9/kxUj98+tAr7yKguu1j9WjOLVSfscIuM/kVkEvd1Gu/ PMQbAM8VAaUSsKfq+G2vUlesKR1yyPtGCRA9vZSaVfAEv56lzLg2lIBHyZrz feA5Vg1quWmZhsHBYwkbKHm++GmVgv7+qwzgEsFxBqmH4NSsT9JpoQzAPGSQ /2NdKG4M1+bYU8MAJX9MaLb1oVjK6nyRmAYTkO/HHXQzD8NVHF5KbCJl4N6X 3/cWjCLw7AiZz/VEGYii3eCp5IrE2xvfD808LQPJJwrffiqIxPfiMuKGxsqA 3KTZN/bN0XjT4R8bvpeXg4Vz6a7dGbEYSt2aPP6vHIRZna8JlYnDNnxT1aUH vgGGzpRZj1McLurgepEX9w3MWf5RuEmOx5YPVeajXSsAl6rb8FPlBPwx49UP O6UqYHs5zYRHNRGPbBjx17eoAp+3CryXvJ2IZR7qH5ENqQKPD2wMk4tPxHFa fPF9i1VAro2kuok3CQdX+t+6WFYNVHnlMr2/J+E6hfHN6gvVQKft+OsLq0mY L/BU5Ub5GjByKeWHnEIy9jIjKzQE1oAWX8+lRq9k/LDvzZSeeS1YFy166bZc Cs7WZSXseVML3hmtNNqeScGTFCMTjtJacOBO8dyjRynY+p7wp2KZOjAiu3Kw tCQFX/wX7H5wpg5Ic2YJ6R1Pxe+uzSiKSH8HZW9aLvVbpeImxtke1vnvQNN7 26bol6nYwFdUm1b8HfjEmIRZ4VQcy1f9XFinHnDtmox/o0DBRw67mXtcqQe/ j109/p8OBXfZyx+cfFQPvvp6pa+/TMFijX6DNdR6cFD0g8ZeXwrO49D6qsms B1lsXLGPYynY5OBYGPVnPeiZnAEkOgUHhRuc8BFqAFK+rdFRnRS8r2pFcn5v A2iX2+r3aYyC65ZpSzePNoAn2q9EuVcpmPeqAO3owwYQs3zmhJEEFacGfvHK ftMAuO5ybz6pSMW6pXcuS1IawDHP5DJPTSp+vqeOvPajAaiXm8ynmlLxrnNP hu7MNYCK/vnXURZUXOKjVNJFbgSZC9R9jXZUfKWwO/ykbCMovOxoefIRFa+M vnYoRI3grX1sKo8nFUdsB/p7LzUCh9KGF2RfKlY3nNwV/qAR/LFecL0UTMWt HrHLXK8bgZn02fXT76nYKduw2SmlETR9vJ/aFEfFov1rtP6SRqDw+0gnKYWK szdmvjjb2Qgesk1sekKjYiO9a1dKZxrB/Lhg24ksKp5wFvpvv0ATOGzhG3Qr l4r9qSWCcdJNQEIy8nNLPhXLdd0bJsMmcPlQR0X4ZyquEJDEjy8Q6/9Tk8/6 QsVWoOH9mGMTgKZrxju/UjFbwt/CH35NoHKj67UBgsM5xbuqEpvA1sqSJ7wl VLzPCv0r+NIEeL1OcwYRzysqb0lQWpvAymMJXddiKr6m4A/CJ5tAr3R62Lci Kl54nXXNm7sZzGst6rsWUnHgVKvnQ8lmINbrlfn2ExXLmqwk3DzUDJoyzDZv pBN650kyTc42A62apZq1DCo+v0Vv4KhdM/i68ny7aRoVs9zsuA68aAZmBf5n NyVTsU93kMyumGawDajnHyP024k+HRf+1Ay64w+8/U3om/+hy4atvhnc+5kn N0HoP2wtQ+smtQCzoqm4S8+p2KPaoLZ2awvoedDB+dWVisWUHCeKDrSAG4Zp ymEOVHx8pmhf5M0WkPsyvJl6mYp/mfae8X3SAljUmxXDxlTsnL/+vktYC2CP fPYwTo+KKY+Nc89VtoCuPOsBT2Uq1v71qFW3twVMrPMW/biLiju1o+cPLreA gMfxnec3UjEv97CGqGIrUL63sqC0SMG2wY+L6wNbgXOCa81qIQWzzyX0fKW0 ggjnF3yISsER5yrYMkpbwZMRxjm+9xRcJS5yNGC2FVw6+SVfy4mC5VNSv504 3wbOwrt5KrIUzOSpG1Z3aAPDF148axGhYHO7GR5Z3zbwpl/TlWctFfvvP2LA VdQGyoIkLfc2p+Kxz031pTvawcDr82zWLqnYS2JxKku9HbhQr+/IsUjF4p4S IvFn2sHUv3yV8BPEPNC1MX36vB0suQZ6qoql4vT61Q7NoXbwZVnjZVNmCrYf 2NtH/9gBUi227Q6tT8a/rnRw48oOcED2SeqjzGR8tt1Hqba/A9jtUSmce5OM 1auHXAa2doIjNjEhlaeSMUdWktAm707Q5f/76AwzCYe7Sx55dPUH+OOtPWaR kIixyJb3GkI/wYYc8fUsyQSsGlBRrCP/E1wNM9z8fj4eJ3M595/R/QmGwtw2 c9TGY//FVmVb95+AGuEiK/EoHpv1hJRHDP8EgdeKlgMq4vAIVWh2uaQbqDV3 051KYzCvpJdMj/ovoK34Rf7y73BcoRWk/ETnF5gob7x+zDscvzwf8992419A muE3M6MQjtkD8/Uu3f4Figpsm7IeheGl1TGrtuhf4Irz4P563nd4tMs09Tv7 b8BdbONZK/sW14TL7C2p+Q3ae7Wjdkb44tdC1XLx1/oAKz9Kvi7lHC74b3vu afs+8Iuv/vPCiTO4/8pdsOLWB6CdR8jpHzpYM13E5FxYH2DjHiGLW4qj4RPm jwXq+oDRUEXgAbFL6Ojz8e8umv3gr9vPQU/T+2hhTtDJeNMAmEmNf5g2/wLt 3m65trZ7AGw+ES42l/8SnT5Gf5W+fwB8nHKfrHDxRknB52O4Tw2A1szwnPVL PshYOf5b8fMBINjR/zV91g+lW6tslZ8aAEUHN+m9GA5Elj9MvnLUDIKCJ7IT ewLeId7I33ccOgYBJdgiRLbvHcq+aC/eMzgI+MKfC3eohyGOTm+XQtIQkDt/ YQT2haHE9sIDDv8Nge2HR4a3qL5Hgy07U7sThsDJvKNbb5ZFItv6scACl2Fg VK1vJ3cmDm0IdAEy3sOA+qvY9MHDOFRoyDUREjIM/rQYbPOPjEN833ecvJcx DLrLrA2kBuIQrdZ4nczAMChSth9lOcWjiap8lxCjP2ATx8O4qoAE5FDmZXlX ZgQU3zzQujM0EUn063L9PTACzJQVpXKyElE1Ow/VHY4A3yGt56J1iWgPDJh6 dWEEsPdJLh3lSkIdhaEeiX4jwP+1i7/xgySEMpNjOiaJ5wf9uzbqJaOJOmvt aysjIPnzZJfftWQUOS43OMg9Co6RDmp+d0lGc3IZirOSo+D3jUL6l7RkREn6 VEQ2GQXJ+0QV/hNIQcKRFZ1H80fBa3k/Sd/yFFRc4PukijkK+AfCyDVdKeh2 u8GuMw2jwK6sZ0vndAoq29hgc2VkFKjwHtG/KJGKXAI7FpzFx4DQ7KnrfxxT 0e8XI5s+eowB3cWVc2obKOh1Iq1QNWAMlBsg6wN7KEiTYX/l8/sxICWSWLr8 HwWFss0kVWSPgb+DOUoT5hR0wm1Zta9/DNx7KT18PpGCsu7xnxU7MQ7oZmoI 7KWimggRl3SzcdAGnc4dPkRFg8ytsdo3xoEK/fPEij4Vbd2yd9Tu6Th4OHgx oOQ2FXlhnec4dxy4zdtKXqBSUcyoAcWMMQ58ikYbLQuoKH+jyffR+nFAblMc U6ygonEby22bxsbB7vbnxtwDVGS24WmO7a4JIKjWzKrdlobuab3sWFOeABSX qz29smnI91bAWsjhCaAhzaZZcDANfS2MPPn1/ARoSFg4Rj2dhmSv5/eJvJkA eZ1XBWIepyHtgK88lKgJgB/OVxX7pCHzT+XKR6gTQJLtmFj82zQUxNfiZl02 AbxK8tyoqWloKWdK5MvyBLi6ekml4XsaEu1e0DDmmQSqp3vU1trTkBI327Wh TZNgw6XPPJO/09B1czJNWGUSWBz+gURn0tCTlxsbk8EkeHW57fOJ5TQUnim+ oHlqEqyGRioiDhqq4ZQ/dst6EqDBu9IPN9DQoJKK7bLTJPik/LgsZwsNsV3Q CAx8PgnSi0/65+ykoYPpel2FMZNg/6U3ZYuKNBRjeuOBYMskMIlxvZ2gQ0P5 T29HJPZOgp2Z/lXT+jTURHEs0WBNgioFU+Y6IxrifAq5stexwCWTtor7F2hI WPTYe3d+FmBz+TNbd5mGJCh6CnoiLECtt1gds6Ah9abTxl07WcB6sxHLwYaG dKyNB5JlWOC+2uZ/7XY0ZPzP1NlBiQWelQwoc9yjoavBF/i0DrJA5s3aSJYj DdnJXI7h0mKBk7xaJvFONORSdG1/gzYLJKku2210pqGXZ24wI0+wwAE35SUD VxoKGbQ6d8uIBf5MnxM67k5D8W63R/adY4HSmFNMric0tK+EZ8H7MgvwuXaZ OzyloRLO1HU911kg0PKQS4oHDRmd0BVRs2WBl1rK8hRPGvoV0L8z4B4LtL0t 83r4jIbuNT5T6n9IrFfTDxd8TkNrmyS1NB+zgGT9SecHBL++9PVE8HMWiPCK +C+JYIm4y+f+vGIBfn+9P/EEf+xfvgEDWSCjLjHOluDDeyMcw96xwKjHMYc1 Yv+aO+oeE1EsgL8u2F8j2Dy7NUDnAwsEKDalBxDxjP19EBlFYQHxN1La3kS8 bpoilJkMFmiwdoeniHx4PbLy9PNYwCEq9UvPYxqKYBoy44tYoIIrt+4IoYcc z0TDQikLcEqM+tgSehWc8u8xrCQ4sIF0ndDzeLDcePJ3FpD9LW8o+5CG2lsr lv61EHrxLb0svE9D1tusuE27WOCGuPPXLQ40NH913SZaLwvMt20X1LWnoU1/ 0P6LkywwHj10msuahpIVfx3JmmOB0LO77kTcIPzn+MSAe4UFJvWzVpev0ZDJ cqFVHvcUUNrj3ClD+KkfXHASEJwCiVahJtMmNHTfa/7ZjY1TwGSiPt6X8F+w gGrMhl1ToEysa/MePRraZdyYZiM7Bd6vM3GU0aahrHf3CkqUpsAZ8iGOBS0a qt+R3myvOQWoPmuKnCo0RFaR5qs2mQLCQqJu1UR/xDxkiu26NAVa/m6/pC1C Q4qfLaVdLKYAl4qttg8/DRkci0Uy9lOAU2nHW89VYl6YiTk/954Cgsv+RxR/ paGtkXkvOgOmQIp3zfkdRD9Tekze7g+ZAu21e87/Jvq9wjroY0/cFKg68M25 pTgNcbnxDmgWToFNgfX2nhFp6FnsypnZsSmw0XKrCvuJNGS0L99BfmYKDB7y MlI/koYk8P0gy8UpQIu/x6Z9IA0V9o7U16+bBkphWX714mloek+HYbrENKjZ nRP+c5yKLGm5p24ZTYOhqbdnG72paN9hhzvRZtOg6mtcpaErFa3WKgQ0m0+D q126xQl2VBQx+aFG22YahD4s+lBpREWNKsEndzybBi57Qv5IbKYiVGB/oj1n GtwVE5LijKIgsr6cjWDhNNgWd6Z12I+CujoHfHRLpsH9//aIJblRkPOKeQW9 ZhpY6Wg2JV6koExwUi9oYBrMbJ4eYW6ioJ3lMjr6m2eAZkiUZLJ3KmJr+gWL XGfAj4J8n0GDFOT1pzje1XMGwGaSqoZaCuJhi2bX8JkB2/dfeWOxIwVtULzA zA2dAdzZpzepTiWjPd4NehmZM0D036+0geBkpK9ZejphcAZknsx9k1SXhN5+ +GDuYzwLcvZWVk/LJiLpB7ecTeTmgNzfPSMD9+OQ4qGes7H75sAW+uvLhmZx SJXtvPKI2hzg6lgWilWPQ9r+JwafHp0DVJ7Byr7FWHQlUcEkzXwO7BLY9K+J Oxa9a55WZn8zBzh7rOfebo9G6w4+HcqYmQMP06YGZ6Xeo/65MDO+L3/BKpiz sS0ORPoDto+DHRbAzgD35FMVt/Dp/kB5CYklwGNYFy/79h0eYVh6VKQvg7NG 9b2QLxHvCGq3fU1fBkZnpmPvKydikyunTU0+LwM97MF4ezYRFy9oyP2qWAbj fS4xkZGJOFhRuHm+bxkIc0yfLpNLwpphX2Vktq6AnnH6pSs6ydjfVvz7i5cr oO5tQWekbSpWEm7dfvTqP/DPceXYuTs0PBgw+Cz05j/A/FlLzX9Fw9G880ND t/8BPTNHYfZkGubnFMv2d/4H1HWnXQ26aXjk7wXd1qB/gGu+e6HoVDpO6vpp b8P8B6yPXKj8K/MRi6cOfH2zdxVYbskKlqrMwM1Sf6V6lVeBrjd4Zdabgf3i uXxV1VbBPPe+Z3eWM/BShIxJh/YqsC3XE07alInbA2yGd5mvgpAv5j9+6mXi t/fHhfJerwJahQ0lLyUT84I5i66ZVaCtfz2qyDwLOyNZ7rylVRCkO3zO2ToL Dx699PENaQ2Ank/5ux5k4dLjeElbcA0kWmYcOuqXhV2NA95S5NZA/prHfFZ+ Fh69uafsocUa0DcYN9QSysYXrc/fNrIm+POWv11bs3GFrZ+w3N01cOacov/t Pdk48e7U5Z/ua0Bmq8ll40PZ2Nzly9+j4Wvg99tuO53r2bjG31RW+PsaCBRV 0c/PysaH3vjUjbSsAaG3jhsPfM7GqUGfHzC71sDLLZ5Kkcxs7PVOEj8aWQNa dnukDrRlY4n6vwqT7GzQOOeNmOdyNm7tKC0zlWCD0NDkcADMwXrjF+d3mbJB 536uPfJFOThG9HnT0/Ns8Ir7xfHtjBw8q5mW0XWJDXK0+Gb8q8zBcb7LVu8s 2aDI6hcur7YcvCQT1c5zjw3WXP17PG0qB9MsfxawfNmgR+/uyCu76Jjdd927 U6/ZoLWfAIeELB2fz1J0pAaxQfbQWlKVIh2vY3sidyOcDaaKu6YPqdPxlWiJ yLYkNthTw7ZH4zQdC7VfdS8uYYNFESa8+5zo+Naa9/ltTDYoxzN0M8+Fjouk M1Wdv7HBzvZRrr1P6NjGiW18fx0bXAk7v77pJR2Xboi/nPSDDWa/7fXWCKNj sUOVGuw9bNAAZ4VIRtKxvcXUxqu9bNBPtJ45F0PH2zJRndgfNujGVHlqmUzH D071HvH/ywaPvRycMqDTcdUD3m1/Ftlg8Wu+j6Gf6HhnlMq8zj82eL8v+25V IR3XjjzLWOMgwUyxkbn5EjqW2pDmZ76eBOVbW3JYDDp21WiyKuAlwe6gZZuW cjqW9tm9874wCSaW2WRb1tCxe8bJle+iJHjNI+wI33c6bmy9364gRoJpeZV5 sQ10/HQPM3BQggSPOZZe9W+l4/bSG6SLCiQoFe2g96CHjlmoc+tjZRJ88baD euE3Ha/HhqpxKiRIanr9TLGPjtW+HrIaVCdB7dfHvOMG6fj0kUwPHi0S7G99 lwmG6fjmlz0RCoAEt6506Nb+oeOQz0K1jjok6OV2PSdnjI5ph14Ohh4nwSVJ y5f8E3TMKFheyz9Jgvv+K/16dpKOO9UdtnSdJkGj72uXX7HoePrToMraGRI0 Kf5wNX2Kjnn+MzfYZUqCCSFHGV+nCf3yGm7qnCfBwkhP75IZOjakF4X7XSHB 1NE4hYA5ot4HVLI/WpAgU5eL78JfOn6SnVLdcIMEzVjCOiLzdBy6f/vArBUJ 5kcldXwmmJYZvLr5NglOJ2Z8M16gY6Yyt5imPQlqcsiT2wn+8fHx/isOJHjP cAft5CIRn+KMvucDEsz7HBeXTjBvuvWNxEck2ChUP/KP4F0K3Y+/uZJgILXz ldYSHWuknQ0beUyCxx8sudsQbCRXmSngSYKHBpwYXgRbU45U7fMiwZGVWPPX BHvI0vvOepOgO2jXe0lwWMrefw99SZA329fLjuCP0rGbIgJI8F+r8gZEcHmS 6L4vgSR4iWrA4iC4W8r3xK+3JPg32lEil4hn7sOaJUcYCZaFgigTgvl3O7lL R5CgeP9lm14iP6mEkdAT0ST4W8frxRWCtSSvZdjFkeDHbidWBaHP2biWijcf SFDpIDtVkmDbHSd7s5NJkEt5XbY1oe+zmJLlFgoJSgtYcccQ+kdsV9u4SCP2 sxJPx7N0nBWVpiSeSYLjctJxTUS9KrZJHgc5JBgVFPS7iajnr4h3FpZ5RHy7 nB1KiXovbOF3e1FAgvO0NcNYwg+C7z1DUotI0Fr74mNbwi9Hwuy+TZSS4LDw 67Jqwl9mm3p/CZeT4IcY7t8Wo3R8J/TckmolCX5pCjcYJPwY9VZb0e07Ce7l YGwsJPxL35CvG9NIgqvVVx/wDNBxdZDiNdxCgm0NxOcd4felN2Jv13eR4NCH G08DiP7YIPiaJtdDghS1y3LvftLx3tcc5ad6SVDdT10u4Acxn/wnFt4OE/2K ++R12+g414d5ZeccCU6GMYz6a+k4Vb9azHuBBA93FybLVhP68Dc2ji8T/WvL j85XEPUO7NH9zM4O24r7jruU0rFB+JKSmRA7jPvE1lyaS8fgIulPkQg7bNo4 62qRTccq4twfdm9mh4kZag9GP9Lx5riNm6e2s0Ndqc6bOIWOe1P2rfnJs0Ol QpdnTuF03GLzX8G0EjvcF2qyYB9C6C9/5P4FFXZ42sGr8WwgHadnnByS1mCH OpvFinu86dj5063vWJcdqsqRvrA9pGPyt6jYeQt2qKATOWBDzFfSqw8Xrtxk h8th0zNbT9DxrD5VpMyaHa73Snr36Sgdd9R98g6+yw573+um5BDzObG18a7i Y3YoqTp/6ZMkHR8a5IbXw9nhQkidC2syByumCi5VRrJDEbPEd+Z/cvBO2030 fbHskP+Mkze9Nwevm9gtu5rEDlfM18/LtOTg+rkjQu9z2OHoVYU32wty8K11 Tr/q6tjhgFJUt97jHLx1R2XbcgOR/08H3kWnHFynvv27bAs73GS42h9un4PV 7Mq+PPvBDiu3/P6UeDUHczVtjFQbZod76rHxOHG/JcXlmcaQOOB1oZR7umw5 uF9zoeqOKgd8prkipemYjcNNDUoj/uOAZj7nn1VbZ2ODu3EF3w5xwC3nDfed vJqN6QnHUyURB1y1FwoVMyDuV573L1pOcUDxoCN7xqSysVSbBjxsxQHvqvyO cmvKwtcd3XL5IzggKcj6l5VUFlZT6c7dG80Bbfzfk2W3ZGHeaZinG8cBj6X/ +NsukIUzHbg+eSRzwKArs4IC85l45V5Q/mw2B3x5hH/H14pM/O5uyueuag64 u0ghwcgmE1faNWHaPw54bWVANPdIBla2kq8zsOCE4SbhB6/iNNxts+Nu+g1O 2FzUyr43Pg3724kIka0J9km/0OSRhv84LJ/5bs8JD9Wrr1SCNPzBvbrljDsn XIjHnqiIijcH3/5pFsYJHdfWqd/JoOC1orSxa7Wc8Fjaq+jzT1Pw9w0KfE4a 62B24PX88qoE/Pnjs0gFDi7oM6jMqbIYhN1IckY1P7lgpmy50K0zDxFvl+tx e/p6+Ov9JwUlsRg0kCwZEuvODR9dDfFSolJRiOwWzgJTHphG+/Ch4nEOCoy4 9c1iJy+Mm/g5sNCXjy6GXK7jH+KFD1aFo8iUL0g8h3fb7RFe+KJy5NnFoi+o p+GTVeU4L/wwe8zo/fcv6IbgBtLLWV5I2s+ynpz7gux9yw+skfjgT69U8RVU jJ55KL+fEueDo0qdf/3aihHFjnSj1ZgPyspXbZZb+Irs/D5mqprxQfKEDa2L swQpUS/9C77AB02C1VhRAiUoeyj3neE1Pjgg6nd8/Y4SVGRpW1lxhw/+bdsZ 8AyVoPrzTUqfffjgq4uJiwIvStDCsaTF2GI+aPtzpPAUF0bun2OfMzEffLHE tidcACM2lQiBP0w+WPqi+/EPUYzW73gjqVLNB2tiuP4Y7MZo06LzCWYbHzQM NpDsBBgdSDd4P8wi1h8/ty7iEUb2G2fV9+/mhyLfrULe/MZo2m+i1FSaHyYP bxmcGMLIif2PgetefvhbkBWiO0GcP/nzGkOZH54yjl3oXsLIr/Kbj6kWP9Q9 3nYlR6QUpT6ObHcx5YdMo8tDg0dLUd+AtnOpNz9Ud7secimmFGnH1iXI+fHD pPUcP/cnlqK48xdrg1/zQ48TJm9WKaXoSrXDruuh/PDk6rC4W24p6syMq+H4 wA95dAYM2WpKUaPb6k6dYn5oxu3GVJsvRfsP+p5Mx/zw3rZgU4eVUhQ4sfHh xjJ+6Lirl5RAYqDTForVA9X8MNV73/sBPgaq0jV3etnBD7kpiUfmdjBQqXBh 5bdZfvhXRNtURZeBJKt1ZpUX+CHpJJdtjT4DeXg1SIQv88OXr1WMzA0Z6Mj8 8H1rdgH4q3P2yeXzDFTYtVmCR0gAOvzzHum3YaDsFCdHfXkBWPJ9VIHTj4GE LUjR2UoCcCVm5uTiawa6tzXg21YVAdhlcn6+L5iBlAISxUfVBWDezdje9xEM RHVsKvfTFYCvKrjCvSkMlHB4/7ZaCwHIqXNv7lYZEe9p3ufLNwTg3dYDlm4V DNR7tW9kr7UA9LA65vqymoF2PwstfGkvAFcvVsR6NDBQYvniBegmAC/VBttw /mQgZlsjtn8iABNlfnTU9jBQ/3Da3mhPAVg9VdUV0MtAUnxXFhe9BeBPp3ev p4YYKMmwNDwnRADaL9qe1ptmoPJrkWy9YQJwqd2CrWyWgQYdHlgLRQrAUX5D RY15BpIOkVa/Ey8AfYbdxzhXGCi53bdN+qMAFKoQzty7jolSLc5uivgmAHPK lNqTNjJRhaPCk4oqASi3Vjj4ajMTDT9fN/i3VgAmFJQcvbGFiWSTP+WebRaA Bl/ju5fFmYgyss1U4LcAtP7+4HTebiaqWp4t0uwXgOIudt4Ge5hohL9OynaI 0Je+caldmonklD1my8cF4Pj768+a9zIR9X7/W48lAcjg3NJhqky87/Vl+eM/ Acgfk/4+eh/xfui76z/ZyPDHLxmPH/uZSD7/+IFD68lQNkYlV0OViQwqJSOt ecmQLWFt9cJBJrLrXGIPEyBD+nX5m/fUmIi2QmucESFDxujRx0/VmahG4OWh XZvJ8ApfgJyzBhONSVxNMNpKhr1R4yO3DjGRAhJ2TN9JnJfQESmtRexvPNLx YzcZGlz47T1PsN11BuKVIUP59YuPiw8zUfoLJ2ErRTLcWen+VAkQ+2ldfvZi Hxke3th9uplghdljMx8OkGGdy9Cze5CJbqcp3ChVI0Px5sAtHIjI31K05ZcG GU7mtQj5EzyyZUVnTYsM1W7n3uLTZqK9DX152yEZxrBUtngSbO1TLaN1lAzR qon0OMGpICf8oi4Z/sch7W94lKjX3wgelxNkqC9DP55KsMzHZ65hBmT48qTw xXmCb920Hc01JPLjPVusdYyJksWNzZuNybC4MPi+M8GDTRq106ZkmHd7/BGV 4D1+kkeEL5Ah78jzykaCb2jzZCibE/sXu96aIjhxkbXj9FUyHFJcMuDSYaL+ zPZAO0syrNdUchMmeLd1CcnvJhmyU3QnNxBsuSPVkWJNhhJzD1N4CU5ofdP3 7TYZzl/5G79A7Pc74JHJoD0ZSg2sdXURvFPnahmnIxmG6TaafSL42oqu2m4n MtzOkSngQ3BsjlIKcibDv5d61k4T3G27SeyaGxleNKHK8xMssWvV58kTMtyY feXNVyL/yx0Di1GeZDj+79ReG4KjAmttP3uR4XGv2nlugrv0cn90eJNhpqna Ygyh77a1KIMFXzI8rTcgL09wxB07pYNBxHkFkRLSRL06pUxiz4aQ4W5890cI Ud8tXZpCjmFk+GluF2ORqH+4Pt/0x2gyTH3yhz/5CBO1kWYsa+PI8G7w0O1x wj+bCjqbRj+QodXZiEk5gkNlqLmyVDL0WxG/6qPJRM3dQdJ66WQ4ODanl0r4 U/SdS9jNTDKsiAw1LCb8G8x5wiUhjwy7l27k1vzHRIG/h7TEGWToWFyY43iA ierDv6cfKifDm1ukbx9VYSJBo08SFyrJkPlURY2X6KfXxS/Z3n0nww2tfSRX JSbyj9zDFOwiw9zG+yd7ZYl+MRY4qNRD5C8U7nZdhon4eOeSDHrJMAXK53YS /e3rzPR+NUyGNaO1IG0XE3mbXj/JMUeGD99IBzdvI+pr2GV+c4F4f+tHvW5i fhSdMLX/tkyG0PGURhcxX6YP6wX5sQvCdcmnqukiTGQuLd8mIiQIDdc1e7Xz MtGjnYnDTiKC0Pnbg7nn3ES+W7cvtW0ShKtBaWG7uZjoG1lwe9R2QVhhuHYb kJhIZX7aUkpeEFpX3zzw5y8DnZq6/eClkiDctfBJUI2Yj9aj/S+G9wtCL5qj 6KMpBoruaU2lqQtCuR2s4JZRBuKuKJxQ1RWEUaxOPc5fDNQd/sxVx0IQLtk6 YJlyBloMXvZLuSEIK1+9ysorZSDRgAfRPNaCcL10xmeNrwx0wvNWSa29IGTu 0Nsmns9AdBt9LjN3QUgua5o9Q9wfvoc2BN8KE4QtjUf8PV8R81zV70NFhCAU y/NqPPOCgUqUOHPlYgThvSutezd5MtDcrr9tE4mCcP92MV43Zwa6xte5/VG2 INRxjfXOvcVAB7viKd61gtAuIlVrHDKQkJL1Qka9IGxX8+M+q8VAY0+V9Nqb BOHxdwfsPv5H3D+7P/fLdgpCicCPSzpKRPy3m3dUDQrCcMGdqgtbGWjJneMk F5sQfA97pWymS1EHnxo+vkUI+rHtOPDkfSkqV30/3LVVCLpRcveHvS1F9Msr gg7iQvDvUGRdUgBx32eUXnm/QwjSutUHPniWouNnDVf+7BGCoQeZb3fblKL8 COv//FSE4E7Pifv71UpR+N7I9NqTQrBp6y8O/wqMZmd0k56fEoI9Tw3tv5Zg ZFg8HaVhKARnVMNKB/Mx4jqr759kLARfa6QpClOI7yH3RdvHF4Sgctbq/hYf jIy/n5NVtBKCxtUm0tt0MeJ3Ev3g/0wIbkY5zpRPJcgalERoewlB19kulvnH EsTgsQteeCEED1kZvOBMKkGuMQzPG6+E4Mefn3n3BZegP98cr2kFEue/Ofl1 4XYJKt/asH0sWgia74qMMt5egp6WBISfLBCCYl0L1+9OFKORnyUhi4VCcOFD hLV+RzEyW54JTCkSgt1ntgkIMouRgtrFVxwlQrB9xfuE6fti1J4m7fq5XAhq 8w2It2oXI5Wwr5fkm4VgwsCu3PSgL2jwzpQE36QQrCoWm+qUKEKntpkmVUkJ Qw9qn6DHQj4K71cquSQtDI3OO8YV9OSj/nTuH2MywpDtSQf5d3k+codFQoLy wrD/mHL0Ykg+ot3c7X52vzB0Pvl4r/G+fMSbOWXcdVgYKmw+eiP5+if07dhr tgkzYah96dfs+i+5CNl/uyT8ShjS6ot2yGtlo1hxS6maOWE49oD652HAByTF SHl3+tIGCNdt1ljYZo8CFUvlGos3wMBcO7NXv+LwrRnOhko5EVgu/MbypVoO tsya3vnqjQi8/ltWvCf6C7Z7dnZFP0gECg+iSVzzBTudpbfxvxWBn32VeVOW v2CfOafXge9EYBN+UPHoQjH+qLG4HBYtAs0alLX2b/yKF/Faa3KaCHREoYYu uiU4sJE/gPlNBO6LKioKKsY44sMd65eVIjD3ZpyZaCvGHx7UHT1eLQI3BJxr fjeOcd6mwKXqOhFoUoSNI8VLcddFEeumFhH4YSUHxLuWYpm+LUd7+0Tg8b7d f8PUGHgf3VUicUAENtbx8ImeZuBDL34s3hwSgRePC1i8ucnABjLRmX9GRKDd lE/K8xAGdry9U2JqSgQaWZQ9tZhmYHctz8XsGREo5C/6tJWHiV8I9DY/mBOB D6lv7+hLMnF4xge/hQURKLBFaFLJiIkTPDitCpdE4DU5zzuxVkycduamtvuK CIzK58kmP2Vi+q7y7UdWReD3E9ey3d8xcfGM9OLamgic3HDoxp90Jv4fNFlk hw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-6.938835924537028*^8, 6.801423025520327*^8}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {967.5, -841.0206518908569}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996204`}]}}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.472217260421875*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"p", "[", RowBox[{"m_", ",", "n_"}], "]"}], ":=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ SubscriptBox["l", "m"], "[", "x", "]"}], "*", RowBox[{ SubscriptBox["l", "n"], "[", "x", "]"}], "*", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.4368003351875*^9, 3.43680037175*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"valores", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"m", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "12"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.436800375703125*^9, 3.436800403671875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "4", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "36", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "576", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "14400", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "518400", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "25401600", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1625702400", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "131681894400", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "13168189440000", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1593350922240000", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "229442532802560000"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.47221736959375*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1672, 933}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, Magnification->1.5, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Report.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 538, 11, 748, "Title"], Cell[CellGroupData[{ Cell[1130, 37, 324, 8, 124, "Subsection"], Cell[CellGroupData[{ Cell[1479, 49, 458, 14, 141, "Input"], Cell[1940, 65, 1798, 38, 775, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3787, 109, 407, 9, 162, "Subsection"], Cell[CellGroupData[{ Cell[4219, 122, 549, 17, 141, "Input"], Cell[4771, 141, 69, 1, 81, "Print"], Cell[4843, 144, 69, 1, 81, "Print"], Cell[4915, 147, 69, 1, 81, "Print"], Cell[4987, 150, 69, 1, 81, "Print"], Cell[5059, 153, 225, 5, 81, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[5321, 163, 619, 19, 186, "Input"], Cell[5943, 184, 224, 5, 81, "Print"], Cell[6170, 191, 230, 5, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6449, 202, 484, 11, 124, "Subsection"], Cell[CellGroupData[{ Cell[6958, 217, 234, 7, 141, "Input"], Cell[7195, 226, 324, 7, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7556, 238, 372, 12, 99, "Input"], Cell[7931, 252, 67, 1, 81, "Print"], Cell[8001, 255, 67, 1, 81, "Print"], Cell[8071, 258, 67, 1, 81, "Print"], Cell[8141, 261, 67, 1, 81, "Print"], Cell[8211, 264, 68, 1, 81, "Print"], Cell[8282, 267, 70, 1, 81, "Print"], Cell[8355, 270, 70, 1, 81, "Print"], Cell[8428, 273, 70, 1, 81, "Print"], Cell[8501, 276, 70, 1, 81, "Print"], Cell[8574, 279, 70, 1, 81, "Print"], Cell[8647, 282, 70, 1, 81, "Print"], Cell[8720, 285, 70, 1, 81, "Print"], Cell[8793, 288, 70, 1, 81, "Print"], Cell[8866, 291, 70, 1, 81, "Print"], Cell[8939, 294, 69, 1, 81, "Print"], Cell[9011, 297, 69, 1, 81, "Print"], Cell[9083, 300, 69, 1, 81, "Print"], Cell[9155, 303, 69, 1, 81, "Print"], Cell[9227, 306, 69, 1, 81, "Print"], Cell[9299, 309, 69, 1, 81, "Print"], Cell[9371, 312, 69, 1, 81, "Print"], Cell[9443, 315, 69, 1, 81, "Print"], Cell[9515, 318, 69, 1, 81, "Print"], Cell[9587, 321, 69, 1, 81, "Print"], Cell[9659, 324, 70, 1, 81, "Print"], Cell[9732, 327, 71, 1, 81, "Print"], Cell[9806, 330, 71, 1, 81, "Print"], Cell[9880, 333, 71, 1, 81, "Print"], Cell[9954, 336, 71, 1, 81, "Print"], Cell[10028, 339, 71, 1, 81, "Print"], Cell[10102, 342, 71, 1, 81, "Print"], Cell[10176, 345, 71, 1, 81, "Print"], Cell[10250, 348, 71, 1, 81, "Print"], Cell[10324, 351, 68, 1, 81, "Print"], Cell[10395, 354, 68, 1, 81, "Print"], Cell[10466, 357, 68, 1, 81, "Print"], Cell[10537, 360, 68, 1, 81, "Print"], Cell[10608, 363, 68, 1, 81, "Print"], Cell[10679, 366, 68, 1, 81, "Print"], Cell[10750, 369, 68, 1, 81, "Print"], Cell[10821, 372, 68, 1, 81, "Print"], Cell[10892, 375, 68, 1, 81, "Print"], Cell[10963, 378, 71, 1, 81, "Print"], Cell[11037, 381, 71, 1, 81, "Print"], Cell[11111, 384, 71, 1, 81, "Print"], Cell[11185, 387, 71, 1, 81, "Print"], Cell[11259, 390, 71, 1, 81, "Print"], Cell[11333, 393, 71, 1, 81, "Print"], Cell[11407, 396, 71, 1, 81, "Print"], Cell[11481, 399, 71, 1, 81, "Print"], Cell[11555, 402, 71, 1, 81, "Print"], Cell[11629, 405, 70, 1, 81, "Print"], Cell[11702, 408, 70, 1, 81, "Print"], Cell[11775, 411, 70, 1, 81, "Print"], Cell[11848, 414, 70, 1, 81, "Print"], Cell[11921, 417, 70, 1, 81, "Print"], Cell[11994, 420, 70, 1, 81, "Print"], Cell[12067, 423, 70, 1, 81, "Print"], Cell[12140, 426, 70, 1, 81, "Print"], Cell[12213, 429, 71, 1, 81, "Print"], Cell[12287, 432, 71, 1, 81, "Print"], Cell[12361, 435, 71, 1, 81, "Print"], Cell[12435, 438, 71, 1, 81, "Print"], Cell[12509, 441, 71, 1, 81, "Print"], Cell[12583, 444, 71, 1, 81, "Print"], Cell[12657, 447, 71, 1, 81, "Print"], Cell[12731, 450, 71, 1, 81, "Print"], Cell[12805, 453, 71, 1, 81, "Print"], Cell[12879, 456, 71, 1, 81, "Print"], Cell[12953, 459, 69, 1, 81, "Print"], Cell[13025, 462, 69, 1, 81, "Print"], Cell[13097, 465, 69, 1, 81, "Print"], Cell[13169, 468, 69, 1, 81, "Print"], Cell[13241, 471, 69, 1, 81, "Print"], Cell[13313, 474, 69, 1, 81, "Print"], Cell[13385, 477, 69, 1, 81, "Print"], Cell[13457, 480, 69, 1, 81, "Print"], Cell[13529, 483, 69, 1, 81, "Print"], Cell[13601, 486, 71, 1, 81, "Print"], Cell[13675, 489, 71, 1, 81, "Print"], Cell[13749, 492, 71, 1, 81, "Print"], Cell[13823, 495, 71, 1, 81, "Print"], Cell[13897, 498, 71, 1, 81, "Print"], Cell[13971, 501, 71, 1, 81, "Print"], Cell[14045, 504, 71, 1, 81, "Print"], Cell[14119, 507, 71, 1, 81, "Print"], Cell[14193, 510, 70, 1, 81, "Print"], Cell[14266, 513, 70, 1, 81, "Print"], Cell[14339, 516, 70, 1, 81, "Print"], Cell[14412, 519, 70, 1, 81, "Print"], Cell[14485, 522, 70, 1, 81, "Print"], Cell[14558, 525, 70, 1, 81, "Print"], Cell[14631, 528, 70, 1, 81, "Print"], Cell[14704, 531, 70, 1, 81, "Print"], Cell[14777, 534, 70, 1, 81, "Print"], Cell[14850, 537, 71, 1, 81, "Print"], Cell[14924, 540, 71, 1, 81, "Print"], Cell[14998, 543, 71, 1, 81, "Print"], Cell[15072, 546, 71, 1, 81, "Print"], Cell[15146, 549, 71, 1, 81, "Print"], Cell[15220, 552, 71, 1, 81, "Print"], Cell[15294, 555, 71, 1, 81, "Print"], Cell[15368, 558, 71, 1, 81, "Print"], Cell[15442, 561, 71, 1, 81, "Print"], Cell[15516, 564, 67, 1, 81, "Print"], Cell[15586, 567, 67, 1, 81, "Print"], Cell[15656, 570, 67, 1, 81, "Print"], Cell[15726, 573, 67, 1, 81, "Print"], Cell[15796, 576, 67, 1, 81, "Print"], Cell[15866, 579, 67, 1, 81, "Print"], Cell[15936, 582, 67, 1, 81, "Print"], Cell[16006, 585, 67, 1, 81, "Print"], Cell[16076, 588, 67, 1, 81, "Print"], Cell[16146, 591, 71, 1, 81, "Print"], Cell[16220, 594, 71, 1, 81, "Print"], Cell[16294, 597, 71, 1, 81, "Print"], Cell[16368, 600, 71, 1, 81, "Print"], Cell[16442, 603, 71, 1, 81, "Print"], Cell[16516, 606, 71, 1, 81, "Print"], Cell[16590, 609, 71, 1, 81, "Print"], Cell[16664, 612, 71, 1, 81, "Print"], Cell[16738, 615, 71, 1, 81, "Print"], Cell[16812, 618, 71, 1, 81, "Print"], Cell[16886, 621, 70, 1, 81, "Print"], Cell[16959, 624, 70, 1, 81, "Print"], Cell[17032, 627, 70, 1, 81, "Print"], Cell[17105, 630, 70, 1, 81, "Print"], Cell[17178, 633, 70, 1, 81, "Print"], Cell[17251, 636, 70, 1, 81, "Print"], Cell[17324, 639, 70, 1, 81, "Print"], Cell[17397, 642, 70, 1, 81, "Print"], Cell[17470, 645, 70, 1, 81, "Print"], Cell[17543, 648, 71, 1, 81, "Print"], Cell[17617, 651, 71, 1, 81, "Print"], Cell[17691, 654, 71, 1, 81, "Print"], Cell[17765, 657, 71, 1, 81, "Print"], Cell[17839, 660, 71, 1, 81, "Print"], Cell[17913, 663, 71, 1, 81, "Print"], Cell[17987, 666, 71, 1, 81, "Print"], Cell[18061, 669, 71, 1, 81, "Print"], Cell[18135, 672, 71, 1, 81, "Print"], Cell[18209, 675, 69, 1, 81, "Print"], Cell[18281, 678, 69, 1, 81, "Print"], Cell[18353, 681, 69, 1, 81, "Print"], Cell[18425, 684, 69, 1, 81, "Print"], Cell[18497, 687, 69, 1, 81, "Print"], Cell[18569, 690, 69, 1, 81, "Print"], Cell[18641, 693, 69, 1, 81, "Print"], Cell[18713, 696, 69, 1, 81, "Print"], Cell[18785, 699, 69, 1, 81, "Print"], Cell[18857, 702, 71, 1, 81, "Print"], Cell[18931, 705, 71, 1, 81, "Print"], Cell[19005, 708, 71, 1, 81, "Print"], Cell[19079, 711, 71, 1, 81, "Print"], Cell[19153, 714, 71, 1, 81, "Print"], Cell[19227, 717, 71, 1, 81, "Print"], Cell[19301, 720, 71, 1, 81, "Print"], Cell[19375, 723, 71, 1, 81, "Print"], Cell[19449, 726, 71, 1, 81, "Print"], Cell[19523, 729, 70, 1, 81, "Print"], Cell[19596, 732, 70, 1, 81, "Print"], Cell[19669, 735, 70, 1, 81, "Print"], Cell[19742, 738, 70, 1, 81, "Print"], Cell[19815, 741, 70, 1, 81, "Print"], Cell[19888, 744, 70, 1, 81, "Print"], Cell[19961, 747, 70, 1, 81, "Print"], Cell[20034, 750, 70, 1, 81, "Print"], Cell[20107, 753, 70, 1, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20226, 760, 677, 14, 201, "Subsection"], Cell[CellGroupData[{ Cell[20928, 778, 233, 7, 99, "Input"], Cell[21164, 787, 2080, 40, 567, "Output"] }, Open ]], Cell[23259, 830, 191, 6, 99, "Input"], Cell[23453, 838, 38, 0, 57, "Text"], Cell[23494, 840, 102, 3, 99, "Input"], Cell[CellGroupData[{ Cell[23621, 847, 1222, 37, 181, "Input"], Cell[24846, 886, 347, 8, 81, "Print"], Cell[25196, 896, 365, 8, 81, "Print"], Cell[25564, 906, 372, 8, 81, "Print"], Cell[25939, 916, 378, 8, 81, "Print"], Cell[26320, 926, 366, 8, 81, "Print"], Cell[26689, 936, 386, 8, 81, "Print"], Cell[27078, 946, 389, 8, 81, "Print"], Cell[27470, 956, 377, 8, 81, "Print"], Cell[27850, 966, 380, 8, 81, "Print"], Cell[28233, 976, 387, 9, 85, "Print"], Cell[28623, 987, 409, 9, 81, "Print"], Cell[29035, 998, 417, 10, 81, "Print"], Cell[29455, 1010, 419, 10, 81, "Print"], Cell[29877, 1022, 231, 5, 81, "Print"] }, Open ]], Cell[30123, 1030, 35, 0, 57, "Text"], Cell[30161, 1032, 259, 8, 102, "Input"], Cell[CellGroupData[{ Cell[30445, 1044, 749, 23, 141, "Input"], Cell[31197, 1069, 362, 7, 81, "Print"], Cell[31562, 1078, 360, 7, 81, "Print"], Cell[31925, 1087, 361, 7, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32335, 1100, 773, 21, 162, "Subsection"], Cell[CellGroupData[{ Cell[33133, 1125, 555, 17, 99, "Input"], Cell[33691, 1144, 8172, 141, 609, "Output"] }, Open ]], Cell[41878, 1288, 211, 7, 99, "Input"], Cell[42092, 1297, 87, 3, 99, "Input"], Cell[CellGroupData[{ Cell[42204, 1304, 813, 26, 150, "Input"], Cell[43020, 1332, 389, 8, 81, "Print"], Cell[43412, 1342, 356, 7, 81, "Print"], Cell[43771, 1351, 356, 7, 81, "Print"], Cell[44130, 1360, 356, 7, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44535, 1373, 1047, 35, 315, "Subsection"], Cell[CellGroupData[{ Cell[45607, 1412, 252, 8, 99, "Input"], Cell[45862, 1422, 9199, 157, 610, "Output"] }, Open ]], Cell[55076, 1582, 189, 6, 99, "Input"], Cell[55268, 1590, 50, 0, 57, "Text"], Cell[55321, 1592, 142, 5, 99, "Input"], Cell[CellGroupData[{ Cell[55488, 1601, 957, 30, 202, "Input"], Cell[56448, 1633, 347, 7, 81, "Print"], Cell[56798, 1642, 347, 7, 81, "Print"], Cell[57148, 1651, 347, 7, 81, "Print"], Cell[57498, 1660, 346, 7, 81, "Print"], Cell[57847, 1669, 346, 7, 81, "Print"] }, Open ]], Cell[58208, 1679, 59, 0, 57, "Text"], Cell[58270, 1681, 301, 10, 99, "Input"], Cell[CellGroupData[{ Cell[58596, 1695, 1005, 31, 172, "Input"], Cell[59604, 1728, 484, 10, 81, "Print"], Cell[60091, 1740, 471, 10, 81, "Print"], Cell[60565, 1752, 489, 10, 81, "Print"], Cell[61057, 1764, 481, 10, 81, "Print"], Cell[61541, 1776, 500, 10, 81, "Print"], Cell[62044, 1788, 507, 10, 81, "Print"], Cell[62554, 1800, 510, 10, 81, "Print"], Cell[63067, 1812, 521, 11, 81, "Print"], Cell[63591, 1825, 511, 11, 81, "Print"], Cell[64105, 1838, 517, 11, 81, "Print"], Cell[64625, 1851, 534, 11, 81, "Print"], Cell[65162, 1864, 537, 11, 81, "Print"] }, Open ]], Cell[65714, 1878, 53, 0, 57, "Text"], Cell[65770, 1880, 106, 3, 99, "Input"], Cell[CellGroupData[{ Cell[65901, 1887, 760, 24, 106, "Input"], Cell[66664, 1913, 331, 7, 81, "Print"], Cell[66998, 1922, 331, 7, 81, "Print"], Cell[67332, 1931, 331, 7, 81, "Print"], Cell[67666, 1940, 323, 7, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68038, 1953, 774, 20, 238, "Subsection"], Cell[CellGroupData[{ Cell[68837, 1977, 329, 11, 99, "Input"], Cell[69169, 1990, 8802, 150, 631, "Output"] }, Open ]], Cell[77986, 2143, 45, 0, 57, "Text"], Cell[CellGroupData[{ Cell[78056, 2147, 952, 31, 190, "Input"], Cell[79011, 2180, 300, 7, 81, "Print"], Cell[79314, 2189, 339, 7, 81, "Print"], Cell[79656, 2198, 339, 7, 81, "Print"], Cell[79998, 2207, 338, 7, 81, "Print"], Cell[80339, 2216, 339, 7, 81, "Print"], Cell[80681, 2225, 339, 7, 81, "Print"], Cell[81023, 2234, 70, 1, 132, "Output"] }, Open ]], Cell[81108, 2238, 49, 0, 57, "Text"], Cell[CellGroupData[{ Cell[81182, 2242, 1208, 38, 190, "Input"], Cell[82393, 2282, 340, 7, 81, "Print"], Cell[82736, 2291, 339, 7, 81, "Print"], Cell[83078, 2300, 340, 7, 81, "Print"], Cell[83421, 2309, 340, 7, 81, "Print"], Cell[83764, 2318, 340, 7, 81, "Print"], Cell[84107, 2327, 340, 7, 81, "Print"], Cell[84450, 2336, 339, 7, 81, "Print"], Cell[84792, 2345, 339, 7, 81, "Print"], Cell[85134, 2354, 69, 1, 132, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[85252, 2361, 862, 23, 162, "Subsection"], Cell[CellGroupData[{ Cell[86139, 2388, 298, 10, 99, "Input"], Cell[86440, 2400, 22258, 372, 603, "Output"] }, Open ]], Cell[108713, 2775, 62, 0, 57, "Text"], Cell[108778, 2777, 211, 7, 99, "Input"], Cell[108992, 2786, 51, 0, 57, "Text"], Cell[CellGroupData[{ Cell[109068, 2790, 625, 20, 99, "Input"], Cell[109696, 2812, 71, 1, 81, "Print"], Cell[109770, 2815, 86, 1, 81, "Print"], Cell[109859, 2818, 86, 1, 81, "Print"], Cell[109948, 2821, 87, 1, 81, "Print"] }, Open ]], Cell[110050, 2825, 63, 2, 57, "Text"], Cell[CellGroupData[{ Cell[110138, 2831, 868, 27, 141, "Input"], Cell[111009, 2860, 85, 1, 81, "Print"], Cell[111097, 2863, 85, 1, 81, "Print"], Cell[111185, 2866, 86, 1, 81, "Print"], Cell[111274, 2869, 85, 1, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[111408, 2876, 751, 22, 162, "Subsection"], Cell[112162, 2900, 174, 6, 99, "Input"], Cell[CellGroupData[{ Cell[112361, 2910, 1196, 37, 141, "Input"], Cell[113560, 2949, 320, 8, 81, "Print"], Cell[113883, 2959, 290, 7, 81, "Print"], Cell[114176, 2968, 291, 7, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[114516, 2981, 1683, 57, 255, "Subsection"], Cell[116202, 3040, 507, 15, 81, "Text"], Cell[CellGroupData[{ Cell[116734, 3059, 1127, 34, 190, "Input"], Cell[117864, 3095, 678, 12, 70, "Message"], Cell[118545, 3109, 678, 12, 70, "Message"], Cell[119226, 3123, 516, 12, 81, "Print"], Cell[119745, 3137, 681, 12, 70, "Message"], Cell[120429, 3151, 621, 11, 70, "Message"], Cell[121053, 3164, 523, 12, 81, "Print"], Cell[121579, 3178, 552, 12, 81, "Print"], Cell[122134, 3192, 552, 12, 81, "Print"], Cell[122689, 3206, 552, 12, 81, "Print"], Cell[123244, 3220, 547, 12, 81, "Print"], Cell[123794, 3234, 551, 12, 81, "Print"], Cell[124348, 3248, 547, 12, 81, "Print"], Cell[124898, 3262, 552, 12, 81, "Print"], Cell[125453, 3276, 549, 12, 81, "Print"], Cell[126005, 3290, 553, 12, 81, "Print"], Cell[126561, 3304, 553, 12, 81, "Print"], Cell[127117, 3318, 556, 12, 81, "Print"], Cell[127676, 3332, 554, 12, 81, "Print"], Cell[128233, 3346, 555, 12, 81, "Print"], Cell[128791, 3360, 557, 12, 81, "Print"], Cell[129351, 3374, 559, 12, 81, "Print"], Cell[129913, 3388, 559, 12, 81, "Print"], Cell[130475, 3402, 562, 12, 81, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[131074, 3419, 93, 3, 99, "Input"], Cell[131170, 3424, 92, 1, 132, "Output"] }, Open ]], Cell[131277, 3428, 834, 26, 90, "Text"], Cell[CellGroupData[{ Cell[132136, 3458, 1210, 36, 190, "Input"], Cell[133349, 3496, 681, 12, 70, "Message"], Cell[134033, 3510, 681, 12, 70, "Message"], Cell[134717, 3524, 515, 12, 81, "Print"], Cell[135235, 3538, 680, 12, 70, "Message"], Cell[135918, 3552, 624, 11, 70, "Message"], Cell[136545, 3565, 518, 12, 81, "Print"], Cell[137066, 3579, 548, 12, 81, "Print"], Cell[137617, 3593, 548, 12, 81, "Print"], Cell[138168, 3607, 547, 12, 81, "Print"], Cell[138718, 3621, 543, 12, 81, "Print"], Cell[139264, 3635, 547, 12, 81, "Print"], Cell[139814, 3649, 543, 12, 81, "Print"], Cell[140360, 3663, 548, 12, 81, "Print"], Cell[140911, 3677, 546, 12, 81, "Print"], Cell[141460, 3691, 548, 12, 81, "Print"], Cell[142011, 3705, 549, 12, 81, "Print"], Cell[142563, 3719, 551, 12, 81, "Print"], Cell[143117, 3733, 548, 12, 81, "Print"], Cell[143668, 3747, 551, 12, 81, "Print"], Cell[144222, 3761, 553, 12, 81, "Print"], Cell[144778, 3775, 554, 12, 81, "Print"], Cell[145335, 3789, 555, 12, 81, "Print"], Cell[145893, 3803, 558, 12, 81, "Print"] }, Open ]], Cell[146466, 3818, 511, 11, 94, "Text"], Cell[CellGroupData[{ Cell[147002, 3833, 629, 20, 147, "Input"], Cell[147634, 3855, 70, 1, 81, "Print"], Cell[147707, 3858, 69, 1, 81, "Print"], Cell[147779, 3861, 73, 1, 81, "Print"], Cell[147855, 3864, 73, 1, 81, "Print"], Cell[147931, 3867, 84, 1, 81, "Print"], Cell[148018, 3870, 86, 1, 81, "Print"], Cell[148107, 3873, 86, 1, 81, "Print"], Cell[148196, 3876, 73, 1, 81, "Print"], Cell[148272, 3879, 87, 1, 81, "Print"], Cell[148362, 3882, 85, 1, 81, "Print"], Cell[148450, 3885, 83, 1, 81, "Print"], Cell[148536, 3888, 87, 1, 81, "Print"], Cell[148626, 3891, 85, 1, 81, "Print"], Cell[148714, 3894, 86, 1, 81, "Print"], Cell[148803, 3897, 84, 1, 81, "Print"], Cell[148890, 3900, 86, 1, 81, "Print"], Cell[148979, 3903, 86, 1, 81, "Print"], Cell[149068, 3906, 84, 1, 81, "Print"], Cell[149155, 3909, 86, 1, 81, "Print"], Cell[149244, 3912, 86, 1, 81, "Print"], Cell[149333, 3915, 87, 1, 81, "Print"], Cell[149423, 3918, 85, 1, 81, "Print"], Cell[149511, 3921, 86, 1, 81, "Print"], Cell[149600, 3924, 87, 1, 81, "Print"], Cell[149690, 3927, 81, 1, 81, "Print"], Cell[149774, 3930, 87, 1, 81, "Print"], Cell[149864, 3933, 87, 1, 81, "Print"], Cell[149954, 3936, 86, 1, 81, "Print"], Cell[150043, 3939, 87, 1, 81, "Print"], Cell[150133, 3942, 86, 1, 81, "Print"], Cell[150222, 3945, 89, 1, 81, "Print"], Cell[150314, 3948, 84, 1, 81, "Print"], Cell[150401, 3951, 90, 1, 81, "Print"], Cell[150494, 3954, 86, 1, 81, "Print"], Cell[150583, 3957, 90, 1, 81, "Print"], Cell[150676, 3960, 87, 1, 81, "Print"], Cell[150766, 3963, 90, 1, 81, "Print"], Cell[150859, 3966, 87, 1, 81, "Print"], Cell[150949, 3969, 88, 1, 81, "Print"], Cell[151040, 3972, 87, 1, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[151176, 3979, 1561, 47, 240, "Subsection"], Cell[152740, 4028, 423, 14, 141, "Input"], Cell[CellGroupData[{ Cell[153188, 4046, 533, 17, 99, "Input"], Cell[153724, 4065, 335, 7, 81, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[154096, 4077, 875, 29, 99, "Input"], Cell[154974, 4108, 242, 5, 81, "Print"], Cell[155219, 4115, 244, 5, 81, "Print"], Cell[155466, 4122, 244, 5, 81, "Print"], Cell[155713, 4129, 244, 5, 81, "Print"], Cell[155960, 4136, 246, 5, 81, "Print"], Cell[156209, 4143, 246, 5, 81, "Print"], Cell[156458, 4150, 246, 5, 81, "Print"], Cell[156707, 4157, 246, 5, 81, "Print"], Cell[156956, 4164, 248, 5, 81, "Print"], Cell[157207, 4171, 249, 5, 81, "Print"], Cell[157459, 4178, 249, 5, 81, "Print"], Cell[157711, 4185, 249, 5, 81, "Print"], Cell[157963, 4192, 249, 5, 81, "Print"], Cell[158215, 4199, 249, 5, 81, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[158501, 4209, 585, 18, 99, "Input"], Cell[159089, 4229, 66, 1, 81, "Print"], Cell[159158, 4232, 66, 1, 81, "Print"], Cell[159227, 4235, 66, 1, 81, "Print"], Cell[159296, 4238, 66, 1, 81, "Print"], Cell[159365, 4241, 66, 1, 81, "Print"], Cell[159434, 4244, 66, 1, 81, "Print"], Cell[159503, 4247, 67, 1, 81, "Print"], Cell[159573, 4250, 67, 1, 81, "Print"], Cell[159643, 4253, 67, 1, 81, "Print"], Cell[159713, 4256, 67, 1, 81, "Print"], Cell[159783, 4259, 70, 1, 81, "Print"], Cell[159856, 4262, 71, 1, 81, "Print"], Cell[159930, 4265, 71, 1, 81, "Print"], Cell[160004, 4268, 71, 1, 81, "Print"], Cell[160078, 4271, 71, 1, 81, "Print"], Cell[160152, 4274, 71, 1, 81, "Print"], Cell[160226, 4277, 281, 6, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160544, 4288, 502, 16, 99, "Input"], Cell[161049, 4306, 281, 6, 132, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[161379, 4318, 3236, 98, 492, "Subsection"], Cell[CellGroupData[{ Cell[164640, 4420, 1379, 43, 181, "Input"], Cell[166022, 4465, 168, 5, 118, "Print"], Cell[166193, 4472, 249, 8, 118, "Print"], Cell[166445, 4482, 310, 10, 118, "Print"], Cell[166758, 4494, 393, 13, 118, "Print"], Cell[167154, 4509, 474, 16, 118, "Print"], Cell[167631, 4527, 585, 20, 118, "Print"], Cell[168219, 4549, 621, 21, 118, "Print"], Cell[168843, 4572, 657, 22, 118, "Print"], Cell[169503, 4596, 741, 25, 118, "Print"], Cell[170247, 4623, 936, 32, 118, "Print"], Cell[171186, 4657, 974, 33, 118, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[172197, 4695, 297, 8, 99, "Input"], Cell[172497, 4705, 69, 1, 81, "Print"], Cell[172569, 4708, 91, 2, 81, "Print"], Cell[172663, 4712, 219, 7, 111, "Print"], Cell[172885, 4721, 282, 9, 111, "Print"], Cell[173170, 4732, 348, 11, 111, "Print"], Cell[173521, 4745, 416, 13, 111, "Print"], Cell[173940, 4760, 483, 15, 111, "Print"], Cell[174426, 4777, 494, 15, 118, "Print"], Cell[174923, 4794, 566, 17, 118, "Print"], Cell[175492, 4813, 637, 19, 118, "Print"], Cell[176132, 4834, 713, 21, 118, "Print"], Cell[176848, 4857, 792, 23, 118, "Print"], Cell[177643, 4882, 932, 27, 157, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[178612, 4914, 469, 13, 99, "Input"], Cell[179084, 4929, 129841, 2197, 877, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[308962, 7131, 239, 5, 99, "Input"], Cell[309204, 7138, 131451, 2210, 775, "Output"] }, Open ]], Cell[440670, 9351, 472, 14, 132, "Input"], Cell[CellGroupData[{ Cell[441167, 9369, 347, 10, 99, "Input"], Cell[441517, 9381, 2221, 52, 283, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature SwDlVbFDbCyxPDwkQVn#FdAt *)