(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    100331,       2007]
NotebookOptionsPosition[     98688,       1968]
NotebookOutlinePosition[     99046,       1984]
CellTagsIndexPosition[     99003,       1981]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Cabo Coaxial\n\nNo caso do modo TM na guia de onda, resolvemos para a \
componente ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["E", "z"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "16417ffa-509d-4e52-b6c2-2f73d9ba569f"],
 " do campo el\[EAcute]trico, tendo encontrado que:\n\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["E", "z"], "(", 
     RowBox[{"\[Rho]", ",", "\[CurlyPhi]", ",", "z"}], ")"}], " ", "=", " ", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"m", "=", "0"}], "\[Infinity]"], 
     RowBox[{
      RowBox[{
       SubscriptBox["E", "m"], " ", "[", 
       RowBox[{
        RowBox[{
         SubscriptBox["J", "m"], "(", "s", ")"}], " ", "+", " ", 
        RowBox[{
         SubscriptBox["\[Alpha]", "m"], " ", 
         RowBox[{
          SubscriptBox["Y", "m"], "(", "s", ")"}]}]}], "]"}], " ", 
      SuperscriptBox["e", 
       RowBox[{"i", " ", "m", " ", "\[CurlyPhi]"}]], " ", 
      SuperscriptBox["e", 
       RowBox[{"i", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["k", "z"], "z"}], " ", "-", " ", 
          RowBox[{"w", " ", "t"}]}], ")"}]}]]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "27699204-0291-4ad0-8ee6-1307ead63f23"],
 "\n\nonde ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["J", "m"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "b26ed657-923e-4908-bfe5-0f386e5a993e"],
 " e ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["Y", "m"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "ebf5ec42-5b3d-4e28-8d66-236720318fa4"],
 " s\[ATilde]o as fun\[CCedilla]\[OTilde]es de Bessel do 1o e 2o tipo, \
respectivamente, e ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", 
    RowBox[{"\[Rho]", "\[Times]", 
     SqrtBox[
      RowBox[{
       FractionBox[
        SuperscriptBox["\[Omega]", "2"], 
        SuperscriptBox["c", "2"]], "-", 
       SuperscriptBox[
        SubscriptBox["k", "z"], "2"]}]]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "eb67853a-7e30-45da-a71c-6941d6a9149f"],
 " .\n\nAqui est\[ATilde]o algumas fun\[CCedilla]\[OTilde]es de Bessel para \
sua aprecia\[CCedilla]\[ATilde]o:\n"
}], "Section",
 CellChangeTimes->{{3.7637472637234793`*^9, 3.763747430486923*^9}, {
  3.7637474990137*^9, 
  3.763747499685522*^9}},ExpressionUUID->"1b5f0651-b302-443f-bc05-\
f1b492b2e22a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"BesselJ", "[", 
        RowBox[{"0", ",", "x"}], "]"}], ",", 
       RowBox[{"BesselJ", "[", 
        RowBox[{"1", ",", "x"}], "]"}], ",", 
       RowBox[{"BesselJ", "[", 
        RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.1", ",", "10"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"BesselY", "[", 
        RowBox[{"0", ",", "x"}], "]"}], ",", 
       RowBox[{"BesselY", "[", 
        RowBox[{"1", ",", "x"}], "]"}], ",", 
       RowBox[{"BesselY", "[", 
        RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.1", ",", "10"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.698675695473933*^9, 3.698675733859625*^9}, {
  3.698755794551091*^9, 
  3.6987559063134127`*^9}},ExpressionUUID->"9acaf589-2b3e-4f6c-8899-\
1cb6a258bbbe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlnk8Vd/XxyVkvNdQpnuNtyJUKkqovYSiwfSToVSiUiEqyZSiEiXznPBV
powhc7YpmYd7M1whZR5vKYpUz3n+Oq/3a++9zjqf9VlrHzk7F7OL7GxsbAvr
2Nj+/5nDOP0nMb4c3bFZOBc4y0JKpyTfxttWoO2khkj9GRbKHOn3iVGoRNNW
RVtXplgobf7kWuibKtQaeMBJd4KFkjaY/Pbvxsh0Y/CjCyMsRDryaAgdr0HT
jc/efRhmIaPHlw5U59egc7+/O2gNsVCb4JY/Fe616JjY5cFZJgs1SaX6FHPU
oz295fFMOgttOO83uPtyPSJ/NCT/6WKhwy9ttV+31iPbtw4s0U4Weqcks5Yb
0YB+Halb3N7KQnX7Er0zZBvRVk8Jmek6Fqo0jfFK0G5GtqJvx6MKWGg16taA
eEozUgkfcpPJYyHNfnPN2PUtqC/Xwjclm4XKzoqsRra0oB3PBjkC0lmo2DHM
86lVG1IZnWP79IyF8h4+9rjn1om2WYw1NT9gofmmK/1/+zqR/OuEkCo/FhIN
2JxYLdWFiv/VfUnzZSGL5vVr2n5daHMSp7aNBwt9MK6r3G/QjdJTAgYsHVmo
ywZp7emlI8EAXrFgYxaKfHIgVY6fgaieua/ijxHnK7R4BA8xUP/bGp3EIyw0
KKbRN5fLQDSdSv97iIWm6ao30x9+QG93fgx+t4OF2A3lsyXUe5GpVFalLh+h
z21ZYW7HXtR65HV4KhcLBaZLey6n9CLriN7Q5XVEfTgoRxj8fSitxJnk+2sB
SWKR0eCxPmQWUn+ab3wB7VHnpLBFMRE557afXNUCWrZf77/QzEQMgTHyh5IF
VBGxbnrwHxPlvej/6v16AcHXPyXljgOI9KXyTXb6AjqevWx2U/cjYp42SXwS
toAuyE09nlgcRJcTDdyN7RZQa8DFOxOKI+ip4UOjP3/mEUkRNDceGkEXH31M
6fo5j0yaJX/qnB5Bndyuawnf5lEvX5fr86cjKCa2Z2Dj+Dz6EqZ5wXxxBG2b
4Qh43jqPVhPIx+oqP6NXNTM7OGPnkVJ+uXiS0Sj6M866pKswjx73CRSfdJtA
ATPvzNV3zKHpGDM2zqcT6H2Yz2+BrXPIwCL2eHHaBHoRZ8EYlppDG3pkx4X7
JtCHjJXNVwTm0AP6HtGu/ZPomPPpEtm5WXSn3drj6L9JpMgd3SmdOYtc69O0
0eNplFRyweu65CyyzD/wTjFlDgk/3aNtMj2NDN7w5LIq5tDqaDfDa3gaaVT2
RJX0zKFXPEtXnzOmkeR75wt6fPNo4cDpvJa302h4+Pl6W/d5FOvop9gYPo0u
kf7qxB5fQKmy/+b1NaaRm3N1NecKC4lft88IvzuFmqNlbL5lfkPeznJHc39N
INEwIb/kph8o8ltRheTgKHpmMyeqo/wLJXGziYSpjqD0Od6Ejb6/0dZb4wO2
rf1opCzBoDz2L7pfeLgkP6YbZWXzFCuuskFSxZHj7aX1aCXO13roCTvooDC9
fRczEP/l6KVXmzigYG2t7/CtbKyVInt0sYYTRIwybeaN63FUfjPP9vecIPGj
feqEdz1eqL7R7NDOCcLPllBMej1OGWowGGJywuc6LcHhtXrMQblypGmRE7Rp
sv4GmQ24Lfq1XtJmLshe/0fee/UdPvvkEDoayAWmrXsG5580YT/3C2qpxhtA
UVkoY+ZcO/a1ZA3YWWyAG6l6bz4/asc+Gl5+tDMbQPXcx+1l+e3YYzW04+XV
DXC8s01m/b92fM238nLGww1gOetsQU7swKcChJ/nVG6Aae0rnd87O/HumBrO
UgVuUHyvlKBL7saqt4/l3N7BDQnWF5wV5LrxdqteMw11bjhkNE9e3d2NFSXn
kssPcYP1RVamo0U3lk4S06w6ww26IqK37yZ2Y970a9dqI7mB5c3Ge2ELHY++
ofa1/uOGII/aaz+3MfBlaf/PTlw8IKcTQbbdz8BzAZOzAgI8MBsXdbXUgIGX
LQvZTCR5IGBHgdZuBwbmXj2i9EGNBzbe4W+wfMHAKgdv3hm8wgMW2rJnzop/
wO6NzbR5Bg9US/YYaC19wKs7du4IGeCBqGGhezfYe/Dd2CiNnZ95wM5XfDqW
3IMDL587cX2BB7y2bTuUu60HP+Ndcl/i5oVIja1568704Boj2ZY/B3hhfkjc
16imB/P0ubuSMnkh6Ac5zc6zF3PJ75E6kMcLgWMmhs/v92J2Z1azYzEvVO8O
k2562ovX2C/Tmmt4wbY30Xzhv178dYd1730mL4ik51X5NPfi/gAt7RVePnAb
e8uRsqkP93T/nFIQ4oMIt0czg9J9mE4tjrYQ44NN8nsmeRT7cFuhCquIxgeX
HmAZNc0+XDMslXpNmw8M3hlfaT7ThzP3snGPORPrku4nl//rw2l+VcXCbnzA
WREkqvaqD6e2eZzX8eKDRqn/DZ4v7MOJdt8qkgL44NN8+I2ndX04LOSLs3Uy
HygoHCna/KUP355oYHR0EfG46LNm0v34cExQcvkefnho4s6X/bgfTxUq7Lmm
yQ9/GUGF18L7cVDnu0Z5HX6Yqlu7IxPXj9u42ReeGPGD++ssf4O0fmzq7aV9
9go//O+jzNGy6n5sY+vIZE/mB/Gv6tvJC/34rw+Pc2kaP7QnR+qlfe/HyfEZ
bE45/NBs/eWR4ko//kIfVegp54dnpkXRy+uZ2EHfxj3jAz/QuTdPFYgz8Q2l
EyLHeQUg8Enp6eSDTLzxyGw6m5AAbPnYlcuty8Rv7IM034gJwAtdnYPnjjDx
r8R356W3CMDhmP2yH4yZ+A75YMFXJADuzHObhs4xsbTKoG7aYQF4a1MdUGDP
xDUGXn3WJwRAriVP97oDE7P7l/ytOyUAkf25GRXXmDjwx44T0bcEAMWbGzn7
MLGSUPuIoY8AFPsrmGXfZeLW7Y5uf/0FYIX9xutefyYmOWQ8cwgTgHkXpSdL
gUwcxZSZ2Z8tALsdUmf+F8XEe5ff3ll4LQCrCud5/sQwcZ+wjdCLMgGYek+L
iYxnYsnjcRr8jQLgcqh+fVASEydXCz4aHhGAPIq0R3QGE5e95XwrOykAlMlH
do+ymJhetbpoNy8AFX3Pdl3JZmKuyrGzkysCwBa+FrCWx8SyFcyobWwkWLZZ
FcorYGLN8o4WRy4SrJpwPDEuZGLn0rK9X4VJ8K50ycTuDRMHlOQ67ZYgQfeV
9lRGCROnvElNdZMhwYvq8Dm1Mib+UBRMWlEmwQ9PsRvvK5h4odBPT2s3CXyk
uIt+VTIxd6G71x0NEjCYussSb5lYq8B2Yp0+CdqumIaoYCY2zz9J1TtGgul9
4VNSNUx8Le+oWYApCf4j/zL+R3BgLgpssiTBmIfJ+65aJk7NUavmPUuCqSYn
04g6Jq7K3vbj+AUSiMgqfNOtZ+LeV9JKoVdJ0OJwPmuc4K9ZIrbdriQwM+G8
c7uBiXmyuGNEbpMgz4jDZYVg+cw/rSfvkMAwwdLf8R0Ta2csrou7T4IlJbaK
doIt0if3DQSR4F4Jl4RsIxO7pg06U8NIkJbnnWpH8OOX3S/OxhB6HLxtHU3w
yxeNzJREEkgbSuiUEVydWkkeTSVB2cUgm1aC+/4r0N+SRYLO4eW8DoK/pqR5
O+STQD8/TquOYN6UhNdZb0iwdjeXM53gzcmhk7OVxPvSvAW9CD6Y9EBqRx0J
bKRNzx0k2Oq55/9cm0igE3p/aZHI90bitaDCDhLwHXLtjSU4+Jk9/vGBBHXy
PpzbCU5LsFra+5EE296KBBQS318df0LZ8zMJXDSzTysS3B936HzlJAmyz1YH
hRD6Lcbui/0zTwK3gC6RcUJv/liVdvSDBCYvnf4oE7w1Rm69/yoJDA5uOWpP
1AeiRfc3sJHByjHqz2Oifjcj2dIMBMjgmLI5I7uayCdiaeCxCBm8o5JfviT8
kB4+I9guQYbnCw/EQqqYeCD0g4/pVjKYOUc77Sb89COkuTBShQw2yRYW84Tf
SCHVUz27yaB1Iq8hrpSJdYIzzU8hMjg/SD5YW8zEp548f5yoT4aaKV6zg0VM
7PY4omb4GBluehasZL9m4sxAHxV7KzLczk3eZE30A/mhCYfTdTJcNbvwbTWd
iTtOKsipeRD5mpm1dL8k8t3698CaLxl2Uuh5MamEn5uybwcHkyFjiqtg5jkT
s/FtmM3JIAPvpxXlqkhCz49DG27lkcE0ZHRlfTgT++QUbz7whgx6ZRf+7Q9h
4pUTdmfb68iQNbLw3pWYB4thb7vnh8jwv6H4rzzEPCk4H7XwZox43ytXaoMH
0Q+7Hfl8Z8nQI3ohz+kWE88yxPVJK2RgHUmmBhHz6Aafpo0YryCcWPZrYxHz
7KpRdOe+LYKARBkznoiJm0vYhp8pCsLuzfdspLSYWFHGae6fsiAMbMiLy9/L
xBOsQzxNuwUhb2r5ccp2JrYP/3rICgSh75eW8BtJJrb5cKzE4zTBZcGped/6
caV2acPgWUEoenBmSmeuH0umyTPAThCO66Zcapjox/23VljcVwQhxPHgttiP
/dhcLGNbvLsgtHXsiXBr6McnTrE/Lw8XhMesl46bIvuxK9fpIYFoQTiS/mP2
bXA/jigskrKLE4S48euFFgFEPN6LSbzJgvCr1nintWc/tqt8n3w6h4j3fKQ0
9Ww/vk19mvqnURDoPBbxRlv78X/DYpk6a0T8xfEZRNyHDY9dp6L/CUL0mdR1
bKl9eGJvs+IMuxBULRZYvY7vwyqhXlkRPEKwg23j9GRgHy5BQ69GRYXAJ6j+
TtqlPtyakpr7cJcQkHt6x6/I9OElu+1FzZeE4PCJ1izzgF5sfu91w9gVIXDu
2bJ11acXFz5X7/3nJASx49w1kTd7sWv/gRX1m0Igknfm6gvbXjx3wgil3hWC
89GbnNQ1e/EXDZdWrzgh6N0r3Ko024M7SK9HlVuIddXgfeF6PTizQm1jyHZh
WJoevEbqY2BmzTaJOVVhKNZRvv6jmYF530tLH1UThmgZu48dVQzsxOBW5NIi
eDpG5HwqA6vODWr5GghD4oc8gzUnBi6Temh/zV4YYvRH74uxMXDTvZ5Co3hh
cFgbP6QqTcfTh91NyZwi0I3lft7Q7sJ75aOYeh0ikCy2VqVT04QvLLAPBURu
hBJNBroeVoNlWdlVD69sglG+o991ruTiqYO7JjV2iYKm3fvbW93uo4P1X+cz
ecTg4V0DleP7ipG7xjrXLcNiYGb36ZicRB16NKu25+BnMfimI9K0Vb0OxSVd
XrYYEwPnXfrlUqZ1qIKjyydwRgykvwnVfgqsQ3+7koJml8Vg6tKjnsKfxPkr
2i9ek8VB4NuHnEB6PYpLuN17QEccWOrfN0T4vEPla/PaFi/FIXTPXK16chNK
jIv4/jpDHG5OuAvuKW9C99T2vRLIFocg5cXLFEYTOux0T+zda3EIC5RYy+Fq
Rh8+Ci/uweKQbKIrQHdqRgsV+zKEBsThg4GbrJh6C5L39BNqJ0vA/z5HPFZ6
04o4N21tUhSRgL/Kzpec21rRVEGL7wNRCbALkQ+JH21F+VMic1pSEsT/T/7T
XKE2pG2V3vhKSQL0l1am6pzakMW+Vu9AfQkYOSexJU66HT1e2jih6y0BSl8K
B+JcO9Ar9nHnS74ScPHRA8mo+x2omfxmKdBPAsz4xQy8YjoQt9JJzo5HEmDp
nWK4oaoDBZyN3mwVJQFWLtQlea5O5Pd+k71TrgSIc58Ns47pRB7xoiNRnyRA
5eS6fv3/daG49AmH0i8S4JLwzfbq6S5UWlTCYo5LwK1dUl/u23eh5XaLf9Jz
EtDxURxH3+xCbuyx0lm/JKBnXYO/WmQXcnUUO/NWSBIKEwLhdFcXcjggPjCu
KwkmiejOvkPd6GhIT+Svw5LAe/nwKN2gG6l8ijjBd1QSPB+bmtgbd6PFewK1
qiaSkDHvqW5v0418G9gzvW0kIcE+ZXL4VjeKOTZ/S+iWJNiZjA7Wp3cjz8RX
Ozd7SILQkW3ReTndyGbeYXqvtyRc+3ZrZ0hhN5IP/WJj4ycJym8a16lUd6M8
ep9uxlNJSGlRHPv8oRs1WtcJHUiXhGh/qzk1NjrKenW31ThLEja8Telz4qSj
4N/aD+1yJCFq6FpAPC8dmT0v/fWoUBKa7EYUujfS0fBIzid6tSS4WJ89Xq5I
R8sOsbmX+yRhjce63tGIjphl5g7eA0R+l64osczoqIpHWC5kSBImd7IfcLCk
I//s4KiiUUko+/f6nLotHZFYft5/WUR+6RUehtfpaIu7k2EUNwVuDpxaMw6n
o4H8hOVpPgrcKXo76hJNR2HTTS8QmQJH7S3O+cfT0arNlr8zmyjg9/kt6e5/
dNShO1yoQ6OAyKTLrr4COrp/h982disFlN4cf/6kmI40SjUF5rdRoCfhZvTu
Mjp6oRTrEKdKgU0BJxWsMB15CJlQWQcocMbWpmpdOx1tP+bbrKdDgU7NA7eO
dtHRlwc57gl6FOiNqi5+yKCjE7+4u/WPUWCfo+c7BpOO5D/VPky0okDip3TZ
jnE6as3ZwzK8SYHPNgo3tH7T0b2J84nJ7hSwUR+6lPOHjvbKhhkueVIgwTt1
iMzGQCmRcy9S7lFg7tl10zwOBnLzSrP6+ZQC54SLzQ0FGGhbMYPzRDgFft/U
sDEiM9Dw/Lqi1CgK3K79PKEvxECG588KGD2jAP1zXwD/JgaSNhCre5lJrMeW
/v5JYSCGn77LajYFtlEfbw2XYqDAyptUk3wKWEky+qgyDPR9R5f77zcU+PlM
sotPnoEyL/+lmZZTQPiKlbgLjYHOpqp0p1dR4AR6Mt2wmYGaNgUpm9VTYMm0
YJuBAgPdMS7tz2ikAM+oYsItRQbaHTT+8E8zBRrlX8REb2OgxDWdkcwuCnQx
ePflKjOQ6V7Xp38ZFBhxfzf4UoWBuFyTNM37KGC5jSocup2YuaOrUf+GKBBm
E79TaycD2YWYi1A/U2Dy4c9HXwk2358XrjFGgeXhZdUEVQbSH9sgeHKSAvJR
95Q1djHQ3tDzIddnKPDH94FHC8GKmpX8IfMU4KatiJvuZiCJ8Y1PXn2lQEDe
R4E2gnnDrvG8/06Bi8s7rbT2MNCaZtOj0WUKjN5mW0kieGFcjottlQJqFme/
LRP8Kcz7AfUPBaqszx/SVWOgLq0e9v1sVAiYU5i/T3DdxA6/k+upkEvtWywj
uCg88N91LipYxSWYfyH4pfaXOyE8VHDKfSnCps5AMZNaa6/4if0GO3YJE/wo
ItrrPZkKq9/c88QJ9jjA+jUqTIUfHQ3BIgRfnTK4zSZKBZekC+3sBJ+OTF2i
SlDhb2nW9Qki/vGDazf3U6nAybfgVU3wwemTiydlqCAvFTHzmOCdUfmuN+Sp
wNjwp/YYwbKIhxWyhQpCHons6wgWnrFzzlakAil3LPcV8b0c0VWz75WJ/N1N
3hkQvIREr47toILyrvNHPxL6Tcy4TLHtpoJFS9JBO4L7o5svSalTIbw09sUQ
oX8z0Mb3a1Ah/veI1wmCK2Z97C20qDAoI9r4mqjfcx1V21AdKrT006stifqG
zAUNZ+tRgUOm0CV+BwPdix21aTpChUNZKs86CX/YzcdYrzOiwsj9mcsShH/M
4772SZkS+oWUk7YT/tLXPWqhaU6F9cZae9WViPrH/zG7eYoKXEVvhGiEPyX1
LLtDz1Chbsy5mZvwLx+rwDjHlgpSY5a8o1uIeutdOD5+iQrNzo923iL8X/S1
Rd/yJhUKJRSRoDRRv2ebG266U+Hdj40eCVSifod9D4V5UoEi6HBUgug3j8Rd
qPkuoWdkR/0PMUJ/gzgNrWAqPOCTOEIj+lX1+7cSy1AqGJpdDzQj+lku6Zi6
WwQVZrN/u7kT/c7x4++u3DhC3xJO60QeQr/ki8oyaVSI0JwNtV3HQMF7VJ/7
ZlIhq/AZcP2jI5P3q6ThbCrcOGlTmrRGR/0LoYuJhVSoonBwZP6ko4kDFeWS
NVTYV/nEnTpPR6+6Hyh71VPBkiFdbDVDR84XjZ8zG4n9N0Lojybp6Efw2L24
dioUNPPXVH+mI/ZBkoHoRyqktKbXhvbQUaMLs/zWMBUm1q+/ak+no6D1L5V7
PlOB+VBFUKmTjgSV95OjpqiAFdddDGuiIxkv+16hZaIekwcSayvoSFu87IKA
kBTMFK6UlSfSEVuOf6/TRimw7InZiOPoqB6dMGgTk4KHWup5pVF0dNThi/IT
aSkwrknL8Q+mI+sS/u/cKlLQYnnd5J43Hbmbn/fjOCIFH7nPyEgT901+GG/S
bx8p8BMt+cRB3G950Wyf5e5JQUB+tCrzH3E/JizTDO5LwXRV1UTqKsEvv2RF
BUmBFU0qSvQrwWUVb7bHSMGlOWHnuwPdKGfkavu5fCno/nF89VRuN8pUbV2r
/ywFBtb+9dbHCFavRTNjUjBoFXt/VI9gzVJ/wSkpmMtoOmB/sBtl6L3gPrMg
BaoDEcV6u7pRupX3xuVVYr+T5/4w0W708p6yiuJGaai9PC9j9KkLpXQ9OR18
WBou/e2+/vhKF7KXcOlKNZQGhYdbdnLYdaGtdmb65celITly14LbqS6U+118
54SZNNjU9ARoHetCFaLp7HBOGro3sZefUelCPTY1Wd9vS0M5n2jrErMT8U7/
+HkqSxqMZzeO+HZ2oJvrzkZt45eBoTtSX12C2hD3nsI1f7IMsNpfyz13a0NJ
F7guDgrLgAd9OLnsXBtqeZ+nHiohAwU6R+sr1NuQbMi/3h9bZWBla/T1+ZFW
1Cb5n0SNjgz0UK5OSKq1os1qY0kWt4nz/t84+DuI/81LV7Puf5GBTXj+vciH
RpTyNIvD8KQsbCz7Ipb6tgZJsVem5tXKAn9k+EVe9SKiP918JVXkwHfXrFNd
fwTyXf/8rm2oHNyUMwiOOv8f1tj9ZYHjtxx8+CHbYHW/BHsERt+/f04eqAnT
F/Nka3HRz+EYgfPyMHFIL8Zwby1euKT4KtZOHpZ/Br/rP1aL7fUru7IvyoPQ
ep9FunstNmL/LPXBUR4abWIPqbfV4s0+KmWbPeShL0mnKsOtDne51M+9C5OH
gvBb75Yq6/E2y28nuevkgY1b2vKTXCNu0/z+paheHkKLjDMK1Buxq/SSy7l3
8jDW/r3U1bARl43/CippkodDp41nqlwbsYEbW/WFTnlgX2eg96C6ETuEk7fW
DspDsdKpuw0W73Fa6/Zlz5/y8O+j6P8qPZuwQf7O+1tW5CFFu+2w0ZMmPBex
S7B7VR4eyLaHdyQ2YbVT6kqKf+XBKoifIxY34YYp7bO9HDSIm/+tcZijGY9y
Hm/cLUwDNm0/gU2Pm7EcXI2ZVaHBq7KH91QftWC7wXXBXjtoULfRZqdVdAt+
6RHvx6NKAy8lp6hrL1qw4usmJ4U9NNDi47/ogFuwqryCrv1+GqS9vXomcLkF
A8cYa0CfBrPLF0v9zrdi26Yzhi1nabD873jJZqU2nHph6aC1LQ0G3JrMRfe2
4TG2p2pT52mQ4v1zcEmnDV/eXyXDdZEGtbTGSF/rNuz6SnJZx5EGd4R+/H3z
qA3fC+5LLb9NA0vJCVLZSBtONjFdywyjQdf96XvjD9rx0Xk9q0sRNFhISBTN
DG3Hy0EaxbQoGsTKpJz6X0I7NqqXcUqKpUHipXW99vnteE194WNkEg3IzxZ/
Ofa341OUJ5W+OTRQadCX3bi1A3OV+Ypp59Fg+8CBtbM7O3Ch+Y2bK/k0mD+j
oxqh0YF5QqyV3YpocP3nsaevj3bgMjbFZ1cqaPDAJCCe4dyBRScavMybaBAx
qr/1v/wOXOdf1ivUQgPjxYirLqUd+JpMzu7OVhrkLMTUbcEd+J1V5IxhJ7Gu
uCX5aEcHdms9fwr10gDf/5XhNtuBZS+fLFnro8HUBarC/cUO3MphKFzBpEHI
SGiS50oHlj+o2qI2RANeEZ6r0hs6cXfB3/1KYzS4qFgke0SuE/ucWIyeHKfB
moEuOVqhEyvOjH97OUmD4nD41LK9E9+jtWfJzNLAfPcViYX9nXhHzDOJTYs0
8OAsKRI27cQDu0Nv0b/TQO2w29Vki04c0OnfHbpEgyfXdL+K2HTiIe6rQbwr
NNCzP3i++FInDkw7M/5+lQbrbHIMRhw7sdohU52HazTQjMj/+d21E48M6z0/
9JcGZXdjnFi3OnGwt8bKv3808Ltdm0b36sT/B84YDhY=
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlnk8VO8Xx+2tCDP2ZQahhdJX0qJzCBGhhSSllCVJKlSSSlmSLGVLtiRb
kiRJckWKKDMYZDekCCFkHb/7+2fu6/26z53nPOd8zuc8dIdz+x15uLi4dpA/
/3/mNBxZSHj4Fsw3tOS7RWbBWlvp9w+PF8OHhUuv0g5lQ2Z3i2+M6juwqH/3
kSH3DJ4OW82Hvy4Bq3/r83mzcyBpieWcP5OAHQeXDHz58AKq5FJ9C/gqwDvk
7wbjf/nwbl+MT/yOaljuVDmqL/cWGHaw/b+menA+YLVkfWo51AQ6XutX6wb7
V17vms3qIKRZsMDKsx92/wi+VCTFgkMvdCvVUoZgRd/TFPW272D8etnzP8VD
oBRxyfPgyHfQeceKKmQNAWvIoOEsdytIfz57ymDFMBiFXllxWbUVOjsTeY97
DwPjZeSRgQut4CTE0Ys1GwH68Zc7tyxpA8+zpaX8M39gGyu5BVa3Q/5WwwP9
y0ahV/OmcLp2Ozzbse6zicQoFFz9+Xxhdzsk6P/LXbVpFK7+m+fccG0HP/Nw
vyTnUVD8rcvXnNsO+k6EXHH9KDypKDJ6q9UB1dEKdmOZY2A2fqZObnMn5B99
RfF4PQbT649fitvVCQmrd38d+TAGG+V/B/Pv7wT31+47h1rHYJTlySh07wRR
1nvaz5XjMNjx1NgroxPsKHY/2j3G4dFiVK6deBeM3o9zr9L5CxkuerufD3TB
d9v1qrsN/4JZm3rn6akuKFcs66rc9xdkx4opodzdEJ3/07LC9S8srVvdpyzU
Ddvqtf8rTfgLH3v9TblUu+GWCOvfK64JyAuWXGp3qBvEI0RuJldNQJqegHVM
fjcYz7ksWds0AR/cqe+vF3WDj1PZvYLeCai/e9DxeGk3dO44F1/NmQC3LX7u
S750Q/pA7au/WpNwrO6E5FB3N2zZFdy/+/EkCEpf8xcU7AHX3C63+txJMDe9
XnZatAcSpLb8tSuZhACdK+LvJXqAa/TH4vnmSXiVXcJlotgDVQm7pBIEp0Ak
0j90UrsHbKY4pqNXpsACrPyTj/VAyAnrep+gKThbPb7W7WQPlNQ+t+GPnoLY
+6GfN7j0AO2JnaN03hTobT3X+Oh8DwxYFPsZ9E+B5q7/+Jbc7gGfLK+Xcfv/
gaWG6RK1jB54ZDckrrduGh6ovRUJ7u+B9qbpU6E603BEITxVfrAHZPfxv2o2
nIYQ3nWGOcNk/IbyFu7Hp6FH90xxzgTJGpZBj6KnIf6pip4+DxuSuAr+TS5O
w5qw/rxSGTZ0+pQZ6gnOwMCy6epKeTbIT9Y+CJWeAS2LiZ4KOrl+4McGpc0z
UJGbsfypKhuS6yVcLF1nQMf2j9LcJjakpF1tyW6cAfVvR3Ind7OhWz5YZapn
BrIyp3e77WED7WGUp96fGXhQ+qb+uxkbHt97vqpl2SyciW8veriPDaneXcb8
MAva7kmvc2zZwB79HWNpNgvqzQKfWu3YoHhmuu/R4VnI544pXzxGrrcXubnJ
cxZKKlb4aZxkwxPjXW/ts2Yhhpk5Kn+GDX3lFkueFc7CB+dLB/nOskFZ185q
qmIWakrepHS7syFN02sstHMWjslQxq5dIFk6Y02x2BzkMQVcTK+Q30e9usRP
nwPPL8sFfvmQ3wuXVVpqzEHWetGQq75seMr7/cRP4zk4w221K+g6G9KHlsdT
/OYg6P6wl2YAG5rXVa6/GjIHgl5i+e6BbFh65jrREzMHh7l+cqcFscF14G9f
7os5SGo+0z51hw2P1HIvUUvmIFFDxJlylw21zi7LfavmQM/AjH9tKBvU+9s3
mPTMwY7tMb66YWw4tjq2/MXwHKivKLLaHs6GsFP7rMRn58g8RutrRrBhlF3p
0ys6DwrnGw7x32dDQVdu5TWDeZje5HTRPJoNP+RP2/RZzsOC5MHhlTFsED+m
9HvP0XkovcXjW0Hy5fbYVZLe88B56NYiGceGLJn9T/z852GeiE1/Q3Kr7Urt
H2HzAPYOIeYP2bDj+40j+Rnz4GHT9eBUPBvOSm4fkSyYh/hpheJekpMOTd64
XjYPs4my/2wfsaEu5oVYf+08GC9TMf1CMlfT6XSz7/Ng1RBRqJnABk2q8tZX
P+bhu9vrrZEkOxzsrJEanwdh+dHGXyTffxB37AZnHs4LPA7WSWRDRf3+sf7l
C+Aou97qBskTIoK390oswMj6mW1lJCvv+yxeoLQA+9subpsm2SriZpb0xgWo
TllxUC2JDYF123fc3LEA9Nr/gi1JfiM09e2n8QI43zzZ7EHyr715J8ytFiDw
LVX/DslS91wnCk4swKheddVDkvfUKgfJuC/AlhIut1SSr67okvL3WYCsRP31
T0jO2fMw51fgAkxqSC1PILnjzgGweLAAH+6KCtwjWahasP518gLopJbRvEmG
pVWnZHMWoHDTW9tDJHvs9v/nX7QAenXRBRtJfhy4I2Tg4wJotv3V4CG5vnJK
1pK5AHkhnl9qyPPx8r98UdixAHbskqB7JGsZnNGXG1yAN4VezrtJdry1mnVr
ijz/M1PXGTKfMeVdzoM8HHis9SfiCcmfueNnLYU5wLpPaTckeRoP3nsjwwHB
potm3WS9DhNV+be1OHBnb0PyAlnfEI6/4W/kwESq9e0bJBfr6rbs28uBfHnp
yDlSH7IlLxfknTgwdi9SpZXUz965MxEBFzjA4PTn6ZLst01FaciPAynhhNPD
WNI/iuKN38Zy4HWhk81WUo+2jySz1j3lQPb5mJNnSf02XotZlpTPgVGlpTvj
osh49e9/8f/KAZXV9o71pN5x9ap1k61k/LaZBT2RZDxLwu46/+JA8IG55p9k
f+TW3jEz410EmedEcgvZT2ovljwvXbUIb5NLjSrukf4SGSCoKb8Io97sT2lk
/0Vb3/xG3boIT+SHD5mFsMG3+7Jll/siLNT49aqT/T5VPpW3z3cRvs+MXqm7
RdbrqafIxzuLUHj4zYSzPxtOunrUZ6YtQsf9bYnXSL/YM+F88ELrIji/WvVj
O+k3K2+vy+FR4sJlCYFF/KR/mXi5tr9bw4VhQ2v2i58m9emUtdJrIxd+I+wG
5ZzJfjFRPftTlwt5MvLlREn/+yuopFFrw4W/e5d8DCP9szVWOi86jAsTdbYQ
raQfS9w53G0ezYXNgrwqdoZsOOgTt2ppAhfOCuRlN+qz4Zud+HmfLC70YGmK
P9NlQzlddJP9Ry60vHI3f5j096xnywrUZrmQ6ZYwVUPOi2PXkwPPcXHj+nHX
wxOSbKAc2Hy4UIAb/Zd/kaOKk/WcPc7ZJcaNPUOqDbCKDQdMiozt13NjjEeB
2jY+Niz0O3VEH+PGOPVPez+S8yu/eP5F+yluvKuiTlz82QMuYff9lc5w45H8
O69k+nqgfnOp6stL3LjHakHdqqMHMm5TL9RGcOPSY+GZ7nU9sE/xowBvBTfu
yzAq1M3vAYGpw99Nqrlxf5ewi3cuOX+r/zyLqOPGsrbvHzKye0DlvMw++XZu
XPdk46WJ1B6YIy482jrJjbf5JtS1H/TA06P0jR6qPPg3/cOi3YUemInzO9xx
lwcDm8vv7lnXA9oTI+F893lw5tDtlgKVHrhgYf9pXRwP3nnY6ixJ3g8G+fE/
nzQe9DaWOFwjSc7rC9yCEu95cGPGjvpu/h4oNbtdZjnCg7aPX4XWdnaDP1eI
6kdLXqRT7DTe3e2G0iOzR39b8+I6LhvDA4HdMFvoGiV6lBevKZjM9d3ohotn
TblPnObFJoq95aRXN5xqXdm2cJMX7weaTFXbd8PugvCwLa948bi38Ljhpm5Y
6RI9mU3lQ81zPPd2Pu2C4aifojayfJijNnGYFdsF3z5s3civxIf+sikSx0K6
IFym09V+Ix8ujEGw4bkuEK1T6RYz5UPqyrHNZ3W6QFK76IvvDT7cytMWrVrV
Ccp8bcnmv/mw7dGvK8EdHbA9hbZnvIwflxgc1hZlt8FN71NaqRZL8GQHx0ur
sBl6X8s21ywuRYO1HQHM1HpY1uztIZS5HImP1Mdh976AUcyd5Lf/rUQ3Adml
V7aVQXLpqqDObkE8nCilyq2dBsIBlnxu54Vx+MhXm9PCacReW57Et5GrsFBI
VaT1YCkx6aD+qtpJBCdZ7k+fLq0iDt54+bHvtAie261naqZaReQnbm5adBPB
CyNueV2GVYRHi+7M5osiWKp371atfxUxtNccUq+L4Ot3ca0lc1UEW+dcjU8c
+T7LpXNooJr4JvSyd90XEXSqD9LQfFNDqK/fPGn0VQRD7bJqrBtqiFCTtwIO
DBFcwsMf5fynhjC5/WFNXJMIbpya9d6jWkt8nGGe4+sVwYPFXjsoMbXEu77x
ufY5EbyrN//4+bmvRGaxFiVMXRRbLrdtzxKtI76XrZEa2iiKtpv2/NHTqCOW
f5aX36MlimOnd/uXmdQRbg1L1QS2i+JtjaOi527UERuH2rf7GYuiZH2Le8RQ
HVEkF3DS/aQo3uP5fXnInkFU3WDlmz8UxUMFaR+pa5jETOCXNzkJ5H4m63i1
NjOJtfeIkuUpoliO8h4Gekwi9GHWp0/porjn0mVi+2EmYZl/rXVngSgWGe5O
vBXMJFp6V/NsqBPFhVeZ7y/2MYkBI+99wvximIG3i/Ij6wnr0hhVraVi+O31
6cCjj+qJj5vfLNisEMPntSPEXFo9kaQ8nZUqIoYrH7Q4ixbVE/t5fHi05cVw
iVrZ2syOeqLk/bVXdlvE8Mh7auQFlQYiQiuAmn1aDE/eKJpzy20gFp49/f3N
TQx9o18t+BU2EK5Knz78PSeGnnxCy26XNhCGokvcdb3F8Eykn6bztwZi9k/w
J4a/GO501faPHG4gTj4LvfTvkRi+59/O47mmkdBWjPpu8E0M5xRnpo7HNhLO
HY97DjPFEO1rz79IbCTi4l4MuDeK4YldWVpjTxqJGaGambhWMTy1Zl2oeV4j
UTLHLT3cL4bxbJ9DHlWNhD7rnG30ohgGiPAoWEw1Ehcjrjlk81DQJOyhK3Ou
kUgzvetK8FPQqHXhpxE3i+AvT/cZWEFBP7vQiytWsoiq3I54XUkKrkpoy52l
sYi9waZtPzZSMLjEl+VhzCL8dh3unf2PgrdmN31YvZdF5HKcfgtvoaDnC9O6
r/tYxCov/7mtuhRMqC6y+GfLIupPvJUJM6Ggy+C9by/cWITNdlU7bQcKThv9
1C+8xyLuTGmdMnWkoKi94YrESBZR/FLf7bgLBRX3uw97R7MIGbVjviHuFNS+
OLDAm8giOinRCZ0+FPxz18/41jMWcWqEpyPwAQVXBxo5iH9iEc73b7Z0xlBQ
/dHFA+erWYSrNlejdjwF97PUKO9rWYSH38KX/hQKBn35xqfawCJ8haaLjHLJ
7/lDswy6WMT1fO+CpJcUvPFhu5wKm0X4W0++mCqgoGHNc4fpPhYRnDSenv6O
glILGafODbKIBxrDUQLVFKR7PjuQMcEiYurPRByrJc8Xzz4p/I9FxHkP3i2s
o+Ch/LN7XGZYRFLpT3+nJgruE/BJHFpgEY8dnPxKv1OQ8T58hSRXE5Em8OOK
eAcFxQ8rHtDiaSKyzdken3op2Jmz9wIINBHPx4+7yf+koIdDpanG0iYiL6bL
2XuQrMffSzxCy5uIws72YypjFKzve7kiRbCJKHdvNgvkUDDqil+OEKWJqBS1
Nu7kpmK4S2TYbWoTUVXYuEubn4ppTZKHfos3Ed84zG39K6jYNc5MuSvVRDBT
LbV3ClNxtcwH5UrpJqLRqE4zRpSKOa+So/7INBGtYbVqRlJUzM1YsVNCvono
2GSqnCRLxRGDFB+KQhPR3VStMKVARe/6TVk8tCai18dYxlyJilzjR2t6SO6X
/yyerkJFbu9K9kt6EzFQbijKWUPF8/biYxcUm4ghp4+C1upUtG8XmFZWaiJG
lu9alruRiuWG1jOfSR7L/cAnoEVFlP86dUS5iZjYj1zHtpDxCeuOd5M8NVU6
93obFZMGbgxbr24iZuJ1/wnupKJxsu/ge5Lnd5aMO+pRkTCU+01VaSIW2dtG
3htQ8Z/I4bFjJPMEvR2gGlPxlvWGxTiS+dfp/DhrSsX9/pniH0leWlfYXWlO
RQH5pq3dJK+4uLldbj8VBb/Uuw6TLCRR0OxlRcX+HeXPfpMs8m5Tw1cbKhYh
k9NKMsX+5bfVdlS0fbnZ6R3JErwbv1yzp+J1H42+UJKlM3IrWQ5UbIvivWpB
spyp+gd1Jyp28Amo85JM+/OsJOA0FbObw+czyPPY81nfSXOjop1gxGVDkpOk
uKwrzlGxmaXL00Tmo0MjW5F9gYpHi2IfHSZZ1uDgHy5vKtJWPTFikPk8cpjz
TuEKFWWXu/FvIznePTN4py+5Po2/NYash9TDebqvPxU3F0l+XUPWyyY3fSQ+
gIrzG1v/2JP1jKuwfPc2mIp6BvMb75D1Fx9JO/gvjMx/xw6J13JNhBWvBV38
PhXzn3wveyPbRERJzgxrRVMx+EZD5HNST6K79gZdeERFIZvVry6Q+ttn8+9A
ZBIVRRI0l+pLNhERZx/T8h5TcUUgbxifBJnfuMm3wxmkXgeyN58k9b33eXLg
ymdUlL/marco2kSElpscWJdLxZkfFe/DRMj6DCcOuRRQccdqh21BQk3EHh7j
t0FvqBiU/cl2dGUTESIxHpBeTMVvx/jKzFaQ9dU3Uugro+JxqaiTXUuaCL7Y
kX32X6mYUalt60b2666cOHk/BhWPTDsPneOQfvFB/3dCAxlf6sbvTvMsgmso
5nbrdyrGHvzxVWOaRSwgvLHqJ98rtHiq/mERO6wHbnkOUHHlk/vrPw2RfnTm
geWDISqm5phY25D+Mhv9c4AxTsX3Xu0rDv1gEVOD4bJmi1SM0DKzLm1lEZu5
tg248ohj3EnPielmFuFJ7Xt9h18cr5SmyKmyWMQ46Fh8XiGO2+T55Y/VsYg/
Ud039SXF0YXr+H9bKljEr52aP3U0xZHjFZ4Zl0nut8MsI16LXO+oNVGWxiJW
bHd2nt8ijpL87ztbU1iExpbEn8ROcdR5I/qkN45FXNyw7JeRmTgqBv5yMwlm
ERyFnl8HncXxrM4pfddTLEJYfj6z0FUcN91cV5JrzyJoshKnJd3Fcct6FaUf
5HzYJbl3oM1THGuVvb6qkvMjeNXbAQd/cVx2JFyFX5dFiHFHDnokipP6nEhS
FmURyovPsutTxJEfvp4JIeeV9sInV600cTwm99SXLUDOl5n5wX/Z4uhxROXm
aXLeJY25/PYrEkfXROE3Db2NhBobh0IbxPF44X8cufxGYmfF6HDmMglsSH/f
XmDQSIjxz3TNrpRAz0b74QjdRuKXEXe92SoJnOT8uH5cu5G4/0WkcFRcAr+6
TO9qVW0kfjA3+ekoS+Dl5TpzOssbidBuT6GqnRLo8ECLlVnbQLQuTGv8vCiB
QlueSd00biBeADd96yUJfO/5WrMVGojbN5eJ3fWRQL6W+CeqWxoIDX7pfxo3
JTCzpvBl8uoG4ubK7YR3mAQeSm/T4+dpINRkrlkIZEmgwWO5hBzy/uKtw+2x
ulMCpSqNGlPk6omg31r/7ewh92vO4NGj1BNxSS5T1n0SmC7yqrt5eT1RzMfw
DR6UwJsu8ZUD/5gEh5F05/eUBMqwT/5KYjKJoNM7nrwUlkSbH717D95iEnHx
l5p09SRR46aqjXQ3g3g7P7zDOk0Sr2RPeatz1xEhk5T+XVel8PJas88Z5P3W
WVey9ccuaTR1mje01PtArPZ2M4laKoMBjoOt1wZfEed7Z6MWO2Tw6iODezzU
MKI62XGdwlNZtLXN2psrlg4vIpYnzfnK4cHjvBLZa4ohhXH3SKiRPD5bvX+j
5MUKOCl1jpFqIo+MjB9Ut5AKUHHYb/jWTB5TBoLW5j+ugOd/JTf075fHs6/G
8iiMCigWT+dBe3kkfsv1aa7/CCy7sqy/l+Txwq074eU9H2H5wMQ/2yx5rKN+
1hnS+wRfNVvczufI4xN9T5dzhz5BhM+7nqAX8vhDwMWm1+0TSKz0ryl4LY9Z
XMTexNhPoLxBOFmoXB5N3wcdtxn6BDu91hiVt8qjVbrR9577n+Ei97GoNSsV
UCgp8eVMQxUs/S9/3l9YAcV/4i7VgSpIOiXg2C6qgC0CAcf1OFXw5XPu5nAp
BZTgDK3crlYNtLDFpgkVBTzRveu7/tVqqJV+LFWmp4CCjevrHsp9AWWtviTr
SwoYaKScTDlQA8WOOkvyfBTQZdfoVIljDVjEhp5b5qeA/w18OWt5uQZ8ZrWw
5LYCejmOh+kk1gCjLKCHfl8B2So7/Fb214DvXlXl4RwF7P70dHvxxVpodHLN
usVWQJX24KcDfl8hfdkg+8kPBUz4K0vU3/sKl3NOy378pYDMGWZyZsJXkBl3
Cef7o4AeP3vipYu/gsM1Z6+AOQXcQOcvEp/4CtMm+Sm7ltNQZNmTotOnvkHA
8Rduhko0/LalOdZcuw5GNM/dYSnTcHRPucBH/Tqw5t2Q7qhCw+wLqV6rLepA
LT23K2ANDQO/++vmONdB7e/n+z9toOFgs2Z3VWwdiF7K0dm9g4an7bOGtk7U
Qcq9LD4TKxqqnDchhswZcKGB/mjWmoZ5kqFuZgcZYCAVr5ljQ8O+sw08KYcZ
8Cst5JiwHbmf7+1uxVMM2FhypojlQEOj5DbZ2MsMIAbV3Rw8aMhbURy3JZkB
ERvTeSgXaGgWfqC08QkDHLzlH1ZepOGvq7Qsx0wGCPAIf1K7RMNrHfc+Obxk
gLnUqMKfazS0F5Maqi5nQOfu/Iard2lo+Fj18J5eBuTdW+uqfo/ksm2zij8Z
4N+QytUVRsMD7/UM/wwyQMX+gbr+fRqyy4MaHMYZ4O7tGbT0IQ1v37B79pqL
CVgyJFccT0PP3m3e6/iYIMrjWHAmgYbjgU+7o5YwofCeVc+3ZBq6yIWH6wsx
gZOmvT06nYavKx5vWSbDBMZgLtMok4ZVBlHdMvJMSN2o6jKdRUO/dCZNkc4E
oxKJ6CPPafi3+MXJZapMCGuYHqEX0PCqwdl2/U1MkON5l5r7gYbPzD9wnzAi
/29gzX6bChr2HA/VSDVmwm1mHDdPJQ0tZHOPNO9hwlCK93GrKhoO2L54LWfB
hGLYJD//jYbWNVdPSB9igrvq469PGTRcoxh7Z86GCYrCq65Z1NPwMMs0j2HL
hDudw22pLBoudm+dsT7GBJtrWQ9N2mkI38cuN5xiwkpHSZO/HTRsST4dfdCJ
CWVmQdMJXTQUCinOq3Zmgqqs46FRNg17I5P6wl2Z0MrbKBDfR8PL7JSF7jPk
+X7rF+7qp2HDe1txlbNMmCqmUWMHaCict9Y49BwTslPDP+JvMp5Df04892DC
sRDOxcEhGpbmVfmWn2dC5eH2et1RGpZlnH1TdZEJl/VM/X+O0XCHvGrLW08m
rF9TrBn5l4brxhlzSV5MiJqOjeibIvVqoWZueIkJxt0CGDZNw2Emj5/AZSbM
f/b6s2WWhrp5qq/ekZz3oi+pZ46Gu2T1Rk5dYcLJ2APmdxfI9Wu4N/L4MEH8
evmC1iINHavpVx6Q/MVJ83knFx0DP5/6InmVCX7mKXbBPHTsqX+gfJ/kTdrC
Kzfx0XH67I3gRZL75fzetfHT8dY077/jvkyI5x92DVhCx97nix6FJJsPH5He
sIyO7gl2/xZJ5mZ9qW5ZTsd1WSvu6l5jQkHJ1iv+K+noH8avfo5kl7RMtfVC
dMzt3tMZRbJsqEQLS5iOazi9ybkkMy4GBl0XoaOyVM+FEpJvH5nUXiNGRy9t
W5tSknV2neqvp9BRQOXcvgKSh9Y2RPuK01EwYLd9EsnJovqGKpJ0nP0gesuX
5P2zeRN1UnTUF1paak6yAFsh7YoMHZc7OYlQSS6uDjugJEfuH+HpV0fG7/5y
geerPB0tpG8K+JGs+NAt35tGR8397GwayawbbSfIRsBi4ym3N2R+gl32iHxR
ouNIvaK5Psk7LN+WXVxNx6IAlsUHMt+jW9Q85FTpuPHVrYtaJKcpxCp8VqPj
Mvfs4kdkvVb88fSTXk9H2VO+b43IetqFX4nJUCfz4+t+OZasf+4Gv1ytDXQc
NHUa7PAmz+MR1Gm+iY4yCyVDpqRe0laFTrX9Ryfvq6zrF0k9TeVFCJ3eTMdL
t51qIki9xY893HlLh44dCumROaQehyKTrFdto+OPtB3Cz0i97tz0xD1xOx0j
OTKmyaSeey7kJL3ZSeZzdSXvaVLvahOlnN8GdNxzxzPtpgsTfKIqxK8Y0TE9
pB00yP6p1arSEDAm9eGzK53hyIRzXsxjNFM67ieaWqccSL+Z6i09uI+Om6oY
YtV2TFga+6upZz8dG2oqtygfYYLtluER94N0PCLfreV1mAkLl6bk7xyiI0Tz
lU9bMcFgZun190fJeLfWHA00Z0LMQ8HYPfZ0bJG6eSPCjAm/toq+aD5Ox/Wi
o3cjSD+56yPTNXaSjqf/aTheIP2nfk4dVFxJXug78l6XCSc4+xfDvOnoxLNX
/8JaJuQnHZKQvUxHEb87422kn/GB3YasK3T8Ys/O3b6aCZnXHe0rfOm4tyzA
qkOBrCfXZeKfPx3PRKxKzqKQ/cObeP14OB0jkuCwyzwDtkraighHkvnf8OTI
yDQDJtZLPHl/n46PBtpaXSYZ4God+Uk6ho6rW5lHt48wwCorQJCVQK6fj/5u
3cWA9Rbuj0yy6cgnta7LlWDAz5Pr1Kef0XGFwW+Hbe8YkHr5V2n6czrmPZxI
4hQyQDLVgc37ko5lO8stHHMZwDdpvab0DR2zvTl8OQkMaIuHN5sq6Shq73lE
8RIDYl7MG/d8oqPWRV4LuMAAy49vW8OrSD2FpOruO8uAT8P/cYZq6DhX817u
4EkG5KOaYUY9Hf/p5jk1kfMzpH9Vg0w3HUdj22WZSgzQ2cQe4Zsj868tqHzz
bh1ELmoNxMzT8eP18w7d1+tgsDaoV41Dx3Gzo5fVPesgwVm9xYxbEbe30vdG
2tUBV+LlD1FLFDF42UjojfV1ULVEOEqZoogndlZI81d/A5uO7VsN1BXRlKtI
tp+8P1wOjr51y14Rc/z4nZSla+HVv84YwROK+GGi2uTB8loYcVLLjnVQxF6h
ApG/szVw0vAd45mjItbli10KaKsBc54eucYziniG4/526lENKPuuL1K+rIg6
ny31KNLkfehcxVBlhCKeDP4rHLjiC6w5NGa1tFwR81+vGntZ+Rno6Brze70S
BuSlhvptLodky33zmRFKSFspeHNfSxHsGTawcbqvhAUqVy4WpxbB1B2dAqUo
Jdxy+u8b6tkiMK9QcEuKJTnpQ+sT7iKY3zzS9iBJCQ1HJ3mU1r4BW5m77/xy
lHCSZ/4L4/JrEO//6HOwSgnrLP2LlgvlQ7l/URNpOFjzdCBZsPkluCvkbKqr
UUIZ2SmupSkvodLmwaBJnRKK8nE19Wq+BM+aE7bQpIRJDp7WO6zygJnH2bq2
TwnlTSWl125+Tt73xqN//lBCn1IfYaNPOaA2+GMs7acSLsasXmt9KAduKH3N
UvithC/qdGUPXnkGGjGPpKjjZLx71IQYJVnQuincq/6vEoqPuRvH7M2CwDp/
Zvgkuf+yEb0DnZnQsdT1zvIZJeT4xBD5ixkQ/PToj8+zSpgcAoNWERmgpb9P
L2BeCZuu0+hjtAzo7jRI1OcoodUD7ze3X6ZD6FWdmcVFJQzp9OMS0U+H/wGj
HVUD
       "]]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nc81P8fAHDrOCsz4868U0mRjIrwfomMRJREKSOFVCqFJCGhsjMiIi1S
