(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    228385,       4264]
NotebookOptionsPosition[    222136,       4131]
NotebookOutlinePosition[    222679,       4150]
CellTagsIndexPosition[    222636,       4147]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "\n\tRadia\[CCedilla]\[ATilde]o de um dipolo el\[EAcute]trico\n\nVamos \
considerar um dipolo el\[EAcute]trico oscilante,\n\n\t",
 Cell[BoxData[
  FormBox[
   OverscriptBox["p", "\[RightVector]"], TraditionalForm]],ExpressionUUID->
  "7ca9d73c-28c8-495a-9dd3-cd17f2df470a"],
 "=",
 Cell[BoxData[
  FormBox[
   SubscriptBox["p", "0"], TraditionalForm]],ExpressionUUID->
  "970ba207-39e9-46bf-ad60-e207053af5fe"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["z", "^"], TraditionalForm]],ExpressionUUID->
  "775f075e-9dfe-4349-b163-08b675f16ad6"],
 " * ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"-", "i\[Omega]t"}]], TraditionalForm]],ExpressionUUID->
  "4442a642-4199-4cce-8060-1c8e4130e17d"],
 "\n\nVamos calcular os campos el\[EAcute]trico e magn\[EAcute]tico devido a \
esse dipolo oscilante.\nVou assumir c=1 aqui, por simplicidade, portanto \
k=w."
}], "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
   3.4135513770318737`*^9, 3.413551392668638*^9}, 3.413551950517434*^9, 
   3.413555007005468*^9, 3.4137077899720697`*^9, {3.4137078452024918`*^9, 
   3.413707847219544*^9}, {3.41378744092455*^9, 3.413787601650874*^9}, {
   3.4137879584892397`*^9, 3.413788008840931*^9}, {3.4159574100774183`*^9, 
   3.4159575387142467`*^9}, {3.415957573551029*^9, 3.415957790793907*^9}, {
   3.41595786488625*^9, 3.415957874327752*^9}, {3.4159579054336*^9, 
   3.415957908342834*^9}, {3.4159582691008577`*^9, 3.4159584710716143`*^9}, {
   3.415958573775972*^9, 3.415958625927724*^9}, {3.415962847839066*^9, 
   3.4159628489166203`*^9}, {3.416064084229467*^9, 3.416064220200905*^9}, {
   3.416064268468804*^9, 3.4160642774968224`*^9}, {3.416064638641811*^9, 
   3.41606464463341*^9}},
 FontSize->16,ExpressionUUID->"c7485c22-1f51-490b-8b0e-a92147c2f70a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"p0", "=", "3.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w", "=", "1.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdip", ":=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "p0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rr", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    SqrtBox[
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}], "+", 
      RowBox[{"z", "^", "2"}]}]], "+", "0.01"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rhat", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "/", 
      RowBox[{"rr", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{"y", "/", 
      RowBox[{"rr", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", 
     RowBox[{"z", "/", 
      RowBox[{"rr", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"np", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Cross", "[", 
    RowBox[{
     RowBox[{"rhat", "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "pdip"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nnp", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Cross", "[", 
    RowBox[{
     RowBox[{"rhat", "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"np", "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dipp", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"3", "*", 
     RowBox[{"rhat", "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], "*", 
     RowBox[{"Dot", "[", 
      RowBox[{
       RowBox[{"rhat", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "pdip"}], "]"}]}], "-",
     "pdip"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.41355132133287*^9, 3.413551339330127*^9}, {
   3.413551425253702*^9, 3.413551557592848*^9}, {3.413551660505444*^9, 
   3.4135516722066793`*^9}, {3.4135517463805532`*^9, 3.413551840311736*^9}, {
   3.413552349400758*^9, 3.413552361856515*^9}, {3.413552463042369*^9, 
   3.4135524700342417`*^9}, 3.4135535245220833`*^9, {3.413787627318602*^9, 
   3.413787669676646*^9}, {3.413787974604908*^9, 3.41378797468507*^9}, {
   3.413788086716713*^9, 3.413788086836882*^9}, {3.415958493971422*^9, 
   3.41595857082104*^9}, {3.415958678460676*^9, 3.415958803803814*^9}, {
   3.415958934296719*^9, 3.4159589714919643`*^9}, {3.4159590503166847`*^9, 
   3.415959055620316*^9}, {3.415965397898313*^9, 3.415965429051167*^9}, {
   3.4160393761807003`*^9, 3.416039378639077*^9}, {3.416064223511458*^9, 
   3.416064253994006*^9}, {3.416064291012602*^9, 3.416064377459661*^9}, 
   3.416064414858479*^9, {3.416064454862958*^9, 3.416064601779194*^9}, {
   3.416065606837579*^9, 3.416065610282978*^9}, {3.4160660047582617`*^9, 
   3.416066004838852*^9}, {3.449324740859535*^9, 3.449324740947936*^9}},
 FontSize->16,
 CellLabel->"In[1]:=",ExpressionUUID->"c68ffe94-3183-47eb-b423-a079c42d0fde"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["O campo magn\[EAcute]tico H \[EAcute] dado por:",
 FontSize->24]], "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
   3.4135513770318737`*^9, 3.413551392668638*^9}, 3.413551950517434*^9, 
   3.413555007005468*^9, 3.4137077899720697`*^9, {3.4137078452024918`*^9, 
   3.413707847219544*^9}, {3.41378744092455*^9, 3.413787601650874*^9}, {
   3.413787685003162*^9, 3.41378771520964*^9}, {3.415959079943502*^9, 
   3.415959096039153*^9}, {3.415959279248597*^9, 3.4159592914479027`*^9}, {
   3.41606442833736*^9, 3.416064434624885*^9}},
 FontSize->16,ExpressionUUID->"c6b4021e-7055-40d8-a096-bc6cc2a8d3b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hdip", "[", 
    RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"4", "*", "\[Pi]"}]], "*", 
    RowBox[{"np", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["I", 
       RowBox[{"w", "*", 
        RowBox[{"rr", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]]}], ")"}], "*", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"I", "*", "w", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"rr", "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-", "t"}], ")"}]}], 
      "]"}], "/", 
     RowBox[{
      RowBox[{"rr", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], "^", "1"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.415959099095565*^9, {3.415959158804295*^9, 3.415959204190527*^9}, {
   3.416064439898223*^9, 3.416064448028557*^9}, {3.416064656460176*^9, 
   3.416064793686142*^9}, {3.4160664302709427`*^9, 3.416066431054438*^9}, {
   3.416069987489912*^9, 3.416069987601077*^9}, {3.416075626194524*^9, 
   3.4160756293124313`*^9}},
 FontSize->16,
 CellLabel->"In[9]:=",ExpressionUUID->"870e13b3-98b7-4d1e-b25d-f7bba648f1ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["O campo el\[EAcute]trico \[EAcute] dado por:",
 FontSize->24]], "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
   3.4135513770318737`*^9, 3.413551392668638*^9}, 3.413551950517434*^9, 
   3.413555007005468*^9, 3.4137077899720697`*^9, {3.4137078452024918`*^9, 
   3.413707847219544*^9}, {3.41378744092455*^9, 3.413787601650874*^9}, {
   3.413787685003162*^9, 3.41378771520964*^9}, {3.415959079943502*^9, 
   3.415959096039153*^9}, {3.415959279248597*^9, 3.4159592914479027`*^9}, {
   3.41606442833736*^9, 3.416064434624885*^9}, {3.416064837681219*^9, 
   3.416064841137059*^9}},
 FontSize->16,ExpressionUUID->"e7e8cebe-68de-42e2-bd0d-ba5b2db967ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Edip", "[", 
    RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"4", "*", "\[Pi]"}]], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"w", "^", "2"}]}], "*", 
       RowBox[{"nnp", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dipp", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["I", 
           RowBox[{"w", "*", 
            RowBox[{"rr", "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]]}], ")"}], "/", 
        RowBox[{"rr", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}]}], ")"}], "*", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"I", "*", "w", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"rr", "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-", "t"}], ")"}]}], 
      "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"rr", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], ")"}]}]}]}], ";"}]], "Input",\

 CellChangeTimes->{
  3.415959099095565*^9, {3.415959158804295*^9, 3.415959204190527*^9}, {
   3.416064439898223*^9, 3.416064448028557*^9}, {3.416064656460176*^9, 
   3.416064793686142*^9}, {3.4160648454305487`*^9, 3.4160649453450823`*^9}, {
   3.416066433848114*^9, 3.416066433943439*^9}, {3.416069989760687*^9, 
   3.4160699898639*^9}, {3.41607563425165*^9, 3.416075638762473*^9}, {
   3.416075910507543*^9, 3.416075917802023*^9}},
 FontSize->16,
 CellLabel->"In[10]:=",ExpressionUUID->"2ecbbc1e-3c4a-4ec2-98af-d9f0b4dc9416"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Vamos primeiro representar o campo el\[EAcute]trico na dire\[CCedilla]\
\[ATilde]o z (fatia em y=0):\
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788341289393*^9, 3.413788466105296*^9}, {
  3.415959658388987*^9, 3.415959658692807*^9}, {3.4159597490606737`*^9, 
  3.415959827727231*^9}, {3.415959872229394*^9, 3.4159599109033527`*^9}, {
  3.41596014290051*^9, 3.4159601457959223`*^9}, {3.415961045426334*^9, 
  3.415961050418*^9}, {3.415961233577623*^9, 3.415961274414529*^9}, {
  3.4160650035864058`*^9, 3.416065018481042*^9}, {3.41606509542562*^9, 
  3.416065104897314*^9}, {3.416065301988268*^9, 3.416065331865801*^9}},
 FontSize->16,ExpressionUUID->"74bc4e0a-8d73-4bd1-8bd4-8df1ed4871ab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"Edip", "[", 
        RowBox[{"t", ",", "x", ",", "0.0", ",", "z"}], "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "10"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.413554071345544*^9, 3.413554178760119*^9}, {
   3.413554299849111*^9, 3.413554320913115*^9}, {3.413554353280755*^9, 
   3.4135547250692177`*^9}, {3.413787748194305*^9, 3.413787756225307*^9}, {
   3.4137881050887938`*^9, 3.413788268809896*^9}, {3.415959340010005*^9, 
   3.415959352375834*^9}, {3.415959615756359*^9, 3.415959732446154*^9}, {
   3.415959853606848*^9, 3.41595986739787*^9}, {3.415959919150112*^9, 
   3.415960111629096*^9}, {3.415960217478366*^9, 3.415960300675892*^9}, {
   3.4159604155107403`*^9, 3.4159604502860394`*^9}, {3.4159607261590033`*^9, 
   3.4159607559877768`*^9}, {3.415960804135453*^9, 3.415960832703389*^9}, {
   3.4159610624792557`*^9, 3.415961123732719*^9}, {3.415961362745569*^9, 
   3.415961407146299*^9}, {3.4159614685434923`*^9, 3.415961483281322*^9}, {
   3.415961565517775*^9, 3.415961609259912*^9}, {3.415961669775199*^9, 
   3.4159616698404007`*^9}, {3.415973130236438*^9, 3.4159731314755077`*^9}, {
   3.415973264249558*^9, 3.4159732951273623`*^9}, {3.415985087697888*^9, 
   3.4159850916061*^9}, {3.415985138384389*^9, 3.41598513847138*^9}, {
   3.416039478744482*^9, 3.4160394876277437`*^9}, {3.416039559192918*^9, 
   3.416039571904599*^9}, {3.416065060581113*^9, 3.416065092491797*^9}, {
   3.4160651256551847`*^9, 3.416065125801612*^9}, {3.416065212917012*^9, 
   3.416065263216977*^9}, 3.416066051671071*^9, {3.4160660863191433`*^9, 
   3.41606611360466*^9}, {3.41607564282261*^9, 3.416075647280539*^9}, {
   3.416125846030642*^9, 3.416125848405225*^9}},
 FontSize->16,
 CellLabel->"In[11]:=",
 CellID->90584160,ExpressionUUID->"b92295ba-e98e-4ac9-aa45-8bbfc1d4f461"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 4.4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {173., 180.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$5690$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$5690$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ContourPlot[
        Re[
         Part[
          $CellContext`Edip[$CellContext`t$$, $CellContext`x, 
           0., $CellContext`z], 3]], {$CellContext`x, -1.5, 
         1.5}, {$CellContext`z, -1.5, 1.5}, Mesh -> False, PlotPoints -> 10], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {236., 243.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4159613984923983`*^9, 3.415961408574548*^9}, {
   3.4159614720439*^9, 3.415961483853484*^9}, {3.415961573302528*^9, 
   3.415961741021541*^9}, 3.415962288165535*^9, 3.4159651355683403`*^9, 
   3.415965525486496*^9, {3.415973131800459*^9, 3.415973186336821*^9}, {
   3.415973257321369*^9, 3.4159732978899508`*^9}, {3.41598504609396*^9, 
   3.415985196738929*^9}, {3.41603950106174*^9, 3.4160395251198187`*^9}, {
   3.416039572336463*^9, 3.416039625222302*^9}, {3.416065106643937*^9, 
   3.416065137494109*^9}, {3.416065214366768*^9, 3.416065269556561*^9}, 
   3.416065623665526*^9, {3.41606603620574*^9, 3.416066130251775*^9}, 
   3.416066447786614*^9, 3.416070020751377*^9, 3.416070243559496*^9, 
   3.4160756482924356`*^9, 3.416075941214658*^9, 3.416119676155087*^9, 
   3.416125629446183*^9, {3.416125823626953*^9, 3.416125962930896*^9}, {
   3.416126009181345*^9, 3.416126039422049*^9}, {3.416126073886458*^9, 
   3.41612608690292*^9}, 3.416129510642593*^9, {3.416129549870247*^9, 
   3.416129552294291*^9}, {3.4161306050759287`*^9, 3.416130640117879*^9}, {
   3.449323841993341*^9, 3.449323907237134*^9}, 3.449324761023093*^9, {
   3.831024132955508*^9, 3.831024137969262*^9}},
 FontSize->16,
 CellLabel->"Out[11]=",ExpressionUUID->"7508d38d-ee7d-4f66-a0f4-9bc179823bba"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Agora o campo el\[EAcute]trico na dire\[CCedilla]\[ATilde]o x (fatia \
tamb\[EAcute]m em y=0):", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788341289393*^9, 3.413788466105296*^9}, {
  3.415959658388987*^9, 3.415959658692807*^9}, {3.4159597490606737`*^9, 
  3.415959827727231*^9}, {3.415959872229394*^9, 3.4159599109033527`*^9}, {
  3.41596014290051*^9, 3.4159601457959223`*^9}, {3.415961045426334*^9, 
  3.415961050418*^9}, {3.415961233577623*^9, 3.415961274414529*^9}, {
  3.4160650035864058`*^9, 3.416065018481042*^9}, {3.41606509542562*^9, 
  3.416065104897314*^9}, {3.416065301988268*^9, 3.416065342073475*^9}},
 FontSize->16,ExpressionUUID->"a9bcfa25-a474-4e4f-b8fb-680cc6846581"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"Edip", "[", 
        RowBox[{"t", ",", "x", ",", "0.0", ",", "z"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.413554071345544*^9, 3.413554178760119*^9}, {
   3.413554299849111*^9, 3.413554320913115*^9}, {3.413554353280755*^9, 
   3.4135547250692177`*^9}, {3.413787748194305*^9, 3.413787756225307*^9}, {
   3.4137881050887938`*^9, 3.413788268809896*^9}, {3.415959340010005*^9, 
   3.415959352375834*^9}, {3.415959615756359*^9, 3.415959732446154*^9}, {
   3.415959853606848*^9, 3.41595986739787*^9}, {3.415959919150112*^9, 
   3.415960111629096*^9}, {3.415960217478366*^9, 3.415960300675892*^9}, {
   3.4159604155107403`*^9, 3.4159604502860394`*^9}, {3.4159607261590033`*^9, 
   3.4159607559877768`*^9}, {3.415960804135453*^9, 3.415960832703389*^9}, {
   3.4159610624792557`*^9, 3.415961123732719*^9}, {3.415961362745569*^9, 
   3.415961407146299*^9}, {3.4159614685434923`*^9, 3.415961483281322*^9}, {
   3.415961565517775*^9, 3.415961609259912*^9}, {3.415961669775199*^9, 
   3.4159616698404007`*^9}, {3.415973130236438*^9, 3.4159731314755077`*^9}, {
   3.415973264249558*^9, 3.4159732951273623`*^9}, {3.415985087697888*^9, 
   3.4159850916061*^9}, {3.415985138384389*^9, 3.41598513847138*^9}, {
   3.416039478744482*^9, 3.4160394876277437`*^9}, {3.416039559192918*^9, 
   3.416039571904599*^9}, {3.416065060581113*^9, 3.416065092491797*^9}, {
   3.4160651256551847`*^9, 3.416065125801612*^9}, {3.416065212917012*^9, 
   3.416065263216977*^9}, {3.416065346021183*^9, 3.41606535744451*^9}, {
   3.4160756529927*^9, 3.416075656912373*^9}, {3.4161263349927673`*^9, 
   3.416126353269404*^9}, {3.4493239472776623`*^9, 3.449323969755333*^9}, 
   3.449324006294896*^9},
 FontSize->16,
 CellLabel->"In[12]:=",
 CellID->1054151847,ExpressionUUID->"aca61a34-a67e-452d-ab20-7adb15ab6cdc"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1.4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, Pi}}, Typeset`size$$ = {360., {173., 180.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$14344$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$14344$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ContourPlot[
        Re[
         Part[
          $CellContext`Edip[$CellContext`t$$, $CellContext`x, 
           0., $CellContext`z], 1]], {$CellContext`x, -1.5, 
         1.5}, {$CellContext`z, -1.5, 1.5}, PlotPoints -> 20, Mesh -> False], 
      "Specifications" :> {{$CellContext`t$$, 0, Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {236., 243.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.416065347597351*^9, 3.4160653591307287`*^9}, 
   3.416065639314724*^9, 3.416066455126758*^9, 3.416070034224077*^9, 
   3.416070244272814*^9, 3.416075657513364*^9, 3.4160759524058*^9, 
   3.4161196820087633`*^9, 3.416125630596448*^9, {3.416126117702499*^9, 
   3.416126124398493*^9}, 3.416126190349906*^9, {3.416126315450487*^9, 
   3.4161263942401333`*^9}, 3.4161295106979437`*^9, {3.416129557006317*^9, 
   3.416129558686273*^9}, {3.416130697953187*^9, 3.416130745912496*^9}, {
   3.4493239228885927`*^9, 3.449324028197363*^9}, {3.449324060659361*^9, 
   3.449324099705699*^9}, 3.8310241887809553`*^9, 3.8312014570626383`*^9},
 FontSize->16,
 CellLabel->"Out[12]=",ExpressionUUID->"bf27ff93-db9c-4f04-9bcb-831797fc218a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Agora o campo magn\[EAcute]tico na dire\[CCedilla]\[ATilde]o y (fatia \
tamb\[EAcute]m em y=0):", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788341289393*^9, 3.413788466105296*^9}, {
  3.415959658388987*^9, 3.415959658692807*^9}, {3.4159597490606737`*^9, 
  3.415959827727231*^9}, {3.415959872229394*^9, 3.4159599109033527`*^9}, {
  3.41596014290051*^9, 3.4159601457959223`*^9}, {3.415961045426334*^9, 
  3.415961050418*^9}, {3.415961233577623*^9, 3.415961274414529*^9}, {
  3.4160650035864058`*^9, 3.416065018481042*^9}, {3.41606509542562*^9, 
  3.416065104897314*^9}, {3.416065301988268*^9, 3.416065342073475*^9}, {
  3.416066179361896*^9, 3.4160662080894938`*^9}},
 FontSize->16,ExpressionUUID->"53301ec8-baf3-48bf-8425-b7126360d6e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"Hdip", "[", 
        RowBox[{"t", ",", "x", ",", "0.0", ",", "z"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.413554071345544*^9, 3.413554178760119*^9}, {
   3.413554299849111*^9, 3.413554320913115*^9}, {3.413554353280755*^9, 
   3.4135547250692177`*^9}, {3.413787748194305*^9, 3.413787756225307*^9}, {
   3.4137881050887938`*^9, 3.413788268809896*^9}, {3.415959340010005*^9, 
   3.415959352375834*^9}, {3.415959615756359*^9, 3.415959732446154*^9}, {
   3.415959853606848*^9, 3.41595986739787*^9}, {3.415959919150112*^9, 
   3.415960111629096*^9}, {3.415960217478366*^9, 3.415960300675892*^9}, {
   3.4159604155107403`*^9, 3.4159604502860394`*^9}, {3.4159607261590033`*^9, 
   3.4159607559877768`*^9}, {3.415960804135453*^9, 3.415960832703389*^9}, {
   3.4159610624792557`*^9, 3.415961123732719*^9}, {3.415961362745569*^9, 
   3.415961407146299*^9}, {3.4159614685434923`*^9, 3.415961483281322*^9}, {
   3.415961565517775*^9, 3.415961609259912*^9}, {3.415961669775199*^9, 
   3.4159616698404007`*^9}, {3.415973130236438*^9, 3.4159731314755077`*^9}, {
   3.415973264249558*^9, 3.4159732951273623`*^9}, {3.415985087697888*^9, 
   3.4159850916061*^9}, {3.415985138384389*^9, 3.41598513847138*^9}, {
   3.416039478744482*^9, 3.4160394876277437`*^9}, {3.416039559192918*^9, 
   3.416039571904599*^9}, {3.416065060581113*^9, 3.416065092491797*^9}, {
   3.4160651256551847`*^9, 3.416065125801612*^9}, {3.416065212917012*^9, 
   3.416065263216977*^9}, {3.416065346021183*^9, 3.41606535744451*^9}, {
   3.416066184149474*^9, 3.4160662114608793`*^9}, {3.4160756639108133`*^9, 
   3.416075667784374*^9}, {3.416126409753442*^9, 3.41612641567898*^9}, 
   3.449324117901227*^9},
 FontSize->16,
 CellID->786994525,ExpressionUUID->"089f741e-95bf-493f-9693-e8315656bfb4"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1.2566370614359172`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, Pi}}, Typeset`size$$ = {360., {173., 180.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$280408$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$280408$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ContourPlot[
        Re[
         Part[
          $CellContext`Hdip[$CellContext`t$$, $CellContext`x, 
           0., $CellContext`z], 2]], {$CellContext`x, -1.5, 
         1.5}, {$CellContext`z, -1.5, 1.5}, PlotPoints -> 20, Mesh -> False], 
      "Specifications" :> {{$CellContext`t$$, 0, Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {222., 229.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.416066185517748*^9, 3.4160662390434227`*^9}, {
   3.41606646510214*^9, 3.416066483920989*^9}, {3.416070050116514*^9, 
   3.416070057541505*^9}, 3.416070244646904*^9, 3.41607566835695*^9, 
   3.416075959810014*^9, 3.416119687549684*^9, 3.416125630837469*^9, {
   3.416126416768156*^9, 3.4161264388659573`*^9}, 3.416129511214374*^9, {
   3.4161295629879103`*^9, 3.416129564251453*^9}, {3.416130785733693*^9, 
   3.416130819821323*^9}, {3.449324113912299*^9, 3.449324148147793*^9}},
 FontSize->16,ExpressionUUID->"5a0c8417-44af-4581-8e50-51f7fec2c03b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VectorFieldPlots`\>\"", "]"}]], "Input", \
"Deemphasis",
 CellChangeTimes->{{3.41596191561549*^9, 3.415961916959684*^9}},
 FontSize->16,
 CellLabel->"In[13]:=",
 CellID->62491204,ExpressionUUID->"cac834d9-6986-40fc-9fbf-bb8b854411c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Agora, vamos representar os campos vetorialmente.
Primeiro, a zona pr\[OAcute]xima para o campo el\[EAcute]trico.
Na fatia y=0.1:\
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066896913794*^9, 3.416066924753615*^9}, {3.416070126492412*^9, 
  3.4160701265938663`*^9}},
 FontSize->16,ExpressionUUID->"14843383-d6b7-40fa-9864-4f4d26cd7bab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"VectorFieldPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "0.1", ",", "z"}], "]"}], "^", "2"}], "*", 
      RowBox[{"Re", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Edip", "[", 
           RowBox[{"t", ",", "x", ",", "0.1", ",", "z"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Edip", "[", 
           RowBox[{"t", ",", "x", ",", "0.1", ",", "z"}], "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", " ", 
       RowBox[{"-", "0.5"}], ",", " ", "0.5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdy1kow3EAB/D1bzlKbSJ3boWx5WFMzJmJUI72gBcLpTDHf+54cOSmSOYe
VpqFmohIya1oQo6iKJqQpD0I+X1/D98+ffv29VIoMwoYDofjTQIDHdP8SytN
sU+fOdSGIR8RvKzXUjf33KZh9VLrLMzraJyDrybuPNT16RZhXcP+Lmwv7D2E
qkW1EbKjd4ySqOiJ5EFWMWoHPbtu7SGfn+IMx6fOqcWqMwEMndQFw2/fVAn9
X/aHQ3miSxbkqMW5MCbTtpDuMilVHpZfDlfjNisg97GJV0a0KNDYQmZt2AG2
HEQ4Qb6+0x0arwOktB81dtbCaMEAFPKv1HBGdDcHWcuBBej7sUtdYqTL0F5c
tAVlx6zbIDHdItkPBuq4IvimXw+B2ZpfwxQxno1dgR/VSRtw5Dx9D9aa2s5g
kNDhAm43n9zANKPrLSytcr+HAq3hAZZtWT/DfOHFC7Qye5ihPvuHOnhqlmqI
B8bvBHhlI/mbJpbIhqnKyRpmhvj1HmUFVya6DVqizdjOGvwHmCITqg==
  "],
 FontSize->16,
 CellLabel->"In[149]:=",
 CellID->1830028223,ExpressionUUID->"bd5e6880-41f4-4b8f-b993-e0b716399df7"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 3.07476327112847, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {173., 180.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$39695$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$39695$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      VectorFieldPlots`VectorFieldPlot[$CellContext`rr[$CellContext`x, 
           0.1, $CellContext`z]^2 Re[{
           Part[
            $CellContext`Edip[$CellContext`t$$, $CellContext`x, 
             0.1, $CellContext`z], 1], 
           Part[
            $CellContext`Edip[$CellContext`t$$, $CellContext`x, 
             0.1, $CellContext`z], 3]}], {$CellContext`x, -0.5, 
         0.5}, {$CellContext`z, -0.5, 0.5}, Frame -> True, 
        PlotRange -> {{-0.6, 0.6}, {-0.6, 0.6}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {236., 243.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.415963730986917*^9, 3.4159638664200277`*^9}, 
   3.415964015322381*^9, {3.415964065157721*^9, 3.415964165375063*^9}, 
   3.41596422191113*^9, 3.415964321790015*^9, {3.415964355826425*^9, 
   3.4159643864438066`*^9}, {3.415964467249021*^9, 3.415964591303714*^9}, 
   3.4159646233620863`*^9, {3.4159655508876133`*^9, 3.415965596377079*^9}, {
   3.415965824122723*^9, 3.415965838522584*^9}, {3.4159658818665743`*^9, 
   3.415965954729849*^9}, {3.415965985106789*^9, 3.415966199257411*^9}, 
   3.4159662342760067`*^9, 3.4159852195546*^9, {3.415985283173944*^9, 
   3.415985332846167*^9}, {3.415985373363853*^9, 3.415985667461392*^9}, 
   3.415985697483027*^9, {3.41603885622009*^9, 3.416038900539497*^9}, {
   3.416038995817049*^9, 3.416039021983509*^9}, 3.416039054346229*^9, {
   3.416039688001637*^9, 3.416039750454226*^9}, 3.416039828279583*^9, {
   3.4160654607960167`*^9, 3.416065596823586*^9}, {3.416065651428351*^9, 
   3.416065912229992*^9}, {3.416065977315371*^9, 3.4160660003289213`*^9}, 
   3.416066305058403*^9, {3.416066341107623*^9, 3.4160663438201313`*^9}, {
   3.416066490932438*^9, 3.416066533820457*^9}, {3.416066580573497*^9, 
   3.416066615652113*^9}, 3.416066649701586*^9, {3.4160700733441772`*^9, 
   3.416070161797917*^9}, {3.416070210931876*^9, 3.416070245112179*^9}, {
   3.416070291708753*^9, 3.416070296396613*^9}, 3.416070347903213*^9, {
   3.416075682712358*^9, 3.416075758776449*^9}, 3.416075966761718*^9, 
   3.416119694495422*^9, 3.41612563122542*^9, {3.416126454242713*^9, 
   3.416126492922092*^9}, 3.41612653721381*^9, 3.416129511722822*^9, {
   3.416129573428568*^9, 3.416129575220668*^9}, 3.416130918356432*^9, 
   3.416130981107368*^9, {3.449324160187854*^9, 3.449324169742282*^9}, 
   3.4493242026129713`*^9, {3.831024207583112*^9, 3.831024210179247*^9}, {
   3.831201556333256*^9, 3.8312015582223186`*^9}},
 FontSize->16,
 CellLabel->
  "Out[149]=",ExpressionUUID->"b9604e54-6bd6-4200-b2b9-d65727cf57e5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Agora o campo magn\[EAcute]tico. 
Desta vez, vou tomar o plano x-y, a fatia z=0.2.\
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.416070355884494*^9, 
  3.416070382538151*^9}, {3.4160704369703627`*^9, 3.416070437066082*^9}},
 FontSize->16,ExpressionUUID->"1b1c641f-2316-43a0-8ab0-34cac1e9b36b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"VectorFieldPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "y", ",", "0.2"}], "]"}], "^", "1"}], "*", 
      RowBox[{"Re", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Hdip", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "0.2"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Hdip", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "0.2"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", " ", 
       RowBox[{"-", "0.5"}], ",", " ", "0.5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzGkow3EcBvA1Myllch8NscLYTLliuXIf5SxHYo0SOf/IES8cOXIUYSSG
SX9iRUSOcl/JNHIURdFExDtR/s/vxbdPT0/P11FWkpTHZrFYAuagm2WCS3GF
LuT5K5NYP+Akhld1KuLGvt0ErFa3TMHc9oYZ+KbjzEK6h16AtfUHe7Atv/sI
Vi4oNJAauWeXMMq6Ao0hJRsxhQ6dd2aQx4uzhqPjWmJR5YUQ+ozRHvDHOd6P
7K96/WFapE0KZCm8s2Bwskk+6SOkxDRfeRlcCd0oh5ynRuNSRm6e0gSyV4cs
YPNhgBXkzXXwoebGVUrycUNHDQwS9kER71oBJ8X3M5Ay6JuHzp97RDVbugTN
vAu2YMQJZdfPmMiNEUA3miOG73NrEpih/FscZwyjQpbhZ3X0OhzWJu7DGl3r
BXQXWVzC7aazW5igsb2DxVX8ByhULT7C0i3DFygXXb6Sf0Y339Ar/IkoadNz
VDJWafWJ0/zBWDjxHp0Cf1cM0iH30ZBI9w5kw121vRxGSagy+HP+QTSfFfEn
GQdTPQUw5zR7U8Wo9Svcgf/4yifo
  "],
 FontSize->16,
 CellLabel->"In[150]:=",
 CellID->390004779,ExpressionUUID->"5d2eb2a6-7b4c-4ff8-94d0-1a4aac460700"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0.7228204127091968, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {173., 180.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$41029$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$41029$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      VectorFieldPlots`VectorFieldPlot[$CellContext`rr[$CellContext`x, \
$CellContext`y, 0.2]^1 Re[{
           Part[
            $CellContext`Hdip[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.2], 1], 
           Part[
            $CellContext`Hdip[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.2], 2]}], {$CellContext`x, -0.5, 
         0.5}, {$CellContext`y, -0.5, 0.5}, Frame -> True, 
        PlotRange -> {{-0.6, 0.6}, {-0.6, 0.6}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {236., 243.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.416066315301601*^9, 3.416066332957039*^9}, {
   3.4160663676364613`*^9, 3.4160663693884687`*^9}, 3.4160664081110363`*^9, {
   3.416066667567609*^9, 3.41606676113033*^9}, {3.416066850667938*^9, 
   3.416066887064501*^9}, {3.416066960222864*^9, 3.4160669936651297`*^9}, 
   3.416070245808153*^9, {3.416070389935017*^9, 3.4160704045521917`*^9}, {
   3.4160704418478127`*^9, 3.416070487179332*^9}, {3.4160705464346323`*^9, 
   3.4160705599313917`*^9}, 3.4160705969144773`*^9, {3.416075766510188*^9, 
   3.416075821327038*^9}, 3.416075974587103*^9, 3.416119697718401*^9, 
   3.416125631839403*^9, {3.4161265483123627`*^9, 3.41612657512578*^9}, 
   3.4161295122765293`*^9, {3.416129580221385*^9, 3.416129582341353*^9}, 
   3.416131023461512*^9, 3.416131061762294*^9, {3.416132662328025*^9, 
   3.416132667024131*^9}, 3.416132698460311*^9, {3.449324207853458*^9, 
   3.449324240574736*^9}, 3.831024253789702*^9, {3.831201656604517*^9, 
   3.831201658265033*^9}},
 FontSize->16,
 CellLabel->
  "Out[150]=",ExpressionUUID->"1656dcae-e9be-4e76-b107-9e4eba08bf37"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Agora, vamos representar os campos na zona distante.
Por motivos de visualiza\[CCedilla]\[ATilde]o, vou plotar r^2*E.
Na fatia y=0.5, e tomando o quadrante z>0 e x>0, temos:\
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066896913794*^9, 3.416066924753615*^9}, {3.416067046606689*^9, 
  3.416067104858653*^9}, {3.4160671746361647`*^9, 3.4160671813853188`*^9}, {
  3.416070662437076*^9, 3.416070677977747*^9}, {3.41607646896327*^9, 
  3.416076469074747*^9}},
 FontSize->16,ExpressionUUID->"5259a7b1-a5c5-498c-93df-f4e43d493853"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"VectorFieldPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"rr", "[", 
       RowBox[{"x", ",", "0.5", ",", "z"}], "]"}], "*", 
      RowBox[{"Re", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Edip", "[", 
           RowBox[{"t", ",", "x", ",", "0.5", ",", "z"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Edip", "[", 
           RowBox[{"t", ",", "x", ",", "0.5", ",", "z"}], "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", " ", 
       RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "10.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdy11Ik2EABeAxxrQrJ5tmbpkzi3JrI2Km2EeZaCvWQotdaEQONwhlTvts
aqLStPwhFbaitaJNN5E5VDCsRiIETi0oNraRP6hkGBML6WKBFPSe9+LwcDgc
qb6+wsDlcDjHSWDeQe0J09148fbvKmrb06NKGLvvpc4GJcPQMtXtgdW97WNw
N84bh75B3yRsbVuYhz3GgSXYNOkIQda5zq0n6h+fS4Gs3imE2f2rIigQaA7B
l64Ita4pLIP5r3yn4H7u1QL6jw0VQt2lzBuQ41DdhBeupxrpXsZQdWdrGuCb
i7ONkLfVkWIm8g3uVMh99ywddi0WZUCBvy8LhpZPMrR/bO9rgedlNqgQfHXA
EeX6GGSTbBMwd2+eOsVlXkOR6s4cLPvESuzEcv6VYzDPx1PCn/7AaVjp/jft
IpawxTNwz3L5PXweKQ/ClvjDMJQr0qPwg/XzCtSGxKvQdC9rA8q809+gee7A
D1ijiO7A5MSRBPRX/qXavyQYN3ExtF8KK36d6YDDHnUnjD6ydkG1cLkHyh9o
BmDr7cM2uFkbKBohZvzRMdCSuBb0EifGR6kvnnSnjRI9b2+J4XejSQrXmqU5
8D+GuTRP
  "],
 FontSize->16,
 CellLabel->"In[151]:=",
 CellID->665199802,ExpressionUUID->"70991898-1e66-4738-bbe7-fcaab9428cbf"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0.21659222188217422`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {194., 201.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$42738$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$42738$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      VectorFieldPlots`VectorFieldPlot[$CellContext`rr[$CellContext`x, 
          0.5, $CellContext`z] Re[{
           Part[
            $CellContext`Edip[$CellContext`t$$, $CellContext`x, 
             0.5, $CellContext`z], 1], 
           Part[
            $CellContext`Edip[$CellContext`t$$, $CellContext`x, 
             0.5, $CellContext`z], 3]}], {$CellContext`x, 1, 
         10}, {$CellContext`z, -5, 5}, Frame -> True, 
        PlotRange -> {{0.5, 10.5}, {-5.5, 5.5}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {257., 264.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.415963730986917*^9, 3.4159638664200277`*^9}, 
   3.415964015322381*^9, {3.415964065157721*^9, 3.415964165375063*^9}, 
   3.41596422191113*^9, 3.415964321790015*^9, {3.415964355826425*^9, 
   3.4159643864438066`*^9}, {3.415964467249021*^9, 3.415964591303714*^9}, 
   3.4159646233620863`*^9, {3.4159655508876133`*^9, 3.415965596377079*^9}, {
   3.415965824122723*^9, 3.415965838522584*^9}, {3.4159658818665743`*^9, 
   3.415965954729849*^9}, {3.415965985106789*^9, 3.415966199257411*^9}, 
   3.4159662342760067`*^9, 3.4159852195546*^9, {3.415985283173944*^9, 
   3.415985332846167*^9}, {3.415985373363853*^9, 3.415985667461392*^9}, 
   3.415985697483027*^9, {3.41603885622009*^9, 3.416038900539497*^9}, {
   3.416038995817049*^9, 3.416039021983509*^9}, 3.416039054346229*^9, {
   3.416039688001637*^9, 3.416039750454226*^9}, 3.416039828279583*^9, {
   3.4160654607960167`*^9, 3.416065596823586*^9}, {3.416065651428351*^9, 
   3.416065912229992*^9}, {3.416065977315371*^9, 3.4160660003289213`*^9}, 
   3.416066305058403*^9, {3.416066341107623*^9, 3.4160663438201313`*^9}, {
   3.416066490932438*^9, 3.416066533820457*^9}, {3.416066580573497*^9, 
   3.416066615652113*^9}, 3.416066649701586*^9, {3.416067123351549*^9, 
   3.4160671662434196`*^9}, {3.4160672102627697`*^9, 3.4160672492340393`*^9}, 
   3.416070246328039*^9, {3.416070630675495*^9, 3.416070658535657*^9}, {
   3.416075115197907*^9, 3.416075169916498*^9}, 3.4160758299235687`*^9, 
   3.416075981936912*^9, {3.416076445781858*^9, 3.4160764561079493`*^9}, {
   3.416076490025805*^9, 3.416076516966412*^9}, {3.416076552631562*^9, 
   3.416076575876142*^9}, 3.416076605879876*^9, 3.416119701373096*^9, 
   3.416125632247802*^9, {3.416126586482503*^9, 3.4161265902985992`*^9}, 
   3.4161266203256063`*^9, 3.416129512673381*^9, {3.416129589732667*^9, 
   3.41612959168477*^9}, 3.4161311159504547`*^9, {3.416131162002604*^9, 
   3.416131167422291*^9}, 3.416131207699237*^9, {3.4493242474823313`*^9, 
   3.449324255275135*^9}, {3.449324287022016*^9, 3.449324319652628*^9}, {
   3.831024269399411*^9, 3.8310242735465107`*^9}, {3.831201769360341*^9, 
   3.8312017778751802`*^9}},
 FontSize->16,
 CellLabel->
  "Out[151]=",ExpressionUUID->"cf5c29ed-cf92-4a73-ba3b-ca1c5c76bac2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Agora o campo magn\[EAcute]tico. Vou tomar a fatia z=0.5 constante e \
representar o campo nas dire\[CCedilla]\[OTilde]es x-y.\
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.416076756267379*^9, 
  3.416076775378697*^9}},
 FontSize->16,ExpressionUUID->"d8252727-a4a9-429e-a5a9-7f12e8ecad00"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"VectorFieldPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "y", ",", "0.5"}], "]"}], "^", "1"}], "*", 
      RowBox[{"Re", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Hdip", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "0.5"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Hdip", "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "0.5"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", " ", 
       RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "10.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzH0o43EcB/A1M6nrTIRDQ8jD2JryFHPH5fmhHMnDUdYoJeb8TDvij3uI
6e4UxjzEMOlHrNydhzzUZR5LphEWiot2kaf/RO73/v7x6dW7d++Pl7TyXQmb
xWL5MwcDnTP8K6otsed3BcR6tbcI7tXpiAsr7oOwVv9lGBY3N4zCSwtnDNI/
6En4sX7VAJtKv6/DmkmNEVI9x+xKRum3aDtISXscoGeL2RHyeGmvYN+AiVhe
syOAYf10MHzwSY8g+73WSJiT6JoNWZrQ9/BNln0p6RMkxJxwWRWcjlv4ADln
jXZyRm6J1h6yZ7uc4Oe1KBfIG1fxofEgQELyRoNKCV8L2qCQt6+BQ6LjUUjZ
tE1AnxsDUc+W/ISOoWVLMGGTcm9nzOSm+MJAmiOCV+NzYpivfZoaYHxLxf6G
N7XJ87DblLkClZavOzBI6LQL/3zaOoQZRjczrFDwT6BAN3UK5Uu2F1Am3P1H
/r04uIch8WdEcZOVl5ZRYbImjvA7U+HgVXI2fJy2yYPcU1si3aougst6DxlM
ElNV8GH7mtghf9bARX5hL1Sr3BQ6xtxfQUr4ct68Cv/eJa5B6ZEhYoRxwu82
EqaEWyRwOWsmBv4Hhs9DvQ==
  "],
 FontSize->16,
 CellLabel->"In[152]:=",
 CellID->213205932,ExpressionUUID->"09320a1e-dd5c-444b-9cfd-b6d7dcaf624c"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 2.0273403724656123`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {194., 201.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$44180$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$44180$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      VectorFieldPlots`VectorFieldPlot[$CellContext`rr[$CellContext`x, \
$CellContext`y, 0.5]^1 Re[{
           Part[
            $CellContext`Hdip[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.5], 1], 
           Part[
            $CellContext`Hdip[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.5], 2]}], {$CellContext`x, 1, 10}, {$CellContext`y, -5, 5}, 
        Frame -> True, PlotRange -> {{0.5, 10.5}, {-5.5, 5.5}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {257., 264.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.416066315301601*^9, 3.416066332957039*^9}, {
   3.4160663676364613`*^9, 3.4160663693884687`*^9}, 3.4160664081110363`*^9, {
   3.416066667567609*^9, 3.41606676113033*^9}, {3.416066850667938*^9, 
   3.416066887064501*^9}, {3.416066960222864*^9, 3.4160669936651297`*^9}, {
   3.416067299442628*^9, 3.416067336420786*^9}, {3.416068077658388*^9, 
   3.416068095676639*^9}, 3.416070247489637*^9, {3.416075191918006*^9, 
   3.416075234680427*^9}, 3.416075842795629*^9, 3.416075987774486*^9, {
   3.416076790561913*^9, 3.416076813870226*^9}, 3.416119705355701*^9, 
   3.416125632958893*^9, {3.416126669886652*^9, 3.416126695165195*^9}, 
   3.4161295131997347`*^9, {3.416129596092618*^9, 3.416129598084771*^9}, 
   3.416131219683617*^9, 3.416131256329677*^9, 3.4161327084489403`*^9, {
   3.4161327425935097`*^9, 3.4161327712310677`*^9}, 3.416132868802745*^9, {
   3.449324322003997*^9, 3.449324327519627*^9}, 3.449324366923884*^9, {
   3.831024289663095*^9, 3.831024293513966*^9}, {3.831201856558856*^9, 
   3.8312018584136553`*^9}},
 FontSize->16,
 CellLabel->
  "Out[152]=",ExpressionUUID->"a0040ea6-5cbc-4fc1-a66a-28d29e6d5dd8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Finalmente, vamos calcular o vetor de Poynting.
Primeiro, o vetor com a depend\[EHat]ncia temporal expl\[IAcute]cita. \
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.4160673449626923`*^9, 
  3.4160673757219257`*^9}, {3.416067548509029*^9, 3.416067575785975*^9}},
 FontSize->16,ExpressionUUID->"eb250aaa-af19-4d5d-a06f-94ac8d166965"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Poynt", "[", 
    RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"-", 
    RowBox[{"Re", "[", 
     RowBox[{"Cross", "[", 
      RowBox[{
       RowBox[{"Edip", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"Hdip", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "]"}], 
     "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.415959099095565*^9, {3.415959158804295*^9, 3.415959204190527*^9}, {
   3.416064439898223*^9, 3.416064448028557*^9}, {3.416064656460176*^9, 
   3.416064793686142*^9}, {3.4160648454305487`*^9, 3.4160649453450823`*^9}, {
   3.416066433848114*^9, 3.416066433943439*^9}, {3.4160673948561153`*^9, 
   3.4160674537190857`*^9}, {3.4160758477921877`*^9, 3.4160758499095716`*^9}, 
   3.449324470700218*^9},
 FontSize->16,
 CellLabel->
  "In[153]:=",ExpressionUUID->"c3d26e1d-bd3e-4f70-99ad-c27480d8c854"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Temos, na fatia z=0.5, os campos nas dire\[CCedilla]\[OTilde]es x-y:", \
"Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.4160673449626923`*^9, 
  3.4160673757219257`*^9}, {3.416067548509029*^9, 3.416067577929564*^9}, {
  3.4160753625242643`*^9, 3.416075377901084*^9}},
 FontSize->16,ExpressionUUID->"5efd9539-099f-442b-97f3-e9a88bb42bbb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"VectorFieldPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "y", ",", "0.5"}], "]"}], "^", "2"}], "*", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Poynt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "0.5"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"Poynt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "0.5"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", " ", 
       RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "10.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz21IU3EUBvBxXTMx8A7F1GRlKqSzzQX2go2apaWWYA2pzMAxR0K4za5O
TSZkyVr4QqZ5fUGnTeQmOVglRc6QtNQQJ1OyqcGEYpYk+iXEXu7z/3D48XA4
D5wYjf5SESUQCJL4gYl7cw6V3Parvm3mE6tbY+Vw4Y6dODIR3QtNjvtPYeED
8wD86Rc+g1wjNwSrqj+MQ4uuYRKWDbFuyHSsUHpeTf3JEMhoOkLhgYfeMEjT
FyJhV4+HeKtsTgqPdnOH4XbcxePkfqHpBMw7F6WGAjblOjx9Wawj+wwlMe+Y
1giH00ZKoXC1JsTAKyqyiSH1ui0c3vuYGgHpQasEuhcTlCRPma2V8JS0Gcro
zyzsk68MQCaw+TmM2xgnOijlCxiWUjwKM6aZ6Me8uaKseJjICeVwffCNAl6z
/XH28J5hVK/ghinzLWz35E7ASn/dHEyShc/DsdqZLzDHvc8LS8olX6HU7vRB
w2jQd6iVza+Rvj2LW/BI+ipRYQmIsfGWe3YR+yVPsmHveqYa7gwHXoUiXxCR
a2q9Ad879mvheQVjhNuzv4gthn8sdEkKOqHQFeyEvr7ll/CuS2y289bvFNfA
K3+raqH3R6QFnlVb2yCl72LhzemAKfjOtZs4s/YprR//Jiylw+T8R0ba6Vfp
tlSlcHP2twnWdR+sgP8BEjBl+g==
  "],
 FontSize->16,
 CellLabel->"In[154]:=",
 CellID->1349375928,ExpressionUUID->"6a1fd4bb-b16a-463e-bad4-1f9000324a9a"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0.4002459341785779, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {194., 201.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$45152$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$45152$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      VectorFieldPlots`VectorFieldPlot[$CellContext`rr[$CellContext`x, \
$CellContext`y, 0.5]^2 {
          Part[
           $CellContext`Poynt[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.5], 1], 
          Part[
           $CellContext`Poynt[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.5], 2]}, {$CellContext`x, 1, 10}, {$CellContext`y, -5, 5}, 
        Frame -> True, PlotRange -> {{0.5, 10.5}, {-5.5, 5.5}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {257., 264.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.416067507791121*^9, 3.4160675346033487`*^9}, {
   3.4160680596118097`*^9, 3.4160680737951107`*^9}, 3.4160702476320868`*^9, {
   3.416075243434341*^9, 3.416075381863969*^9}, {3.416075469705079*^9, 
   3.416075485983715*^9}, 3.41607585657624*^9, 3.41607599443071*^9, {
   3.4160768487333937`*^9, 3.416076867031761*^9}, 3.416119711587179*^9, 
   3.416125633445284*^9, {3.416126718816079*^9, 3.416126724712122*^9}, 
   3.416126755827248*^9, 3.416129513671151*^9, {3.416129605668798*^9, 
   3.4161296075967407`*^9}, {3.4161296641617413`*^9, 3.416129667918679*^9}, {
   3.4161312981928587`*^9, 3.4161313299006243`*^9}, {3.449324372925705*^9, 
   3.449324508007831*^9}, {3.831024310946992*^9, 3.831024313019655*^9}, {
   3.8312018862524242`*^9, 3.831201888980237*^9}},
 FontSize->16,
 CellLabel->
  "Out[154]=",ExpressionUUID->"53b0eadc-cfba-43e9-8135-fdb412c22424"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Agora, na fatia y=0.5:", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.4160673449626923`*^9, 
  3.4160673757219257`*^9}, {3.416067548509029*^9, 3.41606759319333*^9}, {
  3.416076123067237*^9, 3.416076123195416*^9}},
 FontSize->16,ExpressionUUID->"334b20ce-5648-4944-b606-d9f7879b9d59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"VectorFieldPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "0.5", ",", "z"}], "]"}], "^", "2"}], "*", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Poynt", "[", 
          RowBox[{"t", ",", "x", ",", "0.5", ",", "z"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"Poynt", "[", 
          RowBox[{"t", ",", "x", ",", "0.5", ",", "z"}], "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", " ", 
       RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.0", ",", "10.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0ntIU3EUB/DLWhtq4BXFfIxrkkG53FpgGTVzPVb2EJZDsExpzEEgc9ZV
sWT+0QPTHoZlLS33aClX0cGqUUxFcdoDxMkmmmYxo5hojfonxLD7/f1x+HDO
4Zzzz0nXVZ4pF1AUlcUHzNxcsN14Oaz6/vscsb5tqxxOX3USB8YkdljruvEc
Xrhl7obLYWEP5O5x/fBK/bgPNhruvofV/RY/ZNsXBJW8ujsHYiGra4+HW5rn
EiBNn0qGT60BYkX1lBTu6eSy4GrG6RwyP92yDxYdS9FCypJdAvMK4wykr1YS
i/bqq6Dn0MAlKFxsiDXxisptcVDw5nEivP5ufxKke5sY6J/doST5B3NTHTwo
bYUyesYCHfKFbsiKW/tgRsRHdAmUL2FC9sUhqP7ISh7wakQntsFMTiiHK71v
FfCs7Z/bynuYVb2Gkdp8L3wS0IzBuvDNKbhTlhiEI9cmPsECf+ocNNYwX6DU
6Q5B01DUD6iXBZfIvk2zf+Duo4tEReOGdBtvTWAj8QXz6CS0r+Rr4ZpHXAxF
oSgi19JWCkddaXp4XMFWwdXJX8SHpnULHGTOd0DhYIwbhhyfX8Fxr3UYGos1
PnKX8sbYeQ0KczxU7zIlQfr+ugTeFjN2J/6hocMBI9pgF4x2pHFwLa/rK5z/
20M8EihbgjJP7k9Sz2VKkpuXVdHPvpXC/9hDbKE=
  "],
 FontSize->16,
 CellLabel->"In[21]:=",
 CellID->1533909576,ExpressionUUID->"4de0c736-8538-429f-9e7b-5f23fa96f859"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1.0396073824715013`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {185., 192.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$18908$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$18908$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      VectorFieldPlots`VectorFieldPlot[$CellContext`rr[$CellContext`x, 
           0.5, $CellContext`z]^2 {
          Part[
           $CellContext`Poynt[$CellContext`t$$, $CellContext`x, 
            0.5, $CellContext`z], 1], 
          Part[
           $CellContext`Poynt[$CellContext`t$$, $CellContext`x, 
            0.5, $CellContext`z], 3]}, {$CellContext`x, 1, 
         10}, {$CellContext`z, -5, 5}, Frame -> True, 
        PlotRange -> {{0., 10.5}, {-5.5, 5.5}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {248., 255.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.41606762970026*^9, {3.416068015980377*^9, 3.416068052850523*^9}, {
   3.41606820672158*^9, 3.416068336091311*^9}, 3.416068379912265*^9, 
   3.416070248454583*^9, {3.416075533240158*^9, 3.416075615198071*^9}, {
   3.416076032078883*^9, 3.416076069545165*^9}, {3.41607614646134*^9, 
   3.416076159188436*^9}, 3.416076190324172*^9, {3.416076878958108*^9, 
   3.4160769004840403`*^9}, 3.416119713945787*^9, 3.416125634189329*^9, {
   3.416126762038733*^9, 3.4161267659326344`*^9}, 3.416126819999642*^9, 
   3.4161295143990097`*^9, {3.416129674530761*^9, 3.41612967662602*^9}, 
   3.41613134811336*^9, 3.4161314103613997`*^9, {3.449324515410857*^9, 
   3.449324534518578*^9}, {3.8310243308016663`*^9, 3.8310243776596537`*^9}},
 FontSize->16,
 CellLabel->"Out[21]=",ExpressionUUID->"76268dae-d844-489f-8fa9-ad6b8e238b98"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
A pot\[EHat]ncia total transmitida \[EAcute] proporcional ao m\[OAcute]dulo \
do vetor de poynting, vezes o quadrado do raio. Na plano x-z, fatia y=0.5, \
temos:\
\>", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.4160673449626923`*^9, 
  3.4160673757219257`*^9}, {3.416067548509029*^9, 3.41606759319333*^9}, {
  3.416069223962966*^9, 3.416069280841771*^9}, {3.416069737044292*^9, 
  3.416069743066041*^9}},
 FontSize->16,ExpressionUUID->"b3c0ba4a-01de-45f9-85c8-a2b460f04843"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Potencia", "[", 
    RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Poynt", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{
       RowBox[{"Poynt", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{
       RowBox[{"Poynt", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.41611949164535*^9, 3.416119513470399*^9}},
 FontSize->16,
 CellLabel->"In[22]:=",ExpressionUUID->"9b67b500-c657-4d04-b997-cb39809a69fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DensityPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"rr", "[", 
      RowBox[{"x", ",", "0.5", ",", "z"}], "]"}], "^", "2"}], "*", 
    RowBox[{"Potencia", "[", 
     RowBox[{"0", ",", "x", ",", "0.5", ",", "z"}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", " ", 
     RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "60"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4159619224403276`*^9, 3.4159619228734007`*^9}, {
   3.4159619771121197`*^9, 3.4159619811713667`*^9}, {3.41596289689926*^9, 
   3.415962916177791*^9}, {3.41596294795427*^9, 3.415962968153555*^9}, {
   3.415963005330037*^9, 3.415963182233945*^9}, {3.415963212450016*^9, 
   3.415963276802668*^9}, {3.415963670956476*^9, 3.4159637698922586`*^9}, {
   3.415963804855768*^9, 3.415963814860733*^9}, {3.4159638503769608`*^9, 
   3.415963854644606*^9}, {3.4159639985768337`*^9, 3.415964013331935*^9}, {
   3.4159640984107637`*^9, 3.41596410852617*^9}, {3.415964320821208*^9, 
   3.4159643856749268`*^9}, {3.4159644645414124`*^9, 
   3.4159644659148417`*^9}, {3.415964555131755*^9, 3.415964565914394*^9}, {
   3.415965819996462*^9, 3.415965837043582*^9}, {3.415965876772584*^9, 
   3.415965889868227*^9}, {3.4159659403335037`*^9, 3.415966185307839*^9}, {
   3.415985235962166*^9, 3.415985305351448*^9}, {3.415985358751975*^9, 
   3.415985478943315*^9}, {3.41598552459466*^9, 3.415985526185564*^9}, {
   3.415985569906578*^9, 3.4159856592877293`*^9}, {3.4160396516498137`*^9, 
   3.416039722313271*^9}, {3.416039800145772*^9, 3.416039821833609*^9}, {
   3.416065439925946*^9, 3.416065458045442*^9}, {3.416065506295891*^9, 
   3.4160655865572023`*^9}, {3.416065684216*^9, 3.416065704693136*^9}, {
   3.4160657504535837`*^9, 3.4160657528693*^9}, {3.4160657849519567`*^9, 
   3.416065813613912*^9}, {3.416065848304619*^9, 3.416065878661913*^9}, {
   3.4160659507828293`*^9, 3.4160659511021967`*^9}, {3.416066312110375*^9, 
   3.416066312182185*^9}, {3.4160666527224913`*^9, 3.416066722310258*^9}, {
   3.416066760241209*^9, 3.4160667603088408`*^9}, {3.416066804705159*^9, 
   3.416066848990328*^9}, {3.416066955631016*^9, 3.41606695949426*^9}, {
   3.416067279982493*^9, 3.4160672989100027`*^9}, {3.4160674803669453`*^9, 
   3.416067502926255*^9}, {3.416067597023044*^9, 3.4160676265421667`*^9}, {
   3.4160681898750563`*^9, 3.41606825194353*^9}, {3.4160682915058928`*^9, 
   3.416068327986458*^9}, {3.416068397435061*^9, 3.416068434711678*^9}, {
   3.416068500928258*^9, 3.416068521829611*^9}, {3.41606856306653*^9, 
   3.416068565430552*^9}, {3.416068611657249*^9, 3.41606866911102*^9}, {
   3.4160687212577877`*^9, 3.416068776198695*^9}, {3.416068814201564*^9, 
   3.4160688594144917`*^9}, {3.416068904417469*^9, 3.416068942711397*^9}, 
   3.416068976674193*^9, {3.4160690418664713`*^9, 3.4160690509228067`*^9}, {
   3.416069086226755*^9, 3.41606908639513*^9}, {3.416069124850877*^9, 
   3.416069170688073*^9}, {3.416069409074726*^9, 3.416069446064117*^9}, {
   3.416069714288884*^9, 3.416069723706203*^9}, {3.416069868979864*^9, 
   3.4160698752152977`*^9}, {3.4160699393221493`*^9, 3.416069939479343*^9}, {
   3.416076198450931*^9, 3.416076226063786*^9}, {3.41611952764939*^9, 
   3.41611953974024*^9}, {3.449324576954935*^9, 3.449324585720399*^9}, {
   3.449324681079052*^9, 3.44932468127765*^9}, {3.8310245116552877`*^9, 
   3.831024521702978*^9}, {3.831024553265888*^9, 3.831024553352178*^9}},
 FontSize->16,
 CellLabel->"In[28]:=",
 CellID->204508181,ExpressionUUID->"bd98fce7-d01d-4ebe-991f-dc880472deca"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx13WmsrXdVx/G2QMGJ0QJKNMILfOFQQKJIiKck8EJiCJJAjOIQDEKwAUMk
ERMVSsAoQyUOSMSAUUxImRUIQ3ouyBQGC2WoSFtKATUQlEEFg4K9d6/PIv3u
tG+efG/vOWc/e5/vfZ7n/1/rt+752Cc/8nEXnHfeeZfd/rzzzh4P/939jOMP
XfbsP37zxXdbfvStv+sHn/rLd11+xtn/fflFy6+43fc+/HNXfvfyNX/40k/9
zb/fZfmCs1/+/d/iH7n8lTd9xZ2Xf+5O93/xR37nTsvPPPvtX3nH5V8894Lu
sPz3F5/9Brdf/o6zX/6071x+7ANe/vUv/9O3L7/pQW+41xMe8G3Ld3zwP/z0
dS+87fLjH/rB33jkV2+zfOVN//fdj7718kU3nd2D3nDB8qWP/OpnX3vR+cvP
Pns6n/vGKb7/2R/38q8v33jl2RfwteU/evfZd/S/ln/q7I//7JeWr3ntRTe9
wi8s3+/sy333vyw/76azvfShNyx/8H2/etM79OHlu599+2735uU7vuUcn+Db
v//c319+xeH7Lf/s4ect//fh9Sw//PB6l196OJ/lLx/Od/khh/dj+c8O79fy
bx7ez0vw9x3e7+V3HT6P5ScfPq/lux8+z+W3HT7v5Scefh+W73L4fVl+6+H3
aflxh9+35d8//D4uP+bw+7p838Pv8/KFh9/35U8cfFh+zcGX5WcdfFr++YNv
yxcffFyeY3m97ZG/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Y
v5i/mL+Yv5i/mL/7/o2/mL+Yv5i/mL97vuMv5u9+fuMv5i/mL+Yv5i/mL+Yv
5i/mL+Yv5i/m757v+Iv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mb62r5
yFPcI38xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/
MX/3/Rt/MX8xfzF/MX/3fMdfzN/9/MZfzF/MX8xfzF/MX8xfzF/MX8xfzF/M
3z3f8RfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/M398Hlo+tqPcU98hfz
F/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/N337/xF/MX
8xfzF/N3z3f8xfzdz2/8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/N3zHX8xfzF/
MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/89xaProP7nW1nuIe+Yv5i/mL+Yv5
i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5u+/f+Iv5i/mL+Yv5u+c7
/mL+7uc2/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv7u+Y6/mL+Yv5i/mL+Yv5i/
mL+Yv5i/mL+Yv5i/mL+Yv1lnKh89t/Y+uNfVeop75C/mL+Yv5i/mL+Yv5i/m
L+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5u++b+Mv5i/mL+Yv5u+e7/iL+buf3/iL
+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5u+c7/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+
Yv5i/mL+Yv5mXbh8tM7U59beB/e6Wk9xj/zF/MX8xfzF/MX8xfzF/MX8xfzF
/MX8xfzF/MX8xfzF/MX83fdv/MX8xfzF/MX83fMdfzF/9/MbfzF/MX8xfzF/
MX8xfzF/MX8xfzF/MX/3fMdfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/M
3+zjlI/WhbvO1OfW3gf3ulpPcY/8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8
xfzF/MX8xfzd92/8xfzF/MX8xfzd8x1/MX/38xt/MX8xfzF/MX8xfzF/MX8x
fzF/MX8xf/d8x1/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8zf7LuWj/Zx
ui7cdaY+t/Y+uNfVeop75C/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv
5u++f+Mv5i/mL+Yv5u+e7/iL+buf3/iL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5
u+c7/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv6mTqJ8tO/afZyuC3ed
qc+tvQ/udbWe4h75i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+bvv3/iL
+Yv5i/mL+bvnO/5i/u7nN/5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+7vmOv5i/
mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+payof1Ul037X7OF0X7jpTn1t7
H9zraj3FPfIX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX83ffv/EX8xfzF/MX
83fPd/zF/N3Pb/zF/MX8xfzF/MX8xfzF/MX8xfzF/MX83fMdfzF/MX8xfzF/
MX8xfzF/MX8xfzF/MX8xfzF/MX9Th1g+qmtqnUT3XbuP03XhrjP1ubX3wb2u
1lPcI38xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX/3/Rt/MX8xfzF/MX/3fMdf
zN/9/MZfzF/MX8xfzF/MX8xfzF/MX8xfzF/M3z3f8RfzF/MX8xfzF/MX8xfz
F/MX8xfzF/MX8xfzF/M3dcPlozrE1jW1TqL7rt3H6bpw15n63Nr74F5X6ynu
kb+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/+/6Nv5i/mL+Yv5i/e77jL+bvfn7j
L+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5u+e7/iL+Yv5i/mL+Yv5i/mL+Yv5i/mL
+Yv5i/mL+Yv5mzr/8lHdcOsQW9fUOonuu3Yfp+vCXWfqc2vvg3tdrae4R/5i
/mL+Yv5i/mL+Yv5i/mL+Yv5i/u77N/5i/mL+Yv5i/u75jr+Yv/v5jb+Yv5i/
mL+Yv5i/mL+Yv5i/mL+Yv5i/e77jL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/m
L+Yv5m/6cspHdf6tG24dYuuaWifRfdfu43RduOtMfW7tfXCvq/UU98hfzF/M
X8xfzF/MX8xfzF/MX8zfff/GX8xfzF/MX8zfPd/xF/N3P7/xF/MX8xfzF/MX
8xfzF/MX8xfzF/MX83fPd/zF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8
TR9d+agvp3X+rRtuHWLrmlon0X3X7uN0XbjrTH1u7X1wr6v1FPfIX8xfzF/M
X8xfzF/MX8xfzN99/8ZfzF/MX8xfzN89z/EX83c/v/EX8xfzF/MX8xfzF/MX
8xfzF/MX8xfzd893/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfxN32v5
qI+ufTmt82/dcOsQW9fUOonuu3Yfp+vCXWfqc2vvg3tdrae4R/5i/mL+Yv5i
/mL+Yv5i/u77N/5i/mL+Yv5i/u75jr+Yv/v5jb+Yv5i/mL+Yv5i/mL+Yv5i/
mL+Yv5i/e77jL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5m/61MtHfa/t
o2tfTuv8WzfcOsTWNbVOovuu3cfpunDXmfrc2vvgXlfrKe6Rv5i/mL+Yv5i/
mL+Yv/v+jb+Yv5i/mL+Yv3u+4y/m735+4y/mL+Yv5i/mL+Yv5i/mL+Yv5i/m
L+bvnu/4i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+ZtcifJRn3r7XttH
176c1vm3brh1iK1rap1E9127j9N14a4z9bm198G9rtZT3CN/MX8xfzF/MX8x
f/f9G38xfzF/MX8xf/d8x1/M3/38xl/MX8xfzF/MX8xfzF/MX8xfzF/MX8zf
Pd/xF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8zc5MOWjXIn2qbfvtX10
7ctpnX/rhluH2Lqm1kl037X7OF0X7jpTn1t7H9zraj3FPfIX8xfzF/MX83ff
v/EX8xfzF/MX83fPd/zF/N3Pb/zF/MX8xfzF/MX8xfzF/MX8xfzF/MX83fMd
fzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX+T21Q+yoFprkT71Nv32j66
9uW0zr91w61DbF1T6yS679p9nK4Ld52pz629D+51tZ7iHvmL+Yv5i/m779/4
i/mL+Yv5i/m75zv+Yv7u5zf+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/u75jr+Y
v5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/yVkrH+U2NQemuRLtU2/fa/vo
2pfTOv/WDbcOsXVNrZPovmv3cbou3HWmPrf2PrjX1XqKe+Qv5i/m775/4y/m
L+Yv5i/m757v+Iv5u5/f+Iv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/m75zv+Yv5i
/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/iYXsXyUs9bcpubANFeiferte20f
XftyWuffuuHWIbauqXUS3XftPk7XhbvO1OfW3gf3ulpPcY/8xfzd92/8xfzF
/MX8xfzd8x1/MX/38xt/MX8xfzF/MX8xfzF/MX8xfzF/MX8xf/d8x1/MX8xf
zF/MX8xfzF/MX8xfzF/MX8xfzF/MX8zf5JiWj3IRm7PW3KbmwDRXon3q7Xtt
H137clrn37rh1iG2rql1Et137T5O14W7ztTn1t4H97paT3GP/N33b/zF/MX8
xfzF/N3zHX8xf/fzG38xfzF/MX8xfzF/MX8xfzF/MX8xfzF/93zHX8xfzF/M
X8xfzF/MX8xfzF/MX8xfzF/MX8xfzN/kDpePckybi9icteY2NQemuRLtU2/f
a/vo2pfTOv/WDbcOsXVNrZPovmv3cbou3HWmPrf2PrjX1XqKe+Qv5i/mL+Yv
5u+e7/iL+buf3/iL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5u+c7/mL+Yv5i/mL+
Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv4mJ7x8lDvcHNPmIjZnrblNzYFprkT71Nv3
2j669uW0zr91w61DbF1T6yS679p9nK4Ld52pz629D+51tZ7u+5fj5l8Nb/7V
8OZfDW/+lfOVfzW8+Vc+v/EXb/7V8OZfDW/+1fDmXw1v/tXw5l8Nb/7V8OZf
DW/+1fDmXw1v/pXzHX/x5l8Nb/7V8OZfDW/+1fDmXw1v/tXw5l8Nb/7V8OZf
DW/+1fDmXw1v/tXw5l8Nb/7VzXP9y0c54c0dbo5pcxGbs9bcpubANFeifert
e20fXftyWuffuuHWIbauqXUS3XftPk7XhbvO1OfW3gf3ulpPcY/8xfzF/N3z
HX8xf/fzG38xfzF/MX8xfzF/MX8xfzF/MX8xfzF/93zHX8xfzF/MX8xfzF/M
X8xfzF/MX8xfzF/MX8xfzN/M4Sgf5fo3J7y5w80xbS5ic9aa29QcmOZKtE+9
fa/to2tfTuv8WzfcOsTWNbVOovuu3cfpunDXmfrc2vvgXlfrKe6Rv5i/e77j
L+bvfn7jL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5u+e7/iL+Yv5i/mL+Yv5i/mL
+Yv5i/mL+Yv5i/mL+Yv5m7k55aM5HM31b054c4ebY9pcxOasNbepOTDNlWif
evte20fXvpzW+bduuHWIrWtqnUT3XbuP03XhrjP1ubX3wb2u1tN9/8c/zD/M
P8w/zD/MP8w/zD/MP8w/zD/MP8w/zD/MP8w/zD/MP8w/zD/MP8w/zD/MP8w/
zD/Mv8ypKh/NvekcjebyN+e7ucHNIW2uYXPSmrvUHJfmQrTPvH2r7YNrX03r
9Fv32zrC1iW1zqH7pt2H6bpu14n63Nn7WMwvzC/ML8wvzC/ML8wvzC/ML8wv
zC/ML8wvzC/ML8wvzC/ML8wvzC/ML8wvzC/ML8wvzK/MfSsfzZHqXJrOuWhu
fnO4m+vbnNDmDjbHrLlIzVlpbkP7wNtX2j619r20jr51ua3za91Q6xC6r9l9
kq67dh2nz4V4++eGt39uePvnhrd/bnj754a3f254++eGt39uePvnhrd/bnj7
54a3f254++eGt39uePvnhrd/bnj754a3f254++eGt39uePvnhrd/bnj754a3
f254++eGt3/u5nMUy0dz2TrnqXNjOoeiufbNyW7ubnM8mwvYnLHmFjUHpbkK
7dNu32f7yNqX0jr31s22Dq91Pa0T6L5j9zG6Ltp1lj637fs/94+Yf5h/mH+Y
f5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/
mVtaPpqD2LlqndPUuS+dI9Fc+uZcNze3OZzN9WtOWHOHmmPSXIT2Wbdvs31g
7StpnXrrXltH17qc7vN337D7EF3X7DpJn9vw3tc7X/ch8XQ/vxx3fs/wzu8Z
3vk9wzu/Z3jn9wzv/J7hnd8zvPN7hnd+z/DO7xne+T3Od/zFO79neOf3DO/8
nuGd3zO883uGd37P8M7vGd75PcM7v2d45/cM7/ye4Z3fM7zze4Z3fs8wf29p
7jB/Owexc9U6p6lzXzpHorn0zblubm5zOJvr15yw5g41x6S5CO2zbt9m+8Da
V9I69da9to6udTnd5+++Yfchuq7ZdZY+F/Y+ttfVeop75C/mL+Yv5i/mL+Yv
5i/mL+Yv5u+e7/iL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5m7ng5aM5
w51b2jmInavWOU2d+9I5Es2lb851c3Obw9lcv+aENXeoOSbNRWifdfs22wfW
vpLWqbfutXV0rcvpPn/3DbsP0XXRruP0ubP3wb2u1lPcI38xfzF/MX8xfzF/
MX8xfzF/93zHX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/M3/DRXPDO
Ge7c0s5B7Fy1zmnq3JfOkWgufXOum5vbHM7m+jUnrLlDzTFpLkL7rNu32T6w
9pW0Tr11r62ja11O9/m7b9h9jK67dp2oz629D+51tZ7iHvmL+Yv5i/mL+Yv5
i/mL+bvnO/5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv6Gt4+Yv50L
3jnDnVvaOYidq9Y5TZ370jkSzaVvznVzc5vD2Vy/5oQ1d6g5Js1FaJ91+zbb
B9a+ktapt+61dXSty+k+f/cdu0/Sdd2uM/W5tffBva7WU9wjfzF/MX8xfzF/
MX8xf/d8x1/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzN/w9v3zF/O3
c8E7Z7hzSzsHsXPVOqepc186R6K59M25bm5uczib69ecsOYONcekuQjts27f
ZvvA2lfSOvXWvbaOrnU5rRPovmb3Ybou3HWmPrf2PrjX1XqKe+Qv5i/mL+Yv
5i/m757v+Iv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+RvenA7+Yv5i
/nYueOcMd25p5yB2rlrnNHXuS+dINJe+OdfNzW0OZ3P9mhPW3KHmmDQXoX3W
7dtsH1j7Slqn3rrX1tG1rqd1CN037T5O14W7ztTn1t4H97paT3GP/MX8xfzF
/MX83fMdfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xf8Obq8NfzF/M
390HGH87F7xzhju3tHMQO1etc5o696VzJJpL35zr5uY2h7O5fs0Ja+5Qc0ya
i9A+6/Zttg+sfSWtU2/da+vwWjfUOofuu3Yfp+vCXWfqc2vvg3tdrae4R/5i
/mL+Yv7u+Y6/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/4c3B4i/m
L+bv7tuNv9vHNP52LnjnDHduaecgdq5a5zR17kvnSDSXvjnXzc1tDmdz/ZoT
1tyh5pg0F6F91u3bbB9Y+0pap9662db5tS6pdRLdd+0+TteFu87U59beB/e6
Wk9xj/zF/MX83fMdfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8xf8Ob
W8dfzF/M391nH3+373D8xfztXPDOGe7c0s5B7Fy1zmnq3JfOkWgufXOum5vb
HM7m+jUnrLlDzTFpLkL7rNu32T6w9pW0zr11ua0jbF1T6yS679p9nK4Ld52p
z629D+51tZ7iHvmL+bvnO/5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+
Yv6GN2eSv5i/mL9bFzP+bp/w+Iv5i/nbueCdM9y5pZ2D2LlqndPUuS+dI9Fc
+uZcNze3OZzN9WtOWHOHmmPSXIT2Wbdvs31g7UtpHX3rfluH2Lqm1kl037X7
OF0X7jpTn1t7H9zraj3FPfJ3z3f8xfzF/MX8xfzF/MX8xfzF/MX8xfzF/MX8
xfzF/MX8DW8uLH8xfzF/t45t/N2+/vEX8xfzF/O3c8E7Z7hzSzsHsXPVOqep
c186R6K59M25bm5uczib69ecsOYONcekuQjts27fZvvI2vfSOv3WDbcOsXVN
rZPovmv3cbou3HWmPrf2PrjX1XqKe+Qv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/m
L+Yv5i/mL+ZveHOct39uePvnhrd/Tt3p+Ls5HPrnhrd/bnj754a3f254++eG
Oye8c4c7x7RzETtnrXObOgemcyWaU9/c6+boNpezOX/NDWsOUXNNmpPQvuv2
gbZvrX02rftvHXHrElvn1LqJ7sN2X6frxF136nNs74t7na23PW5/3vD25w1v
f97w9ucNb3/e8PbnDW9/3vD25w1vf97w9ucNb3/e8PbnDW9/3vD25w3zN7y5
6/zF/MX83Trx8Xdzc8ZfzF/MX8xfzF/M384F75zhzi3tHMTOVeucps596RyJ
5tI357q5uc3hbK5fc8KaO9Qck+YitE+7faXtg2tfTuv8WzfcOsTWNbVOovuu
3cfpunDXmfrc2vvgXlfrKe6Rv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/
4Z2TwF/MX8zf7esYfzfnavzF/MX8xfzF/MX8xfztXPDOGe7c0s5B7Fy1zmnq
3JfOkWgufXOum5vbHM7m+jUnrLlDzTFprkL7wNu32j669uW0zr91w61DbF1T
6yS679p9nK4Ld52pz629D+51tZ7iHvmL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5
i/kb3rkm/MX8xfzdPqzxd3Ppxl/MX8xfzF/MX8xfzF/M384F75zhzi3tHMTO
Veucps596RyJ5tI357q5uc3hbK5fc8KaO9QclOY2tM+8fa/to2tfTuv8Wzfc
OsTWNbVOovuu3cfpunDXmfrc2vvgXlfrKe6Rv5i/mL+Yv5i/mL+Yv5i/mL+Y
v5i/mL/hnUPEX8xfzN/tmxx/N0dy/MX8xfzF/MX8xfzF/MX8xfztXPDOGe7c
0s5B7Fy1zmnq3JfOkWgufXOum5vbHM7m+jUnrLlFzVlpLkT71Nv32j669uW0
zr91w61DbF1T6yS679p9nK4Ld52pz629D+51tZ7iHvmL+Yv5i/mL+Yv5i/mL
+Yv5i/mL+RveuWH8xfzF/N0+5/F3c1/HX8xfzF/MX8xfzF/MX8xfzF/M384F
75zhzi3tHMTOVeucps596RyJ5tI357q5uc3hbK5fc8aai9Qcl+ZKtE+9fa/t
o2tfTuv8WzfcOsTWNbVOovuu3cfpunDXmfrc2vvgXlfrKe6Rv5i/mL+Yv5i/
mL+Yv5i/mL+Yv+Gd88dfzF/M380lGH83p3n8xfzF/MX8xfzF/MX8xfzF/MX8
3Ryi8bdzwTtnuHNLOwexc9U6p6lzXzpHorn0zblubm5zOJsL2Byz5i41B6a5
Eu1Tb99r++jal9M6/9YNtw6xdU2tk+i+a/dxui7cdaY+t/Y+uNfVeop75C/m
L+Yv5i/mL+Yv5i/mL+ZveOdy8hfzF/N3c0TG381VH38xfzF/MX8xfzF/MX8x
fzF/MX83N2z8xfztXPDOGe7c0s5B7Fy1zmnq3JfOkWgufXOum5vbHM/mDjYn
rblNzYFprkT71Nv32j669uW0zr91w61DbF1T6yS679p9nK4Ld52pz629D+51
tZ7iHvmL+Yv5i/mL+Yv5i/mL+RveObr8xfzF/N3cn/F35yCMv5i/mL+Yv5i/
mL+Yv5i/mL+Yv5vzN/5i/mL+di545wx3bmnnIHauWuc0de5L50g0l745183d
bU5ocw2bs9bcpubANFeiferte20fXftyWuffuuHWIbauqXUS3XftPk7XhbvO
1OfW3gf3ulpPcY/8xfzF/MX8xfzF/MX8De/ca/5i/mL+bk7X+LtzS8ZfzF/M
X8xfzF/MX8xfzF/MX8zfzeUcfzF/MX8xfzsXvHOGO7e0cxA7V61zmjr3pXMk
mkvfnOzm+jaHtLmIzVlrblNzYJor0T719r22j659Oa3zb91w6xBb19Q6ie67
dh+n68JdZ+pza++De12tp7hH/mL+Yv5i/mL+Yv6Gd049fzF/MX83V2/83TlD
4y/mL+Yv5i/mL+Yv5i/mL+Yv5u/m6I6/mL+Yv5i/mL+dC945w51b2jmInavW
OU2d+9I5Es21bw53c4ObY9pcxOasNbepOTDNlWifevte20fXvpzW+bduuHWI
rWtqnUT3XbuP03XhrjP1ubX3wb2u1lPcI38xfzF/MX8xf8NnfF/+Yv5i/m4O
5vi7c8HGX8xfzF/MX8xfzF/MX8xfzF/M3829Hn8xfzF/MX8xfzF/Oxe8c4Y7
t7RzEDtXrXOaOvelcyiam9+c7+YON8e0uYjNWWtuU3NgmivRPvX2vbaPrn05
rfNv3XDrEFvX1DqJ7rt2H6frwl1n6nNr74N7Xa2nuEf+Yv5i/mL+hs/4PvzF
/MX83dza8Xfn+I2/mL+Yv5i/mL+Yv5i/mL+Yv5i/m1M//mL+Yv5i/mL+Yv5i
/nYueOcMd25p5yB2rlrnNHVuTOdcNJe/OeHNHW6OaXMRm7PW3KbmwDRXon3q
7XttH137clrn37rh1iG2rql1Et137T5O14W7ztTn1t4H97paT3GP/MX8xfwN
n/F1/MX8xfzdnOnxd+dujr+Yv5i/mL+Yv5i/mL+Yv5i/mL87V2L8xfzF/MX8
xfzF/MX8xfztXPDOGe7c0s5B7Fy1znnqXJrO0Wiuf3PCmzvcHNPmIjZnrblN
zYFprkT71Nv32j669uW0zr91w61DbF1T6yS679p9nK4Ld52pz629D+51tZ7i
HvmL+Rs+4+/xF/MX83dz4cffnZM7/mL+Yv5i/mL+Yv5i/mL+Yv5i/u4cmPEX
8xfzF/MX8xfzF/MX8xfzt3PBO2e4c0s7B7Fz2TpHqnNvOoejuf7NCW/ucHNM
m4vYnLXmNjUHprkS7VNv32v76NqX0zr/1g23DrF1Ta2T6L5r93G6Ltx1pj63
9j6419V6invkb/iMP+cv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv5i/mL+Yv
5i/mL+Yv5i/mL+Yv5i/m775/mRPeucOdY9q5ip0D17lVnaPTuRzN+W9ueHOI
m2vanMTmrjXHqbkwzZlo33r7YNtX1z6d1v23jrh1ia1zat1E92G7r9N14q47
9Tm298W9ztbbHp967vP+51PHvzscT27pz3u867n3725nHOf7Lh/e37tdkv+/
7PvfcO738NP783b+9Tl+7/5/fPPf408+yP+/pe+D/b735/q+3zjwydUHPvH9
/bnff+fv7/n/jn2f/HnfF+8XvqVj37d+HfZ6+/7w1Ovt3KO+Xn/ez81xX9/8
e+F99O+F833O2V/f993tjONzD8dLsNfj63E//34/36dHn6/z8Hn5vL1P/T79
855vX/fN3++77597vZ1P1Nfp65yX1+fr8IWvO/vv53Un9zr37+rH9vf2lr7O
eXs/sffzVw7f5+Q95/5dvu70lv4e9vd8ndfjz70uf+799/r8/0ed+3f/U/t7
4ediP9ff8/3v8OKPnH+fd1273vp9e88bP/6Or9zz+v19e9vw797uwU/4wj2u
3dfh+/7kg3/teVfe4f2n/3rFY65663NvPO2csOd/6PVvuObl7z395OH/bw7k
tfP3d/7m/P/Odb/06nNff3L9X5x7vft753W86t73uuKJj/r4ft+PHl7vfp+r
hndO4fz9J//nN2+4w5uuOXX89d+6/6f/9O2fOr3s0qc86X+/9vbT6+f13eeC
zzz9ige85GT45AcOfPrNJ135hGf/5fUnr3/Bvf/q4hd96OS6T1/xjId8/R2n
//GyL1302MuvPfnkjf92/pff9eqTL37s0quec/71Jw98zT1uePhVHzh5/Otf
9hPf+PwnTh5x4NOnHPj0gfP1t/rbc19/+tkDn3z+8P1O/2a+/pfm77/o8LpP
fmFe//8cXs/pqw+v5/QR8+fPn79346sPP+9p8/Of9ZnD9//4vN7fnr/nyLev
nPfKO15zv2tP33k4n9MvHM7n9MWfOZzf54Z9Hi87vL+nV/3f713+sC99aL16
43kf/sAfvOJb/+58z5MP798L5vVeP6//6nk/n3j4PE6efvg8Tm7zqcPP/8q8
nw87fP/10r/Hb/nz113w4xdfv79/L7zk3O/nyUsOP//o+nPl4e/vn3/icL7L
1835+zmv+ut3vu6Hf+yjpz8z59d/D5875//ReX3O/4EHf0777+YNh++37/cX
5+ff+ZlXP/G+t/rEyY/+yYW3vfAZHzn9x8vO8enjD3zy/xVDGss=
    "], {
     {GrayLevel[0.8], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxEnXW4VVX3tveK3XuDit2AgYKt2EoIKtiNgYSCoICFhSioKCpK2YqAgoWF
itjYhaKI3YXdif2N+/c87/X9Ma7nrDnGHHPONe6x1j4HDrTuN2yfoWmhUBi7
SqGQhSYtCgWudwjrElYMK4XtWNA4MZ2seViPsGZYTCt0dWw5rFtYJawa1t1a
C9vZWg/bxdoI6+x8rLerx8jb07lbhh0YtnJYbLWwV1irsGXDdg9bKmzpsD2s
y4Tt5nn4dvK+2NPenrdc2AFhKznvPh5bPmy/sBXCVgzb30rcvvbjmxU2NGxY
2EHe16phB4etFrZ62CHWNcIOta4Zdpi1dVhva5uwI8Paha0XNsC6fljfsLXC
1g7rZ10nrL913bAjrMw/3Pnahu3p+8H9Guh87b33TcI2DRsU1iFsg7DB1g3D
jrZuFHaMdeOwXj4r5zzK+Tr4XpBvs7BjrZuHHWfdIux4a8ewIc7HPvp4v5zz
BPu3DBsetlXY1mHjXSfqMKIgTmHz5LBtwrYNO91jncLOKIgtWB5dEAewOdJ+
fGfaD7+jrMStFeDlYVnYaXG9vdc7yzng+mwrXJ9fEHPweG5BHNMf51lh+QL7
4XSCzwFrF3qMWl1UEN9weo5z0ytjrOQd51jiLnYs92Wi88HsJCuMX18QT9T/
MtcPTifbT29dYoXlawtiDtYu9RhzLvc8uL6mIM6o2xUeg/GrCuIbrq+2Enel
/fhOdG2p6xTnYL2TXGdqOcP7ha/pBfFNf1xn5TzTCuoBfFO9X65neh5c31IQ
Z/B+g8dg/KaC+Ibrm63E3Wg/vn+SQuHRsMfCbi2Ib7i+vSCmYfmughhl73d4
DH7vtHLWBwtiEdbudizM3ht2akF8zbXC9X1WWL7fCrOznY/1HvAYeR9y7lFh
zxbEE4w8VhBDsPNIQT0Av/Os8Puw5+G7x/s6Jexxz4PlZwpil7xPeAyunwob
WxD7T1uJe9J+fLf5nnG/nvO+YHx+QezS0y9Y6YkXrbC8wArLL1lh9vWCeIK1
N6yw9kpBvML4IivMvmqF09eszH/Z+WD/Ud8P7tebzgfjHxTEHD30dkG80h/v
WOHuXeu0sPesMPu8z8o533I+5n/ofDD+kRVmP7bC6SdWeHzf+djHpx6D38VW
+P3MCu9fF8QoPH5R0LsKfr+0UpNColpSq688xpxvPA9+fwqbUxCn33oMBr8v
iHtY/sEKO9/Zjy9JlBtGfnYOGP+1IL7h+veCOKY/llhh+Q8rbP5phd9fnIP5
f3kMlv8riFfO85tzk/cf15U++NdK3N+ehw9GeTbz7E4T7ReWl03EFiyUE9US
ZvNE/UCfFRMpXLdMxB/clRKNMaeSaB6MNxMxtzCsmmgM3uuJWIfxRiIlrpbI
jy9LtC/WbpEoB+t97ppT4+US7RfWlknEOr3SKpFynqUT9QO+pRLtl+vlE82D
8VUSMQf7KyQag/eVErEO4ysnUuJWTOR/12ejn+jDVRPl+DBs9USsw/hWiepH
HdomYpdzrJmIexhfK9EY/K6TiF04XS8Ro/C4diI/vnUT+WG/XSIlrnWifPRK
m0TKeusnygGz7RMpXG+aiFE42ihRD8DvxokUBjdL5IffrROdA9Y2TzQGyx0T
cQy/HRLlplc2jK9/LCjvFoliidsyUSz3ZZtE+WB220QK47sl4oy67ZiIV7jY
LpGfnt4+kdJ/OydiCL528BhzOnkeLHdLxCg8dvYYXHdNxDHs72Qlrov9+DZJ
dD+4X92dg/X2T8QEvOzu/cJdj0Q9AL89rZxn10Tc49vF++V6D8+D5X0TMQqP
e3oMrvdO1Kuwv4+VuL3sx3eRr4ndzznY3zjnwndsorpSw0MS8bpG2EGJ+gGW
D/UYnPZOxBZM9U3EKzweZj++w+2H8T5W4no532phB1tZr59zwHt/K1wPDtsg
ETsDEvUA/A60wu/R9sPscT4HfB3jMfgd6prB+BHOTa8caSXvEMcSN8yx3Jfj
nQ+uT7DC7DmJOKNuJydiF2ZPtJ9eH26lV85MxBB8neQx5pziebA8MhGj8Hiq
x+B6RCKOYf90K3Gn2Y/vgETc8Xw6wzlY70CPUcsx3i/cnZWoB+D3bCvnGZ2I
e3yjvF+uz/U8WL4wEaMwdJ7H4Pr8RL0K+xdYiRtrP76LE/EIs+OtMP5W2DVh
U8KuTsQZHE322TjHBMfC8iUeg9PLErEFU1cm4hUeL7Uf3+X2w/gVVuImOh+9
O8nKelc5R2/vi7308f5Q2J+eiCc4utZjsHydx2CWvuHZz/N9RiJ2jwq7MRHf
8HtzIl5h8HrPI+6GsEGOu8mxxN3iWLi+NRGv9PHDrhk1vDMRr/B4m/30x+1W
uL4vEVswdYfHmDPb8+D33kQswtpdHoPfexJxD79zrMTdbT++qb4f9PRc52C9
Wd47+37E+4XHBxOxS688ZOU8DyTqDXz3e79cz/M8+H0yEYuw9qjH6NHHE3EP
v09YiXvMfnzTvEdq+ZRzwPLTVlj+0LWhhi8kYhcen0v0POVZ+6LHYOp5j8H7
S4nYguWFidiFzY/DZrrOCzyPuJcdS9wrjoXxTxwLO/Odm328mohvuH47EaPw
+EYijumnN62w/I791GeRczP/XY9xP95PxDcsv+bc9NbrVvK+51jiPnAs94jn
Op99PuIzjfcLv78k4gDufkjEChx9kYgJWF7sWHriS4/B72ceg/2vE3EMs98m
Yh1mn3GteD595XnEfeNY4r5zLCz/6r3A1OfOzT5+9L7g+icrffCbY+HxZ49x
nt89Br/fOzdn+yMRx/TlX4lYh9lnvUe4WeJ5xP3pWOL+diws71iOzyBh1bB/
E7EL1/xwEqZhP091fnInqcZgOU2lsNxIxSJ8FVPFwm85Fa8wVUmlMF5NpXBd
S6VwmqXKx3r1VGPkbabKDeMrpeIJRpZJxRDstEzFNNwtlUrht0WqefhKqfbF
nlqlmgfLK6Zil7zLphqD6+VTvT9gf4VUStxyqfz4+IHvJmGbhq2cal8wvmoq
dunv1ePrjxL15RqplJ5bM5XCcutUCqftUrEIX+ulUnhcKxVPcL12KoXldVIp
bK6bSpnfJlU+GF861f3gfq2fKh/MsvdfzGyHVJzRQxukUpjdMJXC7EapFE5X
SXVWztk+VT7mcy9+NdebpVJY3jyVwuYWqRSWN06Vj320TbVfztkxlR9+t0rF
OvzunapO1GH7VLzC5japfsYEyzt4DE47pWILlrum4gA2d7QfX2f74beLlbht
U+X7L2y7VMp6OzkHXHezwnXPVMzB4y6pOKY/drXC8m72w+k+Pges7e4xarVn
Kr7htLtz0ys7W8m7h2OJ28ux3Jd9nQ9m97PC+IBUPFH/g1LVD073t5/eOsAK
y31TMQdrB3qMOQeHrZaK68NTcUbdDvEYjB+Wim+47m0l7lD78W2ZqrbUtY9z
sN7WqepMLQd6v/B1RCq+6Y8jrZynf6oewNfP++X6KM+D6yGpOIP3QR6D8aNT
8Q3Xx1iJG2z/hq45z0WeicNS8Q3Xx6ViGpaHp2KUvR/vMfg9wcpZR6ZiEdZO
cizMnpKKM/g61QrXp1lheYQVZk90PtY73WPkPcO54feCVDzByNmpGIKdUal6
AH5HW+H3TM/Dd7L3xZ7O8TxYPj8Vu+Qd4zG4Pi+sRyr2x1qJO9d+fMf6nnG/
LvS+YPyiVOzS0xdb6YnxVlieYIXliVaYvTIVT7B2lRXWLknFK4xfFtYrFbOX
W+H0CivzJzkf7J/l+8H9utr5YPy6VMzRQ1NS8Up/XGuFu6lWeJxmhdlxPivn
vMb5mH+988H4DCvMzrTC6Q1WeJzufOzjRo/B701W+L3ZCu+3p2IUHmelelfB
761WavK4a0mtbvMYc+7wPPi9JxUTcHqnx2DwrlTcw/LdVuJm24/vCeeGkTnO
AeNzU/EN1/en4pj+eMAKyw9aYfMhK/ze6xzMf9hjsPxYKl45z33OTd55rit9
8KiVuEc8Dx+M8mzm2f2k9wvLb6RiCxaecy1h9ulU/UCfPWOF61fCLk3F3bMe
Y87zngfjL6VibnLYfI/B+4upWIfxBVbiXrAf31PeF2u/7BzwfotrTo3f9H5h
7bVUrNMrr1s5z6up+gHfIu+X67c8D8bfT8Uc7L/tMXh/NxXrMP6elbh37Mf3
gefB+IdWGP/ICuN/un7U4bNU7HKOT1JxD+Ofewx+v0zFLpx+k4pRePzCfnxf
2Q/7X1uJ+9T56JXFVtb71jlg9jsrXP+SilE4+jFVD8DvT1YY/NV++P3L54C1
3zwGy0tScQy/3zs3vfKDlby/O5a4PxzLffnb+WD2HyuMt8zEGXVLMvEKF//a
T0//Z6X/qpkYgi/+sgFjzEkzzYPlciZG4THLNAbXxUwcw34pkxKXZ/Lj+9n3
g/tVyZSD9VbMxAS8LJVpv3DXyNQD8Nsivl6Y6jz1TNzjq2XaL9dLZ5oHy8tn
YhQel8k0BtfLZupV2F8ukxLXKpMf3wqZ5rGnlTLtC373zJSL2NUzMfpx2CqZ
egCWV82ksLxpptpT59UyjTFnjUzz4HetTOzC5pqZxmCwTSb+4L1tJiWudSY/
vs0y5YaLtTPlgP11M/EN1+tl6gH4XT+Twm/7TAprHTIprK2TKQfzN8g0Bteb
ZGKd87TLlJu8G2VindpunEmJ2zDTPHx7+Z5x7zfPtF94756JOWq4dSaO4bdj
Jr7p+y0zKX3TORNPsLZVpjHmbJNpHlzvmIlX2Nw20xiMb5+JafpgBytx22Xy
49si075Yu5NzsN7KmepPjXf2fmFwp0z9AMvdrJyna6YewNfF++V6F8+D6z0y
8QpPPcKamRjfLVPf0ge7W4nraT8+fn7Hz5758429fV9h+Zqww8P6hPXOxAoc
HZCJY86xb6begPEDPQa/vTKxC6eHZmIUHg+yH9/B9sP+IVbi9nM++nh/K+sd
5hytvS/20tb7Q2H/iEy8wlRfj8HykR6DX3qF9wDP+oGZOIbfQZnYhdOjMzEH
jwM8j7ijHEvcYMcSd4xjYXZoJr7p1zNdM2p4vJmAx2H203PHWmH5tExswdRx
HmPOCZ4Hv6dkYhHWTvQY/J6UiXv4PdlK3HD78fXz/aAvT3UO1hvivbPvUd4v
PI7MxC69coaV85yeqTfwjfB+uR7tefB7XiYWYe0sj9Gj52TiHn7PDdvVcWfb
j6+/90gtxzoHLJ9vheXrXRtqOD5sn0w8jsv0bOU5McFjMHWRx2B8Uia2YPmS
TOzC5gzno84TPY+4yY4l7lLHwvhMx8LOxc7NPi7PxDdcT8nEKDxelYlj+ulq
Kyxfaz/1ucy5mT/VY9yP6Zn4huUrnJveutJK3mmOJe46xw7wnuhpevUG7xd+
783EAdzdlYkVOLolExOwfKNj6YlZHoPfmzwG+7dl4hhm78jEOsxe4FrxfLrV
84i73bHE3elYWJ7rvcDUzc7NPu72vuD6Hit9cJ9j4XGOxzjP/R6D39nOzdke
zMQxfflwJtZh9kLvEW4e8DziHnIscY84Fpb5/Mv3bXy/N89j8Pt42JhMXD/j
85P7yUz9AMtPWWH5HdeeOj/rWPh9PhOvMDXfCuMvWOH6RSucPu18rLfAYzD+
khV+X7bC+yuZOIa1RVaYfdUKX69Z4es574s9ve4xWH47E9+cYaFzk/fNTHzz
DnnLStwbnofvXZ8bZt+zwvj7Vvj9wEqvf2ilRz+y0n8fW+H6y0ycweNXVlhb
nIlXmPrMCuOfW+H6CyvzP3E+2P89ExOw87XzwfhPmZijh77NxDGsfWeln763
wu8PVvhd4nzw9Y3zMf9n56MPfrHC+K9WuP7Nyp5+dD728an3yzn/cG4YXzXX
feT+/ZeJ0SfC/srENPz+bX00rFWuGlMr/kIvsfCb5mIX1rJcCuN5LoXfYi6F
l3/DHvN6pVxjcF3OpXBdyaVwXcvFNPzWcyn8NnIp/DZzKawlufbFnlrkGoPr
ZXKxyxmquXKTd6lcrMP40rmUuJa55uFbNte54Xe5XAq/y+dSeF8hl9K7K+ZS
WF4pl8LyyrkUllvnqg0MtsmlMLharprA8uq5FJbXyKUwuGYuZf4qufJRy41y
8QcvbXPlg+X1c7EIg2vnYpqeWCeX0hPr5lJYbpdLYfBP8wITa+XKx/z2ufLB
codcCssb5FIY3DCXsqf1cuVjHxvn2iMsb5JLYXnTXArLHXPxyvqb5Rqj5zbP
pfTKjrn4g7stc8XC7zbx9T9mbdtcCuPb5VL43T6XwssWufKx3g4eI28n54bl
3XIxAS/dcjEKR11y8Q3LXa2w3Nnz8G2Va1/0U3fPg+ueuRgl784eg/Fdc/EN
1z2sxO1iP77pYUeEHRm2u/cFv3vmYp1+3csKv3tb4XcfK/zua4Xfg3PxB3eH
WOHugFwcw++BVrg7yMqzpJeV+fs5H32wk+8H9+tQ54Pf/rn4g7veufqBPjjc
Cr99rHDX1wq/e/isnPMw52vt+0G+dr4vKNwNsNIHA63w28/52MdRHoPlQVZY
HmyF5WG5GIXHY3L1GywPscLyOa4ltRrqMeYc63nwe1LY1rk4Pc5jMHhCLu5h
+UQr7BxvP74xzg0jJzsHjJ+ai2+4HpGLY/rjdCssj7TC5hlW+D3FOZh/psdg
+excvHKe05ybvKNdV/rgLCtxozwP3zTXmJqc6/3C8hW52IKFC11LmB2bqx/o
s/OtcD05F39wd4HHmDPO82B8Yi7m9g+7yGPwPj4X6zA+wUrcxfbjO8/7Yu1J
zsF6R7vm1PhK7xfWLsvFOr1yuZXzXJqrH/Bd4v1yfZXnwfjUXMxxX672GLxP
ycU6jF9rJe4a+/t4X/QTfXhdLr7humMxnluhf4bdmItX9j4jF+twPdMK1w+5
xtTqJsfC8i25OIbZWVZ4v9UKv7dZYfYG52O92z0Gp3dYYflOKyzfnYt7mL3H
CndzrPB7rxXWbva+2NNcj8H1g7nY5Qx3hQ133vtzsQ7jD1iJu8/z8D3sc8Pv
I1b4nWeF90et9PFjVnrucSssP2GFnedzMQdT861w93QujmH2GSu8P2uF3+es
zH/S+eiDN3PxQf1fcD74XZSLP7hbkIt7mH3JSq+8bIXBhVbYfMv5YO1F52P+
q85HX75mhffXrfD7hpU9veJ87OMp75dzvu3c8PuP7yP374NcvF4f9m6uHuDZ
8J6V99gvrjG1+tCx8PtxLnZh7RMrjH9qhd/FVnh53/lY7zOPwfXnVrj+wgrX
X+ViGn6/tsLvN1b4/S5sdi7WPvK+2NP3HoPrn3Oxyxm+dG7y/piLdRj/yUrc
D56H71efG35/s8Lv71Z4X2Kld/+wwvKfVlj+ywrLaVG1gcGsKIXBf10TWP7P
Csv8ch4Kg0lRyvy/nY9aLlUUf/CSF5UPlutFsQiDpaKYpifKRSk9USlKYbla
lMLgO7l4gYliUfmY3ygqHyw3i1JYblGUwmDLopQ91YrKxz6WLmqPsLxMUQrL
rYpSWF6hKF5Zf9mixui55YpSemWNoviDuxWLioXflYtiF9ZWKUphfNWiFH5X
K0rhZfmi8rHe6kWNkXfNonLD8gZFMQEvaxfFKBy1KYpvWG5blMJy66Lm4Vup
qH2xp3WKmgfXHYpilLzrFjUG4+vH19/m4rp9UUpcu6L8sE//8W7h/bFhUfuC
342LYp1+3aQohd9Ni1L43awohd/Ni1L43bYo/uBuu6IU7rYsimP43aoohbut
i1KeJdsUpczfoqh89MFaRd0P7tf2ReWD352K4g/udiyqH+iDTlb47WyFuy5W
+N2oqLNyzh2cj/ndnA9+u1vhbmcrfbCLFX67Oh/72NVjsNzDCss9rbC8V1GM
wuPuRfUbLO9hheUjiqoltdrTY8zZ2/Pg94CimIDTfTwGg/sVxT0s728lbl/7
8Q0IW68oRg50DhjvVRTfcH1IURzTH4daYfkwK2z2tsLvQc7B/MM9Bsv9i+KV
8xzs3OTtW1Rd6YN+VuL6eB6+0a4xNRno/cLyqUWxBQvHuJYwO6iofqDPBlvh
+sSi+IO7oz3GnCGeB+PHF8Ucn7OGegzejy2KdRg/zkrcMPvxHeV9sfYJzsF6
u7nm1Pg07xfWTi6KdXrlFCvnOamofsA33PvleoTnwfioopjjvpzuMXg/oyjW
YfxMK3Ej7cd3lu8lXJ9thetzrHA9oShW4GhsUexyjjH2w/j5HoPfC4tiF04v
LopReLzAfnzj7If9i6zEnet89Mp5VtYb7xzsY6L3AsuTrLB/WVG8wtRkj8Hy
5R6D35/C5oTdG3ZlURzD79VFsQunU4piDh6v8DzirnIscdc4lrhrHQuz04ri
m369yzWjhjOLYgIerws7sqieu94Ky7cVxRZMzfAYc27wPPidVRSLsHajx+D3
5qK4h99brMTdZD++S3w/6MtbnYP1pnrv7Ptu7xce7yyKXXpltpXz3FFUb+C7
3fvl+h7Pg9/7i2JxpO83Y/To3KK4h9/7rKe7Hqfax88X+Xk5Px+/1Pulrg8W
xTQsP14Uf/DymutEPR8ril18TxbFEMw+UxR/sPl0Ubxy/brnUdsnnI85T3ke
cY8U9dyhV+ZZ6ZVHraz3rHPD9ctF8cf9fqkoRrl+oSiO6aeF9nO+N7w+DL5a
FK+c5xX74fo556ZXnrfSW/Ot5F3kWOa/6Xxw+lVRbFGrL117rhcXxQfsvGsO
4Pctz6MP3g+bXhSzb3sM3j8sil04/bgovuH0IdeHZ9IHnkfcR44l7hPHwu8D
RTFCXd9xbvbxmfcFy59bYf9rnwMGv/AY5/nGYzD7qXNztu+KYpde/KEovuH0
Ye+Run7recR971jifnQs/P5cFKPw+2tR7ML4jqX4jBCWhSUlMQc7f/hesM5v
juWsf3oMpv4uiic4+q8opmHwL/vx/WM/XP9rJe5356MnllhZj3+sgxzsg32x
F3hnfyh9UC6JIdjJSxqD30pJY3D6i8/KOWsx/mLogrBGSUzDeIuSOIbTaknz
iKuXFEtcs6RY4lqWFAunS5fEOr3btqR6U+flSmIXBpcpyU+PtipJ6ZXVS+IJ
7pYtaYw5y5c0D05XLYk/OF2hpDH4Wjm+fq8orlcpSYlbsSQ/fVAs6X7Qc6uV
lIP1lipp7+x7rZL2C4OtS2KOfmpTknKeNUtiHd8aJe2X67VLmkcvrl8Sf3C6
Tklj9Gu7kliH6/VKUuLWLcmPr1TSHqll+5JywG+HkhTeu5dUG2q4aUnswuNG
Jb0L4XqzksZgauOSxqj/FiWxBctblsQubO7sfNR585LmEdexpFjitiopFsZ3
cSzsbFJSbvaxTUl8w3Un9xA8bl8Sx/TTDlZY7mw/9dm6pNzM7+Ix7sdOJfEN
y9uWlJve2q4kJW9XxxLXzbFVM86zmc8Xu3q/8HtwSRzA3QFhK5XE0e4lMQHL
PRxLT+zhMfjt6THY36skjmF2n5JYh9kNSqoVz5s9PY+4vR1L3L6OheVDvBeY
2s252ceB3hdcH2SlDw51LDz28hjnOcxj8Lufc9MHh5fEMX3ZtyTWYXbDkvYI
N709j7g+jiWun2NheYHvJe+//h6D3yOsMH6G60oNB/tesM7AknoDro/2GMwO
KYlRODq2JHZh8Bj78Q21H96HWYk7yvnoj0FW1iu2EOvHcab4utxCLJ9SEkOw
s00LMTc8bKcWYveksFPth9kzfQ74Os1j8Ht6Se8JGK+2UC+dwH1qoT45MWyE
Y4kb6Vjuyyjng+vRVpidXBKL1HxMST0Gs2fZT9+fbaVfLyqJP5g6x2PMOdfz
4PfCktiFwfM8Br/nl8QZvF9gJW6s/fhOLumecL/GOQfrXVMSTzByifcLmxNK
YhruJoXt7/OML6k38F3s/XJ9qefB71UlsQuDl3mMHr2ipN6A9yutxF1uP76r
PY89TfG+YPxlx5HjurAjwwaETS2JafidZoXfu11j6jbdY8y53vPg96aS2IXN
GR6DwRtK4g/eb7QSN9N+fPc4N+zc7BywP6skvuG6Efz80xS3feLr46lp6NEt
xNeuoZ1gOezfiLvFOZi/RQvxe3vYXSVxzHnqMV5rod6603WlD2ZbibujpLn4
Fvqecb/neL/w+4zrRz0fKIld2JxbUs/TK/dZYfzxkjiDr/s9xpwHPQ+WHy2J
S7h7yGOw/EhJPQDL86zEPWw/vnu9L9Z+zDlY71rXnxo/6/3C5lMlcUzfPG3l
PE+W1Cf4nvB+uX4+bGJJLL9UEpfwNN9j9OuLJfUALC+wEveC/fj4+xb8vSH+
Ttwrvq/wvko5PkeELg57syQu4fGDkniCozd8Hnxvl8QlLL9XEn/w9W5JjHIN
p3y24Dn7lvMx5x3PI+7VknqGPn7NSt+8bmW9952bfbDH20ri6qOSegB+h7XQ
+O6hn5XEEHx9XRLrsPNlSSzSW5/bD3cf+nzk+sr+e3wvbneuLxzL/G9db1j7
tyQWqe0/riXXf5TEHDX8sSRGYe07z4PNnzwGa997DDZ/KYktuPutJOZgk/5v
53v6s+cR96tjifvdsTD4se8NffmDc7OPP70vWPvLCo/8Y3fPlcTa3x7jPElZ
Y7C2xLk5W1YWW3BXLIs52PzG95t7lJY1j7i8rFjiSmXF8lz8xHvk2VMua4y+
53d2UThtU1Ytyd2iLBbhtF4WQ7DTsqwxWGuUNQZHS5fFK9y1KotRmG1bVj7q
uVRZ84hbpqxY4pYtKxYG1yorlho2y8rNPpYvq0/gaNWyuIHBlcqqAefr1UK6
W+hqZflhcLmycjN/9bLGYG3NsniFxxXKyg3vK5al5F2jrFjiWpcVyz1aVFJP
01drl7Vf+OoYX//nOm9SFgfUf72yWISpdcqKhZf1yxqDx3XLGoPlDmUxB5sb
lsUcXPD71a94/fZlzSNug7JiiduorFj6Y8uy9gJf7crKzT42LWtfMLhZWUpv
beVYmNq8rDH6b2uPwePGZeXmbNuWxRxsbl8Wc/BVK2uPcLON5xG3nWOJ28Gx
MMi/mce/P8a/Y9bJv0dOjl/r0bNh94d1L4s/OOpaFn8wspMVZvcoq5bUcGfH
wuauZTEHmz2scNfTCiO7WWGtm/Ox3u4eI++ezg13h5XFK/U/oCzm4GvfsJXL
et7vZ4XZFi00vk/YLt4XezrQ82Dt0LJ6hrwHeQxODy6LP3r0ECtxvezHd0/Y
yWGnhPX2vmCtT1lsUf++VnjsZ4XB/laYOsIKg0eXxQqMHGOFi4FlcQlrR1nh
YpAV9gdbmX+k88Hp/r4f3K+hYVuU1TfDy+IDjo4ti114PM4Kg8dbYeoEKwwe
7rNyzmHOx/yTnG8H3xt0R98jFNZOtXYOO9H52McA75dznmZ/l7DTy+IP7i53
bajJaNcV1s4oiyGYPctjcHdOWczB2nll8QpTZ9uPb4z9cHeulbgznQ+uR1lZ
b4fgavuwveLr/UIvCD00dGJZ/HG/l2kh7i4OG1/W13A6yX74vcLngMHJHoPN
S8tiEdb2jzwXhh7GM5Z/ADZs77i+xLHEXeZY7suVzkevXGWFzVtdJ+p8bVlc
wuPV9lPPa6zwe0NZbMHUFI8xZ6rnwe+MsriEx2keg+XryuKPel5vJW66/fhG
uLbUdaZzsN5I15la3ub9wuMtYUPK4neWlfPcVFbP0Cs3er9c3+558Ht3WVzC
4x0eg+XZZfFHH9xlJe5O+/EVq/E5qBKfIcLmlMUx/M4ti1HO8WBZ/MHLfR6D
2futnOmJstiCwYccC1OPlMUxzM6zwuajVvh9zAqnDzgf6z3uMfI+6dxjw14u
iycYaRW8XBT6XNi6ZvXpsDbxdUuz1TW0C99Xhz3sfbGn58uaC8MvlcUueeeX
/z/XL4ZNKIv9BVbiXrAf372+Z9yvhd4XjC8qi116+lUrPfGaFZZft8LyG1aY
fb8snmDtAyusvV0WrzD+jhVm37XC6XtW5r/pfLC/dJx/XOizYR86H4x/URZz
9NDHZfFKf3xihbtPrfD4WdjNZTH7is/KOT9yPuZ/6Xww/pUVZr+2wuk3Vnj8
3PnYx7ceg9/vrPD7vRXefymLUXj8sax3Ffz+ZKUmlYpqSa1+9hhzfvU8+P2z
LCbg9DePweCSsriH5T+sxP1uP75qRblh5C/ngPF/yuIbrv8ri2P6g3+UGoXl
pCJ9KiytSOH2b+dgflbR2DNh5Yp45Tz/Ojd5ixXVE/5LFSlxeUXz8MEoz2ae
3bWK9gvLq1bEFiy0rKiWMNuoqB/os2ZFCtcrVMQf3LWoaIw5S1U0D8aXq4i5
t8KWrmgM3ltVxDqML1uRErdMRX589Yr2xdrLV5SD9X5wzanxahXtF9ZWroh1
emWVipTzrFRRP+BbsaL9cr16RfNgfK2KmIP9NSoag/c28fXishhvW5ESt2ZF
/k99NvqJPly7ohzwvm5FrMN4p4rqRx06VMQu51ivIu5hfIOKxuB3o4rYhdNN
K2IUHjesyI9v44r8sL9JRUrc+hXlo1faV6Sst1lFOWB284oUrrepiFE42rKi
HoDfrSpSGNy2Ij/8dvY5YG27isZgeYeKOIbfLSrKTa90rEjJu31FscTt6Fju
Sxfng9muVhjfryLOqNvOFfEKFzvZT093s9J/e1bEEHx19xhzdvE8WN69Ikbh
cVePwXXPijiG/d2sxPWwH9/WFd0P7tcezsF6vcNaV8TL/t4v3O1TUQ/A775W
zrN3Rdzj28v75foAz4PlQypiFB4P9Bhc96qoV2H/YCtxB9mP71JfE3uoc8Ds
Jc6F75SK6koNj6iI13ZhfSvqB1g+0mNwOrAitmBqcEW8wuMA+/EdZT+MD7IS
18/51gnrb2W9o50D3o+xwvXxFTEEO8Mq6gH4PdYKvyfYD7On+hzwdaLH4Pck
1wzGhzg3vTLUSt7hjiXuZMdyX05zPrgeYYXZcRVxRt3OrIhdmD3dfnp9pJVe
Oa8ihuDrDI8xZ5TnwfKYihiFx9Eeg+uzK+IY9s+xEneW/fgOr4g7nk/nOgfr
9fEYtbzI+4W7CyrqAfi90Mp5zq+Ie3xjvV+uL/Y8WJ5cEaMwNN5jcD2xol6F
/UlW4ibYj++yiniE2cutMP5x2MywG8JmVMQZHF3js3GOKxwLy1M8BqdTK2IL
pq6riFd4vNZ+fNPsh/HpVuKuCjusot692sp61zvHQO+LvQzy/lDYv6UinuDo
Ro/B8iyPwSx9w7Of5/ttFbF7XNgdFfENv7Mr4hUGb/U84m53LHF3Opa4uxwL
1/dUxCt9/JRrRg3vq4hXeJxjP/1xrxWuH62ILZia6zHm3O958PtIRSzC2gMe
g9+HKuIefh+2Eveg/fhu8v2gp+c5B+vd7b2z76e9X3h8oiJ26ZUnrZzn8Yp6
A99j3i/Xz3ge/L5QEYuw9qzH6NHnK+IefudbiXvOfnw3e4/U8kXngOUFVlj+
0rWhhq9WxC48Lqzoecqz9vWwKyti6hWPwfubFbEFy29XxC5sfuV81PkNzyPu
LccS945jYfxrx8LOIudmH+9VxDdcf1IRo/D4YUUc008fWWH5U/upz7vOzfzF
HuN+fF4R37D8vnPTWx9YyfuZY4n7wrHcI57rfPbhc8833i/8/m0O4G5JRazA
0Q8VMQHL3zqWnvjRY/D7ncdg/+eKOIbZXytiHWZfcq14Pv3kecT94ljifnMs
LP/jvcDU987NPv7wvuD6Tyt98K9j4fEvj3Ge/zwGv787N2dLquKYvsyqYh1m
X/Ye4Yb/HId5xKVVxRKXVxULy/xMiJ9T8jPyUlXswnWlKqZhv1HV+cldrWoM
lmtVKSwvVxWL8NWsKhZ+W1bFK0wtVZXC+DLx9WsVcd2qKoXTelX5WG/ZqsbI
u3xVuWG8TVU8wcgqVTEEOytWxTTcrVSVwu8KVc3D16KqfbGnVauaB8utq2KX
vKtVNQbXa1T1/oD9NatS4lavyo/vpPh667BtwtpWtS8YX7sqdunvdapS+nLd
qpSea1eVwvJ6VSmcblwVi/C1SVUKjx2q4gmuN6hKYXnDqhQ2N6pKmb9+Vflg
fOWq7gf3a9Oq8sEse//bzG5eFWf00BZVKcx2rEphdsuqFE7XquqsnHOzqvIx
n3vxj7netiqF5e2qUtjcviqF5a2qysc+2le1X865g/3w26kq1uH34KrqRB26
VcUrbHap6mdMsNzdY3C6S1VswXLPqjiAzZ3tx7er/fDbw0pcV+crh+1kZb3d
nAOu9whbuiqu96uKOXjcuyqO6Y99rLC8v/1weojPAWsHeIxaHVQV33C6p3PT
K3tZyXugY4nr5Vjuy6HOB7OHWWF8aFU8Uf++VdUPTnvbT28dboXlQVUxB2t9
PMacfp4H1wOr4oy69fcYjB9ZFd9wPcBK3BH249vRtaWuRzkH63V2nanlMO8X
vo6pim/6Y4iV8xxdVQ/gG+z9cn2s58H18Ko4g/fjPAbjJ1TFN1yfaCXuePs7
uuY8F3kmnlwV33B9alVMw/LIqhhl76d5DH5HWDnrmKpYhLUzHAuzo6riDL5G
W+H6LCssn22F2dOdj/XO8Rh5z3Vu+J1cFU8wMq4qhmBnbFU9AL8XhO1eFb/n
eR6+M70v9nSR58HypKrYJe/FHoPrCWH7VsX+RCtx4+3Hd4rvGffrEu8Lxi+r
il16+nIrPXGFFZavtMLyVVaYnV4VT7B2nRXWplTFK4xfa4XZqVY4nWZl/tXO
B/sX+n5wv653Phi/pSrm6KGZVfFKf9xghbsbrfB4kxVmL/VZOecM52P+LOeD
8VutMHubFU5vt8Ljzc7HPu7wGPzeaYXf2VZ4v7cqRuHx7qreVfB7j5WazHct
qdUcjzFnrufB70NVMQGn93kMBh+ointYftBK3P3243vBuWHkYeeA8XlV8Q3X
j1XFMf3xuBWWn7DC5pNW+H3EOZj/dNj5VbH8fFW8cp5HnZu8z7qu9MFzVuKe
8Tx8MMqzmWf3i94vLH9QFVuw8IprCbMvVdUP9NnLVrh+uyr+4G6hx5izyPNg
/M2qmLsm7FWPwfvrVbEO429YiXvNfnwLvC/Wfss5WO8u15waf+j9wtp7VbFO
r7xv5TzvVtUP+N7xfrn+yPNg/LOqmIP9jz0G759WxTqML7YS94n9+D73PBj/
wgrjX1phPKupftThu6rY5RxfV8U9jH/vMfj9sSp24fSXqhiFxx/sx/eT/bD/
s5W4b5yPXvnWynq/OgfM/maF67+rYhSO/qiqB+D3TysM/mM//OY1nQPW/vUY
LPMfU8Ix/P7u3PTKEit5/3MscWnEP1XVfSnWlA9mSzUpjK9QE2fUrVYTr3BR
rslPT1dqUvpvmZoYgq9qTWPMqdc0D5aXqolReGzUNAbXLWriGPZb1qTENWvy
4/vL94P7tXRNOVhvzZqYgJcVa9ov3C1XUw/A7/I1KedZtibu8bWqab9cr1TT
PFhevSZG4XHlmsbgetWaehX2V6tJiVulJj++NWqax55a17Qv+D2wplzErlMT
o1+Fta2pB2B5rZoUlrepqfbUee2axpizbk3z4LdDTezCZruaxmBw/Zr4g/f2
NSlx69Xkx7dtTbnhYoOacsD+RjXxDdeb1NQD8LtpTQq/m9WksLZ5TQprG9aU
g/lb1DQG11vXxDrn2bim3OTdsibWqe1WNSlxHWuah+8g3zPu/XY17Rfe96yJ
OWrYpSaO4XfHmvim7ztZ6ZseNfEEa509xpyungfXu9TEK2zu5DEY714T0/TB
zlbiutmPb4ewxGvv6hys16am+lPjvbxfGNy9pn6A5T2snGe3mnoAX0/vl+u9
PQ+uD6iJV3jax2Mwvl9NfUsf7G8lbl/78fEzOX72zM+me/m+wvKMsIFhR4UN
qIkVOOpdE8ec45CaegPGD/cY/PatiV04PaImRuGxj/34+tkP+/2txB3qfPTx
YVbWO9I51vO+2Et77w+F/WNq4hWmBnkMlod4DH7pFd4DPOuH1cQx/B5XE7tw
ekJNzMHjUM8j7ljHEne8Y4k70bEwe1JNfNOvY10zajjCTMDjyfbTc6dYYfns
mtiCqdPCtvec0z0PfkfXxCKsjfQY/J5ZE/fwO8pK3Bn24xvs+0FfnuUcrDfc
e2ff53u/8HhuTezSK+dZOc+YmnoD3zneL9cXeB78jq+JRVi70GP06EU1cQ+/
F1uJG2c/vqO9R2o5wTlgeaIVlme5NtTw8rCDa+LxkpqerTwnrvAYTF3qMRi/
qia2YPmamtiFzVudjzpf6XnEXe1Y4qY4FsZvcyzsXObc7GNqTXzD9cyaGIXH
62rimH663grLN9hPfa51bubf6DHux8018Q3L05yb3ppuJe9NjiXuFscO9Z7o
aXr1du8XfufVxAHcPVgTK3B0V01MwPIdjqUn7vYY/N7pMdi/N+zUmpi9rybW
YXaSa8Xz6R7Pg/e5jiXufsfC8qPeC0zNdm728ZD3BdcPW+mDxxwLj494jPM8
7jH4fcC5OduTNXFMXz5dE+swO9l7hJsnPI+4pxxL3DOOheUu/vklf5/yWY/B
7/M18Q3Xn7iu1PAl3wvWeaGm3oDrlz0Gs6/UxCgcvVYTuzC40H58i+yH91et
xL3ofPTHAivrve4c8P6GFZbfq4kh2Hm7Jqbh7h0r/L5vP8x+6nPA1wceg9+P
anpPwPibzk0/vWUl74eOJe5jx3JfFjsfXH9mhdklNbFIzb+qqcdg9nP76fsv
rPTrzzXxB1Nfeow5X3se/P5QE7sw+I3H4Pe7mjiD9++txH1rP753fT+4Xz+F
zfF6SV08wcgf3i9s/lYT03D3u5Xz/FpTb+D7xfvl+k/Pg9//amIXBv/yGD36
T029Ae//Won72358W9d1TSz/GT052N9WdeXCt0pddaWG5bp4nR+W18U3LFfq
GoPTWl1swVSzLl7hsVqXH1+9Lj+MN+pS4op15XsurFSXsl6LunLAe8u6FK6X
q4sh2Fmmrh6A31Z1KfwuX5cfZlet6xzwtUJdY/C7Ul01g/Gl6spNryxdl5J3
xbpiiVu5rljuy2p15YPr1etSmN24Ls6oW5u62IXZNery0+tr1qX0yvp1MQRf
resaY07buubBcru6GIXHteoag+t16uIY9tetS4lbuy4/vrQu7niGrVdXDtbL
6hqjlpvUtV+42zC+/rEmfjeqSzlPh7q4pz/a17Vfrjetax4sb1kXozC0WV1j
cL1FXb0K+x3rUuI2r8uPb5u6eITZbetSGB8TX+8StmvYznVxBkc71nU2zrFd
XbGw3MljcNqlLrZgqltdvMJjZ/vxdbUfxneyErd9Xfno3R2srNfdOWreF3tp
eH8o7O9eF09w1MNjsLyHx2D2lrAhYUPD9qqL3WXD9qmLb/jdry5eYXBPzyNu
b8cSt69jidvfsXB9YF280sdH1VUzanhIXbzC40H20x+9rHDdvy62YOpgjzHn
UM+D3751sQhrh3kMfg+vi3v47WMlrrf9+Hr6ftDT/ZyD9Q7w3tn34LAN6uJx
QF3s0isDrZznyLp6A98R3i/XR3se/B5bF4uwdozHNvZ9h3v4HWbdzDXZ2L7d
vEdqeZxzwPLxVlge59pQw1PqYhceh9f1POVZe6rHYOokj8H7iLrYguWRdbEL
mxc5H3U+zfOIO92xxJ3hWBi/2LGwc7Jzs49RdfEN1+fWxSg8nl0Xx/TTOVZY
Ps9+6nOmczN/rMe4HxfUxTcsj3ZueussK3nPdyxxFzqWewSzPJt5do/3fuF3
qjmAu6vrYgWOJtfFBCxPcCw9cYnH4Heix2D/sro4htkr6mIdZk9wrXg+Xep5
xF3uWOKudCwsT/NeYGqSc7OPa7wvuJ5ipQ+mOxYer/UY57nOY/B7lXNzthl1
cUxf3lgX6zB7ovcIN9d7HnE3hA1y3E2OheULGnGPw/YIu9lj8Ht+XO9m35Ou
KzW80/eCdW6rqzfgerbHYPbuuhiFo3vrYhcG77If3z32w/scK3G3Ox/9cYeV
9eY6B7zfZ4XlR+piCHYerItpuHvICr/z7IfZp3wO+HrUY/D7eF3vCRi/37np
pwes5H3MscQ94Vjuy9POB9fPWGH2zbpYpObz6+oxmH3Wfvr+OSv9uqgu/mDq
eY8x5wXPg9+FdbELgy96DH5fqoszeH/ZStwC+/E97PvB/XrFOVjv47CZdTHy
lvcLm6/XxTTcvWHlPK/V1Rv4XvV+uX7b8+D3g7rYhcF3PEaPvldXb8D7+1bi
3rUf30oNXRP7oXPA+4oN5cL3t+tKDb8ImxV2a9jiuviG5S89Bqdf18UWTH1X
F6/w+JX9+L6xH8a/tRL3mfPxvv3cynrfOwe8/2CF69/qYgh2fq6rB+D3Fyv8
/m4/zP7jc8DXEo/B75+uGYz/6Nz0yk9W8v7hWOL+ciz35V/ng+v/rDC7VEOc
UbesIXZhttCQn15P3PP0Sr0hhuArbWiMOXlD82C52hCj8FhsaAyuyw1xDPuV
hpS4UkN+fJ/UxR3PsFpDOVjvU49Ry6Ub2i/ctWioB+C3ZUPKeZoNcY+v0dB+
uV6moXmwvEJDjMJQq4bG4Hq5hnoV9pdvSIlbtiE/vpUb4hFmV2lIYXxAfL1e
2Pph7RriDI7WbOhsnGPVhmJhuXVDY3DatiG2YGqdhniFxzYN+fGt1ZAfxtdu
SIlbPb7+qK7eXaMhZb11G8rBPtgXe4Fl9ofC/oYN8QRH7Rsag+WNGhqDWfqG
zzQ83zdpiF1+13OzhviG3y0a4hUGN25oHnGbNhRL3OYNxRLXsaFYuN6qIV7p
410bqhk13K4hXuFx64b89Mc2DSlc79QQWzC1bUNjzNm+oXnw26UhFmFtB4/B
b6eGuIffzlbidrQfX4eG7gc93dU5WG/LhvbOvnt4v/C4c0Ps0iu7WDlP94Z6
A18375frnp4Hv3s1xOKyft8ytpTfx3APv3taW/l9vJR9GzS0R2q5t3PA8j5W
WB7SUG2o4UENsQuP+zf0POVZe3DYag0xdYDH4P3QhtiC5d4NsQubQ52POh/i
ecQd5ljiDncsjA9zLOwc6Nzso29DfMP1wIYYhccjGuKYfjrSCstH2U99+jg3
8wd5jPtxdEN8w3I/56a3+lvJO9ixxB3jWO4Rz/Sh/+Pe+4XfUQ1xAHenN8QK
HJ1oJmD5OMfSE8M9Br/Hewz2T26IY5g9tSHWYXZf14rn00meR9wpjiXuNMfC
8mjvBaZOcG72MdL7guszrPTBWY6FxzM9xnnO9hj8jnBuzjamIY7py/MaYh1m
9/Me4eYczyPuXMcSN9axsHxhQxzD7zgrvM9txnnCRoRd2RBnsDPB94J1LnIs
XE/0GMxObohROLq8IXZhcJL9+C6xH94vC+vluIudj/4Yb2W9K5yDfVzlvcD7
1VZYntoQT3B0jcdgcJrHYPbPsIfDHgm7riF2eT/MaIhv+L2hIV5hcLrnEXe9
Y4mb6VjibnQsXN/cEK/09AOuN3W+rSFeYfAW++nRWVb6b05DPMHdrR5jzu2e
B6d3N8QfnN7hMfia3RDrcH2Xlbg77cc3xfeDnr7HOVjvJu+dfT/o/cLgfQ0x
Rz/db+U8cxtiHd+93i/XD3kevfhYQ/yN8f1mjJ6Y1xDrcP2o9RzXY7R9/KyR
n5fzM/FrvV/q+kRDHMP78w3xBy/vu07U87mGOMb3QkMMwexLDfEHmwsa4pXr
DzyP2s53Pua86HnEPd3Q91p8H/aMlb551sp6Lzs3XL/VEH/c7zcbYpTr1xri
mH56237O96HXh8H3GuKV87xjP1y/EnZpQ72yyEpvvWol77uOZf5HzgenPzXE
FrX60bXn+tuG+ICdxeYAfj/2PPrgM4/B7Cceg/cvGmIXTr9qiG84fdL14Rnz
uecR96VjifvasfD7eEOMUNdPnZt9fOd9wfL3Vtj/2eeAwR88xnl+8RjMfuPc
nO23htilF5c0xDecPuU9UtdfPY+43x1L3B+Ohd+/GmIUfv9piF0Y3zmej7Ww
eli1KeZgJ2nqXrDOv47lrGlTYzCVN8UTHJWbYhoGs6b8+IpN+eG61JQS95/z
0ROFppT1Kk3lYB/si73AO/tD6YOlmmIIdhpNjcHv0k2NwenfPivnbBXjr4e+
EbZcU0zD+ApNcQynyzQ1j7hlm4olbvmmYolbsalYOF25Kdbp3fZN1Zs6r94U
uzC4SlN+enTVppReWacpnuButabGmLNGU/PgdK2m+IPTNZsag682TbEO122b
UuJaN+XH1yK+XthQz63dVA7WW6mpvbPvDk3tFwbXa4o5+mn9ppTztGuKdXzr
NrVfrjdoah69uGlT/MHphk2N0a8bN8U6XG/SlBK3UVN+fC2b2iO13KypHPC7
eVMK73s2VRtquE1T7MLjlk29C+F626bGYGqrpsao//ZNsQXLOzbFLmzu5XzU
ebum5hG3g2OJ6+RYGN/bsbCzdVO52UeXpviG613cQ/DYrSmO6afuVljuEdZs
qj6dnZv5PT3G/di9Kb5huatz01s7Wcm7m2OJ28Oxy5hxns18vtjH+4Xffk1x
AHe9m2IFjg5oiglY3tex9MSBHoPf/TwG+72a4hhmD2mKdZjdoqla8bw5yPOI
O9ixxB3qWFju773A1P7OzT4O977guo+VPjjCsfDY12Oc50iPwe9hzs3ZBjbF
MX05qCnWYbZjU3uEmwGeR9xRjiVusGNh+Q3fS95/R3sMfo+xwvgJzguP57nG
1PN43xd8w5viEnZOaYpXuDu5Kaa5Hut51PZE52POSZ5H3LCm+o1eOdZKrxxn
Zb1TnRv2RzfFDTyOaoonrkc2xTcMnmU/nJ7v9WHw3LBdfZ6z7eddcZpz0ysj
rPTW6VbynuNYeuIC54PTq5vijzpf5ZpxfVlTbMHLxU31G/xe6Hk8A8Z7DE7H
eYw+ntgUo3A0uSmm4ffdsKlh08ImeB5xkxxL3CWOhdkzfD/o6Yucm31c7n3B
+xVWWL7G54DTKz3GeaZ4DE4vde5e3gt9CPvTm2Iafmc0xSsMXut5/bzv/o67
zrEwe6b3SC2v9xjzZzoHvD/i2lPbW8KGhA0Nu7EpvmF5lsdg6iaPwfVtTbEF
U3c0xTGMz3M+WLjV84i73bHE3elY+H3UsbBws3Ozj7ua6ge4vq8phmBnTlO9
Ab/3WmHtfvthdrZzM/8Bj1G3h3xfYPxu56a37rGS90HHEvewY7lH7/leU5Nl
W4j7x8Necf1gc0FTnMHO0031CVw/0VQ8ff+Mx2D2SY/R0881xStMzW+Kb1h+
x/WGi2c9j7jnHUvcC46F30XeCzw+5dzs4yXvC/ZftsL1q46F2YUe4zyveQxm
X3RuzvZGUz1Jj77VFN+wfENTTMHN655H3JuOJe5tx3Ie/k4Ef2+IvzP0vu8r
/K4fr9iBYQPCPnFeePyqKebg6OOmOMa3uCkuYeeLpniFu8+bYvp//PLZgmfi
p87HnM88j7gPvD698qGVnvvIynpfOjf7+LEpbuDxm6Z6AK5/aIotfD83xSg/
Y1jSFFsw+FtTvMLmL/bD+Nc+H7l+t585P3kdcv3qWOb/2RSj9HHLuF+7hfXU
P7P1f9pDfz24sHNY9zD+W/odw3YI+8vz6Ff+m8xO9q0Zk5dvob7kn8/uEtZZ
/yxgYaewrgX158a+p7n9nfRPbf+fv4v+WZBCN8/51veGvkwjd8K/Qaa/jlDY
xfvjo9Wuvl4qbHefp+lz4Fs6bA/7qj4Ta7QK26ugfxdwubB9wvYO+8P3m3u0
jP3MX9Z+5iwftq/nfOc98uz53kotVwjffo5bI+zQsEPCNg0bFjY0bHWPHRzW
Oqx32GFhq4QdFHZg2FphfcP6hLUJO9xxm4cdF3Zs2GZW8q7pHKzX1vOYs0XY
8Z6zalgvr7F2WD+vsUHY4LBBYR2sR4Wt5946MmzDsKMdt5r3Tq5NfKYhYRuF
HeO4dcL6e411w47wdTvn43pjz2NOe6850DU+J+xs1+yssNFh24SdHHZSQdyc
GXZG2NYeG14QK6eFnRrWMewEn79T2Miw0wtieoTjVgzb3zVbKewAX2cttNa2
BbF+uud0977Y05ZhJ3qNzt4La8DfuWFjCmKavY8qiNcxPhs9NzbsvLCtvHdy
wdyFYRcUxPT5juvqHJx55YIYYa89nIP1dvc85vC7R/zOHL9rB7sXFfTvYN7h
33Xgdx64R/eGzfHZ7gub6/WeCnuyIL5uC7u1IM7QWa45eovv7x1ht/ueznXe
4zx2m+/XvLBHfP7Hwh71/Xjc15zhCV8Pce6bC+IDvakgttAbfS8eCnvQ9252
2J2uA2MP+J497LizveY81+QR+6jt/T7/SM/jmj65NOySgli4J+xu1+our1dK
ojZhXcLKYTv5uhLWzdf/Rty2oduE/VOQbh32d0G6VVghbPuw7cJahe0VtmfY
fwWNMb8a1t15lwrbPWy3sKXD9vD1Mp7HNfeUtf/xuVHWPMH36Q7f6/8cd5LP
x9kaMX/XsF3CamE7e+2WXrNnWAtrj7CmlTl1z2MOz4nLwy4r6Jl3ha95Tl3p
a/bybdg3Xvv7sO/M8jNhT7vmi8M+de3RT8JusH5sXj4P+8y1+c55b/bYYtf2
97DfzMQfYUvMwZ++hou/fD3TuT8Km2H9MOx66wcF8f5L2M8F9ceXYV8U1AOM
/WS2fnXcg17zd3P2m33c+x98/jme96PrxL35uqB+Qr8qqK++8no8+6/yPeU9
cbWveQdc42uea5PCJhb0fphi334em1DQM2Wy43q5bvQAz5tL7BvsGnDv9/W8
8WFp1HvHsB0SPcdn+D4Nciz38nzXk+cLffi37/Us3zPqx/OMZw/PgqM8j1y8
P6aFTS3ovXWtzzDA61xX0LsFnV7QO2a65/TzPOYU3a+dw3Jrp7DMyhnei7iV
Q1dKVMONQzdKVKdNQzdJVId2oesmqsE6oWsnYmT10NUSsbNGomtYWTV0lUTs
4Oea+m+WKC9MbJ7oGlZYh7VhgfU39NpDw4aEPevzcI7nC3oG8Ux6t6C9r5iI
EfbI/t4vaH3ORn+0D10/EV/rJToPzLHOBon6Bz8+uOyQaA49t2ais9FXbUJb
J6oh92AtnnfxYfHksJP4/9bDTvF1l7Azw84I29r+4WFdw0bZt5XHTuT/rw87
JuzosG5hZ4WN5v+IDxsaNoT/U97+wfw/8h5jzvyCnsX/92z2PNboFDYy7PRM
zxL2znl4TrRNdB5Y5BxcLx0fiPcI2z2ss/fO/GXiek/7dojrEWGn8X/QOzfX
24Wd6vNvbz/XrWLOXp5PD70Y9oKNZz375vmXm0320Sfs8EQ9w3tjS9dvYNgA
16B32GFm94Cw/c0Bup/Pdrjj4OBAx61g/76u/eCwQWbuaF/D4DG+hoOjvPZy
YfuE7R22rJV3WOLnAe+25Z17H/fAQV4bNo8I6+/+6RfW18xxpiPNU1+fv53H
jjDT/T2Hfjo4rJdryT041Iyih4S9U9C94KyvF/Su5Z35ZkFnYO8vFfT+4z32
VkH7xkd9eBdSG55PnI339oKCYvHxbKNWPAt5fuH/z8+71PfjuYJ6lL59u6C9
sMZrBe2F9znvHmrbMdEzopfv1+o+B+fkXYV/i7A3Cto75+HdwhjPkVcKemfz
rn65oPc0Z3u1oHX4HLGwID++RQWNMWfTYHSYe4z3Afdlgd8DzCEfNb4obJxr
frGv2e9lYZcm+jyC/0LXfrzjOMPljjvIsZck4nRS2ETzMsFzOPcVngOXN4TN
dO2nhl1rJqaHTUvE99VhVyXi/Rpf7+G9XGBG8F+ZiEXWn2zOpnhOX+eeYu6u
8xqweb2v+3vNqWbtSu91d69zfqIem+yzEfte2LvWleMZsFLY+/H1KqmuP4+v
1wptmyoO/4phH8BEqrhf4utNQjcO+yxRbJuwT+LrNUPXCPsIbkJXC/sivl47
Vd4v4+t1Ul1/FV+vm+r6x/h6w9ANwr6Nr9cPXS/VOVn7fZ//fe/9m0T+dqme
HxNds68TjZH3+/i6Q2j7sJ/i641SrfFzor1z/UOiNYn7LlEsa+/m+zc20efl
k8KGJ/pMfErYyfY9FfakY5/2NXtZEPZi2Hn2P+GaPOM46vGS4yY49oVEHD8f
9px5edZzqOHLnsNz8KawG83RG2Gvm5u3wt5MxPeisFcSsfuqr8/1Xh5PxD7+
hYlYZ/35Zug1z7nSuV8zi297Ddh8x9dXe032cYnzsdeLnY/zjPOZOM9UM8h8
nhnHhx2X6Llygq95fo8IOy3RMwX/sYk+J51uH8+qEz1nK9eHa753OdV12t45
uN7GdaOWPV0/6rM4Eb+tU30WG+k1+H5iTNg5ib6nGh02KtG7Z0aiPhzsOvBc
6Gr/mYk+353hXF08xjXfz5wddlai71vO9Ro9vBeud/aaxHVzLGt/mmiP9NjH
ifqMHvs1vt40VU9yr8uhpVT1rIZWwh6Jr/8K+9O1/y/s37DHrP+EPWr9OxGz
CT+QS1VDcpAXdhhjPjwtFV+3TMUHn0v4zAIvfM7gGiaWTXU9z7nZx8Peyx+J
PndS22HmphmxjVR9koWmqbhnrJ6Krxap4mCUNdkHLLMXfPRTLdX56THmcQ2D
3JtiKhbRPFWPoazH9x6v+H3D9yKLfM33kK/6mp9t8NmX9yrfT75m3ziP8Rn5
4oI+CxI30e8x3ufj/Xlrvr9v4DM6n5Ev9Dw+f92c6NkKm3wPwWfrd/y9BbHv
+XsC7tlQ14HPibulegZxz6gfn+P5zM7np2meRy6+N+PzB+9wvn973We41uvw
GWGKlc8j11iZc5XnMWey38m8p2cletbzDrkt0fP9S9d5y9hLR9dyRz63+r53
pudScYB/i7AliXTzVKxslWo+nG4buk0qjrZO5cucg7w8U3hfrWBWdgnb2az0
CNvVfPT0NVx3C9sp7PdEa24W9lsi3dTc4+/qe8ret3ePMdbFPHXxeVq6Dj3N
8a7eR8176W4uu3vtgvNt575COSe9yFk55+2J3m3c0zsTvSN5Bz7kHlriZxDv
YJ4NcxO9p3nXzfTYR35Wfeq4W1wrOLvJrOG7w7lZj2fch4newbe6ntT4/kT3
iGfPg16f+8d7YLlUPc97YvlU17wnqAnX9yR63/PufcDzyHW3x3hvz0n0zibu
Pq/Dee71mfDNTvTO5l7c5Xlcbx6fHY8LOzZsS38/d0JYR+vxme792WFnuSbn
+Jo6jfE1NR8dNirVZ4Vjwo52rU4LO9V8DAsbam6O9TX1OyXsZNf4LOfq6nxn
mqMRztXFY2ek+ox1UNiBqT4/HRzWK9Wz/hBf87nsgLD9Uz33WX+I13gk7OFU
n3GGeN/0xulej14Z6evOXpPrDX2+wak+Cx7oNeiJ43w2+vJ4Xy8KWyruZcuw
V+PrpTNdvxZfL5Ppen58XQkthz2fSkthz6XSYti8+PrvsL/CHoV7Xz+byp/z
f8+lWqdF2MJU2gx7iR4LrYe9QF9lWo+eOSlseKoeOtnXPEdODDsh1bNjuK+3
cz2pWUf7j3fd5vmevhhWy7TGglRrcg0rj3nvr3LuPO5DrucQ9dkv1Tv7sLBD
U/UBY/u6BveH3ec6PBj2gFl4yNc8S84PG+v93hU223u8M+yOsEFhN4TNdP1u
9DX1vMnXo8zFQ673A157hNef63t0t9fYJ2x82MXe78SwCT7TJF8PCLs+7Dpz
drPXGxg2wz7u671hc1KxPtfX1OQer3eK/Vwf5XPMcG1m+5ywfIvXoMduDZuV
6vP6QO+lvedz3cH3hWu+Jzgy7IhU3zcM8PUGvl/EreH60GM8v/ZO9bOS5Xwv
uF7edeOaz2K9XVf4gN8/U33vwTr9U31vg/ZL1T+3ed/0z+2+Pt415Hqoz8Q5
+Ux6uNfo6fqfl+p9cm6q5xTfe/VxHN9f9fX12l6T6x6exxw4/TdVj70e1ipT
rz4eX/9nH0z8Fvar6/Rz2E+uzY9hP6TiBf8vrucvjpvj2B99zi/DvvDZvg77
Kmxa2Hth7/rc39h3t3N/73p/ax/1/87XsMgzhWfJhameEc+k6o+nw54Ku8h+
njEw9FHYh2HjPMYcnvX0K719l9dkjelh73t/U73Hd8Iu8Dqscb3zfZCK+w88
B2Y/9nr/+/2W//2+C/q/33FB+R0Dfq+Fv//P7wLwezP8ngG/b9D0GL8nUPQY
v5/A79zwOwf87gG/e9PJ1//7/RyuG57H2vQqzyyei/xOzk5eg//Piv8zh/87
h15dHPZpqufFJz7Dba7Vl+aRGn6e6vdyujnXLR77LNXz5VPP39ufffmMfJDX
+d//qYXy/xzd7HmszTtmcqpnyljX8Enz+kQqNuFig+C0Qya2+Nkr19Ssfej6
mWqIn2tYYWy9TM88+vIP13OlGFsx035bh66ZaS9tQ9tkYo557TKdb61MPhhl
bN1M92PtTD6YyELTTIzwvuKaMyRZ4f/+AgNnws81PLH+CpnOh5/eezNsufh6
2Uz3fZ1Ma1AH1uT6rfh6+Uxxb6SKpYffTpUPH+yunOmc3F/OxDmnpIojx1Wp
5vMMuCLVO5t3+DX2v+l68H7lXXe1x5hzrXuCXOe5VpxjvFmjPyd6Hvxd6XVY
Y4zryXPocq/J54hLU73jF5oharJGpj5bLXTVTD22SqazwSj+1TOx87L3Su8x
xpyHXPMlYZd5Hdbgvfd7qmfcg/ZzTR+zDmvwjJ/gM/Hc57nDc4V3Bj0/3dwd
FTbQdeoX1td8HBHW3/s7JOxgn6FX2EGu8d5he7mW+/iaZ/GeYXu4rnv5Gu6O
dF7YHODrdbxOP7PI+n0yfVbaLaxnpvcSf7bBZ2Ge+/wZCX8Gwme13R23mvfI
/pb2+rubm95hh7keh/o8bb3O4e6fw+xr47HeZnFfnw3e9w/bz/eXe3Bg2Cx6
iT4LuxXufX132A9h34fdYv9nYfeE/WjfzR5bHDYN7sPeDbs37Oewn8KuC/sA
dsKm2v9O2HSPMYd3Hn9WxH2Z43msMTvsu7BvM/XWfj4PfXWAz7Oyz3GA6zDN
69zlvX/nmk23746wb8K+DrvTubm+Lewrn/92+79yja/z/OvDPvR5eF7wZzzs
m2cbteX7G56J/HnUINfkqrArXZNrwq72XieHTfKZJoZNMAfnh4117S/wdY+w
88LOzcTTWF9T/ynOC3fX+rq312HtQ73+FWHdM/1f0vxZ2maZvj/jZ/1bZPqe
jO/Zds70f02f7fs7yfvb1euPycToZWGX+t5f4vMc4nUuz8TXpfYd7DHmwPWF
Phu9dVHYONeVezA+03OaP0vjz9Z4jnfydc374xyJ/fzZGt8H7GJfwWPUhmfK
5j5rC9877iXPpI4+N88g/Py5B88hxpjD9z/0KH3b9DzuAd/b8OeR/Lnint47
5+HZcbHPs4/PwTXPhamuTdV7Zz7vSRjh+cX3Yfw5KH9GWnZurnmPdfb5i/Zz
zXuVZx7PIH52yc8T+TnizLj+OOyjsBvDPg37xPd9Udgrrs9rmb5PgovXfc2f
jz4c9pD3/kLYfJ/n+bDnMnEzL+wR8/Gor2Hi8bDHMjH3hvNe7nUWmQXWX+g6
v+g1+PPbm7xf/vyWZw3PFf78aZav+ZxLffizXxh8wuud6f0+mIm/l8NeysTc
Ql/D7gKvN8l+rkf7HA+7TvN9TvrqSa9B7z0d9lSm70mu8DuTz/VT/R7me4tp
vj7Yft51R/gdha+Xx3jH8ue+fA7ms/Nefqdxzc8O+YzL5+g97OeanwFckuod
S6/e6vvS1+vzmeJwf27gMwJ99Yz3DZfP+nqca8j1WJ+Jc/ZxDubzPQT3mD9L
53sI/gyez3mH+jME5z/Mn1247u01ueZ7D+Zt5HouNn/HuJ6M8Xzh2cqzln7g
PfC261GP79druWrWDG3k2ncemuXabxqa5Kr5H2FLXL8/ff1A2O9hv5mJJb6G
hRa58sJgy1zXsMA6rA0frF8Nmxtf/5LpHTYjUz/x3L8hUz/RY/fBpeO41+yR
/d3v9X81T+UYK+W678Vc54F71qnkqgl+fDDIGHNg8y+fjb76N+wf14x7wF+s
5e8T8K7lnTnCe2Lv/B2E+319hu8F92akFR/P+ztcD55BM33WQT4n1zxfeOfx
/htoP9fHuoawyLvuRs85zeuzJ37Od6fX4Bnxt89D3/7n89BjnIPrKWbhrUx/
Z4Iz8VnjGo+9menvjPC5hHf7yfZzzc8XZ3u94fZzfbXn8Tzi30Lg9875/fNz
/Lzkz1tO8M9z+Zkr+9sq9rNlLna2CN08Vz03C900Vz3wd8zFHEocnBFLXPew
s8POCutmHR22k3VUrvNvG7pNLlbIvUmuzz4bhW6Yi7+Nc13D5s7OXXauruam
S1hns9vda06AaVgzZ908B953DdslF7usyRqwxV62dj22y7W/ktfpYua2z+Ub
79zzwyaGLfB654c9Tb+GnRv2RNjjYeeEPRb2aNhY+58MO89K3BjHEndV2Bth
r4ddaX0t7Arrq2GXWxf5fpN7nu/vwzwnfL8f8fVljn0lbHLYy2EvhU2ycoZL
7V8YdrHP93zYJR5jzriw58KedW3neY0Lwp7x+S+0n+uLnIM5uWvVKVcf7+B7
yrNjR1/D0LFhw1ybIWHH5GLi6LDBuXjBPzRXDYc6biPHEld3neGGZ18P176r
79GZudg9Puy4sA2ce1DY+mEDwwaEtQ87ytddPO8M7/f0sBE+w2lhp/p8+Efm
+r5hrdC2PvNIz+H529N76uA1WWNz74Xz01sneH87eB3W4HsO8rXJ9Z5BW+f6
vmXtXOvxvF4tdNVc32OsHLpSrnfOiqEr5Pocj3+VXN8ntPe5+b6EMebwPUQH
34PMZ+DcfH+yoe8Z3wtt4HPw/Q3rsMYs9sQ9yPVsY83lcz2TlgtdNtf3H6y5
Xq7vN9YNXSfX9yEo5+H7E/ztcj3LmNcq1/cojDGH99KaoWvkel6yDmvw7lo9
173gvYWfa97N3DPm3OI9fhZ2s3Vx2K3sw2eg9jPCrjdrszxvgMeucw1vCJuZ
i0Fy3ZSLRfTGsEuL0V9hC4uq90znHWw/8/uHTQubGnZE2HRfH+l1uB7i9Vnj
pLC7w+4yN7d578M9NjvslLA5YfeEXRZrL/I+YOq+sLm52L3XccOcg3P2Dbs2
bErYyc7Beqd5HnMuj1yvOu/TpXiehv0d9pT1r7AHwn4M+yFsQVixHM+DsPs9
9n3YQ2E/h/0Udm/Yt2HfhM0L+y3s17CHw35x3MthZf6/OP7v5JKUvA86B+s9
4nnMobdu9z2aG9ffeY1Hw373Gs/xizr8/7+hz4T96/M86XP8GfZ8WFJW3H3e
O7leLOlMWdj8+DotK+6x+HqJ13g87A9f/7+izjzs5upr49Fzpu855zFllilC
IpHKkAhFmYnMhRIpipTMIaRBNKokRUpF0kCa53nUXNJcmtOo8t6fa92/6/3j
vtZZe++119573Xs60/dJ14f+UjrssGGPnVLy//N/g9s9yrxYaR58LHzktA+F
D8yhz+C7ubVT+MQ8Re4wj3bYnjVpq7ClJNath6yvct0f2h91vy9cL7xbEvvT
DcJ71m90/ntu73fCLo/1t55L6zy3PjeHfhJ+LIk1cYu5uMlpP7jPu2y/xn3a
6bnyufvJerzN7b7Hdt8Lg0pi32KvG2jJXneiJfs2azD7Mftwv5LY19n3jnca
e3jPktjb2NvZS9jL2W/7lMTexn7YqyT2PMqd7LFgbJhLvwg/Cz1cB/56226J
Y7zRY8Z+tcA++rot+BhcEvs3+/MAt50zzklOo59DS+J8wLmgu9tOXSMcM84U
w0riPEG5/q6DPo90eyk3xHXgb7jtsHld/MxmYr5xBmK9YF3h3MS6MNXxr6o1
oEoq+FItFTocqp4KHa5UltxPaCCcIpwsNBRGWZ8k3CXcKZwt3G39QGG0y8Ez
/FAXXKS+SqngdE3JGqk4N5FWMRXreEP7hIsH2ifcauS6WfsPkKwvTLT/9ang
00GSTVIxJ6ib/nCeKi9ZLhVnsQqp0Dmj4ROdeVYrFW1in8E/Ps4RNrhvU4R7
hI3sC8Ia4VZhnLDW+njhNuunCbcIq4Vpwv3CfcIFwgPWlwjPCc8KlwjPW58u
POhyY+2Huk51fTcL57u+zR7vVcJNwrnCJrd1qnCv9fNcFv0sj9kdwmT3iX6e
6bTbhTOEde4Psb9RuMGxX2l9lH2iT7AdNqwfxKdeKtaz/VMxvqwHpNV1vHsL
vcyJPtbhSF/rxKmn0MPxoB0jU7F+NE1FvDm/lkjum4rzbCoVOmtS41TwpoL9
9DQPqO+EVHCzv9BPKHXa8W7fcGGY+zDCen37R68tDBWGpOI8jf+yqVgXD05F
+yq7bvqTF7oJxwkFobv1on2iMw8HuE2cxdOp6A9n80wqdM772VTonOv/EfaU
xN3iX+vcT/6zzr3ib+GvkrgD7LHOPaHotnCfKOcxYO2mb8SMtbyO+8o6zrig
c88oddsvTgV/n0nFGo+fP0tirUf+URL3sFwq2s0dLEmFzn2GcUHnvsX4lUnF
XafgMePuRRo/5uXutdd9Yx/6TdhdEvvS79a32ic6dzbssLmUcUzFHFvs9j4t
XMaYOq+n+7PYMVkoXOQ4LRDmmzvkLzJfFrlcd5elHOcv9hP2Ts5ev5bEHnNl
Ks6Vr5nrzPkl5gR1zxO6CHOFOUJX4ULrcO3aVJzjTkrFOZX6BgrLhWXmIvmc
H+t4L2HPGew0bI4RZguzhGPtEx+93Bb6z9y71O0bZD/4qO362H/2t2Tfq+t9
CH/cK9i/2QM537Nns09yH2A/Zl+t6nz2N+4QnKc5N1VxGjbcGcY4r533MfYw
7hmc6TlrN7ak3H72g4++jit9qGif7P9854azAvt8Q/vk7Mz9jP2VfbieJf1p
4HzOC+Vsx3nkAKdhwz2MPZ6zTAX7wQd3rIEeixrOR6/lMcOG9zLYk7kHnOgY
XuH5v1S43Lx4XHjM3HrCOjF7VHjEMXzM+lynPZyKdep6YYVwZCr2BvYx1rXr
zKfhzr/OnMNumzn9lPCk+ULaQ8IMYUsq9ifa+6rwivnxmnXa/rLwkvvzivUj
7H+y+0b+i55DT9vfTGGrfcyyz62eW0+6/6zBN7hvh7s+9uo2qdjz6Gdrp3E2
OTQVex77W/NU7G3s1azT7N/s5y2czz7WKhXnG84XhzgNmwe83jCfB7hv9LWz
x45x6uR2049m9oOPfu4zvGxqn+ztnFc4K7C3H+3xZf9vn4pzA/t821Ts3/St
g/M5R7C3jUnF/n+U07DpaP/UdZD94KOl+8RYHOaxoZ/t7Acfn+oMWV3nx2rC
znTIqsIn6ZBVMhH734TdqTiD/CL8nIozza/W4eO/wj+O5e+2IZ5/Cn+kglN/
WYd3f1uHv3usP2A/1Puo6yOPOfCffXCm+Un4MRXr+r7c69LBF/7UYW8quFUm
HToc2mv7rW4L7WMfK0mHPdzMcZ5Ox5kslY489okM99h0cJd8dPYV0igHl/GP
Pz5nYu1jHaJsV6GL5YXCXOEYYbYwS+gszLE+RLhGuFo4Vphnm27CAmG+0F24
yPrxwkLrJwiLrHexH+rtISx2Xk/hYuu9hCXW+wiXCpcIfYXLrPcTLrfeX1hq
Pe12048ThWXCFcJgt/0qobfrw8cg4UphuXCS89EHOg37zeYUcd3k2P7gOOCn
Uzp401rysHSUayZ5sPA9vJdsko46mqcjDw61kDwkHfFuJdkyHXwljXJw7dB0
lIOv5KPju2k66qUt+EGHO/inLrh7eDraBHePSIcOz9pJtk0Hd49MRx4cbJ+O
PNbNgmTevOkgHJUOLnYUjk7H+lpMR7l9nI99WedjU+KxwYZ1l/qSdKy/SDjN
Of1L4YtUrKHvCu+kYj/Ynor3idgP3rbO/WOn8Ekq9op3nMca/J7tuZfsED5O
xd3gfedxP/hQ+CAV9xbyP0rFneEDlzvOXIbft9gPdd3jmBNP7iVfud3cST4X
Pkv5vmF9rdM+TcV97FO3m7vO17bf6Pq+S8Xd8RvnccfbJXybirvQd9bvchrl
hqp913pODhOusz5cWGG9kTBGGC00Fk61Dp/OFCYIBzp/lDl6msvBs7Nc7hCX
PcOcHiecbv6NtQ3cnGibBsIpwslCl1LtgZJtzK3zhfOEjNLPNj/r6XVOOEev
G7ot2KeUNslzqrn9j6eM0iebt231eko6eAz/ptkHfLzAelv7nOq5Mcltbeb6
xnn+nO7+DPT3/pZl4vco/Pbgdv92Zb31qf4NwCb/XuV2/y6B32xtdt5E/w4B
m0n+nQn6FP8egM/SznUd6Of4szV+PzHPn7nxO6QDPJYj0/E7sfvsg99vPezf
Vczw7xz4/QHfISjvcyLfV6jo8+B05/N7i2n+fQJ1XeA09Fn+jQS/deB3XI/Y
x4VuC/ps+6TcTJfFN/thG8eCfYi1nrW4fDrWd9b7EcL15ij9ucE6/bvROrFf
aZ3YrBXWmBc3OQ/O3SKsdsxutQ6/bxZWOZ5rnEecb3NdrEnsbzOFbubd+NLg
+O3COvP+Dutwer31pDReT/Q8WW1/Z9gOH93Nz1MkDxdaC3eZfxuEu83Hjdbz
yv+X/8NKx1xc5X52dBtnpGNNRU5Px9rJOsU+zJrazXqldOyX7G8557O3V07H
fsn+yXrd3Tas38dbr5COfZc4VXQd6OUcN/bw/VwHPkqdhn19x5LY1knHesT6
VD0d+yj7cI107LXoHdwP5mdVYUA69vD903HOYK+umY79GJtaTkOvm441Dh/1
7BO9tn1iX8X10WfOZMx/eMk6yhrHWsh6imSNhHPbhbfSwaEPhQ/SwUvS3kwH
594R3na83xfec6yQ71InY6E1o14muPu2673J+dizRvPeKJ9FsEa/YX2F/aCv
tn98wLnP0nEWhssfCx+lg5ekcS6GT18In6fj848DMtGOe/T6a+GrdPDsS5e7
1XXQz3uFb4Vv4ENp+ILfG22HDZ95NMhEvYcLE4WzhNaWZwpNhFHCKcJRwlTh
XKGx004WmgpjhNFCQ2GEMFxoLowVThMOFk51uaOF84XzhA6W1HuQ68BfM9th
w9ze4TE6UPpI+zhEON0+jhTOFibxuYkl/WklTBDOENoI57hcI7edutq7T1OE
tsJkl2shjLOPQ4Xx1lu6PvR2tsOmozDNfWO9+MTtvsa8eNXcKWbi2aDEaj/J
SpngE2k8NxROlZMszQRfKkpWyARvkOUzEVv4WDcT/KMs9cJZ8rGHc7lMvF8P
B5NM6HAfP+hwBf/4gGc1JWtkot3cwyoLQ0ojrU9p8GZ/va4lbPbc+B/PaEud
TPCrdibKETPqoJ/3mce7zFfqwB9cxg6bTa6LNM7yfHbIZ25LLPmsjDsGnxfy
mRtnej5v43Oz2U7jMz3uMHz+x+eNrK/4pr3cYfgskM8POQtuc7mrHR8+k7zK
knrnug78zbcdNus8R4kxa/n99sG96FH74A7DZ4d8FnqpJf252P3gM0DuNs+5
3Cy3nbqWu098fsg9h88a+UySu9Zj9sH96nHri10f+jLbYXO2zx2cUc5R/C7W
GA/gvwWFhXrdOxNx7in0MOe6Cl3MRZ5l28l8OtZ5cLCbcJzjeoJwvHl5nMvB
p+4uV8n53c37zq63aD+dzbMerov3AHq5TdXcxl7mZX+hXybeP+jjPDg0wHns
Pax9m8xTznwnmpf8DmSQ5wBz9Wjz+ETb13b+QM+rwbaZ5vpYd8+3ZB3l7M++
yB7F2Z0zN+dc7jbsu5yPeC+WPZU9mXsOezB5fO7OHkwedx32YPZ57jPsc+zt
3AnYx6iXuxD52HMXIh8b7jbstdhMKo0x6Vsan8HjHx/chdin2be5u7DX0m7u
QOzN7MPcYegHOvcc9mDKcX+qlg4f3IE4E5DHPYf7AGdY7lvs6/jgTkV96Nyj
yMeG+w9jg00HtW+vzkWLMvFZIO9L8l5X1jHpYJ7NEmaaFwuE+eYLaTPMtTnC
bPNrnnCheYacm4m9bZgw1Lyc7Xq7OX+O+X1BJtZueDndemf7mW5ezreP8vx5
qHCJeck8ukgYq7Ql8Kk0OHq5cFkm9mz8DzHXuH9cYb4udbmeroN+sicPd7v3
V10VhUvN0StsU8/1wVG+o8D+zb7NdxQOy8S+x/cJ2MPYJ/kOBHs2+x7fUWho
P3w/gj2ePL6/wP5KHt+TYF9nT+b7EOzH7OGc7zZ7jvHdC/Kx57sV5GPD9xvY
+7FJPL7MN77fgX988H0H9lTax/cp2FPR+S4F+zf94Tsj9IM8vj9xpPP4zgR9
wgfflWDPZm/nOx/s5ezJGfOIM0tZ52Nf4nxs0s7H5i8/7+p/z8hC8nygPX72
Fd+b5LyzUrgxE2eUm6xzZlllnfPEDcL1wrP4y6qN2Tgj3CNsdJyfFJ4wd56y
zhnoXmFTJs4mN7quEa5vRSbOQ6uFm80R0q7LxHnnLuHOTJxv7rbOOWaDdc50
64U7zDP8P56Js8tGlxvjuleZX9dk4nd68Pda68PsE50z2i1u00T7x8eRpdEv
5vgxet1IeDoT82+b8FAm5t7D1pnTW4UtmZifD1mf4bQHheo5rc3CicJ+GtO+
Qh/hBeItmRaegwfZGPfptnsgE+vBo8IjmZjbpN2fibPnZo87c4y6ns/EvH3R
en21vUJpxLNSafhg7s/3+D0mlFP6M5nYX+c5DX+cBe+zj2n2iT7XbaH/5zrm
8ONMx+f2TJxrb/X4ct5cJ9zmMf5G+Nox2C68ZS68I7zt2H/rcsR+l3Xa9I+w
x2381zrt+Fv4y+3aYx3evet64eJ71q+zn+3mBP7fzMQc+FD4wBz6yDrt/lz4
LBNzhvz3HXt8/pkJvr9vH/xG83XhtUzwib5+lQku4ueNTLyXQ/6rmfh95xu2
ISb/uW/MK/5oeW8m4sNcLJuNePws/OSY/Cr8Yl7sts5a+4rwciZ49Jvz+LyX
z0L4/IS1+6VMcIV7whrHjHvCWuvj3X/0pa4Pm0rmb+9scOIXtwne/yH8nok5
utf9YT6VyUZ/mEv0A32Zx4C23us+/ZiJOfSn64JbPwjfZ4JrP1pnzn9nfmx0
PvoW+6fPFd3GXkJloZ/nXhWhv3XiX0GyfDZiUCpZzEa7CpL5bMSN/HLZiBWS
csSQspQjxg0kDxC+0Ov6kvWyMSeZ38zttz12tIs+U3eSjRhks7EWML65bOif
6nUdydrCDr2uJVkzG9ysIVld2JmJ/P2zMWatJQ8TPslEGjZwt2426iKG+MTH
do8R/WeesDbRvo8z4QcfxID6WmVjXJEts8H9w7Phj3g0lTwoGzFoItk4G1xs
IXlINvjRXLJZNmJGfqNsxJy0g7MRQ+rAvpbWysHCSUINYZDX0H7+DyB+Iw0X
sMM3c5sY0wfmXMNsxIO1Az8HZmO9aCN5ZDbWiCOy0Qe4Qp8O9XxrL9kuG2sQ
dtQFj0lrm401hjqwh/v0j74xx6iDPn+ZCS7AA+YzdvhmfSQPjrC+EMNq2Vg/
qpqb8Km70M1cPN46cTtOONa87GY957Sujvdg4SS340xhgjk0VBhirgxxuazt
uphb2A0yF0nrnI09qZPQ0ZwbKJxofgyyTtsHZGNeVXP+AMce/2eYZ8zFntmY
Qz2EE7IxN46xj7R9opc6n/6Xt10PjzX1jXfMznI/mzltnDl0mnCqYz9aGGVO
nCKcnA0Okj/GHDpdGJsNvoyxDWvV0UKHbKz91dxX1rKjssGVMs4/ylwZZR/s
B8QTXh5gnyOzsS6MEIZng0NThMnZmGdnC5OywceJ7tvhzj8nG3N4mGPZ2mnY
7Ov40Nb69oOPg9wnxuJgjw39bGU/+Dgu0ZlAmJfEHv6VOcoewBrEGkOMlwvL
HFvkFY4xcqnrXSPcap/IW+wbudrxuU1Y67En7Wa3a63t4cEsYaa5MEeYnQ0+
zrUOZy+0DvfnWWc+zLfO/FhgnfhMFy7IBh9vF9Y5ZqRN89jNcLlj7HOWx3Wm
8/q7r5c79tidn435eZH9MaZ3Cuuzwcs77A/5lfCldeQX5sEK4TrbfO1yv8ED
rXmHCruzIVsIf8AVyVbC79mQlPs1G/mH5CL+NwjXZ4N3N1qHlyutj3A+vsc4
Dquywae7hbuyMc/WOWbw+ibbn+W20ifWkauFq7KxHlyZDa7A0WuFa7Ixl1bZ
fojTsDnJdthwprhUuCQb+/Rl1vt5vC8zXhRecB7yedsgn7Ofj4QP7Q/5gduN
fD8bvNshfOyxIO09j8HHtie29wv3mRMPCg+YB1usw4ut1uHKQ9bhzjbr8PVh
61OFe4VN2ZgfO4VPhHOddo9wnrDZ5S6wT9pxvttC3hL39dlsrB/YbXScPhc+
y8Z8Qn6ajXn1qf2xZmxwjIntF7YhBq8Lr2VjbSD+dzpObwpvZGP9XSwsysa6
vDAbvO/tGNCuXpYXZ2PNvtg2J9gOmz+F1rngMVx4yz6ush/acYNj8m421r+N
bvctHjPiB3ffEd7OxvxBbs/GmvSK8HI2uPNSNniz3P17NRvcf9f2y5yGzVLb
YbNHOFJtPEL4OxvycOGvbEj60M6xOc9x+EH43vH7SfhReFooq7JlchGzEsl9
c9G/KpKVc8HBqrnQadN+kpVy0Uby0Yn9z64XLvxifZP9/OBxwv93wlPZ8MlD
VR7V63/cp8eF/4R/s8Fj1prdHj98VswF5361D7jwrfBNNvi423kb7GeXuUL+
1+bWLtsw56rlom/MK85z3ImJ4f65OOsx3olkLhdxKEjmcxGrYi70th7jqeZH
aS7y2jiNOcSdk7PvDt9ndlrnvQHOtZydVzv/Y5/jsGMOPSHs9bjAA/zTJnhZ
XrJcLtYS2k5/WCdq+nwKF+kH+jPZiC3xhkP0KZsLXjKuFXKxbmUk07ngJfno
zOlULvjBekY+OnMC//SZ+9hn3pufzEZsafcjju3f7kM7xiwXMUa2yUU8Gkke
aJv2uShHm3oJPd3PHsIJHt/jhe7mRG+XK3U+ecS/iWTjXPDuoFzocLFpLnS4
QD6+4W4zyYNzwd3mudDhGXsXOlwmv6nnQB/7Zl9sIHlALtat+pL1csE7+tQw
Fxynr8xbuEgaNuy32NX3fOsn9HUseW9mgDmK7J+LtbOuZB3H4Bihk+PUReic
izWV/NqOcVfnsc6SBr/ZA1jv2LfZJ373fHvYsWIt2ep88rY5DZvHPEf/MY+O
tY8St6VjLtZuxoC27uc+MV5V3I9+nj/EsJs519n9gd/HuV7WiQ7CUbngfjfn
7Ws/R+eCa+TDm7JOw+ZYnx8vFLpazhW6CQt8vqSNI4Th5sqpwhi3m7RhjivP
wBlpjo4WRjmuyFOEi4VnhWccy5Gut4HzT/a4D8nFHZI4DLVex36Gmotj7APe
TRDOyAVfxwqnmYukjc/F+ess4cxcrP2ThXNysYedLUzKxTlsoss1cR30s7XL
Uq6F68BfK9thA9dPt2+4e64wxXFYIMw3t+YKcxyDacL5ueD7VNsQnwucR3xm
CNMd79nCLMdsussR25ku18n56KwZ57nedvaD3tn+qQsuXug2waF51lkXFgoX
5YJD853HmrHIed2dT99YU5Y4tnD3UuGSXOy3UzzWPZ2/OBdrwSW2ge+X2YY1
Y5zHsZnjhs4cuNzliP91wrW54MQ1wtWOyR3C7bngFM9kuj4X3EKuyAVPV9ie
mN0prHe819t+qOum3sGu+6pcvH+xXFiWi/czrrR+kvOvdFvXCmvcB+StueAE
8pZc8IY2rssFd+5yO85w2m254PQq4aZczIcb3R/mx0rro5y/0uN0m30Ty0eE
hx1n5DbHG/lQLni2SbgnF7zZIjzoWJG2MRdc2Szcmwve3+22wrkHhPtzwan7
XI61aqnjxBp8hfWprgN/02yHTU2PHWPJ3NpgH9PdFnzAuceER3PBa9q+NRcc
fdT9hH9PCI/ngmcbXRc8Y415Ohc8fdLlZroO+nyi40lb57sO/MHvp2wDR5/L
xZoFR18QnhfeEfbTulgpCftXhJdzwdEXXY6xeMk6nHtb2G6fr9oG3rwuvJYL
Hr1hHd69aR0uvmV9qf1Q77Wuj7wVbtPb5sFnwqe54MiHwge54NB7wru54ND7
1q93GvbL3RbaBwc/sv0a17dTuFn42Hlw+hNhRy44vtP6aqdR7hKPGeMITz93
+5gHXwpf5GLufWWdufi1debGN9bh37fW4dzPwk+54NMv1on/97l47hpc/sE6
/PvR+r22Q4dzu1zvSo8T4wJPf3W9zKG/hb9ywc3fhN254NDv1uHUH9bh6Z/W
17l/9PkB21Ev3N3jeuHyP9bh37/W4eN/1rfZP/WOcQyID5ze63Jwvaz4WCaJ
ca8pWSMJLmYk00nwuERy3yR4mU0iD04lkrkk4l+ULCTBM9IoB1/zSZSDH+Sj
E9dUEvUSZ/ygw+PSJOqCx+WS0OFa5STmD/ytKFkhCe4yn9DhZZUkysGjWkn0
h9hUTSIPXlaXrJbE3CifhA/mA/WhE0/ysYGvjAc2cHT/JOqFs7WT0In3IZLN
k4hbfc4+SXC/ThLl4G7dJHS4dZBkkyRiTFny4PEBSdjDr8aSjZLgdIMk8uDx
gZINk+Af+ehwnTTKsQbxsNC95jR+qIu1jRgSb/jUIol2w+tmkgcnMR/oBzpc
J61pEnMASbvh46FJ2MOvwyVbJ8HplknkwePDJFslwT/y0eE6aZTjnLTavOTc
dIt1+H1EEvVmfb7sYn4cI3QyFzsKR5uL5Hc2Xzu7XInLdnT8BgonOvbIAY4x
sr/5geznMaLuDknMk3aSbT2m7ZPQK7tsX/Ovt9DLvET2NF/J7+OxGyuclgRn
+9iG+cC5mfdly9jnUUnMoWPd/8T56Myh7rZp4vpOdYyRYxyz0+0Pbg0XhiXB
xaHCEHNolHCKuXWyMDIJTpM/OAkukjYiCe4Os/2Zwh3C7cIEy3XCGZa3JcHr
EfZd3uPRI4n5NMjxqGU/JyXBO+zHJ8G7ce5DI/dpdBLcOsv+a9qOulo4jbY0
cx3YN3D/6NuBroM+w8FJwsQk5sAE+35Q+E3YncQadLzHupzbfkISfJopzHCc
LhCmJcGP84SpSXCH/OmO53SXgzfnuxy8uCyJ5yb3seQ5yr0tlyTBI+TFQhvX
fW4Sc2OycE4Sc2WK9Z4uu9htXyhc5D4gF7gf5C/yWNwkrHTfFtmGOTRHmC0c
aZ/4YD7Ncv+PcT4682+ubU5xfTd63JE3eOxX2R9xu0q4MgkeLBeWJcGVFcJ1
SfDsWuGaJOYr+VckwU3Srnbsr7R9S8cTfrDWnO0YwwX4uDYJrl1t36XuM+PE
PL7c8RhgP0uTmFu3CKuT4ODN7sNI9+n6JHhG3WuSWD+Wuq7TnXZrEvNyte2H
uX/0bYTroM+tHU/aPdZ2+J7r93p4/+CBJLj5q7BF+D0JvhKbe4SNrmODcHcS
nMPm/iQ4t1m4NwkeITc5tptsT/yfFp5K4gwBp+HdZNe9we2j7rs81uuTWAsY
+zutT3I+Ou8TPCY8mgRHHhEeTmJ+0AfmHNx8UngiCf4+KzyTBF9JezyJ9xge
tf009+m+JObWg+7nQreduubb7jGP8bvCOx5r5NuOA3K7Y/aS8GISHHlTeCMJ
TpD2QhK8eEV4OYl5+ZzbCgdfF15LgqevuhznM+YPc5TzGWOJvtR14G+57bCZ
47HZlsQa8Lx9XOW24IP59L7wXhIcou1vJcHH99xP5tiHwgdJrCsvuC44uEP4
OAkef+Ry17gO+rzYYw8PVroO/N1su4889nDwlyTWgq2O5Wy3/aEk+PK98F0S
XPhW+CYJfnwtfJUEn8jflQSndrncnS77teO/V/jP8UT+67gi/0mCF8g9SXCR
ur9MYt5/LnyWxL70hfVHXPZvt/VP4Q/3A/m740D+Xx6X8nntA/no31+2YQ79
JPyYxB74pX0wl35w/zc5H/0+j9nPjif1leYjrshiPuJQIR/+iFlaMpUPnpVI
7psPbuUlk3xwKCeZzUfcyC+bD86SlskHh6gDe9aUT8wD1pid1lmrPrUOX7DD
9yyPEWPDvOJh73vND/yUycd82k+yUj74WDEffYDX9KmQDw5VlaySjzmKHXXB
WdIq52MuUgf2zA/6R9+YG9RBn9c6nrQVrmOH70X+3IXPQPj86RnrfB71rHXa
crzQ3ePVVeji9pHWzTHuIZzgdvQWerk/yJ7211fo4/id4HrLO7+H232sfdCP
46zn7Qcdfh3Bdzrz0ae6knXywcHDJFvlo5+k1c4Ht+pL1nNcaXvnfMyThpIN
8sHBA/JRDp5Sd+t88BVJvcwB6sAfcwU7bOBELcma5twxQqd8zK02fMdUWEG8
iZVwneV24WrhTeEN4XrhXZdbKXxA/IUbLd8TrhRehyPCVbZDv8H52F8jvOV6
r7WftxyHJcLFHm/k4nzwtbPbzTrRTrJtPuY6bWes4W77fOSxfpBP3+BjB+Go
fMyhjsLRjiV1L8oHX8nHvqzzsSnxOGHDXNo/H+PIXCJu6KxnB+YjTnDiQmGu
bWYKMxxP0uaYH/OFefng1kLhonzwFLkgH/Omv9AvH9ya53q7OX++2zXLPhiX
2dY72w96S2GicJZjf5IwSDhEmCCcIdRw2kD3Z4gw2GNA26fng0/DhWH56PdQ
lzvUdZ8ptLCc4DEabH91bDfUY3yBMC0fnD1HODsf3EVOysc6Svua52M9RTbL
x5p7kGSTfOxRLdwP1t+m+chjfW/lfnOeOtTtYu9plI84sRc1zofOHkV96Jy3
WrpPy/PB31fzscYfnA8flR2TvubHdPeHuTjZ/WnlfjDu8HKK81j/WFdYd+Dl
VOHcfPD1fOG8fKw3i8yJI52PfVvnY9Pe44fNMrfxlXzMlWeFZ/LBa+TT5sdW
YYvb+oBwv9v+oPVpTrsvHxx6yDbw6GFhWz74+4h1uPiodbj5mPUZ9kO9cGud
cJswTlgrrLE9/wX8l8fycuEyj8sl+Zj/jNOl1uEZ6wXr0Gy3hfYxP5baHp6x
1rD2DBCucN5Ax5JxGuR89BOdRrnxbuNajyljsNljfa+wSTi4VOuoUFaoLuwr
tNOycd4+8fp8yxK/XlXQeUr4sBC/Rec35/zenP9K4DfqpB3FY4r1usM+kZ/2
79L5zW7av2NHpvy6r8eJcbnJdX9QiHlzt3BXPube7R535uId1pmj663Dyzut
r3Qd7xeCX5vdZ3i8wfXC3Y3W4eI91s/12KBPsn/qreoYEJ/BjhuxGSvcKtxi
mx+E7z3evwg/u74fnQcff3UefPpN2O3Y8xuJP/LB3d0uB+9+d7mtzv/d/fnJ
9W62H/TVwg7hY+Fmy48YW+HDfOxtcPG5fMwr5iXz6Snz8nnnLXTak47Pi8IL
5t/LwkvCKtf9oeP3gu0vd/6L5uIrttnosfnOMdglfJsPjn4mfCqcnI99l32V
tZn9m317RD72afRhTmOPHemy5J2Sj/0b+9McE8ZjlPtP3hiPC20/1fnoo51G
uaGum/nJnvR4PtaCizweT+Rjbn3uduPnE4/7GvdjZz649Z37ucB21AWPv7D9
XR6Db/LB6S+dB4+/Fr7KB/++sX6H0yhXLR9zHl5Wz8e6gF7P48X4wYlmmgcH
F4J/TSUPKkR9B0o2LATPWkgeUgheIpsXglNI7PFN2QaF4GJLyUMLwT/qpl5i
S91NCtGnRoXwQf8bF0JnPMhHZy3f18+/gmtlJPcpxDlsP8lKheBT2s/Los8H
SNYvBEdTfkYW/KUO7DmvVZWsUohzGbJyIc5nSOqF9yV+1hb8rSFZvRA8RlYr
xDxBUtcMYYvwoDDd8gHhAsv7hdnCNuEh1hxhs3CvMMtpW4WpTtskTBY2ChuE
KcI91s91PvpM2+Eb3jE2eyXPl7zPPojVBOGMQvCvlmTNQnCEWDFerAGk0U+4
WUeytjDNbacuOMe41isEp+sWolxz1z3ePECOKwS/qWP/QvAYu7ouu064rRBz
5l/hH3Oftv9nLpwqjDE/Rguj7HuEMNx8Ol0YWwhOIU8zt06zfV2XHVaIdZHf
lrUyz8a43oau+xTzZqR9MC4nW2/gfHTa106ybSHa3aYQv1UrJ/QoxHPd4BnP
ajvK4zhUGFKI+JDWvhD9pg7sKwq9hV5CBcueQnnLHo4rdviGp/2EvoXgK7JP
IeZDH9fFHaO828VdBMlz57iTIHnWHHedSvbPGsyz63hmHfeSim4L6zJpPL+O
9ZvnyTHfWLt5Jhw6azn56NxnKrjtjzue9JXzGs+owwd7F2sDawrzZ4DQ33wa
5vGq4jT6yZwbKJxYiPMpbS+YW4zr4EJwd5DLsf8RZ9Yg1p5x5ko114E/+H6S
bTjjVCuNcwn8hZtrCzFvbi8EX+HBDcL19nmNcLW5QtoKc4SzxY3m182FOBON
tuT8wvP9FgoXmU83ut5Rzl/p/l9rH4zHddaH2w86PFvkuuD12cIk84P5zxrT
ymkTC/E7S9aUczxetP2qQvCPdYd1hd9bTnG57m7jgkKcceE6v8ts7Trwd6Tt
pnjclwvLCsHfJcLFheAvcnEh7hyneV9tbMl+yx2SPZj9mfvMWJfj3jLaedyH
OFtzbuVOcrrL8b7ASO9n3PlPtt7A9aE3s90472NnOraN7B8fj7h/nNHhxJXu
D3PpEvenh/vBuDPPLnUeZ3PO9ZzP4OvlwmXm2RXCUseZ8+Z7hZivl9m+v/Mv
NzeX2WacObimEHPlLLe7rWM71Tx4W9hurrwlvGn7V4SXzS18vmueIt8xj96x
/VKXfakQ8wSft5pz213v1a77DbfxVftgjF6zfpXzXzfn7hTWu913FGIuzREe
LsReCI/Y3+72eLwovGBukXaX+73e9vOEx+CjcKHlI8JcS+qdZDt8w98nhScK
wWPk48J8S+riGZvszezDrM3s2ex7nZzGHtvFPmg76/p0lzvOddGurm4T5dq7
DuZhN/umXGfXgb9jbYdNS48XfeW5njPsgz1sdSHWETj3tPBUIbjyksdrodPo
J/PsWeGZQjwTdKbrutTj+nwhePycy7FP3mIfYx1z9MWuA3+X2A4b/iOY/xjl
P2tr+/f4/H53m+5ufwl/FqNdOclsMTiVFEMn3n8Jf7rd5GeKwaF8McrRRtLS
xeBdRckKxeBUOcnSYvCsUAwbzj5/CL8XIu8E4fhizJvPhE8LsXZ/IXzufu4Q
PnY/P7EOv74WvvJYk889Ft7jv3wxxmanbda4bnQ4/aV93OE60G+zT9oBF7+x
D7j5rXXmE3XTt4c8NvRnqPRrhWvc/15CT5fr4X4Ocf7VwmDLq4RhwnW2P0VY
KdwojBCuF1YIwy0px2cgvEfG+2HMj73Cf+ZUGeXvUwwelC2Gzpz7R9hjDpUo
bd9icIS4pYoxF8n/uxBrAbEpFmN+/m0ewCfKYg/XqAMf8BiftONxt+XfQszV
f+17i2P+WyHOuD8LPxXirPqr8Ivr6ygcbR+drOPzGOu0t7P1si7bwbzs4jx4
1k04zn2AX93N6WOFrsJu+TtUskUx/CMPKUY7kM2LwbNakjWLsQ9UlaxSjPch
qhVD572N6sXQ4V+NYuiJ/eOPvlJfs2Jwcf9i1AsXaxdDh5t1iqHDv7rF0OE1
/mt4fnZ1P9kfaEtlx5gxOKoY943vhe8Kcd/4wTp7RqVizM8Nzt9ViP1kv2Lk
cUf50Tb3Oj7o3Id2O04POobo9zlu9O9u18c8Odn8vaEYexdtxAc8aCN5ZDG4
0EqyZTHmz2HF0OFQe8l2xfBDPnGCg0dIHl6MOde6GDbwkjR0uNa2GD7gIHWg
w2t8HuG5wTjhY6TbyBw7qRhz8UphkOVyx2y8ME5oKpwujC3GGsD87uGxny5c
4LqR0+wDeb55PFOY4b6Rdp75O8P28GmA0N8cGiic6NgPsl7TbR1kDg22Dm9Y
g1hjDnIbT/O49xX6FGPOzBZmOd6k9TaH+rlcNfukHVXcln7m6BD7q2i7Xubj
hcJc8xI5pxjzcI798fludb+3wWe3NfzeBvGeJEwsxme85POeHLE8Rzi7GL+l
fNy/S+D3lo/6uwgL/Tkbv0e5yJLf0yywxGae7bBpqLpGFWN9hS+T7eMw+5lk
rhCTqcLBjjnx7uQxI37w6Fxhivk0xXWxfpwpTCjGXD/DvGnp/p1VDF5Otf2h
TsPmENthw/5Trxjzv5EwRhgtNHE8T3Ud9wqbrK8WbnZZ5Cr7IP8etxG50f3b
bHt4+oBwfzH4eJ/zJrvsBvumvpvMl0uFS8yJy4XLzJGl1pkTFwuLzaNlwhXF
4O5y6z2cv8hjulXYUow9krSFjhU+2QsHuA589LVP2tHbbVlSDC4use8Zru/B
YsyrB93Pae4r/WRdnlcM7rJOz7fOPnGRsECoX4w1YoRjs064rRjxIY09+YBi
rHeUO9DjRdsbFINr5LGOs8cPdVyHW2/s+BE3eHCHcHsx+HKnsL4YvLzL+jmO
yd3F2NMWuq1wdI1wazE4td51jXXaLcXg8lqXm2A/9Ge8+0Te2a4bf6fZDm5x
TqrvfnNOOsBjw7mpgceAdn0n7HJbvxG+dl3fWl/vtK+Kwa/vbQNPfxR+KAYv
f7IOF3+2Tsx+sX63/VAv+8z7wnvFWMuR7xZjTUe+4zF6UnjC8X5UeMTxfsz6
Cpd9uxhz5Qe3jzF+yvZw7XnhuWLw9GnnwblnhWeKwcHnrC92GuXg327hV8eG
MfjSMfhC+Fxoo7N5J2FxJv4X6Bj/F1AjvyYd2dmveUYOz5/guRBtnH6k/2+1
a2n83+pBrpP/ESOti9O7uAz/TdzWOv8R2liysrCf/5O4hv8fFi58Iuwoxpz8
wOPOHP3QOuvER9ZZhz623kx1NPDnUbe731+YmztdL7z81Dpc/Mz6bR6bz8zF
Ha63nerqKPxXjLXgBceGNegl4cVi/P8Q/0PEf6LwP2P8P1jfTNx/eM1/F/Ff
RRX8X0XwhH4vsKzs13CkSmnwpIlk1dLQq/j1nmLcrSr5v874X2bGjs/QeNbO
YMeJz9Oy/ozsYdn8XYw7GOvfH8LvwkPFuJOhUzbj8a/jmDxh7u6x/VD3qZ/b
s8d8bl8aY8T4jCmN/9Y9zp/d8bkdn99tsc/fhFr+7yb+l43//ynn/3Fi3X1F
eLkYa/er1lnLX7POWel16/eb48xVzlNvOO86z63txVjHX3acuA+9JbxZjPvP
dutXOw37yxxPYvyg28tcqmHu89yVGuYr/ztM3/ifYv6jeL1f32mZ9+syfv+w
7D7xbKqB/n898or+j+MTXHaMx7jU/1dXszTGh/+wYizz/jyUedbGc+1w85P5
1dGx4DVzuaVtmWutzDN4dZj5dKznJvOY5+vwTAieO8F/KJPG/93yHB3+V6md
5z7znv8Qw/Zw+6rreqvYD/4eL8YZDQ7BQd4P2N/vCZzrfsIpnv/DMzB4xgV9
rWlulHEa/+uEnyPMMXhaz1yt6Dqpi/pre15U8mt8NXd76ph3tf43d9z+u8z5
xuY968ehpfG5Nfdw9lrOdNw3OCehz/L8YT5xbyef/Ykz6DbncUdh38WGexFn
Zc5W3Hk436Nz5+H8h84diDsAOncmymJ/iMeWMZ7jscQH70vzGXwZdf1492Oi
12DWYtZt7LD/pxgxb+LXzNmmpfF/7tNdvr8w0+kzPA6sp+33ibFp7pjOKo3/
tOS/LWlDC/Ob/5A82pzMOUasS/xHOf8jz1rFM5p4BgnPWhlYGv/bOLk0nuHE
c0p4ZsvZpcH/qaXxLCme6YINz5jiuS/oPAeLZybxDBaezYIdz3Lh+U/UTV08
d6qry402dy4ojWdQHeu8wz0HWnvetPeY8Lqtud3WeaR3dXnSeR4MPnlWTFPb
4oPnWh1nH4wT/+va27KD587Rfk3+QueR3sb+GLOTSmN9OKs0ninFc2V4dg0c
ru850sIxgANl//fa/G3g2D3lPf5pr7XYst4eWBpxmeL4oLOm8Uyzjp6TrB+N
zKXqrnPf0v8/K7B+E+82bn/aMeF5UzxvjGf/EDOeg8U48RwenpGFpD88l4xn
FFGOM0Ub+5ogWRDOFE41p2aXxnPRqJvn7ZRY0laeeca6xbOAeBYaknp5ntkQ
74v/B5SG3uM=
         "]], PolygonBox[CompressedData["
1:eJwtkbtOQlEQRSfGCIWc2Ao0WlBIR2NJaeITMREkCnqN+MaAKOJbOx+fol+l
v+FjTc4uVvaZe+7M3XvuVHJW7YyY2TSMwnUw+82YzaJPcAhp6I2ZbaMHYDAB
61CDH94fR09gFSops0lY4bwIX/Rm0Doswzd1lvsG56r3pOJMn10J8S6gXRhC
Afr0JGgnxFkf1Avy6F4/qefRRyjBCzPa6BXk4Y16Hx1ADl6pe+iSet2Te7sM
8dvu6SLEDJ7FM2xwXoMZ+CPzHvoMZWW+R+fkzXfiu+l7Hjjn2bGrdvfO+030
NMTddblvoVvympPXI+0+q1lN9eaVLdFuiugd3IZ49n+4i24qa0m7aWs3nuEG
duStoF235CWtf/+grGVl/QeVNjze
         "]]}]}, {}, {}, {}, {}},
    VertexColors->CompressedData["
1:eJx0nHlQze/fxqNoQSjKmih7QpSILmu2pJIoSUgiRJJEpLJVipI9kUpSkTUp
Qvum7ZzTWTtbC0KWkiLP5ze9n3++M/4yc8+Ze7mW1+e+pxmjt3jabuupoKAQ
qK6goMj82xLwpfcf82IUhdT16xjLQd4aXb79HylGGTqkD9RhQW7lpVXJ52E+
f8jhWgU5XMqrDFe7CxCemz3ovocQfkpfN6wSSDBm34B36ZlizJ0p/a5jVIew
r6aL57iIMbAxf5J2fyluXh4598EAMZqmJJSYT6uDb7jVIru5UnADshZf1BVj
q0Z5mnqnCFOKgzwrtkmQMiD87LbkOrRERi1Y/LMOg3VkwhEBddj8YfqQH8dF
qPZ4ufr8dzG29GjRbBrIx86ovDyH7wKIsk+Xfp0vRdUi3SGLe7BRpbIh7O5k
Pi523a0a8FKGgUmr3OM+VWDd4oi9kxZxcZ49rPNwnhxO0SeuCz4UwaFo17Nr
6hz0yYi6Ev9eCumoIXvG3s7Fswk5GaMvsVD92dN/cqoEuyePYFd/K4Rf/xnP
nxSxMfBCzIrI+1LUHt0z0j28DLsve793HliL8X38x718K4ParsJWde8KhPV+
Fhf7txbLPa+tCg+Tw3y/+JfD0UrMejJ017koLjxuyxKhWo/jE/e+ezawCiN7
7/eILOIioNf3QpMGOaoiVtf4MOMbVOdFH2bGgz8ely5nxk9e3Xujd0wlFnve
5kXc5GKYwHJ7kEo9hsz8PlXxVwUONkYnHlnORdKvdw3viuUw6cN7PWpqBeJV
V8et4dZiZe2Uzxa75LCr3lRReLMc9VOvzbq4sRbHgx65dirK8fpCyYtnvFIE
6cxWPlDHwe4ri0xTrsiQd62q+Ix+CXxu3riSvY2DDZ9algyeIcPncsdZdhFF
KDqQ+8ywlQ3O0Nv7TGqkWHzL+afm+ELY/pSIRpxno5fyuIWiY1JY3Yhyi23L
x7fIu09D5rLxpbly8UVTKV45KyuMU89HUP9Yk5+dLBzr2BE1oacUPU/97Dsx
JA8b8ySuqzgstOfn31sgk0DxH+NvaJ5gmieA5rGjdb/Tui207grapx3tU5n2
2UbnKqFzcelc5aSDL+ngRDoUk24nSTdP0s2JdG4knYNI5znkSyL5Ykm+DCcf
D5GPyeRjCPm+hHwfSr7XUk42Uk6CKCfBlCsdytUxytUsyuEMyqE75VCRcnua
cruEcltBOfegnI+lnNtRL/ZTL/pQLyT/6NER6t0W6p0m9W4E9dSZenqRevqD
ei2iXodRrw8TB7yIAxzigD5xYztxo5y4MYM484A4854440dc4hGXXIhLA4hj
sf/hmAZxbzpxL5q4t5w4eZI4eZw4KZrSzdVy4uoa4uq/OGw/1a3ErIsFr0bD
zMuT+BAr6yi0MudtaW0LPDtcBG1hgFaCkggnLt3vvclJAvvB1uWPmHXGGhyo
bv3DnCtgVeURjzq4qMyKtLKWQe69dH/UcTEO6twsjH4qxOrOrDEO+2SIT60d
Pu2sGOMjKmVZEULUav012uMmxZjXSWpbpooh2jFeEF4kQsfiJQseeojRmrPL
+nKHCComZ+uSwxnuJ7nZ7Irio+ciTV2RrhDGzpLp4mEM33+Hb3hxhYXxH/iF
Fsp8TJxp7nhMIMPvF2v6LC56B/6SmfZf79dCQ+HE/m3L5YhkzS66KcjHVP4N
Y1tjNgYVeJsHGEkRlX7K6VJIAV4+ftMcv40Nv/1b/8zZIEVWve8H7X7lWKfG
fxkxsxa5SltWb5fIoGjavsn/ciUuV+e/+nmDi+mnLTJrmTw/P3Fi66tX1Xj5
fO36Ry48dK2zya/YLkfGBseQFZ9q4Dbgwa2UYh7ucvZWG/aXY8x9f6+781m4
8GDn2l+NPBSltQSmtsng6X4wdZWsBoa3M/pNKuBBL3DCRh0NOa7uF7xf2LMG
W26dPaDpy8P52EGSRXZyyJ0zB24uqsKvHtfUddR4SPHtVDR7IEfzo16537dX
ojKo9ZXOKS4OepVGv+mSw9LmSLmyaQU+nOhaYyGqxQCTyEivvXL4/nH+kqtT
jqeBXem+s2sh2T0nO6Rehr7pS+fbt5fgyKcH7MibHITnNLy85yqD8y3t6SvU
i+Fw0KnP/iHMd23pWZWWr1J4mr08uWdHIS69VHMKvc3GuN3zlmyPkMKyX/Cx
mL4F+IuxtxIXsmHKM9qdNU+KjdHm006356HRQLdPWysL+2wGtg35I0HgH8M1
FtPzMDm23+3rL1mI29hh4FUuwbnpi5yO5uZi5XpH7W03WbBUMZvV8ViC8/8Y
D/7PPLdpns207nta14vWtaZ9Kszv3uds2ucBOtcVOtd4Opcb6eBEOvQjHQaR
bkdJt3OkWyDp/Jx0lpHOtuTLJ/JFg3z5Rj7WkI9+5OMH8v03+Z5MvsdSTrZS
Ts5RTnwpV0aUK13Klf4/cvj0P7lNptw++0/O/1LO22Z19+IC9WIm9eI69ciK
epRNPXKl3qVT7zypdw+pp6bU0+HUU5Os7l5/pF7rUq+/EAcMiQN6xAFH4kY/
4oYBcUNtSTdn/hJnFIgzYuLSWOISm7i0jjh2hzimQxxzJO5JiXtHiHs2xMkx
xMnPxMlG4uog4urp/+fqPzj8UXPBnTOL65BmBXOl3SLULEgYMqiXBE9bp3U6
VErB4YQEt9qJkXhMaR13pQhFjg7n7Q8znFg/+0nyBzGMeMETeq4T4O2M6Wue
35Zj3u7+eoJ2MRraXt8/OV6ArsqTQfZeMlxbWjD+DHMuf48BfyLDhSiafqJk
0iQJ1Gd8rfdlvm/O6VmnHuqIoRz7LPvCPAGcCr0akp2E4EztcVTQJMG3Tcod
jnYsPBd0jaz/zMPA7M47shYZEtzG7RsqKsNhRf9vx8fXoiG2KNGNLcM+xTFh
E37n4nBJ5yH+fRZmTU493/ONBIvGejdolJdAXHPTh3WBg4jw4vh8RxmitXWn
bEurRL1OdkhyIhfS/Jjd7or1eGNj1thbj4XBfTljIoQ8pGdq7tr6V4bdy0t3
C2052Dl+2T2rOD6cHDZzWcw8BUE7z+qtYTj+w3HMpt98DNt3aWFgfxlGHG8b
Mt+qFkeebltzp4OP8KFRQ78NkGFHTPjrjX4cNNxIPDHtAR+7W/XPzF4tQ05r
m0vmQDYczW2veU3nY4dHtM6c5zJMrDfkn7GsQaOqrLdhJA8j7aOr9pjLUVZx
d1i0UxU+97hYLZFxMWOu7hnjCjkeLs1u2BtXAfPJvZe4DuXCTppjaxHH8Nk2
c47UuhysP85bXZfWYpncbpfFVxnqknQes+6VwPPX6/u2oRzcfRV06I0t8z26
NvzQcvcilCv6udl/YCPqZNx2jRIpZtXXW5eFFcBjiMeYhW5s3D2RefQV06+I
r4PmCLXykV0T93cLk7sGkeNPIyUpFibmPXv/Jxfjo7vM1z9goeXZlhcejC82
y92jDpnkolC7x++vvgw/X50YkRklAUt/vl3mk7fYfczhtuFaFkpkzj7RBySo
Sfu2L/TAW7xJ+BzguIgFlEWEhbsxv//HOJfm2UPzlNI8a/6zbjyta0H7nED7
/Er7jKZzvaRzNdG5QDrsJh3ukQ6qpFsF6XaBdGsmnfeTzimksyP5wiVfVpIv
GeTjQvJxHfnIId+/ke/TyHcTykkz5WQo5SSfcuVEudpOudpDOWyiHO6iHA7/
R25fU87fUM5HUM63US/cqRfO1Itn1KOB1KPH1KOT1Dsx9a6RejeGesqhnp6m
nvpQr/2p16bU64/EgQjiwE/iQD+Xbm68IW6oEjemEWc8iDMlxJla4tJQ4tJa
4pJSVTfHbhDHvIlj+cQ9c+KelLiXS5y8TJycTZx8QFxlEVdTiav/4jDneoLs
apgMKUpZjrkXxRi+8KBiuqcQp7f1O5UcUg+vWM/wXisk6J1inK8whI/WgxrG
m1n1mPz1jOtSVwle7tWbMjGHh9tmk8xyIuXgjfIcXv9NjIzBV1YeNhOgo/ZE
UpOaFP3XnFQy7S9Gvih9x0TjOjx9Z6phYSrEQ8e3ZnmPhXCpNBEZxDLvne/z
rWo2sqAZpuM7+xsPi7bcLRj2WYajudEKvltKYddf9qffSw70C5o+BPsz97e+
5eItY5l3a/q3VI+ebCy5t9X5ijLz/r0ui01WYN7v887aB7+qRcGpY80n7OVQ
rVmc8kRUA8HKujdheTyMt63o7aspx+LPns99YmqhtejLX38tRscw2bW7v6TI
GV//aHYVDxaHuQHtAgFW/pxw9u4a5vsrvrjX5QofHmfXv2kdI8SPxFJj3aHM
d39vjFB1Ih/y137v/ToFMMtKNB47h3mntF78Mjifi2F7Px3NOsrM08uv61Cc
FJPdTD4EZHKw/LkzKzOfj5a/igc2zZVBKVzifWIVC37Zg5YcbebB+8AWef03
GeZrsjQbs6sws8P4zODePITvGn3h6iPmXbD9zbYvRyvwY+6l0OReXKRZBusm
npfDQW1ox32rMrROM3p77y8HWn/qVasfy7BiSuDweSOLkX/8oubVERx8SAtS
2tvKfI+TP58zPVrA3Ht2LzTewsauqKzwteulMPCu+5JyMA+jc3p9nFTFQsQb
99efRAxXnVPyJb1z4Rpx8PJzDxbSSkeER5+WYMtE43nXDN7ifXhMgfZUFi5V
Z0n81koQuaux8+7XNxh94qNNBvPOWyHxG5S2VILWOI0GjsJbpE2Ly/4yhgWj
Q7fFZisluB3/6im/11s8vjB+g50+Czs/q3i7W0qgcUFddRnz+6TvDgUFzO+d
6tqnD1v57/H4f8zTRuve/8+6Uf/Y5zY614f/nGs96eBGOjwgHWaQbnqk23nS
TUo6zyKd95DOLuRLKfnSQr64k4+/yMeh5ON18r2DfH9MvltRTmZTTkIoJwMp
V0cpV3spV8aUw1WUw0+Uw02U25GU2+WU25eU8/eUc1PKuQr1Yif1opV68YR6
tJB6tJp6NId6p0G9e0S9+1Hd3VMW9XQK9VR+rbvXUdTrDOr1POLAYeKAOXHg
DXFjO3FjJnHjEnFmJHHGjDjDIi5lE5fWEZdUud0cG0Qce0Icu0fcExL37hP3
2omTBsTJTOJkAHHVk7iqQVz9F4etjRLqHPc3YOHNvTql1xheO8eM3c346RWi
b2ys2IjI31+WOjLvwLPrnV+s3MiFReYxDUFpPebeGyhYtpnJq823qCnMu0dt
2pndycOY76rjiAPP94ghCtranNjKzO92eca9JBEePdulNM9EhGE5RdflRhKY
jPu5b4KUBa0LzlWZunxcqNkfZVwgQ2jRDiHnWglqOfaBkpMc6BzW+avIfMd/
bunV5jaxED6BN8a+Oc9G/WD1czsCpBi9cnVn269KRKqN2zr7NRchAqVRRp/k
0O0YxQ/jcZAf1Nqjq5KP269NNH8YyfB7ce34jBY+lDZsL7+zQAglb7/e3n8l
eHDTSHRgqggbDV/rxfcRITXOVP2EPXOPSo3+Xpwhghh9khvNRLCP0Vo/3pDp
+1PJRM13QmxSTA/OfS9EhNTwPteL8aFPkHtlAR+8F8l/ls4Qwsx++4NDfZj7
1aWkrvN/azH9rHB/u6kAhle0j1QLmHzmTHYte8fC4jmJ25YO4zP98M+9Wvo/
HdfG+J+qguf3C0Zt37g4eThacPmtHFpPzb8finsH6R7DjkkJzDvx+IYw6/ly
/HB6dGPJuBKsd30oNXXj4GW8x1T/GYzfS589N9xXgLCxokEXnZnvV47poGVr
pSgLOMoKKs/F7UXKz6fcZuFu+WuB7TMJlIpntUyZlIsOTo/4UwdYMOscNYl7
ToKGBU6hr3rlYemvUI8TD1nY5xLrsCCXeZctzzn0/VkeUq1DY3vJWVja9Gdm
xycJQtWt7SP/MOPRKh5OP1m45qLZa2mXBEYOYbZLGvIgyDf2lbWw8Cu52auq
XQLhI/+ttefzUFXpK/bkMvdtg7FL1eslKFHPDl08MQ/TjX7P35rFwu/HLosj
Sxmdl91ZwRXl4niF7rxnd1jgDs7kjX0hwQsaD/zPeDnNY/SfecS0bjWt20jr
mtA+hbTPDtrnmX+cy5Z0SCEdLEgHKem2hHTbS7r9LerWuZ10nkM688iXO+RL
CvmSQT5GkI9LycfeG7t930i+vyHfDSgnTZSTN5STasrVAcrVccrVCsrhCsrh
MsqhNeV2FuV2IuU2n3IuopzPopwnUS9cqBfh1Asr6pGUemRHPYqh3tlT7x5S
735QT3tST5Wpp0rU62zqdQr1+teKbg4EEwcuEgeeETdciRts4gaPOPOZODOd
OLOduDSBuHSSuORHHHtDHFMnjo0g7hUS9wqJe1bESXPipBNx0pu4GkVcDSWu
/ovDguWuogl6TVi+0epl2AwpCt2/sF+q1eKzv3drxqhGaPa3e7CpVoLKDQKL
PDMulg03UDq+WY7ew2XeFyViHDEVsjYfEEA/6HpCr3ViuCVPXDKgWYS8X0WG
VVfF6P9N3FiuxsGUllBh52k+hj+NqlHcK8OtA/fyC0tLsOvX6LeHmPfLfIdV
joeY94uF/8PEpqgi5Kl+dPVuY2Pd5xVfl7GkWPBXvd8JWTUerHFKX7KbB+dx
5QNWbZRDtH9H/O4gHlpOS5YufS1gODkuo2onc9/b9GDgVLU6eFd/WRi4XgQP
5/1/5mhJcDXRYzUnXQxtu1Zp/eQ61HybkLhnmxhmxsnzj/LESFx/9Z7vsjp8
UztQc3qVGIGOfT5NHSeG72VTnewiJlcPWjxPPRPjqa1iV8R5IaqiNzmPqxFi
7t0W88/BEmwaPmzMjTYubIe/qi6OEGBLb4w3uSCF+lpLgfZHFmTf7z0W6TH3
a8GFudG5DIdf+/96VlWJnp3H/Pc84qJGwXDui3YmV6NHiDW3lmH2xI4Xa3vV
YkTilglXmHdomPdrVs8phZibY1vwJpKN4lCWcMFx5rzbNn+M65eHW25nNzx9
zMKPjPd6w/IlMH7W31LFPB85VdkrF6uyUd32KdK5nxQfBj5Z8mlVIdjx8d6N
1xhuX+n/vO20FD/v+6qvTC+CRuKJ7zFdbAz2UtCfxPTR182lMnxtMf40dHWZ
G3Dg9ibzUmxPGXz3VbgorivGZhgcSWTG4z3TK9uYcVnPPdoqgiKcdUjV9Wf8
N3+y58XkBikS/iTb91AvQsiPJqeFlWysVVEw+/JEimHsPJtrQwshe5n33vks
Gy93WLKfHpGiOE3VatXMAsQ5ryhNWcWG4t/TI5SXShH3tmLZorh8iBQ4xcPH
smFS21uVrS9FPI3X/We8nOa5TfMo0TwjaF35f9ZNoX2G0T7X0T7l/zjXMdJh
K+mQSDoc/IduP0jngaTzINJZRr7UkC+LyJep5ONL8rGKfJxGvseR763kewLl
ZBHlpIJywqZcLaRc6VOuOJRDVcphGeVwAuW2mXIrpNx6Uc7XU86dKOe51AsO
9cKUenGSenSYemRLPZpPvbtLvftCvbtMPdWinrKppyOo157Ua0/q9SviQD1x
4DJxYCJx4w5xYxtxo+tIN2ceEGcsiDMC4tIR4pIVcQnEMXPiWD/i2Bzing9x
L4O450ycVCdObiFOthNXtYmrucTVf3GY56yxSTewCWWSyoxmOylOn/+7Xvsa
B/1y5qlfEddDIWLMPVN35r7Cvfeg/SEPKQdYrr/TmPfo+pFF1cI6uAx2zp57
qw5jL/d9Put3LaR7K6qKZwlwbO7N1++EUnSt17k10ayM6fHYtcylDDqz3Irn
P5ChZSTbtetjEWqrppg0q3MQ4afr1fReiqUurfFpM1jg37eJ2iHj4ZI02vBo
B/OOKwmKKnkuQN+4FGPb00IceZ8ocmDuIbbKEzd8+SgGZ1TzoBd2dVDY0adj
6SKGv5fqXHKNmflGlcmX6ogRnjnzdV7POky7pbtjoaUUkjPZh/+XlwmHD39a
0yTCruS//okbJLhi9ffJ/Nt1uJbu//haDzFCZ8miwxfWoTJynZrtLhGYW4Le
3V4SDJF6XkjJ5eFTU6ytca0APQ6XzUlYJ8VNr5yejwtY0D8e/2KPNh+1b4cY
/S6XwW27yUrhlwq8OrD8yvbFXLy78svyVL4cx2PezLe4VoyA4C8x18HBxTHJ
E75pyMC1VmmbWpqHt7axCfHvWchZN2Pos28SqH/b1l9dWACbfQo9zx5hY/qH
b5Fn9kiRuU20fN7WEqwrdnSYcJCDpilRTm8XyDBo9Uyb9A9lqDZmH+wxuRZe
Ote9HLgyfMi45xpm9w72V3t5nohgxk9cqBxoyHzv4meJQ968Q1JZj7maabVI
MXvoV7VUjo3i/Hxjt3cwdL62afeFWtgcDNg200iOOVELI328y5Fw/P5hC5ta
GOqGfL76S4aOmaq+a3TLEJXm9qP4Gwd+t9ot2+/KUNz5aU3plRJsKFIdbM3c
W3hKervOWMnQ3uwzf+rAYjR9aZPPH8qBvtewMzHfpLhysildM6cQekcvllx/
wXDMTvnwg9vM9+h4zw9d3wpgOT7TPCGQjeX7Im6l7JfC8B/jsTSPPs2jRfMo
fOpe9wOtO47WLaN9Ov1nnwrG3eeKpnMdoXOZkw6JpMNU0sGFdJtKutmSbnLS
+S7pnEY6i8iXNeTLXvJlIPlYRT7uIx8TyXcb8l1Ovv/62p0TS8qJAeVESrnK
o1y9oVzFUQ7PUA5jKIdHKLcllFsu5fYZ5dyAcl5JOTeiXvykXvzy6+7FVeoR
h3q0lXrkQ727Sb27SL0zoZ7Kqae61FMt6rUF9foc9dqcOFBEHOhLHPAlbigQ
N04SN4YTZ0qIM/HEmTji0hvikj9xaYNDN8ciiWMziGPriXs/iHt7iXv5xEkV
h25OzidOjiGuqhBXbxNX/8Xh3GVt1hURjfjOemqTy7wfQqfcvdr5rBbF+BtU
vkmGO86BX3qdEmOSV+Zlp3gh4nMfzlau4uPMmkfRIhMh1NYO23FIRYoalruF
0ZAK/P54/N3FUiZXpxNOhDDfj8Avs8Vt9cz7QqqjqJfPhnDOANuIFCkezTp3
sIR5Zxad+LTmiiYfXen8HtOrZGgWrgixcRChXL9R2XGYCBE1qW6zVjDf3/dK
t0WjpZgdXPJmuTZzzzUecG7SsDqIzmBVx00ZVj03w6cYMd76xYzPXidEYcUw
j4JnMswPmXerJUEMl5Wv13+eK8Qyu7dlj6OZe9PF7Y5/Ica310FXfp0X4Ylp
3Yw5x8WYHFR2MlO1DnI979iegWJYDjo+N+AKH6NrlL4o6AnR7/xcodZQKQbt
iSt9foWFzKN35/7v78XLEo69+9/fi4+ena7Tq1cFyt5aBHx5XYunUw2LI9bL
ERTT4BL3qQDq7ka/xx9n7qvqkcs8vJjv5AjrtBHZBXjp4heUup+NXnddlftv
l2JfwYbXUo0yHN7mOaP/F+ZeahaTVZUow40X+dsXPqiAtdbTsIGjuUjaoJL/
Mom559j3ehE6owozMy9zDrCYe7jiGZclAjl+7r4Hw17V6FiZsHTMKB7ufNw4
/c4NOW4Pvmt0alA1Ln0J7X9Kn4flqbc26F+V44nyvu+GZ6sQNX+lU9sPLhLy
OcebX8txoWt4yc5rlTj869iov7FcVOw7uf+3Sj0uKq4ct/pmBW5F/dUwHsJF
dnRtnsUtOQwFxj9NdN/hwan+nzoDanF6YbhO5Wg5qr5vbQnuKsWC8Ekf3d5z
4OiYoqYeJ4N0ddgRFZUSHLUdGlm1kYN7Nz/kuxvIoP128oVve4vQj71m0ctm
NupDjf2Hlknhff6gRcTxQhyxPzEKyWwoTFXY2Y/x1YfG/Wm8B43r0Dz9aZ4G
mucDrRtA66bQukLa52LapxPt05TO9ZDOFULnuk46xJMOOaTDFdLNn3QrJ90y
SOcLpHM86XzrH758Ix/byce75KMu+T6dfGeT79GUk5WUk3jKiT3lyptydYNy
9ZBymEE5VKAcxlJutSi3lpTb85RzDuX8JeV8KvXiLfViPvXCg3pkQD1Soh7l
U+9MqHd86p0t9VSXetpAPS2hXi+gXjtRr9nEgRXEgVLigB9xw5i48Zi48Zg4
k0mcuUmcOU5cyiAu9XvYzSVD4pglcayYONaT3c09reZu7p0k7gmIkzHEyV92
3ZwUE1fvE1cHElf/xeEL2j7WA7fW43zVyNZhcyXYJT6wPMKCj5sfh48ovlKH
rPr+hh0hIvQ65D2vV7MYg39uVO95vwpPD404xlXgIWnrG/vOZ3K8UhlZpOub
j6BpzSHbh7KxbPSP2PZhUhT0KKkVW7Jgo3/QY3Ez8/uSaxZa32XoOftEa7px
HcRxE2Sl20VQUT/YsleV+d6suqnqoc1wziHMInq3GAHbL2z3/SVEaYbW/ZGf
5Oh8NVTzjoYER5dx+HMr+RixR679Wpe559+9UleqL0HKjaKwkxf46PNOL++G
hLkn+qUqJDwWo9BO4V1WHyGOtrg1lPtLoOue1LLwRR3esN/vU+fXMfeKysVH
kwW4N3Piia+BjN+tW5dxCyUovPPJR/86C9c+v00apcJH3ekdP4v4MpyLep4Y
tLMc3ELnHkFWtegX1eeWxU8ZxkWPWDMiNh+GgSq3zfTZyH+fMmwo874+OSIr
3aO1BPurZvq8jeUgOEz+4/dWGRz36H877FyJpfofDAXHuQgxmxm7pkOOVaMW
1ctca/DGb2Fj1lUeDjkoeVvMkuPOfQ/XnqZsJFV4Pmow5yMh5PHVX6kyzJhT
VO/6gY3WFc23Lvnz8fzyWUHIIRm0pp8+PjONjbtrW0P2uvOR/PxIrVko8z0b
G9pnzUsWvNX3fR0ziI/AEwbvsytlyFpwILdhbQ1GJdi4+kbzcP5jtGWaGXN/
rvmw+VRyFX6E6ARZ/OVi6gfnzZbP5fBTfpulqVKJSOXHU/g2zHehacgrYaUc
tXtHuEWsfochvqefjgmvxc5Jf9kNBnLYTt4cG1BSigj7s/3M+By433u/eMRF
GUImDxh5Jb4YA77Pi5uxkIOZG3J+6w6WQX+dZp/2rkIE1piPHFzG3J8r0nrs
fCgFx/zCTIUBhejk761+FMIGe9wl7YN+UnBp/Pd/xifRPME0jxbNE0nratK6
JrSuC+0zivbpQfuU07mG07l207mOkw7RpEMt6eBOurWTbpNJtzek82jS+Rzp
vJZ88SFfAsiXQeRj0n98NCbf28j3DPI9jnJyh3Jy5/9zQrl6TrkKoFxZUQ7n
Uw6DKYeulNsdlNsjlNvJlPOplPMCyvlL6kUD9WII9UJKPUqgHnGoR71tunuX
Qb0rpd6doZ5OpJ4+oZ5qUa+/UK8zqdfaxIG/Sd0ceEgcKCRu/CJuBBM32iy7
OeNLnLlInHlj2s2lQuLScOJSJHEMxLEM4thm4t4O4p4Rcc+OOFlKnLxInKwh
rpYTV9t8u7n6Lw5fXxE8VH+cFGmtwX2Kh4jBHj6zVX9wHfp9OxjqUsFG/8lt
n728+XiVFnBm2nHGX06r8t2MPAh2TFA3lbMwzafkqf5nCSw+hppWpFXDvCWz
7JUjDyXaW3uW7GLea51WCYIhddiUXliRvFGE49cqTn4YyJx3/f2W009lWHjO
5XEA8x28MP9akau5EE/tmvk9+jWg0nf2kJqDEkyq2Gfw5igPPoH5Yf1ONCBr
TbizUpwEP2buXn/jK8MDMxgmLqtHUOxEvSojCR6xEmtubOMj5Kv6aedkKZy/
1jstXCpG/5/tG9MOibC49YjFlikiZE3cbvNeTYQRVvusRq+TIO3T15hrfZn+
D779I2EqHxcjDVxfZMrAdkweX7e5DNqzT3T8VarFug+vxdbPZTDJ5/APBhZA
+Ybi8q1b2fizdeEoOwcpgq9Mf31zfAVU0o6dmMiqhdWjsw657sy90dppsG9F
DTqDVpwLzeGhpY8w8o62HENu866Er6zFeWT3fPKLj+ZRnm+zBsqQ71N85LAp
D5dDP4W0JAoQMDp1KC+AOU+X1ti8lzwsCs8dO4YtwOJROLL5f+sOtb73irlX
9W2OWoUbArxpfmo86rQUg1dO+747qRaurLBz64cJYPR20+G9bVKc+uwxOymR
DYeN6w4WMXqtO/OzdP9ZGfSmfB+lt7kGizwvzve4wsN+zhSeiylz31Zqneqo
UYWqu9OPlBRxsaDjubpygxzVWNvInlWBkMqmCZNFtUi/tTtlw145HNmuPUX2
ZTAsm7T3a49aVO6UWWUzfvcdtsrZ+1UxhtyZv/vucg6u+gTf2zlcht831qww
eVqIBz4LV9ZlsOFvMWTW5lsMV3OmPS9bXID7+7ZioS0bWy7umShfIYXVzFPy
90fzsTXtjMaK4WzYjtayixghhTWNu/5nfBrN84DmcaV5lGK7131I6x6ldbVo
n8Npn9dpn250rul0rho6l4B0iCAdnpAOD0g3Duk2j3SbQjovJZ33ks7nyJeN
5Mta8mUE+ehGPk4jH0PId3XyPYd830I5WUI5WUQ5yaBcXaBcBVOu1CiHYZTD
FsrhQ8ptC+W2g3LrSTn/k9qd8yWUc13qRQ/qRTv1oveG7h7pU4+2UI+KqXcj
qXfh1Lud1NNi6ulA6ull6vUW6rUC9VpAHDhJHEgmDhwmbrwkbnwmbtwnzrwj
zhgRZ04Sl8yJS/HEpXTimDVxLJw4pkbcm0jcExL3NhAnG4mTc4iTK4mrY4mr
qcTVf3F4zMTiJQl6zPerxT3k7BohlhT6Kx9pYfj34PwUO24J5m46Wtl6iYPk
ZSfm7Ngow6TS+NPqvApkpr4asMKUi6Ub0sfZZDE5LDF9duetEOcWFA5/XS/E
SeO29pk+Evh6rwxcy3zv1sYELwhlvnfjdHZ/1egrxM7pw+MHfmgANz78QnCe
BF4bh4zj+XFROGeU7UJuIxoXePS7wLx/zvZKfHFrcy2aeqXdXFragL+5XYF9
X0gg9l1lJI7hIrNydIBkkBxPh06sTsoX42Fg7iTfdwLMVjtjN38i832tFHrL
S0Swnr7RJvOJGN861aa0jedggYVH9pwoPsTLVo332i7D57GN6buWlWGZTNn9
8x8OvP7kJW94JEN79NnAXn+Yd43Zn1shpWy8vGa/vDVdCo37HVwjoyp8fHbs
9u8aLmRlVq+SmXel9qCPkxr71jL3MsNxD2TMe64ha854faa/M5Y2Gqkw3PyZ
bNy0XIgni58uP9suwemIjM7lQ0UIZft6cBVF+DpdvFF1owSdle7+0z1FmDfZ
Z4DaGBFe+tS4Fy1ivmtfRlWWOQrhon2A15gjRE1l4tXe0RJM46s1NMzjw9ml
7Pu7nkKU9VtgqzhTiqLkzrl9/GvhPHkdhvYR4ORNTc3pijJU3BtzOdWbBSPN
WaMXdPCwQtYvYGujDAeiusyq91Xhc3nEn/UfuXhfGTr8Z5Ecn8/cKMlXq8B4
7VbjMXnM96T/utoFG+QwPbqu2nJxKfRtjJNTnnAQvz/5qbePDGmXVSYZzSjC
xCA31Ut8NpTz1azjX0qh4FBqeb0hH07J6ppDmPvd6zrVCDazz5bxTy8oWudh
yvOLIeMKWIh2f3QhniVBzUEt3YP2ufC72M6vOc5Ci/zE8VnXJJjycDq7r+Qt
HCuT187azELxy+S+mcckMPzPeAmNc2meIzTPN5rnO61rSOtepHX70j430T5z
aZ+ZdC4DOpcanWsp6TCBdEgiHdpINwPS7QLpdpx0/kY6N5DOQvLFhHyxIF9Y
5ONW8jGIfAT5vpV8LyTfr1JOtlJOKiknylXduVpIucqkXB2hHJ6mHP6gHL6h
3D6n3GZRbn9qduf8FOXchHLekNbdCz714gv1Iod6NJd6lE49GjWuu3f21Luj
1LvRv7t7aks9raKerqZeF1OvF1Gvi4gDWcSBW8SBNuKGUl43NyqIG+XEmffE
mZPEGVfiEoe45EtccieOWRPHTIljh4l7R4l7F4l77SXdnLxBnJxGnAxO7+aq
K3G1hLj6Lw475wTG/q2qguXefP9j/XgI+nbbaHuqHGpqbZMf+hXDusz/U4QJ
B4eu2pyw6SOD5vYwZfVvPKyp/DR6QpMAT66PCLZi7iFxW1jz4CXDh3m9OgLO
Mpysi3NICxfC8IDX7qQtjXhV1S+7/osEmYHHCzU+1cI02fpOTK/3GNq/4NyY
IOb+dz9f/5gCB/nK+rxNW5rgFlbYL3e5FKujvGbsyuFgxYvfwvbX9ej96Y7d
ASY3R6ZOCutg89Dg+Ori7xsStFo0f71QVYcE7/kL+j6uQ400fMXCcVyU6eoY
nbcQgP19rY13pRQDumQvKg+VI9cs2umtbS1KRs1r5XfIkCS5rdvwrAjiGQfS
9zP7iPohG/BUKEX6OLeZz9qqYXBq2lMlbx402RsTk9bJMeea/elpzPoGE0eO
3ygS4IH+4kXHbKWwrAwdMv9QHS4++vow5JgIoiVZqdGtYjT/Olg+uF4Mx/o+
4R9W10HxJyqtmO//w3W2LZZ/xNgwNDvvi0sdbt5yuqIxW4ypN7O2/5gpxp93
zbY6NSKcPdmjLzdNjGkB2xOunhOih2//sRXVQly+tcDJ5IQEDprzfoz9zLyf
c+S1FWECFEYN9Hp0UYoVwpvj7DpY2Hh6+s7ZE/mwUFldPSyH+R6p6r/QHl6F
XcG3OcJSLq79OeZyQCaHb3Zs4KTN5XDp523+gblPxYefstNqleGyyr3QoS+L
4LTjRLxBTw4kRVOfT6yT4syzeK1Au3y8CJ0bGdifjeqvWum3NKSYHLF7xh2/
XLjPTjWRhrLQ00Zw6MFtCXRdFPMO2OZC50ahakYACx3BS/ctvcp8p55du/Hq
Ui4MJvQw/RnFgn7+AMeAZAlWTD+jwLuZi7veQ8KOXmSh86B6660UCXpnBLaI
z+RCe9iMjyPOsbAl/JHagjsS9KJxrf+ML/vPPB00z7/WHfWPfU6lc+2gcynS
uS6SDi9JBzbpcI9020y6NZBu4aTzdtL5LumsqNbtizf5Ek2+rCcft5CPC8lH
N/J9GvmeR75bUE5UKCeRlBMTylXPiu5cnaFcPaIcOlEOYymHTZTb9ZTbXpTb
mZTzcMp5PeXcgHoxnnrxmHpxkXo0hno0jHrkTr0rp94FU++WUU+rqae11FM1
WXevxdTrfOq1woZuDqgs7ebASeLAFuKGOnHDhbhRQZzZSZxZTJwxJi4NIS6d
Ii6NJI49J46VE8fCiHsy4l4xca/YrZuTs4mTJcTJY6rdXJ1EXF1PXP0Xh3vf
qwhY1ZQHlQ522/6vLEhSs+da/pKg4MrVa0td2Tj+IefGASs+pClHPdtuyjBk
v0HnfHMpeNfjdi8aLUbuKP8tJe0iXG4Inqi6ohFpk8NPmzcy9xV5WmIvNS5+
Va44/EX2HuynP+csZnSUz3h8eEQnC5tvbH4c/fU96grczAawpWgXbVs44CML
13mXlG8mNeLkiT9hR1SkaFrkmv/uai12XplpfPcYcx+5YlE2K1IMaUdce9NR
IeYbzl6xZqYAGqLQqTsdhLC9m/31wkcJ7Ax2Ky55yNz3ZNv3TR3DhdXphOz7
d+W42bZW5fyYIjyarRbQzmZj3bS9V19lSlEQYz5oIK8G/GC3Ph/f8nCpPWcr
i/kepxUmrXzSKsDHnK0+LjFCbMg/mZT9UAL1Yo1dHfMkKPzx9sa28Doond2g
209TDPOJS/rui5Vi4+bXph6LmLwrszxOnRRhyjVV/01PpND36O2gu1KMMwM+
73y5SwRd5dxJwsfMfpeM8W6V1DH3hLSwNVfr8MPpQeOpkjo89i2zPnBdBJvk
WW5uQjEC1PReRxryETlyhmDXHwFsV+x5Gfy//6fCQ7tx3hQ2mpfu+znSjI9n
u85U6qXLcKFBMKzTqRI3V3Ru7n2cCxetiR6xv+QIsXnydti3Egy4Kkzg3OAw
7+weM0y2yuA7bn/pyrUFSNrH7cOxZ8MqRXw3x0qKnMlJqmad+Wh0bdtaNY+N
e6363smzpbiubj5gZGUhlD+uX74+h409NbMvp95hzrljc0a4VjFebO/X/nIY
B6ujxefrvkvhuz1+hsy9GFXFA8NipnMgq4rSH6csw6/1H6bH/CpC01m/3Mca
HDwTlpcO+SRF/uDEnuFTiuCjqiTtxWNj94cAI9tsKdYnliy6EVqIgeWybWqp
bOzXli53vySFI41r/Ge8mObxpXn20DxdtO4HWjeD1j34j31OonNl07ls6Fzh
pIMi6eBBOmSSbvWk213SLZh0vkc625DO8eTLEPJlFfmSRD7eIx93ko8s8v0H
+f6AfL9IOblCObGknPTe2J2rF5QrS8rVOMrhesphGeXQkHI7lnJ7inI7h3Lu
RDl3oZwrUi9yqBd9qBfh1CMx9Wgb9SiJeldBvbtJvXOhnt6ini6jngZSr+dT
r12p1z7EgbHEgYXEgQDiRhdxo5i4kUKcCSPOsIkzW4hLYuJSG3GpjThWQxxr
JI4dI+4lEPd+Eve6vLo5WUGclBIndxJXXYirXcTVf3G4fYtxyoT5Fai137ax
WFqLCMvF3+Z7y9GanJWUP1SMgv0m9YqvRUi3NJ1d/VKMfV2pnIydDXDfhD1v
L0ugNyP1RNQAHtb1sO5hgQ9olqu+2PhVisOfEoyfR7BwflG9U5rVR7QH7Xz1
ylqGzA1iTqx1DfNG286Rp77HoJ8OsyyY92ECz2104hw2TliyexS8rcfm60df
ajsz73mLbTP4NTy0n39p1cp89008Vrb+77u/IHNmcC3z3V+WGXpv8e1qfBxw
cUS6PQ+trwpeTN0rx/5e84zP+xdgEc8tr/cWNh4Z1G0yXC+FzzPjUVuiaiA7
7FyieY95189QUr0+UY7Rp12qHSeL0PfxqbdGaiIMW//j9/N1zL3cJ/3O+31S
3G7K0/SYwdw7fBqk6lkMV6fF+vkayeE1yKRVvVKMlsT5o9JSBNhl/nXsJVc5
kv8E6aVIxegdXyDI2SfAKLZGaKc5847Z51Nx5LAYl6sMRv8oFqLpZqNVg6YE
h/+cn1S1tw4BLgdjiiaLsXKw/+jikwJM73ptt81HiNCPSzjrqiVwDDcX73Rh
w3D1If1hq/iYcPtGv6FxMjyIW5Wqd78CjgsiFnjpctEYohJkmiSHYGnm1ZXK
xVhs/TjpuBYHAWF/yy1bpPh1rHLlICb/mnvquSwm/0lXDdzimPwPOqCjrPmh
FM+im/s9l3FgKV8dvzhGhpTxxqEtAyrQ8w87K7ywFqtsSm/pO8uRn+AV/fxj
BWLH/RINW8iFT7W91qVcOQq3/Nxj2qcS2fabzK6u4aLPPq8w+2o5NlwOGJUX
XYFv5+5NdtRg7kG/Fu9Yd12OQ9wqpbEn3+HoBwMLy5haeOp37k2bLUfYoEP7
eBllKJ4xxn7iyFq8Ob9wflqZDF8OXf5rc7QUAy6xQovzmPdOWsc8tWDmXfCP
8fM0TwnN85bmCaB1j9G6+2jdLbTPNtqnnPb5r3MVkg43/6PDXdKtB+lmSbqp
kM6PSOdlpHMT+aJOvsSTL23k40ry8ST5+IZ8dyXfW8h3b8rJLMrJaMrJTsrV
XMpVIOWqlXIYTDk8RDmcQLkdR7kNp9zupJzfpZyrUc6HUy/2Ui9aqReN1KMb
1CMN6lHHqe7edT3q7t046t086uk76ukG6qkt9XoO9foe9TqYOKAwsJsDMuLA
oMhubqwgbkwnbtwgzuwkzhwgzowjLg0hLl0kLp37D8eyiGPLiXtNxL1Q4p4j
cdKFOAniZAFxNZG4Wkpc/ReHB9W6hWx5zYXun9Kowf4CdA6b9IR/m7nnXB3O
/xkqx894PQnzYoSdd1mh9yIBtpSrXV/Dfo/Lx4qEh0ulGLYm9MyIPmycGWP1
/q1ZM0y0HrwaGC9D/CO7lZLZ1cz7+Vizx62P4EUbvKrezfRq4LZl679UQ2nF
yj22q5vweMPDrwMXSbFzh31qFZuDEa0f1Z6IpDB1YQ+74yDGgCy9I2PnijBL
refzr0tqsWnmFdWsn3yEFhQN26opwwe3t34hvoWwb/Uvzr7D3E/6cgUtkVKo
+27uu7e2CpNNznHc+/PA7zOjueyeHLw7jYVVE0WYmbrpd5KqCMrnD5pOWS/B
pJrIlctny9BjTabdkUOMf7KQG4mVQnyY2jLXIKweZnfVR5xdwdwLnIKWm2nx
MSnO6reWagOOeyUm7PeRQNjLYcnGIB4mpd7wkEvkiM2YsuqJOvMOWrekp6eI
jwsBL3488JRiVkHvWbeNxBjyxyz43ksRolwGVHQuESHy1/nAcE0RVg1tXNKw
WoI/D9/HpH9mw6mX/8Fhx/iYvbV6zVJfGYb+0XOcsaQCZT3S3S/V1+J+ZcPq
GB85wyGr1Py/RejV+evHzkEc6KlFjg75LEXc2DwlQWMZrJP7/p01qRZX+ryK
u18rw75Pm29XDqhCbpT1qQVFXFRI/fb6NcgheiUavuNNDaQa515dfcGD9cs1
HkXD5ahjX2qz0mejcHgrOmbxsZ9zWSn3kQw5P1uMw63ZeC9Yq3FqKR/aB32u
vkmUQfWe53NBIAul+96bz/vLQ9I6pZmmMhnGQtJXplyD3AheVD8/pkflZy5c
t5Uj1ak+u8C0CjsSS/IsOVykxKsFvuDJUZzXJ+v54wr8HH7qRZgeF4+9HPTZ
yXI49X20/E/8O2gMjk8TJtTiZGfe5Mb5/x6voHk6aJ4MmucprbuL1r1L6xrS
Pgton2La5yA61zs6VwKdK590+Eg6DCYdBKRbAenmTbrVks51pLMt6byLfHlD
vlSSLwHk41LyMZJ8vEq+K5PvY8n3mZQTAeUki3Ki86g7V9spV9MoV2mUw2uU
wyWUw2TKrTnlVoFya0I5v005z6GcT/hPL+qoF3LqkSn1qJB6NJB6127b3bsX
1LsU6qke9XQw9bTmYHevtajXzdRrg+3dHHAnDjwnDvgQNw4QN3yJG+bEmcXE
maYX3ZwZQVzKJi5ZEZe8iWNC4lgDcSyMuGdK3LtF3FtGnAwnTs4mTjoRVz8R
V32Iq//i8B6nqQZVfhL4XLu4Z+LzOvwWJoSdF9VhyJbpDcc2N8Hki4HDgeVS
RCs/Or7/NQcVbN2YCzubcde6580Tj2XQl66/w+5ZjX6K0bfCRc3wmbytco+i
HKsOGVt7/6lCQt+Dmww+fcCQF9UTDxvKoPVzqO7itzUw/Q0Tp856dK2x3nVz
nwQDX2gkHY/iISdiIcvEVYRYtv5KQx0RxNNPhyoulWCvqeRGwe530I7i3z11
keFS54ihHTPkuBGYam6Q+g7v9myI0UuqxRjbKUmVC+XIDR9aHntJgOSwnPer
jwjh3Hl06LZyCdIguHZyhwxLJrmv3xsihm/YTssvl4Ww25lmnBvWgNJlXPvM
eAlzT9j0KKyJi0+PzCUpUY2Y/5GXNaqHFC+eldvte1SLHyYCadCtBqyLVx7Q
K0WCibVX746v4MJL2+Xcjv5yqP+4zMrKFePdaquhDSwBNjZUJNQ5irH33iqr
vM8iqCwLPRt+WYycukFRHVNrUTnwI1exhQ8/9pwPnKHMPadsgF/zugpYN55Z
0PWlFhvMZj3dfEyOtEVj/Ds3lWBv/Kes+T4cNN4+NVZhAfP7bSM3HNxUidOp
PfnbA7n4OuLI+qIOOc61pCTbrGTjr97MH/eX8KHwoM8ty6T//X5v9MO3XJRr
5sbXM3moqFn2YAqTh5GbBvpZhPJxdLri4B46QqQ+HLJ8yUgp3p/rupmaz0fd
5VoviZEQVs/j9r/rI8U3h8Z1n3N42GbeGiFnC7Dh22LpS+Y+4zeg4pU5pxaK
Gy8eKp0kQP1NrZLUJka/yxcqfu5iY4uxzYogGz6K9MpT3G/IUDro8Ov0xmpM
OJxgkb2Hh76/Vb9qOMlRrVqSpfysEgVzYnc+ussFJ/9pqkihHg95waY61yrg
61JcYDuYC4s9+sdqb8jx6B/jApqnmOapoXn4tO4UWleF1n1L+3SlfRbQPk/R
uVToXFI6VxvpsJ10cCQdvpFuUtJtJek2nHT2J53TSOeN5Esx+VJDvviSj23k
owr5aE+++5PvTeT7LcrJLsqJnHISRLlyplxtp1w1Ug7rKIeelMN9lNujlNvf
S7tzG0g5H0Q5z6Kcd1AvHKkXY6gX/+rRQupdPvUujnoXQz0F9TSMeupNvQ6n
Xh+gXi8iDjwlDvQlDnwnbswlbpQTNzTOdXMmizhTSJxxIC6p2XVz6UNmN5cy
iWO6xLGutm6OqRP3/Ih764h7+cTJROLkVOJk++Zurk4irr4grv6Lw4LG1qOL
YupxouJwdrg1c48cWGCi15OPdw/nfNcL+ojIkcY7pm5l3s+xCbu+adRg6JSn
h00UPyF6UIaXxiY5ylaYGGWIq8HSGsSbLWlm7g9xomFqcowfr7VMQb0aDtYW
+5/ZvMf0I/1nSmKk4FQZKPdmvm8KgXtsZsqk6Ktd+9hsgxhv1txs4puIYOCf
L3qiwEbzk6xzByfzcX2O9805L2V4U1hk2aBWCI0f/TSXn2FjW+2U9UsOSdG+
f7R1hjYXv13/jDuwQADl7WttMllSzHnw5kfPMila+hX091wjhnZyzaXv1gzv
owYkXFdshLyt49ZRxte2yl06VU5crIodmKQgbYKBsm3gDR8pw5v5k50ncaDd
1+/3A88mOOZ/GedlJYXSt9NKuQ84GD428FVbRz1C9r97e4Tx0b3nwO/tjI9G
izx+lPSWQvM7Wz2/H5Mr/fghf2fXwfgDt2HaAR50te9vtsgSYIamjVJP5l7y
7ETcdBuNSvi90gwNXcfFsVN/599ly3GzuNevP6dKsSBWx8avkIPe9WZfVp2U
4cnow7UHblWjT9zkA+rMO65txqG8Z8w7bs7wwvBzjVx02GucCQgRoE1nByvu
shRw4q74aymCU8SmwF5aIua9bXaKvUqCkfleA5asEGNrqSRlqEwE1ZrtljZx
YkjmXnmktl+Mhrw7Km/+inCQu8HTgemHj+rYKaHX6xCy6+TPr6EiPHFRVDD5
KMaeWxeNQ6cIoXL/h+TvAyHcja7Mt4uT4IYwaew5LR48e2fIlK4J4Gnq5FoV
IsVPlXa9uHI2lq9i92Xv5yM7Pv7Vo+MyTFpUll36qhonsxJUM1x4WO4ezS3d
ztyfDyxQ7ONQCc1qoR37KNNz0+EuBT/lGDE9LqbcuALv6t1HqAlroTP1ex93
T+Z+SOMVND6KxitpHm2a5yvNM5vWDaN1F9O6Kqrd+1xN+8ygfSbTubzpXB50
rsOkQz/SwZV0OEq6nSXdHpFuctK5kXT2IZ1HkC9byBc18sWQfLQnH9PIx2Hk
+2fyXWFUt+8XKCcKlJO/lJNTlKs5lCsFyhWbchhGOTxLOdxJuZ1BudWj3C6j
nA+jnHtRzidRLyKoF/bUixHUIyfqUdfX7h79q3cV1FMR9VSlqrunw6nX9dTr
OdTrTOJAI3FgKHFgG3Gj/Xs3N1YTN7yIM0pPuzlzijijS1zSJi7FEJf2E8fm
EMeeEcc4xL0vxD0j4t6/OPmcuBpCXC0mrv6Lw4+TdtkGT32PjO1zbAXnpchQ
+nrZ7B0bHdNCbPp2NGO5zgrVicvk8Pkd+qv+TjWMPKxPLxv/CdX3Z0fiuRyl
JWNXbcipga/ZUIPqU82IeD74filzTtUi9jlvcRW8DV00pv9qwOPSuLGsYgn8
LJd7auzgQv7TIMPaX4SuQzcuKYwXwWOreVEcGG7oh5qYzi6FfX7Is8sPORiT
q3RRsF+GsPsDvBQ3VWNy+U2nx+Y8/J40Ng7BDMd66IM1XoIub4/6mqN1mNmj
q2ygrhi5eqo3Uu43IFxD+XPXAwnMZ+75e/wVF9H3BCZ9XryHfx+n5fVvpGid
2mI6bTIbuz2X5cWM/YDLCwq3OzD3oQE2VtdkqSyYTO0hf6vXhKfX18x+O4Px
RfYuSkWtFpY+lbszpstRHlTrU1IhhtbEeR8jUgVY0XnVfmgPETaGLdF26BTC
QiHt/FhXCfP9EffyVqxGQ6W38KQODwdfa02ZGCuHLS9mgPu9UvTP6ZFqXcXk
NULv7OVwGXpdSlsQmVmDJ4q/fLgZPOxK/rZCW0eOvmqJ5yuOCPAnJ++9zEuI
nibX3C3YEhgF3arU7iXBWsGD5h1udQiIYsv8Z4ox23X8/rMBUhj6nZt+zlSM
doSerk0WIXHy5Kg/r6Swnv0zmm8lRscQu6cLXURo7x2hfr9VglWBXfveKIsx
6Upz6UirOlyq+rKu1w6GG/a6TU/bRQg7suD4vHNiaMSVB9ow96Zi7oOdXeeF
aEiZIViYJcHKz2W+ulG1uFzwuodAQwCdrEqPR7+Z79sZly/mUTXgrkndrXyP
h6bb910SJzLvLcGZGckrKvHw6QNPrg8Xi17qV/X5Kofmt/XqhunlCDs2Xkd/
Sy0K+2cNqlKWo/epskWDb5SiOWm2WUw5B19z0/8cCpVBjcY/0fg3GteheSJo
nhKaZz2tm0HrLqN1tWifdbRPGe3Tgc51nc41jM41lnSoJB0kpEMs6eZOup0m
3bpI59Wksx7pnES+2JAv7eTLTPLRgHzsIh8nku9W5PtJ8r1JtTsnLZSTvpQT
2cXuXN2lXPlQrmZRDlUohxaUw3bK7S/K7XbKbSDlfB/l3Jhy7kq9YFMvOiZ0
98KCepRFPbpNPdpPvbtKvVOh3kVST49QT9upp3eo18HU603Uaz/igJQ4sJI4
YEncGETc6D+5mxvpxJljxJklxJnZ7d1cGuHXzSVb4lIYcSyLOLaJOBZG3LtI
3Pta2M29/+ckizhZSZz8SVxdQFzdQlz9F4enDXutlze2GVVDx0jtrzP38Myk
Y9lrqtFv0eubO80/4WDJmneDvsvxJHbQysLVLNzKSwg9afAJTQMjrjrmy+H/
26SQL67Byndx13IGfMSZhE6933OYc4Ln5nmlBj7ivkMiNBn/z2yun54vhunc
bNXelQKc3XBriOs5NsoUPs1u28jHnUOcuX+jZFg0If28e1ARXBRyVOu+siF9
eq7do1KKaRGDY3YHC2AnPyE5d4B5X1sXnFStYbisW37aaEk9rHTNLl2bzryn
pvXPSd3BR2+Lggn3371HwqVLi8YVS7H3XWPRRw02vl6J1n9x7CNzv96X8nuz
DHM8U6780KpB2709Q8ds/IDC5ZbjBZ1S7Bng1hiziwXJlUVjF5c2oIb1bHmf
FxL4O21YIY/hwsXTFlOY94iLVnTgk4w6WBsEea+pq8POfVvWVN5j4z5vYc6V
7Xz88HXy/8Lwwfz1zVCN66U4s/bHfHWGGzaBxod7MOPXN0o/Fpsx37erGZ4r
w3j4nLdK4rhIjkhNlYfKSUJ4RTa86CNg/r1inrjmqATJ+a6rv66T4u9UvSsr
JolxIzDY9xJPhGf+vzNU7eQoOHzpG08gRlqCkdTkhABzTzpYjS6S477fzmM9
ekvwZOSu3mGdfNg/1vp6pFGGy9ljmh8/FWNcuW0qW0mIyzdqDqv+lWDIpPdf
+vQRIz41/abOojpMsNt2RF8uwuNDF1/rrRTB1fKr147REpwcM8B4qTUXhamy
C2vXMt+nb04hw/KkWHohdtC6HjXYpDXqQs5BHgqSzhudYfYnSg9yOCV6B/9N
jzZynzD9/DRXvMlKjgXa4yedu1KMkJl/mseAgzMbDC+FasgwoeLJSaF9AdK4
+rct1rEx71bvDJ3VUggs5/a8xM2D7W+zZxs/sdBj6yw3HsM70X/Ge9L4TJon
neaZT/NsoHUjad0IWreL9nmS9ulH+9xM59pB53pF57pKOrwjHRaTDvNItyzS
zZl0SyCdR5DO0aSzI/lylXwZTb4sJh8fko/3yMcU8j2XfM8k369STn5RTh5S
TtwpV1spV0cpV7soh9sph78ph8sot2GUWzvKbTzl/C3lXEY5P0K92E+9mEa9
+Ek9ElCPtlKPlFK6e1dGvdtIvfv8n57O+/+eLunudSz1OpB6LSAOLCQOrCQO
sP6PvTMPq+l9/32FUtJIEcqUSCGSVNypJIkGSRKKJEnGQgiJNKBCKiolc0IR
KpExSRp3ezfuqVFlish01ufs9+eP03U5vud3ftf56/zVdT1/rPWs+36/X61n
r+e572MibuiDG17gRpaWiDMzwZl8cOY9uPQeXAoDl+LBMQtwTBYcWwfuRYN7
quBeCjjZAU6GgJOy4KofuHoLXP0Th2fcbtfSU+ogN0/TUYeY/yshkTnap2dV
0BqOt+GBdR1k+2S39etljbSu7kdkyCIW7YrouyRItYMk+/xQLIkS0qj4IL9j
KytI2/q+mJ1CK3mr328XHuZTi9TahLefWLTwuqrz+jJmfaZtuafQrIHuVVyW
m+/APN8lzo/LU4spdkyw1u/ZbIYbgzumtjG+6Lvze9HncooLvLw2Y1s1Ra26
GtixlPk/0MRJa2fWJZ3i8nxjAy5V7IrzP59RT5vPWavsy2+hpB3vfult4JP0
oXu/Ttkx/j6iXLJCvZ0uvLJ4lRsnoPaPT+u3uJbTkvEJI0yXttNo13mh2dcF
xJcxyogcWk59nUJ1ZpxvpaPbEvcfyubTXvsULf15LFIdUnT3WayQaKkYW+Iz
l6IT0t976jPrSL3syDKDWupObeFYu9TRszelMpw2HrUP/iHdkvOGEkoqlhin
sWnOiGW5FpZCGtGq0q+rsZScd5v9mJLNoY+em1qVmfxID7yp+UC8js7uSGXF
J9eRb/2Ptfo3ePREemDD7E98Krnu21zvxnB4f1b+7zHMOs7r19uYa43kM/vC
2dP/1B3mTHBZ8KGa2tuDXy053kRLVwRvTr7Ao1vPMiNDGjl0Q3DK5uPjRvp2
I+pn0QoeJWgOn19ZWU3VbkWuEacFFHK+rPFsPJeuTnpmUb66jhrMHr+22cul
YGuq6ZZsIOHarkv2wVzqVFacffwdh2SdFpXaHq2lZrfjpvNjmP/zxXpi8Trl
pP+1pemHTjW9r1vcoXBCSC2nlik/cHpNHxunW7eIsyllcFfsnSwBWb7n147p
X0jl7wflPFCpIv1+zzfve8+nEOPXvB1FhZQ4W8i2XFhFE3VLrvqrC6iFU+Uc
EPyKznp//rZmfxWlXy8/Hj5fQLoqGsqR+19RkapZ1MJ9VdRtqdF8zkpAUzD+
GuNfMf6n6+zFfc/gvhNw3z/Ns3+M6Ll68FxX8FxViAMhDs2Ig/IgUdyGIm61
iNsHxDkKceYgzm3ISwTyEoe83EMefyCP0chjR6+830De06CTddDJeujkFnRV
CF1lQFdPZUU6DIYOD0KHrS0i3VpCt+LrRLqdpiLS+S3o3AE6J/hi4AWRLzLh
i6nwkRV8tBU+UoPvTsF3a+C7lfDpOPi0Cj49CF+fh68/wddO4EAMODAOHHAD
N4TgxhdwIwac8QNnboIzV8Glp+BSNbi0HRybD44lg2MLwT1/cO8RuLcHnJQF
J/XASQ9w1Q5c9QZX/8RhBeWrC0NcOiiwPG6f68xGcrtin678q5JuunsderOz
g+RiP8soHmL+L3Uv9i2/z6KXc4Z5Xe5op0UFt+dMZtZ71zzkNQYtL6f4ddMD
V95qohtiPV6nb/HIaVcB7+ADDqW7pZ4Z86qaHPtbfQmoriXfpeFP85Yw6zeZ
wFUr7J5TwvJTHcvlWPQ9K2jZFUU+XXO/ql0zpZaWR5QrTHWuo3TPnT/j2nkU
riMhYavXRD/m35GLCebRQ3n1AYMcGX5bfMjJPvqWxPprD27xFFBWbNfCfZIV
pHpPkL23s50U31+JtJgoJG2ztvuz3crJNX//nXHL2qktalT42nQBdTutj3NU
LaemGcWLbEa30POjDUbErL/2803GPx7Apu1nDytYPuMRJ2TOhMCOBqrnn9/V
P6SBhhzqej+ZV0Gtm/KvbnheTe6jLsc+UBLSj9Ue05bdfk2t6i9+tgxj04E9
nbPPFQmIqqR2DhpVTTmaV5TuJtbSCKcm6ZwQPo2MkIhzTOTTie0Oc6TMuVSv
9qa6MqSeLhsvUh2xvIl+n7XUmXeCRyOXSq/rGF1N30IiqOZXM+03Xp1QOI5P
x41nHd44nU3mL34MvHeqmW4/qI+rEufTxJxjM2Vusak11yZ4olcjeXWfEW+a
xaO08W7Hj5vWUJaNY2FLB4/SB8X+lOzHJZMwl1dzljbQnP6XMl+dqiFvLYNT
maPq6FJr2lVdNT7l1o+79kBQTvYXR51etrGaJgYf9zFZIaSyLJuNIadKSL97
eOMMJQ4NmRt9yOiskJoEml6zUspI44naM9cfHJqXFKmam8O8J3uuVF6UW0nc
6DtmG5Vr6N5Y+bolZQJy9Gl/6zG6itQi5avnRtVQxBqxQYPXC0i+aa3G1SrG
rz4roiR21NCp+YZTZPcJqND+Byu8P4tyv7eEGk6qoWyTOX06cgRUivE8jN/D
uAqu44brnMB1bHHfobjvUdzXEPOswzyzMc9iPJcqnmsRnqsUcZiGOKgiDtWI
myviNhpx24A470Sc4xHnF8jLbeRlPPLyEXncgDyeQx7nI+9ZyPtY5P0rdLIP
OomCTk5DV9+gK33oShI6DIMOf0KHYtBtKnQ7BbrNh87Z0Pk26NwNvuizWeQL
G/jiLHzUBR/dhI964LvX8J0XfOcNn76DT5vh0399LQ9fa8LXe8CBr1IiDpSA
A6vBjU5w4x24YQHOzABnisCZweDSUXCpA1yScBdxbAs45gSOZYN72eCeHrj3
GpxcCk4+Bif/5ao8uGoOrv6Jww/XfwoNP9pB03TsVZrvMTx3HTLW3aiKFo8J
jUz17yCtPS8uXtjHjM9xyFydxiK++55CL4N2+p54mT85RUCtk68665qWk3+e
vsPrEQyfTspuffWSS45skv7+tJY2io/KGfyxnKYN81X12FpNAp+QIf2WCSnt
R3K/R3tLqPB4tZhEPw4pzfiuOIT5PzPC76V+XSWPjh5auUrrWwMVFHKkQrY1
UBr3So/x0layDg1JLE3iU7fxUevQcyyKtFTfO/d9O812NPlyd7KQuMNG+1pt
KKfrksHutnIdFHLb6FZJgJBOuf5+fEizgkIGDI7VufqWbja3TGvezMzffQt/
YGM5Wa68OG+TXBN5jPIJdtzJI7utiWGD9lbTofWPBqhq1dFiy/6mOel1tHOh
TcPMVB655ISG36x7Tc3l4954aLEpqDFZdRFLQPf1q19F5FXQ3SLxDZRdTQ1X
mlrfDheSCe9Tze3BPDpgOcVKdWsDGeyYlXmfWXeufhArVT+iiZz3pX9+tJdH
RkKZ6Hfe1WScsXPfAV4L3bUaXrbFn0+3ZLqufdKuomUJY9PdLVopJKpsl14c
w+HvPlcys1gke2PHTLNdzeQ0snNwVTePFEfL2u0vYxPbkcx6PgnowJbgk0Ny
uHRj8bcQrS+11OZR+bSyrp6MDqRatVvVk1nIJ3mLMTxq0njbuOUQi6IbkjaO
cGH4liYnMGDe5xYG1u6ZnlBB4uM7X4akV5NiRMGte+OE9Maew28fXk2eeXrW
cxJqyUNoevnTET7lhQ53kdfiUkdr8niXwno60qk2pO9dLj1dmdp+TZpPE2JP
3y6Q49KmrLDXCQYNdKQlamqNG5+u3xoa5qPLvEdq1J4dXlJPXYHjtJqieHT+
Ypj46peMDu598Nn0pIF+v+m6r53MpbkhifG6Ixsod8a7b8abuNSvRDQ+H+P3
MN6D61zGdVJxnUO4bxru24H7PsQ8tTBPf8wzDc/Fw3NF47luIw4rEAcfxMEE
cfuuJYqbCuImOVIU5wTE+QbiPHytKC82yIs+8tKOPB5BHmORR3Xk3RV5/zlK
lHcH6CQYOtGHTqZDV7ehq/vQlR10aA8d2kGHw6Fbb+h2PnQbAp1fgM47ofMr
8MUP+OIUfFEIH22Ajzzgo43w3Vb4bjR8lwCf3oNP38Cn6fB1GHydAF8fBQdm
gANvwIFwcGM2uKFuIuJG53YRZzaAM2KvRJxxBpfOgEtvDURcqgXHXMCxx+DY
TXBP8ZSIewrg3i9wsl+SiJMF4KQTuDoJXN0Drv6Jw5+NB+l7pXdQ7szzD+UG
NNERU+srGpJs+iUeXnhvbQeVjS+a4bykkZxlo27vMmeRrWDAV5/YNhJvPHsy
Q0FAu8JHljWPqyTbDxkzZ+/h0fw+FXYTshtI61304cbaBhp2dU31vR1FtHVs
pdPnJ1W0MfHA08AgAcXHP1J+M7WKvqi8uSBzuoY01p14P8dDQIK6kkMew5l1
3Ii3O/7R5brttx0uxdVQ2Yqjnatb3pK8wm77p4cFtOn75J8tZ8ppn9iu/h06
HTRYM6nM5YWQ+G9C9JcKKkgwoeKb4eAOOi7bJ31IhJCGeo8xdberoNeLWz1k
d7RR6GDure6+zPt2UDJLc1El9Xe3HDIzSUBztb642SZwKdHn/oLXy+qof02+
4MZRFv1s3/ZZYkUNme1JzCg8ybxfrT9puOBNEdWl869Y1VaRV7zewd8xAjKJ
+jGremotWXpaX29k/i9H/B70rA/zf7luR2zJGuZ9Kvj+KFurL1y6EmE/fBzz
/3uYveTm93UtJNfGeTfFj1mXnQnR0ZxcRZvr5u1fdbCNJL/dCraRFtASqWr7
y1RJ8Vvs8w/EtpJJcpDC4yw+KWi0WL9azCL9ZRcfZ+5poiGlrxQHJ/EoJKmz
YNN3Dl02eSa+t5FHhx59XqEowaWVT7PXjHdneBh4THHF9mr6PWbHu+85tRTU
3jbPdBOj3yN5pz5eZfx6t9naPL+GMqs2f/9gKqBAtTlioVX1dFxeft8dy3pS
tlqgpq7Jo6jJ835vMROS0WK9iWksLqn1P/O7MY55vzj2eLydSgslnDjU3X8y
n8aEft7EGcqmlZe+RFX1baPBxkXPKmr5tGp4ooZPRSVNfOa3K6GxlQLfn3Ku
KeVT/ZjsztHfKkndOP1G4LIW2jNht+4FSz75KMoX1xZW0bFOv6KXpU0kvnrJ
0B+5PLo/x8XY8zSHjmJcDOM5GB+J6+zFdbxxHQPcNwj3LcV9nTFPZczTE/Oc
i+c6jecyxHMFIg76iMMUxMEBcduPuI1E3BQRZxvEOQtxzkRe5MaK8uKPvDxF
Ho8jjybIowXyro68+yHvSdDJbOhEBjrZBF31g66WQlcDoUNp6HAGdPgcut0D
3T6FbrsiRTrXhc6TofM2L5EvXsAXTvCFC3yk1iHykTZ8NAm+c4DvNsN3TfBp
NHwaB582wtcn4WtN+DoQHFACB6rBgTvgRj9wIxLcuA/OdIIzseDMVHCpFFya
DS69AsdSwLEYcCwY3PMF99o6RdzzAyflwEkbcFJMQsTVKnDVE1z9E4fTbBNi
bj7qoL5vv915YthE+dnTZQN2sCnpo+PMSusOWiPxzEZDqZHOW16OeXK2kqQT
wq8l8FtI5u7hm5XM/9/slmuRFyZUUUqJ2+cJdXXk3V9s8L3OOvI1nht2x5dH
Jna7Ol/VPaWVFinePpcqacLumYVN2Twae8bzjtOWOppyzdOsvKCO/LpiujyP
8ejliqEzrATNFNT9/vXQEcx7mNT6L+wlbLpql3Mwvaed9nU8PZw3X0jDukaf
Lr9WTi1H/d9sXtxB8ZJDLVK1GumMiVL5qDJm/axjajNSuoMkByn+qN4oJAOV
fLZ7vwra4/02NPRdCx1N6jfNbTefJC/JbtmuVkXJjqE2ETI8mhjA3UXeDSR3
N7fLSo9LLc+93087XkKmL7p0b8tx6HZU+hSLOCEFxe4+azq+nAyMNib4Taym
WYLNk51PCin2rOWA/EAese4PH9OR00BGKhsffeA0kN232YNsDzZTRP8LVqu+
8yhjTevyG8/ZdMExfnB1XRud19O5P2QCsz7fZp0yr7KCzPWmFAxc8Zby9E9V
Fi0R0MXB+3n3qYJswryTHs1oJa7s+zn5J/kUYTekIuIZi4pmyI4e0++f3xtl
Zw4ZxiOrsJbKX7drSN0w9rhEXQNljG/gxqXU0+G9xtrmbC6pF7FiB1znkM9e
4yvv/Grp3ULuJNYVPr08puxqa9JAMfuG9xnpXU+/f1RM3SfF5FHxs1x4ciMZ
SQx7Iu/ArBMXfR0z7Gc1+Y30fnkv4i31MR3re5RZV5ae+3UiXaqCurQ2G21h
9HNPKtRWU7GRmrSDE5bGV9L0idHaZ+I6qFa+XkuuqpH4A5b6jj9URX3L9jtx
DnQQ92bGqStnmHG+/ZC6D8z7Zc3y34ljmXErVs7pDCGtUy8v4NyooKYDw3JU
itvplNd0RfNqAblqWuQsO11GrRg/i3FfjCfhOo24jh+u8+99ebhvE+77p3l+
wHNl4LlYeK7ViMNPEsWhBXEYi7hNRdxkbEVxO4E4H0Sc5X+K4qyFvGxCXjqQ
F1vk8QnyuBN5FCDvm5D3Scj7UuhECJ3sg05MoKtc6CodujoNHSZCh3zocDZ0
ewi6LYBu/aHzPOh8NXRuBF+MgC8c4IspL0Q+8oKPWPBRGXy3EL77mCXyXSJ8
Ggef1l0U+VQAX8vD14vg62ZwIA4ciAUHLoIbO8ANKXAjBZzZDs60gzPV8SIu
qYBL4eDSDHBsBTg2HhyTKxVxLxLcswX3tMFJFXDyBDh5HlzdBK7mg6t/4rDh
U9u3ygUMh+XuSZssaKKucUdsrC6wyVI+6Fq4NsO3wune6/KFJIxapnWqgvEd
93Z91LRm8nIVs1vWwKNRZc+ObhrLITuORe7a0Rw6vP76i+lza0njqAE/poxP
q23EP9odekXrZaxikvZX0Tn7ocUP5guoSVe5ZfF6HrEDOU/r0ph142K9nNGf
mPcBiz0HK7XbyODot8pJbXzyYomPy2fiMfRx64VCww5SkZ5Z27dRSF6Z8hta
dCrJlW2StMSrg/IeHVnAXd5Ilecbtqcx7wnDx40+4Misd9T7WO6vY9Y789sl
Qy4w650HVbpzLcyaaXZY2fGDQh75PF0jNV6ZQy/27342X7yO3FIPWG9NZv5/
Lz9m63SDWe8H6/zYcOklGbpf+dHwnUVBRybsqebwyVf79ZwGNQ5NZk3MizSr
JfNrfUe/ruCThkGFQoCbkDjVuQOMeFzKnVXwM8a/lrbH2k/a+byV+qu1GLU+
51OJ8R2r/BEselt5bb6MfjstrHqY65IsoLsam3y+mJVT98Ie80VJb6m2w3jN
4I0CWnOWr175oZws7tgNeLexhRznhUhWLOSTy5GmfpUZVSTxJWih6x4B895a
Ui8XxaXhqceXFgbVUYly2NPXDnXkPnOH6pC8OgruqxPjdppHD00Wm8WdqyXj
cQaLd+yro+u1c97kv+JRrfDSq9QCAT1Kp7d117gkqzltsdqEOgoYXiCv1dNG
CbMv82SmCWjfhfoT4rcr6OzJUXdeHeugFactgqRyG6lnasnk0WZVZP9Nc9tD
m04afcK2riWmmaJY9lNYNTX00XmW6rfYTtKXCOveuaSFtmvNf+J7u460+0o4
r/XpJEr3i5Nqaqb4pq2dA5n5+XfPLPzxroMCj4nPkLjRRHKvXjfeO8uh8OVr
clIYrt7q36o4iuFqvndxaNh71h/Hd+E6h3GdUbiODu5rifum4b6fME8DzDMA
81yI5xqC5/LHc8UiDo6IgwBxcEbcohC3y4hbLuJ8G3GeijinIC96yEsW8vIe
efRBHncjj2rI+0rk/dd5Ud5doJPl0IkpdNJvkUhXPOjKAboSQIfW0OEj6HAJ
dPtzqEi3n6FbMei8GDrnQuej4YtB8MUy+GLsIZGP5sNHkfDR+AMi3wXBd4Xw
HR8+XQCfmsKno+HrifD1evh6JTiQDw7UgQMq4IYcuLEE3BgOzowHZ2LBmUfg
Uh64xAaXLiwQcUwfHNsOjhWAezfBvR8RIu6N5ok4uROcbC0VcdIGXB0ErkpH
i7j6Jw5b/Kp5NJwZD0qK0XBgxgc+Hqm0759+kunVLWLM/6lc5xMHI5j/U0Mr
F8xK6ltBB/PO9Yu60EgB7m+zdy3mUf+tHnpuX6vJwm/Y0cTPFTRxQ1hT3Otq
6pyrqZ0rK6Q3uRe3T/EtpdT8R0WnwjikzmLNShdvJKGCsrpjqoCOqcy+q5bE
8ORZQXzR4jq6Erxow8Zvb2nt8S9++RECah+k19kQUk4ji+/YpzPrgvFad6Vn
M+uCSXrrXhgy64L5S/N1t27uINlf5Te0NjN+zEof1n2IRS8Oxd3+XdJOVlvf
7w/lCWiGzNtojytlpCK2dO3FuEZyNe9/br4ts+5/qNGwWrKGxhg4BnosZlNe
97cuvx81NHastM4meQEdrNu3rC29kBI27LJVnFtFV7tnrApXZeYVY2/x1bae
xvKffFBQracLx95Xf7FhdORUuu14RhP9OHXylEQG875k2rBkRC6HEk4H7jmy
7S0Vho6Yk7lCQM+DN3Yv0KygbgtWxqXKdppjd2SPboeAYq6t6TR7Xkbnr7ha
lR94SzbJQtX7qwX0u2miaeCgCjrcd9GM6APNFFs66cPjHh592XbKI7uATfyZ
edsWTOBTpvzWF41DuRSR1OfBJsUGcu6vXqnJrEcLHcKdPi6to+nBY63fMOvQ
nvffn/jwGkhq1SRlrdR6Cr7M/vKFWZcHiV8174loIqtz0k6vU3l0Xr5Ic2EL
h85Pj5Aq6tNB7ybY2h1hfKnV9Mt9qbCc7np++dql2knJqexrnUrNJHOze+OR
k9XkljZ4x77KTnpRNq65oL2F7uss5t+Y2ED9ucmcmYrv6O3iQ3VqQa1k0+fK
aDFbLh1Zq7z8yoNOujpqVLLeLea9Q35ucdPpepKYVDxAUq6TalS6XIb2NFHK
Qb35H52qaWifQV/Yuzvo1LWU1MsRjSTGtTp+qYhZP2M8DuPSGO+L6/BwnQxc
Jxz3zcB9x+O+UphnK+ZpjXmuxHM9xnOl4bluIQ5RiAPvhigOiYgbH3Hrh7i5
Ic4miPNLxPkx8vJppSgvp5CXDchjKfI4GXkUMxLl/QHy7o28p0AnKdBJJXRy
Dbqyha4+Q1e9dXgKOjwO3T6DblnQrTZ0/hk6HwOdn4MvpOGLHPhCHT7aDx+d
gI8C4bt6+E4avjOAT9fBpyvh0yL4egl8vRS+/pcDcuDAU3BAHdwYDW5ogBsR
4MxycEZ+sIgzd8ClQHDJEVzaBI5tAsc+Voo4VgvuuYF7+eDeHXAyApws3iLi
5EtwtQhcnQOu/onDnuwvL34+6aDKR8tu9Z3TRPKpurM/hrPpY6Dx1Ret7TTN
vd+6vRrM+2DDZg1p83LaYKX4YPoiIWnE3zpTXM2l4leR0ooRtdR5NDP7zJ5S
MncQHoiN5tBLrQ+3fPsz71OxZ9WTxldS+dyjOw83VNO15OBteT8F9DFf03Cp
VyPllm1e8XkWj77eOavralpDan3zlCYJ2kk1fYHPTzkhGTZ5XhqhVk7mTw3U
EoP/eY/6FngqpZESjy7eJNWniu4/4Vj4MXkZNzBq/WQmL4OW7rKQOcyiLdP6
H5AZ0U7KP+0j5sYJaOGN+a/FVpZT6ETdNz1DmffpwXR8WwGX1Cam7931spas
3W9xvsyvoKl13hsto5h55o45PIWE1NY90XmYbgmZOXbm6rPZpPhkhvqSDUKK
vjRln6w5jwZamot/iWqgobf3yCgpcKnAM6gwYGcLxT/aW3rEnk/T4mfyfC9W
UddCjW0bkttJbNldz1cvBFTR9LvD9XEZZT8+0PKyuZ0uy9yROKgmpANtYck3
DcopJy3G56PBW5LeMXCTl5WA+u9asTnEp4KMC9YukE5tIl2LCfzmNB51+4ux
p7zmUKvh6oupQ3i0dOqeDK3tDdT4OvfR7/Fc8nlRqLNzSg0dawjdrvqrlqqC
dil8mcEnFYuZ/iNtuGQvVChbJ2TW1xn1FTOTmfd9RceatOYmSo6ImHn9KY+M
Q93OXt3LoRINehzOcGblNrnzzauEVL4ypLmAX05OMg73zSQ76caDB7K3mppI
ILtGUDKumnbp3l3PTeukw6ey5xqHtFB2U8rjysn1tN9+nktcTifFvBudJJ3W
Qnt0siePCK+nL7/Ht+UqdFLemKrDfLFmOlp0eufzddW0hYrqlrW301azd81t
mkL6MPrh128O5bS+37VrDyRaaOrlJNXx4/n0XEpsRe0UNu3EuCHGb2PcH9fZ
h+sojBFdpwf3fYH7puK+BzDPeMzzMObph+cKwHMl4rkWIw4XEIcixKEQcbND
3G4hbrGI80nEeS3i/NtclJc5yMtw5GUL8hiJPLKQR+mZorz7Iu9lyLsTdGIA
nVRBJ6+hKwXoqmunSFe50GEadBgGHQqh2x5nkW6boNss6PwEdD4fOt8IX3yc
K/LFFPgiAT5SgY/aH4t8dBO+c4LvjsF32fCpC3zK1xb59Ch8PQK+1oGvc8EB
XXBACxyYA24EgBsnwQ1lcKYfOCMLzjwFl9LApUlZIi4dAMeugGNvwDGHYyLu
7Qb3voJ7yeDkVHDyGDjZA65agauyXBFX/8Rh9VTzgA15HTQqb+g7lWlNFPzN
ZMK69Wwq7mOZ8vJNO7lc11gcVC+gybcWjOInl5HkutP9PGcLaNFXWwur3Qzf
AnPaz79i1s12DueUUopp69P2ig8r2HQ5Zt9Zq75CGhc3nXNZgnlPVzWJUuHW
0NaQAnFtLWY9Nm63r+7dJnrX8/5bciaPts2SunIji0Nnn+VNcRjQQfVRC+8u
3SakyS8TT/5UqqAXunJrMmI7aL7KoOkFFY1kFPRh6qF9VTS6TMI92KeDdG51
T17i2UgbblqMO7ORRYO1l7Uker+lkTM6NkS5COj8sIn+zydXkOuiNY2HuHy6
6VS409qFSyfXZXyUMKonDaUN4erapSTzoSv3qQeHDOYt3lvME5JztNdnfncZ
KUjMNfFXq6aiay6HjqcIydPdPb2rkk873Xn5J5y4NO7N+EObLOvpBu9ev1+5
rWSerxlz8gmfvqrfeNI4nkWTlHU7Chvb6eVi92OHBgtJ7ap1uJ12OV1srZ68
iVmvdb9Vnj5yipA2+u3/bO1TTi+e7pL2FLaRieWKu2snCmjNLofJp14z/z8G
bReKv2sk1e8xCvM38ijcNueSVEo1GVzzMVszjUtGOxxW9i2vp9FFJnVPbzDr
3XULONGKHBq7areuDdXSI23j4iNVfMq5epK/agfzHva7zfpjYR0pNBkVnIvg
kfluDYlrHkLqeTNfPZPPpf6BBgevbKml7fGuRjf2tJFhUenjj5ICuud2Z+eh
eZU02G9z1xmLDgovCB0ZKdFI+ze12+v6V9Le15FiZozeIi9Uz55MTVT5/EAf
z5B/fm9X2v/0Ugdt35G416+nkdZe3LL/c20VmQx6M1zmWzv5OPkfOj9XSFWC
PkMvJJfT7/x8hX/2hVb2X9IcHCyk5xmqZ2JmVVCqEv/a27WdtLlMc0NVZTON
H8h1bdlRS0kYX4NxGYx/w3We4zrncR1T3Ncf932P+17CPHdinpsxz97PVYHn
UkIcDiEOWxAHB8RNB3HjIm7jEOf3iPNExPkQ8jIcedFAXqS9RHkcjzw+QB7t
kHcb5F0ZeXeATsZAJx7QSQ10ZQ5dLYCuLkOHPdChP3SoA90+g24Voduz0LkJ
dC6nIdK5GXzhA1/YwRddUSIfdYiLfNQKH/nDd0bw3Ur4Lhg+zYNPPeFTI/h6
Eny9A74eCw5MBQcCwIHn4IYluDEV3DgNzpSCM3LgzBRwqQFcugIuZcWKODYC
HDsBjpnYi7h3EdwrB/dMwcnV4CRrr4iTLHDVF1xdDa7+icPOm+fJHLjfQRkm
Y6qKxjWRwyFHTrs1m7ydDEycNrRTotmjay9vC+j4eg+JT+Ll1N8jaHJgEJ/K
7rQ+mT2T+T+d0udg5OV6SrMrkoxPe0XjN+03DA2vIkmfjZvfOwioQynXanc7
h1yGGDcZMf8/6vvPq5lymk9+rfIXW080k/7WYUOmi/Pp/uwV/AmZbHrN5i6R
1+wgdv7okzczhaRtemFedEYFmYwJOhyc2kHt3+8cXfKxkWZf+jTnTUEVuUu6
eX1a10EvM90et7k0UrjWyJAF9iwK1Mo6ldnURimpFc36OgLata5ahltYQc+s
ovtY9uGTb+T3QaGyjK5LvA+Pmd1A3jslvw3KKKZvbxvNPFazSWeDsmb//kKK
UJg4vb9mJTnJV4WY11dTTGF3eNEvAd3deGKRN1dA3gmcWMPbXKpNDdilNbCO
jk4MYUdFtJE47W8PkRWQcUzmXLZ+JZkFCSM+fG2nPa3XRngyHIjTevdGluGA
u9yjW42f2qnwRcmuAkMhfdIcuOjJgXJqeSM3Z1lKG40fp7Fk8iAB2QTWjp81
rJJOrxyrvc63kQqGvXuuYsqsm7rqDxvPrKHDB08v7t/EvIeWF7x6vaCeLPzq
jWtG8iji0v1Nry4xnJjU+WOGbA11m96atIItIJcnrZqeO1kk1V6WFbKkhham
tITKnhHQuICJtoEb62lNy7CRW0bVk9zgTQ7zLXhUMs3k3OYw5v+qcV6keAyX
Co83XDPZWkeHwk1YUx2byaRWq7akjUcX1mmXKP1i0yulI1vaZrTRgCHXnr/o
ZP6PmSU8XBVbSR06N+2uf2in8YMmhBhPE5Lmzasuv7eV0/MJi47qab6jubK3
1SVvt5LqMFrfFMGlTIyrYLxWTTT+FtcZjeuo4DqPcF8p3DcY992KeU7HPHMw
z1w8lxOei4/n+rVLFAdHxEENcTBC3H68FcXNCXE7jzi7IM7vEeeHyItMhSgv
05CXm8hjCfJ4E3n8jbzrIe9TkPfV0EkRdPIVOpkDXe2CrqKgq83QYfdskQ5d
ocNj0K0rdCt7QaTbmdD5TOj8BnQ+eJfIFxPaRb5whC964KP98JEcfJQE36XD
d4vhOw/4tAQ+TYRPjeHrVvh6Bnz9Ehx4DQ4ogAMW4MZYcOMjuLETnNEDZ8Sk
RZzZai/i0ipwaTq4ZAqONYFjKuDYMXDvGrjnAe79iZOSaa9Opmd1UFPpxlt5
Gk30YMWR+I0z2XS8rn7Ax0ntNE7+lltkEuOrPebsT1blFH0kt+3oaD6Z7PRy
DVHlUuzwsN2uQxuodawhR0enkEZoKxg9GllFd1dMM3v3lfn/m9CqPIJfTUKn
y51H+cx70q+NUr8W8akty3W7r3gLxVQIrDK0+KRsmrbbcyqb7rKuKpzR66Bz
ucOaB5YLSVLsvdhysUoSytv4frjCvFe8mlTa+LuRglen7tzaVkVlWk0Tldd2
kIfUlInZixtp/opvtf7EopwvHcpl59rI7/ejmgvKAirzTlOSHlFJSzcNuP0x
kkeWnROEWQUN5PbF49LRpw3U1ck7F15URCb8FMNDNcz/vw+2BS4xAtpJcVHm
piwydy5e9npODeUtSQiIuCag+IkZd+4x7ycs+++dd5n3k6eyC9bF/fN+0mes
yYEPbRRg+r1GbIqADs9a5q2TV0FnJrgOrhPvoOoBVR8zlgvpYXHyXRd2Oe2X
Pf7gc1c7qZg7nd5sLKQFald/LjtSTlZzL4Q5BDL8L7mgcVhKQDcyJQJi51aS
2CiNRxztRnpzRttw2XgeuW21vHfpCOPjjPUaft11ZB5+/+pn5u/FsgEDv3vy
mPVFZcthvzJq2Corc5HR1+/dz49xC5h1w6CvE59avKKigLmrbvlW0dmF3JZz
RgynKaEiZlwpte3OSStezaGU6x4OWlxGv2vsP+jMY9Giwx06xhY1pLpugVfw
FQFtW3un/mxHDY26NtQu0rSOBLyIghVifFI/Ify9dIaA0jwlIl/v5FKF2imb
d+V19HXwnTGB3h301OVOzFz3RkroPKUg586iFoyfxfhMjH+NFl0nCdcRHya6
jiPuq4L7tuO+X1eL5jkX8xyBeU7Fc9XguWLwXDq94nAGcXBE3N4hbh8Qt6OI
sxPiHIM4qyMv1cjLLOTFFXm8ijyeRh4PIO9DkXd75D0OOmFBJ1nQyTroajN0
dQW68oUOn0OHX6HDUdDtWOi2CrqNeSfS+Xro/AF0Hg5feMMXY+ALLnwUBB9d
hI8q4Tsf+G4FfCeAT4/Bp4HwaSZ8fQq+bv/97n/6Og8cOAwOWIEDvLMibjwA
N06CG9c0RZxxAGcawZlX4JIduOQELt0Hx6aDY127RRz7E/f+Pw9FeReDTkyh
k/i/8DAaOiyHDougw33Q7U7o9ih021vnt6HzffDFYPjC6i887APflcB3K/7C
Q134mgdf/4Svg8EBIThwExzwBzfE94i4kQVuuIKHXuCMGDhzF1yaCS69AZem
gIeZ4FgeePgF3HsI7kWCe00YP41xXYzL4joXcZ02XOcs7jsF963CfS0wTzfM
Uwrz9MRzfQUP0/FcAYgDD3G4jjisQdy6ELeOv/BwDPJSg7wYIi8re/Hw1H/I
wwro5BZ0sr4XDy/9hYfK0K0GdFsL3WZB51uh82f/n4f/C/f+T9fXKngvrcJ7
6bz/R+vrf9/D3+I93Ogv6+t9vdbXO/Ce/wbrgq1YF5hiXRCI9fVvrK+nYB1x
AOsOB6w74rHuuIl1ihfWKUKsr8OxrhHD+nrWH9bXsVgHuWHd9ALrpg6sm9qw
zpqAdZY11lmxvdbXRViXHem1vjbHOi4R6z5nrPs+Yt0XgnWiKtbXplgnLsf6
2g/ryt+DROvKHqxDfbAOjcM6NAvr1oVYt/pg3dqDde4wrHNN/7K+zsA6enCv
dXQSxhsHiMbPYbwF1xmO60jiOk247yDc1xn3vYJ5WmGeuzFPIZ7LA8+Vgeea
gjh4Ig6yWF+vQ9xkEbf5iNs9xHk14tyGOD9HXmSxvtZDXrKQxzLk8fJf1te9
f4fp6rW+DoCuTkBX3tDhZ6yv10CHYdCtC3SrgPX1JOh8OnSeAZ3rYH09Gevr
Zb3W1wd6ra9Teq2vbeG7NfBpMXx6+j9cXxeDA4r/xfX1tj+srxeAY63gWP//
4vr6398tR+N3y0N/+X7U/w/fj4J6fT+6hN9Rx+P70dxe34+s8TttC36nDf0P
vx9Z4Xdgg17fj3Txu7EvfjdWwe/Mo/A7czJ+Z16B36Vv4XfpE/hdegJ+x5bH
79hG+B3bHt+P5PD9qBi/e6/E7+R++J18Cn4nv4rf1c3wu/rPXt+PCvE7/PC/
fD8qxO/8s/A7/yr8zm+E7wJq+C4QhO8CJviOMBvfEdTxHWEgvjtMwHeHXHx3
KMZ3CgN8p5DBdwpnfNeQKBF913i3V/RdIwzfQQjfQRLxHWQYvpvE47vJRXw3
CcZ3lnP4zvID31mu4rvMfnyXOYjvMrPwHWczvuNw8R2nDd99kvDdZw6+++zC
d6K++E6kLiv6TrQd4z2lovG+GBfiOlG4jsZfvh+lYZ6HMc9ozDMIz3UGz/Ue
z6WCOBxDHEIQB0/EbSri9hJxM0Gcv+L7kSK+H6UgL+OQF1XkZRDyqIM8ZiOP
Dsj7IuRd8S/fj6p7fT9aCF1dgg6/QYfben0/egrdykO3x6FzQ+h8BL4fzYYv
vOELJ/iiBd+PWvH9qAM+2gffEXy3Br6LgE/z4VNX+HQWfD0Zvt72H34/mgdu
TPvD9yMFcGY4uMQGl/L/8v1oO74f3QH3uOCe2X/x+1FvDv937b9qx/4rM+xD
KPjL/quuXvuvvmD/1RDsi1DCvgjdXvuv9mEfRRL2UWRj38V47LsYhn0X27BP
YxD2aSzAPo0Y7OtYhH0dsth/tRz7QAyxD+QS9oFwsG/EEPtGpLH/KhL7TAZg
/9Uw7DN5in0psdiXYoh9KZ3Yx/IL+1hq/rL/KrvX/isZ7L8yw76aKdhX04l9
NR+x/2oF9uFwsQ9nO/btRGHfTiX27ahh/5Uj9vkMxD6fJ9gXdB77gvSxL6gU
+4hWYx9RLfYRLcO+oyzsO/qCfUcB2Kd0BPuU8rFPKRj7ms5hX1MM9jV9xz6o
V9gHlY59UAHYNxWKfVMTsG/qIvZZzcM+q0Dss7qP8UUY98J4IK4TjeuY4jq/
cd9K3LcA9/13nimYZzzmuRPPFYTnyuy1/+oS4lCKOBQhbksQtzzE7RzifBpx
dkWcxZEXM+RlGPISgDyeQB4rkEc57L/agry/Qd5XQSdG0EkRdFIBXSlBV23Y
f5UDHV6DDkOgQ0Gv/Vct0O1l6PwYdL4MOneDL1qx/2oGfBEGH8nCR0Lsv8qH
71zhuyN/2X8VCV+rw9fj/y/3X0mCM3LgzPNe+690sP8qqNf+q+Je+6/2gHvf
wL2U/6b9V3OxbzYY+2aV/nJ+IRT7cvdgX644zi94YB+vAfbxCrGPNwf7fuOw
73cwzi9UY59wOPYJj8c+4WTsK16NfcWfcX6h9z7kkdiHbNXr/MIj7FsuwD5n
a+xznoV9zmrYF70C+6L3Y1/0ZOyjfox91COxjzq41/mFa9h3XYF92sOwTzsN
+7RNsK/7O/Z1y2Nfd1Kv8wtPe51fIOwbj8a+8QTsM7fGPnPJZtE+8zDsS4/H
vvQP2JfehvMLd7CP/SD2sa/CvvfX2Pc+Dfvem7BPXgznF8KxT94P++rNsa/+
Vq/zCx3Yhz8G+/BvY99+PPbtd9/4359f6IdzAUKcCzDHuYAwnCO4gXMEo3CO
4N9zB1ycO7iJcwcjcE4hEecUVHFOQR3jKRgfiXFJXKcJ13nwl/MLkphnI+Zp
gXkux3Nl47lie51fiEYc+IjDWcStDnHraRTFzRFxNkSc2YjzHeTlHc4vxCEv
vshjGfI4CXnsi/MLecj7WuQ9FTo5D52UQyc3oSs76Oo9zi986aXDSOgwFLp9
DN3WQ7ejofOP0LkudB4OX0jAF/nwRT/4KAA+OgofnYbvmuE7CfjOFD71hk8d
4dPX8LUTfO0CX1uDAwrgwCtwYAS4oQFuDAE3doEzjuCMJs4vXAaXdoFLHuDS
FnBsc6/zCw3gnju49wjcywUnj4GTT3udXygGVy3A1T9x+E/nzubhnJoUzqm1
4PzvT5z/3YBzbSo4/7sR5+AicQ5OFed/p+D873Kcmzv5l/O/hjiXNxXn8nbg
XN4QnOMbhHN8a3CObwXO/T3EuT82zv2p45zgaJwTdMQ5wcc4V0g4V7gO5wrZ
OP/riXOIPJxDFMO5RVOcWzyCc4uuOOc4AeccrXDOcQjORbJwLvIZzkW64xyl
BM7/NuEcZQvOXdrg3GU2zl124fxvDc5prsM5Tcte53+dca5TCudAnXEOVAXn
f9k4N+qBc6NBODd6A+dMp+OcaQbOmRbjXGoOzqUOx7nUjTjHGodzrMdwjjUO
516dcO61BedeF+CcrDLOyfrgnOw7nKvVwbnaNThXq4VzuIY4hxuGc7jbcG7X
H+d2ewpF53ZDcM73Es75XsY531CMp2P8HsZ34DoHcB0VnP/tfd9w3LcT89TG
PFdgntZ4LgU8lwee6yTiYIU4PEcczBG3MMTtEeJ2EXG+jjjbIM7HkRdt5CUH
eelBHjcjjzuRx5HIuxvy/hXnf517nf81g06+9TpX7g5dNfY6/5v3l/O/X6aL
dF4InXdC58rwhTx8sRK+0IePFsFHJ+GjGTj/ewS+ew7ftcOni+DT6b3O/+rA
1xvg6z9xYDC4MQDcWAhuDAVntMCZs+BMBrh0G1xqAZf24fyvNji24V+OgXvZ
4N6n//D872BwVeYv53//Vj9nLeo8XPxL/Zxs1M/ZijoS61BHYhbqTqzqVT+n
P+rnjEOdir2oU/EIdS32oa7FS9S1uII6GIGogzGkV/2cs6ibcQ51M3iosyGN
OhuzUWdjH+pyHENdDgnUz0lHHQ991PGQQv0cCdT9sEXdj0eo++GLOiGTUSfE
HHVCwlBXpAh1RWxQV8QKdUiOoA7JA9QhOYO6JedQt6QOdUsMUeckG3VOMlHn
ZB7qojSgLkoU6qKwUEfFG3VUTFBHRRd1V7JQdyUIdVdUUKdlPeq0fESdlnOo
63IEdV0GoK7LONSBmYY6MNKoA+OAujHdqBvTg7oxHagzcxl1Zh6izswU1KUp
Rl2ax6hL87NUVMemBHVsclHHJg51bypQ92YB6t7wUScnAnVyLFEnR4jxKIw7
YDwe12HjOo64zi/ctwz3fYT7/jvPN5jnE8yzDc91Ds91Dc9liDh0Ig5Dk0Vx
6Ie4aSFuUxC3DYizH+I8DHEe3quu0XvkZRXyWIA8bkce3yHv25D3kcj7Kuik
GTrxh07+pKuT0GECdNgEHepDt0HQbTl06wmdZ0Ln/tD5SPhCGb5wgS9M4aOt
8FE9fFQN3y2G7zpQPycFPo2HTzmonyOErxXga1v4+k91tC6AG9vAjZ+fRNw4
Cc5sBmd+gDNJqJ8jDi6dBZf0wTFXcEwLHJuA+jnx4N48cG8aODkUnDwCTqaC
q5vB1cd/qZ/Thbpn2ah7Foy6Zz9Rf7IEddIcUSfNBXXV+qKumg/qqi1HHTZ7
1GEbivqTvqjbFoq6bftRt20v6ry9RZ238ajzxkFduG+oC7cNdeEeo46cNOrI
HUAduX/rzimj7lzNX+pPlqCuXRjq2mWirp0S6uDNRx28aNTB00bdPGnUzZuJ
unnqqD/JQp291aizNwz1J41Rly8GdfneoI7fftTxy0YdP0XU/RuAun96qPvn
hTqBfVAncOVf6k8aow6hGuoQ7kcdwjuoWxiKuoW2qFsYizqHfVHnMBB1DiVR
F9EKdRGzURdxDuooBqCOoibqKPqi7uIk1F20QN3F6ajTGI06jdao06iHuo79
UNfxJOo6SqIO5BbUgZQZK6oD+ctIVDdyC+pGRqNupC/qTH5xF9WZbECdSX+M
f8U4C+N/uo4C7uuH+/5E/cnJmGdfzDMG8xyF5wrDc63GczkiDpqIgzvioIK4
bUDc9BC3HyGiOFsgzrmIczbyooi8bEdeipHHaORxKvK4CHkfhbx7I+8p0AlB
J5J/qT8pAR1KQocW0OFt6NYfuuVAt2zUnxwDnV+FzotRf/IRfGEHX+yFj8bB
RyPhIyP4zgm+84DvOuHTk/BpZK/6kyfg67Hw9V5wQB4cKAMH0sANCXDjDLiR
Bs60gjOXwRkVcOkFuGQJLr0Hx66DY0ngWCS45w/u1aL+5H5wUgmcNAUnxVF/
shpc9QFX/8ThB6gbPAV1g1f/pX57I+oS/0D99kbUJT6GOsb9UMfYEHWMU1H3
2BJ1j8tR9zgGdZIfoE5yf9Rvl0D99gDUVW5G/fYY1GE2Qx1mRdRhPoa6zcao
28zuVb/9MOo8n/xL/XYn1JH2Rh3p2agjfRZ1p5ej7vRW1J0ORp3qj6hTHYE6
1VdQ1/oW6loLUdd6Aupgb0cd7Dmog+2EutmLUTd7Pupm6/eqs539b53tXnW5
DVCXWwl1vJ1Rx1sa9du5qPsdjLrfF1H3Wwp1wueiTrgR6oR/Qf3206grfht1
xSejDnk36pCroQ75SdQtd0Ddcj/ULT+JOuclqHN+DnXOU1AXfQTqoseiLvoq
1FFPRB11tZGiOuplqLsegbrrFai7LkD9dj3UaS9CnfY2jBtgvADj1bhONK5T
iOt44L7ncN9BuO9ZzHMY5pmIeR7Ccz3Dc13Bc21HHCwRh0DEQQNx+4C4qSNu
Sqjfnow4pyHO+siLI/Kii7x0IY/hyGMk8qjRq377d9RvXwKdHIZO9KATXegq
A7p6DF0ZQYfzoUNv6LAfdOsC3TpBty7QeQx0/h06L4QvJCtEvkiALzrho53w
kQt85A/f+cN3qvBdYq/67cW96reHwtfx8HUEOGAADhSBA/7ghiG4YQBuVKB+
+zJwRh3122eBSxHgUj3qt38DxzzAsWxwLKNX/XY5cE9ytYiT/VG/Pe8v9dv/
xGF59N3Yg74by//S/6gQfT1s0dcjHX09UtEHJBN9QBagD8hL9D9aib4hnugb
YoY+I3HoM/IVfUai0ZfEAX1JstCXxA99TD6jjwkbfUz2oe9JD/qeFKHviUqv
Pilj0CdlBfqqvEVflc/oq9KGPiwv0IclAH1YDqNvSyP6trxE35bZ6PPSjf5H
TujzUom+MPXoC7MTfWHk0EfmKvrITEQfGXn0nTmKvjOf0HfmT31q/tTXxgx9
cDLRB0f3L/2P8tBn5yb67ExFnx139OXxQ1+eBPTlKUMfH2f08dFEH59H6Puj
jb4/8uj7cxN9gmTRJ2gp+gRJoK9QIfoKvUJfITn0IZJAH6Jz6ENU2yjqW2SD
vkWp6FuUjD5H6ehz9Bx9jhIxfh3jLzBejess6HUdGdxXDPdNwX1/rhXNswDz
LMI8U/BcUniu5XiuJ4iDDuKgiDh0IG6rEbcRiFso4nwQcY7+N87Iyz3kRQ15
6UEefZHH08ijFfJ+B3kfh7y3Qye7oZNE6OQIdNUFXc2FrnrCRTo8DB0OGCbS
YS1LpNtY6NYIuo2Bzoug8/XQeQh8oYD+R6bwxQX46Dt8lAof9TcU+a4MvlsK
322ET9/DpwL49F9fy8HXI+HrHeBANzjAAgdcwY12cOMLuDERnJkEzlSAM+3S
Ii4dAJeE4JIe+h8FgWNW4FgRuJcP7g0D996Ak8vBydfg5A1wdSC4Ohtc/ROH
DdC3biX61u3/S//QAPTF64++eOPQF88QffQ2oY8eG330lqPvniH67t1E3z0d
9OlLRp++B+jT9xJ9/ULQ1y8Zff080AewEX0AP6IP4Gr0DYxH30A19A38U5/B
P/UPlUIfw2PoYxiAPoYa6Htohr6HR9D3cCT6JEqgT2Iu+iSqoa/iVfRVtEFf
xR/ow2iDPow/0D+Ujb6N4ejbuBd9G2+jz+Mr9Hm8gT6PqegL6YG+kFvRF5KP
PpKO6COZiz6S6eg7+RV9J5PQd5KLPpWh6FN5Hn0qm9HXMgx9LRvQ11IWfTBV
0AezHn0w2b36Zjahb+YA9Nn8jj6bV9Fncxz6chaiL6cO+nLaoI/nMfTxVEcf
zxT0/QxF388E9P1sHyzqE5qNPqEt6BPaifGcXuPne10nEdcxx33Dcd/huK8O
5lmEeepintp4rr5Noue6hef6gjhYIw51iMMUxG0M4laBuPUgzqcR5wrE+T3y
cgx5iUZesnr1Dz2JPDb2yvt95P0cdLIaOtkJnSRDV0+hq2fQ1UXoMAA6DIcO
X0O3JtCtNPqHOkPnudC5C3S+Er4YAl9chS9mw0c28JEHfDQcvouB71b/pX/o
Tvg6Cb4W+yTytRk4cBwcmA0OWIAb1eDGkAARNzzAmTXgzENwhg0ulYJLjeBS
GDi2DBw7CY4tA/d2g3u3wL1AcFIZnDT7S//QP3FYE32f36Dvswn6Pg9An+ht
6BN9FX2i/+0r/RZ9pQ+ir7Qz+lAfRR9qbfShDkbfahP0rR6HvtXZ6HNdhz7X
8ehz/Rt9sReiL3YZ+mL/Qh9tM/TRdkUf7Xb03bZC321D9N3+hT7dKejTvQt9
ulvQ13sG+nrPRV/v79dEfcAL0QfcC33AW9A3nIW+4X7oG+6DPuNe6DNuhj7j
J9GXPA99yZvRl9wMfczD0cfcAX3Mt6PvuTf6nveg7/lq9El3R5/0/eiTHoO+
6l/RVz0LfdUvoA97PvqwP0Ef9qno256Gvu2P0Ld9Ifq8n0Kfdz30eY9HX/gh
6Aufgr7w+ugjfw995N3QRz4RfedL0HfeHH3n1/TqU5+HPvWyGaK+9mHoax+I
vvbbVLW0I+MKKVb/Z/toqqKTyyedDlcSkG3JncN1Ti/oPmfseculLLJMlryn
bsunbzYmEqc5z8jlh/HdFR2V1H/NDM/qzzwSWygad8W4DMZdcZ0HuM58XCcI
9z2L+8bivnqY50nM8zDmuQfPtRXPdRfPlYU4cBAHE8TBAXF7grgtRdwuI87q
iHMU4uyMvMQhL2ORF/1eecxDHlOQ90fI+3Pk/Qh08gk6KYBOjKCrxdBVOHQ1
AzpcAh3KPhfpcAl0GwndLoVu30DnZdA5Czo/Cl/sgy+Gwxdi8SIfceEjZ/hI
PE3kuyL4zh2+a4VPDeFTc/i0Fb4+A19HwdfPwQEjcMADHHgMbuiCG77ghh84
owXOZIAzA1xFXPoGLgWBS9fBsQXg2BdjEce2gHsx4J4suHcenOwEJ8PASRlw
dTO4eh5c/ROHb132cQie3EpZ64wcaqP4lNv3Q6zxGxb1TAmzl+1pJyt1a+kJ
VkLa/iP8W+OlctLbYHfESquDym7MjKb7Qnr5SnPh8kcVtNd4qE55SDtF3h98
oyhPQH1esiK3c8to/yQ3Jb1vTXSvKEWzspBHPjbzNymtZ9bBX3Xu2e2tJ7mA
xNNiWvW0as3slynExHVsuIHhzCJa/zzsbmxGFU192jemdpuAVtxQ2NpnVTmp
FZ9zvT27mmQmaqYQ839mt/hYqtTikWD7hsaKwAayFv/1WnEkly6NkU5Mu9FE
wUpSnb9u8miVvu/vAw85FH2t1mBATivtGeA6v/HxP5x7bzhlIos2brJ6lqDZ
RrFzCtYta+GTgv2iM4LrlWQ4WVz4ZEwL3Tu7eOYTZv11W/DmRH8ZNi3xL914
T09IpQfZ/q9KuCQzYdbb49dryft7vNNQ8Xryipiruux7Hc0SS4/S9GDmt5jb
b3ufcvpQur3usHo1s35T0Z2QJCTT6gQFr2tFJPNI/LpdWRVZHR9zNPYY814f
kz4nOruCrvT55s+5V007rn60VlUXEl/6YlTJnlrqfPSsVbC1juQMznhZsng0
8mByqWo/HlnV3mxf79lA4SdYgr36XBrvobXt6H4+jQ+I1Is0ZNatpuFH2Ffr
6ezEiSd+PuTTwpndp2oWcanfUMcsM7d6+ih5XO4Gw7MFQb+2PJZiuB3XXjRi
UQPFlL1b2m89l9ydRrZkfa2no3vmHJgVySX1lOIg+8paKubc9P4VVUeCtGm1
Zrk8cux8vXPkCTadeZEvXqvEvCfllm7I/MEn1VC3d7NPVFDD4usbpa4x7/3n
b7hdZNZ/rrWh065al1J21s1NHH8OWeeNLRvwQUiTPjrLTbpVTCf2aamPXc2m
YvncQWVSQtIIeW0+OLGIPl2eaZzAcKP76a2fuxg+jMV4F8a/YtwE1zmN65Th
Op647yPc1xb31cY8mzDPOsxzPZ4rBc+lgufSRRzKEYd6xCERcfNE3I4gbj8Q
Z1vEeSzinIK82CIvv4aI8jIWeRyHPCohj0ORdzPkPRJ5z4VOeNDJUOjkNnQV
C10FQ1ea0GEf6NAMOhzpKNKtVJlIt8uh2wToPAA6nwSd+8IX1fBF53iRL2zg
ozz4KBE+8u3lOzn4LgQ+3Qmf9psi8mkUfL0Hvt4FX3uAA+XggDM4oAZu9AE3
RoAbn8CZKHDGEZxZDC5pgksLwKV4cCwfHFsEjkWAezHg3ocCEfemgpPl4GQR
OPkVXDUDV9eCq3/i8KPmz4HmCY20u2T3g2N2jC8VXxiMkaihZxlGn8YcfEvH
RkxfP3mNgHKSLvh8VKqgIbpZuw36dNCJQfe2Kq0SUoG1wdR73HKqVBlUPZPX
Tu21KfVqMkKaoKViJSZXTqvtLLfdtW8l/T3y+rwEPhWV6UhJXmKRcpCvvb6A
T8qq7NvGy7mUtvhcS41BPS3b+7z+jhiLvt/JjdwxsYaOGW0/Z8Q898mClzZN
MgXUr2ug8vxQFrmwdZ3nMuuWwm2j7O6pcqjd4+c4vzm1NGjdEvvsSkbHNx93
SbzmU+vAF/KbFnNp0tWK05/s6qn4hMKFs32aqe5LT3JgMY9ky3zUy1w5NDdJ
8bIYv4UmSDkEJfrzyXe26cSV2lWkKhvw4+amFnJ5/m7c1kV86vvxSN+nN5n1
t2bQwy89jRS+7c2TPVuY/ysSip++nqgmE/MNXa8k+aTyiSX3fCCXgsamDvk9
s4Ec2zhNU/yqaaLqDXfL3FrSVrbvK7GJT6WHUvTslUop9KFyePhSDoWH/Da9
wmLe0wr7ffsZUkQzktTtAwqq6KfQ+N3CwwKKGLWb7ZdcTj+TJ/rJOVWThP6u
Z3c3C0l8WMGxyGYONTophe4PqyUpjfWVKbFMfF051r9t6snm+Kqgfir1lKVl
HMJayCO551sV5lpzybmIlzZUUE9KFets7FO4xDaJy5TZxqWGZ5f6P/5dT3s4
yzctC+PSWmlN3fCzDRTsc7j7Q3g9Zbv1ETN4yyW35Jjp4bp11PdGF+/3zTry
mRpn6pjCo6S6y5qRKtW0WfKeoO+ZWvI1dPUoC2PWQf2/jkkpZtGChSxZ1rYa
yklNfZh5QEBTzV8/KHpYTqG5F6TvuVWTpdcpTtE6Ib3xm9NnwLJSUimvc2QF
cui94TC3F91CGqWXklA8vYTKGr2Gy9SxaeTkTwO8NglpLMbLMT4a41W4jhqu
8wnXIdz3GO5rjvvKSYvmaY95ZmGe1/Fc2/Fc3niuHYiDLOKwFnHYiriFIm5Z
iFsN4sxDnAMQZ0nkZTHyooK8DEQerZHHe8jjZzVR3nnI+wDk3R066YRO5KAT
T+hKD7r6Cl19gg7PQodnoMMg6NYEuh0O3TpA5+rQuRd0rgdfRMMXi+CL4fCR
K3z064PIR+a9fLcZvsuGT1nw6Wj4tC98XQdfO8HX0eAABxwYCw7ogxttn0Tc
sAA3zoEzg7JEnAkAZ4zApZHgUiC4tB8cI3DsCjjGBvc+gnuG4J4qOBkFTj4B
JzPB1SPgahm4+icOO7lO1ilj1iMeZ2J8J9xvILX6CxFR9Q0kvVqvaZ97C015
p7PMbz6fLkllHtiWX0VPWCMTTnq30wU7iXOHbjO+4jtfYkmU08A+p5KP1beT
/8S1pb59hLRw13S77T/LKE12xyqdjjYallM+YfckAcl3Dx1p8aSCbH6Qgev3
RpJ0tPM5x+TxW7bS5QNMHjuOm1UaeNTTDdbYBZPU66lc70h4n3k8umXIS3yx
8Q1pn6i5EhLDprzvw4f2TBOSU9D12TrX31CO7/KEMZfZpOige7nUTEiHjw0t
TjpdSycjHrXa7qmjzd8Dh65l8nySas8cXs+8T2l7OW9m/BAT4W3zLraO5nin
T38a0UTPrThO2ak8Si1blRnRwiFh5mxe2olmmvW2OldDnE/P7xY7bslk00eD
Wv7B5CZamiql0C+NRxPZ8Ve0SjgUoOoWuV5eSIpdsZW5T7n0zHbR0CbmvWpD
U8mFBhcuBVxbuOhZZz39nhd+9Fgsl4QNg070TGZTveJbTp/3NbSZZdRWNVRA
h14rBLQvLaFVzaFzfr1jk5fxjCz3fUI6ZT567/dVr2h9akeuqX8V8/4Zoik2
R0DWa0cs37GqlHZcl6hZF8Qh/vA9zi97hLTufdpV+wUsej9Gv+vG3BqSvTkg
2eaygCzWbj6V8YRD+cpPUxv31lJNhdVN3fPM/59VigGW4TXkp9dnsLh6Hd3O
GDJ/7gg+VUX+Onf9eQ2xY9lbeVOZ9fH9lG1vBvCpelnz0s5H1bRi9ufjQlYt
rf5owc9z5pOPQsnD2VVs+uUas6tIu5Zaz6m8us68H2XEnizp9mHRyun21gft
a6hoTHGaV6KACgbtzr/VXE5auy9YPvCtpoE/pD8ouQqpTPpVrtTdUnpulOSd
eYVDVc+zrteLNdLN6mBD9TMltMOt8IXDYOb/q+/YfexEIWVgfCfGLTHOwXVe
4jqVuE4l7jsR95XBfR9hnmswzwLMcyeeS2KF6Lma8FxNiIM74rAScahH3GoQ
N3vErWelKM5bEee7iPNU5CUHeeEiLw7IYyvyqIw8miDvm5D3WuT9CHSyFjqp
h05SoavN0JU/dCXJFemwDTr0hA73Q7dHoNsu6DYMOleBzjOg81/wxXL4Yjh8
wYePTOCjAvjIEL57DN/dgO/2wafT4dN0+HQRfH0Avt4PX389IOJAMjjw3V7E
AZOZIm7YgRsN4IZRpIgzheBMLjjjCS7JgUu14FI2ODYSHPv1RcSxf7m3E9xz
APcywclz4ORccLLNXcRVTXC1CFz9E4e/V3mGrc7n0JCfRScGM3qQGKZ9p4bR
w/r4YTXd4UL6kDqGF/SeWZ9tf12w3byWHItlzi5mtVL0vpd1u4v4NHFxeOjw
ASwKG72o9YlxO81QuflQMVVAKZmOC3gzy8kneF/7huS3VH1K52H5RgG9U1xr
5fyunGSsF/g62LbQ3eUZHxTN+bR6vdP1MlYVTfz8VuZOPZ9mubHULi1j1nc5
Y/ZomtSTi4zE/Q9z2bRBP046t7uG9r94qbZGWUAq654EhO0soNWf9xY+YP6f
3Zbl1L6P5lPjDnfZzewyGm4QWeUlX03NA6a1v74mpPOXmgvKJtTTyOurflyW
rifVqB2Gus48GlQRvWD+TAF9c8h23LOLS/cEYYkXS5l16uT3JjoRjWRwRW74
UWsevXE9ON9YpYZGpiz6oSLdRIFbL17Y5s+jtn7L5q44WE061xM3CHlCSrqn
u/COHI+Kls6V2FRfQ4n7c7puMu8dRi8kZ5yfyrwP/TQOvpZXT5fdFEq+z62n
uG9RQceU62ne0Oa5TbY80shsTbjVyaJ1/fbuUNtXQ1PWlC+et1NAej/HuEyb
W0LV4re8TjeyKbu0yTbBn+F2+qLrz3+/pH7fv3V5D6qisTLRo8I6mXWA5rO+
tc2vyeyq7O8Z2mw6OuBhyg22gJZ0uJ8vVShj3lPsQua85BCbH7A5oElIDx/W
D1v/uIKqlCIfxudUk0ve4g0vhwkpn3X6y6KxLMob9pl6ZtTQnqrYvk8zBXSx
+/30Y3Ys4tYuUQqZV0MaO/zjH18UUM/VTfdrgyrp+ZbW2bN+V9P1pX31DQUC
Gko8WYFUBT08Xn1iYEA1NRWHnjzrIKQLro0PXhiWkefFV8/+R3tvFlVj38f/
I0TIkDEkJCKhgSg+mYok85RKlIoMScjcIEOlkKJIqSRRZFY0aB417bG9d3sq
pKgoQ+J3Pb/ez+/AWh38j/4nz312f9Ze3+E9vK7rWvfAgsOjpFgl71S+nN7m
9Hv96mkZtYw+lxowkUfJbls02Alysuj/ZHlH7DsaMCw2SXiHS97tOdPem8hp
NeYDMffBPA/rtGKdJ1gnAfs6Y99E7DsG58zAOWtxzu73O+9VgHvdx70SoIME
OoyFDq+h22vodgq6vYTOVdDZGjqbwJcn8EUEX8zg4xz4eAY+hsL33v/4bomc
1CMn+cjJAuTKDbmajFzlI4exyOEC5DABuV2A3P753Znb2ch5DHKeiZxrohee
6IUMvWCjR/roERc96onefUPvCtG78+jpCPR0HHoajl73QK870Ou94MAxcCAf
HIgAN3zAjb3ghik4YwrOiMEZdXApDVxaBi55gGM14JgYHPMG9/TBvQfg3mJw
MgCcJHDSFFytBVcvgatdcfjdDoMHU0zKKGPjTptCKZdOWCxpMXGXkzDhdXzu
KDE9Pzi7ViFTROkWhnMr08Rk/SeR83J3HW3fRvuyrkvISC/RN3gQn8y7r+5u
SvX0Qd431aZZShca7xi8CmKR7+Ja6yTLT/TNZ3d6+moZFWwVcyJXV9Hofk4c
eeJHGvp9yxzTNCnF8B3Hx81jU7AFu3teVi053jyVNsJWQt6mO/Wqq/ikeCXN
slVfTAtdVrSqVYnIMEX/DDdJTHtT/O8viamkH4NCxyQz33H16XmpM5jvuG29
5htcPplH8/mOOb13sClJu2abDvM+Y/zCYNyO4Cp6d9y2SOU+0wu9nn1vasmp
z3m7SqtpIlJ4ei5LV0lEEzZ/+/1qk4TEh5PvfjwgpZsfclRc9MSkerhOqvxa
RENmRh7z0JXTvqGzW5XLxfQ3zmRc0gMB2S1onnTNQU5xHT4TH0j/899Z5wky
DghInT3Ev32BjCYeOFx24riYrlVoj/9WKKTmqPeWdSoS8uq4PLXCtYZO2B2J
KJgmph3DTo4vPCuguX8y1+88LCTfT0s5myoldChwgXi3HZvmrDqqobqSeU7E
3BowKlpGOdErEyc+LCPHhUEL3dR51OzXx8cwXk6/zVLCVygW0srVT+O9hnPo
fMDfUosmKXFPl68YOqGAlPbV8lhsNkWFaztGp0hJ7K6mqFJfTPEhDQNeyThE
8lWxSyJkFDLZwL9pUBm1/Wa/Dszn0qI1xbc1bJn31TtuIa8+ldFVzZ8i1UU8
2lu5cfi1bDm93PF9n2G/cnq6cZtR+DoeKRxwC9hYKSfL657jckLK6NOl+9Os
hvCI/3PJrk035bSdV9Fz0tl3dKRe29Qigku7Ndpdk+bKyX3o0QP8lyWUpTdh
o9ZYLr2+vMgkqURG/KPX/645VUxK11j+hTkcCkz6NV/pjIxEmPfDPAjzU1gn
F+ukY5192PcY9t2Lfbs65wvc68k/93oKHUL+0SEQurVAN4JuFdA5FjobQ+ci
+NIbvkTAlxHLOn1cDx8D4SMPvh+A7+3wPQw5WYKcDEdOTiFXi5GrE8jVb+TQ
Dzk8hBxqIbeayG0AcuuMnMcj5/2Q86H/9KIDvahAj0LRI230SHCus3dfn3T2
bgZ6NwY9zUJPd6Kn+ui1Lnodi16/BgeGDu7kQCU4oA1uWIEbE8GNJHDGFZyx
B2c0waWR4FIouHQRHGsDxzLAsSXgXh24dxncMwcnrcDJNeBkOrh6G1wtA1e7
4vC4+2WeKz/k0MBf7LaDzSyqS3xjbPFTQlfCwm+YObBpX33GrUOW1dTy4NT+
tigZKRzUbjdZIKWKm9F7F48Xk2DcyR1FP0TkXXdGq6/5e4qbFnh+wXsJfZUn
xfVS4tGPcvPjX2QfifX8+7wl5cx3oN7T42PaWbTt1vanIc0fSZTnaDSIzXzv
iXYuGvSJRVH8a4pR8e/pnG9HwIk+zHvwYofcd+FcOhqmb3DvtIzaw0xL5lwR
U8Wv6B8fTgnJWmeu+Tp9AY0W+c/YvUVI5vfeNF/9JCE37b0KSx+XkaHM6cCM
CTyyOX/nzcN7crJu29DnMpP/qLlKnj+Y/JvNdA1PZ/IfE7Fg6GB+FZWecez3
KYtP0T8y7FlD5eSdH7/iWSvz/Z9hf9gugsll7tn4N4+ZPBcM2fNrvoRSv2Xd
2hlYQ8oXt6oPUBGTntbS/gcipbRle6ahy2IxOSuyXM6dFdHUG31PbnsmpYku
vbeor2ByPujz7rQ9IlJTzJ4qfCqhtUsnuLdKaoi9LClgXXgN/bF+9P5cUQ29
9ChZfeimiCwT5jg6CpnnrdLEzCs61XRtrJ5gT4eAVprvSztjKCWWy4j386ez
me/PA9/HGlXToz0XyicmyyixTqDabl1OSebt23t78WjPcC2XyJ9ySl7zLEu1
pYhGhwvvcG5xaPX+7nqz7WV0QfNg8YoNeZR4gNePs5FNax+I72VYSilyWnxf
o/ZcEjm02VfMZ1NMq4Z7wlzm/Vx5waCx5fn0q37z8s0ZbHKomns98a6Ueu7a
/jJweCE9dhrwI02VQ8tCxJdrvkppg1Osnsy5kAoKBwdEzOJQdUWwhqaijGo2
18+K+FlAkovHsp8O4VCysLR4ZKOUng6L6xE4vYAO9O0p7cVn0656T921b5j3
mriixbf886l/qWynUiKb9o+QLne+xrwPdTF/iXUOYp3dWEeGfaXY9zH27eqc
f50775WMe5nhXruhw0/oYA8dIqCbELpFQ7dQ6PwIOm+AzqXwRQO+bIIvKfDx
GXx0g4+f4Ptv+J4A3x8gJ7eRk6XIyWCbzlylI1fLkKvJyOEW5LAIOZzyT24D
kVsd5Hwzcr4POf+MXiSjFyPQCzv06B165IYeeaB36ehdEnpniJ6GoqeEnt5H
rzeh10fQ62vgwExwwBAcCAQ3FMI7ufES3EgGZwLBmXJwxgFcEoNL38ClenCs
DBxrA8fcwb3b4J5CbSf3BG6dnMwBJ5XUOzk5B1y1BFcHJHZytSsO+2V4R/6t
qKCtrrknTw/g0+GWGF2nRDlF9W2b9vhYIemVnGwMms0hu/A1vmv6yajBMUBR
uYVPS8sbx0/5IKDMm2POWJpLKWgHaz65yUg+v9cvz4tiyq+J3pIUKKQRh9z2
xu94Ty8qBryp/SIhtrdX/pBGLs1MWH03otdHGj4w79IEHyldfJircbobh4oU
Nfjbdnwg54D8AdnLpbQ82E1vTwaHNqb+Fv7IrCWlxrvrD9lIaM+MqQG/2Hxq
s0oP/X1LQt3MGpqvVtTQFXeThf2f1lCzNNB8kSbz3a6upnvZVEAlXzescWd0
XfRHllp+tJQqjEKss9ZyiTNufmv1Lxm5SGLU614U0Du9Q8kHmXOc+SYb9Fwo
pSuajvov2ipp/LmZz3u682kM2yYufpOcBt3YeH4ms7+a1tjJNiIBvdZYsvj0
WimNLfcfaXK0hs4+aX7sd1pEDUtfJ4a0Ms+xn0dKh9WKybK2X2D9qhoa8J3K
Lc3E9GDT2iaLDjFtHvUm54tdDcXctg4bMldMOlGvnb4xz/3f7xrW/ue5H3i2
e38e89yf7el0J/ySkBQ8Bk4qqxRS6O2F1rN9JeSgMv/bpM880smQc8sCBJQb
PNjtSSjDGWGU5vpfLNp+ftbuuVrVtLjPqkrVDBn1UtJIHTG6gtzPxHCExTy6
2nHa7pBMTrfeRHpP3V5KLgPcF9Sv4FJi4Ln1w1tllNbnvv+otAJy3OUbq92D
Q/UFM15p1UjpzovY4d7rcynL3/iK90A28ZqHJ98eIiWdoL16d49l0665ibOl
/ixSWCM4+ihGQv3sFHIOrc2mkbfy+770ZFHrGbMDZuES2v/ixq30a9mkOaW7
4fdgFqnlDrLyTJCQ/qwL3fhR2RTjPjLgVCiL2o4ot95+IKFvL5ivwwvZNFhV
79OYSyyyCXyitPCuhFq6mOv9s04r1nHtYt/+XZxTD/fajXv1xL2SoUMudBBA
h3fQzQW6fYZuz6CzG3R+DJ1HwZfj8CUIvuyBj7vgozF8dIfv+vA9E74vQ076
IieXkRN95KpbWWeu/JCrh8ihFXIYjRx2lduhyLkPcv4FOf8b3tmLkejFW/Ri
F3o0BD2agh5po3dp6N1h9C4EPf2Inn5CT/Vlnb3+gl6/Qq+HbO3kwFBwwA0c
cAA3BoIb1uBGGTizG5xZAs5MA5eGgUtXwKX+4NgTcEwGjrmCezxwrwHcewxO
zgIny8FJXXB1KLhqCq52xeF5WoVL70wUUEaTs9/FdUJakH9S8USThBYkX56+
nldEa7adKm+9xqHUZb7zdtnIqE9x7HllfhndTUwfZG7IozlbkzXXvJbTmSLD
F3ezhOS1MH90Zq2Qgg3afugfZjjqvsJ7g0RGayLOLPR/KiZ9tb3NQ/oLyXbW
6NjB9XXEig28eiZHQqdtRmryj/GoYN64tYt47+nDQpcBV0dJyb9XXOrt7Vxq
7JUUZVZcR91z/nj3T5VQtcdKXXEEj96Wj/eUMM/bV6O0KuNzxZTgnT3V452A
lildWG+iJaaccqG7vIh5T5hlsyblmZhG/1aa3jaZeV80dXkzL7iaKpetnOzm
JKMxmu+T9ywroQ0yRefPHRw62ZGTsPUJ8x0TctG7V0c+GRt13PYrZlPyjY3L
W5OlJE36xdPVrSD+i9Mxv6t41FximZ4gkFOzyqep7/tzyXeajuYjWTXNqXs9
b7KGjDL1zN7r9mHy9D3B4MNyIb1Z8nz5xR8S2hf0sn35KOb7g+3hwlMQ0Y9Z
Ypu+TI5ayp1PztovonnTDg9SmiCijMNVzgWLJXThy7jyEish2Yw4xH+fISR2
eVx47xAJGVQr1dXNryY7u5Kv73oIqWjAwrUK+lIqSWg37neSS3bTNtGofgLy
jVJRmaUgI+H9CdcT3Vk0W2XO+IW/+GQqG+Bp/15GXsF/jCoPVFBLaVDH5k88
qiv3H/29QE6/L9wqylUqoxkjWg0m5HDp2sBN3IVb5bT21KZKiyXFNG2NQcKD
ZxxKOJjw3P0wo9v1PlN19QpIx8ex77VqNvXLVVody3wvjtxSbHGzLpfsE5RV
RhqyKbembxCbOeffyc+vKqzOoVmvQv0081gU5vzkaixLQvIjw9WPbMym06E/
qqu8WPRN7us154aEjB/PYveXZJFtecKGOdtZVJqW0D/ltITmY77tn/l7rOOJ
dVqxjuKUzn31sO8N7KuGczrgnPk4ZynuNQv3Usa9dkCHmdAhCTr09OvUTQ+6
3YBul6Dzd+gsgc4f4Ms8+LIYvtTAR0f46AkfTeC7A3zPh+9XkBM75KQKOWlF
roz+ydV25PAUcvgbOYxGbpOQ21zkVoqceyLnxsh5EXpRgV58Ry8i0SM99Oge
erQDvduF3gWidxbo6Xb0NAc93YZes9Dreeh1GTiQBg6EgwPfwA0FcKPyv9wA
Z+rAmWBwxgpcqgKXfMGlzeCYOThmDo6tBvf2g3vR4N7bok5OeoKTw8HJu+Dq
PnC1ClztisPPzc+M0tCU0vPWM/0KR4rpxWj9Vo1hNWTWcsTfroxNGtPaPru5
V1NSkueFmV4ysuK0Kt57mUPvd01RNpQzOTpc9FzjM/Ne/8nfsCypkiY3pZSk
W/GpZoR9j6I9copvt7wjGFlDFsn5ZQk2Irp8o+xs/WAJeW5+2HT+uYyML9k9
9bzDcNXkRoHDAiHdW99Q3X1AHZV4zB1ZdURCc8sOaL89xSd379yAAb51lLou
0LZntITa9PduvtXMY96DSSduWS15R2pNrNCV0FNWXNWtndV0qVn5vG2ClOya
a60XMc/7Pt9/2CQdFZFD6wnTHdNFlK/ltOajkoiGWB6wHL9JQhWNzRE3+rNJ
fVjMtzszqingirZDaoqMhm5NmFyzvYS05vr++tuT6Ud9pnj1KxkNy+VUH/HO
oz8RCsvt7dnUar9o3PotUrIPm5UZNbmM2hJP+2qxuERPLm7JdpbT7dXWwzzK
qqjex/ySfwaf/vYTXrk7guF5ND8skHl/8qE3PZ79rKYf4/ZnvR7MfJ8eLjxx
3JBPQf6Nfk1xAjo3PnEU35N5L/ozfFJOGp+MA7MnTWALaMU4OrGd2ddj1Or7
6eP41KcheCXdElBOw3ODceelNHDFzK9747m0gxVwabOqgPSzth13bZPS2c8u
c+Pj2LTFZtORAkavzRe+Fx+8KKPJ07+Om7i9ipbuDzVxCeOTG2c6385QTvd7
ts6wGlJBrHuzThQV8Ih+vVJWrJOTgDa8Z88po6DyD1Omibj07PbeB1td5bSb
7dBDtLGEdEumujZ351LVbpnlG8ZvVdWVtu7phTTmrsnee8s5FHH4zP3do2Wk
FLnOfPbzfHp6eNGKmpds8jQdOWf7bSnNzpj5qmRJHj0+YE+L1rJpZ+g+LTnz
HrJF/5z846lccky6MMR8NJs2jB++PmiMlKwwd/pnbox1nmIdR6wzBPs+x77e
2FcD5xyHc0bhnIdxr9m4Fwf3kkOHYOjwEjq8gm586GYE3fSh83LovA86X4Yv
NvBlPXxRhY874eMs+HgKvivB92z43lVOopGrAOTKD7kSI4enkMPfyGEgcitD
bnv278ztcuT8A3Kuh5x/zensRSt60YhebEaPjNCjw+hRB3o3A707jd6dQ0+r
0NM+6GkUer0TvW5r6+y1CBw4Cw7cBQc8wI3X4EYLuHEDnMkHZ8zBmZ3gki64
VAgueYBjRuBYJDhWWN/JPRVw7wu4FwJOfgcnzcDJC+CqEbh6A1ztisNRIw6v
HmxfS6EVY1tVjSVkKz60PMi0mlI+jR5TGFZDObUDdX75iajDw31+rwYxrf1u
o9zjYQUVHR1zmteNT6H2bze2v5BTYJ+xBeoeuXRoZoOf0yg2zR//LfKHqpQC
uxdxxRYsmq9xxGVJA59eFd0wHf5VRpWGvq3JBjX0LnqKrNhJRMOVjzS59pXQ
Z4uovi4jZHRoS4BpyF4xRTpddfL4KaT0l8Mfjm2UU1v6KJW7QyQUuIxTbVxe
TYP2yUdkqtdSR3xYTbGGhF7dKgg4e7WalN9NzLnFPO8ajiV2u8M877LXd3v3
up+QfJoc60pPSkjDOb5pUWoNvWZ/PKBcXcN8p5YvOZUgoBf6Wr7N3kIqbrVf
xsuXUN3dxsMaN1kU9zkrflyfamKf3/W9oFpG+cGv4nx2M99f+bbdfSy5pBrc
77bpdxlph4xZNyYyl2Z494kx0mBT3scHqqM0pLR2zOtkl9YicqjQP5wVySGP
APm33/YyWrxPo+W4bTnN06jXEXjx6LSRfuS6X3KaOm5xrcyhip4fW/T+dTif
fLb0dDedI6fzD10cejDvc7fK9j+pW8A8N/2ehv9MlJHavIJah3o2fTZvuH3t
ZDWlX78o8Dsqo96zznvpJ7EpZkOrn6sz8/tXJ7hG/sy+k/z7rUtjkavygeYJ
Q6vprK/2xzflMnqx8FB23YYqGntnjYNHCJ+CP4VYJBnJyaqqfvu5hAr66qfm
Y/qXRzPqbbdbvJLTCcWs1yp9yumK4tPp1Wt4xPowMl1YznDbdYxj0Kp3NMrj
/PMJgVxymfqXXafNrDNte6RnUTFd3nhxgFE1h3bf/7hkTCjDgWmDxobFFtKQ
r/Oj9RZxyGBrxm/1YTKaukml348/+XSmasHYYSVsGl6W1H33YykJFlzV7zYo
nzqqXSuf+LGJo3ltxJFjUqr5Z87FfAbW8cU6I7DONew7FPvOwb4OOOdVnHMP
zlmPe43FvfbhXt7QIRQ6cKHDTuj2HbppQ7c06KwOnS9DZ3P44gZffOCLEny8
Ax8T4aMqfG+E7xnw3RM5CUdOkpGTschVMnJ1DrnSRw51kUMP5FAXubVGbl2R
W33kXBc5L0DOe13t7MUv9GIKetEnvrNHj9GjYvRIE73LQu/eoneB6Ol09DQJ
PR2JXn9Br1+i1yPBgb/gQDI4kAputIIbweDGe3DmIDgTD87EgUvp4NJEcGkf
OKYLjmWBY1PAvS3gnga4dwqcrAYnL4CTv8FVAbhaD652xeH8ZW2ry4Le0zfW
8zXZf5n3+en3wttfcIlLf31KtzHvcbbeX3qdE5OqW8p161ghZWQ/nqtYUU3B
656EiGYLqccG1V1H+zDfpyxnU92RZTS0wetdaDGXzpy/4+u3XU7Tv8wVt9Xm
k4VUTWFiLuPjvEFrgx5I6dKcS0eKXrPojW/jujCVaur7uLr7rAoZpQnN/dZs
EVGaxntFK1URRVQlOs4xl9Dhjz1jROOlpHem6O3yEYwvBoMuTVWtobILtPJX
lIyWvTKixggxVR2LmPxmk5ByylRd8l7IiPzm325inoMOKzI3fzYWksX6rJKn
IVJSC3Wy+ktiasz0Cft5mdnPsEZvnpeYdH1Kzqb0raGaie6RPbzFtGOol7Fn
WDVpVfX80m2ikBQvGwuHM99Duvuii1+FsSj71D1jU8Vqojun350WyCjk4iy1
Xr3KiJdl6vklk0sZM3QKgzbL6VFEnV10Yx6Ndtb9PdmLTauVryxzcfvP/19z
ddKYN3n0yO6YT+JBNv2Md1Ac6CQls7ytmdIhJeS6c7/ewC8cCjeKeF0RJyPv
1FynRY/KaOHw5wGDxzPvAVv75KbFy2noxl6p/noVND3lOucQi0d8hQt2S5nv
StHe+6TTq5KaV9wxm8C8ZyV9spl19xbznjbsnu65oZV0+Yv/wHMafLJMvL1V
I1xOcYoHvupcrKBAkxXWbd94dC+X49WQKSf/P6OLdt8oJ4+fp8f9jWS+Ww6c
Pfi7Ty1dVlihuSqqjG4F/x1iMJJHKSHcHNPbctISGHyfrf6Oks4NbGz35NLZ
RYFq5ePlVPrVvunMn2IyCZz6yfEjhzZbPVBSjpaReFXAiT59iujU2lFXKmw4
lBBVn+usLaMRWdOutrgW0AD2usVpDWyq9Tc4OapESgcvHzEN8sqnExt9x1EC
m7rN6LZ7AOProX/m3TEfi3UGYp06rFOPfT2x7wPsy8c5F+OcW3FOfdwrGfe6
gHuFQofb0OENdAiCbsegWzl0S4TOl6DzXegcCF8uwZdV8EUKH1vgYyJ87Avf
teC7EL57IScmyEk4cqKNXDkjV1eRq1PI4T3k8BtyWIbcaiC3m5Db+8h5HXJe
hJyvRy/K0AsD9MITPdJHj/5c6uxRIXo3D73joner0dNx6OkH9DQfvTZBr+3Q
62JwwAwc4IIDjuCGDrhRBG6cB2cSwJlEcGYluHQHXBoDLlV97uSYHjj2FByb
zu7kng64Fw7udYCT8eBk0/pOTjaBq8/A1T8HOrnaFYf5tkO2qXt/oBJJ+cuG
9VI6f/nv5hE3ODQ2Y75ymLiWegdNuG/oLKF43v1HPx7zKeMQy+F3koR6bhlb
UCmsIdNhtm+Mb9fQguv9X835zaVPrmUVhXMEdMQ4KvOdkPmu2aJ2W8uohC4f
mLSBfnFIb45jockjGcWMZTv8+VRAbyumz25Q5tDJY+puHz5Kaahda2ySHosK
Hq4J3iXjU5w0ROfULxnZFvkEF70SUNvtBwZrzwsp8GOcaEu2hOYpam398klM
ueMahqauryHlXf1+mS0Wk/K1GrtsAyktGVciN1MT0/UU/cycHjWkc1t91yIL
KUkuvDk+Q1NMU48fb1z3QUSuCX9Pxm2V0A3Lv89MYmooLPnk0xvdxRQ6RxYS
uKiGWFc2Ka3dIyKHR0cn3usloanS/VcfZPPp24fItQZcAbUfK5l3Z5OUUt0y
ejzNY9F0r9jUfSOqqSxrpO7vUoarTrNXCL+U0btDy8OclvBIEPbT4lyunO5F
vDUxvVFI/me+RNwkDkVOSJjSMkRGdav7tM0ozqG8tZF3Yj+yKGuT3qgXLRIS
Ne8cqCzMoyUHuvW4eIJNmvUtVy7sk5LfTtHy+fZFtLzQasuUIxwSTg+2zlrI
vO9Z6q9Jri+hfAP2ke7TuOSsdtNtC09G2S/vOwSsf0crwnvt9w3i0m7fq+WD
deSUETtH7Pf2HUWVdDdWSeJSnNHjYxVmcloqzs01cHxHU2xvbNt7lUsWRzx3
6uvKmfejRVcOu5dSlNfD46ZruDRV3e9z+E8Zfdbv67FOvYQuJTl+K2zh0JHb
Pyx+3JNRSnvjuuKwItpU0HfY6rMcYvecuOeCJfM+1HDYZMbgQqr90iY3GcWh
CW6qFyJapBR89kOySkY+jT8VWnQzlU0q6xWPP4qR0mSvHvV/WvLIfHLKgjve
bFp2IOj2g4NSmor5in/mYVhnItYZinV+YN8P2FcD+2bhnFtwTi7O2Yx7Xca9
PHCv6dDhNnSYBh260i27C51T4Msy+OIEX2TwMRc+OsFHd/i+GL5z4XshckLI
yXjk5DNyVYBc5SBXhcjhVeTwLnIYitzykdta5LYYOddDzouQ86XoRQd68RW9
iEePqtGjbeiRO3oXid6Fonfa6KkYPZ2OnvZAr03Q6zj02gAcyAIHBoMDC8GN
BnAjFNz4tK2TM6ngzGNwxgVcegwuuYJLD8CxeHDMDBxzB/f+gHtO4F4VODkY
nJwJTk4FV5XA1XBwtSsOc5c7iKZM/EDLbCzTAvSkVOT8hZ2mxKWmk+6tL8e9
p6ED1z/axpVQ6VaBaY4Rj1aP1u7pxTwf+o6WuYdKxHTQUMjafkhA+j437/Ta
JKYDCVpLBzWI6PXPAp2KcDEZtYjflypxyLjJX9h+vpqUnwdXKbjKiHvofm5+
cREd/zk+6+hVDllsWWl11EpGf048jvsQXECP+n5ycG9jk+ln8+ZlLCmp/FUe
4CurpKh11slL9/Jpj2bpoJU2coo/uCt2rw+fhOclZmaZAoqUar6s2M1wftuj
wTOUamhP5ZdF3ptF5GZ7sGPecAldjnNZxUkW0+D1rdLaaTXEa5kSt2+nmOYY
JJic4ospZnP4fY9lNfRN6VDV+ZViOmXVr/E/+Th83VDtTYGINj5q2n/uhZjS
1ir8CbosJFbINlvNKiHNu9e04PMZCR0YrTrhVhuPNo9OrywMEpBNb5o8+yrD
kw0WghGfWNTw9f5T0cRqEgquGodky4iXefLni4pyUmo/fXLfEx6VdNMxTv0h
p9rxY8Qq9iVkqvUrdUMvLk2O2zEl7BXz3HXPZPWYnk9mGWvz3l5hU5U/S7jQ
i/mu2Ln9U/SAHIpxvLj1+VMWtb78OFE19z//HulAiz4LculVxZsVS/qyqbSt
8YrtACnlDX62tHFlPhXHxrq/v8Gm+WEDX7WdlxL3oYfyiuQCUorz/Rrxh03K
bt00pgqk5OBoVx64oZB+1P35s0CbQ9vfplyL7CEj5wNldgqbCsmatE/EMfOo
/cnlbcy8rMe+EX0EBcz3c6L6Scb/ec/2pU6rk9K1joSN3ZUL6Oy3D9aLytm0
tk83oy/PpDSInbPmxqh8EqflfLS9yKbUXRbs5yeklJnU13Klfh5F2ZoXP1jJ
vA//PT9G0UxK4VllyxZH55KgG6dw9CQ26XN792Uz39c3MRdiboB5Dta5jXV6
YJ2u9r2Fc57HOdfhnP+91/l/7uXUhQ5boVsrdNsG3djQuS90HgCdM+BLIXwx
gi8D4OMz+FgIH2fD91j43gbfc5CTFcgJBzn5iVxZIFfayFULcqiCHOYih0bI
bQtyy0FuvZFzW+R8M3JejF7w0YvZ6MVZ9OgEerQWPZqN3kWjd63o3SX0dBB6
ykdPP9t29toWvT6JXl8HBzjgQAw4UP+nkxuXwQ0PcKMYnIkBZ4zAmcmHO7l0
GVzaBi7ZgWPLwTEFcMwS3DsD7j0A95zBySHg5GZwsgNcHQmupoOrXXHYVPdO
jdXBOloQ5apWfENCUtuISXt788nNT8PAQOE9Xfn9xcyqVEIXN9umrrDhkVnK
6SGC4loyvj9YsGy7hOzXtARPL+TTiJkX9iaoyijXasyhV/vEVOpj3xDXKqR9
jtf17seLKO3Fnp7zZ4tocEbBTbmuhOw0vx+YImXRpKu2FSnq1XS+6mCwQZ6M
WAW7hJwbRdTA2egtYd5bZh5X+6uwSkZPd/Rqc9TKJ3vvW5PeXmYTe5jypV2e
Uvpuvqq97Wc5+Shp2s/N5FGooOc43UY5/f05rjqAz6FUn9buf8qrKTFztso3
XRlJlnAnv2yqpnYrp9K7C4U0wP1Yb3fme+JqlK7o0H/+HGadzImx/UT0LNpQ
2XejhIwTQ74WvhSRgPolvDcSkVXE8M2TdSQU/VyipfJOSLYKyWeyPwrpklTn
Ic9NQm/6+TiX51WTIDWhw0yP4fZGp0dH+0lp2bX4P5f/ckn/ovDgD0MBaYeN
OFHJ9NE8Y5pDyTsWmc+L22mmWk3LXp3MDi9m+Ga1IeLkuQpy/3pVt62FR97H
QwTXs+Sk93zB16PR76h+n86vqXe4lO21NWC1iZwG2Ty5tVSziOwcHksNHTmU
E+sy46Qe44fZi1c6B/IoeJJoaKgtm+mr4dBlG6Qk9TzF8inNpnuLFV9Nj2FR
UmmmYO0LCX0vmNM0fWo2tXG6x547xCLD9nFTeZckxFpo7Z/eK4cW/fR38X3M
or12kVsWMu8hC5ZnHP36IofiVvtH9pKzaOGHDv1fjRI6rLx645WOHIoP6eNi
/Z1FoXYqvcz+SGj8loC1S+tyiJNr4CFrYp4jCQ1uFT8kVP7kpD33cg69K/cQ
7+exSK49yUy5VkIZym/8l2jlkI7ubxN75rvz51O7JVeKJZS87K45T5RNp8vU
57+4yyLOsBT+pFQJPelinvXPOr+wThX2Lftn30k4JxfnbMM5j/5zr2u4l3EX
OpRBNxPotge6tULnVug8BzrXw5f78OURfKmGj2HwcTV81ILvTvC9EL5bICfN
yEkBclKDXB1Drk4iV9bI4WrkcDFyuB65nYvcTkFui5FzCXJugJw/QC+2oxcX
0QtD9IiPHm1Fj/zQu9Xo3Uv0joee/kBPB6KnAvT6IXr9Ar0WgQPHwIFb4IAb
uLEG3MgFN9QKOznTndvJmYXgjA+4pAsunQSXLoFjheCYIjg2EdwrBPcywD1z
cHI+OGkHTrr+w9UgcLUrDr++eUcWHiCjmJ6vrbJDxTRv0RGF5P1COrZzwLkE
v1raG7k/sJe5hEY8MMjtNrKamo4MMdjOqiWt5gsOZg4SynadOF0rg898n001
yrgiJ8G4/aNrW8T0dFjYiuNGAurJ843/oCSlIevO9jQcKKZUUfIuLYMaYr8z
HGJqKKQ0qyyjnKdC2lQ+W6QdKaGYryaWVTYsGh+g5jG3hU+GO+7lqX6WUUZ2
SDePHcXkNFDWMSCNQ/p5H+rPnJSRev9S8Y5JuXQwuSXRpQeb5ty3tw1TlJLs
hiwyoVsZBc+/uPFMOpdenjvd4LtRTh8rlzx4Jqqi8hU1bwNy+DRzbVlvDxU5
aX3e/+pwBJf6L/7y9+RwAb0MkN2491NKdyfXPplbwaf5x3mePwQCWvd9ysV7
66TUVhPqahdWTQ4XN79tnSCkX3HFBuqjpJToGiHsq1VNssxjH4+1C2j+6ziD
SfOktLk19MuwXB6pujaeen1KQCt6HftzNFpK2o6z6z1TOGT+ypaVksvo+1fh
0DZjGSkFStx9V7LoxJuhS081MM/LQzvktS0yWqnCUnn/poLm/jK4MIzxz2/P
+KvhT+QU4fR255dTZfTL+Jp/Qi8ePbU4ox53WU4uSqN+PbQsoV8zdbPu/+WQ
akdt38qnMtoz3Xv0/LGF9M4rVCV8DIdaknx6urZKqSnh8yXDU3lkdH7vIoMd
bHILfh24YbOUFrrXfHlwJIcmZ/T6NLWCRVffOmc2ipjns+2DXEnvbNoVdOT6
KxcWPS4eExhyXkIuWgbzb2hn0afAiLwRM1gUVvlacmyDhPz3vG+/1/yWxvl+
WvNSjUXLJMeGJpkx35vRQ+o43bLo/szoN18msGjm0Rix0QoJhcWmP6/ulUXJ
VydvXa/BIufPfdydLSTU96py32XM7+O+bsnLY35vVfNjluqKruddrfPxn31n
YN+ALs65F/dq+Odeu6CDC3R4Ch3MoZsWdAuFbu3QeQF0dofObvClHL58gy/e
8LHbrE4fx8HHePjebX6n76/guxVyMh85OYucDEeuPJGr/ciVMXK4Cjn8hBza
ILdjkFtz5PYxci5Hzo2Q8z/ohTN68QO9iEGPjNGj9ejRUPSuF3qXjt5VoqcF
6Ols9DQbvfZGrxPQ6/Z+nRzYBQ7ogAMKOZ3cOApuLAE30sCZqeDMDHCmW1kn
l0rAJXNwSRkcGw6OJYFjj8E9MbgXB+61gZPTwMnX4KQHuLoHXFUFV7vicLHK
wrsXltRQrCUt6LlXRMKFd0YO7SWhB60z27eUS6mK43emdb2YHp/uuYm3QkQZ
Vlsubzwup2ub5z5LqBeTMf/MlB6bBPRWb9a6VzFymr934ETBDzF9aMt8eHay
gLpXnPXZ6Cajm2Z5ky9cFNNRl0EdVwKFxJnlWzR1qoRG6jXXenjW0Mbk1+ce
q4lpcuSLN1fnC8g5360uwVpIpTO6nxJ8kNAwO8VfVutZlCP4M7b2M596v2m/
K2uSkdxR88AoUQldVDjZ4jWZS62RBXGObBkdVpgQMOV3Np0saj9a/ZB5D5yW
eLnHWwn1m+ReN6S0iMqrog6zmO8X78DC2Fzm+2XvCPXpO5PKiaP2xi8hjkef
cyP2OivUUvwao/e9J7Kof3/OhCAhn16lqOyx/yujdcuL9wrXMt/5k5fdt4yu
Jvst23ksZp0kn90XJ67jUuo3qwnbflfT+APXFnkPlJGyV9tIE0sueTzfue7u
r2q6Mip4VMsgGe2MCMy0Ocah2ltxvjMfVdO+Vo0Lc5nneEZrm13KYDZtXbD2
htusatrlEqI2j/kOnV6rU33Booo+9pX11rnCpzEbQyr2LZBTedk91RDrCmrq
HlopkfFI11j9gkGZnF6YvalzjS6jRdN6L3UYxaON0oy1ptFy2ro2ZZ50dSnx
OmztHcy4tEK+fo9ps4ya4tWesu4XkfvPzIdr/TmUmO5z9O1a5vw3Rh9d7lxA
FQrHHDfWsynkbLTTkCIpmdbWri4JyKP9I10mLHJkU6Jvyqn0rVKKaB46Tzg8
lzKqov/u+MOiepHVd92eUloVl/PiY0c2TQv5s2DzIxZ9fbEj1YXxxXq5c/DR
2dlUNKL772YPFsWl+45JCZaQSMNkfcqzLNp/ekuMzgYWlchsD4ccYt6jkloO
+B/Kouw7nz2tFjPvqyVBAYGOXc+lWMcV65RiHdsu9l2Lc2rjnN9wzljc6y3u
9Qn3soAOB6BDEnRQhW4s6HYduv2Gzkeg8yPovAe+COHLKviSAR9N4aMVfBTD
91b4rgPfDZGTBuRkFHKSi1xZI1dOyNUu5LAOOdyLHPZHbo/8k9vHyPkb5Fwd
OV+FXtihFw7oxSX0SAE9ykCPnNA7FnrXhN5VaXT29C16ehg9PY1en0av56HX
Q5w6ORAODnSL6uSALrhRBm78ed3JjSXgjBs4kwPOyMAldXBpFbikAI5FgGOH
wbFscG8BuFcH7qWAkyHg5GJwMgxcLQFX88HVrjg8eIZjkRGTM6v3OinXp1ZT
q6Jat9Y0GQla27wvjhbRIKHn8Ds9ReR/7WHvbdYSshy2uvSJgDm/9qHK1o4a
avFcWX7CpYbW9ZlzxXK1jMTuZgeDvcR0Vi0qP+S5kFa0v56w5QDzXEjkjp7J
3Es7qFz2OkhI1cP/6u5zlNLEzHilHTPEJNg1WRBYIKLeS5cufOwipt8Ze1Zf
/yWiHrMv1iQEimltvOOaPcHVpLRYRV2kLqQZtpJZYlUptf4O3JoaxqJZ9dX5
//nnxeP1F1j9558X67xe129JwTv6uFR/Y/NDLql18z24c7mc3rHmFkQJcsmk
+pbBWgM2TchzX+CpK6V1yeesr/nl0YOnbxtid7LJ5aB9xzymXx61HvUjBpTS
EqXqtCB9Lj3tuWOVk0RGwjk/tp28Xk7+lbnp32/xyPi8aQq3by3F+Prap6dX
0vNXGzY/seNTr81rcsuc5BS51crPvLGKbAc9uv2A+c5J5rhW6gyU06CHJ93u
mbAo8NHuDT/f86k0qck7sU1G9s5HElfKqmhqzMsBU/P4pOk9xUZtiJxCDwo+
LupRRXa3Lx5S8eBTcORQyeL1cuZ7KGXw9oIK+tn9hrKaEp8SPdoVjB7JqeFJ
r+yvTuVU5tOarnaOR0fcikPe/pHT6jUnShUNy6jB9886UxGXhsy+csXNVU4n
O2y/ZKuV0kvvP8kec7kk3TvvjV+tjIYnm5ls/FFEpxofsa9EcehyRl3afQcZ
Od8eMctcuZCsj1j3OziSQ8pmF/s0NUvpqFHa2X278ik8TcnaP4ZNU/bOX+oU
JKWNA86cjuifRz1MJt2OW8SmeXzdva/nS2lnyIKZ53/kUL22er+2VhYdXDO4
bWSHhM516KwznZVD2pEDYm6msSjW5pe2G/NdGDJrsfWp7Gyy2Gw1YmcUi1b2
MZrz66mEQjFfibkl5n5YZ/o/6+zCvp+wrzv23YpzKuCcxjinJ+51E/eainu5
Qodt0GEQdFCHbl7QLRi6+UPnVOhcC503wJfP8GUofGmCj5Xw8Sh8/ADf2+H7
ffgehpxsR06uICd7kKvpyJUGcjUcOQxCDkuQw1vIrc0/uQ1Hzp8g54rIeVe9
sEaP5qNHSejRbPQuFr1zQO8k6OlS9FQTPd2LXv9Cr7XR68EdnRyYBw6MAgf2
gRtDwQ1NcGMgOKOQ2cmZ3wadnJGBS5rgUgW4ZAmOxYJjU8Cx1eBeDbh3Htwz
BieHgpO9vTo5GQuu/hZ0cvUmuNoVh5s8v/TuWFBIBX41A35N4lDOOvXqjR1S
GqezJXkw810nt3QbXl7NZ3g28ji3m5zsSit0VjkLKDD7zdCHLkI61rN560rm
HBMODHqXnMK8T+tLv6rp1lBAs+GSeXZiGvw+d+qIgVKKuj7W+NEg5r16+p2i
BTNryCPQcvF6YynxPF8vCVUXk/2Q0iTldhFNL/TZX7aTeX8fFHhxZ0INNV0J
Xrjkew0NU5MJxzDPs+31s0Z+8xJRpUvaqstfxbSje5PKh8HVtDs4J2fLVwGJ
3pwvbjaRUsVi9ZFLurOpos/WgHvTqin0z72KQcx9B8evdI5uLKNNS4Jcpy7m
0WW2avvxHDlZh/jeFNQX0JaCPS9uKHOo38vgsNiPUpKOG7lvUkw2vZiS8XL8
NRZVft5/cloi8507bQy7siWfjg3Ue/WsgE2Dr0aYX3koJe6pfWOdA0to73X3
j7aDuTS530nNtKz//Dl3+a3K7mUU0PtFdORfLi3ff2NlYADz3D0o/rnlVDnN
eTZqz6VgHrnEyOKIybOXluu7F4MraGzvgy5XCnjk2etr/uw6OVUErao6zMy3
9p0fcpyZn/nkJV3OzM+Gu97qHVFOS/bH8IOieKQqsHDy6VNLI/W/zlD4WUZH
3ofEnVjOo/if7+reFcppdj9+5rgZZRTbd1X0Oh7z/syd/tl0j5zWV24ry48q
pdoZN+aE2nDJy+eJQ7uCnDKvFqW+4BeTj9pcxUM1HNobttjwQZiMcm5UFF7Q
KKLDUbfC3uzk0NbGpqXD9GT0udRqzvqgAio4lP1Cp5VNnFExB2ZXSWnJbdvv
KpPzae13iWjMZTb1UtRcJDotJctbwY6RbbnUcuXecz9jNn1pKF8SaiildFvF
bprKueQzMHL293YWnf61K3hKDyn1OPe9v5ZfDtnkSBxWclj0Izf3/kKZhBS6
mL/FOmewjifWWY99v2LfJuxrjnOuxzkVcc423KsI9+LhXqXQwQM6WEOHQuh2
Frrth27W0Pk9dPaBzvPgSxx8sYAvo+HjUfiYAB/94PtS+D4KvnORExvkxAc5
OYNcqSFXp5GrOcihHnLojBwqILfnkdulyG0Zcu6CnE9CztejFwfRi37ohaSL
Hp1A73agdyro3Rj01BY9DUVPv6HXIvQ6AL0+Dg64gQMccEAD3HACN0rBDT1w
5hE48xGcOQYu8cElO3BpEDgW+Q/HhoB7s8C9EHBvOTh5Fpz0AidF0zu5Wgqu
rgNXu+Lwof7N52wvfab2RSsut9EH6q3qKh9+Wki7MBdgnjKqc26DeQbmhzBf
g3k05lqYx6br3tkfzaIHPoGyDUrVZNp0yqGJJyM7FYfmkonl5GNvGrVoO49m
73D25onkdOf/4+8Den86l/6ogYZTvIdOiYxmpRqt3vSogvo4Lxh8+U0DjZwy
MuVh+X/+XOSZmktvV9C2cUOjJY/qaLJv8DmXZAlt/HszaXgajz4duv9iVFoj
xZhHnDfXraNk94u0x4lLbP3Kl33Daun3FvtLQ1ZJyP3vIZXRzPPZaBoVl01p
pE9BysZD38iJzU3ZXF1QRVe+b/Y7f6aRcpRXXdsWXUt+1ydnePXgULf/+1cT
devpOt+c1UCeirp6nwYy7xU3dkd7xnym+VOOVxbt/0CKl3QmvGgV0kLMf03u
nNsFdc6v4Dy1OE82zvPf9S0UOtfX6d25vhXuq4n7bsV9DXF+Oc6fhfNzoOdM
6MlL6dSzKx+XwBd3+KIFX87j99H4vSV+/6T4VvPXD2VkreAUdcmERx8PxheZ
Z8mpBPPdmLdi3tXvX3n526Xe+0waziVJtqc/kMemvAsbx4joIuYvnDrnzhs7
5znwdwn8zTvY6a8P/IqEX9rwS+TUmZ++yI8j8tPVObvSoaeuWi+/t7Xkejp3
U7yNhAL2H5WtYvOpYlbn3BbzXMyr49xLopTKye3Z8D9L1/FI3faP/8BK5r0U
84OYj8fcCf5Ohb8W8LcO9w3FfS8hz+b4vTp+vw+/F3Sxbwbm9pirYP7fvPkj
b3eQt//OizFX+2/Oj9QfMTcppSsatu75i7jEnbTtg30j8z66aurwm8NKaWTH
7C2Ns7lUoq2XvlMmIy7mmpjzMNfEOj5YpxjrdPX7rvYtgj7roE8D8tDV+l2d
cx569AE9KkWPApCrZ8iVA3KlVZYy9+Hfz2T8IGulycaPNGJtm27kSDE9Qu8m
oneK4FgVctgbOTyAHHb1+97/cG82ft/v7tEhVtJGOpgT5fIpoI6OcP3ddJbx
/t/53+P8RTj/OZz/Hs5vivNPwPmn4/w9cf4N5vMSY2c10gMb78+TmHwccdx1
PbQbizriOve1xL5jse+mJ3W5kwd/JNXlnpkzz0nJoW9VQ2MLm97lP5PbutST
Jmv1EGE3GdUl3owTb2WRtuOptzGfmP7GPIiZGFtH/JpFY7K9eJSuPT3XfnMj
PQ2WPFDQryVDqfxvWROLBtr0C6ka2Ugn+w94PDZETj9MVG6mO1b9v3w6/t+/
PuPvP/xv/r/5/+b/m/9v/v/z/P8Ah6W7JQ==
     "]], {}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> 
    Automatic, "GridLinesInFront" -> True},
  PlotRange->{{-6, 6}, {-6, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8310245364124613`*^9, 3.83102455600695*^9}},
 CellLabel->"Out[28]=",ExpressionUUID->"1ebaddba-da09-4556-bcf8-42cd24fc7dfb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"DensityPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "0.5", ",", "z"}], "]"}], "^", "2"}], "*", 
      RowBox[{"Potencia", "[", 
       RowBox[{"t", ",", "x", ",", "0.5", ",", "z"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "40"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4159619224403276`*^9, 3.4159619228734007`*^9}, {
   3.4159619771121197`*^9, 3.4159619811713667`*^9}, {3.41596289689926*^9, 
   3.415962916177791*^9}, {3.41596294795427*^9, 3.415962968153555*^9}, {
   3.415963005330037*^9, 3.415963182233945*^9}, {3.415963212450016*^9, 
   3.415963276802668*^9}, {3.415963670956476*^9, 3.4159637698922586`*^9}, {
   3.415963804855768*^9, 3.415963814860733*^9}, {3.4159638503769608`*^9, 
   3.415963854644606*^9}, {3.4159639985768337`*^9, 3.415964013331935*^9}, {
   3.4159640984107637`*^9, 3.41596410852617*^9}, {3.415964320821208*^9, 
   3.4159643856749268`*^9}, {3.4159644645414124`*^9, 
   3.4159644659148417`*^9}, {3.415964555131755*^9, 3.415964565914394*^9}, {
   3.415965819996462*^9, 3.415965837043582*^9}, {3.415965876772584*^9, 
   3.415965889868227*^9}, {3.4159659403335037`*^9, 3.415966185307839*^9}, {
   3.415985235962166*^9, 3.415985305351448*^9}, {3.415985358751975*^9, 
   3.415985478943315*^9}, {3.41598552459466*^9, 3.415985526185564*^9}, {
   3.415985569906578*^9, 3.4159856592877293`*^9}, {3.4160396516498137`*^9, 
   3.416039722313271*^9}, {3.416039800145772*^9, 3.416039821833609*^9}, {
   3.416065439925946*^9, 3.416065458045442*^9}, {3.416065506295891*^9, 
   3.4160655865572023`*^9}, {3.416065684216*^9, 3.416065704693136*^9}, {
   3.4160657504535837`*^9, 3.4160657528693*^9}, {3.4160657849519567`*^9, 
   3.416065813613912*^9}, {3.416065848304619*^9, 3.416065878661913*^9}, {
   3.4160659507828293`*^9, 3.4160659511021967`*^9}, {3.416066312110375*^9, 
   3.416066312182185*^9}, {3.4160666527224913`*^9, 3.416066722310258*^9}, {
   3.416066760241209*^9, 3.4160667603088408`*^9}, {3.416066804705159*^9, 
   3.416066848990328*^9}, {3.416066955631016*^9, 3.41606695949426*^9}, {
   3.416067279982493*^9, 3.4160672989100027`*^9}, {3.4160674803669453`*^9, 
   3.416067502926255*^9}, {3.416067597023044*^9, 3.4160676265421667`*^9}, {
   3.4160681898750563`*^9, 3.41606825194353*^9}, {3.4160682915058928`*^9, 
   3.416068327986458*^9}, {3.416068397435061*^9, 3.416068434711678*^9}, {
   3.416068500928258*^9, 3.416068521829611*^9}, {3.41606856306653*^9, 
   3.416068565430552*^9}, {3.416068611657249*^9, 3.41606866911102*^9}, {
   3.4160687212577877`*^9, 3.416068776198695*^9}, {3.416068814201564*^9, 
   3.4160688594144917`*^9}, {3.416068904417469*^9, 3.416068942711397*^9}, 
   3.416068976674193*^9, {3.4160690418664713`*^9, 3.4160690509228067`*^9}, {
   3.416069086226755*^9, 3.41606908639513*^9}, {3.416069124850877*^9, 
   3.416069170688073*^9}, {3.416069409074726*^9, 3.416069446064117*^9}, {
   3.416069714288884*^9, 3.416069723706203*^9}, {3.416069868979864*^9, 
   3.4160698752152977`*^9}, {3.4160699393221493`*^9, 3.416069939479343*^9}, {
   3.416076198450931*^9, 3.416076226063786*^9}, {3.41611952764939*^9, 
   3.41611953974024*^9}, {3.449324576954935*^9, 3.449324585720399*^9}, {
   3.449324681079052*^9, 3.44932468127765*^9}},
 FontSize->16,
 CellLabel->"In[23]:=",
 CellID->2024545244,ExpressionUUID->"41906933-9553-41ae-9c55-bfd803e941e6"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0.942477796076938, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, Pi}}, Typeset`size$$ = {360., {177., 184.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$19793$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$19793$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DensityPlot[$CellContext`rr[$CellContext`x, 
           0.5, $CellContext`z]^2 $CellContext`Potencia[$CellContext`t$$, \
$CellContext`x, 0.5, $CellContext`z], {$CellContext`x, -6, 
         6}, {$CellContext`z, -6, 6}, PlotPoints -> 40], 
      "Specifications" :> {{$CellContext`t$$, 0, Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {240., 247.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.41606843632008*^9, 3.416068573268057*^9}, {
   3.416068615370469*^9, 3.416068740257711*^9}, {3.416068780000021*^9, 
   3.416068882683872*^9}, {3.416068933252757*^9, 3.41606901698779*^9}, {
   3.416069052496727*^9, 3.416069113308054*^9}, {3.416069143665448*^9, 
   3.41606917921994*^9}, 3.41606921320741*^9, {3.4160694100269537`*^9, 
   3.416069448929337*^9}, 3.41606972440372*^9, {3.4160698757545567`*^9, 
   3.416069960268293*^9}, 3.416070249546339*^9, {3.4160762024931993`*^9, 
   3.4160762748552*^9}, 3.416119720790715*^9, 3.4161256350379343`*^9, {
   3.41612684015904*^9, 3.416126846918891*^9}, 3.416129515116835*^9, {
   3.4161296818192577`*^9, 3.4161296837393*^9}, 3.416131443300357*^9, {
   3.4161314928670673`*^9, 3.416131529863515*^9}, {3.44932454817101*^9, 
   3.4493246348229856`*^9}, 3.449324685467772*^9, {3.83102440019664*^9, 
   3.831024407648148*^9}},
 FontSize->16,
 CellLabel->"Out[23]=",ExpressionUUID->"1da73fb4-064d-4447-a1cb-7a764d09e485"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["No plano x-y, na fatia z=0.5 temos:", "Title",
 CellChangeTimes->{{3.413102146357444*^9, 3.413102196412619*^9}, {
  3.4135513770318737`*^9, 3.413551392668638*^9}, {3.413551946397057*^9, 
  3.4135519614127493`*^9}, {3.413788468569031*^9, 3.413788508224992*^9}, {
  3.415962046876835*^9, 3.415962065562806*^9}, {3.415962110819482*^9, 
  3.4159621241550198`*^9}, {3.4160495318169937`*^9, 3.416049532342512*^9}, {
  3.4160653872416077`*^9, 3.4160654269055862`*^9}, {3.416065922017639*^9, 
  3.416065936809675*^9}, {3.416066299241456*^9, 3.4160663028735027`*^9}, {
  3.416066917682255*^9, 3.416066952138117*^9}, {3.4160673449626923`*^9, 
  3.4160673757219257`*^9}, {3.416067548509029*^9, 3.41606759319333*^9}, {
  3.416069223962966*^9, 3.4160692977775507`*^9}, {3.4160697517296877`*^9, 
  3.416069762001704*^9}},
 FontSize->16,ExpressionUUID->"ca359b09-fd41-407e-8ce1-c4abb40cc442"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"DensityPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"rr", "[", 
        RowBox[{"x", ",", "y", ",", "0.5"}], "]"}], "^", "2"}], "*", 
      RowBox[{"Potencia", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "0.5"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", " ", 
       RowBox[{"-", "6"}], ",", " ", "6"}], "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "30"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4159619224403276`*^9, 3.4159619228734007`*^9}, {
   3.4159619771121197`*^9, 3.4159619811713667`*^9}, {3.41596289689926*^9, 
   3.415962916177791*^9}, {3.41596294795427*^9, 3.415962968153555*^9}, {
   3.415963005330037*^9, 3.415963182233945*^9}, {3.415963212450016*^9, 
   3.415963276802668*^9}, {3.415963670956476*^9, 3.4159637698922586`*^9}, {
   3.415963804855768*^9, 3.415963814860733*^9}, {3.4159638503769608`*^9, 
   3.415963854644606*^9}, {3.4159639985768337`*^9, 3.415964013331935*^9}, {
   3.4159640984107637`*^9, 3.41596410852617*^9}, {3.415964320821208*^9, 
   3.4159643856749268`*^9}, {3.4159644645414124`*^9, 
   3.4159644659148417`*^9}, {3.415964555131755*^9, 3.415964565914394*^9}, {
   3.415965819996462*^9, 3.415965837043582*^9}, {3.415965876772584*^9, 
   3.415965889868227*^9}, {3.4159659403335037`*^9, 3.415966185307839*^9}, {
   3.415985235962166*^9, 3.415985305351448*^9}, {3.415985358751975*^9, 
   3.415985478943315*^9}, {3.41598552459466*^9, 3.415985526185564*^9}, {
   3.415985569906578*^9, 3.4159856592877293`*^9}, {3.4160396516498137`*^9, 
   3.416039722313271*^9}, {3.416039800145772*^9, 3.416039821833609*^9}, {
   3.416065439925946*^9, 3.416065458045442*^9}, {3.416065506295891*^9, 
   3.4160655865572023`*^9}, {3.416065684216*^9, 3.416065704693136*^9}, {
   3.4160657504535837`*^9, 3.4160657528693*^9}, {3.4160657849519567`*^9, 
   3.416065813613912*^9}, {3.416065848304619*^9, 3.416065878661913*^9}, {
   3.4160659507828293`*^9, 3.4160659511021967`*^9}, {3.416066312110375*^9, 
   3.416066312182185*^9}, {3.4160666527224913`*^9, 3.416066722310258*^9}, {
   3.416066760241209*^9, 3.4160667603088408`*^9}, {3.416066804705159*^9, 
   3.416066848990328*^9}, {3.416066955631016*^9, 3.41606695949426*^9}, {
   3.416067279982493*^9, 3.4160672989100027`*^9}, {3.4160674803669453`*^9, 
   3.416067502926255*^9}, {3.416067597023044*^9, 3.4160676265421667`*^9}, {
   3.4160681898750563`*^9, 3.41606825194353*^9}, {3.4160682915058928`*^9, 
   3.416068327986458*^9}, {3.416068397435061*^9, 3.416068434711678*^9}, {
   3.416068500928258*^9, 3.416068521829611*^9}, {3.41606856306653*^9, 
   3.416068565430552*^9}, {3.416068611657249*^9, 3.41606866911102*^9}, {
   3.4160687212577877`*^9, 3.416068776198695*^9}, {3.416068814201564*^9, 
   3.4160688594144917`*^9}, {3.416068904417469*^9, 3.416068942711397*^9}, 
   3.416068976674193*^9, {3.4160690418664713`*^9, 3.4160690509228067`*^9}, {
   3.416069086226755*^9, 3.41606908639513*^9}, {3.416069124850877*^9, 
   3.416069170688073*^9}, {3.4160693014889097`*^9, 3.416069325663971*^9}, {
   3.41606936245056*^9, 3.416069362558382*^9}, {3.4160697672648287`*^9, 
   3.4160698601033916`*^9}, {3.41611955817633*^9, 3.4161195678677387`*^9}, {
   3.416125758462467*^9, 3.416125761491802*^9}, {3.449324674146617*^9, 
   3.449324674414823*^9}},
 FontSize->16,
 CellLabel->"In[24]:=",
 CellID->1801012840,ExpressionUUID->"4d22d13e-b128-4b64-a6a8-89faab1469f5"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0.6283185307179586, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, Pi}}, Typeset`size$$ = {360., {177., 184.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$20478$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$20478$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DensityPlot[$CellContext`rr[$CellContext`x, $CellContext`y, 
           0.5]^2 $CellContext`Potencia[$CellContext`t$$, $CellContext`x, \
$CellContext`y, 0.5], {$CellContext`x, -6, 6}, {$CellContext`y, -6, 6}, 
        PlotPoints -> 30], "Specifications" :> {{$CellContext`t$$, 0, Pi}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{407., {240., 247.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.416069332155898*^9, 3.416069404239678*^9}, {
   3.416069777881811*^9, 3.416069860728525*^9}, 3.416070250333108*^9, {
   3.4160762812766523`*^9, 3.416076292927375*^9}, 3.4161197277116623`*^9, 
   3.416125637195529*^9, 3.416125761924589*^9, {3.416127084942067*^9, 
   3.416127108670822*^9}, 3.416129517230858*^9, {3.416129690163254*^9, 
   3.416129691851288*^9}, {3.416131618857922*^9, 3.4161316307563457`*^9}, {
   3.449324648946516*^9, 3.449324675604834*^9}, {3.8310244352717857`*^9, 
   3.831024440429159*^9}},
 FontSize->16,
 CellLabel->"Out[24]=",ExpressionUUID->"e154a3d1-44df-4bad-a089-6131efa50016"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PotenciaAntena", "[", 
    RowBox[{"d_", ",", "\[Lambda]_", ",", "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Abs", "[", 
     FractionBox[
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", 
           RowBox[{"\[Pi]", "/", "\[Lambda]"}]}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"d", "/", "2"}], ")"}], "*", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], "-", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", 
           RowBox[{"\[Pi]", "/", "\[Lambda]"}]}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"d", "/", "2"}], ")"}]}], "]"}]}], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]], "]"}], "^", "2"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.449393765367011*^9, 3.4493938826615057`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"4d677f95-200c-492d-a98b-1044d28e45cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"DensityPlot", "[", 
    RowBox[{
     RowBox[{"PotenciaAntena", "[", 
      RowBox[{"1", ",", "\[Lambda]", ",", 
       RowBox[{"x", "/", 
        SqrtBox[
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}]]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "30"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", "0.1", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.449393890659873*^9, 3.4493939968046837`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"475b8fae-5aaf-4944-ac90-85fcc2ed8000"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Lambda]$$ = 1.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Lambda]$$], 0.1, 5}}, Typeset`size$$ = {
    360., {176., 180.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Lambda]$21284$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Lambda]$$ = 0.1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Lambda]$$, $CellContext`\[Lambda]$21284$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> DensityPlot[
        $CellContext`PotenciaAntena[
        1, $CellContext`\[Lambda]$$, $CellContext`x/
         Sqrt[$CellContext`x^2 + $CellContext`y^2]], {$CellContext`x, -10, 
         10}, {$CellContext`y, -10, 10}, PlotPoints -> 30], 
      "Specifications" :> {{$CellContext`\[Lambda]$$, 0.1, 5}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {234., 240.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4493939990813026`*^9, 3.449394024500369*^9}, {
  3.831024454788821*^9, 3.831024457494258*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"db4c0958-08c5-48a7-9343-33b91ab7d14b"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1037, 742},
WindowMargins->{{Automatic, 233}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, 
  FrontEndVersion -> "12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1808, 38, 261, "Title",ExpressionUUID->"c7485c22-1f51-490b-8b0e-a92147c2f70a"],
Cell[2378, 62, 3282, 85, 279, "Input",ExpressionUUID->"c68ffe94-3183-47eb-b423-a079c42d0fde"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5697, 152, 652, 9, 71, "Title",ExpressionUUID->"c6b4021e-7055-40d8-a096-bc6cc2a8d3b3"],
Cell[6352, 163, 1257, 35, 73, "Input",ExpressionUUID->"870e13b3-98b7-4d1e-b25d-f7bba648f1ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7646, 203, 699, 10, 71, "Title",ExpressionUUID->"e7e8cebe-68de-42e2-bd0d-ba5b2db967ba"],
Cell[8348, 215, 1706, 47, 73, "Input",ExpressionUUID->"2ecbbc1e-3c4a-4ec2-98af-d9f0b4dc9416"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10091, 267, 844, 13, 61, "Title",ExpressionUUID->"74bc4e0a-8d73-4bd1-8bd4-8df1ed4871ab"],
Cell[CellGroupData[{
Cell[10960, 284, 2346, 44, 51, "Input",ExpressionUUID->"b92295ba-e98e-4ac9-aa45-8bbfc1d4f461",
 CellID->90584160],
Cell[13309, 330, 3029, 55, 498, "Output",ExpressionUUID->"7508d38d-ee7d-4f66-a0f4-9bc179823bba"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16387, 391, 830, 11, 61, "Title",ExpressionUUID->"a9bcfa25-a474-4e4f-b8fb-680cc6846581"],
Cell[CellGroupData[{
Cell[17242, 406, 2373, 44, 51, "Input",ExpressionUUID->"aca61a34-a67e-452d-ab20-7adb15ab6cdc",
 CellID->1054151847],
Cell[19618, 452, 2473, 47, 532, "Output",ExpressionUUID->"bf27ff93-db9c-4f04-9bcb-831797fc218a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22140, 505, 882, 12, 61, "Title",ExpressionUUID->"53301ec8-baf3-48bf-8425-b7126360d6e1"],
Cell[CellGroupData[{
Cell[23047, 521, 2349, 43, 51, "Input",ExpressionUUID->"089f741e-95bf-493f-9693-e8315656bfb4",
 CellID->786994525],
Cell[25399, 566, 2251, 43, 470, "Output",ExpressionUUID->"5a0c8417-44af-4581-8e50-51f7fec2c03b"]
}, Open  ]],
Cell[27665, 612, 276, 6, 51, "Input",ExpressionUUID->"cac834d9-6986-40fc-9fbf-bb8b854411c1",
 CellID->62491204]
}, Open  ]],
Cell[CellGroupData[{
Cell[27978, 623, 836, 14, 111, "Title",ExpressionUUID->"14843383-d6b7-40fa-9864-4f4d26cd7bab"],
Cell[CellGroupData[{
Cell[28839, 641, 2024, 53, 79, "Input",ExpressionUUID->"bd5e6880-41f4-4b8f-b993-e0b716399df7",
 CellID->1830028223],
Cell[30866, 696, 3959, 70, 498, "Output",ExpressionUUID->"b9604e54-6bd6-4200-b2b9-d65727cf57e5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34874, 772, 835, 13, 86, "Title",ExpressionUUID->"1b1c641f-2316-43a0-8ab0-34cac1e9b36b"],
Cell[CellGroupData[{
Cell[35734, 789, 2056, 54, 79, "Input",ExpressionUUID->"5d2eb2a6-7b4c-4ff8-94d0-1a4aac460700",
 CellID->390004779],
Cell[37793, 845, 3039, 58, 498, "Output",ExpressionUUID->"1656dcae-e9be-4e76-b107-9e4eba08bf37"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40881, 909, 1025, 16, 111, "Title",ExpressionUUID->"5259a7b1-a5c5-498c-93df-f4e43d493853"],
Cell[CellGroupData[{
Cell[41931, 929, 2013, 52, 79, "Input",ExpressionUUID->"70991898-1e66-4738-bbe7-fcaab9428cbf",
 CellID->665199802],
Cell[43947, 983, 4237, 74, 540, "Output",ExpressionUUID->"cf5c29ed-cf92-4a73-ba3b-ca1c5c76bac2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48233, 1063, 831, 13, 61, "Title",ExpressionUUID->"d8252727-a4a9-429e-a5a9-7f12e8ecad00"],
Cell[CellGroupData[{
Cell[49089, 1080, 2058, 53, 79, "Input",ExpressionUUID->"09320a1e-dd5c-444b-9cfd-b6d7dcaf624c",
 CellID->213205932],
Cell[51150, 1135, 3091, 58, 540, "Output",ExpressionUUID->"a0040ea6-5cbc-4fc1-a66a-28d29e6d5dd8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54290, 1199, 873, 13, 86, "Title",ExpressionUUID->"eb250aaa-af19-4d5d-a06f-94ac8d166965"],
Cell[55166, 1214, 957, 23, 51, "Input",ExpressionUUID->"c3d26e1d-bd3e-4f70-99ad-c27480d8c854"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56160, 1242, 868, 12, 61, "Title",ExpressionUUID->"5efd9539-099f-442b-97f3-e9a88bb42bbb"],
Cell[CellGroupData[{
Cell[57053, 1258, 2083, 53, 79, "Input",ExpressionUUID->"6a1fd4bb-b16a-463e-bad4-1f9000324a9a",
 CellID->1349375928],
Cell[59139, 1313, 2821, 54, 574, "Output",ExpressionUUID->"53b0eadc-cfba-43e9-8135-fdb412c22424"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[62009, 1373, 817, 11, 61, "Title",ExpressionUUID->"334b20ce-5648-4944-b606-d9f7879b9d59"],
Cell[CellGroupData[{
Cell[62851, 1388, 2089, 53, 149, "Input",ExpressionUUID->"4de0c736-8538-429f-9e7b-5f23fa96f859",
 CellID->1533909576],
Cell[64943, 1443, 2821, 54, 522, "Output",ExpressionUUID->"76268dae-d844-489f-8fa9-ad6b8e238b98"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[67813, 1503, 1013, 16, 61, "Title",ExpressionUUID->"b3c0ba4a-01de-45f9-85c8-a2b460f04843"],
Cell[68829, 1521, 897, 25, 77, "Input",ExpressionUUID->"9b67b500-c657-4d04-b997-cb39809a69fa"],
Cell[CellGroupData[{
Cell[69751, 1550, 3652, 59, 95, "Input",ExpressionUUID->"bd98fce7-d01d-4ebe-991f-dc880472deca",
 CellID->204508181],
Cell[73406, 1611, 131461, 2172, 378, "Output",ExpressionUUID->"1ebaddba-da09-4556-bcf8-42cd24fc7dfb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204904, 3788, 3707, 62, 51, "Input",ExpressionUUID->"41906933-9553-41ae-9c55-bfd803e941e6",
 CellID->2024545244],
Cell[208614, 3852, 2730, 50, 506, "Output",ExpressionUUID->"1da73fb4-064d-4447-a1cb-7a764d09e485"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[211393, 3908, 883, 12, 61, "Title",ExpressionUUID->"ca359b09-fd41-407e-8ce1-c4abb40cc442"],
Cell[CellGroupData[{
Cell[212301, 3924, 3616, 61, 51, "Input",ExpressionUUID->"4d22d13e-b128-4b64-a6a8-89faab1469f5",
 CellID->1801012840],
Cell[215920, 3987, 2367, 44, 506, "Output",ExpressionUUID->"e154a3d1-44df-4bad-a089-6131efa50016"]
}, Open  ]],
Cell[218302, 4034, 965, 27, 63, "Input",ExpressionUUID->"4d677f95-200c-492d-a98b-1044d28e45cc"],
Cell[CellGroupData[{
Cell[219292, 4065, 831, 22, 57, "Input",ExpressionUUID->"475b8fae-5aaf-4944-ac90-85fcc2ed8000"],
Cell[220126, 4089, 1982, 38, 493, "Output",ExpressionUUID->"db4c0958-08c5-48a7-9343-33b91ab7d14b"]
}, Open  ]]
}, Open  ]]
}
]
*)