Integração com o Wolfram|Alpha

Cálculo e Funções Especiais 

(Ctrl+) embarca entradas de forma livre a qualquer expressão do Mathematica.

In[1]:=

X Plot[{\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "sin integral", WolframAlphaClient`Private`boxes$$ = RowBox[{"SinIntegral", "[", "x", "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "MultiClash", "word" -> "", "count" -> "2", "Values" -> {{ "name" -> "Function", "word" -> "the input", "desc" -> "a math function", "input" -> "*MC.%7E-_*Function-"}, { "name" -> "MathWorld", "word" -> "sin", "desc" -> "referring to a definition", "input" -> "*MC.%7E-_*MathWorld-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{113., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "sin integral", WolframAlphaClient`Private`boxes$$ = RowBox[{"SinIntegral", "[", "x", "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "MultiClash", "word" -> "", "count" -> "2", "Values" -> {{ "name" -> "Function", "word" -> "the input", "desc" -> "a math function", "input" -> "*MC.%7E-_*Function-"}, { "name" -> "MathWorld", "word" -> "sin", "desc" -> "referring to a definition", "input" -> "*MC.%7E-_*MathWorld-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{113., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)/\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "gamma function", WolframAlphaClient`Private`boxes$$ = RowBox[{"Gamma", "[", "x", "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "MultiClash", "word" -> "", "count" -> "4", "Values" -> {{ "name" -> "Function", "word" -> "the input", "desc" -> "a math function", "input" -> "*MC.%7E-_*Function-"}, { "name" -> "MathWorld", "word" -> "the input", "desc" -> "referring to a definition", "input" -> "*MC.%7E-_*MathWorld-"}, { "name" -> "ExamplePage", "word" -> "the input", "desc" -> "a general topic", "input" -> "*MC.%7E-_*ExamplePage-"}, { "name" -> "DistributionNoFluff", "word" -> "gamma", "desc" -> "a probability distribution", "input" -> "*MC.%7E-_*DistributionNoFluff-"}}}}, WolframAlphaClient`Private`assumptions$$ = { "*MC.%7E-_*Function-"}, WolframAlphaClient`Private`open$$ = { 1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{142., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)}, {x, 0, 10}, Filling -> Axis]

Out[1]=

In[2]:=

X Plot[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "integrate sin(e^x) from 0 to T", WolframAlphaClient`Private`boxes$$ = RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"E", "^", "x"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "T"}], "}"}]}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{211., {11., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), {T, 1, 5}, Filling -> 0.625]

Out[2]=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "series gamma function order 1", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "SeriesExpansionAtX = 0", "Series expansion at x=0", 1, 1, "Input", "Series[Gamma[x], {x, 0, 1}]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"series\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox[ TemplateBox[{"x"}, "Gamma"], ScriptLevel -> 0, StripOnInput -> False], StyleBox["\"order\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], SuperscriptBox["x", "1"]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None, None, None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2, 2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement[ "info", { "text" -> "\[CapitalGamma](x) is the gamma function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Gamma.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/GammaBetaErf/Gamma", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/GammaFunction.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Series expansion at x=0", "scanner" -> "Series", "id" -> "SeriesExpansionAtX = 0", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Series[Gamma[x], {x, 0, 1}]"}], XMLElement[ "moutput", {}, { "SeriesData[x, 0, {1, -EulerGamma, (6 EulerGamma^2 + \ Pi^2)/12}, -1, 2, 1]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ InterpretationBox[ RowBox[{ FractionBox["1", "x"], "-", TagBox["\[DoubledGamma]", Function[{}, EulerGamma]], "+", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ TagBox["\[DoubledGamma]", Function[{}, EulerGamma]], "2"]}], "+", SuperscriptBox["\[Pi]", "2"]}], ")"}], " ", "x"}], "+", InterpretationBox[ RowBox[{ StyleBox["O", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "(", SuperscriptBox["x", "2"], ")"}], SeriesData[x, 0, {}, -1, 2, 1], Editable -> False]}], SeriesData[ x, 0, {1, -EulerGamma, Rational[1, 12] (6 EulerGamma^2 + Pi^2)}, -1, 2, 1], Editable -> False], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More terms", "input" -> "Series expansion at x=0_More terms"}, {}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement[ "info", { "text" -> "\[Gamma] is the Euler-Mascheroni constant"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ EulerGamma.html", "text" -> "Documentation", "title" -> "Documentation"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Euler-\ MascheroniConstant.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Approximations about x = 0 up to order 3", "scanner" -> "Series", "id" -> "PlotOfSeriesExpansionAtX = 0", "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ GraphicsBox[ GraphicsComplexBox[CompressedData[" 1:eJx8vHk0VdH7wG24hmvKPGWeMqWSZIh9i1KU0CwkIaGihCJCxkqSmSSZMxSS iH0ks5CZzPPsou41xXu+a/2c+13fd71v/7TO2vece+45ez/Ps30+6xG3umti Q0NFRTWAp6L6z/85+y9q5NiToWO2MD8uiw45fVg65JI3CSYoGFa23KFDdqdf Oav65C901XieL6tChxgV0ej9e/UHniZGJBrQ0iFKGU6BThkrsKTIdFdJDw7R otXV4v+wDIsdmUWbCnFI/r9n0hnlS7CpMmW/VjwOuXRd3c+xnAi3HVd9pkNw iMHZS+dK/Bfh+5ixVP8gHFIgKE3n+HEeXhWL/NQbgUMeF5e9CyiYhXOOIV9u f8YhnJHgvXP3NEw6OPOxfRqHrKsaqH6mn4KTDL512ap0iM4H8cLrrBOwiPVZ 8kgOHXLJYjhq4NAYNH3wEYqfpEd+jjpY/1AdgUVcsqeV9zIgUUpPKmmODsE1 mc4KmhuMyDmnDTbJ3j7ocfhG0oEFPKIl+9yRc7Qbet2/0fpYlwX5Zr74Onlf ByyYciu1vLkLoVKbCsPt/QXhQWmi6wlO5Jf69PV9j+ph1K68iTlXXqRpK+1Q tHglfO7xqT09UxhJERS7dfxCEZQkCbZ8IMgiC/lR3jLbi/Cr89aekkDc/+uY 6n/+fQ7UF/PIKwC2SM2ra9uyhP89nhHx2RaMKQe7qATCbJNFCUdHdml1GNSA e80SdRE3uAmVomqFGjLNoI07aNBPiY3A+qnfIO9IG2jsvtekYclIeJCDt7t7 qAso9tK9XDqLI+gp3igJnekF7SqeXtdLqQkuYpnTm88HQOyMvte+zm2w8CX7 3WkwDHplvw40rG+CrqT4W/q8o8DP9eP+/Qwb4NoXeGKQexzY32KMon20BoRe rpe/X5oAg6brL0Rur4KAdx9Sd1VNgYF2TyGFPDIIHX71jhOZAQshYjWiEmTQ MBKqdjx2Dlh5X1pxaiaBdI6KMba4BSB7syWX8R0JxJYVbsOTRHBndITrWjQJ rJpEmIYdXAIWrgYetJkkIOPNRlBUXgbFDrxO0e0ksMjMvTIougLyeqYutrGT AVvRefNJxj8g3syXGH+VDP6R9pmU0P0FIzfqa7dKySAgJoo7dekvsFgY0Lsl sQr+b70AJLnhoMfvVbBZoGVF85cEB6+dGOt6RoeAPPVJVeE/kO2+vVb2PA4p umBq9UNuBQZF2uLFqnGIO5XdgSGVZRjB9IKlPw2HPM2zOh+ivQRnvnqdevgK h3g9vdeZQiBCaFnlNIi+/20VbUWu+AVYEZ3P8uM5Dom55Xxu7dMcXBs/NGaT jENq07wkNqtm4JZrxtu8RhxCb1vl+HpxCs69wB1CWOgQEWfVB8xMkzBrQ2GK 5TYd8vOpj3SS+DhcFpm4vvsvHcL5Lu2xseooVJHMYr/ziR5RxpNej2oOQx0O CY8fpQwIMvFPnzt3ALbvq2S3EsAjJxsry+IGeuHj+eQ/77eYkM3vWk9M8V2w jX27ZOMjKzJQ7xB+TqkNRoXovjvXxY5MtfcdFbJvggUPfJkADzdiJFRrMPqz GoaoUa2ruAkgYiyHZ9RPl8O/aU23Yk5JIN8MC055/dd8/t9j8idw40rEPPDX MHiVVUAC/3u8FZD8z/i/Ph/tSx+dp/oFXCsitX7llib8VrOzWDKoBLu8mD/x tvITaKhTVhnUG8DRZ5MCopc4CG5DmyYTN3+Bb0S+VL4VJsLRvJUru9Q7QEE0 H1ewOD1hwFGVY3tXD9hTNJg1NkVDsJChb60q7QObjsntMwgVgTuF8Gz82BBw eXuNC9HfAlaKKf4N8iPgTNRF3XsLG2B39t7uCJ4xEC5eOOO+fx1oS/b7HqWd AJ36bPfGplaBMf+5/Cu/J8GbVON9vPSrIKQiUfLV92kwkRRWIHydDBSt2Oc/ ZM+CrKDseK8VElBfT2fLip0HNTy7Q+XQ3+94gudeTeQiQDYDDPbGkMDJIKm9 suVE8DhTopvwhgR23TI+M5C/BPiig/2HSkkg5PgrAfrMZZBE5PINIqLPz1Il 40bECqj3u29lp0IGcdaue+RySeCUYWf8uMcqOL98qqlrHxmKHCy4Vx9Hh9Qq i/DFXfoDXXQjeE6u4pBlr3EXwVsrkH4grS2tGYf0Ul88vHl3GYoc3aMWmoND 4i+Sj8R6LUHJRE3RtUgcMrPckR3kTYQlf2yKVtD4L/29HtqyL0LLzpc6+9D8 IHPMIFv5wDz8KXAzdy0OhyTvE7GqODILU8f+TVxFcMjzxzRBNNbT0Kv9opnr Og5haUcuWAZNQtrjZQffG9EhjDG/5p5Ej0Njd0934RY6pHBbh4m/aBTeeN/f nPqIHnlC2r957uswvJFfeDXdmQEhiW9PscQMQu4vm1PFJYyIYeK1CYu+37Dl 1oljLk5MSMJfa1dVUhe8U/a649UyC3ImYi/XhlI71GvcjXukxY5oGM9exh9o gdnRILRLhAth/9B9EZ9SC6s+D2mY9vAhd49d5+mVrIAD2f6hk6ZiiKfozWWH N/lwhF34YtRPReR/56+sNffdbYMK0HmnKz6ibTcheakn7s6xOqD6K1GvpYyT oOj+vNPncQuwUj1koe7OQtjzccpkUKMdTPEfiD5ygIEgz5p05ItEN5gYBtU2 EbQEk0yVE/Jtv4FwMtdvEXVqgqEKD5V18CDQ/5ncd4FxG8jey+Bi+TwMQl2O Jr+9uwkepo0lLUaOgvxA/YePo9eB4e0ma/bn40BohPl1gtIaKGpLK/aynQRD jnOB7odXQdCBVOsWnWng6DMtIRNABv3ixnrXVGdBrIycnwOeDHzvxL93E5gH 9SM8H8iQBJgUHRRm+RaB/GUq0RfxJEBMduR18SMC5VJG3PNYEsANLJ87fH8J qD1xrcz9RAKXR5oVY28vg6y/o4+3h0nAVTXlp7jpCvBeu0OSRvNFmBe9yORZ EjCppk4yNVwFjxSbz96ZWYaeJ0wPKpThEJ7thwo/1pbgZdYTQkgSDrnD2OTg sUWE6/xPTKtfoPUF7y6qCmoirEjX5/qCxt+e9E8xUHoBfT+rJYZhOITpVfQ6 VJ6D49p6S/s/4JB54cER1bMz0ML4Y4NHLw55YhhkLOUxBR9tqg3WidEh+9my I4qeTcCysZd8XM/pkHDnAxbwwxi04jN5yyxMjzgdwy+FFI3A7OrtiV9z9MjY 7lKF++VDsHfgegMjCyMS8mEze/ePfvjiZSdfsjceOba+J7JzqAeW0Y6/FI1j RszCeEO8hDqh5bTRw1ofNuQudRZH9t5WaKKo9GzcjwMxYxj9JX2vEe73+WM4 vY8HefniC6GM/APyvvv9QdByN2L1+kMmNCqBqbHbK9YtUgjSomNgM1kC7gKe 0Gc8EoRQ1m9nRg2qgBtCs4fHmpdgxX7n4rt9PwF1V/OHagl2wveTt5v1TVoB zk1yFUbjCVdztyzB4U6g8IJRbkGRjhDe2Dh+4l8PkC/i6ysyoCHcet9lfj2l H+Qpv8/oNqYiUOe68gpUDAG9zzpRW/H/QMLEW3JI0ghATMpUA1w3QNkn110a kWNAsCyJ3ufXGtjbM5t079EECE+ybniSsQrmzLY/qBhNAfUDsQwl3WTw3Dhm xPjoDPhm8p2jG5CBZ3Jz+KrEHPgyvkGrOoTOL//Ch30CC6C4utpvLIME7D5e 6/uFJwLDx2w3WqJIIOl2n07fKhHEnKzIuZ1MAoJ/8k74Ly+BqyszAUE1JJCi P7HfgYUMViNSYklZq+AJh9HTY2fIcNJk/1OLZDrkuQt7XoPLHxj122132T8c Esal4FUVtALnsgrU3raj8YrmjEbIi2X4/Nv9TKFPaHzLOvopKXEJOh0CMn4x OEQsiyFmPZEIld87MbcF45BixlfB7AaLkN/nTaEWeuyoVHy52Wkecrr3R1VE 4xD2P/PUUu6z8If5KvhagkPO4t/xaCROQ/qcezNLSzjEj46+OqRmEk6Jq9Cb 6dAhae8eGjm3jkOtQE23rHI6hD4v3Gjj7yhcOR5jOWRJj8jcNtzPsjoMrcMu qkNDBqR2cDv+Kf0QNLK6uMoYyogYBeasE672wUs5h0ym9zIhc6HuzimO3bD/ YlZDXCwLgnsY2maY1w6jlmfEnOd3IW9+TP+hz2uBbpUdDpp5nIjTsqWZ0Ms6 yJBv1usrzockij1NLZb4Dv901beMCIgi7G8qcy4/LITmYE5hylgeaXpo70Z/ GgGsTbMfYxOECcvTf2bF9WqB9pjSyd+BXAQG3fMxZxlbwL+PIj/yT7MS4vbf OFtT2gb4D7DXBfxgIBj1nzfhyu4Cx/krlViItITGGYMnfRa/QclQgsmCOzXh uvygy37mQWCX9MVW/PY2YI7MMlV8NAxiyUd0pws2QYYkgU744igg8zgaqzat g4ucNR1uRuNg/d6vYxHn1sCtTy2aHIqTIIYVzwqNV0HgLVk6J9w08H0/qysd RwZFPs5/1DZmABJb42TPQwZpsjx3LHrmQJxe9EczdD51i/Ay/uteAPo9D1rp EklA9yM7s6AtEfR03Q7SQfO3V4xO141zS+D6AzmdPTkkAPffLRo5uwymZswz ZH6TgLK42RCV1gqIjfojZSFABs+eGQpUi5GAdtYZ971qq4C/gvuKANMKVHvX gntdgUOqt52UTPiWocy3ffml73HI2lX+IV+RJRjKZZPq/xKHnPxJmFUWJ8Lq 2Of8OWj8c1xws7pluQAr9YT/3grFIcaPcelm9+ZgNm/yrUS0fjUdyfWNDZmB xh+tHWzacIhOr8zg1c9T8I7B0afPeOmQdLCEG66fgOJ/q7+qe6Lx0KOnIm9i DO7zvsufz0iPVCxdOnyHNAIvFv0qCmiiR56Fd19T+DcEr1DfURMYZUCkT/3b 4FMfgOQYgspTAzxyfPRBZvG1XuhEI3cySZ8ZyZaT958L74T72MnhS7xsiMwE U+t2Tit81pZnwqPAgUgsDOLF7/yEGwW0N6PfcCPEdnCiZaQKtskbK/NfF0Qq zi7VeRp+g3fD3rKsPpBEryftzLTrK6C+QiC8dZckqEhyXpwx+AGibbxHrz3j I+QzBqefV2kEK2fFaI2+sBMSuA+94u//Bf4NfTSLJTARmpQemu8p7gBGv7Wo uFPoCMUJPhvJAT3gEanWOCGGhjA2thDNtb8fZHFlyxoEURGYMn8bbfsMgTQV Ota4pX/AG5+s/cFmBNB/blW69mkDzCm13r95YQykeXf14ajWgarXGEev9gQY otKwZ61dBYkacvtqeKaAqr3/1swC+v6Dd/stUc+A9HsNq3RGZHCehghaJ2eB L+HOYOA0CXATlHQre+ZBEFF36Qs6nxLP2Ud+bl8ENfVZZIDun/48eqLm+5sI pL7pqGW+JYGIXKr6T61LYLB0tjigggTeXlJS1O9H8/bDP4Har1cBO21O7SuL JZhQcUg66TUOKdRMqeC1JEIvXWfkNFrPhXvgSN86FiCOejbu6jMcMnhhYDty aQ6y7Xmxyz8Rh0TlNZqk57bBy4UKoVpB7Ehuac9DPttmmKJvzUWM5EI+3jAy JhXXQO+ibb5/b/kRgrW2/4YUAnVy99BWHBNHfH9Pfjtv8RkwfNRmebcqQ/A1 LLddNfgOdH6fMLXUEiSYrJWfKtWqB8sumfVutJwE3Pf9cf7Os+DckxYrkS0S sCgU7wm7Mg+cFvNstb6SgKY6YthzcRFI68icj0frj4TIWvGmJCJQoqd6oIrW JyGSyS1Mr5eA/pW7A9FFJDBS6Ee+P0CEvW5b4UfQ/VlxWYlc4o9FeHm3Ts0W un5OXJ9t4pmdhzc52Fruh+MQpRP7NLNYfsCxf9Kmkm5CCG2XTTDNuWKIkHjP KlnLIB1uVtII/Aa8Q2g6/IbECFNkm+N9BtVg0PHGsc1LPITGBo28v1cWwLcR x6sfUkiA6jDTwkk5IuA4opH3G81fpy3VzqryLgGqjV0Wz1NJIEMr8dBzTTKw 9+l/wVy5CnjFzw2Sr5JhiuWG+L40OuROJN7D2u8PjHVUVPGhokMG+3/SxMes wOrPOpayXThkzLdW0zhhGR63kWRbyschc222Dim5S1D/zHnN3lgc8s0/6UVB LhHyTFO5XkLrdRpFlzs2doswkM38VS/6/sNSFnLfhM1D9t58Ed0o9Hl0dhh3 RM7Cvg7+UsZiHLL/rFPfhdJpaO/mGN6J7pe1E2W3RCcnYYA0/vPSETrEJe2M 7/TiOOw79fzxgSI6JJe+ZGWOZwye5eNpszxPjzySNde34xuBjwUbtJq0GJB9 DEhepeQQ9PouVGPszoi0erTj8uP6YAzC4vCZlQmJuEpz93d6N3w3R+cfcYcF sZwtL3BfbIe2DBJ7/TJ3IYZbU9/pFlqgUfjlKoZHnIgYr/RgKq4enr8Suyet nhcpehk5vyf5O+znpjsMzUSQ3t/OzGdvfoZ3X18L/aIlh+jgFchcMRDcat/7 WClahCBo6xvhUVcDrpgcV762wkWYOue07BjfDJbUvvzsL2UltDslndH0bAM3 fTT1TnEwEqyO7zOvcOoCjndurN4TxRFCnl1681nqNzBLlT73K5aaYC+tm8fb OADGcJO9Qu+2gWeagtc3s2GQV/auga5rExBGbn85qDoKSM5lxbdm1kGvtU7o B+VxEHVx40CC7Ro4lmTzuJdtEozpB8oaXFsFAXT2HXBsCtC7xfUFpJBB8ifq htT+GRBQ/JI2dzcZFNOZtBl/nQOPtzaTjBpIgBDjQPL/ugCYgt2qH6DxYaHI iu72JSJ45BX14QcaP0r/zvI/0lkC3CaFVYwfSGC5S9uD4egyYKwS/N7RRQJh vMW3nJRWgNFjcRYONB8yhi9HHcKTQOQCD5/23lVw89mX/gWBFXhkU2+uvRKH iD6Z2ycgswy3OC/n66XikHJ/rbgApSVIYxW95Y7W46MZPUOz+4mQO+VoSzm6 3oo4ruqVP16AvC6Tmi/Ret5lReOffPgcVOZTY3FLwSGvfkS16mfMwFbm0/Fb 6P5USoyU6tY6BUskKnOiOegQq24uLdeZCei97x1/qAsdsuWds7IHNw4VjofV NW3RIfanvHuv8Y7CBtWB1nZIjwycmXwYKDQMP+x2jD3SzIAsRz+WjLo/AA/+ OsJ/SBmPVHclFMi97YW/gtVHVaSYkfOkAl/Jpk6Yum59/NooK+J7WTNfbqEV vqjx5o2l4kD8rw+kisz9hPYLZ2o0L3MjSau0dVcuV8MF+Y1L2dMCCHEvt+nV M2VwVlSmNqFXApHo5MH1SxSDjbochxJtKQKjklbvfEMlmJ8TivOR5yf0PuU1 yi1qAEI5mtmldByEkHX+e97Jv8Bm+vpgdAwTgfFu0dV49w4gGvb03b9hOkID zoze2KAHHA9+uscYoSG8818vnPvbB3g/JX4+l0JFeCnDduee1RBotn2z76vw FiAKSlppnhwBTq2ZwknNG+Dp/La016ExcEFuA43Y66CkxbKeVXwCqIUqrht2 rwJ3uXKnsNVJ4Np5rt9ynQxCpM3PHR2ZBmkm5vtdLpMBQfkJL6ifBYfo06/d WSABGWGHzKKv8+COUMtXs48kQPcT+ml/XgSn08ZL0tD5lujTqtzRSARMN8xv 3kLrp1bmTOba70sg7Y8oa0Y5CQhZtGZ+rSIBwwt6jAGBq6BTsdU38s4StNzI v1sdgdbLfFpfmu+i+z8Lo92xaLzqS5zs5VhZgFKyp6nL/xPPGrkvWnPMQ4XW 2LbCBByyLP5P+ddCG3TKKsm7aMWOcOzr5uEZa4YuL6/svXWFC7EM5G73VqqF Cikmx75o8COX287+tE9B4EbOz6AzDWLIamD32T33CoGIJ9/jCGZZwoUr0zMb DRVg6qiIQybNbsKjB6eXuZE64Jc97FxvwUkgLqEl87lZYObrSZ1HSwZOryy0 n6rPg3C1VVf/bySQnM+jZXV4EYQZeb30iyOBEwmCQuLhRLDlfF3kAnpc80Sf U9xvCUQ2D2rzFaL5YCDjk9sCEeY2XypYR/PVgsscN/vYIrxFPi3ahq6fsKdN BfaMCzBxN5vUlVc4ZODWStlB3x9Q1TAyzn5qN6L8OUhg2PgrHBZbe348XBrR lzpXHN5WCrJpr1d0PxAnlNK8qhtsqAJbic5XB3p5CAMZbtzT6gvg+f3TY4Vp JFC4omLzQoAIQl9y9laj+YpkG3IqmGEJPLf58nvpPfq+dY8VbEiSQT6Yivtb tAr8m+4kH31JhDdTBG+ZofufO+M5KaV7F+FJh+rDeehxwKd75qfeV8AJqesO c8OiyAkLHiOrZwVwSOEm/bMnCohzKiLgsroAyAlH7YoTSCAus5y9xoUIRPh+ 2v5G62sV5RVpb7YlqBNhbvUWrW9zltL/PuQgwmI9+wdZ6POQaIh4zK2zAFMV /GzOo/VxuHOTeuLZUli6XpDbICSFqD5WGTi88RVE/HpGLEIkCDQ3lgaa1+ZB HhVDoQYa/w73cqcr/kHnKzL6fhX9vQKWzI3mRkR41GeziQ2dbycvi3PYFS/A UvlNDUb0fbRDe0sj10VQbLDG2I7e33Ko6x6PPCK4ZbVUsw+9f6FnFlpOTWh9 jhcVe47WU770wdqKqYtwgfezugZ6vdOPBl1x6kSgWKMQwoauD/nD61+EzpFB Gc+6olrzKhjJaH9ucoMMY2qfcgpkoPlemn74Y8gfGP2VOmmcGt0P6ohW+Set QM5kWVmnbnR/qRPwrfD9MtSyNfUdKMAhzXYPT6YVLUEXj1XNkDgcErLiyBhW RIQL2ofrE9H1klY2PrTLbRE60UpdykXvJ3kQ3/s0aR7+U2mYeR6JQ6xq6tZy UmahrY7ni+IiHCK+3AVH66ah401t99ZZHJIwox43Q5qE6S1N8fXqdEhfxuH4 1K1x6FhR34nLp0N8889UjUuPQaP6U2fUDekRqQDrS7x7RuBuxZPwwSEGZEQw Sf2G8hC0WwZWb24zIpykyWD7kj5oOMnV0P8Pj0wdrZl3reqGfnxRKQ5XWJBQ qa73L3Z1wFHagBD1oF3InvgpOX/WX/BIdo4EiyUnsronMMke1EMjzyelN5N4 kWN6ia8Gh7/DgQO9n7eoRRCwcVJDf+AzbD/aY+D5TRbh5b7owccPgVm6690E QVGCklSdXUZIDfgpFMgzKM9N6FQ/39Zm2Qxyz8fRwT+sBCI7PP3ArA2EPc/+ 9UiNkeD4MMGK/1wXOOOZ/iP0MI4wdbVfIZkB3a9+TXjsl0VNWEx2bQzOHgBt azS/fUu3waF9cy9xhsNgwej97bapTfC84ik7kBkFr6XyrEtW14FQqI99leQ4 IC/K9+k4rYE8vv0igGoS3NnFOKxgi+b/tpCyyfYpEKISHt2SSQYxdadU+5pm wCjHJ55hETI45kL0N8icAwEP3qhc/YnuD85H3a7PXAAZ1691aCSh+9WSZ768 RkSQtd6eH4rON1MpRN1fcwmQbSr+0mSRwPMPaf2x6stgs/arjkonWj9w2CrJ 7lkBLrJDx4icZKAX+ePC7X9/wVTK6KWWPasglMiY1CO+Aks0wy6s/UDnMyHr o+feZag0/uYQB7rffCdo5BakugT1PHmDyGj+/8ibdrVWjQjLDERP/ETXq+n7 xq92zxfgAY6ez3vQ/B+gdFGWM3kOMsjJFzmg+93szyGPJL/MwPMLI3vON+EQ nkrzYLrhKVi/POYgu4sOQaSkewjrEzD5FUGr1okOsfWNZhnjHIfM5BvSi2t0 iPZfzuzLMqNwZJNZOqaYHgn6sBBwSHEY4jNjhVyqGJArUOtwR9gAjDnuov1N Go8wmHxUGynvhbxfT3sZczAjGX3u1HC2E9q9d9FgrGdFPr46l6zN1gZZ0tT0 WmbZEdX4/vvCCk3wpHzlzfuq3Ig7k22IyOtq+PFD3WJnngDC+EY6ub6xDNpL 9RgNhUkgZoqhZ6qzv4D+ZaOBt+lShHsFJgmLzyqBH/3LKwcf8xMWjplL/XZr AE+u9AwwK3EQnsyHjCj7/wJldxUYA6qYCFK7Okw7LneABxG7DodS0xPa1eqY M/b2AMM/op+82mkIVBef6PR09wF6lo0jL/KpCCY26ZsfTIZAh9PVC6IqWyDz /eh9P/UREJnANEAa2AAtjbzewdJjYC5RxFJRah1sriWm7eGcAK00I5Ivh1bB WFIQx9/pSdB0xDr4INUqCFl5rHmrdRoM0Aw8qjAjA1X9Wp8HpbPAbahLa4lI Ah+f4c0+Zs4D3hpLwfJPJFAcPLPum7oI5GE87QQ631aebuR5VRHBVNnXg61v SMBJ47FiW8kScBObtjxaRgJXr6fYLaH7Oh/utfp8n1VQXDF2Ldp1CVK5kY9Y oPFIyB+vnO1GhGn3rr//gcarJ/uvnPlGvQg9LSPqXNB4xs2w38dAfB5mvH+Y 3B6PQ8Su8khOsLVDrUSNgpqz7Mj1wtmlYI4WaDljJz2qyYWoxbpG6t6qhcob FxVf4vmRsZDLzhJjCKzBf+o4Fi6GHBwwimXfLAAK30Rvvk+UJZQPbGX/e1YB /sU974y7tZsQevB19VGfOrC8Sv287QUnYQKP75M9PguS99CXBdKTwdr2JvGx 3DxAbvbrqKP1zcW7hMK0PYtA8Zq9DA7dn8a/1YmtDyEC5dMp/vPo/tU2T+Sg oscSEHwWuDqYTwLP7peGPiQR4S0Ot24LdH0EG/kz1a0swtCcXNlKdP2o8BJk ePgW4J0vIjO/0PVV5HHBe/XbD3i7ov6y5/vdaL6Pu2706yuMes015bxPGvF/ 1EDtaV4KuA/zp174IU6QCkp7NvysClz16BXOEOEl3OTjrRmRWwATZW+na9JJ gM2kPimPgwjsVtR+1qD50MC+oFqZagkU14aTFNH8b6PHfe8gPxmse2YfXvm4 CkyOaAqLRBNhnH3DViSa77ncRPlsjyzCC5vZ6S7oMectD2rq0QpoNvLH0NNT FPnweM7LnKYQ0rS0XP44Lo9IWc2GFU8tAOWir62m6PxYzJ584XSbCE7WJlx9 juZX3ho6Wh/eJdh/onmAHc3vj665OF0UIMJMhbThTPR51JjRE8uNF2CKc9jB frQ+yBoa9GFtLoVcSeTdgzWSiHNb9h5x/6+AOUXX8p+gJOHZr5ev6qbnwa21 vbdcsklgJgqIOI8tApdHmTb86Hyd+Nl1QuMyEfbIEskK6Hybnw7346xZgDmr Dxg+ovk8yDOyK8J2EcxmlUQdRN+fXvjbFKkMIvhdPibxEX2/26LOgvc60XqV ++67EfTzwiPiKuOFi5B76shTQfR6ad0u+TIHiKCW7Hx9CX2+tzQaXc/rkUGl vwqLaN0qMI+j2Sy5sghfV/lfYUKfX2yBelClBRGEi775S/Wf56HJartLjgiV 6CO5C9Hfb8IeybL+YxEQT/vZ3EXv3zfT6cjKTSLUcteXdEa/b+HvTJWw3iIQ uhl1hhmtN8/FnhO91L4Ix83HNyf+E48j38o5iBOBafJdr5/o/Qz5/X70Bk+E p8459uSi49/Z/vL9oSaCkl/taUP/+fvFsraxz0kiDC7u0P+LjovREqaZAxbB D4+kRE/0/ibkiSfvRy5CufzYeXP0+5d362uOEIhgoPyVyEH0/uYOyq6NWZDB obiMyYsdq6DWMXJ025YM1RLhPbZMOoT/Do77UugfePcm2+0YGjok7q+ejEfK CnTipe7m7sEhMpLjnrbpy/Dbx0bmi4U4hFBAczi9ZAlaJLNeHkXrHSf5tuNe JUTYO7v8tRKND+4BIoI2XovQRKTwxX/2D/KPo++6Z8zDPjHTfQfR+EKElWcE s2ehdCSfOyda78RVPvsk/2saft83Vt86g0Mawo5NNW9Nwiu1iyEaanQIe1Z2 Oi39BGxUyrq7nEeHOAbxKY3sHYMWMR3BCgb0yKrKlPm80ghU6si/aXyAAfkm FbaVrz4EW6519Z+2Y0SUC5wbT9T3weQBFiMaEh7h/CyXo9veDQcMp23nDVkQ 6aOju2NEO+CEQ64sdNuFRNyy69cV/gWvhpYPqJzjRMb2q1H/NKuHi12L+8Kf 8SKM75NvlFJXwpfmjyMDO4SR5ZDCXzUCRdDw+pri3GNZpORgiU2+cZ72Dq98 EuugJdBdDk4Vh0cum4sS1PzmWrUdaoBVw/1YTj1uQqNitU6gTjN4a2eU+5SD jbBlaXg6/HQbKOZv7Dh5mpHgxHVuXEe3C8SY7lb/ooMj8OuK3edf6wWpcjfW 5/KpCfnDu65WJgyAz6Q4/ZbabRB+vzEm48QweM754Hj90iZQPsBepisyCrjf DiQRt9dBeXLSZROhcaDW8adA7MEasD2H7v5WJ4AofTMp+RZa/2jEf9ponAJS 56rLPbLJ4HXHvINbzQww29Rf8xIjg4AP4NrJd3MAajjkWDeh+8gChcy5dwug j24hPQmtfxY0xY46nCaC4u8xfK7o/MvUlK8PObwEhAz1b/tmksCVyF620UPL gIX+kK5NBwnEsJWxP5VcATrZf4yGOchgImrvoWDyX6D75OzabulVIPH+AHWz 9Ar0FLlk+7wKrZfF8M5KB5bhcubPTle0/uG06bEJ1liCnDo8NGro/iz6DEts 0REijL+1b7wDXS+KjnQrZa8X4Mlqatu/6H5iV+NoGV3WHDz8BQhPJeMQjdyn TS/LZ+B2+D8Zn584JDSCw+P01BS88Kr37gorHbJYv3ePDM0kzPbS05m+g64P PxaBY4LjcN5EuM6PTIfINvRxX1AahaKOEfVUn+kRc9N7L1hUhmHW+ieVWIQB YWkTrnB5OwAXRqIuPRPFI7K7NDzKm3qhyBUapj8MzEjr2d/I8/VOyN57utS9 jBXRy70meEqkDQY0MQUGDbMju9T6exP0m6CmathytTQ3Ys3FN/vkYzV8HTO5 2/K1ABJxXumEL0s5DHggBBcdJZBHl/SXS5y/gH2Vn84m90sRZFzNHxMdKsHr 0Utu5un8hNV3T0KdLzeAlATDGs9jHITNicq4566/QNCbRBWNPiaC8jVr0+WT HeAH3l/bi4Oe0NPqHdom0gNkCjxfZw3QEPZpV4acre8DXmJL3l++UhEKcH8q a/WHQLvLp4t2YAvQT1V67lEeASUnxkh5ExvA9UiywkvhMWB65nGKofw6eMNW HlHINAFmz5VKfhlbBXF989fTRyZBr6n+bwlatP4xDd33uH4a6LYUf5lH49aB i45f2AtnAW05Eq+6jNbb3y8fynk3D3wPtoXdQ/M355S3auobdL9fNJvGiMbD RPqwO20VRDDT4FwfhOY3xHjyW3fREvDa9U4t7BsJrFuxnmRF9/1N9szODV6r QJ7ljmHMoyVYaFpm8AGNT7Tf7t6N8yDCFMvO0t9o/DJZexXAgV+Efl55YcZo fHuTUsYL5OZhXP0lH1u0/ilyE48nirTD9yNPq2JOsCNNvg6pp8RboHj3SzXD vVyIVPIeUlpALUx8ffLbxSU+JGvCTGeLtgI+kg+4b+kqhhjhWbXpKgrAEpP/ ye8zsoT77/ChWw4VQJl8IlolcTchJrxof/f1OnAs5yWuIJWTMMKTw/FDaxbo 1qdorTKQgfbh0/WPxOdB+HE+ST6I1oc/OxZrRReByffCSD00P54Q774kGkgE 9QFO1N/Q/Pm5OqjygNsSCHY2jj+BPr/NMt3Hj9aJ0OaxvFI4Wv9cLDf2T91Y hMkL+5O/oeuHftD9mr3IAtxXHfbrJVr/JD+lHzLt/QH1vfQq4nx2I52/k+kY OUqgiA8bm+u2FJKcGpjmJFEKLETlCdFz4oQe/U+OIw5VoCapzFDuKC8h29Am aVB8AWQfkqK9kEECmtSR5QgrEeRrCUo2/OfvH7N6/oGbRKBvqJDYmEwCuFOP jc+i+6Kj8S77/uSsAvX770xZ4onQ+mAobyGaryfAZaNSnUUYbdZRchk97v7h 3dZH8x26f2dP7NQXRSxYL/P+1iqE17/kly3FySNeyJPG3qEFwGAhDPLQ+RGn 5Hm66hYRWH30lr+Jzp8gjpdLPoJL8GGUaI8+Wv9cj+rN0RVG64teIdwH9HnE SQM57isLMO3VMd73aP2jGjMlXcX2DUoMxbi+SJREQrfsGnn0v4InypVL105J EloYB+2rh+cBMWJgiTsH3R/+bb/yum8RZHtPH1RA4+NPnPZTWTP0+rHhU5ro fEPyG77dbFqA+23TL/uj9cxIrzzXF4tFYC9adMcWfX/LXCo3HqYQgafUy+f3 0PfrZL/OeL+XCLeOP1bchca3mbMLuRXfFmFEEtseFvR6bYGg5fBeIthK7YoZ R58v45FDF52OksGmgnIMd/Uq2H9D8xD7dbRe+nKDdhn9vO6hphP8V4mA7fAa /Qh6f5vO99//U0SvT2haL0Z/f/Yd+ZNCZYvgnmIgZwg6bjfU+XDYgQjDZNez n/7n7zfnn1ATwCJoVCmwPoHWP2IMYnEH+xYhi3t/WB96fqCuvZ6nMBGsh9Bo 1KH3U11ytPgZKxHi5vB7s9HxAQ9vB6bNRRDV45kzi44ry6WG3j1NhMLSG9HU 6PUfXe+QUvJaBCFkCaN09H0VxnyrPPtmEdo+efTaAB0XbeC+snIErZ/qIydF 0ft7duhVN9UVMuiciO860boK6geBSK8KEd4RPRpRhX6fhcIFaJmzCLjy+S2r 0M9/Gyl+OTe7CG+2PEqvR8eHk7d9E3mIoEmQ1vI/f5+LkGU7aMdDhF4rPZ/+ Uw+HqWWNGM4tAp9tt2cM6PlU0c740+eJ8Mnc/kUh9H4eymVF8BwiguWH2Qzb 6Pn7cOmy4tJEKJ+jK/IRPX/103ZLV+Mi2B9wPf8ien6AQmDKo0Y03jiIWC+j 43sn2plNpYnAoIqc2oaev3b6gVYeHRE+TzrukY+OR16TXx+hI4KhKK/QLnTc prSb67UuESrDQ1PT6Pj/1SPliyTyTQ+GvUi1o7fwL10iOKFQu/ck+n2nlaFA nTUZZMlzmtl1Yz4nPFjAkO4cz4n5z/8O4lmTxzgw/zlskkdLUpYD859xCkwJ MT7smP88P+lnua95F+Y/R/kP7Z6KYsP8Zxp8iPj+YFbMf95tVfyQ4MWC+c9O n/3V114zY/5zEM5MIKWdCfOfoZP/2B4ZJsx/HuiJIR1Mw2P+s3+o5co1Qzzm P1v9EhD2EcNj/rPgO+1B9714zH+ePjHZeyYQj/nPt8P/hvocY8L851gtX/zU TWbMf753wumSvzkr5j9zqtz++1SAHfOfw25IfrEOpvjPD+4L9+clUvxnf6ck Lvtyiv88EtTGekhX9v/lN+/4ywcv+K+IRVL85fLC1O+NuhR/ue+NYdh9hBXz l482H99jXMyA+ctz9p5rwVdpMX95j9D7a+n3qDB/uaVL6siBwE3MX/ZM8BGk rVzF/GX6YSN+pO8v5i+f//5a74fiCuYvJ7sy5QESEfOXz77caBZbncf85Rtt GUIn1qYxf7ksKYdH/vYE5i/nJQdluxSMYP6yyVW6qz4qA5i/rHwwa7+6Xxfm L7MdHFcZVGnB/GVP184Nh/DvmL/ckuoq9YuYjPnL7g+OIsfOfIY7/vIPYsbq W/s6uOMvt+peG2JZ64Y7/rKX2OyxTW1OzC8uSjP80OfOhPnFEZrphtnDeMwv fj0punryAR7zi7cMZsWd9+Mxvzj+yZj4c7T+2/GLX92+e/PyWTzmF4td6b3b 1onH/OL+0sAw9x9MmF/sxmZornGCBfOLJ5MnLlS/Y8P84pFnmWcb5Dkwv3jL XPVC0SmKXxzv4PKpIILiF/vcVHEVNJJAdnzg829BwyQ7xQeuVjstufqN4gOf +uQxyLuX4gN/drqjkHSL4gO/5XsTKH+BDvOBq+7FrI80UGM+cG5Zdlx8xBbY 8YHNbn8cHQ1Zx3xg95V8ZTsCxa9Ny7WxG6lshTt+LeebJME/jpyY/+o8iKNL T2XC/NcyXRuTNhomzH8FdK90Qp7jMf/15NU7sEwLj/mvbnTe4cdE8Jj/qki3 WN+qicf8V9ZciV0/P+Ax/zWZISYo2ZsJ81/d68MCM1qYMf9VfubrAz4yK+a/ KoKZ6vFYiv96gZm/1diU4r9OWNEK1G9Q/Nf+4smrR25Q/FeVrRuAuUUR2fFd JbWTohO+U3xX2XgTkaRYiu+6LC/T27nJjPmue/0iaZ650WO+awlj6zz3cxrM d+0VuWSWVrANdnxXNc4Y93qfDcx3fdT9uOnRP4o/6tkblN1ztxnu+J5m3N5Z Fw2ZMN8zy9e5suo7HvM9HYWfFQda4jHfM0gg1uC9DB7zPSMutzO/kMJjvqdS dqbAdTs85numkLaFhxiZMN/TKcfZP52DGfM9W/RlbmzWsWC+51V0E5p4bRfm ex7jez/e30TxPUfY/OWbzCm+548obSWmhxTfs/qAb8uZDorvKWzv0nuLneJ7 dnd1zl/Vp/ieIu8mR+fGdmG+56lkwVqnbUbM94z6of3m32kc5nueZKSBRwSo CTu+ZAl1jLp3Twfc8SVHEQ5NiaecmM9Yc+r38aFvTJjPWKD0lFmdmwnzGb9a JzzkisVjPiOLh0t02nE85jMeVypIWkHn947PaEsafkyngsd8xqtfekiVMXjM Z/Tn2ZqTsmTCfEbqQj+x73HMmM+o02HoezKDFfMZlfekSddfYsd8xt2LVJbX Fyg+43K4M33YCYrPmMNjcSVEkeIz5nBFrA2dp/iMwsvfrYNfUHzGxdPcSrdt KT5jI/PrfI5uFsxn1Ji/0tjBRfEZBbhtZ2qXaDCfUWP2hC2tNBXmM54/2MUY SbOJ+YzHRvCJktdWMT/w/A1iP9G+Ee74fOEDkWtnbzBhPp+mvmj54i885vMt nN/bEGWPx3y+G98l0/kU8JjPp9E88CJcHI/5fH8O+z2TuYrHfL7PiL87cQGP +XzilRrTa9NMmM9XFqxmrhXAgvl8x6+IALktis93LJEVaj+i+HzDteN2X5oo Pt8bPjyHjifF57OOIRqmeVB8PlYDxzAFF4rP52F54imNC8Xna3Gqrj4QQvH5 kkyI15ry8JjPV/G9jgffhMN8vmHhr+ZkJ2rCjg9HKtY56HamHdYt3Vivl5uG Tl9GxOKf4JHIZI/xQ6cmYQBTNchSxSP2oXLBYWbj0IP5qsd9dL7eMPpbqeI6 CpfvvBqZ0cUjPd5ctfGPhqHpcbsyNwSP+XGMOkW5YkMUPy7AxL6u9yfFj6P1 jpaaghQ/TtZpSktan+LHOcE/RtZ/KX6csHJQ5A15ih9H7RUddauPg1DSZyv1 /PQEfCccXycgiUf+3Axeb3IagyL0pP2+smi+f12Sle46AuNtyN7cbnjMZ0s2 iN9cfEHx2Zpvcshb2lF8tivC4xXpvRSfje1xg0y9Jg9hx09zZQ4MpLXrgjt+ 2vnzOXVVLzkxf+wQN+PWx1omzB9bn1R2ExVmwvwxpzW6jbC3eMwf4y5WfTJ9 Co/5YwPaV/e8ReuRHX+sw9v7czRar+z4Yy4ODA5dL/GYPyY6Gc4nYMyE+WNN 8cFjf58wY/7Y8vnhWTtfVswfy9y3RX9AjR3zx56qvhFhK6X4Y+0chnLMSxR/ jD6h0MfJieKPMTbG0pAJFH/s4ecBOYZgij+W8M/hnV4bxR8b+mV68Jk+xR9L MY8UprVhwPyx4j6+WkkZWswfM64mNjw1oML8McfKAxk2upuYPxbKMjhYH7aK +VibvEPlqjP1cMefKtL4xIy7w4T5U7+stn+X9uAxf8p0z5+Pv+/iMX+KZPlT IAPdb+z4U9n9nEec0f3Ijj91iC8mm/MCHvOnZHUWSzJG8Jg/FVuhJPG3kwnz p6qV+71rbFgwf6pvz+IB02Y2zJ/6bNX/b9yY4k95jJ6cpn1G8adIRk+5tugE MX+Kq3RVomCI4k+FHLDYHatB8af2z+Xp6nFT/KnW8wZEhV52zJ9qqGko8WSm +FOwuputhZ3iT+m/p+LEJVITdvyjAUWedYugNph1+GDFxIlpOJxFd8w7AI8Y aSYKN9hNQqlsLToBDTyi/vpfCeOjcVgWK3xbG40PLBlCN2WiRuGFcr9OFQIe UdSUGCHHDsMQ3/qj85/xmI9kaXnD49E3io9UWLkqzf+a4iPx/5XIGL5K8ZE6 DC4SZNsoPlLk/uSqN4wUH8n5YX56PlEQ85FOCqZ+V1LnJDx4EGwm7jgBFYW0 fyFoPVPpaK6oFzoGBZLU+2+i9U7NzPCZ2KgROOGqNRaCzocdf4ghwOXNcSoh zB+y7FMS+hVF8Ye8+9xuXXWi+ENHukRM5iAPYccHkv9Tcso5qRN2JaSKrBWO w5zYHBVv9PmYX3LIwXeOQlnmibuVh/GYDxSutXHj1QrFB6p8ZWdE8FNA5tKa Gg0+TEDXQSMPBI1n113pwg7XjcH9fAyjRAk85vfkUkc680hQ/B4qU736+VIJ QkLwhUv8YBzamW+7jaDfv6WjO0dSnIC57MdIuWj+k7nxufbiuTGo9eDLeJ88 Htnxb3ivSOMP7++GO/4NAD9y4yI5MT9meeOCTloTE+bHGLpvOr8VZ8L8GKOW +ab+ZDzmx0zbfDMWOY3H/JjsF3MWeHR97fgxbAXHvbeU8JgfI/eF5VrAMzzm x1RfW5wrP8WE+TGKt9vuX3JhxvwYtvF6lu67rJgfw3n812CZLDvmx/RzlRrT JVP8GPqW3JVHNRQ/xorZJuIwL8WPqZJ9QBiCFD/mNXPd4AQLxY+RCSiWc2Km +DH2i0a8u/wpfkxq54UC61AGzI9pH58gFhJoMT9m+KZSFvU1KsyPMWmeSv9g s4n5MYK9NBntmauYb3KEaLFbT74e7vghK613mxzuM2F+CFvap5d5/XjMD/nk GmX44h4e80OUfwtH0e3DY34Ik3W0ChnNLzt+yPB+gzvyJnjMD8mT85rO68Nj foiknMp26k8mzA85VmCjNnaBBfNDyMp3nG4Vs2F+SBh1bMYBbQ7MD4mMotfi tKf4IZXCNjbljRQ/ZEv0HIdiNMUPeS+gEJn2nuKHJGYfaQm8SfFDnIYDKwm0 FD/keh1BW1uD4oe4G+1arlOmw/yQpFPW/d2F1IQdv6LpHv1ZVpk2GN8bl+Jy YRpW/gyc8w5G821g3tdI90k4eKE+ZwzdbyZFTrb9CBqHxbSD1uro+hk691FN NG0UWp/qs1lD96udMXKLqZnDUMqWZ6v5Ix7zLZbA3zC2DxTf4k9p2IirK8W3 QMDtkKsKFN/ijiJO2jSO4lsk6m0GNcVTfAv/yS1TqcsU32LgUJz3gh0nobUi bnXWYwLSadNmZ0mj6/eu3nHaN2PwgPrfV/fQ44SoB6LhaSPQInpBZMYBj/kR BW+CuoZKKX6E2LOfWQoqFD/i8pf9vvSQ4kecnBuwPofjJez4DoYEvzNjRzqh 9tuXhz9XjsNyvLdnPvp8lGm3vWgmRiEua9q89xAe8x1o5PQy34VSfAfLBT2q wCl5RH9l0I63dAKuN0v0j8mh+x33xYyVrjEIH4owa6DxbcdfOPrgzgfTnxR/ oWGQ5/I1XkkC7XPg1H5mHFo/ZP74Hv1+s7ALQRVHJuAfXfGfZuj5L2zeDnNa jUEWIr9zOnr9Hb/A/koqG76xC7Km3Li1d3gcMhj5PDuGrofox5W9Dn/H4Dku a+N1ND61hnEln3YYh1fYVL4bo9fnl3NHLppNwHBR3rZxtN50iiul00obhy9G jw1eQcdVAh20zfaPw8vflGf3oddLIisbKQpPwEXQb86Oxtsd3s90Uzj2RUQ3 3OH9n14FTfnHcGI83lLqu1DKLyaMx2/FtyaMSDJhPN6fhVQcmILHeLxLcV6w 1hk8xuPLlL1DddD73+HxuiG92upofN3h8S9sbXfdROf7Do8P/fslQ+gEE8bj 54O7JwTuMGM8nt9AcD3NlhXj8fklvAcFxdkxHu9xxVs8I5LC43fbHOf9l0/h 8R8UMmdwMxQe76bNkmPl8//N47UY/NQfGFF4/Jrg8cvkPRQev2x2l5iSzIrx eIWlUJtT7xkwHn+klTDFa0iL8fjRROnrzXZUGI8nfWl2tnXdxHg8UUPs+M2i VYxvm+kYeNvX18EdHu0lqCQo6cqE8ejk0utN2YN4jEcbdrwfmb6Px3h0Xc7d +K9ovN3h0Zok5Sb4H778fzz6T3hnWrkRHuPRchzL0uVofbrDo1l0W3mZ65gw Hr3VQJBjNGTBeHRf1BkCWw4bxqMJhBftLiocGI9eHDxR/+sKhUcHJrhSv/5I 4dG4msqgi/cpPDo3ax1+66HwaB36odTVVxQePbb75nkufgqPrp5T+dNrTOHR s9caT87r0GE8OrHo+KFLCDVhh+ey5fnRrfxphdzZhlGlZtPwtM7BUVo0v/fv LWbweDIJcye/hDQfwSPtUWZDEmHjkN/EUvUIup7q5R692507Ch12n3kyio5/ 0Mv56/lpGA75NQODXDzGd4/uv/XbOZnCd2XX66ku2FH4bpeWY6YLFz/GdzUP 8dtEeVH47rbVGMvWJIXvWrs9ePXvOYXv/u3Ofifrw0mgtnt/4pffBEwCuVLS aP1o4fTN+HrKGGQ+uNL1D60vAxxBUGjuCMTz+adL2OMxHpvGPximG0fhsVZH xgh6OGmMx7qffzNvMUnhsapdJS8l9vASdvhq/e+vtYrMnfBeEk6Xq2EcWuXb n/+FPh+hntrJrflRmLUsZT+vgsf4qr/DcscRcwpfxf+Sv9bzRh5xj50q2vg+ AZtuB7p6ovXe5kPrz8aDY5D1cZ3VGBqfMF56rPCYRAqFlzLIPVTq0pUkqL4o 9FS+MA5N/tX8CEa//5mqRWea7gQU4lO1+4rGW8SWe8Hp1hg07tNu5ETj7Q7P bOVu0qaO64KE1O4Hz6bG4bzje6m76Hqo91KbrNtE9+v7bo8WoPGKPjwoN+ve OHRvjD99Ar3+ieYnbEesJ6AUF98DY/T5psTv54zPGYcPWk7W26PjdkFD+iWH xyHpe64pA3q95jeaiRzSE9AhLg8xR3/PDl8MzTh3xNyqG2akfw/VI4/DahzV q1b0844R92psfcbh7uvtYhro9ZgSBRUufRuH22Ifdkejxy0h9TdcT4xDqgYR QgV63Ju8YNbcMw7NwDsLAfT8xJeJkQs30Pfh3NxiiY4fiT2xNpA4Dtm/2rie Ro//l+/t8Dz5zBLJ2uruHb4BG614fIdnRDCeV/pa8NXpZiGM5yVnRnm+yRPE eF5k4MfIrh5+jOcdtTVvod/Ph/G8mmvT+dpBPBjPU2j16ZkV5cZ4XujlMwRt yInxPBrzGc2FEA6M510a1v+g8IId43khOZ8Jd7V3YTyv8KlNztM6VozniXhQ e1q8Y8F4XtZeKmW/fGaM55FkCi5s7WHGeJ6WheYetnUmjOcJeMe7b55ixnie lidLq7AYC8bzGNV/qpa3UXheUFfUq00tCs+jM+Lc25ZA4Xk3t/59ikyn8Dxx lbOXqyooPC9ascYz5P+H5x0iOR/ujqLwvFPvBU/26VN43laF+83b/RSe9/zG wvDMAoXnzXK5ZjuUUnjesOTzgMOMlH5EVKlUq1FHtjCeR+8w8iZebQPjecfo bD7yKK9R+hG9czgYmEXGeN7p7QHkLkLCeN46R9hL2uMkjOfFLA/XpcuRMJ63 KaPpuepI6UfUy8RQ+4iXjPG8seGm5WtCqxjPm/rLqf/UZg3jeUMrZ/mL92xg PI9w14BKQ/ofxvM8VQ6r2NzZxnhezCXaeToZasIOz/tsasVyIJuGsMPzYl13 CZZ70xF2eF5MuyNw6xbG+J1TtAKvhgcbxu+Uqy+cSVFkxfjdUE3dcLMIC8bv mCXfWvtZMWP8zppVWvQBDTPG75ya7QTG2Zkxfpck6iHw9x0zxu+SyYrxtL8p /K6ocPhb8DaF323amav/Pk7hdy5aClPKlyj87pz+wLpVHIXfQd7vVYv/xe9U S+9/0+Og8LuTsjJjtxAKv1O/8+D1d1UKv4u68XYPZziF370fyTjqkUjhd24X hmKSdCn9fJ5m6lwnUFH6+QQAMbVXcZsYv1O2dzJTFVvH+vkk5zw8eNd0Fevn U6va8Hlehoz18wlLePrqmisJ6+eTweznzi5Pwvr5zOziOe5IoPTz+fauQ9ns M6Wfz5BitcyHF2Ssn4/gv8+mH9H6aqefj6e9XbC1xjrWz0e3qm4gYvcmxhcT WmTjdelxhB2+2HZ1Ls/XUgTjiX0n2N5m9rJhPFEv6k/NlDsrxhN7JNQvWpiz YDzx/O52v8lAZownMgtFeHzjYMZ4onyFl+9tamaMJyrJZzb5OjNjPDFV9l5t gCsLxhO/V52rSrBkw3hiXyCov/2VwhNzgqclYu0pPFFlOHgXiYYf44kfAl+Z OFtTeOLZJeviI//FE8P1apL5qig8MauKf/TKOwpPTGDluqgpSumfc/nlUAXT FwpPNKANuD9DpvBE/mUZTVZvKqx/zlSVS/eM1T+MJxKFIN/PtHWsf06n6N9H DBWrlP45de+1/qB5a6d/TlbV5pzmf3ys/+ufMxNL3bpHhYT1zylMWhc5pUzC +udMbbxlYQul9M8Z491rLX6WjPXPCTXlIq/armL9c4JseiOnG9ew/jkSxe/i lxI3MN7ZFHmG0+wCLWGHZ+5F2mirx1gwnkkz8G+jZZwZ45mTC7eHPY8xYzzz kqLe/H00/+zwTCped9KULDPGMy0+XFFf+E3hmfm8rJmThqwYz+z56giD8ik8 82D59eOT4xSeGVnWWdtpR+GZ+0o0HB88pvBM1Q/ekT3/xTM5reYObf8XzwwT OKv6z5DCMzX8fuZ+36TwTObeWfkEJUr/Gt3V2y087yg8k/hCWXjoLTXWv0Zs 2F2gl2cb7PSvmXGoFz0wsoH1r3HsEz6kmLKG9a8pt7P++v0fGetfE8H5SEOR SML612jonBPNMyVh/WtCaZ+lx8mQsP41px/tr6M6T+lfY8b526d7hNK/xmhf XQpPKxnrT3NELdidHuIIO7zV38HO5WaqCMZXuSXZ1GhYdmF8Ndd2PiM7iRXj q2mpkQufvFgo/WJU19+FJTBjfLVM08STRogZ46svztj4VWwyYXw1zEmK/4MZ M8ZX4QqT8PtTLBhfVbsY18zIz4bx1cq2gLSShxS+GhQRY7afigvjqzd8cP/C DCl8VU1N47ztPgpfdWQvb5S4QOGrwROFzxNeUviqaeVV1VO3KXxVicuMI4dM 4auVGtyjVYYUvnrORiAi4BKlX4z5Hj91ve8UvirxeOmQ989/GF8NSno8cXRh HesXI080eam6uor1i3GS/2xTE0DG+sUoBnlsBX4gYf1ijjH01JZokrB+MSnM u3fr7SVh/WKe9qneL/Wk9Iu52FD7iEOZjPWLcXed/MF4dBXrF/PdYyTJJWYN 6xcTFvtHNMNqA+O/sT9DIlu2aQg7fLf3UIr1HkZWjO9eeRrqkUDNgvHd25Ec 47+MmTG+u+smZ1bAPyaM706f7/nwczczxnepXZ6bFpUxY3w3qPfcgyVOVozv Frdv2dy4uAvju6pVdWFaryl8V+fyMd/FXgrfzZfyDj7lQ+G7IozSuuc9KXxX NFqTkPJffDe771EYzp3CdycGWDlXIih8V/HgKnXgbwrfLUjjxSUKUfq13GVc CQskUmP9WqwVnh+ZDtoGO/1akHfmbQ+ObGL9WlRt/5++7jwcqj/sH7iEaMa+ 71vZ04akck5KkiUJ2ZeQNVuSIiTZkpAiFVoUKaUiSc6EyFIqiSxZyzZkmcUS fuf7u575fOaf5/nTdTRzxpnOfZ/rfl3ve8OTsf4FkNcy/9U9ZkhtHuS1sFyZ jylcTwd5Lf2Xsj3rvGggr0VJ4rXrRWUayGvhMXcwSTKGeS2s+ps2WjfDvBaV z2WeG57RQR6LmH/PrUI3NpQxX14eWtqZEkoA82Ub6/vzWlwEMF/eHejiIMtJ IDnErdzkU+zDhN781rueSCCZlPF/i3Tqxl79cyidekgkmToeifgY3YGJC0+o vnzKA+bRD4ZMhZyX4Tw6q9cwsbQHzqODRl29zOvhPNrBbjZA2QTOo0+uzVF6 xjSPXgiMRY5ugvNo3dnvawV/86MHPrbPFTb8RqqXg/nYDOkIGy1Sm5w/ggjd flRwKZ6GJC3I1225OIbQvJwGDDVpCCPfxfL93ivFujDfRYy74f1UPg1hzLMj /E5/TNIigHl2wvCPPqOF9aQ9BXfoldH9mPSzqiEjXQKYbxvcLmD7lA7n24ux C5c/M823j7gKsTh3w/k2RaLPVmKvMLozul3lXvIoQuvZukYSr7NXxIUNXsSM I8mBT25Z4tf7gcGz3zLOZETvqP/6ry4wryWgcb7WTYYdZczDraXWNvN/lAHz 78rkOn2Rjbxg/k0VaEBpr7jB/Ht/kYlJ71UimH/3G19fdX1EAPPviVK97U3y BDD/3rb7TIrq0now/w6hfX7Fe5QA5t+bogWnwrSIYP6dq8ryzokK59+dWWRt Nwc4/35lOvut6BOcf49elkuOXIDz74Ayi4DkU3D+/dbnjY7BXjj//jlZMjGe DOffysE7Td/+hPPvE1FvJr94w/n3o7CGOdIdOP9eDEwkkhPh/JuniDXpzzCc f5s7PEw/w7YC5t/PP7Dc5xNcAvkp+aGZvz8LLYD8lAe/hkV9sukgPyXx1cS6 j3h/zshPecJ6TUEF798Z+Sk5a/hoh9RpID8lnDNo7FEozE/J3HNkVmQDHeSn 6B6ND7msOQ/yUx6a35xsjloA+SkWbYP/2AyXwHx+2rIqsbadFWXM303P9iQa SHCD+XuTnVMoFx8RzN9z3nv4rNoRwPx9W/tFkdrV9WD+HhXawCskQgDz98RY boPEZwQwf1fXPp0USYPz94Hfsx+PqPGC+XscH71rzA/O33f+cs/szoLz9xby Jd1jBDh/twozlAgdgPP3/Qd/zbLtgvP3lv5+21VROH8vpb1adBmG83eRnLzs FG04f1eKWSP21hHO35snaxcVJGB+yaELQa1ydasII7+kX1nenMPvH8gvkYu4 NrabZRHklxTGHmF3MJgH+SX9yi2R6WJ0kF9S3m873R9AA/klGpu3KV5XoYH8 kpSWJ46t+2F+iRKLuLkyCeaXCP3Sq9PNpYN8ktCQb9mvt7OhjPm/RntHN28U Acz/w81H7VFuApj/C7xS7oxjI5BU2qLepzr1YUcR3aTaSAKppUi3Z/J2N7aV X/OtUSqRRFHpDl+t7MCs1HZNXIvnAV6Apbk6+mcX9ALPLb5aP7gHvUCehOtw 4XHoBcwedfPv+w69wGPzuKN9TF7A9BSny4k56AXs+dYKOu8VQJskLJ/0FOH3 785NTiQrOtI7zH+m7OII8u3kYT/Nq/jzznX3zBj3MaQcSWRdsxX/Xv9P3gmn ab2fuTYN5J1YGt6pNM2iIQxvMKH77p3NLgLwBkvpl+zz8ft3musTftG8fsy0 9mif+RYC8Ad7u9hVvdmgP3gf9emWWRb0B93XGh+zBEN/YDc1yz1UJ4wKBPj6 +p0cRW5Yn9Mqw/vvlDIbAVa3cST/THpdDd6fp4UgVZdRMjL93HLinR3ML9k6 2acTOsWGMnzCvsKbOwvx/19tpYjI884BrJWfltexsh54BaNp1aptNOgVhoTY r529qE5K/PRHS27DGFL/rWugcgcNaToyIN0iNoH0W6mTb23G637OlszIH4NY gJuS6nv8/q3b0WjY2tuPkdt6ZgQVCMAzbK7Y+ayUyTPY6BWZhVYpoB9MMieX t40i3rWbjnK54Z9v8ueLu/LjyL27fa+68M9XOf9Jbp/NEBbMERV1i51Aiq9j K0EcBrDJVMvv+kT8+c6pf67/3hiS78UxQMXvd2IZ+bViVyeQ4X1JqOtuGhK2 69q6cptBrKDnFN0Pvz6p59uCj+ePIy0xLiRjFZhP4hiYfa3VnB1l+IgE9pyF 0J8ywEPs3mqhULmVF3iIpLqiPi2MG3iI40FXN1/LJgIPoVkR/mfkCQF4iBVs b8OPDQTgIUaJPq4p+PMqw0OEIT+2nTYnAA+h7Yrt26JGBB6CvvfEjP8w9BB7 3yw1p5lCD/GIQ+8BVxn0EGiuGlHpC/QQZXIt1cHi0EMsZauHbSFBD3EyTWzd Kx7oIYzk9HaX8kMPoWK1tejpPegh/LzZK3nqoYcwGj0nxHkPeojthm6p4TTo IbQehi67ya0AD2HRpuxVvXEJ5IWceG5u5ai4APJC+j3Y4rzv0kFeiIcKbYDn LQ3khdgHBxATDWggL+RHC3VXgBoN5IWI8PcX1wbBvBBnhwN8e6TpIC9E6vud cL+N8yAvhOWw6ZJkyALMCykvqjuqswS8RhWX/uo4iRVleIyPKQK3fBW5gcfQ 4bkV5yZKBB6j/prXPR1nAvAYBtv7I7jXEIDHwIovufgJEoDHoD0jnisuJACP 4RIxNp0/Cj3GwQlp+Q9CvMBjHLRwfFxpCz1GccbQs11noMcYdo3QMPgGPUaL /l4uOpPHGP3U6UB8AD2GuF+BkZQf9Bg1/l84tnBDj9Fetf3reXfoMfZWNQ15 noceY6nDQNFwM8zrIBJzrNUHVxFGXsfB0n6lJ7H/QF6H2Ka/rzbwLYK8jnKH q15HzOdBXscXMzX5Ulk6yOvgFBeiXAuhgbyORY9r1wxVaSCvo2ar6WyGAczr iNnffKKsEuZ1fL5SrPXnOh3kcawIu7tOSbGhDA8imGusOxNLAB5E2qXMM4iX ADxIkMXNoVFWAunqon77p3N92IKf4zb+MwQS9wZTt4dV3RgpKfzboVgi6SBv Pj2nswM7UE9tPXWKB/gRH2ET5TVN0I90vI+acImHfiTkXNpjq23Qj3Dnt3Rc uAX9iOX3YBLhNvQjobdGrN7aQz9SNOp1djBIACXuT0uk5fxGpOIzDjY70pFD jj2iEqdHkNxrAUmF1/B65x4XWXh0DGH7fXoifhsNYeR78FjE1ZO200C+R+fK K2p+Bn5//B9/olyhVfZLnwD8SUWjcOcifj/Vq34p86GkHzvbY1WcpEEAHiX4 n7m1Mgl6lOIr/o+eMXmU96LGJfeZPIpBtPyoDJcIGv1bi/DFeRRxFqSpPjyG 14OLZxZVj4wjMYa/Xt/F60F8coJyzVYyQtY5m/XdBuZ1dBIFPZ/+YEMZXqX9 e9YtI3ECKZLXSNF5dAB79gh5WbW8HviVeEPncZd06FfQK2XBdaNqpMRb66QP Co0hB5V+bnm6k4aQfFSTWNdPICzqP0JO4M93ZMM6z9N/BrGuk19pmf/w+7fW V8vzk/1YxatysT4ZAvAtZ+j7bq8y+ZaudS++/hJRRLfVOqce34Dfvxx4Xtt7 4J/v7WJOI/84Ui2U/lcefx5LfeA2u+vEEMYWmz1ht45A2qJAfDvpO4B9X+B3 lFmP1zv1NT2c18aQB0vvL/FtoiE8j0c1D8dMILSomvlzejTk0IjSz5ITgxiL gOHeQ//VOxOKXXLaOBIeSj30XhnmcagsaN9O1GFHvzRZ76lcN4iF89b0/Mbr 95Obb1wCyePIIZrN1B4NGnLjzgSnF8cQNk0hiN3A+4XkY7v9xGfHEO/3p0VX 8dfT/Zd4fVP8EHbIMCNag4DXu16JduPkAYzSNpi1lwO/3zUYPLE9NYaU9Euy 38D7hVl988j8+EHsG9enex74+aWMaKt1BeHnd68SW8avr5qVLhdr4wCWoEE/ L8BCIO2ful1zsX4QO+6Z6U/Azy9F9k3T2a3jSOYa7O5T/PeTr2KENy/GkEFU c5CK3//vXV3VfndgEHspen770/8+/7MXSXrPxxGhqampCRWYz8Fzs6RCx4sd ZXidNy+jBNQGZYDPWVj2TBbQ5QU+p+I53137Om7gc1Rkr6jSbhOBz5nqeMry En9eYfic+7KaW72UCMDnTFyI8zbG6z3D57AOtOVrmRKAz/EwD0qR20gEPidC fciZuwf6nD+/K3QRQ+hz9lzvtxoohD5HrXCH/4e30OdErQmLPzwJfc63q3bh Zf+Hz/kU4W+7wxL6nGdE9ouymtDnWNH3dU5j0OfItCv/8O2CPmfQv6n3eQn0 OX65Ce6Wq9Dn6EvOSJ7SXAE+R79hilt58xLMyyDkRL9UWwB5GSsKFdNzBXSQ l1Gppcdb9Y4G8jK8nyXb1eyjgbwMUpvJTk78+jPyMlaSBma6AmBehmNlw3yn OB3kZXi77lIekpsHeRkVUpUSn/wWQF5GZsDuPWvx82P4oZU/37Ynl7OiDB90 QLYUZVfhhnkVXpnjwpJE4IMS9e8etXclAB9UqHu48B1e/xk+yMJTfE5RgAB8 0BFFYqxJAQH4oGP+B5OaBqAPOua731Z6PS/wQfsjn/PvPQx90E75+bsbvKAP Om2ZfFKjHPogg8Lku0qh0Ac1LGRkynZBH0Qx8SmIuA59kESyXlG/PPRBLA6X PV+egz6oK0FIcegK9EFTunqFEzthXkWYsvQ905lVhJFXofv1QvWN1H8gryJj VPOgitgiyKtABUwdHazmQV5F4n3HZhP8OYaRV1GvZFESFkoDeRVxm8PL/5uH M/IqbA2uDUXuhXkVGQeky9krYF4FW+uZdx/S6SCPwmIeTbvOz4YyfFL5ocPv fS4RgE9iib04k8FHAD5pMZ9vgzJe/w14ZF1OJvVhCbdfxxuGEkiaA+33Y1u6 MR3X7LdukURSSCzra++RDuzG2YIdqz48wDMJ3ishl7yHnkmc+GDVPxx6JuF5 U5EECeiZhsxOPK2Lhp7J13NVfeco9Ey7V2zOxV+Fnslm36zjaqIA+tT2WdjF a78R/dcZq92udIQle693y8kRJKhQiv/vdbz+N2UGVZmMIfGmQ8tH8XrPyLfI ST6/jRX/mZFv8SLC2tMqjYYwPNQdBwWOYpQAPJRW442M7fj9jPfkjo23y/sx Ub+AD6/UCMBHsdR3W93JhT7K8cxmsVYmHyU3NKwyz+SjmsJ4fnSqi6A68jkO scdGkRXpS/eV8efZlPGEqT3G40jNfaO//82jLtxQd3JSIyP+DbtWvaxhXoW/ JHGuvYkNZfipvvA9uXclCKQj1U2q2tMD2HU6VWkXXv8ZnkqDfvcnlyv0VOKH OJbEcvH6zyrG70gcQ+QULmQ8x+vp29Ofqu+wTiD7o7ewfsfr7Q/J1M/BU4PY dE+QyHr89cqHrOysqP3YFMuf+SPSBOCtXulEFjczeasOI4NdRw0V0dGV2l9C 0qNI55ami8QT+OdTIFzt5RpHnD96uB7G62n4OXUH3YAh7DZHXP8+TgKJ7evV 93UheP3/Efxcgguv/xn8X6QujyEtmne7H+Hnw1We4jEePoGQ1s3Hp+H9ita7 6b3FAXh/Isiiavhf/XvBZp6bOI7YtFa+iVeGeRTTByU3BauxowVnf+5L5x3E zvfQWy7i9fVRgdP19b/HkaBOruL3+PN0zKmyYHeeIYwU0j6isorX/2pTl03j Y8i449uvB/B6qvDNckU1FT9ewvp7G/48fiwlt1suYwATuCYp6YI/rydqHs33 9xtDtrXFKB/cQkN6hMR+304dxCan1t6P+q/+mx+QmfIeR1ivbGfvxa/vCmsV 788vAxjxRBR3MP5+mnUn1GM+D2JTF5YuHf+v/sc3Vl9Rxf9e1IMjpP/qP611 teUx3o/8Hb8Sgp9vimdj7hvzQYzO9+Bu4n+fX6T2vHnhOCKyxuJulgrMp6B8 uSi7as+OHu7ot0Bk8f6inlW4A/8+J6ecNLLuGkM6Vb5yj+O//4JUXH49dxDb bXGutvG/85Xy4hCxG0fIk5dXS/D3Zw1a/Bf+axBrHcy0UMb7wRSr8Ydl4uNI SJwdcQk/7srvFPTCeRCz2fta89h/5zM85BmWPY5YBL82Y8VfP3la/Qz74hgi kBYw++6/6+MTJ/ggahC71F/rYvnf+8Vs1KkPH0c+T4fMbsCP24u12SVUD2Ji LRGDb/HzTako/OG5E+9vdgUO5uPvV/FG+xNJH//8FujLn/i//9+8mjJ5wjXs FDvD72BzuhdYauPWogyvFrl/pzwLHzvK8GrzuT8CRRvWoQyv5s2SZubZTEAZ Xu37abd9prz8KMOr7emtftyqJYoyvBrX+IOC8GZ5lOHRbFN7iq1JGsCjOSQq XkpVlAMejS+toNv4hSjwaHXR0YYzboLAo4l9NC7cV8kHPFpRZOSpoEwe4NFO qb2njo4QgUd70nzj9JgDEXi0mMS8esMK6NH0E8xZnWR5gEd78ebhWykL6NGe 2F/yXbzP5NEkSSfGiqBH60XPPHSsgR5tsuRrUcb/4dGwA89dipg82s+iS02T xtCjNdmp0Os6oEdzyfKdth6EHu1krOf1lbvQo5XW143I9MB8iY/6uwTJz5aB RzubfHT0gNMi8GivJTrrZKl04NGqFesftA9TgUcTcnpu8M2OAjyaY9WyS6D0 HPBoi9Tf/5rZZoFHy1eRkZDUnAEe7cIeNxunwGng0aZmkt8llPwFHs2Xuj28 vGEKeDTuHJ5NkyuTwKP9lci1YvWfBB7NY0v5pZvLZOjRSlQybz8ig/14fNG0 a3tDyWA/Xmu2ZHOfDRnsx9vl2VJYtJUN1QrEyPWrVGxM9+JhGwMOtFxTs1mc i4oZaaW2Hb7KhTL25x0yrWp8kcaDMvbnGUZxVtfkCaKM/XnV8QsrJfxSKCOv wqlpxtArbgPwbjJ+/g/ObpYE3o1oQkaO6wkD70ZJqyr5+osfeLfrpfqqtm28 wLtJbJ7iGrnODbzbxAOP+f2xRODd3pZusTIIJALvVtGod87MiBt4t+HaK8R4 LV7g3bLWda5GHIHe7cKOI26+DtC7bTcv0Mm7Bb3b2+1WocQj0LsJmVFqESbv ZhN3JImGQe8mNlpjyK8NvVuLkaNKSBL0bqGqMREHU6B3U5nknW1QgN5thw73 NiRtFeRV2ElFLj8aWwLe7Xz+McHdogvAu2l1GdF9emnAu334hhcMYSrwbnmH XPv7X84B78Y53czWmzQLvNu7+7auNpkzwLv96aYfaWqcBt7tS4VKqK3sNPBu 6Q6Cxru0/wLvJqiXlWDlNAW82wxL7c+h55Ngf53y/LNfv7ZMIvE2NR0WCRSk +sTDjf6fyUiNkfvLZxFUJEjoWOzNZDLwcX35orONTmSw306+gPQsoH0tih4N 2XUVoWFfH/0eGM9jR0fH93EX7qdid/fvOh6fy4ky9t+5vvnq0SHGjTL23xFv HPNeoy+AMvbf2X2MDrA7IY4y9t95JLL9rv6G9///k++hlr438fJvZeDx5J48 OyxxVhp4vKwuFRcPZxHg8ULKbn6+nyEAPJ7Pi/D7SiZ8wOPR3n0bs1zPAzwe p7jJlaknRODx6jMom6nORODxpp4pHFGjQ48Xp+t+UjgfejyO23q1az9Cj7eh VWmffBD0eOI2+oNP2KDHC/Jh17zL5PFevyvIQZk8Xm/tWvmWOujxbMwnE4Ty occrn5nh0hKDHq/Pv+P6j0fQ45n9k6mO6oIej+LbWbnNDHq87luHzvbW/QMe z6RDssO7bAF4PP4W8XJBTzrweDFrfrBrn6MCj/eqr+lqCxsFeDye1xKEt19n gcd7rhtauLN5Bni8F2+LHz9cnAYeb9mT8urIgWng8TZ/I6bYB/2FHm83p+58 2hTweFT7awWVPybBPrstI86bA8wmkUPxlyWkDlKQfz6J3tPDZMQ1r5G1DKUi +sbOnnuzycDvdVjGHF/nRUYenN5K06ikYaMbvT/q5LChKpeJuSsYFbv5rcrJ YIEDvRgilnT5EwV7c8BaZPD2erRc3fp12+Ac5uGAHpWV5kMZ+/L2kBojw/YK o4x9edvFLWzOuMmijDyUlORn4xOcCiAPpWpoNXLdIXGQh9LM9SqVtEcI+EEZ yXvrAw34gR+0ON1S1a7CC/zgr3WT2kna3MAPilz0dXXzIgI/2JxVHD2TQgR+ UEastPduEfSDc1eWeS/8gn7wycNUkuBf6Ael/Cf2sfhDP/iHpSn+aBT0gy7X ufLGmPzg8BIr+wyTH3wkwnPCiskPGsjf2Wo7D/1gvFKA6oYN0A9al71wOH8Z +sF6TsvgjWehH/Rus6mhZq0AP3jorGhzv9QS2DenqEohPtOYQqoKLTlODc8i n4ZFSDZX8PvZ5brYgs9ziF5n4O8DIpNIjdJC5qV6CnKDN0N+9Q0Z2TD9z/1x ORVxs681uh1FBh7wGfW8XqAtGeyr26MTUF5avBY98KH5+CkXGjYXytX73pod ZW001ww8TsWepoge+b6ZE2Xssxu8aZGsc5KIMvbZtaxcCv2bz48y9tm93pEv 5oeKoYx9dtk6rl7YFkWUke8yU303cEVYDfhDyZ9fJDg/yQB/2BY4JVC5RhT4 Q8OWB55pNAHgD42cNoePxPABfygxX3DniikP8IfTAt6LNh+JwB+673/d24D3 mwx/qHNm78rtdugPg7Y+WOPoBP1hcERC9Zpk6A+fVx8IPs8B/SHn9KWMdAvo D2v8pjz6mPyhZJR9ggqTP0S7h/Ndmfzhumx7bKs/9IdSpkpijjPQH24/V1JP RqE/DPmIXlHeDf1hqN2uFqdr0B/+82TZcEQX+sMISUVTYU4mf3jWeZb1CR34 Q/Y2PZ8vJVTgD/comh34qEkB/lDukOpnEfos8Ifs8cqNj0dmgD8M5zH+RBCa Af6wIc4Ku2Y/DfxhBk9CKvfVv8AfUrdoa84WTwF/qFF680DC+CTYVyf0tr0h zHES0ZCZfntBhYJcfR1/dnWajGg2Rz7eoUhF3E0711bkkYFXfOV7TFnxJBn5 krnjSVYHDevcmWFm68GGai57fhjso2JoVPpJsVsc6G0LxceWExTMwz1E20Bg PXrupNFhdhYK9u7AJ693zrwoYx9e3LYTHwu8hFDGPrxaqz+/7tyVRhl5OFtf myHzmxVBHk6jSqDVl60SIA+njKVBMfu1EPCSOaKJ+uNX+IGX/NpplL0lghd4 SetKm21m7tzAS6p0mKgPhBCBl1yQ9DzkG0kEXrJ0zZ9O2TDoJU8MGl8pjYde ciaTDbl+B3pJgev8Ntm/oJdkGeCOPBoLvaSxruKkD5OXPPm6K/omk5cU1Vc5 Fn4GesmJnTlLrNeglxTcd3H/2m/QS2r83lL/gRN6yT+TUnTTFugln25/O7LA D70kZZrn2uULS2CfnOI9u9f3908hivSZq1X1/33vfmq0504iBmGR1+NK5xC5 WYcGK8VJ5EG1k87EQwryjlP4ylwtGZmTfE7YdJOK/HPgEz4RRwb+0eDy7g93 7cmISts+sZMCdIylKXCGh5UN1RsQEyqWpWF3+WIrX0yxo2wz6tHeehQs3ecD O3crN2o1nucXaDyH1RBzLzeOCKCqa1y0AixnMc6XQ6rxjyVQxn67ffFSiZI1 Sihjf53693DRA/xKJG0/8xrnNRNYQv1YO+cBKRIj/ydwI2/tv3phkP/jGzdZ ka4tAPJ/VL+m7Pokxgd8phm5RPziJ27gMyMP2F28eZ0IfObUWhebEE8i8Jm6 ee9cOKS5gc8k3Ry5/3YE+kzvQwOK3uv5gc/cOnfDJHEA+sw0138cdQ3QZ5oM PK81ZfKZFeceuxcx+Uypjk+OVA3oM2mGrdE5Q/xo+ikRh23OVOSNzausHelk 5HpwtQJnNA0RtGuqGXcjIz1ZSQdqm2axjb78VpmbRVCPlVgVnZ4ZzGerG7fg Uzm07oGaueLcBLZlOPP+BIc88JitXFYXThG5gcfUKR5tfOtCJE1x/3OSPdyL 6bK2+A3kE0kof1cMxe0npnevzuXfADfwmmGnv4tfyoBeM3N+WqmLyWtKeB/J NWHymvfdjw9boMKodZ1xlfJ3KlLpqSex6ywZeMz11orhm4+Rwf48q/68zwNZ a1HjqPAwz0AadovPyvHYNnaUR/d7tWUwFXvRLtBRtbgOZezXI0gdjJGVJKKM /XrDdt/Kamz4UcZ+vY8K75qTX4uijP16Lr/1Sp3OKKCM/CPDJavGbDt14D/Z uzV+TcbJAv95P9aNb7+tKPCfFSpR00bqgsB/7rfIfSFzhw/4z5z26L8fAnmA /0x1e7P3ZgcR+M/oLNH6ALx+MvyndVkGu3899J837g2rfdzDA/znpTzJ4qv+ 0H+WK7/Qc/vO5D/bvcMKlqD/FJS2p/OHQv/puMtd2JjJfxLHnreXMflPi6B3 YxWd0H/+7MkdaT8O/adlnmtlShr0n9VVGw4mBUD/aXLONMrnNfSf+4/NhN04 tQz8J6d/WLvDtkXgP92mNY0PfaED/ylad41Q0EgF/jPzM8eS2n4K8J86oi7s iuvngP/8aBIhvpE2A/znhy9rxpflZoD/TKpI9x7xmAb+86Zr28XS3L/Af7Zk 87dU4r/H8J8PeRrGH1Imwf68CDcuQQ2PSUTa917KKzEKwvdFee0uOv79dLNZ CReiItVPnSNu3ycDL1qYU/k5PYiMnHigt87sDw0L+Sf2+fYhNnRrucDP73+p WPLhEnneAA60CCvU01mkYHa/ImK6W7lQx1RUMpeHgvV2PZGUpPGgjP18meab K7PXCKGM/XyPDd/f2vBdCmXkRU2hrt9/tymCvKjs7qDqt08lQF5UbqfR0690 IeBV57iCZ4vK+IFX/Ud4Lxz/kBd4VcHpysp/Edxw315DUYfwOSLwqmy5baO+ p4nAq77srhRSdOYGXlUpke/uhCP0qiYt77UGw6BXPeN+oKrxFvSq+fnaZ84S oVf11awRvsLkVZ+kCj9eYsqLui1VxBLD5FVZ9c/zpA1Cr7rH5AMWqQG9aqup 4q8KY+hVT7/K45OmrwFeNUU0QDXdAnrVBK1TPKplS3C/3eAxz2GLKcQm973V wGv8+6G20a7p0SSS79cpQ7k3h6zb/HHberVJ5Pp6vnUyWRSkJFZIT7aRjHSV JrkEJFOR6JfHE0ISyMCfrhFG5kUcyUj14IFTCvL488Gt9axuE2vRPTkflO9s pmHJIoMHXtezo3/4N5qsMaZgSdLVoRkh3Oj9VwbT++3mMBtV5JhuugAae6FL W9ttFuuyj3zsxiaBMvbt/XjZKHse24gy9ulVfJD5ZjejRPI30xHgk53ApD/q 3iN1S5EY+VjC1WiTIb8IyMe6cDbc4aC7AMjHqqWX8aZt5QM+NvZCit7eCW7g Y2OOefbW4PWB4WPj5fgLGt2IwMeKS7/8lsLFDXxsqJNDtlEt9LFZsenrCkah j80ujTn59RH0sdUf+kX1PaCPZbF84nOSycemzIhFdDH5WFVyz3oBJh/bUVH2 dRURQMO5pktOHaYiErOqtJJMMiIQfjz/jBcNKTvh42HnQUbUj2s0Z3fNYu4c LE+/lgmjVVErqsvjM5hjUyZlnbocOiLh9mBGgIyVWl5Ir7woDzzsxo/uv3zl uIGHLUx781nQnUiqcoy8dCepF1MmiZRG3CCS3rOvuex59yeGPCRZbv3ADbws hU0gbRs79LL2koImDkxeVkKRPWKaKa/rdsPDELU6YXS3vSKfzwcq8n5d1ZNf EWTgYTm222mU4vXTNUaKfjt1BhP+IjSwZ0ERNa64wLrmyCQmroCMFUyrAB9b fHaIU7aSSKoNiua7/K0PCzGNeURxJJJaM+KnWyV7ME6++sDu30TgZ9PfoVdy mfysmxXBIuqiOonn0uNbNro0JPPkJlWqDxkJiKZqXObE71d1PHXrI2RQzXWf LVItyZgMJ/mZbZYC8LNhtg2nCvyJJNvFyO83V3ox90vzIXvjiMDTFrhouNQx edrPpMsTXlUKqMKR5JIuCg25Iie/6GNHRg79TOBJNZ/BdN99sKruVUYZfrY7 6OLuoMtEUqp2VEjG6C8s2Ym/7K8PkSTmJ1GQfYOGuDihQm9dyMj4WGqvs2s/ dmWdX7KtExHkibGTnnwcsyGDfX4fb6/33Z26Fm3qMo9xPkPDLG2fVHLJs6OZ f0US6sKpGBst/0pV/zqUse/v8PRFjflZAsrY93d1+tTvF9v4Uca+v3dlveyB p0VRxr6/fQendrTJKqCMvLJd1C8P9Tg1gM/1eam1+dmwLPC5HFNiZ7/HiQKf 2zfFx+Z0QBD43HTdtWuvFfMBn1t59dFx8gUe4HNbtifo5fURgc81UrG+l473 IyCvrPppxQ4M+lyRx0+6T2ryAJ9bo/6lSccZ+ty3vHz75t9Cnxv2tI7o8Q36 3FP5sassEtDnmoVH0HYw+dzudfkKsUw+94FF2EwFH/S5CXrWtj23oc8t7BL6 ofYG+tzGpHd0uUToc1/zfikvaYQ+t002/Gtu+jLwuUhpVHaV0SLwuc7+gcL3 B+nA556obiZt7aACn1tWLfWPak4BPjfoHYvse8E54HP7y+v+hizPAJ+rMDEr kqA8A3wuh/0bPhnfaeBz59ROWdx4+Bf4XJe0It0XpCngc390mmz/sDAJ9vlh 9l78gt6TiEjaEuUTHwWhZN0b8FwkI+s19hWKc1MR+8cH+G8WkIHnNdujE+8W Qka2alS9ejRJwyYPPfBar8+GvhAYG/xEp2JZQRQ9LlsOdMuZCdbCNVRs5G3C Pof/8lhl9lwYF6ZgATuUvq2p5UEZ+wJPB95pU/siiDL2BQawVtplBUuhjHy3 C8tCbefVNoB8N/dpzLRrUgLku6EPlI59EhMGntju9wMqbxM/8MTpnFN/q6t4 gSeW2LxjS1MiN/DEd889XuWOIgJPrDCu2rYLf75neOJYo8DH1yy5gSf2a3pv ceUg9MQaNdgeDg/oiffM8ayYRUBPbPh737bgNuiJd+uTvvJnQ0+8TnAWW8vk iUudZ7nu+0JPvLM2PSeQAD2xuaec50N76ImLUnq2t/hCT3wiLK/+BxF64sNi iuP7g6An1rIuZjNtXQL79h5Mq10QOTaFTAervj71fBZ5cjgr2fLJJHL4RPxQ 8a05hGgWdCdo0ySSusUncMdVChIx0RT3vpmMfI4M4+K9SEUUQl+XsiaRgQ/+ 7XSwfBTvR5J8P8qdV6Fjr93Nr1n0r0Wrabe23thBw6h/rxarv2RHj92TLzWz oGDN9948czbkRpvEM19sdpvD6pevX9TyEkBL9maXZ3vPYg67H1m7vxJHGfv/ mm9U96ce2Igy9vsZGJ9U/eCtTErQV6sc3TSBNTa5nQ1SlSYx8uzWWKZIh+8Q AXl23+YSvUnnBECe3Ujvj1hUnw/4ZTaR81vzFrmBX74jFLa/4iER+OWsr9Wj +12JwC+fD7kxqsvCDfxywuDPV/Gl0C/rvPKs3dIJ/XLu9ODkm8vQL0dRq30X t0O/nN3wpb+EyS8nzh+xXMfkl5O39MT4MfllRxOOH2mBAqj/9x5boYNUBNU/ 1xh6g4wcidByeeZAQ3YnaAUXepIRy4bzVy4OzmLC9Wjpv3PC6Kh+1WPX2Rls WV+aNvZTFp23jmztVCBjLVKanHof5IFXHlRTGP6uxg288q3lNx2SnkSSYtzu mz0PezGds/b6t9KJJNYYIT6Z9z+xgMrmaIPX3MAzLxpWey8xeeafsa/OVTN5 5rjuDXGZTJ7ZrDHoaACnCLplI18lVzUV8Rbcs0PvPBl45THp2nuctmRkn/Dm 77k3ZjBq/c1zKxmKqP3c7U2jrpPY/VfT7z5HqwK/TFPc8kf8PV5/s5ENTX/7 MPEDx1r24f0IH3fO6cRdPZhoXItdTi8R+OaPHCe0vzH5ZoP7c4WNo2ok08RI +1QNGlKvdVAizo+M5CAvn07xzmIfPJ5++UCUQVGDsYjTx8lYxw9TqyODCsA3 j1zgM3oQSCRVy+8Z7ZT8hV3X+vJdL4YIvLMw/d87wc/QOwvc/G3YJqKIulo5 nhQYoyFYdYLuCt6PbArImbhqM4PF3z2vn2mqjDJ8c7Hdm1WPNCKJ4qgf/5W9 D7N4+dDrhheRZBNAdv+STEMWxu8INruSkUyjG+PEoH5MPUjntp8zEeT/5d0n bGTH+7vIub6NG4T7Mbcaye4YvF5rTff5/yQOYBvNWE0dw4ikX/YsExe+0pA7 sgPFVg5kpKa4+ulhtA/TUxwLvIj3p39YC9h8rvZjm7R3qxjj/foIGkSp3UxH vl5wa/HGX9/RGPtnUtaHHd39ObgL74dSz9boyn/ux6RNWxOH8f5pyKzi7z0W OmJTnboyjF9fNCXhy3OLfqz4elZsLH69GP74Mme1bS/ePzH8MWdblN65pLUo gUuP3SGChr331z8bKcaO2pro+p2PpGI/OPxKfrWtQxn7A7Wi4+yk+ggoY38g X33bi3E5fpSxP/DpkGz6tJUoytgf2CeIlhtQ5VFGHuGjwe9UorsG8M6hdB/f hvVywDufKcpXDrklCryzi/UGAVErQeCdH2F2VUMv+IB3vqM3UqBwmQd450vU LTffDhGBd/7j/IBcjl8PhndWb7c+W/4Weuejgy4mPUo8wDt3Wuyalz8GvbPO 3wfC5GfQOyvcf7mNpxp6Z5sh1tpBJu9ct+a22bv/wztfpHascDB5ZzZ+IRWN TdA7N8hJCGhVQu9cpH4tq+QT9M701kk6x3Xonf1ng70GvkHvvOA011CVvwy8 84kuocRIy0XgnSkzPBM9E3TgndtUOxtZflGBd67he0hxs6IA7yxn90j3htgc 8M5bKTY8MmtmgXcmUgqrWtVmgHcmEUXyqvyngXdee2M++Mrjv8A7mz4We7et bgp4Z242n4Vj/ybBfsBz/bNFXL6TiICiSlEXkYL8exCbs7JERuLSdy77cFER T6dPlJsPycBHS5s5Xzh8ioyITEcSrGdomPEjvq62HWzoHPrdq2mJir3keXRm oxkHOveNOOLKTsXy1TP5jPK4UA6vXa/SxCnYWOqC0fsiHpSxfzCqJzHpx2tB lLF/8E4UWc9irxTKyG88/+qDF/uxDSC/cUx0t/BZHkmQ33jaxNw3TlUY+Gzf DcmI53d+4LPpac/8Vxt4gc8mvZMqML/KDXx2QmxKrjx+f2P47NoXF45XBBGB zxYv6z41YsoNfLbVDd/eKH3os0nuXSvl9tBnX+F/6WHsB3025/5DLMdfQ58d IzNoZ8Dks3dXJ5mIMvnsogl2V3Ymn03LO9apLAd99unwF630YOizHcZbJc9H QJ995zLi9lEU+mwhz8ebd8ZAn5262+BHSM8S2N+32rOdQ8t+Cnnn4DRa9WQW yakb584pmUQeuvd+WJc9h/SxtNcobZ5EkmuvK+6/TEFOHyQ0CX8iIwcH/Z1d oqmImuXS/k94P8Xw1mr/Xrofc8KffzWTzqhp0LGR43XtP7vWoqsbEsozdtGw hj22SxeK2NG0cdnhuaMULNhA9jn7Zm7UuaVKcKPnHFYpdG7nBUsBtE6eHnbI fxbLC5OdlbsijjL2CUq/yDPlJG5EGfsCTShLtmceKpOEdmzgsdaewNZZHWFh PyJNYuRV3mp6XvbjkAjIqzzSon/lQbwAyKscEnX++mQ/H/DgP1hMjQJYeYAH X7ux3Ki5iAg8eFPiRf8bLkTgwcvVbBYKl6AHn1ESUa8rhB6cxSPqJP8X6MGn /TeN955n8uBnv5lrS0EPLrDgLTnH5MHna32mtZg8uP9r0XZdJg9ukmQy+jJB AP2zs+2px34q0iskqG+fRUamI+/oN1vj9e9DMNn6BP7/9+zDqfA/s9hjtQFv PmdhdEVG0k+ANoPpbsE6d9+RRS/McXm2qJGxHfEh9KY/8sB/rzsdUrlxCzfw 32J8m8Z1ThBJP7KkFCPLerGDPw0vI1eJJIU9uZaLX35il82en/J+zg18uO1T J9ewPKb8TO79cb+YfPjprOHIMSYfHu30QV1DXQR9nMzBa19JReJHYgLG8X6K 4b9bWRu49PB6+8qloiYvZwazEDUrOO6miA6lqdV2e09iFKXiguVGVeDBXU8X Kj6vI5J6i2VLfFb6sPH55B2reH3a0qRY4WHSg5l/ztO79pMIvLhKx8D5aCYv HuzdECKTq0YiJ/3e+ViJhrwKOnn7iD8ZeS4rEJCPPwu1m7OafPkhjX7sC+P3 8SVj5gPSDS2cisCLt7Z7U/SC8e+HtnRIuNovzLnKttUEf35j+PGtxhKp/Ux+ fCAyVuSgoSL+PPTBVHOIhmRouQiZ25OR3ArFrjT7GWzfYqxiEocyyvDihwSt DekZRFJhkAxfsFAfprIvv+I8fn1ogdb7yHE0ZPiyP8XWjYx408Rnhs70Y2qd x3iI+PeX4cPpJyQCxfB+x2a5dfyUVD+2WlSxLRj/+3DluZ96LjSA6W48tXdr OJF03tGn6U4zDdGoyRl+ifdTp7HcHX/N+zDvyyMjeceJpLelKgQ0qx8bWDPw RQn/Od7gZ1ufKh1JvLBL4jL++nxOefETtX0YdfnilCveT7mrHEDm2/sxdsuS fXv8iKTYw/Kt1Ys0ZC7yZeZGvH8U3kXoSLDtxyxtDf/8xvsphue+Gt70cgDv pzj5n4cKqvdjepnV18/i59vzx9lE0x9/3qloK2DB+zlP3i1iUw/7sa5M5Y18 HkRSvWFxhqgMHVnoEmDrxs8nLM4lR22gD+M6s+f2dfz1sWyBYW3vfiwgde3/ 7/eadN2zdM3oSEr042wq/n73xv66fufuxwIte6rv4O93EFknXKhNRxJMT+89 hL9ekXZfyJOHfZiDFsc2N7xf9etd2/TzIP73dLrmpIm//v/msyvE9pf34K9v Zj/HnhD2AmMcj50S7T5R+hJh9DPSbu9oSuHw+HL8veUjz+Bx/dGQUCOm41Xm L42jmI778Qr8M2Y6XpZwSC6C6XiB90Cz3OpfcPyrKe/zTfjPjONZOcHhZcgM +PmcWzciWT4Jfv//AS4rB9k= "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { EdgeForm[], Opacity[0.02], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwt1Xl8z3UcB/CfodLjUdtcc4RW6TBz1aO7GLNRyr25xqKia3OWXKOwDaN/ qCikUBQxRxKFLnRTuuguNhu5bbP1/Dwe/fHc5/16fX/f7+/4Hosfmt0rKyoS iVTjpD/3Wx+uEYlEs6N6JJJDDGlylXUd2YyX49lnTiLLHMducy5FDtpePmxe SD9aMFwXw07zVGJJlyOsN4+kY3gPuQF7zHkUO14H+Yh5Ef1JYIQull3madQO 7yVXo9A8ik4ctX+Srsj8EgNoSZ1wLH0UG8yjSabE6zvqis0vM5BE6oZ99dXZ aB5DZ0q9vpPuqHkxg2hFvbCvvgabzGNJ4ZjXJ+tKzEvIoDX1OW5bZ9tKzUsZ TBvi+Ne2FNuOmV9hCG1pwAnbTnKK05zhLOc4TxnlVHCBSqpIdbzj9l9GJu1o GL6DviabzeNIDedHbshecz6TzM05YJ5uTaQgnE/5JstXjt+K7SxxfTWzrqWZ eRaXmheyIVwCcjbHyNEN083lEF11u+mvv1FuR1uGUsBButj+Kf28po38AHP4 mVT9J6Tb1louDB9RzqKUKfpMXd3w3lQxTzdb9xMp8sekhe8jNzXnU0t+kfW6 KPkJSpisG6JbZG5sXk2d8D5UMleeZftz5hjzUn6U463rwvnXf0Rfc6L+y7Cy jcXhs1ibsoYm8h7rdWwmT95pvYQXwvHs/5n1BrbwvO0fWuNYSbXwu1mvppDH 5Q+sR62TrIPtn2DdGs6VrpF1FbXNza0bmWy+QIE53+vnmaPDOecHOTm8J33k lvIV5lwuDp+Ht3UL5PrmFf8/kB6jmIlyhqobseEzUcGc8F1139NJ3kVvXYK8 lioe1RUxQT9IjgnHo5zZulzdATqG34xeuhbyGip5RHeEp/UD5Zl8R5JuBz3D 7yq/xQVG6A4zXj9AnsG3dAi/KT3018tvUsFw3T88pe8vT2c/7XXv0z2cV3k1 5eHZrPubJ/X95GfZx9267eH5rb9WXkUZD+n+Ypw+XX6Gb7hLt4379M3lNzjP g7o/GatPk6fxNXfq3qOb/hr5dc4xTPcHY/R95anhnucO3VbuDdeVvJKz4X7V /c5ofR85J1zb3K57l3v0V8krOBPuYd1vjNL3lqfwBbfpttBVHy8v5zSZul8Z qe8lT+ZzbtW9Qxf9lfJrnGKI7pfw3NH3lKPDtUJZeD7pJoV7h1vkzaSGZ5fc 2DyTi+QFvBr+fzJYdyg8V3Q95MvDtcP58LzQTdTt5WZ5EynhPpYbmWdQU57P Mt18uZ55OSfkDPlgeMbI3eXLwnXGOfJ0+2v5vfVNmMB/pDj9Ng== "]], PolygonBox[CompressedData[" 1:eJwl1mWYVAUUBuBhAWHZBURQGukSJZalUzAoCTsJ6e4waZWSDgWlVFBQVFRA FFFBJQXpkA6btn18z8OP9znn+2bunZ3ZO3e3WIc+bXonJRKJDMyw7OCWTInE voyJxDjupAAZ2Omx79jFbvawl33s5wAVHbvfc8fThIIkxXn0581FtCeNg55f SX/APoGmFCJjHKu/YC6mA1U55PmV9QftE2lGYR7VXcMq+2Ayxbnki+ZrPE46 hx1fRX/IPonmFOExXRZW24eQOc4tXzJfpyOD5CJ8a69GN/t1fGkfbpZjpP0J swS77aPMCnzvddPMw7ox5ovm02ZpXqCF3M8swHNskUeY5RnPjXJbMytjWSM/ a5ZlHEPlYWZxnmeXPNK8KT6XeJ/mZfMNnrGXoVN8VnFudtir092emw3xs/Ok vSR77Ee8h6rxXuyTuYv+ckG22ovSzp7Mx/HzkIUW8hVzCZ2pQQ9dHjbaR3PU udPlI/YptKRYXCe6bKyNz5Ws8bry7+ZSulCTY46vpj9qn0oripMc59L/Yb5J V2px3POr64/Zp9GaEmSLY/V/mm/F75janPD8Gvrj9um0oSQpcaz+L3NZfH7U 4aTn19SfsM/gbkrFdaxL4ZP4bEmNc8l/m8vjc6EupxxfS3/SPpN7KB3XsS6V T+1PkT3OLf9jvk1P6nHa8bX1p+yzuJcycR3rsrMurj9yxLnlf8136EX9OI/u er6K65UzzldHPm2fzX0MkAuxzV6WTvYcfBbXGDnjdeX/zBX0ju+WXJSd9gbx evYb+No+lrNep658xj6H+xkoF2a7vRy7k90r4nXjXmQf5r41yc0rh/wKm+R0 +QMay/nk/PbRZJKns0A3Xc5jX8x5+RH5ED3lJnKqfQi/85xuqG6iPbt9Ht/I VeWVNJLzyvnso8goT2O+7hwP6w7SQ3ennGIfzBXG6oboviZNfp9bdTfIr/Ib D+kO0F1/h5zNPojLjNEN1n1FFfk9Guqul1/hVx7U7aeb/nY52T6QS/G56Abp NlJZfpcGujzyPH7hAd0+uupvkweygUq6FdTX55bn8jP36/bSRd9YHsCXVNS9 Qz39dfLL/MR9uj101jeS+/MFt+jepq4+l/wSP3Kvbjed9LfK/ficm3XLqaO/ Vp7DD9yj20VHfUO5L+upoFtGbX1OeTZnuVv3HY/rG8h9+IybdG9RS59DnsUZ 2uh20kFfX+7NOsrr3qSmPrs8k9O01u2gvb6e3ItPKadbSg19avw95hStdN/S Lr4fck8+oaxuCdX1KXFNc5KWuu20je+tnNU+gItxfep66NZSRn6Darpscl77 SJLkqXEN66bJue2LOCHfJW/jsbjHxGdsz29fShZ7fy7EeeTuHp9gT7XP5WO5 qLmC0vrXSbcnx+/CXBvfLV1hc3l8B+zfxHP5kBHyejMDUyjguKlstpdlVfzc nvNFXF8s5Hh8N8zivEcLj68zt5qPxn3W41vN8qxhtn5D3DdYwjVySXMl/ezn GWHv5rjx9hT7y3GsXEp+japy1vg+2AvZl8X30T48/smyT46f3zpFzhX3I47J zeUtPBJ/P+TM9r6ci2N1XXWrKSkvJi0+c3kyR2mm28zD8fdK7sIqSugWUSXe j/wiR2iq28RD8fdQ7sxHFNctpLI+s1yNTnxIMf0CKnnMbTiR8epbSqTTkQ/i d+zx+VRMuvp/5f9bPjVf "]]}]}, { EdgeForm[], Opacity[0.02], GraphicsGroupBox[{ PolygonBox[{{581, 122, 78, 2518, 1086}}]}]}, { EdgeForm[], Opacity[0.02], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwV1Xdwzgccx/GHSu76R422WqNFjM67LiRBh9HrsLKFVKuUGi3pMkLsUUV3 o3shJduIGF1WlyAbbbVEBXW91gpZ6Ov54+X3/bzz5HJyzz0JG5UcO6lxIBBo RIV/+ntuCA0EurIrJBAYx54mgcAHdisy7EEUuaM44m7KNndvStyTWe17Uuxa 9xLu4j8tX+vGD/Z49mof2q3JtAfTjO12H0rdU1jjddPtOvdS7ua0tlHrzo/2 BPZpH9ltyLKjaE6GPkOrdy/jHs5oRXystyVbi6YFmXqq1uB+nXs5qxXziX4T OVoM15Klz9Quud/gPs5pJXyq30yuFst1ZOuztMvuN+nKea2Uz/R25GlxXE+O Plu74n6LblRrZXyut2etFk9LcvU5WoC37e5c0Mr5QuvAOi2BG8jT52qNeMcO 56JWwZdaGOu1IdzIWn2e1ph37QhqtAI7nJ/s59ivrbA7ssFOpBXr9PnaVbxn R1KrbbIj+Nl+ngPaSrsT+fZQit3RVLpbs8PdlzL3VNb7ngV2E9LsHux29+d3 d52vb3ZH8ot92HMEE93lnvFUuas8x3DQ61d5duYUG33tkOdwzjDMLvGM4V+O 2sc8R1MdfC/aOz378Q/ldqXnSM4xLfj/9EzkNCftE55jg78zP3uhZwjL9d88 k+jpLvQcwCF3vddtcfdgtz2JCncCx92/+nq6uwsFdhJt2WU/TIU7hXyvW2SH 8r7diwZta/BnUmgnBz8DvLUG0sJnRioNLPNBslg7SD97J3HanXYeV5ignWK6 Ptxu7p5BPUu1V7UD9LV3EKvdYedymfHa36ToT9iL2E8fbTsx+u12DpcYp51k mp5kLwx+ztFb20a0fpudTQNjtRNM1YfZCyjnIe17ovRb7SzqeVY7zhR9qD2f Mh7UvmOwfoudSR1jtCom64n2PEp5QPuWQXoXO4NaRmvHeEUfYs+lhPu1bxio d7bXUMMz2l+8rCfYcyiml/Y1A/RO9mouMko7ykt6vD2bInpqW4N/D/SO9ldc YKRWyYt6nD2LffTQtvC4HmanU83T2hFe0GPtmewlUtvMY3oHexXnGaEdJlmP sZsF3yvUsURL1fYQYW/iUa293da9iFB7OSu1czyl/Unwj1y03TT43qGW17QZ WiHhdgGPaO3sNu6FhNhprNDS7JbudM7aT9p/MNGOsq8Jvs+oYbFWfrXft/4/ yzcDdw== "]], PolygonBox[CompressedData[" 1:eJwl1mWwlGUABeDl0nDpdnSku7u7SwVF6e66tI5FoyPdnZduBETq0l2CktLd Df70eYcfz7znnN2FrW/nZuvQt0mfqEgkEo/fhPEJIpHuiSKRRwkjke/5lBu2 3UxgIpOYzBSmMo3pzGAmPTz+scf9QFZu2uKYRU+3PbH9SDZu2fYw1h7NPFs1 opht72V7Kv9Edm7b9jLOnoL5turEZ469t+2Z/DM5uGNbacvHdr0N+2zj9ZQs 0GuQgB16BU7IMcx1vz76c3koOTmk1+aCfNftq+T87NCvOlvTVj7rbMJteX94 7+RULNSvOFtSUz7hbBheI1fD63N25A0J9Z3OiuH95GT4LJzteEU//byzWXiO 3NfvObvwLryX/t++zhf2h85hzkvO5uSSDzvrcDF8Ds4O3POY1c4C7LRfc7YJ /6d8ztmUO/KB8F2QU7NIr8VJuRHX5ETskitxSu7PfI+J0V/Kw8nNfdsaW0F2 6e05GL5jehoW67VJzAJ7v/Da5RHk4YFtra0Qu/UO4TMK3089LUv0OiRhob2/ 7bU8krzhfbGtsxUmTu8Y3pfw3dbTEavXJSmL7APCZyOPIh+PbOttRdijd+JI uC709CzV65GMxfaBtrfyaPLz2LbBVpS9emeOhmtKz8AyvT7JWWIfFD5beQwF eGLbaCvGPr0Lx8L1qGdkud6AaHbrlTktDyDW/Qbr7+VfKBieu16XS/JTt2+S i7Nf78rxcJ3rmVihN+SU3Jjrcgri5CqckQey1GOG6P/Jv1IovEa9HpflZ26/ kNTzCN8Vv0Hn5O/8Ho33o5RSn88xvZS+hZp6Zj2LPJIE+lQW2abq6eVYXuqt 9H/ppdfTo+UhvGeM7VvbODmFPI+jekl9MzX0THpmeQTx9SkstL2gpe0KPW11 9eTyYN4x2jbEdoQS+u9Ut2XUF/CcFrbL9LDX0ZPJg3jLKNtg22GK65uoZsug z+cZzW2X6G6vrSeVB/ImvC+2QbZDFNM3UtWWXp/HU76xXaSbvZY+kIMUtW2g ij2dPpcnfG27QFd7TX0AByhiW09le1p9Do9pZjtPF3sNvT/7KWxbRyV7Gn02 j/jK9g+d7dX1fuyjkG0tFe2p9Vk85Evb33SyV9Nj2EtB2xoq2FPpM3lAU9s5 Otqr6n3ZQwHbasrbU+ozuE8T21k62KvofYgjv20V5ewp9Onc4wvbX7S3V9Z7 s5t8tpWUtUfr07jL57YztLNX0nuxi7y2FZSxJw/fae7wme00be0V9STyAF6H 76etp20nefTllLYl0zPJw4nSJ4fvsG2Knk5ewm29sX6KNnqF8B7LWeSVJJb7 8yr8O3oPt4+Vo+W57NCzOjeQ276MUnLS8Fk4d4Zry/aJc224BuSj4b5sZZi+ 1xmPSXzkcZM5LudlW3je7rM/fL9YzK1wbTizs4lGbo9znnS2dpZ3+0lnfrYz 034w/G6wgkR6Tudm+skvGSZ3D38HycnlOeGxei59KSX1JOF6kD+W14TrUR4a /niSJ4bnL07S04TfI27qDfUTtNLL6QnlGF6Ex9q62f4kpx5LifCe6xO5QQPb cVray+pd2UYO2xKKh9ejT+A69W3HaGEvo3fhD7LbFlPM7mc3UprObCWbfRFF 3ebnOBL/w0uKlKITW8Jn7PaFFIn68Pfi/+oUSq0= "]]}]}, { EdgeForm[], Opacity[0.02], GraphicsGroupBox[{ PolygonBox[{{581, 29, 75, 74, 2520, 1656}}], PolygonBox[CompressedData[" 1:eJwl0VtMzQEcB/D/SXTxwDA26rRmxJDro9uD0JaXhphyyYtNl3dUj3VOqCfV yeSpLJsUOZ2SmYmYjSeXbl61XF69VD7/efjs9/1+//+zTpVfWVtakxYEQYQv lFDBdeOc8Wrk/8NufS135MemNjmDRj2H7baT+mv5CN/0Ln0FLXpMvyXPy3UM yptYJfe660nII+42znv/hvvT9tKtcp+4Gxknove468KfSZuecrfygX6fb3cz eUWT50m3gPfk6o/cKG+4p4+6O/gYXp8/5Y7Zi+iX85mw33dX0mqP67flBbme 1TzUN9ApX/C8Tv4lV5PGgK3DlkVMj1JoOx1+F/kok3ozLbZFvYE1XLTV237L NSwJ/y62nZTZ3+rHmNJvcoldnAn/bvbjTIf/CyrZzR72ctY77zwvZib8vbhM g/2PrZZ0ntoStmzieh59ch5d8gu3kE/s8+5oehD8XRYEV/jB7FLfx/3KNfkz RfIYUbmCFFv0B3z3+Yh+mLsstzXz3D7CMClmCDw/RCfZ3okzZJ9mkYP2BFn2 GEnbFAscsHeQaW/imS1XL2eIAlsPk/Z59tvaybA1MmjL0c+RZLOtmwn7CV/t H+TZbY0= "]]}]}, { EdgeForm[], Opacity[0.02], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwV1mV0lXUAx/FLCCwApVNBkZLubgYYpEVI5zY2Gn1hkZI6hgrSRwTGBhsj PB4QBJHySI0aQ3xht3QI6Of/4nv+v+/3ssuzh+feQ9XhyX2T8kcikXyIM8o7 86IikcuIFI5EWjjXF4lEKmIj38hLYB7vz+fYV+yxuM7rYqR2gsfhNM/kFZDC Z/EVdiG8zqOQT2vJP7ErYRMfgLnaVT4ON3g9jNJO8m7I4bORH630DVplpPGB eEe7xuNxk9fHaO0U744z4fpRAK31jdqj2MwHYZ52nSfgFm+AMdpp3gNnwzWi INrom7THkM5fwXztBk/Ebd4QY7Uc/jTOhWvEQ2irp2lVkMEHY4F2k4/HHd4I 47Qz/BmcD9eIlVphvKFFo5DWjm+2q2IL38RLYj4fwhfat+wk3OW7eFUs4415 vH3WfhZ77Bq4oGc5K2KJfsBZN7ynvspZBEfwptf2OWsjxv7MWQ1fYwU/6Kwf /h3DdfvZ9s50/ZDzceduZ3V8g61eT3OWwjEs8Pp+Z53wjGGo1xc5b+uHncnO vc5a+Ndrn4b3xHK9CU+wz9nPIZdv45WQyhfw1XYU3uKxKKJ14Bn2E8jkm3lp LOTD+GL7jj0B93hTJGrneU9cDPcba7RovK0VDc++1pFvsashiw/Hu9pdPhH3 eTOMD/ef90Je+J0RjU7hHmlPYhsfgffC784n4QFvjiQtl/fGpXDNiEFnPVOr juzw2UWKdo9Pxn/hOwDJ2kXeB9+Ga0QsuuhZWg1sD59PLNHu8ymIoKU2Qcuz ++JyuEasDc8HZmjFwj3RuvJtdk3s4Om8DBbx0TzVfmBPDd8baKVN1C7Z/fAd z+aVsZSn8HV2LGby4uHv0uJ4tl0LO3kGL4vFfAzPDd8TOO47Mcf5ml9lsS/J Ynw1jvGmfCe68HK8vD0LBflSrNOW8lL2elzhg/glJPIePNaejluYq72qLbKL 2qtwlDfhO9CZl+Xl7JkowFOxVvsHA7U8JGjdeYw9DTcxR5uuHUFjvh2dtDJ8 Df7GAO0i4vVuPNqeihuYrU3TDqMRz0ZHrTRfjb/QX8vFOD2OR9lTcD3cF22q dggN+TZ00ErxVfgTL2sXMFbvyqfgKzTQstBeL8lX4g+8pJ3HGL0Ln4yDqK9l op1egq/A73hRO4fRemc+CV+inrYVbfVH+Ef4DS9oZzFK78Qn4gDqalvQRn+Y L8eveF47g5F6Rz4B+1FHy0BrvThfhl/QT8vBCL0DT8YXeEpLRyu9GP8QP6Ov dhrD9fY8CftQW9uMlnpR/gF+Qh/tFIbp7fh47EUtLQ0t9Fj+Pn5Eb+0khupt eSI+R01tE5rrMeGZxg/opZ3AEL1N+Kjbk3EtPJ9agrYHNfhGNNOieVl7BvLz JeEZ1lJ5SftjfM978uMYzFuHe2yXt9NQ2J6Eq+F9eLzXF9qx9krs5lWcWaiu b0BTO/yXpo5zT/hsaZWdW8JnwD4a/ix24W2+35kPKajg5/4HMFUhKg== "]], PolygonBox[CompressedData[" 1:eJwt1mdwVFUYBuANoKIzSFWQkhAhikaKghRREJQmCklIIHTsdBCVHrBQpDtq QBHBodg7JYQQerWgInZBelN0xt4An2/0xzPne9+T3WzuuXsh9Y5hWUNLJBKJ JCYaqlufOj+ROFs6kRhJCZqfl0iM0O01Z7NfXi4nky8/IS82l2GSXC7o2svL zVeySu5Pvi7BKF1JrtfdL+8z53BAfpIluguZrCsfdB3kFeZ0CuQBzNUlMVpX iht0D8jfmrtyUH6KCtyiX6m7itXyQFrwoH6/rhuH4jNSkY76Vbq6FMqDaMlI /QFdLofjM1CJW/UFunqskQdzI6P0B3XdOSLP4yJu06/W1adIHkIrRusP6Xpw VH6ai+mkL9Q1YK08lNaM0R/W9eSY/AyV6axfo7uaYnkYN1GFDHtF+mtYJw/n Zi4h095afUPWy/fRhqpk2SvWN2JD3Be0pRpd7K3TX8vGOFfaUZ1se+v1jdkU ZxT3BzXIsbdB34TNcR5x1iTT1d5GfVO2xLWPcySFbvY26ZuxNa5znBk1ybW3 WX8d2+KaxvkwVn9E14vj8nxS6a7fEvc62+OaxvkwTn9U15sT8rNcSg/91rh/ 2RHvG+fDeP0xXR9OyguoRU/9trg/2RnvG+dDnv64ri/fyc9Rm1767boWvBvv G/eNrgRjdOeQoZsgnzD343t5IUt1ZZmiq0Carre8w9yS9+TX5SrMkfPiHjOX ZKx8bnw/zLWYb860P9F80nx73EvmOpzSr7CmMDfOzlqPRfpl1nLsZGrcK9Z0 dlExvh/WNN5nQZyftQG7uczrG3lMfOR5VI91LPKASrG+SYp5OheY57PCz5aS h/Fj0n/PsTt1s9lHB91OuusbytdwNXcwi720t7+DXD/TQL6dmXxDO/12utmr Ly+npDyUH5ig76erFL+bs8zRzdB9TVt5G13j75GTzdM4X36Gd3Ql5CGcIk/X V/esuZr5VSrG7+EMs+Xp9h83lzM/z1dyqvVt2ui3kmOuq/8wVopZGJ/Fmswb 1JDftV5OAY/Jm6yleTrez+vft15BIfPsb7FW5kWS4rpZa7GcwfIG6/fW8dY+ Xp9uLYqz0lW1vkIFc5p1JXnm08wyT/Pzc8xl48z5Ur45fifZ8lVydfNUzovP w1u6ufLF5hf+/8dsEN8xTu6tKh+fh3+YGX+n7gtukjfTRZcuv8lZBupOMlbf Sy4X78XfzNBN1X1O67heZOmulN/gDAN0Jxij7ylP4TNa6TaSGddUfp3T9Ncd Z7S+hzyZT7kxricZ+jrya/zDvbpjjNJ3lyexh5a69XSOM5Vf5W/u0R1lpD5X fpRPaKFbRyf9ZfIr/MXduiM8qO8mP8JubtAVc5s+TX6ZP7lLd5gH9F3lh/mY 63VruVVfW36JP7hTd4j79TnyQ/F9p7muiI5xT8kv8nt8V3UHGaHPjv+rxH3N dbo13KK/VH6B3+L7qzvAffou8gR20UxXSAd9qryMX+mn289wfZacxwc01a2m vb6mvJRf6Kv7Np45+ky5bNwr/BXPJt34+N7QRC6gXTy35GrmKZwrz2WJ7mf6 6PbFM0WXIV8Y9w5/xrNCN073Ho3lVbSN77Bc1TyZc+R8Fuvy5YvMy/hJ7i3v jeeL3FkuE/cZf/CYbo9nbg39v2ObQPM= "]]}]}, { EdgeForm[], Opacity[0.02], GraphicsGroupBox[{ PolygonBox[{{581, 29, 28, 2522, 2375}}], PolygonBox[CompressedData[" 1:eJwt0UlsjHEYgPFPddqKU0XpNA5tVVRJ6I6T9WK51Bq76cbFcibMtCQSB62L nVlacRAHUdvFQUS0M8WdWOKGdsrJ7veFw5P3fZ7/9/8y/VoVO9h2oCAIgkn4 8H8uFJKWSgzxDjQjfG4yCrGIpJxX4S7vRAsiqHeW1qtxj3ehFdv0YW0N3vAz KEKDntFm4z7vxmJs10e0tXjL+1CMRn1Aq8EDvg9xLc8PIYIl2g4ta1+HdzzF S9HP+8P3Ffz7o+K8DDfts3DZXuKoyT5on4OH/BKfitN8P0/YJ+yHccdegyL7 DbMcT3A+vGvWIYel7u0Md/2Rud68bVbjKd47T5vT8Bhnw29i1obfInTnFYji 1ZQgeI1zfmylOYSvPlA3z+Mk38pP2Uvt10N4Bc+glf/xDyixH0WEX0SvZ/p4 1H4LL/lqPop2voB/QRcfxwltCx9ElKfRov327mL7ERTyC+jxzAus0nKIafP5 BDr5GHq1zXwA5TyFZu2X9yW051ipZbFXr+N5dPDP6NE28Qxm8iSatJ/ux7VR rNBGsEefxzcijRnaNTTqPzx/XMthuTaM3XotH0c7/4SEtoGnUMavokH77v4x LYtl2jPs0ufyMcT4R8S1Np7EdH4F9do39/8Cz4xyBA== "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], Thickness[Large], AbsoluteDashing[{12, 4, 1, 4}]], LineBox[CompressedData[" 1:eJwl1GmUj2UYgPG/GUzMDBlLOJxjC6HsZGwVkq2iJHskhexj+2atDxXGSIYZ DCp7EiqRnazZWziHytJmmUJf+93Hh2ue+7re85/leZ9nqg8d22tMkUQiMdKX WBsmJRIrDNWwjQ9Dc8iJZBRFI1LgeXVs52+gBYqhsWcr9Rr4kg9HS/TTj2pd cZnPQ3E00VdpNfEVfxNPor9+TOuGK3w+UtBUX63Vwtf8LUzX7vBxKIZW2gDt uLk7fuEFvAyyeXZ8v6QHf9R0Xh4bzFWQZ37Io2bmj82PYgdfylPxHh/BZ5gL zeOx1VwLxc1rrBVxEIvjs9Z6OIFMnxsYs77b2sO6xVoDh/Gr5yutGdiPBbEn 1rqxF+GeV0a2uQj2Yka8A2ttHEEFvtFaFfnmndYGKBHv0fqJVhubzdXwjZ5n TcP7+kg+0/yPeQJSsJZXQq65teeDzCfNz+M3voqXRQ7P4QvMSZjJH0HJOB/8 U3Od+J34KMzS/uUTY8/RRhusfW9+AVf5QqTGGdLXaHWxi7+NtnhNP6W9iGv8 Q6TFGdLXao/hWz4a7TBEP631xHW+COlopa/T6sW74WPQHkP1M1ov3OAfoRQy 9fVafezhY/EUXtfPai/hd74YpdFa36A1wF4+Dk/H/dLPaS/jD56Lh9FG36g9 jn18PJ6Ju6af13rjT74EZWIv9E3aE9jPJ6BD3D/9gvYK/opzjIzYC/0zrSEO 8InoGPdP/0Hrg7/jbKBs7IW+WWuEgzwLneL+6T9qr+Imz0e52Av9c60xDvFJ mK3d5VkogWe1EdpP5r64xZehfOyNvkVrgsN8MuZo9/ikOFPoHP+3tJ/N/XCb L0eF2Cv9C60pvuNT8I52n09GKp6Lc6hdNPfHHb4COVoyZmkV4wzHXvKt5mY4 En8nT8cHfCp/1/yfeQrS0CXOqHbJPACFfDUvh4W8IM62uShm80rxs+Id8G3m 5jga+8FLYS6fxs+6yP8DGdGmuw== "]], LineBox[CompressedData[" 1:eJwl1Ht0znUcB/BnSlrnMFScg2hJknIpB5XutY3k1o3cMhVh1kWFuXRx2Rbm H5TOoVO5RJHc0mwulVtqo0RhXejilnOiMpvp9Tn98drn834/v53teX7f35Oa md1rZFIikejvx7fJiURutUTijH00NenutSzdwaT/r/lLXiBfziz5HXmWvTqT 5QY01qXJa+zt+VLOIU9XLo+hFj10I3Vl9gGckt9ltu4ipuga0kSXLq+1d2Cn PI583Vl5LCn01GXrfrQP5LT8HleSof9E15Gv5PH04hn9T7rH+TveG6l01q/T 3czX8gQe5Fn9z7pB/CMv5Cq66D/V3UKJPJGHeE7/iy6Tf+VFNOV+faHuVkrl l3mY5/WHdIM5Iy/marrq1+s6sUt+hUcYpT+se4Jy+X2a8YC+SHcbu+VXeZQX 9L/qnuSsvIRr6KYv1t3ON/Jr9OZF/W+6p6iQl9Kc7voNujvi3MiT6MNL+t91 Q6iUP+Baeug36u5kjzyZxxit/0M3lHPyh7Sgp36T7i6+k6fQlzH6I7qnqZKX cV3cS/1m3d3slafyuq5CzqE2/XRjdUftwzgvL6dl3Fv9Z7p72CfnMk1XKY+j Dl3jOYmzrD8mD48Hh4VyPWbbP1LNsddgqtyI6+MsyJ/b7+V7eb6cQoGcJ0+3 n7OPZ7W9GXXtS8wGzLUXmi0ZEOffPK7baI4wV5pN2UaSvMisH3+TOfI6swU7 WeH33zAvjs+MXK+vNZuzgyvkZWZjtjBPLjJvoCRmnFXzC/19rLCn8oP+bbM2 M/X58gx7lX0Cl7JUbshb8YzGc2g/Yc+iGh/r3tQlkxffJbSKsx7/iz2N/XFv KdCdlydyWTzD8Zzq/rTHl9oF8bnoWsfZ12+V0zkQ95ZBtIlzHp+bPoODcS/I pC03clOcbdds93pnyuJ9MTiec/1JXTYXsko3V3cJ+fHdxXJ7E+bbi81WlNLO tf8BCsWyiw== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], Thickness[Large], AbsoluteDashing[{12, 4, 1, 4, 1, 4}]], LineBox[CompressedData[" 1:eJwV0zVwVlEQBtCHhqAzWIFLIAkwuEOAEpdgFe4+uFtwd6txp8ShwAocgru3 uDOcLU7228299/3/y03VwROyx+dJkiTTj1t5k6Ru/iR5kC9JVtKecuThtt/d 4S653OM+D3jII+rZ+9DaVXSgPHnjHPOP6k4G0YjH1tc3fySvpiMVyBd7zT+p uxhMY55Y38D8sbyGTlSkn1lBjsvTyB9n6T+ruxlCE57a39D8ibyWzlSiv1kK J+TpFIiz9V/UPQxlqr4SN+WmjJJLckFeoGaSI89Sq5MrL1Lr8MxzG6lPzZao 69S5ak1W0EU/US3HMq7qF6q1WEVl/QC1EEs5qZ+vZrCSGfqZajWWc1efo9aO 9xLfU/2q7mWenM6weFdxNrfkZoyWS3ExPjuz5TTuyc99h8bxXeT1dGWSvjzX 5CoMlFM5FZ+HFLrov6n7GE5zxpiV5pK8mBfObqJ/Lm+gG1XjnpgV5nS8VwrF c/Xf1f2MoAUv7W9q/kLeSHeqkRpnmf9QDzCSlryyvpn5S3kTPahO4dhr/lM9 GH9jWvHa+ubmr+TNZJNGkdhr/ks9FO+P1ryxvoX5a3kLPakR99isCGfi3VI0 ztL/Vg/HeyGLt/a3NH8jb6UXNeMemxXlrDyHYnG2/o96hLG04Z39rczfytvo TXrcY7NinIv7R/E4W/9XPco42sY5ZmW4HPeV985rrX8nb6cPk/UVuC5nMEwu zvm4Y5SI5+r/qccYH/9b+ircltvF8+SyXJGX8sFzsvTv5R30ZYq+IjfkTHJT k+Q/T8+O5Q== "]], LineBox[CompressedData[" 1:eJwV0TtPk2EYBuC3tA5MtqK0HTu4qAX1DwA9bgwOooJoHNSp5SAJg4mamKiD m5MKqP9A8TCrEziayF9Q6AkVVE71+oYr7/08z3vIly93rX6uFgshPOFbbwij 1uuJEA7zMR7CHZKcV3etr6kzr87xVR6hJqdZkR+w3hPCkPq7/JQLnOCGXpJP 8l1SjKkDb+QpCtEb6gyr8kM23Des/iE/4yInuamX4rN8jyPRW+oYy/I0RRrO j+ity8+5xCn6orv0e3grz1CiaX9Bb0NeYJw8R6Oz+nHeybOUadlf1GvIi0ww wLHorH6C9/ItKrTtL+k15SUuM0g/HbOyWUt+wSSnSbNpVjFryy+5whky/DT7 xW+22OYPf/nHDrvssc8BXaru6zj/iqucJRt9g/4hPshzVKP/o87yRX7Ebfk4 a/J9a57H0f9U/weO1ExY "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], Thickness[Large], AbsoluteDashing[{12, 4, 1, 4, 1, 4, 1, 4}]], LineBox[CompressedData[" 1:eJwV01dsjmEYBuDPqNna49BerVqnVuztgEQiYrVU7KI4sDeJvWdRrb0PqVZr byFRIzYtRe1x6HoPrj7Pff//l7/fapA0ddCUUlEU1fNnbdkoGl8uiopjomgO 9Xily2Ed69nARjaxmS1sZRvbmeD4T46bS31e63LZwUSffdbNowFvdBdZrY9l j64Lpdmpn6T7Yp9PQ97q8lijjyNd15Uy7NJP1pXYF9CId7ojuhack0eQr1sr V2Gv3I2ynJfbc9ueym7fmyJ/tS+kMVflnhTY3/v8qD2e8/Jzczgj7Q/MQby1 XwrXzl6VffIzcxjd7bfN/uEceR7Oz0zmFzFyttkhXE/uhHthjuIH0+RH5pDw P1IkF5op/AnX0u9ONb/pP5qLzCfmUJrYr5m9eBzug5lEoWOOmQlk61+YI8Jv 2h+ag3lnvxyeBXs19ss9uGMfwAt7OS7YO3LXPp10x6TK3+2LaUqR7riuJRfk 0VwJz5hcnQy5J+XZq58Wzt2+hGZ80J3QJZIjJ4V7FJ5PuQYH5F5UYJ9+uu6n fSnNw3XRndS1IldODtclPNtyTTLl3lRkv35GuDf2ZbSgWHdK15qL8hiuh/dC rkWW3IdKZOjTdL/ty4nnk+60rg158lhuhHdKrs1BuS+VOaCfGe6tfQUJfNad 0bUlX07hZngf5TockvsRS47ciXv2GWT63iz5r30lLcP/Lvfmif2Lz8/a23FJ Hset8J7LdTks9+eufSAv7XHk2jtz355GlmNmy//sq0gM5yj34am9xOcFFaPo P71Io8Y= "]], LineBox[CompressedData[" 1:eJwV1EVsFGEABeApLgnu7nDC3fVSgruFQCA4nHB3d3d3h7Z4grsVWihQNHgI 7v7N4ev/3puZbLu7acGuA5r3jwiCoJEfCamDIFLenyIIynE6eRD05HKyIFii 52Cr3ohrchMeyek4LtcmVh7IZs8M1X/I0yjJO1uUrTxn9F5csS3Vc7JNb0x6 Tuh1uCEPYov7huk/5emU4r0t2laBs3pvrtqW6bnYrjchA1vtw22/5BmU5oPt Gsvtudlha0pGttlH2H7LMynDR9t1VtjzsNPWjExst4+0/ZFnUZZPtlhW2vOy y9aczOywj7L9lWdTjs+2G6yy52O3rQVZ2Gkfbfsnz6E8X2w3WW3Pzx5bS7Ky yz7GFjBXr8BXWxxrbAXYa2tFNnbbx9oimKdX5JstnrW2guyztSY7e+zjbEmY r1fiuy1Gr8g5vQ+3bOv0QuzX25CDvfbxtqQs0Cvzw3ZAr8R5vS+3bev1wkTp bbkuN+WxnJOTcl1uyoPZ55kJejIW6lW4KEdyT/7p+kG5Mhf0h87O9JPjnC15 Jj9zdifB/RucRXhNtGuJzo58oJ0e62zGW57oT53d+BJ+F/VTznq8IU5/7OzC J4aEf6ezDe95qb9w9gjfM6890ZmcRfa7zvZUlS85G5Io/3LfIbkKF/X+xMut eC7fcX2jXJQYvT25Oa3XJ14eSpT7JukpWKxX47ftcPiaXNIHhP8DfLXu2jfZ inHA1oE8RNsn21KyRK/OH9s9NtuKc9DWkbzE2KfYUrFUr8FfW2L4fWCqPTXL 7DX5Z7sffoZMs6dhub0WAQ/C9yL8nTnCUaa7Jy0rXK9NRPi527fYSnBI70Q+ zugNuCUPI0Fuyyv5pbMn3znm+f+wEL1i "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ RGBColor[{0.996078431372549, 0.396078431372549, 0.09411764705882353}], Thickness[Large]], LineBox[CompressedData[" 1:eJwVzrkuRFEAx+EjsZYSe0Vlbeyt9QXslWXG0tFKiG1IlDohsS+lzkNgZvAA ngAzlsrum+LLnN8/5965VZG5vtmsEMI8H7khNBaEsJcfQhGHeSH0sWJ71BFS uppR25XuIK6X+PR8k33fVsyRrZ9V25OOktY1jNmudScJvcyX55vtB7YSjm0D 1DJuv7F1kcx8E9/ut9gPbaWc2AZZsz3rSV50HRO2uO7mNvNN/Hi+1X5kK+PU NkTMltJTvOp6IraE7uEu8x/s2LJZsOXx631t+ti5nDN3hlm3pfU0b7qBqC2p e7nXF7qcLR3Tu845LOp8/ry7XZ84V3DuzrkuZFOP6A3nF+cZ3vWlrmRbP/j9 B9FSQxg= "]], LineBox[CompressedData[" 1:eJwV1OVPlWEYgPFjISDqZm5iYevs7u6OT3Y3ghgf7RYL9IPO3lRSCWtOp9M5 dTpnAYoYf4Pd8Xs+XNz3db3j8JyX95yEecmTk8pFIpFBfryLsVSORHqaZ6Ij kXhk8AxeA7v4VL7d/sG+BJ95OyzQnvDheM7zeD2k8a38qD0K63gMymm9+Fl7 fWTyadihfeRL8YW3x0LtKR+BF3wbyqO3fk5rgCw+HTu1T3wZvvIOWKQ94yNR FM6PCuijZ2gNkc1nYJf2mS/HN94Ri7XnfBSKwxlREX31TK0RcvhM7Na+8ER8 552wRHvBR6MknBGV0E/P0hojl89CqvaVr8AP3hlLtSI+Bi/DGXFMq4z1Wiyi tP48256A8zyT18RuPpvvsX+zJ+Env8ITcJh34cvsxfaxuGFviVd6vhmPdP2O 2S68pn7cjMYDbHDtltkGVezXzGZ4hKP8rtkh/B/Duf3uADNHv2c2Ma+bLfAY F1zPMmvhIVJdv222Dc8Y5ri+1/yu3zeTzZtma/xy7Wp4TRzRu/Ll9hL7OJTy Al4fB3kqP2GPwUYeh2htIM+1N0Uez+a1sYfP5fvsP+wr8Zt3Q6L2ko/H63C/ cVKLxSatanj2tUH8vL0Z8vk87Nd+8hT84d2xItx/PgFl4T0jFoPDPdKao4DP x4Hw3vkq/OU9kKSV8ol4E86MKhii52ktUBg+u0jTfvPV+Be+A5CsveaT8Dac EXEYqudrLXExfD6Rrv3haxBBL22lVmafjHfhjDgVng9s1qqFe6IN4wX2VrjE c3gd7OWL+EH7X/va8L2B3lqK9sY+Be95IW+AQzyNn7bHYQuvHv6WNpwX2lvj Ms/ldbGPL+al9v9HJqc2 "]], LineBox[CompressedData[" 1:eJwV08dzTlEYwOGrs9ASvUUEY/Tee++iJSH6So1Oom6UpRlEiWBGWVqF6CFq lLGwNKOkCIK/geddPLnn/Z3JN9/cc770DduX5NVLkiTDn0/NkqSL9VnPf02T ZB/1GdckSXZpn62X8c1cYu5Gofm0+Zp1c46ZWwVttrnEui+l5o0Uagn7tQaM 13abv1gvp9J8hutaC45rrYM2x3zbuh93zZs4p9UjX2vIBG2P+at1FlXms6Qw V7+j9eeeeTMT2at/07Kpju9IKvP0Um0A981bmMQ+vVLLoSa+A22Yr9/VBvLA vJXJ7NertBV8N5+nLQv0e9ogHpq3MYV8vVpbSa35Au1YqN/XBvPInMdUCvQa LZcf5ou0Z5H+QBvCY/N2ptGBTHsP9aGUmXcwnY4stvdIH8YT805m0Ikl9h7r w3ka94KZdGapvTJ9BOVxrsyiC8vsPdFH8izOKO4HXVlu76k+iudxHnHWdCPL Xrk+mhfx7uMcSSPb3jN9DC/jPceZ0Z0ce8/1sbyKdxrnwwH9u7aKn+Yi0lmh v4i7zut4p3E+HNRrtdX8Ml+iByv1l3F/qYjPjfPhkP5DW0OduZgMcvVXcT95 E58b58Nh/ae2lt/my/Rklf5am8jb+Ny4N1p9CrRGZGpHzL+s1/HHfIUbWktO aCn00labK6wn8c58y9yBU+bDccesG3DA3Dh+H9YZFFkvtn/Uus56fdwl6z78 1W97pnEuzs5zIFf1m56teMPJuCue/fhAavw+PHvxnuI4P8/BfKS3//8Pr0KR Hg== "]], LineBox[{2524, 25, 2523}]}}}], { AspectRatio -> NCache[ GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, BaseStyle -> {CellBaseline -> Baseline}, FrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10], ImageSize -> 300., LabelStyle -> { FontFamily -> "Verdana", FontSize -> 10}, Method -> {"AxesInFront" -> True}, PlotRange -> {{-1.4635441689643038`, 1.4635441689643038`}, {-14.514613389033427`, 12.498776012071357`}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}, TicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10]}]}, { StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ "\"order \"", "n", "\" approximation shown with \"", "n", "\" dots\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", GrayLevel[0.5], FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {"computabledata,formatteddata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More terms", "input" -> "Approximations about x = 0 up to order 3_More \ terms"}, {}]}]}], pod4$$ = XMLElement[ "pod", {"title" -> "Series representations", "scanner" -> "Series", "id" -> "SeriesRepresentations", "position" -> "400", "error" -> "false", "numsubpods" -> "4"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] == Sum[(x^k Derivative[k][Gamma][1])/k!, {k, 0, \ Infinity}]/x /; Abs[x] < 1"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "==", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox["x", "k"], " ", RowBox[{ SuperscriptBox["\[CapitalGamma]", TagBox[ RowBox[{"(", "k", ")"}], Derivative], MultilineFunction -> None], "(", "1", ")"}]}], RowBox[{"k", "!"}]]}], "x"]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{ TemplateBox[{"x"}, "Abs"], "<", "1"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] == Sum[x^k Subscript[c, k], {k, 1, Infinity}]^(-1) \ /; Subscript[c, 1] == 1 && Subscript[c, 2] == 1 && Subscript[c, k] == \ (EulerGamma Subscript[c, -1 + k] + Sum[-((-1)^(j + k) Subscript[c, j] \ Zeta[-j + k]), {j, 1, -2 + k}])/(-1 + k)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "==", FractionBox["1", RowBox[{ UnderoverscriptBox[ StyleBox["\[Sum]", ScriptLevel -> 0], RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["x", "k"], " ", SubscriptBox["c", "k"]}]}]]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{"(", TemplateBox[{ RowBox[{ SubscriptBox["c", "1"], "==", "1"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ SubscriptBox["c", "2"], "==", "1"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ SubscriptBox["c", "k"], "==", FractionBox[ RowBox[{ RowBox[{ TagBox["\[DoubledGamma]", Function[{}, EulerGamma]], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "k"}]]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{ RowBox[{"-", "2"}], "+", "k"}]], RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"j", "+", "k"}]]}], " ", SubscriptBox["c", "j"], " ", TemplateBox[{ RowBox[{ RowBox[{"-", "j"}], "+", "k"}]}, "Zeta"]}]}]}], RowBox[{ RowBox[{"-", "1"}], "+", "k"}]]}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] \[Proportional] E^(-x + Sum[(x^(-1 - 2 k) \ BernoulliB[2 + 2 k])/(2 + 6 k + 4 k^2), {k, 0, Infinity}]) Sqrt[2 Pi] \ x^(-1/2 + x) /; Abs[Arg[x]] < Pi && (Abs[x] -> Infinity)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "\[Proportional]", RowBox[{ RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "k"}]}]], " ", TemplateBox[{ RowBox[{"2", "+", RowBox[{"2", " ", "k"}]}]}, "BernoulliB", SyntaxForm -> SubscriptBox]}], RowBox[{"2", "+", RowBox[{"6", " ", "k"}], "+", RowBox[{"4", " ", SuperscriptBox["k", "2"]}]}]]}]}], ")"}], " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SuperscriptBox["x", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "x"}]]}]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{"(", TemplateBox[{ RowBox[{ TemplateBox[{ RowBox[{"arg", "(", "x", ")"}]}, "Abs"], "<", "\[Pi]"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] \[Proportional] -((E^(-x + Sum[(x^(-1 - 2 k) \ BernoulliB[2 + 2 k])/(2 + 6 k + 4 k^2), {k, 0, Infinity}]) Sqrt[Pi/2] \ (-x)^(1/2 + x) Csc[Pi x])/x) /; Arg[x] == Pi && NotElement[x, \ Integers] && (Abs[x] -> Infinity)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "\[Proportional]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "k"}]}]], " ", TemplateBox[{ RowBox[{"2", "+", RowBox[{"2", " ", "k"}]}]}, "BernoulliB", SyntaxForm -> SubscriptBox]}], RowBox[{"2", "+", RowBox[{"6", " ", "k"}], "+", RowBox[{"4", " ", SuperscriptBox["k", "2"]}]}]]}]}], ")"}], " ", SqrtBox[ FractionBox["\[Pi]", "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{ FractionBox["1", "2"], "+", "x"}]], " ", RowBox[{"csc", "(", RowBox[{"\[Pi]", " ", "x"}], ")"}]}], "x"]}]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{"(", TemplateBox[{ RowBox[{ RowBox[{"arg", "(", "x", ")"}], "==", "\[Pi]"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{"x", "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", Function[{}, Integers]]}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More", "input" -> "Series representations_More"}, {}]}], XMLElement["infos", {"count" -> "8"}, { XMLElement["info", {"text" -> "n! is the factorial function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Factorial.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/GammaBetaErf/\ Factorial", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Factorial.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement[ "info", { "text" -> "\[LeftBracketingBar]z\[RightBracketingBar] is the \ absolute value of z"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/Abs.\ html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/ComplexComponents/\ Abs", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/AbsoluteValue.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement[ "info", { "text" -> "\[Zeta](s) is the Riemann zeta function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Zeta.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/\ ZetaFunctionsandPolylogarithms/Zeta", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/RiemannZetaFunction.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {"text" -> "B_n is the n^th Bernoulli number"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ BernoulliB.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/IntegerFunctions/\ BernoulliB", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/BernoulliNumber.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {"text" -> "arg(z) is the complex argument"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/Arg.\ html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/ComplexComponents/\ Arg", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/ComplexArgument.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {"text" -> "csc(x) is the cosecant function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/Csc.\ html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/ElementaryFunctions/\ Csc", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Cosecant.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement[ "info", { "text" -> "\[DoubleStruckCapitalZ] is the set of integers"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Integers.html", "text" -> "Documentation", "title" -> "Documentation"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Z.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://functions.wolfram.com/GammaBetaErf/Gamma/\ 06/ShowAll.html", "text" -> "More information"}, {}]}]}]}], pod5$$ = XMLElement[ "pod", {"title" -> "Series representations", "scanner" -> "Series", "id" -> "SeriesRepresentations", "position" -> "400", "error" -> "false", "numsubpods" -> "4"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] == Sum[(x^k Derivative[k][Gamma][1])/k!, {k, 0, \ Infinity}]/x /; Abs[x] < 1"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "==", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox["x", "k"], " ", RowBox[{ SuperscriptBox["\[CapitalGamma]", TagBox[ RowBox[{"(", "k", ")"}], Derivative], MultilineFunction -> None], "(", "1", ")"}]}], RowBox[{"k", "!"}]]}], "x"]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{ TemplateBox[{"x"}, "Abs"], "<", "1"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] == Sum[x^k Subscript[c, k], {k, 1, Infinity}]^(-1) \ /; Subscript[c, 1] == 1 && Subscript[c, 2] == 1 && Subscript[c, k] == \ (EulerGamma Subscript[c, -1 + k] + Sum[-((-1)^(j + k) Subscript[c, j] \ Zeta[-j + k]), {j, 1, -2 + k}])/(-1 + k)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "==", FractionBox["1", RowBox[{ UnderoverscriptBox[ StyleBox["\[Sum]", ScriptLevel -> 0], RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["x", "k"], " ", SubscriptBox["c", "k"]}]}]]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{"(", TemplateBox[{ RowBox[{ SubscriptBox["c", "1"], "==", "1"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ SubscriptBox["c", "2"], "==", "1"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ SubscriptBox["c", "k"], "==", FractionBox[ RowBox[{ RowBox[{ TagBox["\[DoubledGamma]", Function[{}, EulerGamma]], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "k"}]]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{ RowBox[{"-", "2"}], "+", "k"}]], RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"j", "+", "k"}]]}], " ", SubscriptBox["c", "j"], " ", TemplateBox[{ RowBox[{ RowBox[{"-", "j"}], "+", "k"}]}, "Zeta"]}]}]}], RowBox[{ RowBox[{"-", "1"}], "+", "k"}]]}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] \[Proportional] E^(-x + Sum[(x^(-1 - 2 k) \ BernoulliB[2 + 2 k])/(2 + 6 k + 4 k^2), {k, 0, Infinity}]) Sqrt[2 Pi] \ x^(-1/2 + x) /; Abs[Arg[x]] < Pi && (Abs[x] -> Infinity)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "\[Proportional]", RowBox[{ RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "k"}]}]], " ", TemplateBox[{ RowBox[{"2", "+", RowBox[{"2", " ", "k"}]}]}, "BernoulliB", SyntaxForm -> SubscriptBox]}], RowBox[{"2", "+", RowBox[{"6", " ", "k"}], "+", RowBox[{"4", " ", SuperscriptBox["k", "2"]}]}]]}]}], ")"}], " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SuperscriptBox["x", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "x"}]]}]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{"(", TemplateBox[{ RowBox[{ TemplateBox[{ RowBox[{"arg", "(", "x", ")"}]}, "Abs"], "<", "\[Pi]"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Gamma[x] \[Proportional] -((E^(-x + Sum[(x^(-1 - 2 k) \ BernoulliB[2 + 2 k])/(1 + 3 k + 2 k^2), {k, 0, Infinity}]/2) \ Sqrt[Pi/2] (-x)^(1/2 + x) Csc[Pi x])/x) /; Arg[x] == Pi && \ NotElement[x, Integers] && (Abs[x] -> Infinity)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ TemplateBox[{ TagBox[ RowBox[{ TemplateBox[{"x"}, "Gamma"], "\[Proportional]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "k"}]}]], " ", TemplateBox[{ RowBox[{"2", "+", RowBox[{"2", " ", "k"}]}]}, "BernoulliB", SyntaxForm -> SubscriptBox]}], RowBox[{"1", "+", RowBox[{"3", " ", "k"}], "+", RowBox[{"2", " ", SuperscriptBox["k", "2"]}]}]]}]}]}], ")"}], " ", SqrtBox[ FractionBox["\[Pi]", "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{ FractionBox["1", "2"], "+", "x"}]], " ", RowBox[{"csc", "(", RowBox[{"\[Pi]", " ", "x"}], ")"}]}], "x"]}]}], HoldForm], StyleBox[ TemplateBox[{ InterpretationBox[ Cell[ BoxData[ FormBox[ StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], TraditionalForm]], "Text", FontFamily -> "Times"], Text[ GrayText[" for ", BaseStyle -> "Unit"]]], TagBox[ TemplateBox[{ RowBox[{"(", TemplateBox[{ RowBox[{ RowBox[{"arg", "(", "x", ")"}], "==", "\[Pi]"}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{"x", "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", Function[{}, Integers]]}], StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], RowBox[{ TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None, FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More", "input" -> "Series representations_More"}, {}]}], XMLElement["infos", {"count" -> "8"}, { XMLElement["info", {"text" -> "n! is the factorial function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Factorial.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/GammaBetaErf/\ Factorial", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Factorial.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement[ "info", { "text" -> "\[LeftBracketingBar]z\[RightBracketingBar] is the \ absolute value of z"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/Abs.\ html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/ComplexComponents/\ Abs", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/AbsoluteValue.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement[ "info", { "text" -> "\[Zeta](s) is the Riemann zeta function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Zeta.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/\ ZetaFunctionsandPolylogarithms/Zeta", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/RiemannZetaFunction.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {"text" -> "B_n is the n^th Bernoulli number"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ BernoulliB.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/IntegerFunctions/\ BernoulliB", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/BernoulliNumber.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {"text" -> "arg(z) is the complex argument"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/Arg.\ html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/ComplexComponents/\ Arg", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/ComplexArgument.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {"text" -> "csc(x) is the cosecant function"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/Csc.\ html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/ElementaryFunctions/\ Csc", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Cosecant.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement[ "info", { "text" -> "\[DoubleStruckCapitalZ] is the set of integers"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Integers.html", "text" -> "Documentation", "title" -> "Documentation"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/Z.html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}], XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://functions.wolfram.com/GammaBetaErf/Gamma/\ 06/ShowAll.html", "text" -> "More information"}, {}]}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, aux3$$ = { True, False, {False}}, aux4$$ = {True, False, {False}}, aux5$$ = { True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "4", "datatypes" -> "MathematicalFunctionIdentity,Series", "timedout" -> "Series", "timing" -> "3.703", "parsetiming" -> "0.438", "parsetimedout" -> "false", "recalculate" -> "http://www1.wolframalpha.com/api/v1/recalc.jsp?\ id=MSP019d234i98117736c0000247b240be8c7cf3i&s=15", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 4, 16, 20, 46.0225133`9.415545195595033}, "Line" -> 12, "SessionID" -> 22923680613765177313}, Typeset`showpods$$ = {1, 2, 3, 4, 5}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "SeriesExpansionAtX = 0", "Series expansion at x=0", 1, 1, "Input", "Series[Gamma[x], {x, 0, 1}]"}, Typeset`open$$ = False, Typeset`newq$$ = "series gamma function order 1"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$, pod3$$, pod4$$, pod5$$}, { aux1$$, aux2$$, aux3$$, aux4$$, aux5$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{208., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$, pod4$$, pod5$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

In[3]:=

X Series[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "gamma function", WolframAlphaClient`Private`boxes$$ = RowBox[{"Gamma", "[", "x", "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "MultiClash", "word" -> "", "count" -> "3", "Values" -> {{ "name" -> "Function", "word" -> "the input", "desc" -> "a math function", "input" -> "*MC.%7E-_*Function-"}, { "name" -> "ExamplePage", "word" -> "the input", "desc" -> "a general topic", "input" -> "*MC.%7E-_*ExamplePage-"}, { "name" -> "DistributionNoFluff", "word" -> "gamma", "desc" -> "a probability distribution", "input" -> "*MC.%7E-_*DistributionNoFluff-"}}}}, WolframAlphaClient`Private`assumptions$$ = { "*MC.%7E-_*Function-"}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{142., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), {x, 0, 1}]

Out[3]=

In[4]:=

X \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "integrate sin(10x) e^-x^2 from 0 to T", WolframAlphaClient`Private`boxes$$ = RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"10", "*", "x"}], "]"}], "/", RowBox[{"E", "^", RowBox[{"x", "^", "2"}]}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "T"}], "}"}]}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{257., {11., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[4]=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "derivative x/(x^2-ln sin x)", Typeset`newq$$ = "derivative x/(x^2-ln sin x)", Typeset`chosen$$ = "D[x/(x^2 - Log[Sin[x]]), x]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], WolframAlphaClient`Private`open$\ 1973 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "derivative x/(x^2-ln sin x)", Defer[ D[x/(x^2 - Log[ Sin[x]]), x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 1973 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"Log", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"Log", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"Log", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ ShowStringCharacters -> True, "StandardForm", 12, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"] & ]}, Dynamic[WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], WolframAlphaClient`Private`open$\ 1973 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "derivative x/(x^2-ln sin x)", Defer[ D[x/(x^2 - Log[ Sin[x]]), x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 1973 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"Log", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"Log", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"Log", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}], "]"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ ShowStringCharacters -> True, "StandardForm", 12, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{Deployed -> True}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[WolframAlphaClient`Private`open$1973], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Para obter informação detalhada sobre sua entrada, use sinal de igual duplo.

X y''=-y+0.1sin(5y)-0.2y'