lMjMx97jONnOVnYSXyH9Pr9/7h7Px/vuca/3a31O1tH9+AUWJiYmSfzl/+/v
6Wf+JicWIfE60ahQT0ukcJr0NdG+GIl7G+3bW3QSZQz3+MbvKEEnOBd9vAin
0Ou5kxuR+aVI8PzXL73FNug5h/l6YDuG6ksfxw4+tUNbDEMG0dFypEIp+aMY
a4/MHl3ULsspR9fmCEGF9g6omX/b32LPCqRS0FKgSDyP6iXTffPYqhBvRKf9
o6iLiMMhYEDFpQp5qPxE8X7OyOCVvdanpipkl8N81PW6C6pRkN74EFONhnm2
pzheuIQq9yffeStTi65Xf7SPDr6KSizifZK0GtClN1M/33Z5oLXYW31iaQ3o
dzChtMLjJtLssdRMYG1ED2iVfRpCt1DhOaG1J42NyOIZNUrPxhPluUXdDrdu
RoePOC9/Yr6Nsh888va/2Yaq9ni1P6/yQ3P1rj2b3W1oa8HDkCvB95BIsFxy
mSQNWR/oXGjY5o+sGlg3tAJoiKl3tunGvD/qPFZZomHUjgSf54/WhQcimi06
qNrVgf6ITmYbsgWjJ4+102V56Cik81qkVGAwsio+yMl/iI4ibcbZLJhD0IDo
ge7ZD3TEEj2rV8caiqY6lD3ePOhE5ncNfs2LPUIsxpQscfUuVMGuMtl1PwLV
eMkIEt260NglsURN0UgU+kbq9kpaF5p5slm7lBWJtrCRDek83egrce5W7uUo
RMKExsLGuxFfT5gBOT0aqaoTyEyxvYhFn607aXcsWjnPGjjf0Isah95+YfjH
ouIY5qmBf71ocFm2peFbLIKff78UufWhZvL997EBceho1spxD71+9FzD3Hdl
OB45yf54NPlrAC1xt2z9XJaImoIv3J2UH0YGD/OqtX+noi3yoCl8aBhtXxWb
WVNIQ+YNpP90zwyjPJ3y3RK2aaiLm3YtJXwYZXc9G1bE0tBolKaT5a9hRIkf
znwU+gKtJfGZVJaMoHifIuUt8i+RQk6R2HOzMVT8+VfzqcQ36FE3b97Jm5No
1TZ+i552NpqKP85ECJ9E1jYv6kl3s5GRVcLRvNeTaH9Epu/ur9mI45vMhGD3
JIp/vF/jr3YOCupQFaFpfEfka9smdsh+RHdbbLyP/PuOLlQqPWhS+ISuVb3W
Qo+mkJ9YhFfj8c/oVI52jXzaLBrNjg/nWSxADXHStosZi8hEVfaaUXwFEokS
CEit/43shD5lOV6oQ89sZ0V0d62igF2vJfm4W9GbWa4kYb91NDK1hrItOtBw
YZJRUcImMnrx7edDk28oM4szT36NCbLZQrWJBj3o3L3UYHcmZhgQMdn0Ne9B
wifUbb6wM0PySo7i7Oke5Ldmv6knxAzqGgdLi9x70AnjQiO73cwQTNmk8yf2
oL+TFwfjzjFDuQ73t4zpHmRBqWZnrWIG6fuwdOxhL/rz1M9m8DEL9M9KT7J+
7kP7fs9HssWwQIidgFVuSR+6ccyudtdTFnCFaLpNdR+aJoCqzysWeN4/OvTk
Wx8auMHMK/qVBX65UZ59/q8PlR0NKjefZwHHS8ExyZr9KJDp0Y5qc1YwGzb9
M1vcj8rOrJ2dsWIF7dKL/LmV/Wjty6VYwbOswMqlG+De2I88rpgwO7jiXi87
Te/tR059PP1/A1jhkKr9KZ3VfmSYFxmx/zMr3Lt6pCdZdQDxuMQtv9vKBnTy
vq5TrwbQXOx3QWsJNni6XiP4KWsAtVZoKBOobOD+6HgY0+cBFElmXLJTZoPx
mjjJwIoBJNi2fVjIhA3ivO7x8DEGkNi+wkZffzbgV/VqObJ1EMmx9aeazbAB
FtSdKeM7iAh7Fb+uL7JBjMbosnrgIJo8e68vY5UNtswpV0PoIHpbQN3Kyk6A
C2Hf2/fFDiIFt8uPCmQI0ByJyK+yBpFyx9+bMlYEYM0Sr/PrGUQH02SO/Con
gJBd1w9+BQaKzWngVKwjgEBef+kdJQaaL7vR4NxCgJLPiaMDKgyUNlhtNNhL
gMdVx4QDDzIQG9nVsP4XAcLX92eeOspAzXGf9J/LscPVyvKruy8z0LbXp9l6
FdiBX501c82dgfzyWKuF9rJDf2/KepkHAynTT+o91GaHGlutgZ13GCiOf033
phU73LWf2x36kIHOPT6EjoSyQ+mx3budXjFQQdLMZlAEOyxp25yLectA/O9i
y7BYdtg90XrzyzsGqqyf1FZ/wQ7vI0wPDX9koB3sj7VkitlBitHLVVzKQP5b
1TZOl7NDtawLVwLGQH1ygyVxteyQcxl1uVYyUJjenoPcdHZgs9hb97OOgX76
0zVWZtjhnaJy2f0OBjKO8v2j/IsduKTn27Z8Y6D01G1FbqvsIDdkmRDZzUCW
ZV4HRtg4YKVSXevGAAMVrpP3N0tywEWeXU9KJhhIgLtmhV2OAyB9nv33dwa6
RLr6RVeBAxJSJcmUaQaS0ChXL9jHAZZyD0l28wwU4Omkln6MA+4E2e2xXcHz
d2qhz9GKA27JBrx0XWUg3wM+AdSzHFCr2dV2aY2BvNciW19d4oD6FLbDRpsM
5NlPunXhOgf805sMkWMaQh6lr8nbvTmghcrj9Zt5CF31K3F5+4ADhHQem7kT
htBlOwM+lzAO4Di/ay+JYwi5Qnu+/BMOiEpKySskDiEnlu8s79I44JzTQAyN
ewidDhZMeV/CASY9hfZuAkPI2jlF70olB5yRzvibKziEThrJTys2cMB3381t
80JDyJxLZ39OFwdUrZdvQSJDyGymftB9kAOYFPY2WooOIZPmE0HK4xzAE8bP
cU5sCBlEuLZ/WuSAPmPf9SOkIaTv/tvrxioHDKoczVYiDyFd83tSqv844OUV
wV6CxBDS2ctVs0QgQvCboNs03FqCcW55PESwDbQPj5AcQppL0oK3hIjAm+Ym
CFJDaH/nu0J1EhFUkjzYJ3Cr5avbrcgQ4T3RzPmu9BBSiS8nFOwggnRgjwqn
zBBS9jJ576VEhPiU1YuhuBWtu44fUCfC+tIz5nXcChoOf1YPEuGRbCGTg+wQ
kifNphYdIsKVuiOOxbi3r3sa+BgTgS3cRo6DMoSoA8xzmuZE8JT9pW+IW+Zr
2JN1KyJwaStU+uCWei6qWXqWCEnp0kkvcEvcSx/2dSICQ2a1sQS3uL1iiLYb
EXqejBxvwC2iW6i4eZ0I1EkB5UbcwhS9zjJvImgK1tmX4RZkbfW5d48I36iG
Y69x841by0IwEbZqDOf74+apGatjCifC0P0fXWa4ud5cvVrxhAh/j5Tp8+Mm
hvwRDkwiguNM3d9q/D4El6CSQy+IcLrXg+kKbhZjPkfWDCK8e3HAhIibSSGJ
WJ1NhNLp2IF4PD+bXNtygvKJUHaL77MY7vWZnJOHS4lQIb2/JRzP92qz5gah
ighfR9N3ruD1WPlQk17bQIQvXYu1Frh/R5gbh9CIUKLS9DINr+eie/+CYTcR
5kwZZaN4vWf3Lmo1jBMhtTrhHeD9MS3oO/ZwhgjJXjXetnj//Fhif3TkFxGe
JR30dxMfQmP5Et1N/4jgddV133m8/1ykAkcus3OCHm2UbIH352zw9xleXk5o
2jP1XmUrHs+pXCZzEid8myproeH97VMuyr0owwkcGrlnwvH+/yd/d2vMDk4o
vuYTrc2P52vNUKFTjRN+L8stevMOoTDHD2q3DnKC4ayzOBvPEBJoEkQihzhh
QVJ3MpBrCJGSB09YH+MEY+GmS2fw+dut43F3wJUT6Mq3ebzx+f34pifk7jVO
sCy6aZCGz7c6n06MlBcnsP9Zli7dYCCdYeJb+yBOGFuKzmnF94NF4HPa+HNO
CK8VVrf7yUBd06z9D15zguKHuXNy+H45fcJ1Yvt7TiAKULcNzjCQk5zamksR
J+x5lPpgJ76fPGsbqHN0TshjuRatOMhAa0p7lCL6OEFQNfRpZB8D3UuIPbBn
hBPe5JRoTuD7L9TFzvT6PCd4LjmZu+H78hnXsucykQt4FzYrRmsZqNxMpvGv
Nhc0S5qP+H1gIP2CB53P9bmgDIlmkPD93SCNB2HCBbpDyrzv3jBQx8/8pQBr
LkiLVct7mcpA4zEmkuweXPBaWiyIJZqBOLs9r23J4ILIVzuLrl5nIHaKqqR2
Nhdk3zvyPewKA7FcWWhwy+OCl68XbdJcGWiDxYXaUM4FqVb9fG8d8P2uZNN1
v5cLhs2SOlUtGKgn+KDWHy5uYL8dH2qCP/++tf/3Y4cAN8RhbBfLduLxSOTF
WYlyw86AL/Hbt+HPu9zdC5+p3PCvyHali4zfjyGZflWLG0LyddoKiAyUsY+J
OH6FG+zrbm76DA+i1wGleYI3uWGXNk+6Xv8gSm/2dtD14QZ6k90H5q5BlOy4
WPw8mBvEybLM55oGUVTE6BWbVG4QcY6tS8gfRF6T1fRWGjdcuCG9XwB/3hvE
P0wtUuWBXa4LTPLbBtGP3B2qVzV5QMpgD7uQ1CB62FZTS9HlAdl8jd5FkUHU
TGSZf2zGA8rf25ceEQeRxR0frXOuPDDxovDIrpkBZGvv1suSygPmAiNbd2QP
oBsKpkJHuXgh/eXURdldA0jYcOYNkwAv2J4KIIdRBlD++Yea+aK8sOAWQ5gR
H0CryTUOUtt4QVZG4OED4gC6y6fz8Sfihb1a+QWKE/0o9LeSadwtXng8lCxp
ltyPUsv4QxjDvHB4aIUxw9yPCr8Svsp854XEFlGXqNU+1FG69stxjhc+kZOk
dy30IfaS8XPf//DCpOaQvN5AH7pSULjvp+AW4PJz4NvM70MHP9pPMh/eAvQP
r+LSnftQ94uPh7dlboEH9WbTlVW9iO+BOdvl63wQG5D729K+B7We3CGr5s0H
3r+caFknelDY9k3tDT8+2OGveX0V//9LrM/yCgvjAyeCiISHYg9i4uaYef+W
DzKdPJrn/3SjX1Ff2+cG+UBazN+WEN2NLpnFte3fxg8eUW6fGQVdyPQ0S0pR
ND9IXr0Q1THViZYdFT83XBQADc6D9rxM7SijWE04QlEQ5MZWKBbMjWjKwNOC
jyAEphdvv1rsLUf7KLG9+q1CMGRaMR978CNymmcZDH4iDIPhndi/O86YzEJW
6QPXrfDh3mOLUKdc7IfO3u8H9ooAI+RYcEVnObamdfRtkpoIyL6cphz4XY5x
H3R23tgvAgdLDS6lClVgSvtTvmM6IkDw9c9Hxyswjz2cPwyOikDaftqFmtYK
bFN65Ielswh8+DkU1lVdiQkxR09fSxGBpHObm8mvqjGdqp9zGZyi8L6UKfTw
nnpMiPBnaI1HFC5fWtObMq7HfhgwdxzlF4WweA0PH6d6LKZR4MtPEfzcuGLZ
KbEem2hX8TsgJwpzpRvCNiwNWNjwzS31OqIAtNK9ubQGrO/vqtJ3D1E4OeW4
2HKuCctBzLIaXqJQk1gwyu7VhAUFcAo99hGF2fGdObsimzAlAuk/pQBR4NK5
l3kAa8ICeA5inhGicPDUoe5zUs2YPPnuMfZMURDebtrX3tOMeR5gvraNIQoc
kR07WHVasZAZNVWdEVHQMKwKVzzeij197rJiNS4K754aqh++2IoVs9F8Q6dF
YXGr4Q6tiFZsk/b84cyKKFwtX3hvOIh/31Xr5Sc+MaCdXedt9WrDniZ5dWnr
ioFh8J1TysdoWKZpVqKVvhhc0H7VKWBNw4qZhmzdDcVAI1/s1pQ9DRu4aDCW
ZioG9YKPBe7coGEyqlt/sp4WA6kovZM74mhYRlMuZ+MNMVALjd5M66FhRRtz
WlavxODwZYkXzNbtWPLTmKVPb8XA7/idI4ft2zF/tf3veLPEAJIVh3xd2jGD
y/6iNZ/EIKshvaTOux3r7Bf8pYqJwcjXLX1NT9ux+eL9bwX68M9T7kY+6mrH
2q0Gzl4ZFAOZa6o63Ix2LO+Xv3DDMB7Ph43UexPt2B2FxgD/72JwvwZz1/vd
jhGTbG0XfuPxWXpP7hPowCi3AwRa+MTh67zS3UajDoywdXu9vJA4WHQNTQQd
68B+fGz0CxIRh/mGFZqKVQeW80No9qAkfh6+n+p6vgPTsn5T+05BHH7k9bih
ux2Y1f6mO6GHxaFSJOJwVHYH9mhZeFLvjjhQ8x2v53LQsXcsE1cu+onDxaA+
wQAeOtbAl78cGiAOmYrno/UF6BhR4SShNUQc4gsqpN+R6FjwuTg561hxmFAt
tVnYTccC6raev/xBHB4GB4o4HKNjaZ0T0xEfxWHXvvvjvifoWPlI/o1Pn8WB
Qs3zCT9FxzbXTwauFImD9QZaD7OjY77K8S/8a8Wh/5b/HoI7HfNOFBmOHRKH
gy22Yb2P6djTN5POBaPiwK9RfUE3ko4VfP6y0DshDnK2t1dTYujYSovVP6lZ
cRi9P2mgnkjHbrIkSGWu4vd93H5z4DUdi+VzftO0Lg53qwMI0xl07LPEfqX5
TXFIyT52ZDaLjv3a162tSiCByobUfOsnOnbNTfTsVwESxCZ+i+L5SseivL+P
DwmToMziSR6G0bGcBwWXWcRIkCBfHupcScfmU0/5GkqRYMtFFt24Ojp2uTPh
WbsCCWbWCn+4tNMxZ22xvgk9EjT5q078HKVjRyK+PVk1IMFlKgfrxDgd2z0U
Y8p9hAR5Z+6g1kk8Hn/eCmVzErBP2wn7T9Mxv2qWjDu2JHC+zKnssEjHHLaW
O0TYkaCn+J3+5i86pn/xLvmFIwlYvn/yjvpNx7iIqxG1LiQ4I1yGYv+jY/Em
c7cEbpFA8GaSufhfOnY7+d0eOW8SOHjxO9tt0jHbOeepfXdIYKO8NTXpHx2j
RI7a2gaQgOeF0a2fzJ0YYThVxD2IBNvl9IW5WTuxH8pnaQEhJFBacu4isXVi
2R3dem/DSaDB+q9GnL0Ti6bG/S2KwvPl5PabyNGJ3bx5vKD5CQmuW/wynMOt
KdKi8CsRz8eSn30cZycm6fxonC2FBJYC77bbcHViTIWGz0XTSJD5UFNYkLsT
q7WpFNB+Q4LOXUIu53k6scx395qOZeL5++992zrusHWtB47vSXDc7pjDQ95O
zP3oms6tHBKEsXyS5NnSiR1PKVgNySUBM1sEIQi3+vzN3KR8vH7cGeKLuMWQ
yuUPhSSI0a89fYKvE1uPXNhWXkKCNNv8hne4GcPvhzrKSNAQZOj8H+6KvZcS
JypIcM3dUk2DvxN7FbjjxGo1Ce6bF+29hjuEPs7DXU8C3QFr+2Tcl+TSayWb
SKBgSK74itv0lp2/cisJQg7PW3biVq6V0NRrJ8E0Z43EMG4h0b6lk50k2NB/
Kj6Ce8U54YNLNwkSt1082o27t9DS+U4fCV5YqXypxF3KKSgbMUiCC/8I1i9x
p55u60sbJsHbygWV27gDs8JiP4+RQLWM1Ugf94UNY7PaSRJ4hJ55yobbyJSD
2DtFgp8qItuK8fvtel5dMTOL58vQesEJ95aFgDubCyRgqzFZZcO9iJC6wBIJ
RuVkdJPw/HVGbcxTV/B+O8nVJIe7YKQoY98fEtgV6Se8wuuRpOLlaLyBz9NO
vrfiuO/eV5Ow/UeC8MXs9ft4/ew7F79dZSEDU/vV+DG83ts8LxvHEsmwxhn3
MhDvh76cpJUpbjK0Sl3Z/wnvl6ip+peIjwzPRl8o04md2Jrtts3prWTo77Q4
vYj3X078iSz8zyDwMnlHzBE6MSdagHW8BBkSOsz3DOL92qrHyNWlkqGOq6os
nqUTu3+Xxz5hOxlG/PU+2eP9fqBAk3duJxmqS/XFpJg6sZcKCc5PlcmQQ5w2
8cDnx1vAXGJBmwwuYBAUgs+Xoolfg74uGUzzpE7OLdOx0aD3nkn6ZNi6/U6W
AT6PpqvE9sMmZOjb17ZI/4nP11DFg2RrMugfmN9mM0XHusV+qvw6g98nu/T8
me90LOy41LChHR7f+XkNiwl8v9X4aC5dIMOtCq8i0RE61vRedcHYgwzRz18d
5e+hY/6TDsmpnmS4l9wfm/ONju2TiTJevo3HX6D46BAd38dPZl+m+ZNBoIwr
RK8V348+r63/CyfDcnGcaG4VHduZRyeYRpMhldleZKGcjjHmmD+nx5LhumpH
j3QZHTN2OMdr9owMOpL38mwL6ZiUkWjlqwwySJobkPXf0zF6wGH3tSwyMJu7
PJbOpGOhJR4S5jlkcFyP7J7H9++SEs1zPZ8MLBYZ/K6pdKx+68Ndx6vIcEco
wb45mo5dH1uL/TdIho2R/PMWN+mYY4SlkMQIGUa1RExzrtExS43s6APjZLjY
2UpnuYLfL9Ih4vo0GSo/8NQ8ukDHNjTrQ8ZWyOCsqftIyoqOhcTE+dTxSUCf
goKptTpeL+2F1TFBCegXJngL7KVjl34YeTGJSEC4bs71cvz5dVRnw0NDQgIW
XEIY/6h0THDa8UqWvATUChPW2QTpWIqusn2krgQoMCnt2zXbgUXMPmRk6UuA
oeKJkUPfOzD/hDHbekMJkBX4E20+2oE5zsXbMJtJAM+xHYJmPR2YfOLf4x6n
JSC2uHmpvaoD+/yz8fApDwnoLWnxYUrswBpSL+ySfi0BEwkcT4S0OrAwVeUU
vwwJsFe2YXZX78DM69a2MLIk4PJ9TyNMqQPrmY/8lZwrAYSxKE8d2Q5sUru4
iFQuASPbpKcLCB0Yy8AWI5F+CTDx4GZNbm7HtMQKnXgFJOFm1MiS+fF2jOl9
YNdlYUnw0zxmd/xIO1aFTI2aRSXBKKTxjPGhduyI8+iux1KS0D2VKCOm0o7Z
fOFZIu6WhE8mlSEaAu2Yp6VDAJuhJMR9OmsR3ULDcqK4nq/7SsJ2tStqlTo0
LDuOaUTWXxLUlsONpPfhTlqhGt2XBNW40D8eirhfjWbGPpSEvvgQIzYJ3IXF
+YrxkhDiuHk9cLENez98qcUuRxL47jnWOzq0YRnKTRtVI5JA3HPr7g71ViyN
9vhMmIEUSLWeeOuS04R5MJ+L3ckjDVh/C3cutRbrvHgp8/6oNCxrn7Pl6y/D
0sIz2YxPykB5/LLOvYBPmCRLSXp2hQyEpNzwy859gHEv3PQj7ZYFE/JAb5Ts
W+THmnLPPlIWAp1KCoYVCtEBldF5tnVZ2OXit7LLoBJF/1Obit+QBUn56crC
M5VoujlkTH5TFhKt0mYPXK9Eyc6KPUeZKdCXrqMglFyJmFK8K2I5KDBkaMiv
tFiJ6jn4YuWEKRCVo5O79LQKWQ8e1NBXpMClTwcsrzOqkXdo3P37dhSQtSMd
mNapQ5//Y8TzOlBgWoRl+rl5HZq/KP8uwZECBzNCVvUd69D5wyW0rAsUoJTH
Ei88qENmLCOSnW4UCH1WyPK7sQ7J+e4ulPOmQGtW08zhE/WI5l41WxNFAYLB
1pp71g2Ie4iHyTyGApa3WGjHXBqQgZmVUN8TCpgRnu/l925AJbunNObjKTBO
v9PnkNCA3kxtCRFJoYCytvBPw28NyPf8aVnnTAqMFW/kipk1op2nFk8SKykQ
3hJVkaTahJo1l0Y/V1Fgd1/fQsyhJnRNatndroYCudTiV14WTahwYvXhl3oK
eBm7BrC7NyGjm0xlTm0UMDxZR9XIbELO0XzbKwYo4DO5kzIj3oxeNymu3P6P
Aje8iTdNZ5uRUc6e+9v+UCBv383wutVmNBuzl799jQKzZ2NBkdCC1E6rK8hv
UiDw47hNiWQLqv6hda6LjQqOFLfXI6YtaIxwtFZFkApYeqSKxbsWJAuX4md2
U8Fc53DMkxOtyHGAOcxHiQpGHFW1zbat6JV3YgCnMhUsk34kLl1oRfKf6i/v
UKXCX+PXPFzerUiZskPvvAYVvrHHFNk8a0XANr7Qd5gKwZHfmAMYrSgw7c6E
qyEVsgTNLsRMtqJqLaH+VSP899tUlKLnW5HRrUO1Ikep4NV2acxqsxWZT6Yl
Hz9OhR9vhYNYJNuQff1Z48ZzVDhUUUPosWpD6U7LOjb2VFg3OHSy7GwbGmcK
V/vhgMefWdAf7dSGXDRKpdkvUEFK0e0+0402dO0daUXXjQoJJ13/rD9uQ/5h
3elFXvj9Koj3XEvbUKW8+1Oj21SYHUuWo1S2IbYa9ohuHypATORgXV0bCv2r
fnv5LhV4JHcE9nW0oairscf2BlFhYkeKk8SPNpRqbrGREUWFlAdKT0I5aOjI
nL71xRgqSOyMYuXnoqGVhwfyqLFUmMn+mfiYh4bMqqQvP0+gwivmG+p2AjS0
oT7f/+Q5Fapd3wl6k2goo2Nkv0UaFdYkNlLSJGjI0v3bky3pVHhj/9H4qxQN
ZWWUmjx8TYX2i0JMdAoNnSY/LvF7TwUxD4d+dwUaYi/0E9XKpoLnOQVbjd00
lGt5w+NPDhUOZ3f/WVGkIc4Im103P1Ohx6DikdleGspTMA3Zm0+FE+n37/5Q
oSH7Ohib/0KF4/77wjzVaKiQSf6ZazEVTv7XtXF1Pw05pZD/215KhUdHI871
HqAhfk2+E+NfqaD8vKF/vyYNOXuscNlVUME/v1S+XYuGRCarfSzrqRBzmHnL
LV0aqgws7BJopMKxEU5T/0M0dFX6vUpbExX0hE9k3NOjoRrrJ9PGbVSwGnud
d/owDV1bDjbgaKeC5He9i/sMaEgixie9uoMKfTYm6uyGNHSzyeE06sLr8Yes
GGhEQzIuJ79sdFNB579SKyVjGmpiMxYs7qXCNItXaituzxdaV736qSDC2sRx
/ggNUXSUG9UGqXDn9KGoGdytfdTtvxhUUG+4quFiQkM+XqKBOcNUWLo9zdqL
e7swN+PyKBUWl0/91D5KQ+0fNzUUxvF87HP8F4/b1/RX3PcJKjjElO4dxy0/
PbH46jsVAmopodtMaagzuNfUcYoKLsvWrGdw+1NbMqVnqLAzeterINy7y8sJ
g7N4vnzd3dJxd9vmOSTNUyFtnfl0Hu7AP2+/nvpJhYL0+mvFuJXin4lv/YX3
w6VPH/9/3qcSeatjCT/PyCW9xB3cFtgeuUyFj+xNOQ9wq1z2VDT9jwq3w5iv
2+IeJF56yPUH7/fkC3Y7cIe+PjtRt0YF+4ktvpN4/GqHLHQfbFBB8LpkfSLu
YYZ+yqFNPL+ZRfq6uMPuHPjz7x8Vtu4VXhrA8/M/IqfWSA==
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{True, True}, {True, True}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->Medium,
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
      AbsolutePointSize[6], "ScalingFunctions" -> None},
    PlotRange->{{0.1, 10}, {-0.402759238113032, 0.9975015519766114}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13k4VP8XB3AziCSEGVsxg1AiIRH5HEREtiKVVHwVEooklVR2hcqeLcla
JJIt15I1ywzGvkwqpRBZyv67v3/G83rmuZ+595z3OWOo9u6WjkQWFpar+Mv/
//IVirEevPIR9R0/2bmjYA6r3y2x+vrJR/S9QFzyxbM5rPZA0q0sSgNSy/7p
f6b3D1ZhEeubqNWM1jk78kU9Z7Hl6OsDwmnNqG/3fbv7RrPYwb4TB+NYW9De
xweX71JmsVI7geWnLS2o+9xWKXnaDFZ8OermI5tWdGft3Vr7/hksPzDMx9+r
A6XyYip+itPYVJNz33pvB2pTeMH+6OcURg6STqraQUMy9j9HbbOmMOtm1lWt
ezQ0MfdXREFqCus2q63QMKQjfotbSWSpSYxmizRVejrRTpe37uXwE3safiid
yt2FzL/sLpIi/sSsyzU38+l2IZURjd7dHyewISH13snXXah+upDAfnQCm+hU
8swM7EbB+2/WRNj+wIhGknki+3sQ/bai/o3EcUxlP7sYS3Q/+tX9KSzM+Qu2
6MB6f7q5Hy22XDuSpfEFK39CmBja6Edtre1yolxfMJhZKym7PIA2ikx/rOaN
YSZ5i5aeeoNIbY+Z6JO5z9h/1B9h43+GkHBKwbk/UUzsU5DjnXE5Jprmz3OV
XBnEeOTgoKAuE3XH5uX3FQ5i5s2if3XOMFGRGC/ht9Mg1rOF5pH8iIk0dAPC
D/QNYGNRB/878YeJRu7n6ItV9GPLibzGtRWf0WXuPzZWj3ux3QVlwimmXxAv
/1nO1ze7sCvm0YxPl76ghrTdlRkHu7A3s25Plvy/ICxxu/TYSiempirNbVX0
BV358Txd/m4nplsWsbFF+CuSTbky/iOEjp2ucxi/+fkr4jx7yYxq0YGF9W4t
tvIaR4KL1elHdjdhE7GWLOyPxpGHOs/Npg+NmKF1nEnxy3GUIClSVmjRiHEw
KN/4e8cRxeJ9QblvAxbQqUKmaXxH6REBMU/pH7E7bad8jm58R2VOstydj2sw
j7qXWihsAk1c3PFp9k0JdrLgUL1c2iRKzCgXtdtiggzfbX79u3wSna5P6Eu7
44bUKxjRJYxJJN5Jvqo964tEG6/8d3jLFMr46n25SDQUjYwks573nkKTu20i
uHnj0UWedZ04k2n0/UBic4FRFvK6UlXFvvQbEZ0lTC64lqDmGAnb2exZtIvk
yasvVI/eni0S9Hg3i5TcogLSbetR0s4jbdM1s8hcYYNc+7weub1z054cmEWh
KeaShvINiJ/xgfKd+w+q/OL0wlOzEdkK2n4b8viDpieGsh3Nm9HMk3i3JvU5
5PTZ3CDyWBvqP71H9oj+HHpnJ/bHLbwN1UpWj9ZbzKGK29mPBJvbUMzb7+Z1
LnOo/IDQSqFeOzrYqaZSlTSHGgyJnupqHejBNsbfIpZ5ZLP/efzhEBoiR227
l9o0j3j9R8pdj3UiwxUnjt098yj6zPmT2y93It+L1Y+Kv8wjnTsu9/NCOtGI
lnti8/o8Ukf675zqOlHmRGvRnOoC+ptqxDx3oAsd0AsZP/J8Aal/GgkyFulG
NovrxjM3F9GWVmFOx3oGCrtg3ekbvIhWfgdf2T7KQJWtr23YYxbRfw1LlcX/
GIjywtZR9M0ikl5ngRD5HjRhVu53eHwRjWZWD1dE9iDfnOuF8ZZ/0Zgk7c5Z
y170zHaSrCP/D+0OsUxprO5DQz3//nuo/g8JuR3POdLTh7ZbsBf16v9DXcsF
zbm/+lCSvriZ2/l/SCfcz0mU3I+SFM2Dn8X8Q52EwulU536UwlL8d2HjH7pg
MBl4dMsASsu41ZfbvYTU8lJrzDQGEVM8RGbx8xIyk3b3AeNBREmI9tL5vYQU
RAtlSWcH0fNHr/n6Ni+j+aSnYS7+gyjde9SQHS0j2Ysg3lA/iF4Y6pWdy1lG
98ZdrA2Mh1DmJFeioN8K2hxSYZWgM4x65ev33ApbQeUfXsXtMBtGnJfvYp9j
V9DiuxGFMNth5DIx9zW/YAX94d/vuv3GMFIYH9pr9HkFZW37+3Fn3jAqHs2v
v3N4Fd8f/qE0nhH0TdzZ5qv5KurqOxQ+JDqCyHZSv46eXUW3JbjV6DIjyGco
jk/YexWlJkskeWmPIK1+/zNvs1ZRbpg8ynAdQXWdlrPjXGuoKvLSw7yPI2h+
29aAY0JryNZOKvVwxwiStmgkF0utoafN3m8a+kdQUIem1j2tNSR61fNr4PQI
OtoqHSzmtobaojl2zZJHUWf94nZzOn4e292vdx1GESt7YUHJ8BoyVth8Oc91
FKkevqy74+cauiSudqT6+iiKrR299JO4jp5G3SNnBo+iU1jT2wDVdeSslJpn
nzuKmKWJhmVx64jhOfwo49coOv1MOEf+5ToakUp4xTM/irrvxG5OebuOqPf3
R9itjqJG3Sct99vw65tuD57cxET5raEmJqwbiP3qoio3mYnkCjheV/FtII4s
p3d9IkyU/jhw6z7xDZRxy0k1fgcTxVjfaydpbKC0zgatGWkmus30MR9120Bu
6e4jbCpMtFi7+Mbi9gayjCksd1ZjIo+XXts+hm4g7es7i2o0mMjBxaMzO2MD
JSenchgDEx2dv3Ti2sAGog8fya4zYSLuAPlXRCkWuDscKmbuwERG112GKnax
AOuuy/d+ODJR0MUc7utKLKB/KAi8nJiIxUj2yvdDLGBcQRxwvMJEc1ulFFtt
WMAxjPG90JuJlDYu2AWeYwHlUpXAbz5M5DqTFqF9kQXmS3Secd9iovFO8d9v
PFngRf5pnf13mWggTvRNTAQL7PeJ+zYTxERCoaeYpjEscPCCT2l1CBOd8I3n
40xigR868tIBYUzUbku+6pvDAqfTTHq+4d87W0ytnqu8YYEw1m/SAZFMZIii
6ZMlLHBn74vt5MdMVEvlVz73kQV0f7IKk6KZaIPfwl74EwtclvkudT+GibTY
op7Q6SywEX51YiyWiUrGt87pjbJA9/T2t3cTmCgnb3Ox3DILtIn058ukMJHd
3dQgdxYCpH3wS6SkMpHg8f2nSjYRgFPjwQxvGhP5LZ9f1xMgwAPmrYn250yk
0r5ICxMhwHnTc09T0pnox/OHL+gSBKCL+r9zeMFEx41KDc/tIQDN/apHewYT
ce4wFctUJsBSoB6f10smqpr5MjWpTgA2EWs13kwm8vx4s1oFEWB38d7xVNxy
8bxPffUJMKVySkomi4mGL790rDEmQELj2dnnuJ8gTXVOSwIU/Wk5LpCN10eA
zmVmQ4D/IpRMfXGvjV8cjrEjwGgL5WsP7rflqwVD/xGgSklJZFcOEzlFPLkv
dZkAlukLMx64d9jLWblcJcCGLZd7Pu7O/VWyhTcI4L68Oe4z7uDNJ5b/3iHA
9NUnrly5eH2HJ1q1AwgQInJ4Tg73nzd3UwPD8POyahQP4c4KIF1rjSJAhPIb
ySO4bW3yDgvEEaBF9X2nAW7+PTpCp5MJsDncX1cLd+NGz0TaCwIMepdel8V9
u8u18nsOARxTt3pw4t6XRYxUfEMAH/59+0fx+xn3jb9wvQQ/X7+nKQ93kqmi
amUlAT6SixTdcFtIftzEWkcAZttdFxncmxZP9Rs1E0Bjx9+73Xg9Kpt/50V1
EOCZZM81H9xXkwP9ehkEUHMaMuDHLXNVzEJ8iAC3vn3a+H+9Bw8XSjmOEWB2
w+m5LO4o4SOLeT8IwPrQd+8LvF8r2LVnGgsEIPhKUm7j/X3zlNPNf4UAp0os
w/rx/l+8lAKNBCK8EJWf2YObxtPy7QQPEZb+Sla9w/MTOHau9JkgETyZvxV+
4fk6WLIQNiZKhHUalk3G/fIsVclDlgji+SPtZng+T+97T3yvQITMoul7Z/H8
8rEfY6ypEAHNPzC7kMxEvq98fMOBCP95DxoZP2Oivf48xzoNiMDx8JrfvkQm
+no8Q0LkGBEYgerDW/F5MFvp+Jh5ighjLORdOfi8sHU4xk2dI8J2ClncCZ+n
8vQVZ9WL+Pnnycd24PMmfVSWt/YaERZqWZ1d8Hlcivc7NRxOhNcPozmjwplI
bX46ku0JEXSKyxQ24/N9zexcg3w8EbRe7Nh6E5//n+yg4ptBhINcU5sPBTLR
0DXCVqEPRIgX0Lhk7cdEwu1X9bTriEC52dUceBvfF7vGbjo2E+FEhx/7K18m
ahutHS9iEEGZP1loGN9PVSYB1ebTRKgXChPsdGOi5az5xRvzRFjkUXxd6orf
D6ujQuoyEU4bGmrHujBRQZl+4tQmVmDv/XBK7SITpclweIVJsILKSd1vXGeZ
6D5LmOxHc1b4WzHayWmEn39m+ewva1bYI1LSdd4AP7/EJZr/LCu4igVtfaOH
z+8VY8IFZ1Z4s/pAS1Wbif4b4B5cu8cKGxaPVrqUmehIcWTEgSJWOCCw9txL
FN/PTjELuSQ22Pz+pvmbhlE0Ff2d32Y7GyTVJJOTqkZRe42GErsUG+Q9H7/m
VTKKIsVGXM4pscFjg2bRXy9HEX+HDFPAmA3IhjYOsw9GkbBaacttfzbQrCxq
vKw1iqTZBlNNf7GB7D5avFPqCGLfp/BhZZYN5ov4jq9Fj6Dxs3cHsv+xwXjZ
Isk/bARlvZcisW5ih5d2D7+ZXR9Buy+7hr2nsMPbT9yrIkdHkFLnmhfFmh2u
q11MtJ8ZRppplKN/qtnBW/7KeTGlYRRd0LxZoZEd3H975pyXHkbTVdeaL7Wx
w8PwrhdxwsMobfij4XA/fv30W8YAyzBiE3M+0vSHHT4HO5q+pw2h1pjCwynS
mwA1/H5BvzKE7MJ10dGQTbDByNjFSB5E97z/U00344BuhZv0K739yO/k7wF7
aw4ooZiIKzX2o9vqvvekznKArPqD2q8l/chnObI9w4UDIsLHjHbG9iM3vwqn
rEAOEFTMG2M70Y9OB/Env6rggPBrryuOtvUh5dhq9veynPDujGKHVUkv+vJu
e++nDU4wHbgj9syRgTb3envwZHNByrPsmt7LNGQQG5papsINJ/edas0fbkCp
VXzBI8yt4BYqINN/9T3iDTRnc73KCwcNCn5KRwehY6eJyWWP+aA07FtG5J23
2IK9QlHzxW0wdrYptLG1FjvhX/jxq/M2uOMYNXZkuhZ7m7y/Z8N1G/A8KO0v
4a3DPPoOLe333AaHOXQczlvWYZPHTFH63W2wdfS6DLOnDhtTd//kG78NiEW9
+QFDH7F2nsIv8i3b4P0PK/PF/gYsu1xVMEKBH/5oBS4aJrZg/dW7RCaV+CHT
r9Xpv7IWjKtRXPyoKj9Y7N0hf6mvBXPt4pTbpMkPdvyP7STJnzClySFNP0N+
IJq1VFyJ+oSV7gh0cHPgh2D36v+O+rdiTf6Mt6YJ/BCQSJgvMGnHloJa3r9K
4ofG3By5OKd2bPcjrJIrjR9C+TsaHALasYcJOQ0NmfwQebeS43VFO2b+9s6A
djE/qLQHi6zLdWB9X3YS93bwA9sqLStivQObMPC24GUXgLUCdsfgFhpmXRUr
q8opAPpWRLsFBg37uP/9ms0WATgqpchz8jMNS5H+l5O+TQAsy0/eW/hLwyyJ
vkQ1cQEo1Lm9L0WajlV+uFNke0AAIu3PNCTeomNRqoGkXGcB0AhSxiQpndha
3stf7a4C0L+cJbaxqxNzkWqomXMXgP+AK7tdpRPT5+dwO+QtACULhTpHjnRi
y79DGmj3BWDIi4s/5Uon5pD38MbfZwIw723BPfoe/70rGd1/uF0AllzG98Tp
dmGXhp9/PkUXgNc1n9NyjnZh8fEFE27dApC169D5AssubInn01L8gACoq1aW
RNt3YZUrBNGpcQGQnOe63XCvC9NluJ+O2RCAmRozo48fujDPqDv2uURB+PCO
z4SrvgvLMA53wdgF4f0XcS+91i6MvTbTd2KLIFzxS5aPHOjCmvKHEw8JC4J/
Ank9fLELOxZiPPhNSRB+R4X4iOzpxvz0Tn1ZVhGETXUJo1HK3Vj++sVfvAcE
4er8vmMr6t0Y3/X7KxqHBGEoRX9/jn431nmhTCzCSBAeRL/f4mzXjdloytqq
2QuCfsubuzcedWP/TROHg54KQiKXlGfD527s0pN7fSOxgiCgMX6W7Xs35qLG
0q2WKAiVPN+7lSe7MQ+/tZbxNEH4rFnvcGGxG7vN86/UIF8QljHqJBsXA3uq
OBW9qVkQ5iy/EhwVGVhs5+Uou1ZBuNUVYZGnzMDivX+Gl3QIQmNfrOSYGgNL
qfp+/2KPIFyuuHSEihhYrumYR8MXQfA+2B/9zZSB1br1mgStCwJfkL5M0GUG
Vs9vbThCIMHtAH2fbjcG1lTSrafGTgIzwY6jAtcYWPs6/eD4FhI8mMy6Zu/D
wAYiWuUMREjgl/Wh1yCAgQ0rG0unbCeB7q1t6iLBDIzZ0yyxKEGCCYbe9qFQ
BjYu3kjOlCHB26C8ayqRDGw2v4ZtkyoJ5gSCXOQSGNi8JbDYHSCBT2vwqt8z
Bra4WLXy7iAJdoSqCzckM7BV7co/jjokiDhiPLMznYFtjB2c/nCYBLf44/O1
MxgYMbhsgmRIgj/uzstHMhkYZ0cJs96UBAdHB7X35DKwLZ77h3ZYkiAttESD
4xUD4xEq7r1uRQKN+ZCGztcMTPBcYftOWxLon5hP1CxkYJTfeZWBziTAru88
fuI9AzvHZh2a4UqCsq3S60mleH1FWKzr3Elg2+in21fGwLYfPvGbxZsE45wa
STKVDOzMqfUKiZskuKcjVazxgYElumWHaN8mwallPxdUxcBEElapt++ToNt/
9r1kNQOzyc+cTgwkQSp7uwVLDd7POvOKshASnLieFUnD3du3HNwXToIovrlr
T2sZGHk648TfCBJYXlVYM6xjYFasZlTyExI8ChnYO4s7WnhpSjWGBIVJgdwP
PzKwLoUX5cfjSaBgWBMtUs/A+PWOBV97RoKpG7ItCbgtbP4ef5xCAj3nU/nc
DQws6spzypvnJBDJ3tC9hrvjvvFUewYJ+HhaQltw88QvlE1lkaAVcw8gNTKw
Y69Tg7jzSJAgX6B6HPfDWqPj8vkk6OEwTXqAu7V3TuJoIQlYLUQ+ZOLeMpU8
6VRMgrAj3+IrcR8lGpYFvyeBgfujffW4w4T+BGaWkyAyfD6kGnfzniTL+g8k
aElle56Pm1PXQOJrNQlifuXfisR95OTML+JHEtRN/BJ1wB3kmlhKbcQ/37TC
fxfu+nuHA6GFBPmbpAvG8Ptni5u2ONeGP/8+1ewI3Hqv4sX9aCS4sJPgpoD7
fo3ur6QuEhRcyiJieH1qeibfV/SQQDX/qJMebpbJ2ICBfhIsD5Gel+P1RQQd
i6UhEvCzahZI4/Yj/9ohzCTB9VNz0ffwfqwBem81TgIyyMwI4P3Tsp544DVB
gkssB1yM8P7evvzU/OkkCd4c46i/iudhOeb7BO0PCbxOXZB5hudFI+9xye8F
EnzQK9+XhOfJp1rzAc8SCei8V2Wj8Lwt/ozcbrJBAs/Cr4Pm5QxsP8vBCRci
GaRdc1J34Pn0In19F8pOhsG2wZPDeJ7/IHWzxi1kCF8fL9j/joHtsxoTG+ch
w9ROFqv2Igbm4fLwBxs/GVLTOJZOvWVgv6OZ93SFyeAaUWB4tICBKeaGmV4Q
I0NwUNNSPj4/bpiqmL84GZR6q4s34fM1ORFS/EGaDCbej45HZjOwH9r7vqvv
IwNPcHsA+3P8+bRMshJVyaAR0y3Wm4LnQfPSpdUDZNCP+xCdkISffyD5O6ZN
hq6L2ZqzcQzMc+/mHwYmZODVZG/99YiBBShIZ2ebkSFFgI15OBzfh/LIies4
Gc6GVi5EhDCwUtnrP9pOkSFLc0lt8T4DW5f4/OPEJTJM7OMM3naDgfGKr2aX
uJBB0Paf+JwnPu/bhZyF3chQWdE1UO+B50H42MSgFxm2aJJp2i4MLISvbML+
PhkUFG323rVlYAKExz89kslwkeHXdUibgUlv5OV2ppHhkdJ0p8pBBqa21uCi
mkGGK+eTdcTwfWyztPrzby4Zml92+Fcp4Ptj1umXXykZ9Na5SCe3MzC5MZh8
2EWGCt4bMgx8/x9knnk13UOGsITeoK+z3ZjxiLer+QAZij/15H7Dvy/cBl5N
Cnwmw8GH68c/jHVjRZ3CU4nTZHCmLzXVtnVj2nUzU9mbhaCRV/eo/PNuTIB9
aXSZWwh4ZOK+eT3rxn4YEDpN+IRA/8IWycKYbuxJy7aSGbIQiDl5xhDCurFv
dGU/dWkhoMyOb2a91o09ZHrxNGkLQaEu6/lHqBsbWPun+N1TCL437+P8RevC
ChCBqnFDCMxFYx5FN3dhAfc2C4T7CkH3Us2tfbVdmCK76F/Fe0LwwPnCa/2i
LuwetybmHYFfn5Ar1RfdhcmJ3THblCMEZxv9HfKsujBvdYLHzhEhuKx2YkCr
vRML/qWqov1ZCMqTxZaW6jux+BSnReuvQpArYfrz1YdOrJyNdjvkpxC8HIy1
nX/Via3TUkJ/LQpBqLq2Ilc4fr2z1otCXmGwP4uIJ/Xx6xNv9BzSEQajBysm
6W/pWNnqlJZ1hjC8u3o3/vpVGpYU/2SuMEsYBPZ6SS440jB/1QO5W/OEIZ5L
tsDlNA0zcPUXqi8UhudNEwsH9GhY9yD/HxVMGHxM2LVtBWnYdPmBrG0DwsAW
oDee5dyBSd68t62NVwQeR1rkBA63YWELguN6t0RgIkptLOxxC3bpkPDANz1R
mLpFqzeh1WE7vV2NojnFwKD9zZtS8zLs6pfl6I1hMdBNTOt87J6ONac6yku8
3A7GH3O9Dv6NRQVRXCkrt3fAglRG2TX0DqXRws88NBCHuavSmV+hBjmIuNPS
jcThWLntSftTNUjG3lK/zEQc7O88VOm6WoNezwnvHbcUB8mRQfWI9BpUTs4k
wjlx8LnpsNWJtRYxbKtz5m6Ig949tVeptbWIa2L+7+kccTB6asXRqPYReRLs
ondxS0BpzHCJ9VwD4lR5u3qfVwJejeSKsnI1opT/NjkO8UvA1aDw8SRKI2pp
zN8fKSIB45sM/eOPNSJKxEbPvIwEGHtt1svPbEStos9FqnUkIGGdw93QqglJ
q35Nsb4hAbqaX5OGXzSjckd1jje+EnBEnNCyo7QZmcU9dN/sJwHSM4+ajFqb
ke+yKlQGSICQ7F8ux/lmRKsO/Ex9IgEpV4zPZem1oNvHZKWnXklA7dmLRhYj
Laj7okvOgzEJ2Bp95swUayvK3Pxz7MU3CYhdbbvrKNiKfF45b//4QwK+nSCN
tUi3IrE/TpFsvyWAqiMOZ/Vbkf2dS9cDVyTAyfhJQGpgK/pn9DZNj4sCu95M
OT8ltqHA8wWu+lIUmPkiOM823Yam97mHMqQpkLB5WZm82oasWfdmOspQwGDO
vUGAqx3JZeaPBu6iAIsnP71rZztq/fXasmEvBaL+btRctG1H/DdeqR/RosBl
SePnnfXtKO1RDpuRFQV05OWtEkI70LUu6rNlawp8ODW2nxLbgQ6LJO57ZUMB
XT8X6cj0DvQjI8yO15YCERGftu2s6EBKlZdLGfYUeGKWd0/pVwfCfiq42ntQ
gO1Ym8F5KRqKUsokCl6jQPvE86oxORqy9xZPqPekwEoLJ+8pRRraRORtkLtB
gW0KcnupGjRkKjIj8fsOBTxq6DslTGlo5MjbrlvhFDjhmNTZcZ2G3jza7aLw
iAI2B9tfR/jS0P2udJbRCAos7ZjT1LlLQzLnniroPqFA2HOm070QGnLz9grm
TKDA4Uqs7UoiDa1nqGnGZFJAxJdNeqGChmg/8+kG2RQwtzc7Oo3RULqSrNO/
HAoofSvcNFiH/36tFIo585oCg5fKNSM/0VBE179pajEF+p7lu9kP0NAOYkV6
fg0FRiJyu94u4OdN7LK0qaMAifx+ivGPhgLo8QRiPQWslszXJldoaDLN+7xV
EwV+9EYuLRLoqBwpi6+2U6A0o9TUdysduck+b3tJo8CBwOtrWnx0JMnLd8es
kwJ8aqefzfHTUejI1GA6gwJbPVnTtYTpyOZOToLREN4vx5sthyTpiNtR2Ghu
mALZ2aOfU6XpqNok+F/SKAXG6/i/LsjQkex2x5MzYxQ4w34s6448HS2WU0hx
ExT4ltcnsapCR7npkR/hFwXWo1QC1vbTkV3YuufPSQo82M1F/3OAjupPDXUe
mqFA+rMkqTJNOor+Fxf1dZECF2q0cot16ciQuQki/lFgPkHS3OowHa02Xv99
YBk/v1ZzZEKfjhzijpuGr1HAWNKvaNqQjsh3a9dUNyjQ9Xpx2e4oHbVc3Pd6
hIUK6so68nXGdKSsxsutzEYFtwW9I5dM6Wh8h1/FIDsVbp5+qJJlRkeJ7FMu
gRxUILI2bh40pyMCo6W5j4sKus4Pr4sfp6PiSo2b97mpAIQfWxRP0JFTRrbc
Hh4qmEb2PtpnRUc0z6Dgu9uoYE+6Yi14ko4Cziyo7RKgAvtt6ZQ53Op6/413
ClKho+hJV4MNHU3u7oq5TabCZMKJv49O0VEqv66+jDAVXgvzchmdpiPL5Tfz
HSJUuCjjzv0P96YxiYybYlTQ+bhrI/EM3u/miONSO6jAu7Yyts8W73fhGrFN
nAoCX3NLK3FLJri+9aZQoe0p6z3Ns3TE8B+8QJGkwvs9g1r5uEOcjm5rkaIC
azfPlKAdHWmZl1V77qSC1dsHT9xxzxyQ89ghS4Urf2QUq3BnSMRJNMpRYQSb
qmY5h+eFY1OHx278fvUZxgdwb/nt5Se6hwrLr8Y6LuC2jbwZm6WA1/+Terof
7vy9fvmqe6kQIK+8EYWbhXa/oUaJCovR777H47b0CB4xVaZCb2+BbSzuDL6H
i4MqVEhsFTgXinvxTRSP8368fpYDv6/iNrSIkVlUowK/OZHPHHfibIL2A3Uq
bORHVUvhnnycYs13kApkuyjiFH7/2sov3JI1qfDSlL83D3dUZ1bQ7kNUyPNU
QOdxf772KuW9Nl6f6nVNLtzKAoUlh4EKzXI57Tl4vQKK3rXTdaggk2z1Txt3
z/HycTs9Kihzq5Q34/WWm69a/3UYz8t5b9JR3L7RdeSbBlRw9Tu9pRrvV6tq
k+ImQypY6lOS5XG7X6fbUYzx/FCuJXzB+19N6vF+bUIF54bkTUq4+UsGIg6a
UuGT2k/Ba3heSha/VJ2woAK38EXRXms64oz70fPZkgrP3/0nuIzn7/SBqWm3
E1Q45iX5jh/32o1F8dCTVNg9Vz4jjef38BLn3Q9nqTDd2uTbhuc/NmFr3NFz
VDCp3OhOPkZHPzT4C3rPU+FCi+mYgwkdhfuKjc46UCG3h76dbkRHnSsKSMYF
v5/mVVDC51E6Sflk0WUqeIbYOuTj8+qtdcAdruD5kcs0kNShI9E7kHragwpl
O81O/jpERxfWLTcivKkwppHFIOLz/zblpNB2HyrkqA2p7MX3Axuy3ZtzkwoR
Wbr2Fvj+yL7reK7uNhX4Vt8duLEXzyOLD/b3PhWu5v1bN5SlIz/W5LvnI/F5
zP06uolERxrCp7fxPqaCtGDUuzP4fpvfI/TiwxM838Qb5Rm8dORi/bhBNBZ/
30HEToCLjqxyArcykvD61Z9wcFinoT1mbs+McqnQGHtBlf6Vhr47yCv8y6PC
l0s/b7p8xve5z4+qzNdUEL1VJflvmIaE0+3HWAup8Hjq9KuZHhpiW7DeVfWe
CtcknrKebKKhwUT0Xrkez2/85dWVbBqKLVg1/NxABYcrz/YMZ9CQ+ceygcgm
Kixkdq68TaOhhimV9clP+POKmgZrxdPQW5DTz+rE+zHQX9cYRENh43xdYkwq
dNvGe9deoCF15bFpthUq3BhMOXuJl4Yeb6hOxK5SgbQv8b0uFw39bA3+IrdO
hW3L3c8F2Wko6ZJCnwlBEnqPTV5RX+hALMk+NdEckmB+VDTneksHauLgjZYW
lIRZHonv1652IJthTY3DCpIQFxTFXVzYjgpzI1R6FCVB87wim8TLdsTl81nB
SUkSztgsK/rEt6NK/mDJhyqSwNEnprfg144ohp1bujUkwSg920XMuB39eOs0
4mAgCSUce1gozDbkExLz4ME5SfA0EQ01XWtFRX9HYrdekIQe3x/9Q9OtaPqi
XG6cvSSIx2gcOsNsRQ76FbQ8R0k40FJqL1fXikyJn3d0X5YEl0UTbfaQViR9
e0+ptI8kCGqwr9J5WhHNvW6yPkoSwg6y2m3wfUK7Ts5acdbizyvhUEH42YRa
D86NFdVJQuTFOLptTxPyEF9wP1cvCc+PH7LOrm1Cpd/+hZY0SQJ9b8M437Mm
ZOjFUvVfhyRs65Rr2WXchC495pWpGcLPf/hjLDi7Eb38pLB4868kJOqueVyw
aUBUcIn9tUcKzjtLf2KPqkOp5har2VFSsPjw5KtCegU6OnXY5uITKWD3eLOH
mFyBFkPVi6WipSAhgNNH16kCmdZJuKbEScH0Iy+Bp+vlaHX/9ODTFClQStPs
99ldjk6LhVf4vZICY+/dib53SxF5/KPviSYpiLvDp+wj8Q7V3i/twRc8qMX3
TW+bKEZuEq+UOz5JQVWLWHra22JUb/P0p1GHFOwN5HyarF+MvD5dOI16pODw
HFVJ9HIRor9Z19j9VQpm7wTO6hYX4v+v/on5/k0Kxr8IF6A7hUju57fZjO9S
EFTzgUXVoBD5S7XlSPySgogcfk62vjdIMfaZCOmPFGwUp9x+uFiABpQjr3fO
ScHXqPuXOEMKUFDHfXrkghR0Wp0W9RYpQMOcLqFcS1Ig+llITk4rH4W8PPut
cVkKxmzE5a+0vUaquhY6gatScD3tlMFLu9eIOXI4WXddCkJDmG2036/Qw1vq
Sxsb+PucraQZ/1fof6+b32U=
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk8VN8bB3AJ2cZaYWZQM4UUFSn7eYgoqVRUklCSpVJEUqIQZatEZEuE
UgqVrY7IHsOMbS6pZM2u8o3E7/7+mtf7NTP33vN5nuecu9rp3H5nXh4enrYl
PDz//9xsfORVQvl31HngEFs+7yc2Lo5aFJHtQ3o5fosXnH9i28oTA37f+tCT
qbV105XT+FYHpdDaewAFXX04vyN5Cg/H7efhjxxAfM8H+S0jprC5TfzuwswB
9HmprKqn/xRe1raqX6pjAF3ytZERtZ3CwWzNlc06gyhV8IxOtOwUvtp45NKu
xUFkz2/35UziJPaszNRHt4bR9h2XCz3sJzDr+o+w8fRhtK/RW9neeAKrG29s
Sy4dRodQz5i30gQeKy86Mz86jFLaFgMkJsax2/uGlOK9P1DoLUnn6aBxfLJ4
imfLihH08wKHM/98DB/KM6hSSRtFKRPDr+3po9j8tdDziZJRtMWa+EHjHcXa
pW2xb9pGUfdAy/aZwRFMrTlz0kRkDBHXP3TwFI7gnp7kpQ4+Yyhwxb8VJyxH
8CmxBaP43eNIdUhKihLyA3ufef+ef3YCxXyMravkH8Z19xXtprKn0GqDrxBr
OIBXxkgGpdb+Qg7nGGUn733DD+1GVxqt/4Ouf2qSKpni4iejwonLA/6ij/7X
vXqvteCvRYnmxfEL6Hn/L50baz/inGdChSpzPJAtxOJkHczAsw8Cjny+zQuJ
W5o2KTrlIdHT938/XcEH3qeDCWvTSjQWOyh1mM4HQ/eMOoe9KlHTB51N/Ew+
mF+TMu+UXomiaT1uxzfxwd9/mQF8i5VIiqX0VdqCD5DyERbv249IdmtR/ZVA
PvBTj/75ZXU1WsPXlbpnhA94PgVuK+qtRXppq3ZNl/OD4Fp2FkFpQrF5dUJq
Nfzw2thQNkujCY2/v1Dn0sgPKvIs9SOHmlDa54/mn7n8QGvsW3s2rQnx0VzN
aqf54SXHhWG7mYU+3X9lkrJGAMb9WWxZ5WZkf9sY7QoTgNmF6oRGnRb0NnFk
IThKAO6bWJcE72pBEk9j3+NYAfB5+3C5+tEWVFE7YKD1SADcDjidPHSlBSkL
3NZfVSIAHDvnX0vft6DJQI7OzIgAOD/evvSDIRsF+Zzckr53GaxgKB94rsVB
AYcmCCebZdAd3L2rz5SDrmhfDmIeWwZLE7suCttw0KW56KYMt2Wgt1l//xof
DjobUHo6K2QZWC0nkiNfc5BtqFRybuky2NUfeVJjcyvSiCvnf6ssCOfNrM5m
0trQJl+LXF91QZh4F/+zeF0bUjvcvl9bSxB8yo8ovtvWhlSoo6nFxoIg4tVu
G32gDSmkyOiWHRMEdb3N/zndakPCT86e/XCPvN4BgcjKX23o+2t6R8OiIKjt
lFPdX9aOTitc/+YhIARtNE+lfzXtaDR0cIRCEYJXqxJ54zntaOZQPs8+qhAU
7mnfG/+jHQnOmam2bhGCQ5WVv+tkOtAGQ6+r3a5C8HWL9c7fZzvQyyedN696
CsHhdwsrI/06kJa44V0FXyGoip9Nlg7uQIZfBbMcgoVgX68La/RBB7K6ntLc
lyIEZjfSQlkfOpBPdR1zjCMETutU4g5KdKI59Y3qUYQQ7J5cEOmQ60TX4mO1
N34TArcsKXlzZicKO33c8vy4EOAfccIzWp3oofBvn9+CwjC/8tpQoG0nKt+z
qv6fgTCY5IX5WqV1IqEOH0+xbGH4euL8UJsCFwkwNOUNXghD+/Wya8/WchHv
mYk690JheLP5XOf5DVw0z3uaWVcuDJX5bp+adbhoUv1I+w2uMDyJ+1TYcYCL
OkP19GeFReCB00dLoRAuamv5b0hZUgS2F9zp/HGLi9j0wvs2MiLwaWL36ncx
XPQpf8NEAVMEtmYmjGomcVF5j3z6WX0RkFG183DL56LsrTyCfWdEICx3tdbf
Li7KDCorlPIWgVB7rRdDX7ko/dMlR6PLImBxwWeoup+LkpymSlJCRaCtVj/d
eoKLYqJ6zxxJFYHLo5e0y5YQKJKbQg3LFIG7Ci61GwUIdGvN0Zo3z0TAL+Sp
fKwwgYJLOKuWF4mA8aEq6kZpAvkOfOQ0NYtAwsvWCy+YBPLeHBT4r10Egtur
IVuZQJ5XDNQ2fBYBh6EB7t31BHKTehMaPiwCRuXy53U1CWRvmKVjwisKPV1d
uzlGBNoRF55arCkKm7n+DzfYEWgoX1nzrK4oXFg3cc77OIHCWVXVDCNRYO7n
ej91ItAnQd7x23tEwaogZeW30wSy8r+sb+8qCpLbW4YveRNoOl62WcpTFG4c
Tz6v4Uug2MI3J2p8REEzanQb4Ueg9rHpW5uCRaGEaLj5K4BAdg7uXN5UUXi5
IdXjYBiBFq4InXmbKQpR7gdWBd4iUGpCFo9Hrij86xtlJEYQqJf9XbmtWBRa
217JJ8QQ6MZEUGl4uSgsx87UgLsEWiO6aq9hjSjMfRQ/ZxVLIBdTO5+sVlHw
8Xq3rjKeQIJOc0J2XaKgzBcb65hAoKcBD5IlekXh7TUBx/FEAo2+bf3oN0Gu
d0eDCieZQFGtFw6rz4hCP0t33fpUAm2ckhjtnRcFanng/fNpBLqgaim9W5gC
bQ6byurSCbTcbOQJjyQFlIKXXOl6TKDXJ8J1X8tQgDvpm9+VQSCbQOUmVwUK
iN+0d6rPJNCfpCpHhbUUMHEJj8p6QqCE4hO/2esp8N9km45XFoF025eE39Sg
wMMPqi5q2QTqnk6l6+tQ4F++r1w76avihi8nEQUEiNcHzuQQSGFD9/bMHRRY
EzIo+5N0ufnljiOWFFDWk/VweUogR2dZd7GDFLhdbLevnjTv9TcLFbYUWP6T
XUt7RqCMlIN3fR0pYCiW3nmUtGnp9NoNpylQf2Lu+i3SAx0xxV/Pkve7uqIh
i3TYL3XL+xcpYCu1tbCAtKpk49edVyjkeZZt9IJ0g5q798J1Crh4l/vEk/bY
JSRYEE4Bx6jPNudIi7lkPXSJoUBa6al+LdIvb5hupMdToCX009oR8vms0r5X
NCdTICk1jBZNerosyCYkgwINnfL1q0nHchV/6DyjwDElWa3H5Hq3zry7Ov6K
Aj0PRR2kSXdI2Uk+LqJAuFvCngtkXpc2zmUcwhSAL8585WS+1N0PtEWrKZDr
wAiZJ/MvPb31U/knCjidCWtVJm0X0nr8IoesX4LtjBFZr9T3Ejd7vlIgj9+/
3Jisb9E7/nerBilQ4Nf4Rp+sP7tsbtppjAKUOvVK5UcEEijtsx+cpUDn2knV
lhQCrSrhxq7jEQOJs/UR0WR/6RY31bsLiIEBX7YkSiLQmbdFWyelxODX59w7
58n+DH3z3ENDTgwiZUPu/SL7N+11erq3ohhIRlRUnY4jUGtBhNjsejGQX06t
W3OPQHovHQaWmIqBnYdX7shtAh3Ms6abWIiB9tmrd/+EE+jsi137Q63EwMvi
v48zNwmUnrvlvbC9GLwsLJevuUEgoRzBOGlfMZgWYfEXXSYQI/tfg/VVMXi8
2/LN3ksE0s+aXvLghhjsHp1p7rxI7jeZ3WfoMWKgWbXuIPYk83700nRtjhiE
LpNe/OxMoMm0TH+XPHI9pyvOLDlBIOG0xFc5r8XAc4D/1EoHAhmmBMurV4hB
leqVpStsCZSZePj31i4x0GL/O+lsSSCvezyZ5hRxSAopP2uzmUARd38Tt6TF
wSftiFusGoGe3Pkh0SgnDoVS+zQ/riMQEd16xUpJHIyzN6DZ1QQyisg+aIvE
wWj4d1mxJIHEQ/bxeZwXB1uz8MMPxrmoyVp59ZZL4mC98e+lO8NcFKG0YDAf
IA5MoQTTy31cJFj7zDciQhwkVenzVIKLeESWjeRmiUPPs+uRCR+5aDrmXcvY
Z3F4d9i1MyaOi146xo6/7hOH9cdvFd4kz5OzGu4iASPi0Jbf+vgsed6McGRN
xWbFwS+0pV00gIsuiOjayQhLQJ/iu923T3KR2577rG1rJaBkb2xonDoX1b3h
6XmoIgFKA75Nd5S5SEXRY3RxvQT8Ul2WcHUVFw1MGAvVakhAl4gaR0mKi07c
mTQ+DBIwZRWYXf6rE9m1Wry5dFQCrg7aHpF924ksbXmTi+9IgJ9V963ITZ3I
U+DoZ8p9CVDU0XBtUe5Ed/ML5J0eSID3txdmyxQ7Uaewc4pwqgSs23lgzU5K
J3IqrUk9misBC9MHtJWGO5AvPTL9X7UEFJpGVuxO6UCPemSyjeYloPuPRnDw
Qjv67aRWUHdKEhSqhXOuPmhDBwNffexzlYS9ZUudrSLbUH6yVvuihyTwzni0
UK+3Ic9Og1ktL0nQDWQQUe5taNRyD0q/JgmRryjX5w3aUK/2uYbLDyQh0CBl
6tfXVtQk9ur7+npJaHMaOHJHsRVll2xZHqUmBXSKfKlBEBsN7/CxEueXhiLH
plCZtY1oKyOWa9IkDSfVdEqZfFXo5Djv59B7y8Ghq8JJT7cYrZp4VhbiugIY
f53UC3oS0ZDh5kHtzSuh21vOzcwuAxtWTo5lC8mAYPrf0q0updhHe4nn2h4Z
qO6t07HdVYVvjmzRNPwmA80m7w49P1mFH6ScnrHpk4HGry5xkwFVuISv+UrY
Dxnw0j5mbFZQhReaU8JHZmTg74PD45q0anzTVf/xK3FZeOwaGbw4WI0fJPq2
GxjJQkHHiLbQxVqcY/kswcZEFgTitPTMI2txCc8Xu3NmshBkhNsuZtbi7lM7
vqdZysJ6DfPMpLZavEpzxeRSW1nYZBvmIaNVh7Mb8oXqL8gCr5pF/tvJOlw8
P6ZvkyELYviolI1tA056cPfnqyxZ4HRS5zZcaMCBW7Y9pTyTBUPZkcax8Aa8
wyNQpuqVLLiu6+RXK27ArV1S05pYFuLOi+5NW/kJj5dsy5IkZMHUwE1/b+Mn
zPALkmwUlwMNvcArfuuaMP8KpVoVaTnYytw2ddGwCQ+9rA8IXikHN5K8WmwP
NOG8IelRPXk5mJAuyP58pQnrH35S/VRVDuKxy43qpiZss63BP8xUDrr+7cyh
nWXhW7+XD2z3l4OsX273dlg246e8/WdOBcjBd71dvDnWzbhO/PXvsCA5MBZ+
msZj34wFVa35m27KgTA9/Fj02WYcan9/zeFYOdhnFOytGt2Mg2pWnPB4LgfD
7GGpg03N+FLCyq+xX+RA2YpuZm/Sgh88GXB52ysHmuefqDpYtOC3BW8muP1y
kOih1mGzvwXPNNosKozKgQ9dIZDh0IK9eeMVcv7Iwc75i1Ua/i3Y013m2DtJ
KvzNOczZkteCXQxkif7tVJhn3l72QoyNd0W13fuzgwpUVz4FleVsvOHLXUuR
XVS4rPNoTbwcG08HUj5s2kcFHVjy98AaNg74yJvtb0cFykhXorkOG8dZjF2U
vEgF33WxG+mObOyX9HTjmktU2DeB/Puc2dhuzGV4qz8VzBzbkh65sTEjutfO
LogK9d7CdnNebPyC3bE9K5IK/qfkMtaGsnH1kQpJgydUOLjMQs8pm41znl5r
2JtDheymVDPfXDaO+Ksf4pRLBSHG6Iqgl2y8P/ntn5v5VDDmt/h1oYiNe77m
fmG/p0KwfmoSq4aNZ1zin5/uoALvEY1W9z425hYddPEnqBCPdO98GmTjMiGp
1VGfqYC+3OFljLDx9WcRsQXfqcDxT198OsXGYhNB/gsTVAiMq92vtcDGa308
dsYK0uCfRcWY6goOJvISZ4ZFaDBWF2UrIcvBMcO1j5E4DXyyiPNDVA6es1u7
8GMFDcQvFaR4ruLgpu09+UZMGlSxM358VeXgG1dFHeKVaLCP5ZZxVI2Dtd/q
UsbW0aB7RmZZ3UYOfqwa7/JgEw1uJfDU+G/h4EuS++gTBjQ459Cz2ciAg9Us
AupMjGjgtc5b0wpxcG9wrk+iCQ36RIN7DhhxsOUfwRZTCxoISPNobDblYF6N
bQEP99DgR90fQsSMg4vcnddPWdGg4kOwOtecgxlfPoQkHabBeHJTu8VuDu6Q
ndSYPkqDuHX2G6YsOThiv8JXs+M0YBmvUQ/fy8EzVZd1fzrTwNzIRvvOfg5u
yNWc2OlFg70Rxr5LDnNw4IBjUqoPDTpM9Qz1j3Dw1lUxO3/7kflE7HnjasvB
afdGH6cFkr/nJcqS7DjYupFqNXODBmHG07vTj3Gw8LKdCxY3abBro/OdRHsO
9r6cefi/SBpouc7qnnDg4HWFHH7LOzRYZrb4SNORg3vGlhSkx9JgbkLlwwzp
WOVNDn/iaXBJKCAh14mDdzraU/Y8pIFwhdgG6xMcvJAYUfI4hQbfWT/9JkkX
tpa4zD6igee5PcEBJznYVWx4+d5MGhCO5rsXSSuYy1RkZNPg9og054IzB3OC
TM/NPaPBE/aIHJd0WKkXfV8eDa4ek2ZonOJgw9+P6jLzabDUqn30Kumf6s0+
f1/TYNtEmH8Z6ezTC0yrYrK+v2+yxkjbp29oeVJGA/RQ+4ekCwdLd9sGzGMa
1EYLNqqQrl0Rvn5/JQ2os2f8NEhf3fu2M6uaBjwXBifVSWuE94f8q6OBs+D8
FgXSgxXSmgcaaZCip2fGQzpp3uhrdjMNHs/pr2sj72e11TNygUMDm/RH3Umk
BTxTdA920ODlX8kTh0iX5XwazCFoMKOD3vORPv99LnbxMw0G//ROZJDrdYo6
KE3/RoPe0+55iPRBnRd3tPtoMK/7ar6JzMu0b5mE9SANtL+pc/eT3hrtGHX+
Bw1A2XlHA5m3im6paNQYDfg2d5lqk5brX3776SQNHP0UuAlkveZ1a29+n6HB
taNOH3TJeo73rxbgmaPBREyy3GWy/l9i/IPp/8i8dWiiL45zcMWAepD1Ujrc
uPeg+ifZPwV3whbPC9BB7zj/XX7SGfq9V6OE6JDCiloQIfvt5t37l2vE6XBL
WKZihuzPSwYTf75L0eGF4Wt6F9m/bkPmvjwr6fBo8IVi4SEO3m0476VDp8Pk
cW0lE2uyvsPW09aKdLB+m6D29wAHb4zN87zAoIN3zGzfE3IepH44nXmmQoeg
m0nu3eS88N0vG6lZTwdLue+Gp/Zw8G+00q1PnQ57JDfW95Hz1nm/7pS8Fh2e
3WBIlu/k4GSjTQ7RRnT4NPzt4YQxB0eNhvc8M6GD8YO7borkfAfGf7erNaPD
D5tAXhNy/p3G4o4s2UOH3k1r4t31yHwT/u33sqXDYP2x2C2aHEw1OdQSfYxc
DySNCW/mYJGJl3tzHehws4zLaFcn8zU5ubv/FJ18H1Veb0HuTwWT9aaHvOhQ
1LBlNo/cvzIervno5UMHpUC3S2oKHBy3I8A4xo8Ocl2Dg6k0Mr+kzajuGh3e
zO9LP7GSzMf8gbZeBB1EOvY3nxLh4LpU5/WKmXRo2OEbaP+T3M81NyUHZNOh
dOmA4OAEG++rmRPreUY+79PWaqdRNu4cj55OyqeDX8LDac1+Nh4wKCmmltMB
y1/1NWhnY95uMfOVXeT1SiLeT74mz49z3OKLPXQYA7WAF6/YOHxpxvq2b3Q4
Pp5aePw5G0us1xGPHaKDjrBrfFIGGytePtEuOUMHX7T9ZeBdNtaXLTpJkZSH
uWVlSjPubMyTe73dY7k8uLdknB07xcaVyNL8k4w8yK164tNJnne7XHrX31aQ
B/OCg0T4ITY+8kb0p+AGeSg3+eBna8zGPgcdg/jM5GFWaPjK2xVsnBcjnPL3
ijwYWNKNQgpa8Iv7PN9WB8qDk/evwDPPSSfOMM1vyIM+ZyzTIot0Rm9ObLg8
bP8plT+cSLqo5LVanDyYbVo89DyoBed+dWs8nicPH1L7pQ5ZtuDsTQ3zld/I
/zvQVh/63IyztT6gH33y0JqbH8rfTlr37XWJIXmYJEQvPCXfN7JMHgseG5eH
SN3LEx24GT857L98Zk4e6Fec6RWPmnFG4PoNKssV4NpJEOw80YzTmm8fjdih
AI6L38edKlj4hNy55vSdCqCsaVbR8IqFlZz2mxbvVgDmY/5i5iMWfv5TduPA
fgVISw41eHSNhUtWPuGF4woQwi/9haPHwm125Tk/fRWgAcXfWP2qCQsP//rP
NkcBEh6fn8uLbsReS+xj14kqQv7J1Ieg2IAFNfPnr4srwqmQn/9JCzXglJMC
zt1SiiDaf3ZFx3Q9rq95oRUtpwjbnw+1b6iux6uiFtt/KSnCzf7tFrIe9fgT
9ZFcuZEiZIl+a/lXWIfXbOlLsfFVhGClgK/+erW49ZRbzo1eRbAr1O9iKFbh
tMgcvp3Wq0DKuihv6NU7LM9bmv7iwyqYEjw/7uv6gpwf7wDqhtWgPbxWc/in
Mw5YmnzNIXo1EK8OJBaq5iBtjd5xvr+rgU0zqF5CL0GXwu7fuHGcAfpHLye0
Fleggv964iiODKAFpqZENFWg8VMqT+OdGKBwOrd/2/cKdMK0tPmZMwPUxPso
p0Ur0R7eb/Kt7gxo0HKKV7OvRGuubChac4kBI93H1U0WK1HzucrRqhgG5IE0
w2ZbFRL5Isqz7y4D5ta39DruqkI79thIE/cYMHon+cHxY1WodMOwzngcA263
8ZdtulGFngyL3VyZzADhDwHNKk1V6MoJ29UuOQwwWhFT7uJYjdYdmrIWrGBA
C7de7suVGvRJ92dvQSUDDmwz40RE1yBPhd/njlcxQHusIVMlvQYV9f8Jf1PL
gGNvA11Va2qQuTfP+5MsBrjXn99mLVGLXO6IK33oZsArP1Nfw9RalNmgNuP3
HwOK35pFrsyrQ+Z5G2+snWXAwNLKrgu4Do3e3SzRMseAw6nU2VJWHdpiq6Wq
ssCAcp1Hl5dP1qGPQ/r27XxMYHl9ufd5Yz36zr+7WkOKCeEG0szaZ/VoNbjF
jWxggtuLvLwPsQ3IqXtJxGV1JvBblB8rftSAMi4lBAltYkJITMCp1BcNSOVV
rYeyJhOkhQTPba1tQJsYyttP6DCBmVmfFz3XgICvb4IwZcIY7WXe8NFPyKH2
2M56eyYULYT0S0s2ovSTvw2PODBBIP1lcgOtEfXxRG4ZcmSCNuf2P0+lRnRa
p0xRwJkJe8y4acF6jcjzKXXGyJ0J4lmDE00nG1FgREd6sS8TvmWZZI4UNKLU
fVbz2TFMUHzkfUrZpAntGjM5fOouE8q+zEkFWzahmXDtQmYsE+ZSzPTqbJrQ
nkpFj5R4JpzRXxwRdW1C81rjXfdSmLD0P0sLv4gmZEu7XRqQy4TRmgyl3qYm
JFAUIKP/gvw+b8jrY3sTyj94wWs2jwm/elb9ieppQkJRR9Z7FzDBtCwzrnus
CRXxqDx0LWHCj5OutUdEWGjlwMfLB2uZ0DDiSucasVDF9aJ2yXomPPEzMjYw
Z6GzirkarAYmfG+YdQ/fw0JVh+/92MligszTN+VcWxbybnC0Re1MsNk+qmp7
gYVWnbZ+M9/BhArjTtUFXxZq4NspVcJlwhLhWtqtqyzEMNxUv+UzE8Rm42qP
hLFQy8sFHdU+sv7By+U6k1joiuX0/cF+JpRs+uhe+oiFVH70T2UMMkFEUPxR
6BMWCmQ25iiOMIHvcuzz1jwWUo97KLdimgl0Qmbd3g8sRGhEX2T/ZMLdu5/d
zlexUCjrekv0byZ8lt8V4l/HQp8F3cKFZ5mwuuscmLWwUFjmsf6aOTKvx0Ff
BNtYaIuxlVHIPBPq3UcO5Hey0Ncek2TjBbLec/zJ27tZKMJfe3ZxkQlTX/VK
yr6w0P8AyvwZkw==
       "]]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlnk8FW0Ux5FdZbkXKctcCpUtCaV6jiWlLKWotCiR0kIbpchOJMoahZA9
Keot1FNZsrtjuRdFSXayi4h3+ms+38/MPHPO+f3OOcOwc7Z04OLg4Ejl5OD4
d/0msqH9b/gEatl/sEHm+QTe0qC98f2jCXTNy1b6SsIE9hVt/p3PMYnKRGKq
zkpMYIlwUe/Eikn00EpCZc2qcbxr7gzfOtYkqjQ96CAkNI7dT38ILeiaRKan
vsUtmxvDHVud4yoXJlHCLo539l/GcFp/Tf6E1hTK+U/P3urxGNYxDOrZ+WQK
+ci4BC2uGcOHphf2jN6YRsxLFz0Tdo3i4JPWDe6B06j3Ttbum3qjuLjm2SGe
qGn0eLK16pzaKCZSjjqszJtGRd75woH0UdxvUehp1DONbucONumXjGD3zGsv
Yi1/o6M10UnnFn7h+KNDEvrrZ5Dw2ZxuCB3GX1kz9nd1Z9BY8oh2hNswlt7H
k8/eMYPO51vd57Abxo92yFpcPDGDzobN71ivQ7Ha3sD4qBm0ukR0xdsfQziB
o+D31CJ13jFtoVvbh3BS6s2WrKZZtDHlSesI7yBOGxKMo3vOoXNloSv+1vdh
9voylZvBc+j1DX3a2Q99mP/cbdwZPYdOPFlr2JnXh536J37mPp9Db6ovVk/d
78OqPV/VTTrnUFZl/+6cA3244FtumYfRPPIyLNij/bUXlzRYjvUI/kUdoYqB
PBM9+PubuF1vYxbQuj+1vr5bunFmtkCB8h8O4Drqz/mG2YlnYz0Pt4dwwd+P
VZPvCtrx0jNRU1ni3PBGJzs9W6oF6yURu8c/8MAml2zZLPkG7O1qr5VswQdO
86quKnsrcdcraXb1Ij8sVUJXhk8WYQG2q8vyDEFw8W6DVo8obBx9J/HtxqWQ
kXTZaJlqDkp8LxLY8X0Z7A4r/Huv7gMS9t/Lff6SMISe4k0b+lOB6qyUGFrX
heFqyYcVNOlKdFdxYdu8pzDs00zlW7OtEvFXZLvdvSsMPIKbFIRuVyIOIb7B
nHRhOMVt3NTBWYXGw9+Rw+3CMLHV0ix2STVyMo+q11kjAt2bT76anq5BZjZc
j9/eF4F2IdMNe8yYyIX3SPuyKBEQ/+V5ps2GiR68zJexixWBxuwa7eNnmKhF
0CFBMFEEtAOkfQ19mciu6HPikRzqvMajRn5vmMhNOjT5b7kIJPobVLQSJHrS
IZmhPy8CcV8KWvP6SFQa7NIXtSgCx813fa2YJFGPdqXyAJco2J9gNTRxNCCV
MPfMBwKikEj+CKpY0YBeo/asLglRYB2ZjpTd1YCqk5Kf+W8QBasrmgzv1AY0
ZaeaX3laFL6QZSyOA43ogNeL0p9nRcFTniu39Vgjevl4E2vxvCj83hl/L92x
Ebm0bJvddEUUNr+oOy5/sxENmZmj5Nui8Ovi0+8RTxrRD13navdYUcCJcamn
hhpR3fIXXeurRMFddf530o0mpKqyacq4VhSqbS7N032a0F2Tt7x2TFEw2xKQ
5RHchEz8Pq6NZYmCqGHLjEp8EyqdJZ25u0Qh2EGDvqS4CRX9HJ/7OicKFWev
8YbMNaGMQi36PVUxyGvm75651IxaP6yVGtIQA/6YDr7IG81I8LOs7G4tMSjj
Xu3B8G5G5xv5lXn1xODgu9ADtPBmpDH0Vc9zlxjUf7JxtnzWjN7I+J+6eEoM
7sWZamztbkb9Cu5nak6LQc7mCou5wWa0cp3zhXVOYvDlkmZ8zngzuqV92K3H
RQy01dWfdS82I7BQDTnuKQYhAf0+L6RYqMKr+aX5QzG4zzqhnbubhWYDqv7L
eSQGj0wwEbaXhdaF4mLBJDFYllcvaWfNQncfZpaXp4nB56Wb13ScZKG9Lz3a
theIwchrjTC16yzU0rWGS71eDAqiNu9ST2YhgYGVfKENYrC+WkRfI52FtowK
Lx1sFoMdUKamkMNCj+ZnxdO/ikFwH6ur4xULnRCvWys3IAb+uoURzypYqN/Y
dZ8wDw3G/LWk0wdZyPp9tJIWPw082Wd2eI+wUOmm//4eEqLB+Idr8hYTLJSw
eiYzWZQGk+qPp8r+sJAllzuXtiwNvjdxjsoJsBG+Eddiw6DB7LsX6TFL2Uhl
rDD39moacD5vWb5EhI34vs/ZVK6jgcDWyv4CCTYqfueRf1SHBn/51332U2Cj
tZsS7nhvoYFH0PGRh4psFJ3z3jZtGw1aMqRLk9ey0aX4RaFRQxrcG1C9HKbO
Roo3vO1999JA8m5BW9MWNgrX8hfPOkuD/U95PwpbsNHf7KeDdedpoKjHk2i7
j42cFMo/TjjTQPoHXTllPxvtEOO7uM2VBhv9WHo8h9joz0hQOdOHBvpK2hc3
nWAjR8fMR1P+NCjQ6c2Qt2Ojpo7Kyyvv0CD5BhG+xJ6NcmsF5ezDaPB0yNoh
yZGNTmXfdfsdT4N60lTL+CIbMeWfmUkn0iDHM+wr05mNtsfVKugn0+CW7m4t
i0tstOLOcmZwBg1OvhWeVLzKRv4c6mnPs2lAbJA55nWNjcbdLG415VL6SGa4
1bqyUc3pcGXZVzSYu3KrxOAGG23uyFsweEODU5W/p5zc2SjNimxyLKKBifmB
rwE32cjbSMz7xUca1N61+vzQg41+FWkeZJXSYOTwkdpwTzY6unG/6txnGqR4
cAffvM1G2vKRrUZ1NDBoNVyn4k3l3/6k8zBJg+thdbt/URwb+7z/YhMNfm41
TUz1YaOK/e/GfNk0WLYxUNnCl41ml1fPxrbRQE3HoneY4nVVLZy57TRo9L7x
1cuPjWz8ewRKvtNADn/n5/dnoxCYFG3posH25Q4XfCkunuNcOdxDgyHOIcEJ
iodfC8tzDdAgP/HED+sANpK9LLNOcpgG8SfyJ3MpNlddr6kySsWr0WYwR/Ht
Pt0t+hM02HaBWasXyEZ5KcYG1tM0KO+Ljnah+PvxA7vPzdIgo2djwkOKRVfa
WXrN02BAOr/7NcUGzc42UYs06Mxfc7GC4ivhHnZZXHQo25GsW0dx6p4QJ8xD
h1sdRsb/7jfxPrzcxE+HtDm12H/v83xKc+8XosPau4Hq/87X9ijwWVhOB/aI
+7J/3z+t+ymYJkaHm7+3bPwXX8xE/QNlcTqgnwtP/lDxV+S2x21bQYeXjkuO
/Mtv5uxgsuUqOpinBNv+y3/tmtksR1k6aCp/zRun6mPznTf/FoMOGdNGe//V
LzieXnR/NR30PSXRv/oWWcuXpCnRYepRtqc3Vf8hUY3qonV04Eg8LjJC6WMW
tOdLtwYdClJeqKdTenoaHu76s5EOnXZKH8YovXMXTg8K69DhjYdjhgbFItd8
5jZvo0N0v2pACOUX0AhfYgF0WHX4lWc65adLg4+F7A2p804INP9H+a3h5NtV
90woFrJ68ory4xKZzwoppnRYw7ixMoXyq1ZL0/o3FnQoefHptx/l5yjzUb0f
VnRwz7TpXuPGRof0lI5q29Fh0uRL0VeqX+5Ma9nvcaBD5ksD/wsubFT4wuD8
iTN0UKnx+zBO9dsq5eO3gi/SIVKlLaLtHBt10KMedbjTQaLnfaecAxsJM5NT
Jzzo0Hu4+sKBU1T8IXk5/N50UEr84O5xko2ecNYUawZS+lZayj07xkb2v7ja
AyLoUCXzvtrHiuqHB94tHdF0sCkN2KNCzQ8nbY4m7Tg6GK6XOFixl41cPP9W
9STRwa8mQLplDxvdWj7zxjiXug9bn1vrU/586VqQ8ILSbzriS+R2NvKxnno+
XUCHnxEXssr02CgoYTwtrYgOAYrheoub2ChCbTiSt5IOnwPuezVQ8y+64Vz4
8Ro6CFSViKdR8zHWdSDkdT0d9ogLnj5Pzc+E970+p1l0MFqSbkRKs1GW+Q+X
8i46XP0cZDW/nI0+XWSbBizQYfV3rrdtoyxUJma9q4NTHK69PBv2ZYjaV6+b
DLV5xGHzBe+D9X0sVLdAbukREoeh9Weqw76zUNu9GmVjKXGwP7Am62o9C43l
fuTm1RKHlx+vxpNZLESMZBf7nxUH0bZ438mDLGTLbX0n9bw4MNqP7S+ypPaH
FId1ibM4FMnzaLuZsZC00YERDldxqDItN6gzYCGph/OMWz7iwHP37o9ZFRYS
MzQLvBwvDtFq9PDd1H7ljvm1z7ZWHJpYvDbD8c3IMCdW1pMpDq/R5PLjUc3I
56PB4KNGcdD9WGhdeq8ZcQxF+7W1ikPxf4p5l6j9/xfQf1Y94vCm+Av33tPN
aHogTNp0URxuaohIyak1o77tG3p1N0gAzwN1AaXXTejPVtP0OC0JeC9RfiHr
WRMS0nN0nNeRgLDig/ryT5uQms7jXrxdAszMYsxHIprQFXWBPmNTCWAlyeYv
ujShBbnOvgOOErBjtYLxonITonHeH3B5LAFjhldH0sMb0faS0eEMAUmw4qnc
qwgNiMYz++3PUkmI696mq76pAfUZczaYikgCZOnmqK1rQA+qRF+PSkjCOYvN
B0XpDaib1PTUXS0JB9Uagk73kuju96vLK7ZLwlI13h7ruyRq+zuj1ntFEvqc
7//0q2ciV11OlzUdknB+9uPypBt16O388Fbr1BWQGzqf/YizAgVP0XsMb0rB
poqCFzJWH5DjthVt3YYr4UJHzp2HSS/QGtfzJpH8q+DwQKZXONMfXer6E7nY
vgo+hf3keiCdhSsTHdbLPZWGzVG8Bnb9hfh5uGDC3C0ZWOGLR9y3lOLcKI5O
hpcM3PAdf8xpSXHctMIuXxnwy1SQdT9LceqPzMg7MhA2MGEPsRS/KXylGi0D
9bePfCSmSnHOd6da2+cyELrO310xpwxnaFTPl3TKQOG5tUNTyz/jJGbIkbvG
slB3/XWfwdNKfErKmZlsIgvOlvDJ900lVrSz3PHWVBYy1fbZF1RX4mcTK9R7
LGWBO0O44+dYJS6USOMCW1m4Xrc913tbFW4++iFzwk0W2nrFxVLIKizYP/nb
JlMWhPpHjpkMV+PaDS3nL+XIgq1Sf+jlhWoc7l7UGfhcFtQP514PFq7Bkkt9
qgteyUL0difbgA01eLW6cOLyT7Jwec2Fh8+u1uDt19Yaf2qThTI9hmz+7xp8
hfN45NqlcrBxyOmM42gt5t/4ct5HWA7eJNrXPuKowwn2vA5fxeTgfoIXs1ik
Dld9zt0UJiUH/rgwrFijDhP3FlmTinIg/idMqNC5DtesfCL1QV8Oorg2jD/t
r8OrtX4mWLvJgcp6I52ltfW40EGXL89dDmque+kHtNVji5i7zgKecvA3nO9P
f289dv+jBcV+ciAv3KWqw8nEzA/+nYwHclA2MSmxaRUT3zJTWj2cIwc7JaTN
6WZM3HTaKdP3hxxElKiJmWYwcZrAwI+Ubjn42n8p3/AZE1/POStd2icHrQvH
zTa8ZOJV42fCuEfk4IxwxKlfRUxs5+F4zX9ODuCsYvdIHRPPmLxMMhQk4Mfa
umfLJ5j45KrL7xqFCFinZMLh8JuJq4Y2tJ1aRsDDvVfVX8wxcXzYC5qfCAHP
elNl1nOTeHtzXkCpBAH8T7SEn9JJ7H/i+fkdCgSs3inGn7eRxL82ON9pXk1A
y2VJt1M6JLZeop7moEhApfS9nKV6JFZOy/3mv5YA6TSB02BA4prBZ5bl6gQI
BYlMqOwlsZhbju7OrQTIjS0JlHIi8c1d563Y2wiQ3c1qVb5A4p9SKpcdEQGP
ziT8UHUh8evi7OxAAwLqNYvEpFxJfJgrW7ZiFwG2l6TYV7xJnBSayW1iRYBL
+rTllmgSX25kxP+xJsAx//AYO5bERlJxG3IOEeCl2XXhbDyJ+1KDjwsfJWBl
Jd+iYxKJNYrPvWm2I0CwJ/NyYyaJubh+mgfaE9C0ddWEcA6Jm3Ye7dY9TYDB
7/dmkEvi642mYo/OUvkz9MJvvSQxHlA9b+dCAC2XZnCqkMThGmlc9MsEnM4a
DtleTGI7V9mHZVcIiHHmzl32nsS8XMLlym4EsH/7uQd+JHHLzsCjbdcJKJ1m
rtYsIXFW6OJ4iDsV7ybZdGYpic2lRuVGPAh44t2ysf8ziQnbM6+TbhOQe8tx
+6lKEo+nfje19Cag774eg6wicbQGeeOVHwH3zpq7BNWSuGPny8abIQSIPlq1
xaGBxHmh65xUQwn47Ru71LORxD6NyRzf7hGwo9f2bXATiRVtI1QNHhBgnO+Y
cptF4plUodKJCAJUCoM6HdkkrhrwtXkaRcBlt1dzhi0kvuh6NZD/IQGzPrvL
2a0khuIhmcI4AvY3N7iFtVF6czkUnHtEQPbPND69L5S+O9t3yyRQ+dxycm2j
+HWoVWddIgEh+ypLL3wlcVBjrZvXE0r/RdeJSYptpIyXa6YQwCWovsSlncQq
tu9Tu1Kp+FsLJjsoXkjV1otKI+DLu8YK/Q4SMwdySeMMArb1HfeKpThZQ+nM
TCYBPRc3SHdRfNU1cSEzm3reRO0x4xuJjYslo448I8DGErgPULyCK3z9sucE
NOvbWLpTPLCT/9P7POr9PNegSIqLQ70OubwkYItEbHoyxfcaZ34xCgi4XVaR
l0rxCalL/o2vCDD6tfJpHMWatv2r/P8j4Ftchr8fxdxPT77UfkvA9ucR++0o
Zg207uorJOBTL4+IFsUZGpbfHhYTINKiUTxLxevuWnVtz3sCWP1mh/MpNi02
WPoXExB9JKHvBMUyXEXJuR8JsEfnznH9y79/reWhEgIUf2SMPKTq40fGcnKV
ESD217p1DcW6b/leZJcTEDH5aW0aVd+hJNcTVhUEvLug/2MlxUlB3cKLlQSs
MFPj9qP02e9yAGdUU/32aii8k9KzEGnKztcR8Kft3ugNSu+LSk9qnzIJ2C1w
rLyA8oO8sIiHRQOVbyK59Cfllzsdw1+SmwlotGoYk6P8tLX8aIgpm4C8FJ8I
lWYSjz6r3jLdQsCyAkaOKuW/Qx6ZD02+EiCRXbJrGeXXpQ4rTCbaCUjdt5o5
yCTxB9PAmUffCAjVUW9+X09iJWmHg6M/CCjaaG5rQPm9bUkTb9xPav6dn+0d
r6b0GTR4bdhDgJSyx1QM1R/ThYR4TD8BGStD0jDVT1nJYaUwSOmR3m1mUE7i
48ELVwaGCNA69tb7LdV/ZYe/NmwbJeCaTVG0P9WvkTMx4T+nCXC4ov88kur3
Xd954d4MAZa6eyaK3pB4/vO1EZ0/BETyOTSxX5P4VMx+85C/BAy0xrkOU/NC
U1t4qSY3A6ZkDruHZ5G4R8az6AsPA/Ld5rqPZpA4jmfYyZ+PAdv2CnDKppGY
s7mqskWQAc7VKy08n1D6XgkIvC3KgBXcfuH/xVD6HpnSXktjAGvHh+K1UZS+
hvY9DXQGqNj75YQ/IHGimMEOxRUM2Nqo3bk1lNLrxV+uWlkGXNWrHljuQ2Kh
kaueK1UYcEc+aiz+LImPht2ITldlgF1HemfEaRLnqnvmaqkzIEmHT9PnFIkt
XQI7zDUZUJSS8lf/GBXv2MPtvroMUBrZEmhOzXflyfcLg0YMKJicyH6sRfk3
skTihjEDFL94sOY1qH2gVaHGu4sB5dYBIZaqJHa+Rh4n9jBA6um+pM411DyY
7np/YB8Dlosll96ToOb3LP/td8cYsJe2JlBpmomjHy6L2W3LgMSYA69Gx5i4
b7PYc/YJKp4Eg8d5w0wc4r7q29gpBqzZ2ZJG72bihjlVpOjEgN2Ey+yFRmof
Llgu3nNlgN7RSJczuUzsueTx7RNhDAAJ3Z2Rx5h48wobUeH7DDicImrw+SAT
T6pIprx7wIDiLh3WyD4mdrK+X74ymgGrrji1M4yZ2CrTf1nzIyp+z/phATUm
VrG4GG+SxQAL9ch3X3/X4y9x6D/NMgbwFx1edYiox9HP53d1ljPgcUBukY5Y
Pd5b+rYtrIIB18WfsJZw1+Py4Y0LQ9UM+P04JuNkbx1+Cco70hsYUIZGJrWe
1eHgHpHGVd8ZYCwKkkab6rCu5o9f3HMMGNCuX22tU4vvL2r1R88zIPvVfvFJ
pVo8UBPYpbzAgP5NIiY+K2rxI0fVFlNOebjwiUx2nq3BHI+vf4zkkwcXwaxt
YYU1uIJPOHI1XR6UPq2TGdxcgw+16202UpUH7ceOobaq1fh6UJSvr608jM6H
tqX2V+C1B8es+D/JQ1dbdlltbwlmgFP0oIoCmB/m+2iaUIQT9+6bzwhXgLcn
OLVoXbl497DRodMPFKDUdcNquJqLp+/oFihEKgDH8z1tJ3hysXmJ3PmEGAXI
N+1r9VR6huc3/foSkaAAJ4nJ8U3nsrHNqpAizxwFyAtqnWCNpmOJnlL3AxUK
kLmxy1fydxL+5POGJVqlADHKxvTDgUn4olyOZn21Aii6Ma/HSibhskMRAyb1
CtD3xWRRwSUBX60+aYNYCnDkRUrs2FgcJvMWNq/7qQB/ReUY/01FUP9r41G9
3Qpw239qAUlEYOWB7rHUXgU4/ckruE77AfZSqM2UG1SAsPf66xbdwrFadLyU
+LgCNJtdEvKauoPbNMOuNUxQ+X5kRgnrBOGAeh8ybEoBJN+cdi24HoDb+Z3u
CM4qQNXwlJbhvA8Oenqs+/MfBdg3Nxymvt0baxns0/efV4A4pobreY7b+HuH
0WODBQXw3ybXn+d3E9+9qTu7uKgAS+WDJtUEruP/AaOQ67c=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{True, True}, {True, True}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->Medium,
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
      AbsolutePointSize[6], "ScalingFunctions" -> None},
    PlotRange->{{0.1, 10}, {-1.230253049511921, 0.5207858731751729}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.69867573450206*^9, 3.6987558465759277`*^9, {3.69875589610209*^9, 
   3.69875590690212*^9}},ExpressionUUID->"aa126f6c-e2cc-40d6-bab3-\
d036ab495360"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\nA condi\[CCedilla]\[ATilde]o de contorno no caso do modo TM \[EAcute] que \
 o campo ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["E", "z"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "c09378f0-5108-48e1-9ba7-4d50e4972aa9"],
 " se anula nas superf\[IAcute]cies dos cilindros interior e exterior. \
Portanto, temos que:\n\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["J", "m"], "(", 
      SubscriptBox["s", "1"], ")"}], "+", 
     RowBox[{
      SubscriptBox["\[Alpha]", "m"], 
      RowBox[{
       SubscriptBox["Y", "m"], "(", 
       SubscriptBox["s", "1"], ")"}]}]}], "=", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "243c70a0-38a7-42a0-b28d-1d237764a639"],
 "\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["J", "m"], "(", 
      SubscriptBox["s", "2"], ")"}], "+", 
     RowBox[{
      SubscriptBox["\[Alpha]", "m"], 
      RowBox[{
       SubscriptBox["Y", "m"], "(", 
       SubscriptBox["s", "2"], ")"}]}]}], "=", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "89b8105c-1c50-4638-9feb-220f474aa79e"],
 "\n\nonde ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["s", 
     RowBox[{"1", ",", "2"}]], "=", 
    RowBox[{
     SubscriptBox["R", 
      RowBox[{"1", ",", "2"}]], "\[Times]", 
     SqrtBox[
      RowBox[{
       FractionBox[
        SuperscriptBox["\[Omega]", "2"], 
        SuperscriptBox["c", "2"]], "-", 
       SuperscriptBox[
        SubscriptBox["k", "z"], "2"]}]]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "a280541b-99c3-492f-80a5-915ce6d7f4cd"],
 "\nMas a condi\[CCedilla]\[ATilde]o acima implica que:\n\n(*)\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      SubscriptBox["J", "m"], "(", 
      SubscriptBox["s", "1"], ")"}], 
     RowBox[{
      SubscriptBox["J", "m"], "(", 
      SubscriptBox["s", "2"], ")"}]], "=", 
    FractionBox[
     RowBox[{
      SubscriptBox["Y", "m"], "(", 
      SubscriptBox["s", "1"], ")"}], 
     RowBox[{
      SubscriptBox["Y", "m"], "(", 
      SubscriptBox["s", "2"], ")"}]]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "5b6b8ea5-1a64-41a2-bc37-317fdafb8616"],
 "\n\nVamos ver abaixo que, dada uma frequ\[EHat]ncia \[Omega] e uma ordem \
dos modos angulares m, existe apenas um conjunto ",
 StyleBox["discreto",
  FontSlant->"Italic"],
 " de modos ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["k", "z"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "5a4020af-f7a0-42b7-9931-c4212e5114db"],
 " que se propagam nessa guia de onda.\n\nNo exerc\[IAcute]cio abaixo tomei \
como exemplo o raio do cabo interior sendo ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "1"], "=", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "628fa453-aaa3-4f41-b5ba-a88a60128182"],
 " , e o raio do cabo externo como sendo ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "2"], "=", "4", " "}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "acdb99d0-e607-4052-bec4-3bcdd6c1c543"],
 ".\nTamb\[EAcute]m tomei unidades tais que c\[LongRightArrow]1 , por \
simplicidade.\n\nO que estou plotando s\[ATilde]o os dois lados da equa\
\[CCedilla]\[ATilde]o (*) acima: em vermelho as raz\[OTilde]es ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["J", "m"], "(", 
     SubscriptBox["s", "1"], ")"}], 
    RowBox[{
     SubscriptBox["J", "m"], "(", 
     SubscriptBox["s", "2"], ")"}]], TraditionalForm]],ExpressionUUID->
  "05b39ce8-525e-4558-a977-ff4b4e254390"],
 ", e em azul as raz\[OTilde]es ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["Y", "m"], "(", 
     SubscriptBox["s", "1"], ")"}], 
    RowBox[{
     SubscriptBox["Y", "m"], "(", 
     SubscriptBox["s", "2"], ")"}]], TraditionalForm]],ExpressionUUID->
  "6a533800-c0d2-4975-a343-2a86a502f938"],
 " . Note que os pontos onde as curvas se encontram correspondem aos locais \
onde h\[AAcute] uma igualdade entre essas duas raz\[OTilde]es, e portanto \
para essas frequ\[EHat]ncias \[Omega] e esses modos ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["k", "z"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "e1355b37-438e-44fb-90f7-bbbf4b9130d5"],
 " existem um modo TM que se propaga na guia de onda.\n"
}], "Subsection",
 CellChangeTimes->{{3.7637471141041603`*^9, 3.763747271581315*^9}, {
  3.763747438638814*^9, 
  3.7637478770425*^9}},ExpressionUUID->"4a26606f-b1a1-418d-9dbc-1cc5164814fc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"R1", "=", "1.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R2", "=", "4.0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"BesselJ", "[", 
              RowBox[{"0", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"0", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BesselY", "[", 
              RowBox[{"0", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselY", "[", 
              RowBox[{"0", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"kz", ",", "0.0", ",", "w"}], "}"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(k\), \(z\)]\)\>\"", ",", "\"\<\>\""}], 
            "}"}]}], ",", 
          RowBox[{"PlotLabel", "\[Rule]", "\"\<m=0\>\""}]}], "]"}], ",", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"BesselJ", "[", 
              RowBox[{"1", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"1", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BesselY", "[", 
              RowBox[{"1", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselY", "[", 
              RowBox[{"1", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"kz", ",", "0.0", ",", "w"}], "}"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(k\), \(z\)]\)\>\"", ",", "\"\<\>\""}], 
            "}"}]}], ",", 
          RowBox[{"PlotLabel", "\[Rule]", "\"\<m=1\>\""}]}], "]"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"BesselJ", "[", 
              RowBox[{"2", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"2", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BesselY", "[", 
              RowBox[{"2", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselY", "[", 
              RowBox[{"2", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"kz", ",", "0.0", ",", "w"}], "}"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(k\), \(z\)]\)\>\"", ",", "\"\<\>\""}], 
            "}"}]}], ",", 
          RowBox[{"PlotLabel", "\[Rule]", "\"\<m=2\>\""}]}], "]"}], ",", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"BesselJ", "[", 
              RowBox[{"3", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"3", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BesselY", "[", 
              RowBox[{"3", ",", 
               RowBox[{"R1", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
             RowBox[{"BesselY", "[", 
              RowBox[{"3", ",", 
               RowBox[{"R2", "*", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{
                  RowBox[{"w", "^", "2"}], "-", 
                  RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"kz", ",", "0.0", ",", "w"}], "}"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(k\), \(z\)]\)\>\"", ",", "\"\<\>\""}], 
            "}"}]}], ",", 
          RowBox[{"PlotLabel", "\[Rule]", "\"\<m=3\>\""}]}], "]"}]}], "}"}]}],
      "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", ",", "0.1", ",", "20"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQXab1/u/KvteOPE27mVYBaYeHda4gWiC31xdE72n3
