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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     57341,       1102]
NotebookOptionsPosition[     56333,       1061]
NotebookOutlinePosition[     56676,       1076]
CellTagsIndexPosition[     56633,       1073]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Ac\[AAcute] defino el potencial correspondiente a una caja de largo, ancho y \
alto 1, con todas sus tapas a potencial cero excepto la tapa de arriba que \
est\[AAcute] a potencial 1. Elijo un sistema de coordenadas en la esquina de \
la caja. Dado que mi soluci\[OAcute]n es una doble serie, tengo un par\
\[AAcute]metro N, que me controla el l\[IAcute]mite superior de la suma. Dado \
que son dos sumas y ambas arrancan desde cero, para un dado N, la siguiente \
definicion suma (N+1)x(N+1) t\[EAcute]rminos. \
\>", "Subsection",
 CellChangeTimes->{{3.7452590095855727`*^9, 3.745259207147315*^9}, {
  3.745259312298829*^9, 3.745259322537601*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_", ",", "N_"}], "]"}], ":=", 
  RowBox[{"NSum", "[", 
   RowBox[{
    RowBox[{
     FractionBox["16", 
      SuperscriptBox["\[Pi]", "2"]], 
     FractionBox[
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "n"}], "+", "1"}], ")"}], "\[Pi]", "  ", "x"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "m"}], "+", "1"}], ")"}], "\[Pi]", "  ", "y"}], 
        "]"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "n"}], "+", "1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "m"}], "+", "1"}], ")"}]}]], 
     FractionBox[
      RowBox[{"Sinh", "[", 
       RowBox[{"\[Pi]", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "n"}], "+", "1"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "m"}], "+", "1"}], ")"}], "2"]}]], "z"}], "]"}], 
      RowBox[{"Sinh", "[", 
       RowBox[{"\[Pi]", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "n"}], "+", "1"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "m"}], "+", "1"}], ")"}], "2"]}]]}], "]"}]]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "N"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", "0", ",", "N"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7452576850089145`*^9, 3.7452578720452957`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Como se puede ver en los siguientes dos ejemplos, con N entre 4 y 5 sobra \
para tener una precisi\[OAcute]n de 7 d\[IAcute]gitos. Observar que los \
valores x, y, z los elijo entre 0 y 1. Esto se debe a que como mi caja tiene \
lado 1, el interior de la misma son valores entre 0 y 1. Observar que a \
medida que me acerco a alguna de las paredes, el N que necesito para obtener \
precisi\[OAcute]n aumenta.\
\>", "Subsection",
 CellChangeTimes->{{3.7452592134949064`*^9, 3.7452593875467854`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"0.2", ",", "0.3", ",", "0.5", ",", "N"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"N", ",", "0", ",", "20", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7452578778409157`*^9, 3.7452579164495544`*^9}, {
  3.7452580469955745`*^9, 3.745258051353582*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{N$$ = 4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[N$$], 0, 20, 1}}, Typeset`size$$ = {63., {0., 9.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    N$3197$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {N$$ = 0}, "ControllerVariables" :> {
        Hold[N$$, N$3197$$, 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" :> $CellContext`f[0.2, 0.3, 0.5, N$$], 
      "Specifications" :> {{N$$, 0, 20, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{257., {64., 69.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.745257898186434*^9, 3.745257918841777*^9}, 
   3.745258052109432*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"0.8", ",", "0.33", ",", "0.18", ",", "N"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"N", ",", "0", ",", "20", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7452581340527377`*^9, 3.7452581483229027`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{N$$ = 5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[N$$], 0, 20, 1}}, Typeset`size$$ = {63., {0., 9.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    N$3222$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {N$$ = 0}, "ControllerVariables" :> {
        Hold[N$$, N$3222$$, 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" :> $CellContext`f[0.8, 0.33, 0.18, N$$], 
      "Specifications" :> {{N$$, 0, 20, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{257., {64., 69.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.7452581493533072`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Ac\[AAcute] ploteo para valores de y, z fijos, moviendome en x. Como es de \
esperar el potencial va de 0 a 0. La l\[IAcute]nea m\[AAcute]s alta y la m\
\[AAcute]s baja son las m\[AAcute]s cercanas a la pared y por lo tanto las \
que requieren m\[AAcute]s precisi\[OAcute]n.\
\>", "Subsection",
 CellChangeTimes->{{3.745259411150917*^9, 3.745259505804691*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "0.1", ",", "0.1", ",", "4"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "0.3", ",", "0.3", ",", "4"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "0.5", ",", "0.5", ",", "4"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "0.7", ",", "0.7", ",", "4"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "0.9", ",", "0.9", ",", "6"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.745258185903738*^9, 3.745258229564367*^9}, {
  3.745258265442567*^9, 3.7452583771151695`*^9}, {3.7452584754221163`*^9, 
  3.7452584759553585`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2Hc8Vv/7B3AjpRSREk3KnUolhCKvQmkgSkllfJCM7PsclGhoaCBJyo4m
JUXJKBUNWaHs+z73bc+7SbJ+7+/vr/N4Ph7nHu/zvs51vc5RdPDafVhESEho
hrCQ0P+OOw53fSnq3qt/V2x9pJ3F342TDBW8ufKamCWn8uW62Td9jaTY+Gfy
RnjcG+3jZNahv7O87mmCvCXcG3tVt5sN6ls5DRVGyTuh+iFLe63ZZLSsOW94
RZ6NqNqKgRHTOUievevcRflQHD5+fa6eKQunxJ8tC5OPBis4Nsl4hxb2W6dk
fv+RBpFMpYnrqsaQmDh1yHhhJryqr0WzlllA2WKg692lbASu6Fy36OI++Fes
R+zvl1g3mBbsaXwIctnSHGHh14iqLMv58cYez/mGZZV6b5GcOv2GWagj3rol
zLPuKwatX3wnSMkZf1gbpR55fEDs5JuLNIJcIDKcPnOecimmtSiOevW5QWvC
/vmex2WwX7in1WaOB8pCNSver6iEAbitB+d6YVFk7/CDgSoEmcQU5V71Ru8Q
l/NVrRr291Z1pLB9kNaTXyoZXgNL3ZxqYStfSC64J2hrq0X3Q7W3sYv9cNk1
xzl56TckREcNnPnkh8FN6W0uIXWIKWAGjd3ZKEjrjfMPrcP9F1/7AjzYOC2u
uudcWB0EjkWp973YkKzKeJN6rQ4/jadaTmKzwbJ7nMi5V4d9rp75GUFs7DuR
td+yqg4LXnZfeXOFjZyXL8qgWA/d944X/j1mg61enD3nXT2cxVQM0/rZcNZc
nHz1Yz0aQ/a+yRCwsV8r6NL0inrMcTn55tkPNnQ3aDqINNSj+4y1ceEfNkQM
0qQGBurRt7L38KsxNiIsQt1KFBqQsOXo14AZFB56Gy1m+zYAkm9elq+kwH1c
fOmLYiNuWXx498ORQlX/pD71ZY2I2GumGXWYQpHqFpNo1UbQY5tWrz1CIflh
yXQr7UaMPpz5ys2NgsPd91eaTRrRvu3njjJvCh0JHyM6/RuRM+/z5O0nKPRf
Lrs2Vt4IjX8xfirXKXA+T/9tW9OI1rFNXTdjKFRMM7Usqm+Ed1Ne69RYCo8v
lMueaW1ElU6VZ/stCt6hFdfFh4nTnWouJlP4fbzqxqylTbCdc60kPJ3CiFtt
3PJjTThft6P8WBEFSy2bq6tDmtBu1Xb43hsKGcId5zRCm6Auqp9d/ZaCbeyQ
z8Zw4lkjPsolFN6UKGyzuN2Es3MXe+d/onB+8X+/A0qbsM3d1f1BNYVZ3/pN
Pio04zaqRK+0UjiaQhuUL2pGGVdKN7KNQvHRCe3qpc1wdvVnRbVToEWllzSv
bobdjgj5qE4KDWqawwKDZmSzErxO91JIunTsjpx7M8LO6X5Z+ovCys1Txp3z
mzHFQmyhtzCNJw/Tl9UXNaP7msvUQyI0NGXNLba/b4Ze6kKPraI09Dpj01Z+
aYaRsUXCHDEaZldW7Pze0YxwtYCkNHEavg2msYEyLbBqNFvsL0Vj0ODnmx65
FkiUq1/aMZPG8YyY3oMLWqCRk+4xX5pGaAhXX1+lBdMa1tzMl6ERo+zTLqLf
gm0bzMI6Z9N46ROtftm1BcfsI4r/zKOh36RzaMyzBVcUnqc+mU/jrVHLWU92
C7o0Pg27LqBRKsdqMA9pQajRlWn1C2k0F74ImX29BU8LgwtTFGkITWsqSyxq
wWm3JvteFg3j24pHsuQ4mGfpa2+lRtYbK8l6P58D84mJP3XEi8NH2hoVOZjl
P6RhtZbGv8CvDpNUOZjiPP2BhTqNRxZhtlabOEj+tcpfS5PGLOEfe8dcOEh9
dirxtTb5vaEWWRlP8v0aUrkrdGj09ZXWsPw4WLP4SWA08fv6NAvzExzINcz9
47ieRuCT/aapV4kPCpf93ECDa1dktD2PA60TGKzcSKNs7yNR29ccHDvACVfW
p5G789Zb32IOEtV3VAYSR2mzN8VXcADHQOOFoLFFSkVPwOfAfVW5rNUmGupi
s0dEuzgYb3DrTSFeOCKcN7efg4qNua69xH87mrQNhjgQemFpc2wzjfRXERrX
JbjQzF+/+IIBjdjsoJ8PZnKxYnxY4yNx6EPXrFezubiZYS6YbEjDNsZwTdci
LqianEMniaU9h1boanLxhZKRcTSiMe7Y1r1rPRf7q3UcYol7rL/cd9LnIn0L
Y11GXLwlnRW+jYvrv+5DbQsN/wV2SrxDXLT789s6iR3M1fY1/8fFAxMkSm8l
9XdG+GKdMxf7NvlO30DM6k79Ue7NxWavPVPOE8vMp5Q/UVycNhq/lk48ZrbV
uvgYF4+OBnytIK7N7irKC+Ui92ItLW1Mo6jz5e+cMC7SIp59UyNOV7ikkhXO
xVWxQ71mxKdProq8F8sFW3SSxnliz2fj724ncBEgJeycQmzdUTmUcJtL+vdb
0zxiNRNfu+gMLkyehet2Ec8PMbwWkcVF25Ybm8eIpzyV/XDxORf5hvajM7fR
+NnW/u9sPhc95V3uS4g5ci9WnyriQlFWLVKTuHTHBYegEi7yLNe5GhHnnLCO
8S/l4m7z0OBu4uQnK0p9K8n/meK/3p74cuvImEctFw54qnaUOGBO+VrXBi40
xu4308SO2xMPO3G4sP14YONJYrMgr5t2rVz0a33YfYF4Q+am8gNdXET098+P
IGbxpYX39XMRmVQRF00sPbtV0+InF/WSrpWxxKPG2S4mQ1wIJApfxBF3HTsb
bzzKxThVaplA3LNvpUuKEIPSDVfv/s/232eJLBJlkLtP+lE88bew0bh4MQaf
a3e43CLeuaR9nYI4g9SKjfUxxEUF5ZU3pjE4cbRn9Cqx1r7nrrNnMNjYbv7t
EnGGIFH0mhSDQ8E+TqHESmHnE2bKMBi6ZHLvOHGskrd2uCyDD978RB9iyYL9
XyTkGCgnaux0Jg7du9k9TJ7BtOhNGdbEwwPLxabMZyDBm/p2J7HnBZmk0IUM
7JQiL+sRtymO6IgoMqgTrZVQJa6yLDs6pswgI+mGyhTirQPZk4+rkPX+m/v+
J9nvgvMJyX9XMIjWPji3hfhenmftrzUM4nRYTY/+Vx+WVp4+6gyuy2TtjCaO
6oe4QJPBq2Ehn0Di4MXSej3rGfzL/90A4t8vh78e0WNQrhi3QJHYbQ/fq12f
wa6HEnOEifeee5bKGDIoajBXLiT1rtq3V6LOlIE5P6ZQmTjX0uT1RXMGDcWT
5g+T+8uw0MBPfw+Dpaeyf5cSHwhf03RnP4Nx9VZZN+IwtanpbEcGvxNLZsaQ
+1X25oStijMDTlvYZhviZOFBmWYXBmnud/qUiHOr+ccMPRlc9R7IekD6QQe7
YIdMIIMX65WG00j/8G15Ol5ynIFu4/CoHfHYlgdPA4MZZGsaHpcnlpWLUeCd
Idfn6/rO86QfGb706skMZ/DITenEbtKvkseULpqmkf1IOpmWSPqjqrO8vvA9
BhVr9ltsJn5RIfUz+wED+7vtAXw9GhVJo9bzMxnozNXSWUw8tvnb8t6XDL5t
1gsII/32wLmwTxcqGYhL3BKZRfp3x0DICb1qBn5vTWwStGj4WNFrv9cyGODN
0GARX1BxvGnVyOCIQe0ujXU0npfqubLaGeTZL92lq0HmgdR38eJ/DHJepbuJ
rKFRXXjx/PYxUp8TAqHg1WR/jypPrpxgUDzYZPR3FelXpQdEGyfxkOT87muX
KvHZkjGBJA/3dYLn562gMXPk1s95S3hwFN1quIDMr6oH63xSlHmQeSL04owy
jcj9VQKWCg9qEZ/ru5bSkHou1r92FQ/BSx6zMpeQevfx7jTW5mH2O6++lWQe
Tu/c0uy3kwebPntWB5mvZdeZA8OmPJzYFx6sTXzZ6HhDsDkPWaOGZ88r0JC4
/eRb2F4eAhVdEpfI05hmM+9Lkh0P9poBQiZzaIjXfC/57MfDvymSl2zIvJ/0
Oi5zSTwPbjf+DZ0h+aFRz2gbN5GHR+IeQ7EkX2Tm9TG3UnhwWvLJPYPkjwPP
N8rI3ONhvbHPs4oJClmPuGyhp+Tz93teC42S/BS/ZEPLBx4atWUbFH5TyA1M
L475xYP5LTOPZSQfhQ/tsdk9yMPdSVgqwafgSI3+mTHMw5wNjRb9DEXWb7rs
7DgP1W1m0o84FA67CML8pvJxdWGnkkIjBRkrjV3mi/hgnyxNfFhFwV0zv2Hq
Tj78pBI97hSQPFr1NSPXlI+iqVXqtvkUZnt8DzlizsfNf33Bs/MovL6jzCrZ
y8fdQtWMkBckv8lF+p6052M/0g8ZPKWQP+wkMUTx4VqzRPnUPQoSryU3tiXz
wVpnUNsWSSF9u0Pyq0E+7qvc+7HNjoKmqqI+hvmwFStyLLKh8EqSaXo9wkde
9dworUMkL9fYyL0RaoVAo2bJImuST22sw99Na0XYFo8FvN0U9H3Ngz4ubIWC
1olAla3k/Fv6+6u3tmLe9asHSkj+/tOrMLMjphXsbkklvV9sRCd0foi/2QqL
5BDoknyvsSs7ZE98K9KDWR06JP/7PDUVFKW04lbchco1vWz0B5ysiMtoReWr
otnTW9loF+u4bPG2FQ3b7cKCq9n4uihramF/KySHRFt2PiHPG3uMRaON2sCy
8JsIP8JGyLazSdkdbcj8SJJtlR8UW3bUp55tR9+RFMvDy/2wQTs0Wl69A/lz
HK4E2fni0MLKYeGaDsRoxJT/F+mDP6VX+N6nOqEbV7DJMN4bsZNs2buXdiG4
u4DxNfXCLE7ObZHiLgS8X+eWb+IBsROnLNf7dGPb83m9GRNuEHpgm8mX6cFu
p7V6iwpd4Hsr84rM2x6kfGzrsF7ljMKVF8SlPXtRu27g4NIIR0jv8FU9LdkH
cf9jl0bF/0PzqqqawII+NBjxVYa9D+FJIpa22fZDKnrFUrmZVrDJ1JJeMN6P
bLEFLpufWuDk2ZRTzQ8HoKkj/ZAdY4xHXQviJE0EcJcSPhz1XQcXEs7ac8wE
2HVZY+XIZR047e5XfmwhwF+SbP5broP5BQVPTK0EOHFL32O5gzYuRhx8f9lB
gJ6q7qCUmnVw0br5Y1qgAEISXt/1nqtDKVR225S7AnSJ1H3O+a2CcZ2gGXX3
BeiN+qKrvEoFDf2t1XfTBdjovD096vAyRFo9s9maJcAdkY+lR74pY2LFbr+z
BQK0q2Q1jr5QQvOXiETRGgH0ohtd3vyZi9xzQ441XwU4v63uuZezHKJ17Zan
1pP11L2UnV83GzvvrM424AiwVd8/1CtXBnkB5Z9OdQvIc0lC6tRBccSsWhdh
0SeAt2VnoFmdGHz48ZaKAgHio5ROXc0VgYrJUW7RbwFGhKftYw3+1Z8kXJsW
OSSA3fiP1LTcn/pMjq6b/T8BtII5nwwGu/QL3FLXqI0J4DSsR7EH6/VvLJL4
MzEhgMm7gf9/f/F/RUUVOQ==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV2Hk8VN8bB3BLi4iy5TeypJA2lbSSj1IoZInQQqHSZktFEpU9tCGyL5G5
lTWpCIX6KlnLNubeQVKWqb5FKvzO9695vV8z9557nnPO8zx3VJzcrQ4LCQgI
iAsKCPz3ufPwQFPlZxs90xDb0K/VmnrTDOQ9aJY2TrCiQmM2zsaa1PikItY2
PBZ3+GWzUQEm9W2FySxrOH7XU1qzcTlsXcbKb7Jc4F6hdlR6oy66V4YaRLG8
8S5XyKVugynSZM1DIlhB8AnOMKlavx+XRIoWh7NiIFo21MFecxJ29ul5X79l
QeyfpFonC3+ITV3ab6SUh88WV5pL8oOhZjky8PJqMcraUxw2+Efi3LuNiP/x
BHqjuU4nODcgVyzJFRSsgKrmsovHF8eipMfgbYPuC7ysinTlJMfjxfHk+fZD
1dCf2iRV3JeIn+qb5zw49Qq1063W1rWkQGicmjtfrQ4P75U27x1Jw7qpgyW7
H76Fa/jK7KntGXgbpP2udmkDKr87x/dfyYTy9cHx3JFG7FLUHj9am4XBMZr7
flUzZAxWDFh130XWl2d1EtEteO3KHCj9ng0JxRx+X18r+tZG+/wdyEHksUdH
0lQ/IDVo+u3qknsY1af6XAPaIBEYYm7tl4uyrMHEc0FtWOJxRmzCPxeXRZbv
Dglvw3wBBb2swFxINN6vyrzVBvq01syR4FyoOz5M4ea0oervuJr79Vzs8S+w
s25sgz3ddWnx3Vw8evL4LVTasWJwUtajPhfeWtXF8162w0VXd9p+FhtHtBek
3XjdDm+kmjXPZ8Nu3YWrs9+1Q1Vo5ktDJTZ0Nmk7CXW0w+9B0Oqli9gQ2po1
Z2SkHatnJ8t3LWfjmmXQ8Rr5DlRXF4h8BBtsj20LvL06sKA5vTjehQ36YfXV
JpVO2CQuuH3+HhuNw9OGtBZ3Qi+6iufJZqNy+XbTmOWdKD251OXofTbS2DWz
bdd3om9IfK5ZPhtO2bVRHNNOiGxaJyRcykZ/8utrn851olVHcQvrFRvDkW9v
TdR3InfG40cjvWxw38z+4dDSie7gtvb7H9l4J2pmXdlOxjMrXn3sExsPw+pl
rvR2IkX9SBDnCxseQe9iRcY7sVJt5v0H39j44dd4W1q1C9I6+8bGJ9n4c7w1
ccn5LliZfJLf9D8K1usO3NAM6IKEeUZzFovCfcH+kDVBXSj0F/wtPp+CQ/yY
5+boLoy6X77dpUihqkbe2DKjCzNYJ2e7LKIQuuDQD586YuWfrUs0KUh/GDZ9
Lc/BzVd6SWFbKZxMP7u1XpmD/83QWFtlQKH65NT6ZlUOoj9d1P21jcJZYclF
HE0ODipZxR0yotCxSnucv5UDvaH4MyqmFFKvnr8rd4IDzwa1LhsbCsu2zJw8
8oyDe+VPRG4coZDPpha3V3Iw1+iX84OjFLRlLCx31HKgWj328ZUrBd1P8VnL
mjjwtZVxGDtOYVfUUpOv/RyoVL5Q1Hen4NVhFu8r1Q2/HQtbfM5RGN36veqL
XDfKh7TjzvlQ8LsfN7hPsRu/Rf0CvH0pBAXQenoa3diUEljt6kchTs3zo5Be
N34IRMnpBFB44hmjFXmsG0UXKjpDQijodW3YP+HWjcMPdk4cDaXwYlt3sJt3
Nx7vjdxuFEahTk69wyKgG1Jq84wEIihwyh8HyMZ2I+G9n/j+KAoCol1vUyq7
cckhNP3pLQpGGSpHC+S48CnKeiKdSuYbL6Feq8CF7Svd2IfEC6L/9HWqcJGG
wmajNAq/fd87TVvORY6W6ukz6RQeWIY72Opzcfbmwx3lmWS9BL/ZTLhyseJZ
246pHDLeWLeMlBsXi4r2bQm8R2FoqK5F/TQXv2r970wR17ZnWVr4c3FGItpz
PJeCb76dWeYNLkoNLxZ2UBRox8ptO55y4ba9/IJpHoW3Ng+EHSq4+G58I7KI
uNTkzguvai7Chxsm/pdP4eZ6b/2kd1zceX9pGk28fY6GLr+Hi97GExm2hRS0
psv+ER7g4s0m4/ICYqU/gk//N8xF8pDvRtEiCr/6u9ZvHSP3t2uxKSGmnl9b
EytGo2ydgtKfYgrxxRe+584l9jhoYPyIrB/7WMFzWRoCVz79c4vYIc5g5YAy
jRXvH/1WK6Eg6Ta2VEebhoHu/MF1jylMOvd9Nt9IQ+TfzfLniL/YN91z0aPh
OH6L/Yi4ejulHm1MI2x2y8iKUgrnFB0X8vbT+HLefbrYEwpOFqv2cA7RWHrI
X38z8a4rghFtR2iIy7QOnSJW/5z5rd6Dxr3SPQl1xFIKZ9T+OUPj8urAhFHi
iV2G9tXnaegHD4uqPKXQWjxQ+TSIRo/+tS2exJWfnvx4FE6eP7hqxm1iSv6q
RkE0DdUDazY/I74cuOJ6TjyNiZ9NE5PEbkWTLzOSaZwd+Buq9IyCfX/DWHIG
jeom5yu6xKtMvRxj7tNgHeqpP02sEGBw61oBjfaoXwpRxDMLZV5FlNDoem7U
nUX8ve/j7+BnNGStGiSeEXPlHmteqqShkB9d0EBctzPM6UINjSWmwTU9xI/8
7ePO1dGQzirc+YM4LX9pnVcDDWv9eVumlVGI7P0zcaqVxpzivHtSxD7z6lcf
66DxJ+niJWVi5x0ph124NPwzL79ZSrzrgnuCYy+NqPPPQrSJN+Xp1+8doNFA
axTpEqv3SAruGSbxTKyzMCCWlO3VtvxOIyQwzdGY+K9RsavpGI19J9m0CfHA
+eAko78kfkYDjWbEX/Ysc00XYJAkvHfNLuKDX6WFlIUZLEmdmvHf9x/C/yYm
TWdQp9JhspPYZNHHtfIiDJRT+gUNiSvL6htuizJwXa2xRJ943Z6SY7LiDMKE
U6o2EN/npwjfmsNgwtD4zUriheGhyXOlGAxuWGyoRhy/0GN9tAwDaRUdLRax
RJldk5gcg3bLoGtixEE2W06EsxjoaAg7/CXxHB9ZMn2mAoMesdLkQWK3MKnU
ICUGku6ZuzqI+1T+bBBSYZD3rsajhrjR+u3JCTUGf6kCkQRiw5HiGX4aDNLt
LlwMJC4LTU77tZRBlmPg4SPEOU/dWv9dyYBtvj50xX/7w9rWzVOLwbOywSoJ
4pvDEOFrM9geyTk1QvbbxQWSul82MhhtOMvKJf7xZPz9UV0GOxUXsoKIj+/u
cf+ox8AvQDziALFNSFEmY8BAiH2vQox4+ZCNWJsZg58Cc8/bkPNQam1aEWHB
wFRBrkKZ2KB862m93QysVWnNAXL+9kav7Lprx0Bk2pPo08Thq2ZR3s4MegNf
m3uT8yqTMOWgcYRczxIbXEmcJjgqxXFlwNJSKvhMzn9pc895Azdy/evn5bbE
/d5lO6V8yfzHl3Yoknzh1V04WePH4HO61ps6kl8mtucW+l5kEC2lNHCGWEYu
Tp53hYGsGJVRS/KRwRP3L3nRJL5vB+WtSP5Km1gYYZbF4LbsA3lJkg+XH2Hp
CeYwSDtoVZb2kMLjd3O+F+cy0F8hHq5J/C71r71CHoOb1U2Z2x6Q8bZ8WDL4
hEFh0BR3L8m3e0PC/wlrYFDj7Oy+kuTv/pEAf91mBqIsrer0bAqetmdXf21l
oDnddpsUcZiGc4JtJwO3ike1w1kUSup0j6l/ZLD66Y7W6AxSD+Z8Fan+zSAo
TlbON5lCc3lE6I4JBolxJckdSWR9T6rNaJhiIB7pG7mBWKpur3DnNB6O6J7L
+HaHOLhmgi/Bg3RQU75FPIW5f+58n7+IB/Eg9X0vbpL9lrvWM12Nh1xa7sgs
4ut2jXx1DR4C5/p07LpBYU7J9OHVK3iwr04Yb71G9runxyej9Tyw3owqv4uk
MPvTds5pEx7aOMwsb1Jf38Yye8fNeLAuMk5JDyb5Y5tfx0ULHmpm+CTWB1EQ
y8j/EG7Dw6+RbY0LrlAQPTC/KdWRB4dhfdViUq9FWr7WvDnNw1V7Lb9oUu+n
VSTmLUriYe2PP1JSxyh06m4zplN4GNyN1lHSX+Q9HWLupPPgvUq9tIP0H3tL
NktJ5fDww2vaQIILhYIHtLdAIQ8PDkl+Fj5I6kvSok3dr3iI8JXzvbiH7C9f
qjruXx6e/nzMkiD9UfTY7gNWozwUXl1o8Fif5Lczf3+Kj/Ow3fDydQf8N3+z
xcGTPISPm9/O0aVw2JUffnpWDyp+uu9ZtJ7E23aNuYVyD95s3Hu3ahmFE9rP
OmaZ9KBF25KbIE3yT+P7+6VmPVgsFPlbQoqC7KmvAUctenBk/KLZ5bkUKu6q
qdfY9KDd/sVtZ3Gy/nLXvQIP9mCP09qKuTMpPBt3ERs704O6tU8Py/5mQ6xC
YnNfWg8eJ5p7v+ayQe1wSns+2oMAmaTB9gw2tJer6GG8Bz9PyHpNprHxXILp
qvjTA/cbcm4LU0m/3HJArkqgF4dUv9YeTiT96QH76JeivRgtipjouMWGnpfF
hddKvSjZY3fVJ4j8/o6eXbNhL16cnrgVTfrvn4Pyc/vjeuGjVcmoLGAjJvnT
q6SEXoRIa7UVK7Kxxrw4YHdSL7QORQgZkv7fs9CMX5neC1Ha5JfTPNJf+wS+
S7zfC5H0bKfQ2Wx8nN4fafmiF9d6c4zO/8rFe+WCWeXDvXDFr0mRBvK+sdtI
OGZbH0Ym5jc1nM1FgHFwanF/H76c3Bq8oeIeVLp3tmcGf4Q8lTj2+N8cbFof
FMPS6od7QN2g3EQ29is1jAu29GPOSSvBg1N38bMuqsfj0ie4zpYpOdSShfhp
Dt5WqgO4Kzpo9zArE9LcRxlC1QMQTB5bSB3NwHT/S9YbPT+jxLg8ctfvNAjk
OuT1SH3BvE8yysWqqfC6kxcl9eIL/o482Wf8PRHly8JEJN0G8bbAo96Diofk
Tq/llyWGUGk1KE4FxoKzorHFt2wI+9YYvrgxegP5KVDtcxiGWvO8WE31KBzI
WyepODmMu7srvzofDEFgcPolDnsEHxyvBm764I8HA4qJEqZ8SNQ2ppZGuSMs
OfggdxcfijGNZuVz3OFiNaz20JIP/qbdyytuuEGhrCzfzJaP67ed7z2NPYWI
a/tqI534aIly7LqRfAKu6xK+ifryoX2Vu+jN/aNYGCRjPDObDx0dQyWvW46Y
3HBBvO0eH3dkNF/+G+eAjuHe5myKj6C2sQyvOwdw3bbogGEBHyydJDfX9H2Y
Wmp1OriMD28vrZJ1ebbgNF1LEW7hY4d5ydy+GHOUhow5t7znI+ZtjVpWohli
dByXZLbzoaBkG3kowwQmdzWLt3L5eFk9Y/r7PCM89an/59JnPvyLG0yMYoG4
FWuvWQ7xYfYy9Xp2hg48e5KsVfh8iHVkWwvnr4eG6Um68gcfBQlT10/FrsQ0
wdas62N8/DtZ56CQvxjMI53jB3/zYTGULXEzVhllxzNXrprgI/th6Yym2Dm4
rSz2c2qKj7L+jWH//X/xf1yRb/A=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwV2HlcDd8bB/BWIqKUvkUllCIiKZI+KLSnDaGi8C1LKqGILBXRYmlDpRRR
UZEUpW2GRImi7XZn7r0p2i79Ekn1O9+/5vV+zczrnPM6z3meZ0bd47DDXjER
ERE5URGR/66We79+KP/mbKKdWuB+b9DcRMJU2ZdR0gdn90qlnR2aWH47MemJ
khlovr+KdocBrGqbHicrOWFC8/+40h0bsXXPr9JrSnugZbtrTb9gC9p1L5hG
KQXgyC2nPemCfUhVsAu/pBSKQg+1zij+MZyVerIgQikWohN9P5pyw7HNJS33
+48M6BotyMosT4D0+Nmdm1Rz8bz6erp6dBo07Pu/Vl0uQNpicTtGMhPH61Yh
cbAYVX8PTxR7nwPFAlmuqGgZRtTD3Q5L5qOQb/ruvXElQo0KXSPLn6Byf/Is
l14K52Y7HN2yuRA/NddMe3joNfKr537WjS+C2HD29FkaNajjHU436n4Og/Fd
hY6P3mHhTL1ZSwZL8C5Uv+7VwveoCY+s2vTxJdSu9Aw/6K9H99jiBF2XcvT8
Yrifln5EcOn9S3maFcjoflEjE92ASo/QvdN+VEBGJVPY0dGIxKD3t/7cqUSk
99N9qfM/4+ONHwo7DKowtDa7wyukCRem+94UqaxCSUbPreOhTVA1yTLjV1Xh
nJSOY3hEE+7OXvS2kq6CTH1ORfr1JhRZ/XPozJsqaLo/SuFmkvtaGyT766uw
5VT+Nqf6JgRcV428xlThafGzd1BvRk7ZflXRv1UI0KMKZlY1QzqtoPDoMgr7
9OekXq1uxluZocqlyylsMwi+PKWuGXJRUSe69SmsNtL3EGtpxolctsdlJQWx
9RnT+vubofxQslkLFGLsQ/fTyi0Ii6loD7emkOVrNifAvwUqxiJtpvsoJPmn
SguPt0Cbve7R+C+FqIC/Q96nWtD1OSbe05uCb2BBrfvFFiToCMRPH6RgeGb+
SauUFtSe+Dp4x58CFSPxeW5NC17LDxo+PE2BeURd/qDeihW/5U5XxVGo75Po
1VvQitE+EfV5CRTKdTZYx+q04lLn7VNnEymkZtFTthq2opc7fY/RLQoe915F
caxbMead0pmUSqEzuTqm63grvEV3vpmfTaEv8t310dpWGPb7G68to8B9O2XQ
raEVd9zq5x8vp1A32capvLkVXbdbXudUUHh0sVb+vKAV43IyJvIUWU9oXZzU
cCvCHBp6GqopDJ6sT5gxvw174/c5zvxIYWR/4y3tE23Y/S4sPFNAwcnA9eqS
kDaY39N6nt5BIUe0M3x5aBtUFh1tSPlCwS3xl9+a6DYkKs19drWLQgWtbG5/
pw1BvP2m+3soXJizezCwpg1WqncDOgcozPjcZ12tzIHSb5Nd0qI0DqYdW1+r
xgFVy3HsIKYOjht+nM+Bp1rD4hIxGsfEZedxlnAg1twe6yVBo2Wp/rBwPQdG
P/7oFkykcfvyibuKBzgou1+aMlOGxqJ1E8f2veCgeWHaGSllGnlZ2Quayzl4
bld3qZZYX36zvcUrDqImJVlenUXDuCsxY9EHDiYpLu2RV6FhG7XQ6nsnBx5N
zXlT5tDwb7FJDJJrh4i9hONLDRpD6wcquhXboVTaVOyjSeNkTnzPDpV2BJ9K
/6yygEZoCGNiotUOvFmpF6hFI17D74uYSTtWOHX7qSyiUewXqxfp3Y43Nm8V
Fy6lYdK2cueoTzsEPudYmrjSrD3MJ6AdNwzPuu9aRqNGUbNlc0g7Ujy8zlzV
o8EpfRaiENeO/Smuth36NEQmt71LKW8HT7FG1XoVjU131P/NV+Si7/zoo/nr
yHoTZTRfzeZCOV+6OIZ4TvRIR6s6Fx5mahnDxH+CPnlI6HCxU9JDpWY9jYf2
EW5b13LhqJuR5GpGY4boD+dRLy4mfwuot91ExvvVLi/nw8VPnzm9mcS9vTUN
mke4oNJHvo4Tv2rOsN98iouaTMvwHHMaQXnbbNKvcmHoFGn324IG415uZvGc
C8Y8RnW7NY13zg/F3cq46HpmZptGXGR1s9KfIvO7be3eRXzNMGBtUh0Xx0N2
aPja0NgwTctYyCf3Dz5YF2BLQ09SYUT8KxftJZrBj4lVR0Sf/9NH1jNVMlFI
/LuzzXD9Ly7S3HuO7LOjkf0yZnmcNINu4eWSjZtpJBYEDzyYzmBdsolYMHFo
lnf+SwUGngI37Txit3hT3a9qDDIG+mYp2NOQ9fm1cLU+g/iAg9c+EI95dnyz
W8VgwbHHglHibpcP9/eYMMgr9J2p7UDieUO2ZrQ5g4lPts8JJj6u4j6Xt5NB
nILEK3lHGh6bl27h7GZw+KVGgCGx7XnRS037yPziemVciDW/pf+o9WXQvPPQ
5BvEcrOParw5ykBNRPvAM+JR240u1AkGOauiihqJGwu+lj8PZTDhgoPSFCca
5V3Fg08jGFjLP9XRJM5WvqyVH82gamGVDojPnVl8JTORQWtcx8AhYp8nY1V3
khkc1x4uOk/s0vn+V/IdBpuoFwcSiZda+7vH5jD4aWyT8JJ4dojp9Zh8BuZq
KtPriSc+ln99qZBBlmzyUZZ4oOPLn7AXDKRCa18LibmKz5acLWcwwH00YYy4
xvKiRzDN4O75dXrSzjSennKJP17DQOZdmKUicWrewhr/9wyKJwfbzSWOFIyM
Hmpk8OXS/HU6xIEza5d5tzAIvBKitoLY0yJl7x4uA5FtUd3GxLbBh2+4CxgU
zLS9Y0pslLu2dvtXBgF/KjZaEGvyZUW39DF4rf2tyYZYVkGgbz/AgK2qcrYn
/rupwMv6F4ME1r7ckfjribCkTX8ZHLhyXdGZuHvLIq80ERahnIs7/vOu7zPE
1MRZFLxaFulE/Dni760kSRb+FtEPHIit5n1ZoSzFon1ryhM74vKS2vcJk1mU
tu/OsiI22FLorTCVRVhZc9RG4hxhivj1aSw2tYq5rSWeG3Eheboci9firPIq
4sS5vobR8ix8JvtSS4llSrZ9kFZkYfn08fYFxKHO6w5EKLFQpDLbZxMP92tL
TpzNwkhoayNL7HNR7naoKouXXZkPJIg71EdWiqmzcNn6eGCI7E+907uDoxos
pFRbLZuJN/YXTDipxYJNH3J5TVxyITn190IWzmOVzk+JM5/7NP5Pl4WoifeM
6P/iw2mrj58eC3fF9Z8Cia/1QUqozyL9YfV5D+LTc2SNu1exuH+fc0+PeLB4
+NO/xuT9116zlIj3O/IPfzFhEaCQGjxG4ts5/Ek6a8ri+N6pkq+IdXqdpZts
WGTp1C42Jy5ysi67tJmF1RRNhXnEpqXrj5g4sujfcajoLzl/26N12+5uY/Hs
SKVeDnHE0knZAZ4spA95DI2Q8yt/Y9xNax+LSSOTS98Rp4oOyXG8WJw0S0AS
cdFH/glTH7K/350CDYk7A0os5YJY1NYZFrmRfOHf/niMPsliPOWDqwbx6IYH
j4NOs8gYXFfWTfKPvGK8Mu88i4qmlKd+xKbFh7tzo8n+fZnh60vyVero3Es2
GSwi+CrKy0j+09mnZCKayWJAUzdYYEXjWd20gYIHLFRm/LwRS1x3+6/L7FwW
i2fESf3Pkoy37rN2TzGLNQJufirJt9vDI95cfM/CO8BUr2wjmW9/yCnjjyx0
6D22rsR+W48t+97Ioll5muafDTQuanne2NrKIu3WwMSlxIU1xt6aX1jE2STH
RZqSejDtuxT1h0Xh+rufpNbS+Fh66YLFKIsZVwcTboLs70GNCe/HWeweCsMi
Yrma7eKtEjx8W+ZpYmFCHEaPCmV4uKr05M9xYxrTR24OzJrHg6W5cH/qShJv
D1b4pWnw0FHdHzKH+Mq2eqGmFg/zekeDbhvSmFYo2bdsMQ/Xotao3DQg8e7n
27XJkAeDLp7aOVIPp3Rt4Byx4mHqlntyKqSevotjtw/b8FCeMHLssi7JH2Yn
W05vJl67oPz3EhrSd/I+RzjzoHR9QKR+MY3JrrM+3HbnwWRb32o/Uq+lGr7T
b4+Q8ZzHr58m9V6i7FbuvCQeIm5k5VKkf2g1NjNnUnioOFx8SIQ493kvezON
B4mMSK4R6Te2F66Rk8vkwb3Jqzn7Hxr5D5kAkcc8HD7tqHNagdSXpHlG7a95
eBqbZ9dB+peioGwq/n88xNb0bSsUoRH9y9HVYYiHrpXZntXjFDyP/v05dZgH
zT7POS1jFFm/zYKwMR6eqeTkDv2lsNdLGHFkEh/JTPP8ucMU5LYut9usxoe4
SqKn0Q8KB/RftEyy4sPwrIioL0v60fpPOUU2fEztkN7pylBQOPQ95N/NfGyS
tg6w4FIou6uhSTvzkbvIlqPCIf2b4hX/M7v4MF97NeJZE4UXw3ukfx3lo9qh
zOFRHQXpMpk1Hal8hMbrHXzwgkK2hUfqyyE+nh52lGu8SkFfR90Ew3y86p51
7OIVCi9l2LayET5spx8oWx1D+uUGV8UKEQHG/M+L3Y4k/amrS3TVZAFyf3da
bLtAwcR/c3C1qgAK9tVNccHk+Zsm2z5uFODRD1Qak37+Z4/y9M54AdTlDT1X
GlCITe56nXRDAFWF8p7z5HthuV1BiGOSAKmN2pp1ehT8HtsIy9ME2HHjdJ6b
LumvA8/U3coRoPvvRmVfLQpfJDsj7SsFkHXRXu2kTOGTWv6k0j4BRP4NCVIf
Jd8vjpvEY806cNP1om7dyyqEmIfdLujswF7dnZYexlVQb7dsTg/7gtzwgM/5
WZUwMgyNVdLrxJvMu2fif1dgp+r7YdGGTnBWek7IQAV+1kTxfc924bfVUdR4
lCNRwi3AYf5XrNupMMdOvAwzuE/viFFfcX59Q8mkBaWQPHXWaZXfN5glREkG
/n0OkQduuXy5bljILFCKbCyC/83cKLnKbgStOGPftb0QpYsuSsn69MD2boCS
wdsnkLX01zkn04u4GbCcaZ0PzuL6hqCSXjjpTggs+J2DvBTM73DrQ0asg//e
qEy45hrIqoz1oXaHxpL8WXdwJiztLCern9Tv92s7dBLx8KvKLRlrISjth7yc
uAhcTA7bxbUV4qpuc1asbgT2OPRpPLIXQl0l72zQm4uYXVKSZ7NViDf87xeM
Ri/gUsyOV5EeQvS1FZve2hMOL4MbPyYHCWGXyxfw9M5jbqi8+cR7Qqz2fpbx
6FYQxlYGT226L8SE+PuNwrpAtPQJPt7LFmJoiuLsJWKBuLL1ievGfCFS1zrY
3/E6hvGFDkfCSoSQ9KoePLDiCDgfYlLEG4To8Gldo5fsjaLwX54Nn4SICbaX
9hH3Quxqd+30ZiHu+7yamOm9D1Z3lxSs5wqR6MSxkTXwxPPA2jdnvwlRfzUx
NTHZBfGLV8TY95L5Op561Oe9BX78JCd1oRDD/zjOWmvgCC3rg0z5oBAaJjXz
S5MtICHamHHllxCTl7UWbzEwBft09f5df4SY+n1wFid5FUr2p+suHRUiYE5n
2LQUbSSoSf8cHxfC4Z7nrv/+h/wfahmBRQ==
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV2HlYTG0YBvD2Ugotki8SFRKRlCXdCEVKKS0oVIiIkkKRpWi3JdGiVdZS
kqiIEtI+Z1pn5pypkbSNPWn7Xn+d63eduea858wzz3O/R9Pt8JY9YiIiItNF
RUT+HTfu6aov/bLV9JpKQUbJOxdTCbOpR2g1Q9xbKaFua7sCi2/HJz5RWwuN
z4W/FG0tYVndlJekZo+muc0N3Tbb4egxUHJVzQOSV8XO59l4gat/0SxazQ/u
9mqekjaBSFHZfCFCLQTJBZZ+XlaROCvzZHa4Wiye6C/QVzVLgJNzas7Xbxmo
uTH6UnfZQ8iNnd1hPj0HfZvnWem/zoe2bX9XWWQ+skLqUmRlixBQswzxP59D
4typI8/KS6GaP4knKvoKGiWL5l5IKUNBu1lVrckbjHR/qosOqcCbA0n/OfeW
Q8GWWfp05gf80lk54dGhd/jpkOh5Y9dHiA0+mPifdiX6Jbjp3jeqYTS2q8Au
uwq4E+3NOVaLqhDDmgrdWkTsNu2+GlMHjcs9g/f661CUn9DcuL0ePQM0j72w
AWe/WRa/lmxARndRpUIMCzJFATrsrAYoTMsSCgQUljH5NZIGLETtf7o3RasR
tgFBin6pLHSvehQmp9sIk6r9oobpLJhPybzvr9+I+vmT33/PYEHsXWz/puWN
aGv5xj14l4UTWn7+g5sbsXv+dUO7HBb20gYXtgQ2wuOMCtVVzMLqrY8zJRoa
Uf70uszyJhZ+r3og8AxuQqYgSS9UhkJxRk9CQEgTwsMuegnGUTgno2d3IbwJ
Rndkn6+Ro6BQ9/B1+rUmRHW+PTMsT0FnZ3YyL6sJs07v+eChRMHhVK6TfV0T
wgJCfWSmU3j6/FkVNJshMuh6N8mAgp9Bef7ksmb83b7klpwzhb2GM1KuvG+G
uvaqZIttFJyMgiLH1zTjT2lxXMh2CiuWG7qJtTRDvER676ALBbE1GRP6+5tx
S700pNGNwiXbkANvp7bA4PSPP64HKdw/snaGn28LopPEPe6fppDomyInDGhB
s37zwYpgCtF+w7/3n2rBaFSaD/8MhSPH86t3hrXgmPLwYeXzFIzPaAVaJrcg
Z5NwnfdFCuWXJBpnVragPyL+4rdLFOjs8sh6zVa0Rd3lGqdQqOuT6DWY3QpH
5Wsr9FMplOqt2xSr14rJh2wztdMopNx/O97RuBVjrTJJEzIouN2piOZsasV+
q2szm7ModCa9v/Q5oBWCSJGcFTkU+qKqro1UtyLIv0XWuoQC7+P4n66sVhTL
eprMfkmhRtbKvrS5FWpXDwSPEWeHVSuf72iF3oyjyx+VkvsJqbkuM9gKUd9p
4SNlFH4G1t1Q0mrDoEzcQ59KCkMHqIS5J9tQtfXAjHuNFOyNXK4sCG7Dr5a6
lU5NFB6Kdl5YHNKGDbtbL0k1U3CNH/BZGdOGRQmWDbtaKLx+O9XCNq0N8l8b
WHIcChdn7P55vLINt7Xc21fwKSg19m16P5UDs9CKPokeCgdT/ddUa3DQdDiX
fYu4/OCYcYMWB1JBmb/0eyn4i0+axVnAgXzCeJ5jH4WWhYaDwjUcGFWH2SUL
KdyOPJmp6sVBvrdDp+RPCvNWS4/uLeIgbHSW1aphCo/vP5jdXMpB743AjnfE
hso2thsqOLgi0LxqPULB5HN8xrx6DuzTy5Y6j1Kwjta1/NrJwY/ahdnuImz4
tljFn1DkorT89WYrCTZ+r/n+uluVixV7f/hXEAc+jOvZPo2LjzVihaaSbIQE
06amc7jY6T4lTE+KjThtn09iplzMDUtzG5Fm47lPrEHUfi7ebCtS9pNjw7Rt
6Y4Rby4E/7kIeMRv1nJDvf248I9cWWsxno1KVZ0Wm2AudA6PH1CTZ4NT8ixY
5ToX52ZPvpKrwIaIbFtVcikXSVEdY08nsWGeprkvV5WH22kB5sqqbBjGK+hU
qPMgbpga4EI8I2ZI0KrJg+w42/ZM4r8n2G4Sejw8Gzu6z3AKG49sw10dV/Gg
YK1kYKHGhpLot60jnsR37jds/I9cb4CrrOjNQ5582uOLxL29lSydozyYhzV8
KCOuaM6wtTnFQ02jVPYydTZOPHaySr/Cw8ejNabq09igd5au3fCCh9Xug+HF
09mkzh6Ju77i4XP3V40+4kLLW298y3koG8j7pq7BxlVjv1WJNTx8OFZgcZJ4
3YQ5JsJ2HiJvXX07bwYbBpIqQ+JdPAgrC5Y7EE8fEn0xpY8HupbfE0z8p7PN
eM0A+f7xnmL1xA9eXlp8XY7GrilfRQ5oshGfH/T93kQavvFSjjHEIff3575U
obFH1OlLLrFrnJl+lwaNhXPK3vwmnuQ9oLvCkMYHttOGgJlsjLoLvmxeRuNH
zKez14m7nevvepjSyJnU8juPuHzdA50YCxo2v6XjeogDpu2cyd9B4+8dqft2
s9hws1nowNlNo9rrj7UXsfV50YimvTQ6LyosPUes8yX9W/URGj52BY2PiBXV
j2l/OEbDcdQ66g3xiPV65/KTNA4OqF1oJKbyu0pfhJD1BdutHyYu/fz859Nw
Gtlq78craJH7nxo5JzeGxs/JgaoaxOfOzL+cFU+jTzJr0JTY+8loWVoSjbhJ
2vVWxM6dtQNJaTSi83t6txMv3OS7M/Yhjbv3tn87RqwebHbtUi4Na+1xrWeJ
pfOU30UU0DCPlJaOJv4u+PQ3tIiGUabT8RvEPNVnC86W0ngxfXR+KnHlxjC3
oLc0PEMHZ98nfnrKOS6gkkatxaa9ecQpj3UrfWtp+L0Y6HpOHNUxNHKIosGV
H8kpJT4+uXrR/hYaoU4uRRXE7huS93jwaHy5oiZXRWwddPjmzg4ap64Z3K4j
Xp6zqnpbF42nU+4FUMQ67ZNEHfpoiL86FdtEPEmlw9D2Ow22ZO6vFuJh83zP
TQM0blqbJbQRd50MTTQfJuvnGIZyiLsd5nmmijC4zQ598s+7viqJaYgzyF9l
pPPPjeHDCYmSDHZIr+e2ElvO+rRkqgwDkV/5zc3EpcXVtTdkGYg/OzelkdjI
oWC/ijyDMk52YgPxQ2Gy+LUJDNKblu6pIZ4ZfjFpoiID0SEN3w/E8TOPGMco
MzAKci8rI1YodqqXU2Vwy1fMuYQ4ZOtqr3A1BmebhgwKiAf750pKqzNYfsHa
Nvvf7x2meDtkOoMJJoNPMokFmkNLxTQZrIv/uy2RuM6+6uCINoMK3aFjF4nX
9+dLBc5h4D9u4EsgcfHFpJQ/ugy20GvSDhNnvfCmfugz6PR/Q9v/qw97R28f
AwaPv37zWE98tQ8yQkMGH+o9FxgTn54xyaR7GQNP4cyYycQ/nw+y95kwCP2x
S0uS+IBd++FPpgzU+9tGv5N63nrhSTpjxkBe7tSZKmK93q1yTVYMOvSUCvyJ
C+03vYqwIed3Bnu5EJuVrDlqasegJ7vezIx4W4x+W6YTA993yi7jicMXjnvg
585gdtyZRbHk/6l8c8x1zl4G52MjRo4Sp4j+VuR4MnDLte7dQlzY0H7SzJvB
er3eRQrEnX7FGxVPMPhkVrbjJOkPvty80beB5Pkc71xpRzyy7l7eidMMRu2j
V88jVlaNm8o/z8D1kfnjZtKPzJ4f7s6JYbBi5RXducQpIzMjrDIYMK9EIlNI
P9Tbq2YqmsXAVnj8shfxs5oJ3/PvMUiw7nq2hLjm9rCzeg6DXYXnD74j/XVk
dePcnucMlPNDvRjSf7ddCP8QVsug+01/QddUst7+4FMmDQz01z1rzCT2cfRf
9JVioKZVqupGHDbH/aZjK4OT3jtHmkj/L6g02a/ziUGjstvW52Q+KE34KlP+
l9TfK2e9LZPZaCiJuLhhhEHkjh8VUsRXD2pL1Y4xcFCuSX6hQvpV5TbxVgk+
xq9Rlprxz6FvR4QKfIQcOZnLV2Jj4tCt7//N4uNS3Z/Dq8j8qru3xCdVmw+J
b77NXRPZuOxUJ9SZw8f0QftTl4knFEj2LZrPh1GfShB3Aql3nyOfzY35WO3U
ZelN5uH4z+s4Ry35GHbfMNuLzNOq68y2QSs++jFlszRx1NrAltM2fNjF2+el
ybIhl/a4MXwrHzUxDbpN49iQdfmv/vZOPpQ6JduNZNiQYX19+/EoH/ck+p3r
ybyXeJWQMyuRj3Dp3j4fkh9aTdZa0Mlkvam8zm6SL3Je9DK3UvngrdX67Ua8
rWClomIWH45bVzraDFHIfUT7ieTxoVvzcMaMQZKfEmct577j41ubSuE1kl8K
Tzwoj/vBR/nv1nmV3RRiBuxctvzmY9ymrGfaxO7Hhn/JD/JRsHOiw5kvJG/7
WM0OHeVDf+OSSoMuCns8heFHx7Wje+HsqKhPFBQdF2+20WjHgfTvTkoMBS/D
opZxlu1I41hOP0SRPFrHflho1Y5lX6Q3ZLMoqBz6GrzPph2sL1kR/Q0UXmVq
67zd2o7x8iJbDtaT/KZ62ffMrnY0Zgz37qihUDToITdwrB2nrPoMFN9TkHul
sFKQQs5XO/R8fEHhwQa3lJe/25E4ltDqm0Tyl56mKQbbYTrup0t4IoWXCkzb
q6F2rCpZKX87geRllovqa5EORAfJCN/dJPnUxTmmTLYDtKRW0YQ4Cqa+NkHv
p3egoHbtloAY8vlbpk4N6zsQ9/n09kyS53/1TJ3YGdcBzUeWu4/uoBCb9Pld
4s0OHLo732QF2S8s3pwfbJfYgdq1tRPFyH7CJ89KWJragZ8vt9+JciT5+viZ
moSHHagaaQq8voXCJ8nOKNs3HWBVPr15zIICWyN3XElfB6ZZLms/tJjsX+zM
xWPXChCrHam2UIpCmGVhqLq5ADv2dTyqlqCww2yuTOYGARYvmrH5gDjZnyyW
ky+wFmBR+7ZnKSIkbyrWTm52EkDVwmGK2BALXXUOuuqHBPCQkumKE7Iw1Xqv
bcZ1AdLKu5Wlm1kItgi9nd8pANek88ePTBY0uRub00M/QVbOI7/XmIXlxiGx
agadGLOfWPPmUQN2TK8dFGV1wlW86Kzk1Ab8qoxuP3L2M76v3L+9070e8RKu
flu0unC1rbSLl14HJd7TNLHyLtBRuyZeTa+F5Kmz9st8vmCrMPbK4bvVELnn
mtOu2I3ra1IFnxM/wvdWTrTim2688H9hbj3/A0rmhclM8u6B4V8Hw4xLFZi0
0VfvnEIvjN96mRztLQNnfh3rRHEvFvfUilW3leJxMrQErn243htmLJNRBJcc
o0nTRvvATZVPstrzFGdCU89y7vfj9UWr4czCh3jUNS1BYZMQhR7HJs89nYyw
pNBdPGshIrJ35FZIJMNjS592tq0QXgMDy10ik6BeXPzYylEI04r6iGPxiYi4
tL0iyk2I0u92Bg55t+BpdPOb7AkhSgR1u74K4jAzRNlC+o4Q0yzSBpKjYjC6
NEi+6a4Q0vsm156Pj0ZLX0fDnQdCLAuJT9+dEYXLjk9c1ucKMTF2ve644giM
6W45GlosxNzCjSPyPRfAqb+ULM4SYrR9UdSay6dReGHAncUWgi/8Nbw7Kwix
K3bOTW8WInT96tSTL0/CMnNB/hqeECrqSvY3e/3x4nj1h7NfhPgzJDXL4Io3
4uYvuWTbKwR3gfOtaa8OwKc90V5TKMTCDr9Csb69mLPpIF36U4iea1OUAq+4
QkKUyrg8IES/Qbaabp8DmKcrDuz6K8QP3nTXrCvWKD6Qrr9wRAh6lX9M5xVT
3NCQ+zU2JsSchYcy/73P+R9m1wFe
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2nk8VN//B3BLpSRRZEmLtEioD0UpXllSsivRJoWSSpKKChFCltImVEqF
kl2WyJJ93wczc2eyDgaVIqF+5/v7Z+bxfMx93HPuPe9z3u/34zGypy5aOPDx
8PAsIh//+97vwGkqGrTU6jI2nBDTdteaoyvtwpLairD91e9f4BBUX0TGZEjp
4WOC26aTOA3DOlr6M6mD2DzJ+iGCq7CynyyIkLKHrHw0zzqtADA339ENlXID
b/1u21iNx4gVNw0IlvKDVZujXbLiW/jMz9gQJPUQ1cejOuJ+ZcH68MuUb99f
4/BNvv9mx8owRj8o+Er6DcrL5FP/iZcjwGa+wwHdNzD6yRs4uLMcGXYXpT8+
fAOxe5ebXO+UQ9hZ0/+G+lvMC9Oqt15RgTLfziPzPOMR7+ZadVSvEipJovNk
5r+Dprfdrxivaiz853Ns78oUcPY9UzSJrUfkWSsbRf0UyLJG/Ic/12Ntq6Kt
qHMK3sx2WV1g1kMrkWZHL0hB9LoK65XSDchNfJyVrZwKbTu/wG0RDRg5wM03
rE/F1frGkmitRlgmPKm5vCgdl2YM5QxWNSHmuK/Radl0fBL0sGUpNqF7yYU6
623p2FR4ZeKMRhMueuo0aB5Phyi3VsPMsglBFiPNAh/S4WwdEuYZ3ISCGZ2u
aKMMZB67u870RxPWmY9yvtzNhO7k7M7x7GZIe+/VOPMyEwes+PpYpc0Q+RB7
VzA7Ey3FN0wKmprxZ/4BZfPuTHS6fQjaP9yMxqLsy9T2LKhbPMlNWdGC61t8
/v7uy8L+M8aayd4tqF8sJqa8Oxv01MsFtdtb8UXzgkOTZTYUTkkO9Ou2Iudc
+Ue3c9nYMbXLYNykFXEV7oc/Pc7GzNCTkW77Vrh7M5/vG8nG3cMPdqy614o1
Y2832kXlwGrGdJdkbyuu1e9A5M9c/K53eeDq2wZh5ay+qvl5aDlb/sP4bhte
h24JmZbJg/4ax+GVD9vQZLSh02ZPHoJ+qNNfvmnDphqxy+se50GUv1VSqbIN
rIqxt+nqn3CysG27/cJ27C1+I1x3PR8mW59/Tw5uB7VaNutvWD7y/lTpHopo
h9utmKNb4vLxZ9K06ufTdrzEg4QHNfkoEbr2UiKxHdMFt3SOyBSAlvJg6Fd5
O1Lyjl4dKCjArxnm91W8NEhkilK8vIXIKDWYvnWRhmMh0wd7lxVCdEOJQtZV
Gl7Z99WUKxZCR1O3ne1Jg6J4bu5d60I80t7AXBlCg85V20fiqYUw095voJ5A
g1qM1duHm4tgFSxj3U/RcNLm7fEEqghxt24Yv9DvgN/+5U+fDhbh0LWsSMqo
A2/V7rUG/yzCSv6F0hIHOsAVvm54QbAYGYmZ3y6f6MDVQuMdKmrFiGGH6lHX
OhCy+pdYfmgxDDYs5nrHd+Bjt25tw64StB6LPrqHrxPt+3y+h+4twdCKbysT
BDoxkfx5mZFFCXJSZxPmLuqE+o0dJyvPlODpaq+taRKdyFm6eaIoogRveK9L
1yh2IldPenU6pwRlfMEnRA91Iv/tt8sPH36BsOHFbpk3nShxerb8MLcUO63O
T4eqdSFj8Nw5m4lSCEbb3g7X6MJrR41PdjxlaDii2xiq1QX/07QjzmJlMElZ
WHpLvwv7TolG3d5VhmTrEyd2H+pCw2F/yeSQMjxy1IuSv9IFxr4L4vxK5Vjp
P+2clNqFX+s1F3+4UIE9oQ+2MlbSodWtUxHsXoGuFQeD7NfQEfBsn7fj7Qrs
zkfQ4Do6lokdHJN7WgG1aN2wQUU61HjPNUSVViDi7/uyYg063OmR4YHLKzFy
796rFks6ZsJ/LravqoTS5kWmvkF06Bn+qdBurYS0cmbEyxA6Qubx3FrFqoRM
Xt7TgnA6Vngu/Nb1sxI017Kfw4/IfJzWNJqvrkK9o/647Cs6vPXM7uFaFV7l
fM4fz6WDb+q9yPJ11QjXenxj6wAdy+t0xrG5GiL+Z/wLB+nY+rKzzX5HNT4d
Emnfy6XDwUAgOtm4GioCVaZm3+mofHpqnc7VanRr/SzaPU1HuIaUxtmKalQs
uRkcK8yAzM0Au+yzNaBynPTsVRnYZrZCn3G5BgePejpEbWPAZG2mPK9XDUwv
D/2qU2fAu/bryP6IGjj2mJ1T2sVAt4ymO5VXA/4XM+11egwkFoyHzBWqxcQV
c43Hlgyo/bP9eCC5Fp60528trjBgZFzkuyenFr67VDO2XGPALnqVqXpJLSb1
FfyFPBi4p04NSLfXIkdNxLfgJgODF49Kdc/WIlfDd+VcPwaJY8ubLsZ1eB+k
ylGMYIC3ZL9OKLcOCo+p7rEkBiRF3gl7T9ShQrB/x91kBpRtFtBdeOpx1Tfy
zdpUBo78qbh8UKweAUunyswzGMhU2fNm+a566M7A/VEuA6fjMP/d3XpEJM1K
lZUxUOu3tb5coQFps2lPOxkMaCyu4bu/rQHcgkeqRykGEp6eVD+6uwEO31i/
u1gM3E4Oix2zJL9/XC/e1k2u7+C4Svo0IMFPizeTQ67f9EzCidaAYXF3kdU/
GdAZ9E2dp9MIO0ryUO0CJlbdG55KHG3EI+lwav9/THw+6Z2YPt6IoUx+/5Mq
TNioLj386XcjbPlSTl1TZSKmXSOnlq8JLlvk62O3MSG5Ivjq2LIm+DksSB7a
wcSSd/LjW9GE0PDpL8d0mJhb6sAtDG/Cbplf+dUWTAxPsqi2Lc1oml7nqunK
xOuhT9XCYS2gLX3RZJvOhPMTUzmnBy1Ymb7x3IEMJtT1em6URbagYfpf5p5M
JqqfCSrdjGvBrnMqhzZ+ZOK72eHwwZwWCM+0ZXFzmdDKnjhQ2tOCpMZmEbti
Jjpv/8f02NGK0BK23bxGJoRXxI/1kjyw2vRLGWOYid2HbjN7Blvxn3Lguzgu
E67hJ2q6R1uR/ZTG4zTCRDuvZDz7dytm8xRnf44y8bw/0IYh1AYhEfclc34w
oZzqVNeytQ3L3Re+nPubCWNd5fclfm3wcrqzLoyfgtdNwafFQW142Bn1ffcc
CqlZ/QFFYW3YnRkrOE4sJv/i1OfINtzo8FllOY8CQ0hEOi+pDYoqqrkiCyic
b/8emNbaBuvAa3R7YQohZ7NOx65th+s7U6EbkhSGdn8IXKjQjj1tJ5rXSFHY
K/nm3dXN7Vgs0RJfRcxX8XDUSKMdikeVvMSWU/BY63Z1yrQdPk6SFc9XUDjN
UgmwuNGOSzGCFv5rKGhbpr6Z09yOsLrW4SebKDxXTKi4SGtH7uu4qtWKFGb4
Ywe7GO1Y8bDiQwJxTnq4UtpAO7L78oOylCgoi1zMOj7bjoiNyY+/bKYgU6NU
9lGehmANd5M0VQoTu9/3OnrT4N3L/tmuQSH/9XD0NT8azELOOWjspOA7X/FA
QBANo5ZfhJ4RCzcmFcc9oOG+5n/8trsorD+R/JyKpyHvnFs8Q5PCIc8064ON
NCTdvxybtpuM9/X7Yrs2GsYDK4fna1Po1lOpuNRFxjex9zxB7CyUsS28lwaH
yqFrgjoUAqIzl1T/pkFl+dUhK10KWbnZtZDtwKh2YWvTHgrXV/y+bbK+A4vO
aCxdqU9ht8/2ncc3dcBoPP39WeLafbmJ17d1wEx04be/xL20vIAsgw5kX5Uc
kd1H1neiYPcm1w4cPMH9vX8/BTeV0sxlXzrwYdMIR9WEvP+tq2PvV3bgVdQT
6cvE1mo37wrVdyDNK6EkjXinxtZTfJ0dEHp51kvJlKynzuvFo6Md8LmVzVpp
RiHc3M+pTLoTb94ulx82p/DORW+1m2snNOw6e7ZbUmAll95tku3CLqV5G1cd
pdA4MoersqELix0L8w2JixT3GD1U7AJtKtPAnTj2XZmQlXoX2mLyLJuIT70t
D2UYdcE2b+Lk7WMU+p9Vhg9c68IFbvJTznEKIyG1D2bruhAS9YlTZEth2qk1
euN1Os59fdbAPk3hoNrx+8redAhHVZ4QPUMhibc/QNWPDlOvizI6xDaRk5c0
w+j4ufrS8tfExWXS+8xJXvp8ibHFyZHCndUnf7pX0/H9t+yHv2cpLG0fMaqU
ZoD/kZXX3gsUNmkL/D39iYGvcVwtTTeyv96939BRxED+pdblN4i3ipmZG5Qz
4FxnPjeXeNdA5OtNTQxc0Y7/vfUKBZNQBcNv/Qz4x/BqKF2l4NppHOmxhIlH
ika9K9wp5F56qBJylgnO2vG5v25Q0KJvPzbrzITAV5n7/92kUKLH9Hd2Y6Im
dGriAnG1xPpOM29y7ij2G/YTMwqyvcUfMXH35J/BVk8KPIL02udFTOxfLXcx
wZvs11eyZ9IkyDyqHQxkbpP5RgqvL5ehoCix2sSYeHXYdG+XLAW18de8XsR/
PNpOzSH77naV90WK+IN5kI0Vifu6R92I9iPvh/e75Sx5b64bxm/zB5DxJpli
S5wpSHxgNykTc7nVLesvk7jHqtzDxOUdr83NyLwisq+ZJBN7pFobx92nUJ/k
fsniDomfE0V6BnkkLq/cDvQPJPFu+YHfppBC14R0RyJxjmFUiWsphQ4O/UMd
cYS62+6Yegr/ND0GlgZR2LNYftdYNwWHie1XoohV5opP83MofEyT6cgjXjnN
myc5QsHnRXFOF/Hvfrq6ziSF0j82Y5LBFN5/Dld9tJAF57mbJMKJIzNv/kgU
YaFvnY7xe2K/d2fTPouzwJV6PlVObPNYdzNnFQuu99LSZohFnScVdm5l4aSi
YODJuxT+2vUOmu5goV9jzNqDeOhwU4K9Fgt71sc+vUdcuuf9+rB9LAglXj9T
QHxtxYk1X4+x8HvsuaxICNkPZlsOMU6yQBWL/F1DbHKbN5h2moVck+L924jX
D8Z9r3Nh4RpPvIo18RKZK+uqrrCQsb6m1pF41kT/cOl1Mj8JoTZ34tZMTlGe
HwvqF34oPSEuGsj9mRXEQtNAoucb4vfSd+XTwliwsHu1I4PY95bSvfhIFgoe
v/9ZS+yc8ffLq2cstG368aOD+HB/w+SzVyx88u872ku8xcj1xMMkFozlXc5P
Ect46z4IT2NhRfLJpfyhFATSxSqCP7LQeT1TToj4R2/fH/9PLGzfJPtMjJiS
yFb2KWJBctreW4a4en/gqZtlLMRWalfLEWd5Hn58rZoFJQkvTwXi2FSFatcG
Fv6K9kVuIQ7pmZ690MpCYZi+jBqx+7K6/852slC6+JrATmI7g+cO9hQLK8tN
j4DY5ObFpyd6WDj1IFlMl1gjZXfdEQ4L5guvqukTr+8W5T00wsJ/V0IL9xGL
ivdsNf/BAm8dO2U/8czeTEejSRZsSm0FjIg51/1j9s6wYPSFr/x/Hjq0yfEl
DxtxnKLh/9n221K+VfxsOAhGuf/P7UEz0TFz2SjOun/ekNhQrm+b9Hw2RpVT
KwyIi/LrGp4IslHuwhe8l1jt0Mez4ovY2KoYlaFHnDT2nP/BYjb0KkL1tInX
BN15JrKEjf+O/d6lSRy5xkU9TIyNpTlTMduJhfOtmxZKsGF1+KO9KrGfpfa5
ICk2pJytHioRT41unCsgw8aGZkHFDcTOgUte+K1kgy7Er7iauFd2ejufLBtZ
JtceShI3Hqw9P7uOjTmcihcCxPqjmfNuyLPR1bZR9y9Z//w7z2J/K5Dxvi8x
+0kcn+fcOr6ZjYgHOfHU/+LjoJXzJRU29nuvGm8mjhjB/LGtbEQeOZVYTuy1
WnTX0A42WJl81knEP3On2s7sYoNvQNn8ObHTge6LfVpsmDu0fgwntgzIiGPr
snFh4HCVC7Ei13IhzZiN9b1cSUXinINGhcFmbGj7ig9KEOsW6FzWOsCGxU03
EX7iI2Gb6W+s2fDW7jxDI/sxaMuC9252bExFPTd1JxZ7+s9G/jQbtQOpYzbE
sbwTSxiObPioPxnRI85p7r6u68xGtFDUvMXE/W75+5d4sNF7vagympwPrsz0
v2U32Nh5/4GrJ/HsnsR0Dy+yXu0avjbEYhKPpb/eZiPA6CxtJbFu7sWhlDA2
/A6IeUSS8yp2dk2w8Ws2qIyCeBdy/imeltLijWfj+Y7LuwyIs+sX/8hMZCP0
fvJ+WeL6FzOHZVLYqA7e2dlAztdZ7faNw7lkPjMb+tcTHwkIqgpsYMP1B3ve
Z39yni/+Nr/0D3n+v1ztaF8KzQXBdwxm2ZAT+ex3ljji/Lp5Df/YuJQ25KlO
vKT6CH/XnK9IKGRFNvsQ+5fNjgl/xbrAtZFziUWmo34sl/uKZVZGv06Q/CM0
sIdx2fArDvzI+jNG8tucwugUuZivGBTjOVJF8mXXLr19rOdf8YvZIn+XOCWP
y456+RXHbv3jNyY+8lFzyZL4r7DIKuxtJHkl7QPLjSf9K87JBrh1upLzOEZO
g1nxFa8eTn0ddSHr4fG+9PH4V9DOT3mpkPx9buunzgWG3dhS/YatR+qFosa2
pBzjbixTky0SJRa/8M37jFk3CorimygHCoVv1q0vs+xG+5WuIA/ipRL3XG/Z
dkNP2F0/zZ7Cpyn7hZNXumG76tKTjXYUFhYKa/bGdsPwktmlHaQ+eW9wKvbz
RDf0NbiysUdIvlWU1cJUN4zNOvyuEn8WZtMLp7uR4rGMbkTc2HJcopinB5aH
hI9NHSbxfvxw2BfBHuxzGg00J9ZyNbtZubIHp/XvG89akeujtKyb9Xtgc1KB
53/112HP2V8WBj1Q5NWYWEDcfSL/QYthD3x+70uhHyT3W6vR0GrWg4idQ3Ze
xFIp2/RpR3ogF5ycWHSA5JsvilsZzj1Q2lG8Xd2Cwq9haZH+xz1425Paxyb1
4cNnAxUxT3uQNc9SK45Y1TTT+0BMD0wrH4s6EF9KNx4retmDhrKqVQPGpF5z
v1UfndSD7U7bXvUaUeib2x9iXtKD3/Yxt76Q+tQvO11vflkPJlnxETeJ5c56
z3yu6EGyVPq/rcQnayXPK9b1YDx+V0+cAQVmhKGhQEcPZOiI8SD1btuqtAUF
Iz1QDuLo8JN62K3Js/jytx5s3PRJIY3U00tv7/dQGO+BULGCuQ2xeX8P58nv
HpRNHDvwUY/UMUnLKl35e9G05RbPcVKPl+24GSAv1YvNAtzE26TOyTqwl/+h
Xi+CU3LzFEn/EGiY4y+ztxcZC6qmyndQOKa7cf4bg15Yvp1z3paYT3Xhoo8m
vRDfJzRwbzvJL0salnVY92JqWY0cR43kh8ZDCjIXetGYaad4kfQn0ianzV8/
6sWcsan/GKT/GdlDa1GM7MXH6+nVR4mLNPcdyorqhfD8qcAuBVK/KykcLX/R
i4Ky3ittGylkCI3acxJ7YTpqKVK8gYJRzRV3xc+92PZc0+KiHAXvff4vMvt7
IcD7zG2jNNnPNo7Htgz24vPwiMh90q+tvWIolTTci8cFGd2TpL+rfin6IO5b
L3ZPlsh/IXWi2PSzgIg/veg36zYxE6eQ8OHjBRfhPjQ5Ot7bI0Libwlnp6Ja
H5IuFKx6OZeCLHN/R5x/H3qTznHMSP8aXLIzxTKwD9SvvS9vkP72R7xigMDd
PiyYX5v+hvS/Ja7CW8/d64N2wGTf5BAT9vObw1Wi+/Do37achwNMJKge3luc
2ofJJgXHNDbpf4PPfKTofRD3ySr0aWZCQ93voZRKP0xCksLqSb9+bGXDFG9L
P1qp9HcLr5P+W8o161NbP64aXJCY48FE8VLxS1c6+rEtfa7yzDUm1i84yuEw
++Eesf3g8BUmxsb72xs4/Vj0/cCpsktM+Fb9zXj2t5/0F3stzpC6PMFN2XmH
wgBcbtf0HLJm4ld1aLeLzwDWZN+nHLcywVjY5jhzewAyXmmPzFTJ8xnJjN0J
GIBRLc1HXYWJe/Xvpp/fHcBRrvko3xYmFJorxOoeDeDbw5fV4ZuYsOnk3bvx
3QCuB31c5r2GifKBK++/Ng9gh952yxeLmUiSL/jvQtsAFJa9WuoozMSDs3Ny
ftMG4BE/P2HzIiZshyNKFzMHsF9HTP+TIBN/RlOYmgMDWKmVOPtlLhObJwYX
R00PICGZLyhymoHIOTZuFms5CPn7S0ed9CV/7SS2Na3nYLJqmRu9lwH7L42/
TDdyINdds8arh4EtvrrXjJU5ePwljvuZzUDlP/nr+7ZzIOwqylCiMzD5Z9xb
y4gD/r2Dnp8bGDj0PeiughsHixcYlT3KJn2Sma5R4lUOLNJd6vg/MrAmdUZI
3oOD8LHG8YuZDIw6Xwxb58XBNad/4TpppE/iHry/OpCDiUvfshvfMZA5sOrJ
shgO1ndU2YY9Y2AplfWKr5SDdmbdp5s+DIQJeXpml3OgIZf0wcebAcGdetbn
qzhYKaQp4OfJAF9k86L2eg4eJdX23fJg4If5mHtiJweJ9bd5jl5ioLFM3tRs
jIMnXsU6YbYMhHyInn4mPUj6wI7NrF0MzGecardYMYgHhwz+3NVgwE9QIU1g
9SCCKQHmtu0M3DiTc/rSukGkPHDvuaXKgJNsW5PelkHMsVz0eXwjA/seCScM
7xnEAuHDoobLGJjr6XNwx6VBLLxlw87k0pH5nTtVeHkQt41tIzcP0WF/2vqF
/tVB3HnBiYkfoKPUdPPQgRuD4B+ovxPeTYffGqa3s/8gFp1OqNHqoGNO5fb3
cU8HoW8saCL9hQ6+pd94hUsGsWuDA1/RYzp4Em1SupcMYblgnWncNjrKuTTn
F+JD2Ot112+9Ch0hW8yVj0kOobX34tG3ynRI5Oh+aFsxhLb9stzoDXQoV8i/
r5Qfwu6Ck942UnQc6/vxNllrCC1dD0N3z3QhV/bO8+tOQ8jb7Nd3sbALrlEp
oUtKhuD48keg5M4uZM9E3SkpHUK2/63CWrUuzNgE+LhWDOFttMpOT5Uu3JE7
fqW5dggV+4LGmzd2ISZJ8HgEbQhDlmV/zSS7UPbZQXHJyBDEFE9MPfjZCcme
5TWiksMoUZk8KP6uE8f3CJQVSw9D4pNZpcGbTryK//H50ophTLSqcDxiO6F4
viq9ac0w2kbmidc97oT2r6tR95WGceyYnqvW7U44CTSfFdUdxpM203N7j3ai
YFPgfFHnYfBr+ksVCnRCrVWiLsJlGA1ntx3P4etE6s34+2KXhzFzJUbow2wH
XtWVS0u6D+NA+Zb7geMdCLw4V2mV7zDkbAdPCLA6YJHha670eBiCoYpGK7I6
MKDhGWXweRjvlnjdcDneAdseoRM1RcNQ1mYnVlh1oOtujJzxl2HsxVJ1KYsO
1DI+JZlVDiM1qHLve/0OpHv9+WzVPIwfy3pVgzd34GbJtR6H/mGYGH8JVeDp
gOh+V0VfYS6cc9S7kmJoiC1evFBDlItNIrsnUh/RsGXHh8HvS7kIn8oeTAqj
wUSe8/akFBct44IrQm7REDzPRlZ7LRe+L3bK9NvRMOeLwTIeDS4cBfV9p+Vp
mNgpy+PlwIWeR4aVdlI7/DM+U9scuXgr06wn97odYpuOFYw4cfHN7fTq6eh2
qEo/uX7chYuGO9p2IXfb4fJb6NeuG1yIX2+3VnVqx2Dm78Hpe1z4vzj7z29d
OxhKjS0e+Vwwbm7sKn/QhhfDop78hVw4+LBtB4PbcCrxwPrQYi48fpbZ8fq2
YXAtzT22nIvlJVXvRF3aMLGcWlHRyMWLqGlammEbRAW5Z8T6uNjg2RHdx9MG
/X6BmeRFI/g4o25ceqoVC14bvNkuMoK2mAZFL+tW1J68a1KyZASHKgJ4FU1a
cYAp/LJNYgQyw6uP2+1ohW2ruP6M7AiGHJJeY3ErbpTI3TNQGwHtw9cfr3Na
kPoca3ttRrBrXuVkF28Lxq+PC5w8OYL0D05jGhPNULOKH2bajeCvVe3qsKFm
fFq8OIPmOAL9hLOiwi3NKL9Fade4jmBY3+bg5bhm0E95nkgPGMGfOhvROu1m
zNvwKepW8gjU21Xl7rs14XiKmuiKvyO4YHvsXeOpBnw88lu4kWcU1wLTq410
GiA8L0/oNv8o+meSoxJkG1B0THP+4PxRpC8VtPzHqscaQb1/mUtHsUnn6LON
R+vRb28+YrRxFFyBPqurhnVwlj5fdfPgKO5oCV/dIlaDW/4vfRjvRqF/4LDb
F4NyfOCsiBY2GoOLcb5SgFcOAp/521ImY+B/oBv+alUO7C1G1iWbj+HUULFd
VFE2ZPLzU42txrBiM+W+ki8bweFHy0NOjWHWnJ//zu0sOKo9/S7oMYYta5yO
mt9Kxxo/sX0Cb8n913ATD9Yk4O/2m4toCWOYtttc4T8vAZ0jPc1v34/h+j/N
0/e143HPKuO4ftoYggRqvu7KfoN/ChaX/fPH8O/JXp55L1+B0RT+nL9lDKGF
tNWdVCRyAibtWtrGEGuh6p9o/gQPd57YGNcxBnFVLx3L0kcwfKOcqUONQXNf
5a19iRHIc6+r8hkcw96YWe/SnkA8VtoWbs4dA5X0RTWuwh+XumMOyo6N4VpQ
acyJ976QNzrPKvo5hg+d2/QE+9wxh7f19b3JMajJOS399t4V7KydTrZ/xiB1
wWPcpc8R+U5xm7fMkvm/fC2a1WeNJ6sW/vr3bwzLJ6r+//8L/wdqfrEn
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0., 0.47737429640586465`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.7452582363020787`*^9, 3.745258279763855*^9, {3.745258315464531*^9, 
   3.7452583355176153`*^9}, 3.745258418535166*^9, 3.745258517267266*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Ac\[AAcute] ploteo para valores de x e y fijos, moviendome en z. Como es de \
esperar el potencial va de 0 (tierra) a 1 (potencial de referencia), pero \
nuevamente cerca de las paredes hay cierto error y deber\[IAcute]a considerar \
N m\[AAcute]s grande (costoso computacionalmente).\
\>", "Subsection",
 CellChangeTimes->{{3.745259515002513*^9, 3.745259610724786*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"0.5", ",", "0.5", ",", "z", ",", "4"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"0.6", ",", "0.6", ",", "z", ",", "5"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"0.7", ",", "0.7", ",", "z", ",", "5"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"0.8", ",", "0.8", ",", "z", ",", "6"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"0.9", ",", "0.9", ",", "z", ",", "6"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.745258612766244*^9, 3.745258663076576*^9}, {
  3.7452588058086095`*^9, 3.745258841568369*^9}, {3.745258905211932*^9, 
  3.7452589328911*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkH081HcAx89DuVLEOXYkachj0sO1iE/Fa8rDlucsSWWNikq2aqg0ejBP
xVohqpOSuOShcB7SzZbocCQLx5Ho7n7fu0piw9ofn9f7z/f79THec8j7e2Ua
jRb8ef/T7fvR9oYxPyffhbo7Lp61cVJ11j8sYq3ByQcC0QWmOlbnXckpY7kg
yM4rchvTAO6t3Q+usXzxk7mz/3qmFQJCJ2ovsUJx4tN7DxemA/pszzmnsKLB
To4XcpjuuM789mwSKwEDHNdnDno7EE8vW36BlYnOuogvCg0PYHvgDa5ckY+g
Sfm/53fFQn02Psh1CRe3px09H7ETYepFjT75tRy1Wi4ZQZuTcez5elz5UAXD
BdsGTmldgl65Vr+SUj0cdq/UMxH/hkqxc4tgQyNsTFLXflydhcb91wwCpXwM
CzcP5dzNxbiZo2ZxxJ9oy6i6Kj53A8qTRYsMTJuR5LD6maZmPtizIZU+JS14
POgc+eRSAVoS1jxvshSglN0Wcnh1IYzSJZOFVBsY7Qn12zfdg2RC1N+1sgNs
bp6npRcX+W9rmjVSheix1XG0jiqFhuFtMjzcidgfjatp28uQHF6x77rJCzT5
vltH31SBjxuLhsNOdUPvbfGy8JMPEb2KX6775CWGik4uynlcBVEJ/9d247/h
VDVOSw/n4Z/9ndkWP7+CEc9s3xOnelhtUpvZV9MLaaFdYcbCx3C9afxDqV4/
7r14YZ9a04hjhruWDQaJcPMXv5OBkXxYS/3Uuz0HoG2doLLCvgkMTTmdPzWA
rKDT99z8/oJqfTb3y5xBxNpkbKyLbsaBNTU989zFYNfwjQrkLSjauud63Ucx
zONoIYEZAoxL9BeNXB6C2mV/9tLF7ajwcVXJdBmGh3vEqpiCDpzakphXPjKM
2rtOUVF2nTDuc3vJSXyN8cDpesHzLtivS8hkrRrBp7kXq4qLuxG0RDCpJBxB
hzTu9cMLPRhvThEfjn+DD+ErfggoeYUrqsHR3iaj2Ja/iZnX2gdGf8VNZf4o
uvSTLxyfFWFOXLzv+iNjiNF4Y92ycRC0wmCuWPst1AKPLuLFiBGVxU3RbnyL
JXu1pWWDQ6i1Ok/XipQg2nGw4ID3a2i5RVmf0ZCiOEV3dLp6BL02bcITPCms
zMaPHgwYxf1cmAwHy+BZt9wy7v0YdnLZWoYzMsx4HdqgUiJB5XefNNpoFGJ6
dBgTFRJozK1e8IsKhacXC2NIrQQNQY70MTqFTIt8G6pVgmXzXWbLGRRURXe3
mFASjIR6yTwsKMjvh+2Os5UiUv/g01hfCgGv9J3tK6U4nXgjvvcuBduXrXP0
umVYeEzNbXcxhdrSmdgJkQxZYRHaI1wKD5bO2yoalaHMfT2HlFOofnTV9I8p
GUa02vnK9RROLzUdliyh4J5Lo1sIP/eO8e5VhFHQfbgr9cd/KJgn9Po3KRNw
7vzhPzVN4U34mb7KBQQrs6yMTtEI+jkprqW6BFvjJrjn5xA0J5mY8S0JYp3T
2rM1CbLtTWpDfQjEgjqdxi8Jyvm3ObcLCIpHDbM1PAhefTI6NGUpx/lriSH9
3xCoRFjE+NrJEeotMy3xImjZ/X6ocp0ci3m8+54BBHv/1DL/zUWOpLQdTcl7
CGIEUxrVwXKEsa8q5p8geFHG6KvOlGNZgs4Wtc+ejZvZDT50BWa+il3YfYdg
e5r/DommAj2yoY6CIgI7q6bHqXoKpAeU7fy6lEBbc0H0pJkCs5beRxN5BM96
9Q32fK1Ab3taroqQYErwSD/vnAKPzk7sFXYRWAr9slXSFch02GXBeUmgeeu+
8U9XFHC/taJ8cz+B3CG2N7FQgerjrU/jxz7/0KQU4duiwGWbtWleUoI5htYx
Nl0KHBHn+BoTgqKGwE5mvwLmHgdFDR8IttAZDKZcAVWlzvz0CYJQwxPfWk8q
MFDhsD9kiqCTkZXgo/wOvP0c25XTBBG5LFGS+jv8bqQ+PjtLYGWgn9yh8w7/
AWaB7Wg=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkHs4lAkYxYdYEyJUGlaecSkRSrJUOpU2ubQbKV2E3JekpKxSKCI1qHRz
F11tRs3QTZSGSkozk6jkMjTNNL7vm2mTUrGzf5zn/eP83vc9z2GGxPmGq9Jo
tECl/p+e4RL+fem6JZpTM6wqedZL1NyMdvQyHPG8IT/hB4uO+aVniziMFdBV
/xb6mDUdXs86bxQz/HB9YDSNw7KCf9jIvROMMBQ42F+9x3LGO/tMNxYjAa3R
MeZTc1ahbOqfh7MZ6XhMDO/Lzt2ANDpn1hFGPvqXR+lvOxWFDRvL2XJFJR5p
Je86cDsJWuNpAe4z2Nji/dFJf/EhWPqQkodHuRBcScsaLz2CxOcuOPv5Nuot
Lz0VhuTBkKvXo6LSiC9ZufFLXp9EncitrX1xE4yNacTm5jNoii423jjEwytB
kUWysBDDM111r8U+QofEUrJOUArVb1WTjS1b0Vw2balkwXk4jQfXra1uw4dN
MbM+pVSiLd3xeYt1O6Rf1iv6Bi/CNE/27Qr5AkfML5ygV1+BbKS3p2OuAGPz
1Q5wk/5B5ce7rTo5QmRHRrz1a2BDx+QSNTj4EvPuXraRFl7Hsb9qI8osXiH8
xBy7JQEcfFlaNRiV0ok4wdVgXnQtEhx43GkPuzBqSNtQkHITvdW8o3zmGzzg
P7cJ/3Qb36NfFs7e+xbjnzSZO/LqYbNMYyzibjdM+RZtPKdGuJ9nRl437IFv
8Nr5HOsHSDQJMusP6EXvIq5RTWMT5gyt0+pc3YeHKaG7/WJ5MNCV03mjfagy
POgoiGiBWmMh27yoH6bZoR3+EY8R43j39UQvEQpd7B1jGltR5RFS1vBFBPpO
9++2S59hWGY0WXx6AHGyPfttW9pRu9Z9Qv6KQcxipVjv2MJHyqqMUq54ECIz
9a6sNwIw33l2VWS8B3ePXemNmJdY+Ft6PsNBDGGBx8YgvELAjPZvKkIx3mqf
cdlq0IXhVpZoR9oHlD8xtDrg8AZn1QITfC0kqDv7M9hiTTcMemrPq/IkyL8W
k22c3gP1/Wl+Ljul8Fz54Wbq4T7QrgSyRfofYdLXyLrd0o/4AjZLv+kjPnVI
RlIdB3DPJouut12GMjvLWN/qQeh5xs85qDOEhOU0fqypGN22L4RJ9UOo5329
dKfpA2pKYDEYSCAydrpiWZAUW9hOeiZjBDYJRyx26cpQt+mrzgsaiexEzGQY
yqDzyx3tQxNIkIbr4ptmyHA/wJUupZPIOV6jbWong5nminGuAYnP5+xcVVbL
IA7zIbxnk5Cq3Tm286gM2422PUn2I7FtxsX+VVpDSM0oT+u+SuLao1drchgE
JiVqeG69RoIz4hTzhEmgICpWX8wmIaqd6K5pTYDj5VJBcUlk/ug8VLyQgFiP
z1NtJFHhbDegFUDAq4RGny0k0Rl+I96wjMC0m0E5u7+TiBorORVnq+QuN68f
/Unigcfx6MNOJOYW2Jim0Cgwa3fvuQASHvtH2FnqFOa3GJz84UMi2S2XX6hL
IVDj9zy9RGWO9oYpTeYU+G+Z5kSTMrfEpFDHm4ILpzB2bgiFrOKM4J4/KGx+
X9NcF0shzJewrPahcOD4kNgricKv9fU1q/0pHHEO8azIo5Cdu7nlmHKP/9TI
TPs+hSincwpNJfdZPzpydLIcZulTVmlcpKC/r8WhL0mOMefkSZ2XKVgRrk9b
UuV4TQwILlZRqJuUWXArU448f86WldcpmHkX7G44Jce4te+ujHoKPNa8UP8b
cnTzc0smCClsjDPTFRFy3Do8EirsoBBAa1DNHZYjf1HQ7IouCscTu9o8fsrh
dcGOu7yHwr1mjXKptgJ3/n72JE1KQd2xMb9zjgKnbRfk+gwp7xFxh746KrBT
VOTHpJR+cr7AylUBK+9tvfc/U4hw0A27tVoBNZWXlXkjyn8bpulNX69AX+2i
6OBRCtvtv/6bGahAfXSF/dyfFPba9rjRIxU4Y6o1PD6u7GVFjfO5OAX+A/Wa
9Nk=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkX080wkAh2c4eiHSYeWl5S0ivbqQvhWFSZ0l6pN3ejnF9XrlPklkokhd
UlnEKKEseasIsVQiZnVTh81oYdvvpyvc1LXr/ng+z1/PXw894lfmLiqFQtn+
nf/N2DXMbxrZtsZakqKtE2+xRsN97gERbQWqBbkPEsRqWH7j6vVKmgeORrKE
O8T68OkQ3s+l+SO95mgDQ0xHYNTk4z9oUXBw6Mlkipeiz/GMewbtCNRL4scu
idch/8ctKWdpydjMHEopHfBDonalTRotC7pNjXwdaTi27yjgjn0sgnfD4lnL
6w5hhioxyNOMC5N+C4GuxglY+RHDLeeqQJ+YXnqyNAnHXjnj6ueHiE0N8HMZ
OAOjKv1+NbVGcGoY6i/JdNRI3Ns7Vzdjr6txlHrARTRH587bIefBeY+Hj8nm
LIxbu826G/MM0aEFZW6rr4CqLNObZ9UGE1/t+xG5OXBShdVsLW9HEvOJeuTX
XLQnr3jVatcJG5kDn9WcD/MLMmUJ0YXtnc+NlnVzIJsU9b9Z0g1WFNfZ+30R
ikbr2nTPC5Aweo/h6F8MXdNicmjoNZRdCRV/y0uQ/kv17nzLP2F1WtzLy7iD
ibVlQ3sThLAZsQ87WczFkWW8KsOWHiwf12sJ21MBUTnvHJ/+DmzahqU9HpX4
Ev2abfv7X2iNXZGYsrEai9Zpfdtd14sXoac+GTJr4cmh76kw6kf+wol39o0P
ccw0dMFAkAhzqHdmhrjUw16+bYbQV4zIxkPpjpIGGMwa0+ZNiTEe8kmopfkE
Go1srsX1AaSd9vrnZ04z9q2oezvNR4L4Ms/c0Qweyrwj8hsmJKgS2jJcClox
LpurJ80ehHX2xf35Tc9RvdVTPctjCFbhUoM1ni+R4MW6USUdQkn2ysFnfR2g
9zF6ClnvQVU5zWv364LLT8lZtGVSUJJ13Com+Qgy61SqCaSQuj31enZLgPG2
DMmBxA9Iqtwk2HTrDa5qhBxhWg6jV9rPTrsnhEF/NYfKG8Yp3eop47630IxP
9Hc+OIIpUdy2wzG9oJSEcCWzRyHIc1Be1hThUA43Y3bzKMK/bg08ozWAx4tS
tfVjZTiXsnXwGkcCfcYh+yRdOThmi1mtrkPodegSxNXLcYZ5fNcdfSnu5cFy
KESB5pfyiOy+DwjmOumbflPgsfLjiTXlIzjFKkjsLSUQzJ7fZ3JbBp1jWozw
uwRaWXm14VwZcvbGzJZyCYxc7zC5WSNDpY9zIVlFQHB2W6TNUxmk+nwetZHA
tH2pImOJDD55FG1bAQFnE+7C4nlyGNaGnj/6hYCy3NbaJkOOwttPA6b+JcBs
2X7fNkuOJTmLzBMoJNqeNMTYsuXwjp/kpmqSqI33cZtfIscJ90w+exYJK6Gq
ZYQnh6SzYU6zBQmONUNT/EWOu8OmbN1NJCpjLvnJdyuQmssK699M4rfBk/4u
sQpEMRVW5X4kDnZLmElHFTCpr7/nG0gi4v3ga9VpBc5m7mxNjyDxwc64926+
Anudrn2cHkdCSV07t75HgQXJc7y0bpEw2n8zrW49gW+rTugIb3/vZaMOM70J
vFUMdt8qI2EXF57J3ELgQmBl8MYKEsvTVoobdxJQ2TEPs+pJpDyI/Wx0hEAv
PzNPXUAitsWw6jKHwIOUyUjBGxISShvV4TaBLNdQ28IeEnEbzM1rv3/wubm4
an0/iXY9uoLzgMCj4x0vEkdIBDjqy7s7CGQ7rMz0k5PwHQh+NNVN4KDkuj+d
JBEkyGYb9BBYuGm/qOkziWn0K6VGEgIaaq+LLkySsDRzCqN+ICCudo0OmyIh
ehO9qk9GoD660HHJvySS+D+MF48RuGI+Y1ylImH26VtAxDiB/wCjPdBR
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkHk81PkDxhkTNveRmjbrRyjJEm2l67EhMap1rJwp0YqKUmhdyZCNolat
Inchv0zlSKFsbLuV+9bK3ZgZ4/uZaZ21zM/vj+f1/PN+Pe/X69H2CXL0o0lI
SPgs5f9t58dtq+P9uDtIN32iuFp9N91ydfAgYzMs2Tqcevo/u82y0zPLGFb4
XjiXl0GXArOp58ldhjMSTk4+TaKr4ZDvbO0Nhi8sLsVnptHX4oPxZcurjHOY
4pWE9dPNkLPiYMIVBgvqqdeVFaUtEStbtu4XRhpO6XvIDyx3gqtbLlsoKkDK
fbH7QeoY5MSxnjbfsFGVmE8Tt56CngPFrU8qx6a5wb2qgyEIazZH+tQz5KjY
p5acvoCV5SoDkpIvUflsz3vjrmhUjlg2tux8hcVjc8bNEZfwKuDu126CBlxz
j1vu+iAe0/q7lB6e+hMmrL71oy2JoM2XKH+t9xYeqbUzxiHJ2CI+UulU2ghT
g0Kel1wqGlmbm19vaMGUtelRlenr0EqdmC+mWiHd/7GTaZqGidnBgS6TdnjY
Xtc5f/4WCvjVbxWvdWBYVOL+SOs2FDULydhYJ2KbzmYHfMlA8omK4zm63TgS
Lzc0P5qFGYuSMf+YHmzVEna1GObinGlDuUZ9L0ai9WPMhHkYLG1IatN+jzh0
8E7I3cOXgM4Mg5//RoHb7ZzbzoUw/F5m8Xh1P9LrUrVySothk6f90+OVA2j8
ZML64eJ/EabprTPsOYhVM/rBjEA2Ngp+lOvZPwSTrOwmU7vHUFMSyjZ8HsJN
X66SrGkZ6C8z2GszhzEVKmBvM6pA4Obqvq+YI+ApuZhH//oUJbY+OS9mRnDm
WZvyLvPnmJ5Yrcy5NQo9t2iHdws1qHCykUqzGsN2ez3x9Ld1iNkXn13OGYO9
w8K+8enfof3Brjc//iO0qziNVybqsX0rK41hysGnFY+7Kp1ew/OblnnJDg62
O5al+A39hem3V0eCY8cxauHvYyvdiHT64XOOulzYef1Tl3S0BWoDFXm0Bi6s
lIKcClPasCwq1tn8DA87h03NzIY7IFF8mD2iykdw8KpPoe7dOHuHfVX1FR/F
6x7V3gvoQ61hoqzK6Qns3etltOnvfqjYnd14SVEAt+oYmbjdQ+g3au24UCNA
RO/pxeOhI3iUBd2xw5OYctMKl3wzBi/2FhXNxUmoJOSZazqPo9J9TrFVggLz
Sc2udu9xKEo/l4+TotDqtOa3q4HjqPPcJcuTpeCSnHx2Zdw4dJZbicvVKPz7
Wn46/Mk4OL4Ok/YGFC5L/8qIUuXi9OqTbyKdKRj+Pm7zsYeLi/G5sf0PKND9
kywWIvhQCJOxO/qQwjKmalRnIh93/E+pctgUtHp13Spu8lHGNM8n5RTWFfge
SmPzwVFpa6C9pPCk3dr17SgfzCwJWYMOCi9MLC2MD0xA46n3tfNfKPhOBQlq
DAXIL/rD5fMChQqDZgWp7QKY3DHUipEg+GFz5pzLPgFso2bZicsIPtSu6F7v
J0CkZUpbhhKB+mjI5QvZAoy0vFB/tZZgTZh1+6zGJB5yNTMU7QlybbZc6lOl
kHg3/sjAAQLDTknaWr0lr+OkXqkDQZE+yzJhK4U1NTWP9h8iMNLg38jwpHAl
xeN1sg+BhUfgOfkiCv5bbouWXyDgsTg5flYEVhMST99HEHh/Z1MV6UqgleMf
+SCa4MZAa3T5SYLur7bJ2LEINtRbMxJvElh/6F7zSwrBQbHaQhOXQIelvk/m
PsEecoC3jinE4rZIhZ4iAjfXl9ZuLkL0TY623y9Z4mj/uZh9VIjUQ2Veex8T
xCtH9weGCyHe4BgSX0NAD5nMUygUor8tJUuqgyCqJen5H7IiVCXMHuvoIqCZ
nVgdtEKEtB3eBvm9BKtc3+000xGBee/b8j0DBLr1ZhEKO0V4Ht70JpZHILoc
qqNxRoRbRt+lOAiW9if2N+dGi3BmJNNZmxBoZ1e3MpNFWG9/crBuiiBoB/fP
fwtFoEt2FqTOEiwU0Z7RK0UYqtgRcOTz0j8zP89vbBChJiDf2GSBILK0Sj60
XYTftOSmxWKCTe9sw4eGRPgfZQYOTA==
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwVU3k0FAofRZSQ3hTPFrJUCPV8ERW3xRMpRaRFQpRkj5eEolCp6H3aZClE
stbYCQ0ZIvu+DFnG7GOUJVk+3x/3/M49vz/uvefcq+TkZeUiwMfHV7+C/98j
LrTWKrqNkeNV60A5wqyh4CFZ7yGZXVBl5Ws2qXUa/SfpRTxRxhhCUewrb9TG
jcy/dX9MkLHG2Prwrmi1aSNb59lP/8o4g7RYYBynJoTBHZGHHsn4QZU+eo6l
JonXkscjHsjcRcjuDp6pxhaEChO33ZeJRVrlFZHaHbo4feZN7iQvFYpjeT1+
WiYQXQ61O6yQC/37e3yuPT+BLZYcWnVUPt4KzstQFE7hepMBXvwswe7tyssy
VnaQyidQ+Pkr0XLbzvK5piMKRw41Nu8jwWy6makat+LLLUHuDKsG0Z0ez1jq
rpjearg+24MMAUOd2L0frkLgV+Yfclu+omfefPYj2Qt6yw6FJ3MaQdnie9Nn
0geNd3c11Wo0Q6/vbLnDSi7FGOavDE4LxoX79kQk/wPm7BClc2cb0j/Y8EXv
uoFURtlX8cftGN6mkfbKKAji8uncsbEOPEoZ0S+7ewsPrxRceq3ahcU039Ya
z1DM7M8cc73VjSnjkp9jHnfgp1OT/2d1D0rnONL2QeEYyqmJalXqA+f+eIHq
z0j8dut4pR7Yj+zvJeZ/pT/A9gNrli6VDcBOJ7lU2+8RDicrXf4gRYHFzeHd
gu4xuC5/Qfm73RD42TG82b/+hSbLRrT72DCEclNCalRisXH9pHDN/DDuON1N
NLr7DIKVr3JV4r+jgKu0tX/1S1zdVda71nwEPs7vVx1UjEemmdPripkRXFSm
RGyJT8I0U/YP6rNRaD727EzLfIOCk4dXxRqPofxdgBeRPxW3TMOT8qlj0GwM
HKh+kAalwSM9KeHjoJ9uWY7wzMCe3XdjZXSokPbYrHRHMRtdTjJ6CbuoSDIk
vHuonY1rj3O6N++mIuBAkc5rw2xkjffIqu2jYv+FTP/xc9lQiNV6o2dCRYgZ
6y39RTYEeF3ZJ89SobK/7+qwRA4a3quTH4VRca042YEskQs7heZf/O1UJE8r
Wx57lQdxGd+Csk4qAutTSmZT8/B5o6SPfw8VzS/Krmfk5GHr2nM02iAVjl89
CSqkPHB/ULuaaVR8V50L96LnIax+iZiwREXQpk+0awYf8M5P29NAYwKLulmS
DkMfMP310Yh36AS6HRX/+8SYiAHRTteFOyu8Z9H53nEiSEc3cSMjJrBj8IRH
5FkiYpre/06MmkBF8I/9id5EaLSRJb49ncCPwTvtOxKIsO/lP6z+fgLH8qUr
6bNE1E74Z35vm8BNO33fH8R8vBC097NSpeGcYsGkjWkhli5K6bZupeGZaby4
nU0hnKtbpo+r06BmSDzk7lSInWGHrh/TpuHsiL1cZlAh6pbVAk31aeirq45L
+VCI2fkft4yO0qB8Jaf1nnwRTvHuR2n40fBeTfqy52IRNlIKkgVqaEgMyHqp
MlyCx2LBwUW1NCSp3FK4wCuByF7j0+71NDSK5DEzBEoh8KJtXVcTDRat3Ske
W0oxZckNyOiloWBozDv3ailavqgdP8GlQaFzemb771I8zH71O0GWjjmnhYv3
t5ZDKDjU2sCHjtL9rdk7iBXI57F+VV6jwz+/v9+RXAHnS6eTTP6hQ+LZDOlt
fwVqju9gnLxJh9JBI5GLgpW4qzx4yzOcjhsib1MKTlVCsE4/M+UlHSPZAvcb
lyohsHGSX5xERzG73zYjpwofI8+lx9bQ4Sib0sQrqYLTQu1ROTIdLt9MfI2/
VIE0nvBcrZGOnJl6D+GBKoQVm2sd6lr5D4YGiIl8Br99+ukABh37xCgq610/
gy/DPndkAwNuxTq7rTVJqGV1eyZJMpCUM0kV3kPCw52W2nbSDFAbLp9tOEyC
VPGh7E55BtKo5JYbF0nQJqtl1qkxMMe7TQl5RYLd+FRajhEDfxcOTOiLV6NE
KTIx0I2BOpKhAXupGiEufPa7PRhYXoo8EixeA+OMG/I/vRjgiGn6yivUoGWn
e7yHP2OlnxM2jw1rQINlnMNtBng4nLsruAZ/2ss9M3nGQKy9gWjacg1843If
bSAxkHm4ojCfUIuihbhIUg0DT957miuo1GLBPiLUl8yAjeKiWNyuWkSqnPdv
a2TgqmmCb51tLeKzRM7/283A8PeTVquSavGlwkVzA5uBww6nlVf/RYb0qFwD
QZoJdWttNutiHc7/vebLZ1km7gSck264Xofk9KkKH3km+PftiqmIqoOme/3H
VmUmqlyM28eJdTgw/U/cEy0miFsqsvSF6uG2pu0K4RATHmbx54Sz6vFp+z1h
gicTRvsfn5EXbYBeh9S3f72ZOFt3Yr3N5gbkBaU/kbjGRJZ/Z2SybgOSv9XK
SgcwEZ6SoHHLoQH3vIS0FMOYcC+kbT5Y1AArYpil1jMmzgjSoldfacTEnuA4
swomOs4YVllQvsFhVOxCQxUTBaf4gvxmvqEvKl7lWDUTT2w2PiCKN6FxoCzr
RB0TxvMU6RA04WPIfIVtGxNCm5OumiY3IYh0fdSFyoSqgtanb+7NIBzx1QwT
Z8Hj1F7pA1EteP15vegeAgubBStf6sS1YKdBNp23kYWQIYtruhktsFCjpTnK
sEBJbX/gRW7Bg9X2SgdUWVAonO8uEmyFYLXZn3x7WNB0Zhdkh7ViZq8SX4gL
Cw8YSt79D9sQTqyg6Lqy0HEF81sT2yCx3e4T240Fqd6nvyNy2/Af2eeB571Z
2CTwuOVuWxu858Sm991kwfHku+pAmXbQ8+fov2NYeBt054BrZjsGtFrab5Sz
cFrWKlxiuANJTELwqkoWpomXTVumOuCUcXLro88svBto/+ONUCfoqt0Br2tZ
OH+hRDpseydm5Cjy5BYWdm7XHTAO6ARBhHVZYpyF31HR5mOSXTChrlnIWcfG
8tPiYDOnbqxNNXur/wcb2b2Xeb3Xu9HoGGVB2sCGYah3b9ijbpwcFH/TKcXG
XPD8TYWSbjh0SJosKLHxvlfn8G1CD26SVGLM9NgI9dmrJ0zuQV4iVMfs2XCd
svyb36QPPwJ/rHF0ZINPxYF63r4PerbpzMGLbMwMryV1/tOHsvXrid2ubIRL
MVKl3vWh9jblQIMvG6LzurcnRPvR7xR84WMEGxJr10m29/Rj9bayuNs5bJzx
Jv+39N4gzFZ5hSzmsaHhIqhWnjqIh0PKToFENkbrXZcHqgZBePFA3a+YjQDh
hcWgX4PYtPZs8WUSGxlGJgwDdwp0mHOdFl1s6EwX6XyxHcL5XD2C/NKKft1e
pnDqMArPzom38HGw9Gl3XHDBMMRXl4rdWcVBse1D/TXkYVTZGQrThVc4wTP+
DGMYyiLGy/kbOQjoivVZ/Os7qM6W7KPqHMyIJrRbf/kOT1n3+iBrDqK/Hvw4
uDCC2i9a5B22HNTKa52QI4xC0YdbM3KGg62X+JK8t4yihexbZXqBg8LcjFQn
i1Ho+N8oknDjwGU55PWlN6OYbY54m3WLg0rn9Bi+o2O4Hf4mdOA9B5Qr9OE1
+eNYd33NEcdsDnz1vv/dVj+OOFePDdRcDjI/jrsRh8ZBNDdI4eav6KdEby8V
pYJKaK0RqOTg7J2Z+T5nKswT+YTV2zlYT3Zs9pObwJ9FFx77/+bAWCg12yaO
hmya/Cvxo1w0acev3TPMxL2EcAeKBReJ93c+1VlmwtmKvSXHkotDYV4sU4WV
HZSX5x2z5WLcW5ncZLeyo+hztQ+duEi+ZuRv2M+Cq95LnsgNLtrDi64+HWRD
+a6E6Zo0Lpy995e7zHKxpB+0rvsdF1GvI8p+iE2ilz3alpbJReRb0ZsHFCYR
Y0s8b/KBiymSifaqA5NY1rC6Fl7OxanZhQ2bIicx0BqduKqdiyRiJiFCkofi
iNmL7Z1c6CaK5odv4yF27wX1lB4uNrj1L0Yb8GD+Vjv/IIWLdD/r9urzPJQG
fKsPpXPhfiTCKiWNh2dautGWLC5Sxo4I/SjmwWck3lqJy8WR/Ze7zBt4UDvq
PlT1kwsLZtCM1CQPgvwdqTErOQzfebc/EJjCcMFeN4d5LuYWUhlCklMod0vZ
sXORC2JY1PK9bVN4rig6vbzMxcZUxY6Ne6bwP2xdZuc=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0., 1.139179066283991}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.745258679855135*^9, 3.745258858924403*^9, {3.7452589195026293`*^9, 
   3.7452589475137863`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{707, 504},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 658, 10, 121, "Subsection"],
Cell[1240, 34, 1793, 58, 132, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3070, 97, 508, 8, 104, "Subsection"],
Cell[CellGroupData[{
Cell[3603, 109, 357, 8, 31, "Input"],
Cell[3963, 119, 1451, 32, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5451, 156, 308, 7, 31, "Input"],
Cell[5762, 165, 1405, 31, 150, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7216, 202, 370, 6, 70, "Subsection"],
Cell[CellGroupData[{
Cell[7611, 212, 798, 19, 52, "Input"],
Cell[8412, 233, 33638, 562, 243, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42099, 801, 380, 6, 87, "Subsection"],
Cell[CellGroupData[{
Cell[42504, 811, 792, 19, 52, "Input"],
Cell[43299, 832, 13006, 225, 243, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)