(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1063, 20] NotebookDataLength[ 675967, 16449] NotebookOptionsPosition[ 654820, 15804] NotebookOutlinePosition[ 656282, 15861] CellTagsIndexPosition[ 656036, 15849] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["", "Abstract"], Cell["\<\ This document describe some of the computation included in the paper:\ \>", "AbstractSection"], Cell[CellGroupData[{ Cell["\<\ Optimality for models given by a system of ordinary differential equation \ \>", "Title"], Cell["Last update: 2013-08-29", "Reference"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Authors", FontWeight->"Bold"], ": Juan M. Rodr\[IAcute]guez-D\[IAcute]az and Guillermo S\[AAcute]nchez-Le\ \[OAcute]n " }], "Author"], Cell[TextData[{ "Department of Statistics, Faculty of Science, Pl. de los Ca\[IAcute]dos \ s/n, 37008 Salamanca, Spain\n", StyleBox["ENUSA Industrias Avanzadas S.A. Salamanca, Spain", FontFamily->"NimbusRomNo9L-Regu"] }], "Institution"], Cell["\<\ Many processes are given by a system of ordinary differential equations, very \ often without an analytical solution. When there are unknown parameters, that \ need to be estimated, optimum experimental design approach offers quality \ estimators for the different objectives of the practitioners. But almost \ every optimality criteria needs to deal with the linearized model for \ computing optimal designs, and this can be a great problem when it is not \ possible to obtain the analytical form of the model. In this work, a \ procedure for findingoptimal designs for models given as solutions to a \ system of ordinary differential equations is described. Some important models \ like the compartmental one, are studied through actual case studies, \ obtaining the corresponding optimal designs.\ \>", "Abstract"], Cell[CellGroupData[{ Cell[BoxData["$Version"], "Input"], Cell[BoxData["\<\"9.0 for Microsoft Windows (64-bit) (January 25, \ 2013)\"\>"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Overview of compartmental and biokinectic equivalents models\ \>", "Section"], Cell["\<\ Compartmental analysis has applications in clinical medicine, \ pharmacokinetics, internal dosimetry, nuclear medicine, ecosystem studies and \ chemical reaction kinetics. It can be described as the analysis of a system \ in terms of compartments which separate the system into a finite number of \ component parts which are called compartments. Compartments interact through \ the exchange of species. Species may be a chemical substance, hormone, \ individuals in a population and so on. A compartmental system is usually \ represented by a flow diagram or a block diagram. A general introduction to \ this theory can be found in Anderson (1983), Godfrey (1983) and Jazquez \ (1985).\ \>", "Text"], Cell[TextData[{ "We adopt the convention of representing compartments with circles or \ rectangles. The flow into or out of the compartments is represented by \ arrows. The ", Cell[BoxData[ FormBox[ SuperscriptBox["i", "th"], TraditionalForm]]], " compartment of a system of ", StyleBox["n ", FontSlant->"Italic"], "compartments is labelled ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " and the size (amount or content) of the component in compartment ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " as ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ SubscriptBox["x", "i"], TraditionalForm], FormBox[ RowBox[{"(", FormBox["t", TraditionalForm], ")"}], TraditionalForm]}], TraditionalForm]]], ". The exchange between compartments, or between a compartment and the \ environment is labeled ", Cell[BoxData[ FormBox[ SubscriptBox["k", "ij"], TraditionalForm]]], ", where ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " represents the flow from ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " to ", Cell[BoxData[ FormBox["j", TraditionalForm]]], ". The environment is usually represented by \"0\" (zero), so ", Cell[BoxData[ FormBox[ SubscriptBox["k", "i0"], TraditionalForm]]], " is the fractional excretion coefficient from the ", Cell[BoxData[ FormBox["i", TraditionalForm]]], "-th compartment to the outside environment. The input from the \ environment into the ", Cell[BoxData[ FormBox["j", TraditionalForm]]], "-th compartment is called ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["b", "j"], "(", "t", ")"}], TraditionalForm]]], ". Environment represents the processes that are outside the system. With \ regards to the environment, we only need to know the flow, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["b", "j"], "(", "t", ")"}], TraditionalForm]]], ", into the system from the outside. The ", Cell[BoxData[ FormBox[ SubscriptBox["k", "ij"], TraditionalForm]]], " are called fractional transfer rate coefficients and they may be a \ function of different variables or constants. " }], "Text"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.12963 0.21164 0.349206 0.21164 [ [ 0 0 0 0 ] [ 1 1.33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.33333 L 0 1.33333 L closepath clip newpath % Start of user PostScript /mathtops { gsave MBeginOrig moveto MEndOrig currentpoint grestore } bind def /MAtocoords { mathtops 4 2 roll mathtops 4 copy pop pop 3 -1 roll sub /arry exch def exch sub /arrx exch def arrx dup mul arry dup mul add sqrt /arrl exch def translate } bind def /MAarrowhead1 { gsave MAtocoords arrl 0. eq { 0 0 Mdot } { [ arrx arrl div arry arrl div -1 arry mul arrl div arrx arrl div 0 0 ] concat -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto stroke } ifelse grestore } def /MAarrowhead2 { gsave MAtocoords arrl 0. eq { 0 0 Mdot } { [ arrx arrl div arry arrl div -1 arry mul arrl div arrx arrl div 0 0 ] concat -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto fill -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto -0.05 0.0125 lineto stroke } ifelse grestore } def % End of user PostScript 0 g .5 Mabswid [ ] 0 setdash .12963 .66667 m .12963 .45503 L s % Start of user PostScript 0 1.5 0 0.5 MAarrowhead1 % End of user PostScript gsave .04497 .56085 -80.4375 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 69.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (b) show 75.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 79.875 12.750 moveto (H) show 85.875 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (t) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 91.875 12.750 moveto (L) show 97.875 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore newpath .12963 .34921 .10582 0 365.73 arc s gsave .12963 .34921 -66 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .12963 .24339 m .12963 .03175 L s % Start of user PostScript 0 -0.5 0 -1.5 MAarrowhead2 % End of user PostScript gsave .06614 .13757 -70.625 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .23545 .39153 m .76455 .39153 L s % Start of user PostScript 0.5 0.2 3. 0.2 MAarrowhead2 % End of user PostScript gsave .5 .43386 -70.625 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (12) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .76455 .30688 m .23545 .30688 L s % Start of user PostScript 3. -0.2 0.5 -0.2 MAarrowhead2 % End of user PostScript gsave .5 .26455 -70.625 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (21) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore newpath .87037 .34921 .10582 0 365.73 arc s gsave .87037 .34921 -66 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (2) show 69.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .87037 .66667 m .87037 .45503 L s % Start of user PostScript 3.5 1.5 3.5 0.5 MAarrowhead1 % End of user PostScript gsave .95503 .56085 -77.4375 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (b) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (2) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 73.875 12.750 moveto (H) show 79.875 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (t) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 85.875 12.750 moveto (L) show 91.875 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .87037 .24339 m .87037 .03175 L s % Start of user PostScript 3.5 -0.5 3.5 -1.5 MAarrowhead2 % End of user PostScript gsave .80688 .13757 -70.625 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (20) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 1.30159 m .5 1.08995 L s % Start of user PostScript 1.75 4.5 1.75 3.5 MAarrowhead1 % End of user PostScript gsave .40476 1.19577 -80.4375 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 69.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (b) show 75.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (3) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 79.875 12.750 moveto (H) show 85.875 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (t) show %%IncludeResource: font Math2Mono %%IncludeFont: Math2Mono /Math2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 91.875 12.750 moveto (L) show 97.875 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore newpath .5 .98413 .10582 0 365.73 arc s gsave .5 .98413 -66 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (3) show 69.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .15079 .45503 m .41534 .92063 L s % Start of user PostScript 0.1 0.5 1.35 2.7 MAarrowhead2 % End of user PostScript gsave .23545 .70899 -70.625 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (13) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .47884 .87831 m .21429 .42328 L s % Start of user PostScript 1.65 2.5 0.4 0.35 MAarrowhead2 % End of user PostScript gsave .39418 .62434 -70.625 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (31) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .58466 .92063 m .84921 .45503 L s % Start of user PostScript 2.15 2.7 3.4 0.5 MAarrowhead2 % End of user PostScript gsave .60582 .62434 -70.625 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (23) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .78571 .42328 m .52116 .87831 L s % Start of user PostScript 3.1 0.35 1.85 2.5 MAarrowhead2 % End of user PostScript gsave .76455 .70899 -70.625 -10.25 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (32) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 .87831 m .5 .66667 L s % Start of user PostScript 1.75 2.5 1.75 1.5 MAarrowhead2 % End of user PostScript gsave .46825 .73016 -70.625 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5 translate 1 -1 scale 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (k) show 69.000 14.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (30) show 78.250 12.750 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Figure", ImageSize->{238.875, 318.45789264939185`}, ImageMargins->{{0.5, 0.}, {0., 0.}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnQuQpUV1x7953XntkwV2AWFWDBLZZWVZ4i6zixjLaDQImhCD0agrcYKV MhokiaUoPvCRGHWMAho1anxC1KiRCS7LQxHzflWMMY5KpUh0UUkqlVelLGty v9P99df93V/3PX3nzt0Zaih27r2nT5//OacfXz/O1/3Uw9dc9YIXHb7mhVce 3vmkqw+/5KoXXvnSnU988dVt0shQUQx9syiGr91ZlN+XiqL6s9T+f+lb5Z+S sva+P1Y+RqwxS+Zf+fc5kHDI5Lmo/BheKqyk57mfF2Wkj7j057ifynRRYzRM l5+HMtLHXPqz3U9l+sHyoxWmy8+DGenjLv3n3U9l+mz5MRGmy8/ZjPRJl36F +6lMv7D8mArT5eeFGenTLv0Z7qcy/UD5sSFMl58HMtI3uvTL3c8DvbeJ9Tzr edbzrOdZz7OeZ7l5TjdJxcJc4f4blr9j7WfwfC2n/a/kMWkjRTG34OgnxHAP WeFLSwtFJX+kD8Kt7jOV+Hbe2flFB7ZUtIqlxfli1hOzMDdbzC8ubYupepHN J34IVGurPjs/nC9WoeTi/Gzb1NoHVnpUSVvAkq/tpGKh/Ws0X5bVbKt8jBpO WzptDY2pY0GNKIdjbTOt4myMdUWowOx81Ji9y4MPaVnw1n6TNC5IlTEup/Xu WB8N3qfAa1UIHm14mRa2QkSRLJJafTcuCjVRtR8Pyms/w77ZtvUlGv42r44Y aaZ/Kev/eLK9zXUalWhv+xI4YzFHhR1GBmRg3GjQANqALUuWtl/2QMa+qvn7 FaakzM+m+7t9KRTTm/jd4IIxezgfDawqXSk92Ox8VVpOjbZlY1XH4OnWznKi xpQO0aGFbfKoXnqiFXk98Fk5TaJLvlS7Lf8ZQhZil3zRFlUVrPdULuqa/nB9 k8kXFOg0Eoj60TRud+Y1LjvyzH5UTHzkIUv8a2Cwup5nPc96nvU863nqPPvL j01lipAvdz/3m/Tzyw/ZUdjkvgnnUyDhfJNnT/khuxg73DfJ83hI2GPy7C4/ ZOdlp/smeR4LCbtNHnkMiVU/4r7dZEwtOtcMRpsj0tEq0SO/DUSap11xtoM/ x327UZKi0/7RShlvMjEPYs42CGc5wh737QYrwp+z08TrrZDXDNiMJY3SPw9o r5e/y55R05z3LUoVzjQan+lMuMB9e6Mk5U9/qQzeDPItNA0oHwO0672Sj05Y aRoZ0n5LCTdjtJtx6s66b9d75ZM5yyTfvAkgLPoZ0W4kpL3GVqReJocdM9Q3 KUEfZnQ8HZKoX3y1p6N21hfOM9+oRDrNKPYwSHoc0K6DiuU1/huVYk41qKdB 0uOB9iqqzuU/Q7hBKeYUg3oqJD0BaK/sqLqGHpvtzSvl7jBqnAJJTwTatV7p VmqQnynvdgO1A5J+EmivAChyLuU92UBth6SnAO3lAPVOZd6TDNTJkHQJ0H7D tprGk4PQKLtZPLGgYdKlQJO/m5TM21ZeNq39PC0me4OS2SxfFrQk9tMx2VNK 5q15sqlLfSAPihZjLweaNCMZSn5XmWOLAdgKSc+IFZkEiJAFlGNzHoCwb+wB YAskXQE0KeStJemYMsemPAB5TJ/UA8BmSJKAnmI0rKtLSz8sCSNR/pC2sZv4 kCZit5ek76wMgIwRtvUAQP3Ks2NFvLkkfVuZY0MegPBN9wCwEZJocimtReLA /lWZYzoPQPrzkRUE+OGqEEtPi+cB7QdKvql1sSstdhqSng+0/1PyTT5UxO4y NDPTsv+5JRhvM/BcJfw5Vt6iJ3CskudNL0leQs09vlgbqrE3UyV/OcSfY1fy 9gxOpV2g0gWDg99dwddLI8W+wcGfC/DnDw5+D8BT3hWCfzTA06rbCsGfF8Cb Bv7owcHvhbzHoeHNz9VdUbBcaruoAarkuidvhTBY2eruJXpoGrFjXsc+V8xb 9Ug1eqCGPadRbdhXzdYfUi3xPN/dEJuj0i5rlr+oIf+1C45a0ZocrayQ2LU1 ytaKvb/8K3NZWhjrF4C8/kILJgkA7cTvX8q/8n4JTXb7MLMUgC0liTqvBIB2 8i3TvRNL0oQyR+bsXgB2lKTRlQGQbu0HPQBoF3BkTn9SzEV9WCESAFmCou4j AaBdRJN1FVlEy1p2ywSQZUBaGE4AaBcyZelMFjJpLySxkLkaFnx7kb2Si+Br dWNAu30if6nxJTZLtLtA8pdqbWLbR7uZZQIG6OUPP9ZCxpoUa/EqJYzd99Lu 5tkN40hYekFxGq9RirabfdrtzWGgXQ/aVWNwP8bjOqW8xPandu9XnCP7/JF9 vNxXOvwIkIrvlQBMz7/ErrJ2B33M2fMy+Z3/igbFkVwbQ1JoZDfjtbEJAj9S F0jWGxj0AsPLAWRcqYwNX9DGfohYGSP/uldrct6yiMSqkA2TSqVsbMiMqxh1 aMu00/fXbJ3Me3EiEsxC2k4B/IzRTBt1JNrKsOIaT1vlCxGNmBZSkSYqiXAk itOSZ6QcIfBSqLxeF/dmkLsJBNrALG0Um4iQraerqfGU/wyBQq9o/JiIU6OA vRMc/q92NACTORbd8gYAOgEQbFgfxSPK4EAmkC/xKkIF/tsAcBJIseGIFF4p z2IZOL8YAKhId4AUG1FJMZ+nOoBfUQKcBlJsgCgFokpfIEc8/LJtF42nHWGc AYJs4CoFyIoisr9Ky3BnQg4bOVtH49LmuLQ6mb3/L6SaBtKx1e4H89annVDP udOJ/++Y+DovH6JCkwbRWiZz/wWpj3CVgsWOxMSe4bRViB1Ri51x9e9/YkU3 imIPhe4vP93zhVSfSGKMhR4x1cGxHewNcjxWdR7uIKdUkGM+pPuM4o7EKvR/ xnRp1XWUsQ4tQx0xj4Zu/xFTZ1ypjnFSyxfgs9G0lx5rpMdOV2caTVc+aWZw oUoneuKTTv+e1GmqF51GmzpRDmqjWv3qtjypB8xXkSoaqfhgzIU9qjgbVsig dLV60jud34vpOZXQk5r3gd701DYT0nPG6TnVVz0pm9afFAgoek5Dt9IVtUdl tU4lZetHbY/KXghJwwlRtJROylL8Xa3sVAKBlh72P6SU7U7Tdv0UYVePcGkk qdVghYygRng/0GSQONknIw5AEjUJEkHrylQSZITwjcNDOIpGWj1mZYygkvhn Jd/oKrBJ27bJJuKrl1qpxpFWCcNotY62M0iR+5R8JC/xtimxU9l+U8mXCU8b LmQVwRMfycuEJ6sWlXyZ8LQlRFYRPPGRvEx4suqflHyZ8LRpRVYRPPGRvAQ8 7U6R2H9U8pG8THhy6j8o+TLhaUeMrCJ44iN5mfBk1d8r+TLhaaONrCJ44iN5 mfBk1d8p+TLhaVuOrCJ44iN5CXjaVCOxf6PkI3mZ8OTUv1LyZcLTthxZRfDE F9/mU8OTVX+h5MuEn1FaRfDER/Iy4cmqP1PyZcLvVIr9EyUfyVu98LRlSmLv VfIlThIj+DOVVYrgiY/kZcKTVfco+TLhH6G0iuCJj+RlwpNVX1DyZcKTBST2 LiUfyVu98CSCaHcsI28C/pFKCwie+EiehbcDocJGoBSLS1WYZkkrYy5MaBCt QZFYsvR2JV9CXlf9how5dr0awvXCuLwJx1fHJmytxC7OF3N2M56WlM9WmvN5 JR/JO9E329oxkmPHUGnGUGmH9czGSqIXjjQFzj0BnHu8vGCWRqIhjZMx9UuT 23a31R8S/ZPG+6dCbwM+2gKh4yfJqD9W8pG8kz39qojJ6ZjOQ6XKQ6JzFYha 5Wmb4mqOdyw3BTXWDq3LvjqWOAyMdOJdeJ5XBsfLY0ZVP4bTeQBdELy2aoOU enVBWeUWhsQFhYu3aXtWym6hcrZfkZMF4J2hXoW7+fVgONDcxA61HEbdFdDS Mh1sSh6+VclH8iYr/3Z3w5hvcuE7fBluGBIvFE5s4QUJhtFWvoiOUoCQUz8v tUby+DlAo8c0eZz4SF5QcxL2UigwRapG7R2yJRC+chuEQ9uSTbnWd1nKtdBh d3UFVdI/UvJ1d61vbyuwd2mp87B22ys2K3BX04dsnR6BOO7xgNaI2cXH2nI8 vEvpuc8o+Uhe6GHf1s5z1G0wcvDiLHQR2R72y3UcyrXq8RcCD2u6h9Xn4W5t tiOOejLH5KZn453RJl+DRiH20tHuVnroD5V8JE/b0W7Osa3qVBtPzNn56olp Q99DyfYmiMWI5Hp0v1jdPoBDs8F5TWXelhzz3Eg/9J7tGGnQtxm8MuarYf+r jlnxo9rdgLHLYJeOYyFPfVLJFz/eRWXyluWaHAxuw256O/QM9Ui0szL6TThx 9kNXl/yBki9+zkNox44cO6S5DokdMX+YiXt4ZK8vh+YZNM0+3v5Q2dEx3044 typ86jNp4E1OoRNWyNiblXzxE1tCO07JsaOektsVGDsHLcjDtLI1Z2i08jYI B0zY9t+YTZ+iVNsaTcub9LYRafUxJR/JS6yuHmd4Opslvks6GvTQ3iOz2wrn 5UEDLiqOgi6WC97W8tK0oU5kUsIDdDpVfJO+VZgRv38jVlkZF+hk7ytslsiK 4XBaotZeMqAP9s40mlb1q2nkMy3NXwqZgLx0XkEfzKGzzUjsJluBM960ps6U PHBJvmhfTEWjYSUdIEHWkRf64DTTlepe5+58ATb00qUKWanrBHz52qaR6RY6 po/EbvbadeIqAjPXWorWm0t1YuhFf180nTVBWpN1fXMGv3XuD6GqOUDcEz3d qNACiBXyyI9ldjX4Xnsr6ChLijU6chvDZQph8Xv/IlhaB5HFCQfRi+skdqNn E1wFsRTaSh3AZWkJjQUjukKwLUXrBTKrb16Ivq3/3HSyNiIjU/n9SrEbQDv5 ZwikvJesDaYhbfqmvP6cgGdl8muD9DLNo/cqSKwfdlCp+3ygacNaCDdTTQqm mFKqSTWd5GWqSe9AkfXLUZPkEW6mmmS96zzDQehhJmt9mqnsrNIH71DykbwE /EGl2Lcr+Uje6oWnc3hI7NuUfCQvE56qFN1MFg8JU8NfpLSK4ImP5GXCk1V0 1gnxZcJrwwYJnvjiBYxJFyvF/qaSj+RlwpNT6QIx4suEf5zSKoInPpJn4enc PLLgx5U0ynudgXqtUlstFOV9dRwqWi5C0tpiAV6XU++iAJTDFEh1yKCuXQlJ W2leGweI9htC0jYKC/B6pT5SEeWteW2f87o4AOlz0AFo+1QLQKd5RR+rUQDK cX0cgPSZdQDaZ6IF0PZPMtKVN9BpgEQ5jPMLutoxOuKPAlCON8QBSJ/9DkA7 vrUALzJJsOGg30jQnmCQVpJymDXujl2SIADLUil++heNjdVBb3RWY2SvgI4C IC/Kgo4cwEBzT8qxLQ1cLTRFtjjm4ha5OD9vj0B7okHaDMrR3N8sf1XF4i+S XWUUjkybcs9lpSV9bVFd4GykJRzKMZGvdLctjorvl4xbrrRWafYDYsvW8t/c Ap78SFbtc36g1UjKMZ2hpa8R7T7M+Yb3dCysv1RPR05H98DksBftKjyux6W3 JKigXuCbqz9J1qdVi/BkK5XWXmcr7dZQjs7lu+aOQyvQxHRX0VDYwOaeTqPt fYE9bXy3tfMONbtsLkS3C+Y6XaA84raxpE77lVSE5zm7abuXcvSyZ9CxERB0 Y9GldXJ7NE5FztnURlFsSgO/LNHZlP8MgQSTx/Y49SgmhHKQeh5woJ5+NZwW +6MdvYJGeTs3IdM6XeObEj7+tEH8WnXj++oh7ivyVCIvUFvStq9MlbRh4lqV KO/WuEqR8RkF+0afOQpavKp1QJvT6ovfUUqhJqltpvMDh6L1emKnyD2iUd63 DxyKbkuPdqQKGuU1hYQ3zmsDYrVBt++IQ5FmFMZNNMproW5Usp9mm0xjWowP 6bmFMZCgbdjvzFPMHDvUdXLrv/lnkuVJQqdEZip6k5L99EoTb9xa/rOxv25Y 6yk6AmKo1ya4G/K0q8Zm2RPPzqFGc5xuX7vok0HvUrKbgVD+DHLEWdWIVTJm UIXRPttNlS7enVUkXeaDrWA+2IP76W1b0uamXpTPm+Atzs91aJ5oCZma/66S fYNtCb3NzppvF9rXY6ja0BvnpNC7etdfP8vyye1c1IFn6vseJfs0VHPPyXSe Ix3tQKLfvXxN5J8h9EGT9yrZpzpaT1WbeC5EaxUkl2imXhXvU7JX8aC+atqD FEnee1YF/O8p2SeU8NpDc96bB1+tZDWe0tqTJBMavF/JTlFH2kik9w0c6gNK dlrf0K55mLIrPqhkpyPTiEZ53z9wqN9Xsu9U0ijvBwYO9SEl+4ySRnk/GIei hwbFmxKN8lqoDys100JRXlNIxUeU7HQwJ9Eo74cGDvVRJTsdtko0yvvhgUPR W4fxGX53GuX9SByKKiw9r4hGeS3Ux5WaaaEorykkfOeV2GkcQDTK+7GBQ92i ZKcjvYlGeT8eh6KipcPLiUZ5LRS9tU6aaaEo781xKNKMpg3aqYSF+oRSMy0U 5b0lDhU/Sa87jfJaKDqsgjQjsfWdlzRTJSmmuIpPKdnpVVdZ05CgMLr2gqR8 Ig5KjqGtVwGVCCZa77AAdJJKPBIIAORCMlLpk3EAYqeJqADI9VLxI0uKTyst IABZ8ZALgWh68Kk4AFlAMS0CINuwNCmwAHSaEgFQUEVtAQEY5xefVbqIAKaT AJ+OA5AFdMGLAEzHysAC0KFp8f05AJiKAXwmDkAWUACXAEiQEk2dLcDnlBYQ wFQS4LNxALKAAiAFYCLW0CwAnQlIAHRMigCMxwCM84sFpYsIYDIJ8Lk4AFlA pwEJgNzrSCpZADoyNL5eCABjMYBb4wBkAR1JJgCjse7aAtymtIAAJpIAC3EA WaP3bp8GvQlKSLS2bKHMeb8dV/SOxLqCiRhtOAZkiqM44iof6U9ix5Nib/P0 n6i17bBEHiy0wUH+v82rQVNOV6lw9fCEMn7eazzyIDjdlfN29438aTPe6lQ9 1bl/JvzWyHikibjDuess942m6Ec8G+WRcrJjf5T7RpO4273KKRm3OfZz3Tca 5h/1ikq8utWx73XfaBx61Ks60rXTw5dCimiYYU5fN1ZMuhIV7P3uWyLjUVfT qG+lAHh6itxphN3hWgN1c/ReI4FaYfIh3S71OPQOB/HdZYTd5YRRm7zYeYp6 nLuNiLtdU2k59icAeysu4guu0dAM5CeARnuA5rKF4otOGDFlCrvHtUrqVJ4E NJrOfLEpjJieLH/5As4vGQFfcg426jjeS0J58nmvyXOvy3MZgFrBX4akp8bZ 74Ukkn6Pp3Yj6elxN2Wy3wNJP9OlejSSfjZeNTPZ6cKPn4s3v0z2uyHpmUC7 cxDsd0HSs4B2R0/sd0LSLwDt6Cpkp5s/ngu029c++1FIOgy0I8eL3QSgtcJY O/lPIiIoRDIhzUYnuT3jctu6ej9o0UKUUTkUo5gQu9cXYeOLKPZQIcLEBplo huMnYhmG2FBcGzJkgn8y3WkQx4Kd/SrCI7PAK238l7+WU7g2BGs5bu0ugtpw VXNNJTWGNG9oKGsuiU10Dbts8wpd7SDIVauxG1tVj49M9pV9Dq+qIcfKjq5W dmSYOUxd2TFz5gA+c3qQyU73M/4U0OyE5k8h6clAM1rg3Zc0bzNaFH8OSTRn NFrgxZ40+bXsfwlJcrSGTNCMMLwq9WKgWfa/hiRaBTDYeA0trUAYLYq/hSRa /TBamDt2G6ss5t5dvHyYVnMs+1dc/nrV6Csm6auOUK9EfdUkfc0R6tWtr5mk rztCvWL2dZP0jfJDtJhx375hku4rPxore/eZpPvLj8Zq4f0m6Vj5IQt8xwzh 38DQ75ukBx3kgz0TjCi3dhB8fn/ALN+Tj2BltvxOSx4PrOYc3w1N9XPhYtCx NZTtAUgiVxDtOw8xEccgiVxHtG+vJhGJPmY9aT1pPcklfdk1pfS9tRQgY0WY fc6Odzjrs2bTV9fSzpOVbKb30Zcwo/eqNnRPIBxpiCh/VS9jdLtwlfbkrFgT YKe/4bPlfFUbOg6W9HDJaULLW2zBKW6/pJO2+30JKIXnBJrWi43dbo30X17M ujWyUexqleI31QW0Xi4AbKiuVsl/F3WKryfsfN+Q6n7fNet+rV/jbcKsa/16 1Speq7KuyMutQf2/a871GcbPGR3ASt7NltsthdU469qzRhH0CNXLzWiJJw1B Zd3T1ajXCaibrdcbTx/tjViJR/0qGbSsJ60nrfIk+fGttfW9GPp/s9LKlQ== \ \>"],ImageRangeCache->{{{0, 952}, {1270, 0}} -> {-0.612526, -1.65169, \ 0.0198532, 0.0198532}}], Cell["Figure 1. The general tricompartmental system.", "FigureCaption"] }, Open ]], Cell[TextData[{ "Figure ", CounterBox["FigureCaption"], " represents the general tricompartmental model with one input and output \ in each compartment. If we suppose that the substance introduced into the \ system is a radioactive isotope we mush considered the radioactive decay, it \ is given by a constant rate represented by \[Lambda] (decay constant), it is \ specific for each isotope (obviously \[Lambda] = 0 if no radioactive \ substances are presents or they are long life isotopes) . The decay constant \ can be interpreted by an equal flow going out of the system in each \ compartment. The model can be represented by the follow ODE System " }], "Text"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["x", "1"], "'"}], RowBox[{"(", "t", ")"}]}], " ", "="}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["b", "1"], "(", "t", ")"}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["k", "10"], " ", "+", " ", SubscriptBox["k", "12"], " ", "+", " ", SubscriptBox["k", "13"], "+", "\[Lambda]"}], ")"}], " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], " ", "+", " ", RowBox[{ SubscriptBox["k", "21"], " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], " ", "+", " ", RowBox[{ SubscriptBox["k", "31"], " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}], " "}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["x", "2"], "'"}], RowBox[{"(", "t", ")"}]}], " ", "="}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["b", "2"], "(", "t", ")"}], " ", "+", " ", RowBox[{ SubscriptBox["k", "12"], " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["k", "20"], " ", "+", " ", SubscriptBox["k", "21"], " ", "+", " ", SubscriptBox["k", "23"], "+", "\[Lambda]"}], ")"}], " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], " ", "+", " ", RowBox[{ SubscriptBox["k", "32"], " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}]}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["x", "3"], "'"}], RowBox[{"(", "t", ")"}]}], " ", "="}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["b", "3"], " ", RowBox[{"(", "t", ")"}]}], " ", "+", " ", RowBox[{ SubscriptBox["k", "13"], " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], " ", "+", " ", RowBox[{ SubscriptBox["k", "23"], " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["k", "30"], " ", "+", " ", SubscriptBox["k", "31"], " ", "+", " ", SubscriptBox["k", "32"], "+", "\[Lambda]"}], ")"}], " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}], " "}]}], TraditionalForm]]] }], "NumberedEquation"], Cell["in matrix notation ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"(", GridBox[{ { FormBox[ RowBox[{ RowBox[{ SubscriptBox["x", "1"], "'"}], RowBox[{"(", "t", ")"}]}], TraditionalForm]}, { RowBox[{ RowBox[{ SubscriptBox["x", "2"], "'"}], RowBox[{"(", "t", ")"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["x", "2"], "'"}], RowBox[{"(", "t", ")"}]}]} }], ")"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ { SubscriptBox["a", "11"], SubscriptBox["a", "12"], SubscriptBox["a", "13"]}, { SubscriptBox["a", "21"], SubscriptBox["a", "22"], SubscriptBox["a", "23"]}, { SubscriptBox["a", "31"], SubscriptBox["a", "32"], SubscriptBox["a", "33"]} }], ")"}], RowBox[{"(", GridBox[{ { FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}], TraditionalForm]}, { RowBox[{ SubscriptBox["x", "2"], RowBox[{"(", "t", ")"}]}]}, { RowBox[{ SubscriptBox["x", "2"], RowBox[{"(", "t", ")"}]}]} }], ")"}]}], "+", RowBox[{"(", GridBox[{ { RowBox[{ SubscriptBox["b", "1"], RowBox[{"(", "t", ")"}]}]}, { RowBox[{ SubscriptBox["b", "2"], RowBox[{"(", "t", ")"}]}]}, { RowBox[{ SubscriptBox["b", "3"], RowBox[{"(", "t", ")"}]}]} }], ")"}]}]}]], "Text", TextAlignment->Left, TextJustification->0], Cell["with", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["a", "11"], "=", RowBox[{"-", " ", RowBox[{"(", RowBox[{ SubscriptBox["k", "10"], " ", "+", " ", SubscriptBox["k", "12"], " ", "+", " ", SubscriptBox["k", "13"], "+", " ", "\[Lambda]"}], ")"}]}]}], " ", ";", RowBox[{ SubscriptBox["a", "12"], " ", "=", " ", SubscriptBox["k", "21"]}], ";", RowBox[{ SubscriptBox["a", "13"], "=", " ", SubscriptBox["k", "31"]}], ";"}], "\n", RowBox[{ RowBox[{ SubscriptBox["a", "21"], "=", SubscriptBox["k", "12"]}], ";", RowBox[{ SubscriptBox["a", "22"], "=", RowBox[{"-", " ", RowBox[{"(", RowBox[{ SubscriptBox["k", "20"], " ", "+", " ", SubscriptBox["k", "21"], " ", "+", " ", SubscriptBox["k", "23"], "+", " ", "\[Lambda]"}], ")"}]}]}], " ", ";", " ", RowBox[{ SubscriptBox["a", "23"], "=", SubscriptBox["k", "32"]}], ";"}], "\n", RowBox[{ RowBox[{ SubscriptBox["a", "31"], "=", SubscriptBox["k", "13"]}], ";", " ", RowBox[{ SubscriptBox["a", "32"], "=", " ", SubscriptBox["k", "23"]}], ";", " ", RowBox[{ SubscriptBox["a", "33"], "=", RowBox[{"-", " ", RowBox[{"(", RowBox[{ SubscriptBox["k", "30"], " ", "+", " ", SubscriptBox["k", "31"], " ", "+", " ", SubscriptBox["k", "32"], "+", " ", "\[Lambda]"}], ")"}]}]}], ";"}]}], "Text", TextAlignment->Left, TextJustification->0], Cell[TextData[{ "In some circumstances, instead of compartments we have parts o process than \ can be represented by transference between Different parts, for example, when \ blood flow or other physiological parameter is measured. In those \ circumstances the transfer rate constants ", Cell[BoxData[ FormBox[ SubscriptBox["k", "ij"], TraditionalForm]]], " are associated with physiologically meaningful values that correspond to \ the measured physiological parameter or may be a function of them. However, \ if the physiological parameters are constants models are mathematically \ equivalent with compartmental models. We will refer in general to kinetic \ models. " }], "Text"], Cell[TextData[{ "The patterns that we have seen can be expanded to systems of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " compartments or ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " state variables (in the case of physiological models). The equation for \ any compartment ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " in notation matrix is given by" }], "Text"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ StyleBox[ OverscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "."], FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}], " ", "=", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], StyleBox[" ", FontWeight->"Bold"], StyleBox[ RowBox[{ StyleBox["x", FontWeight->"Bold"], "(", "t", ")"}], FontSlant->"Plain"]}], StyleBox[" ", FontWeight->"Bold"], "+", " ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}]}], ",", " ", RowBox[{"t", "\[GreaterEqual]", "0"}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "(", "0", ")"}], " ", "=", " ", SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"]}], TraditionalForm]}], "EquationNumbered", TextAlignment->Left, TextJustification->0, CellTags->"eq1"], Cell["where:", "Text", TextAlignment->Left, TextJustification->1], Cell[TextData[{ StyleBox["x", FontWeight->"Bold"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], "=", " ", SuperscriptBox[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}], ",", " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}], ",", " ", "...", ",", RowBox[{ SubscriptBox["x", "n"], "(", "t", ")"}]}], "}"}], "T"]}], TraditionalForm]]], " is a column vector and ", Cell[BoxData[ FormBox[ RowBox[{" ", SubscriptBox["x", "i"]}], TraditionalForm]]], "(t) denote the amount or content of species in compartment ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " at time ", Cell[BoxData[ FormBox["t", TraditionalForm]]], ". " }], "Text"], Cell[TextData[{ StyleBox["A", FontWeight->"Bold"], " is a ", Cell[BoxData[ FormBox[ RowBox[{"n", "\[Cross]", "n"}], TraditionalForm]]], " is usually known as the system matrix given by coefficients", Cell[BoxData[ FormBox[ RowBox[{" ", SubscriptBox["a", "ij"]}], TraditionalForm]]], "= g(", Cell[BoxData[ FormBox[ SubscriptBox["k", "ij"], TraditionalForm]]], ") where ", Cell[BoxData[ FormBox[ SubscriptBox["k", "ij"], TraditionalForm]]], " are constant specifics of each model (in compartmental models they are \ obtained in the form that has been descried) " }], "Text"], Cell[TextData[{ StyleBox["b", FontWeight->"Bold"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "=", " ", SuperscriptBox[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "(", "t", ")"}], ",", " ", RowBox[{ SubscriptBox["b", "2"], "(", "t", ")"}], ",", "...", ",", RowBox[{ SubscriptBox["b", "n"], "(", "t", ")"}]}], "}"}], "T"], " "}], TraditionalForm]]], "is a column vector where {", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["b", "i"], "(", "t", ")"}], TraditionalForm]]], "} is the input rate into compartment ", Cell[BoxData[ FormBox[ RowBox[{"i", " "}], TraditionalForm]]], "from outside system. " }], "Text"], Cell[TextData[{ StyleBox["x", FontWeight->"Bold"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", "0", ")"}], " "}], TraditionalForm]]], " = ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FormBox[ SubscriptBox["x", "1"], TraditionalForm], "(", "0", ")"}], ",", " ", RowBox[{ FormBox[ SubscriptBox["x", "2"], TraditionalForm], "(", "0", ")"}], ",", " ", "...", ",", " ", RowBox[{ FormBox[ SubscriptBox["x", "n"], TraditionalForm], "(", "0", ")"}]}], "}"}], FormBox[ SuperscriptBox["", "T"], TraditionalForm]}]}], TraditionalForm]]], "are the initial conditions, so ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["x", "i"], "(", "0", ")"}], ","}], TraditionalForm]]], " represents the amount or content of species in compartment ", Cell[BoxData[ FormBox["i", TraditionalForm]]], " at time ", Cell[BoxData[ FormBox[ RowBox[{" ", "t"}], TraditionalForm]]], " = 0. " }], "Text"], Cell[TextData[{ "The solution of eq(", CounterBox["EquationNumbered", "eq1"], ") when the coeffs ", Cell[BoxData[ FormBox[ SubscriptBox["a", "ij"], TraditionalForm]]], " are constants is eq(", CounterBox["EquationNumbered", "eq2"], ")" }], "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ StyleBox["x", FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], FormBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], TraditionalForm], " ", FormBox[ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " "}]}], TraditionalForm]}], "+", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm], " \t"}]}]}]}], TraditionalForm]], "EquationNumbered", TextAlignment->Left, TextJustification->1, CellTags->"eq2"], Cell["where * denotes convolution,", "Text"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox["t", TraditionalForm]}], ")"}], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm]}], " ", "=", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "\[Tau]"}], ")"}], StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"]}], "]"}], " ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "\[Tau]", ")"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], TraditionalForm], " \t"}], TraditionalForm]], "Equation", TextAlignment->Left, TextJustification->1], Cell[TextData[{ "Sometime Laplace transforms are used to solve eq (", CounterBox["EquationNumbered", "eq1"], "). " }], "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{ RowBox[{ StyleBox["X", "Matrix"], "(", "s", ")"}], " ", "=", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"s", " ", StyleBox["I", "Matrix"]}], " ", "-", StyleBox["A", "Matrix"]}], ")"}], " "}], RowBox[{"-", "1"}]], SubscriptBox[ StyleBox["x", "Matrix"], "0"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"s", " ", StyleBox["I", "Matrix"]}], " ", "-", StyleBox["A", "Matrix"]}], ")"}], " "}], RowBox[{"-", "1"}]], " ", RowBox[{ StyleBox["B", "Matrix"], "(", "s", ")"}]}]}]}], TraditionalForm]}], TraditionalForm]], "EquationNumbered", CellTags->"eq3"], Cell[TextData[{ "where ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["X", "Matrix"], "(", "s", ")"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["B", "Matrix"], "(", "s", ")"}], TraditionalForm]]], " are the Laplace transforms of ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["x", "Matrix"], "(", "t", ")"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["b", "Matrix"], "(", "t", ")"}], TraditionalForm]]], ". Then evaluating the inverse Laplace transformation is obtained: " }], "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{" ", RowBox[{ RowBox[{ StyleBox["x", FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], RowBox[{ SuperscriptBox["\[ScriptCapitalL]", RowBox[{"-", "1"}]], "(", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"s", " ", StyleBox["I", "Matrix"]}], " ", "-", "A"}], ")"}], " "}], RowBox[{"-", "1"}]], UnderscriptBox[ SubscriptBox[ StyleBox["x", "Matrix"], "0"], " "]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", RowBox[{"-", "1"}]], "(", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"s", " ", StyleBox["I", "Matrix"]}], " ", "-", StyleBox["A", "Matrix"]}], ")"}], " "}], RowBox[{"-", "1"}]], " ", RowBox[{ StyleBox[ UnderscriptBox[ StyleBox["B", "Matrix"], " "], "Matrix"], "(", "s", ")"}]}], ")"}]}]}], TraditionalForm]}], TraditionalForm]], "EquationNumbered", CellTags->"eq4"], Cell["\<\ Both methods are used for BIOKMOD software for solving eq.(1) developped for \ ones of the authors.\ \>", "Text"], Cell[TextData[{ "In many circumstance some parameters of biokinetic models represented by \ eq. (1) (one o more ", Cell[BoxData[ FormBox[ SubscriptBox["k", "ij"], TraditionalForm]]], " coefficients), that we will call", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{"\[Beta]", " ", "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Beta]", "1"], ",", "...", ",", SubscriptBox["\[Beta]", "p"]}], " ", "}"}], " "}]}], TraditionalForm]]], ", are unknown an they are estimated by fitting experimental data. It means \ that we measure ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["y", "i"], "(", "t", ")"}], TraditionalForm]]], ", being ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["y", "i"], "(", "t", ")"}], TraditionalForm]]], " = ", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]]], "(t, \[Beta])+\[Epsilon], for different moments of ", StyleBox["t", FontSlant->"Italic"], ": ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["y", "^"], "i"], "(", SubscriptBox["t", "0"], ")"}], TraditionalForm]]], " , ..., ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["y", "^"], "i"], "(", SubscriptBox["t", "n"], ")"}], TraditionalForm]]], ". Then we estimated ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Beta]", "1"], ",", "...", ",", SubscriptBox["\[Beta]", "p"]}], " ", "}"}], " "}], TraditionalForm]]], " by fitting ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["y", "i"], "(", "t", ")"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["y", "^"], "i"], "(", "t", ")"}], TraditionalForm]]], "." }], "Text"], Cell[TextData[{ "We propose chose the best moments {", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",.., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", ... ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "} to take the experimental data. It it can be done using techniques of \ Optimal Design of Experiment (ODE), in particular we chose apply a ", StyleBox["D", FontSlant->"Italic"], "-optimal design." }], "Text"], Cell[TextData[{ "In a ", StyleBox["D", FontSlant->"Italic"], "-optimal design the values of {", Cell[BoxData[ FormBox[ SubscriptBox["t", "1"], TraditionalForm]]], ",.., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", ... ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "}", StyleBox[" (", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], StyleBox[" is the time when the ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox["i", TraditionalForm]]], StyleBox["-th sample should be taken)", FontVariations->{"CompatibilityType"->0}], " are given in the points that leads the determinant of the Fisher \ information matrix (M) to a maximum. The process to obtain M will be \ described later (it can be found in Hill, P. D. H., 1980, D-optimal designs \ for partially nonlinear regression models. Technometrics 22:275\[Dash]276). " }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Derivatives ", "Section"], Cell[TextData[{ "The standard method to obtain the maximum of Det|M| requires to know the \ analytical expression of ", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]]], "(t, \[Beta]). In this paper we propose a method to compute the ", StyleBox["D", FontSlant->"Italic"], "-optimal design in biokinetic system descried by ODE with the pattern of eq \ (2) when analytical expression of ", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]]], "(t, \[Beta]) cannot be obtained. " }], "Text"], Cell[TextData[{ "In the ", StyleBox["D", FontSlant->"Italic"], "-optimal design method the derivatives with respect to \[Beta] must be \ evaluated " }], "Text"], Cell[TextData[{ "We used a subscript in parentheses to denote differentiation with respect \ to a parameter, so ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[PartialD]", "x"}], "/", RowBox[{"\[PartialD]", "\[Beta]"}]}], TraditionalForm]]], " = ", Cell[BoxData[ FormBox[ SubscriptBox["x", RowBox[{"(", "\[Beta]", ")"}]], TraditionalForm]]], "." }], "Text"], Cell[TextData[{ "When in eq(1) ", StyleBox["A", FontWeight->"Bold"], " depends of \[Beta], but not ", StyleBox["b", FontWeight->"Bold"], "(", StyleBox["t", FontSlant->"Italic"], ") and ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}}, TextAlignment->Left, TextJustification->0], " we can get the derivatives of ", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]]], "(t, \[Beta]) by differentiation of eq.(1) " }], "Text"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox[ SubscriptBox[ StyleBox[ OverscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "."], FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}], " ", "=", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], StyleBox[" ", FontWeight->"Bold"], StyleBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], "(", "t", ")"}], FontSlant->"Plain"]}], StyleBox[" ", FontWeight->"Bold"], "+", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], StyleBox[" ", FontWeight->"Bold"], StyleBox[ RowBox[{ StyleBox["x", FontWeight->"Bold"], "(", "t", ")"}], FontSlant->"Plain"], StyleBox[" ", FontWeight->"Bold"]}]}]}], TraditionalForm]], "EquationNumbered", TextAlignment->Left, TextJustification->0, CellTags->"eq5"], Cell[TextData[{ "Then, using eq(", CounterBox["EquationNumbered", "eq2"], ") " }], "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], "(", "0", ")"}], TraditionalForm]}], " ", "+", RowBox[{ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox["t", TraditionalForm]}], ")"}], "*", RowBox[{"[", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], StyleBox[ RowBox[{ StyleBox[" ", FontWeight->"Bold"], " "}]], StyleBox["x", FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " "}], TraditionalForm]}], StyleBox["]", FontSlant->"Plain"]}]}]}], StyleBox[" ", FontSlant->"Plain"], StyleBox["=", FontSlant->"Plain"], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], "(", "0", ")"}], TraditionalForm]}], " ", "+", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", RowBox[{"[", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], StyleBox[ RowBox[{ StyleBox[" ", FontWeight->"Bold"], " "}]], FormBox[ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"]}]}], TraditionalForm]}], "]"}]}], "+", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm], " "}]}]}]}]}]}]}]}]}]}]}]}], TraditionalForm]], "Equation", TextAlignment->Left, TextJustification->1], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], "(", "0", ")"}], TraditionalForm]}], " ", "+", RowBox[{ FormBox[ RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], "Exp"}], TraditionalForm], RowBox[{"(", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", " ", FormBox[ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm]}]}], TraditionalForm]}], "+", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm], " "}]}]}]}]}]}]}]}]}]}]}]}], TraditionalForm]], "EquationNumbered", TextAlignment->Left, TextJustification->1, CellTags->"eq6"], Cell[TextData[{ "Comentario: ", Cell[BoxData[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "a", ")"}]], StyleBox[ RowBox[{"(", "0", ")"}], FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"]}]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, 3.5453251976244135`*^9, {3.5694832903502607`*^9, 3.5694833127831*^9}, { 3.569483394839244*^9, 3.5694834582563553`*^9}, 3.5694841127253056`*^9, 3.5694846552982583`*^9, {3.5695095091045265`*^9, 3.569509523206951*^9}, { 3.569511026698594*^9, 3.569511070456671*^9}, {3.5695111482852077`*^9, 3.56951114942401*^9}, 3.569596429225343*^9, 3.569596471111417*^9, { 3.569611828083469*^9, 3.5696118319054756`*^9}, {3.569612385198641*^9, 3.5696123856436663`*^9}}, TextAlignment->Left, TextJustification->0], "= d", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, 3.5453251976244135`*^9, {3.5694832903502607`*^9, 3.5694833127831*^9}, { 3.569483394839244*^9, 3.5694834582563553`*^9}, 3.5694841127253056`*^9, 3.5694846552982583`*^9, {3.5695095091045265`*^9, 3.569509523206951*^9}, { 3.569511026698594*^9, 3.569511070456671*^9}, {3.5695111482852077`*^9, 3.56951114942401*^9}, 3.569596429225343*^9, 3.569596471111417*^9, { 3.569611828083469*^9, 3.5696118319054756`*^9}, {3.569612385198641*^9, 3.5696123856436663`*^9}}, TextAlignment->Left, TextJustification->0], "/da. As\[IAcute] se indica en Bates, en el parrafo que sigue a la ec \ (5.14). \nPara calcular X(p)(0) lo que hace es d(Xo)/dp, es decir deriva \ X(0)= Xo respecto de a. Lo anterior lo corrobora en el ejemplo de la pag. 179 \ Tetracycline 5.La conclusi\[OAcute]n es que siempre se debe tomar X(p)(0)=0, \ excepto cuando las condiciones iniciales son funcion de p, esto es X(0)= \ Xo(p).\nPara mi tiene sentido fisiol\[OAcute]gico, si p es un factor de \ trasferencia no experimentara ningun efecto sobre las condiciones iniciales y \ por tanto suderivada sera cero. Sin embargo si p es un parametro que afecta a \ las condiciones iniciales su derivada sera distinto de cero. Por ejemplo: en \ el modelo pulmonar la deposicion en el pulmon en t = 0 de pendende del amad \ p. En este caso x(0) si depende del AMAD p y por tanto su valor es distinto \ de cero y su derivada en t=0 tambien lo es. De hecho en mi opini\[OAcute]n no \ tiene sentido tener que calcular x(p) (t), entonces derivar X(p)(t)\nrespecto \ de t y despues calcular el valor que toma en t=0 pues para ello necesitas \ conocer previamente X(p)(t) que es justo lo que se pretende calcular\n" }], "Text", CellOpen->False, FontColor->RGBColor[1, 0.5, 0]], Cell[TextData[{ "As ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox["x", FontWeight->"Bold"], "(", "0", ")"}], " "}], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"0", " "}]], TraditionalForm]]], " \[DoubleRightArrow] ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], "(", "0", ")"}], TraditionalForm]], CellChangeTimes->{{3.5447640671672773`*^9, 3.5447640671672773`*^9}, { 3.5447718888984756`*^9, 3.5447718919093723`*^9}, {3.544772156556254*^9, 3.544772175058447*^9}, 3.545221994076685*^9, {3.5452220379751625`*^9, 3.5452220554939933`*^9}, {3.5452222361891108`*^9, 3.5452222459547276`*^9}, {3.5452223932969866`*^9, 3.5452223967289925`*^9}, {3.545222439519868*^9, 3.5452224437162747`*^9}, { 3.5452225817297173`*^9, 3.545222596159743*^9}, {3.545222720975562*^9, 3.5452227993188996`*^9}, 3.5452235168577595`*^9, {3.5452235871514835`*^9, 3.545223593204294*^9}, {3.545289924803893*^9, 3.5452899289691*^9}, 3.545325197671214*^9, {3.569397839419585*^9, 3.5693978678780355`*^9}, { 3.5693978984228888`*^9, 3.5693978992028904`*^9}, {3.569397958763795*^9, 3.5693979739426217`*^9}, 3.5693980788996058`*^9, {3.569398323135635*^9, 3.5693983599048996`*^9}, {3.569398409653387*^9, 3.569398429496622*^9}, { 3.56939846249168*^9, 3.5693984982313423`*^9}, 3.569398532910204*^9, 3.5694211399326773`*^9, {3.5694211840963545`*^9, 3.5694212668389*^9}, 3.5694215024803143`*^9}, TextAlignment->Left, TextJustification->1], "=0 therefore: " }], "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], FormBox[ RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], "Exp"}], TraditionalForm], RowBox[{"(", RowBox[{ RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", " ", FormBox[ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm]}]}], TraditionalForm]}], "+", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm]}]}]}]}]}]}]}]}]}], TraditionalForm]], "EquationNumbered", TextAlignment->Left, TextJustification->1], Cell[TextData[{ "In the the particular case that the input happen in ", Cell[BoxData[ FormBox[ RowBox[{"t", "=", "0"}], TraditionalForm]]], ", that is ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "(", "0", ")"}], " ", "=", " ", SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"]}], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}}, TextAlignment->Left, TextJustification->0], " with ", StyleBox["b", FontWeight->"Bold"], "(", StyleBox["t", FontSlant->"Italic"], ")=0 for ", Cell[BoxData[ FormBox[ RowBox[{"t", ">", "0"}], TraditionalForm]]], ". Then" }], "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ StyleBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], FormBox[ RowBox[{ StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], "Exp"}], TraditionalForm], RowBox[{"(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", " ", FormBox[ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm]}]}], TraditionalForm]}]}]}]}], TraditionalForm]], "EquationNumbered", TextAlignment->Left, TextJustification->1], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox["t", TraditionalForm]}], ")"}], " ", "*", FormBox[ RowBox[{" ", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox["t", TraditionalForm]}], ")"}], " "}], TraditionalForm]}], " ", "=", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "\[Tau]"}], ")"}], StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"]}], "]"}], " ", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", "\[Tau]"}], ")"}], " ", RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], TraditionalForm], " \t"}], TraditionalForm]], "Equation", TextAlignment->Left, TextJustification->1] }, Open ]], Cell[CellGroupData[{ Cell["The iodine model ", "Section"], Cell[CellGroupData[{ Cell["The model", "Subsubsection"], Cell[TextData[{ "Let's consider the iodine biokinetic model represented in the figure ", CounterBox["FigureCaption", "fig2"], " (ICRP 78) where compartment ", Cell[BoxData[ FormBox["1", TraditionalForm]]], " is the blood, compartment ", Cell[BoxData[ FormBox["2", TraditionalForm]]], " is the thyroid, compartment ", Cell[BoxData[ FormBox["3", TraditionalForm]]], " is the rest of the body, compartment ", Cell[BoxData[ FormBox["4", TraditionalForm]]], " is the bladder, ", Cell[BoxData[ FormBox[ RowBox[{"3", "\[Rule]", "0"}], TraditionalForm]]], ", i.e. a transfer from compartment ", Cell[BoxData[ FormBox["3", TraditionalForm]]], " to the environment, represents the output to the gastro intestinal tract \ (GIT) and ", Cell[BoxData[ FormBox[ RowBox[{"4", "\[Rule]", "0"}], TraditionalForm]]], " represents the output, via urine excretion, to the environment. In the \ follow we won`t consider compartment 4 that is not relevant in our case. We \ will assume a flow from compartment 1 to outside given by a transfer \ coefficients ", Cell[BoxData[ FormBox[ SubscriptBox["k", "10"], TraditionalForm]]], ". The coefficient transfer values, in ", Cell[BoxData[ FormBox[ SuperscriptBox["days", RowBox[{"-", "1"}]], TraditionalForm]]], ", taken from ICRP 78 are ", Cell[BoxData[ FormBox[ SubscriptBox["k", "10"], TraditionalForm]]], "= 1.9404, ", Cell[BoxData[ FormBox[ SubscriptBox["k", "30"], TraditionalForm]]], "= 0.01155 and ", Cell[BoxData[ FormBox[ SubscriptBox["k", "31"], TraditionalForm]]], "= 0.0462. We will suppose that ", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], " are unknown, although we know that their values will be about ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "12"], "=", "0.8"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "23"], "=", "0.0078"}], TraditionalForm]]], ". We wish estimate them taken experiment data from compartment 1 . The \ problem consist on decide by DOE the best moment to taken the sample. " }], "Text"], Cell[BoxData[ GraphicsBox[{ArrowBox[{{0, 1.5}, {0, 0.5}}], InsetBox["\<\" \\!\\(\\*SubscriptBox[\\(b\\), \\(1\\)]\\)(t)\"\>", \ {-0.4, 1}, {0, -1}], CircleBox[{0, 0}, 0.5], InsetBox["\<\"1\"\>", {0, 0}, {0, 0}], CircleBox[{0, -2}, 0.5], ArrowBox[{{0.5, 0.}, {3, 0.}}], InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(k\\), \\(12\\)]\\)\"\>", \ {1.75, 0.4}, {0, 0}], ArrowBox[{{0, -0.5}, {0, -1.5}}], InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(k\\), \\(14\\)]\\)\"\>", \ {0.3, -0.8}, {0, 0}], CircleBox[{3.5, 0}, 0.5], InsetBox["\<\"4\"\>", {0, -2}, {0, 0}], ArrowBox[{{0., -2.5}, {0, -3.5}}], InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(k\\), \\(40\\)]\\)\"\>", \ {0.3, -2.8}, {0, 0}], InsetBox["\<\"2\"\>", {3.5, 0}, {0, 0}], ArrowBox[{{3.5, -0.5}, {3.5, -1.5}}], InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(k\\), \\(23\\)]\\)\"\>", {3.2, -1}, \ {0, -1}], CircleBox[{3.5, -2}, 0.5], InsetBox["\<\"3\"\>", {3.5, -2}, {0, 0}], ArrowBox[{{3., -1.8}, {0.4, -0.3}}], InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(k\\), \\(31\\)]\\)\"\>", {2., -1}, \ {0, -1}], ArrowBox[{{4, -2.}, {5, -2}}], InsetBox["\<\"\\!\\(\\*SubscriptBox[\\(k\\), \\(30\\)]\\)\"\>", {4.3, -2}, \ {0, -1}]}, AspectRatio->Automatic]], "Text"], Cell["Figure 2. Iodine biokinetic models (ICRP 78)", "FigureCaption", CellTags->"fig2"], Cell[TextData[{ "Here it is downloaded the package Sysmodel (included in the Biokmod Tool \ available in ", ButtonBox["http://www3.enusa.es/webMathematica/Public/Docs/biokmod.zip", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www3.enusa.es/webMathematica/Public/Docs/biokmod.zip"], None}, ButtonNote->"http://www3.enusa.es/webMathematica/Public/Docs/biokmod.zip"], ")" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "InputOnly"], Cell[BoxData["\<\"SysModel, version 1.4.1 2006-12-19\"\>"], "Print"] }, Open ]], Cell[TextData[{ "In this example it is assumed an input into", " ", Cell[BoxData[ FormBox[ SubscriptBox["b", "1"], TraditionalForm]]], "(t)", " compartment ", Cell[BoxData[ FormBox["1", TraditionalForm]]], " is given by " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.020", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}]}], ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"B", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "3"}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3c4Ff4Xx6+Le6WirETIzChcSZNzkIqKlBAhKklIkmQnCiE7W8guZAvX SEZZSVmRVV8r48oOP7+/zuf1POc58/M8n/dH0OzuxZtEAoFgTkcg/N8unbWJ u3DXVmlgNZfV7bFK5dMb+8RbxTQhd8Pxp2rpADRPjVgGiBmDj9BWp7WnMzCT r+pvJWYDE2G33mkIEtCTa27PVTE3CO1jzpR9z4LteZcaQ+Y94G4iqfcR+068 0XPAa7HTE6RDVw1/UtnwqcTQclXsU3BZ1uPLmefEz/Uavy6JBcLCuVPbRsZ4 Mfsh24WrDEEQG9jSO6vJhw+fu78NnA+CjOxV+a+Z/MiUf8VirjMEgsYt78wk 70VJIkt/eWwEqKoFBpxnEUYap/Px6YCXoJmSZzMQL4xlEqORgu6RoPtZTiRB SgTPaddcemoaDTZud5UXj4ri3VcOjVpi8WDMaqxnsH8fHikYFvPclQDyv9Zt X77ah4Qb4ioGDK9gv8L9zqSd4tj4MDzBf/4VSNnQB1iPi6NBwl2D2c4k8L78 JrjMURKVJMR8/S4kAwZ1L+t+k0Sh/B/Fwo3JcKfwQN4ZGSmcqFPn1H3/GrwJ XBSrXil0mRJuex+bCkNKlOJzXAfwmmPP+iXONLj0199cweQAniQGH/gTkAaa JpU4mnIAt3Ot+wm4p4NkW3lc535ppCUUlJYspsOLrD100tbS+F3izqi2bQa8 7Hx1yS1LGuMVu9S8TDOB7a9E6HEhGfSsD7Tn68kEZXdXlUoDGbylrZZcdDEL OLTtLCyDZVD2Zh5hTPUNPMifGjVdlsFqf/+y82LZEK3Ae9zJQBap491NWzOy Qc5QoSr7niyWn9nX3yiVA9X7RX7/eyaLhkRTQjJ3LgwZL3T8eyeLBu/IW4gG ufDdJiCt9KMs6l/L3mkakwtazgTZ1C5ZvExdFRLgfwe69YHMwv9kUcc6ScrN 5B0EBXKZVWyj4MU96vJ9r96BZ3ebc8weCl5wilCLEc4Dz568okPHKKgpoai5 ciMPvnz7MbNymoLnu4Z1r6TmQciNyL1clymooUCx2CWRD6q2pFsm1hQ886vT 1sEyH46orlWGO1LwdJjbo29Z+VDPqx4m94SCp1RFPeX/5AM795+6owEUPEn7 7BcqXQBhHoLCOREUVEm0C6XdLQCrhyNXIxIoqHxhd6z2uwJ4ceTZzrk0Cipl m79llS8ErnQfGk8xBU8YbS+yeVAIH3lok5MVFDy+rYDaXFQIAXE6G8q1FDxW ZlC/f6kQ2rgeGPF9ouARS7q250eLYFzv4T7PVgoe3p3eNe5UBJEely3vd1BQ oUFzUL28CAb8dfb+7aKg/MP5sfS1Iijjd6CQ+yh4UCyWRoZiOBf23/2cAQrK fVNZNfcoBn5nmzfTwxSU9Rqjr6suhku27YGfflNQ5mDQNlH6EnB2PUlVGaOg 9JACp9fJEtCjq202mKDg/uA+vmHvErh58DFy/qGgFHqJqdSXQPsFRT/7KQpK TkvKJDKVwrJHOqvzNAXF478cJmiUgr57hZjUDAXFzjuiyfNScOTm3fVsk0X/ 8atTm0qB95khT/Ami2R91OZjeQ+PqLevnt1kIQMrAxet93A4u2O1eDPe3i3s 13uD3sNN/73M3Zv5BEpK7xxrfw8PKVz+uZv18N+6Zh/FXgacITuccJKCe7jI rks6ZbBkeqbKb5yCPB/feutFlIHWBB8Ej1Jwt71OYFFnGSiLmn6+vNk/t/Bq BOfucnDiiJTu2ZwPV3tigr1BOTB4qO7bO0hBjsdn0r/GlMMzBqHbEv0UZJed zpXrKwdS0L24xR4K7gg8UTNjUgFJ3LpaY18pyKI4/EkrsQJ+6vL+YW2j4PZJ 36/ZQxVA5yNJpWuiILNG54jVTSqsCLi1n/tAQUaSHXnMshJc1FQr0nIoOKru zjqXVgnPEvjksjIp+CnAf9faSCXcepuz7JtCwXq/r6E+MlUwr61k3RdNweds U8mxGVWg7VQitLB5fzmEhGtr46phQvVdeM6Fzfi1Eg3q5dXQZi4w0a5OwYWb sk0tPdWQSzaf7lehYFeGYkfXrho4IZ9Tli9PwTiK/shkcA0cbWZ/brZrc3/K AQycTz/A4oE2PYNuWdw1HMoU/foDJJeE3L74RRaZvKO3CXz4AD02HuYnGmVx vCGNQ4JQC0/p7ehGS2Qx50KNiKJTLbTyG2DmS1k8cm3x5E2bj2CjNFSkcEkW 1d1NvQt162HpyjO+Al8ZLH50sy/lSwskKdel+3FJYbfBHRm7h1+BcEfrc3ae GO48HWBejZ3wPmRJt1hGGE9mlIOUdicozGVXFwoKo+PWSe5w007o3e0kRmUX xoFWjc8Wnpv+LtP1k4tCmKvPJLujthN+0t1oqqoSwguWT5aNT3eBTLdhj5KO EAYFPPL/d74bJEXkKJaegrij42beYcNeOOo988n0rwDiH+VxnTu9wHWwyd2q TwBtSfxCds69IJRxI+pZnQB+OfI9+E1MLxDmbVumIgUwJO7UPcEfvfDihA6z h5IAct7aJ7vV6AdcZW+WeO3Pjzwro2/7jfsgxYfwL1WeD4X3WmV4m/2EaTgV f/odDx7ps/6sHDIICxKyO0WCuTBbwo7TInoQjpp9yn7vwYUiDg4mgUmD8DeJ eszIlgt3sLrP9eQNwuDj/asftbhwDIN47b8Owt3qvAOirFwY/TrvTirHELwz rRljC+LEf3cWt259OQS0w9SH96I5sHrF41xHzDDsDLBJdm5lw47ddgt3k4fB o9RssrCGDX8fuf5qa9YwKBX6DS4VsuG2h2p/Vd4PA88ZWklkLBvqzm2Jfdc1 DJ/5zBzBkg3HJ0ImAjlH4OpyjrgImQ05+l77qb8YgYHAziCh0zvRorKhger5 C15VtKU8qWDFqOtpPJzX/oPb/DaS1/qZ8YD+4ML6zTGo+t3g02xFwlg2WH9u PQYDJnb73hmRkLk5lnH3gzEYZgqaj9ck4aiyPsdBrzHYolTMECVLwtdSrZRb SWNg1JkkQ5pnRJ6NcqvW/jEQfmvcQnVnRFJq5FCC3jg48x9qdYplwP45rRZU nwAia5946SwRA3k7hW21J4BJtdJ6eJiISqrGjxKuTMBQH3/Lru9ETAixElm/ PQEDlK8f4t8T8RrF16nMbwJG+tIKRbyIOGxTI6bQNAGsHUevMO8m4uiYvLuU 1iQQZZNHmDXokPZztyzX5T8wsHPLi/rADdh7fVFewOgPeJDMu/c5boDW746j 4jf/gNHhXqNI0w14M/lC9diDP7Ao7/c7Q34DzJcZ9YzD/8D9FZn8gN516GGj uaZ++wOu6ZcVNPevQ7Xap88KulPgP2R3/0b3PwjKcrqlpzcNVim8C89NVkCM lem8Y8wMVHEfGeXTWoA3M49TfRJmIEXzpdms0gLIta9uRCbPwG7h7VFt0gsA 4dN5pVkzsP+AAnceywLo83Zyr5Zt6sJjGXaE1nnw25c64vpjBtR07NU+aM/D FJx0ecI3CwlDVkzpJn+hyNYjKzBhFqZfVFAUYmjgVzZTcCV5FsIefdqXEEgD E5IpVSRtFqIUq1/v8KQBU6zyl/fZs0At0duz/TYNDOqJi78rZqEz1M70zmEa rPN5q8CPWfB5dE2j5NssqH327Z7mpgFz6dcIK+5Z6BANJWuH0EBwIUNfzHIa 1PdxH7GOoAHlzXdPgUvTQBWPs/CNpsF/K90hEiemIUMqrbE6iQae/32Xs2WZ BjdK2XO5fBoccK3fXZc/BeKKw6wcHTRQGpro9qWbAhedg9ydnHOw/dtaCl/G JIg8+SpuFDUH51bUHi2IjoN+Hj3FPG4Opl99kxNjHwf/wYNH7ybOwXO5TKfr hHGYhzD1xxlzwGPBE0jqHYO6fzqWKaVzsHeXZcGfoDG47fA960/3HCR27Y88 vDEK2be7pd14/sKsJMvUw1//wdELP+UTYv7CKfESct73X9Bn660U4D8PtEKO 6lMOQ0CoquJLCpqHTkU6226LIRBh/fevKGwe2H6pjT4wHALLt3ZlA7Hz0OOr x92EQ7A0ZnJE/u08cDAp5U5uHQK268fkepvngXB6PXYpeRDOXJ4WlWBdgFP2 J8229g5A3tEr2z8GL8C2s3VZ+vX9IELziw0LX4Ae1rsH7fP6ITyzXOpG1AJE lNrPxcX1gyPvXg36xAW4yj0xz2vfD0prv58q5y7AMR6VxSrBfvhcZU+gtixA UeRIRKp7H4ycDpor2roIEQp3/8ar/QAu3frudO9FqGw633Z+qRtgiBBcY78E ayXXWPv+fYMoLovtYo7L0Mecf8/DsB1K9lw4O+W8DGJ0JTbiWu3QJXTEt8h9 Gah2Qh+6VNqBW4aJ8fSzZTjO+trwomQ7RJxO/3crYhlmn4Zlpy9/gTDH0YmM gmUItdUh9kV9gcAei08HZpfhLcegjtJAG3jG3352yHIFlqcek9zIraBiaD6p abMCGqLLxP9mWoCe+7q2hd0KfJhmeH6tpwW8gq/yxjitwIrfg+3eb1vgqZdW DuH5CuQ8HfUL0WkBX8tDnZ+zVmCvyfH1gpRmCFKg22f2ZwXE1Y8fr7vUBHEt kXWBtquQEyk9m/6jEfaUIn24/Srciv0vSe5TI8Qmj0KM4yq8Uq6NaSxu3Dwf KU3zWIUGufoTAqGNECXUlVUVtAoiGb5yFhqNEO6wK5iWuwpTF8aKLcoaIIA/ wlB3dpPVavqHU+vB1SZ0hs/uHwQf6TT4lvgRJkzFua+YrYF45jkBHe0aMNj8 xNwxX4PHZKPPIidroMEhEFwt1+BKwRDrhkINpDz/a55otwbrCTan2vbUgElh VeGY5xpoi/qkjYxWw1emK5ecktegPV7yWKtnNZTl+AbGjKxB3paSVJeKKni+ Ns7Qb74OxjOj1FdRVDhzL6wh03IdmOtjTfd4U4Hhl6L/Q5t1cHpEm0+xpYJb UxD7Tod1oCblNQ+dpoJtjILQSe91yKxXkCMuVoDuUU/ITF4HPeG0jFa9ChB6 sNvJYWAdpA1yrG4Kl8P7ydPTLAYbIOHzbzxooBS+ix4ZOiZCwC6tG8WSi4Vg IXFdJjSFgLsF13tGbuYBP3Po6IM0AsbT0hc/XMmDr+M1ifoZBLQdJ6llnc8D pTdCHPxvCSgv2GYYcigP2GWGltILCGj/c+dANWMeUOVNa6gfCGgmQnmSmPYO ONDk8vggAUccvWYUZ3OhWtfQWZmfDonNpQFRh3KgLoSz4dxeOpS2GE29KZAD TS2tHPpCdNh8P4WosiUHuk6dzLYRo0Nku3JRqi8bZhQODMZI02FyqDVTpXc2 8O/aOLWgRIdTZ6OjBrrfglNnEluWCR3uXaAZlge8gYP64xkciXSYzdJx/Z5g Jgw0JGiuJdFhvdH3XukdmeB/9PLcr9d0eE7wtfDSegb85qk6UZxOhx/i7hGz f2RAdF9465VcOvzCVbAnNTIDiNeV5+Mr6fBMf1JHFVsGtFlHokQ/HbpO1c3c Zk0HqyenOhV5iejop1EzKp4KPuZMK3ShROxI89Kc+ZkENxv54reEE9HNq+tR f3sSqOw/qLLz5eY7PBQm9f1jEqzOGvntjSGipOYb0lBWEti45vNAMhG/RVN6 LR2T4HKY8XGXfCIKdb3ddpw9CYRqClwWvhJxo/rcljStRKjgM90Y56DH7ILL e4JrEwAL7622ctHjCSU7TcXcBKg957lYwE2PGk+36S/GJECTc/K02x56fG12 uinsfgL86P71k02EHsffssvbCyfAv3DLqmMH6ZHa83i63DsejrPYP/bTpsew oRPNCjpxULr+lF4ykB59Sw89+MUVA4GzgqGHg+hRWr2d+RJDDJiNlAuphdCj bp6mfstsNDB/oilfi6DHhtM5tD9N0XA13NgjIp4eWxpEtrc9iYZ1KYU1Ys5m ftp9yq6/UXDyyq+F3lZ6/CTKbG/dHwkt+arjATsZsL2nxlauKwI8FQt+BbMz IEmgV3xrYwQo1IsMhnMyoEWp4tBUaQTE9zB2xe1mwGLvg0c7YyLAmq7h41tB BuTZbhgjeS0CtmmdS2ymMKACwy/jb+PhoDGuo7/9IgO2nWJxZGQKh497zev8 QxjQWd1FUuFaKOz9+WW3TRgDpkaFyljrhIJTnKK1VgQDZu7jlX9zJhRkeTg5 2KIZkJ64IapCCYVY9lrTl4kM6HTFfVczMRTsSUJribkMuOCpFmSQFgIik30H i1sYMMT+so/MQjB4FV9OHGRmRHutu4cyM4JA9stZn4ltm7pOZrJwKD4IeseV 786zMCKd1y1x4bAgkOOXVtzCzogrS/JNZW5B8NOL1C3Ly4gnznPZnNUJgmMX i3d4SDHiiN2CwE9CEMxMcnvwn2PEL1sPOphVBsJVoR/GhgGMqGAX8ijzpj9k 2zbHqbxgxLI7F99M6fgDXSX1h0QwIyZY0W4rnfSHVMNEg6UwRgR+K3OCsD/M hJnrhscyYntMsu/2wefgRZ4935rFiLMm1wrVTJ5v6jtGRdVPjEh98Cps6bof rBbJ8EqRSahub+vV5u8D0rELH5m2kNCtaWcEvbsPXHtcYfubmYRrWEfEez5Q e/ZsXSILCZ3F73d0XPYB/wHze9xcJGSaZs2yFvCBPczx9YyiJExOtq7VLXgG J4y22Q+okPDbIZYHP0aeggv9WFO4GwntOuW47pl4w7rqsa2xHiQ8kGZt33rR Gx57PVdP8iShwadI4cOnvOEpo3Rd9lMStps1XBE64A0vyPcr6wNJuBrUefvW qhckbV17txxPwp8PezVSo7ygkX3nS6NKEvI5qEY3/ngCXCJHTUUJZCzui6aq u3gCRnkvMhHJSBgIzHK184TbLO0Bk/RkVDFiMyqx8ITyJcv3+WQyHvJ0XVW+ 7AlmzbHsKqxk/D3hk5oi7QnZDoQ6Y34yOq/E1GYOPYZTjfWSkSfI6KUVfThA 6zE8tNH9y/yIjO6rPMc+HveAPQo3GsScyXjJe/fxUDkPqFq7F6viSka2ygsG FhIewBwQcNLpMRnVJqb69u3ygPis2rAxXzLq6v7XsPDLHepG5Q41RJPRlpf1 1U89d+C4zurgXU7GQqry/Fc1NyiV5NNIpJJRz8HhnPAhNzCmSfJXVJHxobDt S3cRN0h/fKruby0ZGZujB43p3eD4K1euG81klA/4oFBc7QpmfRNFKv1klKuf da5DVyCnLPsZD5Cx1/qT74CsK7yxIps4DZHRYvYSjSToCgurQuS835v8Rjrb kc4V/HgM9ASnyZi74tY8VeMCMkO3pBRnyVjHI/HWMt8FOjIebOjPkXG6NTmO luwC/EeD04IWybjrTry/mLcLfCAkOL9ZJmOi1LJj+wMXsGh4o9WwurmP/T3a fuYusC3ovfDIGhm5fgGLpp4LvNNrWNzYICNfhEwK3xkX+B8UYW8p "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"days\"", TraditionalForm], FormBox["\"r\"", TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 3}, {-0.0005647531064666388, 17.939714095445293`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output"] }, Open ]], Cell[TextData[{ "This kind of input happens in real situations when there is an input from \ the GIT (Gastro Intestinal) to the blood, for instance if the iodine is \ intaken by orally. Then ", Cell[BoxData[ FormBox[ SubscriptBox["b", "1"], TraditionalForm]]], "(t) represents the input from GIT to blood. (When the input happens by \ inhalation the flow to the blood can be represented by ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"34.4`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "200.`"}], " ", "t"}]]}], "+", RowBox[{"1.09`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "110.`"}], " ", "t"}]]}], "+", RowBox[{"0.808`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "102.`"}], " ", "t"}]]}], "+", RowBox[{"6.414`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "100.`"}], " ", "t"}]]}], "+", RowBox[{"5.458`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.`"}], " ", "t"}]]}]}], TraditionalForm]], CellChangeTimes->{3.58660940068462*^9}], " that is the function used in the article). The initial condition are ", Cell[BoxData[ FormBox[ RowBox[{"{", " ", RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], TraditionalForm]]], ". " }], "Text"], Cell["\<\ In this kind of experiment usually is used a isotope of iodine with a decay \ constant \[Lambda] (his value depend on the isotope). The coefficients \ matrix is: \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", " ", RowBox[{ RowBox[{ RowBox[{"CompartMatrix", "[", RowBox[{"3", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "k12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1.9404"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "3", ",", " ", "k23"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "0", ",", " ", "0.01155"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "1", ",", " ", "0.0462"}], "}"}]}], "}"}], ",", "\[Lambda]"}], "]"}], "//", "Chop"}], "//", "TraditionalForm"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "k12"}], "-", "\[Lambda]", "-", "1.9404`"}], "0", "0.0462`"}, {"k12", RowBox[{ RowBox[{"-", "k23"}], "-", "\[Lambda]"}], "0"}, {"0", "k23", RowBox[{ RowBox[{"-", "\[Lambda]"}], "-", "0.057749999999999996`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ShowODE", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1.9404"}], "-", "k12", "-", "\[Lambda]"}], ",", "0", ",", "0.0462"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", RowBox[{ RowBox[{"-", "k23"}], "-", "\[Lambda]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "k23", ",", RowBox[{ RowBox[{"-", "0.05775"}], "-", "\[Lambda]"}]}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", "B", ",", " ", "t", ",", " ", "x"}], "]"}], " ", "//", "TraditionalForm"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "(", "t", ")"}], "\[LongEqual]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "-", "k12", "-", "1.9404`"}], ")"}], " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}]}], "-", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86`"}], " ", "t"}]]}], "-", RowBox[{"0.02`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147`"}], " ", "t"}]]}], "+", RowBox[{"0.0194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093`"}], " ", "t"}]]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "(", "t", ")"}], "\[LongEqual]", RowBox[{ RowBox[{"k12", " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "-", "k23"}], ")"}], " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "(", "t", ")"}], "\[LongEqual]", RowBox[{ RowBox[{"k23", " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "-", "0.05775`"}], ")"}], " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}]}]}]}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "(", "0", ")"}], "\[LongEqual]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "(", "0", ")"}], "\[LongEqual]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "(", "0", ")"}], "\[LongEqual]", "0"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "We represent the evolution of the iodine content in the compartment 1 where \ the samples will be taken (using ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "12"], "=", "0.8"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "23"], "=", "0.0078"}], TraditionalForm]]], "). We will refer to iodine 131 which has a radioactive half-life of 8 days, \ this meaning that radioactive decay constant \[Lambda] = ln 2/8.02 ", Cell[BoxData[ FormBox[ SuperscriptBox["day", RowBox[{"-", "1"}]], TraditionalForm]]], ". Then the compartmental matrix is:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"iodine131matrix", "=", " ", RowBox[{"CompartMatrix", "[", RowBox[{"3", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "0.8"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1.9404"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "3", ",", " ", "0.0078"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "0", ",", " ", "0.01155"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "1", ",", " ", "0.0462"}], "}"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "8.02"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.826827329246876`"}], ",", "0.`", ",", "0.0462`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8`", ",", RowBox[{"-", "0.09422732924687598`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.0078`", ",", RowBox[{"-", "0.14417732924687598`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"x1", "[", "t_", "]"}], ",", RowBox[{"x2", "[", "t_", "]"}], ",", RowBox[{"x3", "[", "t_", "]"}]}], "}"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "}"}], "/.", RowBox[{"SystemDSolve", "[", RowBox[{"iodine131matrix", ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", "B", ",", " ", "t", ",", "t", ",", " ", "x"}], "]"}]}], "//", "Chop"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"x1", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k4lF0UAHDKViiMZV7LMDOyJdQnSnhPSYbSRrJnJ2QpWQpZoywV0iZR WqgoQrJdJVKSJISyJrIra+S7/TXP75k7dzn33HvP0B28DzqvYGNji2JnY/v3 yVGSuzpIwZCka86LGDrQUTGPovQxtwuk2qkQ8fQyLlQVmJul4HaLVJQTf7Pr ynxlska/NX/ifXJkyjxX68FoZY2aryuXWx7Jy7iCjnN0VQaLLD9fziggvQS/ TelYvq5MTdLXXUwoJkWs3Nie/8gn89bGv5o7VUqK78kl0t42km/im1jTrpXk 8YWska8B7eREFN+PwJwqkhb3vD9UpYcMeZWnOJvxitxWuGh9zLefXL3CxPPk ldfkStMMuK/4g0yFmdxfCbVkzoxBFd/xIZJ55tqkb1QduUnH3b/Qdph8Uq6t PnHqHXltf6/i0t8RUnuxy9/L9z1plccf2W47RtZpRZaMuH4gf2c6a9XEjJMP tSmhm/MaScNxovQxTJCTHU63/HI+krkafZ/7H0yQW04XoYK7TeQetcZkyvIE GSrO0zuV8Yk8m/Zt1kx/kqwusVi5Ka2ZjHl8+KlfyCS52uKhrO+Vz2Rfxjuf kQeT5P65Rf0nSS3kuoeFOpx1k+SVK3tdxxNayYKc7JbWb5PkN42MWJVzbaRR bfwXs+FJUrZlMvtY1BfStmtE+9D4JOl+Uu/dozPt5K6eqdA4/P0T4csjw6c6 yJ1aoc03uifJmYIB/vX+nWSO2+GLIh8mSR2TLaruvl/JoImOkYDiSTJq6tz+ bM9v5MWFRHP165Pk20sdvoOuXWTJ/CXbJwGTZOzV1Lrkjd2kaV6QrsH+SVLZ jbT8L6+bnH1UsWO37CT5QXPwZ5NyD2k78bGH6/cEeZz70unjOT2kooVzQXnl BCnSupVPSKGXPOORsP1xzAT5/F5v2tO7vWSbRF8p/54J8q++esVERh9JFoaN fr48TmaKfN17kYb31XIpN4p3nNz5PbpLNa2f5NIsDgo/PUbGRbWyeV/5TmoW aN6I2T1KUl+d0htN+EEWMb5/vJX/kyxNYjbH8w6SPP5m36rZf5K2DvVOyucG yXeMVQPcxkNkFjvtrEfUELnpaJFUQtsPciNUvRk6NUxu7zvpm1TbTxqVc+8d cB0nJWhlEdm6neTGZYdp0YlxclOwi4eWRTsZL3Okgak9QaZqiQm/82oj/Rxe nDStniBtBAwvXo1rJncO+FQXNuN9qS0POyxTR/aOfrUPnP5F9ijx1W0LfFIp s1SctqQxR962HSz62tpX+Z5fYxWHDRtsVnAL15NeqmzaLXS1IZgNRt3L7l4r WKpsOzcmdy2NDfxy9KdlWX8r+znv71TpZIMWCd3Mz77LlYtLYmHmVuzAFjp5 rqyPDSmNzc88slgB2qNvzhvprESxDeX9h8w4wH6LxOXRBW6UyHf9hIw/B9RR 3/FyGvCgFCP/FcOXOYCdy0+KlsyDbtWoyIR95oDGwZKO/etXoaKKW1Y5ppxg sMo145rVavQ9N7zp70Eu8NujGXL7BR/acUEf3d/HA0n7N+u8LxBAYUbPspu8 eED3Ns+NllYBVMHJTF5K4IF79Zs8av4IIK1gNheTeh4YveHKMtUTRP8dLeVd Zq2CE5Xv9q38KIhk9TYeNtuxGvL1eridvgshh7+3INx+NXTutaIoclNQRska pUdhqwF5W8iXKVCQpNrIInvlaijhYyrpe1CQiNT924+38YJj6iuv3FEK4pqV HOPYzAdsQ2OqygPCaGd+XKuqKR/EVQfajq4UQRHHFpDlCT5ImQ28akMXQX/7 WpOfPOWD86PqtnpWImi2MWmrtQo//LG3ejv2VgRpxLMzY4z5Ibb+cufUdxHk Z+DDl+/JDxHXXopeYRNFE+XGXdwP+UEltuVwibooGszhiS6QXwM+PB/Kt14V RXIuAV7fdq2BA3eWPSlPRJETfeDwKpc1wHXmc0Z4rSjqvvJK6UjWGpAyqdMS mxZFX6JCG1fT10JlnvMA/24xRIXRks2wFpSdxT/5HhFDZn+s7tgdWQuXLR15 nU6IoSbfrf5FN9fCjtDk/6auiSFn1QX+jfwCsJTjvL2gRwzt6Yi5S6UJgO7Q q5ixX2JIPUZEh01VAKLXV6VlcVIRR5ea54f9ApDCvV4+Sp6KRs5XrCy2F4CS lew+eZpU9Eljz43047i/TJayhQEV3U50fXssRQD8d9DENjhT0XmtaftDdwXg 09fV0pYnqMh3IGJeu0gAGlZpG/GGUxHopivwtQnANjvDSbYbVNQ12nw2R0IQ 9N5x/PWqo6Kaaw60JGVBoPnFfJz8REW5+hOFQTqCcHEpoZbnGxWF3uT9zjoi CF7mzywWJ6jIxfBasJqPIFirqOR9naci42k5YWq4IMwveKVaryCQpPEOvR+3 BcEvi79DW4hAHPMf2hsKBCH/kzXjDkGg4Syb40XVgnAgwKT+iQyBXiwGZkYP CMJ+aVe5+g0Euv2Aa+uxWUGIbqVWffuPQOdNUxpNeYTgtfOGS7e3EsjiUd4y U0kIDF96BRnsJBCY61zh3SYEK3esMNtgSCAFjncqv3YLgbHT3Nh7YwIJPDGv abcWgn577uT1Bwk0ZzVg8/KYEHDzVMawzAjUze03nR0qBKnx33nkLQlUW8Ce cOmCEHTGDhjU2RAolVeqzO6pEDxr90u0dyJQaHGOCeulEMQ9HUZWrgRydtwy rPpJCKyRPRfDnUB71tZEiPULgfl5llmRJ4HUS03El38LwaqyuzfEvXF8XHue DnBSoOngyLP9vjg+FG/DBlEKjN3pOWF5gkAjFYvdhfIUiD6WcHPrSQJ9cj8f eHMLBVZKq/8c98fxEqUKRBtSwOO8JeeZQByvl3fve1pSIEajKWEwCMfL6z/S 1IMCdy68F1E5TaDj4lUt24Ip4K/9h3EgmECWNXu9mAkUEOy/r2ISQqDtxzs5 edMpEPni+93NoTh+NPebU7kUeLOxZGgeW+DtrHp7JQWmNhvtyzyD43cyur6q kQIyToTMhjACddEpTtk9FDj5bMv1dOya9xl/Lk5RQIcaMzGDnRukkhy4Uhj2 pI4ZaYbjeK4rU7ITFobwgKwaO+zQj4YvDdYJgwDNw98P2yWk1UJVQxh6FD87 nMA2VnSeFDUQBteUc+dtsRfiTpZ+NRMGa0dNQgv7wVh0dJaLMES4W3JyYZsd SN3n4S8M0bvfcb/C43M8u0dsOisMi0/vNfli54sW981dFgaKdKggBftIUO3j yrvCkOcSe/Q+Xh9fZ2vA2UJhKHv1MUgV+4Xu4Hbj18JwxcOj4yGOh1vmHK/w Z2EwjrtOl8IW4VjV0t4vDFJpXO2ROJ4+dYrubhwiMNagWv4fjjdNWUtdVVgE LvSVD4bg/XiXaPR3mikCnBPhsZWnCCRn6pEUqScCG0MbJpTw/jUXnbY2MhGB WjFKyiG8v+FEvJygowhwXDpkHxRAoM5vj16kR4gAu2QVWy7Oj+SjY70lVSIw rqqk/BnnE9sZ3/8mSFGgatZV2B7F8e8JXyraJwque2+G73AjkNXOpNqQI6Lg LyXKIYvzt2hVgRXvGVEwN1Dk78H57ZnyO1KuQhSGmE3SLDsCfckOaLbWFoOm Rc/qYXxe8ptDTtZtoUJ/2Os4Q3z+HkQ7OfQaUkFX3M2FX49A6Rq79/2xpMKa 3tXRTdtxPl6lKm4IoQJLwfSVHUkgR+uCzotVVKAwmxIStQgk3D+oZ25EQFl6 UIrmRgKtvvxBzdeKgO1nT8YIq+H17CqSOu9JwNT6k0a/VPD5uB85W5pIQHzq nYNFygR67UF7KP2JgC3DFa0HFQjk/8tE6IeVOBxmc6QPSuP1ZGktL3uKQ2JH UEofjUAOh+gj1FBx2PJAe7lbikB7i8deG2VgT4lU9EgQSP70uaDcfnH4Qvs5 uCBGoLYVld0nj0mAZfbN2jgBAm0TUsrjOCMJMpVikfSVBGpgt6x7f0ES0k7b JNni+89u8lxfaoYk8AUketxkJ1BU45CY4ktJeDew7CfDhtsnZocZc0pBzhrt Z9uWqMiOV/FgapwUmI8dsXg9S0VTC+aeR9KkoEE3QYOGHfUz9qzCYylwLTKp Cpyhouy6wRcvGqTA9s2htk3TuH3MA2aXIA0czcrbXkzh9hwK0/JXafAo/FcM dYyKRH8fXjv5gAbW7hcd4kap6EFfjOKLEhp8jw9/vzxCRe9f/rDZ00ED0a71 xqPDuH34/RofmjRYzIVVtQ/h8ZbkrpZkSUPkg9ippe9UpD1qlh9RKA26HFFL sdgNnWfrd9dIg008ChbBniodYPv2QxqWPLQ+buqnIprOJ/VwERmoXTS5E9pL Ra5/km7eNZeB5vkdwRZdVJSyd+RVkJ0MVP52MGHHRpn6P43dZOACNB3Owe8P lTWnMRMgA2pPkvqWv1LRmxSbxl1XZICYyep73klFv38UzYjfkgHB2zor3LFl tglIjd+TgYEjW3dKYgf2vDx6pUgGev5EbojqoCJFFYWVg59l4EvP4An7dioy Cw9XLPsqA96nBOMlsCOa2/dd/C4DjnaSFS1fqKj9VELalmlspS0e+7HP105t PidMh/nXwXX726ho2K7cTcmEDm13lG9EteD5PhO98NeSDpuTZuv2Ye/k9ils cqBDU2IHmyR22mPGitPH6bC8vSCi+DMV7VmIufHuEh0idc1KFprxfI17qm5d o0NaTDJvA3ZWhtbgiUw6VIhdt7mNvbhrVF3yKR1ajWcXjbEfJx9s8Gykg0Xd BN9T/H63Dzz8DW10iCr03B6PzaXFKSHSTYecsspjbti23cWu5eN0WNvOl8PE Pv+fYOKlWToc0JN4vgK76Kz7M+dlOogcVXzR20RFazZIsa9ZywD5S8Gpd7G1 wvzle0UZkFTd7RWL7fLpg3ERjQH7hSI1PbErgiKu26owwOtvw2UNbO+aH//l GTPA4sCgZ8tHvL/wyEPZjAFIIa23Alug1OdOti0DCh2V3B9gP8mbF8ryZsCt LpOcUGw2pQojeiAD8i3y7TywD2RFRKSHMUD9jq+sBfbUVd6pq5dw++KHHzSx d1AaFUWvM+CP5uwzBezkhBT75NsMsB/ZeUccu5/b4prAQwZ4Godf48dWj5D6 mFDAgOIT11PZsaMWe3h4yxjQIBx2baaRij7734PYajxeGDNzBFtu0j2Q8z0D zNMCHvVh+3uoPon4zICUPp8XHdg133/9WP7KgB32nG+bscXsnkuHDDCgKFe5 vQHbrT348MIYA5wnuobqsJ+bbr8QMMuAkSZi7jU2zwfO2t/LDNgU27LyFba5 4du/vjxMSKim8FVhP3iVqDEuwIRvpY1rEfa8jomXJ8GEJtqaNf9s9Fzs3hCd CXNiDZz/2l/f1PnVRYkJfIbCMy+xfz7KEOnfxAS1N9+//htPS97Z2H4bE+Sk DMv+zed8pmL0Nz0mXNfddfHffDskxsqs9jDh+IUB83/rUU7N/91mygSJTnWR f+sNFghQNrNhQvdhnepe7Prz25w+OTPB+Dq/8zC2FCdb2n4vJoSkPZv5je11 pvrTe3/cf9GOwGXsivlY3t1nmLD1Zt3gahz/NX7Gem9imPDe1tpADPvImOBp /Yt4PPu1ybL/8qHv+k8ykwk5Tipj27H32xxhlGfj/j7U/TmAndnKtNTKZ0Kx Yf+Uw798qH9Up/6KCV6xK6/HYCft8mXPf4e9ZgfrBnYv2rxVtZkJWfQTnXnY kYUVDxS/MyHwoEpBB3azamT3vVEmNGov/prCls0xoMrO4PgZ7hTjxfldnd4Y Q+OWBfOOVnZdbK7YXheKoizcLHHcl4tttuJ++sWNsnB6Yn98Pfb9YI8Wfi1Z YB5jvzuMzfL9rc+zWxaSl11clP+dR0uudUueshAZfUvoObauGt/MkJ8szKXm XW/HnuQUqm0JlgUl9LxzCdv8qdTRJ/GyUPxCMX4Xvg/W8Wx+7PhIFrKudpzt xkaFjpvfDsuCjmetnQa+f/zijnIV/5IFWfsrOk7Y8vberXf+yMIp+vm3SdiJ fKeDQnjXwc09IVOT2FaOSeVq69eBuCXL/XkrFc0IVOlfcV8HHUd0gpzxfZgz UCMadXwdFLDEKOnYNmX1P3xOrYMD8osmrdjVrm3njM6vAwZXyZvd+H69VDH+ fil7HXjT+r208X2s7EkzcxpaB/UmBpra+H53rD3tstFNDjY26THze6jISVtu 74y3HBzsf0ksYbs8bdxcGiAH6yM2ZbLwe+J2Yx2nfowcpCGafQ+2l/eHO+b3 5MB6ceAqgd+fU2LMnjP9cvDi3NOYrAG8/65vrRrs5KEq87c/rgRQSqefXrKb PDwPdCsJwb58QHq9uY88POK4eKYd++o2v4WeM/Kw7YrP5cv4/UxfS7s2nS4P 9SHvOgXH8fqLfVskv8rD41ffohn4/a3iJg54WCjAQs14YeYcFQ3cUTH6Yq8A RHvRsCj+v8QHO/UM3BVg7a/B3Hhs80DvzczTCmAT0tIRtEBF44OviY40BVg5 NvzKchGfn7fHe426FaBYTcNbA9cPQfH1J5RcFYHHed7qIA+BNgqGpQ75KcHp vV+2c4vjepWnVaE2WAliTuk9S8LewaZSmhWlBP1jn+NpuL4xHe/oOpKiBCv5 HL01JXG99F5TsaVACWqGiqeO4fqo7Nx46cspJchbN1Y8yiAQa8WRnhs+68HQ 2NNfA9dbdr90lPd6KoMcV5FJF67nMtNfS84mqMBPBZ2GVfj/TUGiVkfTQTUo Kv0ae+82gfxe6Oy/uWcjLPj4mHS1EKjy7d2pc1abYIXU+0Unijg6arC1/Kj5 f/B2u9Id0X3iKO3BxkIPd3U4pJln/iVJHF36VR7uE7AZ8q3N9zLbxNFAzkl/ t+MaoNpH6C+IS6DqXUlXIyI0QYbREHDVWQKx72vvvRC2Bex8TgWLPJZAbNuL 2DOCtoLDbWOXot8SKFZs1rgpRgtcVn/csKQniXwsHV/ORm4DHlfu4X0XJFFP uLoTeVkbErZS5Fm9kkg4+Vr7uUwdYIY+lphTl0L3BJSCam/oQgF3TjcRKYWq jkvryz8kwW5VDL21TQqly2RI6pgCZLM7Nlcq0lB58AKbWyNAy8im9x+DaIi+ m3uReXg7DDU83RT8kYaefVCM+9K8HaJ/yslNM6VRfM1fNRmbHdA1rSzHFyqN kk8Mudt17oBeuazz1U3SuMiirWVY6IH3jw+uyhQZlK3I+davWw+sly2GXoMM 4vrNTlTZ7gQJ86yjlzxk0H21p6HpP3YCt1/sN5XrMkjRIWfv0jF9uJilcVv5 jQzqMCzJPzSMvfFzsd4vGdR059QG8sQuuJai+2QDg47mCg5oM6Z2gczeKtq6 vXS0/Px44VkvA0iUT5x2CqKj3Wq79IOnDUD3qfXHwAd0VGujetTjBAv4gz8H nWumIyFHt9KbJ1mwR148eu9nOrJ1y+RvDGBBUFxjEqWFjmaOU/LVg1nAUXGh 8GYrHcnGzi4sRbGgJXknNb+djsLyK+MvprJAYm7sQEc3HWlx739SWMICvkvn LqmO0tFZvnMrBktZwKA/G/qN/VHwpal4Be6vQWvnizE6cpNUnw99yYKGNgs2 /Qk6urKRuoP1jgURW+pTLH/R0W+r7k/tnSxY/Xdsw9l5OgJ7Qo6/iwWHXeMf 7l6goziXg4FkDwv6vE+vF/xDRwzfasms7/j3Nbs3pS3S0YGzD5yPjbHgpscd q/xlOkqL6ym+NcECvbzS4QA2Bhq8KL66aYoFcy4yoTrsDBR2Iz5XY5YFnzLq s9+sYKD6jNdsR+dZkNoupJe4koHE7v09eOMPC+7N3v5mwsFADg81775fYsEh 0+BggpOBcp/4zC4vs0DWOF2yC/t/3O9hbQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"days\"", TraditionalForm], FormBox["\"r\"", TraditionalForm]}, AxesOrigin->{0, -9.011467832874196}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0., FormBox["1", TraditionalForm]}, {-8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-8.111728083308073, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.824046010856292, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.418580902748127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.264430222920869, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.1308988302963465`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.013115794639964, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.407945608651872, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782616`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-9.210340371976182, FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0., FormBox["\"\"", TraditionalForm]}, {-8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-8.111728083308073, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.824046010856292, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.418580902748127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.264430222920869, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.1308988302963465`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.013115794639964, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.407945608651872, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782616`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {Automatic, Automatic}}, GridLines->{None, None}, Method->{}, PlotRange->{{0, 50}, {-9.011467832874196, 1.1209308986562614`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, {{-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0., FormBox["1", TraditionalForm]}, {-8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-8.111728083308073, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.824046010856292, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.418580902748127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.264430222920869, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.1308988302963465`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.013115794639964, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.407945608651872, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782616`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output"] }, Open ]], Cell["\<\ The form of the first interval it is explained because in during this \ interval (about 3 days) is happening a input b1(t) to compartment 1 and \ negligible flow from other compartments reach the compartment 1. In the \ second interval the opposite happens.\ \>", "Text"], Cell[TextData[{ "We wish obtain ", Cell[BoxData[ FormBox[ SubscriptBox[ SubscriptBox["x", "i"], RowBox[{"(", "\[Beta]", ")"}]], TraditionalForm]]], " = {\[PartialD]", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]]], "/\[PartialD]", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], ", \[PartialD]", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]]], "/\[PartialD]", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], "} , ", StyleBox["i", FontSlant->"Italic"], " = {1,2,3} to be used later for computing the Optimal Design." }], "Text"], Cell[TextData[{ "We are going to apply different methods to obtain ", Cell[BoxData[ FormBox[ SubscriptBox["x", RowBox[{"(", "\[Beta]", ")"}]], TraditionalForm]]], " in order to make a comparison." }], "Text"], Cell[CellGroupData[{ Cell["Method 1", "Subsubsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input"], Cell[TextData[{ "Here will be obtain ", Cell[BoxData[ FormBox[ SubscriptBox["x", RowBox[{"(", "\[Beta]", ")"}]], TraditionalForm]]], " using eq(5) that we call the method of the extended matrix." }], "Text"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"We", " ", RowBox[{"call", ":", "Xa"}]}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1a", "=", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None]}], ",", RowBox[{"x2a", "=", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "2"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None]}], ",", RowBox[{"x3a", "=", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "3"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None]}]}], "}"}], " ", "and", " ", "Ak12"}], " ", "=", SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", SubscriptBox["k", "12"], ")"}]]}]}], StyleBox[" ", FontWeight->"Bold"], StyleBox[";", FontWeight->"Bold"], RowBox[{"Xb", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1b", "=", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", SubscriptBox["k", "23"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "23"]}], MultilineFunction->None]}], ",", RowBox[{"x2a", "=", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "2"], "(", RowBox[{"t", ",", SubscriptBox["k", "23"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "23"]}], MultilineFunction->None]}], ",", RowBox[{"x3a", "=", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "3"], "(", RowBox[{"t", ",", SubscriptBox["k", "23"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "23"]}], MultilineFunction->None]}]}], "}"}], " ", "and", " ", "Ak23"}], " ", "=", SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", SubscriptBox["k", "23"], ")"}]]}]}]}], TraditionalForm]], "Text", TextAlignment->Left, TextJustification->0, CellTags->"eq 1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "InputOnly"], Cell[BoxData["\<\"SysModel, version 1.4.1 2006-12-19\"\>"], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", " ", RowBox[{ RowBox[{"CompartMatrix", "[", RowBox[{"3", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "k12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1.9404"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "3", ",", "k23"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "0", ",", " ", "0.01155"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "1", ",", " ", "0.0462"}], "}"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "8.02"}]}], "]"}], " ", "//", "Chop"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ",", "0", ",", "0.0462`"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "k23", ",", RowBox[{"-", "0.14417732924687598`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.020", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}]}], ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"X", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", "t", "]"}], ",", " ", RowBox[{"x2", "[", "t", "]"}], ",", RowBox[{"x3", "[", "t", "]"}]}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq1", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"X", ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"A", ".", "X"}], " ", "+", " ", "B"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86`"}], " ", "t"}]]}], "-", RowBox[{"0.02`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147`"}], " ", "t"}]]}], "+", RowBox[{"0.0194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093`"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2", "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ic1", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x1", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x2", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x3", "[", "0", "]"}], " ", "==", " ", "0"}]}], " ", "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Xa", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"x1a", "[", "t", "]"}], ",", " ", RowBox[{"x2a", "[", "t", "]"}], ",", RowBox[{"x3a", "[", "t", "]"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Xb", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"x1b", "[", "t", "]"}], ",", " ", RowBox[{"x2b", "[", "t", "]"}], ",", RowBox[{"x3b", "[", "t", "]"}]}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ak12", "=", RowBox[{"D", "[", RowBox[{"A", ",", " ", "k12"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ak23", " ", "=", " ", RowBox[{"D", "[", RowBox[{"A", ",", " ", "k23"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq2", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"Xa", ",", "t"}], "]"}], "==", RowBox[{ RowBox[{"Ak12", ".", "X"}], " ", "+", " ", RowBox[{"A", ".", "Xa"}]}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{"x1a", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x1", "[", "t", "]"}], "+", RowBox[{"k12", " ", RowBox[{"x1a", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{"x2a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2a", "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{"x3a", "[", "t", "]"}]}]}]}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"eq3", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"Xb", ",", "t"}], "]"}], "==", RowBox[{ RowBox[{"Ak23", ".", "X"}], " ", "+", " ", RowBox[{"A", ".", "Xb"}]}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"ic2", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x1a", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x2a", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x3a", "[", "0", "]"}], " ", "==", " ", "0"}]}], " ", "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"ic3", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x1b", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x2b", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x3b", "[", "0", "]"}], " ", "==", " ", "0"}]}], " ", "}"}]}], ";"}]], "Input"], Cell["\<\ Now eq1 and eq2, and the respective initial conditions ic1 and ic2 are \ combined obtaining the eq4 \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq4", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{"eq1", ",", " ", "eq2", " ", ",", " ", "ic1", ",", " ", "ic2"}], "]"}], "//", "Chop"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86`"}], " ", "t"}]]}], "-", RowBox[{"0.02`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147`"}], " ", "t"}]]}], "+", RowBox[{"0.0194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093`"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2", "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x1a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{"x1a", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x1", "[", "t", "]"}], "+", RowBox[{"k12", " ", RowBox[{"x1a", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{"x2a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2a", "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{"x3a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x1a", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2a", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3a", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq5", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{"eq1", ",", " ", "eq3", " ", ",", " ", "ic1", ",", " ", "ic3"}], "]"}], "//", "Chop"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86`"}], " ", "t"}]]}], "-", RowBox[{"0.02`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147`"}], " ", "t"}]]}], "+", RowBox[{"0.0194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093`"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2", "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x1b", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{"x1b", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3b", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2b", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1b", "[", "t", "]"}]}], "-", RowBox[{"x2", "[", "t", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{"x2b", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3b", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x2", "[", "t", "]"}], "+", RowBox[{"k23", " ", RowBox[{"x2b", "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{"x3b", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x1b", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2b", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3b", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Them eq4 and eq5 can be solved when specific values of t, ", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], " are given " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t1_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1a", "[", "t", "]"}], ",", RowBox[{"x2a", "[", "t", "]"}], ",", RowBox[{"x3a", "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"eq4", "/.", RowBox[{"{", RowBox[{ RowBox[{"k12", "\[Rule]", "a"}], ",", " ", RowBox[{"k23", "\[Rule]", "b"}]}], "}"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{"X", ",", " ", "Xa"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}]}], "]"}]}], "]"}], "/.", RowBox[{"t", "\[Rule]", "t1"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t1_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1b", "[", "t", "]"}], ",", RowBox[{"x2b", "[", "t", "]"}], ",", RowBox[{"x3b", "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"eq5", "/.", RowBox[{"{", RowBox[{ RowBox[{"k12", "\[Rule]", "a"}], ",", " ", RowBox[{"k23", "\[Rule]", "b"}]}], "}"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{"X", ",", " ", "Xb"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}]}], "]"}]}], "]"}], "/.", RowBox[{"t", "\[Rule]", "t1"}]}]}]], "Input"], Cell[TextData[{ "Then ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], "(", "t", ")"}], FontSlant->"Plain"], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}}, TextAlignment->Left, TextJustification->0], " :{x1a[t] x1b[t]}. " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}]}]], "Input"], Cell[TextData[{ "So for a=k12 = 0.80; b= k23= 0.0078, then ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], "(", "t", ")"}], FontSlant->"Plain"], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}}, TextAlignment->Left, TextJustification->0], " :{x1a[t], x2a[t],x3a[t]} for t = {1,10,30} are (The computation time, in \ s, is the first value of the Output.)" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "10", ",", "30"}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.04680680000000000257065480013807245996`4.690908864386842", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7221771286733056`"}], ",", "0.006685564390601462`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00012578741713608138`", ",", "0.11579873002783656`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00004140392783683335`", ",", "0.03505990999423818`"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Other option (Mathematica 9 or later is requiered) is using the function ", Cell[BoxData[ ButtonBox[Cell["ParametricNDSolve"], BaseStyle->Dynamic[ If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {"Link"}]], ButtonData->"paclet:ref/ParametricNDSolve"]]], "." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"eq4a", "=", " ", RowBox[{"ParametricNDSolve", "[", RowBox[{"eq4", ",", RowBox[{"{", RowBox[{ "x1", ",", "x2", ",", "x3", ",", "x1a", ",", "x2a", ",", "x3a"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "k23"}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"eq5a", "=", " ", RowBox[{"ParametricNDSolve", "[", RowBox[{"eq5", ",", RowBox[{"{", RowBox[{ "x1", ",", "x2", ",", "x3", ",", "x1b", ",", "x2b", ",", "x3b"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "k23"}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x1a", "[", RowBox[{"a", ",", " ", "b"}], "]"}], "[", "t", "]"}], "/.", "eq4a"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x1b", "[", RowBox[{"a", ",", " ", "b"}], "]"}], "[", "t", "]"}], "/.", "eq5a"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell[TextData[{ "So for a=k12 = 0.80; b= k23= 0.0078, then ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], "(", "t", ")"}], FontSlant->"Plain"], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}}, TextAlignment->Left, TextJustification->0], " :{x1a[t], x2a[t],x3a[t]} for t = {1,10,30} are (The computation time, in \ s, is the first value of the Output.)" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "10", ",", "30"}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.01559819999999999956541429924072872382`4.213674397841092", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7221771286733056`"}], ",", "0.006685564390601462`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00012578741713608138`", ",", "0.11579873002783656`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00004140392783683335`", ",", "0.03505990999423818`"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Method 2", "Subsubsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input", CellID->133054997], Cell[TextData[{ "This method give the solution as function of the unknown parameters (k12 \ and k23) then when are given specific values of k12 and k23 the ODE is \ numerically solved and the derivatives ", Cell[BoxData[ FormBox[ SubscriptBox["x", RowBox[{"(", "\[Beta]", ")"}]], TraditionalForm]]], " evaluated numerically in each point. To solve the ODE is used the Biomod \ function SystemDSolve (it applies the ", StyleBox["Mathematica", FontSlant->"Italic"], " function NDSolve)." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "InputOnly"], Cell[BoxData["\<\"SysModel, version 1.4.1 2006-12-19\"\>"], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"A", "[", RowBox[{"k12_", ",", " ", "k23_"}], "]"}], "=", " ", RowBox[{ RowBox[{"CompartMatrix", "[", RowBox[{"3", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "k12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1.9404"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "3", ",", "k23"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "0", ",", " ", "0.01155"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "1", ",", " ", "0.0462"}], "}"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "8.02"}]}], "]"}], " ", "//", "Chop"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ",", "0", ",", "0.0462`"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "k23", ",", RowBox[{"-", "0.14417732924687598`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{ RowBox[{"t1_", "?", "NumberQ"}], ",", RowBox[{"k12_", "?", "NumberQ"}], ",", " ", RowBox[{"k23_", "?", "NumberQ"}]}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"model", "[", RowBox[{"t1", ",", "k12", ",", " ", "k23"}], "]"}], " ", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t1", "]"}], ",", RowBox[{ SubscriptBox["x", "2"], "[", "t1", "]"}], ",", RowBox[{ SubscriptBox["x", "3"], "[", "t1", "]"}]}], "}"}], " ", "/.", RowBox[{"SystemNDSolve", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"k12", ",", "k23"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.020", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}]}], ",", "0", ",", "0"}], "}"}], " ", ",", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", "t1", ",", "x"}], "]"}]}]}]}], ";"}]], "Input"], Cell["\<\ Note: Instead of the before function can be used the following function that \ solved analytically the ODE when k12 and k23 take numeric values but the take \ of computation is too longer\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{ RowBox[{"t1_", "?", "NumberQ"}], ",", RowBox[{"k12_", "?", "NumberQ"}], ",", " ", RowBox[{"k23_", "?", "NumberQ"}]}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"model", "[", RowBox[{"t1", ",", "k12", ",", " ", "k23"}], "]"}], " ", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t1", "]"}], ",", RowBox[{ SubscriptBox["x", "2"], "[", "t1", "]"}], ",", RowBox[{ SubscriptBox["x", "3"], "[", "t1", "]"}]}], "}"}], " ", "/.", RowBox[{"SystemDSolve", "[", RowBox[{ RowBox[{"{", "...", "}"}], " ", ",", "t", ",", "t1", ",", "x"}], "]"}]}]}]}], ";"}]], "Program"], Cell["\<\ We use the package NumericalCalculus to compute the numerical derivations\ \>", "Text"], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input"], Cell[TextData[{ "We call fa(t1, ", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], ")=", Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None], ",", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "2"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None], ",", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "3"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None]}], "}"}]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}, {3.586172518811694*^9, 3.586172541135496*^9}, { 3.5861725803386455`*^9, 3.58617266080418*^9}, {3.5861726995549293`*^9, 3.5861727575562515`*^9}, {3.5861727895053415`*^9, 3.58617283749137*^9}}, TextAlignment->Left, TextJustification->0], " and fb(t1, ", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], ")=", Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", SubscriptBox["k", "23"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "23"]}], MultilineFunction->None], ",", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "2"], "(", RowBox[{"t", ",", SubscriptBox["k", "23"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "23"]}], MultilineFunction->None], ",", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "3"], "(", RowBox[{"t", ",", SubscriptBox["k", "23"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "23"]}], MultilineFunction->None]}], "}"}], " "}]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}, {3.586172518811694*^9, 3.586172541135496*^9}, { 3.5861725803386455`*^9, 3.58617266080418*^9}, {3.5861726995549293`*^9, 3.5861727575562515`*^9}, {3.5861727895053415`*^9, 3.58617283749137*^9}}, TextAlignment->Left, TextJustification->0], "(for convenience we write a1, b2 instead of ", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], ")" }], "Text"], Cell["\<\ Note that sometime the option ND[model[ti,x,b1],x,a1,Scale->.01] should be \ used (see ND Help) \ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{"a1_", ",", "b1_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"ND", "[", RowBox[{ RowBox[{"model", "[", RowBox[{"ti", ",", "x", ",", "b1"}], "]"}], ",", "x", ",", "a1"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{"a1_", ",", "b1_", ",", "ti_"}], "]"}], ":=", RowBox[{"ND", "[", RowBox[{ RowBox[{"model", "[", RowBox[{"ti", ",", "a1", ",", "y"}], "]"}], ",", "y", ",", "b1"}], "]"}]}]], "Input"], Cell["\<\ Now we test the method using the same values that in the previous example, \ that is k12 = 0.80; k23 = 0.0078;\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", "ti"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", "ti"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "10", ",", "30"}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.20283109999999998640518583670200314373`5.327734459221283", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7221239578374327`"}], ",", "0.006666251701049183`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00012569071096301535`", ",", "0.11579717926978107`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00004132941314465334`", ",", "0.03491571927296289`"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ The solution is almost the same that the obtained using Method 1 and the \ computation time is similar. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Method 3", "Subsubsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input"], Cell[TextData[{ "This method is similar to Method 2 but here is used the new ", StyleBox["Mathematica", FontSlant->"Italic"], " (9 o later) funcion ", Cell[BoxData[ ButtonBox[Cell["ParametricNDSolve"], BaseStyle->Dynamic[ If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {"Link"}]], ButtonData->"paclet:ref/ParametricNDSolve"]]], ". " }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "InputOnly"], Cell[BoxData["\<\"SysModel, version 1.4.1 2006-12-19\"\>"], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", " ", RowBox[{ RowBox[{"CompartMatrix", "[", RowBox[{"3", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "k12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1.9404"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "3", ",", "k23"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "0", ",", " ", "0.01155"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "1", ",", " ", "0.0462"}], "}"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "8.02"}]}], "]"}], " ", "//", "Chop"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ",", "0", ",", "0.0462`"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "k23", ",", RowBox[{"-", "0.14417732924687598`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.020", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}]}], ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eqs", " ", "=", RowBox[{"ShowODE", "[", RowBox[{"A", ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", "B", ",", " ", "t", ",", " ", "x"}], "]"}], " "}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86`"}], " ", "t"}]]}], "-", RowBox[{"0.02`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147`"}], " ", "t"}]]}], "+", RowBox[{"0.0194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093`"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827329246876`"}], "-", "k12"}], ")"}], " ", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08642732924687598`"}], "-", "k23"}], ")"}], " ", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "-", RowBox[{"0.14417732924687598`", " ", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol", "=", " ", RowBox[{"ParametricNDSolve", "[", RowBox[{"eqs", ",", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "k23"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}], ",", RowBox[{ SubscriptBox["x", "2"], "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}], ",", RowBox[{ SubscriptBox["x", "3"], "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a1_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"a", "\[Rule]", "a1"}]}], "/.", "sol"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b1_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"b", "\[Rule]", "b1"}]}], "/.", "sol"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell[TextData[{ "So for a=k12 = 0.80; b= k23= 0.0078, then ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], "(", "t", ")"}], FontSlant->"Plain"], TraditionalForm]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}}, TextAlignment->Left, TextJustification->0], " :{x1a[t], x2a[t],x3a[t]} for t = {1,10,30} are (The computation time, in \ s, is the first value of the Output.)" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "10", ",", "30"}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.1091982999999999981444176455624983646`5.058815790601034", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7221771882334218`"}], ",", "0.006685564918471014`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00012582682024256535`", ",", "0.11579873098915121`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0000414036753609147`", ",", "0.03505988613724445`"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ The solution is almost the same that the obtained using Method 1 and 2 and \ the computation time is similar. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Method 4", "Subsubsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input", CellID->38138293], Cell[TextData[{ "In this case we will obtain again ", Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None], ",", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "2"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None], ",", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["x", "3"], "(", RowBox[{"t", ",", SubscriptBox["k", "12"]}], ")"}]}], RowBox[{"\[PartialD]", SubscriptBox["k", "12"]}], MultilineFunction->None]}], "}"}], " "}]], CellChangeTimes->{{3.545219786048807*^9, 3.54521978782721*^9}, { 3.545219866310948*^9, 3.5452199514558973`*^9}, {3.5452200249008265`*^9, 3.545220038816051*^9}, {3.5452203880382643`*^9, 3.545220388459465*^9}, { 3.545221394068431*^9, 3.5452213980152383`*^9}, {3.545221446749724*^9, 3.545221482068186*^9}, {3.545221553750312*^9, 3.5452215854183674`*^9}, { 3.5453251889975986`*^9, 3.545325197702414*^9}, {3.545496495661951*^9, 3.545496504382366*^9}, {3.586172518811694*^9, 3.586172541135496*^9}, { 3.5861725803386455`*^9, 3.58617266080418*^9}, {3.5861726995549293`*^9, 3.5861727575562515`*^9}, {3.5861727895053415`*^9, 3.58617283749137*^9}}, TextAlignment->Left, TextJustification->0], "but in this case we will use eq(8) with ", Cell[BoxData[ RowBox[{" ", SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"]}]], CellChangeTimes->{{3.5447640671672773`*^9, 3.5447640671672773`*^9}, { 3.5447718888984756`*^9, 3.5447718919093723`*^9}, {3.544772156556254*^9, 3.544772175058447*^9}, 3.545221994076685*^9, {3.5452220379751625`*^9, 3.5452220554939933`*^9}, {3.5452222361891108`*^9, 3.5452222459547276`*^9}, {3.5452223932969866`*^9, 3.5452223967289925`*^9}, {3.545222439519868*^9, 3.5452224437162747`*^9}, { 3.5452225817297173`*^9, 3.545222596159743*^9}, {3.545222720975562*^9, 3.5452228237173424`*^9}, {3.5452230623353615`*^9, 3.545223066703369*^9}, { 3.545223706366893*^9, 3.545223820449893*^9}, {3.5452238526327496`*^9, 3.5452238849716063`*^9}, {3.545223929182084*^9, 3.545224031674264*^9}, { 3.5452240847455573`*^9, 3.5452241116088047`*^9}, {3.545224244708238*^9, 3.5452242765322943`*^9}, 3.545224309385952*^9, {3.5452250741616955`*^9, 3.5452250816653085`*^9}, {3.5452818942991858`*^9, 3.545281908123889*^9}, { 3.5452899904956083`*^9, 3.5452900323660817`*^9}, {3.545290190191559*^9, 3.545290252794469*^9}, {3.545290305928162*^9, 3.5452903767210865`*^9}, { 3.5452904359387903`*^9, 3.545290457232828*^9}, 3.545325197671214*^9, 3.5455734994874773`*^9}, TextAlignment->Left, TextJustification->1], "=0" }], "Text"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " "}], TraditionalForm]}], "=", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", FormBox["*", TraditionalForm], StyleBox[ SubscriptBox[ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], RowBox[{"(", "p", ")"}]], FontWeight->"Bold", FontSlant->"Plain"], RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm]}]}]}]}]}], TraditionalForm]], "Text", TextAlignment->Left, TextJustification->1], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2.026827329246876"}], "-", "k12"}], ",", "0", ",", "0.0462"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", RowBox[{ RowBox[{"-", "0.08642732924687598"}], "-", "k23"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "k23", ",", RowBox[{"-", "0.14417732924687598"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.020", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}]}], ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"func", "[", RowBox[{ RowBox[{"t1_", "?", "NumberQ"}], ",", RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", "k_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m1", ",", " ", "AExp"}], "}"}], ",", "\n", RowBox[{ RowBox[{"m1", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"MatrixExp", "[", RowBox[{"A", " ", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"k12", "\[Rule]", "a"}], ",", " ", RowBox[{"k23", "\[Rule]", "b"}]}], "}"}]}], "//", "ExpandAll"}], "//", "Chop"}]}], ";", "\n", RowBox[{"AExp", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Integrate", "[", RowBox[{"#1", ",", " ", RowBox[{"{", RowBox[{"tau", ",", " ", "0", ",", " ", "t"}], "}"}]}], "]"}], " ", "&"}], ",", " ", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"m1", " ", "/.", " ", RowBox[{"t", " ", "->", " ", RowBox[{"t", " ", "-", " ", "tau"}]}]}], "]"}], ".", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"A", ",", "k"}], " ", "]"}], ".", RowBox[{"Evaluate", "[", RowBox[{"m1", " ", "/.", " ", RowBox[{"t", " ", "->", " ", "tau"}]}], "]"}]}], "]"}]}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\n", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Integrate", "[", RowBox[{"#1", ",", " ", RowBox[{"{", RowBox[{"tau", ",", " ", "0", ",", " ", "t"}], "}"}]}], "]"}], " ", "&"}], ",", " ", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"AExp", " ", "/.", " ", RowBox[{"t", " ", "->", " ", RowBox[{"t", " ", "-", " ", "tau"}]}]}], "]"}], ".", RowBox[{"Evaluate", "[", RowBox[{"B", "/.", " ", RowBox[{"t", " ", "->", " ", "tau"}]}], "]"}]}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], "/.", RowBox[{"t", "\[Rule]", "t1"}]}]}]}], "]"}]}]], "Input"], Cell["\<\ The solution of fa is wrong (see the solution obtained with Method 1 and 2) \ and the time of computation is too long. We discart this method\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"func", "[", RowBox[{"30", ",", " ", "0.80", ",", " ", "0.0078", ",", " ", "k12"}], "]"}], ",", RowBox[{"func", "[", RowBox[{"30", ",", " ", "0.80", ",", " ", "0.0078", ",", " ", "k23"}], "]"}]}], "}"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"127.41382230000000674863258609548211097717`8.125816457628995", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0015973937795900459`"}], ",", RowBox[{"-", "0.41548634021496195`"}], ",", "0.01670002391366156`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.035059909631866816`", ",", RowBox[{ "-", "3.97846435172047356773830826287168016435`12.783652321549557"}], ",", "2.08295562826884982858823459622921321473`12.818983758183833"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Note that this function is equivalente to the previous function: ", StyleBox["X1[a_,b_,ti_]:={fa[a,b,ti][[1]], fb[a,b,ti][[1]]}", "Input"] }], "Text"], Cell["\<\ Conclusion: Method 1 and 3 are very fast and their are also the easiest for \ programming. We will compare both methods in a OED \ \>", "Conjecture", Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[" Optimal experiment design", "Subsubsection"], Cell[TextData[{ "We will suppose that ", Cell[BoxData[ FormBox[ SubscriptBox["k", "12"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["k", "23"], TraditionalForm]]], " are unknown, although we know that their values will be about ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "12"], "=", "0.8"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "23"], "=", "0.0078"}], TraditionalForm]]], ". We wish estimate them taken experiment data from compartment 1 . The \ problem consist on decide by DOE the best moment to taken the sample. We will \ use ", StyleBox["D", FontSlant->"Italic"], "-optimal design." }], "Text"], Cell[CellGroupData[{ Cell["Method 1", "Subsubsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input", CellID->15373341], Cell["\<\ Here we will the optimal design experiment computing the derivatives using \ the method 1 that we have yet described\ \>", "Text"], Cell[TextData[{ "We wish find ", StyleBox["t ", FontSlant->"Italic"], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",.., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", ... ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "} of the model given by eq. (4). (or (5)) using ", StyleBox["D", FontSlant->"Italic"], "-optimal design when the analitycal expression of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", "a", ",", "b"}], ")"}], TraditionalForm]]], " can not be found. [f(t, \[Beta]) =", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "12"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "23"], TraditionalForm]}], ")"}], TraditionalForm]]], "]" }], "Text"], Cell[TextData[{ "1.- It is defined a model ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"t", ",", " ", "\[Beta]"}], ")"}], " "}], TraditionalForm]]], "where the unknown parameters are ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], TraditionalForm]]], ". In our case we call ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"{", RowBox[{ SubscriptBox["k", "12"], ",", SubscriptBox["k", "23"]}], "}"}]}], TraditionalForm]]], ". [We write eq4a and eq5a obtained when the method 1 has beed described ]" }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"eq4a", "=", " ", RowBox[{"ParametricNDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.02", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827"}], "-", "k12"}], ")"}], " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{"0.0462", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.086427"}], "-", "k23"}], ")"}], " ", RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2", "[", "t", "]"}]}], "-", RowBox[{"0.1441773", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x1a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.0268"}], "-", "k12"}], ")"}], " ", RowBox[{"x1a", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x1", "[", "t", "]"}], "+", RowBox[{"k12", " ", RowBox[{"x1a", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.086427"}], "-", "k23"}], ")"}], " ", RowBox[{"x2a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3a", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2a", "[", "t", "]"}]}], "-", RowBox[{"0.144177`", " ", RowBox[{"x3a", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x1a", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2a", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3a", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "x1", ",", "x2", ",", "x3", ",", "x1a", ",", "x2a", ",", "x3a"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "k23"}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"eq5a", "=", " ", RowBox[{"ParametricNDSolve", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86"}], " ", "t"}]]}], "-", RowBox[{"0.02", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147"}], " ", "t"}]]}], "+", RowBox[{"0.0194", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.0268"}], "-", "k12"}], ")"}], " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{"0.0462", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.0864"}], "-", "k23"}], ")"}], " ", RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{"x2", "[", "t", "]"}]}], "-", RowBox[{"0.1442", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x1b", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.0268"}], "-", "k12"}], ")"}], " ", RowBox[{"x1b", "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{"x3b", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2b", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"x1b", "[", "t", "]"}]}], "-", RowBox[{"x2", "[", "t", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.0864"}], "-", "k23"}], ")"}], " ", RowBox[{"x2b", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3b", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x2", "[", "t", "]"}], "+", RowBox[{"k23", " ", RowBox[{"x2b", "[", "t", "]"}]}], "-", RowBox[{"0.14418", " ", RowBox[{"x3b", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x1b", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x2b", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x3b", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "x1", ",", "x2", ",", "x3", ",", "x1b", ",", "x2b", ",", "x3b"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "k23"}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[TextData[{ "2.-Now it is computed ", Cell[BoxData[ FormBox[ RowBox[{"\[Del]", RowBox[{"(", RowBox[{ RowBox[{"f", "(", "t", ")"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}]}], ")"}]}], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "da"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "db"], TraditionalForm]]], "}," }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x1a", "[", RowBox[{"a", ",", " ", "b"}], "]"}], "[", "t", "]"}], "/.", "eq4a"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x1b", "[", RowBox[{"a", ",", " ", "b"}], "]"}], "[", "t", "]"}], "/.", "eq5a"}]}]], "Input"], Cell["\<\ 3.- We need to define the number of points n to be used in the optimal \ design. \ \>", "Text"], Cell[TextData[{ "4.- It is evaluated \[Del](f(t), \[Beta]) at points ", Cell[BoxData[ FormBox["t", TraditionalForm]]], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "}, obtaining ", Cell[BoxData[ FormBox[ RowBox[{"X", " ", "=", " ", RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["X", "1"], TraditionalForm], ",", "...", ",", " ", FormBox[ SubscriptBox["X", "p"], TraditionalForm]}], "}"}], " "}], TraditionalForm]]], "with ", Cell[BoxData[ FormBox[ SubscriptBox["X", "1"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "1"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "1"]], " "}], TraditionalForm]]], "}, ..., ", Cell[BoxData[ FormBox[ SubscriptBox["X", "p"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "p"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "p"]], " "}], TraditionalForm]]], "} . Because the sample will be taken in compartment 1 , we extract of fa \ and fb the derivatives corresponding to ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}], TraditionalForm]]], " " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell[TextData[{ "5.- A typical election for compute the covariance matrix is assumed that \ that the relationship between samples decays exponentially with increasing \ time-distance between them, that is ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "} with ", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "= exp {\[Rho]|", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "j"], " ", "-"}], TraditionalForm]]], Cell[BoxData[ FormBox[ SubscriptBox["t", "j"], TraditionalForm]]], "|}.", StyleBox["For computational purpose we have found more appropriate to use \ the distance ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["d", "i"], TraditionalForm]]], StyleBox[" ", FontVariations->{"CompatibilityType"->0}], "= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "i"], "-", SubscriptBox["t", RowBox[{"i", "-", "1"}]]}], TraditionalForm]]], ", ", StyleBox["instead of ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", "i"], SubscriptBox["d", "i"]}], TraditionalForm]]], " being ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "0"], " ", "=", SubscriptBox["t", "0"], " "}], TraditionalForm]]], ". That is for a two points design . We suppose a 3-points design. The first \ is defined by the user \n\n ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " where " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[TextData[{ "6.- Now it is computed the covariance matrix \[CapitalSigma] = ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm]]], " ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]] }], "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]}]], "Input"], Cell["We assume ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "=", "1"}], ";", RowBox[{"\[Sigma]", " ", "=", "1"}], ";"}], " "}]], "Input"], Cell["\<\ We will also need give the initial values of \[Beta] the standard \ deviation of the measures. We also assumed k12= 0.80, k23=0.0078\ \>", "Text"], Cell["7.- Then we can obtain the information matrix", "Text"], Cell[TextData[{ "M = ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["X", "T"], " ", SuperscriptBox["\[CapitalSigma]", RowBox[{"-", "1"}]], " ", "X", " "}], TraditionalForm]]] }], "Text"], Cell["\<\ m := X . Inverse[\[CapitalSigma]]. Transpose[X];\ \>", "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell["\<\ 8.- Finally the determinant of the information matrix is maximized as \ function of d0, d1 and d2. We constrain the d values to a maximun of t=50 \ becouse to longer time the concentration will be very low (lower than the \ detection limit)\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}], ",", RowBox[{"d2_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol1", "=", RowBox[{ RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0", "<", "d0", "<", "50"}], ",", RowBox[{"0.02", "<", "d1", "<", "50"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "50"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", "d2"}], "}"}]}], "]"}], "//", "Timing"}]}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], ":", " ", "\<\"Input value \[NoBreak]\\!\\({110.01333705448344`}\\)\[NoBreak] \ lies outside the range of data in the interpolating function. Extrapolation \ will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], ":", " ", "\<\"Input value \[NoBreak]\\!\\({110.01333705448344`}\\)\[NoBreak] \ lies outside the range of data in the interpolating function. Extrapolation \ will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], ":", " ", "\<\"Input value \[NoBreak]\\!\\({110.01333705448344`}\\)\[NoBreak] \ lies outside the range of data in the interpolating function. Extrapolation \ will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"General", "::", "stop"}], "MessageName"], ":", " ", "\<\"Further output of \ \[NoBreak]\\!\\(\\*StyleBox[\\(InterpolatingFunction :: dmval\\), \ \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \ ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.63801050000000003592504072003066539764`6.234916594634088", ",", RowBox[{"{", RowBox[{"0.01606713037989839`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "0.7486667987060066`"}], ",", RowBox[{"d1", "\[Rule]", "7.238406860635948`"}], ",", RowBox[{"d2", "\[Rule]", "3.6613383702518285`"}]}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Method 3", "Subsubsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input"], Cell["\<\ Here we will the optimal design experiment computing the derivatives using \ the method 3 that we have yet described. \ \>", "Text"], Cell[TextData[{ "1.- It is defined a model ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"t", ",", " ", "\[Beta]"}], ")"}], " "}], TraditionalForm]]], "where the unknown parameters are ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], TraditionalForm]]], ". In our case we call ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"{", RowBox[{ SubscriptBox["k", "12"], ",", SubscriptBox["k", "23"]}], "}"}]}], TraditionalForm]]], ". [We write the ODE of the system obtained when we described the method 3 " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"sol", "=", " ", RowBox[{"ParametricNDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "27.13`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24.08`"}], " ", "t"}]]}], "+", RowBox[{"27.13`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2.86`"}], " ", "t"}]]}], "-", RowBox[{"0.02`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.147`"}], " ", "t"}]]}], "+", RowBox[{"0.0194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.093`"}], " ", "t"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.026827`"}], "-", "k12"}], ")"}], " ", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{"0.0462`", " ", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.08643`"}], "-", "k23"}], ")"}], " ", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"k23", " ", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "-", RowBox[{"0.1442`", " ", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "k23"}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[TextData[{ "2.-Now it is computed ", Cell[BoxData[ FormBox[ RowBox[{"\[Del]", RowBox[{"(", RowBox[{ RowBox[{"f", "(", "t", ")"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}]}], ")"}]}], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "da"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "db"], TraditionalForm]]], "}," }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a1_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"a", "\[Rule]", "a1"}]}], "/.", "sol"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b1_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"b", "\[Rule]", "b1"}]}], "/.", "sol"}]}]], "Input"], Cell["\<\ 3.- We need to define the number of points n to be used in the optimal \ design. \ \>", "Text"], Cell[TextData[{ "4.- It is evaluated \[Del](f(t), \[Beta]) at points ", Cell[BoxData[ FormBox["t", TraditionalForm]]], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "}, obtaining ", Cell[BoxData[ FormBox[ RowBox[{"X", " ", "=", " ", RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["X", "1"], TraditionalForm], ",", "...", ",", " ", FormBox[ SubscriptBox["X", "p"], TraditionalForm]}], "}"}], " "}], TraditionalForm]]], "with ", Cell[BoxData[ FormBox[ SubscriptBox["X", "1"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "1"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "1"]], " "}], TraditionalForm]]], "}, ..., ", Cell[BoxData[ FormBox[ SubscriptBox["X", "p"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "p"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "p"]], " "}], TraditionalForm]]], "} . Because the sample will be taken in compartment 1 , we extract of fa \ and fb the derivatives corresponding to ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}], TraditionalForm]]], " " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell[TextData[{ "5.- A typical election for compute the covariance matrix is assumed that \ that the relationship between samples decays exponentially with increasing \ time-distance between them, that is ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "} with ", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "= exp {\[Rho]|", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "j"], " ", "-"}], TraditionalForm]]], Cell[BoxData[ FormBox[ SubscriptBox["t", "j"], TraditionalForm]]], "|}.", StyleBox["For computational purpose we have found more appropriate to use \ the distance ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["d", "i"], TraditionalForm]]], StyleBox[" ", FontVariations->{"CompatibilityType"->0}], "= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "i"], "-", SubscriptBox["t", RowBox[{"i", "-", "1"}]]}], TraditionalForm]]], ", ", StyleBox["instead of ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", "i"], SubscriptBox["d", "i"]}], TraditionalForm]]], " being ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "0"], " ", "=", SubscriptBox["t", "0"], " "}], TraditionalForm]]], ". That is for a two points design . We suppose a 3-points design. The first \ is defined by the user \n\n ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " where " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[TextData[{ "6.- Now it is computed the covariance matrix \[CapitalSigma] = ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm]]], " ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]] }], "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]}]], "Input"], Cell["We assume ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "=", "1"}], ";", RowBox[{"\[Sigma]", " ", "=", "1"}], ";"}], " "}]], "Input"], Cell["\<\ We will also need give the initial values of \[Beta] the standard \ deviation of the measures. We also assumed k12= 0.80, k23=0.0078\ \>", "Text"], Cell["7.- Then we can obtain the information matrix", "Text"], Cell[TextData[{ "M = ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["X", "T"], " ", SuperscriptBox["\[CapitalSigma]", RowBox[{"-", "1"}]], " ", "X", " "}], TraditionalForm]]] }], "Text"], Cell["\<\ m := X . Inverse[\[CapitalSigma]]. Transpose[X];\ \>", "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.80", ",", " ", "0.0078", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell["\<\ 8.- Finally the determinant of the information matrix is maximized as \ function of d0, d1 and d2. We constrain the d values to a maximun of t=50 \ becouse to longer time the concentration will be very low (lower than the \ detection limit)\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}], ",", RowBox[{"d2_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol1", "=", RowBox[{ RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0", "<", "d0", "<", "50"}], ",", RowBox[{"0.02", "<", "d1", "<", "50"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "50"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", "d2"}], "}"}]}], "]"}], "//", "Timing"}]}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], ":", " ", "\<\"Input value \[NoBreak]\\!\\({110.01333705448344`}\\)\[NoBreak] \ lies outside the range of data in the interpolating function. Extrapolation \ will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], ":", " ", "\<\"Input value \[NoBreak]\\!\\({110.01333705448344`}\\)\[NoBreak] \ lies outside the range of data in the interpolating function. Extrapolation \ will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], ":", " ", "\<\"Input value \[NoBreak]\\!\\({110.01333705448344`}\\)\[NoBreak] \ lies outside the range of data in the interpolating function. Extrapolation \ will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"General", "::", "stop"}], "MessageName"], ":", " ", "\<\"Further output of \ \[NoBreak]\\!\\(\\*StyleBox[\\(InterpolatingFunction :: dmval\\), \ \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \ ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.87201200000000000933653154788771644235`6.292908541611774", ",", RowBox[{"{", RowBox[{"0.01605925684237423`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "0.748664369583044`"}], ",", RowBox[{"d1", "\[Rule]", "7.236833018078917`"}], ",", RowBox[{"d2", "\[Rule]", "3.6609994446876626`"}]}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Conclusion: The time of computation of Method 1 and 3 are practically the \ same, but Method 3 is the easiast for programming \ \>", "Conjecture", Background->RGBColor[0.87, 0.94, 1]], Cell["\<\ Here it is shown graphically the iteration process of d1 and de\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"d0", " ", "=", " ", "0.748664"}], ";"}], " "}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0.02", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"StepMonitor", "\[RuleDelayed]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "d1", ",", " ", "\"\\"", ",", "d2"}], "}"}], "]"}]}]}], "]"}]], "Input", CellID->161898720], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "5.`", ",", "\<\"d2:\"\>", ",", "6.`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "5.711529180661563`", ",", "\<\"d2:\"\>", ",", "5.3649387622790305`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "6.556925194593487`", ",", "\<\"d2:\"\>", ",", "4.0081885173015195`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "7.006309856854679`", ",", "\<\"d2:\"\>", ",", "3.7809831614030114`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "7.199301516087022`", ",", "\<\"d2:\"\>", ",", "3.675405758967043`"}], "}"}]], "Print"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"0.016059256571290256`", ",", RowBox[{"{", RowBox[{ RowBox[{"d1", "\[Rule]", "7.23569296157545`"}], ",", RowBox[{"d2", "\[Rule]", "3.6613062874338578`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"pts", " ", "=", " ", RowBox[{ RowBox[{"Reap", "[", RowBox[{"FindMaximum", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0.02", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"StepMonitor", "\[RuleDelayed]", RowBox[{"Sow", "[", RowBox[{"{", RowBox[{"d1", ",", "d2"}], "}"}], "]"}]}]}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input", CellID->875830157], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], "//", "Minus"}], ",", RowBox[{"{", RowBox[{"d1", ",", "0.02", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", " ", "0.02", ",", "10"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", "pts", "]"}], ",", RowBox[{"Point", "[", "pts", "]"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJx1XQVUFs/XplO6u0xUbFCMuWJjBwYGgqIIdnehotiBgWB3gGJhYYKAjSAg KAqKCEiDNN/r//Ds/hw+OJ6z53lnd2aeO/fO3Lk7d7XymDfKU0ZKSipeUUrq 73WVbsiAbysPMFwVnp+L27Pop4Bvqm4detbqj4DDXL8YPukrTcD+oeWSfwoC 9pDTqQm+0kTAwVcOOvRvryVg5cTT83uq6Ap4ifT1i52/6wv4W+uI9NYRRgIe Ovalic1hUwHfXZ80xnihhYD3JxRFKTW3EnCM94ppcvutBSz1v7+m1BhP/gq+ wOALDL7A4AsMvsDgCwy+wOALDL7A4AsMvsDgCwy+jY0jz5O/gi8w+AKDLzD4 AoMvMPgCgy8w+AKDLzD4AoMvMPg2pqf8OPI8+Sv4AoMvMPgCgy8w+AKDLzD4 AoMvMPgCgy8w+DZmh7ye8uPI8+Sv4AsMvsDgCwy+wOALDL7A4AsMvsDgCwy+ jc0zvB3yesqPI8+Tv4IvMPgCgy8w+AKDLzD4AoMvMPgCg29j8yg/z/B2yOsp P448T/4KvsDgCwy+wOALDL7A4AsMvsDg29g6wc+j/DzD2yGvp/w48jz5K/gC gy8w+AKDLzD4AoMvMPg2tg7y6wQ/j/LzDG+HvJ7y48jz5K/gCwy+wOALDL7A 4AsMvo2t8/w6yK8T/DzKzzO8HfJ6yo8jz5O/gi8w+AKDLzD4AoNvY34Mv87z 6yC/TvDzKD/P8HbI6yk/jjxP/gq+wOALDL7A4NuYn8b7Mfw6z6+D/DrBz6P8 PMPbIa+n/DjyPPkr+AKDLzD4NuaH8n4a78fw6zy/DvLrBD+P8vMMb4e8nvLj yPPkr+ALDL6N+dm8H8r7abwfw6/z/DrIrxP8PMrPM7wd8nrKjyPPk7+Cb2P7 CN7P5v1Q3k/j/Rh+nefXQX6d4OdRfp7h7ZDXU34ceZ789VLn76kzDZIYruAP PP3Wgw4bB9kI9zX2HO7D88CNXfl6+Of4fvD9xn1Fem6Fem4xDNf/jceZxn/n r2iHv4//nW+fb4fXG/53vl3cl3p7TsrtOYUCzx1TTz3an1AtYPPNOSPDzeUE OZUly0s0UlnAb+ws7QO2aAj4Q2+z+N7B2gJms23Vui3TE/Dlv+o30lDABk/6 rmvR2kTAvn+bkzcX8F9t9p9nKeD/NZdq1WD8wYO/gg8w+ACDDzD4AIMPMPgA gw8w+ACDDzD4AIMPMPSqsXHhefFX8AMGP2DwAwY/YPADBj9g8AMGP2DwAwY/ YPBrTM/4ceJ58VfwAwY/YPADBr/G9JrXC16OfLv8Fe0Do31gyK8xO+L1kB83 niffLn9F+8AYr8bsltd7Xk94ufI8+Xb5eYC3I17vUB8w9KWxeYTXUzwPjH4A Qx+BUX9jes6PG+oDRn2N2QWeB+avsBdg1NeYXaGfwGiXrwcY44F6wRcY44nf 4V/w8yof1+Ltlo8L8eV4HvLg4yq8HfJxB95OUI7x4PfxuB/+DK+HeB7y5PeJ uB/+DjD8HWD4O8Dwd4DRDj+f83FBfl7n42j8vMjHnfh5i4/T8PMKH9dAOeTF 2ym/T0Y55AMM+QBDPsCQDzDvh2AceDnw6x8fR+XXQT7uyK8jfJyOn+f5uBY/ D/NxIJRDfvy8xscVUA75AUN+wJAfMOQHDPkBQ9/49Y2Pz/LrLR+v5ddfPm7L r8P4HfLh42L8usHHV/n1lx8XYNTDx1H5dRi/oz1gfl7G/Mmvj3y8l18v+Xgo v36jHP0FRrt8HJRft/k4C36HvPj1mo9P8us3ytE+MOrl50V+veX1Ghj1AaNd PA/M7yv59Z2P1/HrMewG7QGjfn5fzq/3jdkd6gNGffx63Jid4nmst+CF54FR jud4P4CPk/DrP/qB8eLXdz4+g3LwBgYPYOgn7w9Ajqif3zfz/gTux/O4D/LE fcAo19c86twnz1rYr/L7auxXcd//zG2ZDW34K668+0I5nuPHFfYNewYfPj7P 6ytfDx//48e3sXkb7ULesE9+PPl4FB+v+Mf/kvC1m/e3pW8Chp1CTrCjh5LR TzcR5YX6gIXxrK+vsXEFRv18PCHN8K+gfwv94eNWKB/4baWkZyUM7f3txY3t 8kL7bf5emaqAZTxGz4peoSngT3/nu7b6Yn/rr6j3f3IOrRMw6gdG/cCoHxj1 A/P18lfUD4z6gVE/MOoH5uXA95tvh7/O/fv4aB0Bo31cw/4azDcTakyuvBz4 K9pHO/w4YLyBV0eOWx3pYE39/9araETmEnUKum8uXHE/7oM9x6X91bQ4QX/5 OBuew/24ZuVL7rguI8wXjyVadtlTScBd/0gMOFNLwJpDSpaFBRoIGHqJK+oD Rn3Ah49I/ozUBXzG6mev+491BYz+A6Odv2YVVFXR4Ir2gNEeMNoDRnvAfL/5 evkr6gdGfY3JEe03Jge+n5A3MD8OaAeYlyM/TpAn8Ne/6rrBirJOqGefGGYm XC/92Kk1RNdSmPdQP/QY9eN36Cv0DBh6jnphN6gf9UCf8RzKYS/oJ+TQv/37 tJhYS4E/9B/94/Ue5egv9B+Ytw/IcUJbSYfjbMh3W+2wsS8/C/M/fkf7kBPm Dcgdfjkw+of60T6eh7xwP+SB+1E/MOoHRv3QI8gPGOslXw4eqB/lqB8Y5bgf csS6hvWejwcAw3/gy/lzTPAT+HUG/f/HT/zPOoH+opyfx3m/Bb9DbmgfPNA+ xgV6An2Af4Lxg5wwfugfML/v4O0a/eDtHOsE/CM8z9s59IW3ezy/eqnEoV1s LGD4XagPdornYZf/8JknzguwU5TDLoHh/+B+2DHKYZc8X+gz5A4MPhgX8BH8 pfr1GRj8oG/gh3LwAwY/3A9+KAc/YPDD/eCHcvADhl5Bz8AXegO+wLAX3A++ gj3X8wUGX9wPvigH33/sX8JXiFPW80U5+AKDL+4HX5SDLzAfB8W8/M98JJk/ gPm4BOyD9+ewfsK+gHEfMB8ngLz5+QR2iXkNdoj70A+0j3ow32Bc0S7vR2I/ gfphf8B8nIn332Ef4AGMfuF+YLSH/qAcmI8foxzyAoZceHtEOfbH/Pwk2Eu9 34r+Yr4X5ov6cjyP/bWwH6vXb0Fe9frMY/CFvBHHgXwxbsB83A7l/DgDoz7I j9fDxtYt6AmP+fgx9B/yxP2Y33mM9iBvlEOevPz5fRcf3+XXfz6+i3LIA/UA 437oK38/MPrD+9u8X4N2eb9DmMe4fvF+CT9/wE4hf35fgH7z81BjvBrjiXZR jvZQH+6HnaEfuA9+FH9OAfMm/M75PVUSTz8WMfxS3s+GnkDfoAd8/IB/H4X2 0U/eP+HPdaIc+sv7I/w5MpQjrgMMXoin4Dkhbldv98J6VI/59xp4Dnr6TzxF wo/3l/n3N7z9QH6Yn1COuBYw+AGDHzDGFxjzFi939Bvton8YL/DH77w/j/pg F7zfzOsx/34Gegz58Osi/74G7UM+wJAPMOQDDPkAQz7Aja1T/LoG+4Z8gCEP YMiDf68K+4T8IRe0i/vxO9rHc8D8PoNfl8GHX2f492LA6P8/+1aJ3Pl9K9ZV +FPwk4Fhl1i/0Q/oN3+ulV9/+fuhd2gX+vJPPyT9hH/Jx32F8x/1/ijk1ti5 gH/k8Z84Pfxd3I/6+XI8j/tw5X+HfkNO/DkX8PrnPcR/4pCNyeGfcwaS+yFH 1AOesCdg9APjAH8a5bAXYPjfuL+x93DAkDvGAfLlr5Ar+PHx93/u/8uvft+A dQv6BAy7w7qFeCX0FXYBjHkQccpzf/0gqQJhP4h2eT+eX5dhN/w8KJwHqpeD 4LfUr6fQC9g5ry+oF/2An4Z5A+OM51EOzMexwQvPQ39wP8qBoU/ggfuh38Do J54H5tc5ft8JLOzzGtmHQs64H/0HRn/xPDCeh76jHPoMzJ8DRP+AhXhtI/te wW/j4pz/6L9E/vgdckP9wLAHyBH3Q47A4I3ngfE8eOF+yAFYWPfq993CulKP oad8fBRy488Jwl6Bof+wSz6u15ifxfth/Pkm+DeQN38+Cc9jvPE85If7A6ty ZTyKTYV4W2N+K+/X8ueDeP8I5fi9Mb8K8kM5+s+v28AHJE/nehgJ8xP8Cb4e 4H/iTv+Pn/rPOVdJ+T/vPyV4b9NB+5puUyFJZ3/2qhLPKfB+Au9HCOeBJGqw zVxTeP6f993/WaeAIW8+rsHvg3m/k4/L8H4YX455hI978HoFzJ/b4vdnKOf9 Otgl2gNGvzBPCP2qnyeAMR9g3oX/Cwz7FuyyHvPvYfm4MHBjcWH+HB8f9+f3 NXw5f64IGLz49Y6Po6Gc96P490TAwjmv+vkN5fA3+X0l6m0sDsyfs0M59JSP x+F+YOg5+geMeZFfXzGuKAfGvAk7AYZe8PsgwY+q1yP4SbzfgX0R9Bd+HvbH 8JfQH2C0w69z/Llm8IXc4X9gHIFRzp8nRv/QDnjAzoD/eX//n3Ps4IPxEvzW +vkCWHivz53vwL7nn/2oZL36J49WglHOn/+A3cGfxPqC54ARX8F8jn7BTqEn 0EuMuzCvd5fUcMVQeB7y4N9LYf7BfO7reMHX0UtWGCeUY1ygF2gfesbrHfQS ckd//qcmXlUNzonz59pgV7ADPk+Df48HuQp+USN5KbAfft7F+P9z7loy/rAP 9Bd6Lrxvr9dzyAvPC/uy+udhf8J5rfrf/3nf/P+cA0d7wnvn+vYwz0A/hfh5 PYb+QW8gV+gh5l/gf9ZNiR6CH//+Dn4E+s/Pt7hiPsJzqB/zDMaB91+0/47f pyIhTsH7jfw5d35fDF7oPx+XxzjBTjBOfFyB12PYPx8XAAZv8EU/oA/CeY36 8cM8hufhR2Odgvxw5c9tYf7APpbPm+DPWaJf/HtnzGfWhyWW7SnGP/k4Oe83 Qi+Efct/87z+40+iHt7v5feh/Hsn1MfHvXAFLz6ezvuZ/Htd/r0072fy+26M C/QI8sd8hXr4c6cYx3/84HniOgW75+MEqJc/14Ny6C8/D0M/0Q8+joDnMQ/h efQDegB7xPoDe+Tfa/Dnsvn3Dvx7z8bem8J+J+5+WtrSVFnYDzTmVwF3+qse 79SF+zFv/ROHlmCML+wHGOML+aH/GG/Uw9tb4F/+R74L6zfGn3/PAgy9eXH3 rZ1lmSr9vdgnyDU4l8LPs5A3xlM4/8X5VfBnIE9+3hXyEyXLh7eRsTCeaBft 8Osi5IR2hXWLi8MJ8ex6PfpnnCXlfHxUyD+rXz+gH5i/MY8Bo1+wA+EcSf06 h3YwnwJjveTjIUIebb19CueTEf/g8oT/yTM5Y9PgfQTsEfrzTz8k+oPxwfjD v/pHn/8jJzwPuUAfIQ/+3DMw7AX9Al/Br62XGz+ewn6uXk7CuZ96+WLc0A/c h/ogP7QHjP5gvkD/YRcYT5Rn6D8IHjO9rMH7wD35Ofe/BxxhJ5fefTB4pPjd IvR7eaLxEsfCCJb5MUym9V3NBt9BmeUcp7Xl4XNmrFZNzrI/G+Rr+WZUyb86 nSvs6+T9EgcqpuQK8/n+LA+fT5JyyKFvv945D39mC++PXDsd/X4tLlsY53mL 3F7vdMoVzmUVdi1VO+0kTUPWqRm2K2r4/mrpwOAx92LKWeScbP8x6uJ3WtC+ hedso82F5UL7Ux13pLdWKhfaP9Y0eUj/TeXM6uUQz5WjS4X3TffS9495ECEl 2OeMmBYK8t/EvJ+rtWpbr/bSaZC/8+JUwfwlk1Roe59PvjqyFg3yZzqfqTQf laNGGxM33+6wv1QYh2SLxJRrLcU8mAfh0bp2baQEnuum2QS6Konfz7mSnlOU OCBNGKdQ+dYLpsTWNPium++1lP077hnRuNh9+u+2id9t+GpkOi86QUeQU+yg mOr5rEaQ03B5f73Vz1QanPe3bUKRo36YUq8ie4Pm18XvfRweI/v6nnbD73ns fRX/TD3blCqDzhvKK0o1yM+YHzIxdtNh8Xshq8Zu6fJhvOi31zSdO8CzryWp h7+WGa2tKX5vQnli2MQ08fxiSrvfqoFPxXyL7RutEywjytjN6ynf/K5ksvT1 XaxsFquS4u32087uTWeKH04eLVDQIpc/dUUZLTPZ6M96M+isPhWfen0rb9UP ZqIanXHR8SfrFWr4sYP8Hzajbt7A9y81KXns7z3vd5eygTmG+7t21yepGy2K b64pYfbOAxRn7ZOn+9kTbEsf1LGh5w3GDz6kSsE16YvmtpOikf0uneumpUUm O+T/nFeQ2OXhrRmTdkv8kK07d2gdlSKHvd9PtrBNZx+to3u5nJOn4YbuNy+q lbGkLp4R1+cqUMeLwx3rCqVIpXbWld9nFehZenGrpF/i9fLWAX7m+3TorTaF L1BSoLZ/4oyurFMVrjVj3VgvKQv6dc0y7ke0KvV7HJ8faVjGniS3mqqep0lO j4cNON9KS7g+KT/xx0fdlLSGz9bZfU6T8qM1R5R7S1FL9Z5NJgTrkOmitdlt FLVoa/B2m6bfdChp60brxDXfmcbKK4vWbNans9UHV++4Z0OPK7+cGjpBnzR3 hmrL7pLY93zb3q1uGlF7i+ZjYzx0aPGxodKhBSa0yDauLRtpIVxp4KYTrXJt SPlGjazdOmvqdDY6+LqTDe2w85ji0jOR5Qw9XThnuA3F22h9zZ+QKKw3KjU3 T+zon8x2BqofcdtQzUJMA5wORX1k237t1G2npkHrVEa9sx8Sz/wqPc4OX6xJ 4+Rnz7NTj2XjVlom3DHUI1v9fpPGtItj956tlsm0lIzvyjUaHSpi2aY8WjH0 pzHFT7bqqeSSyta8D31xvdCMBh54Gnf460cWsiI8McTEnOpGrsr0DPnIWpZM kNFxsaQQ1w7as6Lj2Sr9PKeu2y1p5HPtgIiT8ezOtUkTE55aUUy/2yfpWzz7 1Lb7YoVSK2q2zqnaRzGBqcsMknO3KxSu2vOPqb1eok7RC+N1hx7OY7Eh81on 7ZEMtvedrpo9Clnn6mgz9lSbXF9H3HySXMBe160cdb2HIY3Vnnop7FEhO9Vs cesWocbUZN9YQ5+qPNYhsNnyWckmlHUmPn/yrN9MueLBqhEKiezM3vE/h+6t Zi5DxzoWe6nTkWD16OGBlax5usOemfu1KfFbk2u2IdWsNuW1SkaiNn37k/Zd PaeKRe7ueSuk2oBsVvvLBraoZVNnN8vyPGRM19WaTdu5pZItuRGrp2BrQ0Yj tb+GJVexiQ+qLaMmSMav5al+i0dXM7fJr1oevVLJtvquV+ihIku/FgRqPGsl Xm/JKrrZSfzbzyG5uUyy/svdkjM4t1mDxqi+6xhjJkfS1jbH3DdoUM7erF85 NnI0qV9d1/O/dWm8Q8DFA6qyFLR8Rvz6lEKmv2LbiydHlWndNRm5jqu0aeid dzZ+u5TJW8m/xYee2hQ9pI3Zpr0q5OcV2blbf1ly0K401A9Rp86nR4TdaKtC ezwTBmxtrUEpVrZ2LduXMJ0Wc9edzdUi/xvfRhv/UKJgO9WgVc21Kdi7Ku7k CiVav+LUkOeDdKhS1frCAJ/fTJFGD+4co0tTq56+fnW4jvn3OxXjHaVLF+4F /TyyPZbZdzt3SP+MARWc9fKcm1nNRslHBVUMMSSvdu1+/SrVIv2LzTpsLTek 688r8nxaSvzxW9cfy2oY0vwHtOilXDXTHN9mdmmZMb1utfBTp8Iq9uLNnuVs ugnFHk71H3dXia66J5u8vWNCuj21F6/8oE0fI4en5ZUY05rkgKYbZlazRzG7 tAJ/mZGGtO+x/surmcezI1ILTc1J/uyCMXc/KFOVvOn8ADlz8qwaULq9WS0L Tqws3N7PkmZ6ra8rf2BIxtaqQee6WdLutfZLRmmY0M1ZFxadcLekk0OePLzu bEKd+i1IjnSzpGFBsq7vvM1o8rStMdOsLalU2ln7Qpo6eV5u/aW3gjU1VUh/ 9fqTDJ11WbnHr9yaVi2ziFx/WpZeh+frjvCS6M2hTT/v2TTMr58R6T/IzTud pSdobjzgrdIgr3b2409bcsZfE/Ybn04dOvZaJY09uvPCPydEucH5yocRI/sm q4p5r35TAmLOfc1hrfISruaX6zTIpy+fPjjkxcosIQ5yq4fa2jtLbwlxs/Bg qYChk9ME/2jxernc2vgkln32mu8FdfE8pE8/maIjHSsFf+vrM419nm3E/Pcx r8cM3zpItsF5SH2TpDvvp5cK/MZ3ND5f8raQlanvuNoyT3zP8tYy1uKFr3KD 848u/arMl+wpE/jaLgt/7h5SLvgVx6VrfWvWFrPjPi0SN71oeJ5xkdfQ013j S5mPVJHjH0k/hHN4Ooe6xsYWNHg/FvDAz1U9Q4pMTe/kXHkr1SB/vdX1NmVh W6VJfVSvn2kvGuavtyiIXV0QK+avl0bpBuhX1TD7AFUpKUe1BvnsE+5QZ/3p 4jm+QUrWzVu/kRL8a8a+XXFvLyP4EdWu8ap6kbWs3GlMkcxmmwb55bLVQ2qk nOXoyHa/sz0Vshrkmyc8GHzpmqIizc94puTZSjz/qLti6E2ZTTIN4hZ+jqPu xmbJ0bIWF9Lc3Rvmiw+XX7U91ECZ1D+lTOv4+ZrAq+Pwm2NvdakSxn2FSenS 13pifjjqmTT0+oKbh5vQgDppkzgHMV+88wRH03eVZjTh1sftyhHKlBgfutxJ zZyGKzr3cXuqTHtvdVE5LplXnhnIDNlkpkF7wg/GTVQ2oVS2enebWPE7Ck0X rMww9NCk0NrzmRddygU9KjiR6ms/tGG+d+nH2k/j5CX7kN/Oqfd8tBrkd1+e u/NqrK027SyOnZbdoqDB+6NXo1ylHnrqUC9pq4daVVIN8lhc+9Coxyb6FBKs 1dVFJbtBPvcurZgBr3oZCONda3F65/SVelSm5dSqPb0S7HjTyOQc9X5i/jX0 4Eqf+46+Swypzet5Bz/0126Qjz1laVcpWz9jwU+9rq24ye28EfV+rPUhW0bM vy552O3hIGPlBvm2i1bbWh2QMSdjbf/4G0PE/GshTr3oepWzp/i9lWXeI5se vWdOqVGPrvk76lHmnge6r3uL+dUlzUZ9UJS1JNNj93u022bZ4D3q/Ihvhkcv 2NDb/e5HN+WL59RMpw7ev/mcDV1RsXu3NteaKncdzWt61oam9B1veT7PmqbG ++aZzrJpkKdo6DNuYZ988ftwuRlVn/OzlOlSfmS/Ic9Fnn5evl3tNcX8ZOyH fy3wfuI8Rfxu6lIF4zdf4/So2M22/1kbMe7x5KT9sZ0KDfPN5zhJneqwxpxi RvscyEsQ32dhHkrIDTi8RtZa4lf+mKCj1DAfueyTSt+dI8V85MVsb9+MZTa0 NEFVMbJYfD81aKJTi9+Hxfxj8J+T+XPWdfskNvH8Bv+92jb0p/D5eI0YG9pq d7VvyX0bYmNDpMMC8wT/dV+TouEOE/LZgy5dLr6vlswrdzsc6qiUxlJZJ5Zp o0Lz2xT+2GeXyeIO/rKZ1LSWWf++ydY9KGIKQdb+hqbydOV7yuBlXsUs5Vhm L+P2qnSe2r0PblnCfE91UVN6pkpHV7a8n07FTOe6W6t8VX2aXh6W+upNCZu7 rGuXlcHFzNxqjtE4+TpmssL5yawN4jUocrJhkUcts72wPldrrRQtulR+fNsH ebrnfSogzaKO6cQ/O3/7k2RfoeJitOuMCvkbLH2e99CEUrZ4DetSrkJvkk3f /15vSsVxHhO0pFUo2txmno3cZ6as0HmMvmRfpzJTu+fyT1J0vrus04w4bdJ8 HGAdmSPmAQrnzz6rTDtaLerZgg3GciNX2FBR6wCD0a1FvTtU90n7yiTx2lTr 8PWWzpJ919BtZ67aHWJNZhfVhA1Wopv+e8fvf/SCOVScT1JIVCK/Nx++uA56 yoZNHXNg8XIt8lwwfsNw2ztsyAOP94quBrTQrK3Fk0FPWIXDlWmtaw3oTodn JQVpd1mz5KS+2bnS9OHhno1ddLOZyXdz9elNlWjQQZbmYZ3LPvxZtHTVZl0a HdtCesPQHCbVpGe7LCc9konSemqg/4uNXPA99WOWNfm1GTcr/F0u09HJyb5Z ZE3avx4zz6+5rNWulzPin5UL13kbv+3OHC1DdhN3dS9gFSztXljsoh5K5GZd /artxQqWbrp3QNdhumRg0/Ping7l7AsdbZGq+ptlrTDJ+3BJhmSveZmuvZLD LFRW1a3WlKW2O1x6dSmMZk2vDDN9PUWJEi7k2ludiWPyJ++4GZ5XpB9Tv1Ul f45iWpaJmRE7lShi5r5kqbFqlKm9fKb2KUXaEvll+P3jv9hTOfegCw5qNKPS smNpQgW7v8otP1JB4j97dVt2fnMF27V+gNWBMerUb+uwmeevalHY/Y2Tpp5X o+QYvZfW6yT78RIrjdQsdUrLeGR28dJ9ZlgbWbnEXzIPXd3iLv9Ymp4nZE/M mqNF5+w7/vj55TfLqUmyfXNRlwYvnlM3zNGKIvY/3hH62JT6KtAufz0zqu64 hCW2t6QhJ5QmeGZeEd5npLxorrxGSYte3tc5rtBR4sdsCx970FqLxg4a0mbb LD3qNbkmPHi8FsWPcG75+b4+WeklVvSPFvO7W6zXbHbwlw61uzplZmy4KVnI ev/yd1Klq+vH5u/VsaTsmIfN1/RXpQk9jJ/J6FuS5aMHNeNf65P6s1dSZVst qOBesNKbcVLkWyOzvZ+7FdXoJryszpSix2+KN+hFWpH7ZHnNYaVNaDSzf5qq Y0Uurq8POmVK09dLNbJnvK0p7rx9b4fVmmQ35+IX1d/W9Omi9EDrzZok07mo W0GxaDee9ssLj7tZU6Rus6vOJ7Qo92XXyJoXYv7s/GFXunSuFO3J6WF42MHd v1nB6vzKMgMxn9ahrXbp9D82FLvzmGOMbbJkn1FzI0Ey/y/9+oyquiWxtr2m xj06qkDPL1oaZrdLEOJofX5cGji93QfWLD181fAWYj76lGOViu9MNOlRVWW3 Bw7Z7ATrXxHeQbtB3nL5EmPNS8svsC1/3n48Jq9LS3ucY2tfJ7KAYNMzIbv1 6Mawrv49HbLY9tqwiDOHFOjLmHSnk5cLhPa391kz7oRCAbNrUmzvnKAo8HHd UfP1aIkGvYpyOh1W84fFKp3+sFROmh4+aN2lboz43aQfm47kKD+U+FUzD8gq yoh55bbaJ69PU69hG2581mrlLk2LPEvXvPiiQG6vjp59dlL8TlBWas9HLb0k 67LR51d+uuJ7tqRxm3WlxsnR7LbLU5TWiOe/rt7p6DXZ+avwvubJ0k8JE5uK 7+3vuOa/3GKcLsSLbXesXSUTmSLgvfdiSm4vyhPub321mjleLGR1Wskvh+4X v4u1y6dcZcDmQja888uUuV+UabJzRa/FvWqF8o/bS28/eFrDjs4LZd0HqdDd ee9/fJ8hL6zX82oq6vxq5GjAKN2FS6+rUNIt5ZBEbRVh3Yxy9JdfLKdCx3af WeYRrkFHs6OCQlKKBF61u3aXO8wvYql3PE3SP4vf5+naM/nCmx0JLHX5o5G2 lVJ0Zt1uH+uMK+xZqmJw2bo6NviMle6i9BeCXznlQXybqa5xbMtync+nVmnS skz3WdMDY5iR99bpOhe0qHmSoU+LWxmsyWR7313VWvQ6eN7gsjnpgh94dZpx N6OF79jsn3npM3V0aaFdp/DHmxKZeXi1SUFnfVrbi8n26h/LAltOyMocZUDf /D0/19ZkMM0cM62Tzw3IbmZyKwONDNbMd+L+RVbGlH/hbmb64C/CuVZ308Ev rGM/MpmPvT8eHGRB3betKG63O0HI3yxwnpP65m48OzX38YvLxyzIeKxnyIhh CezkYOcn95StaG5ZXIvzO+OFczRt5q9xv1kZz1ycs771drKiiUFd1vbdE88q bx2fsnq9NT0IvNp7ZlQCqwlrpfZtsw6NH6py1D88j+n79F6qM8CAPCaHqnWs KGJaH+xqcsyMqWvnsRmzP+ezCtv3y17+NCE9HZVD18aL+bdZbgtr797NYdmH bAvW2plR8bsTS+Y1z2VX4rQ9by4xo0f+x2dn5OWwHQdO1QyuNafZzcbukNXO YTnvyv1WrTengfmfhy8bliPwLZvjGN3sbTabF9Lj1f3PFpL1M3pn0Ltsdrvw 8NVj3S3JeLzmJpewbKbU9pbtgkJLuj1kw0GVh9nscl1OzILTlmSrMTez5nq2 IA/Nsq7Hz23LYdu7nGs3fooVbXmWOtmvPJvFB/0csOakFZ2r2HW+WdMcptBS m7yHWFPPAmPlTp9z2ESPzpuqLawpNtP/af6lHEEv44O/NandX802VAVHRc3S IZ8if4O7oysF+8q62ccw2qKSZVWfDW3f1ZgWmsruWP+7kkUH/Ci8rG5KUWoW pRsGVLDXNwqinJ+akP9Hh9kd14r5vc7b9Oa8m17OHA8c77y1zpS8ZJOvdXtU ztQ+eJ/sGGZGO+Y0vegyp5yd+ZyysNjeglQOr0wg9XI2M+VYmy1DzKnfy/vm fVi5IM/srjKah9qUs0EqO4PVrlhQaQfX+QuVy9nkHr3cDoy0JL/12kauWpJ9 2G8fucM1lvRl0CP31p7l7IfRIceoPRJ5+z6ftK51uSDPzEEq4xcuqGAJOcqd gsZb0fOHFEK3y1lwjb6StkSe3S033B5UU85etp6yz6KnNZ2R9fj48l0FW25d N9q8vTXJmb/rMy1CzB8ONPMdWdtFsk96MbhU6q01zV+h0SG0tJIN8g1JlPdQ J3k5vzaW8fK0OCnV4ld0MRtL7a8ObK5Ep19uVSqVk6IjvYYdXdVViQynnh+9 P7qOjWhXNabdQiUac7ml69XnCvT4RvT9620UKdXu55eSXHkaOKHEIDdKiZp+ Cv2Rq6JNsl26Wpb4qZLSKq3Cqd1lJOO1ZnDZTU1alOMx9PkqGYp2G9Xl1RRN irI9UfkpXIU6ulztFLdPjeTKF46KYSXsZ/W4hNjvWlShEfqkcLESqSxcnu8x UcwPTr1vaxRxOYWtmW2ZenSOLG1wX1llHvqdBT7rGt/0kpgfLJw3yDXTGjz+ J+v8Z8GXLaPEfOHjDjcunFCW+PeL7d7+qjrPUvVXephL/Ki10aZKPj6pTO/s yj837MT8YLz3SzKU7dx/URJTl32cNvaZMs302t17pP1P4XzA1prY8p0TcoT3 TAufJ/UP2PiDfSiXD98jK+YHj8uy7dOnWpu+B0W8Xqv4Rfz+4buhdUuzvzP9 ezbb0v0M6adbSZNBL8OYxZh7tyJ/G1KJ/FZvt4KvTKNKZkYPOyNKPzE4vt32 r2zHp9oBKZNNqOTlZq8zTimsh+dpm/v+phTRb5rbz99JwjmR0w8993neTBTO HQ82v6qWdKiIRWfca3bsmiwpxjQvnd+vTJBfar9WzRLnl7ODcW3SKi+J+b8f 5l2evjS6CUXsPHZp5tlCQT6t3aoC2u3LZy5bdozcfkWZFk4P8JqbUCbIp0Vc i+ktx1YwzdM/pp8yE7+HdGikx7QXkvUjyjnI//7wYrZ8UPCLvSvE78wJfuQT I4tx94vYGh+NSaWPxO/A+K96MGbdJDEfeN9K9UvXeulRXV/DJ76sTDi/Iz1t zKHEdn/Y13fDKpwnGVLI8djzVoHiufHAoSrTLwyoY18WDOiu3KJKkEMzReV+ UStkhffRY41d11wraUKLd7R/HO5ZI/D/VXKlx+rWVSxw7svHZ9cY0QKfRIdV H6qY+zvjBTVPf7IuW7eu2N9RTuIHW3XoNV6yv5gc/kzunpi/qxSj4O27TZZc 5/m+vK8kQ1FH9sjdSBfzdzP8M06/+yRLrdvf0t4dqia8D0X7yx5sHHt4gAKl +SuoKURXse1GkTaJzZoI9dt4LH71/ZsYp9v5a9WUSVaq5Nvl3KnBN8X8XZ/9 RoVnDeUoVLt30PZzTajXleapFhpy5PQ5caH9gyb0I8q7Z5twMX936ZfbGUlx Yv6ukKc7Zbp/IWtCtc9vjzPPFPMmk9/7jdjYVJkuX3NZMN5PzOftsFRTptWX BPZ4ZkC+x1nx/Jjc2wWP4iT7AZO0Jir6d6zp27hbL76elOwDPiebWGcq08hL 7Rf2KSpmhZfaSF1anSvkDxhPDbIzTc5hPds/tX2zTrPBOfHFFjk3ErZlCXGu iM4xBzpJ7KNjoeNIj5Fifu77VwPmtEsSv1OIfUmt7MYkh8OZwnvc721S9zz3 SRDed5cqDHG8vy2eDd/gmvNp0TfWgVW/DE8Q80SODRwj53SzgkVvn/fKb4UU aXa03Lw1JJ8dP188cZ21mH97e3dEzQrW8Jz6LX1VK+ulZWzlpMvaVcXiuW+9 jOKXv3zF74PjfMyti7829c4sEOJqA9uHD4jpWcBiv99eKK0n5ud2+jO7Zp5k /2k5oIPjWLc69mrS7UsLWkvs6Po706lpVUKcvE2pWey6iEpW5+e2IOSJmF+b Msp4aU+HGsGvD9znWNF3nVyDPIffUU87tnlTx7okb3x8+rCYZ7bpctb9kSEq wv3Qs8iqFd77AqQo8cEoW4dpmrT/7DSHwE3i+ZYWRd1bPxwpQx3W9l/9wV+n Qb7txdjU3VdXVwnnH0rKNId7L6xkUcH+iy+MFfNps1Y9e/VsXBJbeLhE6b6U Ij2Y8O3l/GPi90yF/NqOBREBT8TvbYR1kO4e/EKRDqcpKzDtC2zw2V01FZJ1 RnXrwHsfpjSh45O7b0jdJH4n9NXwiQfMviqRwSo1s8IsMT9240GXlbMVVRvk Y5gULkqrNW1CI5ad8n4y4zs7aWIxyf2ZOumPu/jLJSqzQb7s2ozJ225/1aL2 qz3Lk9WkaV/c1z5vNoh5Ly1ulxW1lvhqw0esUK2ZLebBtNj0S23NQhuqPKbi YWtvQLfLqvqG7hTzYxH36Vb2Je5PsL5wDmrs+JVO2kdr2LyUhWpeJuL3TicM f9V8yVdzutPD3LKwVEWIN+5sNz5vnJImmZz54fV1tHmDPMyA48khV9U1KaF7 k6F3lcX804Vt3A4GKWhR7ZMxS3KitMnIMGtWVVGtsM94FnplnsaRWqYm1bbC IEuPRq+Wr82oq2G+joaBJ47ok5TPkbCJ38Xvd5ee35/eMaOabc4qVj88xpDc p/sd1C8V82qLlpx3uj5Wh+yse1+98cWE3LXGxPqViOdhxzhtePr9lxVNl09J zuhnQpu1nyZpx4t5M85GDh43Jbjtdm+/Zgrm1Np74oopGyX7tfC2K3sZi+es t04b8Me2kzm55c5u0WlRreB3voksqrylV8dOHjKi3XcsaX9g08U5LnVs9C6P dzUJYv6odNf1q9W3fGTT6uKHtKm0JsPB5wIGBH4U4qO5p09vC5mZx960iJiU tN+GbAY8V1C1z2NNrwz2yBlhQ982XRuqfew3O+RTcDJxmQHpKp84YdFUzBeV vzHn1xZTOTI/9HKd7wgx3/3EwDKWv0n8Trz8+vlH0r3E77TPCYuUlsqTafD9 mGOqIy5V6mrS50Nn7BaUmpPxx5WDCs6q0ba5HaYv+mBOc1XixgwYpE6X3e23 7etsRuxk69iP+zWJnR/+e6arGU3wOjB792ZNUp2UGaZ3U8w3XZVZZtC3hRY9 Wmg/bmA3yb60eESrh6paNGlrYmT4cm2KeXJx+fxTdWx86I9jix/q0vRZG+91 kFES4tg93wy6JtNMiabNGCI784QuXbdW3N5fV4kud7TZOeeXLu0oGjCpxw9F KnFT7p03R5/Mr4beLipSJOUc+dOuJXp0c5XXvYjLNYxt9fB6ZGRA1RbGgdsL FAU7cfshc/FkhiK5md4OvzrBgKQ73HZIkeCChKR5gSkG9Kj/UPvvykrU/6vO zr1djMgyZUfy81pFWnplw2/HeEMaVlOg2CZSzFd94640f9cCLTp32zp9dTMD 6lB7R6XjcS0y6Ke/qG+6AdnmHS69pKxNXZO6yQXYGpF+enKES1mV+P8qHDrn scWhmlmZ13QL/SEp75W4x1ummoXuNHw3fprEj0zXNRm9XUnQ9+l++olLhirR G4PXSru9jGnFg0Xl40Yp0XFHv4Gj1xqTsvvjJe1+KlHikQuLZ1qb0uS9c27N nWlN974k9BqnZ0w5NZ8H9pPsZ1x/qjlfXGdMY9ZfkyqYI36/vnRHnMM35WrW afCjhxovTanPRp2K7CaWlFu97c6UWHPq/jX2YbCeJVFrjTQWYU5t5Rbv3jS5 hp389Wqr/gELQS6Xm00+otnSko4eNd0T0cOA0oz7dj8Ta0H5tv6nPtw2IMcy p9XdFSzpUutHl65vMqJUlWupr0eJ5y//JDnf9XO3pPFphyct+GlEPTo87Z7l akme1X198keYktyU2ZaFgy3p2W5Hrbfb1YX3GdmRJ5N016pR6eaPa2a4WtFF p3TlyxlqFDRCZtSzXVZUeHDuxJ1eskIc8KLU6P5uT2Qoc7vbOddsazrZZyfr cKiCdfBfHfey7Kuw3pbTi65pRT9YjJLS93PdRD+iw47RtifbVTfI4wwNC3Hd 6vRVOM9udSprkn1hAauc1Nx797li4dy7Y0lMn/AXqg3yTY0eBjtty0xhd0Pn +p97IOabCt83GNa3o1TIRTZlYHeTqFOm9NQl48OhJ0ms9Oae2VkJuWx0qMeF dHMx/3SexYqbOjllrK98q12220U/bXi23GKTsoIGebEhA3dWKJYXC7yi76/e 02x0Neu7OW1Ev2ZiXu3kR08jtvqI+arw57+mer3p0LKQSSfOdvvjXcVabRz1 W+lOqSifW+G/c93F/NVlaQ7THO1K2KXta9SqHop5qPBbPSsqZ/ReKSnXXDlx Qx8xn9WuY7mX/jojUnvnUjJ1QQHrNLa71GCJ3bbK8GnT504B66m/ee7TogSh HfiVlzSaT/aVF78b29H4l2aAYy27tSqmn7RuITPv2WRYpoHoB6oPNTque1qG Lk9e8Wa6XrHA85V2hE/kN/H7r1vsq5udGKpCTnfiV957JC2ZH9cXP32pRX3N B4Vu6VPHngffW9d+i3aDvINQHds3P7/XCvvR/Q59pI3aS9Gma3YLT3UQvx/w fVbNyfIFhjT/6l27W+Nr2KtjLbUjd6cL+0roa1ErlzyT4/I0zWWEcp5jw3xX 7zfvNXqZKtBx4+9rvh0V/cLKecuL8ysVaVc/n3vllmL+q27anqiCtwrUVnp1 2OHbisL9/ZrKOMcEifmw8KOcdjskN1siRzYuE1+/mJfHetaGbby5V5UUe02Y UNYlR3h/D/l+dLrgU6csntuYvm5/wd0CZVKeY6Fv0z9f2B9hnlqeu/GQ9VNl uvFpcssbMuJ3JB7uCOj9vtaY9OcsWO4sr0aa+56//TlRzF+Fnb0r8bWoXKBB 3isSwlL2vWO/HpcurrmjSamz3Z7st3ve4LtCnh2nvLv0S1OIS6g+uzfTf5gE zy6b/u13vLAvcDIMlJlX8ofpdbmoWZmvQfeMujbVKCoTyts+vyidMUuZ7p70 Gvu9SlNYp90c7SPuttekgZXxqfoXxfzVWEu1NnM9tKiVgZrFj2wN6tk9ctu1 Zya0rKN+24eHxPzUjJKwJ8Ml/TcbGtrqxuECdqRH503V8TrktnNX4MWdYv6p uvXhtEl9G+ab/lBc5dZ/rw69aTE6TPmbouBv3htso+/q3jD/1P7locR11wxI f/aS9SkjxHzUQx/i7Do3FfNR27dVGDMk1ZpWmIxs8TjDkGSj/shqaIl5SPCf rIJW3Xe4IX63oGbxnZdre1qQ/smDc4tWWdIjA8szv83MKXWq7Og6AzXhfO32 pq2TTG3F/FP4Nws+d9Q3+2ZN5kar72mfsaYm3ruqg0oTWLJR0PP4r9ZUOVve 7NCsj0L8rmVp1mnbIYlCvMZiZZBM0Glluhq76fHvplrUbliPTXs36pFKXHC0 Ri8x/7R90qqlH3SbkPxYl8A1AWLezvKcqBUbcy2pZXXQnvj5Yr5plcL4WD9D aTK9lZh14KcV+XSXf5x3QMwnPRjU1i1Q4i/N7FloljTRhq73+/2nYK6YL7pW 0ck/5bQNdT4695pR5yQ2uXu1/d10G2oyrSY+pyqPeZxaMtw215CG3h//4nxd ARtxZ0WlyW09ii9YXbzlqTS5bR9w59Uj8Tv7Ql7TlLWulT7V7OzxVqpvig1J 0XVyoM6WamZrbOtzrFbiv0zVvut1X5E8Wqjtn1+Ywk7s0emSYGVAnys/7U9q V8OaucZabJtoQYe0p7of8del0tCAF083mVGqeZDy+0o9Mn0zY/zGPHPKHNff 5dJMczL9/arwbLwFbVZRren9WbKuu2xsuneRGU0xHWwWnalBnqEhF/+stCbZ xMqiOzvlyK/1AwP6bkNBXmfM97Q3J+lWkTLLP2tQp4FNo/PsdWnhzFwpk+Vy VKHcfdygEb9YTckDs3dhehTqM6Z5mItkfQ7xXt3pmBHRxtNzLk3WpsU5DoOe 1RjRuE21l/MdlclM+u352gxTOjc1dkjYfivqmVjsv1LBlG5uPBZstMGGZnxe fftTMxva0arrCHdDExqcUHFMy68JOacv+1y8RlaIAx2T8boVUCV+L21P0MHj mteVaWNY6Z7meyT767NFgR6fbGhmZ7WstTK1Qh5P3Ot2g52H5wv5JUkWr9Zo t/rE/g+WeFLa "], {{ {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtULkNwkAQXHzcGYkGkHgkl+EiSAgogAIggw4A8aT0YJuEpwZCQxkOcM4X MKPdYHVzczs7s5dMZqNpJCIJyqHShsgVNQYucM6dci0vMgR+B5EzcAVuHYts gTPgJfAB9URPG1wfeAE8wNmLdU4XZ+20hx6cHznVR03F9KWutp4yVi96/oJm uYHrRKph/wr3HPzeq5a61O7kP0G9UtuL78zAt4vtUtqMynpeQXNxv53NoQ+1 ufUccXfIcPKanZiah9d8d69Z6fsN+n/Mkdnehc3h35HbWBZqyf8B4jE3IA== "]], PolygonBox[{{1943, 1005, 887, 1821}, {1418, 425, 1027, 1964}, {1928, 488, 426, 1420}, {1785, 845, 425, 1784}, {1291, 1004, 1005, 1943}, { 1457, 1027, 770, 1726}, {1819, 886, 427, 1247}, {1247, 427, 845, 1288}, {1822, 887, 313, 1788}, {1487, 536, 488, 1459}, {1456, 1026, 536, 1488}, {1726, 770, 1026, 1456}, {1787, 313, 886, 1820}, {1786, 426, 1004, 1942}}]}]}, {RGBColor[0.34673517000879756`, 0.1501120370035381, 0.6043585436278338], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNmHtsV2cZx8+v52a2GGPiH0sUCjFjMeooMymleGN2rBdSLG1xXDazAoNl jgFtt8X4B4xKzGLGSossIr1SLmYbNV7GbUWBDeM/cyZsQzHGabIUvASzoQM0 fj8+XzL/ePM+5z3v+7zP5ftczpnd9diyjVVJkjxXSZJUc4MezoneIXpU9Ke1 uEvP+0V/RvSA6N9qvqDRqT2VPElqNb+RJcknyiRZpvXrRZIUWm/Q+u+zOMu5 mRp/1Lt+zYeK4A/vGRoHRX9WZwdNM1drZOL5gNZzzV/VfJ94rteYFn1cvLtE N2rfVs07k+B1QuvzRR/QvE3zsxoDGts1+pJ4f9J7Br327SR4HdX6Gs3HsuBf J36vZPHcnsTaMd+LnZpsq39Ln07J9B/Nh6T7b7R+WjL/ULrsFj2rEvurq+LM 66yJbtO8R+dGxOOIxg2db9fzTJ29Q/fM0ajRnqtan6n9HxHvYa0NaTRpX7PO 1Gss1JjU2hGNRo19yK61ezVmia7W+FQlZEcf9Dxruj354LlD9C8qcVeD5lt0 34Nae1vvviV6ttbmaW7R3U1J+GNFEjSyvMP7Stx7u87ckwTPM7Yb9tyl56fs j6O+E5uvEr1SY7HolebXojGShY7c0Z+ETzmPLZDzhub92jOlMa5xTc+XdM9P 89i7WWOLxpNJ6PSE5lOVWN9qXrzvTuL8y1lgDEz0ajxum3D2ScvN3h5jp8f7 dngv/FvT2LNW4w/i9zXNH5dP39D6m2nY53waz9BvmW4UvSSNZ+j91gn+z5dx 9mnptcDn6+wbfDRL7+eLXiY5x7BbHpgb9b3nzRMdNmg8rHGoEr6pMzbOGA+j tjW+GnEM8TzmNeLp/jTWhzU6da42i3jaorktDbv8VfSLmpMisAlGP48vTTd6 8A5f36X5tUrwBMMnjOMhxyxrG/4Pd7PLiDvi73ZjuN26rTCOOtKI15s46DLe nnAu2WC/r7f/yDNg4KEk4uOs46Xb5/DpRBa+Qc/uLHTG58Q0sU9cY2/8hM3n Ss4+PdeU4Uvu464p423c8Txk/MN3v/1+0vFOviIXHsrC9mAYnG/S+gtl0D+R z6fZT04SPT+PuN+u+WAWZ3fadzzjv8W29b2+64TtjB16srA1c4vz71LrjL7E 5mj2AW7HvI/BOjHLPGIaPYatS3MadJP39zhO2D9mnsh4wHJO2eb4hbWD1gUe 8ILn5jRoahK1qNd64JPF8s2k1v+ZB92Wh42w1V+073Ql6h9xfFXr48Sf5l/n kdcmNV8Wry9VRbyA4aeNZ2TvtfxgHcxfQcY88PxSHnl9wpjZZh22OsYnrNef s/Dn+3nkPOwGhoj7d5xXT8jXnyQeysiv2A8fwh/e62zbJtvh58haFXh5sQz6 uvjvTSPOsUmzY4WYaa1EPBPLrxvLxH2/azV2HnB9RraPlWH33jJiGV7UozFj A9+CFWKEnPCvIrDyfhH1bV0Wscv+Jc5Rbd6PLh/Kw67k0UHX0npjaZ/jhdqx OouehBqyyjS1aJX3UIepX8hWbdzdrE8rvX+pZV3r/Iq96+wH5ELfeturybGz 0nWu2bo0JNHX0O/UOR92W5fVlg25OMfdnH3ZOCUHzbE9yGPknFbnUngstX+n isDDj/LIu/hr3DKtcH5c4rjCdmCzx3cccz7rsswtWeQIaulp17kVzqHkxotp 3LvWmAbbi+Trv/tOYuU+70V+esM1tisxyJ1gmzxNLgbfyLvc57ucl8nP9EzE 6t+y4NHtd/3uQ+hHsNWU4+Wbzm/kuZEkeilqxzL3WOD2uTTW6a++n8bzEe+F Rp8bzt2cubOMnrKB3KD1H6QRI8QBsk06dsk9xO9e74Hnoix0RrZRvxtxvByo ipjpMb7J7RuK6HcfLoLHXt/VbJ+AjXnuux4roleh/lKL75Gc+/CNc8UsY5t9 7K/Jw5en3aP+SvtfpbZq/d0i1t8rok+idlBDalxbhh0j9I61zjHVpsH1gGMf HeiT+oiTLPoPfEofQW8Bhp9J417s9b0ysHStiNiYaT6Masc1MsxzDcMm+2zb R4vopzcWkXfJv+jJnbW+F5/SQyD/miK+PdZqPqpxXfRLRfTfg5a7zf7EV5zb YzwQf82O672+Hz9+1PVi2ndyNxiDH88DjgN6LPqL3WlgCjyiE7pRD8jVi4xh cgl5s8V4p7/Ezzf7S55b88DuV8rQGd0XOma2GYdbfI5nvo/uziJmOk132Daf swyTtiH1q8X6kruIT/bCu8HYQZflzjPUh1rrjb7wnnZsU8fajX94N1rO7d67 yzoN+nmbsfys343ZF72OI3IX8t7lvPMz11PqKv3TDvvxC2XY+ouar+RRo/+R B1/8Bh7wFRjFF/RR4HzI9496X18e31sLnFeqjQHuATfctcB7btNdH87DXtRt eiv47rT9L6XRJ9D3vZdGHT7r3N5hfr80Fu8uIxd9uYwa0ux98LhsPt/VXb8T /Z0yZr7DqVldwvS49H2wCBkOOobxx7R73wveTw4fyiMeyQfUKc4ShxNl2OZw Hrn3gvdz7qLpsgz/F5q/ofsO6+wjms+l0ZPQI9B7nHM/1lNGzuA/wZjjDVvz vt+9xEQePOF90r3N8TJs02r78B9i3P8LwBuYBtv0A8hA7kPnGueN+/2fgf8N 641f8IJt5xjn+HCO6yx9zS7X6z85zzzq/uQO799TRu291RiscZ7ptK06HI+n 3JNfsv2R81bbFhtvKqIXebsIDCFHvXjOMH/umXTPSZ0Hy+RSMDCud9foszU/ 5X8s/Gvh38lh/zfBbjvTsN2defRm9GjHHafwwf+NzsnzXBfABWvglHzCvwp4 Nbnn2u360mcss/dqGj3z/2pJGr0l7+rLkGEB/21cRxeXoUeN68KP8+iDXnO8 XreefH/MsC+I6RvOoeuLqKEPaX7A/4++XsR9pyzz6iLOzs2jngy6pvDv6oD/ QyHjJZ8hXp9xzKIHtuWbmb4P2ejvhsrQc1jzfwHv2097 "]], PolygonBox[CompressedData[" 1:eJwtlElIV1EUxt+/530vkKDalhMtIioHgihpsv5GZmgZ1sYsLZsxgwaoViUV jRgYIZmVVhphI9lAkAXaIjJcqE2bWhQ2kaXmQPT7OC4O73z3O+e+c8+UVLwj r3SU53mFSAxyKfS81ojnDfqeV4u+NuAMgzjOCtCrOeuFK0dS0F8iq3DMgb/i PK8dfAycBD4AduBCbC9w9zjwMBLPfc3wVej13FmBPgmfx9g+RdLQ2zi7D78B vg77ePA69MuhxRblLBP+ITgR+ynw+8BPwJPBqeBy8GzwaexfgL9w3oHM9MxH vlnYnPItxhjwALgMvls5QK/jbBiuEpmL/hu/W/CL+X8//ATOVoPz4Cei7yXG enyH4B+g9yLPIvbmPvRKbLqxLcKnwtmb9LZa+GL01NByu4SzZPSmwO6aj/zC vigw26nYdBJLCzYZfFeCh+FqsGmJ2Jv0tqPw79Dz+d8d8GFwB7gLOQ7eDd7p W052KZehxZbPWRL6IWe5zeYfreCT4Pdwb5Ej4FL+eZ14ErHZiv4Bu6hnNVAt lHPlPgGbsfi+AU/H9xp4c2B3Zo/4HIT/gd6OfSL8ePAe9SP2S5F+7O85q00W fCNcLLgE31z4s6H1hHqjTz2nXgR3+vZmvV0xKBb1+EX0LYHFkgAuQV/hrLaK od5ZjpSrZcjfwGJSbOoJ9cYZ8FffaqraKifKjXJ+Aq4mtFjUA3/wD0KbFfVk emg5U+4auHM7epSz84odWY7/kLO3auY0e8+RWeSoljf/5JvurNfVc+q9wcBy oRqpVlFnvaSeSMM3PrReUc7i1DtII/o5zhaiv0IKuDcN+7v45iLVvsWk2D6q hyNW80/ot+E/RyzHN+AbwHkRi1GxDgSWO83IaLh/gfWWZmwMuAe7m579IxP7 ZmRGjMX0ne8icJVvNrJtcrYbZCNb1Uy1u0o8mzQrgc1ixshsdPGd5tsOWQ/X 42yWVDPVbj8yx7Odpd2lGdGsKAfKhWZMs6YdWIj/tsBqpR5WLy8ILXeKMQff FGe7UjttjebZ2S5UzsrAGwOLVTEptnmh7RblLBa9zllttVO1W9Xz6n3NaLJ6 M7Te0A7SLmpzVivV4DX6txjbtdqh2qWPQtutmiHN0n+posz7 "]]}]}, {RGBColor[0.44780218415853346`, 0.3258402799465393, 0.7464204583961672], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNmHmw1lUZx9/3vb/FZZoEJ5nUmcIxQUWvzYgmmpqIYrmwqEhTCYa5pNwW zREXBGusCZDMpQQCFBsVroZXAZGdsSYwERXRUiRpJg2wUkwNtb4fvt878Md5 n/Oe31me9fs85/S+pGPY2Faj0dhLP22is5uNxg71B6rfQ3Sq/h+k1kcfD1Pr o/4hRaPRW+1qfZ+l/33V+mv+zKa/s3aJ2nPqLxV9U3PvEj2hbjQ+1h4vaPwx /e+v9Tdm/5fUNqg9pfFPNGdIy2N3ac1joneUjcY1Gjte/VGa81PteZvaKs19 v2o0Dtb4jzS3S/SUzDlT9GbRyfCgeddq/XyNDdW6IWpTGuZ9dngeEHmQ5aCW 9+K89qZl2zVHZ4zWXpVooXaOxs8Sb0+KnqzWoTmj9P1u0QfUzm76/Olqi8Tn 49r3OtF5Dcs7V/Q0zf+K2lf1f1jDZw4VXVqbt9fE66d0xoWa84nWTtb/W9Wf qPZ1/T9Qc/rp++3dttLaW0R7qh2p/mD20dyzau/xVnR0mdY+IH4urazj43P+ cZo3SfOOF327aTt2any8zr1Zbay+Hd5m+03Rt9cr+8cm0df0f6Ta6obtMyX6 fE5thdpKtfWhq9QO1rp27TOhaf/qGz3/obYtbpVcv40N0MkzGn9G/Tkav0rn Pai1V4q+VXnez0r7BPscq/mXaPw+zRklOryZtQ3rf23kulPz1zRto61Nj89Q v6vlc+HnGp37e3xI9Cm1bfr2oPa8ps02Ze5rmvcntWfVvlR7z/vEz8rocWFp OffHXpozq3Rc7Cd6R23fnKr+u9LbK+qfUdvvsc07pf0bP18s+s/CcbRa/QX6 tl39Feq/o/GX4bn22fCwVv3h4q93y/aZpDkfxt+w8/tqTzfttx/Edy9rc6wS p/gOMUk8zoFPjfXU3tPUf1fj99bWO/p/trQMyLK4so/iq8Tadv0foP62yudN aHOM9o3tsdcujEm/T8bR/xbxPrjNmEO8DFS7rWE7MN5X/X/EB/CFovDZxP/8 wjHD2I1t5pl4/XnhuENe6GnZ8z+V939PdGHLPON7H0Y/2OwW0R1qy7TPb2rr cpDkHhgM4FzWtCemTmoZQ9oTZ13BqImFdUX/h9pntfb8fu3xCYUxhT2fzL4H tIwJ6KyMTIubjunFmdPVcPwRX/B4U/gEi54OHmHzCbE7NlgWrLy+tO4b+FRh v8V/OY+4Ipa/HB/AF05T+zX4VRuT4R882hRMOEDjM9TGa/5O7bmx6fkXiA4B 00RP1/dzS4+dqv6YNsck8ThM4xeRF0rzPTG+xDmr4if4108y3p6zOBNcBp9n in6x9pzTS8fBpj1wCoqu1qktD07Rf11tU+IZ2h3f0FfJX7V1Orh0PpmeXHO5 xnvprPXSwf21/WZ25Pp2mzH/Y637SO1NcEjtL2p/bhiX34oddzbNA9i5Q/uv wSyVZdoajAKrwLIZkQO51kdPk7v9sPAa5jys/kOF8ReMGdG0zMdq7Dttln1n eNus/hXS1d+y7+L4CLyNKDyHs6AfZ/77pfcFwx4HH9RforHNTfeRAXzC7ssa zqXgzpzkBc5GXr6/Et62FtbZJ9rnl7Vz+Z2if216X/S2LHbCPue3fNbmYP3j iYlftZwXeySnUaN0Rm/rEy/TkovInYdJ158m1kpjLfkDPPxj6bplbPwZv6XO uUtrx6u/X9M5cm7LWE/+YewIzTmn5Zji3EG1dQFmz2z5rMM1/mJpfa4QHaBv J8T2Z9aOBWJiRfyi22fXRX7qpn81XVssjT6eaThP9kzeIeejgyPje5tjl5Wx AfsuyTq+I9/LsRd625i9962cu7eInycK127ddQ08YLMllf1nHnFc2G/wpVla d0RwGx/eHp2MLDyPNXtL3ks1Z5/avMBTt0xL97D5sugA/d0cHWJzbE8NdpZ4 uEnjz6cGmBN/IA+SAz7YAweJmYvbHF/EzP9Ky7KodK58Oji6JpSYJwfjHw9p zmfxzZb5wObjY/cDNX5P/GNWZf+5unTs7Iz/vR47ov+DyKut3XXchNiO+o61 ffbApnWx4dpgSFXZ/5eWtvMtsfURtfPWkaHLIvOjpfXdWRqH1sb2r4ai7zOk p0GF8/B00Wlqp6r1KK2vsrZsPSLv8sK67oqtLoj/gD1dibXVsQO26ihcX+BD g1qu04YnN4AF5+mcuYXxC5zqXxizwK9uXuGdGghf2qZvD5b+PlT00Nq5/wu1 +bgw2NJT/7+n8f1r16rot39ssTOYBm/EIbFHDci9iFobLJ8Rn/9ay+eube62 PX6IjgcGN29M3TEw8ck65CV2OuPf57YcX8TZ2tSQ95e+b90eu8Pj1PAJNiyJ zZ6sPf5S4ZoNfcLz8xq/W/SG0jKjE/Bji/zkaM17Q/QXqTO5b71S2F++Wzl3 DEv+IG6JX3wVf7mo2D1G/83kghHps25o7lnbS9dAWyvnxjPiS0MyBz2SH28o rFfwk7vGURqfWPouwJ2Ac0Zm/3G5x7GWM+jvynmF7yoTsVFlf3y5MN5QL4I5 2OjO1u4YvSeYOKJy3F1Y2b9nZj4xdG8wdFjl+UMrrwffsTVzZ2U+uA/+E7Pf qvx9Y+EzwF94uryyntE3+4LR/O9seS2yf7Pynu3SwVGlayvufNSF1IfkYuIS fYJx2Ja4wL6nZM4o9Qdrjzq14nzpcR/1fyf6iFpFrk6uOTF+vii492jt/dFF 38hIH6w9MXFB7iAmOZe6cE38Ep9cmDn4Oe8Ghxa+w4C5A/Mu0NFme2Fzalr4 oYYDv8Ax6gj26Mg++HVH+MRXxsUH5rXsz/3iGzekJpse7EI/5EdkRzb8b1Dk WkjNRl1U2kfg9erEee/wDD0kfb7xv0/47xV/Gx25RkUf/aOTfrHdD8Cbyrwe k7oCvAPruD9wj7ivdg2IzbAXuQh8AVuoeahvwPv/lp7zYe5/1BbgyL9L3zkW Vq5BibdF2vMqjW/iHqKxqS3LAP+8i/C2gp9wN6HP3YV7ybUZX5Ga5KXUz1ek hn6iNj97Va5rwC+wi1h/N3eeQ6M39LootfFzxBnyauyj0nUXbwHkuUcrr32k sq2x2Ybkb2x4We1cBQZRX/QvfVfsVbsGI9cS08QEZ7GG2o+cShzDKzzvTRyV jqXP1Y65eYnZpZVlfK/wnfKkvAVclzecAaXv/PTR9Y68Aex6K2j53ogOz6mM M2eLjst98iStPbx0DFFjsm9X9hmb2pIaAczuDA4MryzD+aLnVpbzPO5YpW05 uPI9eEvw56LKOh2Z8W2xN/afGrtvKI2jG0Ubufe9KHk3FH7f2VzZ/8l35Bww mPsnd8F1hWudFyrnHN7OyEfUgtSEb5R+1yC+ef+bXfm96O+l3yDwIepu3hGI j7cL8wE/j+SdpD31M3mJ9zh8c9d7UvgBWxakPgb7xyXewTywD2ykTpme2L+1 8L0ae5OXuReTi7lH8lYF/8QhtQt1PpizMPtTtyxP7fLj0ndw3ueOqn2P7ie6 o/IbwszaGDA6bwWdyfHke94ZqDmJ847kOWREjieSy7kvTkpdOq60fsntK8LD rhpKY9e3Wc4+tWU5rDbug8UrG5aJO/mByUWctSufFtbF/Ojztsyh5rokdzGw c0zu4LwFsef8jI9LjuYOzv7ojzp9TO62YDmygYfczScHz8kb05I7qLk6Ijtv GMyZGN1Min4+yH/eZ9iXM9EhsYoNTyFWSscJNQ71Ibxiu4HRHzh8dGnM5p14 QWz6VPIxeXl0Zd0+HLsjP+u4OzC2oth9Z4au6q4n0HXlnMUbE3Kgp4cz94HS OuXNkrG52R8e52buoPjnqfGzBfGBydlzfHxnQXj+RuUcfHFlW42OvXrX9ofP i36mNh6Ci0fXtsExtfcrs+fyyAU/vTL/uNI4xpsmeHRl3lfHVo4p/IZcUGcf ctPi2I/6dlTeWseI7ltbzpNrvy9T81wh+n/8szpq "]], PolygonBox[CompressedData[" 1:eJwllllsVlUUhe/t/99zpMRgQUGBBxvRWoZWEgFFLAoiZaqlyhQHQkUL0VJQ eICAA2h8MYiKExigIFjDUFGwCvggGhMbB7Tg8KCCmAgyKFIgqEW/lfWw8691 9t7nnv+cvdc5xbUNNXMKkiRpxPJYXUySJWmS9MglySzwjVmStBPQyNhT4IdC kvQjromxh8GNxJwn9iXG1uEvhD8A3ww/xoQPEtMXvJH4OvBaYiYwVw2+VmI3 Yh3E12GdwQuwT8HPEXMpuCLat505bgZvI/8IeBr5X8AXM+cHxJ4mZjV8CP6h fGsFY4vA2/Cfhg/DTsC/xTpSz3EAvI6cc+Q+iw0G72fe6/GVwH8mtxtjc8Hd yCmE/4L/XXAv5iskP8dYNfgCMZuIfR1rBz+B9QWfJWYU/jZy/iC3jfgr8D0G H6v58RfjvxOL8PPwSvBR/L8Sv4ux7eBl4H3MNw2+Gn9XxiaBy7EF8CPM+SL+ g/BS8HL8d2u9zFeOvzdj3zDHqui9Woz1Ab+p89DeEP9e5v+o/6qczuCMmOk5 n1kefIY5Zhd4zVp7BzYOfAz/URUQOVXwk/AT8E7wu+CH4JuJ7R69tyXwy8Dr sbGpa2gD+ALxk8HDGesI3mPt9Tvw58HzVEOpz7QZvI9v9FT9wavEg2v3MHw9 +Gv8veCvao/hp+DfpV6j1jqUOXeA5xNzOd8/pHoFr2Ps3uA9095pz6fCZ2h/ SV0PrwWvjN57ndEL0d/Ut+uxEvC/zD8W/Aw5XcDXYl2IXa1aIL5fdK2MZqwU vBYbkfOerAFfHX1WI+FXgYeR36L1YmXMv5WxjLkitjNzTam29I1SxcJrEv/H 98G3E/8DvslYNf5qxorAr+CvAV/H2BbwZqwBvgMe8v6GvqUx+bZiA9VPefda ETyFH9ee5rzGReANjLXiX8nYeM3FHDPAtVgEL1MPpu5Z9e5EbErqNZ4D35F5 rd9jo4h/BOsJ/pj8R8FNfON4gc9MZ6eaUe0shBfjvwWbBH8NPgJ8azRWDagW or6ZeM0nyF0DXw5/Gj4wes1a+0zsIvhH8B7kNcCL4HvhS1OPtUTXkGpJmint vDJ6LdIMaYfOTGennlXv/kPM44n3eBuxgzP3hmpctV6JrSD2J+ktvi+xTanX rLVXYuNT7/EN0T2v3tceDcC3G5sKvon5P4nWKGlVI1YJbsncq9IAacHJvLV2 EL97ozVH2lNBTAX+4ZmxNFfaeyxYW7Wm36U3WFnONTQ3WMOl5b2xssw1qlqV xv0NrscW4xukOya4Z9Q7+s8l+M7AR+bcE+3BPaRe0tjZ4P+k/9bKWDu/HVhJ 4jk/I3YP/j5518hu8I9532Xd4QH/yOjaUo1UwXdFr1U5yr0tcy0sw8p0H0bf darhodE1odrQndcpuqZV258zx0adjTSiwJr/Vd49ol7RHTc/WjOlndLYosya L+2XBl6s+g/WtksYGwfeopjUGvyhtDVY29TD6uWJwb0sTZQ2Dom+21Qjg8Dz ontHd9zCzD2sXn5Z56m7IrP2rcXukR5E/3fVaHn0naO7ZxX+KeAx0bWkGhst /QquVZ2BzkJr1tq1BxOk7cG50mRp8/Tgb0lT7ws+E52NNGEpeE7wW6M//nrw b5lrRXfcAfLfyLzXumN1184M1ma9Oe4P1kxp5xLdOeC/Mt8l0sRTmd8geouo 59X70mRps95AY8h/G16Y9x2vu15vDr09dAbNxL+V+W7XG0ZvGa1Ra1UPHA7W dGn7k/AB0Zoh7dCboqt6MfNb6U9i/pN+5n0X607V3do/OldvFL1VZge/pfQG mwW+Jvq/6c2ht8ceck6nvnN36m4I7g2NBXAb/oOJ30D7wc3R39Z/3B7d8+p9 aXAT/v8BV5JAhg== "]]}]}, {RGBColor[0.5488691983082696, 0.5015685228895408, 0.888482373164501], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxFmHuwV1UVx8/9/c7Zh6cRrwTvpZSn5YWZULCRR6hwETCvgEJg4wwzFQRc FCbeiH80Y6UYr0EeF0EaJbEBInyA1USDBQ5vMStxEPMZMhMGf+gg9P20vk5/ nNnr7LP22muvx3etfa6dMmtsUyXLsjdrsqyqcYxeWudZdkTvPUT31HNe81f0 flFPN9FbxPiJ6IOiG8os26z3OzROrMSajzT/hyLL3tXYSeNJPd01/1oR78w/ V4a8zyyzg+ZPaLyovU9K3lfE37cm9r2s54Ke6dUY68R3LgVPqXVHtKazvh3V XBu9z9T3f2rumL6v0tNV769pvxWi++j77fr2nvhvkqxRWrMS3TQu0LfHNPeg eGdUgr+L1vbW/FWa7y2evnoGiB5UhF73VkKnVZK5Q/St4v+4Juy3TXQv8bUR 3V3reppuFl2IHqbvp7Sum+iq5odqfnkeZ0bmi9Ijk8w/FWHvsaJPaUwp6CKF 3/6h54BYyxQ2xJZXdL67K/GdtafsL96ZZ80DebyzFh+/L/qcxqrk7NW4U/u3 TnHGVhp/W8baXPThMvi3a68vS067PPbg7MQQ539RzzDRgzUu0tNadFv0KIL+ XGv+JVnfkq5nU9jziuPhJsl/VPMDy/BJO3xRE/a4bJ7u+rZIPD01Xili38vo UwbPPtHt8KV4vqTxjhQ+JRbm61sPzR8Xfb2epaK/ofFcET7cLt6vic45g+iW 0rWF82K4eN+RnOl6flKJWCFONuAP0T+QnKninV0JHzdUI8bgm1OJ+UbNP10T 79D9HFfE13Tt+5bmnxS9W3LqsFMlYmNFHnmzUTz7saX2mqBv8yuRS3P0vl/7 zbb9lunZIPmL9X5I9EMaB1ZDP3QbITmjte6bmv95NdbA/0Qe79CPZf6Wxbpp eeQm55hqekAZfJs1rtfcOj2D9Nxchg4jtc8bWcz9TeMQjYPzmJuscz4pWW9r nFIJf+PrHilsPDgFfkw0thBL94u+WvTqPHKvVs9KPWc1v70ScTFBT5N4mjR/ UGvWi76xDPop6XM+RYyuEb1B83u1bnEKm2LbZs1/R+/XaN2xPOzEPHbonIfd 8cUex/j9WcTLmkqsKUSvE10relyK8bjWNWtuI9iahZ+nOLYbU6wdr3F0Cuy6 S+OrlTgvuXNPCpnfTWGnKZazknzUeVdrnJvCNzfYruzXK4vYbDb/xBQ4eoKY dhwTw4NS2PVRjXuywImXsvAp/gIrhsgun4v/mPZaSMxatwVa8wKxmMLP4A2+ 3lkT8+DtW+Cg9DylsUsevmQ/ZK93zICRyEXn57TXPVrbUvyXKiEHefuqIYe8 APvRgTVgO3lFTpHTk/QsyYIP/v5Z4B77TaoJn+JPYoN6cbwSWHxSZzsq+hfa d0Q1vlFHrnbuY6s/61trvb+SIm6In6FFxAM0sYedeCc2qJOP54GtbVLET9sU +bPVOi9MQX+cIqb2WE4r43AH6XWNZHTNQw94djr2Xs/DZh9Ihx0p6tGDKXJx vX3XMQ8cob6QL7uNLdjvVfvxcCVigjN2MuZ0NP6h/yado0Hjh+JZJv76IuKM PN7o/O3pnmG58ao+Bda9kAI/D1s++UBe3Kv5x1PML0sUM8W4+Go0/p530b/W PrtT+PcR0adF99H8yTww9qh9hI67bGdqVE016lqdzws+gAl99dxVEzlALrxT BM7v8lnBQnAPXNttfGEttYh9OfuZImz3dhE5SjwQz1tS9AzHNN5SROx30Vku FFET/5Ni/7V66vX8tIhzcb5aYxp16INqxBD+JXfJYfIDH6yzT69Uwj7U/iNa 3wn7Mmq/2aI7axznfcDzFSnifEoR+AE//qI2Et/4BR0vOdduFF8vjUslp9E1 nt7mN2XYa0cZOHHeWLGrDHqPbUKOE1f/zuN7DX1OCn+RZ2A2tiU3u+VRl4nJ 64rA0NtTxDHxPKCIWk5N36bxZc3PEs8I4+Ux5+8g1yAwCP9jo3PGM3ANu53G b8bGSgqd9xZhpydsq6nVOCtrVjpX+jvGyGf8gK9WOzbqTOPDM5XYg7O3la4/ Eu9VGp9Kse9M90FnzHNA800ab0uRX2e9FzGIPmDUjCLsOTIF3p22/tcX0WPQ z7awn8YUUbeoRXfbfqusJ7n7kesOcfyh6doiasEQcCgFzzzN/UX0TH3/tsY/ VoO/v/uEtdbtaB75N0Y8o4rIrVvKqCXkxGf6/olr7nmf8Wc+Z7P7mf7iH1lG 7j5TBvbuMP7OLWLvWY5r1qL760XcO/5aRPzgA+K1t/tD+sTJrgVgPT7Dd8QG fTn5RG/O3BbP04sTR3VF9Ds3VwOn2ZO90ZnekVh9M0X/RC1pKCLuNlnOKfdZ P3Ze03v1cg9+3r17vftP+lDWHXC8kR+cH5u2sEzmkVFrfGhnDMZ39DvzNb9Y 80vK2Jd7Bn0B9x36S2IJXz1qbO9sfJ5fjZr1v17GdfgNY2at7TmqjJo5XjIv 5HGv2E+vi7+0/of0ou5P6FOoT8ONJ4dN08+NdZ9Dv8NZDtkm5Dq5DBaPzwOz yEFsvM+YsKMITOf+AQa/Yhym7yJ3qCXDnUcHHGvUSO6E9ZZJPnPnwKfYENvQ NzS6n6xzjmDLCe4fOuRxz+GOA/ZwF0VXamMn2xCsWGz5rF1gX8zTONey0AGe Z7OQ0dG1+Hmdp73o3xURq6wlXju59r4r/u9Zh79nEZvkI7nNXHvPUzMnVmPf SY4H9J/GOfLQkbiiXnIfabLdsRt5dtwYeqvznbxH3yXWmXNwHuw503ZHB+6j HWyfjb4HcR+idhFbe4yN3Yyhc6qBR9iZeyA4uEn8D/uewn2FHrav+yJioJvj cJUxnn3x4UD78ZBp4v7hPHxK3cU+2K6d8aYh/z/mNbjucMfjLF8t4p8C/xaO FGHLefYdGMM9mTvIStuQ3GQf9nva/X7hGMaH8+1Hahjz1xbRu9HD0R+MKyKn yK3xprcVkR+5/TLRd5kvYol37E8u0UODrfgHH+Oj9r7/cg8mdogz4mez72g3 lIGtYCx3/SWOSWLjJdc8cIZejrsk/Ry9Pr7cmwL78B++4/8Q+YhduFNxtxpU xp4zvC95wnud4/CLfYglcrPJZ1zoc4EpYMvLkncxC9nUbu7e4CC6gS3YERsc cU0n75rLiPdeZdh/su32bBl60C8cdN8PDlKTp1kfbIxO6ANPk/tD8JM+jB5s qOSsEX2ndOvnHhKbUyOmGt/Xen69seV9r6WvpF/aa/yd5N5ytGvlM0Xw0Fu0 sE/qjSetvZazXleGrYYVgdXcpYkbzrHGMUDdRSay17qfQdantucZPfdVwz7o wn+gBywHmdDUIc7Rz3ZYVUYN4V8FvQU9xi+dK9xZyFXycZrtwD6fOl/A3Ub3 jWD2bOM2/wGJkY7GvYfsL3B1ubHvEffGz6ew2VLbDd2abGf6NuopvWdv9970 4D3K8Od698DjrUefMva6Teu+X0b/e0nf7nQfyf37bB69bqsy+mJqHHEHxoEl 3G27lnEn5e4L1rxnX5/2fZS+boDnwTF6nPts82Hur8kBZCKPnoF7If9yqCnk d1djxdYy/uv9qow1c43D/L+gzp0o4o5AP0NPuNV7N9rnF+139kRX9GzpXpGe kfhf5HrX1/FCLLF/F+faIuuEPl93rpFz+P2ke6T/AvOrsbc= "]], PolygonBox[CompressedData[" 1:eJwtlllslUUcxb97vzvziS2ExRYQEUFaUKg+sKgRQTBSUBApCIjGhcQdWi0R K8jy4INGURZDoiwiRipGqUZBQBBIwASVVhAkBpHNgFBIFNEHo9Tf8fBwcs/5 LzPfzPznP7f7lJqq6nySJCtAAazPkqQE8gv8y5AkD4PhaZI0EbQgJklf9HL4 MjAZvRYMI7YB3QA/jv98LkkmoIvQo8Dl+BejR8MPgp6MV05Mf2K3gUn4rgb7 4Dnmvxf/C+Sc4Dt6Y1uIbyooJ3cD/i7Yj6H3oLeir0evIf40v3eiDzL2ZDCO 3K2gtOA1aW1H0NeRW8ocjdieZYyh5NZimwH/gJip+GrIXwN/H7SkHlNjXxa8 N4ppi/6OnDY5f5O+7W10EWPNwjaV2G7Y6oj9F9tg9G1gDvo+kMd3AF2GryfY D2+D7Ul8G5jjt4L3QHuhnN74+oEd+hYwnPgC843N+xvrM++B9mIJegh6dDB/ AhSjJxB/Bf43yZkIbwY3pT7Ds8QODD7L6dg6ZoZ4M7YB+AahdzH3GHAHui/6 VXLnElMBL8VWp7FBMWNfiu0MsXeDVvBT2G5MPefp6DE1di26BH8K7k+9xuX4 +mQeezZzXAsvA7PQ1eieqpXotXRFT4IvA8XkHsS2HD4eLMl7zePgVYy5ivyV oJL8Keg9ql30RHQ1+mjeZ7gLXkLOg/CvwQPoriDNOWdhdE2qNheBa/AdQa9Q rTLffs5iL7bPiZ+GLob/oXrL23YO/n10ru5IE/G56LP/HX8ePib67nTBdpfm y7wX2oNe8GPBa9ed093bDi7AE82Bf3XwWemO6K40gFbwItUrvpPB33qE+HcY fzX4Fb6N8WfgW4k+nPeeaG/KLq73Re0pelpwrmIU2xlMgR8CTwX3CPUK7UlF 8Jyae5RqFr4p+m6cZL4FwRA/ARbxrTeAV1LX2ED4TjCY/APov/j9GL0p8Zo+ gT8mTXwnsDf6THW26mHqZUPBTPgk0BLdQ9RLlPM4sevR09HvsWcvEftG5m8Z iF4M3xh8Nrpzn6KPF3y2GrMH+gv853KuMdVaZfBd1Z3pj38+4+/W3ujOwx/C 35i37TX0EO1J3j1DveOtzLUu21L4iOjeop7Ti9jO2AbA16uGMteoalU97ij8 h+Deoh6rXntL9NydGHMQvC469x+wUf0vuHdqj7XXNZlroR/xLdg+Q7fjtwPY Qmwrcu4h90f8l8C7YwvkV4Pb0R+pp+s80Q3Bc2gu3YHz6A9BorNAb8b3p+5M YtsWdDf1ON0fMAz9jPoNfAf+6fCnwfbUb0pd8DfoW9ozzjp8Cba2eec8D38Z 7Evdg9SLajOPpTdNb1sf7Smxp9D1+CvBzJx7SnnwmrX2KvwR34XgWlaPa8Ye on2qgfPoVfiX8hnzNSdzrYi+G5pDczVhm1fwGd6MfjRz7yoj5xGdd3Cu7sCA zHukvdKeam9bR/davXF66zYHr73dxbNqin7rtAatZXD03VXNqfbGRvcW9cgq +BlQT2xH9Fn4oODal20meg5jfpv6zZwNXxt8tnrD9JZ9g218wWvW2udmfuuV Mw9+a/RZqodeqfcwulZ0xlehd6NLUvcQ9ZK+0W+z7mQF/GewU28hOKxaKniv lNOIbgz+dp2xznp49FuumuyBfi74bNXj1Ot+AmWpa0i1tK/gsVUzqp2/C74r Rdi+Ivbd4LdMa9RaSzO/Xfqm/78tOlZvht4Ovbl6e/Wmt858h3SXNOeh6B6k XqT/PAn+kZnfJvW0EfB10b1INaJa0X8G/XfQG6m3skPm/1rq+e0z9zz1Pv1n Ggl/Pfq/m3q2evd/jzA2Jw== "]]}]}, {RGBColor[0.6271355702078921, 0.6292945463284346, 0.9109421215323674], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNWG2QllMYfp7nfc55puxuzCT5CvmY3T5+YGeI6AOZQZrB8Cc7mEG1G3ZQ 0fhmva20heyG/FFbTBlqdqsfNGL70IcZVIMMNrYZzJREuzG4rq6r0Y8z537O e5/73J/Xfc57zl3333RfliTJ02mSlDC35EmyBMRbGPuxNgk/fom5EfMDGJPA sxffP2HsB10RQWMeFLDPfOSZBXoy6EGgsyg5KeY+76WMdpzxHeZd4KkCfRh0 N8amTHtPAJ1Cn+kl8Z+OMxLMoyDnefz+HEYFlqaBZwbo20HPzEQ3gJ4cJGsO +EdyYO8IzGdgPQN9PuhK7K3IZeMCfDeB/8wg2aRPgJxmzGWMStpb0tk895Io +8pRvqKMNfi+Gjwt4JmGcRZ+K2N9COadifxKe28roCPW78JZH2L8CboTa5tA 98O+18B/IJfcKqzvwtojoM/D3l6MAxhfYASsT03lF/r190RxmY9zFmAsT2Qf z90Ieh/4p2Ccn+qctSXJ5B7uHYBxatRZ2+0zxn0s1hen2nsR6DmZfFFhXQ5Z n3mZYk+//Orfemz3Etu+1PSmRHO71/+FngOw/37Y25kqlg3Wi7b9gnk8/HMN 6Ncxr4J+h8GzGvPl+O4D/Rn2lkEfAd2J9SngrWHupYrhHMduK87qj3M/Ac8i jIux3oN9P2LtStC1qXxQm8k/jCF5BtPXOGM85n+x7xD21GFpHejxUfLPCvrm +izMZwfl0FWg64Pk0sdDgnJpLOgLo+xdBNmVJfEz3+j7XtfUFyXZSHol+A+C fgoyfstEM6ZvpvomfcR7GcOx4BuHuQ3z+1E27meeww+jHFPWZq/9zPmw6X5B tfVDrrVe1+m3UfFi3LjW57pmnpxsHWZh7wvMIdhVBfpRxjJXPPssPw/Kr2+w 3pxKJv3clyuPPsW8MSrXj+SqlaGZcvaWVDXCulsWFa/hkPdwUK4vjaor7lmP tYPw4RlYH838cg0wvswTymcdLXP9sHY2ux5Zl8zr/salHVH039BnNOhnQF8R lev7MD7BWGQ5bYn8UVtSfFbnwh3mf0WQPp8H2U8/PMjcAT0YoyoRb5X5iaMD jFfMX+Y2dZ+A/WV8XwxbVxfiXxdkM22vZJ67dlhD3czzkuK6riRbaF8j9m0G fS/oMbmw5RTqH0V3YR7jvczvwfYjfTjAdlG3rkR49yVGWxTP1KDfiENrjA37 jsMH8vO3eawT8N0B/umQNyKX3hui+sJJxH/wzynJx73Ou26f22P/b0+VH4zj dZD1EvhHwzfN+G7i/kR2sNZpS5vXKZMxWZsqT+hXnsd9JeyfgLUM8wep6NnG uh7bexp+exj8p7KWC+lQUUhH9jLquThoL+WdWGh9YBB+scY7YOP6Qja0Y/3m INy8vpBexB9i4w256po6cB/P7cBcn6sv0j7mW8txfY4z/UwMYM+m/fMgfy97 BuS/EoS/fwTFqNdx4u/dzhn2TvbQlqh+zLo5DfwbIPsjjBU+u9v+Za0eTnRX 4NqPXj8vCptfxLzQ57ZBh55c/k0L4QExhLl2yHlDfzP+fzlenF8yfXehnL6H dZ/rjtFVqFc02mb2xpdd48SSvcfpuN99kDXLej2Gq0dxFOuPMS7Y+3ihWiCm jHZ/mGk9E5z7T6ZYs554J+B9oMU0a2p+1B3gzqBBmvcCxm6MZdKXrIX+4N+S CaNY75dF1ejHmG/Fnq1Ynwt6bEl7mc+8v1Am7zC1hfx1retggX1FXKZv92Dv jCD8bY/KM+bb8kLYwJ5F3PshCAfqgnoLexL70c+5cpU5S3/y3kafLiuEW3lU n9lRUn94tJAvif1PFlp/AvNDQb12O+Zvg/BtT1D8GMd3XDc35sp5zpNy1ea7 mFfmspk2PZsrFiudj/RDQ66aqcZ41dhCHCAveyH74GRjIe0l342WT97p5u/1 fXikMZNYyZh2+O5An7DmVhu33y6UE+9gHoa5xphWY10oc5LPon3UcaJrm3w8 uwyeToz2RD0qMxZdFbTOmu6ynrRteK6+tMU50+Bz2YMn2g+kmV/MH+ZYneNL vK82D/1MWQvz/zFyoXX+03XDuqYPmJPEgib7k3EYGpX7l7pPUpf0WM9OVIML rTNljjeeEd8qjJ8Tode2THpyL98LrK8q99hlxu9610zmeYPplaZXuK+yv76Y SUad+yz1b7QNxE7WIWuQ9VRvPLs2qoY/i7oLLzY+sMYbnQP0WYN9W+OcYQzH GbOP5W21fct7JG0eF5SHZWMIbWq1XSui7nWzC9nyru3iW2ea9XzVMWKsWMOs 5ZlBOdHh3Gm2bPZrYsB848BU9/vE/bnTPXqnc2qj+1uXe1ylc5u9ZIjfOKxd nt/kO89DUTUyLMp31JO9g720yf201TnQbl812C8NjhlrdoPrmvbSNu5hLczw PY4+JaYyBqc4P5+3XbcUWm8mvmGsYo9kPgZhNe8mbX5vsO8txvce8LwRlWv1 ztUO2857Bd84e4wRFe6tvL8wvp3W5zf3DmIcdVzr9aO93Xf4g8br36NsWZvJ P8QP8hDD52Z6D/AtcCCKZ3bUu6nF2DLUd4K9ue7nrA3mM+/CzY417/rs9weC fN3pnCgbJ4l7O5y/3wfFZI35BrtWXshUi2tcs7VBmP5N1J2b573puji3JJkf u08NjMKDZ40JR2vXd6GB5rk9CLuGG+tajTvMpa+jZH4V9U5jrz0bdKvfFHxb 0N+rjMmjXJvUoRV8u4k7fnvt8h2e827T7Ocnew/fxLv8LrgmKgbnYO/QID9M iKrpGuPVBUGYQGzg2jDXftn/D/Ad817UvaPJby7iI3Vkf9tmTON9l/l2ZdRb YZVziPmwxD1lhe9XxOpq30F5VyK+Mi95Hu817MWMUZ3vIcfiN9fvSuLNB8ZZ 2lDtHjfGd07289nOtyug138cQEJE "]], PolygonBox[CompressedData[" 1:eJwtlVlsV1UQxu+9/3vODbW1mohGRKEFjKIkSpu4FGgLUhMMIcHqE2hCohRQ 0WgXcI8KhUKhGsECNTFhE5doUQIaeTAuRWyNSzQqRAEJj5a6oyH+vnw8fMnM fHPmzJ0zM7dq0fL5D2RJkjwLcnBbSJIXSknSA+qKJPkSrILoSpOkA24nGEzt I99hMIMAv6BvQN4DfoLfid6MvAjch74Kn56YJAeJN5l4s7H1wn0FxsKN4L8J eS5oTn1HPb7b0NeS1zzOHEKfBp7H91/wCtwYkOC7GNxM/HXgMPE+B3fDrUdP 4ZaBbuSpnF/N2U7QBN+L3o7vPvgX0RcGxxrA1gx3K/qaks/o7I/EuClzTVSb OvSW1Dlchm+78kWuxWcX3G+ggbN34fI73B/BdzWCBuTr4Nsy53A98mhs1ch/ wh9E/hjbEuSA7RPk17gzze0j3yPRb1OJfhT5CLarkcu48zB+72D7G/0M6IQ7 n/O/pq5xReE31lurpnPgv0F/M/ebbeTsHPTtcDvA7fA/g0sS53QMOYX/AHmm aoA8I7rWGRirXkFfgVzG/UPRPaHeUEzFrin8FnpjvfVkfB7E9yFwDXJjcOz9 oBrfflBBfpXgPbjpYH/mGqqWx7AvTGwbRq+IruVJbOXIX4ANmb9hCN+zYCry BHL4AW4S8brhl4IJ6N9Hcy3oVaov/rXoo9EDvjVgEvFH0N+AXwM+RT4P20S4 VvT+zGd09oDeIPc36Ft0h+5STlfCDWCbC7eSnDarl6J7UT7Vyj26tnojvVVH dG+9C78C+VowJfWdbcjTwTOZZ2Ai8tPBuZ4Gr6NXoa9D7gK3oH8U3TvqafW2 Yip2K7Yx3HdpYfkfbHWcHaf5UG+BRnwvD57150A9+kXo95fcs+rdSnA8te0C 5B34nMpcQ9XyM/wu5nsWYPsQ7tHCuTZgW4m8F9tf6Nvxfwv54WhOPfMI8vLC s6AZbFM91QMlf+NsvQ0oLznnmdE7RLtEM17L2fexnc28DF9FH49eo+8j3jjt EjAv8wwN5+5R9apy6kceDPZVT6m3tqlnMveUemsrekdqW190j6hXvkPfHL0D tQvrwenonardehxsJJ+Xo3eLZmoZ3EvBu0Q9o95ZrHnAdxQ+A8FndPYE6A7u YfWyat4aPEOaJX1TBnci96xpJ5fDnTzXi9rZ2t3KSblpp42oN6J74WvtSL19 8Nvon/A23J7CtdSb6+1nwTel3hlXoT8G+pCHOP8U8pbo3NuxLcX3ycKcdm4t ek/hb9GMjwq+U3drx2nXPQE/WHJMxb4XHCi55qp9E1if+Y311hdG95pmdgGx WoLf4luwCe7Gc/Opnrwh2iZONVatu9APZZ6xadEzoFlYC8YH/4P0L9JOPop8 B/mUJf5H3Vl4RjQrq8EVwf84/etUo77gHaNdo296HG5r8L+zkxin8DuT+9+g HJTLrOi71fPq/Ybo2Op59X6uGUi8g/YWnnnNvmpSTez/cu9q1ewe+CXBb6EZ 6MV3d+F/gWLsQt4X/W/RzpmC/D9AAQZ7 "]]}]}, {RGBColor[0.7014432116952578, 0.7486862498774665, 0.9126361068876157], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwtVUtsjlkY/v7/+8/5WgmJTKkWcZlZCJ1ENaJRjYb9LNwSM1UJ2hoSTVwa ZeFeqbjPGDq1w8a0zBArDXGJoCxYaREsyq7tRCpWeB7Pszh53+857znnfZ/3 8s1Y17JsSz5JkttYKdbWmCT/AqgOSTIA+QJrTC5JaER8MWy2w+Y/6NsgO7H6 of8O+zKsL9ifD2wssHacq8R3AXoRLm/E9zXsVUDO4R1Yn2iHc6XAOmzfDnw9 9F+B78X+Pp4HvjBKLwe+FmsTbI4C2wPsAdYGfP8WdJZ3dOPNO8An4GwT8B3A /wC+Pae4fkwk+62fzyku+kdfeZbx7M/Lj2Lo9UF743HP3ai4HheSZDSvWH5J tP+z3z3MeKG/CfJvFvSvwG9Cnwq9DvJslP1PsPkT+jzog0F8VOfFyRXo5dCr IH+IuudlUCwVzhG5KU7FFWMtclybyB2+NxP3vTOi3u/NyQfmd9T+8y5y+J03 YO/zyg/P05b3DQMboc858TZs/Z8ofC/emeR6OAjsVqa3BsHV6SjfHmB/KeQ9 4G3OBePh+3ucT3L1F+xboW8MqqlS18lN+06/umHTRQ5gMxd6DfRa6Iei8ngg Kr4tzu878FQGvQf6yUz8noB9LbALOfHMRZ2ckC/y1g+5KJVdd0688o76RLnq sm8f3Efspz7Yl3ivKlWNkbMy31FvPomxv5jnq36fHBRch63mhnmZ6DreAJ/v u+ZZ+8O4fyhV/K/dI+yVOnPM3D3MxN25oF7l3cwVa6rJnPNN1jH3ZkZhR1zL 6+3HkrzuIf/P8WaLuWP97nCeGh03a4N+LXS85VG53BrEfZV57rZOmxvmlz4T u2p8XF65KHXtVZi3EnPIty54BvUF1e841/BAlP4FdVgcxPUp8PGRHEH/bPk2 VV6rgvJ6KaonGduUqLeYS77H3iYvk6J6mL3cAX0aVjP06VG1xThHgnJDLhjL /6lyRoxyJBWf22A3iLMXcfZDQT3SxXx6Lv8NvC4oB6OQbwuqy2HgM1PFXum+ H/Kdx+0D6/1YphiPQnYG9SZ7dAVWD/A1wBry0pn7mqg5eD+qbl+nytWZoBg6 ce54pr46AXkkk00H5CP4lnEW4+zOTLlKce4A9GfA90Mu8Byv5vzAqgX+Ducu R/VGG2xWsU+Br4RsDuoHzobVQbN+OfDJQX7SX84Xzpkz7EX3/3XIs0F1yz4Y Mv/kh3w3eo4xtlrP2y7XMflkPps8V8kZ51eba5V1Q76ZQ+aFd/IOxsi+mOya Z+1zTjf4vzbH/8TZkKXua/Y3z7R4Jld4RpM7+lNiP8kjsYGC6pW5YV21uw9Z 8z1RNcxarvRs5Iys8/yjz+zXJtu3eE7yXfZcjfuO/9iC5zLnRIP/ZcztLON9 Bf0nX7m3mEfewf8u32gMeoc6OWQfsh+fut54Lzlh37KGnwRxz5om/0X+R/Ds Q9dAs+dbr2fcwUzz6FCmXmz1zLzjmUZ9V6a5vBvyG/+cC3U= "]], PolygonBox[CompressedData[" 1:eJwllE1QzlEUxu/7/7/3vjLDDDJU8r2IYSEz5KPRZG+BMRgsfIQWmlEZtKBP SjKoqbSMDZVirNig8RWLrFSayaLsejOGyQa/Z87imTnPPefee+45z7mrjpft PRc55w6CJMgLzmmhDKzDfuudm5tw7gJ4h10IdmA/BlX4z3jzbSS+HX4SXgGf A78D/wSfjz0FKrDPgwb88+Dd+GfgffA93J3GngVF+J6xdhc7TczO2Lke+DR2 B/iCfxSU4q8GXfgK4L34loINkeWwBLs+5dxn9nfDq7E7wY/Y3rAJ/z54D3wx 989SgCr4UGxn9uC/Bf8G74XfwM5l7RTnT4Jy7l4Gz4/sTTnYDaz9hv8C/fAt qgm+v5yfha8ZXgrv48wDKauxaq0c6+AFxPRH1gP1Yr3eQ/yA3oQ9So67nMV8 hw8TnxVZji3sn1aPIqvZBLFj8Dx4Cv4enoRnRvbGy3oba4XY2axl4CsGu7Ff cGenegdy4c/h7d56rt5rzwx2E/hHPr3w/ZzXCMZjy0m5HfXmOwbPJLYZ/0Rs Pf6J7zVrGfBq+HbshaAkYTkvwl6gektPxLwKdobO0h7tbeWMGew06ODsw/AT CdPAtWCakrbUkwH4h6SdlYT/wc7Hv5b4GfgjaQusjq3H6nUteBmZRg4R+xVk OOvhuDfNSDu6cxCe7e0tV8E29t5OWW2l8RZvGpaWVaMmfJNJq7VqrFpfYi0d WY8vYt8PpjXlqFwL4Fciq/lq7C7VMGE9U+9WsnYaew3+Kfi9YLOiGdYsPw2m TWnqid4WTBvSqLTaGGyWVfMjxLcFm+VKeAn8QbBZa4RXwgfhNZHVZChpb9bb tZaDv8ObdorhRd5mSLMkDdzEHmPP5tg0KW3WBZsV1bxevfd2t2asVWd765Vq 9DDYn6K/pQQs19u83SVNSBuqgWoxwlon/rPebP0h+ktqyGE4tpnR7IwEe5v+ rNFgf4b+DsXUYpcHm0XlrNylIWnpDbiO76O3v00akpaUk3JTT1YEi1Gserg1 mGalXf1Jbez9D6FCt2k= "]]}]}, {RGBColor[0.7744135186164355, 0.8509271560022547, 0.9087524422185362], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJw1VEtIlVEQ/v3/e84hiIqu9KBalAtNFz7gaiC0bWOboqAi7vWRLiotXVTQ LU0vl7IHZC10W6vcBq3CSoUUI0vtYWAt7F22aNMm6Pv4psX8M/+cOXNmvnls b+na1xlHUTQESkArLor2gl8KUfQTByugspIoagVfBm2APAY+CmMPu/fgS6A6 6GfBq0FVkO942XfD3z3Iw9D1Qt4MugB9PXRzPId+FWikRO/xraeJ5N3wnwav S3T+BneK4DPwsQyqxdlr6NaAstAfgK4ethlQE+72ONlvw/kt0Dzsj0E3lYoi pBe9c4qD8TwGHyhRfjU4G4/l8y/kHHiM/1LILZCTWPoJJ/kP/A0E5b3Tck1b LoybeuayCPty6N86+S43P8SPOB5hzNAH6HdALkBeHSuejpRyq4RuC95og34r +EZQM+RN4O0p4c/6fUiJs56MiTFUeGHTaPUq4n8Cdw/D5njQW9OG4XN7i/fo k/HXgNeaTMzOx8JxIVYtWUfq8rF6oxefh5Avgo87Ydjndf4kFpZVsWyIMXEk nvuD9DnrjZu48xL/bU7xMc5O2ORi6WnDek1YjbL2T3kylkyc6XvS5IJXDAPg h5xi6ffqxznD/0GiWrAmB53iueBlO2Y5DkG/hz0AXgdqgHwXB1+II+Sv4K+s txbApxLhSGyvBNVixctfi/XbJy+cP4J/9ur/xZRsM1bfCqvpLqfZZIyMmT31 yHIkHzO52t5l7ZjfvOX4DfcbIf9wio9xdjn1cJnNQo3NNWN+4dQ7l4P4ks3a WptBziJnd8R6/rdTX1+1ehFD1oU4DZv/6UTzMmxzljWb/qCd0gfeHJRjq810 g83FtaDZGQzCkRj9Ar9u8TFe7rD6/3ssqK5t4Hmv99ibzG/WsE1DfxT69V5v U18ImrlWw63HdiL3RbvTDNz22kk9tkfOBuV2Luj9gmGaNnwo55323ZmgOc5Z 3xKnnPX2oOV4I6g/q0zPncCZZ0/krX/Yk+zZ+4lseU67SoupaJhzxjvsLmte a7kQh3azP2lxs5czpic+uSD/WfCWoLvL1kdT1iejXjXiTHy3M/baaSccTgTt 5aLtdf5Tf8oJl4LFmbFd1WR5dVufcwcMmE1pIkx49iyl/xmvPct5WOe1zxgD Y/sH9erFnA== "]], PolygonBox[CompressedData[" 1:eJwlkztolEEUhWf/zfw/gqCQkPhqtLFIowGjELASbLRRfCPZ7K42YqKbQgPu Jia7BsUH+Ci01UbTClbiKxFjIopPiJBYJFHxVdhY+h1OceCeOXdm7txzZ22x b1dvEkLYBppAOQvhQT6E/lwIPcS1NIQC8UOShognYghZ4pwSehn+Fl4Arej7 4Y+J14MZ4gWwjnPfw6+jl6LP3ggvsn8Na+XEOcrdAtrRb4EK2jzYwF2TYBDt OViS851X0ergKXEVrEA7C08S17wXfoo7XrB3K+cn0TWq1h7QRnwR/RDaHDmX iCvkzKOVwCr0J6BGjBQmadBB9HH4M3AObQQUc66hQTxA4kvOusnaPfgmcCbx GSvZOwdags8YRTsS3Zt34Bp8MHWv28EsWg38Jv4F7qJNgQpn3+eOAnc10F8T d4JvaMOs7eT8N/ARvQ19gr15MB59h+76AI7C/8C78t7zhfd9jn7rYfTm1Hfq bvWwivYptXd1aviY2iN51YH+NXVP1Bvdqbtnmqw1qwb4CdAgvxN+PHOP1WvN wGrifehj5D+CD8Mbmd+imagTX8nsVQf8MnFfdC1LyT8GX1B9ec+MZkeey3ut LcKn4aPkt4Kp6JnR7MgjeXUjdW80Y5o15ShXM3EbbSja283wMfg/+PbEM/SX +Hv02+SZvOvNXJvefBI+zZ6WvD2Ulz9Z60rsoby8k/ps1dgfPQOaBe15RS+7 M3uvP6i/uDuzt5rBA9EzoFnYQT2z5J/P3Ct5fCGzB/JCM3oavjz1X+0mZxnx nuhYf6ia+s/p76nGH+pX6r+jGdYsyyN5pT+vv/8fz2WKTg== "]]}]}, {RGBColor[0.8411468240110336, 0.8731809351794615, 0.8788559812036487], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNVD1PVEEUHXjvzdg9smCocHc1obDQRG39B/hFosLisp+NGkFjQUEANfE3 aE1D7GywEXdtNFGxM5pYUKnRaG+xFp7jOYXF7My7c++55557Z+vd1fmV8RDC XawMK+JnFobmWAjTRQgj2C6kEFo57nFXwXcF+06mu0Xc1bCPcH8u6f43zpuI fQSMH9ivYA2AeT8CFz5TsB+H7QBrEv5bsKcx4dfx3UF8ifNJnEvcLSF2Iso2 kSnfAmI7iHkQhb2H9Qf2S0lYxwrh5ea8YT5PonKTw3X4buH8GOcvsG9gPQfO Zdhu4W6A2NuF8r4wn6HPhxEzjrsK/Nfgexqx6zifwV7F/dNMPBrjwiS3nuuq WUNqSm7UexFr2RrQfgjnPvaac01miqFe7M2sMd/nslHLHfsQs50rhjjEqFpb 6kJeS+D8LYo/6zgK24xrJD71JG4XOEcy6fUQftvYf1lLxjLuVaE8raTeMWbK ePwmJrmQE/lRa2r+FXs9E7+654bcX+fSr2qtmIP+Z4Ns1JH20mfqUzoX8x7k 4vk9ai7pu+86yG3GcX3HUu+2NeessWco6V+fB9aEsYw7ETRznL2rhWzkR/u6 383IPWU/2aOLSb2ZS5rf0npyFqkj38rLqFkdRvEiv6rfGDHZiw7id2HrY7+R xOlDFM/Sc/LZ74Lvg7V2XC+12HYP2TfqSd4V5yD+T78Fvol7UTOwif1Ooblf Saqp4dlj3/rm2U7q8TvHNV07dW257+Se/TeTe+ZM3fi/0zQ2c1D/m0k+q4Vy cG45J70kDM4dMZ95fobWcD4pz67tb6J0X4a9m+Tf8wxTA/Z3zj06n1QDa9k3 XubcC0lz2cB+zWfaTkVpOO13xDnlPLx1Xub/6Fn/hP0vIviErA== "]], PolygonBox[CompressedData[" 1:eJwlkrlOglEQhefn57/XSgloa6AxVpqorY/gRqIJ4IbYuIFWFgaXp9DaxtZG GxFNTNQQrNyt1bi9gRZ+k0k4cM6dM3Nn5pKZq2TLMRHpBnHQ5CvNbyIUaTiR p0ikC4NDXxFb8CLtgUgnehH+iCcDz5DzinfaW656puDrIEn+LrpKvIk/RTyF /4Z6M8RbAjubha/iqcNPwTJ6BPziPUCPwvPgMLQec/AtZ7Vq3LHtLEdzz8Aa tTadxepgAr3jjP+Rc4FuRefRBdAGfwN7gfX8Di97q9XBWQP/PPootJ5L8C/O BsVyvuFZzuLEPXoMfudsVz14bpn3EiTFPOfEPiPbTS9nH/BxcBKznrS3ZzQf KeJ5iewN9C02iPc727nu/pizOe4reLtbdzTprabW1p2uoO/JSYf2Zg/OdqC7 0Dur6FJktXTGIv4f9H5gM+qs19yfi9l/Qv8bFVALrabWHvb2VjrjkLed6e7U s4QecNa7vmkfPOFs9zqjzvoPzFJPJw== "]]}]}, {RGBColor[0.9078801294056316, 0.8954347143566681, 0.848959520188761], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJw1UqtWw1AQvMlNs5Z8AQeL4lB+g1cdNCBwVEAqwfZnAAdIDAo4HBwIdHAV FRWIKmbODGJzHzs7M7s3G2eXo4sypTREZMS4SGnl/QIxR/SIKe63AFx3jpjS a4tcg/UGiaIUR4eosa+x7oZye6EzuchDbGu97TqlK5x3sF6b498PcSv7+bUn 7pfkQPz4TJ93KNo072OW56n9UXstyRfveB5Cr8Lda6W6zljWPaF+Vuj+ISu3 tBY1JyHMeUh77pm0Ifw45Hdhn/dZ2p1nOfMcetdRlzNg/9nzGWT1UhtL/wfg vcX9fsg3/X8PlOvN846+GmA+Kmlyz56JI/4Nn6OQp+NQP735n2vpvlTSZv/k PAzNdxR6j8a+Pyv18uW3oze+20noDU7D/4Nn+weq/EPt "]], PolygonBox[CompressedData[" 1:eJwlkKuuAmEMhLv/LruahARNcCgCPAaHm+IucCC4SLDnZQB3DhIBigSC5F0Q GL5JRZOZzrTTtDRb9ZbBzApUQk0zs1NstonM7qlZC76Hj+BNcI86wsfwC/oc foZXWVLJmZWpSnBPF62BZxt8dz11j7zKmKC/EaLgGT+Z79TuHPwKviWO5ZFX N+m2PL0HeMTMf+yZyh7C/+BrPP3MS1ieMfjFzG/kNy/gRWZ2wW+sobXpHWLv SfuQmQbfOUB7Jp6tnjT9RL/RTAf8BdPGJZk= "]]}]}}, {{}, TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[{1224, 1496, 1223, 1587, 1588, 1586, 1303, 1871, 1872, 1868, 1870, 1869, 1271, 1222, 1728, 1727, 1874, 1873, 1315, 1883, 1884, 1880, 1882, 1881, 1275, 1228, 1738, 1737, 1886, 1885, 1322, 1897, 1898, 1748, 1235}]}, RowBox[{"-", "0.002`"}]], Annotation[#, -0.002, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[{1246, 1768, 1413, 1516, 1514, 1515, 1407, 1764, 1765, 1766, 1282, 1911, 1405, 1705, 1406, 1513, 1512, 1901, 1392, 1900, 1393, 1902, 1482, 1899, 1391, 1749, 1750, 1751, 1508, 1890, 1379, 1889, 1892, 1891, 1477, 1887, 1888, 1739, 1740, 1229, 1502, 1663, 1664, 1662, 1366, 1665, 1475, 1661, 1365, 1550, 1551, 1552, 1497, 1498, 1368, 1666, 1367}]}, RowBox[{"-", "0.004`"}]], Annotation[#, -0.004, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwVzzFLAlAUhuETme0JWVlDm61B0p9oyancpBoLdNGtUhMrFbJ+QU31K4IQ Qhe3sKGWaKvBpbHH4eU933fuhXvXiye7xzMRsYPeXMQfJriej2jjCl10MNK3 +BI/yYhffCbM+nNdDWdooI4N+yy27Uv8jbHzs3LFvopH3an8xJv8wGVe4zcM zQPcm0u8whms4ku+5UPu8RHfcZ9v+IAXOY0lfMhN3ucLLvDL9M/elPeWPXNN 30B9ekfe4mXO8TNenX2XU+YF/AOr+SsB "]]}, RowBox[{"-", "0.006`"}]], Annotation[#, -0.006, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwVz7srhWEcwPGfOshySpkonJOJhQxuKfkTTphIncVlYHAszmQRkku5HMw2 ymU3oIj8AW6DAaOzGCzyeYdP3/f3vM/z9ryZ/GxupiIi8nylIg4rIwbZ57I6 4sNa2vMed+aSDvDDNiVrO8l+7aiKaKffXNQy787XmLe8X9dN3dAy35zZs6Sn esE5bbRSYI4X30jZs+BskWNri+YT7dQjndeMPvHMnzOP1go0mpto5jO5q04l d9dpPdDb5P+YYNc8mfyztuiKjmqtXnHv278se+6imyyrDLnfmL11nq/ppd7c ow3apzc8OP9qfmOcNWsjzg7zD7frNmg= "]]}, RowBox[{"-", "0.008`"}]], Annotation[#, -0.008, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwV0jtIlWEcx/HneGs5XoYMDPOWSqAt6ealzFQwXEpwkxR0EdIlO0JaW0Fo tbSkQiCaunkJVMjJ0kHFcFNBCRqc1MJBAvu8w5fv7/97/u/zwntOYWfvo6ex EMIEzlNCWLsSwkxqCK1olh/zQ/6CKaSkhTDPS/o5XuYkXQwnns/QpSOOFmd3 +Vi/ypPRXaiSm7maP3MlN/EdbuQKHuUNHuNkTkK9fIt/uy/GAZfeW6cvkn/p 4/JPfMSpszP8wV/zEicwgOv2c1Cl3+ZF3Wt5gd/wV76NcvTjGfbdn+ps0P4Q XuAVXqJSv2dnR07IfbxvPsCl53rN/fpJ83Oe4jIe5x7O4U1s4Z/9Lvvd+GQe wyhK7N3kUm7i7Wjf7qH5CO3I1q3hOy6cveVq1KAYwxjBE7u1nMsl/A673vee O3Rtcid/MN+IfkfO43v8A/eRb67jAq7ndTSg0PyAi7iRVzAd/a+QiSxcdTbL 2fwt+t7yKqfbjeOa/B/nSVBx "]]}, RowBox[{"-", "0.01`"}]], Annotation[#, -0.01, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwVzz1PU2EYBuDXYEtbJyHoaIzYUqAyFRyMjgLiV0FR2Fx0gBpgwvgH3Iya mKiJtSYsJKKJxsaPQeJCTKQtsIqBgWBhY1W8znDlfp77vOdtz/FbdwvFAyGE p8zHQkjGQ0jwoTmEL/b38quM62LsHQzhu+6zrsB58wD9zNHkzFv5jgUqzuzz j4Z3U7okCYZ0r/lhLsvT0T0yL/vopUQ3ObJ00ckL0mQ4wUnaecZz7vsf59x1 zHxWVuUn3UPzI/MTHtOjO8UZ/T25wy7N9p88YNv+h0b0zP5GLjBFr/2oe/Ky TR7hl36dVd8b9LNM6WeYjr7HPuZ5To7L36w5u2V/ZZ6UJVmUS/z17KV9wtwv MzIjy1SpuLMm78jb1M0DrJg7nE2bs3Iw6lh235C8yAUucym6S39VFrjCCMPU 9NflKNe4yQ3q+g33bnLInqLVb7ZwmG/6j3JR/gcb3EuX "]], LineBox[{1491, 1492, 1472, 1494, 1493, 1495, 1454, 1997, 1455, 1453, 1724, 1452, 1725, 1269, 1299, 1543}]}, RowBox[{"-", "0.012`"}]], Annotation[#, -0.012, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwV0DtPk2EYBuCXpJREQ0TD4Ah/oK2TqYlEkJq4iDADQlEUheIgkKgT+gc0 cWkCctBQBp2EysFEYSAxTg4eBgcOAyQeIgqNIobrG67cz3O/b79+bW22vyVX FkLIc6c8hPcVIdyVJ+iPh5CSN+Ua6/SR4zq93OBzLIRrsocrXKWbT/oueZkO snTyUd8uL9FK0ne0yVUKLHiHReYZpKRLuFNtHuAWZfYPnjNnvm0+yT1W7MMy zhfnr+z3zWmOm0/JIc97SZGf9m0e8sj5A3mINZ+tsdey795/KvUb+j/yLzM8 c/5CPpd7ckQmSZGgMfov5ah8Kx/L88TM5Rw1b3nmvvwqX+tmzVMUeWP/pg/R u8p6ewNnuOD8rNzWZ2STvVFelOfkL33J3EyBJd133THzE/Np6jjMU6b1y/KH O7vRHd5FZ7JCxqP/jzSb7lTpxxi3TzJBxj4a/U5+e+cddjmi/0eeA++ZVwc= "]]}, RowBox[{"-", "0.014`"}]], Annotation[#, -0.014, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[{1998, 1459, 1487, 1488, 1456, 1726, 1457, 1964, 1418, 1926, 1419, 1784, 1785, 1288, 1247, 1819, 1820, 1787, 1990, 1788, 1822, 1821, 1943, 1291, 1942, 1786, 1421, 1927, 1420, 1928, 1458, 1998}]}, RowBox[{"-", "0.016`"}]], Annotation[#, -0.016, "Tooltip"]& ], {}, {}}}], AspectRatio->1, Epilog->{ RGBColor[1, 0, 0], LineBox[{{5., 6.}, {5.711529180661563, 5.3649387622790305`}, { 6.556925194593487, 4.0081885173015195`}, {7.006309856854679, 3.7809831614030114`}, {7.199301516087022, 3.675405758967043}}], PointBox[{{5., 6.}, {5.711529180661563, 5.3649387622790305`}, { 6.556925194593487, 4.0081885173015195`}, {7.006309856854679, 3.7809831614030114`}, {7.199301516087022, 3.675405758967043}}]}, Frame->True, Method->{}, PlotRange->{{0.02, 10}, {0.02, 10}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Biokinetic model of Ciprofloxacin and Ofloxacin ", "Section"], Cell[CellGroupData[{ Cell["The model", "Subsubsection"], Cell[TextData[{ "The following differential equations result from the model ofA. \ S\[AAcute]nchez-Navarro, C. Casquero, and M. Weiss, 'Distribution of \ Ciprofloxacin and Ofloxacin in the Isolated Hindlimb of the Rat', ", StyleBox["Pharmaceutical Research", "PI"], ", 16: 587-591 (1999): " }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "out"], "'"}], "[", "t", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["Q", SubscriptBox["V", "p"]], "+", " ", FractionBox["PS", SubscriptBox["V", "p"]]}], ")"}], RowBox[{ SubscriptBox["c", "out"], "[", "t", "]"}]}], " ", "-", RowBox[{ FractionBox["PS", SubscriptBox["V", "p"]], " ", RowBox[{ SubscriptBox["c", "Tu"], "[", "t", "]"}]}]}], "=", RowBox[{ FractionBox["Q", SubscriptBox["V", "p"]], " ", RowBox[{ SubscriptBox["c", "in"], "[", "t", "]"}]}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "Tu"], "'"}], RowBox[{"[", "t", "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["PS", SubscriptBox["V", "Tu"]], " ", "+", SubscriptBox["k", "on"]}], " ", ")"}], RowBox[{ SubscriptBox["c", "Tu"], "[", "t", "]"}]}], "-", RowBox[{ FractionBox["PS", SubscriptBox["V", "Tu"]], RowBox[{ SubscriptBox["c", "out"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["k", "off"], FractionBox[ SubscriptBox["V", "Tb"], SubscriptBox["V", "Tu"]], RowBox[{ SubscriptBox["C", "Tb"], "[", "t", "]"}]}]}], "=", " ", "0"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "Tb"], "'"}], RowBox[{"[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["k", "off"], RowBox[{ SubscriptBox["c", "Tb"], "[", "t", "]"}]}], "-", " ", RowBox[{ SubscriptBox["k", "on"], FractionBox[ SubscriptBox["V", "Tu"], SubscriptBox["V", "Tb"]], RowBox[{ SubscriptBox["c", "Tu"], "[", "t", "]"}]}]}], "=", "0"}]}], "NumberedEquation"], Cell[TextData[{ "Initial conditions: ", Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "out"], "[", "0", "]"}], "=", " ", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["c", "Tu"], "[", "0", "]"}], "=", "0"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["c", "Tb"], "[", "0", "]"}], "=", "0"}]}]]] }], "Text"], Cell[TextData[{ Cell[BoxData[ FormBox[ SubscriptBox["c", "i"], TraditionalForm]]], "(t)", StyleBox[" , with ", FontFamily->"New York"], StyleBox["i", FontFamily->"New York", FontSlant->"Italic"], StyleBox[" = {out, Tu, Tb}, represents the concentration of a sustance in \ differentes part of the models. We consider the case where ", FontFamily->"New York"], "with Q = 3 mL ", Cell[BoxData[ SuperscriptBox["min", RowBox[{"-", "1"}]]]], StyleBox[", ", FontFamily->"New York"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "Tu"], "=", "6.411"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["V", "p"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox["0.973", TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "Tb"], "=", "1"}], TraditionalForm]]], ", and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"P", " ", "S"}], "=", "2.714"}], TraditionalForm]]], ", then replacing ", Cell[BoxData[ FormBox[ SubscriptBox["V", "Tu"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["V", "p"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["V", "Tb"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"P", " ", "S"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox["Q", TraditionalForm]]], " for their values where for convenients we call ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}], TraditionalForm]]], " intead of ", Cell[BoxData[ RowBox[{ SubscriptBox["c", "out"], RowBox[{"(", "t", ")"}]}]], CellChangeTimes->{{3.544773367986431*^9, 3.544773383446328*^9}, { 3.544788085372505*^9, 3.544788155510228*^9}, {3.5447934250180874`*^9, 3.5447934516785345`*^9}, {3.5447955954879*^9, 3.5447955994035068`*^9}}], ", ", Cell[BoxData[ RowBox[{ SubscriptBox["c", "Tu"], RowBox[{"(", "t", ")"}]}]]], "and ", Cell[BoxData[ RowBox[{ SubscriptBox["c", "Tb"], RowBox[{"(", "t", ")"}]}]]] }], "Text"], Cell[BoxData[ FormBox[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "(", "t", ")"}], "\[LongEqual]", RowBox[{ RowBox[{ RowBox[{"-", "5.872559095580678`"}], " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], "+", RowBox[{"2.7893", " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], " ", "+", RowBox[{"3.083247687564234`", " ", RowBox[{ SubscriptBox["c", "int"], "(", "t", ")"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "(", "t", ")"}], "\[LongEqual]", RowBox[{ RowBox[{"0.42333489315239436`", " ", RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["k", "on"]}], "-", "0.42333489315239436`"}], ")"}], " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], "+", RowBox[{"0.15598", " ", SubscriptBox["k", "off"], " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "(", "t", ")"}], "\[LongEqual]", RowBox[{ RowBox[{"6.411`", " ", SubscriptBox["k", "on"], " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}]}], "-", RowBox[{ SubscriptBox["k", "off"], " ", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}]}]}]}]}, { RowBox[{ RowBox[{ SubscriptBox["x", "1"], "(", "0", ")"}], " ", "=", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "(", "0", ")"}], "\[LongEqual]", RowBox[{ SubscriptBox["x", "3"], "(", "0", ")"}], "\[LongEqual]", "0"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]], TraditionalForm]], "EquationNumbered"], Cell[TextData[{ "We use ", Cell[BoxData[ FormBox[ SubscriptBox["c", "in"], TraditionalForm]]], "(t) = ", Cell[BoxData[ RowBox[{"13610.10776942386`", " ", "t", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "11.215992508521028`"}], " ", "t"}]], " "}]], CellChangeTimes->{3.3981392434339075`*^9, 3.398139459337884*^9, 3.398161699477437*^9, 3.39816194679152*^9, 3.480338254634055*^9, 3.480340936881855*^9, 3.4803415031356544`*^9, 3.4803427480030546`*^9, 3.518536642061124*^9, 3.53969785078972*^9, 3.539698038902707*^9}], " (According to G. Sanchez Biokmod: A Mathematica toolbox for modeling \ Biokinetic Systems\[CloseCurlyDoubleQuote]. ", StyleBox["Mathematica in Education and Research", FontSlant->"Italic"], ": 10 (2) 2005. ISSN/ISBN: 1096-3324 using the experimental data obtained \ by of A. S\[AAcute]nchez-Navarro et al. )" }], "Text"], Cell["Then, on notation matrix:", "Text"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ StyleBox["x", FontWeight->"Bold"], FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], " ", "="}], TraditionalForm], FormBox[ SubscriptBox[ StyleBox["x", FontWeight->"Bold", FontSlant->"Plain"], "0"], TraditionalForm], " ", FormBox[ RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " "}]}], TraditionalForm]}], "+", RowBox[{ FormBox["Exp", TraditionalForm], "(", RowBox[{ StyleBox["A", FontWeight->"Bold", FontSlant->"Plain"], " ", FormBox[ RowBox[{"t", ")"}], TraditionalForm], " ", "*", FormBox[ RowBox[{" ", RowBox[{ StyleBox["b", FontWeight->"Bold", FontSlant->"Plain"], "(", "t", ")"}]}], TraditionalForm], " \t"}]}]}]}], TraditionalForm]], "EquationNumbered", TextAlignment->Left, TextJustification->1], Cell["where ", "Text"], Cell[TextData[{ "x", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", "t", ")"}], "=", " ", SuperscriptBox[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "(", "t", ")"}], ",", " ", RowBox[{ SubscriptBox["x", "2"], "(", "t", ")"}], ",", RowBox[{ SubscriptBox["x", "3"], "(", "t", ")"}]}], "}"}], "T"]}], TraditionalForm]]], " " }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell[" Optimal experiment design", "Subsubsection"], Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input"], Cell[TextData[{ "This model (eq9) is represented in ", StyleBox["Mathematica", FontSlant->"Italic"], " by the ODE" }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"eqox", "=", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x1", "'"}], "[", "t", "]"}], " ", "==", " ", RowBox[{ RowBox[{ RowBox[{"-", "5.87256"}], " ", RowBox[{"x1", "[", "t", "]"}]}], " ", "+", " ", RowBox[{"2.78931", " ", RowBox[{"x2", "[", "t", "]"}]}], " ", "+", " ", RowBox[{"41963.3", " ", "t", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "11.216"}], " ", "t"}], "]"}]}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"x2", "'"}], "[", "t", "]"}], " ", "==", " ", RowBox[{ RowBox[{"0.423335", " ", RowBox[{"x1", "[", "t", "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "kon"}], " ", "-", " ", "0.423335"}], ")"}], " ", RowBox[{"x2", "[", "t", "]"}]}], " ", "+", " ", RowBox[{"0.155982", " ", "koff", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{"x3", "'"}], "[", "t", "]"}], " ", "==", " ", RowBox[{ RowBox[{"6.411", " ", "kon", " ", RowBox[{"x2", "[", "t", "]"}]}], " ", "-", " ", RowBox[{"koff", " ", RowBox[{"x3", "[", "t", "]"}]}]}]}], ",", "\n", " ", RowBox[{ RowBox[{"x1", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x2", "[", "0", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{"x3", "[", "0", "]"}], " ", "==", " ", "0"}]}], "}"}]}], ";"}]], "Input"], Cell[TextData[{ "We want to estimate the values of ", Cell[BoxData[ FormBox[ SubscriptBox["k", "on"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["k", "off"], TraditionalForm]]], " making an experiment that consist on in measure the concentration of a \ compount at ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["x", "^"], "1"], "(", "t", ")"}], TraditionalForm]]], " for ", StyleBox["t ", FontSlant->"Italic"], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",.., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", ... ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "} an then estimate", Cell[BoxData[ FormBox[ RowBox[{" ", SubscriptBox["k", "on"]}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["k", "off"], TraditionalForm]]], " by fitting ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}], ")"}], TraditionalForm]]], " . " }], "Text"], Cell[TextData[{ "The problem is can not be found an analitycal expresion of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}], ")"}], TraditionalForm]]], " because the ODE system eq. (4). (or (5)) can not be solved if ", Cell[BoxData[ RowBox[{ FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}]]], " are parameters. However ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}], ")"}]}], TraditionalForm]]], " has solution when ", Cell[BoxData[ RowBox[{" ", RowBox[{ FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}]}]]], " take numeric values, this fact is used by some nonlinear regresion method \ to estimated ", Cell[BoxData[ RowBox[{ FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}]]], "." }], "Text"], Cell[TextData[{ "We wish find ", StyleBox["t ", FontSlant->"Italic"], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",.., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", ... ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "} of the model given by eq. (4). (or (5)) using ", StyleBox["D", FontSlant->"Italic"], "-optimal design when the analitycal expresion of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}], ")"}], TraditionalForm]]], " can not be found. [f(t, \[Beta]) =", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "on"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "off"], TraditionalForm]}], ")"}], TraditionalForm]]], "]" }], "Text"], Cell[TextData[{ "1.- It is defined a model ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"t", ",", " ", "\[Beta]"}], ")"}], " "}], TraditionalForm]]], "where the unkown parameters are ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"{", RowBox[{"kon", ",", "koff"}], "}"}]}], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol", "=", " ", RowBox[{"ParametricNDSolve", "[", RowBox[{"eqox", " ", ",", RowBox[{"{", RowBox[{"x1", ",", " ", "x2", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], " ", ",", RowBox[{"{", RowBox[{"kon", ",", "koff"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}], ",", RowBox[{"x2", "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}], ",", RowBox[{"x3", "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "2.-Now it is computed ", Cell[BoxData[ FormBox[ RowBox[{"\[Del]", RowBox[{"(", RowBox[{ RowBox[{"f", "(", "t", ")"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}]}], ")"}]}], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "da"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "db"], TraditionalForm]]], "}," }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a1_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"a", "\[Rule]", "a1"}]}], "/.", "sol"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b1_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"b", "\[Rule]", "b1"}]}], "/.", "sol"}]}]], "Input"], Cell["\<\ 3.- Here is defined the number of points n to be used in the optimal design. \ \>", "Text"], Cell[TextData[{ "4.- It is evaluated \[Del](f(t), \[Beta]) at points ", Cell[BoxData[ FormBox["t", TraditionalForm]]], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "}, obtaining ", Cell[BoxData[ FormBox[ RowBox[{"X", " ", "=", " ", RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["X", "1"], TraditionalForm], ",", "...", ",", " ", FormBox[ SubscriptBox["X", "p"], TraditionalForm]}], "}"}], " "}], TraditionalForm]]], "with ", Cell[BoxData[ FormBox[ SubscriptBox["X", "1"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "1"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "1"]], " "}], TraditionalForm]]], "}, ..., ", Cell[BoxData[ FormBox[ SubscriptBox["X", "p"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "p"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "p"]], " "}], TraditionalForm]]], "} " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "0.5"}], "]"}], " ", "//", " ", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.06242160000000000069642069888686819468`4.815934809654204", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8371808876404974`"}], ",", "0.3615946424595132`"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["Test OK( The same value that using Method 1)", "Text"], Cell[TextData[{ "6.- A typical election for compute the covariance matrix is assumed that \ that the relationship between samples decays exponentially with increasing \ time-distance between them, that is ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "} with ", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "= exp {\[Rho]|", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "j"], " ", "-"}], TraditionalForm]]], Cell[BoxData[ FormBox[ SubscriptBox["t", "j"], TraditionalForm]]], "|}.", StyleBox["For computational purpose we have found more appropriate to use \ the distance ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["d", "i"], TraditionalForm]]], StyleBox[" ", FontVariations->{"CompatibilityType"->0}], "= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "i"], "-", SubscriptBox["t", RowBox[{"i", "-", "1"}]]}], TraditionalForm]]], ", ", StyleBox["instead of ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", "i"], SubscriptBox["d", "i"]}], TraditionalForm]]], " being ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "0"], " ", "=", SubscriptBox["t", "0"], " "}], TraditionalForm]]], ". That is for a two points design", " . We suppose a 3-points design. The first is defined by the user \n\n ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " where " }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"FoldList", "[", RowBox[{"Plus", ",", " ", RowBox[{"Subscript", "[", RowBox[{"d", ",", " ", "0"}], "]"}], ",", " ", RowBox[{"Table", "[", RowBox[{ SubscriptBox["d", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"ff", "[", RowBox[{"i_", ",", "j_"}], "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"i", "\[Equal]", "j"}], ",", "1", ",", RowBox[{"i", "<", "j"}], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "i"}], RowBox[{"j", "-", "1"}]], SubscriptBox["d", "k"]}]}]], ",", RowBox[{"i", ">", "j"}], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "j"}], RowBox[{"i", "-", "1"}]], SubscriptBox["d", "k"]}]}]]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"nn", "=", "2"}], ";"}], "\n", RowBox[{"\[CapitalGamma]", "=", RowBox[{"Array", "[", RowBox[{"ff", ",", RowBox[{"{", RowBox[{ RowBox[{"nn", "+", "1"}], ",", RowBox[{"nn", "+", "1"}]}], "}"}]}], "]"}]}]}], "Input", Evaluatable->False], Cell[TextData[{ "6.- Now it is computed the convariance matrix \[CapitalSigma] = ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm]]], " ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]] }], "Text"], Cell["We take:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "=", "1"}], ";", RowBox[{"\[Sigma]", " ", "=", "1"}], ";"}], " "}]], "Input"], Cell["\<\ We will also need give the initial values for the \[Beta] parameters and the \ standard deviation of the measures. kon= 0.7, koff=0.11\ \>", "Text"], Cell["7.- Then we can obtain the information matrix", "Text"], Cell[TextData[{ "M = ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["X", "T"], " ", SuperscriptBox["\[CapitalSigma]", RowBox[{"-", "1"}]], " ", "X", " "}], TraditionalForm]]] }], "Text"], Cell["\<\ m := X . Inverse[\[CapitalSigma]]. Transpose[X];\ \>", "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell[TextData[{ "8.- Finally the determinant of the information matrix is maximized as \ function of d0, d1 and d2. We constrain the d values to a maximun of ", Cell[BoxData[ FormBox[ SubscriptBox["d", "i"], TraditionalForm]]], "=10 becouse to longer time the concentration will be very low (lower than \ the detection limit)" }], "Text"], Cell["For n (number of observations)= 2", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]}]], "Input"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}]}], "}"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol2", "=", RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1"}], "]"}], ",", RowBox[{"0.02", "<", "d0", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d1", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"2426.5415332833622`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "1.5741580392116095`"}], ",", RowBox[{"d1", "\[Rule]", "4.442496971145322`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["For n (number of observations)= 3", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}], ",", RowBox[{"d2_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol3", "=", RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0.02", "<", "d0", "<", "10"}], ",", RowBox[{"0.02", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", "d2"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"4322.280185249511`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "1.5699581061611056`"}], ",", RowBox[{"d1", "\[Rule]", "3.584030846225564`"}], ",", RowBox[{"d2", "\[Rule]", "3.158537333176346`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["For n (number of observations)= 4", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2", "+", "d3"}], ")"}]}]]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d2", "+", "d3"}], ")"}]}]]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d3"}]]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2", "+", "d3"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d2", "+", "d3"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d3"}]], ",", "1"}], "}"}]}], "}"}]}], ";", " ", RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.7", ",", " ", "0.11", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}], ",", RowBox[{"d2_", "?", "NumericQ"}], ",", " ", RowBox[{"d3_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}], ",", " ", RowBox[{"d0", "+", "d1", "+", "d2", "+", "d3"}]}], "}"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol4", "=", RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2", ",", " ", "d3"}], "]"}], ",", RowBox[{"0.02", "<", "d0", "<", "10"}], ",", RowBox[{"0.02", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d3", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", "d2", ",", "d3"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"5871.948311717614`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "1.5593334968257608`"}], ",", RowBox[{"d1", "\[Rule]", "2.9089220259120254`"}], ",", RowBox[{"d2", "\[Rule]", "2.593575265704357`"}], ",", RowBox[{"d3", "\[Rule]", "3.0766332007520054`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["Conclusion: The observations will be taken: n, t0, t1,t2,t3}", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "d0", ",", RowBox[{"d1", "+", "d0"}]}], "}"}], "/.", " ", RowBox[{"sol2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "/.", " ", RowBox[{"sol3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}], ",", " ", RowBox[{"d0", "+", "d1", "+", "d2", "+", "d3"}]}], "}"}], "/.", " ", RowBox[{"sol4", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Observations 2:\"\>", ",", "1.5741580392116095`", ",", "6.016655010356931`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Observations 3:\"\>", ",", "1.5699581061611056`", ",", "5.15398895238667`", ",", "8.312526285563017`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Observations 4:\"\>", ",", "1.5593334968257608`", ",", "4.4682555227377865`", ",", "7.061830788442144`", ",", "10.138463989194149`"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Michaelis-Menten ", "Section"], Cell[CellGroupData[{ Cell["The model", "Subsubsection"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQuUFNW57wcGZpiB4f0Q0Xj0GOPjeu5Zx6ysm6XHXF1Lb3Li8UQJRszR 4xGjETRyJIL4wAiiMT5QEcEYFJ8ooqLxhSJoeBlURBBhBGYG5tnvZ3V1V3XV vv+qj94WAzNC0d3VPXy/1dOrurqme1f3rl9/365dex9/1Y0XX9O7oqJiSj/c Xfzf08656ab/nj62Dx6cO/33v7mqEgth/D3eq6LCWhZCZDIZ0zRjsZgwhXUz TGEIWo5Go5qm4VFGGJoQST2TTCYNw8C/KIoibLLZrFxmGIYpJpoNLUeCoXRS MTKamdG1lNrW3AKzYX04Ho0oibimao5/hMTS6TSEpqqqFwVnGIaxgIhIYmkl ZcdgIpvOYCEcCGJlKpVCDJZIW/qKZVItLS3BYBDiov+FvuLxuJelZxjmiCeR SEBipp5VonEjrUFi0WAIEmtsbMSz/nBItxJJM6wkaHtsDO8hQkMKiWDMy6Iz DHME097eLmwjNTQ0QFlIIaEvXU1n4TFT6LoeDocRg/kj4fZwUDWzfr+fUkvE ZnjW6+IzDHOkI0W065sdwwYNrqyoOOXE71v3J/3gm2++2b59++13zqisqa7o XTFw5LBXXnnFcp0DCI1VxjCMJ0QiccRaSAaDwSAW1v1t9ew/3Al9/WrsxUIY gUAA2yhpddELz/3wzDPf//hjitmE3ZKvqqqVe9ohGcMwTPExjG+Xsxkt2OHb /tXmi/795wP716xfuzoUCkUikRUfrfp///7zz7/6Sp6LhLvS6TQtQ2LcFMYw jDfY/b4UBUJKpxJJYWaFqX/+97X/dNoP/vfpp/gDHeCyKy7/4qutqil2d/iF FbZF9v6raaZSKdkZA4EcLVAPDeo2BuR6rEG+aTilyTAMcxgYWZFK6VlqxzJF JOCLhXzZdHL5O28OGVR71YQrZ82atXr9uo5QpKG1XbOtFYvFICUpIt2GTkpK m8nU0sjBySbDMHlH16ywi5rCcG9qajIWEIYqjNSch+494R+/d++991rnIsMx uKmxLdDW1ob/isfjsBZySURoeGi1odlAbtRVDMpCqEadXWG2RCKhKIpTet7s LcMwPQvSFzwG22RSKlJIKCcZRbaYXv3x+7W1VSeffHJMSYQTqZ172oOJNLkI 96FQiMRFbfvU5i/sFFLYMRi2EXanC+fb4VnWF8MwecOwE0nFsoqaVHxte6x2 +kTA19449ffXf7Fpw+DBg2+bcYcvHIeYfJEUZYtNTU0XXHDBMcccs2LFigqb qqqqCy+8cLLNfffdt3Tp0s2bN1PmCGUpNtQ4xp1gGYbJG4Z1U5JW4IQYLKPE YLCvt3z6u0kTdu3YgqDphRdeqOhV8eIrr/ujalSx2uSj0eg111zzyCOPIGc8 ++yzn3/++ZkzZ06dOnXGjBljx44dMmQIhFZdXT1q1CjEb7DZsmXLGhsb0+k0 wjzq/O/1PjMM00MwbYPhvq2tzdQhKG3T52tfe+XZj1e9o2sxf6AVcdTkKTcd dczx9Q1tacNq4Nq1a9cZZ5yBmArR1JQpU+bOnUs5I6WH2ACK27BhwwMPPDB+ /HiK0I4++uirrroKARuSyr19zxiGYQ4fAymk1RTm9/txHwv7Zt459c3XX0zG fUKkILRwOPzJZxsqqwf0rR363sp1SAC3bduGhLG9vR3ieuKJJ+bPn09N9JAY tXrhIV0tTmcnV69ePXHixNGjR0NlP/rRjxYuXIjX9Hq3GYbpIdDpRURQPp8P kqE0cPHixeSld999d8yYMRRKnXDCCYi+tmzZ8stf/pJ6tN51112PP/44/rGr F4fE4CtsjNBr+fLl//Zv/1ZTU1NVVfXwww+3trYKu3cZtfkLe5QMaygM+33p YiXuPMYwTDc0NTWpqmoNb2hDpxTpciFh+0fYfSeErReoBiLavHnzWWedhVwS 20ydOvXpp5/+znfBCyJzpCHFVq1ahf/q1atX//79582bB1NhJTyGd6E3xX0y mZSnLPGQhyBjGKYbkBIi+IFkqHsqBUWIf2SruxxOh4Zj/c///M/t27evX7/+ xz/+cZtNV68swzPqn0/LeKNPP/308ssvR1x3ySWX1NfXy55jcuQxFMP57gXZ bYZhyhyIgqIjeghN0TLJikYAw0OIRXaqx/LGjRtPP/30o48++vXXXxffZZis Db0Xgj05JDW0uWjRImSU8NhTTz2F8C8ajVLKKf8R/8Kd+RmG6QpYgprfoQ5a pqsXRe7KIAqKcI9n6Z4yTSR9dEqRrv7u/l0oE5QXSEKSFLbh7RoaGm688cbe vXtfeeWV9Dp4WRm58RiwDMMcDJCJDH4gMWiEzEZtX7IlytnHnpLN7g3j9/sp qCM94i2ocZ6chv/Fi0CVDz30EIKx0047bcuWLYjERC6jJItyOxjDMF2BiEta CN7AsjSGcx4iOllJpwgpYKP18uxhVzgnNqKHFM45M0S845IlSyCxSy+99MMP P6Q1zkgsb3vLMEwPQvqHjCR7alG8JA2DZ53hEP2LVF83VwlJTeEVEHdJ7wG6 zigWi1E2CqetWbOmoqJi/Pjxq1evpi3lOIqF2HeGYZj8AnfV1NSce+65HR0d 1CxGp0e9LhdzyODXh9ocsEDf4BH+Pao2XpeCKTjLly+vrKy84oorhB0Tfudp AqYEoe438iECbDlHzBEFshXUYWfrMZZ5ZIOeDb7fW2+9dfDgwS+99BJdcdlp iJ5ikmVcIcMtn89HKvPwSywFAoEA/RZTGOb191OueP01fjeo7dFoFBL76U9/ WlFR0drayhcWlSOyskmV4cgNhULelcgbOjo6ZAMy1+QjATpr2dzc/Pnnn/fp 02fy5MnO85jFx2RcIezONtQxRjjOEB2ZyHP9sVhMXvbLuMDTr/GgoKlDYDBh XzZeWVmJNMTD0Xh0xhWobDhsEYFAYsie6PoO+lqPKPAh0CQRSCuQULS1teEh Pg2vv59yxevv86Cg5gJ81+vWrauqqpo3b57XJWIOGfmLKaOOxsZGj8vkES0t LbQgz0k5z3EwPQw5OIawz2fRGIkelqeCccWxxx6L+5EjR+K+rq4Ov0SDBg06 AtvBEHeNHj26KgcNVHXCCSd4/PWULV5/nwcFtZlQ55nFixfX1tZ+9tlntCaR SMgz0cVJinv37k2N0rIZtiyScc/Bp0SfGMUbWC5S9TNMebPJmkI3hWaYGXnT hbb3ZhajaR073umj4Cp0MJiOGRuFfW4IB6OnJTooIChnB7CNGzeiAixbtkw4 xrjotFxQ2GDuKGGDaWywsqBMDSbs5BGFj0ajNEoGso8VK1bQPEfObdhgpUwJ GcyWGMQlb7rQ5a0IJWKDuaN8DSYHr6CEERVg5syZ+Pb13CWWZDbOIkuZUjOY aX57ywp5K8aPIBvMHWVqMKhJtnTRwrBhw26++WYjB3akmHWADeYO7wymWzcz KwzbXQcC4pK3IpSIDeaOMjWYsCVGmqLrUC655JKJEyc6d0fKpAj9Q9hg7ig1 g+2zicjKWxFKxAZzR5karFNzfSgUuuGGG6qrq2n0aaqNVAdMe6SyQpeHDeYO zwxmpu1bRpianTwe0GDWTPVssBKnTA1GZHPjXSORXLp0KerA9u3bA4GAbs+/ RkGaPEYKChvMHWwwCRvMHWVtMFVVZflbWlpQB2bNmiXsfaG+FkW7Sp0N5g6v DKYkfbhLq2F4LBq1LkZLJBJpFSoTWsbQNatI+NOMrKqnNLMYI2eywdxRvgbT HfOsCftKycsuuwzVoKGhga4Uxj3lj0UYL44N5g7PYjChaJnwzh2bH3n4Txdc 8NP6+nq7NFbIhXvcUJ3iSlI3rRgsy70pSpjyNRjqmCw8mWrNmjUo/Jw5c2Tb F+0UG6xk8c5gMV0PPvjgHwYO6DNs+CBFUYysSCmarolM2iSJoVhpXUuo8bRe jBFT2WDuKF+DSS9RMJa1B9i/+uqrURPWr19PM76JYo2YxwZzh1cGCwZ3mWbE yEbv/9PMY44Z1dLSAoPBWqaBBFOPx1Q1palaRs1kdFPjdrBSpkwNls0N76nZ iNzYShs2bEBNGDt2LMRFg8VlMpki1AQ2mDu8i8HC4fDOSLjpwQdm/uOJx1mT aulCTRlmLou0grGsjkdIIcPxYlxpzgZzR5kajL5l56Cy8mru5557rra29s47 7xT2fN8iNxxiQWGDucMrg2kaKkY4EmmafONvvn/SPwQCAWvAuYxQFTMYSETD KUgsK8xQNAJ9cQxWypS1wUhNpA66nigSiWDhF7/4xfDhw1966aUdO3YIh1UK BxvMHV4ZLJlsam75QojoIw/PPmr0sC1btoRD8YcenNe3su6H/3LWnIce9/si KFZG16PJCBuslClTg1EKGYvFhH1VkZyoS+Tax8aNG4cq0dTUJOwZcApdHjaY O7wymCn82WxHItE89eZJ/+v0H+zevRurPvxg9Z8XPNvY0G497YvsbGhStQz0 FeEssoQpU4N1A3Wl2Lp16ymnnFJXV/fGG2+I3JFCSWXaRthtaH6/X9h7jWc7 OjpETnf0seAePpQXYHYTy7HB3OGVwVLanqzo+Gbnppmz/nDyD/5p29amN5et eHbRUutEpBDtHc0ZLZk11JSKn0gjkUjoaprax1BnUEMM6xXSKT2jC9O+NinX IVZeMH7osMHc0cMMZuRmCcdCS0vLOeecg4qxcOFCCE04gjHsppxVQbGhcA4b pFIp6tXv7GyGjbtvTGODucOzdjCjLZrciS9/9uyZ3zv2xLmP/uWyS3+jZ0Q0 krRnW9B9/tb/uvLXAwfVLn7pBevKjoy+6v0VP/j+SX379n300Ud9gUA0mQjG Imwwz+lhBhN2ZIV9IVkhxLr22msHDBgwefJkZJSIpnw+n5Uy2ERshC0uakPD r61wWAjrYTYZg3XTw58N5g6vDOYLfp3SmuNJ32OPPVJRUfWHO+87auTxzyx6 BVEWSuIPtEFiiWTkxsmTPv74Y6tsprjpd5NVRfn666+HDh36yYYNtrgEG8xz epjBZMsYFkhi4XD49ttvR/U466yzXn/9dWH1BQpSpomqQnaiXHK1TSgUggPx X84Zk6nPBhss73jXmyIYju+IJTqmTp1y/nkX7NrZ9twzrx537CmrVloVIBzx QU64v/6Ga2Ew/OqFfAFIrGVP8549e377298+8eSflUw6Y2TZYJ7TwwxGQRTV AYRVu3btQgKInWptbT3zzDOxa7fccssnn3wCHeFZbEzXhuNDQAB29dVXY4N7 7rmHPhMYjE4K4CFll928LxvMHZ7FYKHtSbU5mQrecceto486bk+TTxhi7qNP Dh8+aseOHRktGU+EgqH22++Y/v7772P7lqY96YQi7K90/Pjx9Tt2IIuExNhg ntPDDCbs+euFvTty+lQKsfBw2rRpqCf9+vVbsGABTUpIbfXUxnXZZZdh30eO HHneeedt2bKFVsJyckB+bsnPO96diwzFld2XXHphZWVFZe9+lb1r16/deP3E KRUVlSjAuEt+oWdTqhq/4XcT3333XevHyxRKLA6vffbZZxMmTEilVXzZ4XiM DeY5Pcxg0BGZhNJJYeeMItf7As8iALvqqqsGDRpUU1Nz9913b968WdjtXfAV 1gwYMAAVaejQoaeeeurChQvpM8FT33mBEhvMHV4ZTNXak2pr1sAXH7fOMGZE wB+jU40GnCQyhql2dDRPmTLlgw9WWgF4PGFq+o76b+bMmSOsFDSUzuqqrrHB PKeHGYy+fXnJpGwWw25CZaSgQCCwZs2aCy64oKqqqm/fvldcccU777yzYcMG eoiKNHDgQNyfeOKJU6dORTDmfOWuYIO5wyuDhWONQkQzejwaDUNcwUBcS4tY xBqsyR9oz2iJWDyA373Jkye/+uoyJIvQVzQYWvzCi1BcKBTa1djY0tHOBisF epjBusKwkVdT0rCuO3bsmD59OlkLcVddXd3gwYOxPGzYsD59+uBzwMNzzjln 5cqV1KrPMVje8cpgWRHOikjWTNnVwrqgm27hcDilxgwzpWai8+fPRWEG9B+y /L2VYX/wv359ef+aWqxBAH/f/X/STKMbg1FloIYI3FP9MR2DbTqX5VQ1bDAX HCEGk8hqgziNJv5uaGhYu3btddddV2FPGw1r4ROorq4+9thj+/Xrh5WVlZVL liwR3V5fyQZzh3cGi+Bm7GcwO3rXFDUSjVmnIxHDt7X6qS+rEotTS751Gsi0 hrJoD/i6Mhh2h/oQ0u+myI0nLE9nU4dDZ8sqG8wdR5rBnLUCtYjazXA/e/Zs VCHEY5RCErDZqFGjEI9h+aabburmZdlg7vDOYDEDNzNtiYL0ZX9dTU071XQs pYb9gT2KYjVBGLrIpEVGUa2xd7IGDQusapl4Sum+P5j8vaMxUmQL7T7FsC8G oWU2mDuOEIPJ+kDppFxPvfexMHHiRLirqqqK2sEQd2EBHwUM9sQTT2zfvl1e i3RA2GDu8MpgRs5glndIX7nBMhGIib03a8Q5XbNG2smmNSsMSySpk6E1+GFW 78ZgqFd00QfVt06/m06VyYdsMHccIQaTphL2LsvfProq3O/3U6B11FFHkbh+ 9rOfzZo1a+PGjdhmzx78HCvdVyc2mDu8M1gCN1NkSDw5fYmMlkilI1o2ntai qVSCNk0pe0dthZrgtEQikVRTmp1IdmUwqmNIQp0DDlDPQ+wpqpNz/iyqKmww dxwhBttbwXLISIzuQ6EQtdBeeumljz76aDAYjEQiqG/UGYz6YwhHD439YYO5 w7v+YEn7pllfk8NgWSNl5mKwZDJmNYvZUxYlItFIIESbWeeDDOvLTqip7lvy 6VIO2kHqfyhxtoOxwQ6HI8RgYt/80bns8/nq6+sXLFhAg4nRjyN9LPg0aHwe ef1RV7DB3OGdwRT7ptED8e13lY4n/YFQs27EhT0smJ6xL4C0A7CMSm0JaXvs VtHNVUWoVDQPoBzbZO7cuZs2bUI8LysSnqLUgM9FHg5HjsHwk4e6QTNIypFd O812RHE+BfyysQK1sZOd9ocN5g5vDSZoEiKHwZJKiAIw3UhkjQwqCwxmtZqF wjR9997QHVta3fLNblryqR1M+opODC1atOjLL7+keki5JP6LDXY4HDkGKyhs MHfQ0Uod7ZLJZFtb27Bhw5DUe10u95DKUBlkHzDw17/+lQxGjRV33303DZCC PUWFoX4XeErO+ECVpwijo/cA2GB5gQ3mDhpcl3IuClooBlMKTKoLXJQ/nUO1 ka9DcT6W8XavvPJKr1696CQRXbmGBXgMxha5Yev69OlD4xKg5lC+UISxhXsA bLC8wAZzh9/v121EbnDdo48+ugjzexYaawZwO1UUto1fe+21MWPGwFE1NTXQ 16hRo4YPH05R2f3339/a2trc3IyH+C/Z56c4c2z1ANhgeYEN5ho5ihFCji+/ /BIHMh3dZU3//v1ra2tpGZqiXjrHHHMM6glJrLq6+qSTTho6dCiWR48eDcVV 2MEnBXJefyflBBssL7DB3AF9Wd2rcukSls8444wJEybcVmCmd8Edh8gtt9xy wNf57W9/e/PNN0+dOvXOO+/ENuPGjYOyoLUKu780JDZo0KC6uroKu1ns6quv XrFiBR13iNzwITi7YTDdwwbLC2wwd1AXO+rnuWPHDiSVOKK7HwakoOiHiJnj gK9G65Edv/zyy8gc6XpbGIzcBSC6DRs2IIvE59C3b186A44qBH1133uHkbDB 8gIbzB04cnG0UgsYtYZV2J0KzAKTr/IbOfZ/WTqxSM++9dZbcBd2jS79AOPH j1+/fj19AmauR6scS9PMTZWVr3L2YNhgeYENdjjQ3ATIJcPh8LHHHkvXcHlC 9hChqxoJp3hFzmDU937ZsmXUIIZ6Mnbs2FWrVgl7Qnlqrsdew+HYgBxuzeZm 1yI5yDDTDWywvMAGc4fp2UwfhYWmvpIP58yZgxry85//fNOmTTSmk6BRemwB co/Ww4ENlhfYYO7oqQYTtsSwU+Sr5ubmpUuXooYgrKLYDNaiVi98As70WbDB DhE2WF5gg7mjpxqM+qaKXL967GZra6t8FlWFZr9y5ptsMHewwfICG8wdPdVg e4cRy13ZTSMD0FCHgMIz2dRPffjZYO5gg+UFNpg7eqrB5Ohz1Ltedo3AbtJ4 FNQZg04BcDvY4cAGywtsMHf0VIPBTvCSHN6EBtKhTiMEnqKrKeU2bDB3sMHy AhvMHT3VYMJu3aLuFgfsm0rdVmkbWsMGcwcbLC+wwdzRgw1G9YH6mAm7bT8W i1H+KK1Fz/K5yMOBDZYXSs5g1qh72WxGFdm9/Srl0DFyUMdoPJlQVHsQZc/o wQY7VDwxmKwMeFPZ04OqSjQaxxqq1ag/iqI4r/ZyXPfkbQ1ig+WHUjNYKhGz 3IWbuXdYUVQ5GvSATpBZ7cl2zdNNkcro3/V6hYINJvEqBqNk1rkG76um9ma+ qCd0pTk9RKmcbXfYMp1J6bqXl3CywfJCqRmMYjBNVbKZdEdHh1wtf0atEfk0 PRJPBiMxjsFKAU8MZuTmu6Fzo5AVjTOJt0YkFo1GsUb6ijwmfwrFvvNdegUb LC+UnMGs6Ctr6GnEYDT+A80ijWXqiWTVvVwCoHlXB9lgEk8MJqffkrO/HfBN KWekmeagr2Qy6eyL6y1ssLxQagZLJWNKIpaIhmGwTufCZDmDkaiqZSmR9Ao2 mMQTg9GpBGv2pVy9haPC4TB+7KgAcq4lkevM5vx3msG8m1kIiwAbLC+UmsEo i8T3qWf2tn1RPUQNpFqHZUXNUAwWjiY8KyYbLIdX7WDIFqluILIKhULOYEwu J21MewB/POzo6IDiUJHkxVMewgbLC6VmsJY9TcLQzay2o36byM06kbVn+BL2 xXo+n4/0pWZ0bgcrBTwxGKoENXwJx7WcgUBATSqGtk+4hZKldY3uGxoaaKVV nbJGPBIV3sEGywulZjAEYHo69fyzTw8ZWDdkyBAaWw989NFH+On861//+sMf /rCiondFReV/XPzL1nafZ8Vkg+Xw8FyksCMxmpt+7dq1qBt9evUeNXxEr169 UGduv/121O3Pvth41k/ORiGravqdfvrpy5Yt21tUU3RyXZFhg+WFUjMY9GVo 6WQ82t6y55577unXr9+gQYNoNGNh/9riZ/TY447/81+eiitq1hRyjD7qb+ns K15Q2GCSkurR+uF774weMRS/cM8//wzK0tzeBkmFErGrrr3mf6bdvLulualx D9yViqsiK2KBb9vB5GnNohWeDZYXSs1gsXAwGgrg+zR1DWnCrFmz8Hs6Y8YM 6s+DH9yLL7540XPPR2LJjG5SGuksMLXuFmGodjaYpKQMpqeSn/993aABtT/6 0Rn19V8b9uzmf3r4oWsmTYypCh62t/n8/hDWxvwxSMzYd2Bw40DDbhcINlhe KDWDUUt+KhlPxKyRQr/55pubb755wIABq1at2rZt29y5cx977LFY0qqKiVRa zWRlm+3u3bvlmalOJ54KUkw2WI6SMpjQVSSHb762pP+A6ltvnapoygtLl0ya MjktjLCS2NPWgQAMNzNtqS3SFjFyyBeQl1MVGjZYXig1g1niMrN6JpVWEpQV Njc3n3zyyWefffaTTz553333YZtgOBpLKMgiM7qBbaLRqOygGIlEijNhNBtM UlIGM1Jx3HQ1Me2WKXUDaxYsXDDjnlkbt25JmXpCTysZTUmms7oItoVhMEPZ W85OBWaDlRGlZrBkLJLVcCBklcTeNopEIrFu3brKysqf/OQnWPb7/b5gOJXW NANJwN6RrIR9dgk5JnW65iyymJSUwYSmCCPta2ns8DWP/eV/9O1ftfSdZagN UU3FfSyVDgai8ZjVCJYJZ0QXoTpnkWVEqRnM7pCfQRaZSsTlhWxbtmwZN25c nz59li9fjqgsbl/WHUumVM16liY+E/bMQfQaPl/Bz1GywSQlZTA9EcZNmBkl FV3wxGMV1b2umTwxqMTj2XQ0k4axAv6IktRgsHBzWI/u03Qvv9PiwAbLC6Vm MMhLZLWgr12YVnkQU0FQM2fO/OSTTy688EKkk0gS4wpCsGwoEk+qmblz5/7z P//z+PHjaS/o+qMilJMNJikpgwldEWpcT0U+WPH2/Q/c8/D8R/qPGPT+mo8V kd0d8CczujDFhr9vOn70iUOrhj7+p/nBYFBOEkctYEWTGBssL5SawQykkNQt 39BpStmlS5e+++67SAzr6+tHjhx57bXXIgaLxhV5XeTdd9992223YQPqF1Sc q0XYYJLSMpihmkp08+frb5x8HSpIU/vu8/7jZ/9y1o///tWmlH1eUsuIB+5/ NOZL7Ny06wdjTm5oaEC1kad+nGOgFRo2WF4oNYNR33v8LFJi+MEHHyxcuBAP qcX+xRdfxPHy9NNPC7sDNtak1ORHH6288cYbDENHdGYp0GpGM7q+5Q3qe0aH LRbIYPj06FSCHJyZdsQ5ULOssbR9WSNsg5EBqE2yaAagS7ZFrisX3Qu7VeHX v/41/ZxBULt37z7ttNPGjh2Ljf1+v7BbVqnkl19++csvvbJnd4v9fVmDWuwd OqBzGEY1J2vf8obJBssHpWYwvDtVs+bm5mnTpk2fPn379u3yWdQ9u09+xQMP PJCL/LOrVn146623KEoCVZgqWzDkL7TByF1ytgtpMCqk8yimAw2lxX7RgHv0 L+Fw2Dl8UPmCHaf9xX7R5atFkBhNW+lcY9q/HfjJO/vss0Xup1DYDRELFizo 06fPuHHjtm3bRiup+WvChAlNTc3avkOcHKj+s8FKl1IzGIU0EBQKhkNjxIgR V155JTkBKjv//POxsra2FvcDBw5cu3YtxLVs2Wu33naLlT+oip6FLtJYWWiD yaE+KQzAEUEGo1H1aFYyHERyZCrcf/HFF8K+Csb5E2+UOWK/GEyeES4o9I74 YNvb26kCv/nmmyeffDIK06tXr+OOO66trY0unJw/f36FTV1d3eDBg++44w78 C9bDZrNmzUrEFTWViceVZCIlv5H93o0NVrqUmsGQbSE9lH26DHteCdVG5M42 UoGRLOCQMUV20aKnfnPNBEomcJ9Op4qQRcocCsXDAkpCBpNtQbRZJBLBEf35 55+PHz/+X//1X7EXNF0sFjqNfly+YMepL7FMqIuWSIpcsye1xjubs+rr64X9 dVD+TlOQ08eOBeSYDz/8MGLgZFIVdn2XRZbJqQM2WOlSagYTNApr7kfczDWY UyHpGME9KmQuTTDefHPZrLvvatrdEAoHIDTD1IPBgmeREpoNVlY/isEonxJ2 P5DZs2cjKqipqXE29csNitpoVQCEbTBqPuqU1hUahFgyVTTs0we4R25OPQNp vbPaiNyAPDt37pw3bx51uVm58uOAn34Wu+nIygYrXUrNYDCA/CUlMzhbVvFT i6hGboAD57XXlw4ePBAH0Yw7b8d/JJKxbgOwvBmMcijTbnuhT6xPnz70FJIU HEdfffUVcmESF54aM2ZMVVWVsA8iGhU5XyXxnMrKSmFXG+mTIiA/QHzUzc3N VEMo3JIBvCwPMkpssHv3bhQS+rr00kvxvQwdOhRfzbPPvPBN/S5dMxARd11+ NljpUmoGk+9uZYj2MiWSYr/0ZN8ZZ4y2tpZsVqMWMDopWWiDoTBm7syjsEMR HAIIyT755JM//vGP8BXWDB48+NRTT+3bty8khoed2ogo+SprsMsytqTIp2j1 BxKjOkDyNOwKTJEVVRgyEq2nstFJIgittbWVNmtpaRe58lIUd6DxD9lgpUup GUzYbUdUM+Xk0VQk/MJS9IXfXJE7h55KJS19tbcgf7SnnjEi0VBxelMQ8rDF gYzj4sYbb6yrqyN9nXTSSf3798cCohQ6MYGSb9u2rb6+fuvWrQ0NDV9//fU3 ZQ6MIQ1W5GY958RDnRZE7geOtoHKsEBj/CJmEznF2eG9daG3msooyW8nAdkv nWSDlS4laLBDwjSzh3TL1/vSqUY6HCgMw4E8bNgwyhn79euHuIvcVV1dTUKD 2bAeC6S1noGzfY+qUHGurM8XpiFMe7QK0V2tZ4OVLmwwdxi5uSyFfVYUeQcS xhUrVkybNu2YY46psPuBDB8+HO4ilQ0ZMqS2tnb58uV/+9vfltgsWrRo8eLF r5Q5CxcuhJlpfg3qIFeErhR5xDKYlFiXsMFKFzaYOwy7GZ9GU8QyJEYN9VDZ nj17ZsyYQZ3Whg4detRRRyFQoTDMtCehQDpcXh9y90DRnS7jKsLYIPlCGqzb L4QNVrqwwdxBA8ZCR3K+CQiKuqvRGTF47Oqrr5YJI3LJkSNHCrtjEj5qSrWK efKucFTkOsLJ5qMy2i/UeuNbiXVV89lgpQsbzB1wFzWCId4giSHKQlJJFwrJ jpSNjY033HDDwIFWfw9EZSIXn1APzFKYd/XwIYO1t7fT5at0iaLXhTpYjKx9 2ysxs4vKzwYrXdhgrkGUJduu4aIBAwbQekRi8mpuOig2bdo0adKk0aNHI8ek mcdFrg2tEL1Mi4mwDYaFSMQaFZz6V+TxQy402axDYo6d2hc2WOnCBnP7viai DtlxCJEVPslYLAatYaX8MOVlLGDJkiXCFhd1wKDLvfNVHg+psK8qcq4po3Yw uyu+lJjRhcTYYKULG8wdcrQcGlEKUkIWSd3VqJ8qVsrrC2A2OQwFtYCZuc66 +SqPh6AK0Y7Q4BvC0WG+9MnqDomxwcqQcjeYV5gejXC4bw6XNYVuCs1x021R m10ciQWhwjG6juD6c9CwwfICG8wdbDAJG8wdbLC8wAZzRykZbN8bG6xMYIPl BTaYO9hgEjaYO9hgeYEN5g7vDNbp3MQBKUjvka5gg7mDDZYX2GDuYINJ2GDu YIPlBTaYO7wymDA13KxG+5y+suLbWy51tJr3acsilIgN5g42WF5gg7mDDSZh g7mDDZYX2GDu8MpgRiaRiPj0jBIMWYORRhNx6MwXjkBVmtXhcq/BhJkRRtq6 FZ6Kkprxtnxgg+UFNpg7PIvBdEUYKkSWSlnTtrb5Ova0dei2vr41mEkGU61b 4WGDuYMNlhfYYO7wymDBtkYzHTUyyaQSi8fj+Ob80UTKEMjfMrbEbINpdgCm WLfCwwZzBxssL7DB3OFdO5iajgdi4Y4XX3z2zDPPXL3+E1irIxJHIXBDRmlN v2EZTBVZxboVHjaYO9hgeYEN5g6vDNbW+LUSarnv7hn9avrU1dU1NLe2hePJ rEgJ65YhgxkZkU0JPWHdCg8bzB1ssLzABnOHZzFYJiZMxdQSf7xv9siRI7ft akDyGNOMlClwS5v2VDt7DRa3boWHDeYONlheYIO5wyuDJYPN0Y5GTYnce++s ESNGfL1jl2KKUErHvfKtwdJWgz8brLRhg+UFNpg7PIvB0hFbTcr06Td/73vf aw2E8PZJQxzIYDHrVnjYYO5gg+UFNpg7vDNYe3DnpyKTuHfGnUPrRu2ob9eE +J/p91TUDq2oHnD/vHlIKlOaEYsqibhuaqK9Zbcw9VgkTNMER+PJSELJZIUu 7OvAjb0TvJpZXRiadTt02GDuYIPlBTaYOzwzWKpVZAPBpvrHH3zolBP/afvX LXFV/G3DtrsfejycMYOpVFhJZQyRSKTDQcWAzvRMc9OucDBAYglHY/iyg5E4 G8xz2GB5gQ3mDq8MFm7apId2CTU2Y+r00SO+17In8sprK55YtFQVoiOuJA0j oWl72jp27mgSpmjY0aKlEslYGAVMJpPWYNf+gAa/pTJsMM9hg+UFNpg7PIvB ki1CD2gR3/w5j55+8r9Mu3nmxN/d1uxXY5po6AiE1ZSi64tfeXXokJF9Kges X/15LORPK/EbJk1E8d58802UeFdTs6oZbDDPYYPlBTaYO7y7qigQbv4qmwj/ Yfptx405cdZdDw4YdPS7H65P6Faf/GAy9uW2rXffe09ra8eCx5866/+coyZj wtTTKeWWW2559dVXab6KnY172GCewwbLC2wwd3hlsMat64QZTgXb/zx33j8c 8/3GXb45jz41+rhTPt9av7O1bbevHWqKKUmkkFu+/OYnZ523eeOnSiyiZ9Qp U6a89dZbyVQaKSS+bzaY57DB8gIbzB2exWDZiEgHEqGOx+Y8csI/nLJp43YU 4o677hswdPgb776ti2xLR0u73xeJROq3N175X9cgANPTSlZLT548edmyZcmU GlfSGYMN5j1ssLzABnOHVwZLx1qSocYbr/tNZUVFv6pBx475/rvL/3bX7Acr KvtWVPX5yXn/V8kkDXsWyzkPzXt/+UdpJa6pSTOrXX/99StXrsRToWiCW/JL ATZYXqiqqqIPUE4hTZOWdjF8ccFRbahsaRta9qo8XUGlkiP7YaGuro4+usJi JqybZRs4VNAta4rWjvas0KPJoKJGYKbVq1cve/1tPKUmY1oKSaVx3XXXbdiw IZXWkETq+csiscvYcbwCDW9IH4gove+r1BC5Aw0HHQ49WsDBmM+qcmSA6pdI JNrb24PBIK1RFCUWK0Zf7m7AgYCvlb5o3NM81yVFS0tLIBBAwXDkUg1EKFKM z60Lg+G3Z09bU0wJQag7dm7ftGlTe1swFIzvadxpjSWWjN9xxx3vvfdeRjf2 ziuZJ4Nhlyn4xIeAjwIfCD4WfDgF2PMeBT43HGi0jEMPByAOQxyM3paqHJG5 D34C8KMQj8dxb3qXBeCbxYGAbzMSidCPFA4N+V2XFBSy4phNpVLC8UkWFPsC 7tTeIaZzBrN/1bVAEN5IrVm34tRTv4/CjBxxdG3NwNWrVghTX/baUqzp16/f +ytWIkja3dKe3ywS9/gQ6IdGNkcw3YAvTB5u8hMrUlNqz6KmpgafIZI1n8+H SkiRz+7du70qD6WNKAMKg3QSB0Vp6qu5uRmRBsqJAkO5uPfWYIaRiUQ74kl/ Ro9qukKbxqKKv71FiUXi0bCw3aKomXA8mcp3fzD5IaAk+FjoCiamG3CIWb86 moZ6jkMPHx0OQxyMXper/EDgunPnTvlQ5mu6R+BrRQAWDofl+YWtW7e+8847 XpWnK1C2aDQqg1Usjxo1CglUob+vrEjjRk0pToNltIQ9QlgyayKTzcQT0fY2 fzSClFO3TkdmVEtTyMdT+HeRx94U2GXsOHafHuItaNnr76fUoY/L2TyCw5Cz SBf06tXrhBNOqNgX/BZUegQVoLa21rmMQnpVnq5AwXA/cuRIKuTgwYPxsAjt dV0ZzLJW0qdmgjgsTKHq2YywRjsUqXg0k0oY+t5MHDEY9BWIxPJlMOwydhy7 T58DPhD54TDdgEOs00GHwxD1vABVpoeDaCcSichYgsJaIWioTw8QdosKDjdq HgdPPfVUdXW1V+XpBjoFKU8kIVYswveliwxu1txq0mCmsGe2VVMpv2kFYIlU OpLRUjBYJp01NdUKw4QRj1tjhVGf/Dy25APsuJE7nU0nJb3+ZsoAYddzWclx AOIwxMGYv5pyBOH3+4V9QqS1tRWfpDwqvSoMfY/pdBrpJBZefvnlEmzhJM+L XCKAh/joOjo6Cv2+XRksmUACiygroZsRe8j8LJyEp7JphQxGvR1w5PjD0Txm kdhlarQUjpxIfjhMV5Dt8dHhoKNuAHQYMj0JigyXLFmCqNvrsjAMwxwabDCG YcoXNhjDMOULG4xhmPKFDcYwTPnCBmMYpnxhgzEMU76wwRiGKV/YYAzDlC9s MIZhyhc2GMMw5QsbjGGY8oUNxjBM+cIGYximfGGDMQxTvrDBGIYpX9hgDMOU L2wwhmHKFzYYwzDlCxuMYZjyhQ3GMEz5wgZjGKZ8YYMxDFO+sMEYhilf2GAM w5QvbDCGYcoXNhjDMOULG4xhmPKFDcYwTPnCBmMYpnxhgzEMU76wwRiGKV/Y YAzDlC9sMIZhyhc2GMMw5QsbjGGY8oUNxjBM+cIGYximfGGDMQxTvrDBGIYp X9hgDMOUL2wwhmHKFzYYwzDlCxuMYZjyhQ3GMEz5wgZjGKZ8YYMxDFO+sMEY hukessTBrCw+B2OwrI1hGKbNQb6m86Gu65lMJp1OYwEP8VK0Bvd45cPfC4Zh CgcbDKbSNA33eBFaSQajlYe3BwzDFJYjzWD7vwX+nSSGBXoRWkMve1g7wDBM gTnCDQbwv3gFVVUp7jr8F2QYpmiwwegfSV+UOVIMRoGZ+9IzDFN42GDOt8vm gLvS6bSiKIfzggzDFBo2mPPtDBuRa+GHxA7nBRmGKTRsMII6UVCHCtcvwjBM 6UNJlsgFLc6nkskkrQmHw7hHDENCgBlSqRRtk0gkDvKNDmgw6qOFNxIO00aj UWFbiDbgc4gMw3QF2clJp/Yi0otUliQYDFJqlslkDuaNOhksEonQekruyKKq quJlhS1JFOMgX5lhmCMT2TQEbwQCASx88cUXdXV1FTZVVVW4lxvDORUODvW9 9o/BSJXQFJ6qr69/9dVXL7roImF7zPmP3JeeYZiuiMfjtICwB+EWZAKBbN68 ecCAAfPmzRO25WRvdiR0y5cv//jjj0UueHNmlN3jNJj8F4rEEID96le/IjHi 7ZyZ6fbt2/O1pwzD9DAovOnUV4q6Ud16662TJ0+mJilhx0W0zYMPPgirUGp5 SJ2sOsVg0BTJM2WDBeirpqaGAjC8fiwWy9+OMgzTY0EeR2EPdERWgZogkOrq 6meeeUbY6R7lmKFQ6KGHHpLWOvhmfLFfDOZs/qKXkskpaVM27HdKKhmGYQiy hHQFFqRSYJj7778fSqGmdWGb5NVXX12xYgU9pGt2hKNN/mDeiwxGaakcL4Ja 7Kn9TdjC/OCDD0hogwYN4nYwhmG6wtnGRQvUtI71u3bt6tWr1zvvvEM5I0xy 0UUXkYhkQ9bB66VTFglN0Rp6BXiyd+/eeIoubGxubl64cGFLS4somf5sDMOU EZTlTZgw4fzzz6c1a9asWbx4MS3LjmFOg9GliPJhJ7k5DUZBV0dHh9NOMovc tGnTk08+KXKxGUHORLJJ/yK7fNA2WElnFrjzGMMwJCLERZ9++umAAQPeeOMN PJw0adLGjRtpvcj1ExO2TOQyQZLp1H7lNBg8Qwqie7Jl//79hwwZ8vbbb197 7bUi1xpG12XTK8jTCk5ZYaXUmnD0wmUY5giHtDB+/HiEYYiLrr/+ejxsamoS OcUhZIKCkGn27duXJEZxFJyzf/N7pyySho/AQiwWo5Y0+t+33noL92vXrqVr i+i9nK9G0qMAT3YFoYVOImUY5sgE6pCi2L59+8CBA88999zly5eTSfAUjEFd Xnv37k3/4uzmesD+rk6DUU8Jam2jZ/1+P9bjH5EtPvjgg/369aNIT54mwFN4 d9zX1tZSGejdsRklkjJCO6QzpAzD9DxkGkjKGjdu3PDhw6GITp1X4RPZ8CU7 QrS1tX2nwaS4KH8MhUK4p5Z8LLS0tFx00UWXX345bYNgDJksXrO6ulrYMRuW sSUpi96LikEvy9ciMQwjHK3iGzZsWLRoEZmBBnzAMgRSU1MjHBml9BJZpZPu OmWRyPiczf47d+5ENkoxGN4Xuero0aNnzZpF21DIR1tiTf/+/WXCiASWwkX6 Rx4Mn2EYkfMPCYEiJWqwcjbgI9cjwyBxg81IcYjBDjh+zgHHpujo6KAXJH1R t3ysWblyJS1DSlQSSlcptcRTeC9qKHOazflGDMMcscgrvmUYJrWANWQqLOwf d8k2+f0b1Z0G278rLL0RWUhaS+aDFHfJHhT0XvQvWKZxgTh5ZBime+AQeSkl NUyRTCh8QhzVadkJPANlLV68GHkfhAMpyVON9JrddI7F21HkJjNWadSqqipq RpOvwOPhMwzTFRSeyeuPZBwlA6R4PC67OsjZgmigQvD222/DYNShi04a0guS 07p6U6Sr8lynHN4Hr0kLw4cPF45zkXwVEsMwB4QSN6R4zg5aMtOkhW46ZcVi sddff722tpZkhS2lbQ718m1nzkiDAtHy/gM2MgzDOKFoBw6ByiiOogBMjrMq Bw0jz2ANtboj3HrvvffohKPP56P1tEH3Ewnhf/FGMFWnS8JxLwey4Ik8GIbp Huoh1mneH2fQ5Vymjq/CFo5sqvr0008pGZRb0jbO3q3dQ67D9jL0ovgtGAyS D7lDBcMw3UNtXDJ3oysTqac9+URe7+Pkscce+/3vf48s8rnnnnv55ZefffbZ v/zlL/Pnz6dnu2kHo9Y2OYERQi9SqJSk7Id/wPdlGIYhEPk426DIXXINJCab tijKwgZyQiK4q3fv3nQ5Uv/+/elU5uTJkyGogzmBiBBLRm54R9l0Bo/JPvl8 IpJhmO+E7CFP/8k1ctQdkWvYd2Z2sBbcVVlZOWjQILhrxIgRuP/qq6/EvmNQ HBDqci8c5zrpvSj6cvZi5TFdGYbJC506aMFXAwcO7Nu3L4IxeKxfv37Tpk3D NnIERS/LyjAMsx9I9+RQ0mPGjKEeXAjGevXqhUhs27ZtchRrPpnIMExJITs5 0Mzgw4cPJ4ONHDkS95MmTRJ2mkmZII/uxTBMSSFb+OV8aiNGjEAKOXToUNhs 165dtJ76WnAvCIZhSgrZwE5NYQMHDhw8eHBNTQ1UNnv2bGFnjoCm2fWyoAzD MAdC9tRSFOX222+nLBIq6+jooGmJ5CWWHIMxDFNqIMSSV1M2NDQcf/zxffv2 nTp1Kj1LoRd1heWWfIZhSgq6AkiO9wWuuOKKESNGQGUyNqMFkhjDMEzp0GnY CkRc69atmzNnjqeFYhiGOShkJ1WpMsRa1AmfYRimXKARDmmZZ6RlGKZckB0q IDFkkel0mq8eYhimLKCu+FJZNCWHt0ViGIY5eKAvmhnN64IwjPf8fxnhmgg= "], {{0, 238}, {406, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{406, 238}, PlotRange->{{0, 406}, {0, 238}}]], "Figure"], Cell["\<\ In this case the drug transference between compartments will be considered as \ a linear kinetic process described by the transfer coefficients k12 and k21. \ However, the elimination process will be non-linear as it happens for \ instance in hepatic metabolism, and the elimination rate of the drug can \ mathematically be expressed by the Michaelis-Menten equation with parameters \ Vm=maximum transformation speed and km=Michaelis-Menten constant. The drug \ administration will be assumed to be an impulsive input (bolus).\ \>", "Text"], Cell[TextData[{ "1.- It is defined a model ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"t", ",", " ", "\[Beta]"}], ")"}], " "}], TraditionalForm]]], "where the unkown parameters are ", Cell[BoxData[ FormBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], TraditionalForm]]], "." }], "Text"], Cell["Vmax = 0.2; km = 0.3", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Vmax", " ", "=", " ", "0.2"}], ";", " ", RowBox[{"km", " ", "=", " ", "0.3"}], ";", " ", RowBox[{"V1", "=", "1"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"eq1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"x1", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["k", "12"]}], " ", RowBox[{"x1", "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["k", "21"], " ", RowBox[{"x2", "[", "t", "]"}]}], "-", FractionBox[ RowBox[{"Vmax", " ", RowBox[{ RowBox[{"x1", "[", "t", "]"}], "/", "V1"}]}], RowBox[{"km", "+", RowBox[{ RowBox[{"x1", "[", "t", "]"}], "/", "V1"}]}]]}]}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"eq2", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"x2", "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{ SubscriptBox["k", "12"], " ", RowBox[{"x1", "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["k", "21"], " ", RowBox[{"x2", "[", "t", "]"}]}]}]}]}], ";"}]], "Input"], Cell["It can be solved as function of k12 and k21:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol", " ", "=", RowBox[{"ParametricNDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"eq1", ",", " ", "eq2", ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], " ", "==", " ", "1"}], ",", RowBox[{ RowBox[{"x2", "[", "0", "]"}], " ", "==", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "x2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["k", "12"], ",", SubscriptBox["k", "21"]}], "}"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}], ",", RowBox[{"x2", "\[Rule]", TagBox[ RowBox[{"ParametricFunction", "[", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", ">"], Editable->False], "]"}], False, Editable->False]}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "We wish find ", StyleBox["t ", FontSlant->"Italic"], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",.., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", ... ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "} ) using ", StyleBox["D", FontSlant->"Italic"], "-optimal design when the analitycal expresion of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "a"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "b"], TraditionalForm]}], ")"}], TraditionalForm]]], " can not be found. [f(t, \[Beta]) =", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "(", RowBox[{"t", ",", " ", FormBox[ SubscriptBox["k", "a"], TraditionalForm], ",", FormBox[ SubscriptBox["k", "b"], TraditionalForm]}], ")"}], TraditionalForm]]], "]" }], "Text"], Cell[TextData[{ "2.-Now it is computed ", Cell[BoxData[ FormBox[ RowBox[{"\[Del]", RowBox[{"(", RowBox[{ RowBox[{"f", "(", "t", ")"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}]}], ")"}]}], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "da"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "db"], TraditionalForm]]], "}," }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a1_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"a", "\[Rule]", "a1"}]}], "/.", "sol"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b1_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"b", "\[Rule]", "b1"}]}], "/.", "sol"}]}]], "Input"], Cell["\<\ 3.-It is defined the number of points n to be used in the optimal design. \ \>", "Text"], Cell[TextData[{ "4.- It is evaluated \[Del](f(t), \[Beta]) at points ", Cell[BoxData[ FormBox["t", TraditionalForm]]], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "}, obtaining ", Cell[BoxData[ FormBox[ RowBox[{"X", " ", "=", " ", RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["X", "1"], TraditionalForm], ",", "...", ",", " ", FormBox[ SubscriptBox["X", "p"], TraditionalForm]}], "}"}], " "}], TraditionalForm]]], "with ", Cell[BoxData[ FormBox[ SubscriptBox["X", "1"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "1"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "1"]], " "}], TraditionalForm]]], "}, ..., ", Cell[BoxData[ FormBox[ SubscriptBox["X", "p"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "p"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "p"]], " "}], TraditionalForm]]], "} " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell["\<\ We test using typical values of ki: k12 = 0.03, k21 = 0.02 for t:{1,3,10}\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.03", ",", " ", "0.02", ",", " ", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.00100010000000000007745748487053560893`3.0206433405564868", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.8676707739325078`"}], ",", "0.013563705901316316`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8445744458136841`"}], ",", "0.09625049629265373`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.24847898598542278`"}], ",", "0.1678424835120682`"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "6.- A typical election for compute the covariance matrix is assumed that \ that the relationship between samples decays exponentially with increasing \ time-distance between them, that is ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "} with ", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "= exp {\[Rho]|", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "j"], " ", "-"}], TraditionalForm]]], Cell[BoxData[ FormBox[ SubscriptBox["t", "j"], TraditionalForm]]], "|}.", StyleBox["For computational purpose we have found more appropriate to use \ the distance ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["d", "i"], TraditionalForm]]], StyleBox[" ", FontVariations->{"CompatibilityType"->0}], "= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "i"], "-", SubscriptBox["t", RowBox[{"i", "-", "1"}]]}], TraditionalForm]]], ", ", StyleBox["instead of ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", "i"], SubscriptBox["d", "i"]}], TraditionalForm]]], " being ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "0"], " ", "=", SubscriptBox["t", "0"], " "}], TraditionalForm]]], ". That is for a two points design", " . We suppose a 3-points design. The first is defined by the user \n\n ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " where " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", "1"}], "}"}]}], "}"}]}], ";"}], ";"}]], "Input"], Cell[TextData[{ "6.- Now it is computed the convariance matrix \[CapitalSigma] = ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm]]], " ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]] }], "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]}]], "Input"], Cell["We take:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "=", "1"}], ";", RowBox[{"\[Sigma]", " ", "=", "1"}], ";"}], " "}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", "\[CapitalSigma]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "d1"}], "-", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "d1"}], "-", "d2"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d2"}]], ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ We will also need give the initial values for the \[Beta] parameters and the \ standard deviation of the measures. ka= 0.03, kb=0.02\ \>", "Text"], Cell["7.- Then we can obtain the information matrix", "Text"], Cell[TextData[{ "M = ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["X", "T"], " ", SuperscriptBox["\[CapitalSigma]", RowBox[{"-", "1"}]], " ", "X", " "}], TraditionalForm]]] }], "Text"], Cell["\<\ m := X . Inverse[\[CapitalSigma]]. Transpose[X];\ \>", "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.03", ",", " ", "0.02", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.03", ",", " ", "0.02", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}], ",", RowBox[{"d2_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol1", "=", RowBox[{ RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0", "<", "d0", "<", "10"}], ",", RowBox[{"0", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", "d2"}], "}"}]}], "]"}], "//", "Timing"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.24322719999999975470927893184125423431`6.648296199598349", ",", RowBox[{"{", RowBox[{"0.1895985419038119`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "3.0208289346166173`"}], ",", RowBox[{"d1", "\[Rule]", "3.3640902966107573`"}], ",", RowBox[{"d2", "\[Rule]", "3.0289979184850044`"}]}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "/.", " ", RowBox[{"sol1", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.0208289346166173`", ",", "6.384919231227375`", ",", "9.413917149712379`"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "2.-Now it is computed ", Cell[BoxData[ FormBox[ RowBox[{"\[Del]", RowBox[{"(", RowBox[{ RowBox[{"f", "(", "t", ")"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}]}], ")"}]}], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "da"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"df", "(", "t", ")"}], "db"], TraditionalForm]]], "}," }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"fa", "[", RowBox[{ RowBox[{"a1_", "?", "NumberQ"}], ",", " ", RowBox[{"b_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"a", "\[Rule]", "a1"}]}], "/.", "sol"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fb", "[", RowBox[{ RowBox[{"a_", "?", "NumberQ"}], ",", " ", RowBox[{"b1_", "?", "NumberQ"}], ",", " ", RowBox[{"t_", "?", "NumberQ"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "[", "t", "]"}], "/.", RowBox[{"b", "\[Rule]", "b1"}]}], "/.", "sol"}]}]], "Input"], Cell["\<\ 3.- Here is defined the number of points n to be used in the optimal design. \ \>", "Text"], Cell[TextData[{ "4.- It is evaluated \[Del](f(t), \[Beta]) at points ", Cell[BoxData[ FormBox["t", TraditionalForm]]], ":{", Cell[BoxData[ FormBox[ SubscriptBox["t", "0"], TraditionalForm]]], ",..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "n"], TraditionalForm]]], "}, obtaining ", Cell[BoxData[ FormBox[ RowBox[{"X", " ", "=", " ", RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["X", "1"], TraditionalForm], ",", "...", ",", " ", FormBox[ SubscriptBox["X", "p"], TraditionalForm]}], "}"}], " "}], TraditionalForm]]], "with ", Cell[BoxData[ FormBox[ SubscriptBox["X", "1"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "1"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "1"]], " "}], TraditionalForm]]], "}, ..., ", Cell[BoxData[ FormBox[ SubscriptBox["X", "p"], TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "0"], ")"}], SubscriptBox["d\[Beta]", "p"]], ",", " ", "...", ",", FractionBox[ RowBox[{"df", "(", SubscriptBox["t", "n"], ")"}], SubscriptBox["d\[Beta]", "p"]], " "}], TraditionalForm]]], "} " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"X1", "[", RowBox[{"a_", ",", "b_", ",", " ", "ti_"}], "]"}], ":=", RowBox[{"{", " ", RowBox[{ RowBox[{"fa", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}], ",", " ", RowBox[{"fb", "[", RowBox[{"a", ",", "b", ",", " ", "ti"}], "]"}]}], "}"}]}]], "Input"], Cell["We test using typical values of ki: ka = 0.03, kb = 0.02", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.03", ",", " ", "0.02", ",", " ", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.00100010000000000007745748487053560893`3.0206433405564868", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.8676707739325078`"}], ",", "0.013563705901316316`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8445744458136841`"}], ",", "0.09625049629265373`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.24847898598542278`"}], ",", "0.1678424835120682`"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "6.- A typical election for compute the covariance matrix is assumed that \ that the relationship between samples decays exponentially with increasing \ time-distance between them, that is ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " = {", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "} with ", Cell[BoxData[ FormBox[ SubscriptBox["l", "ij"], TraditionalForm]]], "= exp {\[Rho]|", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "j"], " ", "-"}], TraditionalForm]]], Cell[BoxData[ FormBox[ SubscriptBox["t", "j"], TraditionalForm]]], "|}.", StyleBox["For computational purpose we have found more appropriate to use \ the distance ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["d", "i"], TraditionalForm]]], StyleBox[" ", FontVariations->{"CompatibilityType"->0}], "= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "i"], "-", SubscriptBox["t", RowBox[{"i", "-", "1"}]]}], TraditionalForm]]], ", ", StyleBox["instead of ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox[ SubscriptBox["t", "i"], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", "i"], SubscriptBox["d", "i"]}], TraditionalForm]]], " being ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["d", "0"], " ", "=", SubscriptBox["t", "0"], " "}], TraditionalForm]]], ". That is for a two points design", " . We suppose a 3-points design. The first is defined by the user \n\n ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]], " where " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", RowBox[{"(", RowBox[{"d1", "+", "d2"}], ")"}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "d2"}]], ",", "1"}], "}"}]}], "}"}]}], ";"}], ";"}]], "Input"], Cell[TextData[{ "6.- Now it is computed the convariance matrix \[CapitalSigma] = ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm]]], " ", Cell[BoxData[ FormBox["\[CapitalGamma]", TraditionalForm]]] }], "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalSigma]", " ", "=", " ", RowBox[{ FormBox[ SuperscriptBox["\[Sigma]", "2"], TraditionalForm], "*", "\[CapitalGamma]"}]}], ";"}]}]], "Input"], Cell["We take:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "=", "1"}], ";", RowBox[{"\[Sigma]", " ", "=", "1"}], ";"}], " "}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", "\[CapitalSigma]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d1"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "d1"}], "-", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d1"}]], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "d1"}], "-", "d2"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "d2"}]], ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ We will also need give the initial values for the \[Beta] parameters and the \ standard deviation of the measures. ka= 0.03, kb=0.02\ \>", "Text"], Cell["7.- Then we can obtain the information matrix", "Text"], Cell[TextData[{ "M = ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["X", "T"], " ", SuperscriptBox["\[CapitalSigma]", RowBox[{"-", "1"}]], " ", "X", " "}], TraditionalForm]]] }], "Text"], Cell["\<\ m := X . Inverse[\[CapitalSigma]]. Transpose[X];\ \>", "Text"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"m1", "[", "ti_", "]"}], " ", ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.03", ",", " ", "0.02", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}], " ", "]"}], ".", " ", RowBox[{"Inverse", "[", "\[CapitalSigma]", "]"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"X1", "[", RowBox[{"0.03", ",", " ", "0.02", ",", " ", "#"}], "]"}], "&"}], ",", "ti"}], "]"}]}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol1", "=", RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0", "<", "d0", "<", "10"}], ",", RowBox[{"0", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", "d2"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.24322719999999975470927893184125423431`6.648296199598349", ",", RowBox[{"{", RowBox[{"0.1895985419038119`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "3.0208289346166173`"}], ",", RowBox[{"d1", "\[Rule]", "3.3640902966107573`"}], ",", RowBox[{"d2", "\[Rule]", "3.0289979184850044`"}]}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["The observation should be taken (i): ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "/.", " ", RowBox[{"sol1", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.0208289346166173`", ",", "6.384919231227375`", ",", "9.413917149712379`"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Additional information", "Subsubsubsection", CellOpen->False], Cell["\<\ Aqui mostramos como converge al maximo en cada iteraci\[OAcute]n\ \>", "Text", CellOpen->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0.02", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", "1.2"}], "}"}]}], "}"}], ",", RowBox[{"StepMonitor", "\[RuleDelayed]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "d1", ",", " ", "\"\\"", ",", "d2"}], "}"}], "]"}]}]}], "]"}]], "Input", CellOpen->False, CellID->44089715], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "3.`", ",", "\<\"d2:\"\>", ",", "1.2`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.6784458875299153`", ",", "\<\"d2:\"\>", ",", "2.875948997197008`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.5486022639888009`", ",", "\<\"d2:\"\>", ",", "3.4690363384303806`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.5287038529179264`", ",", "\<\"d2:\"\>", ",", "4.074001590522382`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.5261127472023506`", ",", "\<\"d2:\"\>", ",", "4.414417244141256`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.5250323369226295`", ",", "\<\"d2:\"\>", ",", "4.460036704326422`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.5250056921615103`", ",", "\<\"d2:\"\>", ",", "4.461993685694165`"}], "}"}]], "Print", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"d1:\"\>", ",", "1.525005408592348`", ",", "\<\"d2:\"\>", ",", "4.462015753776996`"}], "}"}]], "Print", CellOpen->False] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"2541.0464777968327`", ",", RowBox[{"{", RowBox[{ RowBox[{"d1", "\[Rule]", "1.5250054057360436`"}], ",", RowBox[{"d2", "\[Rule]", "4.462015974671323`"}]}], "}"}]}], "}"}]], "Output", CellOpen->False] }, Open ]], Cell["Veamos el proceso anterior graficamente", "Text", CellOpen->False], Cell[BoxData[ RowBox[{ RowBox[{"pts", " ", "=", " ", RowBox[{ RowBox[{"Reap", "[", RowBox[{"FindMaximum", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"0.02", "<", "d1", "<", "10"}], ",", " ", RowBox[{"0.02", "<", "d2", "<", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", "1.2"}], "}"}]}], "}"}], ",", RowBox[{"StepMonitor", "\[RuleDelayed]", RowBox[{"Sow", "[", RowBox[{"{", RowBox[{"d1", ",", "d2"}], "}"}], "]"}]}]}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input", CellOpen->False, CellID->377163836], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pts", " ", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "1.2"}], "}"}], "}"}], ",", "pts"}], "]"}]}]], "Input", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "1.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6784458875299153`", ",", "2.875948997197008`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5486022639888009`", ",", "3.4690363384303806`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5287038529179264`", ",", "4.074001590522382`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5261127472023506`", ",", "4.414417244141256`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5250323369226295`", ",", "4.460036704326422`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5250056921615103`", ",", "4.461993685694165`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.525005408592348`", ",", "4.462015753776996`"}], "}"}]}], "}"}]], "Output", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], "//", "Minus"}], ",", RowBox[{"{", RowBox[{"d1", ",", "0.02", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", " ", "0.02", ",", "10"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", "pts", "]"}], ",", RowBox[{"Point", "[", "pts", "]"}]}], "}"}]}]}], "]"}]], "Input", CellOpen->False], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJyEnQV0VcfX9uNEkAQSIAkhhhd37RmkuEPR4u5e3N3d3d3d3d0KxSUJxElC CJ7vhvf85v7ZXayP1bVun+yZOSN7to0Ftu1Vv4OdjY1NVHobm5TfoZ47qrwc Ms/g1+nchjuz+r3ReJ/bpFrrA5M03tPsWebTlWwVeMrOj5b/nDRu65Dh2/Jt qTVevm1BicoFPTR2ebC2dzlXT40H2O7eXDQko8Yvfzvx6rcT3hrXanTVN3hR Fo0Pj3rY0Kevv8Zz78dfcM4RqPHlroPbOcwN0tjmx79s6lftlL+0F0x7wbQX THvBtBdMe8G0F0x7wbQXTHvBtBdMe8G091fjKNspf2kvmPaCaS+Y9oJpL5j2 gmkvmPaCaS+Y9oJpL5j2/opP5TjKdspf2gumvWDaC6a9YNoLpr1g2gumvWDa C6a9YNr7q3ko+VSOo2yn/KW9YNoLpr1g2gumvWDaC6a9YNoLpr1g2vsrOSPn oeRTOY6ynfKX9oJpL5j2gmkvmPaCaS+Y9oJpL5j2/kqOSjkj56HkUzmOsp3y l/aCaS+Y9oJpL5j2gmkvmPaCae+v9ISUo1LOyHko+VSOo2yn/KW9YNoLpr1g 2gumvWDaC6a9v9KDUk9IOSrljJyHkk/lOMp2yl/aC6a9YNoLpr1g2gumvb/S 81IPSj0h5aiUM3IeSj6V4yjbKX9pL5j2gmkvmPaCae+v7Bip56UelHpCylEp Z+Q8lHwqx1G2U/7SXjDtBdNeMO39lZ0m7Rip56UelHpCylEpZ+Q8lHwqx1G2 U/7SXjDtBdPeX9mh0k6TdozU81IPSj0h5aiUM3IeSj6V4yjbKX9pL5j2/srO lnaotNOkHSP1vNSDUk9IOSrljJyHkk/lOMp2yl/a+ys/QtrZ0g6Vdpq0Y6Se l3pQ6gkpR6WckfNQ8qkcR9lO+bulaMiTTpkeGvw+OdDj8YEecRpnHR9Z71BW B53uw7+Olh5x0fhG/oDi8yek0/hueb975Zen19jonidNqYFeGm9NaX69zBpn Ol1pZM7ffDUem/I5x6y/rJf8JT+Y/LId01qvOTn3/ledD/yrdkq/UdZH+luy nvwdTHr5XfhH1kPa+dDhJzkefIfxkHakHC/SM17SDpPjSXrGU9oxcrxJD//K 8YcOP0t+oL8YT3D7/ccKjakWrNNLPiadHH/mreQDfqHT//yd/gdDpxz6H0z/ guk/MP0Dpj/AtB9M+8H/Pz7i7/z+6u+0Q/7SHjDtAdMeMO0B0x4w4yvbBz2l d6f0ClByXKDLcaE9vxoH2Q76T35PjjPp+d6vxpX6y/LBlA/+ke1JoPrVPOV7 snww5YMpH0z5v5rXkg8pH0z5YMoHU/6v5IDka8oHUz6Y8sGUL+WGnBdgygdT PpjywZQv5Y6cZ2D5S/lgygdT/q/0kJzHslz5S/lgypd6Tc4bWS9ZDlj+Uj6Y 8vk75ct2ynrJcsDyF3mFHEePgPk+mO9LOnIfOpj6kZ76gaGTnvrK9NCpN3TS Q+fv8lfWj3YiB5DjzFsw8wzMvADDx1Ifyrgv/YS8/JVclXJPyiXqA6Y+YOoD pn/B9KeMO/9KT0k5T/3A1A9M/cDUD0z9wNRP+qFSv0r9gh3A36Wfzt8pT+aX fjztIj0Y+x1MetpNejDpfzVu5AeTH0z+X40z+cHkB5P/V3xBfjD5weT/FR+R H0x+MPl/xXfkB5MfTH7Jp8xz8oPJDyY/mPzIDfKDyQ8mv5SP0t9knlMemPLA lCflEJjy+A72ubTHpX3MfKGfpFxhPjAOYNJLO5r5QHow6cGkx49hPoHJDyY/ mPz4NeQHkx9MfjD58XPIDyY/mPxg6QeRH0x+MPl/NS7kl/NC8rkcRynn5DyS 8wJMfviK/HLeyXkEJj9xCPKDyQ8mPzh/r5QcLw1+96Tw70vf//y96sshFg34 /j+/0H/Mz53J+u/grJZpt+yoaR/9D93S+Ji9Ux0V3wOTHkz6vCnfMdx0ejDp waS3a9ugy6XB7hr3TKlmgwwaP0rpt3wZNa6c8pvKW2O+A+Y7On3B288vXwnQ eNj5xsPOlwhS8V6t4rxaXTb4pX9+9ffnmVMGKFr/nfLA9AP4lCX11g7OenwW Lbb8806r6bQbDJ30JZMsii/MQ9PpFzB00q8LfPP70VOemk6/gaGT3r3m+4F7 lmTSeNjflona30fjt6vSRqyq7fcf/qIf5C/jAKY8+onyJD+miPtlXz7pcsDQ sefAMv4k08n+l3zDd7T9TntjLZpht51OTzr+Tv3B1JNxpP18l/SyHowz+kfm h056xpnvSQxfkB868wBMefAB+SWGbygPOuWBKQ8+Ij+Y/GA9/0y+ID2Y9L/i G9KDSS/5akvodI+angE6PZj0YNK/SPkZHajTg0kPJn1G96XVK8YE6fRgxpPx AMt5KOOp/B1+gw6fQf9hZ6wL1pj85JN8C9b9IOKkun8FP4NJxy92NRg7GYzd C8aO1fEok3/kPGN+8H0w6SVdzh/4Gwx/guE/MPwFhn+0PWjyh5Yvwh6V6z3w hxwn6PCH1lcmXf5SvvSvGGf6Ef6gX/guehVM/5OefoCOPAQjD0lPP+l2mfMB jH2i+dXsR8nn2D1Sb0LHDoKO/QGdfpB6Fj6Xeol+lPOKv4OlXU3/QZd2M3Ia upTT0k5GDpBeymFpFyMnSP8rOSvlqNRnUi9ruWi2X9otUj6AfxVnh6/lOMC3 pINOefQ3dPobuvRr6G9ZP/iD+iNPpB4nHfn5pV5yXtEOWS8wfoiMWyEftN0j 7Evmv4xTUV/o5Jf6Bfkg2838pRwd5xX2HeVC1/aaWS7zjO/9Su8ij2V/Ui/5 +1M89n/+LseH8fj/8Q2Yduv+MeXSr+qJ/a/tDTE+Mr5Av/y0rm3B1Fuui8t5 RP9SnrRr+YUu7V3aD0bOa30l9DPzDv0MRj+D0c9g+AFM3Eavw5p6kO/hB4Op D/Ujv16nNfNDJ79sD3L0p/2rlv6GD+U46Hi02T9SX8q46E/rRRZ+Q67IdTwZ RyU9clyu88k4K+mR43IdUMZhSQ8/k17GZX9ax7Ckh99JL+NQP61z/I9fL9f9 SP/TOkhKfcz5QnrkG+l/Wt+wpGc+STnMvJD6X67XSjtX2j2yPLlvXcYx5HyT 69pSb0l+RN6jX6HLfQNy3ULaBWD4Te4jkOsc0k4Aw3+0Dzp8RH70E5j6k1/u S5DrKtLuAMPPfB863yc/3wfzffLLfQ9yHYfvSb3F/OD70MnHL98H833y/2pf hbSbpF3FfNP8btLlOqyMY0q/Vu7rkfs6dLzB1LtgGZeDLtd9ZdyU75P/J/vJ Mt/5Pljbyabc1v1vygO+D12uM/N9sO5/Mz/l4S9RHph5j32EvPlpvdGSXtpH P61fpshHU0/8tJ72P/aTXB9EftBvUj9LewZ5JdflSIe8IL2WH2a/IX/Qh2Dy I3+knQwd+QIdTL/rfVHm98hPe5gP2t4x+VPvLzH5Rac3x0/7z6a8Zzxl/elP 6if9Da1HiGOjtyZ/r93o6lPD8pE3v3+x6iUZt9frtyLOS3ulfa7j1SZ/0T+M I/0HHT8Euo6nmXT8POg6PmbS8eugI6+gM0+g63kq9gnJuKNcV4VOu6Gz3gCd +XXneUrk4o7uX9ITzyA984v+lXLgJ37s9V/8Kzkj5Qr8IufhT3YJ8/l/zjPJ +NFP9qsl/a/2CZIeTHq5j5DxJz2Y9HIfIfwg4wCkl/sI4Q8ZByC93EcIv5D+ JzlrSS/3FcI/pP9p3daSXu4zhJ9I/9O6riU9mPQ/rfNa6GDyw0/QJUZew3/g ESnzYF+ikSmF/2bYqCUp83JxiJEy3IUqOGk6GPkB/4Gxt0hfN9WAuqnuu/8n jkl67CPSW7TN5O87Mvwnzkl67BkZ94SOfJVxULluB12uQzDvqE93i7R7nNH/ P/vs9PfMeSn33el1HVNey314P8lfi36Ejr6V81T6tchhGUeW6yZSL8o4ryxf 6lm5vgjfQNfrLSaW64sy3i3tddoPhh9JTzuln8A4yHVWvU+M8TTrq+05UX/k FfNM1h/+o9/A0OE/MPwGhr9+ZefIdsAfYMkPcr+DHD+5v0H6W8hbGWeVcUDo yE/oYOjISzDyECz3C0j7mn6nfDB0uX6PPoWOfEufoucfxRvy90xirr9mVviu 8eGblh6+76Dnd4DFfBj1Mb3Gt2b1W9midVZl6TULp0VofQ09wjJc46d6aGyp dJRdBWv+RikTvoOnikhp54yPGkNfYkneNiGLxsVTBMhmP42dcnwu0/S6v84P hi7l5YYU+8fmnQHGXgLLdWRp79OPshzGS/rzMu5EOvTF2NKbxpbubK+/J+O7 Wg6yri3it1I+Sv4H/2Crzl90fRln9BcYfUV/8kt94QfkAfqLeYW8gi6xjA8g H6BLLP155Ad0iaX/jXyBLrH0l5E/0GU8C32l7WFTX0FnPHR8SYyP3Dch5bvU 93LfhIy/SH0v903IeInU/3JfhYxvSHtA7ruQ8Yj/7FMQ80nGD8DwH/Nd758w 7fCf9gP1Ena5BTMfU6bTpgbW/pf+NPMBOpjv/5iuA624aT7Lh+9YsSyP+Snj 3KTPbhFH+Xam0vIFewl5yXwDM79oD3TK03LRnI/oK/KDqY/0H6W/KP1D6Q9K /0/6e/L8oLSn5DqWjgvhL4p+o75g6guW58vRF9CpP1iug/1qH6++d8PUH3Jf L/xHe6HL/W7YY9DBMu5Pf/BLu6FjV+n9bGb/8nfk9sUUhvngpsvnu+QjvexX /q73v5nlI88pH39ErttQvt4PZOZHvpMf/0Su85Bf7wcy8yPvyW/h+jOJkzL+ Z12I/KSX60TQ0Qdyn6vcJyj3vcp9g3LdSZdv+jPYW5Lfpd8v9ynKfNgH6Gvm PfMEul4/NPmF9MgPKQcYZzDfBSNvsEew/8DIHcrHLpD2APWh3s0tw5cri5Uf sYOkn8L3Sc/3wXLfA+2X5/bgR9Kjbym/SEpY4FZaXT5Y7pugvftSGDiru24v mPToZ8rHvqV8sNxnQX3Jz/iRHjrpyY9+53sp0umzr5f+Hlju0wCj78nfMs6r VVxiJp0fTHrmDxj9T/4rlmq/vemj84P1/nNzftEe8mv+M+0DysO+l3FT+gc6 5UHX50ZNe4HyUtyPyPLW+cl8pb4TUxyWHVZ/iXgi+Y9btMcr32CdHsz3dfzx f9cr/yd+IPUbmPJmZ6s2J9tkV42R52D4DYw8BuOPgZG34Gkelv+5Y+UP5Cn4 o8U86bUts8bzUhiwrbfG7Tta/k3w1dgmRb2Wte5Px/6FHrTI0sIO1v0jzFPs E8ZR2kX0N/4j6WR7v9W2UNql0fmYr9DxN8kvsewf7Aft/6ZU27DOh/wWdunq beVvi/HxYO0p6/447Ab9fVNOgGkPcgu+gE4//HReY52V37A/4Tfajb6kf9GX fF/HB0z5zHhQD8YDfgPDj4wHdPIz3qRnvME/zCVX6/gzP7BX6T8w84nvQacd P9ndlvZqv8xsr+QX4o/kp1zqQ//zffofLPUP9hv6C33C95mf0JHn0Jmf0JHf 0Jmf0JHPjDfyl35gfpIeearXD015S3rmq7YHxL5wuc9V2j/IUy2/zfGnfMYf vpT+CP3LOICh09+Mj9TXzHfSo69Jz/yHjrwAMz6UB538Un8jL8iPPiY9+hg6 8gTMeFMedPhX8gffA8vvSX2PvOJ76HvSo++hI+/B8BvlQad+kj/5Hlh+T9oT yE++hz1BevgZOvwMRh9RHnTqx/d03Mr8Hlh+T9oryHO+h72i7x805w905g8Y fUh50JkPlK/X/4R9Q3yD8rBn9PlVER9AnoGJt1IedLluqeWe6c+SH3tIj4dp D0GPSplQH614ZQvVPc9ya3nQ5b47+p/vgeX3iKdSPvYX5UEnP/EcMOnpb/QF GPlOevQZ5Uv5jXwBI1+w50iPH0R66Mxn6Mxn6Mwn6Mwn6PAzdPiZ+sK/6Dn4 VetDk7+gy/i49ltMOwUs4wroP/xU6GDsBkknrgAmXgMmXgMmPgMmPgMmPiP3 nfBd4qnQ4RewvL+L+cT4Ml90vNjkf9KDSQ+/a3tR+NnMC31fmvg7/Ec+qY/A +py9oKNPyC/1i5TnUn4ir5gf8A905AnlS/nC/Cc/9hrzjH6jf7D/mN/SHpX+ NPoYjD7/MT3++PR/9kFN63lLaV8Tr5X7nqgvv7/6+09x/ZT9pyJ+wXiSHwxd 7v+W5wSRe9Rb+kHaTjHHX9shZnq97md+F/mDvEBe6biMKX+gY09AR/5AR5/r dpnyBzr6VPeXyV9g+Av5A/8wf+Af+pX5SvlSnsM/ej1FnAPW+yDN8uk/8oP5 lfajtO+kPSXtF2kvSP0t9Sv66qfzEJb5wXhKP03vczH7j++B+R7jI9c39L2U ZnrKlfv+oMv1WS1XzPoiZylHrgfK/WlSH0r9J/Ud/Uu75T0DrMfwHRlfAdM+ uX+M+CzthP/0+rXwl6X8036bSAe/0v+kp39ID5bjLscBvtb3KZjfAUNHn1J/ fX+CmR5MevQt6fV9CWZ6MOn1fQgmHQwd/QzW92KYGP2s48PcT2CWp+/NMNPr +wdMOhj7g3gDGP0Axp8C47+A8RfA2Odg9D8Y/Q7Gn9X2mClXkMvoG9LDl7Sf 9Q0w/E1++BzMeIMZT/gLDJ3xAzNeYMZLx9PM8QIzHmB5P4SUn8QttTzkPilz /PT9ZybW95WZWN9HY/K9vk/LpDNfKZ/ywJQHpjww6z1g1nfAfE/7l+b3GF/s GX1/jVkvxpX5TnrpbzCe2COMJ5jxAzN+YMYPzPhRvsSMJ+lZf4QuMfEr5CMY /sU+BWOfgbE3wdibYOwBMPYAGPn6q3sGsM9Jj7yW+9DB2Oekx16Ajn0BJl4F Rn/8ZL+us8YfGX/6Fz4AMx/A8Cv5idfq+Ls5r8DwM/MbDB3+BsPfYPib/PC3 jleb81PH7019Cv/Dr2D4FQy/guFXMPwKhj/1/i+TP/V+BlPegJE33int6PbB 2GUp7UkJT41bW8z/wyut8pn5B8ZepL8ZD+3viP0c9Bf5sVfA2M/kZzyhY8+A sadJz/hBx94BY1+TnvGFjj0Ext4mPeMPHfsQLP052V7sRzDxAb3ea/IPdOxZ MPEb7V+a8lPb/9xvJeLw2KsyTo8c/dU5S/gDjDwDy3i83C+hzyWa35X7KOT+ B72v2UyP/0l6qd+I/0KX+o74K3S5X0HuT5D7ERgP2ivj8fS/PMeq1wOFHSr/ Lu0ZuR4JZj46WcyvAQUd9fjL9SuJ6VfSg+EL+hc68TXySyzTg6kf8QHoxOPI LzHjR3ow9ZPr8TI98TzKk5jxJ73ExPtILzHxcdJLTDyQ9BITvya9XA+S8XAZ n5br7WDoMr6MPgajX6kPmO+DWfdBLuj2iPVF+Fa3T+hrMOWQHvkl1zvB0OX3 wNCpL+UzP+qkdNDDJCPjj+N5Mfp7zAfKA9N+uZ73n/ER32c+UB4Yulz/AkOH n6GDocv1LLl/S6aH30kPhi7Xn+R+Lpke/ic9GLpcLwJTnkwPf+vxNDF0ub4D hs58gA7W/p5Yn5H2K/MDOli3R6y3yHizTC/XS+T6iMRyvQJ8K+U83Vl7Vd3S Xc1OWOOHjC/0H/7AYWv8UK5f0N/MB7k+Ie176S/S3qMpen/PZy2/c261NHza NyPF/E/z6bsBRv/IfSTUR57Phc78vJJiPxSx+T+7YZWtjiuDl1SveGN4I+u5 HH2fsFk+85/+mZ7i/3QN1P69jKfJ/QTy/Q308q2UjnEKM8pa3Mney63vfxHv QL/9sE/srO9JIe8oH39Dxo3lPj95jge/j3bq+69NTHpth5h/R25Lu4v80Mun 2D0H3xmbUs7hDbTu35P77eT+OLl/TdrD2H/UR8bn5H4DuS+Z/klxK8YeiTTg B33+RugRxgN+TXFXOm20jg94e4pdNztBl6fPM5rlQYffoFNf6H1THGBX6/4U eR6EcaP+z1IYLMRV04mfoZdSvvJyiVXfMR/BxLOoN/MPzHcYb3kfibxvRN4n Is8Dy3O1tJ/v0H7o8BP1lecl8OfAjBftZ3zIL89P4N+BiS+S/8cx8NHWeKM8 T4G/ByYeSf7RKefEm1vjk/J8Bf4fmPgl+aNTxFkxazxTnrfAH9TnAc14J/mb prB/Oqv/J89f4B/S/+VvDP/bNtB63gx/EUz8FEx8h/wD2zlk+Dbdqg/leQ38 S9JvT0nw2Voe/iaY+CyY+BD5f8iLvVY68QLoyGvoUv6mRGfiwxy1/GD+gPX9 xiaGv8D6/mITwz9gfT+xieEPsIyn8Hdtfwj/jPFCfsjzccg72ifPIxP/QX7J +Dr65af7Nv5Hr/5q3Q05J+PcyFHmOX4F9dTr/mZ+6gsmjiDjBpQn9/nJ9Xd5 bg+6tv/Meuj9S8I/pv36XgdRPvWnHow/WJ4HlXS5X1Ge75T7f4g/0x4w9aP+ A1P4Klv8D3GVNNhBvU6J031/r+c3/Sn7CSz3NVC/X+0rob76XCb3xZjfIQ7K +GLfYf+AmY/Yb/zq9+nM/oe/aR8Ye5HvEs8G6/dZTEx8G6zfV6HeZrwbLO/T wh+BX5Hf+l4QMz6u1ztMrN+zNf0P0iO/wcTT+b6027APkHf0J5j+BNM/lK/f GWR92Izf0u/EZ8HEZ/V7D2b9GRfqr98nMv0j6PAzdPwB6Mh75ATzL8UM9PL/ qu0T0lNvfZ4Qu93Uf9jtzIcfbJraXtunaVMY+ZTV3sA+Jf+oFP39WzqdP8zC Lg/7W+/Lwn4l/Q97uFd6nf7HNSaeVnsD+5b0P/yzal46fY0U/yzGak9g/5Le IWUeBGfW6Q+mdOQlq/1APJj0vVPkxjcfzS9SnsFPlIc9CR19CN0zxR6ql1pj 7Et9b5k536Dj30FH30DHvwFjr+lzUeb8hP6jPjms52GQp9B/6OsnVoz9pt+P M+cz9B/jbWM9H4N+hv5DXhywYuw5fZ+AOZ+hr0xhqEfW94qQB9BLpzhss6wY +06fFxDrJ8hN9J2+p9ccX/xY/BP6k+9jH/M9/H/o2L/Q8f+hY99C/1HeXOu9 sdiv0LtY3N0MPaznh7BPod9PUYdVrOd/0F/Qz6aU98DqL8N/ZVP67cVbzX9g +A/5lmIehOZz1fxPevpT+uN8H/2R5Z5FAWy2Yuqj1zfN+AD5GRfSp2jvmAZW jD9DevwZ6Mgf5Jnc7yPtZcqn//g+8gw6mO+TH3+c/vkh31Ol0fVD/tG/yD8w 8o/0zGfo8B+Y+azfszflA3TkA/UhP/jHeLawxj+Qt+RH3oKRt6RHPkBHPoCR D/q8kilvoCNvqA/5f+q/Etb3r5Hv5Ee+g5HvpEfeQEfegJE3+l5jU35BR35R H/KDf/Czh3U/PPqE/OgTMPqE9Mgv6MgvMPJL+wumPISOPKQ+5Mcewh+GPinl WrVIa3noM8pDn4GDLeKq2hofzd8bUn67Wt9vxn4ivVuppH8d9/nq75Ge+cT8 Y/68Txmg81aM/cz3nqTo3QdWnD6l3ErW+ZonxbwqbPWPf8RTm1j91xRzplQ6 q7+aogaaTQjQ8UbmJ5j5gN2j34Ex5YV+Hwv7iHeUTazfUTaxvA8Lu4t4FHoF jB2m7XLTnqQ/sR9+mr/5rPEp5j90Of99U/j1pTW+w3yELufjD/l/xWpfMT+g y/nxQ36ts8Zv4Ffokl/rW8zdmyOs8Rr4CbrkpxMpHdrEV/tbxNG0X27GS8DE M37olXAbxfiDiW/Az+hz+Bl9rvcZm/ocOvocOvocOvocOvocOvpc329r6nPo 6HP4l/kCxl8A/+j/soEKvw0Mf9M+MO0hDqLfZTf5X/rxYOIb9KO8pw/5I39l /IQ4BnYX8h4s96sQnyZOIc9RgPGD+SW9PGcBJh32EO1H/1JvMO1Gn1I+8VvK B1M++fGT+SUOBqZe5Kc/0Lf0P/qS+srzcGDqS3rqS3yZ+oKpL/mpF/479QVT X/JTvrw/Akz56GfKx/+nfDDlk1/vVxP3T4ApH/1K+ehDygdTPvnlu7PyXTb5 rhXjg//N+KCvGB95vgvM+KCv5D2v8l5Z7FziUXq/Gueg2F9gxgHQK8gFGffD P0AuyHtBoUt/Xfrj0t/G/sH/kvcPgNH/6HvSI89JDyY9+p9+kPcXgGk/5RN/ k/cTgKn/D347H/iffU/0v8TyHhkwcQD6Vd+XI/pZ71MyxwU+Bsu4L/YH4419 pe9BE/Fs7BH6l3g+7QcTZ0Qf6/v/TIy9gn4mPfEpfV+/iUnPegl0xhN9zvqG Po9rtkuvB5kYfYf9pPeJmOt/zD/kp75vzdR39B+YctDnYPwX6gs/Ud+Zluqr YX76e6RHPvHLeIPhB/iG/mO9kO+B6b8f/sX0YJ2e9WnSg0n/Q58fta5fs/+e /gTTnyliYX5t6/0c7P8lPZj0P+R3QJC2z/DnpR0APxJfBEMnPs1+AjDlMO7M D+Yz9jHlgclPesbzvMXcKxNu3X/1Kz4jvV5HM/vzx3JUeLCWn/I8Kxg5irwk Pf416cGkR57qc3Om/Uy/YT/Tb+g30oNJj//I9+FfMOuB+r4Dc38U9QMjfxh/ fX7WpFMf6GD5PgR06gf/kB5+JD2Y9PAn+hb5yPwjHg+mXYwj8SD4FfsezPwH Y7+DsdfB0j5Hvun2m/a8Pm9nYtoj8yNPwPArOMV99/3N6t/+MItfWtdn0V/Q f1zTvMh6fpf1x5/ek15n3Y+DvGF85Xlvqffk/l7iZbQXTHuJl6GvkYOkByMH 8HdpD+3Af5Drm/hf+DNg1iUYT9Ljj5EeTHrGm/6R55fk+61yH7A8hwhGfxBf pr3Ygfh/1IP0xB+RR8RXwPiH8h5SMPXQ5x3McdP3A5uY+UO9+D71Iz/zj/xg 0rNehj3EfjnKx7+Azn45MPvjwOyPk++yUB7zhflJHIX5gZ2D3Kcd/B0MXe4j YnyZB/J8KengJzDjCP+TXu6HkPfIQSe/XA+iXbLesl20Q+5LZ7ywp5mn6EP2 F1Ee+wGZjyndX3SY1R4gvo/9LH/Ry/rcuhl/0uvcJmY8iT+BiU/BX9j/xAfo VxnHYD4x38DYi3od3rQH+R7xQDD6gfqjv8kPJj3xcuqL/wGW/cs8ZdzAjA/l gikHOSz5k3EEI6eQ6/peAlOeYofo+724N5r7Fcx2Yn9RH+wlMPwl9/Ngj8PP rF+QXu7vIZ5AeuxrxlXu9yE+QHnQyU+8H7lG/FGvl5v+v17PNe0vsLzfWNKx hyh/TMr3EqznG7GHmAcy/k28jvTY82B537S8vwxM+direr+v6Q/IOALzXq5/ SfmAPAdjb6Fn5Hl5uS8Mu1Peo4rehw6W9/MiD6k/mP5mPZJ8lCPPJfF3fuU9 rug5+JPyiK9Dhx/1OXVTfoGJl4PhF9qJP6333Zj+MJj4Nf0k7V6570y+iyHf SdDvepjlI3coH8x8hi/Ir98JEHEmuQ9J218mnfKIP+n75EyMvmaeInf0vT8m ph7odfKzDgCm3tj79A9yj/5BP4OlPw6m38DYW5QPluu/rOdSf/xDMHFG2sP6 DO0BUx76hHFA39C/0MH4k+RnfRTMeiSY9T7az/og7QfTXtKDWT9EPuDPoC/A 2AP4J6wrcF4cuQGmfj/sv8LW+Ad06gemPiliIYOjFZOfeQ+fUh/W08D0/0/7 ca5Y452sd4HRJ3yP9SqwvN8Tf4L82FNg/F3sK/oROY2+JT3rmT+1p4U1ngX+ KX0J6/4T1rPBrBf/RLfYd/Sf3F+P/qG+Mr6EPsQ+Y7ywPxgfMOOHvMV+g858 Y17jXzDfwcxv1r/AzEf0FfId/1fKe/gBzPoq38d/4ftgfc+LaV+Cmb/6XISp P/T9oybme/AfGHuY7+Mv8X0w38MfBrOfgvz4V+QHaz1s+sdg9jsgb9l/oO8H MP0zygPrd5vMeAgY+YJ+YL6gV8DYM/i/YOIv1If5hJ2MvYL8AOMPML4/7X+6 Yh0fxk/fP2NixoP5BcZfID/jTX4w6ZHfP+0HWmfdD8v4kZ75Cya+QX7kERh5 RP8wv9H7rF8hn8DIc9azwPjb5Gc/FfnBpGc9F8z5BPKzHkZ+MOlZHwMT/6J/ iWfSX2D6R8bPWN+hP+Bb7En0AeUjPygf/NN4pLJi4ovkR96QH0x67AXsIMYX jHwmTkM8l/LAyEn8TTD6F/6Xv9iX6BXsEuYPGPnPvJbvQtNe+Eevc5n7lWkv 46ffhzDj93wHO1W/l23KQ/QZ8g/MfKV/kCf4C2DGG/sFLO0X1qOw17DPqQ+Y 75MeTHwCfib+jT5FH4KJh2PPYAfS/9QDfZvC3vVaB+v6w7fYCfQfGL7Hz4ff wMgfxgv9oN9lNjH8yHov6dEHpAeTnvVg+JH+AdN/yCvmExj5+hO9hFXeMT/A yDf9jqC5Hqrv5TQx38cfB7MfjfmA/6vPOZjnvfQ5JhPrOJ4Z39H7gc3xg7/g 81+9CyHPxTDv8IPAzF/kCZh6Un/020/vZP/P/RbyPn8wdPxR6GD0M/YG+ht9 xXyRmP0d9Av8BaY8yud8I+WjX/R9kALTPsqjPWDK0/d3mvOH/sb+o7/BWi6Z 8kj7xybW91qa/j90MO0hXqXv0TTp+r5NE+vz3WZ8inqyHgg/M9/0fiwz3oC8 xR6AjjyE35F/xAOIV9Ee1pdoD1iee6C+8t4nfS5TnAMDSzr8QPlg+g/7VN87 Ku4/BEOnf6CDKY/4NunZD0F6MHTZfnnfMufbaT/74UkPRv9RLnIBuU5+fc+W 6Q9jv9JvYOjoU72ea9rfOh5p2t/6PTUTQ4c/oMv3SGin9m859899D+J8JfYC 6eV6FnwKRt4ir4gnow+JzyHvwLxPq9c3zfekWd/kvkQw8QfKkffGojcZF+JA yBH0G/FHxknfS2uu+5Bfvw9i8gH52V8OHxBvRr/iT+v70M35ibyT8WHaB3/L /SXYZ/Qn9jzlEz+nnmDsG/gLrO/BNb+PPgKjj0iPPoKP5DqkfAdYxpeR9/pd aHE/OvEF6g/W94+K+96Ix9JfYMZRxwlEPdCv8D/p5bkiMOnhf+w87Bkw/pK+ z8+cx5RDf8t9RtDlvjPWX6gn84X8jI+ut6nv5D5V4ir8Uj7rNZQv90OxX1Sv p5r6kvI57025xE/Ij71AfvQj+TkPTH7sB/Izn/Q+BVM/kp/z4uRHv0DnPCd0 eT8L5y1pP/6NjJvD/9jd+n4w017EH8Bf0++UmXTiHdApV+7rlOensXf1PU7i fDvzAXkg45fYw8xTiZGrYOJ8Uq7q/YWmvOJ7+DP6PQlTvqHP8JcoB3nGd8DE BymP+Uy5+EOUy/zU9yqa/cg4/7Sfvr/1PnD4Ezr+E+OFfYdew/9BPiFfkF9g +If+pzz5Pgf8iD2Iv0N6+T4x8lruGwbL/St6n4x4Jwi7hHbR3+gxxp/1XMYX ecD4g396/+9/9g1Ju0fed4g8Yh0f/SvP2ct9H8wv2sH8QD6hp4knQGe89b4S c7zhL9LJczzUF/lCfdH31AP7HP5CPun3z0yMXSX3xzE/dPzUPC9BfVgPxj/G XoTvwWlS9vU6RBop4qHBYWt8FP7R97ObmPTbLdPJs6X1/IV8x1C+cyjf+cJe oN/YP6nfhzHlBfYY6wWML/Fhxpf4sN4fI86jsV5BevqH9GDkC/1NfxBfpn5g +BX+hJ+JF8IP6BXmO/YQ+dGH+j4OM95MfviV/PAr+dGH+n4Q0/+GDj9Cx1+C jnyBjn8Af7H/HP6if6kf9ad+8nwd8wk680m/j27GExkf7CHy47+Tn/gumPgR 6ZHn0JHn6Ev5fomMX+r7Ys35izxnHOkPviPfZ9b78k3/CLmqz4fxTrNJ13EO zpcRVzF/8YeR22DoxDugg+Ff9CP2BPIcLM9vMa/ByG30D/Ys/pc+z2D6X3rd x+wPuV+Q81RgvX/IzK/3w5gY/45+Y36BmX/IR7k/BLmj75PnXhPz72DkEfYa /Ym8wp5DXsEv2KdgfT+xyT/ET+U7BnxP+hP0N3T6W+5DpL3kpz85/wWW+y+R x/gRct8D/QT/ML4/xMzCcC3/9X1a3B9njpf2W83xl+/Y0u+0h/GkPcznn+6/ sqTT+/ca9j2xfniSceRyv82Vszpp/gwe43Gm7JwQzQ+Pz+b85+Qi63sQXo+W ODVb5aSxz/wlzc/4hej7upfVrvO159oPGtfflfy2xQPr+xCdq2zN6rLLSeMz X9M4uDZ10/iOx9J/u6UK0fcVpfk8p5edZ5LGOWLvq51rre9H9FatjviNddJ4 y/Lp1dr/5qbxxdlDDozIEaLvC6f9PS4tj34b5Kn6rYpyXlXQScv3K6nDy518 6qpxlSZNs+3pFKLvFy87qcuSkWet70XtqvjxZObBrhqfWRR+1O90iJb3szp/ 7xFm66rl3dgib7NPyxeq5fXQCwtXOs/6oHGrEW5DjpW31etDr0ueiWm3JVSf R2rS9OC/ixuE6fsjVuQOehn+IkzbL78lZ9/ROGuY0WDEw/Jt1jqpaQGPi9SO DTHG+rb+c7pbatWo4J2XqxZZ5Mr4qAYza6a22Ekb05yb88HYMWjFm+mpPVSN bTbNOu5wUt+3+KwMdPNQbRL6ZKiSJsl4Xzfrq+yOnmqTvcPp7uOclPfozW5Z bmVQXeNaLei6McSYUa+Y78b23ir1oAJui5NCjBvdnwStq5pFBdX5Y8ygZqGG X/1r1ZPy+6vTj9zWZ65gq06rWJ8Lvf3V+1V77+S7Hmq0XZuwYI1boCp98E35 kbXDjK+De1TfOypIFfeo0uv3Z2HGXYcr/275EKxGtRnxcPRCe7Wq19y31Vq9 M85tOzr4qnJQszpdnzord5yx4J8B9XZPsldLj08/tdr2u/E9v2u2V3+6qowF 38QNW2rxHz3POIWFWc+ReczOPnHTvThjb/lKrbM0SKf5w9ut5dCPGdxV1TMF vydcT9LxmGZXF6+YMdqSvmz91zUWpVdTM7Rffv1AnJHh/ra/Etp7qeh9F4zG X98ZR7aUdmzVJkAFzcl8vbdLnDGzwJAjGYYFqM/N+/vkfBJnTKnx5/RDNwKV 350ub3ddtp6HQ55kK3UrQ0wnWzXl8td2yY5v9H6u/GO/e/ab+0Hb3297rT3a dZf1njP05pDw5m/XP8uixnfcd2zoWut7G4smFO3g3yVO8xP23e4COUq65A9U Czd6nj+xLsHIuqRNYBvXLOrl4gZpHMOjjNV/P+va6sknY+q636oGb48yqr97 Pu5Kyc+Gc9T+rrXqfDaGzWy+Zt8MdzXD7cTpfY+s58l25tuxq+6Mz0bDww2+ ZDzjoc7FuK/c4fXZWDhkZK5KzTKo4Vk8E/xufDTKPHZa0nyAp3r9d/cGQY3e G6PL1H9kX8NPtTrhvLTbXxZ/OfOeGrca+Kno5WPveuz8aFTp0PjvAff91eQd O+Oenfmg7wveNHXDtmqLE41VPTIPOHAl1sj/pv3vz4pa/OuyI3dde/vJuLXb c+KtJwmGQ75rrcsWdFb7LtaxzTbpg/ZX9rZe/nD7vATjvGuzgMCjVn94S1qb t0c6fTCyTJr979lqoVruP57oeKtw+jDtf89znln/zO4oY3TYkBqBRpAKaNPv e/VNUYZNRHyJOwWCVIkp044PWxSm7fOPGW5GV8gTbbQv6OqeKcZ6PqJdp+ut c1S0viNW1fdy7c59HVW/M4Pfjv/yVeuTeg6vhnaf+8lQ+5sV8G8cZSQ8zfJP x5WfjZKXd6+PeB6p5f21G4dnzcwYY7xqsKr+jZrW97x8TrYInJGYoOVHi1rr 413m2KsqRfZeWe3irtL8XeBD7qvW91Wq+1aZ93GovTr+d+ye1THpVfLrZ/UT L1rfW8lQdmKWiU1s1Iwvf7o1ivZS34+sPdCzZbJRJTrJvlNCZpX6zv23O/9I NkbX6fMwW5C3+qfbvIjuS6zvsSxrU7bawfEO6mGDx6Wv/hmgzvxZ5+X6V9b3 WfKt3PBH+mh7tScsW3q/W4GqbZbBa0++sFctjtw55RAVqP56feNdqR3JxqRd zZsvLRGkzk4KGbFze7JxNvvsSJuSQWreq8/5vQrYqBHrig5RVyKN/gHdW+V6 9N14ULF0+iPDIo2hzbPv/WdquJ7vxQdmcew3NsawOzNm87IzaVSHM2tKe3yL NoosTLdpyDx31W+y47BvxcKt72dMyNFn6s1oY061WqPO3PZQMS3GHHA6H224 7180q3enDOpETLeZR2qE6/W8TzkS7/V4FG28XPmie4stnurB4G+9vnnFGJ8q 3F81oUZGVe3Z7s4+I2yUW37P/aEZvNT2e5X/3b82XMe7Z66eVXpBvRjjc7PS i3sNyKRcGg+pf9/JRlWzfz0tz9hMKvOz5BZrvyQbD1tXnX1oeyb1LrbAzn/u W+/vjDqRVOFDLut7NTbJ3unuFgjV93PaTJt4/fbiUL0+6Oh9p130nUijYsCL b+lfBKiHxQ51csgXZeyKqmizqk+gOpTdY2kzI8rIMGTnx8szA1W6G/M63Gpm o46VPJ8wrnWgunI/7fhKpWzU+98r9N64OFC9XbF8f+cH3415d0raGXeD1IMs iyOd5nzT9ir82zJdtdWPLiQbHd77pU6sbbV70lSZ6jZnYbJxJSh6146mzup4 9NnAq9WiDL8OhZICLHr63pedC+KHRxked6PP1G1jmS+vqgS3Hmw9D1UuV6b1 6fpa79cstNEn+7Y51vs0z3tVGj4iwk4FHnaYV29EJhXRaKTz/M526tvmGY+8 6vqomFSOn3c0tlODu+6esWu1j9pfvEn724ut551au698/O9Eq91Fvc/v6Fai dMEkHf/Lv+Zx4vp+1nsh7L+uWFl/nY32p+eva9q+cmV7Vazehuv2x9/o9SLy h398X2T5iFTqVuYhhSossL4HlLvHIccW0db3ex6sLfouzccEbZ9MvDeh0bKC ydqeaF3syLJbSXYKeXBkVNXkRpsSjWLzT8R5T7JRS+eFPtsYnGg4224ucu4f G3XWd2H09z6JxpwSNs2fBDip+j1Kf/acFGKUW+OX8UiAu5pe3KPoupJuqsQd zwsLA9Iq56+Ng1bUDDHu+OTME2BnsR8ik7cWze+mvEsFvBgS66Hu2jUdUrt5 iNEhW9Em5R95qeYd4kNOfXRV03Ls+/pbiKfK9sqxfd0FIcabPW4NH27LrPLa 5qqydL2rch+7weHAm0yqdof6iaXLuqpuQ1d0bPHBR3W6lnN62keJRvwf24uP SeOv/D1e37lw3kVlnnjq5I7vfmp6ncQsf551UQcLPpp6MXVW1XfW44sn2rqo hR/XfZrVIECNHFYoaFZNF9VoTbbV7rMDlO/r53+WSHRWA9dsO5xnfaDK3KrP vi8XnS3+sW/TQv5BKkPeilc2D3NWkS41E+zeB6kvN/ve/dQwwpjQ0VlVrfxd x9fW3S1yqkVCgrEk7r63Ucx67mhIxLeBRztZ/J38LUqPqxNjeGbumGr+oVTq 0pO2lXuv/mh07d1ybUIJZ3X92T8z3Bp/NiZdSR2Xp7ed2mdc2fPHdUcVf9rh aFQJO9UyyuP9aw9HtSPzvy9Gxdmpz75uX8OyO6ugon5tBvklaP015cmfQXdP RhvRGw42qrwjWPU+XbJL/g0J/zkP9a3h1eqn/31nzOz6JTZ7rej/3Gf6xn3K 84MNrfd6O209eMPuuZO6ne/bleWWeiIfazVLPDS0RoKWNyXreZ5RQQlaH/Ld a/XLJCZ0+m7s9Xr2fGq49f7TqOmV1rTeGan5m/SDaxbevTa7o3qSsPvgZCPO eh+qq9fUUm0/af8h+sKr4i8HWd8H2qpenJ3S46teLxh689TePwpEantpqX3B K1NufPrPfajx7hvG9GrrrwauKmezxyZK21PHCnc2kjfH6Xiyw7G9d+ZFRun5 VfL+lNdZpsQb/N6/v8O2c+cPxqnNr/f0P+Sh9h0I7VnN4g/M3db/ScSg9KqP baUS/7T/YFz+1PVqkld6dSH39szdsn00/B/5XXMZ5anylhtboEODj8aH78vy 5HrirxY+S/621fOD4d3v9us+5WONiws+LdtQ9J2xMjJDuvlvre8Odmtmt+jE wA/Gb8ePV1pzw1nbHaNeL5v17XSs5o9xDu5f4npF6/Fpevzw16OuX43RnVdO ud7og+HQ9b3/wpOfjVsPcu3b0uKDseXVx7wVUn03hvas1fBhKydVuUXZTgdL WO8r7VUu9eZi6+3U2NIbl8Sl8VaLB7sn9thop7JuqLtvgp31fPbdwDU2zRtk Vp3SbHwadNFOx5OeBB2rPN3OTpXs+8ShXKksyjfXnsYPstmpqxt3rCi81FdV uJ5+sU3JGK2/b62bPztnS4v/c+tQq4Q5Hsq72+GXbRuEGAcWJHuVLZVefRzv 1KjUpWjNnz0qXTnhWSvE+NrRPyF1L09VqvG8sw3qhxgbslbt5mHRv5nHXKjs 9Sla6+/j9Td6dugfYqyI7R3oUymTulDBWJRhnOV7GyJWqIRMqmLdrDtXzozR +vpxjckh97vHav7vPaj//ule9upe2VdN9h8PVncObo+vXs16fuljprbdsr/7 ZtTfVrTTve7Bqm/u62EZz34z5tt+2us+MVhlO3TgWLGC1vtXn68/Xq505Hcj 05o+bx80S6WqLkyfPWJ8on4fQp97OXz9UoP4rOpylnsONv2/GQPrNHIuNfaD 4TnV94/x4+y0P5vWw8Mu7Tzr+SS/ib8HTaxjpw6merUt1anPxoAXs8YG3E/S +5Wox7nBCxKnrfJTq2vfHu03y0X7s0sWj79Vd0aS3n9UN6HMhkxZXfT9X6sv dVwattL63tJEX+erT//nfSWvGw9ODbvpqOZ2TJ0lsoqjurFowb/DpriqDxWH dZrxj4PqtsD2WuvDrsor4euYRA8nVXhLZN1Xo23UqwYBxU6Gu6lni2t8DRhv o2wK+g+vkOymmnt3elKln5Oud8bD2UaWCHbTv4fu5Y2zz+mmVrlE3VRN3FTN MqOnVLxvfZ9pkrvj+uoPbFSmVGrt2F3u6pVdj5bOe6z73vqOrFsyyyHre02z B4b2mrrLRiV/e/L3o+UZVKs3+67XWumk7We71MX776lgo/we/dU4X7uM6tOQ pkc2FLJRB3Pscq10MKNatfr57n0tnPR8avT0etmkr9b3nNKV7xzdO8RRvb2e PK/O48yqXfz6LX90dVSHk1b/FnPLV+XrtTXv0naOqnKbbjt2J/qqdReqb7kW 76D+mDY6JFevrMo1Xx/vZbcd1eOjw048PZpgbIree3l9TwctZ09/bJ+8N+yz 0fjS85H9zn03nKtfWt0n23/PM73YtrldsY3W91yrRleZ/3aYg6pt72af/7cv xv5uOdxHH3BQL1ovXDsq0UH1Lz6l62RfO5Wux6YRjWbHG3Y17CZOq2jxM9J9 Pe6X+6MRPDH7lP5rHFTlbTd2JhS19O+eoI7djqVS1cL+iXxbxvoe1OAur5bn cXtn9I2sVDkuo4uaU76j59FpCcayeZM3ZjvrrOrbxbRoVzPBGNr1ZGfbP12U 6669D4LXWN+Lor6FPG6E93J1V3GfX1dZnMr6HtSjiiFxE3bEaf82aHz/HBUn xmn/sXDDZd63JsRpf7TdrHd//b4+Tu/PWx866ewBi//Peuec8kcTn+eyvr+0 5nBvu6cWfCb1ftthlzOpD8MyHhw0wfoe07SoJ5ucLXI9/t24p48O+qj1mytO +K1urJHc0zPJI8xH5QvPUDkmY4IxtujSdf+e8lFJf05/cSdbglGxZbU9vV/5 qK+VzxUZ5299b2nB3NnuEwq8M45sPp8l3wo/1amKbd7XA6zvL3lFtlmz+o71 vaXKz0d1GfT4nbF81NXnc3MEqKu7i7QZZLFfWM+vGXg47V/nrO8tZet2P+tm i39b+s+ybwdY8LvLHXcViYw3bOf6LbzjHay67Bhcu+y7eMN55tePc7MGK+Pb 0dLBtg5aD7x3qdlvQHbr+aOyDcd+jr8fb2zYNOvuuQmuauH++Dpl78UbN2Kr bWg1zVV1Tju9aftW8cayJva/XyySWpX7rZr/qiHxRovcQ+wyXXBTpyKXvJjX It4IeT3mYs7pmVX7bYVux/ZIwS4PVl7MrGL6bLq/d1W84Te8wLrufbyV84rW szsujDc8libZ+tS3+KvlJi9NaJZgvM892q9RR191+aN/22FFrO9FHfzt5PYC zeON/GULVPtzQJDqfnrI5wPlLPXrWGrU+XpB6mZIw5tbxkUa4ypHjcvt8NWo VDHEzb5GrFEj+0bXNddt1YCynier5483ClQJi3mTOo06ev7m718s7V20c8GX spl9VLnef6Xd8k+8EXzpj5DuPj5qyYFKDWznxRunq/ffc/1gkHIsX/Bs89Xx xp0Ta7bfuBikPj4pnb73O4v9vCffv4MyOqua/VJ3qRRlfVfEP02DcovP2KjH G1Y4JGa32BHJm3quvJFs7Bk1+uxhlWQcinK1PZ06VM+PJiFDr7X9w/p+VYPG H2rv9okwZvonP71vl1qdz+C6rJx/hJGlYuic6RFuasaao/W6D4gwppS4OOq3 ka6W/LNqdgyLMcZ5+JcJKZtalQx513Zg4TDdf/uqhfgvHRCm+eefP/J1a1PF +t7V4SP1Kh47ZaO2fu4ac/6SrXIs93pl0IJQPf/Pf+l/8PXbUGNp4PnbzZqn UuOKV6uy+lio0erlxkqxSalUca9Fid7dQo0K+c+knlzXRdX71qNv7/GhRs+/ pxtFXjqrcrc9FsXctFEVDkUd6PQlndpYoFLd2Xdt1LCaTuMLlndXY89/Capw 1kZ1nZa2ju2z9Oq+f4s+905Y5HnMytqX3TOo5f38G+xsY6PqVJzxMd8xL7Vg StK9YVmcVMzc3Q6162dSAyKcGrZxdVKB+07kcXmUSV3u/rBA5HpHVaFWbfcZ nXzUYGP1v0XWOKq0Los3hI/0UfNPNl6RfdY3/T5U2xIVjZoFHVWvAgPTRwdY zyd0zrim78iXjuqk47asq0dHGvXfD/fM2TaV6tC6/ovR494ZF5pNcK7eI5U6 WemBy4TW74zdbvtOpH+eSp1aldR32u0II2bo3HR5yrmo2r0G3L263/re18CZ 0/pcORKu8ZUyrXo02x5j+E0vfdEzbRpVZHjNZv4rw40xp4rP2/0lrUq87hZe YHO44fmkcCvbjWnVv6qo77bO4VperjyT8Lx+s3DjSuroxB4J7sr5RfPC+duG G2Mdq3stO+iu+jfKPWzZqHBjXxflHuXgrlpc6zzHb2C4kRTQ/HajUu4qdccR 9ZyNcC1vZxbL5j+tTLixZu70rhXap1fvsvRK9+z3cKORXb/t+QLSq7q5i7/5 u0i4lsdfHCd7tyhp+f6Mi2/W3s6gBg0uaVOrRLjhdzZ9rhLTLLh/aDYHC/1l pg6/37qfXmU8enjV9+LhxrR8K97W882gQtrNi115x/oe2aXb7XIXsej/9HEN CqTp5KEOVqv5pZLFPjgS457kuNND9XWpNi/uqo0qsviOx6PW6dWZ93nm1b9l owpuKVL1i6V+4ddCx7yz1Bf9UP3J/b7J1cKN4pOzlepW1uL/jtn75MQf4Uav w7lsbL94qlrNPf6a/Ve41h85P70NDekWbtw+UjVnnvUZVdXfXxb+3CHcCHYa kMqhe0bVftn3wo8bhBs1OhVrWmGvl3Kp/OJZUNNwY/GEsMUOcV6qyZkdSzYv slHF1h4tUK21p+pzemyZlgttlP39UrdcunqqN1cWt8kx1EZN6TJ5yaTsXur2 x5Ovnk0K1/qq7unKHd8ssYzvwrP9/kidWbnlKd3t4TxLfQ45dXv8LJPaUmFa lX9XWN9POxAxaNGfp8M1br87of+Ne5b2zuif36Gvt7q/7uHfX2+GG639bCeX aeCtXhjls9vuDjdyhE2p+2xRZtVl1OtXSw6EG4er9btT82RmtepOqbjvT2OM zZ4FoptP9FY9RiblbBZoo3o8G5X83TmTih7heWTPrmRjR9Nnf4bVzayazZ7u X/iM9X22ogXqtglwsL7P1nLBCSO/Xawx+7HfmdGfvNXeO0+j7DNHGBWef/Nd /I+Pqur4ftYqrwhjfdarmyIv+ahpgS0b7oywvucW3imx6Mb2EUaBF7e9LxlZ VPWivYollokw/G8udys6zlctHpip6/GyEYaRuPjIyEm+asfiPN/S3ow1iuY4 ka1QxSzqkl+/hkG3vxv5qlx3u5DorTLvcn17JFOo1tdd+y7InuzyzuiSs7yL R1wWlavqv+39LfZO6fFdUn9JzKICVapcE45FGN13HZl38qCf6mD0CgyvGqr1 ecmGQ9+kyRJpZLtUIPe2gv6q1rJKV7++iDC8ho5OFVsrq8rxPTRV9pnvjKlz PjwfUNpffene57fLI94ZC6vOi2+clFWtj9x0IGZ4qLYH+u3Ie6nfpnfG3TOb vLut9Vd1HtYLPz4m0ohd8PHV738GqOwvmq5bfCBU2wexla+s+mNlpJH5Y8yc tJMClHoy5crD9Nb9CRNmHHxasbytuhnWLf5hP3/119Blax9ntlX3epTbV98l QLV7Xy7T7Bgb1b5PlY/fmwaoWy9HvrgaH6r97dkDshRd39lGLbYN2aeqB6oi aV9MPeNtsffTNqyX6lqgWtXsxYdnnsnGvbp7XzfdEKTGvHqzddnvNurrh/kJ w0u5qrhTXpuXHbS+Xxcf3Lnl7Y02KqjM5IPTq6VR5Ta9SGy8zUYFv1n6d8HR aVTDszuLfzpno3ovjGtw3Smdyjl5+dY2Fv0U3O2R06flaZVdjfnuZ8ZZ378L 6bDaptFQe7UsuEVtm7pp1OvXjfuXH26vWnx0PBY0KI1aeW3Oo/7TrO/hOXaP u9Nhlr3KfTjDwF4DPdTDPKfPpZ1pr7yuVDJiV3ioHhuGlGvZ1F7V2LOjaNqW nmpOW/dTtavYqe5Dlox7l+ijhra8+PL8Oet7eCuds7Z5vN5WTfcsPG/2PT9V pNjdznsP2qrcaV3S+0zyU7ecBk4+nvGDsch9scf0vB+NJp+PVt23IdE4l+3y 6K2jPhoqdf7hj+5Zz7MdGxi7zq6qo17fZB2r2F93OxTv6K86TxvV5nRP63m2 HUWijODd1vf35vicXDF4sY2qZdP0xNLEAJV3hs/39F/ijd5pKmz+OMl6j8qI jmmnnfzkoFzenB+9cLT1vNs8+5Wj9nWJNUa+n+fhtdNVratdwC792FijU6c2 /aZ2cVUuV0tW7+aTpO97Pnfgwr08W2KMyfmGrGnyILPK4X1hiO+MWGNzt4sX bs/zValv9M742JL/2MEhn/b87asyXe/8pk/d70Zi9gaJva75qAdVK2e6VfO7 MbN3xIVBd3yU4eL+uU2bd8aBK+VqTxyUVa2KG/jpefsvxu8Tn2yu0SarehMQ /2R9xy+W+R2e5mWrrGr+6PX5ThSKM5bnznyl+tkAlXjK8YvNoO9G42p1pxT1 Cla5H665Vrfzd8PVv0zUkoBgFdAqvmyyy2dd/6itIyrs/z3BcC/7tcbqrtb9 HIPWpCs2wdlG/Xtrm72v7Vdj4Kf716aPiNT77JZ8XVv6SFyUUeLeskLXJtur kdXfHh6/I62qvrB422qT7FVQz33DvxRKr+I/1R425Q97tSXHX0FrXL1U/hF/ 5J2g7FWW7Efq3SvgpbK8vbSy1ys7ladqjmi3vZnU3ZiEbLNffTM2ZVv8sGNP X5W+wO1zHw5+M9yblJ2WerOvKpaq8pHbFvvp4co/b12YGqCe1LHdXtliP82K /rdSty0BqkXi6vmp0jjo9xOzjcxb7rGrg2pVtlLC7xMC1aBtOT+GZLNVH1uF nU67KcqYcuttt1bHvhmvShaNetM00jjSZNTn3k/DjZldXFJlrJJGFatf7N8N Fn2S+kNipoaW+VlicJ2AlTXDjYpna9h27uahzn4rNDKucrhhM6vqu8bbPNSg Dw23upcNNxovP9ytVkVP9e/2kQ3fWPRxF4dtPetO9FRJFdvdPDE03Og3u2qX 0tkzWfi39syI0eGGb8tW6k2TTGr6+cz2C+LCjfTdr02KSuOjntoWeN4gMdw4 3bN3nT7ZfNSZoJubek+NMNznV4tdF5lFxa0Y+JdzuUgjaefLQl12Wt9b2vKb 27Q26ZKN2pmytO0z0k7lX9R2Wr0H3uq7Wy3PhCe2KmHHGO+yIVnU9HRLP3nd t1VDKu8a/LeTnzoQ+D7DrBbW9yK/JB08MqKP9b1I5uPf/8SPNJ5+NHJvXvvn 7DS2/9lHk3b1ooSt2+xU/WvOp0s9t+4bZV+K//pZvhVrp1b18zq1vJ7LRu+P mPtw1Zndw210/Ib0+a4+v7DdJVBNS3h2b3ZSiFG93Xf/Nc/cVNTevo1r9Q4x luQpeOnpTXflMi2+6/ReIYZdeLV/qj5yV31Kb3qbVD3EeODYvkGe9RlU0j9T c7yxYPeI1w/uHcqgdkYUVzk7hhg1nNoNnDgmo7rzptjTNRbc5o7vkoYzM6rC zm+LRW8IMU4fSj+pQhtvNazf3K7zE0KMcwOmHFlXKIv6kLamXdt6Fn9h2qrW r5Kzql7b33+5dzzU2Fmv7PLsYQFq1t7N9UNKhBljFzSuNKpGkFp2Y1rEtH/t 1Xu/+NxFsycb7RaUft52Z7Tx6Ezx5xWWBavja092qNY/2ki/4trd2rWDVeXH WzLMjn6v18+qOCb1PHk9Ru+nSag9z39uWLTeH1Or+uNFRt/PGjeYcis51+1o Ha/+8MozzLF0jN6/8vDpsrY7PsTo9Zwrhb3Dmr+L1fFs9u0u2LE4Nsd5630A 26c+LzSmRaTxouObrl/WRej47pF26Zd+6Rul16/Dr1YvuK6HjfW98NPjQ8be itDt2fMy5tjJeZF6PdB5p/3r0S3t1bOTdgv6W/z51GH9T4c1t1ePDx7akZTV en/irAeB3dr+aeGPAt65+vg7KM6H2e6KOJXHIo/cVx2+2OlQkMrk8dzfdaxF vyVkOtH4ovX8zv74ypnrLnFSz2u0bz2gRrzuz1j3c4X6zI/T/VfycPf4OXPi dP8tPmz7qadNvO4/+ySXsY5H43X/7d53bNZw12/W+4Gn/Ln5+5B4Ha+v3MHr r3kfvur18XGD3P7uVzjUeLAtr29MW1c19NOsLgWCQo3JXys7Vd/qqpIGTdo6 YlKIsWpRr2wds7irbCf8GiXUDDF2d7sZHxmTXlVfUS39v81CjKD0bV+vvOKl 0tzcVL7SghBjQ1DzMQ4p+5e7DLu/9VmI0T91RNZzw33V3n+OOa57GWKkuhGx t9NMX3Vq38LsI0qGGt2uJ6QZXdNir20Zuq2gCjVe3bk5uuCArKr/xz5tp893 UR9npl03vYG/qvF+VkK31aHG+zerKm+fFqDub66ZxndnqLF2xtCxY3YEqF25 P/+9bbKLetKk5dCFC/xV3eGL1tbL56K6jngwYu/XAPV3ULuTWTOHGVWadT1Q Lj5Q7arj3vZO3jCjRMva85sGB6nhHwNj7FK7qLjr3Y7tbhyoti7MPeevI86q RDO7B3E1Lf58kUwdO41yVk09E0vPexOk2jzN3Op2GWc15X3SlBI7g1WzVN0L tKnorJpM/XdJfst82h+/9vf91d8ZKwcNrq722qji40fu8V77zqjz7Ia7Zzkb 1exFr/ehDvF6/Yn9r5e9x9v0G+Sq2ka5l/p+N07H/+Oj7zm3eh9t7Dxzwr5w QrCa17vh0Oql4/W+CvJnsDs4b+qRL8bOVQNbHh8Tp9cD8hmt+uY4Eafj/Zf3 LFy0+c94Hc+PnBW8bu7JL3p+sJ+0bbUpy2q2zKpG7pvb/k50nJ5f+WbXm3gw KVzz7/gSW3dMqROu+XfgoV5ntlj8TfjXbmbLqen6hGv+7Z0+dbdJL8M1/9Yu szFPVPokI9jtr8ORaTzV0i5DBy/f9MEwNj+u9tcsi345+XFnxsehxv39fl1m GYEqfvwQr9xRoUbygfKFb3cOVEWPVI91TR1mzG5lUyLthUD1NXeJCQU+hRqj +z8+E70o0Pqe+touD2+Xd1EVM9fySHb/rtcvmJ/Fcnwq/f2Vj4p7PPb6nssh RqcTzUd4NU6j2oQ0vV3hQoixs01l78o901j8tReXpq638PeeHQkZ7qZV//z1 8E1Fi7xuX6TWvahradWRLP2PhrcMMWqvSQgqMM5D/V5uwt1r9UMMD+cT459U T69GB7TY/dYyn4pEHy8d1txTnbg4NHq7hZ5v9LSlD7J5qeVPV/p86hdiVOiV MOpk6Uwqb6H4As3GhRjdn1WvufhjJnXmnN+ySodCjMs1ZnaZ7+WjRuwtN3Hg 4RCja8N5Ezv6+agDLmnWvbkWYlyf3KdpfYu/590mvu2LKyHGI7uPJ05e9lG/ 52tee4ZLqJHjcsPu7UKzqEO7hr/bnzbUGDHi8nRHOz+1/8zrIVE5Qo2mU5vm m3LUT/lM+OY0JSDU2HBp7FnbxX6qyfn4py+rvdP8smrwoon5u4UajtVLr8ix 1185K/vjRweEGveadRr19K2/uuPivyNhdqjxZ7pOOfrUC1C5K/nYPhsfamza vuH3nEUCVJn7afxq2cdpeXzj3f0Bd3N/1+t1jM/xVZMfDiwdrD5XifFbNMpB /bPwcc2Xr2xUqTp2hVYctlULZ10s9Xizvdo27bDt6Gq26lWgWjHsgJ3q+OjV 9OWBzno/AOuqk/vknBNomX8PPL91f9DPes5+yLXJ9fy62uh9svMupF9b0tNN r69csHevcq2mjb5/sORD7+g54x31ewGUP//Li24eDr7Ku5Xn8bSujnp/kOc/ 6SttOueicXun2KWLRjjo/UGhQe2yL27iovHmtFv8s+V8r9ch+C15dmPhame+ G1MSa4eE9Y3R6xaJc9ZHZEyV8J/zuKMGTi721WL3DuxU/+q7eR+MYlUbb2/6 h6OqvbFW6/qXEnT88a53uWVRpWJ1fPRUsU5rq5b5rONfV6uXd04aFKPjaTUb rMj5NVWMpse/8yhwL+SDUe/x/sB5Xd3VwzHpll/JmGREPquTXwW6q44hu8L/ tdgH+Icnt26Z1OJStI5vTXMYufD4oM+avil6wI4BXp81fevzR6O2vIzW8aY/ Hh29fiRjjI4nlQlocebvtjE6vlPs3IKxQadjdLzmkCqf+K1ArI6XhPQddG2s xV8D019VDs2rPDeHj5oQ/CL86MoEHR8Jupxziv32WI1DfitWovG47zr/h1MD kpq8+azjFZf80iwdmidax4Mpv3V40xurXIJVLveX0/Lu+q7pyzfee7/rqoty m57u7YEaFj+06pVpu+5G6XFf/3xy58VTEvT+os69WmbJczBaY30/ctpdQ+Mz fdbn3FbZpdrm6u+mTgYPDRm+I0rHq5NU/hxZByQZHcem+dD7RrSxZNuUsEu+ kdZ7Q11t/5xWL1n33+LB5+snbU/W+fv03D88+9AQPf5bEl84ZGoSosev+eCZ QbVrhOjxu7Wz9Kp6dUL0+B3vdfFKh9YhevwCHdY0c51qo89zYo83eTiy59Yt nipqaGD/aMv3GF/2h0d27j1/wtXMamHrtptCbW30ec77Ph3vva0TocdLv1/3 YsD2w//4qkurkvpeWBuh41Nncj1t5pwcocdvQ3z1UQXbROp4Uafr66dFXY7U 8aAdNm3DUpeK0vGbsA7XnSZVsdH+4MC9ufr3tNiD6wK8N3f4nkbtn5x9f/g0 e7Wyjm+P7vc8VNViq7LXrW2v23t2d+StqmF2uv5r3m5t4tzGTp8/veHx3n/6 C2d9X0PxmMpbTpT9bHxN6PhiZBd3Vb3D6tJr0302Rl4qWmBqsLtyPpWnen7/ b8aw33L2fNch2Wi+P7jh9MivRlSvQtkOjnLU6yg+W5Mr2vhH6X0qS/6J8B+2 JNL46371WQUKJhmrGvYt43Ui2Yie7ZX3r3m2asvFHK07/vXJmPnuQtWJlW2V W7Nh4z/stNPniRZcP3S0SkHrfaZr6h6Z/MEuWIVEdJkwK62Dqu9Z9Gi54YFq 45DiSW3LWt9XPvDX7eCEoDDj7ImuuZoucFJBp13KnNxsfV/Zvl3fHS5LPxjD +pQuueODu4qdnPmKOham+T/9zVTBvU6GGbbVHxax3xWs110mjy2SuuI/MUZi vrRONnkc9d83O5cs6FnaVS3NujAwj7e9urh0e8N1Q633sgzN0+bSd2d71WDk 0NLRx5xV9k4R1f2D7NXhtqPyV2rropotLe6f0fWdPtcQ4zg571Hnd8bI0XOj cgW4qGQbhwdvIuP0+ZGqDw+WfDo2Tt/n+Hv3LEvf74rT53lW5hmd7+Tv8fq+ imXXy43ObROj7fdszV/VmefmoKKfnf56536y0aBzz+bPDlnkfk67QreTndSD HU32Rr2K/c97zG9eFe9bNY91H0RCuk8Lh07+ZBT643zduRHROs5SdM9W79oB sfp8yd9FD0UNb/FZ9/+7BlvSjWv32XhyskDPNEfd1cH7jYdPu/HBGN2r1fIZ M9zVrMcnEjse/GBUOTrmyMAj7qrBoCuxVQ4l6PKenug0fWdni/xq+bhPuQp2 6uukFwO8cyYY/W73LD55qp2aG2G3y/E36z3cjj0S1if5vjeq7Bs5y/l8KnXL /beoNX0j9L1UDy9H9Mk+JFbj9NHdSnv2jjBKZUtafnG2q9rUt8r9jTax+v7Y SoMz1ZmdJtb4I1XQ6xyH3dSFiDbNtgfHGrXHd9rsOdBNFVmdb0bsoTBj/KUF DpkWB6vRhT1/D8n3yWg6Mf+uOy+/G2HvXeYZnT8ZX4vvqx11/7vxrXvh7cn7 PhqHRg0+cfpRlFG85v6VyXOt9x8/r1h2/75+1vuNJ11qeHdACv+Z8uZggQVB MWscdPw47W/Tas23yBvan+N0+5Hrq0Qad/LnOrAvOpXK5BtVvFmhSGNhqd3L DuR1VqU6ZsuU62mE5r/Oz/a++3thiPYf9P0cSf1uuPROpxwnxM/btipGn7dx PpI6x/zEaD2+5Vvk3bfGgs+tmPiqgmV8V6eKb1PbIq/xJ0ptWXbi6KNofX/2 lSU+rU5cjdbni+wWlBy96UK0kblCQhvvpRnU6HEt73ZuFKL9D5tUYbNHPYzW +22OOJbz2ZczRt83cWO/345cvjHGlEvt5o/qmlE93nplhe30EO2vNBo19vGq WjH6vpeSzY++6fY4Rr+HsWpeluIzLsYYJ+puiN9Zxludy1ux64qzMUamSlEZ uxTwVq55p655mT5Wv89w8EbY1Zo3YvV50on7Ln7O3j5C43GFB5XpfiXWeBPT MsqueBZ170wH1xI7Yo3Tvoll0kT5qnGpXy3ONCPC+h5PxwrDFs6MMJZf+f5u 7ZcsalLjuLSFV0UY5xM2bK5RyU81S9hUI/JwhH5f5kqR0rvfZYzU93PMGN66 8Iw3Efq+MefTr7O1jIwwgqcubpu5f1Y1ZV/HDp2SLOP9tOXS1huyqpbHhrs4 VY3U+5G+fDruNLF2pDGwU3PfwdH+auP1R9Ud/4w0Dg5cWu6efYCq22a267kh kfp8YI7GzXpmCY3U9+/13djmWtDOSH3f09oxOYZsPhRpvJqQc+yTvQEqVUjg mQsWHFW363uvfQEqqs6JN9uyROn7cppcnfxgZ3CUkd6vcaHQdoFqUN4dw/2d orR8f5N8ZcO3tmHGX25dDj+86age2eZOvlg/zOjw/v7E5E8Wu7zfpW2LO9ir 06N2Op7+aL0vP+PgdgWr+6dWPcrm8F9nmV9/OBfNeizCYk9Ofts0zTx79fx5 w1C/k+7q3tjeH3N2s1cdGoVVHLArg7JpEPO6pwWPyN6qafvtGdTM/1fWd0dT /f/xXy7X3ntvDSUhJHk9UeSDlIooW1HZq6SsSlmZSUOLMkNlpUG2rJSSjMi8 XJd7bRm/+z3n5905v99f9zzP3a/xfD6e8xHXaHnICY/1V21+fm2TrYRvKx8N DXH4ROLxWHzwyF8vcoHCHLa/AshF7L/ouX/98Ukb9zpL5rB6ToO1+Tm2NCJm R3symk7/7htHH56dCNw5gQOmhIw/qXpEdGXJEmdkgoOudLKu3qkJxPUopvr1 vnW0bqzqUHeaHvMjusdFfiuJ08POWI2txsUM0EZgETmx+s/OqhfyPqp4xQQt Go4OkVFL6Cha7680nEIVbZcv3VJkgFO3kq6aG1EQ37XrKOwSI9B5GwyL0PDk Zv4h8NX4t4qUcez/aFrHdevd+zeHTHIoxtX4xjIyjhjMzibxYXghmW4t90IU H/CqlDQ1fV3G7n/p1Sz68MFl9Ji3zy/5ghSkXytakHddwc73pv0xfKjSYDoh C0ST8cJy1ilsPlJp/5sDt0MpWL+gELBlHu+joPfG2ho3LRngUHFzaFwWBeE7 Nlr/K2eA5QP6Rdq2NHvM/makQnAGi6t4J0Vbm+IoaE2udu3cjmksD7NpD3P0 BXUUTBbQpGXowdKAZRS6w5e9koYr4sMstnKQFv/1GW7O/w/YkgM/F9Ab4SFv PscxDB/0Rfx2FB9cw873oHz7ypHjayj0CnMsbzMjMPNXOZ6OWEOqMS8utE4y QqcdzjrFbhFtPuZwxt68UDKKrffXcpHoqo1RNNnA6ZK/jwFEcSUuzK2j6KPd a4aUPAbY/1DhZWPsKHL8wjNCZ8EIB+rshAXyR9G59ipOASZGwDNdONKVhIc5 2eTxLjVuSFX80psfj8fq+XQEvhyJv4yHq51fZfLoaPfBpMtjMRyP1e+tZif6 lSni4YiN1ZW9swLwdDCHI3wXHsRGTPeKlQqAxr7o+MAX9Nh8so1BmXvPbtHD VObDzkc5IvDzWlEUsyA9xpeXkcXWok5HD0qvJbf8RuKQORrTSFCmh/KDrwLo PcTg0AG3+0cO4aFFNCqYM4cVZGu4leYRHlRevtr724EVbh52Efr1fRLNXXmK DDMJoD0rucrdP4lOkvsOx6UQQF5LZs92RRL65N56qZeOADkx2twKdSRE8Dvy smWKAUTINdENU3RYfm8Th5xby9jXZSMO8mnHTVZcF5G2tYXw2DF+2Eh1/bZN fRGpGUSIljdKwd0H2tM6bozY/9H78iKzwowRDF6NBCoGicM9/6iBnHEGLD9Y JqFJdPzKAB7FqlEHhaWAafYu/ShN5vOYtHsjIAXHiYd2H7JmwPKHbq5uUzfU GYAunc/hjrQMJITcD22zYIBnZJ0L7V3/5t8Zer0zOUzDG3s0+I+zbl9FTx1k 4ugYNhBd8bGZSpFVZPbsopLz+jr6M2sW1T7CAPLh9CHPJ+ggXSfi02zXFHZe xdVcuSNPTKH4dbrHGnwM0L5bdsdvmv9YGRZ21YLmlwwLZc61q86g35W2ESUh zJDAO7RHzZKM4VfXX8u33+uQkft64tBBPS7IqniXjAzIKDP2QTCTEBdwzU18 1J2nIFWtkzG2tpzwnK7viwiZgtp1FaZG4jmBpU5Q9QMNL2zi3yhuy6PttVOo /1n017tRvJB1SyrpJw0/hJ7PEiSf4AVeb7ttD25Q0A0FS5EPJB5IqSIKVUVQ kPD93vQqHV6w03x76DZpCsPP/7GYrONmppCq8vL3rXYCoJjxm7OThm+100wr XdQFoM7ZbrIkg4L6TYfo97XxQ7KAYzZrHgUdmG5Wfc4uAAdOqHhdvkTG8Per sRBJ52Ay6ujd+PxGURiELSStZ4PI6Hra00EkLQy3S/iCDLdS0Suf/ItmDULQ VntDZ9VsGps/asdflrXgOI329oRf1xQSg+3K44dDv1MxvGrXbTxh9YKKvu4p EwlQYIMvXMo/DPypGF59d/AnIcuCijTobhxIc2OHpx1MPgl3qOhMPr2LmhMb vL+7T/5hJQXLr040FXG/eklBuun0vU00f9C9YKDjdRkFpV1uC2XezQ2uYjl0 UU8o//rtbfs/H0ihoNmIinfPFHlg76cTA0ceUtAYS2HHywFuICrN7C/LpqCD G7Pht25xg6NTIcn7MQV5PZRvSWvkhqbReOYamj+zOd/pJZU8IEPbr8v7cYPD ZnzQwfmUv4C2XxIfYqI+rvGCrYxxYWMMBbMX6BhrUE08Bc0U6hhX0PGD/R9b vdRoCkrXWXfSKOUDSqqD5Rva5/kdkPj00ZoPskfv6zyJoqCmEY3dDNl8oCN9 lbm6hYLNT7T2ErEb6aCgd43V2nn8gqD5mX5cspmCnC19FjuIApD0hqg2P0XB 8Ka0Z32nNeV//Sw2kyY1gkCMUPC+QaIgJfMPrjnZgsBCmAOFHgp6/l+7P6+x IHhXnJ0THaQgA7Gj78XdBcH63N49dzyoGH8bX4/NloEgKiLcOB4WNE3Dq9WF V0yeUDF8qi1yIkWilIqU7H/kEEpEwPP1SzQeSUWFN2OfPREXgZnMjMI2jkks vp/y566Duc7/P1dMfzAyozl8CQU/DM2O6JpGZxlUOXXN6cCuyWwPS8gKar05 zpbHxQOHxT4ijsAV9AAqQzJmueHqZ7td1luoGP6XV/ThEWKnotnBuyHnPnPA o63b7Yu4qKjvpnqccDEH+MkccOWNo2B4/xlpRUs+koLqcwILsgd4IPzlYmIP bb+S221M25J4oCIORxJ8QMHw/XPvr5XxtPOmOtvKyFjMDzmMtcE5NHzBwt2z ccmbH+J+kN4I8lMxPP9jzxChhiYfJQl6THsLAZ3Xrp+SfFTUzI9PaHWjoYED Qqce/6Bi+D16+PwHn8dUDD+Qxic8Wapo93EoaBuZhi8igtftuGeHsfuUsn6L Tl98ApNfvPu+dm2ViAovPlg+ncYOM6f6tgoenEAtfPrdH/XYoDr8cYLvown0 +SOcGRxlgZvSXbELv8ioaN933LoTO7ThB+NCXEax71dly/MXdh5FlorWRLZM WQidK5tZdx1FF49Mlk8UysINi8K0vkujaD3tr2BavyycZqzuFvYbRTZRaZZ5 X2RB61AbDmpGsH22Gg+s3UsaQdr4ojtWZrR9P4HuCBSPoB/f72xll2KGwElj +OIxgvl/2xvunqpMHEHyX9bvFmcwg0NnzFYZPUYwCvoY4v5BHNYl3O8K0XDk 1ta0xab3UlCy3s38KJ8Bbt3ONHo+KAU+afttn8VMIlbRU1Iah5gg2KZtcLvf DPZ71vzCdkklzaDSkwevOeoxwVxIlVqNwQwSSeXdueUAM8y4KnpZ5U+g1H3b JqkVLDDA3Lo8WUTzNy34HlXhOGCgcW/b7+fDmD25emX8XNlTIiY/U6mtj04m Ihs0PCxwkguYFm+bMZUTkV+XbNOyLif0btPMoNoQMf1lv0d/+rQlEV0OYO50 4OGBzm66Jm9XIkrNzDkak8oNCeWs0aOXiJh+5Gk66avhTUSWa1s0JO24If3S YlzByBR6PuB1OEyYB/YVPTrsTrMn+yqKKJlT3PAZFat29U+hyzwn9uw24gHd Pv9S3u4pZN8dXmQRwAMPGWNQ5l4iZs/YVnk0nmrTZPy55eHLvHBHL4fzGBBR p2nw8/PMvPClka/aRZ2I6b8I11U6Ftr7lUbd41+O8cFD+vOH1jSIiNjUtJIQ yAfyT+TkF9WImH411lI5Pk17PkfAO4akwgfpAYE1HjR76qPU+qRyng82OkQv 1jdOoQG3Vq8tNXyw2D8jENk2hVram/6TlOKHvpo/0Zxfp9CiIZ3X9iP88Hl5 YbrlABGznxIscNLQlIhSpt/94LYSAJXDgU4TBkSU/51zjjzID7sbevY7niVi +pNRv0rcg7aeYzFfTRIbBeHHN3NJQSciUtYWFVEwEYTeR48F844RMf38ipAb 4n2aiP4EtRCTuQTBPmLopMwOMjpYvMP1CU3/7mWPM7LaQkbJv8arZ2j6N+zh bQ8ebTIivvpMjiQIQfXOE9f/0yUjRfmBrffFheAiDCRN3SFi9lrsqfvg7WdE hHtJlu7YJwwn7EvsOG8T0ZxEysunr4VAQXFmalvWMKaPa+UCcqQ6iJjMzRzg c2mAiATMA6ejikSAulBQ4VpHRBphDyRfC4tAT4XrTpXXREzf69ReJG+pIqKN U9+46ReE4UW1g5vFMBm1BHM73Lwv8r9+QZakog0sfmFz2czlwDIZbRwgK6j+ FgHDk60lvc3DGF7oX3jVfFBwApOFHEq/X9s6gUy5bixFKopBasJInRthAmnp v7sXd1UUuh5GOklenEBhOMqRmSRxwB/lfCYxMIzNs+Tnn6/bqTOByfu1i/LZ p6eR0p2swe93xEHUNMZqkXUG8291THgepYjPoGuCB5JyjSSgLO/e/PLnCfRL TSDYe14CUP9RR0+FSVRZLR8tYSVFw//LW0u/TaD5nJXgYQFJMFaoeCIfOYmi t9jvojstDRxban2plEkUSPi2XMgrA9VsY+JBU5PoY8bvEhZ2GdD/JpZ6NX0S GbJYHo2+Lg1nnL67Jfji4cAO+DNbyg7CWY9fNiTiYdwpqYX9IA/4EGSvMuvQ Y/k2jT35bJZZDFid0KYftW2F3JtXSQdea52ZXz4xYP1b++KdKd6qDFi9z8iU xYYh/yw2Z+mAX3dpU9Isks/UGA4rWkHbS382WCfOIq0nQT8MXq+gofyWTBOT RXREusOEZYIBQu5Z3bhycBqV13r+yeBmg+PlzEp339L8TZ2ytEfDLDB1MugU syQZ0z8EZacj+1jIyBb9Hkuw5Yb910S2z3GTEe5zr2T5Pm5Yvtq9ZLiVjPgP Kco11HOB5Gn7/W3SZHRvfJ9h5ToX+Bd4flNomML0Qb/1o4b+mil0eJjhtRrw wbkr8aaONDnxjdbqKhsfBLWcD6fSZMNLr/d9KeKFQbLqXzWa7JDvLc86wguj OeoJ25nI/+6nXV+5FxsZSStPtGjxCMJOf2oqH4GMFnSSQv4jC4AADITmLk4h xaO3/XUTBSCv5q8I0//mCbzPXK4vEwDZYhH1niwydj+U1uJvTeaRUYTwt5LV XmE463OlLzORjN7TmS/7hwiDnzdXdStNJvgU2iqECsOX824912OnsfN6Tc2K t/DFNHq7TcTB9IcYCG0rK67ynEZ2ma5aIfvFYFw3naQ6Ooei11WqFXYuI28+ Np1P1+kwfq3uP5b3OD/jMH4t/RBDikQ3Dq6dtXmmFyENyvUnHvWU4qAq4s/n jCppSNF1N+lsGMbwkQTp1TXrLiImPyI7yVZ+IqIM64P2WQscsP5UJNDYkIjh oyftbts6afrULjkh6mUdD/R283Wo0+zBJh7y5sZnWdDswTDj0ST+x/xgLfxt OvEKEcM/039Y7o7cJKLHrPbb1sOFgJenLqq7fBjDO292vLeJphIxue7jz3fm +AkUyU3IcrogCpV7a/n7gyZQmf1U78t0cTARlhPg3UPzn88QUtnipWB9x98s F2YSOqpe6b2iKQO3AvPPHeAiIX67r7Hy+jKg99dCx0+FAcTfxIZf3C4Dtqsq YxFSDHD+P9U7AcdkoFJlj4nZFTw2365UJiWxPh6Pzatzvqb2suAkHYgGus82 dpGwuNJDIZ1pXA0JMWV6vQ12xGH3dTO/J6DBmfAmlA7aNlDFJOMoFk/bnDdp 1LgUn7BAk68w1r/QXcTm527i4mE28pBqnRTEVlx89aN5AZsfx8t1su9xPyMW T/vRxviEferfo6fm3rs2TATwTtr9h/kqATwbfzsPxP3jMeWsOZFclkCA7FO7 Tt7PYgOue8GPdbpwGN9h5yldbZ6fOFB+aXiIvMwNYcvBB2Vp8rimYoUlGw+k to/8kn1DwPIBqxv51tZFBGjauxw+m84NB8f5wort2LD4DEWwMY1Vmw1G9vjc WA3khnz7zwVze2k49Jy6/uMr3JB8wd38+M9/fKqhnLXgNbiAWHa/YWev5IPc 88FvvQpwGL/i6YI7CqR8HPSHbSxYfOSDWtLNSq3ntPV321lavc4HJRb/5Qcn EbD8hPxQqLVUNAGeUsXfMcXwweC2uEBOIzYsPkRsGAlhFWODVq24V356fPAh Yl9FtxANR9NHzWe48gHTIyI/+yECVh/R8UE/9IwmAe4x/8iIvyYINJVf920P AUTWjT/KxwvCGJgy9jGxYfV6lxmjY//2swJdhLuP85oAmFk/0LT4ygpNeqPT di6CcCxOI3BygBGLP81zBr4P/8kId3uu/OVXFgHH33a7qHWMcKrJqJr9qQgs 7RfDU1+y/uNz3P2BXT2eFTL1kycCC4Xh66dnp5z9WGG2bDq11UMEzmoyvnqO WDH78ovT9P2vXawQ1eMa/MlaDDqFdCtu4mh+u2bhE9VwcWB6+jz9K3Uei2+6 NTG1WdMvIEXvJX+j7VJg9Gln7jGtBUTwjPux66gUMFqPPBm6i4PNeHtf9h72 z6k4kMxpxMesSMPRZ0+Xymz+8c2yWx9XvCfMAg5OjH8LjNfRy1OFv67wsYDr bXpFzd3rSEvENMcm6C9qzBbs62xhgGb2v2mMwAg+az2sF9boYWYtfZ1dn+Z/ Oh6DuGI8pO2J8LioSkUDQa9b7n/GY/GwFcUXBaJWDOCyqrDxs4+CFglvg7Yy c4EMs81QLM1/7ypa8NQyou1/jq3OyUIKKqk5EOK0QwASDxfdSNWloo8zL04t iQvDE5uOkXja9x3+VfB0ixJN/jTy5qr6DJbvEDBPiLHZM4MSE20ymcokYJ7O j/ur/gzymiXj781JwJNe3tEC+xks/1HI/er4RcsZxClAd5/8nyR0nRDpUjCZ QfGX7OzeCknC0MMMhf1Cq9jne1H8e6TW/qL38YaVdO0SIFTc/d1m5C+y8HnG Rh6RgDtHBtdfNlOw+f2HqpVLy9soaM5z7TTTu398Byrq65Z+fDioztf9QLJm wPSUJ/PxCxV1ND8rakdVpyYdDN3SrusNYoF4QbngeBUc/FRZj24TZAXCPXdy igc9bNdAhbtXWLB1Zmf3SI7/X11S8kx+7ywB0l+c9Ikpo8f6Eaamv7a8DF9F VbU2Hll7JcD1664zl6tXMXymcMTu6a1MCipztQzwuEzT1yXP1OpvUbD8i3au vYtgwCxmP3dL/Xe7OGgW7ej5O6lYIAZd+3KuSoTMok/torGfy8XAQDXW3qfy H19dvi7vm5+5s8j6lnlvgYA4+DgFVbPuncf2w7B0VFlIfx71wwqivyoJvhW8 cmse80jspogzJUcSVC/2TxAGJjE8lX30cTndLhJ6N8Zqa01aQbmyrSOB38go YEqm9aMhPcTYG6o9ektGiwvVz+rt6SFP0Hlo+vIKZk9Vdiu9u3Z7BRV86ZvU LeKB6dJ2/LWMOWy/mSeNVx7EzqH6a++tMtMkoPc+yXKidAFlujE5eHrygX+y 2ZhP6wLKT54tpNzjg9ldF7lP/mXF8idneKn2d9ZY4eZTka3lWcyQZCo1HcPJ BqfL0iwSnrLAWcF7kqKWs9i8afdjU9nnbGfRQrZ7zKWbcqCu+fKG+rlZZLZ/ S9dMkhwsdx9/E/76Hz/ezjtrmRyps+jHtdCQHe/lwCVLImuwmYTNl61oPVy3 s5GEvP0oXV72snD6iZFBdAIJ4w+KZItNT0shoVwDbb/jfLJgop8YbBa2gc1b rBhklWdlXke4x60q3BMbSP2grl5pzhqWf9qc7/lbItYiPH0DfRlVqetBq+hu rKsErzQjHBHj6QizW8Xm+5K6bv3uLV9BiZJfH5ImJCGw+sjo+scVZLnU8J1+ 9F996IWZMM7XDyZRz6LaMFPlChr3odTbdU6iGfdmfvPeWRTAwyqdQpUD7p6R C6wNs0i6LZwu4I8chCxAs1gMHuPDWr/0I7SCJhfIsrncneWEqebv0ZG38eCS TlU2duCCF7Nu+qU38Rh/mjfDs4WbkXi4Gn7pxbajvOC46PgtKYL2emfIF0jg Bdm2XI+q8A0Mf6qGNgfKXtlAE7pfzYzfCoNY3AFZPukNzN97k6nix6C+gehb dWzYDohAbJML9xkJRjA1FrBuvCEBFkvG4as8jBDx6wOdQaMENDvsS7+cwgB3 eh0z3++Whi1vdaaVPv3jAzY/xBgZR9OrhzTsmipkZeG3lxF+lQuH1ets7ouV niHpoYYsfJMwrrIf28D2O/B1z7M8rw3sfDgPWOJ1Lm+g9oj9PO/sZEFY5rBi //I8euolvO1wASPoi/PIlmxdwObFbPINtH8r/bzzNCMkvLsb9WJiAvE/NLYc nGOGXYVmCs0stH0qHpl6l8IM2akiSjw3yMjTk3QgrIIDrEaS6Ld0TqGgGF9B 0ac8YJg327TjxxTKaLvAbBHMD5cd0pQlDpNRSTzHYSMXIeje73TGVWAa9R6d yidpiELMA/xNYZlpdF1mKzX9pCjkm7bG7XeeQHtvnL2+U1sc/ly8LrFgPoEG xKu5ZgfFoJBk5e/zdh3Ds9P95SI1+esoqNng7aKaKLhq2MpmJa6jY2f9K4cc ROG0+bmLDiUTSOT+25rhhxLgxr/D48vzCZT1fP9CjrUEgKmUtRbnJHrtxeJS ty4JgnM1jFfwk+ibRhfjqa+SYB7829TFYxJd32D7NLVLGp6BrP0Ft0nU+rnW cEVBGkRzF3Fc3ycRzl3BXH9IGkx89nztOEHC7IX8bRkeVRMS6j1+4bDsUxlo Gp4ydpbFw2b90bd4zTYxZTyUvc6xyLkhBxydsmO+2njwUN7xsfCCHHzoK/bN EcVByafs1up4FhhKkkl+vhWH1ZdSFixlNeX/zUV/FXTWwclkAzVGODzXG2QC 7rvWLCQTHMb3oK7TzF1tiQP/JeGW51WssKrmoMzrggOe5KMHfATY4PGk0it6 VxJ2PnpmRz0yT+Kx+dDfuoIF7ljR7t/LHs52D34wFC4evm+OhxvcHl4Xivkh /3zWK8V5emxe9OuvFpwN0/SwJc34wyU7IfDlEKzWyMJDP/v1DbkAWUiKkO65 UYIHqUhWUV4LWbAPXbcyer6BzIT2kseVFpHbde7IKPc5pL8jp0PZig4YfOu9 q+RxsL3AS75+EQet4m13ForHkGi9sqJgNT3Yn9hy1ThhDqUSD6M1cSaYlvJl //tnFi0qNFkvhIiDt2Kxs0n7LCq17xlYtREH/9i7O3NXZlGE0nUBlzxxqPe5 PpImPocq7HeVPRz/x38wbnjf7XEYDh7tqj9e8+gf78jPX+I16VULaMI2Ts+Y GQd8CVLtKQ4LyOjrWbZ3O3EQZ855LoRuHu1tGPZXmqTtwyeNyaKT/3iYE6nl oxHTc2jkRbdMXSYB/Lmq0OTiHGJYtbL4X/+H8jbJ645abHD/mNKHk7yccNb3 cL3ULjb4vlRRHtHPA4Tn92sHN1ghUYc88+sJP9zX8Ura+5YVGl6PcIdYCcGr c26hFo6sUOnnVRXOKAorg/6/70WRkd7M4P3XXxeRtW4gSTqYjHZyqgt+GV5E 0QoTvJ+MKWjBfNGkXG4OkY68LNT+j4r1DWQpc1aKSzL/f3zyW/L71S/YrSPG 9Ehjs156bC64zjVwMx+hh0txQuxVf5hgOYU3MdISj/lL6Zfvvz93Bg+b8XU3 NqdleZqcHx2VyTrLBgw+PeUTtPOWr2WtRDVng5obydN3F2aR1anI0ifiFOx3 ZVeJIubdVFS/81qqYcA8lreX22M1lhxHj811vqd6y3grOw2PEj6fXTXbQJ54 8amr4yTkK7Jhxh8vC+G+XQdN20nolmqX1Ph5WZhk7GzRmCLR7MPSRHaqLNRa 0xXsY5lCIXqP0is/ysLFmT0KDdMUtOX+eZZMqzUkeLk0IiyeQnv/QHGd9DpS WBI/1vJiAYu/qHgHRNwOWkDF44ORRg28IOe260NT8ALa/3FrF0s7L5Cf/UC6 6QtIR3Wu/7kqH9Rf1XRlSllAD1m/qY+L8QG5P3q/1985NDVxh55LVRIEbGwy DFbn0KPX7/ZpqUnC65rHx6Rkx7H6OV2yqsG01ziCM3QlP6/RgZZ3Td6a8TjS u/yrKKOODlTW63efbRlDtoMPbW8+oIdn596cvsIxjorbMpveytDDWltqRGvC AoavnEcChAxov3+3hlidnQ0PdHxxEHxzcQGpXiMnMDvygKYm/T0DtwXE2tAd 0/eWB/rX9+ZIRy1g8W5pDn3TAZcFNCiem9/BywstJf5yazVzyCkweY51VAI0 h1T5/ubOoVeG/dxvqiVgCi/5s/TkHFZvO3Ec52R3fAaby51n4r1Y2zKDgkwv LT0en0Mitve3JL+bQe/Elddu0M+jU035kR2FzGBpZURnpLeK1SlniQ9pnRX8 izLqz198fZkZwylrKo0XjvOPodMDalpEAgM82rIy22s/htIdjwVv8fjHax6m /aSh+9gC8shyIk/sXkXpu/QiLE4uINFKowr5rBV0aePN8G6aHlh52Mn7VhKP +bfN+IMxzjx42IyHlzA+MOoXxEPVp1uZRg6C4JFw7pejMB5G2DhUMk4IQrn2 yb6gog30oNpx4wLNH5UUfmcQXkcP9blOcbyn/vE9XHpjoVbcKAwRfxzY/9D8 hU08sz1ulUGaBQeiFvaafeMyUK19kyGCuoF6V022NNDJgmpcjWrSGB7DG9z7 L3vX4NeQpxkdc2GGOAxnOi5qnaOgr1b+19L+N69qvslOcYMekj6+uPOcJAfz N/xSag6sYfj15seDr+Pp1pBeSl542IoczH7T/GCpvobqe2RIWv1y8IfZw08v cA19KLRq/1FOw78q3Au559aQqd/T532V//iYLNSdd2lEMEOAMeeY+cYGpmcI vmZm6l3rKH8qGk9vwAQhPIQ6k7kZTJ8KeTWNZzXOoKyYFzxbXxDg0A6/jsCO GaSV+/rT0QQCzLJ+/yK4m4KMvT/O4nMZQaA5ZsickYLYvWphnYOA9Y8Mfvi2 W/XVAnaPPHrrv0wXTKHXmVyNYzS7eIUrSolE8/v4thbQRbxkxeJFhIONrIrR rHCgsDBLvZMBlMROcw3VsULUqca9MyEESBZPyK69hsP0XUt77eEPQQQofrsX d+8oKxgKnqnuCyfA+Pelu18aWeHzi6K6eQU2TF9+O2xtX8XPBuYrWnW31lhg 2xS5vno3GzbPU7N9nef7Dxwk6TGa8TziBstxauCuIgLQLSj8J9DOBVcc4l6W 0uTgivSV5hP/m+/CK21bigN5V/G4Flc+6FKp1a9JI8COcM0lzVZemj1Pz6Im EWCD+FplUJoPBMo+vxwwI0CQ26fgJy0CcNeR+/YzUwIMxC+fLuoSgNn1PbKM VEZYuSUycPK6MBiMLwU3XWcEaZvw8ofKYgA3ssI9lxiAXaPM89NhSQi9RY3j 8GeALyavjAauS0POvIZcoS0DyB0PUWJ/Jw39UU/K5Gnr8XSH0rsajXkszrdx vfvYGg23Dl7KVfB6TcDs9Ar5qe8W3n+8cJvn4ib1b4zJqzlkn2z2foKGz+tq S5GxIxXDOeM2xzJIurPI/U6kb+9xRqzvwoOpmcUtaAVxNdj9tqlaR/fMdMlu NHyz/fm02b7Dq1idzHFhudALT9YQzyvqg/q79JieGLxNx3jq5gqyzlgasIz/ x38WvUe5OLeeATKk7Eb2qpHRvd2xtnlz9GD1Zi3/IZ6MRvnubVPbjcf6lv/6 KK1ei2GA/V93Hu0yXkbcmo9J9y8yQFb371Pyesvoqkwn6wpNPkONz+bI2EAs PPHtxAvM8DDupc73wwTMf9XesI2/rEIA75RhpcB0JnA7lJGg4UCATt+ipp3a LOC89YHljlMEGGvuPaWMZwHGS7VX33jOYvfPo4pe1vb2LCKHRF4Jq2SGkQJJ F+rWWRSXPdMamccCx2IV/ISdaP56qeoIcuOE3PISR39bGt54/1j6fgQnlFAy LrqeX8bqjTf/n9ITQpHSGCfYPonxaQ9YRLLLModyi7jgUkMIi2TJMpI9m+ff mcMFy//5/FJrmULBa/FpNn95oHfXTYvexin0olvfpGsnL/AnF9Tmu69g9uaF 3lq8Lm39RVfUbuWz8ELF3bRO+esrSKr2cveAFC8kn5/g7PVYQaVzTNRXYbzQ /kFhRThwBfl8/M3yzIH2/ltPTmf8nkLpXEOfKrv4wZLgaOozPIUMmvhHTjEI QP/73Q3uzmSU4KC/VaVaCMx1f7xcPENGRaazR2XbhCBqPF7ZUXUafdcj2sTe FgX24KJlquwslq8z3xDKNVmlIhPn6DWuq6LwVP2FQJzWLJo1/NlVxCcGR7b8 OkAvPYOOOcXk+VrS7GPPnu5Mq1W0vzonQ9xTAi48X4szMlhFnkINtaY0//Om 3lEfUh4FaZC+OHBGyYCp/5G7lR8pqHt+K2t9pgwE/4oaXDedwvjuNnQbj8Wd n0L0Bi1Hjh6Ug8/RBtZjZlOol8UfGUvKQaQ7pxX7NBV7/XvfhCMl/LMoXiXn h56+HNBdOiFt30RBDlwpJ88Vc8Ejp5aTRyspqIbn1x9ZVm7QGha1ux9OQdvj Gou1n/ECUc5S72wEBfU11w4en+UFkx0cNmHvKeiB8Vf3yWgBSNt56ll9De35 Nwn0c+8F4Gxi6EjHCSqyrOs87+YrDEevO73OODyLtpgPtModEoOdv+cs6a2o mP9b9Tn2ToIbFT2+vGNL1XVZcK0snX6vRUU8F+13MpjKwkxIfm+U3SQyE1bs 4jVbRdc/5jILSzPBpyk5i86vC2jox6x9qQoVrejysTyk44DDJOqZM0kUtLKs +ctnLw+Yb817SoyhoLj5rR5L13hAeEz8anXUCupJ0yppP8YDvEfsX5vEriDP 5rpj1q48ADmiHw0SKegZn3mONB8/FPPcKve+S0FPRkIGOE7xw/EerR2qGxSU /HnoajKzEFzZq/n4Dj0ViRkO/N4nKgTpqs2dJu+oSNf3VgxjvQgcXzgpyBVC ReHf89vTHslC6q0ApYDfrCCdylXVe5IJNM7bD7VdJCGRfaYPwsdk4PRYdOD3 WyT0IX7owj6cLLwVelo3HTmK7eeeX4/GDB6MogYNdue1fXIQezPfojR5FF2P VDo7sE0O+hs8z5hdG0Xd8Z7hRmuywK3td30uahRJ5h5aPsQhB0fq/ubtPj2C mM09KnHPWKBIt0OKI5+AzX+pldDKXHpCgK2p34aOM3BAa4PzxRmaXe55xRD5 q4ED5PQNcDEFBHD9dD7PW4cLcrWubujmEeASt4ACqysnHCFJ9ph04DC+Qc/R DmXGNhwoMFqJWtVzAbGi2iO1Ewf3Yiu7HllyQ1AuqcUwh4DNk9mZaX9rL+33 mKgOaYVb8gB/gO3w0WwCrFnHqt75yAPv1+KeEh4TgDTuau/hTcOneuU8+2l+ mIfyZf01bl6QzZlXzqzCYXyEd0pvzOnW44D3Dm8OessLRwZDY5MrcNAh5xl+ dz8ffCnfo+7vQ8D6s74xW7Pfv0QAl9zZXYf+44eH/Uikwo9mX9+yRkIIPzg8 MjvG60iAvKHjPueVBICvPbra14VmT3kkM7pZBcDg01ONBCEC1t/1rdY36KYM DS9Y7vaS3CUEMvdy5C3oCHCwS0zJUVAYdryY8itm3kAFr+P0AlNE4J1VWXQI xwZyThYV8o4RgbXbVw/WZDJi/WE4yZWjQx8YoWxnRIpBlwhMCTNcJJqtYfHd cn8ehhSRNaSfWMgqd1McUJ+4WYPuGtpxhFl4t5U4XNo73Tl3aQ1N6fUkXWUV h7mrH8//9lpDL3L+GB8VFAez0T0dzw9uIHWN6I8NN2RhYXuQs77LBpJziadv 85QF5XCtN1UF8xi/2IaclHxqFBGdd2QsSizjgvkUH+PLWkSEjzsTO1TJC13P sgmfv+Ow/CHb8LvzV7pwcFcwq+HPcR5QjJhkTaKdB5WPr54/rOGB8eYbLn9b cVg8cLH0rH8S7TzlfK68f4GZF1JiqzYEjxJR8M9s5YZUATiya7yDeBeHxTsY mS4fTHqGgzALPrILPz+0lJ2b9sgmorC+qqhvZ4TBTMrplMz2CbS6cvhEyi4x 4Dd+rhbQs45KIf3kmWER0Dxbo3U1duZfPfu2lGa/5BmUp/tyt7uZFBzcM7fE fmkGEYKF5727JaEoTjuur2IG68/wcnp4K/vFDJr8cjDrzgMpmI1S/+BWOYNE w+IeMKz9rz74faLZxxnkZn32ttqyFMR4Nd4XN6dg/RlHhZ/RRbtRULXjWyVn BRnoMPJ9UEt7vtXb8cGWVWlIwvkGZWtQEFcWd35ehzRomSkk6JhQUPn8Eovo nDR0//mrS1zBwWb/x4emmqTnbHQwFsU/myQrDTaivv5kPB3sy8b3lu6WhlVi r2zrORKCPiG/vC8y8P2U3ZTLKRKyChJryH4nA2UHqHt1H29gfljN0pdwnn04 MKG0x/5UYAV8aMevihwcli9+U3/l99w9HKxXzCWal7ODzrU3uEMlOPBTDB9K oXLAtkTDd/nVOCw+PPsjR6yddh8DHLLPKxhywmf3jcAxRzyM7l9aOMvBD5nk Wdtta/TwLWxpbYJFCNJ6Tsc6rdDDZJHlc2kxIZh0r1upKaSDzXxBK/2qZl4m HeiLVg50dkvAjdCk/oIPdNCiZkl28/g3jzCheH9Xn/8SauV14Ym+tIDw2RMv b4wsov08V728ztOBS+LwK782SfgiH923/SUO/Odja699lQb1AUmDmYoFLJ6+ yd9UGdy3xFzCAKZaf7mPaa9g8QOn7fepZyRWkK25vZGZCR/cvNV5TltnBVW8 41TPZuaDyAg3YsHpFTTF/9U9soQXvq3ePpRosoL8A6qirw3zgnuafhD/4XUM fzh7rNFrXF1HLimlNseuiYK4fEWJ//kZFBYwsFX5qSQcmCg7VHXmL5bPOdS6 HyHuv+h+abpZ5HNJKH7QGeTOTcXi0dmBP7kYqRS09VLNKe4pGeg55aU5vUxB ez4arj1akoH1YlskLExFZXXd5kGysjCpp2bUIUBFmpnIcpuULIbbSZLPZWa/ LiNf84nGg+1zaJP39grTstRQ6jzWZ7HJV/UhUXP9mMAy+vDdrzdAcRbdf2H6 aMVCDmZs3NP3/1pHYbbL29z1cXAo5+7z1tt/sf6JTX66beVMHyO4GEGtxHJl Rn8VyR00SW31nUSeN4wj427g4dqw9kOSBidYGb7/aRSDB9k156L/lnjgp3vP +DEDPGzWw8lpfky9oI2H+PMlqUcdBMAp8T1l5gc9xr/ucuhAGLWRHjwmGhzu HBQGv5ftHN3f6EHuiEnMBkEYKrfRLwck0gHLN+etQUqSoLFvI9Itjg7ipZ3H WXRo66/OmRLkTwfHjNcOVWVIwiDX7VCGEDpwu9BssXFFEmLuN3k5zxPR6Xsc 8lnV7LBmyN4WZ05EsU9NQhmP8ICAAssxpn1EtEfl7c24HfzQ86vg9PVAIhrP SJQS2BAEP2PTqKZhIgqXZntj0CwC+ZOPV3y66WAzn0jZNa/FRaKDvwmD1IrH 4nCfNMoX+JkObh/wCdPRkICwr57GKysskPQ1tN80Xxzrl+qc80zmlp9BD16F TpuJLiLlF4W5b8S5YdkLJ9AwMYP1l41eyOZSE6dg/WSJlWl79UaXsHqYzX3v sRrre/+EHzSbk8t965cwfbn5fMH3DtnrA1JwOqDFL/Q17bz/Xx66q1b3BtKS 8Bie8Hjw+YlRMB6z7w1Tmf5PbXEYP9u265fazq/gMT77zbgv+VBMvRoPCes7 ai2KPqRBw5U/F/3ffr6Cw86DxZ8nim8EcFg8PLfITObHr3/88vtHcqiNTjhs PpBtmF4sWQmHfV+c2Iuehpl1rF6425Z//K3EEhozKlnI0N1AKLVDfM8eEmY/ h4oDJJZ8//G1726KGyo7/I+fnX9obmJteBapvbD7OtpEB+e2+RWKq8whDcny Fy4ZTLCY+1Pp6BsmbB1V7iuMZ7Pg4Wj+kQTdctr5eGh2Wp4VDx6v8anbSgTh gh1HvUP/GpbvXJan/+0aNY9CWQX+utdLAk+eU8xOmn7/f/nBCzvUVFfuMADb guFMNcsKemtaN7Yhyo2tb+eVpCeW44votktZjP/2f/zdjhNNrxo91zH8Kiol raPcsYblr30dbjLfcl5GAaZbEvRV+EHd5s8nYatldLou7ewpHX64YfRfbUDu MnLQucDoEkmzv8c52M86LqOEnSfTm19IwbrK5YkuxTn0cotH3N2/4pg+suMd qlekne/mqe9sX/b94zc2unrGXD93FPv/Rvg/Q8cyR5E3XQ4u0FIOHuZEbTTn j6IzpWInS87Lwa1DO7zTH5Awfe/5XdOy9t4G6p348UCRZuc+HFtOf+w8hnz6 r2jouuAhPC3fxSSIgly7XEfkaHpbmpmRc/rmBtJ/UKB665kwLJ8sUdnVv4i+ R/tZn1bmgra5kR8k/VHMH/o/eWH3RA== "], {{ {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJw1UztMVFEQHdcfT967z3uDn8polMIEA5WJLX4KSvttbDXaqFExMbi76AoL KMbEwphY0Whl/JeU1CJGg6XgxrVSE0A8hzMULzOZO58zZ847dO7S2YsVMzuP byu+2dxsDs56NFvsMqt1m1WRcD0zuw3/WqZvpFt59Uw5fciZ2I66HWZH4deY k6l2eJdqmD+GnsM7zS6YerDn0y1mXbliN4LZalCftaA61h+rqO6m13Jm3bGx hrECPe4C9xnEhuB/zIXjYdScEcf/NQEj/C+w/ci5BdyvknK4J/HUfUf6z3cL 9wvYRqa5fP8QhOseal/C74X/E/Z1EAcnc2HhTOYtw7Yw6/E2cI23KjA/ALYn 6DuDvZ6VZgedB/LBOTWfRXzE2S7AD2raiP3jrsjrgNe3eP+F+v3o0wO7hPfv mWaRS96G8w4j7zPyjwfxyb2IcRUYvsFfgf0TVfsjiW9yxRnswf6sP5GLm1Hk jifdltq5UmrX0/AHc3FCboiXe1AnDfdZT41t6MQUH3XNHHB+yBOxcmanFCcN z3kUlf8JOb8dM7FPAeek80xL3LzHu6Q9yBlj7Fl1HdZdn2tRGN8HxdoeH/Jb roMfS4rzDuSQce7c4/zvgR1L0m0z6eZTjmcTE/Fwb+7PXcjzjGvbou5C3ZFH 9qbWmMsb9fn/SF1xdqXQXgu5dtroaZrDub2uRc7cW0pTi95nXyl98J9bcQ0c AeZG1Iym89nyPnxnLefM+279hbRC/gdy2WXX3h3vw37zrhlqh/xy/im/xaT3 X3A981aXS/F7tRQ35IhvnaC5fwv9E5zD3aajOL0fdYcJ79n0W7SS/h/WvAmy S46TvdiTO/0H6k681Q== "]], PolygonBox[CompressedData[" 1:eJwlkb0vg2EUxY9WVXn76vsmPiYhGJqQ+htEjAZ7F7OwIJFKRER9dlAfm0hM Jiv+h86IkBgRUZOQqPrd3OEm5z7nuec55z6Dswsz8wlJA1Qr1d0l9aWlEQ4n Aumc/oK+npQSWekyJ+21S3M2A38TO5fvlJ4Mc/8h6Rqf4F3OxtAqdTAHzgY+ a5qnaD3GPrtKX4Mbp14y0iv1HUmV2GdraO6De9DMo9dsk3rBk9wfpX/G0y96 0/RF+jLzJ8wfUOvgDeoW7j5wbpM6hqtSRfmdQ3CZOmuRVui3wAUyV1LSG/0P /U7k3BRvbIP/qPeMe2iAG6F7M81+3lrGYyntO1gCH0XuxTyaV8ts2e3OInwz 8qymKfI2c/6W7Vxww7FntR0Pxe7JvNnOviLPZNkswx3a1/hZS/nOrkLfqe3W zgrwH6H/tWWsg/8BtLVOWg== "]]}]}, {RGBColor[0.3862570871581954, 0.21882997743970267`, 0.6599113792665778], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNmguQVdWVhg+3L3379r2nz71HHsZgB51Ee5KMGmdieGVMMlODykPopHzF BzrGSc2kJhMzowiaxBhAEeMENUOMAUqKGCtBzUQUpPEVRyG8bKBBkFeg0SCK vMQITZz/819dWtWn9rr77LP23muv9a/H7lOu+Xb7vxeSJCk1JIn+ku3NSfJv lSQZpB9bWpKkrW+SzEmTZHYxSarq+1KfJHlVYzbr6affz6n/vxuT5D31/yFL kjtFn6HxD5eSZFJTkvxKPFfWk+RG9dfV36PxN4nepUmfKXr8EX37FbVTxbNT PGfmSTJF9KHU8yyMuV7Q+HM1bpXokfr+mL6bp+dWrfHvG722jTW1or+jtZer SbJb736rvvnqmyJ6gXi8rOcu/b5H7U/13C26TfyOFr3OHaLX1L3OflrD8+r/ ougVDZYNMtqi5zKNG6m+M1i/1lzRmGs057mau65v5urbp8TnJPX/XP0rJZ+P iz5f739ccv+9+nYbPPXcKl4dZdNLyn54N0tjjlVMM6azaD4/EN1HexosepPG XJubfkBzbdCYk5Gpxnyir9fWUrQsV4rP57T2dfo9SP23acwere0TosdobRvV 3yr6DvWP1e+t4j1evBfFt/+k368UPX6GxszXmNfE758174tFy3+1+r+qeWcU LaNn1Q5T/7Oij0kvNuvdXH0zTzy/IVk8oP5l6ntVz0t6BpX9+9zE+2b/W/Xc pHVsV3+iuZaWTSOTi9QeDfkcjfHQnBH8kPPeinnyG517Ru//to/17kehe7cF /bS+m6Wzm6Y5/qfu83+gaB04pu/3NJjO9a5H+6nXvT/0iT0+Ih6zgobflOC5 OfY4N9a1OdZG37LoR+exMXRoRMiPMeyZ/Q6WvFdpzscrPpuFYY+cS1FjdmrM Q9L5p9S3WM+V4vndFtvY9Wp/WzTNfrs1dqzofaKHNZvnSvEe02B5j1Y7HBus +P0wyb9Z4ydonnMKtoPRmve42h49a4vex/LYywVNpgGXGU2e70HRE8XvRj2H RV/c1zwr+na9ngQbZ7/Siz+CPw1e18LY77bQBeyCOTdz3mo3VUwzHrlzFtj1 cr37Q7N1dG/NsntT7b9KFk9rzPmy0/O1n0P6Zklu3Tkac4xV/xHkr/N9TN98 S+MfrZk/5wvu1Zpta9jcTvGeJbpL9JYGt50aM7vRdvV5reG6itfEerCPYUVj SL3Zdse4lmbbJja6TTxPKlm2s0NGyOfeeP8Z8bk/5j9L9JwYBx6iow/EGHDv nvgWjIP+O9FDC8bFdtEV4cBDojdoj69ltuexks/wwE5wpkcy+SLrkKyuL1uf RhSM6XNjXnD0m0XPM79mOhef45mx49LUfgX/MiE3fs+Jb/Ezs2Od28T/sfKH ODIjZNUtmdyu/nfVd6LkOVDPLeI1uWydwj43ap1vqb1PZ9df7/vp6db3yzOf +wWav6CnXfSD6nsLW4919PS17R/Q99OL/g59BrOxSewRrGjX+0dFH0jtX36s vXRo3Dj1P9TH+rspdHKp+ser/bX6b2n2nvFdXU3u/1nis+JcPxP+DV+Hj+vV b7B6VN1rOKb99fTxXNMT6yt2i13QYrucL/hzW+DbPPEdFWOGlE0jT3BiVcUY PyD48C14vyr8xdCyv0Ff8Q3/V/Qaf95o3ww9p9E6w7qWFDzfrFj/c2EvYA0y B5eIHZ6N/o+V7JdfDp/cGfaLP0En8SlHatY9dPALZfsYZHFF2f2cR6E5fE3R Nro2+OMviTnAfuKOp4NOYs5VgcObw0f8STrxkvov1Nke0rwbdE4Ha/Z5L8Ue i82OSdj/isz8R2n8fY2OG45qzA2S3++Dbmi2L3k+7Ic1H9de7k3tp6/Ifc7o DWf9uva1STK4XM/MRu+FPb2j/kN61jRYLuAK+oYusc7jfaxTXUHfHTQ6hg09 Fud4RLo0E/mobde865rM8wT9fl90P7Vv6Nmq8XvVrm/yGHhenPqMDmjf0+M8 RmvM4rr5L1I7I7eu3xVY8W7gBT4f349/h9/aj6wZGhuZJP5f0piL9e3wqrH/ MfEcVzGGgzlrStYhdAv7Whl7ZBzjiV9aNWaU5j3W6DgSf9kZfvOJoP+M/1Z7 luZ5MvrRefz4gma/o4934PrZBdsKPhf/8XTgyuOxNtaB3SwOPrRPBX1F3efx i6ptgHfYeHfF581Zb69ZTttqxgBwnTH3a8zPYtwJuXW9X8RmZ8cY+C0Knn+j te1GV+rey6MRlxD77Cw7/hkZcRKYBv6t7/UzJesxulvSHIc1fnhqXQAPwcXO 1LHXRL3/VG5feJrapcSbZcenp9ZNf6PquO7ksuMBzha6N/YbFP3YHzHiUwVj NvTc8C34GM7rdfHqp98P1613VzcbC07J7TtPVfua3t2mMZ9KrWvwR9/+Su8y /f4kMXtunWxWe614VkQPrltOj8S5769Z7w/U7Ltz4ki9e0m/f6n+ZWoLDcYS 5Hle1f7pL+o/U7xaxfMMtZdWvacD0slNJeMmGIoMWmPvT0S+g550FXxGlxa8 t23hBznPXWWf4UHx7Rb9We1xtPbweX07Rm3/3FgzIHceAc5f0GCfj09eFT7i 8sBn5kIHWP/A3Lh2Yu75d8UaOIeeOBf6uqN/YOpYhjwAHzGs7LnALWwHDH9b Mttfcex3Y9Dg4in6Zjo+XDyuzp2vkbcRJ74d4znzaQ0+99MqjuPBZ+xld8X4 BQbPK9pW4Mu35D608IImdoM/vGjbguY8WUOX+J8u+s3Kh/NAozOtcVZ3BNbS Tlb//gbbMpgzoOp8d3KLz4FcDP0fGOscEA/rRu7YcHes/63IK1ZE3H00Ym/i /YsixxkUOIdf+HruOJ94n9gK+kfqH5c7Xv9abl3GDh/Wu0KL47tb1TZX3Dc6 4pM3G8zz16nlwJmgI/BDT7ZH7okebah6/E+kd2tTx+6Tc8sYv46c32hw/ERc BO6C9WAvOSv+ET98cuDK1LD9vSFndIX3YxPvqTX2dWHdejVW7ZCCfTAxD+v/ YdlrIqfY3WSdSeqm36/Z7rF/cOZg+M0hkbuQw3Duq7WXa/T7xsAuzi3RM7zu 2HeY2gvq9pnnq51QMC/4DK46t3lEc41I7ZubxGdM6liIOHp8xePxa++Fzz0z 9VoOhh/HDzY2m6YOQH7Lud9Scl5BLtGjOf4o+h+rxmpo8HpB4BV5CXE6MT2x OnbPuWHjida0T/T7dZ9pR/CfF3ZPHNgeOTC56sGIea6se+ySsOt7Up/LZeK3 p24/0BZ7ORwyIW5cGP6RuIUcZm3UDIidOL+Tcu93vL69p+5znKn2eN2x+F/U XpI6XyBvIF5m/XMiZyIWZc2c29Dyh31DY534BnzEedrHn8TnJo2bllsmQ2JM b86PriLfuZGvVVO/n9cSMXjkVpfGen6v/h6taS+6nVm/wY6uyMX2lJyPvZeZ /nNmn4GPRibY8uqS7Rn7aKuYB3kiPMkB4QUOXRZx8sqSY1rOdnDFuvSF1LEx eRs1MfiDS+sy81+bOY5gn8RLxE4XRo5P7gR+XV0wzu0N3Bud2k6JZ5mH+doD G9vCTrGZc2Kuc1Kv+0WN39Hs+hj1w86w9Q9y8L6uBaArrBFZwGNN7vjs45lx DFsHe7DdS8q2ZdbH2jkjzhA++EpiZ7AGnb2qYFxmPezl9Fgna2FN6MFDsWZw b3bu2GB1zfHm+JAnckE+4DlxFnbVG3/TgkvYBLE0uA8OoO9g0cuZz2iN2u3i /2lwM3c9gDwP3SK/IU/FD/9Cc98kPmnV9kA+AZ8j+v518Xknc22GMeRL41Lb DnkJ+dHukmVMvsh4agHg99aQLRi7rmScfTUzvVntTq3pa+QYajs19w/UPzFz rNdZcm6yX793iX5bbUfJc5CbgvHErNjCK5nHb8w855aYF3pb6AAxLnK6qu54 eGXkmFtzx9KL1T5Tss1gY7uoD4B3mTEX7H1S+z6VWKFiPRwc9NLAuKEhf/oY 16BvTs9dT2nLHWdtKDlH25GZ3q72vzJj6w1qfxk1CmoV3y/57KgH4fdZD76f etzywLSBmWsyA9Req+ca0Tty16jwv+QeW8IW0Dd0py30pxIxGPk1dWry24/p 2++Jx/wm6/P+qI+h/8SLxFyXVH2WN0RsUwjshidyosa9IPDkooirR8UYcPLu 3GNeFL8XWpxvnSuer2fO24ekfqDfyBwn3BGxwp369mbtZXpuGVwXMfCUknWJ /WMr2AwxM9/gR/Gh9N0f/cQ8/EYe21usI5OrjsHg+VpgxbKoGS4In4bsqMVT k/+H3HaL/RLjE4MgU+Il7Jg8Fh/KPtnviLp9K/3YOjKmXoCcOyJv5ozWZ84n uzJj99TIu8ZUHef+b4t9GDVH6gncc1BHWJU5LiY+Zk3Xxz3Hl3PryHUl13+o kZ4UNDjKOYFR+ADqI8Rg+NVlja6BTUytyw2a98rc/T9JjW2nha/pzpxL7M4c q3eFL78+6r07asYFeFNTWqffv9M6z6g6rtzVaLmBu9WI98CofYFT6ODE0EMw eWLUbCfUfebo/uGI6alv4GvB2t9onTfn5r8mdXy7ItYAfk9qti/4Zt26+i9q 327xvPvU/kfq+5ihuesi3F2wvpbIAakTEs9Pi/wAH4gPwgfgx8Fc8Ha91vO4 5vtc1XEDMRO5LVgD5pwVuczOyKewc/CCWtaTLY5dFrX4XoTY5a9z53zz426L vGNhk/lhZ9gk8gensSMwnbsf6obntTjXGxS2SU16edT5uRMiPh6cG9/ANvwR +8Dubo07i0LExl01z3t21fUrsJoaFvjzeNTqF5fsJ6iDE6NjJ+tSy4zch1oI tVfo2er/YYtrmNQywTB4NIQ+cgbVsBdsGtyl7RM0sSC6OzO1LrXG+PbIR8hL nojaCfHV7XXXau+o2/cTAwyijqTfN6v/TrX/mXn8Su1xmn5PUv/UunMjdHd0 rGdT+M0rQlfuSx0PnBO23Rr5BzbcFrEBv6eK/116d3vm+sG2j9QTaUdGnQef RlyBT8O34WPrce8zR3MeyuyLD2a+h+E88RHEDEt66599vf49gcdLArfBCLDi O6kx7Gj4BvQe+tupsTSJfA397wkbmFj1Gb4aOd32iHNOCR+IDn039Xq4kxwX MQYymVPz/ezsmu9lqdcPzx1vtIefp6aDnF/W+8M1x1rv1Iwlb4YtczfyVtDE afsjF+b+Fz+KD+2OWPNA5If7AlfJEekjrsOPgCd8/2jcs/QPvP9W8cMaQL/Q n47cvLm3of6J/WP7xIwzIgfcXXed6pOpz5m6En6UM+Qed0vcWR0LPAerLg69 4pzANTANn4pdEHugm6wbWVDrp39/6ngOvMSn42fGh685s2q/R30R2X+wVrWb 476pI2pRSdTduKflfFsiF8HuP7hPiXoJ63kl8ifiTuT3bsTIxDK9907Ey50h W+5JkO+7cW5H4rx+WjfNHdeK2PPRyAHfiG+JSfhNPtiLv6yH+zr0sxL5yISI wb6aW/fwXfi643EnSByBjqKfrJUYe0S044KmbjouchPOhW/xleAQfegz93s9 0Q8Gsz5w+PbcPmVP6jOnbkjN8P6q7Z88g9yJWOK9qDPDD10FJ66K3AEbYp3Y Gnn5hMBhMAi5bsntz9CVSbljFfwYc+GbwcrLI5b7fqztucwx7vOZa+rE28hz bdz7EIdxNlNC/5lzaMxLnelY4A86uzXiatY2PuIc5I2M2A+8vxf8kSc1d2SL /vM/B9R4p2W2A+qRrVXfsx5vcTxHHAbeYSt3xXj6Toga2QlR/yRO65tah9Hl A6GD6AxnenXIFtzqiJyLvWHj5ANg1OCI52+JGhm2Q51sYNTEdketrPc+akDU zfCZyyIO524P/Hmlavu/KjAffCFPoQZ+c9UyI94cGPyYa0nkdeAwNo8u00/d bnj4Ne5qiB/IfTZ+pP63JXN9fGtmf39ZxNinRW2S38Tq5FTYFLEhOkl82BE5 1VK1T2b204sy31kRm+GviRmTiBXRo4dDl9B/7ofALHJrYgLWvz9qnjeEbyMO xN99pep7tf6Z87oVYeMvRK0U3eIZGfrPPcYzwZfa1erwGcjtxDgX9tE/9jIu fDC2/2DVcc11dfvNkSH//wdEP0+F "]], PolygonBox[CompressedData[" 1:eJwtl3uQl2UVxx/3d93l9/7e3+9luUi4LKRGTYpoarJaDlrZcjHJEZqUlISc asK0VBboYnERJHJFJTJodLyNVloWoCCGsDiOcnGXXQhYLrtEXOQiK5bsRp9v X/94Zs73Oec5z3nPc27v4ElTx/2gIoTQxUqzLi6E8Nd8CF/MhnBnMYQ3SyE8 DX4WXl94N5dDGFUZQk0uhCXgVxJWVQgTUbIdPBb+CPhXsMZAR1EIq6FXsZrA f0P+T8iPOCuEYciPAV8KPisTwuCyl+gi8kOgU9iQAg/pFcIOZM9D3y8wtA+4 FTwLmYOpEBqQnwM9DH4j/P7w2+CvYO9FeO2sI9Dt7H0G3k+xfzP3vwo+mfLe buhGZO5Hdi93puD38P0n4M9hbzG8Qazn4D2A/CHkZ5d992n2rkD+N+C54E58 dh24Mg7hcex5GdyCrj+wJsDfDw7IvoDMLeCnwE3wXkfnW/ijzJm7+Zavyp9p f8NK6Cmsx7HnJvAd0E/in/qUfX49+PeRz+5Axzp0fads2cl87xRseQh8JOVv fBh6PDJXV1nnE9iyF3wj3zYL+a+A/4vMe8guQ2c39AS9OW/djb0JeAP3vwae hY5Gzn4b/j8r/A36lgWsmdA/l8/ka87sR98a7luN7BHsXZx2TCg27mHdBn05 MvPgV2Hzk2nH5Fb8cyP8uirHxNehm1h7wAPRNwP5+eifwdlD4C7kX0B/ddoy kp1esGw7eD34sbLftht9l/Ate9iblLMP9kE/AH96pWNMsdYfffOge8PfCn8j +u6C/w72HS5Zp3RL5vnIb6C3qAbfh+zkgmN7NfnVwn3DC46Nq8BTwQ3Id0Df hD1bOH8h/L/AH8He94q+U3fLx/3gz8U/C3J+kznQm1hvg3+N/HD4G8Gvp723 Gfoe1kzondjzI+h/IzOTu44ifwz9K9hbCf9RzuSh+7IGgNux4RpsOVq07ALW y9Cr4a/KOcYV64vw0amUY6wV+f3sbYe/Hv5e6G7OTMlZZz/wt5BfmLLPb1U8 s/dczjmZwbYOdPwq52+cHTtnlbs/Yd0bO0YVq8o55d5W+QD8d+7bAn1RwbVm CT47nLhmqHZ0wt9fdo1QrZAP5ItdnGnh/Bvwt0PXs/ca9Hy+9y3wKPAa8CfA b4N7+J6Q8zfp22pZuzOueap9Y1lNyC9D/gDyWeUAvA9YV8K7ABvOqXQONoBP gDsqnSMXgHuw/6q0a4RqhXJYuawarFq8HJk67qtF/+2JfSLf/Iy1BfkrkXkq a5k66FZi9Bn0Xc1eG/TNnHkTugb+w+g6rTPwB7D3CvJ92Ps+eBp4E/gh5H+J rbNZXfAS1h3w75U/4DeDx2ccwzOQfQQ8KOM7JoKPcWezaiHreMk1XbV9HG9U ge+asH9p1jZeztmLWAuzjsnlsWNOsXc2eCS2vsveRuiB7NXDGxi7N32DfBhT cAwoFiTTHDsnlBuKkZbYMaHYOIA/P9T3xta9mTPV0K+i87Gsa2AP/Is5vyjr mF8F/xLwI1nHzM7YMaPYaQbvgP5HbPocZEahqx28Dn4re3ti9xD1EtWoA9jb xt6WnHVK96Ws32adQ53wWllr05bZptxD52L4+/Dnlzj/OeSXgNcoB+B36X7p Bp9SLyo4VtRzR3P3aM7XgMvgTyX+Zn17B/LHoa9J/Pbd7N2l+JR9yh3lKHRd 4rf/iL07I9co1aoK9PWGt477vpB1D3gw8Uyh2SIN7pe4BqoW9sK/txdcA1UL U/D7wF8b+1vUA9QLjsW2LSBzWdE1RbVlG3sdsX0sX5c4fx7nP5TP4B+E/x/V u9i0fCRf7Yt9Vj6QL/4fQ9BFzg/m/Puxv1UxqFj8ILYvFQOKhd2x31JvpLdq 4PxY6E5iPs/35BPn+ibq2Xrw9chswJ5ByByM3fPV+zVjbYA+P7Htslm2D038 Nm3gj8Bz9B7ggL6XuOtccAxugX+a80dK7kW7yKe6gnNUuTqS++4ufjwDVbrH qteeKDkXe5BfB38le8vhDSd/vqz+X/IsoxlIs1Ad+roqXcNUy9rZe0m2gnuB +yZ+O8WoYnV60bNjAzqWITtRNSjvmn8LdFXis+qh6qX9E8eGckS5cih27ZTP vsbda9H3+QrbkEN2acm61TPUO/5cdO53wn8f/Z+NTKumqrZqBtEsMoM75ifO GeWOeuKPY/c49bpG7lyuWC3YN7L5ZMk+lq/3gruha8uOXc2Emg31xnrrLPoH KDc0T1R5hqsvu6eqt6qnN3P+huTjt0JmXOI31dvWoHMY8tcWfJdqkGpRNXtn 8p65NHsNSRyrynHlenXi3FPPV+8/GXk2U81W7b4hsm2qwarF8xL7QjVEteQw +ndp9lLOQC9LPOtp5l4K/U7sXqgeOBpdZ0qeZbuwuR5b/wh+MO8ZV7Pu0Mi6 GrhjLucvLPvb1PPU+85O3IvUI8cge1z2ZtyzFuqtiu4N2rsfejI66/POgX9F jlHFqv5B9C9Sm7g3q0aNjzyTazZ/D/vaCq4Zqh3KmU8i+wZ4W9oxpdjSTKrZ VD3/u+BPJ85VyUxQ/pc8W6onn1IvZe3LuAc+rVyQPzLumS+WPFNqttRMOq/s HqNeo3+UU9B7Ss5N5dBu6OuK7r2aeTT76J9K/1bj4FdE9rF8rZl0LudXFB2r mqE1S0+C3yvrnrsIfKtm6Kx78ruR/8H0L6Z/hoL6vXpgzj33MvDmyLOnZphp if/h9C+nGN4IL0LftLxrnGrdE7Ft097vsP8M8kcrXfNV+0eXPctrphhV9j+E /iUkE9B/MHJs6E31to2RZxH59Jvwp0buLfqGEYlrqmqrYqy24H80/atpBqsp uEaqVuqbuqF/GLl3yScjVS/AQzN+o9vA98WelZRTvbFtR9GzumR2KjYKjh3N tI/CPzfy7KgcOQTemXiWVs3cBf0/KlhFpg== "]]}]}, {RGBColor[0.5458956405116628, 0.4963983089351345, 0.8843026779611344], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNm3fcFcX1xl943/uWe+/evbuJokYTRayxAxpFQFHEgjEgxN5AioWi2KJY U2z52VBQRFBjjBFUlASQakVRREABFUVpSrNhiZKIv+fLc/gkf+xnzp2dnT07 c+ac5zwzd6deg7oPbF5TU7N/oaamVuXFpZqaT3VNVuVOaU3N6rqamh1Vnqe6 /rrWqf6NYk1NP8mt9cz2DTU1G+trarqpfhfVtSr59z6NbrNa9WWV/6frKbX/ tlJT86X6/LnKO/TCMeprL5W76B27qa9WKlvU+V3r9exPspqar/T7CtV/oX5/ UL/3qZ8dGvxu3nt+yfqhW565zcnlmpoZBff5z+bujzaj9Xuk7l2td56utgXV nay6I/WOcU01Nbfpd3vde0Ly7SXXPVi0niM1Pq31+wBdndWmU6K+9dygvKbm MMkTJB+eWN/HpOszKker7U3qZ5TKHtKnTTx7V+42r1T8Tt41sJnfw/t6qe2N JT/bRf20aPIY/kzy+3rmDT27ROUeBcu7FTwfC+o9l7yP54dK54eiT/RnDmaq TZPKw6IN/f9H8smS35JuJ2l8JmnMntCYn1b1+Nymuk6NHmvG+Q49U6JeZZ3a TddzA1QeWWsbwn7mqxyi6xZ9V1n9X4gd1LruEl1XSf4s2iDTJtG1Rs9eqrnp K/kSlTvoegRbU3mP3pfovQerz0clVyUfJ/mFBst/rfN7BsS7mHN0flD3dg0d btU4dNcYlFV3gJ7dTv0+rP63zXwfPWjzetEy+uzW5D7pY6PG4ftGj9GaRo/b NPWzWH181+jv5f530eYUvedUXZ2l25Eao0PUrpPKjrr2k9xB5b3qd0ST267V c6eU3PeCkvuqr/N7Tok5Wi7dBkpeVvR3lOJbVkb9wWqzSf2N03ceKR3OLfs7 3pbN7J7ZjuYkHvuLY45uVx+b9K6R0qmF2ixR+zP13I+p+zlC7bvr3hOSp+j5 13U9JblG7T7Vc+sb/UxnXf10zdKtxXrmY7VZo/dOk04365mv9K63Vb9S9atV v0ryp5JvkK09rd83Sb4xt03SD2NL3y9IXsjcJX7vDrnXD+vop9L3qoL730vt n1f9Q6ovqM1zkh+UfJi+4wXJD0t+UeXLuh6R3Dn1t/GNs1U3QdefJbdU/UuS /yL5S+k2trl1QJ/ljL2uOc3t83YO+Uk9M17jOE7lhjr7OtYCOt5YsE/Aj+HD 7tX1lp67RuPybHO/c6jq7qzzOtrsg5u53YiC23xdb782vWBdxsaYVNRPx1r/ /rBs++4nnV+WfLjkRo3DdMkHS/5KY7VRcju9p5DaFzyHjehdq3TNZN5V9qh1 PfP4jdr31rNXq88Ta91mkurvVx8VfW9HtR+m+ztpzlqov6HS5+qS/erDuW0A WzitYLm3+lik36fo9z3qc6bKtao/W+W4gu1hg97xbjwzXG32wm5Zw9LlT7nb YDst6j0ujMk6zVc/9X1H2T7v4fCl2D3230f1/RPPC7GoTvdm1DvW9Anffpi+ 6w3d66+6E9R+Qu5+tq3Yf7cOH76uaPkoyQ/ltmfsGl+9TdN/fS06Fwte99jb OL37/CaPT3+V92FrKnfS/d5Fjx3jdpvqd1R9tWD/g+9ppXcdkLl+sHQ7Tvc+ VLs2tfZPtMPv7d5kmfaM6a7h0xhv9Dyn1uscW8S+vqjYV+H7W2eexyGSP6nY l/xB8gNqu7Pqf1mw3uh5gvpsk1n/y9SmbeY2V0p+WN+Q4veaeVzbxtgOrXoc WH/j1McTupbr3S317X+XvJPKx0qWP8SXxG/kLffK6nu45HuKnu/HNP6f6X5f vXej6no2OcYPVrur9K5BKrsU/T7eNVLvPkN6tVH7rmo7RvWz1aZv1esQH/AM MVvXrGbGQdSzNs/WNx6v+rNU7hF9pqrvGO/Fv40uuc8P9f0vlazrVmrTS9cl jL/KEzLLf9G7Pm2wX/p7nWN5e/XTR/o35K7Hbx2U2afh24gb+LTH1P7AGFvs cD/Z392q26B1/Xid29PnFVW3xxcuLPkZ/M4tZT93md6zv54dobZv6tmGoseF MRml53rI/95Q8Pfw7eeoPDBxvP136liMffD7qDrrP0Bz3VZtHtHvD9Vm14L7 4ncb1T+k8rvUMR1bR++lum6pN664PrHt7586Fs/R9UCDYzK/Rza4Dpm1/aa+ a6bkjpK30vfWSuehieuei/pezf17QjOXM0K+RuW8orHNOQXLrBvsC7wLpgLP IoNp0bN5o22Dsjbkubr/ZrQpNlk/dKO/+dE/2PjN+JZc5XqV7+jZtgXLzBfl pyHvmzkmEhuZjwdK9iH4E+T3m7kcHfKYkGl7etXY43bN84bMY/tMxbGSPomX vcB5anOWyvul88gm/14beH6/GstrIs5Nl608L703amx7p8aP83Pbfo+wf2Ih bbs3dz7QKuIjWIZnwTO9G5wzbLm/S7wL3ASWwh/hQ/CP2MqpmXHiCH3LDWoz Ue3PVPth6u+uotfLdXru1HrHo0ek091FgqP8V8Hxq1sz+4HJJceg36v+7Hpj yCOifoeC++TZnFisclLJ96/RvZPqjT/nSo+P1EdR75modkP07Yc3N377c9E4 Db9HXAEfD66ELyxb90mhP/3yG3w4ts7xGj3BSzfVOcdh7Z1R7+cfl9yj3nkS eIFYD/Ybo7k+QfJVes/R6vPZkr+1p64pku+qdTlV10dqf13Fz4IXvg+sydh3 i/a0WVdwnxtq7ZcY51XS59U64yLs8LdF99kzxu/ZGMMbKtbzepWjco/J94nj xoyIHbNrPT7EhXOLricG3qrnj9CzC3R/u9xjApYh5zu6yTZzQZPj6Ixa48Gb 47nWescD0mtx6vyGPIc86NXUNgCWGadrrJ77oew1fU+s2e3BGvV+vj9+o+T4 M7NkuSc+TDq8WLI/76C+O4avPjGz3D1zbkn86at3bgWmq7dvBS+Bk0bWWa/D mxy/Dkhc901q39kh+jy/aBmfun/kbLRH3xcjv6Z8KfTpHbqi59ySfWLH8HnI +DvmeH5gfvA/MutxRO4xHJ47XtEn75ladF/0MyNk8OFlmcd+ZOo57Bt2TmwD HzC/5IkHh32u1r1f1duu51ctn1cxDmIewTyDKl67+5f/O+5gFe73j7k+v+I+ wbMXVLwW9ynbn86NuNAJPBcY9S7pN0J1P8+Mx8BiYF5yJ9qBeTdEyXdNi2/m e08pOsf/sZljFPGIOPU78mKN45VV50LkPGvUZrB+d1f9RSo/BNdK/kjlHplx 4Z7hy0uRq7ST3nPJndRmTHAj4NOBDcb7e6vP95rsO/Gln5QdV9ZqjtLMuWgV HkPXOvLEzD54ca398KXqt6fqL6s69/hcfSxrZt8zMXzazMxYZ6rKExrt3/Bz zMvQwKgtEmOphXrvePV1u9o9HdwAmJK5K6bGey+k5k3aRz7yqNr9Qe3/VrXP IC7hN/Az41Vukj7v6t6zavNe1euDHIL1sK5qH4uvJQ6AkR8KXEO8JD62LxrD g+XBIOBTcAj5LBi3IfIpxg+bv6Dq77yw6hyH/HVSM9tLp5DBC6wZ8AL5DvMP TlgTeSi5wXyNSV+1uVJjMje3b9omdc7aOfLEq9WmTs9srXfdq/FdIfkHyUtV P0jP3qDnZko+UXJfyV3hIeqM58ez9pv7vfjBw0O3YWp/lO6drvYXsh4L5tCu LRrHEBfeS+w7rs7NsXwaef47BcfWabqmqM3B0udE6XNQYg5llvTvKvk1yW9I HlZrXbCZDsFXPJ6YvwB/TJQ8Ozcv8IbkfevM66EP8YCYwzc8F+uDXPJdsHut eYl5YKFGf9t+0mM7yfurbKWrKnkXlWuqjhMvslbAgtLtp3rnobRTm/ZVc5Rg 9D7S4Te6loJfUueprGv8wIqieZN7am37YAhi7tSw/+mZ+TZiBvzZuIifYHu+ Y0N8C75keIPr91ObfaOvG8vOwb9XeY/u393gPOUxcrt6j83X0ulj1bfMvUZX xzo9LjMm76pykvqaBw+n+v654+sFubmfk4MXIjaCObCLIRVzC1/ruy9X/8tV N086/IsxgffK7dOWxzzit8A8YJ/v1O5C1d0PRmqwT0angvo6iRifOg68GLFg DbyQ9FyXeYzIq6pwAPXO27Hdu1PjppVl52r48XLYNPfxsbWpsc08zd2BatMW vk56HVfyOGE/cLbYMpiZd+IHb6gzHkE35oO1xJraVPU6ZjxYI+/gA3U9qXv/ zMznTlD5eOY4uVq6rVb/n5SMaW7T9VRwy7Nyc6njNAaV1La3tur38d5ewWnD tcGjfVzyOICL8JHI4I09i84PL6hzbCRG0tf9qbkXOBjywc25YI39LDIxbpHa zNN8bJ07ptK+c8RPxo0Y+qfUvm1F2RgfngR7Jq+jnvjBmIIdyMU+q3q9fVp1 7KEPuLKN6metnt9d71omebHkVan1OCfem2TGCA/kztPJw/vVef01D59bTvw9 szLbDWM1Wu9qSs0RTVc5X9cbkhemjktgWrAtMRPcDn5/V/cWqM0HKi/UNVjy gvANzSIGNKbmgSenxq3zA7t+UvAcMP5LdW8hPlk6D2rw2IMzibfYGHEFH/Nj wfHmIbUfo3b3qizpmRm6t1TvHaW1cbPu/ysxDzc54jL8H2MIPn82Mxd0jMrB qdf262X7vR5hkzUh4wNnRlzBt8OFDwkMNjw44M6B5Yir4B/46XLIK6THJfr9 x9zxe3Nb1d8XeRvz/bfAcH9VOSc3v9aiYrwJhuwS2LV9YMsFufcqHg2uPY0+ /1S2b8fHg7t7x34P8RD98auXNLp+JPaSuXywbD7qwuDMd4r4TGxYXzBvRWwB jwwLv0SuwRrD18Lh/KtoLMOeCM+xf0Fe0i3iCjzG2yVzH7MTx86LpOerift/ V/LQstcya7qDnts58B+xZ3jMRa/Q+SG1vaLsPZWX1P71xLGipcatZb35bp65 UPdOhWfPjRtpsyrybjgTOJLvmpwP4qPBA0cGjzo88AYyucqC+E0M/DHiVLXk 3OSuiPl9Iu5PKBoT0A5OiFwR/MPeDDjsdNnd0cQsODX1946uKRFLPq86Z+um b7oxNTa6SeXQ1H7/apVTy15rrLmzghM4G99Q9v7JfZLPSG2fZ6aOE9MifvXP nP/3zZz3gy+25P5gV9bI+Ip9127S4Vi1OabkWHe5+j9UfbZL/a2HB25nTDuF fIna/EptDkptI/jgDoEpOsd4JiXLxLOni96Po82H+FAwfe4caG7kQcMjnwS7 bZt6T3E7lcer/hfsL6Ye907BjXcI/og1e3vq+D4jN6dCngNndZGebaP61rp/ Z2qcMFNt7kiNCX6WOY+cGXERX4nPTBLHCtZdoquc24YSlUfp3o+Sc8kXS95L 7Y6Q/EOT90jgGb5WPx9L/gbuVm0WSF4m+cTc+LiHyuNVX5C8bW7/jT8p1jm2 4Ovx81uXvQ5frXrd9Qps+U3sdbLneWfZ/gS/0rXkmD1d87iRHETv/bfKZrr3 ueTmKmt1fSG5TuVJej5RvztKPjkx/7WH5MGSW0luJ7ldZv76UPblyuZVT1L9 NhXvZT6Dr8ods8ewBvXsDfiI3PM6M+bobv2+CbyXez2zrh9U27+p3zHq/zGV Y/F3YL0oye0359H63V2/z80c3/PAOT3Dj/w2917rAQXn5Vdk5iN+p/LYzPsE l6vNGZl9wpmZYwH2hC1hq2MjR5hV9XqHk2ijb9yk/rYJjhzeilzp9eALyW3J wYhx2yTGLvAycAXw3JsCf8DBTA78eun/+FryRvLHX2TGc5t5zcBa7I2zDwJG 2xB7QKMiPsPZ9qmaN1yj954QPnHP3PvSLWK/487IHeE6hkc8h0u5omA/Sb+H sO+ie+3I3XXVSj6m6jwGHU/WexcVHOP4vTlmNLf/Z8+lbezTHBB8A3YLj87+ OnilecUc2RLpdq36PUO2+ffc+Q95IDkgMQl+l/0Rcn2wKd+L36QN+27MP3tL xIaBgffgDNijLsc+C3tW8MX0xTvBq+j6SvDvhyTm3cHacPXgUHLjLXt15Mjs 3zEfzMuOmfdXwRvwCqOC04DnAa8OC05yZnAx6AyXwBrBD38e+0nwpl9Jh5V6 /svUOIs6+ENi/nFFY8Lji5axIThD7IX9EXwJfAfc/ElRwrOAuZDhQNhzxu/B 7XyZWd4rMR++NPzh5OAYwBJXJtZ178x89SFh2682OHdjb+X7yFnIXc7UnB3D +k0cuzZzBnrXQY3ef3hSv+tzx8F2iff/2Ycg98ePdon3gmd3DRv+KDAh2HBw xHHiedfc8zlKa3Bh1TwGfAZ5NvwvfCZ5PN/Gd3Hm4vgYN2Lw2NBtasRceI1z 6FdtRku31mXvN7Hv9NvgZIlPjH3XmAtsHY4G++cMCTK4CM7y8ej/rarnoDFw 9Fax1uirZ/AFcLFTgo8FQzEX7E30kz494DQTt0EPON5TE+fkm9Rn96LboD8x kNi2NO7R5rTE2I41AW6Ct+ge/ZyXeM97ZNU+jDmdrfrd9N63VXbVtzdmPivQ kPn9J8Wzu6jNPPLgivE1PBgY+7zcbV6I/Xl0AEsxb3BzK8n1IldaFHnD9uFz mENsHr7oNPXTGdyYeD6R4d7frjo3IUcBox5aNE6FHzsy2swLzmFu5DFwuHBT 30YuT07fEN+1jcrzc88HZ4J+UfGYMDZgPfAg+OYfReM5Ymr33O/tljsHon84 UGLpsPj9n8jRyNXI3bFz9iweDwyIbexcsZ99req9cWT87U3q9331tbt0WJQ7 L94lcb77TuTI7P+xD7gejqrk8w3k2+TdPEueSP2SkBkP/Dw+4Xd6to/0n5eY w0cmn4XLPzfkO3NzFF8lxj7kNuQysxq8h4EPYQ6JF3w7fhx/jm//eeo2axPr QgxChy6hIziTHJQ1jp3hP8gRsae7E/uzXmXP5xGxlsGSxCdsBew5Kp4nL8ZH 4Uuxr1NjjuD5+BZ4dbD6KYHD8WW03yczFgOTYZ8/hgw2I+cghwKrgg2Jkaxb 8k7KOc2c124fOmNTLaIe/w3nzDqaEXwsY8ecLQ4+ZG7isTpeOgwomhMEtzGX zOnkzGcEzio6RxqSW75Y5arM/WAXb+SOZXeVnVPCJ+A/e2bOG3tk5p/4TnAL +5nsa/LMzIiBt2qu328wT0i8I6YcE2MOJjk6ZPDgA2HHcJOskcmxTwqHSV97 J44pxBa4q6/CH3JeYM+IU8xJ75gXvp9x+LXKtZnHphX8ZNVr4ePEMQRMxXq5 qmr5M9W/1+AYzZoCd1wa2INYAf4hbl5edZtPE+d0/4m5nqy5+LbJ8ejQxLGA uLQg8ZmFs9lryo1DwCNNudt3SHzmjNz+B7jYxOsZ7EDeD6/OGiHH5ZwQ3MX2 kZ9vSownm8Ku4M/IH8gdloQffDfOIDG+7JtiE9gGeB6ukPXIumTPF+4gCf7h 3uAg4APg+MC97K+Rr5KrckaMcyNbuHVKuCaw9hHRjt9wJfhw9tHOizmaGzpw VuOa3DwEe8hDc7d5K3Fe0i/8A7p/FvrfkjmXbS0/t1NmHHZ8bo7rvuAxOMsC hwd+Y91sirXD2SDOTXEW9Pqq+cr+mpc56ucFcityo4hbYPDr1e9A6fBBYkxd rje/91rufm4um69dGPwDOS58EHnuow1eD6wFxubeGA+4xtWRS0zMjAHhjNEN Xp6cefN+adE4ktyaPvF1cPvXFY1Xb88tfyHdft9o/fvF+hkR3/5EnPHjrN/2 ubE6mP293Njy28TnDZlrckDOn3IOFWzK+axHYu2z58/eP/vy4BFs5uTYN/ws 9hTgUsmZHs2dx5A/wl3ApY8Orom4jQ7wHyuDv3pc7Z/OHMM7lJ2TjQ57w0YG hJ3A1+BDsXO4O/h0+Dt4hjXBNbwVXBDcJ/PxdqwXcu3+YXus6fWRC7WK76KP ETFHjBv5+shYC+Bvxgo+gZxqVOwjY2v3B9c2MmTa/6biM7z/CCz/YJNztr9m /qZhqfVaGHpuXbEtYVPkkXCX9M+3gUXIezir9XD4AeyF+SFv2DP2E5/M7NOx Z/K2ZRG7sZkk+NgdK743LvDAtMx48BCN+XVV19dVzGmTw5GfYoPXhh1eUvX5 nyEqv66aV7o1M+9HfoRtvKnfL0mfrRLvxZELrQ/efsX/xGnmivwLe58e65E+ kOnntkb3A2fOGRbyBPYLOU/H3i36DYk1+VycC3g18A/8Adw0a4E9GTgObLt7 5FJbuCJk5pQY8suII90Cx4J73wpsDVfdKXebixKfp/tN0XkCHAzPoyc2OD3W 74rgz+HR0WXnomMAZ9keC51+lptLPDHxekDGr1aD22Q/FF26BTY+JHc/gxL3 0zL6PDe3PpMSr5WBsV7u01y0U9ml7HVNzoldti97rbHmsJEVYSfE2mvCt/yq 0bk554jgdObGem8ReAVM0qXqnJ3cvVvV7cnp2Y+lnrNM7AeAycBji8O/MdfY Ae+eE7awOOyB9yyKmLso4sTmGBF2iG5gOnASGIlYuijacN52cfQPNhgXsRDb 5Xn2j1i/8DisQ3i7EeH34Jefif1yfOHwqCfPXh17Q8ztmvCB7PPRBnz0Y2Le ZW3F7fDvxAjiE3FqhMZ5dWK8Cnfycew34f8pP4725EWM0/LU+Q/f917q/eEB geWINU832W80izOunHWdkrn+35rbYyuenwXkMrll6vBDnDnDF30lPRZL7lj2 mWpyFvayv4tckTMrnMOCz9+yHomv5KfkttMavS/ZTv3sLPkQlauK5kY4J8p/ BOYHJmQPmdyevB7uh71XOF36A6/gMynZ/7sgeIDZDY7XzD/2B1ZhjtANn4UN po3GzZytYI8G+xwkPbpJHlg1J0k9+zvvp84FORPE2iY3Z32hL3oTI+GiwXDg N84gTI5vpO3UkD+o+tvfr3pMDoz9SnjHqZHvg9/BXcwf9tc2vgtdpoee2MWU 6BO+jf0meC3WCuNJDoKPwH9t8WP7hcz4rYhx5lwRc9VP8/9U4rV3eOr1sW2j dWHMvov8vxx2j23zfwjm6cHY60KHNWXPG/WsF+Yf/44N4O/fjXF7pmhuHS4D fZbFnN7fYNwD5mEtsiY5v8fZbnDswsQc2vLQf0rsT2wKfp1+iDucD8E+ZweH QzzGToiJ8Mybz4IUzYvBhXKOEtve/D+jJtehA/w3OuAT4KkmNpi3Yf0ypowD sQAellxm9Rb7a+azRvwvCAy+XPq/gL2Wva8D74Rv5Lx9WnJMZh8DG8J+uH9M yIzT+BgrfHsW+zrMJ7htM2Zr9LPsg1ydeZ9yStnnf5DBMOzJ8BsszRmftbFm B8T/bqaVHSt4x12xD4htMm5wYhMbnde8VrafY3/y9ZBn6J37Vm0z+1Rtp4wz 646ya4w553fQGT6EvJt9JvIr1hG4gbnDLzK+jC08Ku2I+WCzgfEt+P8u8Sw5 LP3Qlu9n3IhbjBPfgm0wn/fHnPIfAHLSd8DqFeMW8Av59K8bzUew5zYvzpPM Se1Pjkvc/4rYCwOXjI51Nz7suUPswfEsMRJdTgx94AnwLXATO1ftf1qq/Dxx /kgeSSwiJoFrOR+0PuYIneBKRgTvwzvYz1qXmNOA24BLeDPey9yuiWfPr/q7 zqva34FJ8OmTY7zwIfy/iXXM96yNczKcl8E2sVFwztup38/5bvIz7BkeCpwM nw5HQNsk2sPnM6f4Rr4ZXgYfuiLey5i0jmfh4DkbwnpkDQ5PPV+rZF/fVu03 vlH5SuxxsNfBnDP32MBWufkezv3BpzAf7N20yJ1zc2b2J7l5Js76gRXxS/CP 88vmBTjzQs4HnwWGx99it9gyez5wtMTZJYnjEjzH+ODfWJucjWF/kL7YM2bv +BW1/WPZvuqT2K+Ar2btw9nCodMvmAS+CY5xWcRB1gKc0YTgiDir2Kxojovc g/7Zb0DfJ0Nn8BW8D7wivNGm4Bb6ZPbFfVLzevAY8BnwOV2jH+wXvwznuDI1 z825e2IJWBRsgZ/Eb4IBwELgZ8YEruaDBmM2uIRi8Alga9r0LhuHfxh+b++y /dDois8jYa9wXJy3oi84H+LOxsAS4EB4Szh5OKH3413kNOyHEpd6BL90be49 G3KH2oqf43n0Zw+VWHBO2TlAU+QpLYMHgA8gX6qLvIOcr1/g5MVV+8BFVXM5 cDqMEXuh8D74Rnid90J/1i9rkLjAmQ9yQPLmTzS2S9Tm14nPXrDWVwZ3tCSe nRBnjSapXJN6bE9IvDfOmIBl5oXdLuVcVuo55/wv+xrgb8aZ85W3Be7ijN5B jf+NLwdFm+c4owPXEPs7M4Lv/iL2+tnzn5R6r2a/2HddGTGOPZ3JsZeDnf4j 1sJUzgEQg1Jz0VOD716e2x9+pPL51PbOfzjgb18JjPdaavlY1b8s+XnJL6mc kDr+/jL4CuIfcYJzAJwH4CwY++jgk7PKbnNDxBq47udjXwd/OSvedXTZfohc Z2Lqb/ln6nVGG9Ya+uLHGTPOB3FOiDM25G1PbOHLwk+SUw/I7YPbR/wlbsHb cL4KnuvoinEf8wKug19iPBlf9hDxI/CTbWJPEZmzBsjs002PNpwrJk9iPbAW 8AFPhB9g7xGZuAnntMcW3xUxhb1CcB5478DMWIn/6oCXXg4e4aqy93UPCD6B 8z77h8z/UYrBS8DxcJYRnHVf1Rwb/7HgvydtQzf+8wK+4gxNj8S5KvkrZ+ap o9+xid/F+7vEvCyT/P9Cypz/ "]], PolygonBox[CompressedData[" 1:eJwtmXm8jVUXx5/LPffcez3Pec55SjSoXEqlkSZD3bc5mTJlipChKBRFoUHe 0vAmMrwhU2hASZmnplcoEYlQCiljQn0aeb+/z68/9uestdfaaw/P3mv91jqV O/Vq2rNMEAQL8oIgn9/vskEwD+KDwiDYAX1PGASnFgXB8oIg2JgJgsbwdzHg APLCXBBcEgdBNhUEZ6JTA74P8srQL6K/EP3q9BWnbON86AeRl0C/hHwp8stC z3UdfF/4MeisKxsEO+n7L3Tv0LafRz5X+sxXIeU5aiI/FgXBVPjdyKckQXA1 +rvYyzrGH2T9PdDvmcYObTGyUegMLQ6CZxnzIvRd6DwC3Qj97tC10T8bvgp8 HfhbsP8xY1fQViG7EH54vvtWww+lDYNO0/ckdFvkX0HPZD3H4Q9kvZY+rHcD 8y+jbwryZYx5T/aQn4w8D/0r2F/trOcuA38l/FL2OIexK9jTEugS5DHy46zx MuQ1sFE+5b4qyC6HPy1lmxfBD4Ifwlw/cqZ9oNvRdy2yjuhsZa0LaVfCX0Fr iuxl1rgd/QbM2Y75bqbvQmST4F+HP502Ju0zrwS9PPZe2rHenxn7Efz78B3g j8Jvgn+Z/a6jbzN0Rc58I/QN7KcC9Hr6PoVeQ98G6LW0Meh/Ar8O+u6sv81w 7M1jv39h8xj6X9H3K7J7aY+xlibwvaB/yVq2mXYUulRrgH6F8R8x/kNsTs/3 Gv8H3Zc9dGVvqzifDHxDdDZj/2vke+C306bme83fQtdDvgr5KvhP4etHplfS PoHvTzuC/g7sfc7cO+C/QH8T8p3QV6L/GvKt8D/AN4pMb6Htht9CW4f+evit 0I0jr2WbviH8VeypKvupzp6vgj+d9fyMvcO0M6Bz7OclZH+jk0BPQ/8J6CG0 6dC1OPMS7n9VWm/NTd9iZIPhD8M3kw78m9i7Cv4b+GXwy2nbobewp068/5bI U5HvjO6OxiyC3wy/AHoh7SvoCVnrNub8J0LXo5WFvow1vhV5T9rbN7Rb4a9h feexlvNp98OfiH4ZbOXTBsFX1P1GtxLtZOj2Od/VtNaPbgXOYDm2pyM/zlor 0ncsZR/1eORvpG+1Wnc88pvQ29hEW43+x8y/E1uj4D9B3hn7TbE/Fr4j9Pn0 vcB+nmEPh+ELGF8OW6F8AHQd5DOQT0GextYe+AHMvQ0bQ+HfZj3D2Mu9+Noi 5jsp6709z5jz0P0ZG7uwFbGGlvDfx747uoO7oPfGPivdId2lmaxhKrbLw78B XU7+GPkHtCuQn8Oce9O+g9WgX0I+KW0fIF8wE52aKb9xvfWZyGcjX4/Nyrqr 2JwIncX+NOgXY9MJbSR0P2xeirw5Nj5DvxD+mgKfQV3tXT6WvWznzqyHf4vv 0wR6KPLZ0IOQd0d+I3xHvR3mqFXgM74A/cXIlyIvZUw9zmsJ/HvFvoO6i5PQ OZe5Q8aUYq8E+e60fUpl6FOxNwp+CjqnQJ9N349pv7GzoGsz/g3mupPxK+N/ 3iDyFHM0RHYmNjvp/vK9AubbxhktKfSb0dsZhbxlnvu+hv9S8bPQ30Df4lGd B+dzEzYegX4167fYHnP52GuPTmt0x6BTDfoz5G/pPjD/BPQ7KKYgH4v8HPkS +nLl7APlC+9j/vp5nnOTfLXuAHsdyn4ugj6LvmyhY6ZiZx/45vDjkS9jbA+9 EWxXoJ2Lfhf4PZxtBF8C31r+ttAx7inGX8L4U+ArY68W/J2Ss7cB2JuGvWLW 921Z+4xy0C8k9i2z0SnlPO9n/OCU19AXumfWvns04xcx/g30+yJvR98M6Eq0 t5B9wvjmjG8V2rcdUrxBfwPymPO4hzP4TTLWtJ+1JszZCv357GEWeyllTfOg m0W2VcL40xj7YcZv9QBjWiN7mPW0wv4TrKEfdEpvGv2ljM+Hvoe+xoXGDMIO K7HxPXPVQv5v5q/HHDWL/CZuEd5Bp0Wh96y930drWuiYpdg1jfGjGd+N8Xms ZQLtgjz79InQg5H30n2XD4mMQYRF8uirJz5jrHGM+W7Q+8Lm84X2MbOhG7CG y5HdiP1nWN+grO/6EOz9hP5a7P+GrUHIx4Z+g3qLunOdoF9P/C0Ocideg+6m 9TN+IOP3Mf52dFrpvfAN2ip2Zf22r0Tnc+Gp0NilLDbKw1+X2Lf3QOdExv/G mMn5fpO/Cy9FPvtJjO+P/mn0naH4gM6p0Pez31bYewqdPtDjMv72T8OPhz4S WfYa40cw11nM/0DKd2onsr2R1/4c8q7YPxj5LKZqT7rbsWOLfJR8VQobkwvs I2qhW5vzrKa3SKsjfJQx9nuE8xvHXGOzjsUD4F9SbFTMTxuTCZu1xF5psd/o w9h7NmesIsz7DPRG+lqnfKZtGf8nffuYaxw2FypWMd+uAut8ie6K2L5+GvLL 4fuh3x39HrT+0Dnm+xv6uO4A8j0ZY+W2jP8K/hd0diMbxfh3sXVizmcnDHMC dH/Gd2a9XWmfo98oZ1/fF53GWntkW21Yw+2sd0RobLkX+X7meozx9xb7Dn+D bjv4m6F3cL4j4cvA/1T0DyZm/pq0S9PGtMK2bZBfr/hAexH9wcxxANszkaew vx/+s0L7nH3QdzF/BnkD5KvQXxM71guzC7srRihWyGf1gW+Y2Nf9h/ENoH+Q /+EuFyCP2N9JibFrKXesPPSvke/aLGysxtYC+t5lbXPR/wXZxthYVhj2C+jb E6+9EmOGR8b0wvbCcHVZ75nKj4rsczuz9jqMqZt2DqJcZCh9FQqMQe7U2WPv KuzlI78V+uvYWFEYe5t8FfbzC4zphe0HML4Guuvp245sJXPug5/Bfj+G7oCN +op1tInKdWj1ke+nVWBsF+RNkTWjLUe2JWtsp5in2Hebcq5i53jK9U5MjN1r IT8BuhE6lZn7NdY/G/m3WWNJvWG95Sx9f8DPZ/+H5P+Ys0qBbbZgfD7tUJEx u7B7JH9V5BxVuWpV+qox3zLmP4nxBxnfpsA+trf2Ct+ywD67R9YxSrGqN+Mr CP/Crykwhugf+ox0VsJEA0PnNMpt5MMfkG9l/kdZ2+O0n4UPEmM15QTKDQZk jHV1xieFzmmV2yrnHInuGNY7IW0Mthd5T/raFDtnvRf6cfSby98wvkzGObdy b8VoxeqyGcuWyT9GbqJ1J5oxfk7G2FQ+s2HoGK9YrzvVL3TOrdxbby4P/eXw Lxf4jMvCN+F7XF1kTLYF2zfE9o21mfP62Dm4cnH5jKM552TKzfRm7wud8yv3 l8/6I2cfIF8gTD4c+VH4owW+07rbiuGK5cIYwhp6U3pbTdF/MjQmEDaQD+2r WMKathf4jq6E3q0zSNknPMn6R7HGseiOVz4VOgdVLqqY/lDWGFtYex7yd2L7 PPm+BfDzoKtHlgnTC9vvYfzEtL+Zvt0k2Q/cNzl2jqFcYxxtNPys2HdZGPpN 6H/FjmUXs8ZS6Bqhc98Y+UbWc0lo35IRRhd+C/12IuXD8HMUf4o9p+aexXnM LeM7f1bsPWqvygFmcN6L4HulXfNQ7aOLMBr0zchbI59Om1BkTP8q9Js5Y79T OYNZ0EniWLEB/7ACW/vo2wo/GPle6KcSY0vlND9yVq9kHAuEkUP4uzOO/ao5 DIxd01BtQ5jxYtU6EmNrYVZh1zuYY2TaGP0F+b6cY2tVzY98WOjYIozcDvl3 OecmOgOdxfehz17fXN++I/zotGsUI2LnZMrNhFkeQ//P2LFSOdFf8p1Z14aE uS5QLSr2txEmeT825hD2EEYSVtKb19vXGx2selXoWK+Yodjxd2jfKowurP4d rQ5rbQa/A/rTyGctzCjs+Ebku6Gc+CbW8k3i2oFynu3QQ0JjS+Wkyk27KGfO d06bUr0mcax6H/lS6D8i079z3pmccyblTsqZlDv9HhoLCzMLO4/QGy92jFWs FYYTlhOGEJa4Bvk72J+DfD7y6YlzTWHWV6FPFn6GnkR7Gz6AH6lYTXsl+SfH CTxHW/hd4T+5I/xUnVfk3EyYZnLiO6e79xzy8VpvZHqvagA5Y2BhYc35jrAz 7eli5whNI9f0VNtT35jEa9BaumDzOPJjWdcW9U1uZq5L5d/zHMMVy+dF9nWK oU2yvoO6i48hH6bcE3nzYsdExcZ18F2KjZGElR5OjJVaYGOt8vmsa08r2fMh 4f/E2OQOdPpA35+Ylk+Tb1NNR7WdKpz/Zez34dC0fLR8tXIu5V6qoV6K/Bf5 o3znvL9CH6aNzHcN4UjsnEa5jXIi5UYP5YwNl7GnB6EHRsbmqrGo1qIcV7mu 9vQQaxsfGhvdqj3Cb9AbL3ZOr9xee9Re1TcwcU1DtY0G8B3lj5HXKzbmE/YT xhDWUMzdlvGd0t3SN6jJ2PmR5xLGFtYWZhJ2ko326E6IbFuYRdhFOaVyS32T bjr70LlKT8Vo4aPItDCosGivxFhNMbc3dF30v2XulvB3w38Qmb5NexT2iPzt FfMV+4VhhGWEOeuEromqNioM9wP854lzffnY9fLdoWtH8sFdlI9jbxOyzbTd 8BUjY5EfVNPOuOam2tuvyIuErSLTqqmptlY1si+Wje9ztiFbqhmodrAmcuwU hhKWKomd68hnVI6dMyp3VI2le8Y5o3JH5QjKFbpir0WRc5QpjD8ncu1KMWCP 8FtiX9aR/XTW3Yt9l5Qjj4Muybh2pphcJeOcRbnLYtXfoZtEfguqEZ2i2k7s 2Kc7vAR6QezYpzs8P/ab19vfR0vl7NPk24QZY+j8jHMBYf7Hs8aswq7K+ZT7 qUauWrlqIFWRz40d64UJhQ115jp7YeQZkX2YfJlibkVkT4fGlsIswi49Et8N +cTu0Iti702YU9hTmFzYvK58hPBUYloYWFj4w9C1ZsXoQaof5rw3/aeyJuMa kGpBionDhOcT12q7MV9OtcfQtQLVlFrk/J+C/lsQJg4T56DKRd+GX4R8Wc61 Tf2HsFzxHRsfFLkmrNqwakqqLSlmDhceQqdnnmsmc3PO0ZWrfwS/Fv7P0LZV U6if85q0Ntn8VLVSWmmRMaSw5N6Mfa/6msEvyLkWoRrJwpwxibCJarqjVYvK +b+lrZxHBegOoWuHVTiD2uzvPuarXuwasWrF5yau9ahmr9p9p9C5pXSuTVwT Vm1Y/wEcEf5LXPvRfzRtsNUrsm3VxFUbn5i49qYaumrpuuO66w1ZYwf4JaFr QfrP4AH4bjnXTvRm7oK+I2dd/Yei/1LKRz471WRUm+maOJeSz5HvuTznWrhq DFdA/x+7YsUJ "]]}]}, {RGBColor[0.6680129514640657, 0.6949731237547905, 0.9118739999209533], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxFm3fYVcW1xg/wne+U7+xz9t6gEhCJILFgV0BU0ChFNAr2goCClSIWinAt 2MAajWKPUSBSFbuIChZUROM12K4m0YTYTQQ1YCS5xvv+eJfP/WM/s87smdkz a1Z9Z87WI8cfcVbrQqGwrKlQaKPygrRQOKFcKKxNCoWbioXC2S2Fwt1qUG8U Cm1LhcKErFA4THWH6lmldts0Fwp7qe9t6vyw6I3q82f97lwvFN4XvZXKMyuF wiz1req5SfSNev5X7afXCoV9Vb6iNi8W3X43zaF/xd/t3KpQuEV1M/U83trl zUXXd1WftaK7qBxSNP2E+v5Ec/hOz7ltPMY5Mf/2zE3Pe2r3Xd1tOqrsp3U+ ofnW80Lh02qhcKv6rdQ4PbTenppvN/Fje5Wj1Wak3l2h8abrmakxyyqn6fm0 jddFPWvrrvbnqv1pqp+r752o5yO1H6CxVuu79+qbs9RugtqcwTzFx5/reVXt fqfn3ugDPUzPKWozSuXf1HeM6Edy03/SOAMqXiM8g1frms2nv8N3tb2x5jld EW0OzzzmESp30DzPavL4A6IN6xqvueyv55Win1l6jiuad99o/PFq/73anqrf l2sud+o5Ue0v0vrG6f1SPYdp3IObvA/w80y1Kap+X83nWvU9sOL3gzRGs+o/ bOP9+Sb2aLXmP1dzOVLtP1G7x1Q/W79/Xzd9stb+vMZ5Ts9E7Vsf9Zmr+h00 TiU33UdtdtIax6lurJ7TVT9P9fslljlk71vR12jer6t+lugDip7nGr17o+i1 Ilc7F713HfX7CPprTrdovMWq37LJ7f4pHjxUsoxu0Ph/Vf2WKi9W+XJry+1L erdK9FWiy03WA95dV/X+IedbaM0L9M2V+s5ZzFPfHadyvZ4D1f6qmnlPf8ZC lq5usTydUvQ76pep7mk9wzT2A5LnhzW3EVrrf1R3htrMFr1Ps/UWnb1RdQ8F vUjtF6v9ApXtVN9QfWfVD0u8LtZXKloev9S3Ptf7Efo9XE9PPW/pdxe9O1hj TNfv7qIHi35UfXfXM6DZ+/qu6geKbot8id5Ja3lWfGytdw+gQ3q3s8qlevoh /+LbBH17lMoe4sOvc9e/VLMc7dFkWdpTZTf9fkd8nCxZP1bfHqq1fCR6jOpb xTqgf6qxMvU/S3N4RjwZredQzeEMle+nnsPNdctFv6Jl4zc124rXNM6NanOk xj9G4z9a9NpYV+vU9ET1PUX0QI05UuUPie3CHM397rp15jcqT9bcBmv9p6Cb aneQ6ifXbZc+qVpeh2uMt9R3sp43al7rr1K/R9f20TNI/bbBnorupTX20NNX 9FapeT0J2Wy23Rys5+Bmy/cH0X50s/u0Urv52KPc9p0x4Gff+A40tg/5fEnl m7n7b2Rf6h7nzrr3/Mxm73td78ZpzKXwTOv8TPVfqM3HevbQGJfUzC/4dl9u fcAPsUcviW8Hiz43N//oi51cXrMcj63b5t8UPoK5I5fI5JS61/mg+p5fN48e EP3L1LK6WGO/pnbzQobnR/lpa9vlOXpOiG8OC/s8W99qo/36Tuu6sNk6SHv4 C5/vz71/7OPi3OOjI/iFT1S/l8rLapZdZDhXm5v0zNBe3pzblx4ZMo9txcbe rvrvVZ/oeUf9P0xsK7ppjL/VrKOPSQ6Hq/5D9Cu3XCKfx6rsX7cvnKnxJrAH GvNclevVdzu1f0FtOqbW9/Gqu7tmPXo4M19nBm8PL1qGkJ/JFcsAsjBefYdo zHHIb8k6jP5+zTgqn9H4a0V3Ef1kw7YJG4WNflZjDWqyTaHcHFkUXVabdWXb 3B/fUT9ba/uV3v1Hay1XTLNHLS32LfidW4Of8HWWnhtEf6/2E7We09Xnac2l WHE9Pu6ckuuJdW5T+8Haz1/UbD+IY4hhzg97gl35tmzbjZxepN9vY8/V/kLR Z6v9Cva24riEOb1Sdv1Tarcsd9+7VL6pdh9hS8W3i9X3Y9Fvqe6yzPy9PLOf 6aBnvb61k/r8Q2O1qP5ePXepzXyVf9Vzidp0xb6p/82q/63qmtV295Lt0tH6 fQBr1vuv9P2DIg6ZmduuYl97NtmGoufflM1D+P+0+j6ivstULiraBzTruV+/ 56p+scpJmXk1ReU3ie3/H1PbrTf1TMLP6d0DarMkc+z3QtExwzVNLrtoHrnm 8YTqr0MeM/vHusp7Wqzv+KlOWsMlmt9vU9ulHjHnzqqfofoFqu9asq8hfmiV mh6peR2UeZ3/VNud9Dys9m/o/dbETKIfEV3M7BebMtvXnjE+MSX+A7sEX5BP 4hX2Dfoz1XeqWwfRxaEt3q/W0faraD+w4jaMB4/hNXvQu8m2lDXR75tojz1j 77AjR9VcR6yEXC5S/1MiFt8r+n6aW0ZvrTkGv6/qtpPKrkduKxXrz5rWjh+J Y4hhZrWY139p8ni9Y8wbI8bHLo1qsf6gO80V0x9onInNns8uraxT6FM55nhf 1C9Smw361jqNtVnVtpRvMUZTjHN+s+mNTZ436ztJc5iq+pLq/91kOUyaLYt1 8eJxlVemjjH7RZyJP/wdcYb69k5N36592bHo2K9DG9vva8KGz66YJrbCNrNm 1ttL4/9RbXdObWeuDVtzlX6/ona3JP4u9ehqb9m4vTXv3fT+sIr9JLHffNXf p/q5Dc97VMRSM9TuRY1zlcZ5KLdN/Im+2Uft+qp9n9Q2HZkZkTgHwe5+3cq6 vK7quH+jyvV6huibO6nPSo15beQ68H0Je1m3PO6Y244Tw2JbOmCvKo5vNlPZ Ts8G1V+pNgubw0/n5vlpNes3cXX3iJnR77PaWNex61+1dty0gBhAv3ev27ft VrccbQzedih6ni3ocd3xYBfNfVfyNWJI/EbRfM7b2M5Rv0T0lpEH8L296o59 9lbft+ue+1j13Sy179xb9I4l8xs/Mln9bq9ajm5p2B7+oDZjVDe8ZF1blLvN wtw8h6/Y+uNlF6aqPFX9jsm898eqnKd2t6r9XPrpu5Ml53eonK6xX8fPar2p 5rZEY1+dOocjB8MOUA4MmtyAvA2fO6fiMYlNroj2vKuRE6luusZ5rOJ68ri2 DX9rIz5Zczpa87xG67q34nkin6eq/kjyc9WPypxfXCk603jPic/N+r1/k/lG vEGcvgJdIxeuOQ54WWvcOnX95ZKxK1L3nSZ6Wm7Zfl90+6Jlu9rGfgu7Vsuc L37bbD/QpL7/QM/Vvlp3PH158G9QxXbr86p1CT06vOL5swfoFvXoAuXgoNGF w6MN5ZCoZ/+g2QtyHeQWWT2z5rzuOc19AHmznnnE7i3OhbFFt6n97SXn9Sur /g09s2H6JpVNeiqiiypvbNi+nlyzL8GebNQaV6j+WbVpIjZp2OaNqFkmF4Vv JZ+7oeR876u6bXSaOcYi1jonYlh8JTkX9gy5wqahK9hD9OW2qnWWcXfXt/bQ mHuoXFkzL4hfnouctqTvXK/5dRS9Y+q8fHHYiFtq5iWyT2xEjHSf2q9S+69F n6G6bUr2u/jcF/XdF6rGGy5Vn0tVTiX2KxkrIR5eoffPV421rMydm1yucX6i dn/Suts3nPd3iTE7JI65D1HbQ0u2L9gWcIAB+v3nNpY19KIaMQx+Gn/JGFvH OP0y55wTNc7e+sY+qt9H5S/KblNosiwjh+gCeXU58vnL1e5qtblM5SGp894H Na/rG17Htiob5M+i16qcpWee6HsatuvQxLKfaJ1tVd7csN8FQ5jW5JjutuAR uj8/8pEVJX+LvSY2Yt/b1p1XzYv8YnjQP2icXzesu6uQ64bHv1/lrxrek+1U 3tlwfHCHymtrthXYjC9qjsNvbdgmYhu3qNt2YkPJ/ccWjVmBI82A5yXbOfSD PA29AKfB34HDDNGce6v+scS5BznIJJW/zUOnatZFdBI/Ar/hM1jJ+zWXl2o+ bxeNd7Anqyoen/ncq3eLRHfCv4veRfRO4B/k56IfUjmhZHoGmEmL8ztiiRNj Ld+LXljyOPiIiWX7GfDJlyt+90Vr82ZhtCGugYfENtiEl6reO8Y/tcW5yTk1 287HwS/1fjx+q+S1gA2hSxNq9oFPhn/A76PLk2uOX5bXbZPeCl9LfIRtwi6R I74d4xDzIM/4wk4t9pHkz2Mazj+erNlm8l1sKWMQzxHLnae9GK75nZPbL/cq Oe7BlhDPYE+wifh78DF8PfNB/xnv7diXpWHXiemJHcD7iB/A+N6IOGEH7dNV erd5av+CXcL376HxDwxd3kX0ASVjFOgiuQz6+EDdMtdBa+pXcvuubYx1FfVc 08p7e0rwn7x555L1YfOK/RcxDzrE+OgUc6UvOQj2fmTwhLgU/sDvouaza9gH 4lDGR36QNcZvpXGub3IbaPCV/WL+2CSwZewS+e+bwTfsOvpPjk3MAV4wPH6T exOr9w97hd3akDgmeyL3GsEpwKjBqsCs/iB+7lEz/rIkd46VB0/AMMCXkfdS w3NtbjgOOTuwYnIC5LYUOcpfI0+BZ4ODb/frW1eAl2auGxLyQL5zQovt7r3x LewDPpy8Az9OHtY1ctIXS54bOlaOfOFmzfPTZq+LvfuhZJuDruGHBse3Zpfs Z9E74j8wX/w4sQ+2F/++f8n8B7+dF7zFTqZhn7HT6O+iyI/AB8EGXwfLKdmn gC1j20ph37Ad0N1bGQ+gH7nJx83GzZEZ5Aea+jL2DpxZY17X5HWyxkrkRswf +zE76K0b9qNdVF7Q8HfOrFtv3gtf/EjDuoMOkUeRf5J7ds8cxx+TW17Jo4gt uqlf1mwsZnBuzBPskz0mpyJGwfZd0Gy7jZ1uS2yPbCM/zcaJsE3YqLOQsdRj TtQ4v0jd/qKaH+hR+s6yum3GJNXtl3qcKTXrMfqMDDyutSzht8q3Mvt3/PwP ga/h+8hJwd3A3NBl1o5+kYOBsZCj835W5K34UeQTDL5bwzQyOycwxILofxGX E9/UHfsSA6+PPSKPZS8OL1nXsF3oG/SeNcv22PAX5CfkIx9mlrFx4X+31fgp c6sZByFf+pPKB8uWhx/tzOiILdHlMeGPns/cBtnBlqCn2Jy1mTF8sPzhTaaR JfwF2CY2H3+I3yWGxL6Bf2J/DkxNg4li45fFGUHP1H3BR58rG4cHkwKTAaPG LpJjMebY8AVgm/iFL6qOy78iNgqcFry2W5xlcKYxqeozG8bA1jKnDyJ3ezp8 E+WyoLGT4Kj4Ar6DH+JbfP/5WBc6yN6hj+CV4JbH5eY1PD8+t796PPpy3jU2 bBHyhxyOzO1T8a3npY556QtGiX60Lhof6xfYKRjqM3X75Kka47G6fdHZop+V jC3T95ZHHtk2sLWn9PtJ1S9VubRu239ezTqD7ozIHRMQG5yZGucYHXYDXwEv 4APnkGPCznOWxpnEaWCBYEd62uv9g+ET8Y2cQ44LW0ccPSN4RbxM3MxZxmEl 08TP7Dl2G1xg77IxXPBbcNyDwgZ+E23AqfYhL4txODuDBgdAP9AZMP+hVZ/N 4PuPKLkePSL+mVpyrPly5CBncOZQdt5FfIGuHBxzIOahnrOPPmWfJzE+Z4Hk Bm1Sf2NIjI/fGxzrIn+6OnIo5j401nhIyeN3D7+Pj8Q/XlozPg9OP6xhfl+v upGiT1T7k1WekZuPz4P5ZP7uEcTUDfugPPV4xD/EjZvODUqWPXCFYZH7bDo3 C/pL8eTveo4u+SwL3J4zHmw7eRP2nbx5aPhWzjLBXm6Is032gLVw9skZ6JGp feoLMYfX6j7ja85cri3bTnL+QQ55aOrzac46+2HXS8Zax4knSeDdYIpP1RxD EkuCo4Gn9Urty84Jf4auvBcxXs+GY8he5B01Y1ScUZM3EquOUt+Fdfvt0/X+ xciLyY8nhB6iR2CEs8O2H5xbtjlTGh2+Fn25J+w/c2bu9wQ9sG4fMaDumBpb iZ1kLNqARZ1Xcm6ArwXLI3/eM/V5OzkbeQ/n7vy+NHfM2z9kkpyWPZrSsOxS T3xO7EBeiu4ckZpemvh8kXPGsSrfSRw3fAbulTju+Vz0lJLnxHzQl4nxm/sX 3MNgDzhTOCzuY4C5kK9umfo8Gyxg/9Tv6IOvAaMBq+mcGmckT94uNT4I/tY9 tc0/NMYvZ5aTwZGXEa+yT8SGxIjEZien3ueFWvugss86f8wtoNlj5Br5Rt85 LxoUbU5T30NEf5HYHvw92pAbrQ0aXBN8ExkgjtupHLlAxAwbMuOdG6q2c8do zH3VZjk4auJ8mRx9Q+CiUwP7gSY+xHb+I7DTganHX5gYA2BuYAXoJFgYuQPz ZG7sxfDUNuOuusdhruSG8KYUuDq2H/wLu981dY4DBjMstc2+veHxWTvfIObl Tgh2h/iR+xjI9kmpfe+8yHH7lR0PD03d5u3E9nW/sm3jcantB2fFJ6SufzGx T1sX/MSPgkGTOxMzNAfNvL6JtZBHkk/iI3ukpu9IjJODkePnnq9ZPs/R3F6p hew2jGvw/uOa7US3GOfksKUX5sZA0cdMPDwgdb40V+O/rDYvqM3eontkgYE3 jAPjZ4ljwSqRAc4+sVvEqR1DTnYOGt6zB/h0cnbWxrr6Rd7YX+V+DecJ+6s8 HDyH85HEuorO7lO3DH4dZ2ZPRj06vS78L/KDP0H2Np17htxSD95BPL2m7jyV 8cltf5Z6flfr/cCG842DwKAa9k+HqhzcsJ8e0jDesHnMH1wG+nPxdpfUNhZb S0wBj+DPUQ373aNDV+AX8cpPU9/tuFLf7RS59xWJY/+XKo4dyAlerDhuuid1 rFlJHBcvrzhO4UyB8wQw/A8S473gvi9nbrOSc8nUMeWa1DE4cSIx+VHgvOJP p9x3qcDWiQMGZD5/HBjnmfgwztr+J7PtwVf8IbFP5U4T+S3+/ueJzxk23TNR n//WuxWaw2sqV2dey+9Vvpl5jW+oPDW333xWfXuJ/qnms5fK9Zn5RHzXJfE8 OF9FvpHzu5EZtdsOnVXZG/wTbED0u6ljpr6J8XFy5t+FT6YeX0BOxtyI6U7Q u7ZgpGDpifOW+xqOhYnRiYcn5I5ZOLd5Q3RF71ar7KxyqxaffQ7U712Rz9w4 IbpD7nZnYp1Fd7F78BkMnLMjbDD0pvMDtUm4i5E57uQeHL4COSE23SZ1HMr5 DFjyqLAdyyPubZ0bryena1Gb6YnlCvnaNXUMzhka55+cgxLP/DJxbL992MW2 8S1ieWQVvd49c664m77TIXX9pdzdinMFdGhpxNj/zhyHsqfEpfum9vOcC3EH iFz9xIbPtTjDW1lw3Eb8dnzqs7uWOL8DyyHPbBUxGzwnbrstsX7tnrofcSd2 Fn+ysfr/Zw0b4wxux8jHycvnxLljX/XtljlWJGbcJ7WdBYcm/2Bd2Kt2qedw AbFeYpuGjXw1Md4CXk6OiG7i38lBwVPQGfzeipCBS9RnhHjeJD4co/LYsm0j d3OI1/EXnJlwdkIODB5D3Mg44EnE4ti0VXEutekcs+xYBxwG23Z82fgbcRF3 lcC1hpZdzxwG5c6JJyR+PyLa4BPAgfELwyNvJt8/qex2xFdnp+YH90eKdb+7 VHULyp4Hc3gkMW54WOpcYX70XZE4ZziWWC4xvn96avzmobLjKzA/cnJ4yHnU +xG7r07d5vepsRfWSxz0Xug4ug7ez/kFuoxeQ4O3cO7B+QcxAHUron6Tja0a Y1meOsZdltrevhDtweahsb0TU9ty7tHAyxOCz8dVbe/IQ7Cp5ODsC3ktMgZW 81nVd8i4P0YsOib8Dn7ymJCBV8uOI8EQ8GXEB/iXKYlxtzT1GJ/FHVnwuVej /QLJy+qy8xXsEHfRuCMBFgONfp2fWt6+TFz3adQja8wZeZuSer7cRSIWHh93 UJHrVbEvzHFVfHdt6u/2VftqZptSyTzeFzEmc1odOAaYNPg4ZwbUU0eOtyDu Or7L3cDU9oa7VDcQa6n9ZnXnx9DYE/ABzt3Av26KuJf497DcfJuUOB5nrsTP 16fmeTuN81TivPqo1Lkd82AO8At/x5067jIvCHleljjHPjp1TsBdYWLDYxLj m5zxziP+qvh+EPcewDoa4BmiW6n9fyXGXMBZwGJ+lhgf507oJqy67Jh2x8A+ bkhs/9rFGfGemTEU7jIU1Wa96FMTY7fQYHd/TBxTEc9ybwm7fklm+4idvDWx f4DOI59dW3LckEVMS2x7YWJbh83jPhEYPXcQ9kptI+7S+/6pZXeB6MsS+wJ8 AvJOzogMUfIbjAafjA0E25+cWuanppZD5BW9oOwcdI+QY/bk6Tg3AVcmN4I/ 7DvYK/wGAyfm6hD1+DDo68Kfs0bwWOJ09Gh04F2dYi/6xrxnR67B2XcheLMu +DMx8HLwf/B6sEbsxuSoJ69fl9jOXqjxLkl836t95P70J3a6KPG5xRap+02M vh2rHgua842RccaBfVoZNgqsgDyZHJl7W9wF4k7QcZG33NXwvZJ1EQvOiliR mJE88ZQ4R5gV2C35OPEfNgt79UTqeHNJanwGHAp8iftB5NTrQl+pR1+IR8id iRPuiXPVh/EtDfNtaGKcbE5gZfR7LsbEr60oO2f7KDX9ocrN657PNnGGvzLO 7x5IfP40KLBtfCq+jHfwiHmPSnyewf2ytTFf9h1cFhwZe/VdzXe6uCd7Yur8 7t3ENh67j51fU3FsTR/OH4g52bv1kdeSq85PLP/oAedFxIrcD8G/4HvwQX31 jW31u09uOW0bugxPqAdb5t4cuAkx/LS6seVSnLdPj289E3fiiZHb5NYnsM9a 7v3g3iI+dEb0aZVbv8H7iREujv2dFvE+8xygNrtoDv2J2SMn4kz4X5nzY/BR fFzv4DP3+Jg367ost/3+S2JMEd+DDcXPn1+1r+eewrywhxflvsdzscp1mfn7 lcpt9DREd80sr0sjf5lXtw2fnPisiTbkwtNzj/9J4ju5T0T7VPX/VpsG/x/R WO+J/kzlY3oWi340839koNEX7hpyh/DAun1Ix4jxyJPJly9U+W3NvoAcaE3k TYnG70msrzn0yI2lY9OxIewh9ZwdcFe2UrXsNce5XvfE8wInZ584M6GemPbX ie0q9nVinLUQoxELbbqPqXFm1nyv6NnMfIE/+LoxNd+t4o5Vu7gzxm/88/CQ eXgFf+AX8RS2BjuzWdh27Of2mfsxHrghsr/pfmDVuoB8cv7J2SO6wDnyiVXH 3JtwpqJzGPIkzjGIJ/sn3tNVMbfN4lvoK7EXOrttZr0YXTPmB2+IA9GTdtF+ 12iPzSVfKQdv4eXrIfOcJyDPtJmf+57Ngsgj0Uf2hbulnKGAqx2dO4biPwQT w66zri1z792RibG3ayKeB29jXfigGYltH7n7l5l5tX3i8eA/MdXZufkzPndd h9iXAcGTLHfOzVq4E8O4yNLYGKNdjIN9bRf5F/9tuiL+3zQ6d9w5RmX7unFR 7iriV3eJmLOv5ra92vbJfL+EWPakhvUW/b0D7Db32cBZueM24rdpme938B3s B3ab825sfqfMd1W3ynwWwfjk0dvGfZvhDf8Pa2bcf+P+JvgUeQT3oHm36X9n LdEuMMmpgevR/uq488kdZ+68Ud8LHdbvnip76+nGfDLH68TtHROfZ9GGGIMx OK/kHbki93jwFWA+9CVuZw/YC+R0i8y4dvvM946RJ3zBlonvmrydGWPAR2C3 yZO6BbYDrsZ8wfE4H+xcsV5vlfhOzDvq+5vw0fjqeZnnNDcwXe7d4tf/UzM/ hqjskPkub0fueGf+BneUDhDdXfU/z8zXOcFbzuKwR+CGlJODRrfuDb8Djx+t mJ8Lo/99KnfLPOddVe6vZwfR+2Xe//4hA89k7rs88/1v7oH/K/HZDvMB5yHf py9nH3Myy8AazfnPIW/4jf8DQiE3YQ== "]], PolygonBox[CompressedData[" 1:eJwtmXm8VeMax3eds885+1hr7bVWhpRKE5oUpVQa1NFkKE6TUFRoLjQQUVEZ LoVUMl3TaSKNpqhIN2XMPIWSKR+Zbiku7vfn54/ns59nPdO73vW+z7RrDx57 zpjKmUzmnUqZTCG/DdNMpkppJvMNdM8ok7kryGS65jKZLkD/JJO5L8xk6mcz mVeLMpnWcSbTKJ/JHF+cyTQFGoO3RufTgkymSQl68DtBXw59APkD4OPR/wtH o7HRA18PYfNObN8F7MLXKHTORLcWMiPBb0a+KrIx+sdC74UeAP9c4Gro+/DZ B9/v4eNe8JHY7M/6y9AZBv440BXdtdAB/tsAnyHbEv2z0b8bnar4OhzYg/8a yJeivw36HHwNQmYV9m9hPwaCr0b/ITbsdPQvgb4UOANcm/cZ+ivQ74G/p/GX ItuLZ3ORn8v7Pcy7PgG/O/yn9E7wjwQ2gn/Hs9Xw1iOzBtnJ+HwF3SHY74l+ V3wMBS9GfjnyPyNfBF6dNY7H9xTod9DdBV2G7DL0H+XdaoTGlwKPQC8CRvH+ j0EvBr8KneH46wd9JfjOwGvVN9G3eRC6HPxsYDD0ctbYDV9PsoYI/0tDf+sO 6LfH3tfQ3aFPQWYM/C082wTvJ/RbwzsGG4+CVwGOBS+AXwx/LXAs/D+AOex/ Fv6R8D+APhV744B5vP8HWgOyP7In7+s8sp5bkd8PP4T+E/nboUvQPwr6Lviz oIfw/eaCXxpYtwk26ut7AIty3tPh8E5PvZc6oxOwtVF7zH71w/6V+L8CqAJd Dj0efCzrvwJbE4AX0V+CTlNsbcdGF/gbgDFZf6P1Oj/4Oxl8OT7Xgk9EvnLW Mj3xvRAYCn4+9u/RevH/Ems/FPsxvlZj4w54Y7CxCnxNYlv18NcL2QxQgf7d +t7o3wB/EvyvWfPV6D/Gsy7IrkGmFNkv8T8J/Er2aCa8r0Lji/GxFfvVI9/d I4Gu4BdjY3KBz8TF2K4FXUffD/6b8JPIZ/sN6FvQ3w+9H/wZYBi2fwPmZf3N nsff96H3ti8wCfkc9EDe7XLkX8T+SmAJvoqg27G/ITovILubNQTgX/KsCvLd gHmspQJ/eyp7TxeBL8HmLORHwF8M/ggwTXcJ+mHwddjvWOg7tyFxjFOsWwvM xfZu7Q9rnQjMwN83PHtYdwNYimxd+NMUq1jf7sR3UnfzoAB8M1C3wDHrGvzl I9+dbfBv0tkADoHfC/5Y8NnYH1zgM39+7Duru/uyzjO+KvK+u1uhayoWI9MS +kN06oG3gt+q2DbHYyuNfdZ15xPwdkB76B3Qpyj+pT5rijELwLcBe3jXHxUT WWtV3VF8HcazYt0nnXnkv2T97+F/KPAL9moDNfB9KDoj4XeB7gJdXXuC/qfY nwP9WuD4K5nZ2Lof+dHYWgXdBN4bwE74o6DnwJ8c+2wcx3quAh8G/ydsDeLZ NOjDgZvQD9nTKaxlD/Qr8KrgP8JfA57diu4w+HtZyxT458FvxLN98ge9AjqL fCXkOyP/FLwfoP+Cvhq6UolznHKdZCSrnHAMvBPQbwP+MWtuBt4Wfttix4hJ 2N/GsyXo78V/Xd71stjfug4+xsWOaYptX/MOHyqW5p1LK6H/NvLzA8e27uzh ANbfgmcfwPsvMll0myPfHLyYZ5ch+xXfb+wh5ETof0EvRv579iuvGIH+VOBH fT/414H3RWaf8gX+X9b9Dm27LnA0tgsj7/VAYCr+Dov8bc6Efxb8fuj/Cv0D +j/Cq4nNHL524vMO+G+is7LEMV6xXjlCuaIj0AF8ODqNKllmO7ITWH8T9Cuz P+PBy7FfUdlrLsV249S8X3RewHvC3wu+Ev+vYWur7ihn9RTebya880J/y73A n/gLEuvKZm/4HfNei2K8Yv1p0GXFvrO6uwuB4YqX+GyOfLvIuV5nvpD1/or9 k6BHIHOv8jn0NeDNWENX1tKRZ8fDP0UxDvnl0DP1rRWTWcsbkWPHLmQuQHd4 7G+pGmgE+HpsbMJWA/zNZm3PsYZL0b0MejT04ehMRv84ZDqofgjtqwf80+Fv hO6kWIjMpartFN/Bj0a+FXRfoBr25uOzD3g/1tQ55xytXL0Z+Q6qlbBXjr13 oTuWOAYoFuxk/a2z3q/Pwa8JfRf/AA6DP0Q+iyyzBt4MoErWNVlN+G/Fvvu3 8P6jVEsCzXS2eXYtsv/WfVctynouYj2n4uPEQq9pALoNeXYYvH18zwbg3dHv hn4b+OtCx2DF4qpAGfh0niX4z0NXR39P6FpO8asmus/ibx3vMg6bU7C3gfVv Zq8awr8d/hfobEI+hQ6hb0P+wgLvyXnwtgauRRUzqkBXQ2YWvj5hzUeC3xP5 rLSCPoDsdGQuLHEOVi4eBb8t/AT7AfITY9ca9VWPgO9jTU/BK1IMAP+WZ9tK HPMU+9pjc3uJc6Zy5/exc6We7dXaA7+bdKQb4XMC/nby7AfVe5Fzr2KiYuP4 xLFUZ24C+MC8z6Jy1AXgC9Gvl3VN21LvkvdeDYU/CHxE4FpPNZZqrbqJY1Fj ZBqodgDqFbum/ru2xl5j1c7Y66D6PnLtrT3fDV0B//isa+zO0AWxa4+v2J8h 8J4MXdt3xmYnbN+J/7Kcz3RffC9EfhL86nzT4cguRWZMgWvKZeBdebYZ/AA+ muE7i/7IrGuIWoFrStWWinE1wF/KOzdtRGezYknqu/i77jz42rx7GX2zJ/PO Oco9LymnK59Aj8i6JqkB3hmfLQvdM6l3ahNaVjW0ammdUZ1V9Rzfwfsi8VpV g9RRvxI41ypmKHYsBe4udQ2jWubZvHPPs9hYB94/9V04VO+o3KeaOOcaVbVq TdawI+saTrVczP79VeweQ71Gnci5rRfwSugaSbXSEsLkF9Cd8/4WzZFfHbqm VG2pnKjcqJis2KyecwD8DXmf9ed5tjHvnKPcozuSjdwTqDdQTVFNtS9QkXMM UCxoj40n0K9gvTnWsgN6CGsLoadB18u7tpkBXR/8hsBr3wX9deQaWbXyVHLo t6lrGu23alzVuvtD55Za8D+CvyX0u9aA/hD6NeCXUveUH8NrFbtX1h25B/p1 +PtKXUPPw/cgfcNC99jqtR/Iu5dQDlcuPw79zUXugW9BtkvkWlxnWme7O/ym Je651XtPT91L6p0/DV0zq3Y+D5+j4Q2O3UuqR1Ov1iJ2LVoH+QXQ10Evy/rM LEN+Z+K9msoaa6tWVw1Z4hisWPwoMouRn4/8IvCK1LhqZNXKlwTe+wXqKeCd nDr3HES/BfhFgWsFxVjF2gr8XcD753j/t6C3p8YH8mwIe/OKeoZS9/z3Qzdi PVuwX4013Mb6uqXOvX9gv0y9vGYKWfdMtcE/QX4m9CXo7ABPkSlTf4J8F+0H MjdmnfOV+7P4yCk+Ab+pd0wcK1VTfp84xuh8q2YoU6xHpnWh79CT8E/DftNS r0FreVM5Neecrdz9WOJeQj3MMvA4cS2lHimf+AzqLL7L990SuOdT7ycb2xPn TOVO5ax1gWt01eqqiUoUa9H/HdlybH4eeE+0N1pTF/CPYu+F7syHsXOacpti oGLhCdAnKt+o3oZ+MfRsJYvOcPTbAceWOkYqVirmKfbpWXvVYolrnVk8W4Gt h2LX4urxHlTuh18fWy2g96P/FvR/cq6hVEudhI1apY6RipUrFN+zrinOiH2G dJYk0zJ1TFdsV8yqpV4UmcsLbfNtbH8TuXfpD/8dZM+KHZvUk6g3ibDxdKH3 LAb/NnJtPgD595EvSlxr3qH3BZ+TurbSmfoZfnns2NMO+lnovXn37m9gsy/0 UZFrPd35GuAnBZ5NqKfdhe7z2Fydc0+q3lQ19t+1NtATvAfQHbwt8s+H7rHU a3UVqN5L/ulduVN/YvvU0LXrEtbUEbxt5LXpfTULeyTx7O1/0DsC98jqlTfx 7HV4wyKfPc0gNItQTfl3bakclHcPrV56PfIvI78lMa6aQrWFzpzO3kF8nhi5 hlQteQ7QG3x05FmRZhTXo/tu4l5XPbx6ec0gNYvM8U2PYq/fS9z7qqdRb3Md z0bCG4T93vDKQ8uWANUVjxO/i2pe1b4HY38L1eC/xZaRrGZ+veGfn/csTDWd arsb4F+c9UzmM/ivQv+k2gH+7YotgWtP1dCN8VU19l1Rj6Ze7YjYtax6BvUO yhHKFT2w97LqPc0DNe/B5jjwc1PPOqvzbLZmYaFxxbgm2JqimV2xe6ZrwF/H 5qoi14zrWctxrOHwnHPi44lnapqtqQZdEbmnVG9ZC/4JiWcyms2oB38A3kps rkF+PPBC4Jyo3Hg2a5gRuMZXrV9f8zz0uya+u6pZuoF/B//bIueESuC3ho7N mhk2ZP3XY/9mbM8BbgLfrXoee42w1wn9MPKsVjlvlupzff8iz7T+wlY29Syx DjovRK4hVUuqJrkq9DPx6iHTCnstE+Od4J+ad85W7lbPpt7tcZ6tLHYPq15W MUqxSnuwCrxX3ndPa9Rap2heAn0B6/kodE5QbngQuAfZTqopi5xD9oW+c7p7 mkmPSP3OenedqT9UYwSePXcHFsBrx3ob5NzDqJdRT67eXDGpTLWC+mXW0lAx AtnFmoHmnDMXgc9LPbvWzHN+6pm0zt5sYCq6A6EPFHqmcwTyl6SO5eoRN2D/ zLzvtnzI153QC4rt41HkdweeLerZXHgnJz4LyoGq9Q6Gjo3Kqfdiu0/ed705 9r7E3rmaf0B/Ad0fvFnis6ieT73fLmQaFngP2sN7LO/aQ99oOfjY1HdFe6y9 Xpj33muGPRH5ftDl0CdjY3rgPdXeLtI3Um+Yd6yUD/mqEnlW/w72bmM9l2F/ YKlnTFux3yb2rEwznbbgc7DZKeczrrPeKPTeaga1Wrk48OxFNYpqlTNj21bO WqleHX61As/gTmK9J0SOjbrDusuvhe7FNcPQLOOIyLNNxRzFnnGBez/l5BMT z+Q1m1ePrF5Zd1Z3VzNpzab1H8Lkf+hxih3A9GLPfDT7mZZ4FqRn0xPnROVG zeAfxN+0wN9O36wz/JvUoxR4RqhZoXo89Xq6E4PB+8TOTZrhaZanGZJmSerx aqsXUg9a5BnATOVD6BeK3JNfD907du+umYlmJ7qzuruqcZ+Af07iu6eYUA5+ MHAvrZpLtZdytHK1/gN4iPXdHvus6UzcIduBZxPKsc8l/g9J/yVpJviDzm7g 2K4aXrW8ZiyatagGLASvmncvrxpetfzQxLMJ7ckQ8EE8S4r8H9m92BuTuvZW jFesL0zdK+oMFIAfEnkWrz2YwVomamZb4JliC+ytSn129R9RVc23IteqmlFq Vqlvqm+rnLBN/z+krrVVw6uWvzF0b6c9rw19NvI9i13DbwqdM5U7dab7gD8T +7851UxPg88P3RvonZrr/w98lBZ45twc+TqxZ8+aQdYF/z1xbymZ38Arp+7l 9E6V1H+k7u31H8libE/Pu/ZQTrhBs8HEsU01jmqdwaF7e/1nURn7HWP/t6AZ wcP6byhx7tA76d3mxp71qKe/U71X6NylnKjcWBb7vxnNEBZplhB7dquZeVPl p8CxQzPI05C/PHWuVky4InUPol5ENce1qWeyms1qpnA3+v8HnDC9JA== "]]}]}, {RGBColor[0.783064942352069, 0.8538121752927396, 0.9048766121377956], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNmgv8luP9x+/61fN7fs9z3/dz30/IIRoR6aDC4i+UkL9kzNlQK6dQNIch 1MS2yqEIUY5J1KgVJrNNyWYaMoc5zZxWttkcph34Y5/37/Pttf/r9dyv63qu +3udvtf3+Lnubcec/c0JHZMk2dCSJPolRzaS5KDOSXKEyuvyJBms+iNZklyh /9Nak+RylVvXkuQbnZLkDnV4oJIkP1P9MT2j1d6m/4eqz9dVP1Jt94lmxzJJ mm1J0lPleI3xhdpu1KQ3afxhol2p8Z9Vv5P07Kz/bWr/XDSDVT5TmP7NNEmu 0f/d9P5+0e+g8Q/T+PP1brX6HatnM73rq/bD1b5A7b9W27f0fE3tV6hvQ+Vk 9R2oeifRvKUxr9J+ZmlN01V+UU+SbcWDaar/VLQj9TycuGRPC7TmzuozSm17 N5OkqrZz9CzS/zc1z3DVD9RTE80EtR0gmmHVJDlL705Vewe1H6b23dV+RSe3 DdT/AVrzEfq/UGs+Rk9n1Zdprnlaz1w9/xbv7ird/rbGGKnyp3o27ZAk+2s/ i0T7lPY0vbPPgTGzhmneFf8O0Brub/VaL9Y4T2iOX2icDzu4PlnloJrP7Hz1 eUHzHaLye2o/W30uUH1u4n0wJvMv0LrOE90GjTtfzwF6t4/a99FcI4MXf9I+ p+rdJK1lYM37PLeTxzs/xuxZ81mOZ16t7Sb1/4nWfKH+f7eTefu82mepfZna t6lZ/sbpXb+az3ui6s+K5vuiuVc0k1Rfp329pD1O1hov0Br+ov+X5j7Lp8Wz y7SmTmpPVI5S+ZTeX6/9niT6H+p/i56Jql+o8rt6JqjvReq7PvP/R0X/sbp3 UH2l6i+q3j83f4aL5mLx5yI9K/RurfjwHcbQXA+1eG3w/vXUejdC5ehYY4+O PpMNcS6jNcYoPUmb51kVc53d8JpXpt7fOD0v6v+Chs/sHa2hc2fX4XOp/hNV fyqxjv6lk+X5U/gd/wdqnZuLn/2QbfHxHxqzonK++Pm23h+muf6l/6+rzz9V Ho/OqO9n2vdKjX2unu/o2ZK9ay1H67lb9fl6/tzJYyDDx8Q7yrKD5/meng/0 bq3GWq+ye8PlH/Xc2dHr+1OsuVrxO9rXar6JLd5X77rlv0cHlz+L+iZa78ei 20LPVqqfEDZhG9U/UdlDT6n6cWFDhmnuPVTuUdr+7aOnV4t1cmicyw6iHxX2 ClmZpLm21PuXat4b+9qg92/o/RN6pon/r4mmqfakal3EfgwNvsAL3r8eNP/b 8Lx7aw1bafypFb+7vm57ta/qQ/V+31jb9JrpZun/ibnt0GrJwK4Vn/sKTfuC aO6PM6LfED0L1f5/oruDfiGPt3f2Hl+rmAbaTzuZ5pfa4+Fa2wGsvbSvYK4B 6vdoZ9tzxty04ne0b1LxWlnnwY0YU337iye76LlZ7cO15uc5H5XjtI6/a54l pcceHnaYsQ+IMftWbB+Q7Vcq5hVndaDGX6FyE43zaMVrZu3o4/Swt98JWYUn b1Q8JmM/WbU/g+7cmnnJmQwNfYUnB4pmSav7c+bYBOzAzlpzF2g0/xrt6aaO tp/H5+bfY+LxKpXbRfvEOAfWsEXdMjNF7eM1zpei+bv6HdowTzdVvWfDe+Gs kJ0LwzZ+sdHuqn5iJ/sV9vigxlmuMU8L+4Z9wbbgS9AzfAZ6/+fQK3SYsT5X +e3cbadqrnEN25bTVX6Z2959pbKQjfhMY+Uql7d6DsbHhl0Qtggbia1kHT0a 7ssYNfGwjh4mphsXNFfFONjhEZr/zFbz5O2IKbDd6Ojq0NN+4ltfPZOrjgmI DWbmll/OnnO/RO+eQW8T2xD2zN7wl/Dg6NR6hX5xnt01ziUq/1DaNqyp2D6g 68+Gvm8dtulk0X6k/6vU3lSZcs6qb+jkOIN44/uaZ0Dp9hdy26FfVmyLpoZv QX7uFn1ftfXObZ9+HTZqVWo7j72H9sLg1Tdz28bR6vdVR9sm5HN4yD96cEjD ejdC5aUaZ1tsrvpNSa1DJzCGzu9E8fBdlZNT6+hxat9Z8++tubbQ/16q76l6 2eIYcGjYQmRwcugh+jgl6jup3F10bS32scg857ij2gfof+ew/YyBnezfcPsu Kvs0zMfeKi8mBlGfi0IWOoU8LJJu3lfzf/iadzbPVwavfqy+3wjdQYfwvWch n4n1kjrx5zrteYHqtzfcNj7ad0rtY7dMbQOwq8jIOyq7hmzfq/kX1mz7v5na L40W38qG/cCQ1LrQNfRioz9DdtKG/fhZoj88tR87PHcf+v5G9UGd7YPmEFdo j5cHHwbqrAbouVJyfZ3KvaSDd2uODap/Wrd/WBTviY/xw/gY7MsNap9d956f kkxOEc38wjzDn6B3L9ese/D5jNJjVFKPsdFvE9MfFbb3wabrm4jmAY09s+r4 e47qN+l5rs2++MSwS/ATXmJXzyxNW0/tI7GPxJ3jSucXa4gHC69njsq39H+t xntT5et6fqP6q6XlBN5gSzs27PcPkl50aNgePqe+X8tsn7HT9MNGo+dPt1nG GKN/8Bi7in2/OMa8J2wMa0I+RkbsTfw+Mvb1B42zTjRj9f/9pm3ZlZp/fOk8 qJlaXtg7dua1qkt0f6nGv7HqHOCs0mVD9MvUPq/q/sSs2L/JuXMTbCL/8e8f hI/H35KH4DP/ndvXV3LnTysi58Kv4F8mpH4HTavKT3L79uPVvrvmfLliGUQW kcmhqf0BtnOXyDXwlY+FDcIWba/2Z3PHqQNULq84BuJsl2Uer09ue3NC3f7g tMz+aIB4NrNuHzRK/fcsvYa3RD9P9eni7y0q9yvts99DRyrWxeURe9COHz+k 4v/EISMqtofo0YaIM59MHBvBp36580/63ZzbXhL34LOJubGt8KVP3fEl/gRf zvu+6Gxp+ndzz0MsQhyyRep5WiV7+5Rufyd3Ls372apvX9p+3ht9B8c6Z9XN i2Hiy8Hiy66Sm/My5w1PRCzyvYbzlCkN2yLqxI1Dw0aTx95Yt13D5pF/Mc6l ifM72pDhNU3bjxmpefOP4E9b4XPhfLpGbgKvl9Sdd5HfdhTNx3o3JrNNIi+7 I2L+DTEOukWci179uO51sIbldcv3xpyTErtyfep4/sDc9OgGeeOMVu8Ln7Fv tJEvX92wvFytfsObzgW30HpuSG37Rqn+25pjLXRkbJvtPHzZs+a8l/kp99Bz ldb2jabrF5AnVkwHDbEdNqRX6vUPCvpPNNZHrdYB8pHn9PxPi+M6fN92ojm6 9L7YXyq+fS76MzX+Z62uE7+tL+0rHtDed6w6x2iPNwI3AD8gjwNLIT4mzyTf zCLGWx557KC6c2qwkb80HIed0XB+jF8Av6ANG4T9wQ9g35gD/wJde35d9zts Gn6AvpzvL9pMf4TWcCn5Y5vtO+ORG2IvPmjY33YXLxeHT2JNg5oeu0tmniE/ I8lBWs0L/PjCuvN81nOU9nyvxnuvaf6xf3I9YoTPgm83hB9EX5BP/BC4wL5N 4wqbaa7FDcfti1T2zOwX8A/3NoyNLGxYhpCl41TfK8YAR2L94BTwjbXdE7KO j2BM/AQxOeMQE6G/6BRx+W41yzy4BzEL/hCZaBWfqlXHQgfo3Pupfarmb6v6 HbFjX62/q/r0UdmQzHwJhgDe0+bcibxpl6b5A592iXZkjzifXB4dJuYkBz4z cSy3bdUxLfgSMTxY2GWZ46h+2vvBNdMQ721WdV/i1fPUvknN8fRDqbGMc7T2 bmr7otVxTPuaNObvEo/3RZxpl6pzbOJ28Af2RTxOPE87sSJlM+rbFM4RrtS6 Ltcc5+OnVe5YmGa62rdVPVf9h6oP1XhZ8JOSdmLyiwIH6dWwXu4S/GFdX8ba iOFrkY9sVfhcLle/PVXfTvVbM/tbzog8hDg2i/G/Lpruqt+SmWfbBW/hK2dA joEOoAuvaf27ir6baG7KjEV0Cz4P07s+7DG1D6dO3rt11XTkAuQjYBYXJ+Y7 /H+YOKFh3V/a8PkPiD2CP42MmAXcZUbYT/BN/MPUhuO+WZFzHVvaZmI7Dyo9 znCV59Qcr+F3iGsObrO9IT/HDp2ROmfZKvaCvGwa8oYMwgdkFNuAjcD2fFja ruSZfSBnRO5ADEUsRb72MfJSc45K21vR/nDI3lyN8bfS7b0y86Z78Gd91WMh q/tpjK4hV+QmXUOe++osNld9Zua2zaN958LrvzpzHEk8uZ4Ysuo5ON/FhW3h osJ8Whw8nx1+B16eItpT4+zm1fwfnvxAfU5WPcutT+tjnfjlFwN73Vc0PdV+ F3lt1TEZ8dPOKneqOlcE2z4lxgc7Py38xTiVZ1SdD99aczs8GVv1vOjgtMJr a+TGzsdG+5VqH0N+rva5Nbe35+ltXh8xw02xVnAM1tJLzzT8Zs1rJc8cVrj9 nsy5M76MXLJDm+MqYipiK+rkgIfAR9EsFf0bpWNzcvGXgifMS/ly8Odbqccg bgUjZVzuDJinZ8xFDNJuN1S+V7pvj8wxSdHmuOSawrzqkjtPJD4gNtihNM1p mue2mnnKHmeI/nTkPDeWgIwin8guMkxORKzD2O34TKvtILYRjBy/hc8iN1oT PLxF43+7aj+IvWa92A1sFmP2AAdrOu7av2ks8aGIA7Fb2K9m2G7m6i/6rzft Q3dTuU/T/mtw0z4zjXwZLBv8akzhswAvgae3B2YGngA+wlou0tjbZPZv96je LTOOfzf3DJnxNzDLWmmeHJEaEwYvw08SLxA3kEMhj6eHrCL770cs0VK63hGd rjt+hUdg2eDYRWHslPsM/O2ayBMLvb9Vbb9qs5+Fl2PCh4LrHFT1Pp/IjPWB X75Ymn4rtZ1cmGasyp9lxifBKbF7xNPYStZD3ogd71+1rCLnj7d5X6yfOwry X2JjcjZyN2LUnnH/dYzKFSofaTMuPSdy2yo5Dnceop9bOMeABptwW9V7I86k nBd17DFygAw8WDjWu0c8/2nhmOVRlUPq7gNPwP+mtDmOJx8m/rlT884s3X5t 6TiUNSCfzM86WCcxHnVs7zupfQn3UfWabTr2HPpHY82rSseEbeJl97gv495s Y95LfJhk3jv5PfnF76tx91E4D1iceqx1MS/5F+sgzrys6jrtnxXu++/C907j q86PwQXXhVxxD0TuNLG0vW7PUcjPSq+5ntmm3Rg50crC5/a4yqmlY+Tx4tWM Nueh5FnkWzOizjzrY66H4iw4k5P1fnXVuTc5PTk+Z0MbWDM59HWF1zyrcJ5S RmxPjPhc2AcwD+rkHoeKpnfYNzC63uELwFvWBqYxsGoZxf5zn8a85FwHao4+ qt+XuV+f6Ls8M9bEvcfguvuQRz0efFiUet/TYr+r44w4q2nBE+zR1Lgza78f Czm8N7UP564QO/l46hyWe0iwJu5LwCPAEp6q2tdy1wtmcato9qhbr4jjydtm tvndHaVjlj1SY0joHXzfNu5euYOdU/Ve2Pv7hccfpPbbS49zG/Fk5Onk62nV 9hRbyriMP0M8+WPumOyohu+2tor7LUr+k9+R25PjH9Tw2ZH7gaEx/+DAd9Bd cld4Sv5KHd2kHBJ18A5wj7dzYxxgGoc1jC+AM4xs2JaSg5Af7RiY8k658+4F kXuTn0CDfaRcGPT4hIWRvyCHk+KOkvuRSXFHskNun9Izt/0YEjgU+R953Ki4 s9gy7i3W1o3pEOM9ktqPcucJPbgA+na52o9U+zFa/20N50dgDz9Jje2uLI2v oOfo+FWpcUowWnS9T2Av7B3dRtfgKXkackauRh25pRwc9Z6p7442Tx1rcJdK vPFKzfXPY/1zA5M6OjPO+7eGY4rRcfd6YmY867nc97js8a9xp0E/MC/4sUXI A7kuvDosZJOcFLlkndSR2Tu0t2v1//PMc7XXW4wrLA9s5B+p871lpfES2rH/ E0rfVZ9dmo53G33OsqBBxsBPsD1Dct/DHVkYswaLxB6Dt4E1kauCJ88K3Il8 +rqon1T4O4ZRKh8prFcrCtNeF7nunYXt8l2FcWjGJJe+Xv8nqH124bZZMRc5 8Y/r/10jdfT06tJ39teUxqbBH+5WuXfue9+uhfm3JPhJnkUeS45xZOr77LS0 HqAP2Bxsz4Ko98qdR+2cOyZaXP/vWS0O2YaOO2uwTvDN3iGT82NM7AXfImCX lhf+5gDM5D6Va8Lun1s69kLf9mj6PnFG3ClOLr2mKSrnNt1+S9PxGWsaErHe ksAgkPOlwZ/9491BKp9JjW8eGnwCr0E/1oWOkF+NiDvdS0rj+Mjjj/A5mfP2 XTXOeU1/u3O+yi8D639c9Cdkzk96g/Fn9vfb8C0D31zUHBdV4juBWuF4aWLk ipTnBA0xFHVilTlN31XfrLKZO7Ze2vQ3IviPK0rj5uSZd5bGwZHfxzT++Znx lBGiz3PnVA+oXuTOc5ao/rvSmP4rpb9jIP/sr7Il8z0F9xXEcW9FbJlGnnN/ 03cY0DxZ2B6sDZv2YObcZqxoapljuNUa/weBOxyLHmfOM48Dq8kcFz5dGvdH L1cVtpFrw878ITMfrwC/yezXxwQG/mnoHbHJeYG3wM9zg7e13DnDj5qOkdkL cem8zNjNKLVvWtqmbFb6TujT0Efuf7gr2ti2Ieaqhx99GMwj8q531fevpXPv j0rbS+wm9pM4hXgFTHVu5tx4ELFPZuxySOFvqsAWrmmY9oXAYSn5T5yzNLCL 9zX+wsz57f7YmMzYx24RD6ODxKK/Si0nfFv0+9SYxt2lMU9ihfFhb/lPPICf wweBObbjj0GD7kIP7byGv2G6tWHagUGPTlPHj81JLZPc7YCpgK1w77MicBZi R8qLo31S1FfEnRlxDvHA9zPHGd21r2sy42u9C79/OWh+F3XiohmZsbOdCvP+ 1WiH/pWoQ0sf4umpmTHEboVtQL+wA2Mz49Qthe8bwFxeFt8+Cuxmutr+mhqP +yHYe+Y4cqToX4yz47wo+c+90d9T5/ZX5V7LSxtlI/K0psqzMmO7mer35MbT X9K8xxb+Vuy4wnI1OnzxzwvnPL8ADxDt2RXfwV2W+46Vu9bd1HZOxTjwe4W/ S7tV7/upnFBx3s3dHO2cFbHAXhGDjco97tLUWNhXcQcN1kb+QKzAGP1jHHL5 AbEGcuKv4p69d9xTT9L+5uS+T+deHTwLfv9Ke3wu9V3UUVrjtbnzRe7hwWzA bs5M/A0i+GtDcvWDwGI+UNsduTHUU3LL6aCQVbBs5Hct+hL8hK/E8+QD5AV3 5daVPqlxdmT5mdL3IsREvy19n0EMD14xs/A6WS/fMuwY3zOcEHER61vOvaDa T879HQP37n0bPofd4yz+mbsO7djc57QstW+eG7aUHIVchXxmdtghMEjez4u5 iPtmR/sfC8ep6wpjJvQlxykavv87Lfc3EdS5B/x56liMe0gwmX5xjq+GviBj 3wpZeUC0R8e3DveF7ec7BnhCzLtvxL3I4K4hA+RJ+Fzu6Yhj2r97TIwZwEPu HLGJuwVPri1Mj6/uUpj+16lxNc4abI293hB2+Prc32DwLQaYQft3ey3GV4jf eAeGwfdVyNzxhetD1W//uM/l7vfowvTEfSPiO5CfZ8YpN6sYqwTHHR3f3ICL g48jc//KTbNfnCftT0UMjX5ckhv7QfaQI96vDRq+bdkpvm8BU6UO7npEfFf8 ZNwzEMuBiW2fxvdiKnuk5muX1N/dcFcB1sp3Jf3i25LtUuNwBXpTeBxiQ/B4 5Bb8n28lBsRd/hG52+enxu65e8COdEuNt31V93cH3FETtz8fe4E/y+PuGryR nIyzB4M9Mve+FqTWEWQWmTs1Ny+2zD0u40/NPcYbMT53BOwLnHxGbtz2k9Q4 GjzdmjglN83C1N/dnBD04GbQg+Xybc6o0Pdj43sR7tjBu8C6iO03Dd7emNu2 gYu027eqcTnwOXKyt+Md+4QX7ZhDZ/MC2SOfXRXrR77ohx9HRp4PXuHvVgem 0SXOcVbubxPQBXSiiLO7Wu1b5+ZJN5XTctvDD1PHI7NDF/iG6LiQn/Y7iohh yF248waLOC2+Azg9tw6jy2+qviS1DT8pj+99Ikbi+4uF0Xe/kPNh+LvUOj4m ty6hU8cU/saIezt48Gp8c/L70rEjY4IbgQWxnpag5fsksBps3H3/r479grdr on5J5FnoPjbvP8xd9n4= "]], PolygonBox[CompressedData[" 1:eJwtmHm8jdUax1/OOXvvc+z97vfdQplKyqyM0ecWyXgNUeY5NCHHJUSDuYFz TNWnzENISJMkNCqlebhCpUEl3U8q1VXdutz7/fXzx/q8z7OeYT1rveuZVo3h Y68qLhsEwZIyQZDPd2wcBEMKgyAvGQS5bBDMygXBuKIgGM/4PBMEv0VB8Ekq CMqB9wZ/lNGsIAhGMTcfWi/GGYkgaMXcLmht0Nce+BBzlwOvQud6dLdmsXHA RfD/Cn4MvBA4YC4ffDRjezoIpqMji/xw9N8BPYs9+fD+gY0RcCYMgmugjWDc Cb0y/DdBfw36PtYbBL1xXhB0QMdg4HPgycDbBvvvgrclOqoDj0SmBfDnyNwG /B7yXwB/zKiJWW+BfwKch/zP2HYEnmHIFzJXEfmf0FkEHGNzKfwtmeuOvkkZ wy0YV4A3Z/QIvOZFwH3Zby/07cK+PsB90V8h4TN7GdkP0TkVfBLrVQV/FnpP 4PXsaVdkGcmOYf17wBdFhrsh8wG2lEP+O/grsV5D1vsSfB97+ZBxLvrqM3cG tAmMw+ANcuYt1D/kvL5H//ikz+AY8J/wLIBeBvkK6OoCf7Min7nOfil4iXDG F+CNc/63Z4I3AX4E+3qAr8b+zcCtGOdjb23GWvgz4P9lvRPwjAKfzRqzwH9i /VnAc5irWOB/fpf2Gpo2hbli4JuhX1zkM9sAPpQ1O4PHrDeR82iJTI2U55bD ewc8BdAas0Yj9rcR+p3Qh6LzbPgPMwqw5TBjLesPR98VyJ6FzBRoFZDfydpd WW8hsmXQ2RXe/ZzP1/DXhac8vrUJmW3ITmRcrbuATDvoLaDvZb1HkX8TXdcy DrD2u9CvA16Hzukp35lq8M4DHwm+Eh056LNZLwdvyFwNaLvlg6y/AfteEs56 B+A9hZOPQf7ujHnlA/KFz9BRj7UbomMdtCexaRO2L0F+FfxzpR/emFEL/j2M 3ujfCP0V4JfR/xH6/wQvRNd4ZArzLFMb+hDkz8X2Q+ivBr1Kxr65Avpz0C9D vhbyY9DZGngC9Ka6K4y/g1+JzJqy9rergEP03x6YpzP0Mug4nrRPjkC2E3MX QBsHf0fdbWR2sHYX9rgA3hR4l3yfic6mGnNF2JJW/EC+OO2z0p60tyT8W5Df B/4S+Czwbqw/DP5ZyF6DzFH0pdCfDz4Cnu7w1uAMpqKrA/zjgN9HR0fgSpF5 Q/CpyJYD/yPpO38j+EDOvzPnUwq+GPkfuJNfAu9DRxa4ZsZ3Sz4sX66reIst FRV/oX3L3Fb5K3s4qtihmFBgn1yGbZvT/ne6I2OglwsdW7Wf2Yq/p89Te6wK 79PgV+ruI7MNeB0yJUn7xJfQr0Z+PWv9S/EQuBAbtmPb7ehbDf9ZjGTKPiZf Gwp9CnCVckFwEHvWgNfDvhvgKYE3JxuAU8zVY79xaNr1jLnQhjE6ABcz7gWu yihMOUcoV1wN3j5lHTHwPOTnBPaZUp09PIPzbeNu9rII+mLolyB/j+5Xzrll E3tqB29feHKF/od95K/oOAddNeFfAv1y8Drg9RgbwJ9XzitwDuwTOQYqFiqH Kpf2jhwrLoPnOWhzWXMQ+MWcaUv2W6ozAr8U/BLwu8H7gzcHbwY+HLwp+FhG QnvhH6xG107Fe/ky42fwW9hTGtoAxqtlzVML+ZD1T6KrqnwO+UY5x+aH4bkQ eAT0Trrb6HsEXWdH9g3FGMWaOuDlU47BisWtY+/lY+1JuZJRAD4N/DzgRrHv +rPgjYGrhPaFiuC/A/+GfZs538aMTtA7SKbQMehXxWvwlvDv1xkBXxHZlzW3 lfV7pB2b2zBOAddRPoA2mv0nwWuBHwcfBF4W/H7wDcBtmXsA+HXm2qNvLWey nPPpgf5mKfvwU+gfAk8j6MXyb/DhkXONzugaxT9segZbdzCKMs6hyqU7wfdA i8C7Y9sL4K+Dl2eNSkn7dB9ox5n7HNoIeH6UPzP3RaHnvgf/IHYse4D1/gmc xZ7rgK9l3K27zj8rDhzzOgA3zfnfKmZeyd42pZ0LVDPciHwZxtGUc/4g5dec a7sa6DiJTy6FPpe1SxiHkL2N9Z6G1o093w7cjDWrKXeA34/8fPaziL0MZY15 WdeMqh0rs34MvAz+yfD/yVwauAo6WwWeWx65JlJtpJyt3L0i63/RCnv7Ad+G PSfQ/TLjRWSbSEfKNiyGf03sWHkvOXY1cAPolaBdjr4FGdsoW3Vmc6CdYo9t Ap/xD/ofoWtXxQfl1jXKqfmOEYoV69KuVfQPR8aOaYptUxlrlA+Vcwpcsw0A vzR27XtQ9ZPqT+RXFXgPnwB/A88rujus/ybw1zn73mDsOgJ8A+u3QHYye9oL /9uxa1PVJO+olkamfso1yMOs3R/+uuhuzRoDVAszmiP/D0ZS+SXju6g7qrva NrTvyefke5fmXOsoB7eSLWnXlor5o+F/L3ZuXsSa7wM/lHYuUA03Crw59lRP OSYuUz0ZORedhT2lGdcMqh0UM0qU+2PfddU0e4EvCV07qKZcrVo8595iJ3Pf 8f8rn84fivGzMq6ZVDtdgP3tgRcyd2bK/1z/XjlCuWIFOqLQOUS5JIL//Ng1 u2oJ5ez3tDbjZMJ3UnfzGOuv5V/sAa8Nfj3yW7FlJP9jJPANWcOTGOOBlygH Jp2zlbs7xo5limGKZaOg/1LWOaQ2+FDsa4t912HTY1nHbMVu3RHdlffBt4P/ G55e4AfAX0k4B3wP/jH4mwnH+LrAHymGJZxDjkM/CP5qwjGwNvB+xu6EY+D5 oWtM1Zp70H8R/G3S9lX1dL9jW3/V5MAd4b8K+9KxbVEPoV5iB/xjVGuxn/Hg XcGrgM/lvBfnnGPlS+oJ54fOYcplqjH7gJ/QAN7KGKxceTp/Kkefi65PY/da 6sEOKbdE7g1UI6hWeDe0rGps1drq+dT7LWP9dOiYodixjjVXAt8U29d28A/f UuzOOrfPgH4L8AWhe0PFuFpaH/ydhHPwL+BTFX8L3YO8lvY/17+fxty82DlZ ubkO/L2QfYO5F6H1ZI114C/F7mVVcwbYuyTns1JNptpMOV+5vy7yveFvL5kC 15ztgNeyZu2E/6H+pWyW7RNZY6bumvjz3BM3CR0zFDtks2xXjTrsdH00G/pB 5t6AdotqeHQ9nnMvofOfAn069AmF7mnV2zYMHVuUM89Dd4S+sQXO8VPYzxPo 2JvnmvNJ4G/gP5xwTzsT/gaKZwWusWqmXfOp9lNPoN6gU9axUjV6R+DHcvZd 1S+TkT3Kes/lu0f6FvjC0LWmfFS+2j/nWK+eQ72Hel71vrrD/SLfYd3lBuyp rc4j7dghG2XrlpzvjuqDSeBPQm8G7Zj8Tb4CfXmR64mbwW+UP+X5zJ+H98Ks e0f9o56hfUq+pRh/hPVnQp+TdM38KbQZadvyGfxH4C9J+67+jbkesdfU2qrx noDWM+23BcUExQa9mejtRGe+O+0eSr3USsbzwF/lnEvKqAeAt2HWtVdaZwD8 Qtq59BvGrbFrPNV68mH58ouxaynV6PeBj4vNu01D8TDtWDoDmU2h3wj0VqCe dgJr98v5bUX1/ljFU0a/hGOYYpl8Qr7xLfbmofu+0LW3cti9Ou/Qvcun0P+I 3DOrd9ab0FTs3x65FlrMeAb4IeYmY+8W6A/Lt3WHku4R1CtsyJqmnkC9gXpK 9ZZ6s5iYsQ/IFySzGbhsbNtUI6lW2h+7ltUa1TPukeRPS5Ev0l0PXZs2Z25b xm8Wers4hb4svP8L/S/2cX/qpP2P9a/1BlYKPhz+n5LuudTLFmcsqxpdtXoy ci7SG1kKeFTWuVE56Snk58eORd+BlwK/EPku6A1Kb1FVQ/feirmKvRvSjjXK IcolP4IPTDiHKJeoZ5DvDQEvAX9cbzjoa8ToErmnVW+rua7gDcBrlrGPlsW2 R+VfyE5nbFQvkrYuxVTFVtXk8iWtOQd8YehcIf2d0bc+7ViqHKZcpjuku5SC XkX+lDGsmkC1wZ2hY5tw9ZqjM6411VOrt5bPar0KyiGRfVy+Xg68OvgdGcN6 A9BbwLyMedVTq7e+L3KvqZis2LwFexom/AaSB2/l0G81qrl+C51jlGtOMt6O XAOpFlKN0lC1X+xeQWf2oHJZ5NpKNXwNdD8YubZUjapaVTWcajnFpBGhz1Rn KxtkS4+s31b1BtUdeB9zJ5KO4dNYa+Lp9wrdsbKR3xD0lqAaMwK+NePYoB6o fOSeUr1lY+XA0D2Peh/904HgKxQDE65hhkSuYVTLqGauBe8jOfuG1tTafUPf l796qsg+Il8Rrl6rG6PJ6XpBb8n19abG2exCX6PQPZN6J+XUbMY6JKuc0g/6 V5F5ZdPXqj1jv02q5x2IroeQqZtyjaFefYXeo1J+A9RboN7w9JZXC7w1+IMZ w3qT1Ntk/dBvY5JXraKYp9inHHqAtc4LXU/Kf/V20jvr2K6eoJfqw9C9pt6g F0s2du7WP9K/+ir2W6z2rL1PV8+f9Bt8sfJV1r2Zcshs4HaR3xpk03rV/1n3 XqphBwCvVE1c6BpNtdpm1pyZcA/7GHhJ1r2SerZS4G5Z9+56s+gq22O/fevN 8hz074gca/Xmpre3BdCnF7rmVe27UW/GKfck6k3UY8u/FPPvYu1qGb9dq2ZY j/7/RI7t6oHVC6uHVS+rHBuG3pP2Jp0dIteYf9Wa8D+TdoxTrJMNC2O/wegt Rv/04sg1jGoZ/fO2kXtY9bI60xmqd9K+2zoTnY1ijmKP7uiC0G98eutTzT4S 3mmhe1+9cU3V/Y/t2zrjVcDLYudG9czLgZdiz9kp90TqjVTDKJ5q7iLlLuhV U+5h1cvqTVpv05prGjnGyh75xBPw/h8G0iKQ "]]}]}, {RGBColor[0.8884723141173563, 0.8889627250975798, 0.8576542040459318], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNnAu4llPax9fzvHvvdu13v/vdDSmJfNPJaTSDGDTXFMb53EHJoUgHkYpi UEQKnShGOijSoFIRH4MhNKXIMN8XI2I0cszM55jD8N2//f/vK9e117XuZz3r udda97rPa717zwHDT7s4TykdVJVSIeoRWUrDo7wVcL/aqCtSyupT2hD1S01T ujrqi6L966hL5ZQei+92bZbSp/HcM9pfivrraL8+2l+J/mPj+Z16wW9H/Y8m KRWbCV9VwCngCQH/qrnw/DLqTfUa642oB0Q9Ocq3Mbm6wH9B9H0h2psFfG7A z4Ez4CGVKe0T3/aOvquinBqop0U9NUqLTPUUw0uq9Q54ivs8Fvhn5XoeH+1z 6jXu7KjfLGr8OwOeEmX/wD2yLqVz4v25UabFd2OhTVO9o+b5qvimT0HP86LP xVGPjrIt+lxZr+enA/dJ8W5YwNuj/aKmaqfP8KZ65v2dMee+AQ+P9nE1gb9G 31xYr/b7As/6oPvi6Lc16oujfWWMfU3Mc+dcc63LNH5/4+/v+QNTD/BagM9x +0WBp1/AiwP/PdWCp0T7sGg/M+AHon1+teCx0KVetHy8qHleZDxDo71PwIui /Tc1Wg9rubFae8Z+nVkvms2KPsuDf96sFj/dEXN6oFr7NaRe/RdGn+1l9ekW 8IzgpcOjvXv0XxI47g1eWhw4/xJjrY6ysJlos8R4wLfY8F+q9XxAUs3zZGSg lFKHwPdZ4H8j4IWB949F8etf3J96jft3KapeH31fKmusF6N+r7zjPfxOf3Aw x0VR5nie9xpm3sx3SdRH1oju0Lx7jWgNnVnT3QHPdZ8j/LygWn3oT9tdAU/1 t938PLta9AfPzGrty7lJ72fF87ikPerq5xFRRkb5WbQfWqNv6J8Hza9k7yvU d0bAl7jPr/28sFrzZ10H1mi/2evbqoUHHripWu3gZJxRHuvRpnp+tKBvD4gy qVq4qftHn9nxblDI/lu5+jHXC3PJ3FfNJHc7xzwLNZKHvEbw5ErJekWN5L06 9ujr6Nck6gvimx/i2yei/bIa4YEvf2ym9iHR/maNnldEe6FCMO1NaqTjni+I d98JuE20f18l/Nui7b+Lmmuq0/uh7vN1pfr1qZD8IEfzgt+raoQXnMy3yjA6 95smGp823vHNsNCHX0VbTVnzSjWaZ4cmgukPDXLTJDPcNl4/Ejr0hui3V1H8 BA/BP+zhkeYxeOc35g32HZh9nBzruTW+vTnqO4qiGTLNvrF/p1reD/T+oUPR l4PrRGNo/UN885jXji65y3OAn7+tFP6mFTvmjb76Ty6Y+YOX8U4zP8P38Dl4 eIa3vylojewBstLdcjHLfcZado70uF/l4it48uuQ7a+xeVF3qRL8kGk7qIno 3Cvq85uIN9FHvQwPjr4nBPzLaPsqcA9uovX3rVOfPnXSfdBtWqy9Z/TpVSO7 sCrT85akPezgseYGTfrHc3PkK77fM3BPirm9Fw1nR/s/m4tHzvY3A2IO3aLe O/odHv07Rj05+g+M9qOifb947l0jnGti3R2iT6do7xvz+r8qwYx5SLS3i743 lTRHvsFO9TfMfHp7/sDUPQ3PqxSuOVFvi++XxzoeCvyDom1TlM6B96F493nA K6IeVSVfAZ2Z1wnetyga/1Al2s4pC25d1D7kps/50fZalH3xG2oka9B9n2j7 3yj3RZ99o/57lAcK0hUtmkg/4OO0DfjHaD813rcPOKuQ7cW2Ydewk2MNDzOM vd0/+r8VZWl8e0rU70TZXpA9HGfb3T/a/hZlr4odeg0diF/F2BeHHK+ul2+D j/N5vP/M+uqbGj0D42PAT/DSnBj764D/He3/5/4/RPtfY5zPA8+i6LuXbRk2 rWOUBQG/XhI9vqgUTcCx3XjWGl7j0oA/iWZfVopurPWrSq330SrpsmUBP4Vv GfWfo745xtga7cWi5vFBwDdH/X2N5s9Yn3lde8Q6boz+W6JPk+jfPuB50Xdj 1CsD/7+ifW5B420LeGZBtGDN7WKsjyrFT/DSH0qCb4+6IujYK9rOLonXBrtP VbSfEfWAkvhloHlmo8e9pyiewC95sUJ+MD7uTuj8+LZvPJ8ffZcW5X/cH/Di KA8GvLyoZ9ofLIpezO+WqK/NNWf2aF3U62tkC9iDD6PP1ILo8Y11PmPTr1Uu X3g0c0Wf1wteWBKPv2A8+MjIzzlRvxbv2kb9Scyhb0l83yfqk8uSh94Bj45v 3om5vBLl6YAvjfJ2wH+OemSUzUn2cWgme/dUlEscL7wY5c0om5JiCOCXorwA r0R5PcqzUV41/j9Fn8FR/hrw/Jj/LSETC6J+PNoGRXk52p803vVRshj386jf jdIm4E+iz5cBD8w0Djz2WMAXRNkQ8BP+bl2Uh6M85/HPi2+fx9YxB79/wX2Z +xtue8Pz7m1diH57p1I0HB97sayo/WWf18W7jchbUv0augZ9GO9+FbQ9tyR/ gP1lD7EB+1s/oHP3tf45q6T2flFfZZzgwS5i/9YUpLv3se7aVCNfBF33MLIS 7TNyjf96jfwi9FeHKskLuE6J0tW+E33W2d8BFz7P654/7fObC+fhJfkSjEVf fL5NHve0kvCfGnWxLH9sdlk6Bd1yb1E+MT7wwUXFjPgu9+d6j4xPiLpVM9kq 3iH/yBjyhR+DP3NhyNnyStkE1kjNM3b52yT4myTbscLtyOhY40EGsCH47R+U 5Ye/X9Y6WM8Tlhf6dY8+PXLJFjB+Gb4bvtl5Jck7co/tB4Z/Jtcr7ptarxgU +cTnGVElX6FfhXzbhzy3fkXx1auBL28qm4htpMzxGo8ry2ZPjz7dytLh+5Rk o9BFk+37Qp/1UT9RJdsB3Cr694rnG0qK47EjrCW3/4u/BG1+H/BtuXyM2ZWy 0e1ML2jFPGabts81F59dXFTbHPdv4rnTl7a5bm9eJ5s6vF46/nv7PWsNo/PZ q4f9LTy6OeBxBeld5A1Za1pSH8bvGWM9E6VNhWg80HRGttZZvtbaVqEDiauI r4ipVhTlb+B3EEPRTmxC/xc8N+q1/na7YeZ5gX2+gSXp3zW2g/gEyDj2Dv94 tXEyHjAxGvKx0jLIfrPvZ8Vc6sras6G1wvGo8cBryMn93lv6sKf4CwPsM9xa kn9zS0m24nzbLPisi/3Sq0vyP66K+vOi4lni2sll+R9TSrIrGyxz5HrglTzq VJadbVcSjd+yLJC/IT+zwfKwzbIMT0H7tt4L9B00/KS5/IH9A8/EkvY0L4of zzXOCts4bPh1Ze3xddF3W1H6Ftv174B/HvDfS/Id+psO8EIv80PnOsETSvIL TrHfBU/1dB98sVPdvsY8wzzBC/5/xTgV+FFJ/vYM+2bEm40xD3EucQj+PXoS Ow3tOxWUh8Cf5905JfkV+Bedrfc7R5+2tZK9zfXyu9H/2AHiA/Q//fAPOrs/ dga/ZXGMe2ZJML4MY+7ncdGhzL8cdc+S/HP8dGiEzWhbkCxBz2rXexruURJM DNHN/jHfnB7tu2Or6oS7nfFDR9orCpLVNoaxT01NE2JvnrGJxHfYMNrW2yZh h/CvkQ2e0UHEZsTvI513IEa7tk75N/JwseQ0OmBSKQOcFyQGxHfAPjIG+4pM YucnFcTzLQuyLR0cL+PLI2/0axn9Vsf7Sch7lHUB93a8yVpYw8kFtd8Z788q qP+/kmJ95AAZmthEcSVrmOl5MAf4usL+G3LC+PhO4LwsykkF+cF7eY+Yb0fP GduCvsK+IEPI2zKvb5nxw1/wB77M1JLkAvmu8H6fmbRX6NMK21v2En6pNt8M dVyJjWd++PLb7M8TS2EfsfXMC9+9pf0QfJC25k38W/gTHiG+gE+wVx847oC/ FnjM60uW8bL0FboK/xC+Z8zOlln4apxxsZdXJPENbSdgQ6O+nDVGGVIn/T2o TnNCJv+QhIv9wN9DTyIzU+2Dd7acIT/Ui8gV1CsnPLdetpLcAvmGMQXx3m5J tNluvL1KogvxNDKPXwX/n1GSHOFfj/E8WyfNdYzxjDZM+3T7D/gRxEnwwSTT Gv6YlKSPNzv2QWbmWo6gMfxDP+LgBh+soHjuQ8d0l5rfDg7eeyPKHgGfSCwZ 318S8O4Bn1EQPDcXbUd5bif5+zNM87PM/5MsD3sn8fNJlh3gsz3Wa7lgZGd2 Jjy0FzPhBw+06eexfp9rHr9Isrt9PDdyesDEuV0zjcV81lk+Gfcywwd7Xv08 t71N932S1neGceJjf5tLRx0TbcfCM9G+MdfzLwPej7lEWRZ9lkT7b5GjpL70 OSbgldHe3TpkK35uwOeQ8y0IJjZpfF7mmLiL2y8qyid8Nuzkl5nxErMY526Z 6DPGfN74/YPJNsJ8y/N+fs989zfcJ9PzfGKnTO20zXf/u5Jij0Y5wDZjozuU JCedLEeb45uOAZ+eSUZneuzdC+KlW5J4qW9Bep64HV3TqST+m2pdcbNr+Jmx 23tuPy+KX/eN/rsVxev4IC3i/S5RxieNQf/pUe9c0Dvaj84Ej/L7Dsb5X0Xp IHzndkXlK/Yrie9397cditJ3v0COi9Kz+CyM0cbrapRD9M8ir4HnjZnmxvht TAv6j/e31ybtK/tbjd8X/QrR/jv8w1zwQdmOPCZnNOfHu9poPy/qUtR1Xter meBumXIo6Ii9A+dI96cP7/gGHNCgo+nAnnXw3Ohbcn90P7oV/Y9s9bVcoL8n +d0o05pxCjHH7/OGbUmfZpoz/h76GNuCTiYu/y7acSGvzgV/QR9/S8yOHWi0 P+NdY6fm+bnCtNvZe4T/dajzY4Va2RpyLfg+DzTyaIz7t1wyi1w2yHBS/Zrh IVG/GWUMui7q/8n13cGW+WOTcND+66Q4mPiKuPnVXO9oR5+Bk+/Ih7zhnAht r3ss4ip8Afwazho4X+S8aZcodwZ8YNJ5E+dbxFnU9GmX1OcOw2caJ/qzUya9 gE64IcrkgJtGfUvU26NckUt/AhObYAeIH1jD5fi05E2S5ryK9STpmJXGeWsm GH15PHkS9i/Jn8avJqbsQM4m2o+M9p5Rv2y4Y7S/EvBRAffK1eco0/y5KP8I uKXX3j7gE/C7opQyxb5zHU+O8zzH5PIFyb//MynGByZ2Zo/Zj0PR7YbZl965 5oB84bets24nLw1+4q5NjruJv8l1YCehT/tMazkiaY6zPU/ynXNMT/b4j7n8 N2R3ocdiXOCeAZ+fq8/z1ofzPIelUT8Y5cOA7y4pL/d8CMkM599nlmQ/2N+9 os/2JooBia+qM33/ofHf7zlwhoZcEKPMcGzCWQy5C85BTjUfTrRfis+IDwkO /Ep8R/zGyzPZNmJ8cojkEtfVi+a0Y+/uKClfOivqqz2fVt7HFXnDcVZaBl7z 5LNRpgT8abTXGKZ/i6in5jvaproPfhb6BF0IH8x2TuC6THuBTJDHQZ52Sjof eNi5HnTRdPM2/M9+oceI029FX1lGbvU+3phrrsyTtQC3jPZ67xFtbb0WYOKX q32mj78w13uKnN1inI1j7JHkX9AHHwa5m+45YH8+cs6cPdpgfkO/EBfhy10V /W6Kukmmed7kud0Q9UTokJQvICdQW9bcb3Sf6+ObSexXtuP7jkk55mutT67M hKexzw3GyfN16KiArwh4fK68NPSfEHCWCccE4xkZ9aVRPoLm8e5696kwzg5J +K43Tr4F585pB65G+DrLGvUkw9DvG9N5p6ivyWU70A3jvNfkR69yH+wM9ga7 s7BWZx6bS8JzpfdinPHwLW1829Vjfet+2MBvzD+c1wzzHYzttmdbom6Wae0x fINNA2/Z78e6T6MuZlz2/3KPC49cYT4Z4/Y9PLcxxvNxlMtyxblzjOffHnd0 vuP9aM+hwuNiZ8ndwVfdk/TGKO/Ratu8zlEPi/qiKLhYXADiOcjVYMewDdgF 7CS6+x/GMyJvuL7QsO6RHnd4rvYPDV+CTAVclQmm/ZlMeDhb4HyO+OS7kvLI jDXEfDrZvDq2pPzMuKinlZTvIg86IfrdnO/g2ZvNY+QJsAsXej+Hek9vcxu6 4i3L11CvlTW/x94l0QH4P6YFdGBNw73ePs5voTPPc41u72G9j85Hrza+xy+m Jt5cm8l+d8lEs1HGiX/BXmCzsO30wWfAdoETu1nv3Ck51NNtUxmTmA9/C10x tk45B87tOxUVq/9IHqtOuY4tzWUH0DWciWPfsNnonNNsv8ENv/Qwz2C3GQub fmpROZoDmuveFfnWcq3OcpEH+BxfEV8Uf3Elz1HuTcoFon/bJukb9A56Bn2A vkAnlHPpO9rxG3czDzdzH/QDOuMKw3nAraPEX2ridva31vhbuA943jXONoaf tU7HBnEGBT9yDgVv4g/yjH9L/y/9nvZ3ku5L7OxzYc7DLnX7yqLO24bW6eyS HCo6E7vBWNgX8kNXO7/6ir/lzIvzrN2jxGNDTImdxQ7jI6HH4W1eNoXnA/wi 4NujHG3+wRfFdz08ypwovaL9iKjvZi2GF+CfJsUnC9GzAR9j+NKAj3T/QejV qGcZDzEosSj4ia/Ji+F/tss1h0Oiz49Jc9uaJIsTPOcpdbqPNbVOMsVesnfY 3lbWY/A8vjI4yQeQFyCW75hrDkfbpjQz/sO8xoEBH5KpP746Z5KXZTqXJCdH Lo98wnOZYPwoYq4vjBPcrJOY60BoyPfRvn/AL5tWrJm1oyeJt4i7iIF+EX02 eA7Q/GXDzI12Yq5dHBOOD7h7JvzQ+XbPYa8oB+TCSTv+D3wJT/KOueJPfuy7 QbuH3H1SpzzjtqiPjfeLsMdJPhPrZI2Na97VOof5H+N5rs+UG8G344wnptig e7AH6B9w3ms6HGP4+iT55i4D9hSfqN76nPnuEnCnJFsNr2Kv8QvwFfANCplk G7neM+rmtkHYkeaWwYnGwzo+d34UGSEGGm88s42zvfVztfkB+8J88HmwiT/L tXb8UPzRsZno0cLt3Mvgrgbrwd9s4XGv8jw/SPIL8DOw0cju1d6XovFjc090 H2hS7z7M4SbrMeAupnkv88AC05a9mGseG+wcf2fnbsmb4odzX2JpUi6nXyZd ytk1+Zv9HMuTNzrIuZ0V0acvMhzwQ9iaKPcE3DXmszxTnocz9CXGy5n4Yj9z 9v5skk5CHwI/l7RWaMp6yU+Sk8MPIffeJilvyR6yl+zpbwNemSm/hbyyT1ut k9Ff7yed6RZsR6E3/PGBachewlfkgMlzkwfGx8Mvwh96NN73j/JQ0t0Azvef SYq3kGPsL/rgEOsQYnNygOiW4+K5b5Q+SXYV+4lt7Wl7iB3kbAvbR6yETSWH gf9wWJTjk3CgN7p4T+FR4hD0/P7NdW7dubn2bF5STos7C096P19yTa6POw/c bViVdN/gCfc7ItfdBe4yrDMv8O6ReD43yookn4i8P3lnYjf6vOA9g0ewvQMy wexlbab9CnegwVbi6+Dn4CsR1xFTt84kh+iQSvSdZQG5pB0Z5y7HR5nuVOya Ke9AO/4aMD4bNmtqppwGcdqUTDkN9r8mFw9UGT/+4Rrfs+U8nnFL8FOSDa91 /98EPM972tWy09syNd+6t6v7YL/IA5C/2Nv8id4hxoTXisZPbmOS+xQ8Lutt 6XbokHvO2NzPjPPXXgtzw8eY4fM9zofwu6+238KdGWwS9h1f4qsk34P7M9yT 4U4L/jC+BTL3pnkFHmm8dwJfEPuiq9HZ3LEZbvpv8nu++bv3n2+6mSbYFPwL ZPqdn/Af/bEvt2Sy3e28Rwd6vUXTnBzO9CgHJ9lncmLkuNp7fw+K9lZRTzNM zmi1cXZwexfzyXTDrT0uOPEr8TfxLZHddZZf/F/sFjZrcJJfwp6ir0+0vh3t 9jFJ+hT/hjbscHfzw98M8x7/6phcd4awlydnsmuD/C16GDuBvUBWdvJY5GCx z91Mzw2Gse8XmOfAwflDV/MkczjcOPuYd+FbZBrZfjrJJhxuHQLOwzznQe7P uvkGPQaO4wzj56xzf2jF3PDn8Enug665/DrWjk+DDccGYAuwC/e6HZq8b33y TMBbMtkOdMvMKKcEfFvS2RD5YnLF6HX0+/KAb3AfaLnZfRZ4Pvg0zAkd3d84 nzG8KulMBPsAHZZEfWj0vzXJvvXzfDd6LSf6+zON7yH3edhz41vG3uK1MDfG QPeh9xZ6Puzdw24Hx7ueA3Zztf0EclYv+q7+qHrNgfHx3+Br/F14m3weub/n vRb0NPocf62D7dDHmWwTMv6x5R2ZRRcMtkyOcjv+Kv7s3rn4AfnmtzfoA2wN fjD2Zpbx47t+ZD2APIMDXG+Zl/BNu5nWg7y/+B34tfDk7V5LZ8+PPsyL+1yb fKdrrcdlLHxq9NjbXjux7RDTd7DH+ch02GC+usD7u87rgl/JSxybK15Dbo+z zCKHx5qXcvf5wjwAH8HPm6I+KcqMgBeX9TuBJWV9Ax748TX3uc68wd7BV4+U 9RuDR8v6HtmfaRk5xnL9fFm/T1hd1jo+Mm3nm54DvXcjTbOXTU/0C/aT/Dg2 dFVZv7t4lrs8Zf2+4smycuf0IXcKHY7LdadktNd+mefPfKAHNFtn/fCu5Q5+ fTtKD8tyY14V+0sMjo1obnosMm17+Btks69hvt3uu7vceaHPJtOWMyLkeX6S 37jZ3zbIX7ZD/h7KduiVFcaJ/K20DDLWcn9Lvp+4+hnvz/0ei5gRH54cC/fB OHPijLdpWfnuZmXhfMQ8THyP74Lfco7HetpjrbCe6O/+K7zP95ue6Ik3zA8n eb3A+ATbMsUF5GTJHbdNivnJF2Br6tz+ib99zTiPMQy/IZfIP/KCXK01jA7b 6D6c/W61rmjmcfGZyU8wFr4BZ6fME33Lnr9reqJ/8D/wPW41jL1l7Vvch7Nc +i/zXmwxHdAPH5tvaX/fdLvAMLTFLm39SfvHlmXWe5/nj75/wHJ6otuhITkS /Bvmj48DTN6yQdYt7/B7heGxhrdYHz9qvoJ/K3PFpMjgY54D83nc8//cOuJd tz/mOUNLfDzoiU9C/qGjZaeP6QM/wtPwJPLf03z4tulIOzJZ6bltznacjd/t /vA8dIJeA/3cK5Ptus3wTH/LWHwPTTLPGR8EOLPefdz0RwaXWo7wzeFzclmc t1VZt9BniWne33Rb5Xkt9VqAH/S8TvZ+MZ/T/S1r7GPZXO75Pug+yEQP40f3 kBtB/xA7kfNpyFtm8l9fNl895T26xO3YMnxOfN+/eo1/ynboTtqxI8P9LTaL s0dyv9y5Xe+x8KMG+9tVpgl0IEdd4fPhEyw7ue0FMdyApLt5ldav8BK+HPJc b56scH/89O1u3937wl5xD4U4vyHWzRT7ApMLxa8lZiSWwk/cPcm3xVfGv+W3 LY3nA8t9ZoXfThwNLvTMMOce6EP+YYpjE/J933jO31knfGE82BjOOr+3rH1p esAf0ATbQh/sC3lj5kPuCH+bc2L8FvK9+O7425yREiNxZsrvZrl7WVOrOzG0 ExORU6Qf56vkkNBp6DbORNDVnGXiR6x2O3eQuedJrpczL84pODfZaBz4rpyT oicP8j6vN18RTzA3YhDyz8QkxOPEJcDEj8QT0J9Yg3NR1kWMRjxBPENMgc+y 1jjh33Uei3zbGvfj/AV9jr7f0FT3wsnJtjYvoWOId8kJgZ84lHMsYj3yT5xR kYMiXiRuJJYkXgImx/V79yHPic0iN4AskwdJxkOuFPvXEFfW6EyOPBexJn1o Jw7Ljb/O9zTw62b4947cO8U3wUehHX8EP68xz0Rcg18xJCmGIPcBjlrfCRlh WUFmuCtF7vUk3+2gjTsn13vt5HKJ14nPidmJk4nhyXE1nIdn2ut/WlZZL2cp 35s/G89UoMklPlPjnI08MGdg7AX3Kzb6twbICnlM5IVcLve3iMnR65z5oNs5 cybvRF7uKrdDf35XOMm/IW1u2aIP52PYXc6qsBfNLI/kLfCl8KPI1XOGSi4P 34Q5459wflXltY/yuJzdkCccZ3m82zQnhjuzqHv8Lep11s7dVc6f8FmwwU+7 PzEsftqb9eLFt+p1z+XapH0gh8xdJvxgfAPuFGF7iePwG/FD8HHQ9eh/bDI2 u8EuF3RvCVzEk5cn+d0j3HZNkt/U4MMl+XQNvl2SfWjw4ZLu/XDXiXtB3NXi /hf3tbAt+ATYDvzv25Ns4CXGze8r7/RvKce6jflM8ztqfk+Kr4rPOsE8M8w+ 3jNF/e79qnrpN3Qd/HWh7SE89khRv10fUS8eaMjfWDYr/Uy+eqn3lH3kLO9D y+Z75slqy+NWyzvyDC/xm9C7/BtqaDfRayWuxP/DL+LuF/SARvgg8BY8hx+K nX4mSa5z40U/MA56ABuOD7QK3VCr3zmvqrfOyLRG/Dpyvtht7thxlsgdP/Qe +h3d/r1/m8CdV3xDdDL+Ifd50JXIzkT372Se39VyNN0w+hP9Rs6unWW/pXXd VMPo3inug64mZ4IdJK/YynLcFprW6zcg39XqXjZ3ZrnLsdi/r5/c+F0mG/of 62R8be5HT/H/YSAHg62k/XLj53wcW4Cfh82dYBgdNd/6j5iOHDl5WHKw5GKB yXvPdU3em3iHu3AN9xiTcmTkYPHVya0TZ5Bff8rfky8nF/snf/+kn6f9ZJyp rhmH30rf7d+842fhb91jHTLS/ip6ifP7jy0/nJfiT3KPjX1G3vDv8O3wD7nT eJdlCZ8On21B0m9bFvp/HfA9OWByHuiYwebfFtaH6D1yHiXvAzmhe83T5EVv Nf9M9HfojsOj7Atdk3wEfAX8B/5vAWNzD488+T7ux/37NfYTOpn3sKetzHfs XTvzEbaeO1DkgPmt0a7mU3iypfcW3rvL/5Ng6k/2ElpzTsQdOe7UcU7EnS14 tNb2DFvWkA/OFEMtsv5E97Int6UdZ9XA6LKB/h0Gd8Txp47ynB/0XqD3uIO7 m9eMb3Kk57nU+4JOvt86GV2NvrzBY7BO1t89Sf+NsW4B12GmbSfvwyGmG7ih RWvLKzR6wPof/cm9Fe49cHdlX+/ZYWmHzr0mKSbFTjTee8VOjE/ymYnBiH0u ta2EP5fYt8Q3rbJNR//i0zFH/LqLbSvRp5ynQAdyu8d5HcwB/ubsqLVpBS2h aVP7POjEon0q9GSdbe4H5jl8bnTFCNtfdDi5rL1Mn3XOZ7Sy/wt98IE53+Qc Fx8VHxNeO9D4OMdCdx3vOUIv7hhwHwkdzO9yGu6YZZIt+A25J3fN3DlDIvYn N4efuZN1FbmC9t6vIy2r0P5ayyDnkfiX3K3jt1ScO83y/8xgn/jdHnf6uadC PMLddfwhzqYa72twLkn+B9+FM0fuzeADcU7HuuBL7ldwjwp/lHsX3JWpsL6H /h3N6/Adso4uRL+QfyAnSY668Vwbn5GcM74V4/dPytUTHzach1XptyX8ToM7 t9C8gUdy6Sl07O3eh6NN//2sK9jD31ne53rc3pbb003nAV534/P5fs+9O2IN 7lFx/kMe/gz3O8/fcT7Imd/vPG98IGhNrh3fGP040/cmuTN5uduG+PuR/oa7 yfhBxJ/k4+HvPp4z45JfZQ7gxQ/kLJIzk2Pdb4jx9rVsHG/5OM5ytJvp0ahD dzOdJpgn2Ud0W0vrzV3MA5+at0Z4rtiHaea7c/y/fOBLfEn8S84LJptn4B9y 5Pg0+JmNNozvB/i3X/ye5BrTjDHu9v+SQR7gTfQgMeMk81uF+aWHeYZ8JvwE H91h3UxM19KyAG/fbP6Eh/8fqTgfYQ== "]], PolygonBox[CompressedData[" 1:eJwlllls1UUUxscu997C7dz+qxAhhkWgrFLERH3gQR5MTDRGULayWCr7UkQi DywFI4IsZRMFAREEUQERK1QiJIJCSEAMxhCDLNYgiAqioBSBgL8v38NJzjdn zsyZM2drWzWpb3VeCGEnVAB1Lw3hT5iWTULoCf9jEsLRohCy4NbgL7MhVIMn QtOQ3WkawpnCEC5D9yFbzdqN/BAWIV8LP5O13ukQqlIhLIkh/MTad8jmgFsX owuuKfBaA3wJa6PA+8FHwBe482XumMGZqzhrMzQI2YoMNpeEUAquxe4hson9 TcGTwBXg8eBq8GfYdpX7rnL/1qz3bkT/a/S3gAeD14P3gXPgmuC1Ceif0BsK 7IOT8MewJ4U9u7FnN3tTUGWwTeOQtwRP56w83twJfhM0ANl81rZw/iT2NEO2 E/1q+EeR38C+ZbIB/BY2jsbW31lrhuxu6Df4f6B28LOgx9EfyZ432LsksW9q 0F8q/yG/oPdC92d9hs76F2oPvziHHvpFvGkB/L2sXUJ2DSrL2ufyvWweC9+H O8q4qw06fZA/WOrY2M3a6GLHhGLjZ+QXOW82e56CH4N8FbprePNozr4NXguf Ya0OPAV/rAIfZ//UIsfUdO6rB1fBV0IvggdxZn/O6wWulf2J31qOz2vh1ySO NelId13iv1kMfhf+DGtL4Ldx31Hu68X96ZRjogj+HuRrOWszb9jJW7qApxU6 JtvwvieggCyFDXnYcgOdEWnbVAFuwpnX4S+xPwU/gzsncd/TJNWTWce4Yv1b 1k4hu4L+3+A88GDkeaydRncqa/n6S+TPpPwn+ptK9Hem/Ad9o8/U2Yegk/Cj sWEM949TTIEXgpenHVOKrW/Q2YFuc9YeUy5AdfinkbVGZM0T27JO8QbfFR+M LbRNQ7i7jv072F8BfoH9LaN1H4ZGwW9Hvg15f+SDo2NCsSGfFOGPUeB6cE9o eLSP5Wvp5CN7J/Ff6Y/0V3tZO8HeblAF+3eDf4AfAS0HX2ZPO+46i43zwRfB bcAN4HngX7nzUMZ/pr87DDWk7NOZyIuR74G/hs4EZAeg0+ByaCjycvzXCll/ cA/4/chPppyTK5G/CvVLueap9h3kvE0Zx5BiaQe0nbcN5Izn2dsCfEu+Zn9H 5S/n7Uv5jDnIX4faFvgNl5AvALcv8Bv/AveFOij32F+DrALcKe0YUizdkg8L vVaWc01WbVYM7lOtRt5Y4DfnSpzzyn3FyCL4WdFny0fyVVOossAxcDBxzVTt VM5O5Lwz4GPgzbzxI/DQrGNRNsiWm8WOJeXYev56o3Iy3z59Ft33wRvy/ebn wB+oRub7zf2iY1SxqhqZYN/S6N7xPfQxZ5/nDVvx96K7QjhXYhtkS0f9GXvn Rv+dfCxfr4iulYohxVLgzHr2z+X8GviHSl3b5KOJyDtnLZsHzULeLevcn4L+ e9FrkqlGqFa8HV3rFCOKldvKAf0F1I692+TzjHuEekUde46ztys0kL17ka/J uOeo9/SGTmWcs8rdRuRHC7x2vcQ1UbVxOLSLvbNz7iXqua/A34nuPbJBtqxE 5yV069kfuPtSzrU6TexWK74Ty+STz7Ousaq16hG1yMujY1c5rFweGZ37k/W/ 8LXQ8JR7jnrPhsS97DbnvYb+sujcVQ9TLztbat8M4/5z8L+Umv+PtX7IpySu 1frjI9jeCnlD2j7ox/3ji5276ilZ5IOia4V6onqjeop6i96st8sG2aIZQrPE I1nHjmrEBeRjcu4lqqFjc/aJfKMer17fA2rRxDORZqPTiWu5ZgLNBuNyrr2y 8Q/4AdF/q5lHs0/36N6qGqNa8xV3bsh4ZtHsUhldG5XjyvUDiWNNOdiE/SOi a69qtmr3sOhaqxrziWaZ6Nqlnqve2wV8vtA51Rm+U3StVM51jM4h5ZL+bDF4 UXTulEFX0b+SNa8zFiKrx943M56pNFsdTtyrNKPlOGty4lhUD1cv10ym2Uw6 u+CromuhesinyG9GzwLqoeql6pnqnY3gDHy6xLxqpmqnZjTNaqqxB+DbR8+a 6onqjV2jZx3VpE3gB6JnHfUQ9RLFlGJLf1he6hlPs57+YD98WXTvUI3qoFiK nrWUo8pVzWya3ZTDW+G/gFZnnLN74D/MetbUmmT/A4jUkhA= "]]}]}}, {{}, TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwV1ElsVVUAxvFDMUAHOimEohG1DNJWCmqUBQvZGVgQKoN0YKgytn0g7hhK DaICbWUKFAGtgAqtCCgFBBLptJBiYkhQy2wAJbGNBhYYMeLvLP79n+875557 eu977+nypUWJPiGEEn+GpoXwLB6mh/AfcjNCuJkdwm3cwnRzhTwWY/A8xmHh wBCSM0NIQT8MQH/kWD8KPdYU2m+BdfN4Lor01bwG5/SreRWG6EdijHGHvoxL UaNr4J1o1e/g7RikH47njM/oi3lW3Fe3lbfhpH4Lb8aj+lwUGH+tf52nOOtM Xq3/kCfJm/iQ+Xqules40/wzmCjny/vNX+ODuhk8wfOq5XvyVb7LGzmN83g0 LuELeTqPt34D/yV385+8nvvH98Cj8As+k6fxi9Z/wL3yz9zD73NSfGY8Aj9h n/waF1o/FuuMc5z5vfhcnPldXiuv5YepITxhfZCHx3djvoinRvQveHdVunTz Cc7gJTyQKzmVKziNd2E3HnfdA9f/g2L3n4U6XR3Xx/85PidsxHh9Y1YIn2Kd fMf9GnQl8s74PngTalGPOiy3bhEWYyGOWbeE/8CT8XPqPPed429MNHfeOV7h LPPZWGqPBGqM38EVcx/Ju7ELx+Vl3MJv8UVeyd/xCj7Lq3gyX0YpLrhHGf/r 3iPtWWx8V1fCg60dhAfmGp1vgj4Z7cYJ8/eMq7hNHmDc4Nw7EKxvdd2J+H7s WY0Wa0bLa4zz+Kn4GbTmBq5jmHyFr6Ibl3Ep9q7rcU0vEvhRPun65ea+5Y/5 E+zBNfkH9z+Pt+Uu/g238ZK5Lmd8me/Iv+NV90yyZ4Fub/zeuiZF186p3Mm/ cr57lnIfOQl9sT9+/zlD/z1nchcvjnP2a7J/M76Mvy3xPes/52NyC44jVa7Q H+BT8mmcQYZcqW/is3Ir2pAtV+mbuV3uQCcei/s6Y19nOGR80Nm+ip9FfkQ3 mw/LzXyE53A/fTkflXvjbwq/Eb/D+jf5G/k+D42/f5iPRvwP50m9dA== "]]}, RowBox[{"-", "500"}]], Annotation[#, -500, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwV1WtMV3Ucx/FDdwW5dlkCIl0wFZqZGm6BKFfNCymCtiUJbV1Wulpq5kYK eEG8VVbmJRMVwUwQa9WalrYmrSl4qXzSUiStB1lPuthW6/V78ObN9/v9/H7n nP//nPPPrFk4c0FMFEW9/uyMi6KupCj6k0u4FGX4S10YH0WT8DdSUYoSvGFW KVOFLAzDs3od/AwfS46im+VuwjUUoRibE63FfOxPiKL30Y7z1n2P/TJPWX+v /0foJ8sl4QnsU7ehFUMGRdF3Mm3y9/DdGK6/VD9Rto/3qtN5D6fxtzKt8vuw RD3dOS7mGZzkmJ9bdxRHkKp/Tn4wP2K+iCfzSzyF4+U/lfsEH+Os7BncaV5q XoYilKAYA+UzcVi2C6dle3G7/ATzAjyMfOThRtkMtMu24ZTsSaTIP2SeizEY h7GIkU3HHtnd6JY9gXj53/h3/Bo+I/VV/i82ilrkduE9DNA/rn8L7/L59OjF +Nyy1B1crZ6HHWb9fAmD9EvNR+mNdOxL1t+l7gvfB/dzDPeYP85/cBrSMU99 3nlX85vWzpHdzF+Ec+Ny7Pb/RW7hvnBt/APXO24jGtCEf11Lo71+tFcDX+Ct vA11zvMd3oKp1h5w7Fq9J1GDK7IL9J5Hg/0bscyev8ifkK9Td/PT4b5EolkC rqLS2hS+Zp9/cND8ivzP6NTvwiEcs34hH+cXeCcu239duE7ZZv5G/a7+HOzA dnytn2LfZY4zUp2NHJx1nAesG4X71XXmd8jl6d8Qrk2drp+BXr356uv1azkm XDdfx4vMDoR7kxvVsbySl5uncQMP5npO5YXhe5JfrR6qXsOZ3MgZvCocl1fy EF5svw/k43hVuF94NTeZ38fNnMVreRi/aP+58hvV2epNnMPrwvXzBh7O63kE L7HfwfAs8hp1AjfxW+ZjeAuP5rf5wXC99q+W367ODfcyjw/3R3imeBuP5a08 jl+2X4d8Iq8N7yFuDs+MeUF4zjifW8IzzEvtXyPfpi5Wt3MJ7+Wi8P7iSdzK hSFvv075ZF6vTuEN4T4yn8aHwruHO3kq19m/Vv5Ddbn6I75ozQWMdy/kotB3 fji828xPym/kW8M7OzyrKEOfOl82D5PVn8lXyBXoV4Z3YDiu/lRMwyX9AtkJ mKI+Yj5brsf+m/g28+n6M1CO/vCbITsRj6q/lK+Sm6j/GH+lnqVfgdn4SX9F +K2Rn6meKzMHZ/Re49dRqV+Fer3L4VnlYvkiLArv5fDu1M/mHMTqx6FC7rT+ LB6oHoDleBXn9FZwPV4Jvx3hmdbrDr9XzjE+fPdICO8U/dHhucMpHFU/x3HW /A/2Tuvl "]]}, RowBox[{"-", "1000"}]], Annotation[#, -1000, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwV1WmUznUYxvG/GOoc+ymNtYiTRptlyL6UOr2SkTrZCo1mDGbGTqZwonoT YQglU1myprE09lL2OiGVQR2VZUjbodCJPveL71y/+7qv3/1fnmd+T8NBuRkj yiVJcsWfAZWT5PYaSZKKSrgZPXhfVk2SitYpqICrVZLk7ZpJsluvJn1UXYN2 p/tkH6Y3qiVJX3qd9qFp+j306tFe6rr0SVqfZtC5dB5moxBzMFo+3TV+qp4k p1CFVxlHeBfVv6GT9Tr31JEO1xuBYchDLrqZfRmfWLeSWWBmS7pJ3ZXfBUOt c5CFz9TZtIPMELpDnUl30hdoZzqT/kWPu/4JnEShuaX0GL6P+9K/Ra4j7aXe TDNoCW0v2w491RvV3byjR9AdX/AnxbPxX6S/0wJ62f3s1W+n3kPb0hTzP5Vv 4/lboyt/Lf9x+bb8x+gKdSd+Z3TBTv54/kX+ODoRE3DJ/M/j+tiFCmaXj+eX n6iXHu+Y31G2Ax6KZ6Dt0Y7fHuPktvNH8UZjJMZiDP7U2xHXx3bcZHY5bJMf q9fK/Lb85rIPog3/fvoAWvPbYLTcZv4IXi6GIx958b6iJ7MFJfjXvGsoifvR a2mdzm8i2xjp/Eb0LrTgt0S+3EZ+Nm8osjAMObigt0FmI9bjsnmXsEE+T6+F dXP+FO81Vb4VP4Vmqu/kN0QjFPOH8M/zG6gvxPdK/aMZk/Uq8SqiGb+YptFa +gX0VjqJ3hbvXH6ra27DFuzAdhzg59m3n46iBZiEbLMP2fc1yqvvNucj3lrU UddGKr7ymcy19xmzMtWZtEg9iC6mA+nzGIzX1Jfsf53ut6+WdeN4x1htfUqm oeusUq8JD0/L/qFXXa8aqsbnJLPN/ndQRX02zgK5Ptbz3e8CZMvcYV8D/I0s 9bt0Ee6TPRyfVXz+1jl0My2wfxcti/eNqvEd4o3B1jgv4nuOFFxTL6QLMFZ/ AsZjHPry+uENmb7mHHXtQvotPef639Ai9/wfrS1fB3Ux055n439Cb0a8cwxA f8zg94uzIs6+ODdomVnf0ffkr9N6ZtRHA8yyZ2D8D+m9ad0Uz8V8DIpefNZ6 pfb1lM9AL5w38wbvfb3E+gP6izlz5GdjicxyLMNSHNY/hMF6L9GX45zm947n se+CGeWwhL8MS3GOv0J/FVbijLrQ/tN0Lr0Rvyv2HIx7t/7Velb8rqiPu7f+ nn++3HnePFpG36JFWIyP5VLtWUdr02J6wr6p9Ac6mZ6kU+gQe5fTD+PezV1J V8Qz60+jP9MmcT/YY32Mt5fuxkjrUcjHPnWWzBQzKrjmZJpCp9LTetNlzsTv nXp/nCNxnuBAnM96r9h7Vj0tzm31QX5T72Y11iAN9yBH/6jcMHqvuhmeku+N RfGO4hrW0+N/LL776lL1P/EbrF6IK3pHeFfpq3GGmbEJxXE+YT2ekPsfI8Ie fg== "]]}, RowBox[{"-", "1500"}]], Annotation[#, -1500, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwl1Hlsz2ccwPHHOedM3UdCZYZk6t5QiYw/KK1rEsyxsuoWS1ZHop36hz8Q EsIItikhiEzi+MedWEcNmzqqRlHUVSS0dWyj4vXEH+/f+/kcz+f7/T3f7++X OCNr3A81QgjZPiY1DuGPD0PIxwcJISSL6/IgrscnG4XQlseKn34UwjNU4IT+ wWpV1pWY1jSEqdgk9zWnI6NJCLfsvYPbGKa2UX44v7WnGhvE69HHvOW8As/l X+Al3ugtsread6NA7hT+REtxrn2brfOwzfXquM9r8kftSeEjXIqbOC/O1nOB c7iZazXHKTPWqFfZu5qf8zy5ubhlbiluoqFaA5yz/7H4CZKt95oxSu9YtXEY g/H4Ejlm1VIrsa7Ji7AYFfIr5Z7xKi6QG2ROMgbigHyG/K/mp3IaEuU7YWY8 E/0Z3FHcAY/UH4h3xfN1X7vtL5BbKFeqN5dPin+TTxS35sviVrxd/I36cfE8 8WDxFj4R71++RHw9nrNculweT+f6avtcay/2oIV8YTxTHqo+l7/gOTyEZ+hf az3Veh1P49U8hX/ir3gNT+baeneauQPbkSD/l9lNOVl9Ng/gLB7I6fovWuda X+KFXMgL+ALnxOfPP3KI5+b7NI5nZGYj3iYeHZ8j0nBOLlvvCOsUHMJBPMF8 +eXxuViPxGvrw/wLDzenjJd4v5ZhKSaJK+QnckL8DtgczzG+S77bfXFn1ysW 37P+2PoRP0Y5uoqXqZXzTP0Peal4n5k91JPQHQvkJ8hvdZ1M8Xf4FpnuYQr/ LF+o3k7cHmni/WZUqn1qb0Wcw1V8TG2WWor4tN4RfIaT+G9O5bM8Mj4XTtHb 0ewJcY64CpXoKT7AB1EPl9x/ktnf62+mv3k8A/nzKEQv/UV8Of5OYz8uxuvr T9TbKf4+xS/xAr31H+VjqI8i83uZn6W/hd6WKJb/B1fQR/91voGrKMG1+D30 d9b7CV6J/8O/6Kv/d85Hg3hf5vc2f7b+Vnpbx/+W+D+HUvTTf5fv4TbKcCee l/4uervif/EbvMZn8R3kz7khF5t/BXP0t4m/e/n78qP4AfeP7waP4Yc8msvj s9TfTf9EcXWT9//r7wCXc+A+ "]]}, RowBox[{"-", "2000"}]], Annotation[#, -2000, "Tooltip"]& ], TagBox[ TooltipBox[ {GrayLevel[0], Opacity[0.4], LineBox[CompressedData[" 1:eJwl0Dsvg1EYB/CHLoZWEZdNKrXXJLG6DYYOJrMPwFIGe1VdBtfNYmcSFKPR rCR8AoKJirf4NYZf/ud5znPOefMOzS/OLrRFxBwH3RH36Yh9WZdjrFpXKFNl jRn93y4HrI/lCTm9DlY6IzLyUO8oG9GeiXhQX/ZETMuafOKRW3XJzDJLTKmv nV+3t0GVLTa5ab3pvbBO5A9NrsxP2ku8982w/Tyj+m/ufKeXPsbNneq/tvZo +La62YL8ctcHnzzrjZhtWBfkmfrFzIUz50zo9btvgETdZFAvxY4zu2xzp96T xfT/v/0DwsI5hA== "]]}, RowBox[{"-", "2500"}]], Annotation[#, -2500, "Tooltip"]& ], {}, {}}}], AspectRatio->1, Epilog->{ RGBColor[1, 0, 0], LineBox[{{3, 1.2}, {3., 1.2}, {1.6784458875299153`, 2.875948997197008}, { 1.5486022639888009`, 3.4690363384303806`}, {1.5287038529179264`, 4.074001590522382}, {1.5261127472023506`, 4.414417244141256}, { 1.5250323369226295`, 4.460036704326422}, {1.5250056921615103`, 4.461993685694165}, {1.525005408592348, 4.462015753776996}}], PointBox[{{3, 1.2}, {3., 1.2}, {1.6784458875299153`, 2.875948997197008}, { 1.5486022639888009`, 3.4690363384303806`}, {1.5287038529179264`, 4.074001590522382}, {1.5261127472023506`, 4.414417244141256}, { 1.5250323369226295`, 4.460036704326422}, {1.5250056921615103`, 4.461993685694165}, {1.525005408592348, 4.462015753776996}}]}, Frame->True, Method->{}, PlotRange->{{0.02, 10}, {0.02, 10}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellOpen->False] }, Open ]], Cell["\<\ Observamos que con las restricciones que hemos el maximo es el propio borde \ aunque la funci\[OAcute]n tiene un maximo local mas all\[AAcute] de la \ restricci\[OAcute]n impuesta por ello incrementamos el ranto de la restricci\ \[OAcute]n para que incluya el maximo local (probablemente global) que se ve \ en la grafica\ \>", "Text", CellOpen->False], Cell["\<\ Otra forma de verlo: representamos la funcion det(d1,d2) en 3D y se muestra \ el m\[AAcute]ximo (punto rojo)\ \>", "Text", CellOpen->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", "d1", ",", "d2"}], "]"}], ",", RowBox[{"{", RowBox[{"d1", ",", "0.02", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"d2", ",", "0.02", ",", "10"}], "}"}]}], "]"}], ",", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{"d1", ",", "d2", ",", RowBox[{"sol2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], "/.", RowBox[{"sol2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}], "]"}]}], "}"}], "]"}]}], "]"}]], "Input", CellOpen->False], Cell[BoxData[ Graphics3DBox[{GraphicsComplex3DBox[CompressedData[" 1:eJyEnXc41+37/1EiDTKzV6UU7STj/UZpqRBFJEUlURmJopAVISt7FyWJKG0a MhskKXuVZIbM9L2P43Od53Uf/Y77+P31Onq4Ol/n63nN81pv6UMn9Q+zsbCw MLhYWKb981QadJaYdy6cAc+a+/pMqXB1leNF2SKhDt+QTyy8ts90/B4joWVd zXXpEeRRbzNjhNtmMbWy/Xc938jKBC6juu3VeXFhZn7fWO6d0RnI703Kqf78 zMtcuvzY/ITM2ch5DWTvWztOY+oq2ahrr5iHfH+mX4Li8X4G16fUU2pc/Mh3 j2bXFQbVMl451aWsaRdE7mogdcWE4znjvCDfx6XPhJE/Yg16PudqGmP9/W0c slFiyBUHlx75bRvI+GnoqSxiL4l8C5t3/OXDDoya8fp7nIukkV+qPRY/59M+ Rm7Z6M7pYTLIDTkWHY05upEREsPf+eePLPJNPmaBHs0rUS/Q1YS38sItlXtq 8G94LuQXrPPZsIkJOgM/ZmKS86XGEXUGXmnKt+t8+RnUGfiJByluqoG2qDPw qCIB1sloE9QZeGB5wd3zg5uYoDNwt58vN51MWc4EnYELzFGd89FegAk6Ay+T zzc7s3gSdQYeEHZyqMWyFXUGfv3pimMn75WgzsC/xHn1NpXkoM7Am4157h8o i0Odgc8bjdhaty8AdQb95t0P2BIVzKYO6VBXr0oJpusx1BmeXB6rLS0Dg1Bn 4PJFK1qX37uMOgPndPvWeGORO+oM/NQcPW2tczaoM/CWy2fXTHw2RJ2Bl1tF j7iWq6POwHUz7lzLT16AOgOPPiL+q3/mLCboDLxLw6fx/ucB1Bn4st0zF6Ul 1aLOwF+c1b1RGfoCdQb+OOHIjaPzslFn4EHr2W7zeiahzqBTwdbsrr5uKdQZ +JfWAxfzE8/i/wd+57JSy+TbaNQZnofYc90290egzsAtA+5ZLt/jizoDFzzL /+lHswPqDNxB8cxPzs/7UWfgm9eWbM1/tRF1Bn7MYaKRJ28p6gz8oIf9pk5V XtQZ+CrLmQ+FXEdRZ+BjQ6FK1fYtqDPwIxalAsk55agz8Fb/V/ytMQ9RZ+Ax X05rsGhlos6gR5OwjZCcxXLUGbjfDLYFFjoXUWfgbY5vXTeUJKFd4NztOtaF ozH4b3harqnSji8MQJ2BO1QIxFjLnUGdgYcmzW9fI38QdQauviWQa9Ozzagz 8Mm1aWEr7y5HnYEnpgTcX8IjgDoDP3V/M2dNyyTqDFxmpbe6tlEH6gz8icKn SNUvlagzcKnissCMq89RZ+BjGaWr4u7koc7w3aNnxFgf7FuLOgOPm+f2eUzS F3UGbsWtszq1NwV1Br5oS7PuI7t4fB/wu/d9D6nnBuK/4dl0R7NP8qwz6gzc sPpXz6oZh1Bn4DrhDl5h7VtQZ+BT/Y90KrJXoM7Ab2oq8Yk4C6LOwL+p39Cz DfmDOgNXqD79ZlS9E3UG3m/QapRg+hF1Bj7RX646ofcadQaeV9rkyvPkMeoM 36ecYyIVfGc96gycfdlGYefvfrQdJDz2GYfk4rupqDNwn98KHFFcCagz8O4L it+df1KdgWvcDPOo8aQ6w9Nq5v0Imz+0PAN/v3ivVcC/dAYuaHJVx/od1Rk4 X9IKm53jVGfgkgujHE+HsjBBZ+BjC89Hcp3tQp2BH+n31TXwqUWdgY+u/SHR MaMcdQbOueBCjn/0c9QZvuOWW5Kr3uwNqDNw9hOGoc9UL6HOwEcUqzrlL1Od gY+b3Lkz4EzLM/DX2bf75ilSnYGLjmn5Pqug7QZwrheJKcudqc7wNE6UqdVg UJ2BCxm27I/wpjoDN2x5Pjo2QnUGPqdsvakQByvqDPzBNYWJhq3dqDNw9SNR 6anOdagz8LF98nk7C9+hzsBl/RWslnkXoc7gr0Hai6LMeVRn4Ob9D900btLy DFwu/8DeV4203QB++Zj1IgHNONQZuCXHpW3aTbR9Bn57UEiiJNcJdQauWSo8 3+WOOfoN/PXM5ENFm2j7DM+N59NOW7JTnYGHTKvYeO421Rn4puH+hiPbqM7A Hf2MR1hqe1Bn4Gc2dB1J3dqIOgNXMN0jmaBZhToDf1e2/MS2uFLUGfya/nBb ZfQ2ZdQZ+Ao5o4Tyq7R9Bv440q/4+I9k1Bn4u10nngU+ov0g8M/8dd1rdP1R Z+C/h28eSTtxGnUGHj1Zt4c3/ADqDFy6QF26bJE2fg9wwWU71st8UsR/w5N5 rutWmBrVGb+XwZDZYkd1Bh5c4sjNodaHOgN/w5smLXCxGXUGbrL510yezGrU Gb/rzP1b9z+/QZ1xvPNqlvFDQdo+Y7+Rt5dfcLMP6gy87ICyVtZnOt4A3l1n wFnCF406A/+k8nua+C0/1Bn4cMml/B5RR9QZuHnoPZ3ND+i4DtvXrxGZLRN0 XAd89yB/5u1gBfxO4Cq8346ef0zHG/Dk++0gc9qX6gxc48OeZGutftQZuHGj ydMTX1pQZ+APbfmKBMQ+oc7Az7x8bVwpWok6w3tyuRuqW7LXoc7AN6TcuJbY 7IU6A7+Y1XW450Ii6gz8UppCncCxSNQZ6+WPC17NM+j4GbhbtNCTH+X2qDPy OP9Hw80mqDNwaXelLI8qLdQZuE8JH0N80zLUGbiR4YUDMSupzsAN1Lq7DodR v+HJ+Tarw7OR6gzcOVRorsmyNtQZeIPYii1qIZ9RZ+BrVG64Du79QOc1iL3H 99n2S6rQcR3wGq+Lex850/Ez8N/nC29kGsSjzsAPNMjofiihcQrwqfs92ltO eqPOwK/ruc7t8LFDnbGfPxVzvnn+PtQZuECP2FKnHE3UGXh9RX8TGwuNU4C/ eTNw3Oo6rQ/AeX0ZhalRVGfgvVdLTWrtBuj3k6dxTaaylks76gyc7eJonufM etQZeFnZyPTVCR9RZ/h/qx4oy/UVr0adgVdez2LEiniizsC7d8p6NKvFos7A Z3id1hfYEI46A7fKPNg48f0i6gxchLXD9onuKdQZOOsstYw5h41QZ+BHbp8c HorVQJ3xvZZK/FdfLUGdgeekc0+9FqY6A+e/8FNLJprqDDzqRIupyxTVGfi1 Bh3bscIO/H54Xj5r55Hj2Yg6A98VPZPt2o9PqDP8feVZl85R81WoM/CeWzy3 X5a7o87Ai0aYfgwNGncD9xNM+z1WEIo6Ay8rPfFwj4sn6gzc6Gdx7h/DE6gz 8KzpTXIuxXtQZ+BPpUMadcOYdDxBuND3R/yF4YtRZ+CjGgfWrbjChzoDbywX 0hqOoDoDTxmQNP/u9RN1Rn928rrPmUbLH3BOIdsEHbdm1AWec6cZ3HBV+8Jg D7yWai1Ui0+d+EX5oW33GPIpxXb5tgPIM7qycyRGtzF/73rh8UBiOhN45Xvh tI1aB5l2wSu/plXNRL7zqsBOLvXdzK9vk7ZF+HAj/zottV9+hMlU4PD7pBHP i7z1iNtkwjx55re0gpnKZwSQb+Px2iB3iJeZrD2iskJvPvLRHTsHC+JGGSZf FU/ILRVF3pKmLO3D28wQ8DmSJMEugVz93SaTNTxF+D3wfR1zM18KCcxiwr/h GRYudXuBpTMT7AM/9KLe6X3LCNoHXt9QzwwqbEL7vNJpG8I/TjL0Bb0F5HmX Yjrgj+e8jxpov4z+ga5h2VcEfNZtQA71wP6eVnpwmzDOk8LfC3kf5TSflMb0 8HeWJX+u3pvXg/8f/q6w1dCmd+sONfAH/v5p4ddRx2U/8fvBTo/M7froaUeZ 4DfYWbjU6GZ4qAXWL+ArbpZzGw5aYDkB+ycP8X9irBfCegfp5eIdCz+V7sN6 B/yxbHBhk9g2LFfg18doPZ5ujVNYrsB++9OgDQtfjNG4mthJ+umyk1V3LaYH OzVmtx7M4DLBcgh2jq5tnXlIr53GjcSOgONU58z1kpge7KRZO9pP59iI5Rbs PDYqUOuVfoPxD9hJuX3Uc/cBdkwPdqadS9RSTKD9Hb5XPmT6gHw3A8o/pNdW id7AtoXO10H6HxZiXJP7qrBeQD62HzL84cPbj+UWuIR2THTdyo+MlLs+op5b ZdFOe1VE5/AHD2w3gId/OpYvGeOM5QP8Kb9z0lx2pwmmg/ZYqjcn5RW7JJYf SK+zWUfptqgPfg+k/yIwxRxheGH5gb/zyyasShNxx/IDfKzjXVlK/BlMD++R e/3wjS/zMpYf4HVT6RYqP89ieQAuwPHi0s/kw5i/wPfKys9KNNqF+QU8WeaV wC+jtdguAb9gGcrKu1QM2w20H+Py/rUfGxP0B24bu89Je9l31BN4+0MuKYNE B9QT6tnUmoXxl/pW4/+H5/fEuM6nVhFYH4E36FzzdbAKxX+DTr58JdUur+NR N3hKuMaIjoeFom7AOUxUeLdIe6BuwMctLq1k77FG3YDPFLYJktPajboB36y3 dNvW+RtQN+DP3y7tMNCk8Qb4G8H721DdaRjLM6Rf/yDFKoaFg9nJu+u7/0kp TL84m3/aXesqLGeQPs0vnvOW9lUcJwCPijU0mCeVgLoBdxYf4vJ4E4V2QY9S RtWu1OPJmA54wpzX9atmRmD+wt8vDIVum8/VzwA/gX8PU3ma70n7IbDD9jB5 8ey4WPQTeNqwQRmDOwX9gXxYOKn2JsA9BcsbpG/v0C5OT5iJ/gAfiqmSPWf1 E/0BHiFstr7iZAPjVau1p0+9NPJ0C4mynsPl6Ce8l//gcc4pvQT0E/iTyGze YcdU9Af4hrCrq/VHudAf4MKsUjtesQ2hP8DTV3An7yxoRn/wvXyqJ0zPvEd/ oNwdv/J95lnuRNQH+E/by2X7I6g+OO7gO8xy6/Is9Af4dH39NhPpYfQH+Lud o+sXnm9Ff4Avmxo1myf9Af2B8i7IKZPSfzkB/QG+wMRJuJKH+gP8kuKyV0uy qT/AO6MUF5wdpv4Av1jHo/SVux39Ae4wVHGp5clH9AfqWU9mkuOUYTxtvwhf bLQhTnNDMvoD/C1rkZtqBPUHOMeKJKGZ8b/QH+BZ/Tc3+nt3oD/Ao28tXm6v T8s5vOeF2La1s4ti0R/g3AOn7z9TS0J/4FklevKpkxH1B/jW3j7bdUtG0B/g jG28QsWdX9Ef4C+HXM5adnxBf8CeqWKYSCl3DG2vCbfwPrJo1bEE/P/AM1vl VEJmUn/gqa21ekFcKvUHeLxO17qP6p3oD/CWpZGLK50a0B/4f9Nl7OZpGtD2 B3jQ2PZmTeM49Ad4zsNXd/lyaP1CParOB3rMG8X/D0+X7/PsTf2/oz/AM/xl 9BdMa0Z/0N+HQ6J2KVfRH+BiVhKuY8Yx6A/wXbekhcJ3U3+w3shlFr47Tf0B vqlNoi2gogvtwnP+xH0tza0tOO6Eccopxp/K+apMHG8Bz3nTX3SZd7U6+A98 9sVl7PpsEeg/8LSzN+avso/C8QSMd9Rb982X+iceh/TA/c/Y7hf1i8TvBTsp 33RFAwdpewt8XfLpSPEqGqeAnetPGF6cL2ei7pC+JPGH8Cv2bix/kP4T/+yt gb9HUR9Iv4qj1mDocivqifNDG9tS2BK78TvhqVefVy3eWYcc0lsqz9qxRLQB xxOg65+lxQdvrhXE/gDGKWpmcYMqDyyxXQaeyctqVZWph+0jcPvTofW7Yjdg OwV86LJKrJ6PDLYXGL/oiDfuSOFEv8Efj7z53xXPbMDxIuTb2YW/2HiKLmI/ Djyo05bNQZKOJ+H/HdxaNiR2wof234QH1s2/5NxzGr8L+Js7V9WDmw/idwH/ WHRXw09uG34XcIWIF5tNvq3E7wKexPZk/u1rQlh+gMcV8d7qHpvCfAfu1KDL yV3Rjt8L+aPufky6qJCWT/jutDR12Wfj0fi9wJPqb4wrxV7B7wUusrSjz4z/ An4v8AsbfXX2pFvh92Kcd0v83unHevi9wN89V8mqnbcevxf4jRd/fJ4VS+L3 4n6AoaQ5iznZcX4DvsMyr2nLO75GHA/jeGz+/txSf3dMB3HAOcsl57lNk/B7 gQ+vbIsQ5wrH8ST8fbuU2pOJvnGcXwa+2O381uv+bagvxKNdjZ5hvuIpaAf0 sz6tHT3/yBTaAd797s+ymV+/4vwM8NmzwiVHbnzA9QPQe7Geh5KKCl0nBb7M 7JqTie13tAO8tYF/uvJ4DZYHyJ+olHWqJ+6lop/AGxdP+hZUU/vAvRTdbLfY /ED7wI1aT0u8nv4F7UM+P9Vx0byqQe0D5/c/pm6oQOepgMvNHVizXYiuiwHn 4JhXpddej/ahvIhpze1ssKY6AzeoHkl1N6f2ge8Rk4yNCupF+8ArD/gu7bvZ hPah3D2annEv1TIZ7QNPHdWM+OVG7QM/oMPWUdBO15uAy7QYSF5Y3oL2ob6m hXM5t+okoX3g/ttM204GUfvABzPbFDhD6fw/cI3OEBUOr1a0D+16QbOv9C6r BLQP/Pb3GNl7V6l94JO60wt5ltD5WOAlrLWipz60oX0c71c/cmVqx9F1T8IT mz59Pfyv+V7gR0qDeoceUPvAPduX3y4V78D+GvqXFeuvzy/SZmC7Bu26f/2s 8vmqMfhe4LbhlcHDkfS9wN/26BTaadL5T+DhD20OPD30Fd8HnF++20WB/zN+ L/hV0Ha2xOvAfpxvgf7C4/jGs6fap6M/wK1UeBkh1j+wv4F2bNZakbj8mFDM P+A3D35V5u7txvTQLgU/d1YQ2h6N5Qk4a360a7IHJ9oBPrFbI1ZwL52XhHaJ ceJ47m7NeLQDnDcuyk/oOB13Ad+13qFeYOsg2sH9HnNXLfJqo3EK8ERrk++f U2mcAvzUuu9evQZ03Iv7Su4ts+uKH0L7MH82EKrJrdpN7QMv/vxpzryD1D7w ozc/Bj68Qe0Dn2uRaOQaOkzHpbCOzzipuYeV2gcuztysdyGTxjXAj07xzTb4 l33gey/sXOOz4xfah3IhfO/o1IPwOLQPfJ9iiHXVMxqnAG8613O12YXaB+79 OjfwfQe1D+UrZ7lBfno3jTuAc/58/9TMIRHtA5/1ukojaRW1D3yr+e3ZKlZ0 PAT1ZvXHh9OurIxG+7guqd8w+e4ALT+4DnvaV2dpIy0/wAMCr8/4WkftQ/0L cJc95O4SifaBb/cveDaxJxbtA/f3iXJ86UntA9+R+db8ycZRtA/rGJ5FldJN 7+i4HfgDdgvBb4doPQKuY3piR7EstQ+8kSujvOPaKGPEW+N+akELPgVu9S3f so+Xue3tkw3XW0SZwAvFOc3017RiunaNP6lZm/8p32cbM9SStZnwb3waGqSF 7fHG/19R2GATcOcPQ3qR0NkznmaYHvgWcwGpwYpw5vQTQzZxjyWYwIVUKz/6 Dbej3S+SjSJ5AezMQ6tknD7LxKOfwB91vlvusY4N7QDvzLJ79oC/C+3sPLDj QgpjFnNfnPv6B9LJaAc4j0iicvDc6WgHOEfbldiYhz1o59CuRrsSFx5mk+Lv AzEaKfhdYn0C1wp28zEn+uc+32ROeU3Qjpr7CoLMBCPJG1vbkpFfUfTmzOIQ Znqu6vFR4qUc/LrJEsSbKZyEHPwyOiTvPrUoAXnTjKvvSsukmOv2P1xbIBqH /ElNjlWRkgyzuORY2H6pf/oXscv3RA+UMuDJV156ukxzQB3yC/iD7T0t5mYf 8N/w944bYobe1w8ymqdLXXCX68G/D0XHZlpZSeF7gb/bG3ziaDgT8wO4gX6W NZfDDmZ4gcCOW4c5sbwszR/okBs+yOT845UTLTwX05toivCsFFzLBN3Rr9nf yt0kl2J6sFO1zWHtSi1dprrkONerr/MwvYbhA7drX6WYkE/AV3m/Eq3z58f0 YEd2pPOb02Fl5uizlWqPC/kx/e2g8V8bz3IyIV+Bf7c8ve3b/UkGpAc7ClKs B62FZJh3zY6dvBsjhPxASqvy+f2cTJuppOSbjiLIffryXc/8M+5alFD7IWmn OHLvjBOH8uuqMT8gH5wNlN88rV3FhH/D89i3rrirYZZYzoFv0iuZnK7fy4D3 Qr6pL3veObaKjQnvBf6owKFgmUgnvtfI4wRn/MQYI/NxeXy+ngHaBd7WNdzw W9Qd/Ya4VU2fT69rthvagXGIq/tOvsr0Ufw3/F21oFuW/z7dbwA67zGILlsc /FEVyg/4+ceXr2Km/hkm1Cvw67fXj91PlTiwnQT7ARz+PHJCnQwp97TOJzls aMdcgE/MeNIb/z/8nV3wZ9j79ZdRH+DaOyzybN4O4vdDOc2oMzjZEZ2K+oO/ Hs/PbhvRmoZ2gPPY9jO7Jn9hOwPlWqypQpD3czKOG8H+rwzjK/djqX1Irxke c7MxdTrNV1KuFdv37pj/T3wBfgLvvWj5c9rtVORQP7p5fIyagql9SO861rQ5 0oQd20ngH7LjQw7l9aP/UA90xy6YzFpB3wv88OaXp0120vdCfSoRHfy49GcK vhfSh+2crtKUTd8LvFDhRIxp5AC+F+pZhvTQQJ9HMtoHvnz8SBvbRWofuOOK pZcN37KjblA/6pW3j3ZFJaEd4OsfNZzb6En7EeC7ViutOVNB7UA+u5zT8LNU TEQ7wJ9eip57wyYJ7QD37rfY1/SA2umX4Jymwy/FnNo/Es4nFY92gOuHnPvm cSMB7QAv6j2YxRJL7bzplY3b7CHNXHv2qesF0Vi0A7w8Kn7rGu84tANcJJbP +KsTtZPxjLFWq1eGed1um+bspdFoB3j6YL1ZnXMMllsoV69Xq4/FXU+l+69I vk9bsaYgnzcV21Oo993sr+XE83fTfYnk76Jbh3zWrGbDegrpq0rWv/FlfsF6 i+3GqYYikUQ9ZkzaG9bn12SRG5q7u+X/sMH5FrB37e7sAZ8BPfxe4J2GF/6c 2e6MHL77h8HcLO9LwbheCfMeX++U+vJoamJ68Otu1DOdxD1UN+APw646u1XG 4bwJPI/5XpuVwXoR50GAP1733Ge3hy3OXwCPKSuLfzRqgPMOwDcJeMrOOKyK 8wXA98rUbhn7JoP1C/yxZnkgvfPxN6xf0F7dORb8xHwOrRfAr7y0HhD7J+4A O8C7Y72Ep+Z2o17QXl05uaz8/BZaHrDfvm/AsugR5diePF+maGtNOdb3yOAd oWkpyKE+WiZqHHl0g7afUL8UgkPOW4YlIYf6wr1LYHP+YALmI8T1/3SclSzO GshhXH0iYf1a+1omnScl9UUiL+BYYUUcljMod5t99gj1lNH5DagvxetFl8g+ icFyAukzZDxm/VGJwnILz0NzHQy+jdP9SxAv88yxiNlQw8B5PSjXcRNDXcaZ DpjfUF/0Yy1XzZ6YhfkE/t4oLt6iu1Mbx8HAtZtq7VXcGFh+wM6ovZ6EZHYu 5gekf/u5Ss/wWj+Od3H8WfLz+g/JNpyfAjsuroNlbuXRtJ0l6ZP4Zo0dqP+I 42PgXALz8272l+A8FNh5VmhclvXRHfMb0h9QPyXa5P4E2wuIt06xyt8/wP5V DdJhP3CnReyOZw6mhzisUflJkL8Yvzqkh/il4HLwgZNX32N6yIeS79ksebqL MT2Mi+eqVhXwGTZh+wLjk0feXy5eqtDB9g3yOWsoRaKGsQG/B/5+pod336qx MEwHPOhObKuZ8xTOm8D3WsyQtqw3Poz5C+m9FE7mZRQcxnkNSL/ufe292dd0 cRwO6S88ixpUuqmH4w/s90K/5yT2WOD8BdgJHtvaIZGlhONwHMdmnSt3KlHG 8QTYiTALXbd42k6cpwA70VIfRUNaJXEcDnYyzwkYOCZI4/gA7FiNH5Z68W0N 9vfAp6Zsbh6upv032OmxSzRJvjiO5RP4TZ1ZD825aH8AdvjEW1SiGI50/xDh lbdqb3BZCWB+Qfv36OdOHtFjLzG/gDvluj5x5lyI8T7U308si232jDgjx/lL 7+KqH9uvYJwFfg0/uJ+mcMYJ59Hg/z3w5i3dyeOF6eG9qj1KSTJZdD8zpB9k +VF5z9gOywmkn/lAZO3BKnoeE9Jv/uFtGaGzD8sJpD/b3/hPsgOoD9SXoFqF KqN7K1Af6HdUHvXE2fLTeAB4j5tgb7+hJc4XgP1f8wY1PfpD8H3wffp8bDNv aSVhOwjt30beZbWm5+k4H77P4Y9luMrGcLQDfNm1969W3kzB+SywM2dZy9XL nXQ9D/oL1mt9mqwlnmgf4nGOGXMEOdZcwe+F9r826uF1Dfc2zG+Yv5X6oDKb z84D4xZI/+zwpbAppjXaBx5g9av1gnIw+g/9hfGdbXGPXKNRN3i/HEfrpzim PsZN8B7ms5dKb3smcH0C+MrV/cOmp9mwHsH7x5VFPt3Ywo/9AvDEp0y73Ly5 2G9Bu6gj6Back7IW8w/qi0/3D3c3tgAcB8PfBWcm1XOK9dJ5EMKtVpnsH3xC 41L4vvicBfE8GlH4vfC8UW1e469P1/GBX6tS+1ZfHInpobwFpfrKTM2KQQ7l ymrPBQkWFrqfBHim/rNbYfvoOB/qE4udtFPkNBrvgN6NpnI/v8yg8RH0b9xL eqayRun4Cr7bcpp3l0QhtQ/zP7H2P+dYh9O4AMrbYcXOmnfnYrG8wfrA3St1 nZ/s6DgE8mfyw9JrZU+jcV0ceL0WG9eLG59RF8hHnmsrS+Ykz8f08J4loTWr ymZYYb5AeQh8J+1kcZ7uVwee8lirxu+WG/oPT5GJRQv0ZoRheuD7rdjN5LlC sVyC/jI2FXF1P62Qw7hGgm0R2/NqG7QD38FxdV6QES8db0N7eVJ8fd+xjZ44 3gauapf9MtHTBsfbwDdJ+Bav1aPjbeCGmcH7r7urYL3Ac9APdr1drS6D61Kw btKTnX96ZeJHHI+Cn4kZ70PzFzXg/DVw0yw97St+NB/he7171ok4uSSjfXiv 0GeVhmMidWgf0ps/Ea05lNSC9oEXDKcesFv0Fe1DP//0g+XxPpVULAdQTviK jjprPlylDvUZzymMPuX//joSyxOeC7hyVp4vtA7befCTr1TXMu63NY5jIR98 tt25+qiT7vMEnmb79GR3TzzWU+h/fn949jpthK6PQ77dyb1csbOQ2gF+/knZ 63MN1A6MU/ZrzXn9toragXxe/zXyiwcLtYP73OJ2Lmr9EYd2YJyyVbv45wIV agfKRXCmb/SOwTC0A1xwRLXqhlcs2oF2o6uy/ahhZQLagXHK9wfXdrx7FYp2 gEdKnTca66TtP7Qzf6a2BrePxaEdXIctsHJ6FRiCdoCLe++9/UaNtqvQLtns uLWvVCAW7UC540id4j5ocgXtAL8Xvr5TIPIq2oF2TFTer1dLme7fgP7UMLNP LMGK3tcB/FP322msf8LRDrR7p2x9I0JPRGI9gfKV52ghtyvzBLZTMJ70mnez 7OWqa9gvQrt+IC6lWoi9DMdpYE/hgfHmfikltAP+5vDbZvkV12E/Du+9r+iW fiBhLaaHvxfYP7duD72A/8Z+8Ii6hNJ6C/wuaCcv+2breHxyx3YS/E+avTzd PtYb2zdoDxOj9MYEhhOxP4Z6HXw0ODb7fiimh3GOmPjb93MCUnA8DOnnrsh/ cM6ah55jIfVO9nfLzF7LTTj+wXMJw5vM3NX88L3Qbmw/2F7kbxyBHOpptrtR P2PGVbQP9fEPd8jM4EJttA/8c7V1tcT6S2gH4gYDnetKDNOryKH+LgsYNJyw oeUN0vNpMHgU/ulnob6B/Tj2NLml3vTcLJ6T2LqEdRW7EOqDcczWwdlSJfTc BbQDJqGtOhubqf/AvSYVlU05qf8Qr7hxSfzm3kL9h3bjnwhU7v54BPoP6Rcn zvVcE0L9B/tfskfMPitS/3Efetz6y2KfBdF/sL9p5pG8PXnUf7BnfT6rfYkG 9R+415JkselLaf7CeLD2VszP/GCav9BezW6Q2pnGTf2H9OWXPig73U5E/+F5 /aP1XO1Mep4ZuOTOmy8eO1P/wb7frVNvxM5T/6HdC/VcWcunQssnct7mFXcG fdBPsGczuXliiUc4cmgn560THDP+Hob+Q3qjXernOb/Ho39gP9Zs+Z0p/n+d xya85NV1fbYpAfQf7G9SCng1Zx31H9rbKXc174LpG+l9TLA/zu9uGXcEjV9g vOwm3TRjtk4Ycmifr33SOyCSGYr+Q3pbO/ZFXzji0H+wf6WMo6boND1nDlxt ildN+Az1H+xX1zyIWttB2wdo542dEzO+P9VE/4G/KB5vGV/qhX7CeERk5o8z 8bNCkUO/EP/e/KCITQj6D+njqt54vloYg/6D/SLdzRv3fJRC/4E/eOguFPqD H/0H+wWjK4RPXaHzGjCPZxiioZD+9gq+F/iv++ynd+hFYT+F+21mh8zdpHQZ +yngUa1xuvvO0vID8Vrc2OyfPiFXsT2HcZH3M5cnOqy0v4Zx01Qvt7jdI7of ALhd2Zi27iSNX2Bc9kCQhS3EnO6/hP7FNrBTaSfPJcxXeL/sxGaXo9z0/iyw l99xdmW8Cd3nAP2gZ4qotO0EPc8L4+gDLcOfr7vR8Q/0I4yuD1LZivScAvCG qrnrj/Yn4boF9F/RY6mxzauacVwK/F37SSPps+3oH/RfQyEdp1oNktA+8GNV D/cefZeM/kB/1GyTHp9aRNMDX9cpNLNvbwqWG4jj7CxqzjwMbMLyB/Yz/Sv8 L7bRcTi0SyaH99RvX0bnpaG+V12b7PWSpPPSUI+c5YcN9s2g89JQPudzn5rZ +c+4FDiMc0q+PSjY+DwWyy3oI+Z9OJz1Bi23kO/Hsy7n3dztj98LvE4q4ZC9 XgCOTyA/g3ItU2p16boz7u96ujXDofog82wFH6dxeQNjVdR8McbEP+PNU3Pc dj/SRd1gfOJYvjHrleFrzEfgu4UYPbrXq/D7wZ9VVkech5bXo85QrpKb1r98 rt2K4yXcB+Igpv5i0gPrI96bonrEwz0lAseBkL9HJe9HWz2k40yYx6psXDLd t4emh3GC6I9lalvraHqY10yPK6husqXpoV8+bZLZ7rTwX+NYMn+5ZbWPj4Z7 OKaHfvBl2Yvu0n/qL6THe0648nh2m4Vhemi3wuJtO8USr9LzYGQfVMfILn7D JaGYHtr5Gb8WT75bHoHpIR/8x5Y3OA1ewfSg946n5pnzX4RhetinVKork7Hv cjCmh/bQeIV2Z8OBUOaVHWsZrhZVWB5Cflzpa5rkQTuwbtIi9Oi7jE4g2oH2 sPBTiFnDnBDsV6Bcv9MsG3NlVmN9gHonfu6F5EgH7W9wHMuyOGe6dyNy6Jdq FtXMlrydiRzK0ZFHkfNadjzF8gbvLbZluLp1FDNyFrp0xkS3Y7nbFPTt8y9O JpZX4Kd+1b7bvewUs7//+YdgzSnkHz+1WppnOjOn/lqXiSHrMl7pqcJLxOi6 zAf7Ji3NY3OZXKS84r04xvduPpNnYW5ZmrvAO4Den9kUvOmUxL0exqy/7s/U IfdnvvUMfzLsR+91VH3vH7nFWJgZQtop4OmnnrzeaDKNafDltMERH3p+dvGY aCPbvW6G0F/nZ3nJ+dmeqKVOPzSk8L3motb6mpttGW9J+QC+VXbIUy1rD3Kw 4/zLrz5WO4txZ6PYi9RCet/mnLgLGdFxmsghvUzWN4fnX2MwX3A/uO+hJBUT C8wX4PblUVW3j1zCfMF1P5f8PIXEYMwX4AfI+QjQDfgmrsMHRmwWo27Au/d1 lFaF86JuwBOv9Sk15UygbsCtybkG0A34UJeBXF9TFeoD/PWB0CPhzQWoA66f 1+9+kq+YhTpA+1xrrpk5+soOdQDe0HxD/cuaq6gDcINndS5So1GoA96LSc5N gA7A76ooXJg8ugJ1AP5LWvnIbjZh1AH4wnZj1uSPbEyhv/YJR5N9wvC9wFti +3gjRovxe3GeZq9Wzb2lD/B7Yb6oYr2gWtmss/i9wDM++vO9to3H7wX+eFfl 3s1bEvF7gQ+ScxPwvcC3MV70TrxYhd8LvPFSxM0tr8Xwe4GzMV0bHX6z4/fi PT1kPzN8L3Ajp7W+7Arv8HuBd3Gq/3mbVYjfC/3aS68dCeMqXvi9wDe2uft8 LU7C7wW+ZsWzUdONyfi9wF+Q/hHaH+ALdtuNdy/yxfYHuG3jCj2zOEdsf4Bb XzVZFnLZnAntD3Btcm8h6Am89cw/IcmHNagncPuVoT0ni6RQT+ANrum6F15w oJ7AN5F93aAn8LdqWvL331WhnsBPn2RpcNUqQj2h319TICq4tcIb9QTOZsEj PBySjHoCT9/VdXLdE6on8Hdk/AB6Ar9VwFnGp0v1BC7s3uEwN4XqifeNsWqa pfpQPYGXkfsJQU/gtcbCDYm9VE/gvscagkLZpVFP4HN/VjN1r3GinsC1yT52 aJfwnjmDElunhR2oM/AZJlrNsUUfUWfgD3LVKpU/l6LOMF7S+8JVuEjAB3XG +72eKDsv8KA6A69+u5flxxmqM/DrZNwFOgNftmNJn2KuD+oMfN7g68/hnFRn 4IWNs5/KzqI6A99N7icEnYGrVikszvWiOgNnOaBsU9JEyy3wi3YnWPVYZqLO wKeT/fygM3A+kWM2pdVfUWfgnFFK4V6htagz8PrCDOsu57eoM4wzj1Sw7RQO p+UZ7xW8tf1Jfh9tH4BvfvpCOqU0CXUGrk3Gq6Az8G0yGxw1bnujzsC/Lo9Q LhJzQJ2Bl63YyzyVboY6A39O7icEnYE39UczltSsRp2B2xYmOhZepDoD51UN KKzloToD30HONYDOwFc3t6m9M+hEnYE3arILtG6uQ52B7w7cycYdXok6w/g8 QiVQ/mcqbYeBL1A2k20XoToDP2t8mrupgvY7wBXJOB90Bi5bvmVzs5MX6oz3 Fq+3/ak22x51xvvYrPizJqftR52Bi5H7CUFnvGfFYcC9koPqDHy1ckBv02yq M/C47ucuj0ZouwH8HDnfATrjOZGNm/fo5H9HnfGew6xfeal9Dagz8N4Oe4cl Qx9QZ4hrnnys0Ft9/iLdZw7npc60SbDpJqDOwN277Xhc6uJRZ+BtJD4CnYHz iHbmKa64iDoD/3LH/plT/ynUGbijeqfbpK4J6gx8O7mfEHQGPpl64ki1Ah0/ 4H2DxSOpp/klUWfgz/kmXD4WU52BM8g5F9AZ+NGJrPeKM36gzsCdDNJfG25u Rp2Bn6q9qTTHtAZ1hnjw2jW+7ICNnqgz8DqNqrxnRnGoM3Dzo3aO0q2xqDNw PxJXgs7AJcz5ffy6PFBnPFf30FGPJesk6gz8R6GYxJ9kY9QZuDi5nxB0Bv7A d5FSg/5K1Bn4KsslR19wSKDOwNemSw25BFCdgXuQ8z6gM3AbI4tXRdp0vArc Pidy8HhYC+oMPF2qYC5/WS3qDHG005Kw2akzPeg5EThH+MfOW/BoDOoMnPvA /FS7wWjUGXgRicdBZ+AZLbMka7PcUWfgZ0sCrzsE2qLOwPkGnCvrWIxQZ+Dz yP2EoDPwuvDCCjNXOv4Hfq+wp5B7ko6H6flUT1+VLVRnvDednHsCnYGzvDG9 UXyuB3UGLpXT/FymvhV1Bj5+fPTZfNU61BnmGW4/XW6XmXUOdcbfc/A/W9nk E4U6A99+/ej1u/NpHITnp8h8BegM/OvI8gvP2S6gzsBZZCX3PfE+jjoDd7DU 2bjUfg/qDPwQuZ8QdAa+YKdVxW/j5agz3nd+Mn1L0rAo6gx8yJJ7lgQr1Rn4 R3L+C3TGe6bjBdVOp/WizsAvfZTTnCfdjjoDtzjvVfnuTgPqjPf4Xp2ILMxy QT2Bb008x8635yrqCdz63P591ycDUE/g6WMXjCuKXVFP4Po1lT9ORB9DPfFc 7boKnoIRA9QT+ENyDyHoCbxQzMbjfbkC6gn8V8eC1V6/RFBP4McKh3Nf5tO4 A/hbch8F6Ab8OcvNzfEHO1AfePrO5G95562E5RDmU585h/g2rrVC3dzIfGrp 24C0rDBr1G0Omb/6SO4bhO96TOx3zAmKupnFj9/15699XOD/QrhPi9wHCP5b kXnffcJl0sbf3dHv5/NE1TLyhhnDMpcuBS84gP4s++teMvDnNUl/JuG4zkfz RehPF/luv970e+MV3KjzXPs2rtwvPxlqMsU8ZQd+oT8/yPybnvjvelaTHCyH Sw536lza0cUoqQ+yjtKLRz8NSiY9tYJYmCtrfmbLS9mhn/xknnshuQ8N/NxL 0lelS9z1daD1q4rMl3+195T9vVoI/fxF8meuuSvf/F8sTPDTjKybHO+pdneR fo5+uuXon0wOGmWI6LWe+Jh2B/0s4bD5tlJzBvOK9NpZIpdc0E94ipH7x8DP cpLed/H37+1WdPzQQOa92ZLsCo+ViaI/smQ+ddeTUoc2+VL0B+Zj2xW9jVx+ 0/kT1c1126V+zWIODapen5bsgX7Yk/n2OHKvF/jDIOlnPLJ58SWejhv1yLxr 7EsH/RkLJJjw3rRPvu4KdziYn6ybtK5KPsf3GmstNOL4yMMcvSFSfnv6RXzv N7J/wIvs84H2YfQr73mh93OZXz2a1wYvpnE0PLmLFvt4x9L4TlRopF3UYg5z bu7ZH1f+NS+h8B/zEvuIP/mOUu3J/4qjLcj+hHN5fUFav+h42MYkMuCSBA8z baRmWp0ZbW+7iP/c5F4v0AH8Md17aGnPIzr/wNdm6j+Vxcd8tefrkpAtVAdF st8gk+xTAh3W8WkMsGnyMq+9Fd7ep0B1YJB1CoV8z4+LQqgO8Fy9v3CeiwfV Qe8/5hP4iT8xQxsus2dRHcTJPod1v2YsWMxKx6uLJt4+dR/lZT5i2Sek/YPq sJz4P673v/vEQAfwx9WdjzNrTxnq8Ia8P3Tq/HL7L56oQyfZt7CO7LMCHfrv OsuOiwow5WbbPXY/T+P9MbL+MrraifN8H41D2cq79rge5mfyV5l/3juN6jDr P+J9nO/cM27qx091+ET2S4Te3c8a6U3Hk80xM/rPVAkwl5rHcz0UpHHod+J/ I7nHDHQAfwY5jy99O0Hjd1+Zit7uQ8JMs08GZuJcVIcUsr4dSPaJgQ4Z+tmG A8NCzIeeH6W3n6LxeC5ZV/K9/0dFiIXq8MRa5pIDQ4gpNVvjsnsEjceL/iMe 9yP+3GbfpndlF63v8FzLZ97OXS6OOsRsUJc5mTmfyR3SdoQxm+qQCvcdLv/f /WmgA/gjN7rodccnGl9rvJgm3a4qxlwamNKoykXbJVO4N47scwMdLH9+8+18 J8K8+8I+bb8SjZdtyXpZYmWZhkevHergxLXvsbWwCPNwXeminQOmqMOF/4iX NYk/K75EXQxypu3wdjiv/U2m7elPOu6Fp6BB9p517bRe7If72ci9baAD+NO4 p38154Zq1GHioMruOkFJ5oGmRQ4CAxdQB0Fij0H26YEOEqGSj5puijPl774w VBzwRB3kyDrgORbd66wfaDy7IiOk5+CgGHOeEdv5I+o0nlX+j3h2kvijKf1s 3dp4Gmexk/U6xdPF7GFzqQ5zz9722W8uwdw2Nv/ojEyqAzzVyH1xoAP4Y8Ux wzUklcanX9wfah4blWJO04p5P6PcjbYPsL5H9hmCDt1knJum6bsp8jaNNwfI +p563q+bvx1pvNm1tVTS+I0k85HQj8O9wTTeHCRxnNhf8WYd8Sde2fd28isa BzWT9ckEJeZZrsW0HLRftjeVj5diTtnI3h+xpjp8J/7rk3vqQAfwJ4a39E8d 72e63qH7sc7ysAyz3ZPn643cc3S+juyH1CP7JEGHUqvN3N+ypJlXPPvcsx1p PAjjhfeibNvH9tB4sMqRZcmN3dLM+eISzy727f3/xoMPiD/jPepHn7XTcRTs T5Ba4JW1J4yWh+emQcMLuWSY65oNU0YWUB2KiP8LyP14oAP4U349pvG1N43v IqQGHM2rZJlNE4u3+eTScRTst5lH9uGADunrLW60isoyu8PvFMeEn0cdbpF1 53WHPpTO1KfxGrz/wblGtuSDNF7L+4947SrxJ/xQ3WUZXUXUAfbn2Mi2rToZ RMtD4rKMIOkz/8Q7SZoL5eppfJFK/Fcg9+bBd/2+/L9xexkZ/8N3xZH19tVn XexXHd6J/ASJI5iek7MVwk3we43ION+W3KsAvI/EC8Xk/gTw05nYH7/FCMre WYNxRAfxR5rEEZB+c9Wt2scs/YxTp5POHvMexPQyJF54Qu4Jh3yEdfn3rbLV X7zoeS1Y/33RHzwrw5UN46PLxJ+7ilsF2u6aIgc7N7iGX7zKsMDyAHZsyf3b wPG9f+kJnMXodsZvKUPUB88t8UUbsftvous75Hsb+NuUVr4+iXw6iWtar6zq HS+l/S++V+b4lzXqq9H+VzjHHNpsyqpP86uZ6CFOztNBOQQ7s8m93LgeR+Ij /cFMGXPnTVg+8f5AAT8VlrmvcD8A2NEr42aErp+J9h3IOvtZ8ruQ2M6T9E52 5RvEjAcx34GrhO1f43e3HutvwQaTz269jxkmQ911h9IPI79N8v/Z7wRv7apI LA+wL+iXaF3+q2wDzF8dorP10SmNSBc6Tl5M0s8jcShwvG+ecMgX4F+WDTz7 PN8e0/OQOFGGxIk4P6znnxxlNcFIe7pynGWrK+1fiF8Vr+arvWqm8z8mJB5k +M/sjJl7DHkpiSsj3YZFO3JO0Hl7EifyKD7fcmWnAfLdJD7dkK4e+WXHPsyX FDj3R35HEvLRidgZe3/49auF8pheg6ybM8nvIUI+6sO9CwG66uy1/FjfFcn3 Pp9YOlouzULXrYg+RuS+bsgv2Ee2fOmRWu06W8yvNcROb21xRGJmGHJIvzDA TPfWjXDkc63W3NtgNY15qS59QuU7nU+e/CsuBv15SHrRb5+/emR5Iu9S0t25 7uN0ptG8gwfES+l8vgyJi2dc7VbKv3UKeS2Jo1czbKN/7aTrKatJvMx3zDH6 ymoT5MUkHhcYKVAWvkLHz5uIzppEZ8iX5cROkOSStKjvKzD9PbK+v478fiLG WcRPc+4OjlJzOh8Fun3+KPLNNIIF+SyiQ+q62KJfu6YzYX5PhejfWls5a/no B5z3+070vjQ1P+HkpRrc/wf7syRDXRTNVtP5Z+BsgrtTVPzo/L8n0dtRRCLb zYOuG54i8waxZN4Ays8Y+bsDuQ8c/OEl/itJzriRX/0FeSfJxzMvNc6qOtaj n7APUK7qeuOmhkT05xeZH/DMs78nlJqM+rgTP69/aPbbZTcD/bEldjrJfeDw Xh+SPtByocuCZc3ITc8U3F1wiYuZXe72Ie9NM85TRZH9q14HvrquDnyHfBuZ D9n7cjShzLcS/cdzEwscZo3vpH4OEf9zwqJOzH9LxwOtJP1cMp8A/oyT9O6f Fy9TTmxFfozMSwz0ZCT8VmhDf2aT8j6xOtji93e6v8iczG/cZT10oPZ8NQP0 XEvmGTw/HbYtek39XEP4Gh+ZBdKOdPy2lMT7oyTex/1gJH3Iq+grEm50v5Ms mTdgXPM+xjfQjv4wyTyGxpnCT3c/fEQuQuYfltzdcvGLzif0s4/MAyxye/GG TY/62Uu4p3rUBa9s6mcHicfrSTwO/gyQ9CVz5i+2lPiKvIHE9fdmyH7r9qDr 8uNwH8Xtu1EvYmqRV5P5gWORJs6a076gnzdJnO4zN7T+vF8S+nmDcAHh0eml OdTPRBIvT5J4Gfy5RdJH1hgOyMV8Qx5J4u64NNMzxwa/oT95ZB6AxWFmOdfO OuRBpL0JtNqgvDOzHv20IHH0o/kRw5qrEtHPQ4R7y30YdQqlfhqTeFadxLPg z2GSvuy7vMCn353I9Yg9bemx5G26dF34BInTF81pMysebkC+hcTXWbVR41I7 mtBPcRLnHp1Yu8hnfTz6KUZ44PeibesPUj/5yFOVxJvgjyRJP1e2Tvmjbhfy WSRuPSXFYXowoQv9WQz3Pz36cOPHNtoOsEH8G76ysmWwGf2EOJT/6+Wci4xY 9PMH4SsMwlZwLaJ+fiPxoB6JB8EfeArWWJbMiPyBvI3ElX4b7C/mNNP1358k zg2cK55dENmCvJHEp+eyvxWtVm9FP0tInOjHHeqcahiNfgKXTxVZr9ZB26WX JF6TJfEa+APxZuuwynzDqm7kBSTuu99SHHV9Pl3Xw3LamfNMs6UV+SMSPxp1 e9SKe7ehn2kkjpN6tM+73iMS/bxOuOMOl8M//xVPJZN4ahmJp8AfiAdFTrY8 D57WizyexGUJ2e4vi7XpulgmiROP2PO2/FpE26soEt91yZ/uYimh7Rv+7qLN hoz7D3tx3AvPSX3Nq7Pr6f4HiGcTPr8/NH6vCTnYsV/vkGTGSssVjOdNk9tW im8XwvEP3kMwJC7o2nMExznAxW0C1hxN3YPjGeC75VJYZ5Zp4fgEuCMZ/+P9 j3D/6EkfY5mRC9j/Ao+7w5+REOeN/sA+1cUW2jUnvJ3RH/x980YHze8KR9Ef 3H+rGXrS9sZu9Ad/x5yMe8EfGBcFvez8lRBN58Hw92L0ZR2Wu9H5H+ByczPP bxeh82D4O2lvpGSvVdLxNnANMq6DcoXnQ8l4GMcz8Ds/dr4GYwYfcZwM4yin bwevcyq7YLnF+7ezWLUdEqajfUz/13gJuGPPLXtTuXqMv2BcNGsivrNwGi3/ wLvIOAfKLfCjCXpsI7ffox0Yn9zQDHGcvZW2S1//WtcAf4D/OedYU9lF6y9w e+fFD8sefMDxD5yjPHovIikigfbXwE/UbpPJbqTvVfhrHQHeCzzXR3hG1kNa H4GvP5X/7EcoHd/C+UfLxUVbOTbS9wI/4P04xZGbzld/+2veHt4LXKbTz6lA j44HgOf+7r0drfsZ3wvn0kp1lof0+tN+H7jFfT3fOZz0vcl/zZPDe4EHqWz+ 8qaY9u/Ab7Eb3V4xVYfvhfOGony73i/ZTPtx4OO8lrk1LVRnk7/mpeG9wJ9t C9pWJEf7a+AudSGmK1Ma8b1wnqx6qQF7sQHtl4FHTa7pKMmg7xX4j34Zfycn WJplgTPtf4HzFfR+y09sxvfCPPAhD9foLWa0nwV+fdP4XNd/zbt2/kc/C/xK ZPC9HU9ofwp8jfbvddt+0PtwYd715eu9FUaOtN8EbrSeO4BzIX3vq7/mOXFf IuESwQkH24bp/iLgJScdRr1Xt+F7YZ6zfLmY1dpE2g8CL+O1W5/+r34w5a95 RXgv8DzFyMGAhbS/A25mLvOl9gy9jxfmefwzb/KU2Rpi3IrzNqcen9nwaDb6 g78r+JnDI2vPMLaHcG5sW2dO6fR4GueGEm7YmsSwkW3Bduk6+X/pdsYi2f+a f+Ag82ynnPpEDu7azQTeR/olm4tXpgYYx1EHEdI+HyTtNnAGaefDyHkEjCNI HHpSV7kiMHY6+vmazAO8f7dmzzxTus+fVfd/7fMZ0m7jPhwS7/eR/f84riZx Ze8fe/fYmhlofwNZZ59eJ3rwgyrNx9N/tefA5ci6thbZDw86JJL5NyXDq6Mj 9SXI4ZyWhFvpgw9cvPQcBBlXTLf433wp9Kf5sP7AVdyds8cC+9P5ZD6Z+dd8 Muw/qSbzydDPNhF/Rqwv6XEN8SJ3J/6Iie8J3P1SAflN8l5P2X184rs1kPuT cvLNcaXok31K2F8rDf3Pf62x/517Aj5M5qvHHf43XwrzMweIPwonXZ5UferF edEk4o/AisowiwZWtG9BxkXWZFwEXIDUCzEyHws6LyLzsQef3X3ekaaOfAeZ z3Rkazq2hI3Ot68i6S8GPDx2SaUP8+scmd+Tyqn7FVh1EO2sJfM87264cbzI tUIO40NJk3t/5MvTGbh/m+zPKVp5Vf55ohPW31o4h03uywXeCfc7EQ5+wv6l aN6t+U8WdmB5vkH2e6xT9beoaGWncRnZ/yARJSx8zpfawfW3SMuvmka0ndQn +xM2kfMIkB7WzfsnbCwr/rWeOJvkwzSyrx7Sw/rywUjJCoPHnPheWG8N2Bva sTSVclh/VDURfVtwmnJYjxvKcfwdoUo5rE8V89R8rZ7kQP3hHG3oz5WpLIlD mI9wrvAFh4nl/XRtrF/wTP158suRlXT8bEbah3W790tzZ9H1/atw//Hqx4pc Q/bIdci8U/R1vc+W8XTdIZ3ky9nUyN9uv82Qq5B2Jth5lc9TWbov4iFpr5TI /CTUi1Rix/uzuhT/5CpMvwTOH5F9NbhPgPgZPii+YO4pccyvzaS9jSHtLfDH f52TAt1A5+OV7y59KnRDfU6S+rtyXu8s1rnr8b1Q/l86zP+zcCKLARzaq/Hi /90/CRzWxaTIvZSQv/h716KT081mRCL/Q9475OVkKyz/BP2H9Hnk/knIF+gH 2/apNJ88eRD1Bz6kf0ihemQH5mMn6W9l/1r3gfR+5B5FsPOU1OvZjS3pxbb6 yGeR/tH1j3Rl0vVdmI9gp79s74RHvQxyCdL+yHrmfmncK4Zcj7RX4+wsdo3F UuhPDInLnpK4DLgisR9A/MR9MqT8xz3Kj82JHsD1zZOkXU0g52GBQzy14K91 GeBjGpv7Pqidx/RJxB9zcn4T9IT0TtMrBO/I26A+eH9bXmn3xWt7sf7CfrnO K2t/7z1sjxzWKYbyW3s3JZ3G+NeVtM+N2xv810mEYHqIsxzWMNvfHHXH8glc 58GWcEa9OKaH8d4ylp9dz/NdkcN4LPP+dyO3W2eRZ5F5AuafK+1fMpyRwzzJ lWUSOfqszujnHVJuB12mbEdStdAfWP9V+Gu/aBrR05acVwU78Nz66PyBaw0R aB/2YaY9fed6bRHdXw33EKTtfte4ek4kctBZZGGbjNk0uu7QTcZdI3mpY6oW 9Pwm7J/M4j4WyF1Pz33APQCXqiU6tiokoA5gx331lRj3YieqD2nHeHwDLMM8 qJ6wrlERem9+YC5d74PzmHKpEkVOqXR/EXAvthG1/Xl0/Qj44QczSuI+0HWi /L/aVRiHwzyDFINvzbv+WhyfKxJ9chQ2eg0d+owc7OifW+79808jHc+T76q+ 8fBVpEIT1q+Ov/ZVgm4Qp7+X/3p0UQI9f3ecrCPwWE1tFX5COezb3CE5x6jw DT2Xt4zE3bfJfkVIj783mvHi/b1b1M5CMv+fXquzRTCPctgPGRL083tfNLX/ 9a99gJAe4u6myFYhYXlqp4nM299/LzFjYiHlsM9wlRaHTNUgXbdK+mt/HaSH +JrloAP3ZlN6niuazLcHmQvecNKjHPbvpZdrBD/jo/b3/bVvDdJDHP3Y7v3R +hpanneT9jKwX2Qq+xHlsC/uonNgWvK6BLrP+a/9YJAef6eoSIbTuJGu380h 89tHvvsVuhVQDvvNmna9ulWxIe4/91lBeuB7pTan5HfS+gv7nT7Msz6qVUo5 7ONa9SW1RnJLzP+zf0mf7F/C84mEb7vEZaYyLRp5IZlPLuqq4tRup+0M7I8K Ux7++MQqCus1jFddhV1yB9bII4e4lof9l59PsxHaWUz6wXHfV57LdrthehEy jpU33CQafNsDOdSjxj91U7kXPZFvJu3BxsPCu8S4LiKHetFm4WQivOkivhfS 1xq+cZ32NhnbZzWyLhZu+Gy/PpskcrCzKGPD4lccNO5gJePkN3GDU9xb6Xuh vmQWC6q+lqbvhfRnVAeLZVzoe0fIOpdjspFJTYYEcrCz5Q/f9aOxEmj/MRlv ayo2Fg1/ojpAPRKPnvV0s4snvhfSe3jOV4p/noT2c8i6ldmn99nTptH34v1g rgV9qZ203zxNxvMn2mRmsM+g74X6NfqBM+9OgAe+F9Kz78m+uSc3kd6DQdah lsUt8C5ZLY4c7PQzPWv/8NH3LifxwoKnewIt2Gl5gHp3tl6kpvGCO74X0j9c +cMu7mk82l9I1pWSdk/M9N4thhzsJG0NcdRfKYb2IR4R7tN71fj1AnKoj4fl diR9+3Qe3/udpD8T+pFR9iIW7cN9J5YTMxxlT4jSuI/YCb/NoSu5XRTtwDg8 Mak1ekF19H/uu4P0+Pur4dcXqa6h/T6sb9z8ozRdaZzyBLL+UrmmPkZPkHJY H9HKVVfTTqb3V8D+uvz66XfN665ifAH3WfGT+6wgPd77mlqZfG9aLNrB3x+3 EVM6mUTbcxgnxBiHBR0dpPsN4N6qKQvVa01aSdiPV5DxieBXDX+BwgZ8rzmJ 4xo7TZo1m6l9OH9xYv0atrXKtJ+Ce2wU7+5qX8BLObQ/HQsjoiLsKId7jfwz DuwuDUpGf+Degx1fdhS2tbfgOIFJ3ivfaCK7wrAF/eQk8ULD2e7Tt5T8aHtL 4ouR+jm3C08H0naetJ+pRyNmBVX543sNSbwQLaYpkCxejO9lJfZ5NB9EpPG8 wXEmxCNlZH8gpAe+YsHusQneMky/ivAqkh74VTJetfjrfhXI32W/cvt2X2im +4rJuPFF0K6FLsrOWH7OkXhE9K/7bSBfdm/KHmDjo3reJPNFu4ouZ00TT0N+ kMxTqd22Mk4VzUeO9wgJdDCvyD9HLkj6HYvr3mxK2i9xHgf8/dC/ULH81x01 OF8KfFD+Bqfc3SI8Lwp8jyt7n9mGO3i+Efgtx3vG5zZFo328F26d4Lp+nlE1 sAP8dt9sVWW5QrQD3GDMxOFo7i087we8lu++zRnFOLQP5WWL7uHmpgAhdbi/ APhg+6VJ4eeaeN4eOAun5LHlc5bg+XCsB/yBxr1neHBfMvAls5/o8GmXoJ8Y l+hLLzPguI9+4vlat7Il6V/S0U9oz8rI7zXAOBvH0U0vDY8EXMJ6BXyTbMT6 pV6n8f4LHLeKZmSZzjLH+xqAv3wmL39eQxu/F8+bVusqS+cq4PcCZ+H989sv jQ+/F/dbNT2WmZP7Dr8XeNhshShRy2f4vcAX6LxYEmSVg/dSQXyzJ1j6eOOA F85fAOc//USJtXKlOsQnwGenzDpvIxZH4x/CNTety4k+dxn1Af4keUbMibQz qA/wicFyuTzXg6gPzlNe03JOWbYF9QGuPqtLZHLJCtQH+N3S8kaHuwJ4vh14 ZtGMYQ52eo4a+MMP19y2rP2AugH/sO74u07Tl6gbcI9fIW83G+SjbhD/WV9s EX2a5Yu6Ad+q3V3Ss3wd6ob7fL/sNP9wJx51A856bOX0OS8DUTe8h6C3JmyH qzPqBjwm+etej+mHUDc87+Ji4xbSTnUD7lWeU+HwgOoGfHrM6SXpUfSeAuA7 H8j3j7LS300GriA8R0a+phP1RB2iz2UdX1qDegJXfbH73toLxagn8B3Hjt6v jH6KekLcvKFmTon0bz/UE3jJtvbjcnXr1WEfAHDrDVnccvdTMX4GvlFBYET3 D9UZOMeRqZndn6nOwFVzt3ry2VCd8Zwac/eIVy8tn8CTI3XXtb6jOgPf86gg a/lrqjNw07ITehy/qc7AuRfZjXGkUp2Bi3X+nh1zvwt1Bt5mM+1Vfwf9/SHg 0SJherwJ5agz8Ip+g84pwReoM+4fP2EY+kz1EuoM/JZbkqve7A3qwPHc58EE U9Z5G1B/SD+iWNUpf5nqD3zc5M6dAWeqP/DX2bf75ikGIgf7V+IUCiRn0nYD 0ouOafk+qzhD73WC85qOaj++1jhhfuH9PS8SU5Y7H0QO6U38rL8Hl9B2GNIb k3N/wCG9s6rewJDlZsxfSC9k2LI/wnsFcpw3/Xw71FqA5jukN2x5Pjo2QvMd +Jyy9aZCHPT3nXHe/ZrCRMPWbsx34IwjUempznWY78An9snn7Syk7T/4Y7Qu S3vXr0osD5B+gb+C1TLvIuR4jtzz5O0jwvR313BePM8qyMxVGftB4OdCtDeO 5fpjvgC3Ou1d3VtA+0HgMweiFh2eRvUHXqYXOeB3gvaDwFdJzemYtWA53juA 6wk6O4Nz51Wj/8DzKgziTMoq0H/cH20u66Pgvx79x3l9W90J9q20Hwf+6fPa sZ8xjug/7nsdv3gq19oM/cd7/pQMa0ePb0L/gcdyZpi7cCmi/8D3XuhM4FtV g/4Dv3Vq5/y12+jvRsE4dPzY0NU3FkroP/CKMPVXU7W+6D/eE5Pz/mG3A/1d HtzvLJR0MaHCFP3H9LlHbq88uhH9B969P/z04a5l6D/wHUXJPjf30N81B773 gtLxVuUqbGdgPHtAPY13gTEdV2B8oPjj24MFtH8EvuTzcHtE+VVsH4CPCh2z 5Tjhg98LPMDs94aZ+vb4vcB/BPC86llrgt8LfNJvzn7xI1r4vcAXZhwxWV2+ FOsv8CRz9yX8v+n9PrjfVv2kYUsErb/AGf0nttoK0t+HBj7ccbQ242Yb1lPc x6Q1obv3/Bf6OxmEz533etf2VdWoJ96XGa78Zr/URdQT+PwzV3btblyDeuK+ 6Y7RJV0WEbS9Jdwor2zZ8Bz6e0/APd32fN2nbEfbT8InBC+W/rhlTNtJwpfE 5zQI2NBxO/A0e7bbcjnyqCdw7Y0uPO6eVE/gxrkBH6ZHUz2By69Ydv1IBNUT 9wvvP+HgU07vecF9Z4WCVm/T62n7RriNuurG4JU1qCfMPywcqFyl3O+B+wuB f9aS/Mj6Owb7NeAZJn9CFnGFo57A+XVfKn97fBH1BC7WbFk3fdkp1BP4um0D wiYrjVBP4AN1YfbNZzVQT+A3qjcbxCbQOAj4eIzwwnBOqidw641dgp+iqJ7A j+x8cvoM90/UE3hSdfUx6+8dqCfw31canbMqG1FP4B5qbOav19bi/SA4nzor dLzd+RQT1oGAswW46A5sc2SWkvkRPO9+vtD32VlrJsyDAH/90DD8j6cxE9Yb gKdGr39xLG8jE9YJgF/dZb9aRV2RCfPvwL0d1cplZk3ivDmu/9SqLInRacX5 buCz2O5fl6ooxnlqvO9tw/nq7d3ZOL8M3FDm0pfnR6Jxfgr97zUckB7zw/kF iIvnvn/hly7ljvMIwAOlzuYGXjiBv5sGvH449BeLvRH+zgT+Pkiw1JmD9zXw 9wPwd/c8czJeNtDfBQcumrpt6XbHV3hvON4LK9H7cNOFbJxHA77jOMdA7nAi rp/hvGm+c+4AewAT5rPwfIP4RfdvCi5Ma7JuhPv0jyexRw5ZMBeQ9R7glemV ItdzdfBcNHD/bM7rytqVOL8PvHGVUkBX71OcHwSembjuW8/92wy4rwTPd5qo 8G6R9sD7RICPWFxayd5jjfdrAJ8hbBMkp7Ub5z3xPpIwlaf5nrUMOJ8MXEOg rHLhtdc4vwm8W6RYlrEwnwH7yyF+3HSXM9t2ZSED7umAOChU9ndlw0IzPIcM /OnTUeEm2SLGQ1KeYJyWQu7HKCL1Dni7b8GfGQdTmHtIvQM+89yk93LTBLxH Bnjcg1XX7x0NxvtccNx4kHn1w+JzeB8KcP2gb1cfXrbE+0HwHsHSON8Fwjvw ngjgs+v4ZS9Fi+C9CcADX16I/NQ2De8RwH1Yym86zLL6GXCuHnjpbNPqqwea GXDOHLgq29CYovQHBpy7Bl4l1verzLyMAfsnYHx4cVWPjxJvMvM9WYcG3k5+ R6me1FPgzrHjHHmBV/BeG+Cik1o/E9nO470wwC84J/RZrzyK96QA17TxMtqS pov3RAA3+7+6zjyup/z746W0WZpIkRCaypY20aLPnZjIoMU2skUhlKWyi0Ip S9K+ahuRJaSxG1t8ZWQra6uELCmFEuo3v4fzOvf7uN/H/Onp9v68773v5dzz Pud19No5229RYt0EcL1xR5yu92qUQUcA/LS80Qknxec8f8FXrd2t+8umhzx/ wTVU/H+K33pHhvhF2Jn6Zud02oz2CJ40f8GjLIf0u20QyLo24EaWzZpRMxex zgvHY04NWjBygSvrO7BO5P6CdVeXfeLzP3DZ0T/kTPe9kCH/H/ybq17hT41P ZMiH53ir6MclNSvuy+QonhJ2pg2db66i+Q5ut1VxRZhKEOvvgLctG2wwSHMJ 69Gwvzm7RiP/7iTWX2D/8fg3lg/sani+g5cOijO6t6pMhvx8cP/isjRF6wey UJrnsN+SSXcCeXrgpf5Pr0R4eAsjKC8O3KLz4fMVtZM5LwW8a2vL0h5aj2XI i4M9U1mQ/t3g+hReN8CjbtiqdGhXwnnyfI4RGRRRFttTQB41+D4llf6H20JZ XwDrWNCxiG4hltac1419zSl/XfGcz8853wO8tCbZeVjDPAFxiuAfw4Ymrurq y3YU+NWWMbNUp/mzHcXntCljpxptWcR2FPjBEVXN3ZumsR0F3qpVMTRVbxTb UeDu+b7Hi9MGsR0FvrXNylrtShe2o8DdgpP2n8psZv1Qjt+0iWtW0a7kc0Tu z4JEP53e7/icj+2Epcl2S7bdZ3sJvC2v11KvuG383Dh/xeQ/fytaBfJzAFdc 7jR63af1AuKN8L4OLIm8NVozQmiicQU++0rJ/bcDFrM+FHhlfGFlwPBJrJcE nmYxfJjmfGvWD2J9hStTmgcG9GU9HdaJ99eUqbZXZn0ZPsfLGvun0KeO7Wrw /oqVzd5zVgrIA+fz/AOV9q+KY3k8gLe1GAZ7jYviPHyMw7CuN4rXXk/hPHDw vpQPvlyy73egff+FZN+X9/yx7w+W7Pudad9HfAm4k8ugcY7drTkuBPz67UEv JtuL+qqcJ21wKSdv+GcZ4jxwvex0hleinDLrFPB5aWiKyiGHWP7uAE9ImjJZ Q2+vmL9EfG2vj2pBhfGsR8D+7aC9epU70lmPAHw15WUjT57rS1w1FLSCYzle BO1vpXh1qf1TR/YPdC7QjmtE93mzB8SxzgXrxztU3l1QkiLMpPNX2DO7qc47 xhXrumW4Jd+x6iS40rrP8VaUr43xBv59y9zc3NyPMuQ9gu+bbevstf2pDPmH 4HFzN2dGrC2UIf8QfPsG1a+6DTdkiG9mfRTUp4M+OeLcK25pdXmSznpS4L0d gmL7tmiwvhJ4Sx/PO91vivVZwQ1mBBam+JTIztE+Dh7XIaOjW9rfMsQls39b x9TU+YgmxyWDD7h12lBZX4ynAT/Xs+rxvcwS/k4Bj311OCTvQaFsk8Q/6UT+ SSuJf1KV/JPG9LuwrwZrfXrQ7N32P/7JMeSfzJX4J+Vn/PBPIr4B9onmNPWc Wxe/yaAXg31/+gATbfNHccJQGufgGruOP7VMSuM8ZPCR1+z7O1Z15rxfcKcP Rzwy+7VwXivnsy4IO2vfo0wGPRqORzaO0ilQT2SdC/CFwQsMzBbt5Txn8ItV hjZ7VDtwXjH4VMpjeiWxKw6SXXFVYlfUkl2B83LO9+qWk183NEZoW/FjfoF/ lFkUDTybKIyk5wO++Npzj6rAFKGG1gFwHco7Rj42eOWwok9JKZ0FZ3ou4BMo Hxl50eDzbGP6FD9s4XkHfmlS1x6lDa943rH9c6uPvG9hJc878JGPZIXtF5XL 6mnewW6ZT3XWSmnecb71ugsbNvVMEtxpPQG/Fp/iaBGczHnj4MdcLtskvPqJ 87TBExNj0nYUfZch/xn8cen88FcZr2TIN+b8J1vzvQoTK9gfC79HZMCr8NhE czvMU67X8fTTs+suXXiegvtHVc/vNUFOwDwFHxru332w6yuep+BXdl/aJ9Os ZH8CuMbivFVX3jzmOBXYFWu+rBbef5jL+Zbg32YO/F3p8kSOD2Od763f849a Duf4LfBLgy70bGcq5hmCx19UWvzgn+8i7Efsl5jq5OuyOJTzUcGtLfOi5o7e wvEW4Met/xyfq+3H/WQd9znvEiPnz+F+gtvFd3Vz0B7D/QTPcY1c5HtyKPcT vHHvwexpnzU5Tgu87WpTRLnPV7bTuL5Y1hzNQVPFem0c/2jmO8C0s1hXC/z9 ldRH8ht38X2Bv3U85ZDfsp7vC3z5VL91v3ks4PsCbzditUYPE2e+L3Aftapz xsqWfF9cB+N8bb+RXXqJ8WfEC5Zf7ZNqpMD+PY6P/mVF5K9jK9geY/uh+6wT BdsD+b7A+5AdBY79MW9qpx0+BdFs5+D68Xojz3+ta2H9d/ABARsd921/zvYz 9ou1Ouqr+o36L78u8WeLLoYU7a8V/brwS9SekHeqL+N2sF8cDuvpUe0ltgPu 1+D44M6L99wOx+s9y5uhNLiS3y/W/2uTJ7lq2qfzfYFftNo9Ymqg2D64/x7L vRlK9dw+51unPVSycXvG7WM93xettqZqfBq3D7593Mzny8LF9sEbDz8fohIp tg9uX7PHRnmrOD4xH/822+miu3oFf79gPHd6bXLapEmZf5frX81R39gWXsff HRgnRfrZchpfwjm+kO3YnSP3n9Z9w9fj/e4ne5XrJdM4MVj/6PVt5SQen7je iuxecFw/ODHJYsE0Vf5dXL+J7E9w1rt1zJHvp9/A/YG9dHDh2zKjmyncPnhW nHZ53nE1bh88L7lAs3ZfI7fD9dPq+qQGvd/LeSDg/of2P7NOy+D2wWOG3Mgs m9eB2wcP0D1ZeP0vUR8B9s+HSHt123di++D/efKok8ZcsX3whdkPdp05ILYP 3pny2tA+n1N/mPHUVl9sH7xcadLVqGvp3D74MjWddY4HxfbBzwc7mGz55/sF 7WMetTPdembGp2RuH1y4On/L9m9p3D7XAbCbvj18m9g+uMPX7Pvel8X2MY8C 0m91awxP4vbBO0ZFVp7VFdsHd1cK7S3vJLYPXjAuNaZpRBO3z3ntZNeBww65 M1EhPGZHPP8urp9H9h44rv/Labnhy8Rk7g+uP0x2IDiuj/IaljD9vDgOcb0D 2YfguN4w6MYhHcVm8f2SHXJHt+PF5k5i3VVwsy9LU9Y9ThTfL/F33cuuDVoi /i74hUUXfnKYJbYPu6La/8DT9cliPVnwxnkfH54xSOD2wfu2vbx0Wltsn+2c +uS/zI81c14356dG3Kna+K29sJE41plN1R6zZzc4C0fpOnBPytdGHCrH/56w +/xn6h4Bcajsl1h+Ua/0erSAfAaOV33bLevVT6/4fAfcYIfeyNNtz2SDJevb IVrfkiXf43H0PS7dB13/ZR8cQvugAvUf80t3wyHPlhVp/F3J9XbIL92Jrsd4 7qpuPsTsW4pwju4X/Gg73WrDi2kc/8rfKTTOYyX7USbtR8gD53Or3vnTgve5 cB44ePavk3Vn9C/juGfwW8NvmppdXiggPwo8j/LBEZfM7z10dFLs+ynsjwIf d3LkPA85awH5BtyfsHlF70qN2E/FeepTe7eWTewnIE8AvN9RrW437/7E/itw k6a2Di83qQiI7wd32BMWPr3TZxn8D1w34MjjyXPb1XNcPvjtmqx9F+6XyuB/ AHddo7ixQOmBDOca2Ke0W8P/DrIRv5f53GdFT5+g4y18HsF+A/In4FyA4+Wi E7PLMxU5nxP7i8e9oZZ6nTM5nxP8zsoRJrW1acIm8rty/FvfkyqxRzMFU/pO ZD34porapUaZgkD9B5+sbjtbqamd0ELzBfzJ1ZllCz/UyuDnB+9oPj/IILtB liiJB/tE8WDGkn3wC+2DGf8SP9ZZsj/eoP1xNd0X5tHqRdlaa2oyBCu6L/AP Q1KipjhlCMMlfgxN8mN8kMRZXaE4qwJ6zvydmyqbYZqfIvjR74KrnAna6hW6 VxhFz43z87xba57GKwjvJN+tI+i71Vny3XqTvlvH03sHV0/qOv3lqvb83rGu OlSenLvKIpHfO3h8z865KwPi+L2zvn5fufpZJYn83sGPf0u1flabwP5GPLeY RscOfzVnCCm0DmDcuvjn/t3dw4Z1hLmOk2XHyIxcd85LB+/bp7VksEEQ12kA T33V6cv0p8v5XJh1VTW0y3csEf3VbO95eXplOf3O58Xgcpez4ybnuvL6wDq7 Oh93+8UIQjnl+4GfnapVqGZvxesDuPX+HTO26RgI8ZS/B94j3G+I3F091kcA PzLUd5Rz53RhDT1n8KTSilk5Zel8jgn+cph95pZ1r2WTJf7PCPJ/4vlj/LyI m2ihkLNXWEv55xgPbVUz7smtMRXeUd4auEpCvKd1hD+fy+D95jgsLp1xXBDf L13fK2/Hoku3kvl67FMxkvMd9D9iX/8zkw7/wt+DWPfufG5RPPx6uYD8Yeyn flPuuS+LvSQ7JYmfP9IUeOz/4+ehf4F26sevGRqq4ChA/wJ8Zn7myPOWs/nc B98vb1StHux+48XnPuA7cwZ8UpBN4nMf1pc6vuJ9oa0Nn/uAT+w1oUegYz+2 c/C7SkqOC4oGreTzF9yX/pivddefbeX+cL7OnGGTtnwV46M4b9W23djcoTP4 eYKf8agv9bEz5rx0PJ9Esiugh4L3+DHW7MAvgUUy6KGAZ2y9Y+NnYCqkU7/B 21p/5H1DDwU8btcjvZ6rZwvG9PzBhW2uezodDBUc6fmDl2zICnM6Gcnzgvff mLYNieMVBOS3s+5m9zEVbwJjOc6Hz3ci2g3dNCuanzPnNVrVLpwQHyvYS841 1tO5RhfJuU8onftgHsFeKp9p2PBUKYPPF8BLiQdRP1l3P/Y3t2zjdM5jl36n d5LMi07Hf8yLFZJzJWU6VwLHfHnrHabodn8z+39w/VeKMwHH9TPbf4/J+sWH /UK4XpXOocBxfXCFldeT25PZX4Trx9D5FDiuV13fvqF2kC37kXD9ZTq3Asf1 r5Ut32y70I/jXvC+3JZfqLg3vIj9D7g+9sOvDW756f8TJ/OGzonA+RwqLCbd 72mprIbyD9kPcH2XvOUose4g16+rcnEYGfKSf5fjYYo8l9TZZLKOM/i8PicT vM4ksM4y9rULN1ZOOrZCjN8DN13lsSDUO5l1ljF+LFtbDtVOjRN1AIn7Zk4Z m9QnSbghiRt5T3Ej0F/GeMu97Lxh1+/R3A7XUb/jp3jkRILwEflIxEMpv9uV 5hH4PfXqxqUrklg3GePWkeIf0D64bvC0I4Uj41nHiut9EYfOMvYdvWNDy893 jhT06TlwXV8Th5qyOZFcL4rj63bM+3A/wo/Po7k+iduki0LQCgF6Nxg/H55W On6NL2QdHM5v0vTJCf1PCfsn2f88ZfG0EkWB22H/8/P924vM/GV6tI5hnKQt 36dcsXKX4E92PnhX41uGWwd0FVyoHdbLOfhO9b3nMKGB9lNwN9OeZ8euWsP6 R+B2dA54l9Zn2L3B2idVd18yYF0qcAvK78Z6C251vH9GgNceXm/BQ468zXmW msjvHbxU9rDr2u+pPE64TiPlg0PPCFxO7W/bxd2NWfeK7fDW4qgVHa3tnKn/ GP87D6tOGF1pwPmH4IvM4warXA5l3X+0o0d5IgYSe/4F2fPQi0E7z3uq+R0y 3MN6MeAhsiILpdYE1qNHO22UJ3JNkmfRhfIsztL9op0D2cNVCosGi3HFxN8N 2B/rcVqLxwO4r1LCtxoTTT53Bl+qsvxsYKi6oELjBPM6tP+56gG/WPLzAZ9+ YEPZq8ptPE64zl6p3sQs9RjWyQLXLvvBkcfOdfDkZvbPu2zE/Qc/Wu14ynCG Fuefg+8+tLxQd6MGnztzPBtxf7ITsG5McXTOT3ks4/6zXlfLhdehN0JYX4zj tWQhe0w9drMONedBXPVaerBRn/vJ8WPdP0+bW9uN9bM4jisgvoNKYleuC8L6 5YEjgy8qjub+gKeE5t5UjwnmPFvwm8Shf8162DeVH15bKdYP5vpBrV1G9vhn /wuUcBPiyMtlvdLKj5vKdW0FT7KXwANDs/xtPL04/xb8tndNTWLfncLvNE/B 95pvGeYzO571uDkPeGlLu7HH+7MeN3jo7XGtC3f2Fu5Kzj0FOvcspv0FvPZk +5UTXOJ5fYCdVmz3S7/b82M4zhPr3q0Xnt8HPkxhOwp8clj9qPb/2D9SP5UB +akQD4l1r8x7f0rmtTRuB9yyRlu1bloG7/vgJqYBOd1GiecsfP4yf2rpb4Mz WNeJ40zoHAr9gX0uDPsj7GvGAxn0CNB/+YkHx0c2PmP9XPzuvqtqO1OuxQi9 JfaAD9kDuB7rpEq0/ecRVTGCBe1r4L/5D8mob0gSOtK+Bv7N85CeV3Uct4N1 aT/Vnf9Vso59pHXsq+T6w3Q92sH6o5i2PcklLZo5ntuckl5T7h6IYo75tT/U 6WJ9inhOh3EukD0AzvrWzeO2LAiKYP0gcNXs8ePiBv9Xf2i87WoN9djQEi7o SuwBd7IHcD3GYW1xne9bpV38PMErjmz5/UtmJD9PPh9/vrTo/YndPH6wv++P uJXTMeIM6/KAV1E904ekp49xcjDS8GNDHyMhAvG7xCOprij8ALBD5oeaHbZe a87fNeAnl2yP3Ha0B8cdsV4O1feskdjbo8jezpDY1RfJroYeH9dbs+ueWDA1 jOsRsh2y7vW7GddGc30+8LUBe4UNNYNYpw/jcF3dhrxPx3Zw/Ui2N0x2HGoN W8V6iOAK0we6TLrrwPp9GIeXKO9yiCS/UovyK10keZRKlEeZJ4nnaaJ8w3Yh P+woPg9Sz7Qtb1nD9RF5HVjpE7LbfLgQTestxrPa98pbA+wXc91EcJekP8u/ P7HiOoLg5ovc7xqP0eP6tRj/pzb/2F9QZxF89mO3b0adbLnuIHgI7SOzJOc4 qXSO00D+Ja5jH3Ils9+jkVzng/OVXr+/sqvXZuErvV/wzs5mCvn2Mq67AB4R flLZ5qoB10PFvPA5ae7uPWcz+8/Bh+Xedr38xYf95OCKuxdO0x0isB3I/oEl WlOUrhnyvzGPrlF9JfjtWYeJ6hahPgF4CtWFQR0drMPX7y69/cUuir+DMG6r aL/oSP5hXL/Of1z378Pruf4B13mmuiqOEr/3b+T3VqB4ePDklbXT9TTqZajb Bz5/s/2p/ptE3W/wVqpvAn0c1lk8VirTWF/D+jXgxeb60QpDHskaJf7hXPIP 47sV67Ywa8yYlvlv/yf+zZri3+5R+1wvsSajzteglPc1zIsDM9UPjp37RlaI +tHEU6keB+pDYPy7Ub0M1KVgPZJ7259fHv1Zli+xH76R/TBW4mc2Ij8z6lWA a1dYdy5u/ChD3QjwLSrTJ/R+/F6G8wKML9seN7+cP6rA5wXg9utDlsw70cjP n+sZhrwMjWqr5+cPrnxgqGFzY7UM6zDrIJLO80xJXMEwiitA/UvwAIofQFw0 2rlofPa2fLOzAF0t8N2kJzxTcv4+h87ftSTn7yp0/q4p8VOFkJ9qocTOWUF2 DvJ3MP4/kq7gE8o3wbhtjPzyfPDcSK4vhfFZkxytJn8ogutFoT93aD1H3C/G mwXp2ulIzrXd6Fz7Nc1rjJ8tdb3OFIwLFx5Sf7gex/H3po1vw4QQyutBf6rX NXk6t+qwDjLbPz4/vhO1JOc4+XSOEyCJO3WnuFPoOWI8TNnqM3Di92DWpcL+ 7lcaY5f/4h7rWHEcfv3xTS9c8/n5ct11OpfEfXL8jFxb7/Fxf/E8YV03q+D3 1nXZMun6eYXWT7TPujdzPTuWW6zk9weuR3qt+F1wd78TRmc+ifWhwJMdO4R7 qIr+X/C8+Kpyp4vZ/LtYn+/Qul0rWbd30bqN9sH/GF3lqLwrn9vn+P/eabWG 8Xl8Pcatc4v9uoRBf/P1XGcvout6z+jzzNGviX+mLls88Qr7KfA8jiX46p3e IeoJgy8kfRK0A/5NlrVwu8t1HjdoL4l0NvhclsZ5IuXBoR9cB+9UeY3OI1En GTzq2Fmlapmohwz+Nae5KuWJqM8J7kf6D1iXud5pwsRPO66L+d7gc+0nrjI+ I+Zpgxv6HHOI3PeUnxvnzS3MGnBpzD1+v/ida2Py9v7xVNQXBc85NdY9ZJao LwruPXHxH3mrZnH/uR3SVeB6NMQrgqd4q22v4X6CR9K+w3VniOu/vdl8a3qR +D1J6/Ty8TaHtW+L9fVYb/tSb7kNy8Q6y6zznXUy3UtBrLMMnkD6CbWS/e43 2u/QH64n/GajRgffB9wf1r9XKbqWdV6sd8x+Bn8/A/lNYp0X8BIbs1f7d4l1 XsDNSQ8Bv8v1igtMJgTufsS/i/7uk9QXBh9Ttbv1XH+xvjB4Tsc6rde9xPrC 4E2kS8DfV9AlGPzVrfbYE55fnP++PNJD9YxYnxf8Z8rH5/GG+J/8AaffFZfw /OLfoXxz/j6HnhLFf+L+2W9P8Xitku/xTPoex3Xgzr7nbikYbeNxD+7lOlx/ U4lYVx1cb9bxNScfiOOA9bC7PblacFCsg8BxgBTXJ7UDUeeuXuJHha5mq8Q/ oET+AfSf6w/ke4zLHb2N2wXP7Jn3R2KCP98XePcz9rL5L8T7Av95XHn5rFFi PgC4L8UN4n2Dn9DvrD+9VrRvwfVfy8/cf0usK4T36fhU7ZJBtxAxD4r4PvI/ 4L7AB08YUGd8QtTHBtdovP4kWsVf1A/H92N5xwv9O7jz/YLb3h9idGKreL/g rbOtvG9UiHkC7NfVWeRdUCzWzWH7Kn549NZI8TwbvOzSwcVv1tzmdZ/1Xtqt O39znjn3h9eZZ326BaSbMefnPd34N5MSU34+PH/JT4Lrwbc1O/1a081UzNMg 3ovi9DCucB9dfrdWrY4W9TDBt5Nfhfcp1A1ralbrGhrIvwt+aaGj+YfJYj1x cOPhK+cbPhHjlcGbp69RV/0gzgvwExTvx/sU8diRySl31Wp5/rJ9Tv4c9BO8 5uHRd6rlYr1s8CT7LxrPlyzh/oNf/2tNRwULsV4wuJzH8WU+1WIcJ3iBcuhG 9U9i/8GXUDwh+g/+etfRv4yWi3VqwJv6p2go6ov2Aeelkh8JdhXri2ts6uBo HiXmkaI+KdXn4rwFxD/kpncdNcabxyX4dMoz5Tx8+ruGaWdDzlj8zM8BfDP5 qSZLvndO0vcOngO4L+WTon30P+zPHR4fcoZwfzhPgXQUWd+VeN8vwwa2JYvz BLwj+bvwbzwHBar3ivEAbr2hV+YdG3HfB095c7hmaoC474N3M0l8XfxsJj8f Xp/0VW/YZZuK6wXxC6SLiP6D504b5JnQTRw/bJdS3TQ8X84PpTq22pLvRNRT w/hhncOF89zHWt/lvFz8zojtf7YIF1K5fbT3kOpb4bmBO5HONv4eHHWv2L9P 49p94K7GrZdFPxrXCTF0+tAtW477zfkylF/D8Q3EFTKLe937WawXj369obwV /C7+TsstZlB2k6gbz3XPJPW2wDUl9bbwPuU2D8sNXCTq0IJDX53XK+I6Y/cY 3+4i2m08Xyn+vFoSHxtE8bFoBzzq6BAfr/ZiO+C2FGcOzvkdFB/OcUjU36WS +lC8PlAeBMY5/s5/RpvFeL9JPM7Bw8ifgN/DuDpAeazVkvjPnhT/Cc46fv0t Tii1ihzzw+q81Rr9IPE5gG9esVTeRU58DuCK5K9AO1w/ts5K21gmjk9wc8r7 q5bEMZpQHCM41tu6gCrVz4/jRX1JxA3edX/i3lv8zuK4lwsh7QKWzOH3Da50 p1lO3syc+816oaT/id8Fv+JadUjhWyrPC/4upPg09lPQ371YaqUyXs+F2wfX pzgxvG+0o1imMKes0p/vC/+vetm9x7ilPtw+6yq0d7ibtu13Hn/o54cp5qUG WWLcMMf1VQa3rfMS9eTxPO0k9TvQzmPyF9VK/Kg7yY+KfuD3dbQOJyWaifrS eM87Kc4E7eP+NMJXn6//KOqWc/wwxTOgHTy/4tvT5N6uTufr8bsN2q8CBg0V ddfxu7PPv/QOcw/i5wM+Pvp+2WwF8flg/K4lvXQ+R/8X/XPWZ9P8Q97aTKxD ynU4Ke8V7YBvmKw8L32muP/heaKOOa7D+EKdTc7H+xedbfD8JxW5unOr+H5Y l4nyDdk+pHnQjs4BwdHfWXQOCI7nlkXngOBcv47OAf8PlQTVbw== "], {{ {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData[" 1:eJw1nAX0FkUXxt/tnT+Igo3SiIKYWCCIXZjYWIiJiMhnYWN3YGN3AKJiKypg EHZgJ6LYCiaK8j0/nvGcd8+9Ozs7u+/szO17Owwa1v/ItNFoPFk1GpnguKLR +FVwat5ovKK2KcKbBB/KjbcT3LtsNI5IGo1t1Hdz3TxR+JXCG2q/R+f/Ch+l 4xC1by44Tvc8qcvLCN6n4ynhywoODY3GE8ITjT9e5xOFLyf4ss4nCw+Cv+j+ pTXOLLWP1tjX6lhG59cLXqdjWeHn6rnrqv9a6n+8+g0X/or+zGW692Bd30zw eB1bCW/PO6v/0rq+meCzOm+j9p9030XCBwrvI/h33WjsoevrNTUarfScWu3f atxj9M4rCJ6ma4/rnhnCuwheqj6Lq88POv9D+Agdx+t4mHlR+xvq86qOr3Q6 RXBjjdNG+OkaZ4reu7f6LatnPSmYqf/b6rOk7m8S/p36Pa8+EwT/Vv8X+R7C FzDfufElBHvo/CD131RjnKr3/0Swi8ZsqXFKtX+jfiPUtrXwDoL/0ztMU9vi Gu8V3f+l8EmCO6r/+eqzv/r8q/MV+F+CP+r8fF37XnA7wRZqX4zn6dpiuvcc zelIvcOKwjtVniPmqqPw53TPFPW9TnCG+s9X+3S+tY7Zwp8RLDTmZPUZrT7X 6/hR7S+o/UyNs6rwVTXOQvWZoOM09TtD8HTWm64NUP+WavtE/XeI1/dS28TC 3+VjtZ+r9nN05Do/S/BMHYnwz5hrwU8F5+poJ/xnQTbGPw3PS/PU32WO8Ev1 PpsKrqv32Sb3dzyf9ab2zYSvp/ZRwjcXvr7wHXO//xXqk+l9OmiceWo7SPiK wn8UfoH691KftdU/pF4zrJWddK274JW6d2e1d1d7qvs+yL0enxOcVXh9vi/8 8cLf+l3h/9OYP6nPi8K3zv1dztU489XnCvU5RPAS9dlE7f11/VCdd1X7QuGH CV9TeCn4u577V8Pf6SqdD1P7toJXqd/1rHeN+Y3GGSN8P73/qsL3VJ911Gc9 4d8Lv0H4NK3JTGNtKrih4P1qP1vtm2gdztZYpwoeoPMeGucrnV+rcdcW/ovw nTTOKjrfUfAM9dlV964hOEnP21BwXa3zXXRtNfXpL3iN7rlR987X+em6vov6 ry54tdpvUPufar9c+FXC5wkfr+u7Qcd4tu6/Q3AfjX1E8P/6RW2ddP2ixO93 ne5ZX/Af6AbrSu0rszbUvorg92pfVu3nJj7PdP95wkfp+nKp8a7QO9aiji4N 07Qzha8k/LLM19l3ndV2MfPJ/Bbu+5PgOrX36Sy956DC17+GTure9aAVwg8s TBu/E76S+l6S+LzS+1wg/Br1vSTzu3+rPtP1DtPi/n8kdZ81de0oPaOV4L+C f+i5u+r+dTTnP5amPweq/ZPS87mr8DG6b0e+r85P0TvswDwInqtnnKO2L/TM DTT+WLWPVHs/3dtebdsKrqyjv9pXU/stuee/FLxQx8XCv1G/W4WP5X8I3g5f gV8IPqHjJeErC16t+4/SOP0E39A7vQ7fEXxTxxvMveCpeodTUvO823TPOMFa 8C36CV++8pr9XfgsHTfmXhsJe5Zvz5zrfU7WM7ZnDQhepPZLmE+1XwxvYP6F 76D/tZLg9oLXqv0mtf+l8wm6b28dt+v8/dJjbq/nnqOx9uJ7MW86BghfT/Dz 0vtud2isxjmF+zROJ7Vvx1pSn22Et1Hb1uwX9RmpPh+xF4SfJvxD4Q/AL4W/ rT73Cz9O+FvCR7IXhX+gPuvqv9+tMU/SmFvq2nJq20LwQa2B69Q+QXC33LTr Rl07TPtlf+GPsgc15lbCfxS8VketMTbQmjlNcCfd213wW91/jfp8pv65nvUH a4P1r/5bQjNLfye+187qn6jPL/FbXKvzY1hn0DH12UJtl6v/bepzq4614TeR vr2pPneobV32uc5HM5c6dhd+BO8lfAnB/aAxmf/btbq3j64P1Tvernt7QEN0 bKHra/BcXbup9HOPU581dfwm/Ei9Sz/1/zvSzMc0P+8L9hBspvY08pEbhP8s vK2O5olpdWv+g9pH6VgisYzxgdrWEXyn8n3tBFvreitdn6vzmZV5RVvBR9Xv PfgI+yPKZshqb1fmY20Er4H3q217wacT75GPdW0p5ADB1wSf0v0fwb8EN9T/ 7aXjHZ0fojEPV//BiWW9IYzNfqj9Lj0E72QdCn9J+As6TlS/swTbaYy2mffJ CoLL6+gH/dK189T/Pd13ot5pW2ig4CNqP5m1JPig3uly6LDgq+r3P+Efq/3l 0vIect8JrHvd2wn5pzD96Sa4tp5/u/AtdQzTeR/BpQVvEOyt42DdP1z3j2Av 6J2W1NGSdc576N5e0F74sZ53Gc/VMyfGfcF+e0ztF6r9ceix3m9j1i0yrY4z hf8s+Kn6f6JjP9abztcQPLsy70CmCsgcheWTbwS/KyyfzCnMR5CdkIdO1T1r wccFj9Z77K33HF6apzwX19Cyalsms7z7a2F5Gf56sPBuwhPBStcLHT11/nlu Gep1ZK3KfO186EBlftKZPVuZJ3cS/iLfRc87W/AstW8A3xM8ozLfOU/3DlHf A4Q/rWeswJqP+/Yo5A/hN+q4GflJbbfSv/B+bC54o9qbCS6hZx2vZ3wofCXh u7MW2XMaY3/hOwsfjxwfvMfZ61fp3lz911f/YbXltOvVPlD9+wu/X/2H6vqG elYrwY56j5GJ5b9tUtMgeMGypb95k/q8rHF66ry7xtxb42yr6/donAOE7yL8 AeGH6h12En63+t1auc9twr8qLGO+pb5H15YJb1T7kYXX3pKCfXW+mMbYCL1K /QapzzM6fw05CZlGzz1E7XuxF9R+d2X8AfYB8pPGWV5wBZ1vLHw54asyv8KH Cx9eWy69QdeP1vmmam8teJfG2ZM5UfuVpb/FBmpbM+6X4wrvi8PU/oKeO7Yy /iyynvBDeU/hg/XfjxT+ovB2pfdZO95L+BK6b2PB0/UO85gTwT90Ph7eJ7yH rq+lY1+ep+cem1rfuUL3H6a2rQUv13Eo+1fw8cR65as8W/ffy/sIjkTmT01/ 0WUfQP4RLHU8I3wGumTt5/6g5z+vsX7QODcJXqv2U4S/pz6XaIyLdTRjLyWm sSerfWm1/dmwfneZ8B8T0+ejhA9LrVsdLfi/1HJ5C8FC178W3ldzuJzg6ciM yGasX/a7nnsX8oPe58zC8udaUV9Gr1xJ8IHcNLkrso+uHaA+fQXnlr73d43x cGK99Vmdj0WGE+ws+Kze4SG17wefgNfoeJw1pP/Tg3WpdfUr+1LHVLXfJXin jgPV/0n4u9qeEnxE/W8V/ofgDzq/WfiXev5T7H2Nk2qcicJ7obsKX6hrj6jP Keo7SeM9llgvvUTXBwluAv+vzYNvUd8/EuPw4sHIRsLHZl4P6L/N1D6iMm/s gFyQW6ZG1u6InJiYJm6l8wG650qdP4B+kfq7rqhn7SzYR/Awjb8t+1Wwo+B7 ia8dHXX8poa/KTpUaFivZw20Fz5M9+yue45EB1f7Fal1zhGl+fdZuvZ04bVz pvDj9a7L6772gu+hDwjfU9e3yC1vI3dfkHnsZ9TeU+O9n1j2XbuwLjJX13+o LG9cLbhy7W/9nPCVaq+jycI71f7Ozwq/K/daWCH3t949sS7TTWN9JHwPHXfr 2iT1WRH5IrF+NErn7yTmz2cIX0/vMzPyuMtyr4F/NMaa6I/wNeEfJtbF4M2r Fpb3Z6G7CD9L+OfC300s/8MLe9ee8+UEW+va24llgI3U/0H2TW7bCXurnc4/ 1HkLeIr6/plbx0HXOYX/LLyL4JDU9HtJna9Se/1OjXr0QrVV0OXa+g/6+Gsa Zym17aZxPqzM+1YWPEbHMlGO+iu3noT+9HtunQ/ddNfccukd6Psab+XEPG+X 3HLg7Wr/NbfeOrCwXg1vuk3td9bW5bAP3F5bn8SGcGHidcwaXr80bblZ976p e5dW2+7CP6rMR1aJsiX6eI7cUvl/ryA4M/f776H+7+Rev48Vtuewhi/UO9xX WC59SddP0j1toTOC26emcYtsJZVtJF0FRyS21WAbbJta/kYXOrbyekYWbR5l Wv2lRh1tJiX0sPL7I3MOVfsC4Xr8IvsMtPTEzDYfZP5p2Csqf5cVoSu1bR2X I08Vtn0trj4davOKp9X+t/7g9WpbX/D9ynwcft5am/htdD/1XUH4O8i7wtsI fw+dQfiC4HFfYP5ry2DIYvvVlhf3RyatbV86OzWdgkbtqLaFleUx5LLddf6K 8MUEx6rPrqylYLvooVH+fj4zr1xWz7uvtNzZX/2ryvzs0EUTZ/kNOW5+aZp+ kNpa1Obv96AP1tZVzxW8WH1OijLYEjpeV5+9BZ/Us4dqTroJvqLjDuEbCL6k YzRrWnC6jjOFryn4vI4RueXnB4UPEuwiOEPHJaxjxqss7yH3zSytv2+jtk2i PQe7zpDKcj7y/jnqc0KU+c8obQdlT8NH4Z/w1cX0LW7FNqE+29S2UW4r2K+2 vXU7we1r20B3YM6RYRN/+78S/9++OobpHY9BdtUcL15YhrlbeF1bnrxJzzxW 58egfyPb17Z/3gd9qC3/3ib8htz0ZzHBrnyDxHL/SbXhQ7XbXk58z/p61m3q v1BjfppYN4c+wgf3SWwP6VlYp2ejdqxtExui+eyt8T9OfN6+Nj3uW5ufYgcY VHldI8M0F/wksR3gFp2/UfsdmguWtfXZG9S/qm2v25+9ENcD62LD2jR2KfaN jjeEt2SOa+sH43Tv4cF0fmm1HaXnHctz9L8OFn6I8CnMbW258V5ohc73Sc2n m9WWY+9Ue1NtufoO4Z1ZC4nfac/csvE43Xe/+qyVWM7Ma+voo4WfUFu/Hi94 UG6dbLL6/6626Yn7pfGcfi9r/P6pacQNtWUAdK5M+Kp8H8GdNP+fNKzn7qLj M+H9kXtK07VdhY/XcUJiXoBN+MTENBRbAzaH1fUu49V/D9Z8sM2Z/tA19Mib Eu/twWo/Xvhxie3MJyWmj8gL0CXoEzxqZORTkzX+GexZwd90nC784sz0C7wj /EbPe0jXFm+y3MB4TxSWI5Enf0DGzryfsHcjxyPPbxssw0KjkD+QnZ9MbP+a ovbDIl2CPm0R8WXgi7q+t+5durJ8/XplH8xkZCtopY6pfGs9cy/oAWsys84J 7UI+m5zaRvBUYlsbz9wnmIdg24ePQOuwbXarbNN+Xu1X68JumcfcSNc+Krx+ bshsq3hWx6c8J/VcT0psi8Qm2RqZMDVdQOc5I/P/nsL7ppbVmJ9bomzYF75e Gr8VHVjvc3ViOxW6ZAGdFty3sC32W8FOqW3m6O1da8uz09GPC9ts9xFcvbZt HPvJesIvF/5t3AuMj578Z2LbEusJmnR94m92febr2N7hEcjC7KmnUtue2GvH q30Gugm+AuxmavtJfd5W21upzx9M7Zs5NbFtZmhi+8wQ9f9G+GrYUnJ/327w ido+MvSjCbnXwKqCV/Afmbfa35410Fbtq9bWv16q7I9jDXdGHkj8nfhG++v9 NtL/2Q8+lvv5awheo3u/Vp/ugn0y26eO1PnE3PanDXLboo5OfL5G7XPWIfM6 PLFN6lWdPy94ee21PDT+16dz7/eegqulpnVH6LxZZno4BDlD/+W1xDRtUx0P pbbF75B7/vkO2OzxeaFjYGfDP4iMjh+yfdybJ2AjEnxK45X6n4+i77H/MvNB bHrY0a9M7U9qpP7vyKYLKvMaeM4umXkbeto/leUc6D8y9bjEcvX8ynxkb8E/ K/OdAZV5zgOR7xyQmq/gU9m4NvyLcTI/Gx1sAPtWx02p/RWtE+sh99W2C+F7 Kmr7gPbT+h+VGMcexDytknjfIsR1Y/411uaZ6TB+gib9/yeEh9L7hX0NLd4+ 9xj4TK6rPYfYr+bk3l/ss+1yy9H4Lr7J7ePYL9LFpeOcf5Fb5odmzq5s11pD 8MvKfuA1sVFV9qngC/4y99pkbx5Sew5G1tahH028pv8q/S3QP17UMYNvkVl2 eCnxPsRWBs/dR/jWwTabhwXryjrUnsF8mHuxLWOj5LvtXFnGQxdjv+ykcRYk tht+rDGmCd6ltlVS87gxmXkp6xP+t7jO32Q/NMx730os60zVva8m5o/wW/CD GrZ7M872DdstkUv3hU+Vxp/IbN/Hzr+j3nleZX1ta8H9U+t7vNtWgn8ntgFh 34G/baf+G9X21/yu/gNT66uc/xHtA+iI+6ltrdT3Hlh7XZ9cW6ZFnkFv3Uxt tyV+j6dLyxj9oLfw89Q0/LfK+u8ugr9W1jf7V9Yj70msSx6ledgosVz9Zmm5 ZXuN80bpeULGm1tZD91KcGLpeUWGwSbLGFsKjiv93ZBbDsw9l5OgX8IHsseF /5t53+F/eUbv+DnvwboR/hl8DdqYGb9b7Z2irn0tdEz4LOH3C3+5sL79I3wz 8//Cj/lSYd37U7WtnFnmQ957OsqKo+HHhe2oYwvrYOhis+D3ufnSVVEW6NCw rveq+m2cOrYAfyvv86vady495m/CXyn8LPR67LNpHPOzzPOGz2670naJr5D7 SvORjrltO+AvNmw7gr69IHyT1LJ6q9z2PfBH1b5ZbjqKzQPb1Jdqf0znuwbH XLwa7BPEPvCl+txY2JaGr3tAsB/vY8HdS89/nvs/MrfIyfx39Av8/ium9jvz X+BX3yXmeRvmptvQb/jet4nta3sF+7Q/Etyr9Lstqb5bR50XEg4dhX5fqn73 FqYR2K3RC9AJWhaWQdBLhkcc/jM17nvsHCfF/uzLx7HlFqYdhxfec/gcsLsi 5+7QME04OPWcMle816YRvzC1H7iD5MOT1X6BzqvEeix0Hb0WHN/Cp5XtUsiF yEbTKv8X7CVTYjv+BeAlEef/8m075H4fZPCA7TGxTxiZDf8pNvMvWIcR16/R JrVuyPyjJy4heGppXse7szYm5/ZbERfzb9xP7CP6oOddUFhHJEaCWAk+AjYd 7DnYMcrUcSO/JJbpkEX/iXuFdb52bf/aWti/a9sWsDFgh+BehsQ+xJi8B/Ip 9ghYJjaJIv6vC+O8flLZfvtVYpsydrg5iek79BWai88AGwq2FNYiNgLkCGwG c/XAZVLHtCAvgyMzYwuhP+tyfGpdGHsyujDfCjsiOjIy/3HC39A4S6WWPdCR GQP7KDRk/dQ+aPYr9PmChvcT+wo7J3R7g9gO/1k5tY+2Q2q9m/2GLZ3xv29Y 5u+S2h8D3WV86CZxTYul1k+Ii8EGhBkDng/vhx5dEXFkAHRq5od1jyyMTIxu +ELEkb3QfdCRPtB/aZfaH3VCsC23fVzHaXzWHPZwXNPYCogvog8y/yOF32Wk vtVWtXWm2cH2+MVT2+SJkwHHPrZsXO+fVX4HZA30NWwx6DafR3yR7IO+HhzX NjOYX8I3sZGiZ+Mv7xd5J3wQXwhyKPIovhn0FHDoAnyue2zHjgS+W20b1Em6 foTg+6nlA2jB7ZXpDHYL7Od8O+wb6PU8ax/erTaPg9e9VnitYgfeorbOik3u AbU3pY5De7DwfjoN23nt93pe905Xe4/U8XLIG6un9jHtWZtfw7eRGfi/vOv8 +I35vrvUhg+XlgH6prZLQ7PB2efIq/Ck0ZEn9kodn4PMC4789ExlOoDNb2ac Z541Nq7t/nHP8VxsNDN0/zqpY9uQi/uklku2Cvb1PSQ4sLZsgIxwQG2ZAdkB Pkh/Yi2QnZGlsc8MSs3jeWf4J++Mvebj2If3/ye1nwDedmnc99i6sONeFvcR +hh6GfFy2GKxyc6Ne3+HeA+6KnirSA+2jzQBWy8239kN2yaRz1hf8CX40y9x rTA3fSvT4G0iHX4+9b3YiokTGy7888L+jaMincF/BY69GN/ffnF8fIjIZKxT xoS+QxdfSP1fFm/Yj4sdcnX2T2H/CePvHhx3+bbgYbX5yGLYqFPbDqDX6N8D Ir5Hbrn13sy2oEV+nKj/7hPX/4DcctoE/DZq25v/r/Mtgv3G44PlfPjj9KgX 76mjp/pcV5l/YXNCF8bucXjtvbhl/I9/xf3JHsAmQh9iJ4iJ4nshV2GXYEzi 4rAN8m7Xa+wz2JOpY0XGsQ9Tx4QckTqO8MuGIefYxg9MrV+jx96bW25qnztu k2v4zljv+8c1v27EoTftY/+FhWk5NJ09wb7l3aEDPWM7dP7D1HryTN4/tf3k c+Sq1LaatxqeM+QMePPIqCsdXNuOQx/iPfh+fEfmDfsL42DvYmz0b2KAPxb+ EnOb2g9wZPy/7Bv2PHvr5KgXDKod54KtGF8Pe2VE3C/44vDJwY/wqYKztmYX Pv+icF/uw8b8bO45Jo6V9Tw8rm3ozaC4f+cV9hWdnNnPjH8R32Lv+G7s5ZPj u/eJ9As6Bk3GD0l/fNNfapzm7K3cPmfs28g39Dkmjsl7ghOfuVduv8CDmf0P xAC0LK0zozsjS11QW+fF53JeaptT+ybbEbEn4o8hNgQcO+D5tXVn/EH4J9Bz //NXYKOE1mOnBMe/hd8AWQ15hrgSbJ3YObmX2IQTtXcW1Pb//lva/nN3ahsL 8T53xzVwZe11t7LerXnldXh1bbspY+Kjwl+Arx+fP7bNa1LHbzM2egL34MuA tk0VXJB6HpnDDUr7VU/KHG+MTIudk5jfK+Me5DtelTped6nEOLLd8qljp/Ad sjYui/hfhe+9KDMdYx6I8eDaqLiGRsV7f244fvu0uA6ZU+YW/yAyEbIRMQan RXxRn/h98Jv9mXosxrm4th9w9cq+aHxMyHDoScwD8jc2sTGp55B4qjFxLxEj g52GeUQgxXYJnZxeO7btmtL2cGyD0Eb0fvR/aBz2lZtTyzHE+jLOn4Xvow90 9q/UtJvxmR/6E/PcV9/1ytxxvMhy2GeR37C37xzXave4boljJq5uE7W1KO1n 24x5FX5e5es31vYNMR+X1fbLbSp88Wgr4x3gHdjMiIfDbkaM/+i4ponJwIeP bwh4f5xDZD3kwv/awJEPmeP7Iw7fHJea92H3HhtpYN9oe4S24wugD7Ho96WW v6EbV6det9ibLq3td8a+hL2Td8P2dEltvzA2KPIIWH/48fmf/F/0DnIUiOtl r2InBsdWNaN2POLNen6/+B2JLSQmB79CHiwD83x83cgM2CKRMY6MvAaes3Nu e/nNme2N0+MeWaw0HW5e+rvx/fhu2APR26Hj/WM73xQ9nnbs2nwbvtEf0T6J rg5fIB74sdR0C3/L46l91gOx86aOY8fmDY59EHshdkP0t80y38+zrq9tE81L H+DE3Z9TGef6AaXHJ06etcUa+y13XDL/k35Pq993qWNUBmfGicNbpbRsSBxx i8x2NGxoT5W27eBLhcbgF0DWehf6JbhRZXsb/TeJMhrzyTMXxv4toxyHDET+ A3RlWpxzrk+NY7K+WHMTI3+cEtcevBQfCTx3h9gf3wQyGrIavnn4Kn4OeDRx iK0y2wUeqvy/2uh9H68sn+JX3Dd3zO2TmWMQmYPtdP1QnR+iYw7r5r+4rNLt X6eOrWTdsH5YJ51L6zHEEX+WOmaReEXm9jAd3+q8Kuy/G1zY54CMhXx1MPtf +FKlZbeZkV6Nj369EbVjJoidIJ6POIkthL8f5SnGwX/B2G+mjifeNDhW8TTB /pntbvDxJ/BlpP6PxIbyPzYWflNteacI3k9PRdoI7XwytbwJPYIuHRQsu9EH 38p5uW11v2Afy2x3Qx7A3sL6J7bmBf23odCuYBoHrZuv+x4pPU/NaddxkO5v IbhcaXsAsYRNwfN5F7F++NnVpxmyce7YuemZZQJkgwVqWzHG8hHT94Xum5X6 2awl5Dl8Hvh5WRvvCR6Ze42/lpm2ZJn9wvvktls/ljmOMc8cl0tcBfRgVO11 uzCuQ/x7WfxOyAx/p+aVE2If1v/UyLuxpTHP8CG+MbwpyezPvTl3btdSxLAE x55NjvIePPKEyH/mRx6Eb2J+pP/4AJO4LrE7MT7fETsPvJB1NS91TBvxbIwD P0MPQX74N3Ue0LHIWrqnLbJYYbvzioK3JLanowci/yP7M9f4iUJm+x00oEWk A8SaHqC+E/EXafy9hb9aWwZAdkEemKL2wwVn1o59JSb55cz+Xt4Hny+6Iboi 9qGtSuu072aW7bEdvCP8cHxg6vuS8CfRn4W/Xfv7fx7XwGBkXMEZ6jO5tF+L NTAEmSl13N6k2jixkWflju36IfNzV8ycIwANAGf/zKndh76bqs9SmWM4P6r9 TNb+17EPfYkRI5b7DJ3P1vn5gl8IfhBpKTSVuWROeb83a+8R9sqhudtezBzj WmeeT3ws+FqwcUwovW5fj+M0xe/yevxO4MRC0P56/O+H6/ghdVw5sWXYYYCc 807P1f4OxEy9Ujv++Y7S3xGZ7784FXDkumWDYyOnwP9L80Zy7JYJXnvzhK9Z mjasUfobto7PGpM7t66T4HLBcZYYWj6tPWdb4BsvvWeJwfgstnP9lNzzOTvz OzInzMVvqceZGuW9MrMsx38BJ44F3oGORywCvmL0MfQZ+A76HrI8sSSrZ/Yv sEa6Z14z1+X2UTTL7SOgnRyuK3L7NFLBxyrbP4hbmVDZpkh85cOVYwjbQl8z x1ZyrWvmuEPuwX4CDp09onQ8zpDS9Bq63U9jnFA6/6JFYT85+B6Rn+Izhocy Rtc4Ds/heczXv7XnpoXG2Tw4drtnk+WCzpn5Iu/YJfM6XkF9hrM+BO/MbdNt nTv3c93M8cn4GtbJnGN2U24/Rktovo53kfEE/6wdw/xz6dyoNTPH5eI34bnk MeEPJ4+CHIonKn+Dzupzae7vsCDze/P+raMutkHmOEZseNidifUkdhicd90t ONfztWAfC/15vz9Lf0fiQvFHrZ35+2XB/Ah7BXZy+Bw8bnTpnAXiS4mNJb+F 3JaDkBkyx9NvI7h1ZnsLMQfw6gSDUbDciq0GGYA+5Pn8lsR7opyJnxi+u0dm XvKfHEW8AnYkdC/kZ+TmSYVtV2OjvwtfzqyGc5LhReQSYvtaFI/YcAzMhCiD 4fNpE/uThwNtJt+QfA38r9hPyJdDphuN7FRaDyCnmYciHyMb7585HgUeBI9D RkdOGFVZHyLOaGjp/0HuKb52bBu31vaPYo+5pbZfA9kFuWVulIORgfFxIFsj V0+Kz8XmwjpHPyEuAr1k48z6C74t/if/EZma2AXkav437adFOYUxsa3gp+ud OUf7kNLfaFDptcp6IH6SNYN/Dhsr67dHXD9fapyDhc9Onf+4uu57OThfe23h r0d+fmRm/gs9HJqZvyP/cC8yEnRvWGb6Sd9hsT98njwQeP0IaFvmPOF9I14F 8zrkKHgPvO/AzG3fVfYrlOpznN5l/cS0gjGRIdB1jylttyf/FZ8ovgj0X2If BsTnkrPQVtcnBedBDxD+brBOyrshU5wX9Rfs/sT/YWPeuXbOG7TpRMHFCr8D 7/Juarskax6fS8dIl0Jw7s/D0V74fpRL4S3QH/b875lz+rqVplfI3MjbR2Se W/Ic3suc69exNN0eEvkdfByZHjkfef/QyNPhh0MibUd+Hxxp4JzMOYZdoizK 3CK7Qg//l5n+kMfXWtcfC45RIlaJ/3liadvX2aw/vkHmXG/ykI7PnGNMjvxJ xBkE03juJcYJX9xecf5P1z3LC84RfCReJ/+OvsfGZ5HXhl1pYPA6h3agb2Er 4DthN+Bb7RnHPDo4F+qk4Pz6j7RxRggeVfr9yJc6LcaKEDMyMsaKEDNyROQ7 8B9yeIhXXEn33lM6zwgZkLV5dFyr0HLmirw4vi3yPPLNQMEDIv0kJ2gZaHFw jgD3kouNLkAf1gNx/QNj//syP/etwvmS6ELES14svIvwe2vnGpFz9EHhWN0D hT+rtnOC85GI3SVeCVsB/gXynch7elf9L6ocA08sPHlT/K+Z2Ngqx6ITk35h 5Rh1YtWbR5lsV8HnMvt9yJsbFpzT82ywf45YRmwVOwTn3l0abE8kNg774inB efKrQY+D5XjiM48Njr/cnP8YHIO8KBY5uKZAZ2I/0OUKxyPNKC0bryb83co+ 763R/4Lz27tXzpHEZrpl7bXK+mQtMu7puvdjnY8MzsnvUbmWAjkpxIH/jhxQ OIb2Ita2+myu9veDczj7CJ5VOh+fZ70XnG/ZO1imRY7treu3BOeZD6ysl5Hb RY7XTcE55/uq/Qfih0rrocjGzdXnLcEPg3Mv+zJ/OjbJXT8BmYE4kt/U59Tc ex06cHNwHv7+yJbst8Lxlk9HXzM+5090vl3h2M6Dg+kndPTM2vbw5wWHVfZF EVs+Nrjex+HYloNz53pj+wrO9e0p/NzgnLQ+wncKzte8jP0SXJPisMq5ePAd ZIR7g2t/DOa5wbl8vSrzX2QjYgbJQyYfeXXmOTjXbsPKch28DJ5G3Do5mN8j A7HWC8cmTQyO7dtLfd8KzpvaUPAS1mhuefuB4Jge9vWE4FgfYvUfDY6RYv7v DM4tPwS6xP4tHE97PrQxt43oHeFbFI77Ork03TtF8PTgeg3rqM+Fwo8Vvlll +jMi9iGPnljYi/SsJ4L1va7BtAubGbzvAh3HoIepbx3MV7YUfDxY91uF7wu9 Lhw3hSwKHYKH/Vpbtmed3BpcB+EA1mGw7QsbGHm18PaWwTHf6KHkO5Ar8LT6 LI+8H5xXT+4AMg+yEDy3Te6YN3LQiAed3HA+1zK145c+r533Soz9srXjR/Fz XSW4fO24hJtr2zSx3UM3qP+CraCnxv9Ax5PMs2BauW4M+XDk2LLmWwX75js2 HFvdunY81TeC96vfy2pfRbBl5Rw68qepb4Iu1juO/aHw9aBHueOTyTGs4vwj g5D7Bu9dUm0bNlmeoL1X7vhW8s3Jf+e78H3IQ4QPLyV8THAtm16CReX5ZB0u Wfnd2Nfk0xHf2U73jQuuWcD/JceZ+LYV1N49dywuOY/kSi2KiYKmVc41Iyfi wtL5sNCx7sg8eofVSttekM+Q287P/V+6RF0Vu8lapfVZ9Ml1S+uqyCLIdtcF 11nYU2OODq5xsIfw64PrGuxV2T/A/0VWgRegy2OHYH+Q77lJtP9jd8O+hA0K u1MvtX8eLAeTJ/6F8N6547epg0MdFWg++5X6PNTpGR6sI6Mro+/0VPs/tetX YB/GTnwRsm7D++7L4Py6tsF6DbrMQvV/M3h98F2oxYGNGrs19g7qJFAv4bPg XM02wfogOuCear8iuCbCjpV1QPS73dR+bXA9i92Yk+DaCjsJHwVdEL4t9FP9 VmuY910eXK9hB3S64DzGdsG5GdgOPsRW2mQ9fL1gWyE2w1R4hS8wdxxjKfzE 3LGL35WuWQGv+bZ0TQx4AbYa8u3ZF3VTjD9Te8smx5Mgx35fum4G9GHpJsdP HKhn/cT8oP+pfZkmxz/gq0VHRVelvspVpXOc4QVrNtl+uhb/pcmxI4NY802O JyAv6a/gNUr+y/xgvYiclz+DdVFyM7HP/B750T9q3zh37uRC4Vvlzhf4V/jm ufP+cAj3y+1fuz24NgfvPDOzDYY6Fcs1OXYOXza1JqgxwnuOKZ1nDV8jz4mc 1r917Ybgmh3kPWHXok4B++6D0rVH+HZrNNlGs4b65E2O2+sbbTjk3kMD02gz oU7K8k3OBxus9lZNjqtAplqryfp/j2C7GXUHWAM/1rZR/ARN1XGCxnlO48zR cWfD8sN30c7yfbTDdIr47NJ1RdinX5SugcNe/iSzfYl6INi4sZ1QS2d21FGo uzKrdG0c9vunwq9ueG1/VLqGCWv7w9K1TdgL2BOxo1DPZOfgWgtXI/vovF/D /P230vW+4KdN+r/n5I7jbSZ8VO449iD87Nzx0tiXiKOdV7suFjYP8lyp84Od jTzXubXtP/Oi3WnlOFfUyCK2m1jutZtst1pH7/NraT5ysK7fEVxTBrxZtHdR 5+uu4PovhyIHlq5FBt6iyfFS6CCf1JYhXyutU2MrIZ8Y2zr2OXL1H9QxuGG5 6M3M8UXYnN/KHO+MLXpS6VoT5NafF5zzT77eizo6Fo5hJu+PuG5ir64KruFC vh58nDoBTwlOLa0PblI5t4/c9iaMBZXthNDJqerXuXC890ula78gkzxR2kaN rZp8MGLUjlKfVZvsP5tY276JnXN+7fhY4mfJDSK/kPobr2a2gcCHyY3u2mR9 GFmFGgGHxf/4RnBeOvx9Wmnbdffguh/Uk2EfUTsAP8iqyDvCz22YfsJ3jy3N h6dFuop8+Hhpmzzv/1ywrI5e8FjpmG1kKmrQ4BdDXpoS5TGei21wu8x0dXKU tXjuKk32mx4S7IvEX4mNiPhaanMQB7pLcI7+jcF1KojdJQ+PvHhq+7CXe6v/ 0bm/y0ZN5sHU6sGQc3vDufd9mizHU+eHmCfsuNSYoN4FsUPEEB2L/VH4GMF7 4/9FD8X3hy8MWxN5TNjosNX1D66pc02wrxAfFjao1Zts0+f7kl/Pfz9csG2T Y7HwzfUSvlThHDfqV1AP55bKeYL4RBfR89o5CPCI24JrGJFP2lH39smdg0xN A+p0se+IX6GOCfER7eAjuXN7b9ezBzQs21NTBf4LH6Y+A/W74H03RZsdsiI5 4eRoUGsAeYC6fS8E5wOTL0PdAfYkexM975XS9Y7Q3aaXrmWELL1E5doI6HHk IBGHAU3+Izh3lP+Lrvmr2u8QzKIMifx5Z7Rp3lU4Hpp7sRdi78amTO4D8fTE BXYtHTuO7xBZi1hkbN/wOWoqUteCnKpmlWtMoWcR6049CupSMBZjUreMGOZb iDdqcu7WN9G2h+8NWyf11YirJ9aQ3HHi8umDXEdsObUV7imsm5/VcD4EMdbY heHB5JgTs0OdEuoXMSZjk+eC3Z3cR2J+7o0yPDXHkN+Q46D55C+Qn4FeSV7a rGB98OyG80uIUyHuhD1FTD92fmLWiN0nHhR5Na9cswvdkLoP2Fmpz0CMODbK hdFWjs2cXG/qheFbYJwutfOgyKVi/ZMzQu4IuSrMN/IF+YpT4zedlpnWtSmd J8UcII9Qb4E6CWcVzqMnnofaO+TPwt/h89j9sY9SV5FcCHSZlUrnz3YQLAhQ K5xLRa0deB3yPPXPiImF78P/yQ3Af8U5uQH4tIg9hAfiV6OWGPkF5AqOKUxL 0NewV1Ib8YuGY9OppYBch3xHbg8x6MuXrs9ALRFqipA/SYz1bYXj4/GtYn+h jhB5VV9UzjHAn4SvlRoO1OaiRhe5SdPimqeeA/WUqKtE3gJ2IWJ+yQEgTog1 0apyrSp0rocz50/x/uRTzYjrkJiN71Pzl1+C6yl0DpYF0Imo7Tc3uJ5Cp+A8 XGIMydulRie2LfbDuOgbICcGHYI5YW7Ya/g0iDektiB+J3DWErZ2ZEHiipFp kW3Jg6ANOZFccvy91NRhj9zTcD9inHZJbZdbFNeaOmefeEditZDtsBOQi0RO Erk3HRqOH+Fb/xdbylxh+yceh3hXYnj+LlwXaDfh99Su7Yh/gT7U7dlV8C7m rHKNCOpJULOPGBzyDbGDfd2wzkKMK/Qcuk6sLHxkQfzu+My5Rh4IsVHoHcTN EkOLHZsYVOJO/1H/UzLHqX5auF4hdnB48NeVcwY7BOdCkBOBnoUNF1tu+2Ce RUzHik3OrSXmgnzAbyrnVHYMjtUcGscnxoP4EfJkqTc6N84bOTzERBMjQ/ww c4wcTew99gdy74hFIQZlydL98YEsqtlTOoaEduJRiEtZunSsEXma5GuOrV27 g7VH/Aw2XGy16BnkAlB/lLqUxO8Rxwd/w25D7VLysomdpF4IOgpxYyl8JnM+ yf2Fa4wQd0ltLepcYc9+oHYMIjZsasgQ40FsB7SIOBD8G9jciRsh/oa9TB1Y 8iseLWwLXFQLVvCO2mty0doMzk0jN5QaoMTO8j7DYh/6UmujVZxPYsbwDZNP TF1anGgTCvPn2Q3XZKVeKnEK1CEZE+UQ6mZgg8YWzd68J65bamvcFdcqNTeI t++WusYFNk5yQskNJc8LPk7OJTQHHwi6KLUW2ePs9X2DczrI7SB3mJhT6glj vyS/mNp15I1it/+jcH0YYuqx9ZMfSlweNc/IIVmURx/XPPmu5EKhO5JjQs1X dEdo4C/xudSCmhNsQ6WuIPUFieMn9o7YDfJDyA0mX+Qf/YfnGrZzwsvh6dSs oi4ENRzOg5/m9uORB429kDx8almRn0J9KL4pNOS/GDHyTNhr5JqQy0zuMzUs yY8m/5naq+Rf9Yi0GloATaA+Kvvx7MQyKjkvS6S2jVPnhzwlahtTg4g9S305 dCR0JWpKnR9pCzQG2tUq7iPyrx6K/Jc6usS/kntEfSH0sgsL54yTX0e9Z3Le 5yWu6UHtR/J7qEtBLUfyiMktJoeFb44dgvxcfDG/F87vw95FHQLqZlBD4/zC uerk6VHLmfhaaqUiTxLP9lVqvkvtR/Yyexq/ErVOvw3ONWa/s++/C85DhnYR Pwbf7qZ3+CY49xjaRV4fPljkujMirYPmfR+cHw7tOjPSMegZtmfii4gzwh5D PQ3qTKNvUcOQWobUvsDHQ00BdDvqE1KnEFsONlLqMZODQ11I9iAxQP/F+5MH SB4G8ge+G2LNfg6u0UH8ErXc6ENsIHYWfDfEbP4UXD8HPo+/hbwermOPoV4f fuO0di4iMTI8i5ppyFHIU9iViZUiZoocPWr6QNPwExGD+WNwDUNodRLHwa++ IMphjEO9UvIhe0U5gZoe5CpTew89gxhXajGSr0RuEXoufi5i3+YF5+tVqX1D 1AbKosxD/tEaqe381CchX5paev8HivxYuA== "]], Polygon3DBox[CompressedData[" 1:eJw1nAn8FtMbxed935m5Mz+iVFIJaV9FIipCi2RJRJZQIWXNLqJkKTuhhMqS 7GuhbNnJWtaoRItSsq8t/ufbmf/n0/S7z9w7d7Y793mec859Gw46s+8Z5SiK 1sdRpH/RPyGKHi9F0RVJFJWqoujTLIoGa/+cShS9kEfRItlny/5I9puy/9NB LdT+Zm13al9bHXeYyl9pe1/lmmkUfaIT7KFjtqKs4zdXu21U96yO76x9uexT VT9EfX0n+3qVr1V5kup7qN1Hsmepv1tUflLHf67+emnfFF3rm9oGqe4G1a1X +291/HWqu0bH3yF7J/19QfVDtc1Qeb3aP6XyWLUv6/4eVH8fqb9uOuaczPfT UeXb1WaI2uytbY7smbKv5xzq/xnZD6rdg+p/qewbZF8n+07ZFfX/guzHZD8k e7nqp8i+QfZc2d1Vf7nsxbrnG2R3UP0fOv/b2rej2uys7XOV91T9TJW7qf0o 2V/Lvk7tW+gal+tajtJxH9G/7Pqq661926i8MHX7y3XsbapfpX3bq/4g1ddT ubvqt5F9kdp8pr/7y26gv6OLa/pb97iTyuPV/h+VD1D9Dto/VvuW0Y/2na26 87T1UXmAtis4t7bvdc5jZY9RuY625bKPkX25yltrWyq7r+zzVb5A22H0r/u7 Wn0vVd8363o3yH5adeNUV9H7+Up2TdnddOxG1Y9Vu0tlV9P2tfZVqf41Hf+M yo+o/hfV3yb7CNXvoj6+1T3X0b6eXIPKV+t+mqp+ldr/oPbtZf9e9jvYVeXd dMy9kcfI1Sqn2tqp/Ka2hSrvp/Ndpvqv1Oe1vA8ds0bHTtK+P7TvEZ1jnuzu vHO1rafzvKRyB9VNU3mp6sfJHqnyTrq/fdXmUtkLVH8N41X9/aLjf9XWTuUf 1K6uzn0lY1xt3tDxf6pumY4Zo/IRuqYRqitpm6+2b2hbrbrz1Ga56vppu0h1 G/lmVfc6963y2fShulznmKVyV+27R/2/pW2YylnF3+NibTV0/Hi16ai2J+oa G8qu6NgfVf4m9vs5lWvWviO1XSw71vYZ71/HdFJfe2kboPIe2neO6s7S9pLK X6d+nqNVvjX3vML8Uk1/z9C+U7Wvv9q2Urt/VW6jvz/pXA+pTaz67RhPKt/L mFR5ip7Ji6o/UHZdlTuqzXCVz9T2osrH6Xk/rPaJynvr+X+uNtU5p+xx6v+r 1O9jlOzxst9S/b/cm/adrmMXy67N9xP7+703c93JOvd3snfX8RvUfgft209t GsleKXuVtsYqz8l8/a2L+3lH9nrZ1dV+H5Uf0Pah7P1kD1d5gdqNVPky9XWL 2h+vfZ/pXi7WvuNUTlT/rNrvLHuCrmt3tTlK9VfpetapfL/afKD6fVV/pspv qZ+fVN5cbS7UsXtqS3Tcsdp3rOq2l71c7VdwDyr/lvp5TVXd/ervD9mP8rxl PyB7luxBsk+TPVb2u/r7j+wLGZOqqyF7pux2OsdklTsHt39J9pVqf4v+tpLd ssRL0TPQ9qqKzxZz+hFqf6fsPxlDel+fZR6fjNNXdPzBwf5iZcXPZ43OUY/7 13aj9m2Q3Uzlm7RNkv1y7G9nHXO0+l+Rer64Rfsn6/jFsq+SfbXsibL3lr2F jjsn8njsqvNdovIX2pfoen5X/SN8O6qbpvZv6vr+1rP7WftOVduvZddU2+46 fy2VDwn2F6sqHl8HBfur72V3UX8/qp/6zD1cM/es+hHFXM347CJ7qOw3ZV8t e53aN+Vetd2hfX1Uf6Pqf6j4e6qtezxZ9t18Ayo30PUu1fWdrn3vqM2q1M/3 NvUzRe0fln2Y7IGyr5JdR8cMkT2Zb1blnVPPTc9rX0212Vb7zuP+VX+uyj+o /i78p+qm6vjf9HdH1V2rbaLOV11t+qv+Ttmnqdwc/yH7Idkj8T3axvNuZF/O eAge/1/q2M56PmvV//3cj/q9T/3Xlb1E13McMYLafKf9tXXsaG1/6Pgrta+a 6s7X3xFqu1rb3XwranePjv+ZMa+2t6qPf9X+Z56b6vtpXzvZM9VmpvYdpX3T dS21dfwXaru/7Foqz9Px3zNfad8Mte+Ref5jHtxS19te9i+qPx5fxHyhv7+W HA/dpX4fkP1Hyf09UIzPVH2tl/2+yu/Fmz6LTfsYr3sHf/ufq22s/ueoPhTt P1C5i853qPobpbZ/Mx/JbiW7zHmYD/T3d9k91X6a+nibd6jjy9oexXdrXz3V bS37pcT+u5Hs7WW/qvLxuf3hKSr/qfLL+luX+Uv7rtGxX6i/lWq/JWNEdT/F /hZo84rs43LHi8RWv6vcW/dzjeqX69hM99Nd11ultk+qfgviM/39S+2PwMer zWux6zfI/lDlQ9T+DtUPU7vqVb4n7q2p2rzJtWlrq/JUtTlb5XqMsbLH6zkq X5fZt22lY87StXys4+erbh++l9jn5Nwt1eYt5ibZH6quk7YTVf+a7I9U7qzt JOYatdldbR+UfYnK36h+TOR978l+TdsOKo9kfKtuEj645H2vq/xx7GddS/u+ Vflh3iPjSX3MIL5I/K7qa5ujckNtu6o8jfmcvrW1l30/MZbKAzPXz1W5tp7P CZnr35VdS/Yv+nuD7M1Kft9vxn73rxPPy+6WeXwxzs5jPpR9JPGI6v6R/YT+ ZqrXpxBdquubInut6tfIXqRjGgaPJ8bV92o/VMevVH1D4hqd/1LtWxY7PlzG 3Cp7fOETxhCrqf1S1T0pezZjv/AZLYnXVb5A29Wyt8Vnq/2FssfJbiC7q8oj td0qu7XsK1Q/XOf6VPYFsl9JPad+VsTDxAK3554DmIMOLfztLrq/HrqG2ipP KGJM5oi+Kh+jfe3Knt+rq3xU5vHFOHtR9dsSk6uukY55Ojgn+aviOZdchRzn 74rnTHKfBmq/iHehPp5R+4tyjwnit69lz1PbT1S/L/Ox9o9Q/Sex47+FwfE+ udfN+ESVR+Mv1dclZccvl6v99Irzp1t1vitkP1vMb/fKPlV9vS/7LNnPy64Q M6i/fsTnOv7T4vuurv5m6x5fYBwRP2vfRRW/c949+15U3XOJ54JEfXzO2FZ/ 36h8j9rMDPZh+LJTZD+p8x2vNi/KPkH2g6nj989LzpmWqHyZ2pcSxwuPZc5/ viw5pl6m8ijV363j95R9jY6vo31flPwNPq7zjVb9ZNV3kn1t6hiEWGQgPkj2 GNkPyj4Anyi7vo7/mtxT9lPB8eWCkuesyZljhF+LnIPY4WrtG6n7XUq8FXz+ /YnXmKfx77r2a3gf+ChiXNW/J7uajm2u+s1T24u0TVH9PLU/SOUtS36ea7SF kvtYWzz/GpHb0Jb+t5E9rqj/QdvYsnM0crVN84fqe+m/j5mftJ1eto8ZWXE+ cKvazta+qtRtaPt7ZP/QI7f/ww+2wB9X/Gz2LDvfv7n4NmfIrqSOT69Rf88x R6S+J+5trrZD9UyG6P73wzfomBA8P3STfaqOaU1srTbPy25T5BzEuMS67Au8 n9jH0sdHqu+grQv+o4iBr1AfI2S3VZurUudMxH97MRarnK82ln2l2qzk3aj+ KuI35lbVf584l+EZrmZ+1XEnqjyYHETlc8nBVP6K2KrK+WJ/2RMKH4lPx7cf wztN7PPx/bQhn+Tb5dyjibllj1N/Y/5/LvW3VH83U/tzi3ztRNXPIJ5SuQ7j Jfbc2FX1H2rfhoq/LZ7BB7LPUvvDVf4M31fl/JFcrabavA6Wo62f7C9UX1/1 C9TfKtUN177viFkSl8/UtiRx/si1VOkavlL5Ep2vFt9Kkf8Rf01Q+XZtvyXO D28r/NmS2P6W/KALcaHOt4Peed3IvnAD+b+OmYbvjvx8+f4O5l3i99W+Jfkr vlbbUyp3yBxPEVdVU/22xGOyT9A2XeWy3vljZd8T9/aX2k2S3SQyXsH4WaG2 x2t7QOVW5M8qn6zt6diYCdjJlSrn6n+jjn9Qx38aGU+6VvXNVO6u8nLwlsTj pw4xa2zMAexhBHFdMZ54v1tHzo+JB7j/10r2/4fwzPBNxMsq36bjHyobv7pM 5d8TP1tiMvAU8JjFKr+s+gmJ59fDmf9Vt1mVxxRjq3ZkfOBP2RPLHvPgM1OI p4kftb+J2t+QuZ52jWTfmPl58dway/5Efw/j2yVGrzjvJf+dXDZedH3F18YY IP7+Sdu1ZeMXxxXxxdrIMQexx6piPru2+OYYh4xHcpAnKh63jN++zN8VP3+e Bc+EoOPKzL6ti8zrU98H99NP9tGx4/spsnfQMb8w/tTHjpH3Ee+v03aPygdp 35Gx8S/u5SjmdM6XejwyLptWOb99lGPVfq7KmwePB66lGfNh7LnvFuLDxHgo c+OjzPeJ8xveDz7lp4oxw38qzknAEsnB0tg5N7nZE+q/l9ruqOPeUt2Tsg+Q 3Vj227ljAvA1YnNiBWIg8p19Y8dGW2g7Uf2/q22OyrNT4yunq3425yY+rBhP +VV1/bTtLPvZyPn6lpnj23eKeOZhnW8/2fVlv5Q75gDvY+4kFsEnzy8b68VX X6S/56m/g7WdljqmILYYpr5nqf452WfKHso8nzvmI5bbP3YseIH+fkDMDfZF PMU+lS9Ru/NV/jQY33o8cXxKjEfs1yt27EdMeR3zQeJYs39i38uY4/vsD+ZH 3hUZn3tE7buproHavQyekDl2m6j61SoPUfuJqu9NzKLyGalzxyNln5l6zDB2 flabA8BamB9kT9Xxa8n/8fOyJ8j+reIcEv+wv8onqXwcferYvWUfr3Ipty8Z quvpqPF1kPY1Ud1NOuZHcAnZx+rvhcRsqc/BuW7UuXdW+w2y96g4X490b1sw x8g+Ttv5nJucg9ha5xivcgVMQnXDwOp0/CMqH6L6A/V3qPbFYBBgGYxr8A/1 /4TqJ+l87WX/Qfxb8T7qTk2duxxSvP+Rqa+1fuR3uJn6GyR7trbncsdsxP6H xI7lntP+Y2THFeNTNbTv5IoxmJnqv6Xa/6jnP6xijKi26k+rGN97n1g7Nf56 P+NIdrMin6gm+0PZrYLPR05BbnGe2g8oYhhiGUgR8IZjydkTXz/j75jiee+a GJ8kZj9Udq3i/HxPL2fGN/BfxKBLKh5DjKWx6rednlcb1fctOaY8kHwHzFf3 c0rFmNCi1O96jNq/q75r5r5X8ObZmfNN/BMxMvnlVrmPvVb1z6n+W5Wv5Hmq vgX+uWJ8q4/sVuRuucfCJPyp2vfV+dpUzFmsJ08iJtffvSLHa/+pfB/xjNrv njhmZm4+IXYsnWs7QW0eZQzkjuGJ5Y8jTpFdDTxSx3ZJzf/8qOd/G/5b7R/L nYMQex8TOzchRid36xM7ds90/Dslx1KPy35axx3O3F32fA9Gs5fqt06M3ZDj kAv0i537PKT2B9Jf2fP9jqr/vuwxBcZE/Ah+urjk+Ak+4OiSc5aNqm+aGFsG g+2pY6t0PXNLxgaeUf+PpObLBqnvp3LnEOQaR8TOLTYj3i85l58h+1EwddUP Vv3TPA/Zj8u+A+xH9naZr4U5ZIbu7XCdp2vFPgh8lfgYPL4bOQxzd26+pnfq 8QW/Q+60HTkf33vm3I0c7otgPgh8sa7qe6i8ohg7jSsej/A/5FYNiz4Zr9St Vh/NZB+o/rZSuaG2i/BNsmuo/Li2L4M5naXFmPss9fPbtmJMHGwcvAzsDAzt 82BMn28Hn3SE6v8u5udN83SV/RX8CDxJhyrjsMwF9Mn7YH7l+2ohu0/q+ZJc uCk+iO819/xL3S7gc7nnU+qYL5/V9W1RPB9y3YPBb8vmVEbo+m7K/Q3xTfXJ jT+BNYE5TQVbzP2N3Cv7MMYn8Xtxf2CFYMylYk4Be95Bxy/hW2T+U/878s3K flnHPC+7b2bsCQzqMbU/HDxP9t5qs3lmjDXExqDBXsE0s9gY/erCR16cGv/E d8IhwiXCubzHXKy2i2Qv1HZ9bkwabBpMHS4EDBksGcwaruaK2H6HOWlFZswd 7B0MG67ixtxzzhWyD87NkcArjo7MnZC/kKuQs/yTmkODS4NzeTc1BwYXBub7 tuydcvOVjE34sp+L+IQ4ZVfymcRjD07r7sTzF/6vrdocltqv4F8Wq82A2HEQ 8dC3zLGx+ZBzKvahZ3N/hW9iH/wI8xjz2U563v1j+3x8f1tyhNT+aJn6Oic2 Ps38zPw9LjZfwXzM/HJpbHwf/7t7yTERsRExA7EDHNvpRTxxRBGjEqv+mnls TJf9S2aOrqvKPfR3cOp91I2PPZ7/k92de1bd7vCLsis6fwNtZwT7b2IxMPgH gmMmsL3lkWOpcm5fj89/IHUcQDxAzIP/b6S2w2X/pv4ejh3vbgsexXNKvVEe W3L+jz/EP98am297MTNfCm/aqsp4IdgGnBncGXzjRpVHad/Rqru44lyVffCP dyXGItbJ3o05Ibe/4l0TfyxU/7Vk7yu7bZX9c2vZa8vmEP8ofCf78Nc8rx7F M71D9vaJj4cDgws7UVvPijGRwUV8BpcJR98uNgdCbEWMBSffS8d3rpjzhPsk hiOWO61k/vPp1HoHdA9tqjxnM3eDkYBnEF8eUDx/Yi90EuglvtP11Ffd/an5 Oni71jq+ls5/huyfVT9F5YmZ892usfPp6nqnX6qvZ2V/Kftm1bcu2WeMVV2z YGyRHHGs6loE4x3ksGAhxwT7e+Y05rZl2mYlzm/PU92hwfgPOBD58aHkPDrX fO37JJiDxV/CfbZUffNgrJIcGKzjG96f2s9T+/nB/BL6huNK5r8Xq7517Bh1 XrAeY2DJHGED5jly7NiaC7QXaCL2BScpWStxvvalJfukXpk1K3DM8HnDwX61 dUuc77fKzD+iJ3kNn6l+P8nN4ZMfpOCfsvdLjD+0JJ7PzT9/UnE+1ivY1+Ej 8BUXyM5K9pG9M3PE5MzoK07KzQnBDY2TvWtm/Jd4sHnxfWyn41cQu2vfuSp3 io2zgre2I5bV8SNk/x0ZbxwenJuiEQDfIaf/Wv33iJzrX6rtz8hzAnzzxzp+ l9Tfcx2Vtw/2VZWS3+/ZwdwSHMB+an9YMPYNRg5WDqYPtg9/MEDlvsHYObkt eM3hwdgomDnY+YXB2BE+9aDMOe38ip8hue7Rwb6TWAv8okHw3ATfc07wRhkO CK7ondx4/oXED7qPebJrk9vKLqvt57nHCePl/WAODC6Mb6Bj5u9hKvm7+riF aw/GGuEsx8E9a9tV5T21Xay2twbP/e21XZRZ30S+uzPfL9hMsK9gDmY+uRBO APyNmCgzZwYuSE63p+w71H6XkjGId2XfJbtDyRjG3Mz6BvLRC4ox9lAw9g+f 9WJqDoM62pC79gjGuuGdwJsmy96tZI6sj/p7MJjbgtN+gfgtN7/7RsX5Lnwu +T3vg/fyWDB+DZ80LzWn+UzimI3YrTFjuuScb5badgx+FsTcxN47BXM7YEpg Sytz+1j0B8RT+wfHUsQMxA4H5eaTOTdjo2dwLEHuBH6+SPt6J9aP7AQ2L7sF uZ3a1FLbhbIPSKz3aAv2lvg75nv+QPWv5+Y3hjMeUvPH5CO8421Ufl5tmxJ7 q36rYP6NeJ1n+JDKC4gXVT9X9TVU3yRYi7QF4yOYryQf4B1OT6xXw99XS4yX v6bj36sYA5mr8x1b+Az8Qxu4CtUfnVr/VTf3nN2YuCXyXA5/3rFkvgZeGs4E 7oSch9yHeJxvEUzx//PNZqnxdrQq5MBVsXMMcmNy5KTAm05T+cpg/RfYxea6 3oZFfLqXjn85WK+2quT5Fb1UObP/v6fAX9FkdE2tqUGrsS441rszth6FnJvc +yntOzwvcj613Uf2frlzOnI78PLuuTlQsGMwZvRL5JTEZH1kD8mdYz1V5IDk Xsz/+GH8cT+VpxM/6rgXmRO1/2EwgOL9xnzLfH+RtQlRlTGoFyrOWcGmHpXd Qe2/KsbDfNl1Y2MKSbBOEr0kcyJ6M+ZTfPIs2afn5t9/K5lDg0vjebdN7a/B KvBH+6XWFKGtRPeG/g2fC97A8+qSGM8Gu4DD5ts/NzI/DYcNl803Ax94aWIt Bd9Mi2LMwdWgmWQsgvm9UnGOOruI/8HVPuTZpUW5YoyQfegk0cIxJ5Pvk5Ou qxgfIFcdk1irwZyPXgJeAn4CTgY8Hc3jmiJfQAu5jhhI5a6J9ZpgGouK/ACs 47rEWss5kfF7MEti9jNkD1W5aTC+DM6MHhBN6l6p9WJoVcGQiPmPV5tTcs8X YPpoSI/OPT/AIXwo+yiV6wfHl8SZ8BFfkR+CHWlfzWA+D98Kx3ZVZn4UvnBQ ZO0T8QOcA9d7ZO78Ed+Z8X2C0SbWIGyac7Xzr9y6F/Qv96T+3omp31H7s1Ve kltDQcxC7EK8Bc9Kzt4z8/PYLnXOAbb7qra5FWOo76R+Hmh1wRTOKPzzZB3/ Y8lc/IrcmgP4hv+CzwFfuHfsczOfbReZQ4dLh9OAc4RPhOsgH2buhtPHf4MJ w3Xjk8CK+f7RZqHnPVPln7T9FVt/diPjXvY/sfVtN8nuG1sjxDd4g+w1qt8o u7n6u1HXslb2H7HnB+qJv+D54PuOyN0Gve7BsY8FgwGLIWfumRtjAWsBg9w/ N2b9esU+Dyx7VW6NJRzOWPW/OreGrDnPIHX+TuylptFTifUD8NVDZc9JzWnA baDR/L+mdLX+doisNcWn4luZo/HPv+bWWneTfTNxV26N2u6yx5PP5dZ07Sb7 ltQxJX4fHw/2T0xI7gTeSKy4SzAXDoYJdjotWItyV8l4ATEAsQD4IFxUUmAm 4FfDcmuI0BJ9KrtT5nygcWROAW6BeL1JZIwfrP/u1NwMHA16ab5BvkX0Vmh1 yR+aRuabF6l8V2p8EA4HPeOdqbkjOCT0iKdnxuLA5CaCU2TG8pjPJ6fWmML7 EpPdpbrT8OllazLQP+KvGpSssTqNsav7yRPHVJNkvxc8F31fxPfbqv6o2Jzt ebLj1LwQ/NAk2VcHl9GQXRqcQ8FNotchtyIeh7tDc/tZcLxMLoTmC/yqHfEi 85Ps5cHxT/vIHARcBD4GX4MebimxUvBYuUH2iuD4sWtkTBRs9KPgWGZhEd9s o22JyueWnC+hwUGL84Tsrrq+Y4O1z8Tc4EvDwAN0r0O0VQuOqYmtwTPhCm+K zRmDMYI15gWnj4YE7pMYnlgevgoudm5wLrSiyH+Iz+EW4WDAD/7LrVtEv7gk WNOFtguNRmfiXW0zySXIaYO/f/w/97uGXC231gTMeXVwTERsxD2cmlkzhHbo Leb3zJomNDH4P7RO3CP3ioaAeuaP39W+kfq4Jpjzh7OGAx9TjD+4QzQyl6s8 SttJKu8LJqzyG3zjZWt8jgbvYl9kDcB4lUdm1gKw7z+1vUT2IPA5bYNV7hB8 7vbF/Hes9u1cdp/0XVPX8zb4QOT+d87MHd2l+ptU/iFYLwDHvVtW6AlVfkNb SeUambVJ9DlA5d34fkseg8yvHwf7utVFvMx4Ilb+oYiPifGI9TjnLpl9BL6C HI1cDY0yuAn4ySbtsuw/Y5/j2mANH1o+1kvsofrbM3P3aLwmqPxu8LMkpycf 3wZOWe0Hy34nOJ86umyMJcqtaeicGCMEK9xa9jWyB5Qcf74S/GzBSBtl1rCh 2SMeQtvG/PpvbE3s9cH+5m/ZTWRfV+Rzx5aNacF1obFAI8McBx7BM+fZoxlB vwvnvTL284QLhxNfEft9ks+Qk5CbwO+g9eF7Y2wSIzNeiSmILdAYon2YoWc5 oGwM97DMczxzPRpl1gugOYEzZw4Ff+mdW7+Lz8J3gcegTSXmZK0OGk+0no8Q o2eOKYgtyDlYH4MPw5ehKR7D8wjO5cjp0EPNT60dRCPI94Mec73sPjpfor5H ZI7Fv9T2dOY1Qe0Tx6ec/xMd/0DJHDX5+xOptcJwhOCL5KjEq2gwj8ycQ3J+ NIgnFPkoscqHRXz0cWYt+vuy52Xmi7qq3Bp/z/1lxsb76vr+DeZH4U57afsp eE1Px8T5BWt9BmXOXfgm+TZfTr1WgBwX//9S6vgZzV7//+crJXM+6A1Zg7Jn 4piVtSl/BXP5cPjo18hXNk+cH8JNoZcmF8Pf4/fv5fstGbP7QPX3h0I7Gpn7 6ZU7NoEnhU89IDc2S24Hf4V+m2c5pBgDh6qP5rrWBdqeycyXkQuSE97D2Mj8 rBhjjDX03vNKfobbgl3Cb8S+nzfU/rdgrSocJfo29MMbStYsol1E77mx5BwQ rgJNLmtOmPPBX1hzxNqj9cX8TjxG7EZOeIXKUzNrGQ/Vtf9Jnexlqtun7O+f mIfYB03wTcHxC1wHOfdmxfNCy0FODdfG/Q2InLMzHl4N1u7AEcEVMT+AHT5T 8vzLei1yfzC9t1T3dvDcg6ZjvepfD86tyFngI8AjGMuM6V8L/8zapqZFPId/ Z20Tmhjmg7XBcx+a6AnB1wP3DSbSJPP8u2mtCzFF8HolsM5TSsYjwMfgYsEM 0Q+Cr8HVPqztD+Kn2PkynHXTYj4l936uZP80KJiLJWdkfL4UPFfCkfyNbwrm ruGb0M4TD4F1Pl+y3g5/DpaJTwDf5HmQr3O+ZsX99YysGWd+z4O1AkNKxtPQ XG+WmAODCwMvYi5Go1pT9qPBWCua6q0y41HNyuZw+V5q6Pgaib+R+4LxrZMi a07IJ77MnEt8LHtB5nwKDTZtmE+2ImeveEwwn9YJ1k6xRg28GE6O6+ec4F/4 X3wt3wT+kjUZaHfXlRz/Er8TxxPPjw7W21NHzEnsCYcCl7KmZPyVfJa1KmDS fE91tc0peY0b+PdJmcc6MQWxBTlGs8hrVC5X/UbGTMmaOPTnlyV+92Bi8PO7 B/uuDkW+cFPid4dPR/9WL/faQTiZ+rk1PA/JPl321uSHmctoEsAb4GDAe7Dh Zkhs4C/OhGuQvaW2kwr+402+ncx1cAzgw+gl0D6g0UGrQ3vWksCpVWcu1Da4 4CtmpubE4NXh1+HKmufOzcFYwFr4HjtWPCcwN6C3QnvEPr7PfzOvnQNvAa9q kRubQSOMfghO+MjU3xzfPzkxufFJxfXgI/AVzGHEx3Bw6CrQSMDNwdGhG0FT AXfXKjfWQE5Nbt06d24NZgd21yY3dgeGCJbYMPe7JGckd9wxt6/dWOSjO+Qe S+SY5JrgwWDH5CjkKk1yY1lo6dBHML+DNfNN8G3AgcGFwQnCD26XW7tETk5u zpoL1l6guWe92cm5sWR0beiJyaHIpch5yH2eLPzFybG11+BvSWLMmnyDfLlm 4hyS+RdNAhqLfoW/mqF9AyvmRNF6oN+BS+WdVyveP2txBhV2zpxVss/i+26W +3rok77hGOG66LMqN6ffKTH/D9cP3ztd9bsU89mfmdeSsabsl9Qc8OFFG9p2 yj1W6hXcTZwZewODJx/snBtraVzwYR+kxoHRmcF/w3HtnDjGItYaW8RnBxbv 7y7GlM4/WfuWpdawwNHhX4lVxhX+7KBiPKApGp76m+Hb2SM3NghHAVcBxrIw NoYM9tI4WL/Gmgb0e6zBernAm1ibBeYG9gbn+VvmNXcfFHg2eFSX3FgxGDVY NfMPvoKYm9gbPQC6Kzjuc3Nr4tDGgb/sk1uzh3aPnGPfAk/ZKnHMgv9Fz8+0 AT7F+p57ecc612PatyY1ht8osQ/FlxLTENvAOcM9E1MSW7JGE/08MQGxwYYi fkVzVpUYjyc+J0ckVyTngR/bIphbhWPdmBk/Z900cyA2/o+xQrwCds16AnSj YBBolcDUwdbPLuZLNHVZ4hiSWBLOPE7MCcMNw1m1TuyjDy/ilR7gGbGxG+L3 7vie2NgNnFjLxD4cX84a7NUVr8ljbXaj4LkTDRl6DGJWYlfWgMEHMZ9zbdwj 90p7tBtoOtF2wik2SawBhWscVfHaCjQr4I3otXULmzhH9Ntg3ryb+2Jj4XCE S2V3js0dov8/rWyO7RXmiGCsnRyZXBm+HV/HGjHWitULXisF58jx/Yh/Iq+B YC0EGgq0FGjoziWmVX3vyGsq0D/tEazvYg0KeiwwDLCMgxNzwcOCuWM4ZNZz E5MQmzxZfM/4IHwRGDtY+7fB61k5V6cqc36M/0eK7wv9Jtol1sSx/ob1Sv9F 5lRfjY3hg/U+ERvbB9MA2wBjBGsEMwI7AuMF64UDgDuYFZsbYA0afCRroOiv pepbRMZAwEJYkwd/yhoLni85ObkkOSm56cDEWBH5NHk1mBDYU2+VeZFtZLeJ vIYJPWvrYD0ca6TQxw5OvPaTfJe8t32w3ow1MOgnwVvgllnjeFUwJoP+umfs 69uVOTHymhj0deAvcNOsGWS9D3MD2BUYBjjKoMRYFTEJ98AaALACMAP0Nw3y QltW4MnELMQuXBu5eSf1eXTkNUfo+8B0mXvoG6wGfBFs9MvE6ynQPBBLsGaV /AU8Eez488TrFcATwZY/Tby+AYyF3JxnCVaBv0L7803Z/oWYldi1e2JuGEwE bASOAK5ganAuBUYPVs+6QrhT1iDC5w0tuFt+0wK+t07qvlmDCn94Ij5U568e e30q+l+0Z/wmBvo9vnG+9WmJueCjgn0JGnC04PgU5orrY/saOCq4q8djc1dD i/EHR8nvS5xCzC57+9i/R3FysBYCTQTrkYcUx9eJvV57+9zrDeEA4AJOCubK 8Ues74aTReu2T2yulvWdO0TGWFm/eWpirShrEuFD0QjAd8BRwFWA0fJ7AlmB 3fYP1razxo21bmBOYE9wMHAx5IdgF2geWO92ZPBaONbIsVYOjnWB7OcKfwYn 87Xs2bG5msvUrlyyxg58fsdg3wbHzPUTUxFbgTmjRYU/3Dr1mCB+wR8QO8PB wMWQM5A7HJhYe7KJUyZejc01sz6b77t5EeORE5Eb3ZcYCzshWHuHJg9tXqPc 3+a6wj+gj0abhsYUvnyAtmmRNYFoA/GhjIeJsX3rwOD5G00f2r7jg7V+rBFg rUDj3NjRhsIfgY+ABaNJRj+IfgwtJGs20ReiC0ObgMYI/drM4vtCYzQ/cwyE FnBU5NgIjAGsAcwM/QP56NUFJwi+gt4TbBwOCX0N+ML1BYf3L74gt3YHjQ/z O7/nwvfHPnQ9/XNzZ2g0+B7Ro5MbzyuOYT0M/mGJ7D1jc4b8LgA5F7kXmC3Y LWvmWEsH/gNnSU78QjDf0TD17xmwdh88B46VnPjFYL5/19hjjLGGXgAdPDku uS54JJwmGMNrwRw268rAiMCKwM9Z1wEmBDbEHMSaFcYbc9P8xGtmiPEnpc6X mVPQB9xNfph4rQh6cxbhVS/y0a0qzne/IEeu+DcEviKXS8ztkP+eWHzjfOt8 w/wWARwoXCj8LfwueGAvlbcs5rMzEv8WAJgi65VPyM1lgOmA7aApRVtaVTH+ hg/GF/M+wC7Qf7C2HQ5koOqOyc2t8i75XtAnoctDn/d2Znx5auL5A64GjQBr tfg9lXKB93EuNHFo4/bO7Y9bFN8bnADcQNfIehzmfNYIEc/hC8Aj4eDhPJ4N 1p/xGzOMF7iSQbmxBzBisGLyRbTE5JTrwEdyYxVwCHAJxIPM8WhYJur4kBmr AEMA3yE+5BtCA3Rb8PpfsAkwfLD8s3JjC/y2AvpDclRy1YGR174Q36KpRGPZ LfeaItYWwSFcmlkj1yT1egC0c/BTrJtk/eSdsm9O/FtIPHPWp4FHs1YLTOqy YH0w2CmYCNgI+i/WRMGpXZB5jRJrlVg/dWtmfJu1XWBco4I1iZ1SY7BPFzEV ayLQcxJrkW+hvSUH+yvzO+RdwsGC96EPRmeO3vz7zD6ctZFwhvj2BAyn5Bga vA8OAy4DzQn8HZp1dObEbKyVgKNurroesf0VOeyCxDE3uS35IlpwML85wRpu tNz43LUF/rTpt39kf6z9tydeK8eaOX5/Bs0o2lHmZNar3JYYq1sU+fdi0NSi FWcORWuLvqBe6pyX3BdNMtpk9PP8tg+aTLSZrFd5P/PzROvJ7+l8JPvDzOVh 6v+Z1O9/cWLMA+wDvDitOGcmd4bPId7hN2GmZfbx+HowzfXF/LJF6t944bde wIuIn/hNq+mZ9aKsbaNP8Oe7M6/tRfOG/pMYglgCPRP6SeZI5krwn2czb5TB VFhvA6YAttCnmG/RbIyO/BtS6MF5BjwLfpOK9dhgSByPpnZhMb7RgvJ7OLMy a5LQJjGHs1YdvB7sFs4H7gf+jPiO+7sPPDD1Wn004d/Jfj7zWgI01qx34Rvh W4FjJN4Fv0LbyG88gW+9khkf+6ngs1ijwFoFNLPwu/DPjC1+w+lRlV/IvNYB TffswkY/jIb5pcz9wY2hcWa9D/pB5ipiIGKhtrm5ezSKaBXhxx4ue80gawf5 Hv9LzJlhwy9O53mA8QXz0ax35jd+4KdZA8r6x+kF/8gaadZK0yd8G3gf2iLW SID/oY8FCyAnIjciBiQWJEbkt3xYP3lx2b9xxG8doSdAu4em8bFiPO9RjCHG 0nuZxzZrsqal1pTyLVcq1iuC1+K78Fmvpp4DmQvBCHn/6BtpyxyQZo6RiZX5 TTXw6Qmp1xqVKtZDrgr+bTkwFfgrNJpoNdFUod9E344Wlt9Q4reU8Dn4Htbg o9eBs4K7Ys0665vQW9I3mBDY0Mrg3wYC4wGPRaOJVhNOEn3ngcFjlTHGWEPD hJaJNSM/ZtY74l/RVz2Reb35RWX/BhC/BUQ+B9fPO0RPsCT1b6mxRueHzDE3 sTeYEL+1xJzJ3MlvtvH7DStTrxVkzcrPsr/JPJfxm2b8HgK/L4R2gzU8xAf/ A3pORUU= "]], Polygon3DBox[CompressedData[" 1:eJwt13ncjWUex/GDx3POKWNJNFNT9lEGM6UUESFkz5Il2ZUWS1KGrDUoHqQ8 FB5l38oyDU2RQjVkaUZFKKYyKprXmJBSzcz797qfP76vc/0+9/f6Xdd9X+up 1G9oxyFFU6nUa1ScOqRTqYk5qdSRYqnUBPEnualUM+xRbEc2ldoj3kv3YIuw NL3Edw5rij0i3s73nng3tccmYIflG893BOuN5WPnsQXYSexebDGWoZex77CW mVRqTJFUqpuOvUYtxF34pvB8oe4UvmN81fDP+fbxNKDtPHfTM3zf8s3h+5Jv Nd/fvOwS7BDfI+LufHl8J7GZfMf5umHTsK+xGdgX2ACsACtCy7B/Y32xueIf +BZi32BdsanYV9h07HOsDzYH+x4rwE7F9/ONfuG3BN2CzfXbim8M307PDogP UhV9/My73al8sz6/xVOPuvAVyHezuvme5fL9le8dnoupgKcjtgAbLL4kvp+8 L2F/9w2WqnsEGymuxXu7fE9hV8k3Sb7rsQ7YbKwWlofVwdpjz2I1sWnYMDmb +K0gV3NtlZGvPraO72qqTqvF/WNO8FSilnxl+fphu8QVo2/YJdjN2Hp1rqE9 MSe12QDbJL6ODmKlsBux+eISOcnYV1V3FF7Ju70t30K6m6cm1pJnij5fqe4f 9bURvhm7MeY5Vpanmfpr1elCl2JNxfX41vBUjTHBivA1pHvEm+TrgW2QbyD2 IpZLa7CzWH3sTvFCvgbYHKwq1gSbjJXEJmJNsBHYNm3tFO+id7DG+lEKf4Xv 3chPpbAV6rbCFokH0Uqe0vRn7Gd1G8rzqrgOfYyV5rkJWyr+Ff2SVohvodeV 69INsYbFDXj7KK/TRid1V8ecw+7CVmKtsSVYO2w8dggbhx3GWmCPYX/Qx2XG 4z/i6b7hHONxFjvu2a3a6IhPVh6LreI7m07GM8Z1I95DruF8Z3KTPekFrLby g1jF+C7iouKMuiPFvWg2VgObz/91rFXejN+L6HXtF2SSsYsxXB3zCB/Mcxs2 StxMXN67HOO7C2+jb3NpqzbK89xCw6P/fGX4DvL15GvH8xy9yXcZzwbP1tNh 7E7tdlfnN3x9cxIezzeIu0XbPM/EvqZuJuYKPRV+beTp52d+H4j567dWbrIH VNbuWNroeRneo+qPE9/A97z4IsrSYvGFmM98F4u7qv+jeDe1wVbpRz1sj/g7 Wo4V5euMnRe31Zdx4srisZ4d8ttWzsraG1U4vvuxO/gm8Y3BVmJnxOUyyT5Q 0fNKdL967akqz2ha7tkHeA3sQXW36sub9HqscXyI9gbhlysPwlbEeYHdjZWP cwLroZ1Z4sfle1m+79PJN3gOuyDXj7Q7xjH2cXVPiKvFfNK3FN5CPECco34+ T1HsmPG6LOYM1kzcD/8Te0k5b8I2i3vSUiwV6wvbJO6fTtZorNX62BZxVfU7 5yR7bOy1a7T7M51VrhNrPvYZnuZxBig/ivXizWSTvXNt4TqN9bpfnKaenj/M 9xA9XLh+XyvcX2OfPSw+pe3efCN5Lo59CatL83KSeRDz4Yx+VME65STnYJyH q7B8GqBcEf+fPs0WD6MPYx+Sa59ny8WblUuq1yjOrRgvuT7AG8b3xXtpY7+4 F75E3aXFk3OpeCbZh5YUztGYq3vFvWlZzAvayZfm2yHXdvpIubScB/xuK1x7 sQYb01D1fk+Py/MJ/intEg/nPSBXaZ739XmleAR9jJXJTd437gHvxzvRp8rl 1D0ad4PCfSD2g6bxreW7jqZr4xT+Db0n3hf7hPd8Nc7faCfuEbQz7h7YPZ51 E/eJsyyY+iewj4xPcxotHhnfxvuejrnLu0g8IPYErK74anXv43uvWLImYm2s i3fT/4Gx/8Xeo+6yTDI2MUbn+adhS7C9WEnsHDYVW5FJvkd8lx+wPOwabdyv vFsbQ+N9cpP9ql9OsiZjbU7OJusr1tkT2ryWOmHV40zne4unv7prcpM9P/aG 2COqUDueatSLb3OxZB3Hel5LBXxDeMrGfSCbzMEYmxijn/iny3VBeSNfHk9D 6pxN9srYM2fFOqWu2FWxn6ozQxuTPDvKUyHWFzYz3gE7hl2JNcImFkvulQex e7X7F+Wn5Woa+zbPaGwe9oC4BN2GnUwnYzNQXISaxH4YZ4B88+Wb5dnXcf/A 2mLzsKexr9LJGRJnyRz1WlMPnnLYG1i+uBV1x27HWmHr/X4Y85+2xFzwW51O +T5viCvG3qaN5+POyv8l/zlarTxerprUkefbdLLfxr5bjTpkk/M2zt1x4hp0 RzapH3n6i0/F9xFXpluV3447lnEbr/1fx1kY9zL6CRueTu4wcZc5EuuQGstX A28R30W+HfKm9PmKuDvFfI49GnpIfC1+Ou7S2Iu814kvj/tevJt4m7r/jbup nJeKhxZP5k3Mn9bYFeIRtAh7I+Zu3OPU/Qddio0V16bW4jPFk7tI3Enm8XaI NYoXj3GXqxWVVx4Wd0d11/G0wa6M/wm0GNuKjUjHRdB9C3uF+maTcYrxqp1N 7u+zCveNGTnJWRRn0gLxtfRk9EU8N/736Ms/454kX1+5Tng2XnyCZmD9sK+w CenkvBysvE/dvfSkuA7NjLEQvyDfv+S7L9YqdhltiaNKfD3fsznJGR9n/elM 8t8s/qPVyib/7fJiL4izTLkC7Yi7g/h3+Fjx8Wgz/s/E/wz13qXfZpO769Rs cm+N+2vNbPIfcFo2mTMxd0b7fSy+XeGe/UROspfGnpov/j+CXthg "]], Polygon3DBox[{{1857, 1139, 1566, 2409, 1734, 1735}}]}]}, {}, {}, {}, {}}, { {GrayLevel[0], Line3DBox[CompressedData[" 1:eJwt0r1LV1EYB/DHn2/5krZGoPQHaFqaJQmNUg1hTrq1Jb5QESqiiZA61GoN baJ7VFOL+TMIBAdffprvElFbiFCDiH4OOBw+3+ec+9xzz7336uO+tt68iHhv tGYiUq7iP44URVxiv3pMrpYH5XG5Vh6S38gt8js+4Aw7+ZFdnGfWGJQ3OMl9 vuUfzvKQn3nKBS4V6/Ugm+6/ov7KL+prBRGr6h55y9ya3JIfkQ5QZy2nruc6 r3ODN/iDDdxkI28aW3ITt/lU/y15R34u35Z35YeFES/Ue3KzuX0+Mtdvbtv+ B+os59SXPfOyuoxZnjjLJ/7lDH9zinuc4DpzxoA8xyf8wA5O8z6neIevWcNX rErv3R4V9vxm78rUxxH1pHdRoR7nxXQ9y/krncM1ZfJP+Zlcmr6D3CeXyDnn K3SPUT0X1Bn5pVycvkv6F2TbR7frh2WtsajnmAvmxLhrvt3CgF4xvpv8z3vW M+mc1q4IR+f/2hnzvFNb "]]}, {Line3DBox[CompressedData[" 1:eJwV0E8vggEcB/Bfm5EO3Ekp3N1d/ElKcuhuwwsopVRsYTYuvQDvh40X4N/R po03wXw6fPb7fr/P03Mod9yo1RMRUWMwGbGRjHhmk/pUxKq7NhHx5N5yR8P+ NR0x5/5xwtCeT0XMy00e9EduyNrTthZbeoGO37/oC5yybZvx3qH9Vc/Q5kif tRc9f9OzdBjZd2wl3sff0T85k8u2XT7ke/fXvih3qeh79OUD+zc5uUfVvs+5 /GPPu5f+k/b4u6RZsl3ZuvKyfC2vyz1W9Av+AWV1J1o= "]], Line3DBox[{1666, 632, 656, 494, 1591, 765, 655, 1916, 495, 833, 690, 855, 1647, 854, 2009, 546, 2010, 2558, 1830, 1917, 543, 2425, 2011, 1831, 2184, 645, 2426, 2012, 1832, 2185, 2592, 648, 2013, 1833, 2186, 2593, 651, 2014, 2334, 2533, 2187, 652, 2015, 2335, 2534, 2047, 535, 2016, 2559, 1834, 2048, 536, 2017, 2619, 861, 2311, 2419, 2427, 1835, 1667, 2428, 1836, 1668, 2429, 1837, 1669}], Line3DBox[{1670, 2180, 2245, 1899, 2192, 2097, 2098, 2572, 1925, 1900, 2049, 2099, 2529, 2100, 2018, 2201, 1926, 2203, 1540, 2202, 1927, 1918, 2019, 2560, 1838, 2189, 2369, 2430, 2020, 1839, 2190, 2595, 1919, 2021, 1840, 2191, 2596, 1920, 2022, 1841, 1671, 2538, 1921, 2023, 2336, 2537, 1672, 1922, 2024, 2337, 2539, 1673, 1923, 2025, 2338, 2540, 1935, 1924, 2050, 2573, 2101, 2102, 2026, 2370, 2431, 2221, 1842, 1674, 2432, 1843, 1675, 2433, 1844, 1676}], Line3DBox[CompressedData[" 1:eJwVzztOQlEUheFNUFBmYXAKIjoHGwaACYFSHYMYE1FBHioW2kiIMRbOwoHY 8vKB1nyn+LPW/s+5d+ds1U4qx5mIOEA7F3G+EfGBo3zEqXzG52ZEAxMuJ3sy y+/iz1yWfa4nL+STrPMzPOoDroUpKmsRHXvmzi7NI+c78oZbcFf6mCvJLvfF XesvaV/awf1wbf2VK+rf6PMd7o3bNv9iwHW5da5qXmJPn3ND5PVD7h/7+oLL pPcUIh70d64sb/2nmb7V7/SzdF+/11fImS1+ "]], Line3DBox[CompressedData[" 1:eJwVzr0ug3EUx/EjoZ526oxKDBK9AkNHYa24BINNi3prx6aX4LX0DRERGtyF ju6js5HPf/jm93LOeZ7/ym59pzYTEVXc5CL2s4g2algrROzlI6713/LtfMQs 7dJls3N+jCYudGH3kq6b/aV9d1fyFO9mG+jqfuYinszruJMX7B/wzzjEvW5R d8S/oIGerqQ75l9xgiW5rz/l33CGVd1AN0nf8d9cuqVFfZUfmm3Tvi5L7/em TbT4L3wik7dQdvMhD+yO3P3qhsnjQe7IFf6R/wfE2iqF "]], Line3DBox[{1701, 2251, 2252, 2604, 1700, 2253, 1954, 2057, 1955, 2577, 2129, 2227, 2171, 1947, 2307, 2617, 2372, 2306, 1702, 2314, 2228, 2313, 2479, 2407, 1703, 2341, 2480, 1704, 1119, 1705, 2437, 1852, 1706, 2438, 2342, 2481, 1707, 2343, 2482, 1708, 1956, 2058, 2483, 2375, 2130, 1709, 1957, 2059, 2484, 2376, 1710, 2377, 2618, 2308, 1958, 1711, 2378, 2485, 1959, 1712, 2439, 1853, 1713}], Line3DBox[{1715, 2254, 2255, 2605, 1714, 2256, 2257, 2060, 2132, 2578, 2131, 1716, 2133, 2134, 2061, 2486, 2259, 2258, 1717, 2316, 2317, 2315, 2487, 2408, 1718, 2344, 2488, 1719, 2345, 2489, 1720, 1131, 1721, 2440, 2346, 2490, 1722, 2260, 2491, 2414, 1723, 1960, 2062, 1479, 2135, 1724, 1961, 2063, 2492, 2137, 2136, 1725, 2379, 2493, 1962, 1726, 2380, 2494, 1963, 1727, 1137, 1728}], Line3DBox[{1731, 2262, 2441, 1854, 2263, 2266, 2267, 2068, 2107, 2564, 1855, 2156, 2142, 2143, 2069, 2410, 2565, 1856, 2230, 2229, 2321, 2620, 1857, 1735, 2442, 1858, 1737, 2443, 1859, 1739, 2444, 1860, 1741, 2445, 1144, 1743, 2270, 2446, 1861, 2271, 2272, 2273, 2070, 2566, 1862, 2032, 1966, 2071, 2567, 1863, 2033, 2382, 2447, 1864, 2034, 2384, 2448, 1865, 1749, 2449, 1866, 1751}], Line3DBox[{1750, 2504, 2350, 1748, 1968, 2503, 2383, 1747, 1967, 2502, 2381, 1746, 2145, 2581, 2403, 2067, 1965, 1745, 2144, 2580, 2402, 2066, 1964, 1744, 2417, 2501, 2269, 1742, 2500, 1143, 1740, 2499, 2349, 1738, 2498, 2348, 1736, 2497, 2347, 1734, 2409, 2496, 2318, 2320, 2319, 1733, 2268, 2606, 2416, 2065, 2141, 2140, 1732, 2138, 2579, 2139, 2064, 2265, 2264, 1729, 2415, 2495, 2261, 1730}], Line3DBox[{1752, 2274, 2351, 2607, 2275, 2276, 2277, 2072, 2108, 2568, 1867, 2309, 2206, 2207, 2073, 2602, 2233, 1868, 2232, 2231, 2322, 2621, 1869, 1753, 2450, 1870, 1754, 2451, 1871, 1755, 2452, 1872, 1756, 2453, 2352, 2505, 1757, 2278, 1156, 2279, 2280, 2281, 2074, 2569, 1873, 2035, 1969, 2075, 2570, 1874, 2036, 2385, 2454, 1875, 2037, 2386, 2455, 1876, 1758, 2456, 1877, 1759}], Line3DBox[{1760, 2282, 2353, 2608, 2283, 2284, 1970, 2076, 2109, 2552, 2110, 2038, 2208, 1971, 2077, 2603, 2236, 2237, 2235, 2234, 2323, 2622, 1878, 1761, 2457, 1879, 1762, 2458, 1880, 1763, 2459, 1881, 1764, 2460, 2354, 2506, 1765, 2285, 2355, 2609, 2286, 2287, 1972, 2078, 1168, 2039, 1973, 2079, 2571, 1882, 2040, 2387, 2461, 1883, 2041, 2561, 1974, 1884, 1766, 2462, 1885, 1767}], Line3DBox[{1768, 2288, 2356, 2610, 2289, 2290, 1975, 2080, 2111, 2553, 2112, 2042, 2209, 1976, 2082, 2411, 2554, 2240, 2239, 2238, 2324, 2623, 1886, 1769, 2463, 1887, 1770, 2464, 1888, 1771, 2465, 1889, 1772, 2466, 2357, 2507, 1773, 2291, 2358, 2611, 2292, 2293, 1977, 2084, 2359, 2555, 2043, 1978, 2086, 1180, 2044, 2562, 1979, 1890, 2045, 2563, 1980, 1891, 1774, 2467, 1892, 1775}], Line3DBox[{1777, 2294, 2295, 2612, 1776, 2296, 1981, 2081, 1982, 2582, 2146, 2172, 2147, 1983, 2083, 1984, 2613, 2297, 1778, 2326, 2241, 2325, 2508, 2412, 1779, 2468, 1893, 1780, 2469, 1894, 1781, 2470, 1895, 1782, 2471, 2360, 2509, 1783, 2298, 2299, 2614, 1784, 1985, 2085, 1986, 2583, 2148, 1785, 1987, 2087, 2510, 2388, 1786, 1342, 1988, 1787, 2556, 1989, 1990, 1788, 2472, 1896, 1789}], Line3DBox[{1791, 2173, 2174, 2598, 1790, 2300, 1991, 2088, 1992, 2584, 2149, 2176, 2150, 1993, 2089, 2511, 2389, 2301, 1792, 2328, 2242, 2327, 2512, 2413, 1793, 2361, 2513, 1794, 1196, 1795, 2473, 1897, 1796, 2474, 2362, 2514, 1797, 2363, 2515, 1798, 1994, 2090, 2516, 2390, 2151, 1799, 1995, 2091, 2517, 2391, 1800, 2392, 2518, 1996, 1801, 1351, 1997, 1802, 2475, 1898, 1803}], Line3DBox[{1817, 2003, 1361, 1816, 2002, 2527, 2396, 1815, 2001, 2526, 2395, 1814, 2394, 2525, 2095, 2000, 1813, 2393, 2524, 2094, 1999, 1812, 2523, 2367, 1811, 2522, 2366, 2476, 1810, 1208, 1809, 2521, 2365, 1808, 2520, 2364, 1807, 2418, 2519, 2329, 2331, 2330, 1806, 2302, 1628, 2093, 2155, 2154, 1805, 2152, 2585, 2153, 2092, 2199, 2198, 1804, 2599, 2196, 2197, 2175, 2195, 2194, 1998}]}, { Line3DBox[{893, 1503, 1215, 1229, 1216, 2421, 1454, 1365, 1231, 1249, 1232, 2425, 1473, 1371, 1251, 1524, 1252, 2430, 1376, 1268, 2542, 1269, 1550, 1490, 1491, 941, 2480, 1118, 955, 2488, 1129, 970, 2497, 1140, 2442, 985, 1151, 2450, 1000, 1162, 2457, 1015, 1173, 2463, 1030, 1184, 2468, 1045, 2513, 1195, 1060, 2520, 1206, 1074}], Line3DBox[{894, 1455, 1217, 1230, 1218, 1456, 2574, 1366, 1234, 1510, 1235, 2426, 1512, 1372, 1253, 1526, 2595, 1254, 1377, 1270, 2543, 1271, 1551, 1492, 2586, 1493, 942, 1119, 956, 2489, 1130, 971, 2498, 1141, 2443, 986, 1152, 2451, 1001, 1163, 2458, 1016, 1174, 2464, 1031, 1185, 2469, 1046, 1196, 1061, 2521, 1207, 1075}], Line3DBox[{895, 1457, 1458, 1233, 1460, 1459, 2575, 1367, 1237, 1511, 1515, 2592, 1514, 1373, 1255, 1527, 2596, 1256, 1378, 1272, 2544, 1273, 1552, 1494, 2587, 1495, 943, 1120, 2437, 957, 1131, 972, 2499, 1142, 2444, 987, 1153, 2452, 1002, 1164, 2459, 1017, 1175, 2465, 1032, 1186, 2470, 1047, 1197, 2473, 1062, 1208, 1076}], Line3DBox[{896, 1461, 1462, 1236, 1466, 2532, 1465, 1368, 1240, 1513, 1520, 2593, 1519, 1374, 1257, 2538, 1259, 1379, 1274, 2546, 1276, 1553, 1496, 2589, 1498, 944, 1121, 2438, 958, 1132, 2440, 973, 1143, 2445, 988, 1154, 2453, 1003, 1165, 2460, 1018, 1176, 2466, 1033, 1187, 2471, 1048, 1198, 2474, 1063, 1209, 2476, 1077}], Line3DBox[CompressedData[" 1:eJwVzb9KgmEUwOFj9h90MJ3KoZoUB52UhppyMoguQXCIRAtF0CyHCFoicLCp S2kKugCHxqA76A7q+YaHc97f++q33+5f9FIR0eIxHTFZj7hltBUxNe+4ZsBN cqfPvYu1iA4pZlrO3Q4bzpc0tiM2kzdangIlLaON7FlzbHa54shdXutT4MM3 3v3vrn3IHkvtUztIfsshL84/esl+T5mF9qtV7Q/UeNP+tLr9iRXfa5jZ1Yhj 85kTis5f3p7a5zSpaN9ay/7KGef8A5djH5g= "]], Line3DBox[{902, 1090, 2423, 903, 1096, 2428, 915, 1103, 2432, 925, 1109, 2434, 935, 1295, 2551, 1388, 1296, 949, 2485, 1302, 1392, 1303, 964, 2494, 1309, 1397, 1310, 979, 2503, 1316, 1402, 1317, 2448, 994, 1323, 1407, 1324, 2455, 1009, 1330, 1412, 2561, 1331, 1024, 1337, 1417, 2563, 1338, 1039, 1344, 2556, 1422, 1345, 1054, 1351, 1427, 1352, 1069, 2527, 1358, 1432, 1359, 1082}], Line3DBox[{904, 1243, 1244, 2424, 905, 1097, 2429, 916, 1104, 2433, 926, 1110, 2435, 936, 1115, 2436, 950, 1126, 2439, 965, 1137, 980, 2504, 1148, 2449, 995, 1159, 2456, 1010, 1170, 2462, 1025, 1181, 2467, 1040, 1192, 2472, 1055, 1203, 2475, 1070, 1361, 1362, 1363}], Line3DBox[CompressedData[" 1:eJwVzr0vg3EUhuHjqwneDv4DXdRAKiJtqIGIDjX4iKZLJwMbiUUMdqxiE7U2 jBIDURNrDUYGsRssRJTLcOc5z33O+8ubWdta2eyIiApy3RGXaPcoqYhsX8Sv eZBr4Mc8xL3IAf0UFXcT3Krs1I8wri/pi/joitjnxrgFvYw3bo/LcSV9Hk/c QW/ENj+rz6Cp3/Mb3LQ+6r4or7gaN2Ue4SZlg6ty3/5tmEtzCer8Mr9j7ser N9fdfOETx/Zl+8Q3Z/q7uSlvcWg3pxf+39GfzTfyEdfYtS9yefsT/cF8IVs4 xx3+AF3NLGc= "]], Line3DBox[{731, 616, 1428, 580, 2585, 1057, 512, 1423, 2584, 577, 1042, 511, 1418, 2582, 574, 1027, 510, 2553, 1413, 571, 1012, 509, 2552, 1408, 568, 997, 2568, 508, 1403, 565, 982, 2564, 507, 1398, 560, 2579, 967, 506, 1393, 555, 2578, 952, 505, 1297, 2577, 552, 938, 502, 1289, 2590, 601, 928, 499, 2549, 1282, 593, 918, 497, 2529, 1375, 591, 907, 495, 1369, 590, 890, 2531, 1084, 1433, 517, 1224}], Line3DBox[CompressedData[" 1:eJwV0Dsvg3EYhvFHeqBdDQhC63woFRpELF1EYiEicY4SSqL9AL6C3Wy2S3wD LEab0SZBYunk9w5X7vt9ruf/ngq15lajLSLqKKcjjrIRxzjEPtYzEQeyyFXk AuZRNX/LRezqndycLGMWlXzECr+jp7mSnEbL/lRyD25T/qUiJuSU/XE5hhK3 IT+5ETnJDcshjHJr8p3LmBf0QQwkcFU5Y/7M9+t96EU39+jZq/oT15PM0IU8 t+zMlX6JB/5C1nGOGhb5tL0z/RT3dnLJWXTgy71T/K9vPXHdjrvkHWU2+Qf4 4b7RsnfLNcyauMae2Qe3pN9wRc9bdf2KF7SZb9v5B4uhJi4= "]], Line3DBox[{1073, 1205, 1626, 2519, 1059, 1194, 1586, 2512, 1044, 1183, 1582, 2508, 1029, 2623, 1172, 1578, 1014, 2622, 1161, 1574, 999, 2621, 1150, 1570, 984, 2620, 1139, 1566, 2496, 969, 1128, 1562, 2487, 954, 1117, 1558, 2479, 940, 1112, 1285, 2477, 930, 1106, 1267, 920, 2560, 1099, 1523, 1250, 1525, 909, 2558, 1092, 1248, 1247, 1522, 892, 2591, 1086, 1228, 1214, 1453, 1227}], Line3DBox[{1078, 1210, 2522, 1064, 1199, 2514, 1049, 1188, 2509, 1034, 1177, 2507, 1019, 1166, 2506, 1004, 1155, 2505, 989, 1144, 2500, 974, 1133, 2490, 959, 1122, 2481, 945, 1113, 2588, 1497, 931, 1107, 2545, 1275, 921, 1100, 2537, 1258, 910, 1093, 2533, 1516, 1518, 1517, 897, 1087, 2528, 1239, 1464, 1463, 1238}], Line3DBox[{1079, 1211, 2523, 1065, 1200, 2515, 1050, 1189, 1624, 2614, 1623, 1035, 1178, 2611, 1619, 1618, 1020, 1167, 2609, 1614, 1613, 1005, 1156, 1609, 1608, 990, 2446, 1145, 1604, 1603, 2501, 975, 1134, 1599, 1598, 2491, 960, 1123, 2482, 946, 1114, 1532, 2597, 1499, 932, 1108, 2547, 1277, 922, 1101, 2539, 1260, 911, 1094, 2534, 1434, 1475, 1474, 898, 2557, 1088, 1538, 1241, 1506, 1505, 1504}], Line3DBox[CompressedData[" 1:eJwVz78rxHEcx/G3OHUYLl1JFiZlsCmDzaBuMBj8AbpSiiuLkkVisVhMYvHj rLIyiDvJz8EkZbgry1HKJs7jMzx7vV/P9+fz/TEwU5paaImIaYy2RZxhOxNR wGs2Ykg/wZY+jmfuUfZxR9g093REjMkHdHE7+HFuQx/BPX5bPYNfNQ/jDp9c 1t11fkUfxC3e+HZ+mV/S+3GDPPdkV+IX9V5c44IrcvPmbpx6dzUlfyzLmEPO /U5ZwaHdgdzHt/Ozspm+nZ+UDe5PfqR/55r6RNqn+/JLnmPN7t1uz3yFXbzY X6JuruEfjVk01Q== "]], Line3DBox[CompressedData[" 1:eJwVziFLg1EchfG/zE2cWxoWsbxNMKwJIgZhzaSfQERBGEzRCYJYRFyxrJhW FDZxwSCLWxEZYhgs2BxYBJNrRvFneDjveQ733jfZ3t+sTETEBpYnI3q4Tkes YzQdsag/oq6X8MbN63e40lcx4PJ6AzV9Cb+piJmsc9y5XsSYy3KX3Jm+gA9u ijvlTvQEr5jlhrYD/kifQ9c7L/KJ3+Urvgvo8B2u7fseZeTwwI9ky9aSTfxw ezKDdzRstzLvvRu5g293b2UiUqjbj+WKvSoP0f//V3lh+3Lfmv6MT2f/AMlJ LEE= "]]}, {}, {}}}, VertexNormals->CompressedData[" 1:eJw0mXc81e///5VKURllREaKKA1JRuWZTZSRbCF7k5FEGWWUhOy9994yLntF VvYexz7nFVJE/M738779zp/P2znX6zqP63k9nvfHORee2ygbHSYhIQFyEhJS kv97XR1UVvpRRUKScCRKp77qfyWSn/CAgr04vLQVBUnKR+x2EpDenOQNFq12 8LDgDvTqSEaI0qavbgdD+eNA4RPoBDtq349/pRFAfsr5qVsHGHpy52wAfYgZ vHWPYO9/8gneOuT70xHruUBps89tB9Mc9w59uxMGFK743s5/GKotGH9cXOAO HmfXFeSioqDr+mXb4l0MHfue8lWg5wtQWcf0vngcC2deeH3PXMdQU/phXsKb LGj/kHdKqyQOcqpaBziSMKQiT92kiDWA0eW88QXmWDiBf5r98DIeXdId6mB8 MgoxAjVfqJqCwYTmT+S9ilk0SJl4W2NjGSjV/mql4l1hnt1FiymuC/1TrDz8 6gIGrgX8Nqk3DCBhRrrUgLQU4TINDJ7OY/BW+fn5q2OywDdwnubByQREcTZq a3sXA4LTfHZT6C0Q+VL6uJbXHwVt81wTOsAAj4LMO7Qca/EHB5bdsgM18wf/ 98KAzWGXz01sDY0LR+xbHptEqm88bBaULYCb/e0Z6Y8j6Lfns5HbaniUw4E/ kaGrAhGN+byVf9rgNz+rVtJzDJ12PTTlfVUNhgVDsi/RTcHCF64rhduriCeA tu6Ux3P4Z35NIq9yDg5ibgza3FpGnSLpT8ZP28OmwxuNo2M4AOY2tPNsEYXs cRrs8/qANfO96btki7B2U/xe+K0FxJr+6qS9TTzw/pEq9A5bhH9V2j8KbHDo 6Q9Tq/76Mrh5Q4jZnmERjKZvX899N49Uu/3aDfJ7INxJazrw4Sw4NrNL6HtN o0cTauKU5vOQ1+wQZMbaC4f1VfY4vXqQ0ShVOnspHkLLUBT+oBxMjDvuvbD+ iu7pzHJu5GMwfd1cmaEmAepJdh1759LQpzfVh6w2MQiKn7xx6YIfCDUsPqlV DEfusGks9g+D6t3FxgyVH7X0xnrpjmydtbMx//6n81D67eDydgK6TQiocn7R i5pDcjJMTR/DafWO1d8kU+hv9VvmsP1VVP9YU+tgVB4OGSfIXcqYAfaPlbZU BSvoeEN3zum/SvB9mF40hHQFft85MRydNIs24fe9+w4aYPNmgP3rkzU4/HN2 ma95As2/OHpxks8M0tbzWJwl8IAqiunip0YQ65eu+sAnb+Botca/tDI8/E45 s8BZOYQqJ5L7nT1CoD7r6kbjJB6c/z2QTEkfRFmaiiIXm3PhSAf3GKkLHkwi uStfyg6i1fhWWH3QAmyvt+dbWVbg/atPwXkjP1CXsM6XK76TwFs0RcOiMgmU opy9ul7fkFX+qEbgk1WYGa9rMJFrhd869VbSUl/RSuPtpVtyGGT9qyLE7hRA juS18WGeLCTyzIbq3hwG/379cidLjYKBmRCVow5xiEHA41jUDgYbdG9r+f/9 qT3+QyObOnmi9kjU8P905pSXGZGIx5CN8J+SkphGJMxnIPXP6AEUlVHykRfN ItpaExOP7WU0XGpze0NLAegLh5LkKFaBqt/P5QLTDBL0MuA6eP4YqBYPBAzN CXD5V7Kd11w/0toPkD5t8wQ0fz9UG2DCgBSHtVsddCEHeaUoDjCAkxI85LY6 GKzK+P/9od2OSrqL/NhMXsK+jvXxXWcM3pO7v8s+3Yp+nbO8Jb75Gcgiue13 X2GQKYzd8Xzcgq546fb4aKVDad/zbloeDNK0bgoObbagD2riEo5R9eA9mSJT 0bMGssj1h8qJNnTj052364wjoN3U/e84+RxUhFJ0Ji00IgX5pd2lu8vwloKn 3PCgG85d602ivlOOFEvaHp4eIUAQz24pm20FiOR40eV3ZqF//feSH3dj4H01 v6z4eAr0z7HyP/yQiHRJs0lWfmFQdm4XNXEcEQnDPI6wKC3UDgps/0/n/A+C rF3zGPIboxdcHSpBWvi79kc2BOCx9JAHTmoR2Yvt3zffwiHGFkMZr3UVEF9j /+m1QIBnoYIyfxJ70FHunc2wWVloqVbfkCnEYKTU++BNcT3aVBXtJnFWhAOx 09mcQxg8WVaP5PWpRGVexscp4vXg2gy1PBvR/yg4hqJKKEsRz7+lX0c9HCDK 6d0rsiUMnj/okPoIxcjLxXtSRcwf2Hk7vqnOYPBh4+zTuA/FKNSqWj+xMQU2 NV67cydjQB7Z6agiVIbmtQ955WgioCXZlOSqw8MjIdFo+etVqHx2UPh08CCo L8UjWzIcGO2ev9G1U4WKTjspuE8sgsrfsCG3zT4433TGUG+jGJXUiLT5ORHA tdjYWEqmFtIeO78veZWFAsXsXr2oIj6vVIaNdCITBqXrJHnOJaOQ+RyZAQwD ryna6D2/ldr5+ze7J6rPi3zd//U/nZ/UcIltEufcC1yyo2BOMvq075mWEXob HgoFNj1IXUNkTEpWsd7jKKTKjivygw5MrU7fWZ/EwLZVXNZ+pwzhBb+zH8hL QxBVVPkT4r3hfrOQhqWnIEqGX1md9o9hK44q7x3Rt575n9nKZ4tEfLlLK/9k dOHD9A2TT/vEcyknP8obH4zoOb7dzve0B+sm5d2jxPqF9AoB++0gdOnzu2T/ 0x/hYnTLqZw/GHTEem39VQ5H5dUCBssryUCT/j6VqwGDn81dcxXeSUihsXgq /aAGAjaMq2TPEMAg9+yzMz15KJiDbqX33QDQ5f8qZjnAgbMQharA8xK0MzOg OnVuEdQuqQ9XjPyATHlW3fl3hajovOQm4iGAqlnNvTHNepg2IKi+4spC6ZxX lz9lYrCMk0h/3JYHJ5QXJ5+ppCDrg0iv0hUM+qtTxCY+EWqXwxvaltYbak9S rf9P53NuBFM1Ih+47nXc2tnyQ76XfzEHWPIBEzuO9dAIsc+rsirPrlegQvMZ AieNAZiEhL6bIn5ORyT9mGSCE8TusAvwPJKC9bMO2yzEeuPt6BSj9U/QEsnN +232EfTTNT0tJ+omqFYacPFYMDiXvH2fRqcLQ6Mej5KJdW+fqRkSYn346fcL NN728MK3fs+cWF9/lOQpWPIJevPmJd5yfYS38ZHOQcRzZExhyVkRdIX4fU/m hp1k8Jx4oRLaikGU/Wt8Q5M7KrLvxqmt1oCNh4Ck3BXivWfyEZNIT0Q93VEK wyIDcHshVdzJZgHM+X/Nh+Xno8X8D3ilqgXANTj8taQcBHbrom6n1XxEtf2t d3cbD7fuJF96StEI/1J0hBMZshC3qEPLqSgMupbtLF66FAL7aNIfJotUVHO1 Vq4Ih0EDw9NjDAPfa7MK5p5ddYmoJaH6jzcCtjRJt4k69zuzcCa5GEN7yR2d Jk0+cLmXcGAjiKF1nGkD59lOuOrK9aLAzQj6Ao5R9K9jMN8rnr/NmAf6frJq EypSENBQy6FP7LeM97QCYi7pMKE7HsDr8BhoTrDaL25j8FJgOEdZJhVkj5/V IuB1QcGRt5/0L1Gf7Ze8XSbJcNzlQ5fQBQcYrdsLniLWOQ25vzsXJ0BY+MJw 5VF/aOrsPM9MXL8iV9+JizsC9iNWaOc/pYBnd8lj/mYMTPZU/35oeQMDHfz2 RwJqIZIuqauOkwCxQcqPbniFIEVlS3oR4wFYjmncvxCxAPN+F7Y4tbPQoYFR r5rIBfgcLNLxdHAQbCatCkuP5yH79+ai0QN4ILl5qd9DpwlK7xr7vxHJQvc1 R7tq/DFwU25tFZUphr8y8fMCpmnIL+Zo2tg0BrShkWvFY621OXfcFP/2BYpE 2P6ns9M6zUszos7ar9d/fvXxhWTBTFbtFT4YOyEu/JcCj+QWj686j47CgdOr Qt4oYzDA537SmsLAJcdM2vFHGZzkeoqrOSYNnds4ayD605kM48+ftAtgZt5a MqNOAc7gbO8+J3JQz4ERlvo8BzYWjk+eqdQDNsKI2bctDO7bXo10MsuElDL9 hkBWR2ivpEoJIOopsDTtDifT4K3a07U4/U9wc17+sgxxzqQVXfW4sp8AL8JP 7nxxSgVfd7XrF+owWOHR8z83GwiNCwmMG/EIZiROkX+gJUDkG7IJUQ5fZNkn VhjXOQBJeXPTJERdjwTU6F+8nY4qKja8VWIWQIGHS5NWbQigZbs4CpeD7m5o 27TV4MHdvesjqVUzULmVfF5/k4WGt8irZTwwUNlv3ZqbLIGr4SxHf8mmo+sq GlxC4xjcVpJz09weqnV0olSKi/epna/7j+uWkjt5a/cxtPgl7Y01FgShzy4H PZm7Dc3c9k1M7KvoTv0wS+fvafizK1dS524CVa5Xush7MdC/036i+1kVpFr+ Ew66JgOHnZd/XF/GwEKT2+0NfTFssF+urWhTBBHHoGodov5WtRlmPXIFQObm U+1cqQ+PA0Wu1m0Q+f1fuhXtTg64JwdIthg5wTN142PMRP2PlavRPRTIBJl7 h2wjGT6D9eebOb3Ee5Ry6+N6Ei4ZtGxNui2i0sD57IPWpkqiLyn9OhMqEwaZ /AcdTW518B7fQMKwhwezeO1+9veuiP73ep2oxiAI3ZqStPBcAKVmG59IsVRU VvwstLxkAZ6Iv8MHZQ4RuXT7GiNPDuL9y9dxJQ8PCrIuve/kWqBvpq0uuzEL iRdxjBm/xOCL9uFy5odlIH58fIbuVAY687uopZs47zem9J8+O1xXe+8qv+TM X1oRAvqvn7dIjiQKEHWO96XimNIKhfAEfdxR7jvgF1z6sbdnGdWmXlFKXpoF dz9vauMYU7ALY268SvTDMrrZ1rFztUDHcqOyMVsW+E9tupAR/cnKavMtS30J LPpfLSycVwK9ifrLCWsY3P2zlE8VVgjUn0crXFafA7P21HLWTwyUdrcVNq/k w6n+S9zFuJfQQJk2oE/sf0eC+7Vqnmygs5J2ofMPhIipsegC4nn9ayudZC5M hS90+i9p19LhLnvOxssi4lwIeMUiGRkJbBbvdDWl6gGd1NKeG8fDHQuZ58zm tgiOqKnW7w+Cli+FyW/tBYj8Tbh1ajcZTRzjvNo0ugBCVfYXCseGoGvcVf1u ejY6E5l9Py4FDw5fJQvJj7TCLrtIUPp+FlqhuZCBs8bAhjERiQWXQ3ocFa1g XgZSPqF/OLkfA8Og9UuXrrbVVpHwmQr9elfrb/Wfzi94hNVHiHn44rueritO 4TDy5QOKzhEA0ujYH69/L6GuyNIV86Pz0KJYPOBwYAY1R1od3Yj31Jz98/eA HgTm6yeTHOzkILLFrpZ3FoMZdUXGqZ5SkP/NvjzC8wSWOdNVa4hz+KjItbgS iyLYxX0Uw2QMgSKUo+cOUTchTGXr5qMCwFE3cQRHvILTXJTxTMQ+57xscoL9 ZQ5YZPinlWUHwairxFwlHgPjnS+MQdNpQHpG7cyUYSYI1XxzfZCFwVX/L+GU LdGQwJFoYXupAd5YNbdSV+KB8UZ8TNm2HtoN9HP9XjoEH2vkJwWuLcDwPJ/V UcpkFCEodWLuxCIw7/Q6h20NAe36UQkVoWzUbaUz3BGPh2+Rp/ZJ4lqBW4vO 14kzG9Hsrd+NNyHOp/vMh22rK+Dl0d/s4zyZqDTT37yMyNX8Pd1uMdINtYfI Girv/XESUc35T+fHPGkjEUSdbV+fek/XGQF46buhW8ZCQEIx/VXcdAk98vMz HSuch9C+Ny0dqRbw525mQC+RH8MNzCNaXeqgSqsl+JfTI5gSE3rCQ5wDiR1j Fys/lEFGf3gua5wKXAryKXtG9JNzCacTWkmKQf9PwlBwtxE03WWSYicQfcBz ucajuwBIONYaTrq+hlQxYRV6oj+cYX7gomiYC5Wf8rU+LAeDtlHyodZVDGbF cr0Cq9IhWOXnxMahbBi9XJhGnkj0/4otSoqnsTA66i5nQ9sIT37H7LAF4UGW Jrad/4MUwsRuHXd0GYZHhLPBmVs4eP5e7lL1kyTEkqW0bA+LsLQ58tlhbwiu uqUGZ3RnoSv79d6tcXggi+VZOcnSBoyXA6h0BLJRsdreXxd9DC6aD5jPfqsE fwf1g+sfMhG9B5vVqU4M4ib6Q3l162qt7na1eB13re2s/k/nMoXhDxZEnZna 6EpiCiPBZbQxL+7pXfDGx8cC2RL6Ohd7/iY7DqTrFzvl/awA8pyVnlQQ5/5E V/gxXB1wLHW9R5UK0ET3tTyOyNU81W3pHrTlQEvB+emmoCpQDy0EPyTmjq7r znrjL4qBj/knT9JbE7BJpDovRuxPpUswc4e/ELZW9s/EBLrBay7hP7eIfjLK RPLjPFse1G5/OVssGQLc9rgbVcTzcpf0MWYxz4BbAu6U/Q05cIGJZ6MiDINL SvlzFoFxcORc/3VFhiYIPCa4fNsIDzW3KW+H0whDZaji+aiHI4AFf+aqKccB wyUnG6P8RFS23mc08GoRznZi+o6bQ/DCf+x4pH4Wqjan5dtLwENSWdCrhz5t MJPa8GfsZjY6mcZ4xkQbA6lnV1LJG7+C1kOhzOXWTFSYc1Mnqw2Dqtn0+yNp FbWiLx7brZ3TEzk8+p/O/BylGbJEnXu3GKbOqUdBu+khR65X9yHisOjWLlpE dPfG7116gQN+t4uMz9JsQKNedc+llMhvyWeeJwrVQ2btbosOsxLQf3shoTSB QXvi9nl9n3LAJ83Xhe+pwWs+CTKdRQy4PJm3W/qK4WHMn7FTWmYgKnPU/zXR t1PD7Xr0/AvB6+vMcOLwW3iyI7ejTvQTFmrLkQeNedBaS+v1pj4U1N8Z492J 61gXP3r38XAmGLXlpXlk5EFEVcwxro8Y0PxhL/iaEA+ULTE+ezzNELhdvCDO jwdpkmtJTthTiDWPFj7NMQoPLeQ+3nHAQUHz+ZePaBPRcz71NYqKRZCvemBU PD4E6NDi7bDVTHTpE559NxUPVfeDxznH2+BmWqO03Zls9NTcjvWJOpGTt/6Y MqRUQZYumZrTYiby+rN2IYDIlzwyzVsFd1aQxQkt+o6RQXT/U4gO+ddx4M6x ND3xfBY9+BTUq8y7glrELQy5us2BDH85m7G+BQyi4aK7G4bUb137XfLgOdAf 59JLsvsBlaLZ9lXKBEQi5J+vVG0LAuICNyucRoBc+SO7nBYeqZxcuN5P7gU7 9495XnUYB9/mPf/r6WtIYzIqoqaWyL+CtI6JgpMQ9Ypi5RXrGtq8GOpt61wI VbJ+d1lyJ2FZpae9TH0VdeYl63mEtkOEA5L42zUKzs3mdlrRi6g0VSw3YX0a rLnsyW9PdsLxVYnEZpJRxNcWntnydA2Me1Mu0PlgKGs+WT/kWzOKSraxfL8b BBfp/TP8WZdRhPjurdHeOVQqgl8ncX8MFzkUkvOYV+C7mA78dppAl0m3Ngw1 iXNTUVWdjmEWXuZk/dUsHEAnnSJDGimXoGOfI4V1DkPXtV+Xf7ctRZaKIrZa yfbwTbq28snwGqoMXcd6SsdQiPgdajkNMThXefWG/DaGDI6F14VwpSHsqmSU 5IEhaEx0n2b9bYaarce2vwm9Rvwf1i+2Evv/4NY9xir2ZXTizPT+QuccOq5t nP2G0xfIX0qSBM4TkMbFyb/Toj2okib6kfX1PCAhUSn4PLRYQ1JXKIp5kNX+ /9+982+K102cKEMfN98Kukxj6FAle/6T/kA4TKZ2+tyLBbT2Mi6q/vsCGjVz qZl+pg7uCW5S2v2VqPKFzi7vIIYmR9bYXc7qQOOVhIdq//Jh7HzD/l8MQ14/ bPwVQ5/Bqdlfrlm3PCB1wPVfJjEfQGdv/Va7Bdhy0pyaju+BX7xZho0LBFRb QarxbsYEiiqTpg/JDQGjdN2Xw9/xSDpfTmzoqzN0t2Wvnq5ahOz+0qKUlzi0 8Fu279GYIbA8es1/Ki8CqJVUPQ/2MPQzfY/nzn0/iJR3l669NAZq3yika3fW 0Nd06Wc0jwLA1vctu+WhFWAaf1VsmjqLXHLps8KFXgI/Je0LJ5YYeKG0o7JA PIf42WPUJkcSYMek1ovSeQLKVy7PmumtoXjvynDWxBRYSuxwUmNahZ47amFk JDOI7lPvrdMDn0BHlkwo4GYceE2d/6g4gaGYkIoHHETudEpRa6fOm4RiTCfs 9cAqcjH90m4zVwPz8qyUlBmrkJPVesBPMY1+PHhDo7WVAg9URi6al0/An82+ B0rCK2jI9bh9mMsAlPL3DFmVr8IQxdvr2iemUJP/o7vLW7WwRbDS+ys0ABKz o3NXe2bR8NCiE3PMIvj/LliPjcSBzPHrj2vvz6FF0YPYtzpj8FhD4jN9xSiI aaw2ONYNo5OBJNmnFVegZliXxzTVC3Si6k+rNUahd3rDdP17GHCk3ol/TuMM gdNzaW0DwciPMX/PeR8DZTLS6MZJPBoXuEanuDWIIjx+3XYz1wCcY4KqVQuG lD8ulGJCtehIAv/82zB3KN/r2Vnk/QLKn8/KBhD5ej00XKC6XQkC/zFMUQqu okPU/T4f+6dRGh3PcRVvKUh9VJN05OQsFDw737tquYISU6SnjvmoAX+wuUxC FA7Kb2IVIsT7vnVkeYVw/xko/NbuQZdWQeuvD0XCxjSy2vM/I9GhBCrj8wOH MvBwStP2eBH5MHrwIkr973cdCDmYFdh7QYAaPP67SF4/IkiHK9t52kJz5Wld 2Q4CMEhzmgpa9KLURKll2UfvQfWH0f1AAgHkR3jS/sn2oO+dSdTPmOKABG9c /H2MAKS5DjVdO93oAV1JzS2TMvBJN56q78WDgM61llc3e1DDGZaezNQe8PAH vfbIRWAsHrSaPtWFalcxJn3NeRhcsZCRUsJQc1SHTLhcByJtcWS9zi8JL8mq DtjXMZQiFzZ9rC0PHZGi8O4RsgBVKmvSPdofMGunX8TwnIB+a9tXzxQpwbpL WUcx+SIkfe2q87+9gOYlysgWPigCWQftOz+PBQj2HmzzRgto8GvSk7v3ngDz w/Y/Az0EOBF6d34FepF/gvF871d5+EnxSYz3NQbir5P27v1qQWb2odTObOrg ltUSFJODgU5wrrzEnQZ06VKR6ml2C2jO6xQ8TeTzqL55EmJbId5XdDylFR5w XGz0QlgTMe8+D9RhYK1FqlyHv34SjYQR5kTq+FwMEiwfmezgapFdP90lprki eGkoNsjetwrP6E7GRPZ0I3PZUUK0yhjY1jgf6VsmAOtqozeOpR6Fruiv78h1 gstibL4rGoSA9N+0yi/qUdzS6ZI74XiY+azYIj1KQIyfrqbO7Pagrdd9PVy9 9+B0kPFvla555Ld7xmZVcQlF1v5qoRlQAttT7fMzfnj4G9GjoRE7jJJJ7iWF rMqBKOOOGPMfPCTWsZ8kdRxEPHJ6dVRWysA+1nEQTuRuQx86i6/tVcjyZTXC C8jCb/rxStvNZRBO31PjvtuAFEj7X85xzcKOveelxaIxCBDx+sjuUoUYa7+7 v01ZA81PxvpeBRii0lF5mdZej952lbAdlAmBV/OpYYWDZaRjS/fhc8Ys+lYa tTn5Ux0CVPe9OcYxCMqLHjFcK0fS6o/POU8qgtRUiP2MCAaXqQ8df65TiJxd TKwbhDvggIny6in8ClxL7E2/dK4cmejHf7U7OQP0Cmj3XdgkyAKTuHxjKUr+ bJZ07O8qzPHQMs2+bQeei+eFKa7no6dVSnQy8hjEpvn+OPELQ847l6O1M7LR Tws6P7NCQZBUpDxhWU1ADbsRL6529yJLz+gvVbT68CGwykhdFYOztZYBTxkS kATX4ZvfI9uBf0XZ+KbCKsSFuvlWleWhSnHNWr+gafiQGHRwgXEaJFPidurJ ipDTattGy+dVsCvli/TY/Qbrx/3FF4JykfMNnhODVzGQO97SQeRBZOXBz55Y ex1RFbBEC3wXBLbHF9UtfhO5clSJawtlAMf7ttTS44pg7sjFyU3kIDZWX0HC tDfy3jguOFPdDmwG4XK0Fqsw/IzKPXU+FTnGyVZr2E3DDXXCLv2HacCRymaq vslHPZS+x3qUV6HM8HyzXn0XFBVWitqm5SCOlZ1f+jQYmDCmN33ZxZD+w+uX L/UlwLQYU2lzvBCEaGg0niTeC/zevEDgGgLtMZz7wKgCUO2pPjiphIFFjZfD 30VeiIamVkyhA2QTRtw4DIjnYCjUYzacgI5/xdZd3k3DOf8qmeKGaTi6d2VS ojoHKSY6+8ryEeeH8G3Lk6e7IdXgioTCjRyELs3u2uwT4OTJ5hIP4nn5q231 vjifDZSXpEZt8cJA8ZO/pNMfA+n56fOrBs0Ql+z2+4OKIqg+/iOqKonBI1XJ cze4XGHJ8z0KvvwNChzWUuilV6F++V9bSUc0Qic2nHVKp6G7fsx8c2Qa8sb4 tFmPZaP0kCssWZyr8BU908WR9kCw5Mhm6e9s1HZLKbGa6JuKrinekQQMPaTQ OcOcWwA5w25jDhH34JxD6tuHphhEI7HZX+/aYPZIVfMcrRK86SfVjbxD3I/k VMH4JW/4HaC5G87TCR2yS3PBLKvgsrHC78kXgdBfPcdb29OgJ3by+7+xaXBJ fFrTMJeJJi/X1rsT9/Mts7Np43kPdORF0esOZ6P+IzGGBrMEGPbOstZdwVD/ Ye7P02FFQPpGhF41UATm9z5bjShg4NDZQ5Zo3AF7A7emi88pw+DBbQMzDgwO JRw76Sb4EYpv+N99o9wFPznsql8S71f4dGXLy8lQxOFeWvlaagZWrWs3PndP w0C7skcYZSbKoYtz2b2+CuLi010C2T3wjc3G9gHKRrgHRkpdwwQgcdIne7WI ob0XUTccvhWDz6X7+cHGD0DomIqbBmAQee4kvUvEN5i4UerZr/wESEYoyTap MVi+6ETYyg6A+aNUwfHB32HXhb+mvnQFDq5fu2wpEIJMFub8kmJmgLFF+9HL imnorOUuFTPIQL5RPkN991fhQjwtl/pMD6TGWzKnxGYjgfOhYwG9xP1c6mVw wGEoUE5aJjy8BNjOVf7kSRMFT574O8l8xJx+M/aSqVkntMTImkd8VQG/lGm2 W3sEYNofeTEaHwiFTrHJqcvdIED9s9TSeQUycd3ikoRgxP55ezxtewbWrYrx JyKnoZWyrIy/NR2hKJriT0qrYJu9SCd4vBfOpmf7x1hlo21yaTu9TgI0/oh5 10i8729OlZOvDbgBL4OZoHyMPij2Vi6qXWqo/dh4tun8CbvatNz/cmLzc+qj 20QObzwREl7DVQrRunN3vMjEYV7403baFQxMnY7XeBztAlzNlQq7x6owL3l3 VIP4/ivuD/cPDErB8driLa1mcRgmjZBo5MTgxcUnr0lluuCyzpLBGJcabHv2 mpPNE8Da9szVndwgeLpU33uKeK60Q9+Lt/lXwP23S0ZBXxC6qhe2qaQxC/Iy tkx7gwSw30q5rMkdDBwk514wkPdCLQ++PenFNHj/SXY7fzMdaeJDdcFsFUZQ bPYszQqItHbY1T0KQg1BAaeufpyF2r/7jm0XemE+Oev202vZaHWWs+tUOwE8 P8cqMOpMg8+qNI/PfBrSv+h1RNdpFdb1fpG/Zm2Az9THJieis9BFfRbdh0kY 1Phcd7RSbgCZ5u9OwsT6JoWGnGMCBhSEHD35B5+QKo/kLWai3lccyB2pyi0h ISDpHgXpLKzxjniR2K+g0Es5lAKzZjBo6ypM8WsehE8QIpRvLCH2oCVzUnAD sgbGOWGfBQib/LxCKF9Au1d8R9XngyE+0Iv+6vNFyGIi/XmlDYeSHuQ94AnP gqjXZ7bGgxZhPefsXwdaHLr/pcX2XHAjJIU+p/NMFYEjm0XXp4dC0EPRIplH RP5UcYlhDjYdR/zygZqVOWtoOkmzIr5LATpYg/YPLIcgLYjrpnsrHp18PqY6 M/AEYgp5ydhVFyHOyvuFIA6HNkT5I8TlVeAmi4BKluMqdCXkdQhbTyN5DiG5 AU19cPp+h/Tm3BoIFYyzH/IdQ70W9OMGvPZQod1x56wvHk6nFnETkobRq0Gl RcEMX6B7ElWw0Y+Hc+0GEvJnhhDHQQ2rlFYi6Cec+OXUiYcv4bT+lJaDyHNd 8VlndSUsnVqylfJeg958sWXz3QF0v1r1Ow2+DzT8eQJFTHDwh+jn8cf6UKqy kvEU6QI04LOFKH5NozXvALeJi6uo+y+3m+DhR0B78HMu4v/OnXaXLfrtKvrw lK2sN0kZ+D52k/1zJ3JL04HBZOswWqsJC27JVADfW4/4Koi8yk7DQqK63oO+ DDJMCVlqQgRL816AOAZHZPMXcA+/ocLMsPs5TlZAunHW76U1Boe987Y8/rWi HwehDypZvUDIrfCFixsG2jvV0nj3FuRaxKXswxENF1UPLTYaY4Dj1wj67NSC 6m+ISL0RK4HdXzM+et4E+MtwRW8puRW9STKcMpP+Dv41Mg81TWbgqRv5WEdc K/rcFNQrdGsFklN/OjV+w9BCm8X82YlqJPV506lI5i6wtszRiV8jzpnzeqVb 89PoXukgz1GmJ9BuHR/9mLgf16Fvdm3NLei0p5YOY/JDSJn7+HHdGA8Fhfz6 RrQNKJgv4cbpsCEwGQkXw27PQ9WtkxU0mXXoDT74O4nTEnAWfb7ir4xBd7Hr e2G+DnT8zyOXqXAlkCy4z7v6Cw8bcs8H/O1K0OkckuxbKwNQkudrzknMI9xv To3mlJUjynJdhimLReDbzq/FH/oBP7dCNC7EFqFlxh7ykMfEvNEdHeNwkQD5 Z2YO/ZBJRwUtT679VBiAXtf6Y3ziC8Q5ufHNuKcQNTWX0sxML8DpFqyv+/0A aJ1rsdZILUArRq2DL6kIsK08a/BuGUO4zQtacutFoOu0NqfpYwgPm7outVwh AOR+yhWfiEIKjfSfnGQGwDxjSE/0wwJkrEtjs9k5iC3Soak5ZQGsnK7L57kN guBBG63xWB4Sbj98OwyHh/olTsP6KwTkk91zS0ljALLOLJNQshkDyzzpFzNW AmQZbkWN2nxGLJcvmLz8MgCv6JWLJGIWYOKzxpJCaAZiuTkE0eELYGOxKV/E PASSZvhOI6NcpBraUurWhoeOvtZf546sIaZCfq35tUkouPYFbpCbQIJLxsvU EwTQVTOQ+hLsiXSrjvLdpBwEPaPogL3PCyAilVhHzpqGMvHX+M3SFsC/tjCc 6v0QfAsKVUp/m4O6RdoEmUrxcFfazr7QZAWdGzs8HHtmFmYDcpd7jprCtIhY EAseD3Fen7dtmh0RlaCVmEPmIFDEvHh9y24BHrB/pgr7nIJu/IA8/ZYF0HuQ /vBsyxBojjFsyOOyEQVTF2MVMU8a1g58y1NbRvWfbJp6/ebg0C3y/HOSZiDF jXPy+oaHlsPv3SY4TZGgpX2IofoQTA7769+UWoBIswa2LtdkpFYV8MhgfQFe hYS/lFkl9iNhNnHVOhs9JHGVzUvEQ5j67eBzGUvo/qyKaIrRPIzkoAvJHebw 6J5YdGQqHmKdhplF258i8yOHmsLphkGxOcXrMc0CcN2yWhbKTUI94k8F9i4u Armw5NOru0NwfmWAJv1INvrKZXlkNA4Pj1nkDz7yLSHGG4Yyptg8PCO5u8kb aAk8Nz1/Z77GwwIWZSOvzYpyBqOibswMQ9iKv6vtEA4MX61cTThIRH2ykRnn tRfBatJvoWtnCN5GvPRQicxCxUc6xz3i8bDdF1peT5wfbqbrjKQCbwCZmCYG yzwHh2fRTRIzi2iY9WcW5SMc9H9tXEWB1jA3E3sVPcID5jmQwTUqDw3b2aOh ZSPQfe0VlhqGAwMJpwdW+oko+rQQpUfEIuySLuWVLg/Br2tuqW8vZyHRJ4lh l5Px4CLlpyt8pwrSb8WGPRnLRNMVJepnWjGoUviT7RT5AwXc7nOmkCegKpOJ VpV8PbBopoomELk+loF3LMt3Eh3EfB59mNgBPdYNEn/5FoH50Fw5Sdso8sFu O9m6z8C5+h1mzRME1DytJF5DM4hOaFKeTf8BsFs9H/GMbBkMtdzbSahbkYYK SZsg3RzI9C0YXNXDEPc7+Qngbkew6WJ0e0kY2rbadVvZMLj5TpX6z6cKVIsx UeQf+Qa6hpUlIR9XQIfSd6Z3oRqdkpm+rUV87oqNJbPmBIZELO6+YnhfjnDm 5w19jwrBKy09srbHGNCaJ5XPUWQgK4fSd1vt7eDDLzqldmUVHNNHsiwKihAb E3cBV900CNBrNqX9I3Jv3eu5Ja8IVP61+C9LiiDQ9Re/sidy071jlK3lcT5I culT2qq6IvSm7MyPEHOTTbvq3XLlEISjWHcxIeY4lx+JwazEnHKl3U56Kz8T 2eo/9mF5NQ06uc+X4/YxdJ7XL5ezPRieRFSVoktCEM3wEKgmiN9Xsf19a2w5 mFJaxq58VwC7SRp5jacYCI3MSJifskdrl62fNO22A3mC+TdV81Xg5Et18jqW jLpYL1/kcpoGNpY31oe3MRTCouTtE50Gyxm3cHZCwtDKtzWfnYLBZAErlQBl I6gZx5GmnVEE8T+DN5PkMPCYfWbCYW0LWUXCq9slHaCnPDZOprYKlWJSfkHa cSg6Z5H3fNQ0BP899FV1HUPdWCcJbVweHIoX/fi54i4IkastNDtj4Gns43mD uxWqWpzZq7MVYXS6elGOmLtNZdhidKI8wXOzo1Yv9RtwphRr099eBePwucdO 7ZHoeJ1QFtnANMwYV8c9XMPQ9KiA2yVUCHdSrlvbfrwPV62u2A1oYsB5cHq7 MrgdLuKXR94GKsFjVx0XuesYhJDa5//d9IUr/rn/1qs64ayzmvLPY6ugwClT wLUWhqbUzPOvs8zAy/SBh+1LGOrlDrBiECsGN/Yoi+dpANd+rpIOSGFgfW/A 34fyG1BVaISxFyiDlayazW8mIk+xU2840n8CyvThQ/5YF9z1DA7S7luB0i7F lBu7ISiCbCKs0nYGonTLMvUWMPR2oU/o2t0SOMy/Xid0WBTUtU1HKISIc7Ow 8Fr5iU4w0+v/xnxIBYxOvNHXIcPgz3PJOtKjgVBjNHTC6G43tHibZdaFr0CH q9D44IcvSK2w5jFJxwzovbgnkTmPIeMu2qiPuBIIXPnC9UFZDKgCqjdxRB2K 733Uv1bdCWPjN0pOvX0KVF9EEyx/EoC+YjB0/WoQxF7ZK49/3AOed2LC+9RW gJ69TSpGOxhdba4pd+CahSa/OAaHX2tozKwi97HQGKJkwmu56gQDPPDIi8sk 5ki6PS6arTkk83dVjDJjFhhSRoXEhDA0yD7FHXG0ExnFKIc1HTWE17o53+5X 4FDR2aDlo+6LqOaWeO/hM3KwG8Uz8rcVQ2pvWAfnZ2tQvxr6weGgCP94Xg7r XFxBNsvWuwTHWcR3nQznhSTB7OA764AHDsZvjdy/frYNnf2WvDa0sgABX0hS er3xqMXM7R15zjDqoQ4WI22WgOZ7Wk8vuhKATl9VKeheLWohjcC/JPTC+yiL +6Eli6Bb03BTeAmh9pZeM2lWHMhlqEQYqmCIcmZZYp6yA5nxbYrcm5eAgHOr PnxdBBDWv3O57UwB0rquE3+YmAPHcr8v0hctward3deyGaUo1No26dHVeZiy m5WkwTC0YtfZ3fGiAIWX+CMKM0mQXv6Cc9rD0MVrD8jHaOJgpIXxr56IFPwU 9XH8N0XMa9iaQ1Z0GZCldCpM60vDrT9Bnsp1GJpQFD36aAyBp6m0IGuXDDzk Gn+ako6hp9MjC7moAZrOPuCZd34IGkLPXquFYWg4y3q1za0JzgRF2N7Qk4cm jbBK5w8YIuHg4A2PaobOvkxnvPtjIEHRP+k8if6QnDuL12yB+K5X4wNWihAl NHTrQqA8Yu2jip/iEUSJzZ6U/5cT/cplNNmMltDfBVfKqbU5dDfG4MjrkBYw F1kvpuYqRycylnEpycGoVYR76RTRv9zFhKgO0c+itvryryWGK2inn32S+rUv 0MS/R7/fDyA/z2skbewEJF1/YzvsrS28a1/U8CqugXh1nvMpbRiiKl1jOOVr Cgfb2uoG4aNwvarX4jkTHo0zyzxr8TAFZ48yVx/fb7D7Ja9gDTBUlCsmGh3t Ad5dIiK2211APiNR/44JQ7LWkqc93T4CXu+QpEf5NLCnl/Yyy64irEso6GaB C0hr3dsvmO8Gz1jKjvRdAvomkx7KyRoGGY7ZV5tKeqDDZPFZ5CQBsV1S+47u JkEA9QsPoXhivnwccir9yAp6V3Qt6+hgIGTqnp8hl+uFE8fzCCfrCEh5zG/c neiLi8ktUl4lvaCwLkZxKoSADs669t+n+AosqQ96LSrmwIbiOGsFF5GP1lgK a1XTIbKfrvHYtXloeC7vz+a8hLqOKuU+pKyHB2oeHwlkc/A9fULzTMECoqP/ yOsiOgz9a7UnI9VGYGPpT5Jx9yQKD2x613R0GU6eX3y8/ob4vEl6nJJBP+JT qLz8Ls0RRPV+RFvSrqIgy3JtaooZRE37qlpylZjrd7P26JYWAHfkjakj6zQ6 HfM6fevnJGgez3m3y7MGkm8UyqpwI8hln/zyZEw3sO0/VX6asQAtLNrDNZSD KMAs7vog8fvovzym8Y/Yhyq3zl9KsWpCzC0KWoo1alCilX3iLQMBDe5bN8eg AXRtQzYvBScO7BvTmMGnGuTJlctrjw2j6xcRN+d9POjTNh3rdVtFytFvg8kU pxH1c0tGD5l02NvrPN5ITkAV1vkf+Cl+oIijnxXq1RuAhGTQkI3JuIaEpFNK j0r5/v///64yy3X4EPky1JKEqx3FzyF9Wf4P5qf0QJ2a+s2xsWWQyYnOZt2d QWKXFW/ZFLTAM62+GzepZ+Ge/tVyvkAcmqVPnMh1nwQSJaeqhsezQH4x4dmY yApKUE+czDyiAgkyDHky2hiqd2UNlHNqRz1bPTVcYsIwo7Btw5O+ClrnBZ7E zzWhEnurS7wvJ2E9fWbycAgGcG6M1rqsCW0nhzuttxkAX5FgH2kB0Z+H/xps sZShthMvbU9I98KvtbJfMpFr4HuvrfLMVAVi3c79fuH4OPjxREu0VmNoXere FqdOHTpaPfbA6rwk8DNnMTVZEfPO4K82zTNtqCB45+7Ji89hvCRNo3acAFZ3 6X2LONNRm//v3+eyeiDjpvGmHpE/VxQhxfeGH+og4REsbZeEC42mwz/+YbDq cePrjF04aM3zf9qPfw6yaoUPvFIxMBzPuWO23QDni2q978Tpw/L5z7Q6uP/L UzpvnveHITG1n4LTUT1w1WKTqohvGQqsZfJ7ZbNR0XGTevnUORCdoNuh+Imh f+GbW95YPkg0O7Hlt0hBqKaXz3NWIodUhO2qN3UB20vc671lPfgo+oH3VDwB dG61pz0I7QORZ6sxr97oAbtR8EWnSQJEPysyzb7rhVi2go6mjfbA0/Yk3/ci y8BEzXaY/F8qcuAzriCPmwPqc/e1PnZjiFF0K0i7qwpW9b7sHaaUgcfFlATT WwRwLzq//PPaAIhGblb8e6QHEQ0Ftt7dxPVN70pTGeqhqvOHMnlke8EnPOvN 3yIMMbw7TdLoWQ+1YVWpytGysKn5LDw0BA8yJhc7MsyGwe6I1xlWaz2Yq642 8a0iAMNlEh1uVQOQ3Jt/LzHQC0sZeQHX4jC0/YLiXGVFI+Rb8SvJGcnBhHeY OA0vHtz/8R4qFxiFb0tvq5yO6INmmWpsTTIBRBzSiu2rHCDtep9qvGMfNEje uTj+GUO+94K5BZma4c8R8xgjs0fAPxzpOf9zDbIZ5xfePx6DvPKwivEVfaC8 pceQ5UuAhu9K+G/0rtD5x7KIn6Mfvgv+urvxHkOfZT+ekCJtgY8vtQ7W0hSA Sazx+37TGkzZG8VlHB2H+vJYdfJTBlAjeirO0Zy4Tpn2h51Kd+jv7QK9mX44 fHBSrPYNhvh+JijNpLYAl/aadCulEgjH6KbopqzB9o5sAv2Hcci/+GvNT88Q Ku++009LwtCkprsCiUQjyD/y/klBZQT0PN2rEIVHVBpHlU4/HobP59v913SN QbhD99SmfVltCuomvzn1tVa7+L/fM39/OihUz8KhXoO3fRHei6j06Z1Or0uJ EJvdwFYmWoeqIwMPfSnFUO76q3Cy9DR4LzT0bo8hF7z0L0hXb2DodMSFt9VU huDr7oQ6t60hZqVm8FX5F7TMZitkuY8B3pMxne86HokwW9Y4S4wi0mbT88Kz +pBx6T0rTmkO/WHh7XD0XEYfrBXuuwYrgb2CwvrHA2KOq+a3PXwVhwZprkVu WEtDGtNKIRmR/7E86duxumGIXYLE4HzGMzA8UjpdSMz7Zz7dlZtcmUT+OMaU 3iOS0O43s+TtnwdRMrZDRkTuNt5qP6y59hRyeIb2v+IxSC9Zaw+mLUQPtMZP SmU8Ba5J22M1WxhkmCzyvAnORJS0c77SdabQKlTWyb1N5P93zx4XkaYhwCiM nJ66A3tVzf6j3xgILtIszv1NRQFRfNtUZuFwJK6zWnUWA8cdLlmdrkyk8Lve 1s+nEDj9ivqDexfA82lT+MfoRvQn+HbWq3kcqDz4XB0SR0AbQw8KHSL6ELez 8Ce3RgmY3dinOmo+CccIBXXDl9eQDd+BuO+oHtRGIbd1+SXYkcpH6Re+otXr 5bi/n+eB3jnmDwUnHpxMXrEGmo4iwUCXhFQXQ8hS1zNOIPpVF//zsaFlTyTq 4KptNmkAV9IsRoPKCehmgPoNh5+9cJnh+pD+oBF8oXMf6PJaQ3OfZsT1KCZg 617xOGefMbDHOiH2uhV0mO57efHnGUginWjlqzeBDXNat8XAZeTPQ1pbKjIH T498EHYnmEKE8olgoa4lZK9rx2ErOA8z92kCD56bQ/dtsqpW4n4WGqI5rk+6 QpzZ/El2HT2Y9B1420ysq1xOoOkxdAO53+f3323rETn77tVi+SWEu+6Xxts3 D6HWnNZs5yzh1/V0G/nfGHqk/kOQzdIUVDi+UJ2eyACfAxGbkM1FROh9qPdS EAd1Jh4GQGENHQuk4a2vMfR9warfarEFPmlexn2oVIJDy9N83O8RHPooX5Yp noU0aJwLO8swkH7f++YkkT8z6V/cLayMR0uvyyKFHfXBiFyShbZyCCbjRPYs Koh8xbVecI9XG75K3bz9+V8wjMxTNjgS+3S37LxiA89L6Kw5Lcb4pAmWtdpM SSIwJBn15IixqS1Uu166EW/aBrFk9o1+ZhgaSc+U/GP3EnDHJmqoQ+OA1fHt Dv43Aa3PaacfOdEDVHFMsnNTvWDw3ZFxTYCAWFZU/XPFWsBJcfysYEgvvCLB RCbk8OhisMmPpu4+2Ggs2Re9EQlJX27k/qVfRoEjVj/thuaARLtK5Qkxx7Q6 67Cx7ayggAcMHm9VJiGlYUjSfr0DpD/enxqRXkA3ru3Mvt/CgctBRBgm4Quf TghdjDUfRsr9V6zbvuAh2vjYigwxD59h+zi03DSF+ueNPE4/WyVyBcna+5z1 moc9SWWMX/E1/58rjhLErtp+xaPisaNJka8LUUPrrjFOaghw9+e9adrGak32 5Ozj+wkipy8S/udLGj3Ydl8nhs7deB6F90pEqyx3EmZ4q+A+xTUriSAS4BVN vhWssSKy71Pwv/d/wu1tPibe87s52awZrUGo69TyW9qnuXDDcr26X3oJtX7w 8J8fmkfXyij01mJMYYuSXiaGegHxBSWbHOVZRE25tYe4ax3BbXOez0dyDs1c DKThGC9EH3/9ovn2YhleH/mm9uMhhmq/CwbNvelAKwoWTxzj4kCsHxWv0i2D wEr3m/zxOaRpR15WZGsNlbo17SEkC8CtOOsoe28RJdC0MlEPW4BjnRZtSeoK 3DRPfnmtfAYxpI/qlGp6Qs/h3W9t95Yg+kCezXB+HoVfL0i9I+oO3NGUVyRU VkG1jrnDPnUa9UhzpYkRbAFF8Lw1sFkFyWBRSxqHaSTVeC6nuz0C+h4wcpQb LYPnV9HRLIc5FM9sYmL0KhRi8/gvc2uuQWp9TuFW1gR6fKhVrYT2PTDmOhpG N61CUHWDpq3bFCr/GrJet1EIRYupZDE7y8D8UOecbPgsKpyXU0JZeSCiWfrB bnQNhlXxNEWxY2hS6DhVAn0sOG8nOY/trYHWsZcnSUJGkazcmWnC01KIVBoV rz21DM97wqKkrGeQgbviasPdfjAHWlsr/iXw8mt3+7gyjUa4vMh7k4fh2O1g Xv/5NbS7XZFa5DmG7Jq02gd35MBnpihfJhdDWqweacG0DSj3j6DLPRcfYLrM HKbrQDz3zR9qb+YyUDAz6aHawhaIHfM9Yz6EocKMVIGHJpVIXmavzXPFGTjE fhZ3rRagZaH3rGcJxBy58NNYs1wFUp4/56xIaACbp/MP2zIwJDPfWlXPpQRP RwZsC5lm4M37i0148lVkXiJsyIBpQyz5w+dGPWug8elMavngGDLONf1l+Osp PHJ8v65XugIhOnEeDAkzyJyU+vXKhApYrJvbf7pE5L3dbUUx1wH0/bRI8liK Ebgf3rx7hxYPokwcB+ZFo8itvMCe8YoBaNnJWB5LJ0C6HqWJim4fEoml6rO6 5ALmO3E7uHUi51yU1mANHEQ/gldFm284gea6NVJexdCvqOsa9ziL0JSGom4I vS2YhllU0i9i6JaCa/aVxQj0RGhr0GezCFYDtuJvz2JokcfMm7mnFFnq/j0d oSkLboxRTTbLk8DNVs5Bd3QNGSg9cr0vrAQOhQd+H2S+g/8/rzhzegxRx/Ec ceLVgvBCqW8RRA542d9cGCGVi96Hm91uneQHf7l2uewVYn4/lMIt5lSEhhu+ rvIx3ga6KkO1omeLoO82M3hqHIeWc+JO3Q83gHbDzF/HKjBQPGYHHIG5SIKB 83i0Uy2waJZruv/D0EePc8AnGwnKvi6DzWrCYFFf8YNmG0Oqg+F/pd+lgf9R mWG9UWHYarMn/0ecC4m6X28r05gCKflyOM/vdHh/mOajBnGd758eHgshjwLB l6UO6Xr34FTTsfIbxLkjm5vRoTLgD6fMa3duM0iC/pMivpE/GAIPMPUcSAOO wlnyqOm7MNbet+Yftgbx3f9eKdaPA3Pa31F2JiOQVWWYnv0Rg+43dF6oIs6N D4h1YyfjOdAZaAWPbs+B8Tf9eu6VRYRLEy+gv9YFR0yTqpjZ58Gl+Ryqv7eE 2GN9wynVW6DoqoJl5ckVoGIji3j1cBadsriyGan1FVrcmrRISVZghcMbs+eY RWrMv2rvPKoHDS91V4cuARBGNNSdJ4OQL2P+xQkid/1hVLNk+9qGWnt++OYb YWiJ7l99hrwivA2OeDDBvQz3afbtmV70om2ah6N2NTPw88OQYVHYHDxoiXNr F+lCNg1+jq5CS8Cmt/LpyNl8tDDhUTBHzB/xJx4aYpbKwHBS3a/3MQ6yhN+5 NE8tIupwxUWybEXYv5E6c1hmFIZpf1VZXCNyqE7hhusVZaB+IWbR/m8ZEoPF ewuzZpH+9TQB0W4FaJ5tm3Uix4PQOq6MY2YU5XA2rXUTHsHKFo6H/CzRV1ur Ak2m59DZgx8N22JPQN83Z22uaAVM82JTfiTPICMX6vqbcoZQjO8z9xzFg8Nf cXFdiiEoYxyiGJbTgwWfZ+ncOnigc7/J3GEzAuVqqnkOuXrwZEW9JvfU/yPr vMN6Ct8/TlFCkzRFSMusrIy7pD20SSjRopRSGhpSaaAlkfbee6ue9i7tvff8 HGkopN9xfc/P97p8/32urs/n9Jzn3Pf7fX/u+3UWYN6vrZqvrReUaOY9z5vc g7wOZkXGnnnISRv39cvoA9XA0+flLXQAqTBoJ2bOg6LUymEtOdxPqvUepUi/ D0Ze5cdIKxhS2bH71O53BpBPva68qBoPFJmHfx9onkLCOwyczmlPQKXhG1TH YgLmBpZ3So0/w9jYd7+Ho/HoTpR6kEIVBr8dI7se3TGDu7V9l4bx8+g58yGi iOshvDMKeEx9xQCc+hdbmKy9kRQDn+kUfn+9/CKd2J0b0JJlWuN+AVxXnH3D H8+iDLWvyCPPMfShzKNdfLSb8yhokmqk7b0SNC/KSYpRlaFHYVL7xFIwtP/F 7cQgb0X4yGRXlywwjAqvHHNe/zCHXCOe1wyFysHXuzwUBvj9NkgtbNzml4oY 5ri986jFYZGi7Roz/twlSx+jUHsegywULphqWF6FMpUuJ6PMMfS0033R5NwM Uhwy+pUeoQhJu9t4cmoxyDa3vtfzqAhRRvOdtwpSh3zVi7qnhjCYLDtDxjSc gwxoTNPORRsC//7jOuuTGHwODaoVH81EonqOAnzdjqAXyuzRjq//fjYl4HYw E/mluJ90YvwAbZTrMtwtGOxhNC4bfJ2FxL59is+nzIBZmR0zYu494H0/e4OF HiF7iXI1PzzOcjLrsP82HAaBqwVvjK1L0P6rR/oLeOZAw7E/QyNpDJ7aGaRz nC1DNUbhZN9bp8GKMjWbInQaXRPuDok2HUesmE5URJc6hOw6fKn45gDEm8rK R97KQ6/l/UaOScyDuUt29Jkjo2D+REg3MjAPXVi+FHX1xCyQVX6xd7wxAYO7 yX7l5eajh6zhaVJhU8ClkLbYUbeABrsjpVc1u9BPZ4tQrwkteDzc1akonl/c XDjazhNpeoWi+z9+bavXtlwDGwzNlNZJ222vhvdr9l1m9MowWXvMZjAfwd2b bZI0EgkohWzTai0bg8pja986lzHULD6ht5mTgBSr2pQGPooB7c2TBjn4OSq7 3OLndNgXvWKSfbnaKgnT7S/qSD8wYIqzq/TcEoHWv2FBF6MkoLPPY9ppA4PZ 2pkoeuGP6GBjWR5HmxQelwyUzH5ikCSu8/gNXTic2hbZL5oqCfb521Wz8M+x y+I9IaMfAWW7Gqb3npMAjiinAcclDG5zqZtoX0sC+xDJwZ13pECAXt5uy1cM HD6/TiT9SAUJkT4XWmUpoAnbMS42jV+PiDDzolUmNJhJ6vsGSUCKAP+J7V0Y VO+5Klnnmw8LD09ulayTAtUo5kMH8XPS+GO42FA1Cy7pvae1tJYGcRGa4vf4 3+dwruve0M2HaUmSXv0bSbj/MuorD8KAxFdy4TVDCXR0mo8kNEvDo6w7Vaz4 +ZQ7b+e/PJsDspfGUMVWWWBbD3cKrcf9YFPIrv7JQmhFjqw/RqVgmGIi+HEK Bi4Tb/e5bCsDKiPu/IPismC8k+H8jV78PrxWHnvhnAf52rmc811ysMYUqfey HN/PydoCRmoEjG6qN+RdZYDvwttFnkgMSpPrNs6dKwe+u/uG0mjlgSIrWpYG v/6XZZvfur3y4f4L6ifO3xTgRrdUwGoRBqk99xuPnS8BSwW/d7ZGciCRn73r 4ScMZii1fJg2y8HP9It/3+HrIOjU2hTXjoFIDPVRNrkC+Gnik00Tqwg36J0K VvP/9H2RPr/KLIG+z0P0md4KIHDaYqTSH4O5d7X65Z4VIFCiEMhRrAgG2di3 yZN1IH64IC1HGUMhRl8V0vRug7ptX2Sj2yxyiYuoSzXIRHNh+0VD80bgitTI G5pUDNVYLyxy90Yhr1pO8/ljpXA5IVRCDo+f9x6OpX3lSEDl6uQfw6P1ITeo 6pXIAoY+Bco/nt3pj8xiM04l2KWBVu31SPPNWWRvtkvy7fERxFusN3zg2TPg Dsu42TDWisZNgsw1cmOQmjfv7EcPEoiIG64qPyChcvdGDtsd7ego2yFTJKAC /Jz33xSMlsLyV+eDYfh1tUyunBjqUYFGpe1sIz/rkMZ39vFxSQzZsPfoCw8r wtynYB75zQn0yoRJ6e3lKfTiQ//mz2t4Ppox0PJpxVCmhXu//XwB4pFU2yMm ewZi2tRTqjTn0K9uneNnPw4jhxWWgC0CmnBvKDwu1hGDDW/JHxXamajtxa0a TekKEOZ4/PMDHvdzmFat7CidkTrl0WljvVugnCdqEIfrFr3jFkHBth9QBnt/ q32rIAgcWBmWxvWJe3nst5XAWETNP9aupCsI1d95Tf/MMfGMhYlXaQSiif7S u32UguBq1+70hytUF/HC4VS2HpJo5NaLW7oJ6oqHJDB8fd0iUvaFoinK0H3s d0lGEBq1xm0C8fXmIi952yPOSIiOpGswKwCpJeePrOPrr3JoXs02P4BWayNp iw0BEPqRYcf3R3dcNPslFesPitxby59aSIHn1iPh9vMYGHa7CJ/f4gyCt2yc r9ikA9k+T6UZPO9JydepVKpIw2qsxN57/MUwbpUTNBCEgah8uCqjsSrKUKsR PNFbDupTddE/8e+l2F0plnVZHUr3Tj3YHLsJF0hLUUX4OnPBr6l8SUdQeuBs Uu0rCLrbA0Yf4OufCrIMiibdYH1hk+7BWUGY6emlMML9ufpS6lZX5ncgvqHA X/pGEI6cFomSnMAAkcXwJsZlAfOPT45Vz6VA+ZuBu98MBllD3oIuju9BYaJu D2LIgGi/W8+GyzDQ0qPjXm11B84107fruxBMK9DzJL3HgOr7htUdASd4ycl7 56NxBZBbs14g4dfT1anZ+kDQBC5/bu00CdcArWTrSTp8feqUfP+eubdwSH77 8JimELw5r6t+C7+PyrGqSryUgXDA5qzAhd+CINr94boari81Y01fUUaEgDnt jZXFl0IgplUcxFeHgZIc9WimXBGsB/JxvL8sDQ9MWk8I4vHQ3330qWpZMBQs rqSFjWVAXLLIoz1/4sb6z8xtC35QWf3MddfhEjAXehC49AaDroKAqPlrbyGz 5c7wacFK0N4iS/FHl4Tn8y6EfrCAmouqV8kmbsH9DPNnf+ode3w6jRb6/KAs PXVrsd0ZOGOxhcr4J4beDxlaibGFw/mE3bwH2M9A6IHrR2J+YKjsRkSck2ME ZAhRJuZXnAG3ydKin3i+osoWvdjNVwqBO9nQur0M7HYZ0C0axc9JkLjCAm04 bORbFvzoz4Tnm5UHL+Zg8L5rcct2zg+QOiHqfHCoBGRrF588f4nB4u/ajIoa X1xHbFUOYqsCGUpNxg78+p2/jSnWnrUG+qEpGyeP20Br9o1iG379z12y3HLd 3kPI7XWW+LGzELfeYr+5jj93qwwcVz9EQuv7nAKF52fhOu9XHQt8fWnRa6ji aRRceD56aED0HBwdmbG5EodBoHvHKe3UMuhhMaCOOCgH20rbMo7ieYRtpXaA yjwCdvfdvG26mgW3loXMbfB80fJwYZixLhBMFV9cns0ohfOnR0XtnmFwTMVy yfygP4RS3S+J4KiGgwduyjXi1++rpEgp8cQWlmTYfS453AX9oK3MOfg5OVZy WVhP8ANc4Phx5/jL8yBGdkSWHL/OBNKnNa4j0bC0Kvbp897zoKr7G0Xh+k3/ w6aNeHo09D5od3RdPg/ctm5130IweFNxMnUqqhxy+/ZX7qRXgNM1jKPX+/B8 NMyPCelHwn2pxJpR/hyIYRykro7G4IayBdfHT0FgY3dEKyGwDEbKZ3JXDTEY WL21Na7sPcQ2Jr2hOl8Dap7sRWr497KGTnx+cSQGhsmeX2YYuQBb654v6X7A dcj8c6iVqYDu8VXO9sOKoJXbKFfeikGQxrqRzkABiPhG+futKIGnvqp/N37f F0fXcoTpS8E719KG21oRdKSFGUz9MJhqfzM6VFEBfjdQbrO2EgyYHN5F4z0P nS/KShj7+oE8qozR6bkuXPWt0lH0weDTw7eh4msVgFGaZVHsVoZYfbK3iTwY yJg8P2PD3QiWI0sKYgXqoGJCM7RTxwblFt3OqcXvg5tg60Mu8YdgEaxEupQ+ gK5xiKxu0ZhHcs1GXrs75UHgYTC1aMgkmNS6Js5faEYOdN31vzkn4LPpbM3F mhF05d6J2PzAWcSwOejWi/udUyMff8W8HgMTae7LHmoz6MaMHC3bNhXQaGN9 9M4XA4b1p1TlPRWITWt5SFFTCnZZX45YyiMB3S65I3xTLYh09+dBGjY5yBv0 1DtZNw+DFFTMOl/70GafKPO+L8oQJThxONpwBJyl2BTzdArRqv7DgbygWVBb aKVyjx2HlTvuuu4vitGljNs+T45Mw6tZT2TujkEuHc0RrYxKtDWlLsbokwyo kdd/ZKkhwasRJcZ+uxY0/fYY+8+tuP48SBGhNYKBurlClv7+HKTeJeJj7iIN KnNl72ziMRgzOjVQ9KYMYRZedo/OKAFDgpLIFuch6Cg0cHyUnImSHY650RTP wRNRFbtvCaPwMYfTIMcnG/lXzsfm9MxAqlrTU4a3c+hDzuW6w+LDMKjwNOO3 mD4MvXxdxM08i3jCG+9ku4zCY4oa624FAyC7Sm1mcmQGHVM4SfmhfgzCYOgt R5ghCD0LG/3gOo3ot8nLDr8Zh5RfF+mvnX0EpdEJv56zT6PkMl66b1QTIKAY +gPbaQzbDD3teGMx1KB3fS6loQyR8+bScp45B2PtW4zeUrfBrvAjB7xek1As i9NVxg0l8N31vtc5KRN6rHjjK6YwZJg9l60qoQQNQTb88gMYumF8qMr6RTCq acx8/FMjB9QDhxlZunA976YX9ep1PhpKOfKhykcO6mX6k/VnMUTr8PWnt28G mjmVQzWSow46736vH9zbBEYRdA/fva5AUh463pBMguMFDl97jLthm9hCtOpK EwpoO2A97TkPsc4vHz3sHgZ/mQd7NZVb0NaON0c+183AdBT/xiHjUbDaV7IS u5mDPN2t5si3zsLR1cVbLL143FALWan+kIe6F5R5dz+8AK0ZgszD3zDQXHta NPg9CZ1kf/5EFtfnOS59oQ7f/8xtRWbyKcUilzVWV/sSCZCWXmy2xP2Km0Ps WJ32K5Aould3P0ISPLhU0BzuI9jUrIu30QbAt0Kqas3LEqDsQlr5w13R2ov6 WTzjgXWadX5yXhKKvakvfsZ9gYhNdrv6lVRoYfFuPR0gAbnB7OZZsxiQd1Ft 7jXLANV3rPzzXVJQ8E5EwHcMg1+yhSWTCtlgsZlKdvaFJLx0kj4rheeRHLez W77WZINyakPgDwEZKFb8fmK0B4MamhEm64Q8oKlhuCPZIgVCPLobdv143iQl zf9qygVRY32K4TFZOHq7p1uiDYPdR4co7HIKgPMBw7itqQyI7vU+97Yb9ztT UpWnmPJhS/ai2Ea/PKSPvYiqbMJg9K7a97DthbBtedF1VVkOiuuX9as6MPD2 LbE/vJIPHhv09zh2K8JozysOL9xfVHxYfiI1Vwgh+9PKvcwVYPaKaOAsHj8H F/uwRb8oFP71TGdXgwsIWnGGJ+DXk/GgIvjthwK42Uq2zi2jBJI/hQv24b47 1/X6810BRSBwSXZ7joEinBJOyLt4qhcEO53eO0a1Ibsvs9zCDnMQ8EjXUFmr BzTWjr+Uf5SJLh+nek0huQA7aisoNhmH4Mk94S8c8VmIwS03jr93DriOPGBm S8uCncyXvIZXy1H/fabKYFzXHrnrNqdrVwHKd5JlrGYrEHh1stUfxeDkFrtX AgbNoL68mXSdqg6tx5ztnL1Egi/BneuSDAuIXMlV7kF+L3ru7Lh9tdgHDu+c WqucHkEewqZv+5xnkV/Ny8T1EnVwq9N70ZIgg34w3nixgcfhmJuFcw3P1MDw n99lhonfZdSXT23GTvvASk77WDie581PUJHtTbIAFZsyH1OzAKAUqxAxwvNn X+G9z2urzmCvdZfp8c9A4KiTCWTH9cvjK0sJTwbfA/0//MwWgp8ZcXILn5zH FAiczRn84DqBll+HUZDrZgGHdXOwyN0pIKMibT3eMY76GuIulznVgZyb7NSR iXEIpC6JZUscRbmm3m+ezAyCGDE/e56Yn91DzM++ozo+qVdoAVfJv1XOO1Uh AUa+mwL4PptFCTEZk2nD0U9pe49XpiNdmbIHF3CdvThzvJKeLQv8Ng97QWYO OpP3UVcF19n7U1x7OC9Iws5XS9PGUsEoQaatKfoXni8jX9/WHgiBstPJz+Ke R6OJl4lFNPhzaH0ltsOeDUMaH/pkJ7c1oV/+yc9NbuiBvr1mFNXeSURVryIy wDuFuvquXUl+IwO5ki+Y2FibYYU9Mcd2jYQse5ft96QoQTAxHxFMzEcsE/MR Qecd8l/2L4Cj2f2yybJOlDv0KGpPYgKcUbUIfRK3AB58S9ZpdzvR5olTzMW+ pfCc66u0H8U8KFDbFCpXd6DvQlctFaY7QJmYa1gi5hpSiLmGm+pWTC6RXWAu l7JOelSF5Hf0vb0qtADxtx8NWYeWg6/ii8d3yXOR6CWEPtjhvmVPTDStdipw 0Z5A577EIY4at9eruG6mjLO9ylmMoSgvOcENgRLkP3PNYM1OAkaHC69SPp9B M+/or9y7NYZmwq/ETuVJQeb0XLuQyRgMPL7OxmM0g3z4F7bNcCmDEDE3EUbM TXwl5ia+e8+pHLLF4K7mY/vrmlWoz+ImhetMFByrdKCblsMgTv6BcEFuFdrn IXS/rvgzfBJL3Bp6jATZGtOjFQ3VKJbJlnVHcgssEX3C2kSfsA7RJzy/WwIl cNRDp6fDdbEvWXjeu5orwYfBleQfQZWROSBgwSAQEx2PGFO2Dfnh8QiM4/Mz cN9NsXa++ThrOroTtVJW5AdwLXZh/YbxPLrvEuxFfX8AiR/XLp2rkYMjpmYx o2rzIPXRa/Ng0QCaD13ZQpmtBPXE3IQtMTfBQMxN6HBppGF4HOZMVmm7aJqJ Mue/13v4R8DesNbDvwpxPTxJbrtVNxvN1S5r6GXmgcrNLRKkbhJ0dDE/1BfL R97f7vWJBH8BDaKf+S7Rz8xE9DOPlGhbyfI0g5X0AO28SgbaZx46NjNMglM/ 9g6tcBQCu68mh5ZXPJJcfcV/tAKP44LcoIznd5d+7ova1pFIyn2vNMORMujP 5kgtqiYhtsq2dB3HFmRQXZPhckYZ2I9OLfc7YPBKeaN09nUVOrCtKbHsoOLf /HiTyI+nifxI+yr/8+GfGPjpyKDzoeHI+8vbI3mgBvvKafWa8Tyo5lgjfMMx AB05ZytchOvSJaniLGfcR7OZ6dLd9fBF6tKdH8g6n4EJwS08QnALzxHcwpzR dweq1jBQtK/rGYl9j6LOyCQcl4gAlY6zhffbMcAEO+x+tIQhWUqamdkt+UBl zns/nQaDjZ9sR87WxqOX7mVKl3iawJHo635G9HXzEn3dJ943vBYZagEDcqqL lFZpaGpY48vjOBIE0U2cYOIuAVXvoWEa03j0XvHM6vUs/PtOmwclJ2FoLZWV gzbTHe0PIOt7cbgMPMATDX3FUGGW3+ZTplSkIuHL5synDkZXzmX/4U8cEzsT e67KDt1byNcYZVYAGUI/eBL6QZrQD7qiqa9+4PtA4X1HqXi/N9APW7hpbarC dOHXxUx8fbWnt4GNwhfon8t8cHukC5biLJHR+Lqv+8gz9zAfCGFRS7YcevaX TzhP8AnHCD6hkZnYHYcfGNCsHRYPoHWEqQpX4Q2VCPjhJR40i+f3oBvdVfFs ZqhHfEHBeSkP4nrsXPXZMPjG7dqayP4B9co0CbANN4IF0ccuRPSx2xB97AZf 7MgaX48CJ+VKWr5wGqrpApqF3zOwdvCtSflmK9S/hAM/36WgT5QdyQ8cSKDK kGtwobwU+tiyVhVd4tFF39LepzEYhO+81i2XjKFXqSZc5iJ6wEkVtMsW3+fm MccwpUoMiU8q8Lv6F4O1hrxwb9lNED677dl+XBfdE+K7Km2TDWHnWKYFnsj/ 1V13Cd3FTuiuLUrO0mu4rnNmQpWesTEgM1m197WdGgyFSM0KrGOgmvDyqFBz FDzzUZbrodKDWL1SeX58337E6TRJ00fCg1xBaY8Qq798wiMEnzCe4BPaWWmS YfjntwhSvOVR+giDP19d9uiPgEqjg+1ZnfjnN53JKot4Be4+O1zEHfPh2Zuw PbVMGDh1XWFyefwCufIaaEVfboLtRD//aaKfv4vo5/90Yjqvv3YUtIHB2kIp CWm8VPRr6JqBWRtvF72SNtj5hgIlCCajZdnF28w6JIjIQBGwoxxysinPyFfF I3Rxnc4kEAPHvC1XivDzvJufnvaulBv05IW1l+D7HLtH9uc3JgzlnAunb4Am WK7+Vu+vfQu4g58OMeP+NFJpTtOCuxQE+MhGS0bk/+pVMkKvqhN6tSr8uskg rm9tlq/FljCnwuURd3a6Z+qgmSHGsH0Zg4gfq3b3ohIhwEDQIphVH9icykwZ VjEY7zTk6tuIg4B4i7MM7dZ/+YRnCD6hH8EnDCTPvrgHv79RLKsqh8PCoex7 /LZdmZHQbFlxyBH319cYpoqFjvnDfJq91ZlHBRDqnWR3azcGkxsXQzkp6CCa vP2XyK8m0CTmGlqJuYYoYq4h8bPzVuahUTh06+r2ze54NEgV3DOF+4vf1MPM emLtwL/7tE2oQRLiut8xLiJPAloqQwET2gpYlxQl28OWgK6Un1T66YWBe7OK AS2+zxIFRZ4MpT7gwK7PfgGPw0xHSweu2ZJQjEO54W7bNhhLqFW81a4JCVI3 mRhxv992hHWLe2MFONA6b+envw7O/+h8dULnG49d2x8yh0F6Nvp9fFcG5Cfv PRJVcwN+CUSqXMX3P7vmzABVWirQqZkMU9gbwA89yzL2JQyCi4J45xyTYJKq TPeqli1oEXzC7QSf8C7BJ2z/GuASi8f/q+IGYfu9o0Au+fpb3pIoCNzOp+Dc iMHvN3vo6VMCIdDYbh/p3WcQSbsjLPeLBNLTtktUzU9Bdfe1uqTvX4CTmO9w IOY76In5jvqtra1H+kdhKvtXEFyPQ3vO7PrytmkGEnlKgjmC28Gr9H585UIi 4midtXp7hQQaOp/v/JyugK3K7PR5JgnoLhOrwbAr7s/Jwd05EUPndSyL4474 w0asU24Xvs+VjjMWXNQkxHv0R//aRgdQy1p421vegR63pWc8uD5Rkz52mmWl Ci5s8RvyfaAIZ/7xR+KEPzqcZtRJMY2BzDp5Gp1PJtjta9WL19KAswxRqukL GNAN3k75xpgOE4Fsti8OP4SD1wxW9i7icTiBofNKYgrM9kq9YjlpB+UEn/Ap wSc8RPAJRQ2f9ITg90uKfUvDhHYMsCh1Vsd8jwbxLw61v6oxWHb2ybhPHwJa d9a/ps8Xglb77jfj0yTQW/+hXZ/uCIcFBcePvW0GOmLOxZCYc5kh5lwosvve 2eBxQ0xa5fkDiVhU2f/2IPvADJhUGj542dMObnJZhkMBiWhdzpTXSYgEC11U ZrShlTBCsyzjmZuA3vbvbVixx0AsqsThIL7PfVJKMvYXAmC9LcjTj6sMSoM4 7tRULCDX/uzZEpsu0CKXPhOsqQUx222mDj/CoH37zJq4TA249LcuvrVQ+usr nxO+kpzwlXu4xAZ8JjAwnGy/vcszC2Zvja0OC2hCiqvq5hx+zgvZZDvYx9Mh LkSleSe5ESReL66MwzDob1hJp9yVBrDblcn0osNfPuERgk/4jOATauVu2tST 8HiubZNR6RcLixwGO7RVYmEp+MXjkVJc16m27uvlCoOPdDd7iwyL4ftbF/mo VhJ8vHA0/0mDM7ztfFgzeLIFzhDzPk3EvE84Me8jvkz5tjhxFIQr657ufBGD fux5YC69NAPxHu+4sjbbgV76uPt1hUTEx/2bh/sECZ7mh3HZna+Cn++jzS/P JqBBiVXl/VYYbPVw3OhOwNDt/GN3vnl+AMOye2cfHi0Dyzt5Tzn9F1AVlUbX Vv1uaHnPVvCwTBu66uemGLRx/XshhoWOvxZyNuZsbTOV//pxL8KPvyb8+Bs1 xeYmPG9eTV2+yHEuG2J+O/olX7kDlhJrYuF4PNd6TH7X8WkGwIQNfyXLY6gN 73/zAd+3i2M9TaOeaXC2/ta7rBLHv3xCeoJPWEnwCe9vPPbYjj8XlCEhp1mf xIFjIuZX0hwHZDIF9ix/eImvz/vkfQsD1sXhJ3PkJXA008c5I58Eais2XBH5 r+CHw9DiwcEWKCHmnkaJuSctYu4paKSc399lFLapu7ai/mjUxKjbdoB2FpIv ipBd2tsBIqodCaxkiairaKdfFx8JFGs1ltzzq+DZmd6WtG2JKMXqTaCYGe4f D0kni+L+Wafmu0sSmz+wO1PGdp6XhT07muDW0wXEirJzwsl74Gx5vbzY2j0Y MZDZPX0Dg8q74kwD9bVQdPHVwypWVRD6p16hSdQrfuxnMHuCx231l/yk6Lxs qB0KSaR6qQWTF7aIfZrB8Hg/yWk/lgGH1rbrUAuZQuO9OK0/fbxfj1Jnhn5N g8Rw90a0xQmeE3zCHoJP2EDwCRPy5rtP4s/FFpNnsdqc8UDR1ch0xyQBpM1J 590yMficPMrO4x8OWUm2FFmjJRDJEnSXIoQEsbQOVFu2eUD4rl3u7wJawZ6Y /zpFzH8JEvNfJDnLprc3R2HumRWqE49GoXfn9HROzkLn71CvaZYOULmUp5yc lIAK/LmzuPB9Dv3pfGUfVzUgnw3uFIpE9PTpvMMtY9y/ix96wYfv8w5a4Za0 aH9oME9lBHV5oP0g//CGEgYV4WUhZ2TqwGxfCFaaoAaXVHuNJOox0KulWqfc LIRd8b7Sp9+qQrRByG/pEQx6AxSi6g/nwNYkf9dTW+8BB0+DUx4en++WbTO8 IJoJI23ir25aPYGtl9MFl+dx/UznZMYsmQ7CFHXbzmu9/MshZCc4hB0Eh7CX TvPkGfy+9CS5ep37HA9nj0xuHDuVBPvvRg7TJGJgNYE2ljkjgI/pxqGLLaXg TG25xw7Xsx3M1KLUG57A8crSyF+zDdoIHoU6waOoJXgUlT7UdhEMHeAieO+X g2wC+n1z3qCEnwSioiwWvcHzKCU8mkwkoh9d8zc3j691gW0e122lFYdQ5ymD JIvpOeTLHUH3KUAH8rY1cuhUfkKxSgMf139haDVwvwxHhybs+4c3qEHwBtEd p6jmzAmoMLx6ffftKWRR/PiZcGI2sBF9XDpEH9c80cdlSfAAf87+hwd4huAB +li6OfDecIbVmEOxNGEZ6NlFD49RfL/YWScvum/Dv0/tmtttqy/Iom7bhn+E JsQTXLIUgksWSXDJ7j1IYN7+YAEes+UdsNvTgzwk3W7+jkiEay7jTldT52Fj z2swLu5FxkEd7k3zZaA9fPRNrOAsyKnTjqnq9aGzLGrX2Wzw+HdUwP6CSA44 HJz8rsOai36YwoUnCINo12bbjuthEFb8tTyJFI1kRm8+VcJ156/k3OXNLAzt q82xbJMsRera56TPxkmBEsFDu0Xw0EwIHtq9bgXFB7fx87DfeD/NeA16fPJb cZRsNJiHFvg+24XnETFhDVu7etRkIVy4s6MQhFu8+OPCF4D+5I/Vj5pNiK49 0uNSYyu48wkURXpWwO/UiWsbe3JRr+HptF/mGKCUrNJTbGmwuTJpO8Ycj+5v qVWcwvNfRr/qga1zGLLfGRi3qJiBLOkSzH1figAHwR+jJPhjbwn+mJpyUWtc HwbTxrZdtadykD9vdXfj5wioTX5xaBU/t1EjBXHRvgXI16B3LY8zHzyettlk dtTD+8TjCa9Ls5DwN7sslYO4XjRZVondkgt9c1SidF3xaA8V/Zt7uN9u/Tk6 eOInhiSVL09ffBOOQj4Y5aruloTDBNdLi+B6mRBcr5qpL92duG6XdciVPPQ8 CL1bFv31cSAczEe0Do/hn2e/Y8+bEf4YpPGCaa9PZS6c3ct247hxIfQ/bfmt lBOPBr52Xvlahuetloa6P7z0krnJWk0bN3Si8LrLgu21v30+OUSfjzvR55PN +PCTL74eLfHxige9H2qNFVpvPqEGB2wZ6flx310q7zAnmvoancp0WFBx0IWG eLKFXfj6S6WoOufh18iS+Vdab/9/6xIsRF3iPFGXmEjZ2Z2G+z6XQ0eKsh+Z AG+IsLAS7qOPcDZcfYLrGaN9y5nFIm6Ielvv77jFPODzUVLVYMHA71bVe6eX Yagj5eD4ZdxHnyS4XmEE16uc4HrxZj0aOCdVApuRTqXWvvGI14f1IBcex4s5 LBP+1IUpivJua91Rh6Dbp7NHPov97VNKIfqUBIg+pa3NZqvPNzBoYj+hcFH5 I5Tbe2z3VlQDz6DH1wfwdbGqD/pF5wNAqiPtk0q+LoRudnT+4cQsWcbUC33z g31NSSnd+6z+1hPWiHrCOFFPGDOWu3B/DQPd/nf33TffQ9hx8fXwjgjYvhD1 yAM/h69Ule5cznwBJ+1jYngo8sB7F2nqOCsGjB/Tp39YeqI3HdOCiTRNePz5 D09siOCJORA8sY/ekfbNQ6UgwzGCvKLi0S/33N23ovFzvG/KOgrfB6NqwyvV TC+hoMviwtcZsf/ps5Im+qwQ1wmrNdzXuEpJlVsrxcPG/r1CJ2jVISbz7bWT +PV/p9bfGqMYA1G5P87udteDnZSXTcrWMRjxOZVwvzAS1uI54pxXrP7nfQQJ hN+35eZztcQ/v3oz4su2lTCg3KB7xR0XCVyWMb/LuzC4fYMjgT3TD0oU3BNC +vKAP61CbZMOA6a2gmciTnoo62ziynRaE4gRHLMFgmPGQHDMFmtKpHU5y0E0 O/UJ92g88ov2v6X7EYMJN7Enf/p71T6cDLPrfQ3l5pdkaGOu/U+fGBB9Yp/q C3ll8XzXfv9Ui4R6Goxvnte/fu4GrH/fInUJ9yMar9RYrrklgWbJmcXMIn2w XxjmKsX/r+JKDgHh+/FQ/TTboUnU5q8fP0v48XeEH0+c66FdxPX24ZJI8jy+ KHhl3u7yOCMKYnKv9nDjumjLUFfX7h2BMOiavIP/Wz5wjkXfvEOGgeQI+Ttf SiMw5W/x/vrxCyQQ/LQugp9WQ/DTZIpXPg1zVUAGh3/xQcEEZIEORJPh/tpj KKK1BdcVuS4Blp53fWBbALZrW5n43z43WaLPTYHoc7MfYRZ1wvUt+3ym/Q/X DGDUczHYl3ITBkSbBbLx/aGMzW67xJEG5KJg/P2yIYzcHxsexf+vVl825QCU BCmCH7W5hv7rl/+f569N+OWBphKnDvwcdnTtZD17KAZuMnsZx09FAxZw25q2 CY8D3enLTUPBoEl/l9Rw7jPMtzEU0Hwlgeemtkwxvx2Epkgcb7rZDBUEt82H 4LbVENw2+bMP717ZqACNq6eDPV8moBM8h5TXXDC4N6DQ54Xvw7yM3sbxY36w KOHVd/io5N8+vQqiT6+Q6NMzZJQME5nC4+Qkec/hkUyIKCbvzNS9BTVxda3y uP6U/i3GOCCWDtIHHUbmfj2EKrOHnHP4/7UsEB3j0Z4Cvg8E1qeL/9fPHib8 7OGkmrVV3C/oBryXtHkYC5Z5/Fn6orGgO/Fpp1UNBjveVyUtHQuDEC67d9SR hZDlnm5U2/tnDrEP+HVfAlM7116TlWaYI3hxqQQv7gTBi6P7oX/dMr0S6g64 beytxs9Dl98hDtyfXsjYl6uD7wN30f4uWcV34D/GbWRYJQWU//QZGhB9hmoc 0zNb8HybL1FAMVuWBQ2D30RbbtwGmm75kXBcVycKc0mlbMuA4ElVxoplI0iV uG7jhp8TLcFTZb0safBI4lzgrd7/9ZtWhN9UNxvw48f302mCYqeVShzcP1h/ ZaowDiylXyIpPL/tvLnoSL8rHLA8sd1SJ4vhhwLttcYyEpx1BR69TFc4kKtc cje0BVYITh3Tyf9w6kwJTl0VeyHNJekq+GgcVh+xkoCCBCKY1J/hvuawPrMY vg9JBp5TV/f4w/Ch1XPmwTJ/+ySB6JPcIPokg4MM5W7jfrCS03J28F42FPk9 sElzugsLRbZKuvjz4sgVbTL3JgMOC9cHUB0xAWutcHk7/P4G7tSVDgtIA54v 1lmI6cX/+MFqwg+22iuLqOL7efjxroZ5qngILvENCNNIAL8Tn56+zsL1eTWL VYlhOMTC9NmxqhLQ+6p590AcCfID/ELNBdzB1uzjgU7VVjhF8PFKCD4eH8HH u2jbJFBTUwVM9i0Yz+5E1LHvcMbrJxgoFVj68OP7oOWYURQa6g+yzG4t3+Pl /vbhfCL6cK4SfTgCz1faaHC/xuE76B/Qnw1UehMPas21oc/H6IEernNffeNG EusZQKs4ZEldZQr3EjyVwvH7G6lrdbTtRxoMbBESztL6X7/WSPi1IYY221v4 51TEb0vqjYmH9xR5/lbMSdAs/phPIAk/J/tLnx7+FQ73k7fW8WWWwuYjyYQo DxK4rwg9rL3mCYdMn5Zu7G0DOoKb94Hg5gkR3DwyQv8/IPT/HUL/C6u5UXPl NMF4G+VsBB2G0l6Ipy+HmcJNKscdXq+7QC3Rlly4dAF97PXTOEhpDIEEV2Gd 4CpkE1yFKYKfwEXwEzYJfoLgW2nUo9gO5lSPrjzhmkIdClqYS+gYSBM+4gfh Iy4QPsK5ivPBy8BpCDvpGJCyNohYqM2XbqNeUCA44WYEJ5yJ4IRvLIQ+7dGa RSnGzebcLKOI++DFftv7wVDg+JH17WIqSj/97qsnhqF7nUFP+K1d4ZDdoSGW V2nIp4DFYpyEoQYbJqfHQdrAklcxbt2SgqJlN/b84QSzCIuYhr+6AwwEfzuG 4G9fJfjbu/7xU7eI/dxT7VNG7tAGItsKx/1tSMjq5AGvMkYTsILVQ/P3umHe g7oZ819AbYuTe4MMHeBNrwq3zdQE9IbZkG+oTCH6ji8u1tYP4Eyd/psY3Wng Hqu1/JE1jhwXvS/lWeqAhPNHuS3WfbD8tvee68Q8mqzeNtX12gdkpQ6cl2eZ giXn46NCXJPIYDOr2krTAriJeToNYp6uh5in+/EPlzue4HKf9u2zt1KcgtK4 yY47sxOodZRfqIfMHZQ91gd434cAOXWddEMm7isn3ttK/y6B7IYHOW6+g7iu c34dPTOHlDJshaTrCsCMeC/kDPFeSB7ivZCf5bWH3MUHYfe9XelBvbNoM7de /NPxFvis+nqv8PseUA8oWbf0nkQ3th7vvl80CrNzv7d42xvASFdrtHR5CEpY 3Udz7Q9Pm4Q5T3p/ghvSn4dyXkahZLmz181XMTD/mtCw+ICE3ig6FmPk7cie 0Uf6Q7sl0HJ1n3qrnAXVh9XZj0xiyM1qfGtmr/JfPnY64UNjCB8aQ6yn/uNP U5trbk+dm4LRBfORy9snkcavwpk7pvdBkfCJtwmfaEr4xPiYpPrgiXlgaK0S 5LXvQ1My0a7rg7dhg8roJUX/AqjRmge7k3chi501xziENaG+8IHrNocF2GOl ILTZ3I28a6cXqs4ZA/tdVSu2RhL0tJwJO3WrBanHC4T1Hn0ILBHqdpuZC7BO xT3W0NiF9ELek70vcAR/tzMO2y5jcFGKbO9+VI/sKDweYOeeAwXxHslF4j2S JcR7JN8XKYpJ8pMAnt0aP7uvAxUvcwmmcSTAJvE+xDfE+xCpWP/zPsRyMwY7 lcskuMU83DNwog3ptPyUtKoogURug1/b9+D+vWvvQ0PLFnTfVHO3ypV2eEbw utkJXncdweteFzeUPP0CQ3yCxq+XHlehp1kZhTfDNeE+/1GatE89sG7q9SFc ZQEN5S2m5LkrgVC+WOLn433QdcWUPnRtHr01Yvx+q0EJdsoz7/qkNg3J5ZSO PdXjyPZRoFp7uNJfX7yL8MU+hC+uorrV0nANA4mKx8xLQvXIvk1t/tpvdaCI WdtF4YH77EAGuaWoSnTJTI5T4hzuC7hdLOmNMTiW9HEmkrMGFbu3th86pw/D Yo9flJRjgCmeEkr7WYwmazT9O0d0QZOFT1nJBgO2DzxRTeTV6MhNYS4wtoGS deGEP78jsBm0a2+W5SJlMxXlY1es/u6zI7HPZMQ+r+npDT3F9ey3UK4LgY4V qEbh2rn0lKi/7098SLw/0Y94f6L5mpVT3FMMbGo+1Zw4X47K57leFTB8xvPU ES8lgwWIMjhiUcPXjIZ5f34R1G6DeEaObmV7EmiE2Xvsny1D9Y/l09i+NYNV h/eN4MxuOGk6uDOHrALtGJiuJzEtAG1RxXBrZS/4kkatWk+VoaqFRoFD2fOw IGqryUI+hw7k1enQ8YygbVxPE+6elIHqnf0lJaHTYBijG1dlMo6op6tPxpxQ BvJ3yuUOd0jQZBMqmH+6HZXf5Ks/L6L4t25gQNQNTIm6AUbwwIHggd8ieOCX 9R5hgnKDYOg7qnoZilHUnTydNNIcbKqq3g9QGYK1aLazfBuf0XEtzemTqXMw MOdIl5q1gPImg4+21XehVF0S4x1uRTiakPv5yyAGVcrbq7FtuehSiRH7lXB5 kBW5niL9iwSczD8TREsz0WOG7Xl8hk2wRvDAzxI88CcEDzzeQWv+c9EwhO+s TZM+l4vcCiRu9e/H/VtUgpQP+QhMdxeuymdno9JDEoNS32fhy/VsndWiL3D0 1va2j3XpyCKlPSFhjgR0xnvW+DqboZjGhYEnIA0dtCVFfsCf/6zjnOoRrzFU ZOa2WaFfiTLG9dgj5FWhmp1Mx38/Bm7ZidZ0EZHIfP1TdrvNf+sJyf/UE8hF Vs8zJ4yA+21HY5OcDPSEfYDG9t0s1OUe3k5RNwIXdobFb3+fjlCLAVx2moVa 6/u/y8xaIOXkt+XHx9PQqDnl7vg8EhSmbv0SRNcKwjv6N6q+pKAUpfxyg0g8 LtDwzuz+iQHfueXC83XhUPSI247tmhyYLx0+ZHMIg5rAzdtrh31QctQuj47n jcBK+P0pwu/bE36//NHqGQG2UeBbK3wumpWKUhhCZJ5dn4XqB80SjUdHwYR3 4vmKVgo6se5Zu0Mavx/MigZXHFthQCyKWls9BVFHFKic9SOBSFf3Rs1EK7SF n9/npZ+MfkoUxfs7kyCqgvPjH927hy30rhiue7lWz7T7HJcDcUmyzjtsGAgs 5ky8TzFDz0KWNFkp/uvHFwk/Tk/48Ukqto/N10dB6OcWMUwqCZFlb7k1eGIW vHlSnKgVR8H02LoayS4RLfA8+e55chaMZt89cj3XBltn6sse8yajJ/atc7us SJBwz/2VgnUbFJUsF778mIQkak+lcT4mAUOUG/2tFNyXvfPVr6Aog4T3klor K3JQZsn8mJoGAwfnp0ds1+7Dw06HL17DTX/9cv8/frlAlZphUnsU3KcfzCUJ JKD7ZylZ6bhmYebxMzezW6O4X3Pb+z4rHgkFVpP28s3CGJupaGROG+QMio5r 2SYhLRIZ+Z0HJOg2M3JoGG4DtzMCDdEHkpDz3Zen2/HnOf6DWL+XLwbeobWB vL0V0HZBRT3xpgLkiLedKMOfI6HxDv2QDRtgPb8v7y725a+ffUf42WrCzx7f uWI8rzkK218+e5rWE4fC9xnJDPHi973ltuk1pVFg2+xqLnKJQ4rCRg+jT8+C NK00szVtO8TS9gwfoE1CJlm/uc6qkyAg9FM9E287CHDNqEg2JqKUh65vBJVJ sCSwZbTNAQPXNfqY7DdVYMnwuv/rPkVIT8V4tKdJwKO1n+dRoxNwZj8Os/L5 r99M/8dvWtzOeHBFahRe560tq0/GoiR61RyX87PQPnBAMU94FBIDGK0Y4mNR bvTvea6rs8Ac4yr2Tq4dDLS2zuegRLSJ+R5VlSNB25sTl5o12sEu2m9hu3si KuLkqZOXIQHvz9t5/OYY9Bm+dMkJr4an2jMsQyeVYCAp+PSlFhIYpB7Fqu+6 ws8NxS9PL/zXDzITftCE8IPnpBcvfOUdhU2HSkdanlhk2sAqcU5hFtqGpu0k WEdBSZBbrn81Bu2+GclzTGMWzv9smHrwtB0kP3DKWz9LRD0Cwe5j4rj/FPq4 PPmsHdSH9RMiryaiG5xcnrb4uks6171zDzG456gndetODXTWZMslP1EGDg9G Vr1cErieLH7BvcUdkA2p3XqhBQQIv1b+j1/7+liw/iH5KFT4VVrfdopBWVb8 CmcNZ+HlkDn7rm8j0HskW7BdPQYdt5e6ccxiFpRpIm9verTDNWYQ2MeXiF49 dvmkdpUEa+8r5/Rc2+F+EQNNz7cE9G0k3EdBjAR7LC4X6tzHoDHvQGTEdA1U Dr6m1e5VAZUs60wrPE60h4uhu1UeYJ8Yh0n1twI94acCCT8lSPipF1vDE/Z2 jkDy+W/vLk9Go0bD6d1GbrNw5r2lhXD5CEws6Xy5WBSNSCM8aqf8Z0Elfb/b qm875FxYuXijNQGdMu52lBYlwWdJMs+br9qB36S2c/l9AupsYxyxxK/zpnCk 9avMEUjYWcC/6hyN0r986GwPnYXP+keXSklVIHtgiUqaOhG5Xwn43mKCQXfP LRHfE9XQcOQNm+73BFS2EFv93Qj3z5spnOcvVoM5o0PfQXx9Nw+dtw6+XuBA GZx53gV91eT8+BL3NTsiepp47B/B5M/Xv20NRoDNIsE4r2cW3Tl0wTyRxgBm fk9R2twcBzPPW/OdGdNofIo7vJfHCrRp3iW9oZgEr983A/LOTCGzcnMa0W4P MCH0/wKh/08R+p9B3vrgIvc4orwkwp3WO40oLUWKLUnXAZvxWTqq8RlejzE+ 39+Coe9Zyds7nZXhPc/lNS88f2b+PDzP9HsY1UUFV8qe0QYbr4P2/UHzkBHn bEcW148CYnnvjzaYgOj1MxEZagsQc9Qz5LN3D4qsMTB67/7if96fXk7oXjbU mdPZNYUEBpekM25MoHzfsr2RsVJAls7RylRKAoffq/r9KS3o7ljIHfmUmxDM dzqd7xQGvePX33yIbkBKNk93S2oaQOybd0/q7+E6LYH83d7ttag8y2qf7H7b v7rOldB12wldZ03o4b2EHq4m9HDRtAhL70gPfMpX/r26pxy9vKsSQjs8DzE6 SXTBvRiqOi409dk4D3noc2Qcv3Id6mjeba0KJAH/aNVnH71SxKGQS+3l2Qxf Cb10gdBLGoReUlMuy5bYNQRSEfo2TMxF6FZkC+uP4jl4RCt5ovon/txw8/eb 8WegKxkC2w3TmmCd0Dkn/9E5XQ6/z4kbNINddtq5Qs50xOoZ/O5CHwk61cIr KZlx3+H9ULd8PhzRut/JPzHzXx0S848OiTWbQXeKRkB/hjZTc08GMt+0stZz n4Xlgj0lOnUtsH9CleyVXSoa0qhz+5VEAqdDMzyGPzB0yOMyi9hEBJTK6/Ze j74Bh58OTUyzYqDCV554LvotSp/4KPJ8s/Hv7whj//yOENR3Yq7t0CjUB+rm DS6lIA0GPn1W2VlovNthZJfXCjfqttsVfklGffTbvPg8SXC1fPvOtScYEtr6 W5XzczUYNj6kkw/XAIrD017VDBiwz36iT/pijO4f5Y366PdfnYD9U7cnE31x cAPXA9eMHZN6OhNRppKboSuuE44XXzuzptkGqdHTm4ndSej5RbEqPzMS7OzZ R05eQUJnikmH7ANbQFtCklTApAlMIb+VGrZhUB+z+2V6lj6EuIzP9Zn/t07e 80/eZ7nQnq50dxTOKo0ZBs/Ho4VvH79yceNxrcCd41BTG7wtvdryHdctstX6 Fwu0SVCp2PMj6goJHRofL0qeagfmlROur4JvQ2OMVvzaNzyeewzTn2qzhf3H ZFfbr/63Lu33T106tcz4ybYbo6An08OymBiHrB8fPGN7fBbkd/vv3MXRDs1u Lt9p5xNRhYb+/LwKngcnDtCxTywg27N5L3naO6E8YOCpmfZdSO2necc2SIKT b7nOwaITUEUcUlUe+G9eTvsnLzOZeD2tER2F6BXd/oTKWDRrL6d/+PIsOBrP zHiqtsOSWqdBfmQiKkyVbGGSJYH3D2zaN2EBNbgzpG353QXzXU+XZgS1IaVL XfNFFQkG5YN+78bz7Klgw0Z3l//Ns/9fdxX0jXyrjp+rWU737sc0sehR9VCI p8osULJfar+C581X/CPifHcSUZuhLaUjnjfLJcitNV7i/nbd4pV7YTeI9ieR ndO4B8Xp+83O4Oc9OGKH9/kFN/Cxi5x5caEVThN5s/SfvJk7eHf7/I8RUDRM ObjfKAZ95KiwZzCZhY2jfhFR7u3Qcs0ytYsmEUnQXumLw/PjTH6yprn+Aird d1uaRqQHwveVBPqH6sBARbPCQS8SKG3JFmOn9IRby/XvpNb+mwc//psHe32o 2hpGwICqSu5FSzRa2UWRm/l2FvIsbe7/etMOGm2vjx7ITkANuebdF/HvlVU4 Pu613o/G6da3qbvNIyW/7K6l77pgOKAkSvt6DnKGt9lkNw8iJWExuvt7KsGR RbHp/osZiPr5nUVvoR+dbebeJx/RA0fER3jKzs8htzyX58nNw4jLw6jIJ/It jPrcvL/BOwgXCyyuB/ZOoAONyTODfSOg/LuCxRvGYMdG5UvGvDEktc/LK+fa MChyOTAvhZHQMY8PUflurYjV+OG1fANtGBSJnq97hyHRn4vkfZEVSMNFKqqI URaeE3GbmojbVUTcXiTmEfSJeYQHxDyCU9/V8vYcEuymWB0IOliCogJvJF7e 3Qw7fjIepGknwSe7MpUrDz8jNUfzXBfLL7BIxO0zRNy+ScTt/+//1yf6/5mJ /v+xQwWx6VQY3BqbPfCmIA0ZfDuyMre1CZ5xxAvdxONSlHy5UcJ+/LlWZWzn rWv8G895iXhuSsTz/++HtyP64fmIfvhm/h1Kt5mG0Z0sSpXLc7PI0q6dSci0 Ftam6aWXe6ZRndCEzhvSGMqnrg24fiwP4v+pl14h6qXXppU/ej8aAhFvb6HK 4TlUudESdVraEG4S9eTfRD25mKgnLxH1ZA6inrxE1JNzzgpxjeWVgvaAzeGb qRh6Ejo7x8TqD0pxeVdfR3bA6x8cRizsJKS8mMf4KdcX3ll66Z6XGgcoTui+ haZR5m5e/iD719AdGnPsMN8wRDzx42sJmkNSN9uzX9B6g5HJf+aeGIi5p3pi 7mmGqJd+JuqlKUS9dOCmw4BjTTl+rge4ojQxZDTlfCqUrQQMDz67oXKjGyRD Er6l6CygRfuiBwqHC+EhoYsWCV10ltBFOwz+8/mZxOdHEZ+fJe/i8MxhAVHf /Pntc1M3Eo+Q/2pZ8AR+DkfZXREgIRqTgOn0Ex0IrSp1Sm0zgrjg1o/UspMg LywTlJUzgpx2SOkECA3AvHD/atllDL3OZt57Mrseyei8vM75QgVa/PTOKlti 6JtZ0dfLd6vR40GrGK7jSjCmVdUym1CJnMvMX0vcnkYjQvulOinHwdn8t3cO 7hveVz1yXjg3iuwMKB4FFGmDGsHLlSd4ucoEL1eTWBcn1qWJ9eOkO+dP642A bG5lxJHGcdSANUdW/8LP21GRBdZ5ErzdZbtLTCMXbRF67cPQ2ASBPoV+hiz4 Oc8usqULikXM81suv/FtBJIHWUrHIQw+0xmrR/j7I8UV9pcsj/47j3Dyn3mE ZXJWVL4fA68mh2PfKp+ju8wH1C71N/7tqz/5T1/9CqM47Ud6DMTV5Lhu2yiC 8/cTPGGxTXDpS1IV21YMrClcV/eYP4MhvXMJl5O+gPrePax6CyTQOOe1QzPx BfBU0OUcMGoGmkvJcuOdJEgz0z46+s4FXB+umlPQt8DjLEXtjCISjDZmRTfo uoHms40NubIWqBjdzMvmmkKRTRxPyDon0D46URq/LZ9Bq4NV7OrYAvruR00V ONCJ5LyS9kRGPYauXE/zd6O4/vkm3hOSlI1obatcCu+qgjE7rxzfIgaMkzek +utS0NnbRwW2UatCB5mixcY0BpRSt+MQbyaaop5pv57+ABJ82V1kfmBQwZAo 2kwfidhoLB42CTwA7jYRatVZDBwi4y9jrzNQoeXJX9qvn0F36sMYk40/vwsn 0Yasf0DK74209zVa/q1P3ibqk95EffLJxPTv5CkM3NJiSuf109EVoZEb9o4R f/tqhIi+GkGir8ZUakj9YDUGzq2TG0a+6fhz4Udt/TQPVoh4e4uIt/eIeHuL iJPq/8xJrfJq79D6w1P1uEfDov8OzHbyPl0Yk4aH5pcCREpzoKd7z3WbIQxd 3rkQf6LLHKK3G5jdXwmGnGXZD2f4Seh5CtvJftEOuEfwJ20J/uRJgj/pRqxb Eus8xHrXWj/FlpIAEGN17TZJnEKyR5dtw1wm4NH3nbfSrhVDVkP3jY9tU2hA Fy6sbZ8AY4I/+YLgT6oR/Mko5iJ/ircz4BrwouPJ1THUPd8Xd0fYHGhC2gXe l89C1DtXy0z3EfTU9iVKvOACx4jffVSI333aid99SgiOogTBUVQhOIoZFxx3 K7fNw0d+qZajtX1I5J6AqdghJzh8olvnvTuuJ/lLfu6UG0bzFKaKnOglFGaL 32DFfYOmUzGDQdQQis4N2s7KmAbH5Fq8zdqmgZqkkJy8exzRGrQa3dybCcKj qrR507Pg4RXoduT0CPJ9roORJ6TBNsKX/SR8WSXhy8qI67xKXKc8cZ06Ibo3 GgKmQHdlTuiG5zD63F4kTd3RB8bEPOwAMQ87SMzDKv3zPtP/79/LzglRZLRY gL0VNXHCW3rQg7iGQ0f7NCGUmN8MIuY3l4j5zV+DXE/D5UiwpU/RvNO/HUmo KR+LUXsE37H6N5RpJHj4UH3Lw0OtqN/1MxX3VXuQz/ph5lSJIRvNy+ka7sVo YDV3zHjsGmiMKc+Wd2HI7pvstfM38lEHbcjOJYf/o+u947n8/j/gKCkNkVE+ FSGRohIKeSEh2StCRUZlZWZXRjYZWSnK3ntkHTOrYc/svd5XpFDhvj6/rm/3 4/5+H/e/L1dX532uc17P52s8z7kCtfF0xe4PO0E1cv/P3yokNCpZcP6nvTIM xZc8efADQ+eT5fISqlOQ8Gu2bQre0nAzgpFn8DMG07X8hQy56QhrWDt2iKwE pH/wzSvi63xce0p/qS4MkrxGB0VFZcF9j40uP25/zXPMzsHwBej9YimsE5OD JXNmSzPcvuP1VxfB/WHwKmuHZaieOCRSS5kb/dv/XHPyRYEQ/p6HURsaCeLw 9gLXweTSFyhfbJCCGf+78WDjwKkcYzhA9Is+IPpF14l+UXVCr0oi9KoZhF41 dM+tLifyERAv1rtKVTiPIqZ5XOr8lWFWPuOz/cIY8DdGmu79NIsWx3q/NpUp A8uofom22Sis9TmcjeyeQ4+Tkp2uxSrDt8OtKbJvJ/F4LKVIOGwaUX58666Q oAwBPdEhxWfn4FdgG82a/hhyv68pEndHGUa87aYsuBbA9M6BUB6DIdS8/vXV QxplMC89PHxQDOefup8xv/cj6LOeYAqNiDJkq+ja1Y1gqJPFpOK0ehEKrdEq db0pDqKmThwTGIa2Sphd6vbkoOSFvo9lD0VhOaml8Nl3DP0sfSYeM5qKyqt6 PaYNL0PV7kcnKeswmMjTW9ozX4n8Tx6+9PagOviwiTPLDGDAuQY7S/lK0Pvo GdULrIbQn1JY92UCgyG6ZUynrgBF7L12bujDo79+VZ/wq8GEX1X8R43Tsu0L HN17XOdjYRV64UhmMXdlARbU7+8WEh2ENzvnX/vtrkJft2pIvDwLUKXNayNw cwR+tNVUSxq9Q89iD98KUpkHlnCLrdKHI3CGcXJMyKsE7aHvErwkM/+3r7L5 v/oqjfimsm2mMBi/oBa7g68AfSv9ZC+3rgDNlXSnc3DcOfQqkdsdstCu0ylG znLyYPninWAK/p6ftjMdrR4hKJpD2jm+Ru5vv2Lqf/UrptyM6H65igHH1Qq1 Ea5k0DklULQULQ8NJs1Pyb9jkPHQmZ7fLQ20yvh2SQnKgbGqg1TuLAZvpiTF 20by4NvYNomLjHJ/+wCdiT5AGaIPMHtPmutiCwYsLrnxim3l4KH/O/eHvzwc KPO4wf0Bg69176nFqsrB4dzv8WOqclDBYcCqWoWBtmL6+KEBBK/F9leSO8n9 7a/7QPTXiRL9dUM3dHcdiMcg783Gev2lWqAx2bqRY6gA17NeytQlY/BRnM5U trwGHEvsKbxE5aHwktiJE7E436ixHeyOrYWxHfQUeyLk/6dvTZ7oW7tta7Q6 54kB3a2zlxe2vwfbrJEB0yFF2PnudhhVIAaXxlK8/KTqIZGW+fKBMgWwojDn FvfGID/rbBrLp3pQ6138mSig+D/9YGVEP1iSUHWOrhUGe92DNjryGuB3xeCl g9NKcGCIu6/RGYOLEto/5dreA3exx30HFSXwXqezmrHH4KTImqEYRwOQzhpe 2/9a6X/6rIyJPqts14IjbIYYrNxOrLlc3wijRU4G/NQqsO4jpbPfEoPag3o7 gz81wJTWYNsDG2UQ/KfvlaY5BmozfPP+lI1Aw8ih39+i/D/9S7+J/iX9GDL+ d9oY2BWIagg9bYIdZ28t7tNXhXyF03cS72EgtfeucYpLI4iXv3xRWKkChfuL cl4aYfCCY5pdNbkRmJf1Xc4eV4VGken6yF0LKIbqsK9q/xCyXXlz/5u0NzR9 jzK/0EtCV5Ywxh6qNuTPMahzLkUX8v38WK2/vYXoIXJVvZ8YGpU5kHfLQA2K jtVpbv7CkHDXLOM3sjgUtGcSQ/OS8Os2iU0O96f33RyL0GAY6r7ls0fsrSQE JNzzCMHjqHallqL+cQ/URb8j/EXNFfAVZzJZwu322Xav93OYI7/4OKn0wivQ j02sTW1h0FQj5PAsxxpCrzcxxYXJwc9lRpoPXzCY+VgcNz14Dfh7nwT0FhRD c3eooBJupzoUYnwpwhb3F5FvajuLob/vaOS/554tSxUH5sTfBY0Pxmh3wRW4 Ecn1699zpSxdS8UcPjuA8fTIMnXTFYg6bnhQcRSDDTLyCmU2nE9VDIWunpCD 3E0Ft734ukoOvzuecSEQnN48O3hfpQQuNjYOrvRiMJfn1+VRFAz3gsYsHwWX gAGTIsO/58IFxPjt3aPlAXVWDL/eykhCbVF+hB5uV/wsyxzF5gPnLy6EXbaW hE+notkSSzAwPKSsYDFQBROvIw8G5MsBOi8TM9SFATnJ+P55tQi4O/F9gXTl HWha0/f44utk6LvmoaW+SDj2Kj/5XMQ7kFhCduz/3tPZ5qSkHh0AL8vNr3dK X4Uxj+ak1X/P+/IXYn8u+hwU9yf+qHl6FVwoWJaSojA4amBs9oi7DoRm4xXv LMqDyyjPUcY2DDTY45LLBGIgx8ZK8ZV5KTzLUNz2EsfrGAlLs+tsr2DBkpcN WkvBLyR2tAl/vxLX9DOTyGBIb7tfUh0mBXXpRjRpuP3TEa+ftI4hsHo+m7+u H7e78w/6e2DAf8PE7xTbe3jHxFDfHa8ICqyCKZ24H/u9d+xdgkQsPL7sPcJf VwZ7oldv8DZj8PAr2T3bgVhgaeT2Yz5XDmme0da++PvFn1772qEYCqU6QxuP WWTgtfZgoQ1u7zrjp1o3GAq6Tw/k/3woA2wkpot37TA4r/jVolWnAY5uUm3y DSnB6oDr1s73GDDEmNa3JcVBjQjp1q3LFRDQr2RxHse7wif9Oyy/xMHzYmWy nQUV4G80VOBrikE2Q8+Ts2ca4X4oV2g6ncr/9N2JE313/kyzD53UMJCNSkMH 9zfDm44DevGDauBe8JNLAPcbtfd2cxbXNsKkwet7D61UobtX481RfQyUyrTL ecibICf2ddkErxrMU969b3kHg6hTO36nszXBp5LEYfVXuP1VPv8VPQzSj/W5 XTvYBNXW55PnDdXgFHGelQlxnpU3cZ5VWHmJps72aaDeNXqVU2QKuVoHi3sk KoPw19ysdw4kOHmsKw15dKDflzb3xy4ogQOvR6fHxUXQuBPH6s7Qj9qEE713 litB1zcJn6gvuP1sTkjkth50jb+tUNhFCZ7V/Z6VPTACcqUud3SNS1G6qP+y s+M8sKqbpl0ZJ4HrDel2qtJW9IjM+eww7uelXuYry1pgEOHkFNj4rQG56js8 759SgFW/71qHL+Dz/CiHWlPvA2L4dlGcVlsRDIQLsmxTMGC3jhVzT61Br9F1 j2f3FICi+NeTH40YYNl3AitiK1C3n4OK0y95mKioqKV8MAq2+12dNn/ko4Xp X3e2lc2BAx2WvCUyCpR2alf0kwuQn9/ub1Tdc6B59nSpoG0dbEU3dWWHY4hL 2066jUYFPD9maB+3+QBryRnqlHwYigl1e5sVpwyGJL/aPuZG0M49WM9jhiGx 5A5n90ploJ3nb6+x+QxbXCsrLXINyDpwePTJIxJcWVn/vnujHbjvhI/GP3yP PE1r1XioSKBG9AdaEP2BB4n+wPPfZDnTHrbB+X0xacsXG5A8XU/1CxES3CCe NyGepyGeV/ive2PzCL5qxKI3YzU+Alef/NjHZFKEkqg7c1l2z8MS7yib/b/3 uJ211po7V4AqW7VP7hgTAwXifBt+4nybA8T5NlNMkQd1WEdB8NzCijdHIYrd LMz1mZyDboa6NaG1bFj4vH13pdF7xBMudUUdx799ua5xPQZVcFjG69WcegOK tP4dRH8eg4LcnZnlPxvg2RlaTpPNBuTLcsyJfoAEAbU6DmM5zbCLTlgmx60B LV4i69CuIIHtzfHqdsqHlVsomOqVC1bxdevP+brzDejW+3OfQIH0TLUTD5Uo 8u766GwjAdTVUJXTF8LlE5Ga4nXvkKcOuatpKQbKp8cnrxi+gjLN5sHLu5OQ vqVKKiXOw1r2brPD1Ooq59+3BC2wlFdeMP7zfunNy+TWznUwbaw3qaFeiqQ9 BSxuP8CA2uwUjU9SJow+u3xIQTsVsWnvyeLBea3H7fWlPSwRQHfus4NuegzK +3WlP+8nBs9aBtre3J+qjPQ6qKf+YFx0WGL5/94venh/atkKCXh7G5pPnmlF cpca7oVVB0MN77jdrW0YuGlbS9lQf0aerfOmakOp0OBePGGUTAIrTF/3CM9n pFO34bRsUgvHpGOtzlR9gNvHdGPf3y5B5pEJ4Y67MGi7xM8pmlAI4lGXMs2C 09D+dVmVKJzHGHteinfyeAOOSxxUMhlxKN1u9NrADwwEifsaWP7rvgbK5JvH Tp3BgDdwtUCs/wMaSDihG0+hApb+d4pv+ON8VdLAQtm8Hn0sU1rrWteD7r7v N7OyMHigtpos9LMa8ZsLUb7bsAWygMyj42UYODofO8qoW4XsvdhPx5wIBFMF s+HwYgzCPx4IxfZXob2e3JmuDElw2HzH28yH+Pw1mw1x7atG9cEha7kpVaCv cG14xbENjrRs5E6/KERSt3qGeNNIeLyx1pSqUwauktfmEuLTkEBsYd9sPY5z KY+ivy8nQS/rZfZW5beoKX2E0WMZj2cquMui8DhI9urjD1lnc9D2vuWK6bsC sGngVHxouqNyj7H1oXcTA5U993/93zzkO8ac2ML5m69ppeb6Ou6vOBm1N2pk QCk2ssQXx+u0GVnyB5SlaGftfntdCiWYMGORWJ/D46MjgwJZKnlor6i3x8CV O6D7avT1Lzy+qG419znVlYkadsg4srLbAOLm4rT/ho8roji4+mE60mR7rZHb 5geF9xhi7BcwyD1c/EP5cwZKP+HymsUmASID73Y/yscAPf99vywhB5k3LF+V yKkEWqq2RLWZRTArOzzIc7wInb52x+AlXTcsFC9u2ld2QL7Syerw5Tx0i36m 7qMmCdIY2A++XEIQMpE276SdhmBWZ2BnIY6XJ0aM1QrTgVf6KZV5UDzqjmHy JCNhIKObQU/xG0MZrnGGonOx6Px9+3iBCxegOnu9bsV3vnL7atj349NvK7eY V/5v3k6b0+VtYhjEawwwNP3ORh39/L6tP6Xgi7+9/aENPC6z4y4sgJdIc8FF FCkrgO16jSMP/u/8NXZz8Gb7o5/JAd/LL98GbUnp9EDcXnbfalN3wQ2tB9G5 HfewBn3hcoFZPC4b77y8ddjbHf1j9kSqgN4PHoloq7avYUByuiBBYReEbM04 9PZg8bB1OWbqCI7vEb76ZZfHX6FsDWMd9l8VUNAzszPyHxKMnb1bl7Q3HSnN 9Dr7POiCieoNU6XjU1BgHc9veTgftW4wKPhsTMFMxemQAd4uCKnmiT9Hn4tK d6culh8jAfNJ0vF9DdUQZXR9KJY9DQl+lLFqTcTns6s82aMjG8ejvDOM0Qno KNaT74bHexo5c8L+OH8bc3LZ+8LNE5Uwq5aTG/BBVJT7zea8+cobShy6Yd+r Kq+Xffu/+eQ/NZR4fQVDa+eLjrGpp6N+gcDDHC53oXH4Spks/ncD0iHKjXFf YNZIZD0hIwXUD+YEIv49b4dn9b7FWgj89gntuvNdHuTS5CUBtys3iV2OZXwB jWb99Z/P3Ya0iKOporh9971vASqxYUC/V+FAWJQ1KE2zCTPj9uIzUewt3MFA NW+ZJyXpBw73jlPfXcfg+LrHlSt33SD4pr7bzb0JcH7qyjnHBgxaT7DfDdGx R0/vX+O6j8+z7IGqJLtTJNj3USSWNSoOmcTtbZER7wKN+NNaZ+2mQDTwwGo+ KQuZRnJKFRVOwVe+sI4d3N1A885L1yU5GxWT7Qw9vbIIdYVJ8Ja/Fj4wjR01 PpqGLmvOnXgYiccJzmXMFwpyQfyGwMta30QUijRfHp3EIPD7ze1r+Dwv2R/j eOtoBE0FArp1N/mg6pD6zkNdnypjcsZvcTtGVm478Mf/M1O2WYyUNlZy8rPy p6t4iYYZ/bE7icRtWVzE0ObkvRoOug9w2pnTKsfFENoDd+7pwPf1XNuV7DWm LNDzuXZjUE0KgmoqT+it4vG+J72ghGMyDN3+EnjORgFONggw3MfjeqGT8+SG wdlAW+JvJxqhCLS7ma2n8XXrINiboSKTCLK76LRJi7eB+4b4T84VDEJeXvQ1 f5wOr/UEGgbi7oCi7bmO7TjOxKw9OvfROB52Ofp+vHTcBprVvCT1cb8+7hnz Sj41BZaD0q+2btn81f1xErq/cEL3JyF/T4UC/3/9hqNpePUSQb9mre6MQADU f/hw5Cg+/vJMPTtOrkjYipyjnwhIAK6XqzmZ+HgGpn8pbdyJg5P+v6U9tRLB 7XOBAj/ud+1+a/z0fe8KXc381jsCKyGa4e3HKg4SvAxWked1D0PKKqaMokZd MBtTu3k8cgrGfY5/59BJQ2Rd/e4VUVMQFCLarN7dDRZDZrmFu7KQtecD8Zdd i0B2lr3jqW4dFAkb+buKpiHRm/0fK3AcomJcKD90vR4sviZNz9qloUfOabeQ GwauKg0N4jL58FMmdkLwXhLyiaFIGhjB9/+TwEbajAJYr8pcR2eS0dW0qMvt eDxZW+2nXfq9s/L+HiYu6xirymiZzf/77vbDRwybcH+u8YqT9/O9PKB43CCY HqgEtPX1nKb4d6Qc0Rax8M2GxhjvFiMHPbhb/s7TH/fnu+Wi/hGgz4CdU5+d gc4OostFmP7VIXKr8ikEmKZAGC3N6bG0QHCjV4+yw3GJsadTsIk7HpLYbFYc lZPgylWpjbmD76FCVmWfZ14aevC5OnTGAd+3XqtVqlgh3JUP3a36JRntXteL /YrHpScG1Tsqf7VUBha89ql9YlnJJfJn3Q5f8H8bN4UBH036fp/jBWCQrb9L yFEZ3Ec2n2YuYmDCNIsJM+Xi8aVsVIW9Pmx7svDwEb6etR0kLSQ1s+De19Xk CvVHUHBy99Ae/Lsf2HAILniYBqafH9ecPv0cMJO0tKf4POiopHS370gE36mL VxzMksHLPktsqPI9YIkPVoJm0tBztxnaY1YYSB5df32JsRhaz4ynt1qmoOSb JG0hHEdvlXFdrmaoq5SKSkm80mhTSfbyz/gVTu5gezOOwWiKdDvZtUI4J69n 3uitAhvUZP658xjkZakIT2zLgxuGY4UC0XfB/eL62jKOO6GVxiUZY9nwO733 GjuyB8OXOkVV+DxnFbd1fW1LB9cSu7jpf4LBq6CyowTHt4bh7b/7ZJJwf9e5 yyUlBVSOXBaiUm6Akz9p2cNo05GwYeFNGRN8X/XrFuieLAF9E7LQwMUUpEtm fj8Pj59HP8iTow0MlZR0WTHuiITjNfJUPvIXwWVOUqrte32l2lb47+dhlpW6 Xn9+1/peH+eoSgzoWoX3XWCvgof+OeOlZ+Twffg6z3IUgzpWZtEQhiJ4tc4v r16sCk9+X2ATxtch1tPsGhOfBwa8fJZmAwbA5EvN1oqPX+eyYCO1aw7Y9Bxc H5F3BMT19UwZ/h2va2o/pWvNgKmv5wumWEOAS3TwKxn+3QNjJzjzzyeD4qHo vU1bqWDXHnB8JgmDvfdMz18yigG9zSb7oy41sKzyje1x2iKMLd6+r9KhiVZd qZ+abPZAwlGP+j2Hp8A7guVqdv1bdLzTdN3+6DTkaTJzvV/vgcMH3U3aadJR id6KFEPsInxa1NTZ9akBBKd2yraeTkc36IZs1fF4eERyn44o6zt4LOKdNaSY ivTXn97T/oSBS4Vzqj8+n6ym+0kJVFHwPFq4Rnf4EhR3tNY+/VhdWWcqwhdl biBamfNnPo9Yp2ITON+vLrtJxxlRBTJ1piGd2xUgJ93mc9MwBuJcJlMmmUVg uijilLBDHWSHC2XwpQ+H+/afkT+aD4rq5IcjhI3AJYquZg6fn8dH1+SxmRxY 3H5i3zkyZ+htU9n49xwwh6YmCcnQTKCU6N0IEwuF0nc8RVL4OqSJufmTfzoZ 1MZH+M5YpcPMYsBXt9cY1Fw7cxaLfwWRPPOyvBq14FlsVvzw2SJEnaMwbbIV QjNkp0sGMnuhjutpRfDUJLBvsziQx/UWCcaYy32Un4ZBf/+rx3/1wLBU+AvX gjQkczS4kh2fz1Xt/Endi40wl6sdVsmfjsQN2Ggu3sG/X/yvz1m7S+Hza+Uf sVGpKOoNpYdgCwax3kUHjPH5VK1UCehviIL3aVcm70QKA9BVxJhuTCPpf5go Nc5Mwo8X8QrXms2g6cz85grOz9fMf7Ue/IqvT36X4aXtSiA/naFvO4RBv51S TwVbMdgV+ORVPNSARzO7WM/g8dBq4Hh/n2s+mNn3t1OXGUNXyyUvLnw+V2jO ix0Ry4VqpxaKV30ugKYKWA/h83l4ga706YUsIJOkbThtGwYxErrxtvh3Ec/5 eOuMSwq8z0yx9d3KgIigV6D4AoOS+Mx5l7zXcOk737F5oTrw/CLTfef2IvwU /ibtvSEGF1nI2d8Y9gEf/TZLp+xJ6IpNLZx7+QZ95aiu9Hg6DQXsAf4USz1w q6WoiVY1DTkGTXJ6vVmEVM+B+KngRuDiN1PiPZOO0p3O3ZrUxuMfGDjUM1wK 1w5pJdR9SEVNlg6XrjbifODFA9sdj76g3ad584+nLqBB9ZN3G1t1oL7jcA8F BwLyK20bzLUYes2dw5D0RRNSaKaTp0374czkBy2aE4vo6YSt1o43+hDM3JKb 6DMKnStnPu+pm0MjR8jkfTOtYOVlVl9C8zjwVBqIx7DPoidGl5lojJ/B9rh3 1w9R4/H+b0tanYMziMrJXaGF8TUEGQpQNEZMgn/AmAWl9BT6WND+Ykb7M5T6 CR2pcB8Fem+vs7JSY8hYPtCiJ3Qcsp5s/XRwaQWmPTSn+EjtaITan8HIYhHU BaKc35wpBvF/Srbda61Av886vLuD+wVxim5xy8hXoCY+dZD5Wir65MTQE4r7 07uDL8YEa7xg4byhhPGZSKRuzSBwCuf3nFY0KVdvT8GvXWzsl0anUM+wPs3I kCZozRqvWIrMAdWXAwbcKmNIouGy9TMBY6DunX4S3jgPEXlqKSJVw6g96ejD vfOOcOz2mZnMZwsAGeFPan5+QcYLvptPGoPhwl7OSH7hOci00DtgfrUPVTek 9DoF9MNnml1eNwubwW/yZ4H+QBVKpDarLSTHIEzIR2C4PA/CWhJ5tpnnINKQ UwljH+7PK2Z7n96MAZlsZ8ow9jdotj8z7grOhxrTlJoSji7AwZefdpcHDSFu 6ewTp+RVIP+yQfAoHQmK1L06Hnd0oUauzOpRijtw0eZ5785iEhSoHXL88K0N fbMpixcUx79jWEHb698kWDb+p1t7/jMyHrq/jP3yghQSSJAzdsGL4Kv83ORV aErsO5JeXoRZh+6r4wZVwDkjXOInloecPLfpuCVj0F1dzOogngpo4VHIXEMC ykgJ6ZDEce7rngCJc04YgNPb3yIr75Gp9QsaexZNcEl7HxyTgcHNkEw5SYEa xMWep7Gf1QTqsz5c3F+Fx93tE9uqehHid2A4XVjyFFat3din8wbAX9Tdj9Wx DB2p/PTkccICTOe9pf32pgEmXh+rK7uah35ym6lN6+L49LjTH+XkQeVJbp+E lSR0VeVT2giOW2IVwX5PCkvAJul6xw2eFOQd0X4vuBWPkwXy6AxxP+1K2ep8 z80DKbZmBK4LOIMld/tj8weVUG/5+8nqrxSkOSWheqIcg0TifAxn4nyMWOJ8 jDu/5Vm55kkoLIL8uODjVuCMmnh3aEQHvNX4YhQG8H1pd6W6iK8E8rlGTkTN SAP7EDA/xOeJg9bwYqNkDrylvuFEPikPSdzfmha+/XseDtP9t/XpYLaj/zcP 9234pNbxXBDnz9hAd4LmZArsPx6PaJ2sQaBVzG8O58PO5fuZSosT4cOGzKb3 qi+ctTaoyviA83zmPXw7r4fAkuebMjPRcohu3UVDbU2CcON9vDWbTxG3ao/y qYwOcDupwHVvcRpYSlYerpUlIotYnTS9C5NwXanP/e6PPpgzL3wnsZSBvsr5 jGicW4TsAGGmtN4GmJowfzdISkPpKq5oN46bd7J6IqN0iqH8yejnF2nJSCev 8eFOnEedXQ12U6nCkLWyOIX8AIKpe9IXmT/KgAFxj9ICcY9SJ3GPUqBWeOK/ /S1T0SsLq4U4X6457ujgKQ+S+5htNPB5WxEw6dtSxHmFSIS+bOAtaAsch3l8 3zefcPni1JEBLnSUHvbjVqBbbGmgg/Nb/msPByaupEJKH/es9Q8fUB0/5UVX SILIJytHrq/sQEt3rj3OJGuHly2CPxgOzoJ3x++c3II36G4jNJT0jYPq/uOp Qi1fYK8/mYRXQToKfn12MAHf/9uaT+VhPC3gnH+jyU0/HcXxXwthvYTBZSqP 5XqrMti9HDPqmpmCzh+d38eHx593fVn3J+B8/7Ftyg/vO0UQyc+g9o5PHs5T zry4heO1iV3MtliOPFgQPnU6aUkX0HwYDx+OR5NkO8Lf5WeDXL7eJS0JKzhB yXxNEl8ny0EFM/Z96fBIK1lTeswbbubNvDegmQP2CzMH9WVjkIUXi8O4zxgY cLen3roxDG3PRSb8jXHeG2UVsdE3D9MC/UxjWp+AbKcI1VZiOprdwUVLQ4WB UY1l3YYjgt2u7+xDnFKRBI+MWiSOu/+pb9YQ9c1aor5pH2RUvYZ/L/LCJ+aP wvMhisWIUVtYFxhEfp38geMs3QNB36SlHBB9r/H1tJcl7M1dLPDHeeC7W9LZ 59oyYVuYwlVI9IJJ88rloM8j0N+k8jScOhXlMrx2/MUzDyJXRj4KprdCM4vF QzGUjvslQ+WPvSR4O1gfoVtYDYzHjvwu+AdfhxvKVnY4Lvzn3Ili4tyJQeLc ibMs21RpFjDY1rTDhastFzwv7LqmkfgQHseHXD+Mz7P9cR6pa0bZcO1LVPAy zzOQvFksYPiqFt5R3BR+GZyGutJyvtGGYVDZuIu/Dee3r6VcfpXezoFhrYu2 jyw94OheffJKq3roojTJ5RpJQ4I1ljtKnmBQqugYtDWBIbOeOldmyEKnrBm1 iv89N/Ge4nJcwyJKfG1Od8e0B9Xc2x2TSyYBh99x88qtYejmzoiqMM4kxHXm avTVLQOwvZg5XepGQtIrEQJsZ9rR5D2n93WL78DMsoKO13kS0R75ZPejaBqN Wb+pflF7G16nU17N+d6JkM3z4EsiJHTh4Nj+zSoNsLRJEfetqYPi45E3vEIx ZJd83Kr8gBb0Lzt6HY4bgDUR6b6ngwtIeujCwLvvd0HPdXfzj95RUKV/IW0Q NIcof/TsH4q3gW02Wn6Tq+NwUalb7Pm2WcTHyivCesEHylhR+geuSVj6aHPE /ec0ot/+bVPo6Bs4knFzbrhyEhY89WLkr04jR21mfZXmEphOenjMSHQS4i0q Wjy4ptDIh0BDHep24LwfwLfbeQQeeP/yLLgwiixunDu7rj0J0+R9EfvGxmHZ h+vub+sJNL/fWtCPbBC8PI+43qnogcKgwDVHrj5UUE2XfnphDqo+N3vxDnhC ul3mod3nw1HGfZO+lzgf+PjbpqJKYA6pDqgu69wcQz7Ftk/FA2Wh7226ttDX aTDblz+nKDKJhOe8Kzu3tMFzPMvm3rF5sDVkX639PYLU51v9GNiVwTjim5fd GxJsg8FtBz3bEe8eSfLLEWawwwNCHnwjQXL9Og+PaCuKfZEkKT3rBkxevg1J 9Bj0HH1Ct13wE/IT+NFYFx4Nit9rJc/uxuDaVV0Ov7CPKMiDQSugPB++en86 4XyRBCEqYecR/ScU7/85osv8I9SrBgU7HpmFO2pLZwcoPyCXnvNC1wLHwObV tOWkEYYUPQRWvd80omEyOslyckmY+cm95PC4Cgq37HellWFIrau5/Y2BCtx8 v7MkjXUG4tjLyxfJJ5EDO/e3KEkl2Gqi9/B5OgXRz7obn6EpNFT6VlVYRPWv HpyK0IP7E3rw/+C+OIH7Rv+F+9oE7rP8/+A+D4H7uyX6j4fXYaCs/1z3EHMl UuUkLw0Qj8Jx8Q1NbCYGMabyxuuTlci8g4H9n/E8aMoZXCqnX4DzCwdZN8c+ IrVkfo3Vpn6wrLDf0T5LgmPztc8mj1WjkDm9pfXrH2AkSOm9dD8J0QVwJ47+ akWYU3srZ5sIUAcb/VD7OIG8fx20mFeaQdGVK+9pu5TBcl/TxKjPIqxFtmpp vepF8dtE3obNX4djfpdXs47NwDXp1fMulJOoLHr88tlubSAndNmdhC67idBl r0Q+6tDGedO+TfbHag016NbzO70Mltdg7b90RgpEv/omwX+CCP5zmOA/1Dbi +0tqMPTDdqB2vzhCaj2nDLa5CYL3iXDqLMDQQKDU8dCQFrQRJsTs8UUMjhL3 vGsT97xzEve8q/4aV6bWx0C/bQ+jyZ08JA+m9DVXGkCe0GvTE3ptTUKvfTNf 6EjCx3k4FsxkwUlRgr450YYIHRmGmLpK99mGAUhn8t7Gd7cQGd88ynK6YAGO WYdyyL35AEp3bIXO5+Wgul0CbIHHMLh9+9NM3sJ7iOi583iYIgsdO9lvKWiG /b2fLoi4n46OuJ/O9/RLyYZyDE1KiXzn0K1CP8sGxMyOXIUZW1s9/VCcD5S4 MVqqvkHXfXYtGyvXQeZFaIrvXgC1wWfiT+ezkOq805GQRwMwMMMh+zK5H2pS bmif+ZKLduSNU1eT4fPy85mmQc578JHStooYT0dhclOZc5YYTPM1cFzNxXHq XLMpmaIb0rqWwfM8rRpYLsSsKkcsgvehqJjZxrcoM8oy3hx64QSLRojdVC98 Nr47d3YhG8lTy0yL3l+ESG2nZ8nl9RDd6/a8vioNeTvK7UhxweAJkZ9UIvKT Y0R+MorITyYT+UktIj9ZXSIdzO2xCNKnLlLo+AYjtm3dNC55vRDxX/lJKyI/ uYvITxb/V36SbenLXu66BZBb/lhM5xeMzgxe4kvb/gXSab6nOX/HUOGoWBgN KRXOZZpfu8p7CTgEX9ApPieBbXu+373v7XCYQXRR+JYW8ClKOVvexnlIiyyD 82AA3GG9+mEnRxM4Cg63rEzNA4V3fect0VBkPvUJtSkOA+O5iGgRmXbosOyi 4OtOR0PTHsFkr0nQ+yzN/PYchsrJuYJGwvMAcxFl1HguCiO/g8z6FHG+8aGV 8o1RM5zuPj+Sf1gFerYu3L1/AgPuuJ17XS76wVtef2FXlY/wndAxORM6pmOE jmmF4BWfCF6RQvAKBYJXtBC8YoLgFUr2lKyhSxgyZlHXarmVBW7zj5hZrETA QUL+QxgeP3Oe+zGZuQvB3dOUVXmLUrCd95qDkwy+36sTHe9ldcLjjuvXI6u0 gZPQHS8RuuMnhO646atIsD1g8LPTUNfILgRCqvlr41xaYJTQI78n9MhThB6Z b8tdjSVkHs7H8p4+6RaEpAw5ck1ERqDLXEUtn2MYxgdYcky4UpEcWXDK+5l5 sLmrqDGT0Q5w+HHQ84B0JE12aDd1EAlWqIMWHEU/g8e5+XBBj3REocHXtfmL BKrEPWsKxD1ra8Q9a20XV4SXPTFkcc1vt9T292D0SHtrIUkR2CVqP23i66fU 2vB1CsUXSCt+pUm17y503Ay0vqKFgVd/b78EeQSEM1dO83s3Qe3MdQvPUwuw iz1Rl6rCHSWa3egNvTUE5YErsYzZX8DYNU3H/U4qes8UcGQiaAFMEjvseI5+ hK2fh1UOaKajDe+j1FJHMYi7KX/KqbWqMvgo8840GYfKU+/+5NlkL0l8e2mF gUTohUiJ2y8hI/YFYjNvAExEckW/aAGS3Z5LJKY9RFBALs0m/gUKmXLiZaAf Ih+qKYgmpCK2uryDx9gXwXYrrU/pZzM4NZe5rvKlI8t4Co0TIhikDzx/tcVa AT86gtrrN1LRg8ONs6w4bpn8E8d47cwIOLzRXaKPmUcpO7Y0Y9dNgPahnAP/ gXF4+25I1SB/FvmRd7Kwlz0GVJh3JTppAvL3tNTnWMyg65F3G3UCwkD6qaXP stckqH1tORwYPY1+xvF6L6xmgJmmHK/I7CRQpnIXzJVMIbYm/qT87fVg9Xj6 CY/3IJwKa2IrvruAai9tBRaSq8Id6X3txa0TIHckNXSHwgza4SJSfHKPBkxK l9dsK5mFxyrMATpU4+gCVfd69vm7sN30UBFF4DwsJbBL014dQe4UCp0zsrYQ UGOYavlgAVQm6SYOmwwiCd8Dxy00/ODuqbGzcZ0L0JCwMzQ4bQBxTx3LMBCM B2b/vTs2cH/bn5v5XPJTP6qiSB0/ZF4Ou0XeidobzsPB3fEJvi196Cfzb0vb vE74eETrCnPLODw1SdRxm+5AlTsTu3gYp+Hkk9yBtFujKE1LfOvIyByaFNM7 a+EgD15+EnybH+ZBp28s1zV3GN16on4g4YYy2B3gCm/dXAQuDZofede7Uctu gXs9WzqgdAgVnswiQXdCu7DA2Xb0xmP7VS26h/Ct8lzZ2hoJuGRshikPtqIb 7d4Hsuo9IBkzFuRgxPlJ09mSuYOfkMnbYxGP9V+BzUfRrgVyDKpPqHuefvUR HfhH2OjIaCEcp+8/TbGdBLJHpjQ7+D+h0ZMCFMbSrUA3nOYw3jYKOwp2HT2e /x59OrT/ge7qLMQnfrWrbcHQeKPJBN1gOboa9M0uT0b4L4/a9V88KqA8cq22 EgM1vt7MzWNV6FHqtHjFi2uQMO7nt2S0CFm5/HqG9DUohC+Od394Dxj3RUhg Fyag9PzeEtrUKuS6GPJpm90M1KiTN+08RIJ9xZGiC6s+6MjAAX3Nyi7oPPZp pj1qCqTuPX1r4Z+MvMaaZU6+nALGIL93lTI9wLocw/acIhNpNLg52VctQs/H Xs9JchIsUHnvD3/wBBXuD9+6fKEbxmZzn/L7TEH21IWMjpxEdP+m3FZw5hR0 vW2zUInogRrOYK4x9QykFxXnnJC7CE7XK8NOic2hM8HsbZ1yY+A59KM64NQ9 sOYxbqSfXQQhOWGLWHMbZN1az/ShshuY0nnVT5hOAek7W4DtgwTEJiB5wbll Coqm5TucWnpAkrZsobErHfHzTskWJC+CQWVXS9aNWVQbYFHX5jMO289TZR++ eh+kuCbt3FsWoZzc02WQ4x66ZGodZqDZA8O9/npnpaYg6n4Ny0fneKRZFih/ d2kKHMIiHsnM4/NKGnszb56OZLc5X8t6swiD+0zmO1V6UdqlcyuyUYvIfK+X pXz8DTibe3Cu3XEBrucPrWw49aOUIPHo126NQLHzukJ86Qz0776i7jbag9Qd nQ6Xmo3AiXe1Fb9PLaKq81HPO1T6UUb5EJd1tTh81dX+x2VtGuIe3D1qh/M3 kTMCc0x7J2CU4KuHCL66QvBViRSGwR2xGEI+Pn2c8bXo9giPmTmF0P/w3nCC 9+46n8D0WxADSs/1S3Nc+cjtPjXle7NmWCX4pxDBP5UI/sm81coi0jUHSrrX qWgCStCn2xnq77lG4QV/YOYpHK/H7Hv6HmfmoVP2d01ef7kIDeyrw59UMJiM 22qSpE1A6oLx4vR5TXBA4HvWd5F5ULq/lbV9Zy661GTluZoyAo/mU9zTNzHU uUaTE2AVgphufbjzM+si6F0ueLGM+/VF8Aw7zGEKM4LP6yWllOC0k7J5uSYG 7nwcBbxMISgy2HBF+W0TNNAEB3LgfkboBdcProoUtNPUg5bv0QjoZurPvsbf z3HOJ5OjKQRUI8sKEfsleHlIFg4MYiCg1OTZ8KoY7lGbvpr7pAhWQ7RyWuoY nO4blXywzxotnjRXrfvVBHsIXdsJQtf2idC1CXRrTW7huHm8xkwJuBLBbXv5 jX8OCoGEe7fwWjoG6rs9b4leqwFfmpvkKlRK0K3Hp0Amj4Gj+9Bbpwv3QdFY 1a/0ZTNIsPS+oL05D/a3KHsSz8Wih+2mE4VhI6DYPei1toyhn5SuuxUHM+B1 6WwplaowKFScuPzbDQNzxjblXKn3cN2q+qLoEyWICzS53i2OQWsSrcLlG08g MG+fsqtRC9QqZE3EXJ4Hjo1vvUzN0aj8DP04f/0I/JNZLLqbhKGI25PVcUs5 MPAh9YtAlwi4xrB3/jTAwN4XG3vYiK9jje2iIReUwYZzjdn3AgZ5RnUyyb3P ILHwg7KV0gdg36RxyD40DyYttyxyRiPQqrh+SwHZ6F9e10nwOgrXP7zuwaut 7x+nMcQgX9FwNDUfHkUPVZeKi8EEwfdsCb630fWH7w30F40J479ryGSPn5hd C0i2KVlwnVKFboIH7iB4YAHBA7k/7yB3oMPghJgKqV8qEDw+VeYN4/HLEsEP Iwh+yEHww8ywDxJY+b/3ICxf0r8XhiwO3W/ICMbHv4drem4SQyzny8L17xcA b0jIGz41cXjNPNGuJYB/x/aBsuBLH+D0dbLoL7pqMOz/8vFnMpwPk5jOWKs8 h+pIuUsBIZ/B1zVpg8V7Dng7Ur1fiIQiXrYEr5ujo/DePYjLZQJDpou3RDR/ FMAuzlXfxscSoKrfIdhzBgM3m2hj908fQPib1v3pPHUYKzXu11okAfKjZ30k FwzM4ckFlYat4EU6lGmgOAebcvlyJ4VCUP2SyXLuhTHAVI68/7GPhB6Os+pO dXUh8Q2t5xF18RAdlFSV3Y2hvue/12rT3iHrz9sSL1cbwzCh1xYl9Nq3CL22 4+pTJdfwedQoV00/IzCChB4sV905Jgkz5DclHH9OIlKtoAKzxDSSvymuoTl+ DVRSqMYTwqdAR/7gDYuXzahgXX8nQ/okrH8ceWPrOQ47BW7mc5Ea0Hxx7q/2 +Jm/8Tgz4d82Cf9GT8Tj7kQ8/oKIxxP/CwcDCRy8T+BgGYGDzgQOhiSRFLbh 6zysqU2i4XsOmL3a6WYpJgHnibz0e6U/eWlrIi/tph8XjbXh69PEr5vqSBk8 Yu4gLRpJwq3IYpmy5kUkcvDLlKtOD5DlVoksWt6GHmKd027/s87liHX+mMCj OAKPes79waOF8oO093iS0ZBoY2FFihuSMrWSlljF4KoY+Ur11Sl0gtVgjGvt PaoujDcygSmIHEF1zl++gHxdnlp+0ALi4LqkleVpCMKEHlyS0IPXEXrw8dFE DTGxMXjcWnvrk8wcCiipCWWbtYPD1LyGzAkTQPk4NVTeagZd8Pjp2z8fDPtK cj+cM5sEl/IBV7vyaXSvR8jdKjQeypjSjxx7PQlXXgc/r/WdRszKPQxWVKnQ fyD6gMPSJHQs5qXf3jGNLAPkSqI9yiHi6zFLF2wSKDhb9z3pmUKllRR+x2/V wFUPgyfo5CSkGlY7++RNIl+WMEw1qBMUQocdGW9NwKpxwlrSjknEOpIpdW+k D8f1iUBe7mHoHKc+UndgBK1QyGWmD03BXXt7AxqafiDnebP3fdsAYhn9XUVW MAsObNH2RzVJ8OLVlU1BuUJEffybl2RMB1xnMNFPUl4ElyPyWw45RejzcJkf F3kf+BD5hH3Sf/IJMuV/8gkDBUlalV9IYCbM6J3HkYw++//4cTitFe4GNKm9 +YahZ7evPAo+moHzc/lWWV9NiEAypsn/6v504oTmA0IQ99cmxe/7xCFBLWJc qy4LlJ9urCePYih9187N067Z8PP19RsD//ZtPXyxtXj1ETTeUKFw+HgTDuqd VooLIIFTt5etI8MrNKe9BjZf20FY/RKj3dA0+NNY0iT7Z6LT3i3M9cKT8Ft2 n1TijTlgKqL6IeCThqx+8Ox9xTgGLkQ/WA/RD8ZA9IP9Bwe1CRx8SODgI+J5 0ak/z98mnv8PPt4l8PElgY99ftXjB/JzYSG8Sk9gAQOfNdv1sUdOUCm87j6J +8NSge9f+nk/wFf1ZPKRSE14SeQxgog8xnUij7FI9FkNEX1WG51/+qzWmWjP F/+ziNi+UTRThPfDXLNFVGumHowfEQrQ/Y6gaphl/RPC4DMLhd+2XhuANC+x nKMkoLIkdT1IM4KHP6hcYt52QSMRt0rJ/olb3ez/xK0/xP/ErdY2f+JWjpI/ cWuZ+L7Xtg9IEFqk47v+7gmMtX2EO6MdIH589nxN2wJKvXHdYKt1ADgvsLAJ 19yF3dP6RQxl+H6n5z8rFFwFx7/Lu7aKyYKv4plSe98qyA5igrNlGOyzyLEX v2UH/Pf3nznFTAI2SyUZp+guePT5d3rtjdugEhQdM6a2iBj7vl/6/KIPOE8I kR64GsHOX+Oz+uokpCKR6vVM8AU6LPI0VORGJ6Rwk3M//4WhPZaz19W749Ck 4EnXlSVV+LUd+7gwg8EEPKh3Op+PLrXymd4O1IQ1ewvZf/V6OypmBt98y0a/ q8xy4Z0RKGT1xLIvY6CnWS3hUJSJVpw1Tlm3mcJmWDCt1goGvU6T0zV70lFv 9omLTm9c4AvmfnQFtzNt3P4iyJaGJgeqXM8ou8NZsnG9qG8YUO3nOpt4JA0d nu8TSWV8Aceva/Zz4e/nLpkZcJRIQ/q/nb2zll7CS4MZBb5xDGbXNvdosWSi SLZcN0WXbFClvH6sswsDjdsVopyOWcivSPZa6WYB5A2xUavlLqDy77Uqy+pf kFvc5705U8rgekt0XxX6gNb14jYzeDBEf0mIQsH7Lox2iYWXbk7BfhnGZoW1 EnTkYOv3+F1TsIfIf6YT+U8jIv/Juct2Kr90Bi3kUWXTKk6A0V02my/hD0AX azHKjZ5CT0dHTrsa2EBW5IHjhklTEMFkK7r5r67HU1t/g+w5DCxaqHD6qkLF 8DxZ/RaG6kLtaRifukCu2qmPdsf1gJFVmDtfbgZN8vgknWufgHBzDnOWw6Z/ 6zt6RH2HxP2nvkM6LKQUtYGh8tjPEzxFkQjTHByqKbkNn3a0iZEXd0KGE1k4 uTQJbXUy6BXo34J/RJVuM+hNoqoargJ73wiU750h7v5hGjQsT/5f//yDwbf/ 1z+/QfTPc5E7FViaz6HcLylWpbvHUOuZ25ffsTyAyDfvaEF/GtlsdL+T6J1E zwUXEm480AdB+wUS1j4HhvKDrDNWo0h4UNXg+JIJCK+zsPNQL8By3cpqZO0Q YkwW4BxvewJN35T7YtIWICPOM3PnvS+Invkc1Y2ScKDZ6XfCfnoBMsMrP287 OYCig7dP0jzKgZQdGmViHPlolpHuGdUshtxDDhyX/6wBNtarzk+uLMKpu1NW tJN9CJUu7Luiow5yBcsPffF9KkLu+churAMtN9AaM9AYgv8TSd/+fhIsuVEf evajFe1MpLQTdXSAJ1N3+g1wnsmpdDA2riUf0VKY3Xw+aAnbCF7xguAViQSv YE3QKDRjnEI2rqw5lW/vAF+umHYMxzTcfmD01gr/LoUiuraqJTawINRHq0oZ 9Vf3PfHqj+47j9B9kwo633jh64H6xH6p6VpPmKh4LvtSVANyNp+e2Ynv38+3 /qG+0/MGtl054Gn1UhhknJ9YpmIYqj08mfaFMwdefxsNPM4qBtdPNtK/6ZmE smE3rtyQKVRHnUu+z6YRmDRWd/927UC0XW0tiY4k9JYrd8/SbyVw0njK2XB2 Cgq7FkrU90+jVJottvVXStAcary2Q7AHgqkK9x1oX0TnzzeVjq8ow0OirvGb qGskEHWN3c1/6j7PibpPN1H3SV5sf+DWvwglP69cub2nByaZevb0Xr8DxYTd kLBnEHbKl3JSJKcSUGZ+Gq3RjwEF19G9L/fawgWCF5EF/uFFqkSc/p998YDY FxPEvvhPXUmMqCvdI+pKST0Tnz2mcB7ec7pI6nQB0qg9Whowpf4/9SY2ot40 OR7EL7eE41q7wSfq2CzUbLGNxfrnvf+pQ50j6lCLMmWJzbjfEwnnb86wSUPD gwomr+ye/E996gZRnzrwQ7ZKAPeHLQen9Gj24c/zWohUhUX8T93Kkqhbhdrn KZYNYXA2u/b24TeZqDy+5/Jqci7kZ8yLSVr3gPKIPVfvWhWibcV0nOwXwd+C WoVHdRaV1bON5QeNo2ei7EpUMzfgJ1EnCiDqRExEnUjPe+SBs/QQDBTZdlrc L0I3nC+EW+5bgIPa+6MN58ch0iz8gZtgCdp349xlpS8zoCJkSrdkPwkqUfd3 qBeXoIKIec0Lz6bhpELOUhfOe3t646/90O5BWx62sUGTt6HIcyD2Mc5br4XE 559STkZea0zPXKukoHzmoz3NBAZf5bFVWuZCOCkyqrSuJQ2339E+Lx7FgEPt 0Nv0jULQOCX44PqCFLBfrI3V+YLPJx2vy7n+YnC9Yth7rFMG4nxOWd/pxGDy VLYAi34pyCjq0JYOSsNdom9kjegbGSH6RiaclOpL+zC4lDR2+WRxCSR5fCO9 z5CFyInWuWfNGOxn416L5asAd+VQjJf+2l9991lC3/2S0Hc/ZRyV7qzAoOqi /DN9kSp4+dV9VxGd7N/+h89E/0Mx0f+wzhhv5F6LwcJUUyn9PgSM3mo35J/J /rVvm/5jP0rYH9CSK5F3YNBNVWzd1lwKSQlmJzvfysNYn9exoBYMKiJXLGXm yyHpaE5tkLUCZM1hU+OhTUB6y9pVdxNDbGfmw3ibtEDLbTuVpmM73L4Nwizx JJRkrlOva6wDnzcK7ZorMcRnJaEZyBuPsFxm5Zz3lVAc895LbBFDUdHy5nNU L5Blct7ZNJccqG2/l26cNI9G2VUG/f8ZQVlnypS/hlqB43t4ztDWiIy6pZHj P3FISaQ5zPQOBhKPApeX8bhVMD7d/mFTASq56CgcG84PiQcOpsq+xqAx/NdL B/pclPby4Vmz2mqotSUrLnw5hR7umhhzkndGjHWbUpA4BZaBZTmvcL8qdNZ7 pDsrEt93BsPe/op/64AORB1wP1EHvDm5pD4u1Il4VfdyVjbIIde1r77r2iQI JPTd9YS+e5nQdzMuRlI74fZHvfffC+/zQj/z7J45c/NBwfWnzZ243yZZuj/i vR6MYs91njdu4Ae1tpHfkjhOqhr29T9X9ANdhR2ij/Wk/+rBPWv/6MG9CD34 vnKtzR8/MLinfuiYFfdjmErJ58FKkkF6JOv/dBw0xWP/Hx1H/+Lku0p8/Jrk e8TLWEXg2XlF2W06JBhIU8t/io+TYU5wofzRMzAq/rRo38n3VycCDv9fnch/ +PxBgs9fJ/h8q/jXgz9xOwPvD5dLPM9ht4YO06FyPjjStudAF447j8OO9PKr xUF1pakr1YTAX53ICqETMSB0Iv/RWZQQOguqqD86i0CaZRv1f+9h4d7IYDgW C16ttEKjrKmgWfjtWyfuPycPB7dONwRByCkYW3VE4HfBtOYj7odXwuNGzX/7 AI/UUlo4cw1cvjf1K8sag8eXJzWfmzgCw26qIp7QBpDR3/SijplCUt/NhcT2 GEF/9P3Y4/g60cyPpJvFf1fJbf7tLnnPwepbQGFM7AWQ6I1UVP+NIdnkh16U b1+DLfWN70vu/6/di7C7EvYU1svd//aZqzDPFS7dfQMZdoEnG89lwWzqhpsF ztezXei5PjO9gGzJr7P3larA+oJB9LcADOZLIxIWJAMho0135Bxf/V97A2Ev J+zluob96TdIiCUnOVTN0QYeFXXd36nWCYXj3Wb/ngMjyHKeeU44DOZYS648 T+EH9jAmlR58nHGPw4tLzWMg8sKUv9kbfmAY93Gsx3Et/9NWQObFt1Bk2VOS M54LkZoWhXKFGBRO8w4xPI6EitRXYl/XqoBU1qb4Gt93KYmX4hnsXsDFHUGn bVxrQZZSm/7fcwY8lseVmgQcoO/ijKObrw4csFreuQMfj6tngXexdzjE6awf Th0X+GvP/S87RXVHHscwBqzfmwZ3W78FsgFNnYc/CuDmygVrxywM2h8sjtA3 R4Ol0tPLc3nVoEXYqwn7Y8Ke7b+LjRGfH6rezA+/djhCl8VW8iE8rpksGjL3 wMfZPSYbUE7xDI6ZKXBq3tSE/Zc8HbLwdWsif3IPY2wcWD3Jf3Ve7iJobXQI nc/GYN2nw/M7qRoOrJqzWYE85ExLZ2/D8SWY8u6aiFQCUPBoDZ//lA8sx25Y ObVhYCdPL+hA+RbWCvPiZQrfgTpR99x6/afuOUrUPbc3O38zjMTg3YIzNMnW Qc/Ej+OdbEoQm0Py6kzCgPKHd7l7Vw0IzS7W3YhVgjdslFeOXsDgps0700N6 H1CtJvOKpLQsFJ14xt15bxGc7id5Fl3qQ5uf9mtLxKuAIZGnekfkqZ4Qeapp lp1vb+Pjv2qtUGB8tAip9ogFW3teA9X5mjDHVNx/mJ4drAioQZhtkIsJvzK8 yOl9pPplGHbS3fma35+HeLoEg+mT5yFL/ZMNbeA8iiq63Mx2dQSGFGzyNq8Y /61DLRB1qCtEHer4gi2z9oMB8LS/eEBH6iMKpvrHQG59HnwpfiTWyIxBeO9+ JPGxGCVVFZ+oZZyDBxyUXjd+4utt0qSyjCIeLTUaarUclPnLBzQIPuBJ8AGf FaMTuL+FM0F9Q/VywcBQi46NJkrD470JWudwv3iJ3GRFq9gf9nLS59tflYLS mxnRbfjz8Q53E9/fDgaxiNyVH5jU33vnDYh755mIe+f/48em/kvv9p/njYnn DxHPHxQ/F354AYNWg6WC1c5cePZUgcq9SAayf35LF8F5i58Ol3Pe/kIYlh8T hO5rYDLOvPavvqCWJt14ja0Y9OLuxsgLXf/LB94TfOD/aezKo6ncv34hlOYr osFFpUGUZq52lAwhMtOtKCQZIkIaEBmKTLfIUGbHPGUofclQxkJIA0XJeJ5K ypTep1/b+a3XXe9a77/POotznnOe/d37sz9DEfYDUTwrv1i30vdB/rZtxplC uF/yQ0U0TR2CgnlzUyvpPvDbsXlKMg9haEus9M+jquC6R3HxTnr+Lcsez4n+ swiifho/+cdAg9UPNGA/EIX9wGXJr+xn6P7hR4J5SVlyEfjbNU+yOWiCmcbc ZRN0HW4MHd/flEmg/o0VOyWiAYIDDqVX6un+5+fNvgH+B+Ao1bDMvU0DRha7 tL/4Vgq1F0UjH2eWk05G0vml8nTdxzzTaswztcU802Ktj/Z2rwcg/kyETYTD KyK3rYNn4dlkVq4oN+/vXFFzzBX1nqNwIJGPArczitJHuOrJg7eMQLlVd0Gx ym+zxzATgtmbs88U15G8Y04LU6MLQQbzPQUx35ML8z2n99t/T+ODRWJf7YB9 9Zu+FxxyPygYG/+SM9M1nKSc+KuuXEoLXs/r2/yOvr6w371nufVVcvriT1cu 0RAI6eo1ufSJghVrtrFbhwWTHexfnSz606DqZZJLCv079F/uy8O0DAL/ESK0 YZEmUE1i0pr09YQaD+bZ6BDYTPLO6sWYQEN6WMav/MeijrOfJThugFGB18lT swJZussU1F32o+5ySl/phPpKI9RXTukob6OOkg91lJOSv/k8edP4PDLsGm9+ zZuz1zy1YmvxhCznY1mnX6pDnuixhi/0PNJjEyR03yYOKuvFC/WrY6BmrQxn Av36Sd7ZFQcfu8Nzw7IVVv46sDsgc2Ehfb73j8wyXcWRCOnv5yQ5tN8FZcOm ob10X910xz/DYMYdUJ+9OITLL591vrzH8+Vz+8f/nC/qgnacFfTzWO571Pcf rmQoN/9St7blDnDgObIEzxERPEee4x6nOfr3HqcO9zjxqRu5OOm/837F2OWX WQzQzt7tuFk9GqLkmjZpdtJzWb5jUnN5HgRErDS+st0I3swrGfulY+XWDPCu WJMKTR47+UsDI+CwaZvEcvr/qrWl622OiweQCdp0bUsuPBCpvfJLh8VcMHRx R9o94JeRM5rxxACk/Hset/XQ5+/FVr3F23PgmbjWvQ7P06Di17r2LUXBDhFG zbILaVBY03GlyTwM5EzNj1p2UdA2oGCcZpgIf1wLX2T3PgskMF/JCPOV0jFf aRJziw5hbpE15haJYi7MP5gLU4q5MOcCH2XkPKHr0sGF0hlZxWRDzIyb3msO sM4LQzwvjuN5ccn+zv7A1F7INs6pOJxaQKz4rzXHtXVCGuaqxGOuiifmqrxB 3Ps44t5liHu/kkuqqW/vgfCNFTNFuLLJ3Hbng+fZ3kNqesCovHgXvKq4y0zS ySFjJz1/XHPrhXrMN8nEfJN3mG8S6ib6p/fCDxAy36t6QV0GucSl11I5swf6 ktaa8qo8h4XjG3z/XpVBwiZMh+2UmdCN+PBHxIdnoQ7Xl31EqU72A8jlX9D0 yU8iEzWGKqs7P4LfNP6bA/LfHFu7Gtktm+Fi8HyGflkqGZyIvd0vwISQFyfq 99R1wWyHht1/qCWRAwucJU7z90Iv5nH4YB6HO+ZxNGFexgLMy1DCvIytrtd2 TGb1gsDbiDLT+lvk/ILDLU7zu4AN+4eX2D90Y/9AEGf+hDjzE8SZw/aVLl58 uAe2vv7Jf2T4NilLURm7cf89CAhKKk8ad4H92k9WN8XjSe3KpZnWVr3gXuhg 0dQ0CEPjB42Hh+3gzP2w+IsbW6HAdvLZpU/dENEQwvN1RTRRleUN26zSDSsv LEhzdHkP8/+ap8ezKpb48vZesAzogaSMjxxOCi2gmN75ihHBIKHy1hq/9OxH pvk8A/o8207jFYQjr2B4Gn9VE/kDM5ZyefB2d0IwZ17OpcZe0lm+T/TZAlcI Qz9hWfQTTkA/4TO4f9fB/fsI7t+5cf++Hvfvjbh/n4s41TXEqZoQp5rqc95g n6OBfc6UryDH/d++gonoK9igesjEb4LuuxJdKzcWRZL614cDmkQPQKrCvSSn X3X+5Huj74+CQdF9UetqXVVWPc/Aev4S6/mUr50V+toloa/dB9xrH8O99hfc a1taRFnPpPuHZkUOcZk7BWCzt6hH1kwD4t0f7omlryuLLAoPtSwAjZWmRgUx h2Czhjr7u0YKKqK0ntqqW5PAXbrVqc+KWHNiDfoJzMz7PSdO7XHEcY9zBPc4 U7r4QOSd1iLvtDtzbKzxFd1viIUcCecqAP7eB5/ixXRgl0IzZ197C1j2BrCp yT4hDS/4dVbvG4Qk34qCcONaMOlojq3qrCMGC1ud8w8wYfe0vWQN7iV3nq2f ZDhUQNXj0OqCJ4/Jty2BJ9TGmVDl2uosLZkFHSWCOjpc98iWZfxui55SsAHr p8G0+rle6ZzepHEvzL/tudXetYs8sXdQCok2hvXo16qLfq0t6Neac9FDzPD6 c9gt/JTvnV0lUQu9OTHweBBeumv8vFBbArnFgr6j8/LJg7i9oTduUvB2Uwp/ /+IUUNp5Sk7vRyJRHFFwvNr/37qtgXXbHuv2YqzbN7BuV2Ddfvl8OE+59TGY Z3yyuzmUR/qq6sMoTQr4T1csONyaAy8O7Yx5YZFMZPxvMKXp70nDxHNylU4d pE4UvV05lEPCdmepm8+lIOrk4hPeUoUQPCuBjVGQTM491nzcVEf30wxOr8U+ xRBjF1NhFpNMyj/dHRx6SMHnlVu2n6f76s0zS6/Z53uQtlmvOW69OcfyJ+lD fxIJ9CcpfOKWYnqxBHhrVJwSbiSTYvFyc7MsiuWzkYs+GyvQZ2O6Du7kHMf/ 6OAENffMGaXP65iqbfdHP6WBgkbnIX0TXdCUu3698isF0H+2elUpA64f/eeL KZs5ZB/Ja02gv8+WLtvHGbJJkD5Zz3ko15nl/+CD/g+O6P8Q4i13Upzuk6MN t+ln2IRAklinqV1sIdwMjNuXnNEJb5OTTySZMkhZwqqumoFeeh59X+DQ3gSR UiODO91SibLHKYlXdD23OyogZDdYBtFv+WZ/X8wgfrnkvGEg/XzqGD4UHqRg +1npnWcOZ4G1jd4VX3892LErZaMy/bkuPtWwexaTDtYf5n77LHsSBhR2f/9A 91eq8cmR3JEp4OJgoVY07zzLV2E9+ioko6+ChMXZiHeencDddjqWyCaT+R/V rrzi6YPX084dTzx3LgcFU3JZ5cC7SarQ+giD7OfPXSDjQ0FWZQB491JwnHTJ nv6cDevu2MkLD+vT543GrHwmXZcMRnMFwjOhTa3WmWRawJj8x8B2+v1Hpus9 uPYiDVIXuHQIR7uy/BPmo3+CE/onPMHzbimedwfxvOPkmthQZFABiUYWmYp3 GaSYnUvhhxsFQn6j4f3dFBjFLksWYs8F/crSumJ/QxDX4ldqo+esNJ06ayXn LKh0VilU1baEzvXCASZ0n2afOnxM70gGVLPffvbT+CLLDyEN/RD80A+hfc6e Mr3+CkiItF25voVB9rHN/xJw/r86ryLUedWhzstc/7vPOfp5faP6zkeTPxv4 Mub/CFttBVmyDyN+6VPvvefLspHOBG+jYdvIdZdZvgRK6EswhL4E5Q8pYW2L SuCbKBH5MsogTh8dEj440PfdgLPAmL7PQi9OSOnFZcI6se4Zs3e5sfT4jqjH X4J6/Kufk1JGmith4uoHK2OeFHKBY+7+r7YUS2/Oh3rz+ag3n+J/HkL+pwvy PwWQj6eJfLwXyMebmsfjcR4fwnn8m/GuhkR6HnnhM1HH7niLHKNS+8O26kDn 6XKHzlEKFkl6hXoJ+ZMtUe+E5FRiIC/s/phoC/07yW4PsXIKJ48eBKmtnigA l5m75wUso3/nq+3VlkXHk/ii2aXEqw7mIK9PC3l9e5HXV/1/5NxN4agOZf/b V3MKH5BEfGAp4gM1PFXi/vT1KJ9Tt5Ukg0GNYbnSVVAHJq9sMzlIX99XumjY lp6/amXWJNkFmQKXbhVRo++Dx8fbKmd0r8AfYQbaQWYxYND7NKGHPk9zuI7x dpO/ScErkbCd2gVQirxBBeQNLkTeYPtpxUdLzDtBalNHW5JgJhEFD9EfAn0w W3v5Op6SRlj+NXTnQ4d0oqIfu/GIDxNi5+x7oZpGEbcMm9X2e8yA4o7gOS/6 iIU/HEf8YTniDzM1ryiP0P3DVX5S4ZeYAKrdlbzXLuhAR5RSnxT9vegyPNZs fRYHToGHVNtmm0GiWanaBvpzTSSZ1CsvigXT/C3KvlFOcNHJiI2i/07zFk7/ tZph0DF+Vdb3dQxUnP7zeS79Pf5dvy33UcxVuBrI7alwuRBuS/QUvK7qhGOw 2NlBM5UYeGgE17bSfa/LDU+zkiaYc52TMLakka8HPh9eakJ/rmwSA9xlkJ/H tU2tMpmUyIwutAmnwDzTpViernueXzkjqupiwWk86/PX63HQImJV9jf9HP0s nVOtkxEPSVy72mSD6fqd4aaZQT93bXOEVRgjCbDVVI/Jl5vwL5yEIE5y87zd w2X08zWurmFDfUiEQc3M/EPMREhEnt4Y8vSckKdXdTonytiSgk2n8loUFJ5A 06YnFeJ7D7FwlUeIq9xBXMUzdFuQOz2v3d8dWBqllQerrojczuA7AgYO8775 0fVqYJVsdUVEEszl4dRlk0sGZTHrn18KKHjOH+RwSvAuLOKPWTS4rwR+SJus 9S9iQr/u1ajxbG9Y4Zfm9b61ATyR76eIfL8dyPcbOqPb81OiE2YKOIqaHkgg BckNkY4H+lh4zjjiOYGI54i8FI3XoOfc5pIkqbv0nHuM321F5+hR2K1j9/oy Xf+NffIcTJjZQHqHbeddsIUDISJKzD76PhtpyNtvTQZtvjsrBVIZYPXtupxO NgU/ctSP6CTchfIlG+87zCoF578+C3uFM0E6YuN43T5f8J3bOXIhvRHckU/I r/abT1iLfEJ7oyXi8hs74avlROnl8/HkrPvcKj21Pri1vvCya8tzEJoz2RNE GKTHRuJ49TYmFE7DkVwRR8oSvu4hzd1LPs4fH9xPdRFZI78RW1lFVj5XGeZz ncN8rpjtpZRI7VvCJnjwWPRf/URbUEs+efJvKEad6SfUmS5HnanH0PZKxc4B COVgkxRQf0VqvizXstiUBnsRp+JCnMoecSpDnHdm4byzH+cdV9STJqOetAj1 pPo7NLoEuCmo1w7JWlJQTxr81O9v/ZrA8lGUQB9FbfRRtO/+ajWjnQmlLl5G F2Tqifzg65F+roewC/EuAcS7FiPeVYV5r2aY9zoX816rg4WeG1tQMCfYyP28 9RNSI3r05qYIXdiwhn+/SCQFmXViirmNZeRLR8/DVwFmsC7nbo50Dt3P1gXX fXMsJV0iljBi5AyR+kdCV9+noHeR64sbUYRY/7m2vKAg9l++iF7oi3j2cs6j 0CAKCiW+5w/IlRBJA4bFsuVFrNy0dZibtmIqNw1zbFdgju1MzLGdylPbOS1P zb9VrZsh+gzecKvf3O74Kwdt102vLiaMVHRV2CyhyF/CB+IWWdTDhYNi3uIc OvAS860MMN/qFuZbTflsc6HP9ij6bGdi7tUWzL3iwdyrlIur3jU4PAc3+aw6 zVMpZGHnhrosBSa0LpU5KVb0AYzD3a8/tO4mGyTibmX01YAJ6msOoL6GE/U1 EvkxFz++6AMf4/ripwFtpDdwwEI9sZWlWzGcplvhcXNzDxR9DuKNgpUpr1NI nviOYwu1mKy8rbj/Z94Wd6TpxIMgiki2Mnhbm8sh/bxTsxefFmsONcE5NAbn UCHhRU298yjgVA5U35CmSqS09qWv6aoHWeSf30D+uQvyzzcjP1YIfRvSkR8r JZgkYziD7lsuWW59q2gLGQ9eD28ufArFyDMH5JlXIM9cCPnhV5AfPkP+Nz+8 4//Ih+pFHUQE6iD2ow5i2yr1Ru/gTpjDc0J7w/w+EnIl5YuRqzOEI57wF+IJ GYgnqKKOVQB1rGdQxzrF/xxBPemfyP9cFjhQeXWMIl2rTtr/kRNDvuw/HDTo rQHPui7f0aygyKZu9Q1eoQ/BzEBN+uUjfTh3/c4fVfwUOLfu5ve0diOe604e jZetZ+XgbJqWg5PpZPFcoZZJOrQFJgyPNYDUVzs5p2w9aEfdnwXq/n6i7q8W eYwdqL8bRf1dh6Wywy0Gk+heMtpyVakRrptZ5dQxDGF5W5ewOX1uet/43LXs USZxOTnQahJ0AnjJtqA6uq/e9PJ8tOXHVBJfw4xao34O5ove9vahXz+3UMb5 7XAK4a0p+Tb7QMy//D/N0P8zTCzXq24Tk8gX97dt3NFMurXGS04FqEDjNH4a e/NvfpqXamcV+7YB+jyexYjf0U7umvJJLht2Z/HEUpAnthJ5Yoo9PXxWdzzI e4s0z0h6vuTMUhk7clMPso1HuW4HMGEs/LDXvdFGYrngKCO+5BR4N+3xkaDr xMnwimCewmfEjNKjFty6AO+Zl3jya+j3b5TwTdIygwwpP3UZki6A7xzqnIaT FPlU7Chp7BUC+rLRkdxsKv/K74hCHtcUXvQdcyiYiBdN5VPHTsunLsiae9kt lq6TNjNNl0qUwWHPf3qen1Jj8UykkWeSgDyTzaU7gtsnKHKNf5VzhGoEEava +k2zaR+Lz/AY+QwtyGeQ3s5xbgXdtxzful5e2SUPInYI9EidUQM+0YmBPfTr y7YP2F+N9AO2tTnbhUL3AafZw0P9v/a51aeK/KNuQJyNtoTETQVga9zD3VJP gW1W2eB1t0iQr/fL4+S4DxXol/4M/dJH0S99yv/8DPqfC6P/+UDKbU5X+vVc ZKfs2fRg0FGPkxDTVWLl7b5D3asz6l7t5infWVFBz9Ha3zvult6Bx6Ni3DlO xawc81rUy1egXn4qZ3P/tJxNTvTZfjPNZ9tmr9mfNSHvYMx3+z194Rwi2ZQx ZHa3D8pRb+iCesPHqDec2gM+xT2g97Q9oC/uAd9N2wM+wj3g8Wl7wKnch2Lc A/4P+58+CQ== "]], {RGBColor[1, 0, 0], PointSize[Large], Point3DBox[{1.5250054059962097`, 4.4620160119269325`, 2541.0464777969387`}]}}, Axes->True, BoxRatios->{1, 1, 0.4}, Method->{"RotationControl" -> "Globe"}, PlotRange->{{0.02, 10}, {0.02, 10}, {0., 2525.074221274608}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}]], "Output", CellOpen->False] }, Open ]], Cell["\<\ Sin fijar la primera observaci\[OAcute]n en t=0: \ \>", "Text", CellOpen->False], Cell[BoxData[ RowBox[{"Clear", "[", "d0", "]"}]], "Input", CellOpen->False], Cell[BoxData[ RowBox[{ RowBox[{"obj", "[", RowBox[{ RowBox[{"d0_", "?", "NumericQ"}], ",", RowBox[{"d1_", "?", "NumericQ"}], ",", RowBox[{"d2_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{"Det", "[", RowBox[{"m1", "[", RowBox[{"{", RowBox[{"d0", ",", RowBox[{"d1", "+", "d0"}], ",", RowBox[{"d0", "+", "d1", "+", "d2"}]}], "}"}], "]"}], "]"}]}]], "Input", CellOpen->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"NMaximize", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"obj", "[", RowBox[{"d0", ",", " ", "d1", ",", " ", "d2"}], "]"}], ",", " ", RowBox[{"0.02", " ", "<", " ", "d0", " ", "<", " ", "10"}], ",", " ", RowBox[{"0.02", " ", "<", " ", "d1", " ", "<", " ", "10"}], ",", " ", RowBox[{"0.02", " ", "<", " ", "d2", " ", "<", " ", "10"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"d0", ",", "d1", ",", " ", "d2"}], "}"}]}], "]"}], " ", "//", " ", "Timing"}]], "Input", CellOpen->False], Cell[BoxData[ RowBox[{"{", RowBox[{"5.31963410000000003208242560504004359245`6.746481674556648", ",", RowBox[{"{", RowBox[{"4322.280185249511`", ",", RowBox[{"{", RowBox[{ RowBox[{"d0", "\[Rule]", "1.5699581061611056`"}], ",", RowBox[{"d1", "\[Rule]", "3.584030846225564`"}], ",", RowBox[{"d2", "\[Rule]", "3.158537333176346`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellOpen->False] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{2030, 986}, Visible->True, ScrollingOptions->{"VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, Magnification:>2. Inherited, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "eq1"->{ Cell[43983, 1560, 1144, 44, 90, "EquationNumbered", CellTags->"eq1"]}, "eq2"->{ Cell[48701, 1753, 1191, 48, 55, "EquationNumbered", CellTags->"eq2"]}, "eq3"->{ Cell[51102, 1852, 897, 31, 57, "EquationNumbered", CellTags->"eq3"]}, "eq4"->{ Cell[52585, 1909, 1313, 45, 89, "EquationNumbered", CellTags->"eq4"]}, "eq5"->{ Cell[59168, 2157, 1291, 52, 59, "EquationNumbered", CellTags->"eq5"]}, "eq6"->{ Cell[65383, 2387, 3049, 109, 59, "EquationNumbered", CellTags->"eq6"]}, "fig2"->{ Cell[82118, 2931, 88, 1, 37, "FigureCaption", CellTags->"fig2"]}, "eq 1"->{ Cell[123279, 3879, 2917, 95, 72, "Text", CellTags->"eq 1"]} } *) (*CellTagsIndex CellTagsIndex->{ {"eq1", 655348, 15822}, {"eq2", 655434, 15825}, {"eq3", 655520, 15828}, {"eq4", 655605, 15831}, {"eq5", 655691, 15834}, {"eq6", 655777, 15837}, {"fig2", 655865, 15840}, {"eq 1", 655947, 15843} } *) (*NotebookFileOutline Notebook[{ Cell[1463, 33, 20, 0, 41, "Abstract"], Cell[1486, 35, 105, 3, 129, "AbstractSection"], Cell[CellGroupData[{ Cell[1616, 42, 99, 3, 162, "Title"], Cell[1718, 47, 44, 0, 35, "Reference"], Cell[CellGroupData[{ Cell[1787, 51, 163, 5, 85, "Author"], Cell[1953, 58, 240, 5, 56, "Institution"], Cell[2196, 65, 827, 12, 165, "Abstract"], Cell[CellGroupData[{ Cell[3048, 81, 34, 0, 57, "Input"], Cell[3085, 83, 90, 1, 57, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3224, 90, 88, 2, 99, "Section"], Cell[3315, 94, 711, 11, 142, "Text"], Cell[4029, 107, 2164, 70, 188, "Text"], Cell[CellGroupData[{ Cell[6218, 181, 30194, 1114, 665, 21666, 972, "GraphicsData", "PostScript", \ "Figure"], Cell[36415, 1297, 71, 0, 37, "FigureCaption"] }, Open ]], Cell[36501, 1300, 672, 12, 109, "Text"], Cell[37176, 1314, 2591, 91, 101, "NumberedEquation"], Cell[39770, 1407, 35, 0, 43, "Text"], Cell[39808, 1409, 1602, 67, 98, "Text"], Cell[41413, 1478, 20, 0, 43, "Text"], Cell[41436, 1480, 1452, 49, 112, "Text"], Cell[42891, 1531, 690, 13, 113, "Text"], Cell[43584, 1546, 396, 12, 43, "Text"], Cell[43983, 1560, 1144, 44, 90, "EquationNumbered", CellTags->"eq1"], Cell[45130, 1606, 67, 2, 43, "Text"], Cell[45200, 1610, 773, 29, 43, "Text"], Cell[45976, 1641, 610, 22, 80, "Text"], Cell[46589, 1665, 742, 27, 43, "Text"], Cell[47334, 1694, 1098, 43, 43, "Text"], Cell[48435, 1739, 263, 12, 47, "Text"], Cell[48701, 1753, 1191, 48, 55, "EquationNumbered", CellTags->"eq2"], Cell[49895, 1803, 44, 0, 43, "Text"], Cell[49942, 1805, 1023, 38, 84, "Equation"], Cell[50968, 1845, 131, 5, 43, "Text"], Cell[51102, 1852, 897, 31, 57, "EquationNumbered", CellTags->"eq3"], Cell[52002, 1885, 580, 22, 43, "Text"], Cell[52585, 1909, 1313, 45, 89, "EquationNumbered", CellTags->"eq4"], Cell[53901, 1956, 123, 3, 43, "Text"], Cell[54027, 1961, 1817, 67, 84, "Text"], Cell[55847, 2030, 515, 18, 76, "Text"], Cell[56365, 2050, 1012, 32, 76, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[57414, 2087, 31, 0, 99, "Section"], Cell[57448, 2089, 540, 15, 76, "Text"], Cell[57991, 2106, 165, 6, 43, "Text"], Cell[58159, 2114, 384, 14, 47, "Text"], Cell[58546, 2130, 619, 25, 43, "Text"], Cell[59168, 2157, 1291, 52, 59, "EquationNumbered", CellTags->"eq5"], Cell[60462, 2211, 96, 5, 43, "Text"], Cell[60561, 2218, 4819, 167, 59, "Equation"], Cell[65383, 2387, 3049, 109, 59, "EquationNumbered", CellTags->"eq6"], Cell[68435, 2498, 2825, 57, 275, "Text", CellOpen->False], Cell[71263, 2557, 1727, 43, 47, "Text"], Cell[72993, 2602, 2300, 88, 59, "EquationNumbered"], Cell[75296, 2692, 753, 31, 43, "Text"], Cell[76052, 2725, 1246, 50, 58, "EquationNumbered"], Cell[77301, 2777, 1227, 46, 84, "Equation"] }, Open ]], Cell[CellGroupData[{ Cell[78565, 2828, 36, 0, 99, "Section"], Cell[CellGroupData[{ Cell[78626, 2832, 34, 0, 50, "Subsubsection"], Cell[78663, 2834, 2220, 72, 175, "Text"], Cell[80886, 2908, 1229, 21, 672, "Text"], Cell[82118, 2931, 88, 1, 37, "FigureCaption", CellTags->"fig2"], Cell[82209, 2934, 398, 9, 43, "Text"], Cell[CellGroupData[{ Cell[82632, 2947, 86, 1, 55, "InputOnly"], Cell[82721, 2950, 70, 0, 43, "Print"] }, Open ]], Cell[82806, 2953, 247, 11, 43, "Text"], Cell[83056, 2966, 728, 23, 64, "Input"], Cell[CellGroupData[{ Cell[83809, 2993, 339, 10, 57, "Input"], Cell[84151, 3005, 7973, 138, 489, "Output"] }, Open ]], Cell[92139, 3146, 1386, 39, 109, "Text"], Cell[93528, 3187, 187, 4, 43, "Text"], Cell[CellGroupData[{ Cell[93740, 3195, 761, 20, 57, "Input"], Cell[94504, 3217, 817, 24, 118, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95358, 3246, 733, 22, 57, "Input"], Cell[96094, 3270, 2396, 74, 101, "Output"] }, Open ]], Cell[98505, 3347, 646, 19, 76, "Text"], Cell[CellGroupData[{ Cell[99176, 3370, 739, 19, 57, "Input"], Cell[99918, 3391, 403, 12, 57, "Output"] }, Open ]], Cell[100336, 3406, 761, 23, 57, "Input"], Cell[CellGroupData[{ Cell[101122, 3433, 374, 10, 57, "Input"], Cell[101499, 3445, 20258, 370, 474, "Output"] }, Open ]], Cell[121772, 3818, 283, 5, 76, "Text"], Cell[122058, 3825, 655, 27, 47, "Text"], Cell[122716, 3854, 221, 7, 47, "Text"], Cell[CellGroupData[{ Cell[122962, 3865, 36, 0, 50, "Subsubsubsection"], Cell[123001, 3867, 52, 1, 57, "Input"], Cell[123056, 3870, 220, 7, 47, "Text"], Cell[123279, 3879, 2917, 95, 72, "Text", CellTags->"eq 1"], Cell[CellGroupData[{ Cell[126221, 3978, 86, 1, 55, "InputOnly"], Cell[126310, 3981, 70, 0, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[126417, 3986, 766, 21, 57, "Input"], Cell[127186, 4009, 456, 15, 57, "Output"] }, Open ]], Cell[127657, 4027, 728, 23, 64, "Input"], Cell[128388, 4052, 232, 7, 57, "Input"], Cell[CellGroupData[{ Cell[128645, 4063, 237, 7, 57, "Input"], Cell[128885, 4072, 1701, 52, 100, "Output"] }, Open ]], Cell[130601, 4127, 356, 11, 57, "Input"], Cell[130960, 4140, 236, 7, 57, "Input"], Cell[131199, 4149, 236, 7, 57, "Input"], Cell[CellGroupData[{ Cell[131460, 4160, 111, 3, 57, "Input"], Cell[131574, 4165, 281, 9, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131892, 4179, 121, 3, 57, "Input"], Cell[132016, 4184, 281, 9, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132334, 4198, 257, 8, 57, "Input"], Cell[132594, 4208, 1235, 38, 92, "Output"] }, Open ]], Cell[133844, 4249, 282, 9, 57, "Input"], Cell[134129, 4260, 359, 11, 57, "Input"], Cell[134491, 4273, 359, 11, 57, "Input"], Cell[134853, 4286, 125, 3, 43, "Text"], Cell[CellGroupData[{ Cell[135003, 4293, 188, 5, 57, "Input"], Cell[135194, 4300, 3318, 100, 169, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138549, 4405, 188, 5, 57, "Input"], Cell[138740, 4412, 3296, 99, 169, "Output"] }, Open ]], Cell[142051, 4514, 264, 10, 43, "Text"], Cell[142318, 4526, 957, 28, 92, "Input"], Cell[143278, 4556, 957, 28, 92, "Input"], Cell[144238, 4586, 793, 21, 47, "Text"], Cell[145034, 4609, 495, 15, 57, "Input"], Cell[145532, 4626, 922, 22, 47, "Text"], Cell[CellGroupData[{ Cell[146479, 4652, 290, 9, 57, "Input"], Cell[146772, 4663, 511, 14, 57, "Output"] }, Open ]], Cell[147298, 4680, 362, 10, 44, "Text"], Cell[147663, 4692, 419, 12, 57, "Input"], Cell[148085, 4706, 419, 12, 57, "Input"], Cell[148507, 4720, 342, 11, 57, "Input"], Cell[148852, 4733, 342, 11, 57, "Input"], Cell[149197, 4746, 325, 9, 57, "Input"], Cell[149525, 4757, 922, 22, 47, "Text"], Cell[CellGroupData[{ Cell[150472, 4783, 290, 9, 57, "Input"], Cell[150765, 4794, 511, 14, 57, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[151325, 4814, 36, 0, 50, "Subsubsubsection"], Cell[151364, 4816, 72, 2, 57, "Input", CellID->133054997], Cell[151439, 4820, 516, 13, 80, "Text"], Cell[CellGroupData[{ Cell[151980, 4837, 86, 1, 55, "InputOnly"], Cell[152069, 4840, 70, 0, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[152176, 4845, 829, 23, 57, "Input"], Cell[153008, 4870, 456, 15, 57, "Output"] }, Open ]], Cell[153479, 4888, 1740, 49, 171, "Input"], Cell[155222, 4939, 211, 4, 43, "Text"], Cell[155436, 4945, 778, 23, 75, "Program"], Cell[156217, 4970, 97, 2, 43, "Text"], Cell[156317, 4974, 83, 1, 57, "Input"], Cell[156403, 4977, 3779, 111, 63, "Text"], Cell[160185, 5090, 121, 3, 43, "Text"], Cell[160309, 5095, 264, 8, 57, "Input"], Cell[160576, 5105, 259, 8, 57, "Input"], Cell[160838, 5115, 135, 3, 43, "Text"], Cell[160976, 5120, 426, 13, 57, "Input"], Cell[CellGroupData[{ Cell[161427, 5137, 290, 9, 57, "Input"], Cell[161720, 5148, 511, 14, 57, "Output"] }, Open ]], Cell[162246, 5165, 129, 3, 43, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[162412, 5173, 36, 0, 50, "Subsubsubsection"], Cell[162451, 5175, 52, 1, 57, "Input"], Cell[162506, 5178, 424, 13, 44, "Text"], Cell[CellGroupData[{ Cell[162955, 5195, 86, 1, 55, "InputOnly"], Cell[163044, 5198, 70, 0, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[163151, 5203, 766, 21, 57, "Input"], Cell[163920, 5226, 456, 15, 57, "Output"] }, Open ]], Cell[164391, 5244, 728, 23, 64, "Input"], Cell[CellGroupData[{ Cell[165144, 5271, 236, 6, 57, "Input"], Cell[165383, 5279, 2223, 71, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167643, 5355, 418, 12, 57, "Input"], Cell[168064, 5369, 953, 32, 57, "Output"] }, Open ]], Cell[169032, 5404, 481, 15, 57, "Input"], Cell[169516, 5421, 481, 15, 57, "Input"], Cell[170000, 5438, 325, 9, 57, "Input"], Cell[170328, 5449, 922, 22, 47, "Text"], Cell[CellGroupData[{ Cell[171275, 5475, 290, 9, 57, "Input"], Cell[171568, 5486, 509, 14, 57, "Output"] }, Open ]], Cell[172092, 5503, 135, 3, 43, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[172264, 5511, 36, 0, 50, "Subsubsubsection"], Cell[172303, 5513, 71, 2, 57, "Input", CellID->38138293], Cell[172377, 5517, 3116, 71, 63, "Text"], Cell[175496, 5590, 1264, 52, 47, "Text"], Cell[176763, 5644, 524, 18, 57, "Input"], Cell[177290, 5664, 728, 23, 64, "Input"], Cell[178021, 5689, 2313, 64, 160, "Input"], Cell[180337, 5755, 166, 3, 43, "Text"], Cell[CellGroupData[{ Cell[180528, 5762, 332, 9, 57, "Input"], Cell[180863, 5773, 601, 15, 57, "Output"] }, Open ]], Cell[181479, 5791, 169, 3, 44, "Text"], Cell[181651, 5796, 199, 4, 75, "Conjecture"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[181899, 5806, 51, 0, 50, "Subsubsection"], Cell[181953, 5808, 719, 25, 76, "Text"], Cell[CellGroupData[{ Cell[182697, 5837, 36, 0, 50, "Subsubsubsection"], Cell[182736, 5839, 71, 2, 57, "Input", CellID->15373341], Cell[182810, 5843, 140, 3, 43, "Text"], Cell[182953, 5848, 947, 38, 43, "Text"], Cell[183903, 5888, 674, 22, 43, "Text"], Cell[184580, 5912, 4030, 112, 211, "Input"], Cell[188613, 6026, 3999, 111, 172, "Input"], Cell[192615, 6139, 506, 21, 56, "Text"], Cell[193124, 6162, 342, 11, 57, "Input"], Cell[193469, 6175, 342, 11, 57, "Input"], Cell[193814, 6188, 106, 3, 43, "Text"], Cell[193923, 6193, 1667, 63, 100, "Text"], Cell[195593, 6258, 325, 9, 57, "Input"], Cell[195921, 6269, 1776, 65, 182, "Text"], Cell[197700, 6336, 1074, 33, 64, "Input"], Cell[198777, 6371, 248, 8, 43, "Text"], Cell[199028, 6381, 222, 7, 60, "Input"], Cell[199253, 6390, 26, 0, 43, "Text"], Cell[199282, 6392, 137, 4, 57, "Input"], Cell[199422, 6398, 160, 4, 76, "Text"], Cell[199585, 6404, 61, 0, 43, "Text"], Cell[199649, 6406, 212, 8, 43, "Text"], Cell[199864, 6416, 74, 2, 43, "Text"], Cell[199941, 6420, 601, 18, 57, "Input"], Cell[200545, 6440, 265, 5, 76, "Text"], Cell[200813, 6447, 407, 12, 57, "Input"], Cell[CellGroupData[{ Cell[201245, 6463, 499, 14, 57, "Input"], Cell[201747, 6479, 528, 10, 46, "Message"], Cell[202278, 6491, 528, 10, 46, "Message"], Cell[202809, 6503, 528, 10, 46, "Message"], Cell[203340, 6515, 490, 9, 46, "Message"], Cell[203833, 6526, 422, 10, 57, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[204304, 6542, 36, 0, 50, "Subsubsubsection"], Cell[204343, 6544, 52, 1, 57, "Input"], Cell[204398, 6547, 142, 3, 43, "Text"], Cell[204543, 6552, 675, 22, 43, "Text"], Cell[205221, 6576, 2889, 84, 176, "Input"], Cell[208113, 6662, 506, 21, 56, "Text"], Cell[208622, 6685, 481, 15, 57, "Input"], Cell[209106, 6702, 481, 15, 57, "Input"], Cell[209590, 6719, 106, 3, 43, "Text"], Cell[209699, 6724, 1667, 63, 100, "Text"], Cell[211369, 6789, 325, 9, 57, "Input"], Cell[211697, 6800, 1776, 65, 182, "Text"], Cell[213476, 6867, 1074, 33, 64, "Input"], Cell[214553, 6902, 248, 8, 43, "Text"], Cell[214804, 6912, 222, 7, 60, "Input"], Cell[215029, 6921, 26, 0, 43, "Text"], Cell[215058, 6923, 137, 4, 57, "Input"], Cell[215198, 6929, 160, 4, 76, "Text"], Cell[215361, 6935, 61, 0, 43, "Text"], Cell[215425, 6937, 212, 8, 43, "Text"], Cell[215640, 6947, 74, 2, 43, "Text"], Cell[215717, 6951, 601, 18, 57, "Input"], Cell[216321, 6971, 265, 5, 76, "Text"], Cell[216589, 6978, 407, 12, 57, "Input"], Cell[CellGroupData[{ Cell[217021, 6994, 499, 14, 57, "Input"], Cell[217523, 7010, 528, 10, 46, "Message"], Cell[218054, 7022, 528, 10, 46, "Message"], Cell[218585, 7034, 528, 10, 46, "Message"], Cell[219116, 7046, 490, 9, 46, "Message"], Cell[219609, 7057, 421, 10, 57, "Output"] }, Open ]], Cell[220045, 7070, 195, 4, 75, "Conjecture"], Cell[220243, 7076, 87, 2, 43, "Text"], Cell[220333, 7080, 104, 3, 57, "Input"], Cell[CellGroupData[{ Cell[220462, 7087, 681, 20, 57, "Input", CellID->161898720], Cell[CellGroupData[{ Cell[221168, 7111, 119, 3, 43, "Print"], Cell[221290, 7116, 151, 3, 43, "Print"], Cell[221444, 7121, 151, 3, 43, "Print"], Cell[221598, 7126, 151, 3, 43, "Print"], Cell[221752, 7131, 150, 3, 43, "Print"] }, Open ]], Cell[221917, 7137, 245, 7, 57, "Output"] }, Open ]], Cell[222177, 7147, 869, 25, 57, "Input", CellID->875830157], Cell[CellGroupData[{ Cell[223071, 7176, 513, 14, 57, "Input"], Cell[223587, 7192, 53354, 917, 752, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[277014, 8117, 67, 0, 99, "Section"], Cell[CellGroupData[{ Cell[277106, 8121, 34, 0, 50, "Subsubsection"], Cell[277143, 8123, 306, 6, 76, "Text"], Cell[277452, 8131, 1810, 68, 200, "NumberedEquation"], Cell[279265, 8201, 356, 13, 44, "Text"], Cell[279624, 8216, 2268, 92, 82, "Text"], Cell[281895, 8310, 2710, 80, 151, "EquationNumbered"], Cell[284608, 8392, 901, 21, 77, "Text"], Cell[285512, 8415, 41, 0, 43, "Text"], Cell[285556, 8417, 1173, 47, 55, "EquationNumbered"], Cell[286732, 8466, 22, 0, 43, "Text"], Cell[286757, 8468, 423, 17, 43, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[287217, 8490, 51, 0, 50, "Subsubsection"], Cell[287271, 8492, 52, 1, 57, "Input"], Cell[287326, 8495, 132, 5, 43, "Text"], Cell[287461, 8502, 1614, 45, 160, "Input"], Cell[289078, 8549, 1247, 53, 76, "Text"], Cell[290328, 8604, 1406, 56, 78, "Text"], Cell[291737, 8662, 1078, 44, 43, "Text"], Cell[292818, 8708, 383, 14, 43, "Text"], Cell[CellGroupData[{ Cell[293226, 8726, 355, 9, 57, "Input"], Cell[293584, 8737, 884, 29, 57, "Output"] }, Open ]], Cell[294483, 8769, 506, 21, 56, "Text"], Cell[294992, 8792, 454, 14, 57, "Input"], Cell[295449, 8808, 454, 14, 57, "Input"], Cell[295906, 8824, 101, 2, 43, "Text"], Cell[296010, 8828, 1445, 57, 67, "Text"], Cell[297458, 8887, 325, 9, 57, "Input"], Cell[CellGroupData[{ Cell[297808, 8900, 157, 4, 57, "Input"], Cell[297968, 8906, 241, 6, 57, "Output"] }, Open ]], Cell[298224, 8915, 60, 0, 43, "Text"], Cell[298287, 8917, 1779, 65, 182, "Text"], Cell[300069, 8984, 1416, 45, 186, "Input", Evaluatable->False], Cell[301488, 9031, 249, 8, 43, "Text"], Cell[301740, 9041, 24, 0, 43, "Text"], Cell[301767, 9043, 137, 4, 57, "Input"], Cell[301907, 9049, 160, 4, 76, "Text"], Cell[302070, 9055, 61, 0, 43, "Text"], Cell[302134, 9057, 212, 8, 43, "Text"], Cell[302349, 9067, 74, 2, 43, "Text"], Cell[302426, 9071, 595, 18, 57, "Input"], Cell[303024, 9091, 347, 8, 76, "Text"], Cell[303374, 9101, 49, 0, 43, "Text"], Cell[303426, 9103, 445, 15, 64, "Input"], Cell[303874, 9120, 222, 7, 60, "Input"], Cell[304099, 9129, 595, 18, 57, "Input"], Cell[304697, 9149, 313, 10, 57, "Input"], Cell[CellGroupData[{ Cell[305035, 9163, 384, 11, 57, "Input"], Cell[305422, 9176, 244, 7, 57, "Output"] }, Open ]], Cell[305681, 9186, 49, 0, 43, "Text"], Cell[305733, 9188, 1074, 33, 64, "Input"], Cell[306810, 9223, 222, 7, 60, "Input"], Cell[307035, 9232, 407, 12, 57, "Input"], Cell[CellGroupData[{ Cell[307467, 9248, 458, 12, 57, "Input"], Cell[307928, 9262, 303, 8, 57, "Output"] }, Open ]], Cell[308246, 9273, 49, 0, 43, "Text"], Cell[308298, 9275, 2332, 69, 221, "Input"], Cell[310633, 9346, 595, 18, 57, "Input"], Cell[311231, 9366, 526, 15, 57, "Input"], Cell[CellGroupData[{ Cell[311782, 9385, 546, 14, 57, "Input"], Cell[312331, 9401, 365, 9, 57, "Output"] }, Open ]], Cell[312711, 9413, 76, 0, 43, "Text"], Cell[CellGroupData[{ Cell[312812, 9417, 869, 23, 92, "Input"], Cell[313684, 9442, 537, 12, 92, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[314282, 9461, 36, 0, 99, "Section"], Cell[CellGroupData[{ Cell[314343, 9465, 34, 0, 50, "Subsubsection"], Cell[314380, 9467, 19392, 323, 504, "Figure"], Cell[333775, 9792, 550, 8, 109, "Text"], Cell[334328, 9802, 378, 14, 43, "Text"], Cell[334709, 9818, 36, 0, 43, "Text"], Cell[334748, 9820, 172, 4, 57, "Input"], Cell[334923, 9826, 602, 20, 92, "Input"], Cell[335528, 9848, 353, 12, 57, "Input"], Cell[335884, 9862, 60, 0, 43, "Text"], Cell[CellGroupData[{ Cell[335969, 9866, 601, 17, 57, "Input"], Cell[336573, 9885, 607, 20, 57, "Output"] }, Open ]], Cell[337195, 9908, 1034, 44, 43, "Text"], Cell[338232, 9954, 506, 21, 56, "Text"], Cell[338741, 9977, 454, 14, 57, "Input"], Cell[339198, 9993, 454, 14, 57, "Input"], Cell[339655, 10009, 98, 2, 43, "Text"], Cell[339756, 10013, 1445, 57, 67, "Text"], Cell[341204, 10072, 325, 9, 57, "Input"], Cell[341532, 10083, 97, 2, 43, "Text"], Cell[CellGroupData[{ Cell[341654, 10089, 287, 9, 57, "Input"], Cell[341944, 10100, 551, 16, 57, "Output"] }, Open ]], Cell[342510, 10119, 1779, 65, 182, "Text"], Cell[344292, 10186, 1124, 34, 64, "Input"], Cell[345419, 10222, 249, 8, 43, "Text"], Cell[345671, 10232, 222, 7, 60, "Input"], Cell[345896, 10241, 24, 0, 43, "Text"], Cell[345923, 10243, 137, 4, 57, "Input"], Cell[CellGroupData[{ Cell[346085, 10251, 58, 1, 57, "Input"], Cell[346146, 10254, 702, 22, 62, "Output"] }, Open ]], Cell[346863, 10279, 158, 4, 76, "Text"], Cell[347024, 10285, 61, 0, 43, "Text"], Cell[347088, 10287, 212, 8, 43, "Text"], Cell[347303, 10297, 74, 2, 43, "Text"], Cell[347380, 10301, 597, 18, 57, "Input"], Cell[347980, 10321, 407, 12, 57, "Input"], Cell[CellGroupData[{ Cell[348412, 10337, 493, 14, 57, "Input"], Cell[348908, 10353, 422, 10, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[349367, 10368, 258, 8, 57, "Input"], Cell[349628, 10378, 142, 4, 57, "Output"] }, Open ]], Cell[349785, 10385, 506, 21, 56, "Text"], Cell[350294, 10408, 454, 14, 57, "Input"], Cell[350751, 10424, 454, 14, 57, "Input"], Cell[351208, 10440, 101, 2, 43, "Text"], Cell[351312, 10444, 1445, 57, 67, "Text"], Cell[352760, 10503, 325, 9, 57, "Input"], Cell[353088, 10514, 72, 0, 43, "Text"], Cell[CellGroupData[{ Cell[353185, 10518, 287, 9, 57, "Input"], Cell[353475, 10529, 551, 16, 57, "Output"] }, Open ]], Cell[354041, 10548, 1779, 65, 182, "Text"], Cell[355823, 10615, 1124, 34, 64, "Input"], Cell[356950, 10651, 249, 8, 43, "Text"], Cell[357202, 10661, 222, 7, 60, "Input"], Cell[357427, 10670, 24, 0, 43, "Text"], Cell[357454, 10672, 137, 4, 57, "Input"], Cell[CellGroupData[{ Cell[357616, 10680, 58, 1, 57, "Input"], Cell[357677, 10683, 702, 22, 62, "Output"] }, Open ]], Cell[358394, 10708, 158, 4, 76, "Text"], Cell[358555, 10714, 61, 0, 43, "Text"], Cell[358619, 10716, 212, 8, 43, "Text"], Cell[358834, 10726, 74, 2, 43, "Text"], Cell[358911, 10730, 597, 18, 57, "Input"], Cell[CellGroupData[{ Cell[359533, 10752, 449, 12, 57, "Input"], Cell[359985, 10766, 422, 10, 57, "Output"] }, Open ]], Cell[360422, 10779, 53, 0, 43, "Text"], Cell[CellGroupData[{ Cell[360500, 10783, 233, 7, 57, "Input"], Cell[360736, 10792, 142, 4, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[360915, 10801, 68, 1, 50, "Subsubsubsection", CellOpen->False], Cell[360986, 10804, 107, 3, 37, "Text", CellOpen->False], Cell[CellGroupData[{ Cell[361118, 10811, 700, 21, 57, "Input", CellOpen->False, CellID->44089715], Cell[CellGroupData[{ Cell[361843, 10836, 138, 4, 43, "Print", CellOpen->False], Cell[361984, 10842, 169, 4, 43, "Print", CellOpen->False], Cell[362156, 10848, 170, 4, 43, "Print", CellOpen->False], Cell[362329, 10854, 169, 4, 43, "Print", CellOpen->False], Cell[362501, 10860, 169, 4, 43, "Print", CellOpen->False], Cell[362673, 10866, 169, 4, 43, "Print", CellOpen->False], Cell[362845, 10872, 169, 4, 43, "Print", CellOpen->False], Cell[363017, 10878, 168, 4, 43, "Print", CellOpen->False] }, Open ]], Cell[363200, 10885, 262, 8, 57, "Output", CellOpen->False] }, Open ]], Cell[363477, 10896, 73, 1, 43, "Text", CellOpen->False], Cell[363553, 10899, 889, 26, 57, "Input", CellOpen->False, CellID->377163836], Cell[CellGroupData[{ Cell[364467, 10929, 211, 7, 57, "Input", CellOpen->False], Cell[364681, 10938, 858, 22, 92, "Output", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell[365576, 10965, 531, 15, 57, "Input", CellOpen->False], Cell[366110, 10982, 124615, 2077, 752, "Output", CellOpen->False] }, Open ]], Cell[490740, 13062, 363, 7, 76, "Text", CellOpen->False], Cell[491106, 13071, 150, 4, 43, "Text", CellOpen->False], Cell[CellGroupData[{ Cell[491281, 13079, 888, 24, 92, "Input", CellOpen->False], Cell[492172, 13105, 160917, 2635, 602, "Output", CellOpen->False] }, Open ]], Cell[653104, 15743, 92, 3, 43, "Text", CellOpen->False], Cell[653199, 15748, 77, 2, 57, "Input", CellOpen->False], Cell[653279, 15752, 425, 13, 57, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[653729, 15769, 587, 15, 57, "Input", CellOpen->False], Cell[654319, 15786, 437, 11, 57, "Output", CellOpen->False] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature pvTbJu6tJ6sGZAg4TCfO2Tle *)