DAXREX2hYLozYEIkiH61aAqY/qX8sBpEMx0rrgPRbBNPTgTRD3ZKzAPRKbey
FoFon65ry0B0cfG6NxeAtPjJJ99BdEm7yF8Q/eRHJpietXwnx0UgLcMZwA2i
BRZzaYHoSJN/5iC66s0aO7C88053MH9qzvFjXG8cFcRFT4DorLTy6yDa5KrW
QxDdpcD4FETzXK99BaJfqH34CKJbt2j+ANGbeFcyHwfSBy6sAdMRD5LlwPxb
qWC60vZSGYg+EZdfDqIfzclsB9GHAqWmgGiDD8+ng+hbuguXg+isIyc3g+i0
8Bu7QTQA65O97w==
  "],ExpressionUUID->"bae4b7ac-f059-4f0d-9538-514ae17850a9"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`w$$ = 1.04, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`w$$], 0.1, 20}}, Typeset`size$$ = {
    369., {142.134033203125, 147.865966796875}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`w$25766$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`w$$ = 0.1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`w$$, $CellContext`w$25766$$, 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" :> Grid[{{
          
          Plot[{BesselJ[
             0, $CellContext`R1 Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/
            BesselJ[0, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]], 
            BesselY[0, $CellContext`R1 
              Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselY[
            0, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]}, {$CellContext`kz,
             0., $CellContext`w$$}, Frame -> True, PlotStyle -> {Red, Blue}, 
           FrameLabel -> {"\!\(\*SubscriptBox[\(k\), \(z\)]\)", ""}, 
           PlotLabel -> "m=0"], 
          
          Plot[{BesselJ[
             1, $CellContext`R1 Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/
            BesselJ[1, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]], 
            BesselY[1, $CellContext`R1 
              Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselY[
            1, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]}, {$CellContext`kz,
             0., $CellContext`w$$}, Frame -> True, PlotStyle -> {Red, Blue}, 
           FrameLabel -> {"\!\(\*SubscriptBox[\(k\), \(z\)]\)", ""}, 
           PlotLabel -> "m=1"]}, {
          Plot[{
           BesselJ[2, $CellContext`R1 
              Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselJ[
            2, $CellContext`R2 Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]], 
            BesselY[2, $CellContext`R1 
              Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselY[
            2, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]}, {$CellContext`kz,
             0., $CellContext`w$$}, Frame -> True, PlotStyle -> {Red, Blue}, 
           FrameLabel -> {"\!\(\*SubscriptBox[\(k\), \(z\)]\)", ""}, 
           PlotLabel -> "m=2"], 
          
          Plot[{BesselJ[
             3, $CellContext`R1 Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/
            BesselJ[3, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]], 
            BesselY[3, $CellContext`R1 
              Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselY[
            3, $CellContext`R2 
             Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]}, {$CellContext`kz,
             0., $CellContext`w$$}, Frame -> True, PlotStyle -> {Red, Blue}, 
           FrameLabel -> {"\!\(\*SubscriptBox[\(k\), \(z\)]\)", ""}, 
           PlotLabel -> "m=3"]}}], 
      "Specifications" :> {{$CellContext`w$$, 0.1, 20}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{414., {202., 208.}},
     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]]], "Input",
 CellChangeTimes->{
  3.763749721591433*^9},ExpressionUUID->"3cfc4688-7671-472c-a2b5-\
2d96407a36a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Veja o que acontece para m=0, perto da primeira raiz:", "Subsection",
 CellChangeTimes->{{3.76374993802842*^9, 3.763749964227537*^9}, {
  3.7637502952036123`*^9, 
  3.763750307403689*^9}},ExpressionUUID->"09f8e143-0427-44eb-a219-\
fda2f1218c14"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", 
          RowBox[{"R1", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", 
          RowBox[{"R2", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"BesselY", "[", 
         RowBox[{"0", ",", 
          RowBox[{"R1", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
        RowBox[{"BesselY", "[", 
         RowBox[{"0", ",", 
          RowBox[{"R2", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"kz", ",", "0.0", ",", "w"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(k\), \(z\)]\)\>\"", ",", "\"\<\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<m=0\>\""}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", ",", "0.95", ",", "1.05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.763749972590301*^9, 3.763750092579089*^9}, {
  3.763750127332324*^9, 
  3.7637501315381813`*^9}},ExpressionUUID->"e568ce06-13d5-460e-a49e-\
6810097ef95d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`w$$ = 1.03, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`w$$], 0.95, 1.05}}, Typeset`size$$ = {
    360., {123., 128.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`w$37893$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`w$$ = 0.95}, 
      "ControllerVariables" :> {
        Hold[$CellContext`w$$, $CellContext`w$37893$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{BesselJ[
          0, $CellContext`R1 Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/
         BesselJ[0, $CellContext`R2 
          Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]], 
         BesselY[0, $CellContext`R1 
           Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselY[
         0, $CellContext`R2 
          Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]}, {$CellContext`kz, 
         0., $CellContext`w$$}, Frame -> True, PlotStyle -> {Red, Blue}, 
        FrameLabel -> {"\!\(\*SubscriptBox[\(k\), \(z\)]\)", ""}, PlotLabel -> 
        "m=0", PlotRange -> {{0, 1}, {-10, 10}}], 
      "Specifications" :> {{$CellContext`w$$, 0.95, 1.05}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {182., 188.}},
     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.763750028839704*^9, 3.7637500353594913`*^9}, {
   3.763750065950577*^9, 3.7637500944029417`*^9}, 
   3.763750134026063*^9},ExpressionUUID->"463e36e8-4027-41d1-ac1e-\
a1baabd89c74"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["E agora para m=1:", "Subsection",
 CellChangeTimes->{{3.76374993802842*^9, 3.763749964227537*^9}, {
  3.763750312414002*^9, 
  3.763750315243919*^9}},ExpressionUUID->"d259b4b0-83f5-426b-89ec-\
340f30b17e29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"BesselJ", "[", 
         RowBox[{"1", ",", 
          RowBox[{"R1", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"1", ",", 
          RowBox[{"R2", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"BesselY", "[", 
         RowBox[{"1", ",", 
          RowBox[{"R1", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}], "/", 
        RowBox[{"BesselY", "[", 
         RowBox[{"1", ",", 
          RowBox[{"R2", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"w", "^", "2"}], "-", 
             RowBox[{"kz", "^", "2"}]}], "]"}]}]}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"kz", ",", "0.0", ",", "w"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(k\), \(z\)]\)\>\"", ",", "\"\<\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<m=1\>\""}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "w"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", ",", "0.5", ",", "1.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.763749972590301*^9, 3.763750092579089*^9}, {
  3.763750127332324*^9, 3.7637501315381813`*^9}, {3.763750181525158*^9, 
  3.7637502341456633`*^9}},ExpressionUUID->"f8905848-24c8-4181-a10c-\
442bb6582dd3"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`w$$ = 1.1274467225325928`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`w$$], 0.5, 1.5}}, Typeset`size$$ = {
    360., {124., 129.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`w$45788$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`w$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`w$$, $CellContext`w$45788$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{BesselJ[
          1, $CellContext`R1 Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/
         BesselJ[1, $CellContext`R2 
          Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]], 
         BesselY[1, $CellContext`R1 
           Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]/BesselY[
         1, $CellContext`R2 
          Sqrt[$CellContext`w$$^2 - $CellContext`kz^2]]}, {$CellContext`kz, 
         0., $CellContext`w$$}, Frame -> True, PlotStyle -> {Red, Blue}, 
        FrameLabel -> {"\!\(\*SubscriptBox[\(k\), \(z\)]\)", ""}, PlotLabel -> 
        "m=1", PlotRange -> {{0, $CellContext`w$$}, {-10, 10}}], 
      "Specifications" :> {{$CellContext`w$$, 0.5, 1.5}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {183., 189.}},
     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.763750206325652*^9, 
  3.763750238082136*^9}},ExpressionUUID->"22beb368-6c51-4f26-8f26-\
53166c3a2c8d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1035, 814},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2470, 72, 531, "Section",ExpressionUUID->"1b5f0651-b302-443f-bc05-f1b492b2e22a"],
Cell[CellGroupData[{
Cell[3075, 98, 1264, 35, 80, "Input",ExpressionUUID->"9acaf589-2b3e-4f6c-8899-1cb6a258bbbe"],
Cell[4342, 135, 67507, 1137, 244, "Output",ExpressionUUID->"aa126f6c-e2cc-40d6-bab3-d036ab495360"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71886, 1277, 4675, 138, 728, "Subsection",ExpressionUUID->"4a26606f-b1a1-418d-9dbc-1cc5164814fc"],
Cell[76564, 1417, 8371, 216, 575, "Input",ExpressionUUID->"bae4b7ac-f059-4f0d-9538-514ae17850a9"],
Cell[84938, 1635, 4092, 82, 425, InheritFromParent,ExpressionUUID->"3cfc4688-7671-472c-a2b5-2d96407a36a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89067, 1722, 251, 4, 54, "Subsection",ExpressionUUID->"09f8e143-0427-44eb-a219-fda2f1218c14"],
Cell[CellGroupData[{
Cell[89343, 1730, 2199, 62, 175, "Input",ExpressionUUID->"e568ce06-13d5-460e-a49e-6810097ef95d"],
Cell[91545, 1794, 2310, 46, 389, "Output",ExpressionUUID->"463e36e8-4027-41d1-ac1e-a1baabd89c74"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[93904, 1846, 213, 4, 54, "Subsection",ExpressionUUID->"d259b4b0-83f5-426b-89ec-340f30b17e29"],
Cell[CellGroupData[{
Cell[94142, 1854, 2245, 62, 175, "Input",ExpressionUUID->"f8905848-24c8-4181-a10c-442bb6582dd3"],
Cell[96390, 1918, 2258, 45, 391, "Output",ExpressionUUID->"22beb368-6c51-4f26-8f26-53166c3a2c8d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)