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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    515904,       9983]
NotebookOptionsPosition[    510549,       9810]
NotebookOutlinePosition[    511087,       9831]
CellTagsIndexPosition[    511044,       9828]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dataAKB", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<C:\\\\Users\\\\Natalia \
Morais\\\\MEOCloud\\\\problema10e11\\\\pp_si_vkbofk_new.dat\>\"", ",", 
     "\"\<Table\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxplot", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Position", "[", 
      RowBox[{"dataAKB", ",", "10.`"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataplot", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"dataAKB", ",", "maxplot"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", "dataplot", "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<k\>\"", ",", "\"\<A00\>\""}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.614510676219432*^9, 3.6145106865547805`*^9}, {
  3.6145111062189503`*^9, 3.614511180512627*^9}, {3.6145114778964806`*^9, 
  3.614511478661025*^9}, {3.6145115191698203`*^9, 3.6145115206458654`*^9}, {
  3.614511645819617*^9, 3.614511658815834*^9}, {3.61469691814251*^9, 
  3.6146969182831335`*^9}, {3.614696952958813*^9, 3.6146969533025675`*^9}, {
  3.6146983135705643`*^9, 3.6146983225556726`*^9}, {3.6169983067056217`*^9, 
  3.6169983071519384`*^9}, {3.6181384548728957`*^9, 3.6181384839067764`*^9}, {
  3.618138531145009*^9, 3.6181385333170505`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw92Hk8lPsXB3AzY9+3GeswSyql/VbafE8SFaWVEmkhpU2yRJs10oKSFMku
ijZKJWslWbJEKolUtCP7+pt7nzO/+ee+nphnnu95n88453K3H1jrSBcREWln
iIj8+98jqplmLd4BJD7qj1hJAQOo6wgi5fFix2PBdY5O4I81ObHk6oc/w6n/
/3kSKQb/8jOC6yuX/32lkTteN8t2///3M8mvMwmdRoLrn2v+/Zc7ZOf19Fmy
/39/FjnN0wiszmeA9JtEl0XSD8jPT2vfnMsX3u8h8Wqs1DARXOvbhhb1TMwl
mR/V5nfmCe+fR2ZtruRHCq6TBO9+k1hABu+kF8zME35eIYmxPdH//AkDZv33
Kiap5xbcWftE+PlPiXnvr8q6XAYU90wUfMIz8iagZNbqXOHzlJDwNJ2CwscM
WPvfB74gP1Jc1056LHy+UrJ2YH/JqUcMaPH+94YvyRDzz8DHh8LnLSdOW+jF
BoLrg/8+nksFmSzTMXAgR/j8lST+ygK3tAcMEPnvVUUukTSxt/eF56kirzYa
+4xmM2DZfx9QTWpO2mRpZAvPV01o2yJcJmUx4N9Psw2tIV3dX32n3xOet5Z4
1Sbcm3yXAf8d500tcar3fKV1R3j+18T8kfdVkdsM0P33cXTqyMXRSZ/fZgrr
UUd8Bg/vSs1gwM7/XvXkL7v8166bwvq8IQ4zpebo3GDAv3dTzXxD2liXaSVp
wno1ECezAwo7rjOg99/b9TSQZfWK7K4UYf3eku0+0V8PJTPgv/IsekfqrpaP
b08U1vMdmXBH8tKqBAb893iB74lU4/Y/KXHC+jaSFeZJXztiGVBR/u+rkfAW
r59pcFVY7w8kOy//5MZoBvx3XNUmEn6Hdsn9srD+TcRKXYbpf4kB/93O9iPZ
vu7GHZ+LQo9mUhcapb3/gvA8zaR2w2FR83ChTzNhz2hnqYUKz9dMjC+dFKk5
I/RqIYa5Q3uPhAjP20I6ztMlVIKFfi3ES8b1cFSg8PyfiP0yU2cZf6HnJxL9
JS1gj4+wHp9IS+DY/pxjQt9WMtH6x6tOb2F9Wsmz67Yr1Q4LvVvJ/aRLZya6
C+v1mZhbkpl6rkL/z8RL1f6T7AFh/T6TxRPd4eMeYT98IbPnHv0TvUtYzy+k
+XlPuLGjsD++kAVG3aU124T1/UraV+nNs9gi7JevREK90SfTRlhvwXW8lvGA
lbB/2shH43i2wTph/dtI4uQ/90wthf3URgpLrJKXmQs92skOb8b5GWZCj3Zy
TVxMk7ZE6NFOTLbbfLhvJPRoJ0bGw0fWzhd6fCPdNW0Xa2cLPb4R1dP6ZfNm
CD2+ka4HbY8DDIQe38n3bfsksyYIPb6TPNHZa0p4Qo/v5Nnqv3Py2EKPH+Te
SLxNlLrQ4wfJOx1it0FF6PGD1ImuaemWE3r8JOHPR4M8JIUeP4nzErnut3Sh
x0+i/Njlhc4IHT1+kYauhOsmfXT0+EUWf8kwNO+ko8cvMnp6DnvmDzp6/CZ6
y4OG+j/T0eM36Xl4xetaEx09fpOGieON9Bro6PGHVGgkdZyqpqPHHyJSuWVe
xUs6evwhu6O9C38X09Gjg8zxEpn1O5eO5+kgdRrthmXZdPTpIAO2vBOBmXQ8
Xwcxtky8q51KR68O4nFhr2/YNTqet4NcGnfpSvMlOvp1kGBfu0zZMOH5O0me
j95+1WA6enaS7/yQM30nhPXoJEwbxyfZnnT07SSBsW+zVx0Q1qeTyJ7cbFC0
k47enSRiyeMGhS3CenWR+V+nuM3dQEf/LtJyx+qhoYWwfl1Eb/5qB5UldOyH
LnLSLXtmyTxhPbvIjtT01nXT6dgfXWSX1te5D8cL6/uXBEg/7OzVpmO//CWl
bWp1sirCev8ltYqJqYOSdOyfv+TGt8zpBaM0rP9fUmlmMc+um4b99Jd8M1p9
pvobDT26yf2Ftr3aH2no0U0sH39ZSl7T0KOb/GhZZG5YSkOPbmIoc7lBIo+G
Ht3kK4tVlHGXhh7dRCnq2Qf9VBp6dJMDzbcZR6Np6NFDNrQ3yyWF0tCjh0wY
cGiI96ehRw8pt9602N2Thh49JDTw10SdPTT06CEiGc4HY7bQ0KOHmHrNG/uz
hoYevaRhVnuO+lIaevSSgxumB7EMaejRS+bNH17/bRINPXrJ1OV7FcLZNPTo
JQ+cG5PlFGno0UuyvrVL2dNp6NFHvhsfmhbYLYIefUTnXYqsz1cR9OgjHP+R
y5YNIujRRyamL6n5WyqCHn2EdzTm7t7HIujRR+RaA+c/uimCHv2kSL1xT+NV
EfToJ5vMP6yoPSeCHv1k+I1BU+wJEfToJwWB9VOJiwh69BN17zXLsraKoEc/
2VjnZzi6WgQ9+knZ1gIF9mIR9Bggbz/XNCvOEEGPAfLCsL/gLUcEPQZI9vIv
JZ6KIugxQJ4mherWj40RymOAsCpDnZ2axgjlMUAao5RvJeaOEcpjkFhbb5p+
+soYoTwGyfnUuDk6h8cI5TFIzh7kKdhtGCOUxyAZPsSSXTZzjFAeg6TQ7l7A
R/kxQnkMkuCgqXX8H6OE8hgiW+xytzBLRgnlMUSmLQ0NykoYJZTHEDH7UP+I
dnyUUB5DJDU/b9fIxlFCeQwRVcu94tdnjRLKY4iceDksR5cfJZTHMAm+7Tcq
0z5CKI9h4rmNbvu8cIRQHsNkqsaBWzOiRwjlMUzmtaScXOU2QiiPYaK2ar8b
e+UIoTyGiV7vHsVreiOE8hgmjAn8vtqRYUJ5jJDJeb9Lc+uGCeUxQsRgaKpN
xjChPEaIFIHqmwHDhPIYIUpG3luzNw+jxwjp28APd5s5jB4jJL50j/YPyWH0
GCWmjjMLND4OoccouSw9bETLHkKPURK06od9QsgQeoyS19EPfo/YD6HHKJkZ
kfhYdfYQegjqfPBQdJvUEHqMkR0zdjh5Ng2ixxh5WK418vTuIHqMkeG460bV
JwfRY4y8mbxX+arNIHoI3BNUd+hPHUSPMXLhXaiuJ20QPUQgfdrY/KDXA3ge
QV+Pv3HTJnUAfUSgYVLvgS6vATyfCOzbZBlgaTGAXiKwcLHeL1dB31PnFQGP
gDd37Dr60U8EgjTTPigW9eP5RaB//Z0TZy/0o6cIrFlYkf7aoR/rIQLxq8Lc
22b3o68IGEnNHnwu3o/1EYFni85auQlyTnkL3v+u80ZHah/WiwaT4mbqLjrc
h/40APvABptlfVg/GjSvd2eYq/dhP9Bg+YPqSvn2XqwnDdKmxexNfdCL/UGD
T8F9SqygXqyv4HvfhNm32aoX+4UGxtF8a2+9Xqw3DRgKC1xcu3uwf2iQ7mHu
v7S4B+tPg0v7pV53h/dgP9Eg5s67675be9CDDpZWxSt+Te1BDzrYnVojNm+k
Gz3okG0ZMn5nWTd60MFkWt2o++Vu9KBD9LT25t1O3ehBh+P297hLZnejBx3E
VC3UGYxu9KDDqawG9o2qv+hBh3fLj5xdGPsXPehQf2Ph05w9f9GDDnuW9nG4
8/6iBx2qExeLeor/RQ86DE3cVPW4tgs9GJCuK/utI64LPRhwYkLSPbX9XejB
AIXlVZEzFnShh2Bu7T83SCS70IMBv8TUl5nUdaIHA17oPf9GEjrRgwF3DGnm
/xzoRA8G0GZPaOAt7EQPwdx4wGNUVqoTPRjgv613cnddB3owoDF926u3CR3o
wYBDQ/Ib8w90oIcoZDe/m52ysAM9RKHVS/FtqFQHeojCnKUpDkM3/6CHKHBG
5R0/mf5BD1GQ8Pa6+Kb5N3qIgu3JyQ0fvH+jhyhkWTso9AvmRMpDFHyiprH1
b/1CD1Gw2DK39dDyX+ghChscI43ft/5ED1FYrHtDa/vxn+ghClMDv62U0fiJ
HqJQuDfzwdt7P9BDDObbKM2pWvUDPcRAkeQkdX77jh5isPV82gcI/I4eYjCl
VPdhAec7eojBsmBbObfcb+ghBnPrj2TabfyGHmJg7GK236e7HT3EQGqejPbH
sHb0EAPGuF0BR6e0o4cYVE/XP7j5ZRt6iIH4SrW0405t6CEGeUUVf9pF29BD
HK4WhIpdTfiKHuKw44V26lX4ih7iYHns5NlfTV/QQxxefBHbH3rsC3qIw61v
1QOB2l/QQxx6l/R8qH38GT3E4aizXvGRzZ/RQxwK115e6TPUih6C+xc3a3+O
bkUPcWibkVuWtrAVPcRBqr37T+2HT+ghDitEZ2s6nviEHuLAXNpSZ8/9hB4S
IC7def15cQt6SMCx46UqMTtb0EMCWlewwj9JtaCHBJzLTr4Yk9GMHhKwaoVx
WLlgL6Y8JGB0oU7tt58f0UMCpkx6ITF97kf0kIC1rus8XPya0EMCJqTvLb1V
+QE9JGCJ6cbYLq0P6CF4v1VGwCLnRvSQgG2uyqMRD9+jhySk80eOjUi9Rw9J
0BU9uPvI5nfoIQk5l/NYKplv0UMSZn4wrXhBe4sekvBYc9GzOKsG9JCEisPO
E67dfIMekpC256/sC8Yb9JCEgGz2CV3bevSQhFuX1T3TsuvQQxJsS59+2K1Y
hx6SMLzw+GmHva/RQxIq77WZXS2tRQ9JSH37oFRtYi16SAGjOfD+m6Aa9JAC
m7CohOb2avSQgn90chTnmFejhxTEyI4efJ9ZhR5SoDcrTe+1ShV6SMFJ5c+d
pt2V6CEF61kFKy8XV6CHFDizjG8nXyxHDymIm1e81NW5DD2k4NaMlUwx45fo
IQURc9aKOGiXoocUdNEciyIGStBDGrZO7+mIefscPaTh6zK5Id/cZ+ghDRvt
1PSXJzxFD2kIrr4a0xdSjB7SMOTNXH3eowg9pGHnyussHcdC9JCG7d5j0des
CtBDGvbVTnkxJzIPPaRhznTdyMmBueghDSK64tLjvR+hhzTcP1CwYKp7DnpI
g3pAUJe5x330kAa9J3eTTh7LQg8ZUIrx8PwSchc9ZODo0C2jA7G30UMGxMJ2
D6x3yUAPGbicZP50/u009JCB++RSdPRwMnrIwJX09ii/DQnoIQMOy4/s6Ha/
ih4yYL3n3H51m0j0kIHTYZM3Sdw6hx4yMOuQi+25Rh/0kAHdur13J7dtQg8Z
sF195MFNe7d8ykMWQuSyMkJ2B+VTHrKgUmFao2B4Pp/ykIVSybbB/PiofMpD
FjRDjA6Vd8bmUx6yYFp06jwrIiGf8pCFkVXucfsSkvMpD1lI1I6JbU+8nk95
yMKfJa3OgVE38ikPWWistQo09snMpzxkQYrXHBSacTuf8pCFrsXhO8+q3s2n
PGTBUTdcUcv9Xj7lIQu1to8k5r3Kyqc85GDVphh2O+9+PuUhB/7z+Yf0XR7k
Ux5yUFm86PDo/Zx8ykMOpJieP3b1PcynPORg+auIt84zHudTHnKw6/f4q+KO
ufmUhxwYWKk2GZ1/kk95yEFek0E462FePuUhBwtXJPWFvc3PpzzkgMYwf9Xg
VZBPechBlP7iaXmMwnzKQw7miW3J8A4pRA95CNjg6qMoX4Qe8jCDMUHU71wR
esjDvXNZOdUyxeghD6Hl543pJ4vRQx7mBE9wZo0Uo4e8wNNDS+ngU/SQh8bp
Lxx7Wp6ihzxMZlgdeW75DD0E18m/bgc9eoYe8tAgfunYQt5z9JAHXXND7/aT
z9FDHmIfztgW2v4cPQTPkzsmN9usBD0UILim/uiHhBL0UICUs/NfnhkqQQ8F
eB57ZabZmhfooQAizDYlpaQX6KEAVfp6rb//vkAPBXj9lw5foBQ9BD/ftKu5
P6QUPRRg/k/xK1NrStFDAS6ot9ufZr1EDwUIuj+wWHXjS/RQgK11l/ZWRr5E
DwUwYKlNzK95iR6KQK+1aPghU4bnUYTFKszhTcZl6KMIXyzqDRQ8yvB8isAs
F9dRSi1DL0W433YrxrGuDM+rCMn3f5xTppWjnyKEPXD6y55UjudXhB0Gn5vP
ri5HT0VQ8c8M3OVWjvVQBMtxnAlZF8vRVxF8/DS5nlnlWB9FaC06/uVBVTl6
K8KZ8rSho9/LsV6K0Cv9a6ycVoH+inDImpGYyarA+ilCx7bTaRP1K7AfFGFK
t/ePxfMqsJ6K8OZK5DqaWQX2hyI8bP/ctG9tBdZXEQ7U8mLOba7AflGEshjD
G87bK7DeirDZKn2hlFMF9o8iXLCWCz+4uwLrLzivlmd/uuCa6idF2BLdWZ0r
+H3KQwmacr+HZO6oQA8l2CKaGhtkV4EeSvDO5tZFyw0V6KEEHb1LxeTNK9BD
CR79qj730qgCPZRAymPtxzPTK9BDCcZ9rMy05VSghxIkrX+av1i+Aj2UYIJk
VNOSQaGHEmyLFm9x/iz0UIKYxIjkvHKhhxIUq4wqm90TeihBW36KmmyU0EMJ
slXk0phHytFDCVbUzy3eY1uOHkrgvE9/F2thOXooQdeFtdfYmuXooQT6c2nu
p3rL0ENJ8Pfu9cC26jL0EJzHZKbxrfQy9FACYpbl6OVXhh5KEHU54fiLjWXo
Ifi8DIe0pCll6KEEHpw+BotWhh5KsL1he8a4WmE+lGHCzxnPGhJfoocy8Fa2
Oc8/9BI9lGEf6/CTNYtfoocyHLJ8+m68/Ev0UIajmQofC9+Woocy+NKOfp6U
VIoeynD+VDDdeV8peihDT+KplUGzS9FDGV6U6deHDAu/LwQ/f992/WjRC/RQ
htYPFyscgoTfH8oQMe69qbn5C/RQhgKn+0qG8i/QQxn6msbGzaoqQQ9lcNb+
7WISXoIegvP+E9t0aE0JeijD7Y5Iy1LFEvRQhraH665avHqOHspwZHtllNjZ
5+ihDHY9ktLDy4Xfp8qg/C361lzx5+ihDF+8wKig8Bl6KEMNfefWq0efoYcy
3LXOza6f8ww9lOHjh7KaQx1P0UMFBhsC4GjaU/RQgQv+b470bXuKHirAiDbv
+anxFD1UQG1ppKJDdTF6qEDFP4bjHIKL0UMFZs5henUbCf/eqMBSA9YK7Z4i
9FCBBdrPiz+lF6GHCuzr72RYbi1CDxX4GGapsYtZhB4qMH0LmzH7ZSF6qIB0
Q8Xt3OOF6KECR8+k08RnFaKHCmjM8Xuq1laAHirg+nHNg/4rBeihAhnK3Sdv
rSpADxXQlKqqNKYXoIcKnGlXmeG6Jx89VOD1mYMPZtTkoYcKOCyZPlRlmIce
KjBRLjDe9toT9FCB3wHV+i1iT9BDBRQXqv9y3puLHipwYNibLV77GD1UwCsp
61nevMfooQrDtNgXcXGP0EMVfLfean4g8Qg9VMGNdfaawoGH6KEKs5ZG7rtX
n4MeqpB6wvVUplEOeqhC/IF0CdnUB+ihCk+2kZp6hQfooQoSV82va3jdRw9V
yA+KY3/8lI0eqtBwad+VGSuz0UMVOkK/22jlZKGHKtyWFDuQws9CD1W4ZKr0
qDH0HnqoQuJ1366S4bvooQrHR2LiDzrfRQ9V2P2G8Fsb7qCHKmQ9j0nWW3YH
PVRBeVBE3zjnNnqogkV43InF+rfRQxVqPz67snHOLfRQhTM/diqwtDPRQxWG
4u58L2NkoIcqhM68Zhvy6wZ6qELOiaVzt71NRw9V6P16/bd9SRp6MGHjSu+o
iw+uowcTFvF6fyimp6IHE4Kjbi1ujk1BDyaIK5y4oBSZjB5MGPy4++jd0CT0
YEJgaZhh1elE9GBCA3dCsmdIAnowQd7FC7JPx6MHE1RrOvUvhsahBxMqe5ea
mBpcQw8muEx9z6wzuooeTDgxUfnVT6to9GBCjuTxhwlul9GDCawr4ttloi6h
BxMiZdwvzy+8iB5MsPIpcVvScQE9BM8z+nKlod559GDCSHFi8aStYejBBBvp
Zg9r47PoIbhWaiqMrDqFHkzILDq0auaek+jBBCnlKRfMlP3RgwkxYV+mfzl9
Aj2Y0Lb7YXe0rBd6MOEf9qq6Lymu6MGCTbPKSz9n70IPFqQeDU58mLgRPVjw
IHLchCZGZx7lwYLtPpIyUXetcV9kwaLRNb5115xw32JBUFdvzPWog7g/sqC8
sPNcgakn7l8sUN0sYcR6dxT3SRbMLncYNdP3xX2MBbcXFGyTafDH/ZIFZ3aO
qJp7ncT9jAVPpDVmjMqewn2TBZLDQ+rsC6dxX2OBxPEdHvEy53D/ZAHzlYPW
kgVhuL+xYOk05tPW3eG4j7JgyuJC5zvh53GfYwF/Yu22G3cv4H7KgrOl7yOr
yyNwv2PB8eiCsHHNF3FfZUFWPWN/8s9I3PdYsMfr26cNXZdwf2XBYfXQuYad
Ubj/saBCRcfU8ttl3GdZYCBaejj23RXcz9VgUldbif6zaNxv1UB0S+eDnusx
uK+rAe1jgLXEyau476rB+QGrRQ62seihBgsK9U4qG1xDDzU44p1Ro95zDT3U
4P68fF7+5jj0UINfe90g+WEceqiB7GeHGmPVePRQg4LCmeNj9sSjhxqEpOs8
z86PRw81WH/ii2eEYgJ6qMGn1pQFi7YI92c1WGlfsiL7egJ6qEEcq5JF70hA
DzW48nvBMv1/EtFDDabe3PdkunsieqjBctahUzr3EtFDDfLNP3T1/0pEDzV4
0xrn+lwvCT3UYILn17tnbZLQQw0SiurPbjiThB5qMHuah6ze4yT0UIPv5/Y6
MtqS0EMNziY1D/UpJKOHOgypzt0iPScZPdQhPqjbxHhTMnqoA6P8UHiqVzJ6
qIPBlJcWxpeS0UMdui4Gp2jeTUYPdVBe5f/X8GUyeqhD66obN5M/JqOHOlxy
erVvd1cyeqiDiP2h7jP0FPRQh/efz+loKKaghzoEf935jaWVgh7qwLPY4BLK
T0EPdfBcdenHaf0U9FCHwXKtW8wpKeihDo8S1+jPmZqCHuqw0GmwpdcgBT3U
4VhQ7+FtgvdTHuqQfVA7+YTg/pSHOqz4Kj5rs+DzKQ91SM9qY4wKno/yUIcP
151kXUVT0EMd4pbtX1fYk4we6tD8l9HZ8zkZPdQhona8nGZNMnqoAylJb5r7
ROihAZkPldM3pQg9NODc5v0Fp84KPTSgrNH4eI2r0EMDVslvX2FkJfTQAOL7
JuLNXKGHBhx9V153XU3ooQGV47zO5PYkoYcGnDg9uohdk4QeGrC8aadb3c0k
9NCAGyvOPPkTmIQeGvDLSyndwy4JPTTAunV1udusJPTQAA7b+kG3RBJ6aIC+
QfuIyPtE9NCAyfX7ZyTdTEQPDdg5TrSl/agwH4Lz3HOLemsuzIcGzJ+97KOP
hjAfGqBc9Hzuty8J6KEBt0/L6bDvJKCHBvhtZUlMOJKAHhrwYHKdvZJJAnpo
wCNF0zNfZRLQQwPM1oR+vV0Tjx4akOqkmecdFY8emnB97SOrVXbx6KEJWcvK
2mZz49FDE27vtote8DkOPTQhQ2rn2d0pceihCVXT2l+WOsWhhyYMqUxcs3Ni
HHpowlx6o8b5qmvooQkM+e33+lZdQw9NKNWupCmVx6KHJvQpu7t2msWihyaY
N6Wa3yy6ih6acOrV1hvrF15FD03YNiU3cCQrBj00IV/vQeJDgxj00ITowob4
6MRo9NCE80mtv7M1otFDE/4ZjXipGXoFPTRBKsPFpJFxBT00IX0oeL7s4cvo
oQmhoes25v6IQg9NiDh1mjm6JQo9NEHeSC/7U7Xw74cm5DzRMTlicgk9NKEy
+FpUw/1I9NCExOX1q2X0I9FDC3ofK9Twoy+ihxZIbq03myl3ET204GrU9wTT
ExHooQWWZwOjXDovoIcW1Cu5xOfvuIAeWnA2d+GAcf159NCCv8O+V6WWn0cP
Lege0V7Jyw1HDy2QWX8sKHpaOHpoQacx/Yx/Yhh6aEGNmPGmdrUw9NCCOevZ
m25phKKHFkw+4k/PEz2HHlpA+36Bo9Z5Bj20gOex6trrptPooQWa9562KlSG
oIcWzEq0LGvJO4UeWmAUk5u+/U4wemjBLgPvlenJQeihBTHh9J5X0SfRQwt+
zNbc+P1CIHpoweaQ9QkK5wLQQwu0VwQd2hDijx5aEHDK9GNVsB96aAHzcc7e
yFO+6KENmV1SrEdnfNBDGw4v2h8WO+4EemiD9t26Z9X/HEMPbYh5k+Ayc8UR
9NAGmYy3Gp8dvNBDG5zLLKZJBXqihzYsHclkFKe7o4c2MFN9K2fUH0IPbWha
f/ymm4QremhDuPzsuDQjF/TQBh95+3Hv+/aihzYsUDZOzDm+Gz204ezqyElc
5Z3ooQ1/Hsf3m93djh7aYM2UW5CbtwU9tIFnYDE8btZG9NAGo+jUm/yiNeih
DY+yf33TbDBFD21Bv1e/L3/6D3oI3q9X+ruiWA7nXW0o5hYfOPp8Ac672nC/
138p8+5ynHcFz5OxQ4KbtBbnXW2Irf7mnrJ2I8672jBubce8HZ/tcN5lQ/gN
58bwm9tw3mWD+lS5f2w3OuC8ywaFmRafvHt24v7BBlV6iN47/924f7BhoW/R
nF2Mvbh/sKHl0LKlTLf9uH+wIbH+Tc43ZxfcP9ggIrHCwTziIO4fbHjVUBg7
6b4r7h9s4J7rXutfdQj3Dzbw8hI2rW11w/2DDb/dsz0u/nbH/YMNRQ/ircy7
PHD/YIOhvPbpQ789cf9gg5fM0WD51sO4f7Ch1WRLArvKC/cPNsSZxEomZnvj
/sEGkyOrn8ZfOIL7BxuI7OIstvNR3D/YIGM9dkpr3jH0YMM8R9bzOJHj6MGG
RTKTsu8VHEcPNqQFrt272Uu4f7DBkdz7ZMn0QQ82jPMZzDBx9kEPHRjcmPE0
7LEPeuiAZdCl6fOkfNFDB5KHhqyWrPNFDx2IZQb2Zl32RQ8deBZ/US+i0Rc9
dKDUxHZ1m5YfeuhA1tevc7Kt/dBDB758dv4hGuaHHjrwU0e56sNTP/QQ/L71
zotmvX7ooQMT5CcYrhjnjx46MC3LcezXKn/00IFVx+55L/DwRw8dUGCI+Cy4
4o8eOvDP7Zv6fY/80UMHusaXv/Zs8EcPHQjWKdcp6fJHDx1oMXjV+lsqAD10
YGut18IBdgB66ECmr9rRjqkB6KEDtrtjpn5cGIAeOuBldYRVZRaAHjowy2ts
UqVlAHrogJHC2MXP6wPQQwdcZ0rd1bEOQA9deKlqJRlsFYAeujCX8XOVwboA
9NCF5PjQnWorA9BDF3rGZ23cYBKAHrogHVq8ocswAD104Xzqj7uDkwLQQxcW
edi1e2sGoIcuTPwwOfSERAB66ILpbD97pqAelIcuhD98MHX5O3/00AWVYvJr
QoHQQxeyng8m5SUKPXRhfvh4T81AoYcufGGeubLMQeihC0qLMjZZLRZ66EKk
/yvFNdpCD8H7w7YYmPb4oYcumMkWjV9S7oceulA01n1yQ7wfeuiCVPrmphA3
P/QQvF95bUnHUj/00AWGgl5rBNMPPQTnl4lqCGj1RQ9dsE7+s6byli966EKw
ot3QcW9f9OCAtMdu36QlvtR5xDjAMlAOtZDxRR8OrDa1Lg+o9qHOp8ABB/uL
jTaRPujFAfGyCtvGTT7UeTU40P3E9BNL2wf9OPB3LKVz2qMT1Pn5HLjT/8z4
3bwT6MmB57Iy8WYPjlP1mCq4v/vtt+dnHkdfDvge2xddf+MYVR9DDly/ueDQ
FP4x9ObApSSRl3ei8PvEmAPyFutajskeRX8OvFZVrb5x/AhVPwsOrG/NC9jw
xxv7gQMu04JzIrZ4U/W0FjzfAZc+v3Iv7A8O6JpIRc2b50XVdxsHXFuCH1Un
HcZ+4cCJ/NWmDgqHqXrv4cBe9TVtUl6e2D8c0PYnsu9bPKj6u3NgxpI3rX+W
e2A/cQDSTTZvveNOefgI7j/moWWi7o79xQHLw1eD7h53ozxCOBBuGfOo6PMh
7DcOFATkBZ5ecYjyiOBA2UP7/fzbrth/gvtHWN+MY7pSHrEc+B42NEHjyEHs
Rw44F1cdTmh2oTyuC55/8bXWNaYu2J8cyJd4fOfwxgOUxz0OcFY+/fpz3H7s
Vw48Oh/7a2LXXsrjCQdklXVj1hfswf7lwMD7DaqXQp0pjxIO9Fh3FrK27sZ+
5kAmt916YMYuyqOaAzX6kRU7xJywvzmg3mRr5/3OkfJo5ICRV6vv1jsO2O8c
uFHu0m0YsoPy+MqBuBuj6XqO27H/OSDz+X69mfE2yqND4Kl9tSWfuxXzwAGf
UysabSS2UB6DgvPPmJq2pWoz5oMLdvO0TUtiN2E+uHBvwHTOK1drzAcXJOws
d9yy2ID54MLFc2Wa1wzWYT64UFccJ/taeQ3mgwtVgbUXRMdWYj4E998YfzLn
y3LMBxdm53mG6b1bivngwlNvP9n0xsWYDy6IWGjoGr9fgPngQvyzlbVPNf/B
fHAhIUH0vHTnRMyH4PNnd7CiXqtgPrgw1ca1sc2dgfMcF0y/W57TduRT86kF
F06yqrvy6qbjfMeFQXsS9fzNXGpeteaC5MM9K/k5RjjvcUGHs7zG4LExNb9u
E/z+EFk7KGmK85/g+ea5NBsvXU7Ns3u40D3f3rnmgAXOg1y4WrVL7nCwJTXf
unNB6tc1SX+zNTgfCuqR9qHreuFaat714cKMOHO5KzPX47zIhVfjVKeaXNlA
zb8hXFin//t+ZL8Vzo9cMHMLCfdbuZGahyO44NdRazAYtQnnSS5sgkSvznc2
1HwcywWvrsltdiq2OF9yYcVGvv0cYztqXr7OhWkabsaHnLbgvMmFgHQdR3l/
e2p+vseF+lbZQN8VW3H+5MK+2o9/Uiq3UvP0E4E3W/RY78ptOI9yIVZ3cvuB
F9sojxIuVItYRKsYbcd9gQukYUnGp8ztlEc1FzIqu5qaNHfg/sCFc1evRUn7
7aA8GrkgX9bWtuvzDtwnuCA3OHZ0ZLED5fGVC/rzu1PLrzjgfsGFU6ruVu9/
O1AeHVzQ1D2tOM3IEfcNLoRavOmpCHakPAa5UHay9HFepSPuHzzI6rNLk1TE
+V2MB7vcpl+8Z7ET9xEepJF1n0oCdlIeCjzInLT32Kqcnbif8GD8gMnb1W07
KQ8NHkjtj/rZoOSE+woP6Lx5UzvnOlEefB40zYg6n7TJCfcXHuiZKASPejhR
HlN5EDjXqVs6TPj/i3nw9uSuGfVJTpSHIQ+Gji2T2pfthPsND+zU1mU1FjpR
HsY8MEn8/XrmSyfMBw9mh7i6Hat0wnzwwHYoQ6RMcE3lgwf2s5PNJpU5YT54
ECHW45Ze7IT54MGbYSK/OccJ88GDPzPEOszTnDAfPLiUPH3F2UgnzAcPVu0w
vDrNxwnzwYNC6yX3l+x0wnzwYLcx/+a7ZU6YDx4Mek5uFJvohPngwTS12K/1
DCfMBw9EY+xv2DeiRwgPfm+xMbt7Bz1CeWB2okehxR89Injgv2pi+Oha9LjM
g7kvbE6xdXdiPgQ/X7/w6+p2R8wHD5jqokU3Mh0xHzwoG3hkv9jVEfPBg+PF
GyfqzXLEfPDgvdWMVOdOB8wHD7aP/BOkl+GA+eABw+Z76O6dDpgPHhTsz4lf
wXbAfPDgzs/x9xqrd2A+eLC3N6tiVsAOzAcPFlxbKOPwjzAfPDhbqHHe99N2
zAcPeuZrXog7tx3zwYOLRUlL6wy3Yz540NkT+GVWyzbMh+A61+dWVdA2zAcP
LPpfN+UbbMN88MAmwTadWbUV88ED7/Dti78e3Ir54MP3gAOlS5W3Yj748OfA
UHbYdnvMBx+kF9aMMmK3YD4Ev7/8zGa5N3aYDz5MKKkKey1nh/ngw67f6rN9
jW0xH3zYmTr9xnz3zZgPPugbh7AnpthgPvjg4S7m5VK3CfPBhz2HT+2az9iE
+eDDRnvl1TenbcR88KHwQviynzbWmA8+lNdkaXICrTAffFiW/Hz+vswNmA8+
HI/QetZfvx7zwYeaPRaH20bXYT748CLY467d+HWYD8F512nvO7FyLeaDD3F9
hw1d3NZgPvgwaXiW4bro1ZgPPjzb528UGWCJ+eCD+SIzm+6alZgPPnwLDF8n
yrPAfPChxGR3saTrCswHH+h3ZcyWFC/DfPDhB7/Zq5tphvngg/KY4a/Nzksx
H3xQU9nGzylYgvkQfF7W7NOmGsaYDz4U3GjzXOIGmA8+BMt7LnyduAjzwYc7
J1q0vjnMx3zwYRanevNcg7mYDz70Zs7aO3VwFuaDD9GvEzYteDUd88GHD7WX
/MKtJ2M++KDJV718jKOH+eCDzcDcC7LdbMwHH55WeFa2liphPvjg9FFplpxi
nxGVDz7MVDsgccilP4/KBx9CRK5Eytcp4XzFhxvJTbX7Hdk4X/HhodXC9V2O
43C+4kNuAe17GGMSzld8EJcxcuoMmYbzFR+mrE/PeHxsJs5XfIhYcK156aTZ
OF8J+nNwy5HKl3NxvuJDZ2eLo4L9fJyvxgE3Ze7iZ18X5v8Pc757YQ==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"k\"", TraditionalForm], 
    FormBox["\"A00\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 10.}, {-0.229787226983, 2.469129606604}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.614510653425202*^9, 3.614510687875716*^9, {3.61451110803724*^9, 
   3.6145111812641597`*^9}, 3.614511479185396*^9, 3.6145115211752405`*^9, {
   3.614511651628736*^9, 3.6145116621101675`*^9}, 3.614514031918688*^9, 
   3.614514635263484*^9, 3.614515097489208*^9, 3.6145152502195387`*^9, 
   3.6145153874107924`*^9, {3.6145156516110983`*^9, 3.614515661235976*^9}, 
   3.61451616400501*^9, 3.6145786462992597`*^9, 3.6145844767082787`*^9, 
   3.6145979080092816`*^9, 3.6145980531712055`*^9, 3.6146855030765305`*^9, {
   3.616998294113685*^9, 3.616998307839447*^9}, 3.618140349041602*^9, 
   3.618142575527997*^9, 3.619272998343547*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"interAKBk", "=", 
   RowBox[{"Interpolation", "[", "dataAKB", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"interAKBk", "[", "k", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.01", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<k\>\"", ",", "\"\<A00\>\""}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6145980345630116`*^9, 3.6145980707716656`*^9}, {
  3.618138500892555*^9, 3.618138502048955*^9}, {3.6181385363484974`*^9, 
  3.6181385435366554`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVl3k41N8Xxy0pWQdhbMPMSCSREhL3qIiIqCyJ7CNR3xZr2SeKFrRIKLsW
UrYiucq+jKXIkhQhKdkjxO/z++vzvJ577znnnvM+5/NcqvMZSzcONjY2Xk42
tv9/B5c+ZS4HMhFLZ5irrpITDj+e9LR7G41efPcyqibY+Wk4+XNELHp9805b
JcGSHNcv8uXcIvbrPCgn+L1NQr9O413UOKP94iXB0flp+qfGE9Fd7L2+gOA9
a3Mz75NSkHBOQfZTgoO2fuIclkhFoiGTVzIJ7rF1LL70NA3NffiXn0ywxuVh
9w26GShte5LUbYLjnnuSc1sykW98UlM0weOfJhr2OmYjhnEXDiXYeJ3PxU9T
OSgtf3Heh+As9cUt5yMeI0/RmvOeBLM7hPTziD5F75t5tzsQXFp0VX+X1jP0
yuJO4F6Cxb4KzLQ35COL3cYcGv9f5zrwvijvOcqNUGjeSLDottYIU1SAhA/1
ynMRXFUbd5zMXYhuxK0UzGBOOHv8iMZQWyHqaCwLGyCYFdUzctG5GCWfcv9S
RvBFmWS8X7kE/bno6Z1NsFKhwz2R2RI0Wq69K47gy/3fjJ9efoXoJ87dcCVY
V+N3bu+j1yjR5LsQB8G/Gp9fzj5bjhw66qK+V3DCfcfzDud2vUFCIlJazQT/
iVkQ5GmuQAb8Dga3CLY+G1aaPF+JyqS2sJEJ3lo+mMVx/C06Lvxx5/wbTuBa
ty/eo/It+s/UOb2T4MLktad2XH2HPM8j0ViCBetjpJslq9GXP0cPL5Vzwojw
OLd6SDViyZKkOgh+Y282l/CtGm0L1hbKJfjUDKnFJbcGWZTOMW0JrqPcDVnS
rUNNx8L+e/KaE0J8Ugc3OzWiGz87A+hlnDBaQ3/J0dKIGqwDtcZKOcFSLCem
d1cTsvNOHs8nWP5l3o7oDc2o4qK2hhbB9QtlkT/qWOjFmirB3a84YZuxnt3b
HS2o4FK29eJLIh+Jb1UT01oQL068+pJg71313UYXW9EHzkNZWwleX+EpeiSh
DdnesbsmWMIJeu65q5jVhrY+4PhTXcwJ5wR+/1Be0466PgnuDiC4z+FsBefZ
diTIkrPqL+KEZ6t+jMID79GzNWdv3C8k4tW/XCq88gGtGzvi2POcEyJ/1GYE
7+hAKsZFuRcJfh3HfWPMswPN66iUSBMsPxjj/K6rA72/Ir5wLJ+oV3g877kX
nciu5vNiXR4nJFU/tG937ULq5gbczk84oc1rYL9uUhf6yKiWmXjMCWtE6eqP
27uQ6eTe5kCCT7tlrw3T60aP7S6OXX/ECbA2L1+N3INqrAy/p2dzwtD+MvbY
pl5kv7v22eV0TvixwzPPcaUXOUZKu6wh+DdV0nbbtk+Imqf8OiyNExaWAp6/
v/sJSW94dNA/lRN4n2ufEHXuQw87kyuOPOAEdXJp+f2Fz6hq58fu+kRO0OQ6
6XFKuR9pWFSVqxG8e5q8YbdDPxrz3SGXcI8TDJv9T32u6kcTs5LHTyRwgm2o
lqTczS+oAJLcPt8m4p399Pp9/Fe0t2Yi7fpNTng3Viikk/sVPf8cZd93gxMM
BmIYGTVfUSGr6qwSwQdadEQuLHxFiWariRXXOOHIoyRPUYcBdG5xMr3jKicw
jttJ2CgNojeRyzZ5EZxwo7rX9zP+hnSV93Ks+nCCv2WvRm33N3QqS+kMmWCn
rz2zz6a+oYbmI7OqFzhhx3L3uVD6EJrUEtC1PUfMo+1dp+lRQ2i1JCvk9mmi
fhkf3E+aDaPOOeWwp+6cILDtw0ZLxjASTunVznLjhPmK90O7QoeR2MO/X5Nd
OaGxt92Zr2AYfZf6OXHZmRPOCLc55IuOoAsRB2v1HDihLKzZaq5vBPU/VmMz
PsoJmYLNov1zI6jmSJij3BFOuJ7S1FEr8B29cIllzllygmNpo+U9+I4UuFT4
Ew8R/TtVb6aT+R3FK7F3VptwwiHHGsOwU6PowmLIt1x9ol/1KnbyL/5AGXH2
5Fxl4n5mtWeERcfQ4JPJGbHNnBBu3/JIXG0MrdF0qw9W5ATKpX5JmvsY0lyn
bWawkROOlq6s7Hw/hpYOtnnnUTihejuqc3zyE6V+MGX/TuKEDMVK66Jj46hn
46nu79McMKlZH1vqM44CfA+in5McoLe/raEidhzdcQrd/vM3B/S6fdVpqB1H
10aGS76OcYBwBptcv/pvFBiU35I2yAHhMvqj63gnUBf76rmAdg5QW+9Unmc/
icrsquM9cjmANx2uGntOIvLAyyPUJxwwskvOath3EsWsQ/hjDgcke32ZkI6d
RIJhbkzNDA7gbrOnX3s3ieoPq15vS+SAr3ePRXtumkKXn4vEOkRyQJz8EZtN
U1PIaMfLx73HOcDrzfaNVf+m0Pl5ExH5YxxgZCUy7cAzjbzrYvpPWnPAStT7
mLv0aZTU9TVuzIIDPH8ewlxW0yjF3XhHpSEH7Ck4qDBUNo2iIiqKy1Q5YBrt
n01lzqBvpQOdX1bYIURCeeVA/AzaqLbvovcSO/DNCHDPPZxB6yT6kv/Ms8Om
7I9Sxq9nUP61QtOlSXY4zue+d2pqBmVwkZVaBtmhrpsZr39iFnGKZGjdq2GH
5LPv1Aa151BgRzZfQRQ7KJlk77q2fw5RCgI+Po1ghxL56H07j86hoI660dQQ
dmjvsrCJ/m8O5V04OXjJjx3W6g2EqOfMofSSGe5ld3b4j4etNXzDH9S3ckZL
zIAdDDJ0vekTf9DfpXqVon9sEGlU/PT68h9kNmnWsfkvG9SObxmbXz+PzHMy
PibPsoGRljSjWX4eZZWrj5/7yQamrEVHn2PzaE2Krd33bjawnH95pK5mHn0Z
TRGfKmADBxP13aeSF9ARvTCnKy5s4DujwFtovIjqztPJld6r6KfSYsBOq0U0
8dxzJ91lFTk6skZLnRdRZyBfcLDNKjJmna+tvLiIXGzOxMvsXUXSOZVhLXmL
6FWQjtiK+CqqOnZs4YfQEnLLmOw+ULmCSO+uD8v1LqHb5GkhRd4V9DR2Ft/w
/IcoKac/vY5eRloqP3ovMdjgmQ5v3I/xBZSidcCpe5kdFOL3Xo/fOYfOlckH
7ormBHdF0VY/5yl00zJqu6s2F+ht8b/fQ/TNVqHjC4VNa8GW0l89PDiIxEZe
2TeFcINhWLHA2U8f0T50r/NiJDdsG/Gxz8z8iM7e8zu45To3XDWrVlvw/oia
D+zUvX6fGwJef55hZ/+IwvILpc2LucFjTXxpmmIn+uX/7NP7MW7wd55WUwv+
gN7xZtr2Hl0P6q2w7L23DXlvu3n0hzIPdLHCd/UGVKMdh5PdFNR5YFFYW/+u
fDVavvDYx0WLB/Y+nr+Q0FqFol9V3fm8jwc8XIrnTipUoUdoobPdngc2vfLc
drjrLRo66GRVdpMH5LNJXo+uVaBjntutY2Z4YGO1gVpXYRGiXQNG/V8eSFGY
uk+WKkI/8g76cbHxApXat+5XeCHyn2IkhPDxwm9ntafGRwrQHf/krvMbeeHX
6lBn41I+aovksjluzQtVGV+2Xu/JRoYZXTYqr3khPCDC0uT9ZeQ+7B419ZYX
ls9zqlsZhqGoTX+Ki+t5gd7ovdQTEoDqn24Q0fvIC5fOKvQJURzQgSILltkU
LyyJ+UTkf7uIzWqa9P/bxAc8EkGNTxTvYevveHPhLT747Wq1b7tmLvZXMrf1
u88HCznL42dV8vC9U/1ROml8UPhjpMmI9gz3TiwPVT3jg5E/UkFfOJ/j4wva
Dzsa+MDvzKegka8vsOP6IpE/q3yQc862VjugGHsoP1rW8uIHG9z+QpNejmk7
3aqunuOHnsyxAzvDyvFnoEX3+vOD9fuzjon95djSKln80mV+yOlBTtcT3uDd
YbHq+AE/+KYMb1XlwFioy9/DoJ0fUEO4qdbnStw8oKF6t4sfpjdH2Dute4sj
f03PjXzmBy3z6+G6297iZXbviCtj/HCVh/+QIPMtHtni9KCJUwBaulabJBXe
4bJw4w6LnQIQHWdpMmBXhS9cX5uUvlsAUntH+faFVWHVe1VOM3sEINL9vYBd
dhXOzNOduG0uAFK9U1uzJ6rwje5tPN0eAlCX6GVcGFyNXbZKgkOSAHS1nvd+
c6MG8/WOPfVkE4ReJd0xA786LMe1OW7POkFoF+PIK7lTh3eonfSVFBCEG/Jf
nd4X1mG7yO/QKCUIMhK39vJO1OEn6kOdSpqC8OHjObsop3q8P+bz6qi3IEgb
b+5k7WzAx0qkhysvCIK72bIZ+6EGfHrArvHeRUGgbt3mMejRgO9q9t42ukrY
3+Kv/iyxAQ99+6j0KFMQDF8n7jk734DDd7cdZnwSBGsqhdma0YjvMgS10aAg
JBfLHp152YifxJtRxH8IQg/fVHtdUyNuH20erf0jCLFxO5IiphtxbOOQnsh6
EiS+eLbVdHcTlnRkbgvhI0HhfK3I0sEmnDlHl/8pSAJVldUDx0804ZdyLuur
xEhw+PeW6J1hTbjfd+DDOXkStIvYmR1624Q9+MJq+zeRQKK8sD6hrQlPp8mV
HlAmAd3C5NCtL014LevEA5o6CTQ3KXnnLDdhFXq/x3tEgndzSxsPbG/GJa+C
7PT2kuBqtoK1FjRjMJMxe2JIgoyGMbc+02Z8JOD49vCDJDglP7p2v1szvtTa
+2+bHQm6n+eN5sY34xnrh/+uO5Cg5ndikmxKM/b86vLvhxMJvF0/55jmNGPr
qV/LaR4kuP+qpPhjWTNuCXix/O8UCbbL/lLeUd2M93H4LtueIUHQe/ERU1Yz
VhdZXRLyJcFTfR6hF/3N+HFS1ZJ3AAne8r38uzzSjOXkryw1XCJB8lSpCNdE
M+bXEFoKiyABlTuZdWClGY9a0RenYkkgUJS+WCDBwie+fP978DYJdn5oIn2X
ZeGPjNy/jxNIEK5+E3o2snCVv8ZfpwckaHmw9duCGgvvYl9ceJNGgl+x1A8K
O1n4+dWKBYksEnAiu04RHRZ+cH//QvtTEmj9x8G3ZR8Lb6DzLajkk2BWRQBb
G7FwzNO2+asFJBiYuBe615SFOXbcmR8uJsFGXb64CXMW9i+3ndcvJUHOf5Oq
xw+z8MQ+ynxKOQlSX/QmX7ViYXfW4J+/mATPUzrI/rYs3Hc058/RKhKUfBMY
2nSchQ/3n/rzopYE7JqpeokOLNzorvaHv5EE1apbPJsdWRgmZudOskhQsD4y
560zC7/0K52raSMBfNqjGeDKwlvZgueoHSSwzL5vN+PGwplX9swFdZEgpuDf
UTUGC0sJrZvr6SWBes0lhpoHC8cnNs1q9JPg5Lr+9zMEc9NiZ+MGSPDlt2Jv
4EkWDnlyZHZ8iASCeSMVNQT/UZeYNR4l/K9zr+4g2Iv4D2X9JAE/B6g8Ivjb
3vQZ9gkSfGSe1wGCjzW7z9hPkyCsvl09hbDfdkR5pnSOBKRbQVaYiGf/54lp
0b8keEb9PZrtzsIVbkXTZ5eJ/Tmnth4h4tf47T/NWiXB0ckEzzoXFs711Z1W
4hQCgcwLX9mI+9NW2acvrxUCl9msDjYiP4lRtVMD64WA4msWU2fPwiRSzJQu
vxBU+M7uP2rHwpH3zKcSSUJQKHjH/IkNC1943D1pIS4ET8yyLJ5asvDPbSmT
eZJCkE7x7rQm6ulc5jS5niIEepu1XjabsLB509jEW3khsBheyiER+qg9nD8h
oygEPXGSe74iFt7dd34iQFkIipS6zAIIPW0eX/69TV0IuI7/6uJWZ+Hftt27
jmgQvGuY20aFhQtqCyN9tYSA6tf0zF+RhbVTPSmv9YTgZICfriqFhY0Odx/c
Z0Ksb0jO8FvHwnyVhYnuZkJg9TmqzIadyOeWm8NXLIRA02w3iX+J6Me1hkEs
ayHYUOBtPznejN1LC3OtXIXguKjN+5z2ZrxZ4eaCP0MIhhPrtio1NuPf8Z77
kjyFoEzb/V7Iu2bs40Xt+/KfECTdKr2UW9CMmbI3eU8GEfujdUb54ppx+mVP
z4t3heCZw0KolCFhf9qgJCVRCN4PuYmv303YP0HlqEwWgsCM866t25rxC63u
xDUZQlDlcFzwu3Qzrvxp0HA9XwjE9C0oxlPEvLOgKqbWC4Hs4r8/vLeacHrF
8vl3TUKw2YKjNDWyCbsrd+OhFsK//c4RocAmPL7mprVSpxCYmB77L9qxCS+/
XI4sGBCC5Xc3anuVm7AEpXu4elEIyK5VyVvKGzFP0mzl5hUhkIiP2XUytxEv
igslx7ILw6aGC6dCkxtxr9ABy+PcwhC6n1mCLjXiZK7yihlRYZAZ1gGeXY2Y
Mv4wgbZNGDZyLFwRym/AtHKGcShDGDRz3iUuhtZjYW2m/IinMARqdtlJe9dj
jpLUVZPTwpCS306l2dbjb/k9xeI+wnBse8FQr1o9zswwoeWHC4OL+A6v9V/q
8KYY1aXPKcIQ+zvuQtLOOrzl2HyuTocwjI6IbLjbUYNPvt7cwegSBvdIbGiC
a3C2tMPSrV5h6J925Jt8XIOpX6qNf30VhgPqZprrQ2qwmGv8SPK4MIwd13YN
VazB7KdV5FbWioBOzplTRf7V+GOYy61KbRGQuYcGsGAVDn3cGmDwUATKFzsy
T8hXYr6ioZuW7hvAfM+puzqlRdiFHHy44OQGMEAv9+hdKcJll8TFhb03gAzl
fJOldRFmGBx40H5+A2SpO/UXzBXidx/zcw+FbQBn9KLdZnsh9v8b2GCWvAFm
tsW5Xil4gYf0hDhN3m+A1x9enr54OQ+XN+j67tUThdhih5UBn3TsKPz78kl9
UZBNDQg6uikdr7F7cOfmPlEY9d3Bw92Thk1+rRR9OiAKLwv7S5V103CvQOXM
eWtR8H39TdSPOxUvHN5zNvM/UfhlKWLQZpWEd/QbenFliMLBhyUTRcbxuFth
/qJytihoCv/dkvwmDl86kxNj8VgU+HJFGjeox+EqNu6nKfmioH55XLxcOhZb
0ht+aJSLgobhRf6BqRj8n4cJw71TFJxHhSdy70fgvGlz57p1YvDksLrD6g0H
HGyiz76NVwzuqnU+iLezwmaZ6qn3BcQgkMN5byjDFP8+KtrvLSoGauW+vSs3
ZZFaaa/tBroYxH3dwFT45ogKQtwsnPSI9ZZq9bFGP/SK7yIsXRADzqbGxLty
0eiKm9cXV38xyDW5IxU2H41sK+yDWy6Kgd6mP8ujzTFo8QyUp4WLQXXRz7+q
568jnQ9cWkaxYqDI/MbeZBWLKhJjVe88FYOXGddPfvC6haoUsimqg2KQH7nO
2W1dIgo9V954ZVgMCtdeL5WxTUR6Fe99B0fFYPS5DI/0k0T06uhqy50JMag4
85P7p/F9lMu0CVleFgNj9Q+WH0OT0N1Bnq8N4uKwco7+lKs5BR3eSr1GlxIH
x54EH1XhB4gUqKkVRBGHF9Nrf6RZP0AxQq6xahvFoehSforT1wcoFN5Agro4
pLVWjln+eIg8H5xJcz0oDoc/Pli5/ysVbRq7fLDikDjs5nnwnZMnDQ1pJP8V
PyIO3akauiKb0tAJVr1F0zFxGDZIeb/RMQ0dWaZyqHuIQ82JlY2yLWlI91iH
82q4OBjcvNF8JTEdLWaNCdhGioPg8qvnXi/S0aspttcFV8VB/rBHy9/6dKR+
VUXEPVYcnhi1XCbNpyOFV5FVzSniIKywGKphnoFIYtry91+Jw9Ut49PXJjKQ
pKG7dNlrcYgyuGf6lS0Tyfve2tBbIQ68dXTaT6FMpP1xfI1kjThkCkyxKW7P
RM5304cT28VBV4E1vfdcJvKqbf1c2iEOlz8xom3CMpHvn+XOni5xULp/aYtC
bCaKsbKulegXh8+tWfbjuZmoSIwvJ3FMHEzVDHS3fctEFYbaD0vHxeFOydiw
yGQmqvd1T+iZFAep7Br9F8uZ6PPHyiiJeXG4dYdrUlo0C61N8PFI5CRDsNRf
jYo9WYhUl+5YupYMD3o4r106mIUk51ttetaTIXHpmdW8dRbaar3ZWIJEho2i
uVvoXlnIWvyLUqI0GR6deH3gWFwWct7PRyuVJYPLj7J0jvtZyMtPW7KHRgaD
5eZ9J9OzUGjXLR4JJTKwdLTszxVkoeh1bzm0t5AhcnGXiWhZFrqt+XvRRpUM
sTokf7+3WehRgtHPexpkELPxjQhszUIFdT7fXmmRQc0w57PUxyxUPp/+qVuH
DKq6C6eD+rJQu/W/JvIeMhgz/FTDR7NQX9Tmai0DMixYberf+DsLjby0Lrcx
IkOtDLMyeiYLLYoX5N4zI4PObBkl8V8WWmP0JfOVBRk8e99L7+XIRgL+fCnd
R8hQYjlolr82G5Efad9ZsCaDpt/l+c882Yje7X6dbEeGxxq7bVoFstFW7tuX
tRzIkPT6wosI4WykpfU2yMaJDE7GiQZLotnI9J7U6XsMMsx05ihqSGcjq3oj
91eeZLi+ELE0T8lGjgs+Dt3exP2l/oiEULORp2KG1cJ/ZPi+62dRIz0b+di0
mZEvEPFrR8l92piNQq/8M9TyI0ONSHvS803ZxHt9M7IJJMMWkyxPE6VsdHvU
WtM/iAxXyztan27ORg/Il1XvhRLsnEt6r5yNOm1mSpYiyMR7aH9165ZsxJfo
pHciigxDFr8qrqpkoz09rTXvoslg93ijLdvWbBQgoXdQ4QYZyrI//txO8HPb
3I6rccR9IalFnuCRRMnj47eJ824Nxz4Q52V6r3w7dI8MP95vHEMEH5Gc9yxK
IkOc7+5OT8JfzDG3afGHZBiwV/A9QsTz7v6HgIvpZIgwDN70j4h/oVef/UsW
oUf+4j1uitlIVer5lT2PCb3Gp9CuK2QjdzsKKTuXDN0JyTQf+WyUnHQtYf1z
MmRILSfL0LLRh0+LFO9CMlg9RuORstmIR/pkdlsJGZ5ejD7zgsi//vEulR1l
ZOhonAlOkchG/skGxQlvyDDMkeNnIpaNhqVp1Q7VZLjVb5zwm6ivtH2sybs6
MkD2Z98hov6WKSvvNzaR4Y1GUUEKoY9KmU8Dv9rJkOq+q8CO0NO8vfHJQ51k
oG933ea0QPTPg5eThd1kGDUQD1cm9JdMub0a+IUMhv1XSSRCr36yB2XWjxP6
qNXcQSf0/uzE60yvSTIwqm7F2dZnoaGHSlvaZoj8zNwptib6w1JurU7CIqGH
Lz2sXKKftlKxzUZuCXhC53xVHZ+F3JxUvl7hlYDZjYYVe6MJf2lJjF8CEtAX
4Xv1elgWWk/z9y0UlYA09uCp8DOEfdq22/p0CeB4mpa4apSFpFweSmUpSBDz
29/uix7hL4M/g3uzBGDmmh/XdmQhTB970aomARHv6L8sZbPQffmMVns9CTCt
LNS5M52JDimI8gbaSkDP8Bp/I2J+dRy4359xXAJgZeirMDMT2ZyRLWCdkIA7
c5pdJX6Z6MQrJVuquwTcTLj19JpDJjp9QC+n/pwExGQY5flvzkTXTzP2il+T
gB3+jaMJrzNQY0npxaIKCdiYefevXE06MvukZ97/VgLyF59delmUjt6vVtG4
ayTAhJ4cvC0zHfUYtTTYNUlAwhVZ7fbwdDTaOyjO2S0BNqOS9Hq9dLRulbfI
YkoC8la8TLtfpKF9+x1+/aZLguIz7uepkamo2IGbxb1JEjZZ1DU+PJ+KFHwL
8mibJcF8V3btNcdUtC5r7RkrNUnoFpm7tG1XKmrkyJ96s1sS+Ie11ex6HiLz
itU/145Kwrp3Q8F2KQ/QMY00duUoSThu/4riIJSMztCHxBhjkuAR2KNlXnsX
VfA8E6p6KwWapL8Svs8j0SOx56yRainYfv5P6oETkSieVnCVp14K+E0+F5sJ
RCLGrhJ2yxYp0OcvER31uoxInhVTX3ulgKK00e3sFiZybmhpX5mRAhuFcG1G
cRhae2UibpeCNPiPOX9jDQegyVtTBx2UpOGolqhstkUA6n04sz58izRYXoZC
9gp/lP9yPqxBXRpGZj0SDe/5IZvvq2dtkDRoRHJspx32QU8MSZa+NtLwpirl
zq/B/5A51zbhgmhpaNum+tJ2wBG5Uy/YS9yQBjFDTdnBGyfQJd2Xj0LjpOFX
us+jOXt79MRHF5nfI86b7TjcvcYWrR0x9vqVJQ32Si7C330OofJa51qFt9Kg
+D1z4u6W7orNV24HJs1Lg535OT7moAPWz+yq4ViShiHGsQnKMUdsUykp5Lki
DST+wnRHfSd8eSE1R4tLhnif9zcI8Lrgrx55HZ3CMiAseWVyNdodJxjXbiVt
lYHQUr/bd3Z74zW8C4NMVxloQM97PF5cwB68loEFDBmo4a07eY/LBzfz5gp9
9ZSB6UHZbn5bH3ybzxF0zsrAHjdv7cZ/PpguUJ8yFSQDMQphElf0/PAeoXs2
DgkyULB/9rxESgDOFpqeiLkvA8XVzMPZwwGYR9g0qjRFBvI+GlkGqATidmG2
kg2ZMtC2wic3XRaIHTd4iDQ9l4HlRp2H21gXcYi4Votmowz83Ep5wtUahAfF
493cWDLwZMtO4OQLxobkX8vxbTIgNu2pbWwUjAUkUpV/f5QBi7hMg/yKYPxA
kvtq5jcZOF//uvJHeggul+neK/SPiOc410JOZiiWo6h/0mOjgKKAhJX/m1DM
pFw758VJgfuSUXO/O0OxqSyk1a2nwIs1mY9bucLwJ7lHK0FiFKhQ4fzPxSkM
L9L9S8dUKVBy4fzu5XXh2ER83p57OwXSK8+9GJYMx8k8vhwKOykgJMJ6dlEl
HOtOnTdx2k3YM75DfmYRjkMrznzuMqLA+1taoH43HLe/+B02Z0KBwcNZzy9n
h2NalreCiDkFhq1OWkaVhOOqmFNnzI5SgPQf35q7neF4rS2DvcaJAjFZrk7f
BSOwtelI1qArsU77fq1AJgI/Qm4H2Dwo0McIKlFRjsDGCi63dE5ToEtg9O8O
gwh8bcZhY0EgBQxvLAre8InAfSOfG1qDKFAffGDhS2gEVuk9fno8lAKS9ae7
vsVE4JbKYy8VoyjwYfhACEdaBBa6YWX88BYFRoojK9LrIrBzWOd4+V0KnNhc
lh7TFoELLhyJ702kgNm29kTFngh8xM7yk2gqBZyOPfgQ8iMCZ5q1h2zPoMAh
Md2cXVMReE7/kLxFNgUKWpnZTxYi8F1FM+9ruRQofD1s/nQtE3+XYgk9yadA
tldN9G5+JtYSNC2pKyD8lf4QZYowcc+c8SpHKQUebo04oCnLxJt/1GfIlVNg
C0s+KkOeiQP79hvpYQqYKhnp1ykxsXSVQVxADQVAf9pu53Ym9i6p1kiop4D3
7t6j4ZpMXPF4b29REwWs2C6yRekwsUDKu+D3LRQ4qfs2Zx9i4hOx+vTJdgrw
1i7ef72HiZ9HVNbxd1JA95jy5l8GTMzmh7yUuykwkx+U8dGIiS08K0jGnyhA
Jg8dvWjCxOn2usXu/RRYOXr+Vu9BJp45VG7LHKAAMyYod9acifft01lJG6LA
ucvFEw0WTHxbsywdf6fAlJj4i2OHmXh4s/b+z2MU4OqO2JNzhIl3Ul79XByn
gEi+5Gz+USaOFNKMJU9RoC6bR9LHiom71pTs2DlLge+Na7jnCVZc2NFzeJ4C
27xlSDutmThraZaveJHQr7aViirBtNUiEFuhwLVoH9deYn8qh88FP3ZZUKAY
yGkRLLNW41H3GllwMZpsNiL83V8/90mbWxayeoV7+Ih4yPzFgkm8sqB2TvoF
05KJ75B89i4LyMK6m/Hvnh9iYuENGn72wrJgxIoMijNj4pvic08qRGWh2G3B
fJMpE/NJFffLSsiC6MVXj84ZM3E0xUc4TFoWVFvR3/OGTLyOpmE4KCsLCWcF
XijvZWLmxrmAvXRZCDmpAfeJ+nAoFedlKsjCvfxAiUqifsuqGqIMFVm4hO1O
byfqHbB9zqheTRbkPHRbw7Yy8Z+dxZeUdshCidmzPVcJfUzpagz93CULnwTv
qdRQmPi0/pz4QT1ZqI59e32RzMS/9hWbPNOXhRdU7tYxYSYeMdEo/M+I8O9x
uvkfFxO7ms+NtJvIgiNX9VnqagQesCyW3G4uC35GCy3shL77bDXC547KQurd
majF0QjcztCwCHSRhavD8fPdRD+ZnZpjfnKXhcssTeuJigjcfLr41W5PIr6P
LzbVFkfgWh8NudX/iPwV+bG/TI/A5REaExHBsiCb9v1DQUAE1o6aow2HEfEW
/F7tOR2BS6KLrQwvy4LXmz8na1wi8Is4jQrua7Jglnv165hpBM5+qHH9eqIs
rJyJbg+SjsD0jLnK38my4NEyb99BzJfU7OJZ81RZeLLsxjHDEYGT8jSOC+fI
wvztH+HRo+E49rWGckKRLCyP7vmn+iIcB3ZpNKS2ysLODyTyO61wvA/zGde/
l4WY2kGOEaVwLJjzrX6iUxYM3I+yfyXmZaZvXL1enyx8uRXYbr0chlmi43V9
o7LAGDjx2+lNGCZttnThY5eDYJyaoq0Vhp091jsbScrBmjw59XcioXh/3yy1
T0oO+M49iT7NFoq3HPo6cEZGDoZ0GryWekLwH82XTglycmCS4at1LSYEx6xz
cxpRkAN/7WSTDb+CcVF2pSNzuxwEKYV+884IwmuH/U5UmspB4KF5pcLJQMwx
wPndx0wOyobS/K5WBuJ/fTdPKx+Sg0W85aBWbCCe7cgJuntYDk42iJ2gqwbi
wequJK9jchArExxrfCoAv8nU7CZ7yEFR4XhIzmc/fMF1/tDZCDl4cNOTyU/8
fwe++e6hlcnBrdOqXoWXvbCl7Z221tdywHR9pxxI9cLVLYUOQW/kYFyoJdL+
zSn8qHQysLtSDt4omyWFzHni/256Ft6ok4O0P9e6rBgn8couB/mlDjmYs3gH
AZbuWDreYG3HhBxgjYGBo+aO+MY619thU3Igavnsy7HBE5gtKJymOiMHDx/3
2ccrnMBDDKwX/UcOHH1MpDKe2+Onutp+8E8OUo9KN0Q1HcO7fmwZzeWhApWr
/7IK5Si2gQ2NlzdS4UpFr8jAlX14cpNesNgmKrBXvE2POLQXXxX0UM9RpMKt
BEV8SWIPLut/fb9emQqfy5KDFh0QlgpyOcWrToXg1Q/P/3Zp4P7SAr44PSpY
Kr2zlojjwa7bLcyTranwKCupTyMQoWXJi5wqtlS4viNlZUctoDscWS/fHKNC
h+uqXhFLH9W2L8h+safCLj+y/6euvWjTf6mTVFcqxB5qk0jt3o/Gcificv6j
wm2tD+MF0ebojMKNjoKrVBB65oaWP1ghyl2bQ24xVMgjbUtzMLRGzVz0ZvHr
VKgSuav+6qU12jz8supSLBVqT3BPmSXYoKGMgQLDBCrMiaR9/Gd8DB2jasT1
ZlJBr1m+an2QPeKOW+W7nk2FjarndfL67dFLtsYr6BEVLKoPbNiDHNCGrw6h
mU+psOkZbUzvnwNqfXDlzOkCKgxzVwHsdET7pPsOclQS+bmVws91zQlNx2Q3
FL2lQsMjmWDbIieUtvSfAaOKCtZ393zf2OeEVnq5dJtrqUB6K1OnsNkZlSaq
brnLosLX++FcjdgZeaxfzDFqJdaDm4O/fHNGYgHV9KU2Kpy+I+Xhvc4FXbCx
lXLsoMLEeffeaVMXtFU8gmfzJyr0le50zml3QZ8jD0b29RH+uEf0IqZc0LU/
4hw3+6lwqfONXzfJFf3ozP07M0CFn98snkwcdEWZtz+OvhmlwrzGlYLOt65I
QnhzncUfKnDnnYvKjXVDv2dWPb7PUyE6it7wKNsNVXd28gT9pcK6i8t31Mvd
0OnEMLNHy1RwPFWSPTHsht7J9XSucNBAWHpMSGyHO0rgyPe7vYYG1gat80xD
d+Q1xJTYvJYGs/t37ouwcUfij9Tsj66nQY3GMF31IrGuemXoqSANVDtuXTR5
7Y70hRwi9YVocMiBh67b6I7EZrYrdgnTIFRc2qOy2x1Vlnw5xSFGg8+2T2Yu
zbqjO/eK+e+J04DLrbGjhJ2BPANj8lUkaKA07HI1QoCBRPU0Z2ykaeC5Kyn9
owIDjcny3/ktQ4PtNsvP7dUZqJL9206mLA3eyUd1+esS52tuBObTaBBwv6nG
y5KBUI6rtIE8DdrUnXcbHmegDVd3VfRupIFXmaB8sRsDVZiOsK9VooFLzuHy
I34MdGtreUbSZho8uGAvHRnCQB6keINtW2gQnuvtYBbFQLrTjO+1KjRYadv1
Ne8GAwl36F49rkqDJC6xpcw7DPS9WER5Wo0GcYoFwjuSGag84UdzlDoNZPM1
rtqlMxDD7g6pUIPIZ7QZySePgXbrniow0iRY5+BPRgFhT1b/SL8WDQokf+bP
lhD22MT/nN9Fg/HolbdSrwl7g78S1u+mwUcuz2ufKxgorvqd9kNdYj2Oy3fX
OwZyz773aQeiwd++gUH1GgbSuXI6qBFokNjUrV9XxyDee/tkHffQwMzl1L/5
BgYaNpF8O7eXBmfV+i/WNDFQmcqkc4wBDTZPz6mosRgoVrB2DXU/DeyM6sO0
WhjIbSopu8SIBhOlxQP9BO/6cNbI9AAN4kcuVtBbCfvF+8cGTGiwtl4+eh3B
w3dlrvkdpAHNdG1hNLG/zH9Ghd+ciPfCz8d5hP2bxxpa0w/R4JZH5tB/zQzk
uvvhWS1LGjSwe3V2NDKQNsVHpOUwDWz0tcd76hlIgM2k2OUoDUqcbLNCaxno
24Cc9V8rGhyfij/fUMVAr6r+LNywoUHL2ncNRZUMdCOr+b78MULPIV/oe98w
kEtU+u4yOxrIV11YvFDKQM8GeYb329NgMGZTkmMxAy3qnr/e6UAD7eBxzdnn
DGSY+EnDxZEG/xIfG6jlMlD87N7+SScaNG1y3Cmaw0D95rmRwS406JpXCc5I
YyClpxtU+dxoIM136M6nJEKfTsMhmzxoQHa4zWVyk4H43hxULD5J5NMn/mDE
FQayJpe07TlFg5/yR/UZYQz0uyWS6nCaBvYdg+t2nGMg6d2KVbcv0EDHcSjk
tzmhx4TYUzRfGnyRunY+zpCBCqcXRJ770YDHd2Tk224GOvC4wbUpkAbNZVym
iYoMFCB2ai1HGA12heZ9OrzsjqrPfnh2M5wGau2ZBaGT7ojE0rGWYRJ8xWWd
05A7ehTB90grigbTAzNb9Jrc0cfJPOMz14l+4hOr8L/jjmimYtPLN2jQt/tc
nXmUO/LOCb4fHUvs/3aY0e/vjtY4mP/MukXkV3X8srydO9reNHmtL5EGRmfe
/HSWdkexWdvbjLNpkHtOYqtsvBvqY0v278qhwQ23r9L5IW5o0/E1VLfHNHjo
56246uWGKoQ7z4bm0gCSS98OGLqhXyG+Ii8LiPlg+Otg5bwrMj5WaiWPif7T
H/9rb+aKnui+q/1QSdSnZF2j6U5XxEdt2hnxjtBb5Z6PizKuqO17n9hgDQ1G
7WcDE365IBsftq6HzcR9tvmvjES6IEbsfmupXhqYml9KDHnujC7XdloLz9HA
9zDX+vQ+RzTyuL/u7R8avD6xI7XvjSMyuv5d8+wCDUhN0gHjDxwR35G/4m1L
NNh06E7rbUdHdHtAuvs6Bx30E8XMpatPoIxlF5v1JDqUhjkYJJTbo7fq0zZs
ynTg/3bjeHOYLeq9va4/6yYdfgwWJF5h34NsJS4YMuLoUNha5zr1nz7qTvn6
TPEWHW4/41LI/gqoM7s05OldOqiuTTNfDEOo7dUp6osUOtzTO3PfgFcH1fS1
upY/pcO3hL/a9/XV0XP5ez/f19Hh+HltfuVXc3qqj9ccud1Ah2tLrpXuFzv1
nqmcLT/aRAdFw93+v9uGK57uPHC9u4UOpmyOVRtSuXC20fLW/k465C6b6zlV
SeIkL8dzP77RwVXWMGn68xYsOdXc+2SYDgen+VDr2634no/2Xq/vdGj9lWsY
YqGG7wYLb5gYo4NKsjLjwVZ1HBtbXTw7RQdyWczZ/d0aWFB0G6VkhvCfTlfc
gnfiG4kpkX5zdEgpGEtIz9TEMem+1osLdDjq/lxJ+5Q25tn0Db9epANru9j8
YdNd+MpTc8WgZTos/NlzYk5ZB69TK4/VW6HDvNa+QUme3TiySPHv6iodrE8a
jb4d2Y3/B1RRvf4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"k\"", TraditionalForm], 
    FormBox["\"A00\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6145116648801355`*^9, 3.614514031973728*^9, 3.6145146360290213`*^9, 
   3.6145150975482497`*^9, 3.61451525027454*^9, 3.614515387466831*^9, {
   3.6145156516681576`*^9, 3.61451566128998*^9}, 3.614516164057028*^9, 
   3.614578649908825*^9, 3.614584477114564*^9, 3.614597909421282*^9, {
   3.614598039333393*^9, 3.6145980711229334`*^9}, 3.6146855039514914`*^9, 
   3.616998311802261*^9, 3.618140349104103*^9, 3.6181425757155013`*^9, 
   3.6192730006751804`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNW3uMnFUVvzuv3T5YCwItUOzSghSqpaW2bJfyxlJRsCrSKlpZG9ftH0RS
Gx+Jfzh/GGKiMfyhxJgJEkOMJmqMMICxvoipUZIJIaEqlVoqDLZIi5W2FnGc
3zn3+c09937tJiJhv87ce97n3HPOvd+dWyZ3TH/irskd27ZOjt20ffLu6W1b
Pz22/lPb+0PVIaWGbldK/XFM4XOv/1E/ev3/e5vwUOoM+qfam5qaok/0h+f1
/0fzNP1GS/V5etZW7Ou+cuevO/u/+MNf/umRrzz4u+ov7nngt6r23W/8oIOh
6Z2/3ze+Z/+hnTKhz/AYoO779sNPde/66s/6EFuaD6v67s9+/VegZ/72br/3
56pGc1Uw+9xPHt+z9IWDR9RjMvkd9Bze+MTuF3c1W78B8rGtX3oEAkK4sYOH
jqph1gWkNu966nmIAdYV5oSPAF1w+Mhx1S76YTsNNIALEYECFYAw79VjJ0aZ
PdhgqPOFbz7uiwCt1UOy9Gt4THVaUwrj+KvQs6qa7a6FW8Vs7n5017MgjT98
Hjnx2uuq12kR7OksKUSBhoCBKJAa1lnMRlDddtOy6qOtpeF6/9lV7aaTotXp
qSu0dDzXUp3+t4om4yRuqna3N5rX0XAAZR6rQ/4f3fu9JyAnHE4uqBh4rRe+
Md0GLA694QHgwNzw6CKeJpSpVseyhq59duN6Gl+dVTuqNUU6sTCzAzUJBNSa
bdUNP58mqzruu1PLscq5xUQH4trIV4t4+81sHaw7LAmg4F98V+d7usCSPU/Y
Pg1fVWuJbls106oKlkmoutbzkmG0kmMDqkLeQ9Nf/ikir2JDzBK2zl3AcwAz
1rGqnqd18a3peXWtjkSSAJHI7rkioaIzmJ1LqDihVfQxL3MqIgihIlJkzcgC
U0MOVu/chHbnaKsQ9VbLLjxoahelIWcisD+3mubmsg7tzqm4ktRcI6wZWLuv
raeo8SUUbfhu5wyiFia0nJ/mMu5PDy411nWOc/FUdnWqhEOtyoVcp1GXs8pI
MtDDqDzihYExrF6FRZVNTj4rkmv72k/Ec6dLs259nHya3cYYYI9CiPS/4cln
Dixzkpr6iMBF8Ua2/U6OYPVrDz72NLBQ3hSbqHHt7r0vmbwNRqg3iJQHZGrT
PAY5gAWqOl9Qbb3/Wz9+0lQsVAIEz/0ytU+66ISboBkU12USikFBkzyhMESk
aqxXNVChBv7UmfSscjnVLG7wfEirn9fiEAVZVKgp5wETP5CE3TsCZ6AlgEAm
XiAUxoFyCVMEBqTBsKpAC1W/5/s7/+D3STCUWszdCziZcdWgZxXGBCZhz6dn
1aeh5jAc8TDSzy7o22lRxA2xE5Bv+v/11b0Gj2FvTZikVZHdNbfk2GkzwI2N
aZ2wik1HhvnRGYtYxxgSBboPmBtu0G3tiGlrYXjEMdxJfai2IEs1y49AgGHK
tNlAR/yoBnfKCHCMYdkAhkSqAHMmJpsJ7hwvAlrt/tJ44yNA9xJm/WHVw0UE
U9blCyNjun8BLawY4yNyeZ1XIe3YdKZRNXhqhCaGzYRZpkAEAWoByYFnz0Dj
mLSys9za1t3hkOyvicjYxTwG0aESZY95ETgus8NI61AQhcPErLEd20jVUURM
pjL7STaLqtLOz9B8W0kZg7Ds+P6LqrmVx8DKJAj19CmRgCYgQVuYZzxwgv44
A5nqR97fI9OcZH8hkpFM8IfPWYwqGhAwACP1Zxn8Th6DsAhZCK+ezYIj+0BH
5NMU+MccdYBTrd+bBTfUyYI+OEFvidD8i0xzS4RmAvyjEer7suBmm03UE+Af
iVB/LgseyP5c0R53RGjul2neEaGZAP9whPpfs+AmM1B8JMA/xGMIaRQ5SgjP
Z8GRG2xs58GRcelACd98cILezEDINKCJdaNekGluDhc5SkEKfFNoPsSJ6mbB
0aJZ82lwndAK2wCN2d8umA2QhomdHVUiHG93HsD6p2T8ouYo7saqBNAIDmbw
pxNlVeZD7Y1xneMjbFVNc+nzISVqoP1B516qtvgWkozs8n3R/U1kQnTNB86w
EfK3nOhMSB91NPsg3qa+JjNB3bHL0jFJ+sEcqHFANCLEbwujEG2qOqCJ16Nh
Vdfi+8eRZi5mo9si6/6AHOcfCKMOTa06mAU3RZOCxwcnaA2EHAKatIVL0Hw/
j6H3Bk0sOfVSFpzalz44tSR5cLuk8C0B/j4eQyMF6nRg8vcsOJIQ0iapmgDf
GElCLxfNtzHiwZezNNGQUPuLbwnw96rBLHsoC27OAijLJsBv5TGA2fg+nAU3
ZYSazMNFe9zqsguUpG8JmreESYL6uley4EEVToC/J1wv1KX9IwserJc8OKja
lZMAf3cYTtQSHCmaTwOZNpTC6UiGZgXG/qcMdHNoYwqiPHhgYw3OlVAfnfoH
/ZFK6qW+WOJ+l3MN1iK55lWfS/jWhEnkMnqMAw4YrDdLcEgVJqqfGxg5SJgl
6YqFNZR8g4sUe9R3lDmYF02Fc+sywseZBInLZ9IbODQ+BR9siKS7o0VbuUNb
5jtwaBuLn5t4DCeSNqiPyUGtwYMNRwJ8fSQ6jxfX6vpIgB3P0gziJgH+zkgQ
/CsLHrgzDw7HUBeBbwnwG0Nr0ynDiaI9bgxtTNXnhEzzhtDGdHTwWhbcWJsO
T/Lgxtr0LQF+fWhtamv+nQU31qa2Jg8eWNsHJ+jrQhtTM/O6TPO60NoUTgnw
a0NrU63/Txbc7Dvo4D8PDuVs1U+AX8NjQUXqFe2hgYI61JNpXu0UhMMpnGgm
cUh3dSSmSuLY6xY0nsG5iscQJu71Ncb0sRj/M0uVqatld6hXOfOBpzNfwFOu
siU3qOtCs1OmpJmqzMa8EBzYn9JbgYnQKZRWcxSD0lRue7rO+dEmCJ9NstKW
36BeGbqe3iXRTM1jI9Xa/Bb1ytDL/JbEIy9X2fKb1IkwdTgX1+WI1zjBcWpJ
nKBZGMAhFH13wjTqLn80ZOoaJ+jWczjjYZ6iGkwzw1mcwbSVwNEvsM3WwFl4
JIsT7BQGcAhFQ0Lr0K4J6mtCCzv/zcrioAiEKyqBszq0sPPk7CyOOfOhPiOH
847Qws6Tc7I4Zm3x65QiDqGskvw3V6a+KqTu/JfAuVzik7izcbnEJ4GzUuKT
uD6xUuLj4xDKCon6m2TqKyTqCZzLJD7zsjjBi5ocznIpS/CFQhW9njhLV77k
xjlaUTS74H1ZgZ1/U5DT20nt2t4eLn63KFl7W1T8e2Wlt898n8a+mkMPhc8+
fXs+6915qnr0S26j9SvPwRrE1wNtjR18T3lSG+llYZjxuSXGztT+aEiXt4JD
9XKu0czMPRgXnx6z+OUsc8OuxN760tD/tBmimbPkRXCJcyuSf+BWH42w9FUd
7F3sSSJBni0zWMpj5iiUTmNpZr6Mwy/c6UIahDKvgcuh2QJDmx+aWSDjvDUM
NtfnnSPjXMRjoB9GzrkyzoWsknnxDDvTprWIRlhLnFPMlTbKUhg+T+axJHSP
WzgLZRy+HW0P+l3MnC/jXBDi0J6UZt4i44xJOItknEUSzljRYMzYvkh0kBfI
1Bc6I5tlSZbD8GIZje1Pd+oRl+ZYhSaXyGjs4xo25mjG8UevPzB8oYymr/Zg
f4AjEXBDRLj9wkUyLi9KuhYEEyKKwNbtYi+WcTktDdw7R/GyYbu06AUmRNca
UUzBzFzEp+WP6UtlntwS0JYLPOnERf9UAQ7ibNPTvekymY6+9GN+wQGnYrl5
v3qACVz9XS6T0qkcZrB3JvluIr2sMT+M0GLWzEt98/sNIsINVrybaEjdROa0
wNylVHzbqm5evEFX6OxS32rLXWou0gcG9jplDc/YDSV68i4t2mGIpwYFW9NT
/zAn1UmkzgqoU6FhPmZL9ArljwJ8wXJNQX7nX6SWqvrl9/o+1Vggn/R81Vqy
JBZ93vS//2wvTXh2ZwsNBw1asUUXLpoTaT6DCyLXeJzRRo3Xxdv4wmciv65A
nvpUPy2MWlShn5XGffK8ez8jCH3ps39SJozHSLvE5f3AZWZSz/YyCH4dAnD7
+vLUbW3Iej8J0lEyEAElAkOKRTX0Xy+dSOk=\
\>"]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"model", "[", 
   RowBox[{"k_", ",", "B_", ",", "Rb_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", "4"], " ", "B", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", 
     SuperscriptBox["k", "2"], " ", 
     SuperscriptBox["Rb", "2"]}]], " ", 
   SqrtBox["\[Pi]"], " ", 
   SuperscriptBox["Rb", "3"]}]}]], "Input",
 CellChangeTimes->{{3.6145112045146456`*^9, 3.614511217488844*^9}, {
  3.6145113600899525`*^9, 3.614511360955566*^9}, {3.6146948911410327`*^9, 
  3.6146949096143894`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"dataAKB", ",", 
    RowBox[{"model", "[", 
     RowBox[{"k", ",", "B", ",", "Rb"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "Rb"}], "}"}], ",", "k"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6145113932684774`*^9, 3.6145114428176117`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"B", "\[Rule]", "10.166365109167797`"}], ",", 
   RowBox[{"Rb", "\[Rule]", "0.847163868861284`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6145114440734997`*^9, 3.6145140320327682`*^9, 3.614514637488054*^9, 
   3.6145150976062937`*^9, 3.614515250330578*^9, 3.614515387525853*^9, {
   3.614515651724181*^9, 3.614515661348002*^9}, 3.6145161641130877`*^9, 
   3.6145786508034525`*^9, 3.614584477272676*^9, 3.6145979145388994`*^9, 
   3.6145980797019987`*^9, 3.6146855044516325`*^9, 3.6169983172000732`*^9, 
   3.618140349166603*^9, 3.6181425757623763`*^9, 3.6192730019931126`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"model", "[", 
       RowBox[{"k", ",", "B", ",", "Rb"}], "]"}], "/.", "fit"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"dataplot", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<k\>\"", ",", "\"\<A00\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.614511486279498*^9, 3.614511540107667*^9}, {
  3.614511695689976*^9, 3.614511723735465*^9}, {3.616998340083317*^9, 
  3.6169983523990803`*^9}, {3.618138555257332*^9, 3.618138557882593*^9}, {
  3.619273036835864*^9, 3.6192730432494383`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVlnc4l98bx62PsvdenyFZicx89dx3Q4QySkXDngmJNMyEULKLiJQiokRG
EZFRZkhWhUhGRkKofp/fP8+5Xtd9n/f7nPvcz3UOxd7LwomJgYFBlv75/5gR
ZM+q5hhD9JOFnlt/J+Ed62ndI2Q32Poqcd9ROvftj/Yhky+AScB/LOZ03qbd
fo/942XwVuIb30NnfwMrbhI5CvR7JWfV6fzyyOj5fy434HOtm4w0nRlLns+v
9yZAviOrPzOdZV+uya2uJYOdN8vS6AQJ99bj8WWZVJhqOZ/+is6uLeHxi7vT
4XDqJfcUOsd0v22Yd8mEJ0rytq50PvJjQ9Cy/l2Y580I1Px/vs8j0aXebOji
XH/95xsJLyyZPFt0uw9FYu6qtXSOvji7/+daDli48jQE0/nxZY2wOZk88M94
4v5jnITVrL1Ss08fwa5Fzot36NwRfaF8ZncBMJ22K95H54WE6plJlyKIX/hw
J36MhJdjVOsXA56AloTPQRU6R7eG8i3qPwWGjN9qDV9JmG4uW7DQWwwkubHT
30ZJeD/R7/d81jPYPj34zpvOj3sa9s67lcDQ1YlDv0bo/lZuw7NrpcC7Ev59
dpiEw3aFwjMyFfAh5aZc/mcSTt775zA9UQE6cT3jXHReGDN7OvW0Etp6eXpO
fSIhi/tP48ndL8F6i+IOsSESyvnohH5zeQUyukGGuv0kFO3f43JWtAY2p/GG
n+sjoeSlGa6fATXQV3rw5+OP9POoIo4t6NdC9GMmF+5eEmrtHP411/satnVY
VCZ3kVB3JCrdW68Otmy8n5j/noRE2Lbdc1l1QLHadO9lJwkN3oTFzbrVw8l5
dZeOdhIe3Sen9GPtDQwMJSRXvyPhJfNTtlMyzeBO2ib3/DUJ/4ZpiX2+1gx/
zTbZONWSMOQ54/v3v5uhhdbJwlNDwisSt3ZXdr0F44TANPMqEsaO1ctFRbYA
yd6AK6mMhFkXpGfkZtuhNSCchyefhHwfFi24VDpgpX801SmPhBZe1lsjHTtg
26+ke88fkrDn7qaJi50dEFKooGt4n4T9rC+t7PM7wck9M1Uhg4SjHRN6ajZd
YHLkzLHx6/R6uB8Qy0/uApVnniFjMSR0Zi75JdvSBWFFUf99jiLhhGZwoej2
bojRPXbxdTgJp9OEyAwCPeAxQjUwDCThkuMu5vaGD8AWrRFncYqEbL9vN3uo
9MMR0oqh524S6kT2XTSy64cA/vszc0jvXyERZfmkfvg4rsrpRZCwQS0hdvR3
P8yuZlSd2E6vh/vVg9ZvBiDp+w4KaSsJGQZ9hwyOD0Hx3jzvQDF6fT8/OM+n
/wVUb12fIk+xYMIDffOQk3RuNAfhCRZ8dPqrwqz/F7g53GWwYYwF+9coAy2P
voAmmRY8+IkFdUQzdlzlHQaNwZVXB9+z4JJZItO/gWEgzloc8y9nwTOvg69N
+4yCwKcvzNmhLLjCl/R4IGYUtH6m/KIFsWCQXW7b2/ujsDP8BFv2RRa8xtDJ
m/dhFJLDvmQmnGXBXIKa7KT7FRz2JDXoO7Hgl8r6jE+MY2CwwWzulwELmj1j
K+qIG4dWnset19lZUOV+YmdJ4XdYZJZupYYzo+At1eWa5u+wa9fsGdsQZlyL
aZVs/fodgrM370y7xIxNZze4jolPgma4tQeTDzPa7770VyhyEk6JiFjmnGTG
5BF7JX+bKRCT4D2jo82M6+Rt4dt5Z2DTX8VdBWNMOHbAVfKzzhy82dV4KVGH
CW+KR0jdtf0JzLs3TXj2MuB2n/Ii5pYl+K3bt/X7mb9Q13vbzGvzKlSaMgQw
UtdA7dpfQnTfHwhkMpjXY10Bg3Hdz6pHGFC34gvLQuUifNvyXH9xmhH1RH/x
u7bOw6X1KPWXF5mx1LrC8SD+gA18E26HFEmo4Zdl1rQ0AaRWkgFHFSvyMmkd
bY//Cmttjz0SzmzE2VJFrnD3LzB2pFBMWpodC03m5TPG+uDB0T+vj8uyo333
dMBSax+4Wpl43FZkR0HX/97ZPO+DSevJalFtdlwWuqFvH9kHcyfkHAXM2DGh
oUtLTrEP1h3uFG68zI7ERaFND3w+goB37O6fY+y44OFT4cTTCzuvep5uesyB
+YHzAa3nukG8+POR2BIO1Dlp7X3QrhsWB8x2HXrBgdxCLqWTxt3wYKu6yJcm
DhSn3BTZT+kGzt7lmuVRDrx5D898of9HHzaFCm4W50R3Ix6e/zZ3wam6xBfh
EZyYV88aGzPRCcl/y9l223DhV6uPL9u024Fz8xvPZCcufHU8JueYSDtcMe3s
+naKCyccKo4yL7eBT9b3jGvnufCi/NeJ7OdtcGCX+LYP8VwY5iivQ9FuA9aI
S9Zu9Vz4QuR9HfeOVjjPReTfUODG5Ar7UweOv4NZTSPeka3caMGs7SwO78D5
5GE/DS1uPF3Hcf4f5R0cKvKEvl3c+HdbfJ7gxFtQM8/soh7nxt+aybVufm9h
MolhvTSWG58UtuYXJzXDMck6k8Gf3GjkY7v/5FgjTJ6eXyhd5cafK3FnmJsb
4fwrmdQbjDwo+vQiQ31BI6TYB4zt4uHB1uxrIjd9G+F9rmZQniIP2iyK6oaR
GsFIM7fonB0PDli/fueg3AC6B67z87Xz4OE3HBvfXq+H5swX5ZM9PMiZuKBQ
6VsPR+e/n6wf5MH/ThUE1x2rB7+kvfn+kzxop8kQQlGkx2f+UWaZeLFMzGZ8
Y1MdJKlXVFpK82LLZ8sRv411wFmjNE215EXS4H8f99+uhZFU86bgo7yY50Ba
yQ2vhbKz/vcHj/GibaGkgbh3LdhvrjueYs+LawsFakC/R8pirVvZvHkxf+ik
Z9xcDdifiCqci+ZFygGJXbuMa6B8ddy7uoYXZbI/rY+SqyG2m3O/RD0vKvwz
oHxbrQKHwm0K5xt5cWZ/cBp/TxVw2wcNq7XxovRtW86RKHq8WcgiZ4AXH38z
8Lf59RK4b+1Rv7bEi0Ghk93lXS/ASTP7l5UyHwp+uC3P8bgComOFeAK38uH6
np4/grEVUPjtqnzWNj5kk3wRQ3hVwFKq17FxHT6UsXnrOadWAVf/6tX66POh
SOvdrJbycnjU2Hst5iQfCjA47jVvKYMfVlyyVXF8mHDYVXqE7TnwPwvZ8SWR
D5N9C4af/SgFLc7Fw8w3+bA3z8oqu6sUgqv7o/Zl8KHX8sKGngz6PU/Lne3J
48OhBZ/3seqlsG1614sfr/lwh3F/DTiWgH/QeQvyLz685nLTcKmvGOSnAzgj
V/gw3nQqd1tNMXy0Cm2YWeNDVZdc1+sPikFHM1r3BRM/plhbJ2ecLYaVqdvU
w7z8SPn14cYmnmK4aPVqIUaJH1sf7854YfwUgjRYE5ft+HFTs1FHcEkRqGSz
7z/pxI9KYm80N10tgk88PBveuPKjxoZPVxiOFwFMiVxK8OLHswrhXEdZioAh
W8FhSyA/ViQPcYcfKYTLPPvVHW7x49v8KY+8DY8hfDKxq62NH43V3/OXXX8E
V3rH3q518iOXsQCHrjud67Vfy/fw44YNvcHjex/B5TsDTy4P8KP6gff4guER
BFnQYrUm+DF6ILjL9FwenKssNrzDKIBbHwzJMrvlgmt0Z9VpDQH84cQyHHHq
Abj400rTtAXQKehR0Q+TB+Ds6FfQqCuAmybfb7+k8gAcCbHblJ0CmL4oNMu4
kAN2C7bne/YLYNzOt99qL+aAtfXcth0uAljTuf58OuE+mCjy5HKmCaBeSAHv
ymA2WDV55SpkCOAv4yJHrbpscHbuyN2bJYAad116EvOyISQ7Pi/kgQA6xwXe
yD+XDSXigvmLxQLIpvRx3Yg/GyQ5xAoH39HXy3L5hYrpXZieopYU/BFA9qIf
DR5VmfA7KqykmUEQWc/HOOjGZwKr/NeScWZBvKg1VUY4ZQLZMaeUzC6I3L98
7k1yZcKhwc1lScKCaPCk2bTZ7g68bFGuDNgqiOX6+NlbIAOuP9aqMbETxDXx
W0MT6WkgZytv99hREHmCTO/Mnk2Dan5xJm5XQZTbaFGpYpwGc/5/drd7CuLv
JbP1Q6upcGhXfaN5gCAGNlcG6h5LBcle8/bDNwXx1C6FEdXNt6CA4fQn21ZB
nOBuOM0/ngz6z04G13YIorZYB1deXTJ8cjIjU7sFMbRaQ8f7bjLwvlO3H+0X
xG2NLXjjRDL4Jq+OOU0IIq9DcjXbxyT4T/HqjDuzECrPXeKs7kmEtwfvrftu
F8JYYRep9IV4KA4f6b+tJ4Qld/O+1fTGQ1oZpeI1CGH1EuMPtqp4cJfI8uPd
K4QSzxJJG6/GA9to+o98CyEspWk2FsnEg6FPypeRU0Kown3RJMoyDt7ERdWb
3RHC8isPuZNKrkPB66Zs/7tCmLnmvP9A5HVIWtwQeue+EL5itWI0sL4Ojkcj
dkw/EsIVc8X0BYbrwEIOex5ZJoRknj5fRfNrsKsoILe6QwiP7jl0bHA9Gmpa
va4pMwvjjgCTmUPBV0FDEDlusgpjvtWP/bKHr0KuNW80I7sw/icckb5ty1W4
8e1J5AdeYRSZGH/KPhgJJxkXLodIC2Nz4EJypl4krGv4XujeLowMH25oCrJF
wPb0884B3sL4ccl5frUlDApGDMfGzwrj+tZ2XY78MCAriDma+wujMptyvFlU
GGx8XmEnFySMt7bGw4W9YfCxffV4R4wwnrso/lS37jKcYw48KPtQGNsf3XCD
hlAodg/FliFhTOxOEuj/Egwa9rZNcsPC6PHM77Tao2B4bgVmoV+F8R5NI+7T
2WCoMPxjozUljMZybuY6G4OhRu5CcNaKMHpP2jQPagRB64h3ta+ACHrK88WG
ZQTAhLWtntQ+ETyq7nNEI+8CuFtAvb+JCApeO8nsEnABpvdJm7w3FcGHWifC
h00vwKzO4LHIwyJIZc/2Klg+D0vCRy/NO4jgEds9pbFG54G5y7TyTZAI7h8d
PL7lzzmQNgYdzxIRZC3gfaeS6As/ak/9iS0TwSuNzQV8Z3zhlc6t10WVIuil
ZZ4nb+oLtnLzJvM1IsiSUd49z+EL2Yz37HxbRfCO1FeN75FnYXM5a8zFcREc
eR6rvDXKB1Q3tQ1FiIpiTULv3p1F3sCQvpr9UEIUd/q0bKQlekMn/2bXJmlR
tJhvilP19wYfhpAFtk2iWBzavt4K3lA6oLbhupoo9sz4aok88ALdhGTVRCNR
dFxvU3rB5Am7/x0PywwQRVrt4ZW4ZXfIihb/zhwiioud08eD37jDutDHA65h
otiQd2+gLtEdnisfFFeLFsXZuMfc+9XcQd5639PXN0XRI6bpjbm3G3CWan4e
KxbFgc649OI/LtDtzv2f8ndRLIit53axcALVpXdZcdOiGG5D6qUoOsH10CjW
X7OiuPpKaxeNyQn23mJ5X7Ukitxm9sRKsSOUv1l1NWURw6DP+29/EnGEdPK3
FB8ZMdR7VX5wxw97cPzwaqHcUgzTfujtdXprC7zDb5NHj4qhNGNqrmGBLbyY
6tHhPi6G6qd0LE7G2gI/43SQg70Ycjn5GMoctIVXSqIc3F5i2Hvu5bdPVTYg
HupNc7gqhpGNeILn3wnoVKIc4npBj+sfLt/7xhoCtJSXtavFUJd1cPlKkjXI
79ROs68VQ8biXkFhR2sIOrz/S1mjGFJ3vxpRYbEG5dALHvbdYsgp4/dB2dAK
rn7ovFI2I4bDAw3Z05+OABF6udSOLI6vTFFdfY8lLOul2wXQxPGLZKN3jpQl
PFkp5bopJ46ZCiocVsuHgOb93alFWRx7ZH5WX84/BBttzIS1t4vj1IXPEj3C
h6BLT9qf00Icfz/j2SPz2wJcVyp0ysLEkauvYmPxdzOglHR97YwQx+l3q5lJ
b82g32smbjpKHPP1SQMF+Waw/xv5OyWO7v9y77cATzPY9iEy9Vq6OGqNt+2Q
nTGFP88sV+1KxTGIPyM+nnwAErzmX3B+E0cNY5X3F9qNoBfSN56aFMebG75W
q6YagSSvgWXzjDi+n4fPBxyM4OGT9B/hi+KoWcg5VrWyD17OG1D+MUqgv5jQ
qYPy+2D87J2IeUkJ3LzcplGXagBKe/Z1mZIl8OHa19Q0NwPwFlyUKaRJYMJR
s2Nt2w1grWRfhbuiBJZZfbI3HNgLvEuLU6PaEtjlV9jiS90LuueNzT9YSGD4
s7UM2do9EGy4lKFxWALl6ofWzqXsgXrRu5MJVhIYob59UsJjD5hWLIWZ2krg
xY1Vm4+J7gHH1bvPm05LYGX5JblM390QG7Ai8eKqBJqIFu2s+W8XjITkjGdW
SyBwCDgWMiCc68jwrq+VwJNn9pT8ew3ATk5ZnaiXwL6jUQpC4QDbXkVwb3sn
gVS5mawkdoCwPy5a9b0S6KjwILNDnADZi4oRE3P0/Pu/bt001QPns0Wb1GiS
+PLdQKsPaTusvn5YZCkniX92McUwdutALH/W9osKkli2zBoxna0Dz5/G7a/b
Kok/lSefde/UgQ1zZ/ws9SQxe7IqbTBMG3I9NN5csJTEktQGhd2iWjDlVOH4
OlISn+2/WmIXpA6cb3fdUIyRRMGgzUHch9RBWaWlIiFWEklyu1T5FdXBY+kT
t0OyJObb/SuW6N0G0xEsFcz3JPHBmyCtTZp0fmjKpV8tibyJxqwRDGrAydmn
/bhWEvUy8yItB1RB2dveXuiNJPI9/7HB57kqeOj4lY29k0TvzqonN06rwkxT
ml1EnySy/uGQul29FX58HyttXJTEeYXUQwVZW4D7gNeXrSuS+Lf3T46DzRZQ
KV5hv7UmiXe4RvTuSW8Bz4sctq5MUujW95iv7I4y/GBXY2fjlcIj8+sZgjlK
MKsUcNJISQoPTZgGNTYrwNxp/g2tdlLIk9Wz6u4hBzbm3z3XHKWworw97uYO
OWjTqPmg4CqFZjeezpB55KBg7fSDCE8pjGUWMDJ4tglco5r18ZIUksWjZtv/
ycKX+yFXniVJobwlpRLyaGB69cj08E0p1F/k2jEZTIPqUyqHeG9L4f1/n3d+
O0yD9G2DtNN3pfDqyAHnDyQaHK3RrpMrlEKLnM+u512o0D7wgzGtUQonrlUp
7NtOAeLVG7emt1JY9PKIa48gBQqy0zuXWun+GtqLj+bIEO1mdPdgtxT+yTnU
vDWPDHuXc5BrWArFWih+8VJk+nvsRHDIqhQqvYoKC5GThsJ979adt0jj9FS6
ScEJcVD69OR0uKo0xpm4iuvJiUOuT8qne+rS6Gaw0KE7KwbZt+1qvmyXxqoY
6ZLQy2KQPLMcZr1XGku12RukC0UhIF6W44CNNJ6zVjIZFxWB35vYAzzspVHf
azKJNCFMf1/PTkc7SdPrt3wkskwYvEcr2xpPSeNaxn3boiPC4KBpnrDzvDTy
bTx9IDBdCIz6AsU046WRQzP/0FltQWg87RB9MEkaz1cqqDtxCsIepn1rZ25K
owvnhtOFwwJAKAkOFWZII3W43XLPdQFQC3yUJf9IGpePRc2fmuAHUUrvZsk6
aUwRHq6RKuSDcVdVLeZf0jiQMFdWO8YNs3wPDZxWpHH8yc6B4AxuWKmUsmpc
k0aJTUGqny25gY2LIyCGSQaDh3dQApq4QPnpWK0Arwwq/5gNZS/lhLO/0/bL
Kslg6xNS9/FH7BCQzWcToSKDEtLLIkmn2OGK8VXvCTUZfNtA8z+6hR1SMvwS
C3RksCj6v96wYjao3GnWp7FXBsUbd3TuqdsIDNEkJ307GUyuYnnp+4cV2NQD
zj10lMGZiPb3vxpYgX9wIZLNVQbdxVhMFuJYgaby5VGrpwyyiTTvtpJjhb3v
K+csA2TwB3t5++vDJLgu7h3gfFMGOzROa21uZQbx/P7EyFYZjMj71vKUjRF8
uu6MFHXI4A6B66SAUQZoXrNX+9glg7wpZLVbVQxw3mSqTb5fBnV57RvqfBig
d2aN7e24DN6Z0ZjIr/1HGN3iRlYGMiqkBNqUpvwhzhV4u6QxkvHv04b1uYN/
iOya97EqzGQkn/mv7iXfH2J1ImXoMCsZD0+LqDDcWCfytstceshJxh5rgTzh
uDVi48DW54ZiZNz2Vr4mOv83oTEbPzQoTka9P6/+7jrzm7BlXmQ5I0nXt6dM
XdD+TZQrlR9MlSHjLSuTMps3K4RLAM5/30RG/StxCz/Gl4kGKXPlmG1kTEs6
uYa4RITZ+mS3GpPxGNPAdz39n8TiX8m0sP10PxWd1d1CPwnnjMb47aZkhLHO
kKqxBcKoXzI0x4KMyeYsI8xXFwj+Q402gVZkXDnUzPq6c57IMpCU2uJCRkOX
yONKF+YI/vEGwVFXMm6OuBT01XSOuHLlDGeqOxnH4gbbGTbPES61DWssnnQ9
ifip6oJZQuW/M/2DvmS09O//oHP2B1Gl0nDz2mUyVnU/Iz2hThMqrd43dl0h
o1eQ2MkXA1NE1imJyJVwMkZyGLv7JE8RV3K9zzlGkTHRNMVriH2KMKFKWOrF
kdGxM+V+wJ/vRL+QN/90Bhm9BUK2pDBMEMvrYteNK8h4GV8wXvf9Ssz9NI76
XUnGQuUAQ9j5lZiYDAx/+JKMb3KN5E9zfyX6Pw4HMteQ8bijx27tR6NEdUme
54sGev4dmp3ztxHiisd2M6VuMlaeYKjY7T9MBDqcMunrIWNDkI7NVuNh4px1
hmFkLxlDT379ES4zTLgYMu4c7SdjBO+/aa/mL4SRbLPa7WEyUobj30lSvxC8
g0cFOGbJ6DK/RBZtGSLYuqJ5KubI+F+b0+7TIUME09uXHC4LZPTL+rn5kuYQ
8bOMzFL3i4wOeyoCKu8OEh8SJxYvrpNxsWSZLfXyAJFufP7DJBsF1Tu4db0c
+wj5FzdT38pS0L7qZRHDnR6i6Yx3yTE5CiaGfPPb5N5DuMrva5/eTEEueYNf
tVo9RF7yKguPEgU5w17+PdHZTSh6n/A+qEbBV2OUdhJnN6G0iWYwuIOCoUMG
Y9op74mWgTW700BBM2vzRlu394RHQnfAX6TgF4M97+f13hMF/8KLyXsoKO4H
bwzHOgnl/gkpJyO6Hq1S96luJ6Fyo3Bx5jAFk6wfPD4820606UfyBB+lz++4
YD14t53wXLdR5LWmoHuGipiIZTtR5MZnu+0EBS/c8jqfU9VGqO7xfXfOgYJX
lIa3rqa0Ett+b8/+50XBgOti7Wpu7whNhzemfFEUbBJv/zcb2khI3h/XrY+m
YPbN28andzcSTGMb5PyvUVB2aPdANKmRaHM2Wh+8Qfe/vJKZFdNAOLu35+am
ULAlNCeAM/MNcetMHyPep2CM0fOvd4briKDi1emFHAp2hdr851VQRzj+lPiY
85CuJ/Wrvcm/jlD1O1nIkU/Bna5OTvy8dUTz+VHr3qcUVLpyubN/72tiNXjm
mecrCkrz7KBtbqkhvtRwZ1Jq6edX8i954U4N0cCoGt39moK3StM91X1qiMQw
H1vdBgqW6IrV8IrXEMqRy5ysrRS8FqJN0vxUTZyIZXTO6KfgufitOnPWL4ma
dCHRll8ULNZp10mZKCMOZAxR7JcpSNvz9G9jfhkxkJGjtLJCwdjWIJkbXmXE
0h1NkF2n4NoVnO9deU5suWvpHMBERVdZo79b+J8TaTnJJco8VGQTjx9vOFlC
yD84Uf2al4p+ib9jixRLiNIHm5qO8lPxfqPFlOjyM6LjYenAFSEqZj7ev+oa
/4zY8KiHaUiCirKW/XeH3hUTvoVC5tflqZhx+JauxJGnBFPRkDVNkYql0pLn
whWfEjeKchwrlKioF/My6OTfJ8SjJ5rnx1So6C7N13P04RNiuNgyc4cmFa8a
7zl0f72IOFCWPDOzk4qqJSPay0GPCfkaoegDx6iowNgydoE3j9ATc7o1eJyK
HOONG2935BLmPiUP3E9Sce7FRKpVfC5xUfZgXYQdFaUsptTyBHOJlqtx69Uu
VIyxlqK4Ux8SZ8w5vLb60uMy7U16VjlExCPrwCo/KpoNQdI1ag6Rxvwoxtif
in0P/8w4TN8n6ksNc10uUtHkyEG4H3qfEBaPGM4MoeKmVMNMw+J7ROUIwyHe
61Q8//FmiYBSNtH2n5n9nVgqeiQLlBit3yVGkzK9leOoeKJ7yWyp9S7BaUBc
N0ykorbmGPNDn7uETf6lhpBUKh6W89xpVptFsPgu6cznULGTZcXt2dgdYj9p
Wup9NRX/9Xhc+ANpRO5E2HpoDRXPcrlKTf1KJZhaJAbUXlMxtvqv1r2CVKI8
wfhW/BsqVj7a7O8umUpQyfn85i1U5A8zZZUk3SKWdN03dPRR8UkXbdLidzJh
Js00HjxAxTWCUrxSmUzkM6bVbx2iYv9B56l9gcmEbVNz6I0vVLzVwpL6jTmZ
eGupsH7gGxX3mh7e+lk0ibjjPTHXukhFf+vXfIa2CcTKwZD2wCUqim9uo/Yp
JRAHtUULt6xQsUs0f/vacjyx8a/BqetrVLzNa+45HR9P+MQ8HDNhouHbLbmh
Vi1xhMED5/53PDT8rJEtQJTEEnMDX+uaFWmonHVjQTkrilgIotUeV6bhDsmC
dMVjUcQixb56dgsNZz3fRQ0KRxErLp/LhdRo2Oc3JHA47irBsNj32E6bhrd2
yW72iokkeDnbb/7eTUPV3HO/arLCCf4iruRr+jSsGxG7puUcTghamCTIGNDw
bOTzYX3lcEL0VvM1fSMaFhmvFStVXiHIsvWh8WY0VApbkpwcDCNU9SpOKZyg
IUW113JW7zKx7fOy68uTNGR5/fCxOcdlQuOylrOpLQ2JlY8btPtDCZ2mZ7Z+
DjT02mEXE34hlMBDhZa1bjTU+vT3N1d1CGHmcQ+sztHwcsn+n14vggiv9OsC
UTfo85Ps37R8ukC0MMrOGsXTMK+m0S7wxgVC0aXyLWciDQdrxqjiOy8QX9W+
hcal0NB5Kf0c18PzxNFGnLuZQUNfz4zShEB/YtfCz5YH+TTsf7Jk+93Cj8g8
Ep3r+piGf/PFy5X5/Ij1l+QrikU0dLtrs6DR4UuURe7/r7CYvn/ymnyMmS+h
LPUwr7SChhVfp3P4rM8SwobWEfWNNBy+Qakujj1DnH08ZxfRTMNun5hH+kfP
EB38kTsM39GQe/Z9bAD1DBEz9GzxXRsNxb6ONbWVexMMZ7kcunpomB75r+9e
nxcxmVEDI6M09B7lzEse9iAMmI9I3B+jYaD8g683Ij2I+64zS07faJifsmUq
TcWDsFEXL/w+Se+P4IiBD8GniO6ms5Lz8zR8XPCkMU7FnVBTYV8p/knDSw0X
Ul8MuhGxiVldvr9oePWPutTnGDdi38nW6JUVGnZs8WtjmXElHtQ5OFeu0vBo
0T5rxkxXgkVhdWfAOr0/mgIPTZm7EnaxcVLEXxpe3LyJoYbkSlT/lPv97x9d
P1Q2N6DShfgf81Fs2w==
      "]]}}, {{}, 
    {RGBColor[0.5, 0, 0.5], PointSize[0.006944444444444445], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw92Hk8lPsXB3AzY9+3GeswSyql/VbafE8SFaWVEmkhpU2yRJs10oKSFMku
ijZKJWslWbJEKolUtCP7+pt7nzO/+ee+nphnnu95n88453K3H1jrSBcREWln
iIj8+98jqplmLd4BJD7qj1hJAQOo6wgi5fFix2PBdY5O4I81ObHk6oc/w6n/
/3kSKQb/8jOC6yuX/32lkTteN8t2///3M8mvMwmdRoLrn2v+/Zc7ZOf19Fmy
/39/FjnN0wiszmeA9JtEl0XSD8jPT2vfnMsX3u8h8Wqs1DARXOvbhhb1TMwl
mR/V5nfmCe+fR2ZtruRHCq6TBO9+k1hABu+kF8zME35eIYmxPdH//AkDZv33
Kiap5xbcWftE+PlPiXnvr8q6XAYU90wUfMIz8iagZNbqXOHzlJDwNJ2CwscM
WPvfB74gP1Jc1056LHy+UrJ2YH/JqUcMaPH+94YvyRDzz8DHh8LnLSdOW+jF
BoLrg/8+nksFmSzTMXAgR/j8lST+ygK3tAcMEPnvVUUukTSxt/eF56kirzYa
+4xmM2DZfx9QTWpO2mRpZAvPV01o2yJcJmUx4N9Psw2tIV3dX32n3xOet5Z4
1Sbcm3yXAf8d500tcar3fKV1R3j+18T8kfdVkdsM0P33cXTqyMXRSZ/fZgrr
UUd8Bg/vSs1gwM7/XvXkL7v8166bwvq8IQ4zpebo3GDAv3dTzXxD2liXaSVp
wno1ECezAwo7rjOg99/b9TSQZfWK7K4UYf3eku0+0V8PJTPgv/IsekfqrpaP
b08U1vMdmXBH8tKqBAb893iB74lU4/Y/KXHC+jaSFeZJXztiGVBR/u+rkfAW
r59pcFVY7w8kOy//5MZoBvx3XNUmEn6Hdsn9srD+TcRKXYbpf4kB/93O9iPZ
vu7GHZ+LQo9mUhcapb3/gvA8zaR2w2FR83ChTzNhz2hnqYUKz9dMjC+dFKk5
I/RqIYa5Q3uPhAjP20I6ztMlVIKFfi3ES8b1cFSg8PyfiP0yU2cZf6HnJxL9
JS1gj4+wHp9IS+DY/pxjQt9WMtH6x6tOb2F9Wsmz67Yr1Q4LvVvJ/aRLZya6
C+v1mZhbkpl6rkL/z8RL1f6T7AFh/T6TxRPd4eMeYT98IbPnHv0TvUtYzy+k
+XlPuLGjsD++kAVG3aU124T1/UraV+nNs9gi7JevREK90SfTRlhvwXW8lvGA
lbB/2shH43i2wTph/dtI4uQ/90wthf3URgpLrJKXmQs92skOb8b5GWZCj3Zy
TVxMk7ZE6NFOTLbbfLhvJPRoJ0bGw0fWzhd6fCPdNW0Xa2cLPb4R1dP6ZfNm
CD2+ka4HbY8DDIQe38n3bfsksyYIPb6TPNHZa0p4Qo/v5Nnqv3Py2EKPH+Te
SLxNlLrQ4wfJOx1it0FF6PGD1ImuaemWE3r8JOHPR4M8JIUeP4nzErnut3Sh
x0+i/Njlhc4IHT1+kYauhOsmfXT0+EUWf8kwNO+ko8cvMnp6DnvmDzp6/CZ6
y4OG+j/T0eM36Xl4xetaEx09fpOGieON9Bro6PGHVGgkdZyqpqPHHyJSuWVe
xUs6evwhu6O9C38X09Gjg8zxEpn1O5eO5+kgdRrthmXZdPTpIAO2vBOBmXQ8
Xwcxtky8q51KR68O4nFhr2/YNTqet4NcGnfpSvMlOvp1kGBfu0zZMOH5O0me
j95+1WA6enaS7/yQM30nhPXoJEwbxyfZnnT07SSBsW+zVx0Q1qeTyJ7cbFC0
k47enSRiyeMGhS3CenWR+V+nuM3dQEf/LtJyx+qhoYWwfl1Eb/5qB5UldOyH
LnLSLXtmyTxhPbvIjtT01nXT6dgfXWSX1te5D8cL6/uXBEg/7OzVpmO//CWl
bWp1sirCev8ltYqJqYOSdOyfv+TGt8zpBaM0rP9fUmlmMc+um4b99Jd8M1p9
pvobDT26yf2Ftr3aH2no0U0sH39ZSl7T0KOb/GhZZG5YSkOPbmIoc7lBIo+G
Ht3kK4tVlHGXhh7dRCnq2Qf9VBp6dJMDzbcZR6Np6NFDNrQ3yyWF0tCjh0wY
cGiI96ehRw8pt9602N2Thh49JDTw10SdPTT06CEiGc4HY7bQ0KOHmHrNG/uz
hoYevaRhVnuO+lIaevSSgxumB7EMaejRS+bNH17/bRINPXrJ1OV7FcLZNPTo
JQ+cG5PlFGno0UuyvrVL2dNp6NFHvhsfmhbYLYIefUTnXYqsz1cR9OgjHP+R
y5YNIujRRyamL6n5WyqCHn2EdzTm7t7HIujRR+RaA+c/uimCHv2kSL1xT+NV
EfToJ5vMP6yoPSeCHv1k+I1BU+wJEfToJwWB9VOJiwh69BN17zXLsraKoEc/
2VjnZzi6WgQ9+knZ1gIF9mIR9Bggbz/XNCvOEEGPAfLCsL/gLUcEPQZI9vIv
JZ6KIugxQJ4mherWj40RymOAsCpDnZ2axgjlMUAao5RvJeaOEcpjkFhbb5p+
+soYoTwGyfnUuDk6h8cI5TFIzh7kKdhtGCOUxyAZPsSSXTZzjFAeg6TQ7l7A
R/kxQnkMkuCgqXX8H6OE8hgiW+xytzBLRgnlMUSmLQ0NykoYJZTHEDH7UP+I
dnyUUB5DJDU/b9fIxlFCeQwRVcu94tdnjRLKY4iceDksR5cfJZTHMAm+7Tcq
0z5CKI9h4rmNbvu8cIRQHsNkqsaBWzOiRwjlMUzmtaScXOU2QiiPYaK2ar8b
e+UIoTyGiV7vHsVreiOE8hgmjAn8vtqRYUJ5jJDJeb9Lc+uGCeUxQsRgaKpN
xjChPEaIFIHqmwHDhPIYIUpG3luzNw+jxwjp28APd5s5jB4jJL50j/YPyWH0
GCWmjjMLND4OoccouSw9bETLHkKPURK06od9QsgQeoyS19EPfo/YD6HHKJkZ
kfhYdfYQegjqfPBQdJvUEHqMkR0zdjh5Ng2ixxh5WK418vTuIHqMkeG460bV
JwfRY4y8mbxX+arNIHoI3BNUd+hPHUSPMXLhXaiuJ20QPUQgfdrY/KDXA3ge
QV+Pv3HTJnUAfUSgYVLvgS6vATyfCOzbZBlgaTGAXiKwcLHeL1dB31PnFQGP
gDd37Dr60U8EgjTTPigW9eP5RaB//Z0TZy/0o6cIrFlYkf7aoR/rIQLxq8Lc
22b3o68IGEnNHnwu3o/1EYFni85auQlyTnkL3v+u80ZHah/WiwaT4mbqLjrc
h/40APvABptlfVg/GjSvd2eYq/dhP9Bg+YPqSvn2XqwnDdKmxexNfdCL/UGD
T8F9SqygXqyv4HvfhNm32aoX+4UGxtF8a2+9Xqw3DRgKC1xcu3uwf2iQ7mHu
v7S4B+tPg0v7pV53h/dgP9Eg5s67675be9CDDpZWxSt+Te1BDzrYnVojNm+k
Gz3okG0ZMn5nWTd60MFkWt2o++Vu9KBD9LT25t1O3ehBh+P297hLZnejBx3E
VC3UGYxu9KDDqawG9o2qv+hBh3fLj5xdGPsXPehQf2Ph05w9f9GDDnuW9nG4
8/6iBx2qExeLeor/RQ86DE3cVPW4tgs9GJCuK/utI64LPRhwYkLSPbX9XejB
AIXlVZEzFnShh2Bu7T83SCS70IMBv8TUl5nUdaIHA17oPf9GEjrRgwF3DGnm
/xzoRA8G0GZPaOAt7EQPwdx4wGNUVqoTPRjgv613cnddB3owoDF926u3CR3o
wYBDQ/Ib8w90oIcoZDe/m52ysAM9RKHVS/FtqFQHeojCnKUpDkM3/6CHKHBG
5R0/mf5BD1GQ8Pa6+Kb5N3qIgu3JyQ0fvH+jhyhkWTso9AvmRMpDFHyiprH1
b/1CD1Gw2DK39dDyX+ghChscI43ft/5ED1FYrHtDa/vxn+ghClMDv62U0fiJ
HqJQuDfzwdt7P9BDDObbKM2pWvUDPcRAkeQkdX77jh5isPV82gcI/I4eYjCl
VPdhAec7eojBsmBbObfcb+ghBnPrj2TabfyGHmJg7GK236e7HT3EQGqejPbH
sHb0EAPGuF0BR6e0o4cYVE/XP7j5ZRt6iIH4SrW0405t6CEGeUUVf9pF29BD
HK4WhIpdTfiKHuKw44V26lX4ih7iYHns5NlfTV/QQxxefBHbH3rsC3qIw61v
1QOB2l/QQxx6l/R8qH38GT3E4aizXvGRzZ/RQxwK115e6TPUih6C+xc3a3+O
bkUPcWibkVuWtrAVPcRBqr37T+2HT+ghDitEZ2s6nviEHuLAXNpSZ8/9hB4S
IC7def15cQt6SMCx46UqMTtb0EMCWlewwj9JtaCHBJzLTr4Yk9GMHhKwaoVx
WLlgL6Y8JGB0oU7tt58f0UMCpkx6ITF97kf0kIC1rus8XPya0EMCJqTvLb1V
+QE9JGCJ6cbYLq0P6CF4v1VGwCLnRvSQgG2uyqMRD9+jhySk80eOjUi9Rw9J
0BU9uPvI5nfoIQk5l/NYKplv0UMSZn4wrXhBe4sekvBYc9GzOKsG9JCEisPO
E67dfIMekpC256/sC8Yb9JCEgGz2CV3bevSQhFuX1T3TsuvQQxJsS59+2K1Y
hx6SMLzw+GmHva/RQxIq77WZXS2tRQ9JSH37oFRtYi16SAGjOfD+m6Aa9JAC
m7CohOb2avSQgn90chTnmFejhxTEyI4efJ9ZhR5SoDcrTe+1ShV6SMFJ5c+d
pt2V6CEF61kFKy8XV6CHFDizjG8nXyxHDymIm1e81NW5DD2k4NaMlUwx45fo
IQURc9aKOGiXoocUdNEciyIGStBDGrZO7+mIefscPaTh6zK5Id/cZ+ghDRvt
1PSXJzxFD2kIrr4a0xdSjB7SMOTNXH3eowg9pGHnyussHcdC9JCG7d5j0des
CtBDGvbVTnkxJzIPPaRhznTdyMmBueghDSK64tLjvR+hhzTcP1CwYKp7DnpI
g3pAUJe5x330kAa9J3eTTh7LQg8ZUIrx8PwSchc9ZODo0C2jA7G30UMGxMJ2
D6x3yUAPGbicZP50/u009JCB++RSdPRwMnrIwJX09ii/DQnoIQMOy4/s6Ha/
ih4yYL3n3H51m0j0kIHTYZM3Sdw6hx4yMOuQi+25Rh/0kAHdur13J7dtQg8Z
sF195MFNe7d8ykMWQuSyMkJ2B+VTHrKgUmFao2B4Pp/ykIVSybbB/PiofMpD
FjRDjA6Vd8bmUx6yYFp06jwrIiGf8pCFkVXucfsSkvMpD1lI1I6JbU+8nk95
yMKfJa3OgVE38ikPWWistQo09snMpzxkQYrXHBSacTuf8pCFrsXhO8+q3s2n
PGTBUTdcUcv9Xj7lIQu1to8k5r3Kyqc85GDVphh2O+9+PuUhB/7z+Yf0XR7k
Ux5yUFm86PDo/Zx8ykMOpJieP3b1PcynPORg+auIt84zHudTHnKw6/f4q+KO
ufmUhxwYWKk2GZ1/kk95yEFek0E462FePuUhBwtXJPWFvc3PpzzkgMYwf9Xg
VZBPechBlP7iaXmMwnzKQw7miW3J8A4pRA95CNjg6qMoX4Qe8jCDMUHU71wR
esjDvXNZOdUyxeghD6Hl543pJ4vRQx7mBE9wZo0Uo4e8wNNDS+ngU/SQh8bp
Lxx7Wp6ihzxMZlgdeW75DD0E18m/bgc9eoYe8tAgfunYQt5z9JAHXXND7/aT
z9FDHmIfztgW2v4cPQTPkzsmN9usBD0UILim/uiHhBL0UICUs/NfnhkqQQ8F
eB57ZabZmhfooQAizDYlpaQX6KEAVfp6rb//vkAPBXj9lw5foBQ9BD/ftKu5
P6QUPRRg/k/xK1NrStFDAS6ot9ufZr1EDwUIuj+wWHXjS/RQgK11l/ZWRr5E
DwUwYKlNzK95iR6KQK+1aPghU4bnUYTFKszhTcZl6KMIXyzqDRQ8yvB8isAs
F9dRSi1DL0W433YrxrGuDM+rCMn3f5xTppWjnyKEPXD6y55UjudXhB0Gn5vP
ri5HT0VQ8c8M3OVWjvVQBMtxnAlZF8vRVxF8/DS5nlnlWB9FaC06/uVBVTl6
K8KZ8rSho9/LsV6K0Cv9a6ycVoH+inDImpGYyarA+ilCx7bTaRP1K7AfFGFK
t/ePxfMqsJ6K8OZK5DqaWQX2hyI8bP/ctG9tBdZXEQ7U8mLOba7AflGEshjD
G87bK7DeirDZKn2hlFMF9o8iXLCWCz+4uwLrLzivlmd/uuCa6idF2BLdWZ0r
+H3KQwmacr+HZO6oQA8l2CKaGhtkV4EeSvDO5tZFyw0V6KEEHb1LxeTNK9BD
CR79qj730qgCPZRAymPtxzPTK9BDCcZ9rMy05VSghxIkrX+av1i+Aj2UYIJk
VNOSQaGHEmyLFm9x/iz0UIKYxIjkvHKhhxIUq4wqm90TeihBW36KmmyU0EMJ
slXk0phHytFDCVbUzy3eY1uOHkrgvE9/F2thOXooQdeFtdfYmuXooQT6c2nu
p3rL0ENJ8Pfu9cC26jL0EJzHZKbxrfQy9FACYpbl6OVXhh5KEHU54fiLjWXo
Ifi8DIe0pCll6KEEHpw+BotWhh5KsL1he8a4WmE+lGHCzxnPGhJfoocy8Fa2
Oc8/9BI9lGEf6/CTNYtfoocyHLJ8+m68/Ev0UIajmQofC9+Woocy+NKOfp6U
VIoeynD+VDDdeV8peihDT+KplUGzS9FDGV6U6deHDAu/LwQ/f992/WjRC/RQ
htYPFyscgoTfH8oQMe69qbn5C/RQhgKn+0qG8i/QQxn6msbGzaoqQQ9lcNb+
7WISXoIegvP+E9t0aE0JeijD7Y5Iy1LFEvRQhraH665avHqOHspwZHtllNjZ
5+ihDHY9ktLDy4Xfp8qg/C361lzx5+ihDF+8wKig8Bl6KEMNfefWq0efoYcy
3LXOza6f8ww9lOHjh7KaQx1P0UMFBhsC4GjaU/RQgQv+b470bXuKHirAiDbv
+anxFD1UQG1ppKJDdTF6qEDFP4bjHIKL0UMFZs5henUbCf/eqMBSA9YK7Z4i
9FCBBdrPiz+lF6GHCuzr72RYbi1CDxX4GGapsYtZhB4qMH0LmzH7ZSF6qIB0
Q8Xt3OOF6KECR8+k08RnFaKHCmjM8Xuq1laAHirg+nHNg/4rBeihAhnK3Sdv
rSpADxXQlKqqNKYXoIcKnGlXmeG6Jx89VOD1mYMPZtTkoYcKOCyZPlRlmIce
KjBRLjDe9toT9FCB3wHV+i1iT9BDBRQXqv9y3puLHipwYNibLV77GD1UwCsp
61nevMfooQrDtNgXcXGP0EMVfLfean4g8Qg9VMGNdfaawoGH6KEKs5ZG7rtX
n4MeqpB6wvVUplEOeqhC/IF0CdnUB+ihCk+2kZp6hQfooQoSV82va3jdRw9V
yA+KY3/8lI0eqtBwad+VGSuz0UMVOkK/22jlZKGHKtyWFDuQws9CD1W4ZKr0
qDH0HnqoQuJ1366S4bvooQrHR2LiDzrfRQ9V2P2G8Fsb7qCHKmQ9j0nWW3YH
PVRBeVBE3zjnNnqogkV43InF+rfRQxVqPz67snHOLfRQhTM/diqwtDPRQxWG
4u58L2NkoIcqhM68Zhvy6wZ6qELOiaVzt71NRw9V6P16/bd9SRp6MGHjSu+o
iw+uowcTFvF6fyimp6IHE4Kjbi1ujk1BDyaIK5y4oBSZjB5MGPy4++jd0CT0
YEJgaZhh1elE9GBCA3dCsmdIAnowQd7FC7JPx6MHE1RrOvUvhsahBxMqe5ea
mBpcQw8muEx9z6wzuooeTDgxUfnVT6to9GBCjuTxhwlul9GDCawr4ttloi6h
BxMiZdwvzy+8iB5MsPIpcVvScQE9BM8z+nKlod559GDCSHFi8aStYejBBBvp
Zg9r47PoIbhWaiqMrDqFHkzILDq0auaek+jBBCnlKRfMlP3RgwkxYV+mfzl9
Aj2Y0Lb7YXe0rBd6MOEf9qq6Lymu6MGCTbPKSz9n70IPFqQeDU58mLgRPVjw
IHLchCZGZx7lwYLtPpIyUXetcV9kwaLRNb5115xw32JBUFdvzPWog7g/sqC8
sPNcgakn7l8sUN0sYcR6dxT3SRbMLncYNdP3xX2MBbcXFGyTafDH/ZIFZ3aO
qJp7ncT9jAVPpDVmjMqewn2TBZLDQ+rsC6dxX2OBxPEdHvEy53D/ZAHzlYPW
kgVhuL+xYOk05tPW3eG4j7JgyuJC5zvh53GfYwF/Yu22G3cv4H7KgrOl7yOr
yyNwv2PB8eiCsHHNF3FfZUFWPWN/8s9I3PdYsMfr26cNXZdwf2XBYfXQuYad
Ubj/saBCRcfU8ttl3GdZYCBaejj23RXcz9VgUldbif6zaNxv1UB0S+eDnusx
uK+rAe1jgLXEyau476rB+QGrRQ62seihBgsK9U4qG1xDDzU44p1Ro95zDT3U
4P68fF7+5jj0UINfe90g+WEceqiB7GeHGmPVePRQg4LCmeNj9sSjhxqEpOs8
z86PRw81WH/ii2eEYgJ6qMGn1pQFi7YI92c1WGlfsiL7egJ6qEEcq5JF70hA
DzW48nvBMv1/EtFDDabe3PdkunsieqjBctahUzr3EtFDDfLNP3T1/0pEDzV4
0xrn+lwvCT3UYILn17tnbZLQQw0SiurPbjiThB5qMHuah6ze4yT0UIPv5/Y6
MtqS0EMNziY1D/UpJKOHOgypzt0iPScZPdQhPqjbxHhTMnqoA6P8UHiqVzJ6
qIPBlJcWxpeS0UMdui4Gp2jeTUYPdVBe5f/X8GUyeqhD66obN5M/JqOHOlxy
erVvd1cyeqiDiP2h7jP0FPRQh/efz+loKKaghzoEf935jaWVgh7qwLPY4BLK
T0EPdfBcdenHaf0U9FCHwXKtW8wpKeihDo8S1+jPmZqCHuqw0GmwpdcgBT3U
4VhQ7+FtgvdTHuqQfVA7+YTg/pSHOqz4Kj5rs+DzKQ91SM9qY4wKno/yUIcP
151kXUVT0EMd4pbtX1fYk4we6tD8l9HZ8zkZPdQhona8nGZNMnqoAylJb5r7
ROihAZkPldM3pQg9NODc5v0Fp84KPTSgrNH4eI2r0EMDVslvX2FkJfTQAOL7
JuLNXKGHBhx9V153XU3ooQGV47zO5PYkoYcGnDg9uohdk4QeGrC8aadb3c0k
9NCAGyvOPPkTmIQeGvDLSyndwy4JPTTAunV1udusJPTQAA7b+kG3RBJ6aIC+
QfuIyPtE9NCAyfX7ZyTdTEQPDdg5TrSl/agwH4Lz3HOLemsuzIcGzJ+97KOP
hjAfGqBc9Hzuty8J6KEBt0/L6bDvJKCHBvhtZUlMOJKAHhrwYHKdvZJJAnpo
wCNF0zNfZRLQQwPM1oR+vV0Tjx4akOqkmecdFY8emnB97SOrVXbx6KEJWcvK
2mZz49FDE27vtote8DkOPTQhQ2rn2d0pceihCVXT2l+WOsWhhyYMqUxcs3Ni
HHpowlx6o8b5qmvooQkM+e33+lZdQw9NKNWupCmVx6KHJvQpu7t2msWihyaY
N6Wa3yy6ih6acOrV1hvrF15FD03YNiU3cCQrBj00IV/vQeJDgxj00ITowob4
6MRo9NCE80mtv7M1otFDE/4ZjXipGXoFPTRBKsPFpJFxBT00IX0oeL7s4cvo
oQmhoes25v6IQg9NiDh1mjm6JQo9NEHeSC/7U7Xw74cm5DzRMTlicgk9NKEy
+FpUw/1I9NCExOX1q2X0I9FDC3ofK9Twoy+ihxZIbq03myl3ET204GrU9wTT
ExHooQWWZwOjXDovoIcW1Cu5xOfvuIAeWnA2d+GAcf159NCCv8O+V6WWn0cP
Lege0V7Jyw1HDy2QWX8sKHpaOHpoQacx/Yx/Yhh6aEGNmPGmdrUw9NCCOevZ
m25phKKHFkw+4k/PEz2HHlpA+36Bo9Z5Bj20gOex6trrptPooQWa9562KlSG
oIcWzEq0LGvJO4UeWmAUk5u+/U4wemjBLgPvlenJQeihBTHh9J5X0SfRQwt+
zNbc+P1CIHpoweaQ9QkK5wLQQwu0VwQd2hDijx5aEHDK9GNVsB96aAHzcc7e
yFO+6KENmV1SrEdnfNBDGw4v2h8WO+4EemiD9t26Z9X/HEMPbYh5k+Ayc8UR
9NAGmYy3Gp8dvNBDG5zLLKZJBXqihzYsHclkFKe7o4c2MFN9K2fUH0IPbWha
f/ymm4QremhDuPzsuDQjF/TQBh95+3Hv+/aihzYsUDZOzDm+Gz204ezqyElc
5Z3ooQ1/Hsf3m93djh7aYM2UW5CbtwU9tIFnYDE8btZG9NAGo+jUm/yiNeih
DY+yf33TbDBFD21Bv1e/L3/6D3oI3q9X+ruiWA7nXW0o5hYfOPp8Ac672nC/
138p8+5ynHcFz5OxQ4KbtBbnXW2Irf7mnrJ2I8672jBubce8HZ/tcN5lQ/gN
58bwm9tw3mWD+lS5f2w3OuC8ywaFmRafvHt24v7BBlV6iN47/924f7BhoW/R
nF2Mvbh/sKHl0LKlTLf9uH+wIbH+Tc43ZxfcP9ggIrHCwTziIO4fbHjVUBg7
6b4r7h9s4J7rXutfdQj3Dzbw8hI2rW11w/2DDb/dsz0u/nbH/YMNRQ/ircy7
PHD/YIOhvPbpQ789cf9gg5fM0WD51sO4f7Ch1WRLArvKC/cPNsSZxEomZnvj
/sEGkyOrn8ZfOIL7BxuI7OIstvNR3D/YIGM9dkpr3jH0YMM8R9bzOJHj6MGG
RTKTsu8VHEcPNqQFrt272Uu4f7DBkdz7ZMn0QQ82jPMZzDBx9kEPHRjcmPE0
7LEPeuiAZdCl6fOkfNFDB5KHhqyWrPNFDx2IZQb2Zl32RQ8deBZ/US+i0Rc9
dKDUxHZ1m5YfeuhA1tevc7Kt/dBDB758dv4hGuaHHjrwU0e56sNTP/QQ/L71
zotmvX7ooQMT5CcYrhjnjx46MC3LcezXKn/00IFVx+55L/DwRw8dUGCI+Cy4
4o8eOvDP7Zv6fY/80UMHusaXv/Zs8EcPHQjWKdcp6fJHDx1oMXjV+lsqAD10
YGut18IBdgB66ECmr9rRjqkB6KEDtrtjpn5cGIAeOuBldYRVZRaAHjowy2ts
UqVlAHrogJHC2MXP6wPQQwdcZ0rd1bEOQA9deKlqJRlsFYAeujCX8XOVwboA
9NCF5PjQnWorA9BDF3rGZ23cYBKAHrogHVq8ocswAD104Xzqj7uDkwLQQxcW
edi1e2sGoIcuTPwwOfSERAB66ILpbD97pqAelIcuhD98MHX5O3/00AWVYvJr
QoHQQxeyng8m5SUKPXRhfvh4T81AoYcufGGeubLMQeihC0qLMjZZLRZ66EKk
/yvFNdpCD8H7w7YYmPb4oYcumMkWjV9S7oceulA01n1yQ7wfeuiCVPrmphA3
P/QQvF95bUnHUj/00AWGgl5rBNMPPQTnl4lqCGj1RQ9dsE7+s6byli966EKw
ot3QcW9f9OCAtMdu36QlvtR5xDjAMlAOtZDxRR8OrDa1Lg+o9qHOp8ABB/uL
jTaRPujFAfGyCtvGTT7UeTU40P3E9BNL2wf9OPB3LKVz2qMT1Pn5HLjT/8z4
3bwT6MmB57Iy8WYPjlP1mCq4v/vtt+dnHkdfDvge2xddf+MYVR9DDly/ueDQ
FP4x9ObApSSRl3ei8PvEmAPyFutajskeRX8OvFZVrb5x/AhVPwsOrG/NC9jw
xxv7gQMu04JzIrZ4U/W0FjzfAZc+v3Iv7A8O6JpIRc2b50XVdxsHXFuCH1Un
HcZ+4cCJ/NWmDgqHqXrv4cBe9TVtUl6e2D8c0PYnsu9bPKj6u3NgxpI3rX+W
e2A/cQDSTTZvveNOefgI7j/moWWi7o79xQHLw1eD7h53ozxCOBBuGfOo6PMh
7DcOFATkBZ5ecYjyiOBA2UP7/fzbrth/gvtHWN+MY7pSHrEc+B42NEHjyEHs
Rw44F1cdTmh2oTyuC55/8bXWNaYu2J8cyJd4fOfwxgOUxz0OcFY+/fpz3H7s
Vw48Oh/7a2LXXsrjCQdklXVj1hfswf7lwMD7DaqXQp0pjxIO9Fh3FrK27sZ+
5kAmt916YMYuyqOaAzX6kRU7xJywvzmg3mRr5/3OkfJo5ICRV6vv1jsO2O8c
uFHu0m0YsoPy+MqBuBuj6XqO27H/OSDz+X69mfE2yqND4Kl9tSWfuxXzwAGf
UysabSS2UB6DgvPPmJq2pWoz5oMLdvO0TUtiN2E+uHBvwHTOK1drzAcXJOws
d9yy2ID54MLFc2Wa1wzWYT64UFccJ/taeQ3mgwtVgbUXRMdWYj4E998YfzLn
y3LMBxdm53mG6b1bivngwlNvP9n0xsWYDy6IWGjoGr9fgPngQvyzlbVPNf/B
fHAhIUH0vHTnRMyH4PNnd7CiXqtgPrgw1ca1sc2dgfMcF0y/W57TduRT86kF
F06yqrvy6qbjfMeFQXsS9fzNXGpeteaC5MM9K/k5RjjvcUGHs7zG4LExNb9u
E/z+EFk7KGmK85/g+ea5NBsvXU7Ns3u40D3f3rnmgAXOg1y4WrVL7nCwJTXf
unNB6tc1SX+zNTgfCuqR9qHreuFaat714cKMOHO5KzPX47zIhVfjVKeaXNlA
zb8hXFin//t+ZL8Vzo9cMHMLCfdbuZGahyO44NdRazAYtQnnSS5sgkSvznc2
1HwcywWvrsltdiq2OF9yYcVGvv0cYztqXr7OhWkabsaHnLbgvMmFgHQdR3l/
e2p+vseF+lbZQN8VW3H+5MK+2o9/Uiq3UvP0E4E3W/RY78ptOI9yIVZ3cvuB
F9sojxIuVItYRKsYbcd9gQukYUnGp8ztlEc1FzIqu5qaNHfg/sCFc1evRUn7
7aA8GrkgX9bWtuvzDtwnuCA3OHZ0ZLED5fGVC/rzu1PLrzjgfsGFU6ruVu9/
O1AeHVzQ1D2tOM3IEfcNLoRavOmpCHakPAa5UHay9HFepSPuHzzI6rNLk1TE
+V2MB7vcpl+8Z7ET9xEepJF1n0oCdlIeCjzInLT32Kqcnbif8GD8gMnb1W07
KQ8NHkjtj/rZoOSE+woP6Lx5UzvnOlEefB40zYg6n7TJCfcXHuiZKASPejhR
HlN5EDjXqVs6TPj/i3nw9uSuGfVJTpSHIQ+Gji2T2pfthPsND+zU1mU1FjpR
HsY8MEn8/XrmSyfMBw9mh7i6Hat0wnzwwHYoQ6RMcE3lgwf2s5PNJpU5YT54
ECHW45Ze7IT54MGbYSK/OccJ88GDPzPEOszTnDAfPLiUPH3F2UgnzAcPVu0w
vDrNxwnzwYNC6yX3l+x0wnzwYLcx/+a7ZU6YDx4Mek5uFJvohPngwTS12K/1
DCfMBw9EY+xv2DeiRwgPfm+xMbt7Bz1CeWB2okehxR89Injgv2pi+Oha9LjM
g7kvbE6xdXdiPgQ/X7/w6+p2R8wHD5jqokU3Mh0xHzwoG3hkv9jVEfPBg+PF
GyfqzXLEfPDgvdWMVOdOB8wHD7aP/BOkl+GA+eABw+Z76O6dDpgPHhTsz4lf
wXbAfPDgzs/x9xqrd2A+eLC3N6tiVsAOzAcPFlxbKOPwjzAfPDhbqHHe99N2
zAcPeuZrXog7tx3zwYOLRUlL6wy3Yz540NkT+GVWyzbMh+A61+dWVdA2zAcP
LPpfN+UbbMN88MAmwTadWbUV88ED7/Dti78e3Ir54MP3gAOlS5W3Yj748OfA
UHbYdnvMBx+kF9aMMmK3YD4Ev7/8zGa5N3aYDz5MKKkKey1nh/ngw67f6rN9
jW0xH3zYmTr9xnz3zZgPPugbh7AnpthgPvjg4S7m5VK3CfPBhz2HT+2az9iE
+eDDRnvl1TenbcR88KHwQviynzbWmA8+lNdkaXICrTAffFiW/Hz+vswNmA8+
HI/QetZfvx7zwYeaPRaH20bXYT748CLY467d+HWYD8F512nvO7FyLeaDD3F9
hw1d3NZgPvgwaXiW4bro1ZgPPjzb528UGWCJ+eCD+SIzm+6alZgPPnwLDF8n
yrPAfPChxGR3saTrCswHH+h3ZcyWFC/DfPDhB7/Zq5tphvngg/KY4a/Nzksx
H3xQU9nGzylYgvkQfF7W7NOmGsaYDz4U3GjzXOIGmA8+BMt7LnyduAjzwYc7
J1q0vjnMx3zwYRanevNcg7mYDz70Zs7aO3VwFuaDD9GvEzYteDUd88GHD7WX
/MKtJ2M++KDJV718jKOH+eCDzcDcC7LdbMwHH55WeFa2liphPvjg9FFplpxi
nxGVDz7MVDsgccilP4/KBx9CRK5Eytcp4XzFhxvJTbX7Hdk4X/HhodXC9V2O
43C+4kNuAe17GGMSzld8EJcxcuoMmYbzFR+mrE/PeHxsJs5XfIhYcK156aTZ
OF8J+nNwy5HKl3NxvuJDZ2eLo4L9fJyvxgE3Ze7iZ18X5v8Pc757YQ==
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"k\"", TraditionalForm], 
    FormBox["\"A00\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.614511540767132*^9, {3.614511696578607*^9, 3.614511724501112*^9}, 
   3.6145140321898785`*^9, 3.6145146383566694`*^9, 3.6145150977794137`*^9, 
   3.614515250495695*^9, 3.61451538770398*^9, {3.6145156518912964`*^9, 
   3.614515661516121*^9}, 3.6145161642781844`*^9, 3.6145786513778887`*^9, 
   3.6145844779221387`*^9, 3.6145979197235866`*^9, 3.614685504623513*^9, {
   3.6169983268209023`*^9, 3.616998353157601*^9}, 3.61814034933848*^9, 
   3.6181425759655037`*^9, 3.619273004200686*^9, {3.6192730393106194`*^9, 
   3.61927304367072*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"min", "[", 
   RowBox[{"B_", ",", "Rb_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"interAKBk", "[", "q", "]"}], "-", 
        RowBox[{"model", "[", 
         RowBox[{"q", ",", "B", ",", "Rb"}], "]"}]}], ")"}], "2"], "*", 
     SuperscriptBox["q", "2"]}], ",", 
    RowBox[{"{", 
     RowBox[{"q", ",", "0.01", ",", "15"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6145117770013375`*^9, 3.614511784489648*^9}, 
   3.614598087902811*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "B", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "Rb", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"minRb", "=", "0.8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxRb", "=", "1.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dRb", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"minB", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxB", "=", "13"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dB", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"contour", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Rb", ",", "B", ",", 
       RowBox[{"min", "[", 
        RowBox[{"B", ",", "Rb"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb", ",", "dRb"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "minB", ",", "maxB", ",", "dB"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.614511909516898*^9, 3.614511953077801*^9}, {
  3.614512246013481*^9, 3.6145122462906804`*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`B, StandardForm],
  ImageSizeCache->{7., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.614512209726753*^9, 3.6145122472273436`*^9, 3.614514032237913*^9, 
   3.6145146397776775`*^9, 3.6145150978284492`*^9, 3.6145152505447288`*^9, 
   3.61451538775502*^9, {3.614515651951339*^9, 3.614515661568157*^9}, 
   3.6145161643282204`*^9, 3.614578651732112*^9, 3.61458447823536*^9, 
   3.6145979364544306`*^9, 3.614598089950263*^9, 3.6146855046703854`*^9, 
   3.61699836511609*^9, 3.618140349369732*^9, 3.6181425759967546`*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`Rb, StandardForm],
  ImageSizeCache->{14., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.614512209726753*^9, 3.6145122472273436`*^9, 3.614514032237913*^9, 
   3.6145146397776775`*^9, 3.6145150978284492`*^9, 3.6145152505447288`*^9, 
   3.61451538775502*^9, {3.614515651951339*^9, 3.614515661568157*^9}, 
   3.6145161643282204`*^9, 3.614578651732112*^9, 3.61458447823536*^9, 
   3.6145979364544306`*^9, 3.614598089950263*^9, 3.6146855046703854`*^9, 
   3.61699836511609*^9, 3.618140349369732*^9, 3.6181425759967546`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"countour2", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"contour", ",", "1"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListContourPlot", "[", 
    RowBox[{"countour2", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Rb", "/.", "fit"}], ",", 
        RowBox[{"B", "/.", "fit"}]}], "}"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Rb\>\"", ",", "\"\<B\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6169983826335244`*^9, 3.616998386206083*^9}, {
  3.618138570086834*^9, 3.6181386089678836`*^9}, {3.6181429040688457`*^9, 
  3.618142917116678*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxl23k8VF/cB3BKJZRlxswYY8w+qERpoXROyhJKSYtCSKiISLstSotKUSmF
tAot0iKFJK0KFaHSorINM2MtyTP9nsc9j8M/Xu/XOffOvXdm7pxz7ufL9gxw
XDNMTk4ue4Sc3L//p07++2sEcv/9seBgszFzMHMx8zDzMQswCzHrYdbHbABb
Ft1l7m5GxzvYbMwczFzMPMx8zALMQsx6mPUxG8BZSlXnAs2b/s9MzCzMbMwc
zFzMPMx8zALMQsx6mPUxG8C4ok49l8MDZmBmYmZhZmPmYOZi5mHmYxZgFmLW
w6yP2QB+3U6+av0Fnc9gMzGzMLMxczBzMfMw8zELMAsx62HWx2wATSb/+2sm
zmewmZhZmNmYOZi5mHmY+ZgFmIWY9TDrYzaAe5r/+wL9n+mYGZiZmFmY2Zg5
mLmYeZj5mAWYhZj1MOtjNoDvZd8upSp0foPNwMzEzMLMxszBzMXMw8zHLMAs
xKyHWR+zAdR3OSz7xrUQ5zfYDMxMzCzMbMwczFzMPMx8zALMQsx6mPUxG8Ad
/75+2wdMw0zHzMDMxMzCzMbMwczFzMPMxyzALMSsh1kfswEsffnvD53vYNMx
MzAzMbMwszFzMHMx8zDzMQswCzHrYdbHbAB1d//7woqI8x1sOmYGZiZmFmY2
Zg5mLmYeZj5mAWYhZj3M+pgN4Ebzfz/4A6ZgpmGmY2ZgZmJmYWZj5mDmYuZh
5mMWYBZi1sOsDx/9Gw4UofMdbBpmOmYGZiZmFmY2Zg5mLmYeZj5mAWYhZj3M
+lDz39eZ3Eqc72DTMNMxMzAzMbMwszFzMHMx8zDzMQswCzHrYdaHPt7//tD5
DjYNMx0zAzMTMwszGzMHMxczDzMfswCzELMezGX++wKj8xtsGmY6ZgZmJmYW
ZjZmDmYuZh5mPmYBZiFmPaj8b/qh1Eac32DTMNMxMzAzMbMwszFzMHMx8zDz
MQswCzHrwf+GEy4DJmOmYKZhpmNmYGZiZmFmY+Zg5mLmYeZjFmAWwv++jlfR
+Q02BTMNMx0zAzMTMwszGzMHMxczDzMfswCzEP7vfzFxfoNNwUzDTMfMwMzE
zMLMxszBzMXMw8zHLMA8MB5G5zfYFMw0zHTMDMxMzCzMbMwczFzMPMx8zALo
+G/2tQidz2BTMNMw0zEzMDMxszCzMXMwczHzMPMxD4zn0fkMNgUzDTMdMwMz
EzMLMxszBzMXMw8zH7MAnv83fTyHzmewKZhpmOmYGZiZmFmY2Zg5mLmYeZgH
5h8D1sBMxkzBTMNMx8zAzMTMwszGzMHMxczDzIdd/4aPneh8BpuMmYKZhpmO
mYGZiZmFmY2Zg5mLeWC+JCGOf7DJmCmYaZjpmBmYmZhZmNmYOZi5mHnQ5t/P
jTU6/sEmY6ZgpmGmY2ZgZmJmYWZj5mDmYh6Yr6HjH2wyZgpmGmY6ZgZmJmYW
ZjZmDuaB5xfoeAebjJmCmYaZjpmBmYmZhZmNmYN5YL6IjnewyZgpmGmY6ZgZ
mJmYWZjZmDmYB563oOMdbDJmCmYaZjpmBmYmZhZmNuaB+amUOL7BJmOmYKZh
pmNmYGZiZmFmYx54/oOOb7DJmCmYaZjpmBmYmZhZmAfmu+h4BpuMmYKZhpmO
mYGZiZmFeeD5EjqewSZjpmCmYaZjZmBmYmZhZsP/hmt30fEMNhkzBTMNMx0z
AzMT88DzKvT6g03GTMFMw0zHzMDMxMyC/31clNqJ1x9sMmYKZhpmOmYG5oHn
W+j1BpuMmYKZhpmOmYF5YH6NXm+wyZgpmGmY6ZgZmJnwv+HBbvR6g03GTMFM
w0zHPDC/RvsfbDJmCmYaZjpmBvzv7apC+x9sMmYKZhpmOuaB+XMHsf/BJmOm
YKZhHpi/ov0NNhkzBTMN88D8Ee1vsMmYKZgH5m9o+8EmY6ZgHpgvoe0Hm4x5
YH6C+g82GTOFyGf0L7vK67XTheFuDWsdGhqBzw3SFVUyk8hDTBXVJ64ZxYRP
RhVNDBAN5CNQHsI0N0dudjcD9s47XqO2f2jeQKgoPjlBog1/ZGYPOxTfBHyt
uQFPv2sTz8OvP3zVTSNpw+PV9k2vOc1A+3pKjJ83nXi+zKnSv7JpBh3+Kb20
f7vt0OfLV3YnfY4I1YL8QmP7vvPNgKX67FvZdC3i+eahmMQ1S0pp8LX64pQr
rBZwu2z66XeTacTzQVVbP+sMDg02lyZdMzAb+nzwxDmdFz0HqdD/Q/mnzvgW
sNzN3QGsphLPnw6nzjL8MYxKPK8I83t2eHSxPpQ6FE8qGC4Cziq3hh27TCGe
38wverL0yk4K/D652mCt/9DnGX7O21O3hegT+0uNlz7f1atJrJcf/OXebSrU
h2dMkkb1GqHnQS9X90kPbhQBm4ULy21+axL7uy0fljT7kCac+9W6jnRABEQu
4IdHlj48dP/MsfBqETjI/5GYFoj2TykTfnbga8KObcKPgfKt4EdavX34DH2o
Pmn1Qj5sBbRRCc8obWRifTuv1K7Iu5AMj3rTjI7MHLqe//N9Qg31rR50+Dpn
9YkLrSAx98SbMSFkYv3YPffRVYtVZMiN/Gx/fnsrCPErOpxfiNbLR9nrhvfs
1IOka2n9zaPbQKmp9bA+eTKxPvvZsrs+TeZAE9cd95XR+uXOtQlGrK5W4DbV
yLd2Flqf1pwV6dYg1IOcBevbVxgNXd/9JHyyd/VNEmxSdY47vK4N7HV5k/v3
AoloL+pOfnvwFVov7fUS11f5kiCVqVVk/bwNtA7/tqvAgQTj2y5eyQ1uA06L
bz9feRv1vzi7aNjGILQeeYen1JjCJsH+pazq42Qx2FfYvCbtrwYczi6wzJG2
gcq7Shdj9VH/1NujJ17TEsLHVanXipSHrv+V+MdVH/uoAY8sUfG8OEcMNlSs
meqerUG0f/6zMLDmHlpfK9cXtR8/rQGbo++fXRYkBgd32Z26u04DMuYampSb
ioFT5adt54+j/otDZhzf5ILWsz7mj1sS5aYBrfdbml1LFYPDBacubRRqwHZt
xVILWfviRQfDPg1H/aGe+4gVwwTQVUHtUusOtJ7Uds+2ffsDMXa/EwPGFrkG
cy7yovIsvUvJfPhwvnmy9ysxoOfIW/U1qxPrIdLsgq/fRepwdPijpB95YjBS
sD07eS1a7ynM8VHrBnyY37/cJLgRrZ8cYuZlLOsVA/IwV53p99SJ9Ymo5OFn
owuRZ2ytzbn4hQeDFLVc+oUSEEx5IqcYq06sB4zgSHR+HlOHK+THzrPqE4O4
Lb53FMvR+sa3CGimE8aD0bu881Y5ScCx1DDnxR7qxHx8n9sB92Eb1OEBvb4d
I4EEpBSpb6NOResL/FFO2nEsHlyvE33FZCmav5+eHbh5e4QEiF5ETxthpk7M
lznHnjx9ZYM84/5MSecDLjQ0iqpemCkBxXyaxxiKOjFfjfWcZ2kjUIfTso/n
q0ZKwDhBRaLrSTTfftXirMlx4cIczYel36ok4H6gxib3TjVi/lhafvXUhpHq
sMnI7OkqmW0XJLjoy6P578muJGm2bH4ZWqx4pu7/zTcNl7x9O3m4FFhXndXu
qVIj5nvRP3UKLRuRL5sGMr6f5EC5kIJhsw2lYO+zi65vHqgR86+s69+WVL5S
g4VqofbfFaRg8TLpF28PNF+c9N2zco8ZB44/cN/yuyGarxXfDuhUcpaC7fHK
Ct0X1Yj5k+akoJmGd5BveFkH/q1hwzmGyc/ioqSg+EGJcEO8GjG/mf5W2ckj
TQ0WFGsUXbSSApdspUf+JWj+lbc6qeH0Zjas1/VWKc+SgtUbh3+3jVIj5iPx
2/iB++PU4MGQVV/X7ZUCR49xv1aPQ/MlSnVgtIDOhiYfemMWJKH5S/OJksvP
qqRg7LH5Fpc2qxHzi9AQ24MvI5H94pdqvb3FghschpdtkW8HgpTKZRf91Yj5
wLnO/a5Osu0Zrudo+c+lQP33sB+1sWh+Uu+7jjnbiQWTzJ4HFY4aGM+xYLVq
eG2VQTvoyLV7GuKrRoz3lWPrrVZsQJYuiO+vk+pCn0MTBN8Xt4OuAyVpDj5q
xHh9run1X7x1avBexizlb8rtYO2ZwPa1zbpEe5yqvAmdrQtfv1OpPbmzHfge
rivdKes/MP5W7Yh7qyKzIGz71TcL2sH4KoXe9Ito/C8yCuJcXC2bz4fHLmUF
o/F69n7dW63n24HDvU7h8iA1Yrw9QsPEM2ID8ozQqBHcFB3Y1diXUfOyHYSR
6Kccw9WI8TN31JlVSlvV4JXfMUFLjrSDqxYuDYt9dIj2L6Dm6NZyBry+QHmP
Y0c78L8ctKnniBoxPg54cLzVOUYNOr3s7zj5ph18271rX68BGo/rfUwuPq7F
gG6TzRR6PqDxdGj9Misb7Q7wbdmtuJ4rav/3e9EBzBK6muafQe6sZk84O1Mb
siQpPldmd4Cu3OviCS/UiPGv8S9SnUKeGnwY9MlHSusAJ9ecE+k/ReNr7rXJ
zluD6LA7qH9/oAUaL1+QL3zl6dMB/JtTfma2qxHjYeffcpL2L8iczeyKhcla
0MTz1uIlsR1gW875te/46sT41yZvUpIiWXY/krzKtVjVAf5OXiMyd9Yi2sPq
pJbMW7L53yd1rR8paLx85FZvluv1DhCQNkXef7U6MT526JY/U7sYOX5ab4DL
ZyoxHs56/3OJ3AV1GCMQvlRJ7wC+yRTFz/mo3ezYtoPf71EgYLZef3YZ5ZXV
FU5N3ZM3NE99Oin9g+U4lL9uXxwcEnWVC/fuaDWzzR+al87V3DhZZxfKJ/8d
2fE60YsFE6a113hSUZ51oD3D6M6kDAcO/Oi0rHa+PMqz+vx69xZmNIKzTt+8
3z0VwoyIR86J7xtB05jQn9wZKO/8/nYC5aYzytv2bQPV2mNQfrjM6LXeD39d
wi/EzuGxy9hwnMWwfpELytPefVNgsjEa5WcdzSTau51RfvYF3HV31DyUn+05
/uJb70qUn23wCp6lMLYJZHlV3Z+UgPLM6byFtcIXKD/7VmHZcAsDffjw+4ck
y61NYKxXrcQ+DuWX89Zt2UwzY0L90ohnE1OG5psrklhNZYdZ8OXjM+tvl6Hr
qXMwPFttSxMY5WNc0WyH8swx/l9d51Vx4OTlq87/eoqu7yF2LuehbRPgbwkN
9qrkwT3Oji39i5vArMth5hG5fPhYz8J/zMYmkASPKN12Q3nnvXGzOhPzBPA8
I+PJftn1iLAavdCwRg/a6tqvGbEd5YNnhjbu6k5HeeLWmx7DjxxoAvezNryr
UUZ5W01bba/zk1Ge2GrS/LlLJ+kQ7ihedf7rI13Cy+sP74x9wIZc6cYNWQKU
P/UuUJtqeKoJ1Kcrn5j4SQAVYuEsr1dNYLPt5gcjZ6A887iRtU4XFgghfbnt
Lv23TSA7s8rmrx7Kx9ZN8duwaII+NLxuI93Kbgb12bmaLzcw4Jacqp6i7iag
+z7PLzRYlzh+tgnJ1sOUARcl3vh6ympo/ln5qXkJKU023zTNYOV7DM1De3xx
4K79zoIuQQsF67ahvKzBkaITmu4oL7vaPgyc2IzysmmjEj3rlJqBfkN984gw
lG+eNG+Oh2GiEOqRKIE02fyTr5B3NngKyscG91w+G01H52uYUP4sxUObsMn5
NSn1iTpQWuE+MmJ+MyjzU295nYXyzNtutursNGNBtdlJekvOojzwXr8rgXZB
zaDarxm8NUN5Zovq3oDIMg4cVlvme/gOygc7RaXtO+PVDM7w62/Er+HBCaRk
sWWo7POgoBG4m4byzhZyz18tNODDzQevJf6VHY90Ta3n3EyUdw6uXhWyPl82
HwnzzJwY0gy4JvYjXhijvKxSzo8PnN/60Hh/Q4TqtWawJNWRXveLDk2bS5uT
zjWDb/KmYRtn6xDXZ+Onn7fYiXRY2r/px3EKypcOtNetGbvz8nUGZNyR+3OC
gvKmA+1qYuVK4wW6hCOX663Oy2BDqtO4g7MoKG/av/3QtNCMZnChwDObthfl
n53eJ69qLOHD6NPPuHEnmsGPLv041xLZfGkaq2WdKsqXDvRfdNNkTdRzIXz+
dEyuUWkzONiS8+AJE+Vn61KMhjUWoethHbHnY95bbXgkMOH0LFIL2Abds+7G
oPzz38fJEydaMGHXLLO/Z8yH5qO7TMyXqNSyoFm16Tatb81gvOm4NQtr+FC+
z+LTEV4LcEnfoH93jABO1LGeMO9nMygvjnScUYryzQ1p57acHCuANoXJEfM5
Q/PNu37+idB8hPrf/+h8x6cP5WWXXVBZsC1GHyY/WOEZz0R52ZY6V3WxcQuI
sAmJ//ZEC9qPTO5sn9wCLi2vh3Z52sT1UFKs/HliqhZhkwrRyyN01N4z715D
6yoduON+zLpr82T7f0N9k3cS5aPNJ1wQqs5gQSr10JHhJ1GeeEtpkNWfDS2g
xbz63Di+AAZGr732dGYL4FpU1qoUobxz4K3TloE8AdRydPn8Wb8FBIfXWbD7
UP45IrTeYngW6r/I4ckNSoUenEee9HvCuBaQFMF1VPuF8rORe17P77LRh2na
VXFX0luAXXxB17FaGhzpvOfL8JwWcGbx1vyfp1A+mlHxwnl5Ig3KH5xdN+L/
5Yvn9E6b8vBiC0jV8Qx+KkL56WvkatjnRYfDg2v9snqH5q0vaZX+WXqIAT8V
Fq3dNgLlUwfad8z6/adyjS48a9Xx+uFwlD81O3xsqnczyldvCL9l9a6gBTwr
V4zarSeAk5fZz0k6Ifs8BNwoNbuI8tOqoov7O2TXz1M70a33QAvwv+K19dBz
9PnI3HIhr/0A6g8V3jWaperBgJBwT+X4FjDyhrHfzhx0/cy6H0quFWgR3qCQ
quv7Qhv6rv6psO1PC7hb4XxWuRLlqRszD+0z3MSE6ivYkbusUP6WlzbON1na
AhZe2PK7bB/KUyuP+XXHIocNz+xOt2xbgfK4byyjFvySE4HSxxeaOlxQ3nom
VbdII54LzU+HOBymiMCjLdeFEVoCeMbIKgp0twDq5eLdzjtQvtr+F1/9jaYA
Rka/TohyR/nchnMfDPVkx1Mafsjf4gDKX+envL+U4Ym2B7f7OsPW6sFR3YmV
6/62AJU/Hmyplz4c/3nliS5Ze0uJ/Kvtf6mQuStMaDxBBJ446j+LvaBFrOcF
S1zf9oRR4dwEFe2F40TA2UOy1O6GNtH+QEM1XGci6h/papfgKUTtSo5h3Ttl
848BXynpHH65mgUDFjaMnjJZBC4pKM3+XYDy2A3xTRFaEi7UeJv/JiVraD7b
d7a18qlffGipYnbVYKUIXD65P4U+RwjLmzbqN8psMmyn2xOI8tj+0g+ieZOF
MGuPoCfp4dD8dtiD0miTiXpQQJebrX8N5ZsvmF9aU+UnAq6rlnz9JBvP9NFW
RkgPiEDVuRJXpyVUGHK34lVTsggY9K8ILv6E8tzzmzmpBcOpcMlD7pVd50Tg
RkzqctUilO/Oy057onyOBhU6AqbP3CcCzbZzU6y9dYj28oMxWrYxdOj50sBn
42iUrx1o7zw+etipRgYEUy4GkQ6LQNLJu6bfUlEe/NDFzMo+Gxa8ZCNaO7MJ
5cWTG/xu6W0SAXK68jO5Ti7smeDMzpNdjxULn007MYwHrWisM5+CRECQ0+uk
+AvlwT9RM/Y4yto9HQ92+lUMzY+/mvNuNPcl6m/V++Hcon4BzPotnbpo+9A8
/Gi1WLkvbShPnjxCfZjggR6s49z6Y9MtAmo/4t9uuU2B+/u6Xlwd2wq8Habv
nsFD+fHr26SV72JRvnzcxwPVvq1ahDfzFc3/0mnwc5Lycx8+yiufeD3T/+Wo
VpDQOmeJhQPKm39lKl81m8KAx6/duhk6YWge3Vlx39L4RF3CEpWaBD8pFyra
ZAUXvxOBprBdlN+P+FBC3bPmrex8jDrvW+j1ozz5roe8cuNEPuwILyPNeya7
voHktN4mlC+vKznpHHhfAG/lT8y8Uye7n7xsGvH1PMqb860UmcEXUf+EBtVL
ewP1oH68uTbDoxVY6RUsUWNTIFzAMrWgtQIppYvu2aBFrGffmDL8xaNLVML7
bmaXfNGiwM+Wz9SStw3Nr49wsxC4B6Ht1xgo5bxP0YZXf/dFfTBqBRZnVZ6c
kY1/BtqFiye4b3jLhKm7Lu18LHv90phNNcelKI++NLBDY3kpF5pOTR33Z2Yr
iFua0b0+kg/X8suVVsj2p7V+UvKPyyiPPunrqpSuVXwYfCyhizOjFfzODHgw
KQbl0yeyb+w13CqA7v2Vzc1OraCbLVeQPFWPaD9u/9XltQvqXyOwDrDi6cG1
8TX+zrEo/z1HtMx0zdZWwAw55RxzmApPvTauWBndCqKv2jCL5moR6/l6rCsj
Dc1l82uDhcKbO2TvZ4et7eft2kR7yS/vXQW/UR5+8TYJe7S2NmxwjrPuvdUK
qK9yI86MRfn3tBTDZfdGM+Hw8nlaIfdRPj62gWEzRnY89ukXwiqforx7p+LP
jGVnuNBpvpJWzqVWsOJVgbFoMh+m6PW7bU1tBRpnOVUxtijvLjRdnzuMz4e3
vdjM5AaUj0/1eVLVd1V2/T5cfyDQQXn4yK5HXs6TBZAXUBA4qWNofr5gDXnu
VhLq/4602Ne1QghNN55fzi1F+foP8929k0pawWotQWHORU34dx7n8NG6VnDk
xlr5TCUqtM3quHm/VXY+xVZJ9RkoX5/3xmv5nUoKXKriaze6qRWIsm81WD5D
eXsju+fxejGo/+QT6+xVT6H2LTWKHbmROlBu3arHgR9bQdHbKSf6D6A8fWz2
WcNxPsh6vLTlx7+gfP3lmwrtx5v4kLJs0zB92fl8DHB6X5eP8vQl/JSv/YUo
b7/19GPDbTuFMCfdqFfdoA241aomq5pqQtuOiPy1lm1g0ugVWuMOoXz928cS
pz0KmvBx3sn66GVtwN8ArJfXQXn7vG8+x7Q3UWTXp0bVc2kbaJvbyNDmofz9
1rwlqjOpNLjwaJw5dQPKsyuMjBq1W9AG1tHHHIEOOkR/tY3+l5Yz6NCkk2N9
P2Bonj9z37r4FHkduPjFToqLdRtIVrhnKjebC3fe35ylQm0D/dIWj54qlMe3
skwGZydw4byi2uh9J1G+PZC3ZUYyqQ1wr47bc+Mryusf37SnjZzAg53XfVOf
yI5vRNVdg7KLKL9vwYx68v4EH1qXXsi7IXv9qE8nj3UAIdF+yZepyPUXwOPP
Pxq1R6E8fPSx8fJbYttAtHP6dFoFGc7R+BEqf6UN1IzhZG3WQnl/bVqb88vr
qB7gZYkWb10elfCs202PaZoUWPBiO2/Gw6H1AsGi9lGhd7Vg1/jkkwHxbeCv
97fwPRdRfUBC64PHHruR9xs0Pvdr5kDjqOL3Mw+0gZE/TtZ88eNB6dIbv1Vl
ti87prbBH+X9S7e4vAq14cH+XV83PfqL6gNiX+x9YJ7aBpqjclTBOFQPcDO3
YmScNR8G+l9Q7ugZWj9Q/H7E3Fxt1P/QosgN+WUC2H1LbcreZ6i+4HQIn1Er
agOSz5px3hvJMKSM/c47rw1w0lvsHmRS4f/2E4OQpL039z/WJGw3fGlGhDsZ
/jEa7mVz/9/1bjk045IW6m/0nBXgi7ZfM//ymyB3LUiOziJn9Mnerz2P8o+O
RfUHX/7M8p2pwoAP+8IjriigvG45a79J0W3Z9Xcu0/5SzyH66+fOZlOPIWvV
/i678hfVH/BZnc62PTw41nksxa+4DdzSJ80wvIfqDR4Z5R39VoTqEZT36U5a
FCK7PhvncnaNEAP/gMuL+XmacL7v9CsCoRjMbJh1/TSFDB+O+FO4b6wYqN+9
QbKypRLPI4uugRrPUE3Cj0aEikNIZPhRbLXpw2SUX06dvEftmKoYZG0PujHd
XIvo/6qJ41ihhfbn5R2bnj4GtQtmKAnj8rWhYcPBNyepsutFfnYszI8DF5Mr
q+1lx/9bbs9V3b+oPqFHZ2TRrrkc+Psd/3DMfJRfvmI3c3iJvBhoC5+sb+pA
9Qtj9jY7RqVxoRe4dN9Vdn4VN5t4Uy+ieoZbq7zjNU7z4HGWh/FSthgs6XC3
uzBRQLR3/Ym9+8QX9Zc/nPT2hI4AUic07b0/FT0f5V1u9BVMEQMz2xOfU3xk
11c072/RLDEoblx9bHsbqocotPPvUZHdP9MPhT6YDmXXc69bgdlHVB/hajHi
QNhrCsxS21c2f6IYxF9bsOjmdW2iPbNbzdywEPUvJrnnUcNR+8vaD9vWdLCh
2ZFS9YOy13c2yVs4dhsXTt9+St1X9nr86N9HQvxRPYTq7dEuv+y4cJOS79JX
W1D+m7svYaqW7Pr+vFi3jsNE9RLbE2vMLs/lQVpLiXRB8ND6Cs+vc1Y+0ED9
XcOcsh8W8OHpSY+nFa5Az3MZ8MFMBy8xOOtWtJdN14Srhq1d5bVBDJZ7rlqm
dRrVW3DHbM4P6iHD81UgQD1QDCJ6PNQFMaj+4sP7XSo++yjwcv+3Kg03MXBQ
cAsh+2oT7VrpCr84W1F/16trosfbacMqq8wt15zEwMJS2elOK6q/eJ15o6wy
BvlK06Htm3pQPcbfrECbdhEXjn7UkrHDQwyUzLeOyUtG9Rddk8afOHoT1Wd4
7t3SlOrBh2e/WE6Uj5ftbwfFeKPsfn535vc91tliMGzfq8ZIOxI8p0su3HhG
DA5vUtCVOqD6jI+zlHdF5cm+bz0zHZkpYjCjesQfhRmoXsNkffDHvdYU2HBq
bLvPATHICHh21s9Ym2inbNj3u2QKDdoqHehKejq03sO7butmP742dLu18t2s
RDHYUrHLdosNG9r2bjG4tlMMgnWOTs3tQPUbf71yQtv02JDx5sn9GbdRPYGx
Sb3q5HDZ5y8364Pcd1TfkTNl3GbRUQ4UUq+3LDsoBrYBN7eeikX1Hs6zw6br
xnKhZ8SlosyzYpCssxbsHcMn2u8aLtptvpQHH6z4U/TtxdB6kU2zfY2hIh/+
8rzidOwS+nxdqHn/GzwUg27HtdA9DtWLdKddTKgyIMET79bpldeJgd7Rp3vm
aZCg2PdhlEi2fxv3seo/lVA9SWRKzhOTXWj7zBTLv/a9VMKmrjHXW0ZT4Kwz
143Yb1H9RrWmgzXzjhjUbzgXPUJVm+hvQ2oKV9FA9u58LnTNYcGdpT435+eL
Qe6MO26nVnBgVGquoLFADMrfdpceWojqS66NtJH2TuHAfSnSpMvfh9aj6H7X
vPnDCPVfMd79wqM+LuzYUkgL/Da0XqU5viZ02AUeFEV2h45tk1m4rvr5YlSP
cqju7PSIXxpwlkdAk9wYCYgsPHxw00cNqGLolTe9VAw2FiZV3/tNJfpXOo6d
va1Wk7Cb+WH5KHu0v7fRsdJb76gwMp9TI/os+3xkz6/2VNAm2l981f7JpmnD
0CnNc+9+EYNsyexFMBTVryR99Nk0fSYLSg73SCtVUB59oH3Bi/qFtLdseNzh
Zv5y2fEdW6C7/NgfVM/y2tN3q085ByYuAgrGsuuhYrHpwphNPKK9zzinbkci
6p+8eJKzlRUPMs6dpu3XRHkOptZtkdwvMRhbkuS1qUoTsi8fvbGBIQHrni91
SmSgepjjHbEm9i804OVLnh3vTSXAocxQvSFTA/pf/bA8XLb9zR2m+jblVKL/
zVLF7So5moQb9tfHB9HJUPJw+Si3qUPrbdwmVK+8cYcKR0TOrvRRlACryaWj
WynaRHtvZpah/1xku40ff1xbrAvvP/h8sFZOAsa7zXl27h4b3pSTGlrKS8CF
HSdOqd5F9TRLKxd0Ra1lwyKdH42zVCVgWAn7+W13VF+z3eqcV4sf6v84dNlH
QzPUPv7mExG3kQs1fjJK1U1RnuTe/V8XvfgSILJ59f5YpiaRn9nZ9UZeV0wi
7FrTNHV6qgZcdIR8QG2e7Hr+DJtyo5UET884UrPCWwKajjcsjovQgOrZR5cP
k+3PYEFlpucNKrH9yjlKgblH0P6L5mVastOoMDvPUenTeAkofdcZpuegTbTf
NnSVM5H93p6Y93ljMJQAtm+s2GUFExZfP6azbvnQep/kpjdOCxhMGFMdYVpn
h+olho3deO/LXAkI9n0wKVSdDVti98vNmCMBs1WTZ77WRvU+Ge/TrrSOZsN4
b1LabztUT8FLMjZ050mAR9e8uosfUD3QklEhicFqaPsVIV6bc2o40K/sRpWy
w9B6Intf04DIaC6E/YunzlkkAb6jf7yftleTyBuZ2rwue/mKRDho7eIoq60a
sN/ha/j3TRKgQQue/eI5CdaSzE7EHJWAV6Ou6Hgs14ANVcznObLXGx8Sxs5M
ohLb79p9+cOrTWj/ozWZnqbHqfDnrwm+JvMlwML+YaP4njZsO3j3St1CCahR
79MnH9Qh+mevXkkbcZQF1zobkbtl7RPLyx92P0b1RR7aBk+7LrBhu4659hLZ
+1+hUKTpB7lEu9b4DbLBPurvq/jhS4aAC9XXRc75G4k+f1FGlOLEnRJw+myT
3/51mkR+6nH/LeOQGyTCzqU/s8IXa8CHY910l6VKwEnrhu78DBL8e3VcxKp8
CTjT8dF8qYkG/CqafDl6m+z78HXzsxFHqMT2xeX9t265ov3bP5aTpByjwuL1
41arHJKALclGCZNsWLBy76LkbTES8Nx311frjaheyXr3OYGjgAUbzxw6SklH
97sdjKNBZvES0F/aerNCiOqZ8tr6g9mz2dBRrm9u262h9U/bPOPsz1NR/+S5
E5JUijlQOynUS/88+vy021fHrrokAcL81SnvFmsS+TDHrt4OkEgibEmSxrUb
a8Adp++9Xv1CAoa7rF6ZeoQEV6QbTP/aKAGCvKbZm8gasOznMyfnNNn1NOS5
nDtKJbYfK/oe2GOP9s/JSziamobak0Yl+FQt0CX8UnxZpbiWBTvP2HofuCwB
JeezChPTUH3UVGNLD8XrqH5K3JQXXe3OgVmU+zfaRqP6jcy+yeGHy2Wvp9M1
L2yuJpFfs7M7NdozikT43uv9h+6RNGCJpKhDsUsCqox3qMTtJMHGT7rr1J9L
QPqZjYsEsuMd6E++bkudPwftL1Jt3/bQQiqcDlSPXPsgu9+sfbjOP5cJr+YK
49ReSsDuO6N2JBajeqrYU/0PtJYxoVLV7cIVveh+EuXTVpdXKfs+5vo8bYxE
9VYaRzevH+/HgoE7LNKMmiQgeufn0QsVOUR787SY2Fd2bKhnytnRoILyaAPt
nfWn7vUocGDVyVuvCkXo/f8U/+u2juz1063L4lTMNYl8XlTLOVNWMAm6T9vz
zIIlBTV2Ur0HfiSYHj5sd7hYAuYUu8uXPKQS/a95TD1wbjbafmvb4s1d7bL7
c+ukRULtofVeek8LFvqzdODHezpf82ei+piOhSsrRepSMNbKMlqiiuq77gcs
NG5SRP67KIDHbWZBoxtzvwPa0HowFZan3MLTbDjJNPFpL1cKNKccyTGZpUnk
B4OP1xZV+JDgj81LDVVspaDM+Ml9H08SPGt8PmCNphRkxu9Qie2gEv3j6/bQ
zOZpwsNLfrynTpGC2IrChiW+qD5s/qcF+dduId94LH/zuEQbJlCz2sJcUD3Q
SouCE9VaUmB3NkE58BOqD3tR49Xny5D9XlPDnq2bIHv95owEnhebaN998/3h
OWGov/+pLwruM9iwwblUpLgcvd/rYcZTir1sfyvOTf5mo0nkHes+2DGaPEiw
Z+9OH7dgKWh0WC/95koi2iuiIsryVmrCySs/dJUvkIKRseZBBQItOEEpiOoj
O/7yiNYV3TuZUD+q5OseNymYY3+py8QY1ZNRV7BfvZ/NhFO1KksOBw+tPxvH
fZvgxED9Xfb63G+oZsH0SP3XhUHo/SvtS5AskW0fnmSaM99Nk8hbZiTNduuU
Hb+30sknRqelQPnvyNnJq0hEO/ncnIMbdqD+Z1SG+U0014FmPuvEIwOloPq3
99m3j1C9WVatWy3ZRZfwOxXV83ODWBDuWHU38aQU+O5Y2q8UoUnkNZXPvvt1
xZcEuz6cnLW1WAp6bu2UsGQeaF+2+uiX7RmacH6w7gefTCm492lzoSiBASXU
n11V56XgjtOdjZvaUb1Z9vxsNSUrBrQ3kKsc/Rh9/nvZitKP2bLjHze/isxh
Ef2/j9HpJMUw4YsDtknFb4fWr63bfUeDR2bB1fCnn/tDdD1J246NzMmXgoTj
N7OmXNck8qNR3lnFHZtJ8OpMnUeCFinYs09jm/ZWEtFeHDv6rrtYE4YMjzkV
1DC03m172IsvxbLxfN73q2a7R6D6ooF211VyZcY3dAj3/yk6O082Hs1z3q27
4asUrGH2haRINIk8aoCE3iR3iAR9n4TFGJDagc8cB0+/OBJ01L16IE2uHeze
2j9BbSuqd9N9klt7oga5+peZ/71kLbj8QGC9Kg/VP21ikjaPl52f83D1mW+3
6MA4Levb5t2yzxeMOblTxCS2r3/6V7ewiAH108dEPzAaWi+XyohYb7mPCdM3
XDfarze0fi7YL95sxTUSDPtzvd7PtB18zFj5zjCbBJ0F1t2dtHZwKXWkf581
lej/aN3M3c9E2oQvC92VVxTpEPnYxMbzH5Q/kmDyz6rqMrd2UGrU6VL6iQTr
W4pfr9iE6r+2lY1dpDi1HTAqSpQSP2jDFMUNHvNmtAPLBFZ+0ym0vyLhD9t7
7+hw1stQTknk0Po51qLdrIffGNB41dwPrpdRvZngRbu30a52kJ5A+5XGkw25
HtmdzM5qB887XkY9UUD1dO/uWvx1m4zq6f78OR0y5ZMWPBY6rDwjoh3M+ORu
d3oag2h3mLZ+VbouA+ZuPBWvEouud59oQsK3s+1A8OXhnNWJqH7uwuSrjpEj
NKCaR9oSzpt28MDiaHmFEaq3m/Lm9QthIxlem8PeWizbX7uxO8c3VQturcxs
O/x2aP2d0gKzbulWGoQv33GGFwytx9Ols467T9SGHi5ub+bktwPz0PoJ16do
EvnfUIo3+ZupBjwfXvQovLsd7CqWk1is04DLSN4sfdnxWY5VaA41okDH1eln
LJ63g6iLZvMLUlD9neC6R7fREjpMqljis78BvR//+78DhHEXjnfcpQHT3382
iaV3gAfrR6wX5qD6vAqL0X0iJy0iD2x2TcVQ6YcGhFbSFvGMDlB7ZNyG+xok
uGOp/5Wxsu37rdKzbO6h+rqZaxfyMpfQ4ItFmQY7p6P87kA+uDtTtXNPIAku
zPa9P2llB6DYfXs5IpYE10ytWt8SOLT+Dvws0O/vosDHdxOHvQ1A9W3L9jSW
U4I7wFMxrdDTg0zko4x6xjv9rkb5Ctfa4EZbRZRvGV6hG/LxL5V4Pne5X2vB
6DuaxPMqD8e9tZ9kv1cDz1csTzeeq9ETEuuRPw4wG7UrSPCVqpO59lIxCDJb
E5nxgkSs1yn9uLCIcoIE6evnOXhEi8Fsy6ZUsI9ErDdNvPo5dYXs9yV21sFV
7bLxxPigU+90fqsT4wtlCdXVX+aD1RVl64EUpLvnzJ/5U534fV59dSf0blCH
hWZnehPWSsGlsxW3Td+rE79/Bq/NLGqr1eF33alhfvFS4LZxZeXkUnXi96i5
zdGt55U6lI/7NK7tvhR0dJ9d6ViiTtzvp9t2FXQ8UYdrLu4U0X7Ifn8/r/V5
+kiduN/e2pLdSX6sDjseVZ6sHyu7n2wYHlopM5H/5w8vyZLt72jWzyK7ae3A
e+T13pcv1Yn7UYttT7VQdjyZnzs2Wa1qBydHKduqyo534H6R0rN6n4LMY+e8
/vp8j+z+ZPqlhdqsTny/a8unmdQ3qcP/AfG3kwc=
    "], {{{}, {}, {}, {}, 
      {RGBColor[0.4022409456153132, 0.11256809584755181`, 0.58630911102037], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlD1Mk1EUhm+93yZlhzr4F/5WSl2LxDhJiZMpJBoXS1TQ4M6PDu4qAsGZ
kjhXjEIZtK6GVnbAoBMUBhONoO/JeQjD+733u/f83XPOPRfujt8cOxNCeC5E
4ZE+8+LH4ltJCL2pEK6Lu8U5oUdY0nlFKAtvJfdJPAd/5iybuGxOfKT/s1of
B0eL1v+CI611EJr8H7DXyv4z2X2v5YL4kmyd097lxM9MJiX8jc5H4j/xdG8f
f01ifScsCy+kX5TMjHhVmNK6Kp4VRrV+LR4Wl4QR4apQEAaEMZ0NicfFHSnP
T6cwITxBp0IezN8D5E2vJOS1Lor7xYPYno2e0+no5zdSfl7T3hdhRdiQzqT2
PiZuu4b96cTl74v3gud6n3y3kPMl7j9nuacev+XrV3SdXfH5xHXS4kzK6225
3iZ/O8Dq813Yws82Po/5v3aSl8TraXU6IJ42YrJ8ZYUuamz1Ogz+34fvY/rB
fJteO7pZZLrYM86wl0O3nb00Omn6bYFeWoweU8Bvhru2EtuJ7Q7+27CRQaaF
8zRnnfz3Ep/9z0TvtafR7XWj30t+LvKmevBtNSzSE8b3Ut6D/fRIHz02SZ+Z
rzz+vlGbTWrQpC57/Futhull6+MdarhJX1ic9ubryDbQNzmz3UcMlt8tzkym
nHicLxOX26Rf88SdRW8A3eHE1yP07CByi9TlTfS9AnoN/NeIrcG7shxMkYcq
73dd/CN6PX9S30PuucbbsTfUpIftbuvo1hP3OUSsu7yLDXE1+r3W42leLKZB
6mN6t6O/rYfiVebgyVysE3OB/JuPErHbrLnDvLW5myUflu969Ngb0eeCveHx
6Lqj2HrFvJqlDhPY/pD4eplZ0SCHc9R7ntlRY7aMEb/do8i97H417mo1raBT
Rsf2rGZfo99xLfr5Cv2UY/5fIbYSdv8DJ2rR3A==
          "]], PolygonBox[CompressedData["
1:eJwlkb8vA1AQx9/z3ka7NzGoX4NVwyoRYZGISaqDWErQRthR/gM/2g5mrcQq
hJZB0hUVu0TCZDBISJr4XL7Dp/n07nr3epdeLs4XupxzQxAhyUfSO9cLA3gn
OOe9Ypb75Pu3U+wPzxKbwEdhAd8nVid/BVV8Oio3DFP4E7E3cm14xG+J7ZDb
ght8DWa9eq7gv9R0qP2CH/wCWvgr3OFtana9ejTxGRjDJ2HR3gM5fBWO8RJk
vWbs4RV6PNDrEsr4EbG8V80hXo96m8VqeDmq1zac40WY85phs+6D3vZu/xHP
Rb3FatatntgZuQoUgmbabIud4M2g3dibGkEzbJb9xwbeH7XLFKTxl6BZdpMP
fDDqdiOQwTeCZlVhCT+Fa6cd2i6th/Xqhr6om9ntrOYAH4/qZTu13W4G9bIb
l/BE1G/tRj34c9Ct7MZ263/2tE5a
          "]]}]}, 
      {RGBColor[0.2498556666258807, 0.39410633443204846`, 0.8125321825100349],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlkts1FUUxv/Te2fhCyhoYMOjraxIEBEDxBgWvrVGYWF42FI1EDN02tAI
SVva2EIEZtqYYJkp4KNqROm0xkVLCBQqqQtcGBjQ1B1EUnTDBgwR0eDveL5G
F6ffvfd/7nl855w7rXqzeV1TRZIkPyIB+ZU/U7YHP00lyWdIETnL/mfOJ8BB
9iVkALkSk2Q/WI6uZ/r9yIPpJDkOPgTe4Fsf61+EnyAHkSFkWHdi2tfptH8f
kI6hxVGQzyHtnySOZuJZA57Bbp6zS2BHyuPp1B2LqQd5B70P0d8BFpBR1sXg
PkzP7nchvUi37vVr36dYcrLVK93z8ncSvBs97t/BanIYZ12jXAaVx1R0m9fE
WZ9sVih34yAnX3lJQT6XEmsdMS9UXYbE2xz26zivAuvBzcjaxHVt/6r2dm56
21Mec4t4yomrLuW9EzlNfDssbvCqYp7SWZd0TkS39SX4BL4z2H4kuL96+Zyu
n+WwjG8NnD0KnkYusj4DdoCdiddyQDW2/BbIVmXw2BsU/0T0OL8T953KZRvf
GuXbMKuc7bxNZ1tSHvNW5CfsXuNsMji/RdV1dvDYF4GfR79zAHwPqWe9Nzq3
2+RrULwUwR72vcpnVtrrngK/xtb3nH0DHkFOsv44/BfrZtXP8qtWvlnlvCtx
jpqUR7vuPKb+tznYC+5DWpGXg/t/JXhcVqsMUie0HOp1p9b6P/q33apni/ix
/jqu+TyS+OxYbi+q1lZzq9WodE9Fr8UYeFY1slq1KwfLp6DaGtdz4GXE6px2
e63itFV52jojNL6NyxH1Rz5xrqd56VD/7Edy4qhGM7g07WLrKvB9YlpvfSO0
+m5I+b28Yi1F520YvECeVzgrgy16Q+wtaZO/dklOd1tVC/tesDdG+33Sb5Ne
XnFvEd8Ww+HEubbcFoif2Wnnbtf/cu1Rj30VvV7HwGXIXNYLo9dkXPVrCB5b
VjUvKJaM9tYL7yJfWF8F/1ZUrI3KzfyPyp7VOqtYrD+bgus3B7d9VPftN8Tm
y34z7iOme7j3BzqXE+fT5v8pzhdzvlzf70X+4nwcvXPgMHgTuW72wBr0ZqIz
A5yUbZurD6Jz2Ae+hKxiXQtWIrOMQzCLrLX5B++P7usB+Z0r393Ba7AdfCN4
v78V3Of8lNv6gX2Z8zFwRfTzh62XkDWsN4J/Wtzo/Bb8ffmXB/AZvi1H57no
uVmOHwWveUkzVla/XQQb0Xsa/dejxzWo/jBub4rfGeLkb/RfUO7GwZ7g+ocU
v8VegaxMuc1Vmnmb/WbwcWQJ69XR31x7e+eDVezncV4Nbop+/3nwNeXyLDiS
+O+p1d64nCc+6/TeGO9j4q0E3gpe59vgHr2r9r7OVL0qZXNCdt9mX2tvvPGt
mllPWc+OyO8B9bD18iLFbLGbz8vqt6vqv/PB8zAOligf268EjwW3eVD8lcT5
VtV3Q/TZPaw5PKcetDd9vebYYrXzSX3rkQ3rpzvB63A3+HyP6k2zuK5rNqbf
poxmerE4vRTc5rdgV3Rf3eLhqGa7rFyNu6L+z+nXvSnNzCHlthv8B1kMRBY=

          "]], PolygonBox[CompressedData["
1:eJwtlFtMj2Ecx99/z/u/YKxWjJuUcGUj5bjZXDgNGXVh5RgmOsvG5kJbyUxp
NjqNsDGHSuYiZqi0XHBh6WDcaVrhwo3zIcvnu99z8dn/83/f5/T+Ds/sfaVZ
JTFBEByEED66IPjK7yh8wFdBKV4Om/FiqMbPwB48jUnzIkEwA1LxW1CGH4Dr
+C5Yg2dCMT7GnM/MHYcfeCHPMniXAxV4Pc86eHcDzuP34AX+FnrwT/58MYz/
q7NBI/9vQgV+mjV2864AmvAWOIKXw2OdLbSzaEwVvok5x5lbABvxhc58FyzA
BxhTzdga6MJP8qyVdxeh0lkMFAudoQTv0hx8GF5pLPQG9k0t+GGoCSyGufhc
1kxk7ViYg/90FhvF6Cte5mwvzdHcImexaYBCnZU52RGLYT6+xVmuamGv4qMc
+PiX4JWhxToPLuDnQ8uV1jiHLxP4fFiKr4O0iOV4Nd7Mmo9Yu00xwJ/y7Kxy
B9347Ci/+H1IxhcxJlexgZWay5gTEauRh/iT0HKjGCvWA85ip+9XrTTy7KjP
ZwM+GFoutKf23g6r/Pcfwr/BVbwOvuC9zmpnDF47O5PO1gEJ+HfGXMPbIYb/
485qSzX2B49G7d0DmIbn+P0Uk234qK/ndzCCJ4XWC5MgEX+mmOO1MBRaDBQL
9VQ63s+zMxGLSV9oYzS2CUZUG4zZythMiMfjo3b2VojDk529y4IEZzlWrtVz
RepNX1/K5xL8MmOeB5ZD5TLJWa1rj1n4FZ9f9dxd/Jezb1FNqjZ/+/qczLMp
oeVcuVeOOkOrGe2lPRfj06MWO9VECh6J2tmVown1vno2sB5UL+b7+0AxzsPb
4VjEYtiDr/f1qPfZeDzE+f30raoR1Ypqvh7f76wXmuGIasFZLSi/ukvqQusF
3RG38Z3+vlIP7MDv+P5VT3fi/5z1qmpEtaIeVC/qGwrwDOYs9/HX3Tfh60ln
jFUtOzuL+ucU3gT3A9tDe+kO012mZw14ur9f9c1r8RRnuVZPpar/4E1gOe3G
+5zVYj+8dLZHm8/3JTyFNWb6ftbaQ87ueq0xiK/w+dM3bMDbnK2l8+kuex9a
b6lmh/GpodWC1kzW/R5a7aqn1FsX/f66M6uc3cnKj3Lahv8HMonVew==
          "]]}]}, 
      {RGBColor[0.36690916712301946`, 0.6600310843213859, 0.6359251569314657],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlltslUUQx79z9vuEF2O5FCJKuYgJogjFFlo1aOlpExDPETwRizbG4iUF
Lygx9UGDiYroAxKERGOEBxoNIsXIAyiRcIpyqdH2GDW0TQwtqBwvDwoVtQn4
G+ffxIfJb3d2dnZndr7db1rLk8ufSEdR9BUSkIlJFB1IRdGVcBb9Bcj1yO1I
HVKFTJCN2a5CSrTvhRU4yDE+Bf6M0+to/5X2eYuQ6sh18yP3/U/afQ/DsuBr
xDCDr358NsCZ/5tXRn8f+rHwLmSQ9jIYgu/rAn6m0j+EfhrsS7mfr5ElcRTV
wiy8A/tnsV8K6+lXom+E39LvRX8EltK+9hC8iNTSviz43hdo/7+knX+nfY/z
tc8q7Xmm5tjcUfBXxWtxD9D/3vIOm5TDlXCRYrcctEW+z1YkR/8U+jy8lTkP
oquEc5G7aU8XTZ9HjhLPi9gfh/fJx/3I4uB+b4Y1wcdmw07Z27xuZCPtIrwB
mUC7Ai7Ebq3VQfAc1Kg25tFvsbiD+zKfV8M/lUPLpZ1/vXJUSQxd+JwH56ht
ugxjDfJrtHgaNS+jvAfsOrAflfg6FlPWhPXWw2XKTYvykJWN1eUpYniDuYOx
12ROdVliznl40s4/5XVTRA5g9xz8BN6p2G+TzYDsWuhvQv8w/ADuQd5BmpTn
kXxv0FluRbapvy64bRtsDT7WDDcE97PRYlFcOfi01loFd7Kntaz/np0V8gDt
1+DL2sczsAA7kX3I29LbeKt9A9ivhs9r3VaNH1QMJ1Neb73igNrvyu9Ws2d+
G7q9tq72YHsx20HlZzN27divh68z9hC6LbDGaov2LRYHspz2utjz3qdvdr/W
GlmzR/Es5Oy7Ga9N/Hu27zoHVwfP7Ro4nv4Y9OWx+xvUXdARPMbt8B6raXRN
sfuzmHuQAmNd2HwYvN+renhEefsvf4nb18FjmnccuZaxCruj4FxkhtV57La9
sjuh+Kzuh1V7VoOjsRuNboj20ZTvyXz/bncHNmeCr1GUjyuwD/AS+sn6TqfA
C/SH7e61+ypxX7PhJPm3dfK6T7KJn3+76rJK93y17vys+ruC5/592K/7oUd5
69E+H6ffAJvhSzrTp2KfY3N3wzfpr0H/CvxSd2A3PKc9295PM7YJm29ij9di
PYz8pu93ABZUe3tgl77Tj2P/Zqx+X4WziO1TywncrNp7IXad5eSQ9l7U2Q0x
thP+GPuadj4FZLFqtRaWqa6svi4Gz3/K1ldtPAq/Q/8Te+izOmTt/egTncMx
rTuM3XZ4LvZ6tdw/BqcnHmu5aOvb/Mvp74IRHKc3zt66atWb1V2f1u0PPsfe
6A7l0fL5Wez6gsaKqkOLdbfOxc5nh3JlOTuscZvTqffxc3iV3uIx8LTq8wdY
p5qvhOnE82l53RL8Htpm1N3VbuvoG1wB9+q7+wjm9S5n4Ljg9/9U+EXwe+Ag
HBv8bZgMb9K9b2/jNcHv/hnB76KSvv/xwd+Tcr3j9XpTLsWe21Ti9Z5Tzd8Y
/O2Yo7c1r/do5H2yd32l3m77D2pW/S+NfbxRNpP0b2P/OGcYewubs7GvnZG/
P1QP5+ES/Z/Yf0q13ijb71nNLcF/AYwROXs=
          "]], PolygonBox[CompressedData["
1:eJwtlm1ollUYx+/nOeemQCI3NciX2dTE1HxZJpviuxNytuUL5sgmTlNqqVOL
+UFR8F1BxJcPJuqHCTGmU9oHLS3ctJJJzYLMGIivRbo+qNOUgfr7c10f/uz3
3Oec6z7nOtf/updfuWLW8mySJDtRRDNCkqzh7xZUAf+J/oH/Qn/AO5i0IJMk
Vegr+FeeXWPsMroEf4EOwbvQKnhrtLlaswX+MVgsxbwCr+TZLMaK0TL4N7QN
3ouuwz1QDpyHBsLforVwNWqEu6CX4ddQH/hRsN+dxO+Ac6OtVYwc+EmwMc3R
2qWoBB6PFsPPGQ9wB3M64SPoDNyCTsCT0iS5ynir1qQWU7G15lU4E431rCv8
lOQOZu0Q1A4f51mN568evhrsXcqHcp2DJsNlKA/+GO3z+5gPf472w0fRBngv
avTfu+HyaGfRmZbAN6Pl8jB6AE9gTjVzK9E4+Et0LLE7092d9/vReZvgGr/P
49oDXEKMImINRe/BpeTgesZyUgLPZM56v/9KOOXZKcYaUITnoX/hG+hD5Q81
wnXoFY0R8wBcix7DFdFqQzVSDU9FI+EBaBJ82O9HZzgInwy2dz1rgEeihfBs
NAL+JNjedKbVcBH6FP4IFep3tLOpZt6F1wfLre5gHbyHZ4u9/mqj3YnupgaV
w2OCsWIqdl/O9H3GztgLXuTvV44Wwr1QKTwR9YRXux/kl83Rctbg+cjCMdjc
USjAY33/8ux0+Otoe5NHTsN3vb5Uk8/getTsfj2r/ETLpfwzFG51P7ejW6o1
ry+tqVP9e/1o/6XwMPb0M2svov5wrt+nzpwH9w1Wy/PRMPgC79jF2EZ0Hn7J
z3dae0jtmcbkkaZoMRTrB9QNfoMYU4k1BeXCd4LtVZ5+CGdSqyXtoSt8xd+n
mroN3/H60rNb8PZgta16kdcve/9R/lrUf4hxLmM13B0ewJw57p8C+BGeHgS/
he7CxcxpY+5N9AHcmTXvF6I0mMRF6BljM1ObK0+Up+YJeUOeKoPHoN8zFnMy
3CfY2dUj1CvyUXFiOekGv55aLpvQm4rl/teZ2uB+wbygNVrbA01L7Ez9g3mu
1v0aWP9/1mpNZ3wMd0TrJcrxc3h4sLtVDaoWZ7hf1SPUKza4f1RDe+AT3v90
x81w72DekwfkhbHuP62fDo8KlmvV3Hj5M7Xe+xManVoP07g8/g78jftfPawZ
vuj1pPtWLXR4/1fN3A9Ws6pd3XE/+Dv/vihfraq/aN7Q96InXOb9T2dUb3qS
tbtXj7+XNU/JW/LQL8G+eQu8f22Cj7o/1UOOKJ73S53vfd2F9zf18LnwPp41
ef7U6wvYY0vGakK18XZquZBHBsO33Q96/41g38w879eF0b7ZVe6vY/JfsFpU
DXRXL/X9652ngtWQaknvHK769O+L9jgHLvD+od9T9A+E+0810snvNv//QT1I
vajC+6W+YZ+pP3p+FWME/NDrSzX7H5yfmvfVY9Rr/vb6lIfl5RfN2RFN
          "]], 
         PolygonBox[{{1151, 1150, 1130, 331, 1148}, {1152, 356, 1167, 1150, 
          1151}}]}]}, 
      {RGBColor[0.6004279671441201, 0.7426603837750129, 0.36488050227381424`],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFln1Ml1UUxx9+93kybcWLQskPsKZiMzCTTMT5gpU4E0VMzUy3SIWWq8hF
mhmuzVzWsrJ/ar38kWv+0aTI9bL8i+VqUtbWskwiKZoECpoilml9zs5364+z
z7nnvjz3nHvuuc8NdY/UPpyKoqgTCcjEOIpyM6IoDXthH/KbCYNG0d8Nm5Io
uoStMXHbGOR65CPmbMG+P/b+wNjLMGHhEvovptwWy16kuSORoQy3XUDOZ/h8
s/GJKAu5woR1/4Z/Bt+f7XMEvEx7EHsvLIZlyARkZeI+LIFrGDcPfbGNR/ai
/wPPI3vQ/4BHkF3oX8IXkBXoW2P3x/x6F7Yhm9Bb4NfIDvR2+B6yAf11OMA+
+vj+rzCPb7dgHwY307cAfR3sIwaFjLkAT9N+E3s/3I4sRd8Y+1q25k6YyfxW
9GvMJ+YUMHcw5bGzGNo5dOiM7KxKYQUyCbmSfcyAA9jrmT/IOuvhgGJ9WmLx
PoP8m/J5v9s5pfzs7AwXsI9S+mfAYmQMei5czFo96Ctgg9a371zSOrbecton
sC+DIfGYW+z7M3z8gL5/QXsY1N7M3itbn2xD2u+plOddP5zDWmOxlcJP2Os3
2PfK70mKRTryuFk+HafvZ/gVPMH8fPQu0cZlIsOQHIuf8i9bttPaj+1rS+I5
3Qy3Jp7bz8C6xH27X36bbjGy7xdqrXLF0GKZhcToGbo7l+Vnv2Jgc5v1rc2J
+23nYufcyZxX6O+AN+LPQmyjxXuRamQa7XqbA6cgy9DHweVwfuRt62/QHGs/
EHn/WtHa4zVnePBYZCtGtobFukqyTLa3GXcAPgdrkG3otXBq8HWvtfWQJhuv
PTZpH4toN8JKOE995keL1rS125B29FZ4SOdu538U6bE7Afcgregvh//jkgk/
R35C/wI2ILvRVwWvI1ZPjsGrLF7oqeB7tT3PgWOD+5mr/tmqO7OCx+lWfada
fXnB4xGpv1Fx3UF7H9wJX0TeQX86eL5WKaY1idfgOxPfh33vHHlQTfsX7Avh
o6pvVufyVf/SOp9CnZFJkeptCXMOMv4muJQ5k9Hnwrm0v0OvgOORNvTRsBA5
YPmbeL2x3LMcnCK/i3Vn0rpfdaw10+47nMOcH9Bnw27VWKu1xdqn7becvsPY
p8GN+LgL27rg9y5LfqyVfT18FnkL/Qn4gXJgf/C7miMfRymOw4KvUaB16pSH
S4K/L5n6xtmU76kH3izfLQZN+tam4HGx+EyBx1M+9yjcovyxPDqivDpo+aKa
Xw9Ppjz+f8Ea2hXYa+FEnUUpfEm5uhtOpt2OvQxerfqfDe/SuS+C54K/iYPw
dtod2KsSn2/rvAqfVF16Cq6kvR37fXC43qYRVruUe83wY92jz4LnpeXn8xZj
1czDMF/vbxGcpfOthF16+7phtXw0X8cpnhPgqsRr+erE3wyrbfckvm/b/3x4
Rn6Zf2WKw9TEc7lIZxypZobY/TG/Vtvegt+7NBxJXw5j8mwver9mwvLgNWZ6
8BphtaLT8k0xsdiktU5B8NhZDK3GP6Y3+nF4m/J2Ovxeuf0j3Kf/hPdjF9Nb
YaXu2h3wbt2RFbHHwmKyxt4Le/vtfYGH9I/xLbyo/xZL2lP6Zzgbu2/m43Ww
RO/gLfDBxN/ThxL30/ytMF/0b9MMX9M/xhuxj7PxG+CH+uf51P6RUn5Ph+z/
Lfh9j4P7b3Foin0tW3MbTKtWjEncB/PlJDymd6oL/gcoGDeD
          "]], PolygonBox[CompressedData["
1:eJwtlm9o1lUUx+/z3PtTI3KaGaHTFeYfdCtdWWumbma2yk2dbuWkqDlTIbIl
LG1ZEZRFkJr0JvpLCb0IRyOCyFeSBK4sCCqdmrPFppubZjNLHX2+nfPiOz7P
/d177rnnnHvubmrcVPtUPoTwNkroK/605kLYjg7C59F78KfoErwNPQQ/gLbC
pVkIP8EdaA68K4bQjp2P0Zvwj8lsvYU64UE2m8e3KnQ93w/zuwBmaeiE1zC2
G34FNcAnUR98DJ2AX4hmW3Na4dFoIVyKro7mg3zZj26Fi9A++ACaCY9F7Tkb
mwjfiQ7592L4XvQ7fBQthheiX3I2pww+iY/j2Os6dBRuZ88OeB9qgwcYuxEu
QZfh7rzN1dgZeAgVwhPRKfhvNB2+DUXWV6AmuBktgnPELLH3EL+H+V2AlgY7
s85+kfWTgtk8DR9Do4L5KF+1h/bSHhfgymi216IF8CPRYq14bozms3y/BV0R
M9YAb0BlcBVqgdejJfB30XLzAzoI/8OaycF86oOPMNYLH0E/wweisWK2H/6X
OUXB1vTDs3w/nXEGvA7tgF9CjfCz6P1gY5vhFdG+6Uw10XKm3KkmF8FXMVYf
LKZz4fHoPrhcOYTv9/MoBqvh19DeYHu8Ct+M6oKtmQK/Hi3XmqO5KlzdDdXU
NfBF8vUJ3IZG8HtEtHgWK3+crzha7HRGnfX2aLnQHqWyF+1uyOep0e6AfJOP
9fAYr/dqNAEujMayp1yVR8uV5utstR4fxaspWk01ezyXwyla7cmmbK9Ldrfn
o0b4SZ0JHkbPwF2cYUKwO3tCtc2ca3NWo2PgP/JWO7rjo7DXGa12/68B+E/l
PNidHoQ/8niqHj6PVoO7vX9sk7/YnI3tKagC/itvd30aOg+vd3/Vk56Ht3h9
KD/b4Tc8n9pDe93g/hahGXC39xf5dA7uStar1PPOwN96vcr/w3C/n0fnVcN8
0fuRet5O+AvvB1rzDfx1tLuhO9IBH/f7IBuyVYONcmyVqKfCe1Q/6AP0IZqX
7Jv8LYPHJ2OdQbGP3h/0exw8J1msFLNKeL6v1x7V8GTZ8HgWw7W+/xL0GLzY
4638r4IbyPlZ+DRaDZe4fdmYCTczdgW+gDbBj6MBuAfVw3XJbMnmSnhFZrbU
Y5fDT6ChnK1pzMwH+bJS9ZYsR0Uen3K9PW5POW/yGClWO9EudMj7kXLaBW/F
Zsybjy3wyGh3X3dSd/Nhxnr5NojWwu+q5uEtaC/c4e+X3sQvk90B3YWEzefg
pei3nL0RFYpPZm+J3os74M3JzqIzPZ1sD+2lmCq2L2dmSz62qnd5/WnP7+FZ
bk/v1SR4mcdHOVPtPMpYH3xO8cgsB8qFYroBvpS33qMeq17by5p3+LYDdcMD
/r5rz+NwW7KzKwafqT78PdQea+AaP6/yuwqu8n6rOZrb7/bVA9ULT3k/1Jj2
/jXZ3vrdk8yGbCkHy1QP3u91h1vgkZn1UtmI8PTM3na98bPhy8n6r85wFq70
91o+Pgjf5e+7xhbAc/3/A70Pd8Oj/f8B2RhmfZ37o/XVcKH//6A5BZmt0Vqd
+R7VTt56kXpiT95yoFyoZ26E/wM5+yx3
          "]], 
         PolygonBox[{{1304, 1303, 1305, 450, 1316}, {1223, 1222, 1224, 399, 
          1237}, {935, 934, 916, 178, 932}, {1033, 1032, 1013, 250, 1030}, {
          1290, 431, 1302, 1303, 1304}, {1161, 1160, 1162, 364, 1177}, {936, 
          207, 951, 934, 935}, {1034, 277, 1050, 1032, 1033}, {1202, 376, 
          1218, 1222, 1223}, {1142, 339, 1157, 1160, 1161}, {1169, 1168, 1152,
           343, 1164}, {1190, 379, 1203, 1188, 1189}}]}]}, 
      {RGBColor[0.846547793054481, 0.6831656970892198, 0.24253294684878873`], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlmlsl0UQh9++/3fB/iuFpNS0iSZirAVLrH5AjXI0EIGqJKbQemCkFKxH
hMYKpbRqRKsE6e2JCLSFWryA4pGoMTFBRQx+86ACBQ2C0RZIJWoVj2cyvw+T
Z3Z2dmd3Znffd1JVTdnKOIqifUgKOUwjgQOwK0RRf0YU/YVhm3SzXYDsQc+C
zyI5+G6AeTAfmRi7LU/6SdOZ8xiswG+YsUthFXIOvTp47OzIY6+k/Tf2frgK
iRi3Onjb7HuDz5ePjEPGK84EpF3raIPZsfdlIo3B+WRwm/mmkWbaubDF9hX7
mEzNZ3uxvnXqeyK4PVfjO4L7dCoHExWvU/bntIYc2du0tlb4o8Vh7UfhAton
2Vc5PB57Hn7Q+rKQgPxBYnrxGYWv4zeI/ga8GxlCXwJLkaPoNwdvm70SLmDM
Vegz4BkSPcr8I7CS9jzsZbAZWYbeARvo68TnRcsZ7bHY03A87Y/QL4Zvq467
4Jta/1uwD/kWfSfcrfrugTXIefSH4SOqqdX2vwzfn7WPKCeWm8n07aNvCuxF
vkJ/DT6IjKKvgHO1X9t3t9bWA6/QWJsjS2f1Qrgd+RR9R/DcTlB+M1Ufs61X
zZ6BzeRhN+t5Af0iOAm5DPlTtRiCl9P3AXoevAv/JvoXw0akB/3xlPeZTxp+
w5gm9P2Jz5mreadqj9fBS7TOIngKv3b0Q3AHc32Cbx8cjn3sCTgm+HpsXa30
9WPvgAVIaeQX+1Ts9+Vn2zNMK3Y2fTPtDsEHmGeEeZbDybTvxF4ES3TeboW/
Mb4A+znNY3PYPrI0j813v2pdo/paba1mtWo/ZPcJv2K6fqJvLvpq9PnwBvZw
qdUOXq+zNAtOo+92fDLhJtoBe4LPZmQF+hYYJ263/o2613a/p+v8z4SrkEXo
axJ/c8bp3RlQnr+HX9BxGNsBWMf4mHnWBo9hsbbC7+Rv454Kfo6agsewWLMS
j2Gx6uFg7LEOifmKO5sYtbAELmb8CbuP8Gqd4cLg9bC63APrtZ41ti/ka+zT
4I3SZwRfh63nadignFvuyzT/fFihs2pndo7G2nxFqvtUuJl2MfZX7PzTno79
jOUCfRv6opT3mU8xeyxJXJ8N8+i7xfIL18u/Hr6DHER/D67FrwL/x2A37Y+x
b4RVtEux35v4B+F3MIT9c9XF6rNd57wN/hP7HToPy3WW5sFlmmcrayzUuZqS
+H22e92FT47OTAou0Xu4FC6kbx0+18KQ+Jt5Fv048ou9USn/BhWolrY+W+dg
yu+23fG9cJfOzKv2ZiA19o7BX+U/nPJ31t7bO9DP6ltp38wB7Xc//ExzHoBf
0j6C/SAsVJ4t388zTzX6lehj9G7b+92juN2wRe/SozCNXIOeYblU/q0OfXpn
dsLlykMZPKa4LxGnVd+LFpivWGNho2rakHg9rC6n4U0pX5utsQ69Hb0abrFz
bPmxN09n4124gfGV2Otgrepi36uFifuXw/e1zt6UvxdW37zE92P7GiHufYo1
B55W7V4mVpdyYjW5TXfQ7uImxbX4/yb+z5MdfM+29w/x+R/N4gxu
          "]], PolygonBox[CompressedData["
1:eJwtlllsV0UUh2/v3IG2QCExICgkQqQgIMQHxZiCRJSCSmK6IUENFCi4sFht
7cIue2kt+iIRBQp1ARSLoDHGxESiMRaecMeyusRIWTQmjRD9fjnn4Zd+/5m5
Z86cOedMh1cuK1maJknyMsrQf/wYwd/h6DpcEpJkLVyNHoF/YWxCYmu09n7G
Fvp8IXyFsZHwYHQZXhzMdhtqhJ+JfJeTJD3oafhV9Adzp9Bp5ov5/TNzJ9FU
eDpjNcytRxXwC4yl2L3G/HJ4TrA57aG9RjH2OXMfo1vh/oxNZu4hNASeiKoS
szkNvo1D38La8agIPp2a7/1QF/wENq4y9yd6HF6FIuN90Ivwl9j4ibWd6Fiw
M+ls+uZJOA+9D7ejXvBX7LEebkXfwRui2RqANuvsjJ1Cx9EJdBmbPYnFqBvu
Tu1uBqKLcH60s2oP7VWKLri/jyl+/lsxVWxXuP+6gwbFEpt3JBajPvCNfp+z
0J2KF2uOs/ZbdDc8y+Ot+JXDdWgX3Ipq4aPBYqGYfBEsZvJFPsyBaznTXLgM
1fgZddavUSdq8vkl6DW4Kpht5eACOC+YbzPQSHhKsNyTz/J9VbBc60AtcAM2
KrA1A82H7412li40BR6KPoGPoWHw356/iolic5PHVzlVCG9l7FBiZ94ULOer
3b9SeFK03FW8p8FtjH3q+fEB/H1md68c+CaznFRuzkaj4XHBWDmqXN3Omvms
XYZ2w2Oj+ao7GQdfwt+ixGoyl/VHPP7as0P57fa0x6hgNaPa+RcthYu9vrTf
A3CT+6sz6qxve7y0Xzv8pueDfNgL98an3jmWoxFe6PWiGngKLmesyONfCddl
dve6Y931Pj+P7mAPvNvjKx8Uuza/nw60C77I2D/ai98p3+/JLDaKUQv8oPcP
5ZtqYVJmta0avwd+I5ov8ul1+OFoufArmgn/kFofLEBn4LOp8RD0G9yTWS2r
3nJZnwTLRd3BIPj31NYqh/6CV3g+qj81wPt9P8X0Ld0f9rpRl3oPeilY7uqb
Zrgg2tkVg/5wZ7BeqX5wRrWa2XmU4/VwP88n1XNfeGe0s05QPcH3ZcYaK4VX
en0oftvgu7zfq+YWwY96/1bNq/bf0x14vA6ot6lmcmzsXXg8Nm5HY5SrfqYu
72nqbYui5Z5ycDFc5d9rTHNTvd5VX/XKf4/HZ2gffDDa3orhO+ptqfXCfHQ+
NYnz9KbAV9RDPcaKdY3nXzGqhjdio4B1uWgtHDLLLeWYEmElY/mp9Uz1zr7e
z9UT1BvKvP8pZ7cFi/lk7x/58EfY+BAdQUfRFr65IbU9N0WLkWJ1MxqKVkfz
JQ81wuuisXyQL53eK2VTtsf4e6YaV603s2agchBth6+z5prHQLGoUc76efSW
vRJt7WDUCtf7+yof5EtLtDn5vDXaG6W3Sns0wXO9v6vmVfvtwe5Kd7ZX/S61
txRMfoTnef7ozivVK/x9Uw/phX87M+v96g874MOeL1p/SP3E7182KuBm74/K
4Ub4XLDakM1L8NXU7kL1qP9Nlvj7rBg8Bz/r/VBnroXnZZYbypHn4TV+H5qv
g/8HTDspiw==
          "]], PolygonBox[CompressedData["
1:eJwt0LEug1EYBuCDNhIjSUsYmMRAJZgMtZmaaG+gSXd6Ey7AFRgkxCQIoiaJ
GJgtKKukNZNIiedLzvDk7f+enu8/559rtRs7wymlcYo8jKT0Kp9llzcqBYZS
2pCLLFGN1NXkFnVe2NN9yB79LH5/cmjtW5YpMcmsbl5ecsERbd1BnhmzG2zq
mnKGacYY1U3JVQdfYY0n3brsOPc1x9y6z5X88d8z639ywG88c8o5u9bu5U3c
3Z7HPKOTv0N8j3e+rPXlgvfc2bOc3x/n2Ld/W3eS58b8AkXdRL533P8f5Scy
DA==
          "]]}]}, 
      {RGBColor[
       0.8883847560096176, 0.35997478837315555`, 0.17357760067288758`], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlVtsV0UQh0/37KGGwINgIEIV2kKhiHKRIAYLhruNwUipIiLQEoJRBKUg
WBCBhnJpCxLgCaItpFyexEA1FASBcCl3NIghAZ58MI1C9QElMfH7ZeaBh1+/
+e/Znd3ZmZ3mVy6etigkSdKMUlSTJUknBlbDOrgvJ0nq4Rq0Hnst3IR2Y2+G
G9Au7I1wO2rF3qG5aBt2LaxCFdhL4TPoWdQLfckeeVoHd8HLzNkNF6Ip2B/B
D93WWL2fpwGuQ7XYNfBqtL3uwPn4+ht7LiwmoBnENAh+4edXHFvQfuyt8HNU
jb0arkSfYa+Cn6JK7OXwE1SOvSRYDIplmeaiRdjVcCr6nb3egL1Rn2Cx1XGO
J+FG+Avsh26hu6gL8+/BK77mKrru93MD3UbKza/8+cl9/qx1xFPCeNfU8qR8
LYMfeOy6gwEeu+7ggfbF7lBOMrv7Bvg1vMn8RliAClFfV77nqo//zvMYFMt6
z1tfn7PD874TztVa7Ao4HT1k33L3U/CY/8LH9sj3mBeg0ax9H74SzU8xfF13
g5/X4FvoH+xpcDZ6ijnvKRfEuY3x8bAos/P0grPQb9hlmf3WeBc4OrN6GwEP
s+YEa/fAcfhqwh6reohWAw3wzWhnGxvtm+aUwInokPZVHaU2vgo+jPYu2uGk
zO65BJbxrYo5RXABWoc9MrXz6ZylsCE1n1vhRLQUezJ8G9Vgz4D1qBF7Onwi
s3fxb7R4FFcxLPf5WjchWIxj4Lxo9VytmILNeRk+x+8Cxl+AT0e72zw4k2+d
sN+BZZ5T5bYn37ozHmF7avV/B07h20nsSfBV1Td2aTC/8j8ETvZxfT+Xmt0C
3w3mc5ZqP9pefyh2z7vyPyJYbb8IXwp2PyP1rqO9xya4N7UzNMPvo/WKy/BW
tD7QBkf5Wvn4MzX/D2Bnf196Z3O8nlXXRZ67CXBPtL7RAqu460fqV5nVdT+v
6Q5/d3/BOV4/qqMf9YbRKe0frb9VwA2s78bYJvUu3S9rB8KjqdV/KyyEQxPz
e55vPdAFdDbY2nPoNOqKzgSraeW9EZ6N1t++hcP5Vsr4MOU9mN9BylEw/8/D
jzlHDlyufuK5Vs7vRev/9+EKvuUyZw0c7H7kT71SNaZ/LmszO08t7IjWe/9T
rty/9smi1Vgu3MzvnspnZufTOYfCnMR6pnpikf/uDy8Gm38pmF/5fwTnBau3
ymB1qfpsg0eD7duK6qL18xXwm2D98xA8EiynLfCw20c8Pt29ctPub/y26H7k
71iwnnw82F3rzr+K1mfVB5rggWDv/SD8zvOrPF/wnLah/T5Hc695j9T/h5Ne
P6qjH4Ld/wn0P7xd4fY=
          "]], PolygonBox[CompressedData["
1:eJwtlFlsT0EUh+9/7r0kUg9F7Ev+iKo9JEKkHghKIvZYYokm9thC0NpbLUpL
SZSqomjtlLQiscSeWirWeMGbRERsD5Yn3y9nHn653505M+fMOWcmmbV84jIX
BMEKFKHB/OTxXY0GwaNRA3wbZcKNMWqUCIIWqA08PAyCEuZy0QJ4KDa34Gdo
FDzdmf0f/qfC1XEQVPKtQmfhI2gxvBxVwN9Ds9WamP1rQ9tLe16FZznzrfkZ
8BbWNObbFG2Fr6BrcB2qgQeGFtsqNAm+xFiNMxvZlqKx8Hj0MTSJJ6CDzH3l
/zdrP6Mv8DdiKsd3NfoBl2EzD9v56DC8H7WHO6B9cA++XVjbCqXD3Z1xCkqD
j2JTwrcUVcLD+V5m7jgaBh9jbJ8zG9mWo0XOcqbcTSamY4HVIBtOJ6YksTVH
aXA9yoez0QN4pLNayscI+Dhjy5jLQZXwntDmZHMCHhVaL6gnpsDn8XlOtUPn
4DPolLMxzammqq3GNKecKDeKWbHXRuarAF2DezPeL7Ac9YL/MlbF3GH0OzIf
8nVRgosYy0pYzMWR5Uy5O6CzwDmMTUmYzXrZMt7Z9+tsXxPVpq1yCj9RPVAz
9ADVo5Z+/im6of5FKcobuud7TT1301kNVUu2D7rBM53lXjWYA49z1jvqoUm6
S6id9/kY3fF7p6L7aHds/vW/S7kNrRa6g3VwfmxzWrMttjWpPuZHaENovaMa
FsFFsZ2lpd+7NWNjmJum/lO/+/jVk5/gpdj8I/ZfaDGcCK0+GagJXK68MPcG
HYVfoU7+TM+Um9Bs5UO+fjLWNbA9tNcn3/8a+663wucyga6r9535VgxX4dco
qT3QW/RG9fQ+X/oa6Xwd0XP0wnPSr32HnL9vH4CHvtaq4V2UEdtZdKYh8NPI
erMENcAnGSvD7hA6AW9y1r/qv2x4IRoCZ6IlcHFstVU+9sB5zvbTmo1+D+1V
gargy3qznL1JepvaR9ar6tme8Cm9kVqHTscmsd5QvaVrY8udcrgutp5I8T2b
B7+P7Cx6sz5GFpNi0xu1V/fF2Vl0X9bAa52x7tBKeICzXlE9+/s7qLt4QYIL
YsulcrodLnTmSz7z4bmR5UY5mgPvjM1WOSqMLQfKhc6os+5wdvf1BuyC+znz
rZ7qq/529pbpTdvsbCzD91cfH5NiU06V2wJnsagGuaqJs7dbMe509mbo7VCN
Vev/+F/X1w==
          "]], PolygonBox[CompressedData["
1:eJwlks0rhFEUh+/ceV8pdv6CmYWwscHCDFKI8VGm1BTF+MjKjDKTwUrIBsk3
k2mmZFJKFqRRlqKwk9hb2NhY0Kw8p7N43u7vd86599x7Xt9oPByzxhg/uHDI
J4IxAL9o6xjz6DXmi3UfXjc8oAvwgteD7oV96lLkRj3GzKCnYRZdhDzeBnoL
sq7Wyz4heGaPe3QZ/iZ6HU7JL0VXwQF6Fwp4laKhHx2GP2q/qa3lDD/xMbwJ
OCJnGM5Zn8EnsSF0ltw7atrwGmVfvJCr8Tz6BLrQexBk3QQ58uepq4EI6zq8
etiRd8JbwgtYzZc68SXeAAli7V49R85rlfvjreGN4P1w7oXVPqXfanjCS1u9
t9zf4W4VeINW5yLzacEL4E2ix6EZnYE5vAV0Co4dRdZJq3NJo99hGb0IK3hv
6CR7lqBv4Ub6dnV2MsMp6CQv4agv8SsoypzRl3At8wEPxFztR/qKgo+8oKPv
Ku+bg1e8DvQHfpr1qtWepLdyV2e9bfV/kP8iA3HZW/5LmTN5/+TIVUI=
          "]]}]}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwV0UlIFVAUgOHrhKG2NqNNG+0V1Cba5LCwgdo5UYvABiIItCDFIYkibdKn
pmWDafrMShs1XpF7Q0HcloK+XRsph00kCH4uPn44HO6Fe3efv1JanRRCiDOf
HMIvFknwmxVWWSMpJYQMstjODvKIsJdHaSEc1eNUcIrT9Jg3ahNROhhimK98
Z4In9hL6VP/qCmmpIaSTwy72sZ8DPLfXywv66OeCeSPXidLOIDHifGOGWRZI
sMwqG6wz4JyXxBjkFUO8Zpi3vGGUEd7zjo984DOfGGeMaq5SRz03ucUd7nKf
B7TTQSfddPGQKG20co8WmrnNDWqp4RpVXOYiZ6nkDGWc5ATHKOAwB4mwh1x2
kkUm2/jvPf6xxDxz/GSaScbop49eWqmnjhrOUUkJRRSST4Q8sknlmbuS9Y8/
X2KBaab4QZwvxBjg8dabaDkNFHOJQ5SRyxE2AYKTYt8=
          "]]},
        "4.5`"],
       Annotation[#, 4.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwV0rtLFXAYBuBfWuJRsCEwoxoCRUkFQUQRpYNBOSTICR2UQg9eMRIFD5o3
aIkuBI6CQ4FWU5hI+AcEgtYoJB3FLDFCLazBwdLH4eEdP16+90q8N3b/VAhh
gS8pIayywVe2+cEf/pKSGkImWZzlAgUUUkQ5N6ilkSaa6WKYMZ4zwTSvecMC
S3xkg01+sU/a6RAiZHCRqxQTpYbbNBCnnSFGecYEL5jhFfO8Z5lPJFlnj98c
8p+sM/pxicsUUkQ5FVwjyi3qaKCRVuJ00EkXvfSRYIhxhnnIKCM8oJ979NBN
G3e5QzMxarnJdaooo5QS8sklhwwipHGgzw4/2eYzKywyxyxvmWKSxyQYoJ8W
YtRTRzWVFJBDNudIJZzc8rN1kqyyyAfmecdLnvKERwySoIM2YtRTQ5TzlBEh
j0D2yT7sMV1uySP+ccgeu3znG0k2WeMYp1xcMg==
          "]]},
        "4"],
       Annotation[#, 4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0j0oJnAcB/A/j7dFUV7y0um6Y7hIjyQvpR65gavHS8pLGDhdt6AMFmIh
TIrJInWZrhSDZFN3XZRuMjApg5e7Qedd6T5l+PQdf99+fd8OjLQPJ4QQ1viT
GMIjVzxwyS0X3HFPJBJCEhnkU0AhZVRTQy1NdNNLH1+ZZIpFllhmnW12OeCQ
U8645oZb0pLc4w2lRInRSAedfOYLE0wxzSKrfGOLHfb5zQmn/OUfz4TkENLJ
pIAiPlBGFTXUE+MTcTpooZMuBumhmzZa+UgjDdRSQZRyiskjlxxSiXCnzwXn
nHHEL36yxwbfWWGBOWYYY5R+WojTTB3VlJBNFhkk8OLHl5xwzBE/2GOTDVaZ
Z45ZxhljiAHaiBOjnkoqeM87sskilRRe7ClZPsunxNf9/Qc8Dk53
          "]]},
        "3.5`"],
       Annotation[#, 3.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0T0oxAEYBvD/cSYD7hhxR9ZzyCBkUIojZVAGCqV8R6wYfIxKKaUsBiEy
SpbrrLoUMYooq48oAz8ZfuPT+/S88aHpnqlQEASLVOQGQZwoMSKUUkQZ5SSo
ppEOUnQywBjjTLDEBpvsc8Ah51yS5ZEn3vjki/ywm5STpJZW2uiljxFGGWOB
dTbYZY9TzshyxT0PvPLOD6G8ICgkQhlRYsRJUEkFJRSTR5gcPuSfeeKRay7I
kOaIQ7ZYY5VlZpikn05StNNAPVVEKKLgr6c9vnnhjltuyJDmhGN22GaFeeaY
ZZhBuumihWbqaKKGZO7/338BODE8/A==
          "]]},
        "3"],
       Annotation[#, 3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0EtKQmEAgNFfbGitwUc7KHIFUtMcRQaKI6G8V5egtoN8lNi8olZQPpZQ
6hrUFQSJQQcanPnHl6nGxSgRQjgnSoZQpk6FBk3adHjgliEjHnljyowFS9Zs
2LLjl4O9EHIccswJec4occUNETEdevQZ8MKYKTMWTJjzwTvPPNHljjYtrqlx
yQWnFDgiS4Y0+6T40fvNijlffDJhzCv3DOjTIk7+//sDnqQvOA==
          "]]},
        "2.5`"],
       Annotation[#, 2.5, "Tooltip"]& ], {}, {}, {}, {}, {}, {}}}], {{}, 
    {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
     1.6], PointBox[{{0.847163868861284, 10.166365109167797`}}]}, {}}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"Rb\"", TraditionalForm], 
    FormBox["\"B\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.8, 1.3}, {4., 13.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.61451223397795*^9, 3.6145122683663297`*^9, 3.6145140482933173`*^9, 
   3.6145146561472836`*^9, 3.614515114592338*^9, 3.6145152668553133`*^9, 
   3.6145154040395823`*^9, 3.61451567801682*^9, 3.6145161802945423`*^9, 
   3.614578705964592*^9, 3.6145845443742533`*^9, 3.6145979608847704`*^9, 
   3.6145981057975183`*^9, 3.6146855195643225`*^9, {3.616998380303872*^9, 
   3.6169983868925476`*^9}, 3.6181403678243055`*^9, 3.6181425960501413`*^9, 
   3.61814760746216*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vldadata", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<C:\\\\Users\\\\Natalia \
Morais\\\\MEOCloud\\\\problema10e11\\\\pp_si_vofr_new.dat\>\"", ",", 
     "\"\<Table\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vldas", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"vldadata", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"vldadata", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"vldadata", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "vldadata", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intervldas", "=", 
   RowBox[{"Interpolation", "[", "vldas", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vldap", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"vldadata", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"vldadata", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"vldadata", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "vldadata", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intervldap", "=", 
   RowBox[{"Interpolation", "[", "vldap", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataAKB", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<C:\\\\Users\\\\Natalia \
Morais\\\\MEOCloud\\\\problema10e11\\\\pp_si_vkbofr_new.dat\>\"", ",", 
     "\"\<Table\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"interAKB", "=", 
   RowBox[{"Interpolation", "[", "dataAKB", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"intervldas", "[", "x", "]"}], ",", 
     RowBox[{"intervldap", "[", "x", "]"}], ",", 
     RowBox[{"interAKB", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<r\>\"", ","}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Vs\>\"", ",", "\"\<Vp\>\"", ",", "\"\<a00\>\""}], "}"}]}]}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.614513179622383*^9, 3.614513203149065*^9}, {
  3.6145133266566553`*^9, 3.61451333049938*^9}, {3.6145139346637297`*^9, 
  3.614513944508711*^9}, {3.614515595159092*^9, 3.6145156061668773`*^9}, {
  3.61813862360968*^9, 3.6181386920066395`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwt13k4lO/7N3BMUbI2yfJpQZZSKUvWOG+EZFdRqOxLQmhRJClKiiyhRJSk
hCwjxnIhJCFLlmSXfTB2Zga/u+f5/jXH67juOa7tPN/3jIidp5kjCxMTUzUz
E9O/z8QAO1YZBz91kw+tEvPyJJRkSVGxED4PZlU36/75t+Fjb2FhV9D6wXVo
Abes4s+37J3eECuuszCH+6buea7NwrdAmTlg/N94icWQ74bzXYhc0gj6933m
/IJZRkcQbLSY/fo3LlZCl6DRg+GU8Zb/97xOFWa9vDcUeFr//7hLfXDkgtYT
4P2fw37V1cw6R0BMyN3Kf7aYZgtY1o4Ey3tDnov/nvf+KLDUEQXP8j+9XMJ9
a8kgb8E1BsiM5nv//Pj2jOE8/TkU/s+v1iPHZp/Gwef/OTNI/j517wtIUOAh
ruAuY+3YPZPzEmwkTI/8c9PjW4VTWq9gzkJpYBn3ANeu05S2RIgsjd9Hxz0X
VTY14fwalL1ZfP85KOxo1YJ/Mti8bVRc+zd/wz3eBe0U4GkYGF/HHc3denGe
6w3k5YweYjmGr8dU7NNcxxsI2F6sRMCdGn19dTb5Leh9+xHPijuzrUZn1jUV
TvztAHbcBfwCMVTZdzBufl6cC3fZedeBGfo7eHK/JI8H97cEsvRMVRrstnvr
wIe7qWeb//TT96CVPkkRxN2598L3KfN04GBN9NmLe8A2a+fU3g9gn1nYKY57
4u2GPWXsAyTzs9YexD03bJIzmfMRUi94q8vhpku+WZ+4nQEUjcQFFdybLs/r
T2h9AouI7lgt3ByfTrwY58iEn1viPPRx800/HxlrywS1k+coZ3HvOToqN5aU
BdmMk042uCW8le6NOmdDwXJ22GXcAl0nnH0EPkPLEH/zTdy7/KY45/0/Q5F1
6ZcHuMVK1a3mtHNgLdr/yFvc+y+OMnt/zAGG9d5HebgPb0Skz3LlQiI5uOwr
btlkJWMvn1wgxj683o5bQWNgkdqRCxUyEsRJ3CqDoa+uHs8DxjPbyg3c6vdl
tajJeZDkrNq+U4GENMX+jHtuzofrFulwGLdu9f1nM675wOKw+5YubgOnQ4qe
jfkQXCj22ha3CVtbz7QsCa5pPme/i/ucnsTBaToJNFhW3pTgtp5obHa3KQDO
vHtPe3Dbht30naoqABGq6hUmRRK63FBbTXn6BVZ4g4gGuD08vK5cmfsC+y9a
GV7H7c0tRKSYF0Jz4MrLZNx+pm42k3uLIEfBQH4N9/p9BcG+J0Vw48ZWDXkl
EgosYG5pWS2Cy/ZsB67gfvBfvBa5lQzXYkMEh3GzGtkzMrFi+LrLtkVSmYRC
A6VJKZnFsK/IydUNd/hwlUTowxKA/+Kr1nHzCDzr818ogXz6SWtDFRKKOmUV
f9W2FL5pHbJ7jTsue3brOdUyCDr+7buRKgkl39ozJTGDQNOBWPfnOAnxti+Y
cUqXwy96muopNRIy87Q88tChHGx92CpKcLeliI/dbi6HOStxpUx1EtqpGla1
wFYBNQBThwE/z1/UZA/1CojSkLLJxd3FWnLeLqMCMoorfeoxEvovWUShe6AC
Zjecey9q4Oet/HC7uUAlfOf5kbiMu9fN7IdecCVQ/cs+HNcioaGmseMyl77C
9ogITXYdvL4uGwlmPP8KL6bK1upwOxHyF8Xqv8KKpzZbjC4JjR27myWgXAVB
bueVVfRI6MDPv4+jPKuAxNHmwn8Kvz+XU84caVXQPRiRSsNNecknzESshjf2
s/GdBnh9yvsxbulVw69j4iothvj9NvR3zt+tho2bZK8WIxKa3ciIHKVUw5Ej
dYWTJiS05KBJ+FlTAysieqt3z5KQ4vr7vpNrNRCpO0suMich3zjOkkq5b/Di
z6oXwwLvz++d1wqSv0HmfNlMgiUJMR3xHEm8XQvGmrXsBjYkpFH7q5I/pxb4
QnZ0/7TF88pW5XXkaC3wOgfMXbDH+zlm87ngM99BS6Rp60snEtq6mvD9inQd
sL9RaI9wJyGlh79vn7KtAz2TyXw9Tzx/+fgP7Y+pA5VruwI4vUioRiYqfGi1
DpRGXx7Nu4bX2+VHpy2rf8Dzo8Y9t/xJKH+lepPSyg+wcvt59GEAfv4hhAK+
g/WwHHCB8joQ77e3AQLNz+qh8qtl7NwDfP3d13p0rRtAsSWmUzSchI5ezg0X
j2iA40UM3vBnJHRpZQYIlQ2w0W+UtCkaz8Mdbm/KJBthMPc6k0A83h+Gts7H
5htBLo93tfMN7r40X17tJjjpvLplmozXb5q2aeDFJkjUXeGXKSOhj+5/D8zc
bAI3oVM371fg9UUX+VP/sQmsEj/nn63F9y+QqPaIpxlUyuP4Ctrxfu9T3bl8
oBmKVk1DbnTh55HWNe2o1Qx6bN2cur14P8gLJGvdaIZMw9g5wRH8Pk2iWTb+
NEPUL/WXYUskxCUg+8d9sRnWK0JXW2l4HvY15XVztQBsLrKW3iChs+5cjmSN
FlDYqxkhuKUA5YeGfrv+vgXWXxwvqBcqQF6Vd59QvFthjb9zZ6tWAVrhjcn8
E9YK+lVuZFm9AhRgm95Yl9oK5hqKsmlGBegJUzPPh/ZWOJVxTabufAFKVxd9
7qjyC6bSq29s8ypA/eSqxF7mNuDjOZP28m0Bcmb/XdYg1AY71FiPmX4sQNPn
p/pK5Nrgzua9xXtyChBjhU80wbENtuZEbNsoK0ACis5pFt/bIPidE1vPnwJk
krc1u+lZO1wCPk95oS+og2VPE/rQDmraWeLeol/QRTPZ2azKdpiczoj7LvUF
XZm1lHu60A5JrHnJ31S/oEdHPn3RO9cBBv1sMayXviCUYVReubcTbl11dyr6
+AXp0O0GcpQ6QUTVtfhz/hdUf+omS4ppJ/wH/k7VZV9Q1/jrE3fvd8IZ04MT
uq1f0JLkbK3qaCcs/9D1yFv7gqRTo5vzs37DB7bA19bnCtGO+KPL5d9/Qx45
Il7bsRDRwxp2Nfz9DT+jJLnPeheiWh82l2GhLqic/Prf6JNCZKflt873sAvC
o5WyBr8WoueDdgdvXvoDm2o7Un2Vi5B/+4bJ/dt/wG7z8/TRk0XIru7VjYjn
uL20Tt87V4Skc9sr3v/4AzwG6abHfItQ7b1T5zoVu6Fnt9NYelERYgjLBivz
9IDCTqYrqyfIaHDHz4/aB3tgqnP6sJwFGX3fcqXJVKcHjhnGtCe4klEs9d1/
l/17YMPhcCotnIyOlgvmvhzrAVZV1oalP2Rkf4m5j17eC0y/P6lI3S1Gw0Yu
u/qU+sH0s6fPeUoJ2lFzRSxAux+UF9UDTQilSFPN69Bus34Qinej3BQqRckH
bx+3cuuHq5FlKef0SpH1lifWHYn9MO2exOf8oRS1VGS/+skyACkH9nVNeJeh
MvnlXeX1A2C3LfPInZ3laCqDLnbp9wCYKQ7flBUvR7v2MR1eHx6Ahuv3MYJ8
ObrFu1Xt+MYAWAjQQpdNy5H8tNCFQplBmFhUDz8cUY4+vldP/Bw7CC4yY8oT
XBUoTihkd4rNEHD5MGUbi1WipaHG90YeQxDXuMPsiFIlOpPJL8vwGwJF/4Yu
WYNKtB37oGMRNwSSnl3cadcq0RPHek/OxiE42Ogrin2rRIGft1feUv0L+b7y
lhd8viIXnddOZjuHQaxaOnRhtArVcI9RN/YNQ2hsQngIUzUS/33UL1NmGKLj
Tn0HwWo06FYZscVwGHa4aRvt169G1pHDhWX3h+Fl0R3vX5+rkUn3wW0HZ4ch
5p1pbsb9GqTsXZhNqB+BrLLYgQndWtS0oXrR6/cINB1xaCI41iKnp4ijb2QE
aB5bt2kH1aKo9BpXMvMosP91fImV1qKJ3l/7vBRHobiFL2r3se/olf5sXO+b
Udjgt5nxO1SH1sWkAotujUHMuZxxUZV6FJObKS35cAxuX2UtvWhdj6QwmZ6Y
mDEgiItcqgqoR+ZWSipXs8fghbiFKmdVPcqO1FmQGB4DiVoS4blJA7JZt3OJ
MRmHU+x/393zakRfOxJMPCUnoFUkWNjXtQnF2J1dWJSbgMEciuOgXxNymuKK
98cmQHI3ddOl8CbETgjqCz0/AXVp73Ui8pqQibSLR2rYBMQeXo3+sd6Eeh/I
P/k9MwGHOq6Rc+KbEU2m4ZtW4STIHbTyEulqQTJP1tUF9Kbg4vsySnRUG5J1
ZThkmk/BlPolDaeMNiSvQ3us6TAFanan0gyq2pAC01L7lbtTEKqq4XF2qQ0d
vzblUUGagnClT+/OWrWjk9bdSZdFp0Gn/V7tpgMdyOYQeb2EPg1PuCy35rV0
It0Rlb6jFlTw6tXdb2TVjUYPF2gvUGaBv4QSm1UzgPwYoXIlt+ehRHmHD2vQ
MGLjHXM9I7UIf3ePjaj5jaOlh9bar48uQoZh+t1roeNoZL1JeEJhERT3OSSl
xo2jGkpRx12tRfAReC4wmzeOQmrDtDOsF2FHpmWuEmUcsQYeEWGJWAQu8vQ7
T6sJxDpzozN7fhGUtncbj8hNoiXHyTza6iLULvTKiWlMopHuSxHaTEtwYJJr
/pzRJKqpO6nzh2MJ+F/kZaW5TKKQNKF8Vokl2FI+19T0ahKxXiyLuHBuCWSM
M9UNCRS0uWGz7rbSJaCmSJea1VIQh/sr+56vS8AaGG+j1UZBOzjlArPrluBz
5t5jEoMUJGZoU3S6cwna2UnslXQKOtFAPvhqHp/PTDveWHoKBTV48hyWWoaX
MtcfZzybQkyNv38bxS0Du0TrtyK9abTF4+qScNIyMPO9JaMz04iHi404n7oM
iw2ZdfmXppGwkbxBXO4yvMZER92uTyNoDC/ra1gGm1eGUduSp1FAo9bbq5tW
IPSasw1jdhrRGzOvRHmtwMeC2iscj2bQnmbbhBO+K0C5s0PlzbMZpNnKV7cU
sAIqFYrS4i9m0OOOO5JWT1agF3ROzH2YQQL9hoP73q9AQaGh0vu6GaQwO2VB
6l4BrH8/UWETFVnOp4Q4D63ATaFXLCNsVHRn8SxJcGIFKsO7GWHbqKhqtXR7
wPIKkE53zxZtp6LTLOENOttXwZUwOfVKmIquEqW1OnVXoen0bSNfFSqK4Rv0
emy0Cg9c1NWD1ajoC39s8vGzq3DAZbjiIUZF6/+tryXbrUKi+PRZdx0qeirW
WOh6ZxXuBHhsJptS0WeJoNH/HqxCiJF3pfcZKvq1X2Fn4+NVsB9O6xe2oKJd
h5N8ZONXQYYWuP+CNRV9POYhTc9dBdlSL+mzTlTUqCh6IbNoFSqPDhwtdKGi
OeX2sEvl+PMH+h153KhIWV19/GvDKugvt59O9qSiWh2u1Cdjq9Ah/Zmk5ktF
lJOVLeozq1A+87ZS7zYVcevfYJ5dXIVvLcVdp/ypyNy49+JZAg0GXgcTDwVS
0bBFluCePTTYpj/Y6vqQitLOrVVai9GAYJrwgimUilzOG1xJkKKBRkAD+elj
KpqwnCgTUKRB1d6zhLCnVPTJStnFQo0Gaf4hYvRwKnK3fsQbq0WDTS1jMbbP
qIh6QcKBaEIDD8UVc95oKsq9eJ3TzJwGofKhyZYxVORzqargmTUNFGMauV8+
p6IlG7utXK404GaZy6LHURHDPilrSxA+34WwAr1XVFTmMGWh+4gGy4elKk4k
UtFdx+PMIeE0aClxXD+WREUszl2nCQk0aJB9soX+Gr9/5wNrGik0IKbbNzcm
U1Gwi29a4HsaGK58ropPoaItl3euruXRgHYod5brLRXVXXZ8c5yMr7+6V6kY
d5hbvr5fOQ343OZSL6RSkcEVwmJRDT5uuCi/hJvL3SxppZ4G7+NnRh+8o6Kf
7im6iq00aPMbL9maRkXPPKjU679p4CA2mfsAt5knvMzvo8HBckbtIm7i1XCt
+WEarPtLrFu/x+vlag9FhkKDgkdXTcm4Y70OxV6do4Ek71AFZzoVWXj7QfYK
DQ6cCDGywC3gUzc2tU6DSGO7pVjcXT6CUYc20+HGqFxSPe6Eay6qbtvo8JzJ
wHwFt/X1L38/8NIhe+TFfqEPVLTnBmv4GD8d5MJ1+WRx9984qyi5hw4RkwG7
MNwpN1P7HcXw8XlX9RO47XznQ1Ol8PEXsn7quMVuacoNHaXD9laWVmncI7ci
u0UU6SAVs0mHD/f72/3BNmp00G22/TWLz+/id+TIay06dAacCKjCLeUf0Nmj
RwfDyHatp7gp/g33dpnQYceahrgB7sw7uw5amdMhseCzKDNujwC3Xy+s8f3N
5O/5hJ/P0bvkO512dHjgn33UEPfc3a2S/K50oHLss/2Ln29e4Lmms550UD5s
meOFWyFoSbTVjw4OxmoFHvh9rQRp1/MG0UH7coB7L36fRfdjrps8osMm3Uy9
E7iPB8vWNsTQQcB3/frcGypaC77nxZFAB/dhUq0K7rKQJiH9FDq81gnWvoXX
k8YjD/faTDrE7Yyt7MTrTyi3zyI8nw5GDVFnRvD6XPhjonmmGN9fcpvxGF6/
aUfk+Ptr6XDhY3/u9wQqCjyfypz2kw7+LFtFPrykovP3+Shu7XQ4bSbHe+cF
FXF0LJcvD+HrFzJ6wIL3xzCTa0bpBL6/vCTOfLx/yqS6nt+fpcP6gxzxf/3l
FVBymXuDDuE7erkeRFJRu/i9HZJCDPgmXf3JKIyKso3n1inCDMg/FNObivf7
o1v247mSDNgxJFU2g+eBaoN2mfoxBmwfJb+wf0BFydfYXcxNGKBgSNKtwvPk
dpKf2S4LBsxxb3cvx/PmdC3l+OAFBow4GTrl4HnEuusnr4cbA87MxGd5XaMi
t6/RxcEhDKiIfdR1Bc+zE1Ob0vSfMsBBoJqLxxWvR/4bz3hjGOAvG6KTjudh
0+VzjokpDCgWavn9xRa/v+27uUklDDCQkMfO4HnKZJtm93eOAYz945EheD7/
fsxv+HGVARs2tcv+eH7n5j9SvMq0Bmycla0ueL47bnHjYHCuQcfYY04Rebzf
s48UEA+sQcTwfcIOSSp6vl64VevSGtjQlFM58PcHh2S1x3PHNZh6ctcyEX+/
PDBubh11W4PcT5YXxfH3j3fyeOIT3zU41dfRpUCbQUaaQrLtkWsgzmyfCj0z
iDXEz9K1ag18jgx/3J88g3w51TMiDqzD++vPD/4SnEEzx07xDB5ZB9Paqi8T
PDPI6aL5dXmFdRAaFJWdY5tBZ7I94LfmOpgIGWa0Lk4jGdPXraLW67DA+t10
uGkaTcQwMUjh61DnTCuyeDCNrHZ9NeieXwfSKDs738AUmnCfnSPR1kEzw6Tk
WdsU8kV7X0Qwb8DuAsXRte9TKNbOf1iTewPGwvIHM3OnUEv6sYAPUhvgktTj
5XJ/Cp06lp59w3YDEh3uiDmKTiEVo6fbeX9uQN6oWpyLBf57pPwgRfQsE6Zs
ZGEa924COR57s3j+EDOWwFoTQJIYRY/D+bjvHGHGLNquGzUIjqKs0Uf7k2WZ
MZXBqpYxjlG09MLTakSJGVv2+eh6cH4EPVo/XuGtzYzxpN0cGkAj6OO3jidh
F5mx7uR3pMOWI/j/XU6x0mfMWN3VwwlrUcNoe16gWn80MyZqmr5QETKMFDgW
zAlxzFj9OePzT28Po7tlXaF6icxYvA45RdluGPHsS59p+8CMjd2ULpuQGUay
FM3i6UpmTIN7NOlry190M8DXTHiRGWO33/x6Wegv2k/x53i4woxpjjHr/+b6
izrP36uZojNjS4L+HjUsf5HSsccqxSws2M4rFq5VE0NoZTJB1JyHBTPhEJA2
KR5Ct8+jubCDLNhA9QOT7ItDKECeNXrZlgWrEtDn3ps9iKTfsBtedGTBnE9q
1MSlDqJebm62ahcWTN2VVXTPy0EEk/x+UZ4sWKDfHfrp4EHE9OaA/eE7LJhL
qFSmq/UgCuI2lLOPZ8G28TC/V+AcRMET0a2NjSxYVtrTDJ9bA+hBx3AdvZkF
c4j69OSEF+4qxcr9bSwYhYuYIuI6gIKS/nwO+sOCleYcP810fgAFmO0LVxhj
wQi2n1yNlQfQDXLuySRmArY/4jtDjdGPXB43l7rLE7CiCz0JHY/7kfPNfaSX
igRMwf1ilMiDfuTkcP3TNxUC1nb95/4bd/qRg7pggogGAfvmstCqfrUf2c7Z
+LYZEjD/SA9fffN+ZGlJlVVzJmBbHAzM1cT6kYEUdzrHSwIm/lnE+cfTPnS+
1jP9QCIBu3ToTUtnUB9ycmpK10kmYHsGPm2bv9mHAt9EfghMI2CdX0OFDe36
UL7QjoyFXAI2O7pR/kyxD+3aJpjV/YOAVc9tO77tby+iTIrmf1ojYI77Ghot
NXvR00yFcgPbTZhpXdm9AM4eVHf6LeOa8mZsPfCDvcWHLlTe4PnkEIEV23Tl
p0BoZifKvXwPq+9hxbID/pZmVrajPfqg5JHPhlmFKGr+2tGGtDas77/234K5
vrSvVPjUihza0Vzh2a1YvcplK3f9FqR+L4hkK8yO9TNJKkeLNKMoz9lijlF2
zInZOvQOfxMaDHw38rpsGyb6Syc3TbgRTToWOVQ+5MAaTrn+YrapR1T37WwN
tpxYL9mYI/hNHcrS+8FwOsyFSZEX51LEvqMRl6MKhEUuTLUpSJFc9w0JZXRF
P2zgxoLrirdwXK1B92283zTo82CJviuhISeq0TJD8Kl+EQ+mGlcd4MlfhfYX
x72oE+PFll+c2aq2+Ss6Zl9tzBvKi03o/rf2ZWclKn/FJ1C/yItFV5rGS4pX
oP3lfI+NrLZju4crxxXMypHhZsrulrLtWHL+Sev6vQhR//z9+l2KiPnt1yko
iy5Fnq+eEkMjiNiFPEs2VaUSVM8sNnMqkohtLWSsnpMtQVLO5DqOaCJmT873
9j1Ugv7KjN57FkvEVFxlF4qFS9C5bxg1LpGIxegsSZ7dWoI05+br0zKIWFmR
dMfPrmK086RlSNU3IhZu0uk7GFCMfDKptiHfiVgHZsx99FYxatr+UO3kDyIG
ZlWCd32KUVhP3sKPRiImLYs9FnEpRkw+nPatbUTsyOrQj5umxWgisRwGh4jY
GaVNjq5ixUiXYPFf6jARS1kgb2ncU4xSXaaWHEeJ2HrYIUF5wWJ0SU4oa3yC
iGmXGAVs4ipGv2p9ds3OErH3xxb0C5bJSEaafSV3noht6xnRlZgjo/Do5NZr
i0TsOJbzKY5CRnoXGx6vrBAx249/sgIGyCjtq70TmUbEHo5r6i/8IaNNB2ga
/gwi1nbmmZFbOxnZhj/brb5OxFwf6RYONZFR2bzE6sYGETsnTHl44QcZ/R98
VAHi
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJw913k4VN8bAHBLyR5NCklSISEiKeW9IoqSrVJKSURIUSGSLbJVytJqaUHK
EinGcse+ZN/3fWzZZsYa8bun5/v8/prn89w55557znve95ztVx0MLVmYmJg+
MDMxod93HlfZFK65qWVrUMm+3Qw8yVvJZ3rbK8j5z33myZsmtn2Gd8+uZCGP
fVi1GB/5/P/ndKr+t9/fEqHi9q1m5CXJ9ytj97/AN1njX8hrbjB0xzS+Al+t
QyUy91fNV6PcSXBWObcJWWAyfGikKQlOXuvPRhaVH1YciUqG+7mi//qTcFTx
Gr6eAma5Ef+eC7ZrXncSTIXE4rp/7UXcJngY7qkwfU47B1lMJOK7Y1/q/8e3
M1fNlH7sGxgyPvx7v5TZMLNj4jc4HarTgiy7+jSBxpsGditOecj7YlRO33ZK
AwtjsX/vV1bvm51uSQOT/8ar5rNPYzom/f/j1y72eTZl8x3O/eeTVjIHHKq/
Q6GCcCOy/rqmrsl9GRAxETSNbJzwwPdmZAbw7VTuRTY5IbFncikDOo3KaMg3
qsqKx0N+Ak0q/N//3Qxsr/zelgVSziOTyCs+ykI9wVnwh0+c4xFhzx/M9fWL
WRCyxZ4LmWW0MrDEivx/+255qUFuIENEtxQnMpuexXISlg2rhw/vQg7wlMuI
TcoGawFlfmTu9EX7cOEc4JVckkR+Qi2SCPDPAUneYxLIfILPetxnckDx0oN/
7Z/rmL68ZZ4L9rcWAXnjAwmDa9W5EJTHKY0cmULjMFHNg7frG44iC/fnFOgm
5EEB01Z15LcbH7uBAA75/1lU20hJ0RuH6FqXf/3FuIpOSEzhUKIjb4TM3zxj
yCNHAbej2x2RDR0u7PW/RgHbyjfOyGHsFC7mNxSYp1beQ26K3TVyv44CInUd
d5E3qQYVzazLh1irx0+QTRqnY26q5YNC6KlQ5Ff2Zx+M3MmHKI+4BOR2tpzz
V7/kw88+oyTkgdqRwwqXC8HIYx2LH4qvG3pCX8ILIbmORRDZivX77M7KQug5
FboZOf6tUH0USxHEiVvLII/sf5gseLAIhifD9yHvrhkMfO5QBAYKomrIN6x1
rnPHFYH3VnY95C/MqRp+nUVwgId0Gnn8tYAYE6kYKuWYLZFlldyWXU8Uw+qd
KHfkm1W9rYyHxXDs8AUf5FQrrQz7H8VQPr3kj0xb/RI6PF4Mv+TEYpH3veK/
ab6jBOwLeCuR7+xz1uk4XwIdVSpNyBm/OiXOPCsBtvnbHchz146y1pSUQO9x
PRrygZX4nuN/S0DcT32tP2GXSJ6cAsVSkGxcK4RMlnd6efhGKcx+qJdFXipv
vfMjphS+vj8OyIct1AzkW0pB83qFGrLH8gfZRJ4y2BL78wQyHs7BuVOzDNaS
L5shM+11GHp3vwze7dpyG1m9rLFg87cyOKyU5IPsbX4oOnS4DP482BSBXPgn
2o1LtBxeRJ9LQF4TttbkkXE5JIYWZSIfk7VVWg0sh/43tHpkv5JaPtf8cqiz
0JxHLrusPEGfLwfH69rcjwlzLL4pt5OrAJ9niiLIKv5t93XMK+CbjZ0MsrXA
ZhmpsArQ3OJ3GLlE4fmTgcUK0BY3u4jse+Ox0YXiX/Bi9MtrZKbOO13aF6uA
fCCBL4Cw/I20J7ueVsFdBT4x5MsLU8BaUAVlMvaqyE/8ZGm9M1VwiHWrCXLe
Rtv3eZLVkDj6xgZ54n2C0dsL1TCS2OKILKIwtOZ+SDVEdArdRj6J7/hxjlIN
W28N3UN2O2V+fT+jGk6OHn2OnNgRJUiSqIFCM40k5HabzvJpkxpQDHqZg8yx
IORWHVQDwao1hcgqfudkvubVQNsm+X9264lz4T9WC9xGWZPIz+OOGXia1ULR
ZZXlf/3bD+6ecq6FQSEnzkDCBUo+LGahtbDe9O5G5Pal7R2VibUQFhgmgEwv
oKSrFtUCT38TCZkj8HJwYlct7CfrbkAWM1i5JjRfC4sGkf+eqwi+O/KYrw40
YnZsQ9bvUd00v7sOJDZIyiBbx7VPWmrUgZFTgwKyp71raePFOnCvrpFHjlQS
jNG4Vwc6d7ilkJOXfrikPa0DRTr/FuSSgjMG2z/XQfxNx3/v6w6Y2f2soA6a
ZQX+jX9O/wXLakcdBOhd/Tc+XsF9HfazdfDn6Ak2ZIme2vRO3nrwt1H6g+ZD
Lc4hWFeqHvSG8QXkM/a8lmT1epCKv7WIbKeUdGS3aT18oH6ZQfZd0t308k49
3HW5NIr8tmBsku1JPYxwfWpF/h4QUHo3vh7CrJwLkCv1pWIGKfUgLbYjEXlg
c6mLUXs9bG80foH8p9vSoIBRD54Bxe7IG+LWSCvwNIBX2/HryNL2H1hiJBog
KOyjAfJRpaMdvFgD5K9QVZAvLPWmPzjfAJLJp4WRbxc8DB53bAC5lUvzKL4X
+MOSOoIaYO4OvRbZwzyhuuJjA1whO8chr/2WM5WV2wDWC2eckYOZ6vg+NzdA
2YjFUWSSPlXh5VQD8NUZ8SC/jl409GdvhESf971of26f4rlzb3sjGOfq/9vP
CWri4ZaHGuHTzI5g5L1PlH8YGzXCXoGrBsg/unRaNOwagct2xwbkIncnIfGo
RpC8nxGJ8plupf8h/p+NoOD++zxy/Za3pky1jcD7NfFfPu8lF73rZm4CR+4D
j1E9uM7Zllcl3ARnZp1UkSfPT/TkKDaBoZXlb1SvlxcExN9YNkHW+Uh1ZJ/j
0hqBHk1wqmty2Icw50u1a66RTfDec1cwsuCB63HnyptgzLKmzJtwtJ9bqVZ/
E0THrL+ELNH8dGT/UhNU3a0d8yKsdDdTeqNsM1zKpk97onhP50ipfdYMPcZq
Qx6EW1hEa/HPzbCg+/UCspnhPlpyQTMEPl3If4Dii3ZBMWSmGaZzP3i7E2Zg
DsbuPC3wM7Spz43w/Wc+d20lWiD1wpEjyI/3fv15wqQF/kTHDroSXv+Q0qpy
uwUC/KvlkCOqGxclA1sgpdTfwYXwR/u/qmw5LSCSntx6D+XzL3qUgm2twJE4
HeREWGvpat83lVZYHXkf7YjiVceZJdagFWxZPL/cRvlgNFrzoU8rzHDLZjmg
/SVJK1MdboWV7JMPbAk/cF47Js3UBhufuZ67gfJ7qRCXsFAbNJhIytqgeLY6
empBpw0irmYUWBGW+/ii7ntyG3CWqvmaE974Un6eUt4GJVbu7FdQfQqqEqka
bIOfxQo+Zij/O62zpgq3gyhbqYEp4asabisC/u1gmOJ63pjw8QOCO8XftwOb
uLqbIYq3PRkn5HLbIT1BO0gfrf+GqTAtBtE+hufxScLh/Vf3OF/uAHGMa7Mm
YffmVX2f+x3g2/i7Xh31X/H23tPwDtgd/8wT0HjTmvPjf3VA9Y+9mYfQeLx0
TFoPdMLUjwhfeZSf7g4/GDTshMrjwzWyqH8b3w/T9p2gcSJ87R7Un0HeJPvH
Trh9mH5wFxqP2L5HB/m6wI66bkiQcP/GmsRje7ogSmghToBwObtdrYFWF8xr
c57dgNZz+tOWG+5dcHBvhTsXqk8UobTXI11Qn03uWe4izlPff7TEsXYD24Th
2kXCf+ON/qaJdsPW5DWbZwlXPA05/su4G2LORLNMELa4zNyzROmGzuTalg7C
OkZRa9g7u+Hn8zLDFsLy2qrSG+e7Idk/KaOe8LLc3bsysj3Aq622r5xwxMoI
16VXPdBG0RLKIEzVsxbpUemFOKuvo/6EN5bY7fQ41gvhG+8qehM+euS2zFbD
XqikLVi6E47Zc/+wqW0vfFjT4XmL8EX24Ist73pBn1XQ6xzhoIfPrt1L7IVO
BvuyPmHyXJidwM9eCB6aO6tDeDP1nbtRbS+MUsS/HyZcn5/ytoalD15nPhYR
I8x88PvHm+v74H5GZZIg+p7UzK88In0w+OTQNn7CIVH5Obr7+2Bb4atoZsLH
3Ro6S6/3wWGoOtDXSdRzpXkRSmUffAp/KPya8MSXpZ2X2/pApMrxzTPCIjuY
ZFeofbA99se8H2FXfo4jh1f7wEEAVJ0IK00KX8pU6AcPXbGeE4QT49XepUb0
w7ozXjVTHQy8TVTj0+kP/bBlj0XVAGH2CO2kyZR+GGZhjmkhbOmrnytT3g/X
fk4V5BEWM7/albDUD2e9L68JIhwp7Lc19soA1K3JcBMmPDdQHa93cwBeMGce
5yRsnLR537LbAOhQxtsX24n9h33WOhc5AHOaV3RbCQdbVjrwVA+AmiJoPCfs
mbqhwFV1EHyOW3YuthH11NX0pOSJQZiYWH1JJXxE42Nz49lBWKm7yFtH+E/T
/t97HQdhaNZCLJ7wnSWTjUMJg3C0hbP+NGFrrWgrw01UMI1YbnneStTr9SPT
qzuokJWhXu1KeFebvFuSAhVUNzjZXyHcb1vwlP0UFcI26nyVIXwxlJqZ50MF
5clwifwWIp927uHaQ6OCwIyeYVszsd8+3QlvXaFC6YB1Bpkwj0PuNj/uIfgJ
0llvCFcwn1bqkxyC3QJF7y4S1pR0vBRpNgRCAZqUtiYGftAxM4W1cgjevX7o
Qmlk4LWrqma324bgrdOlLW8JW4Xg3D1DQ7A3tcPImfDzhBIbMvMwSFeweMkQ
Hutu3HH7wDAYvUqIC20g6r8uLbL7/TBIWKc7adUT5/m2O1onU4fBu+XSgjDh
MquFmazcYbAv42GdqmPgM16rBuGtw7CTvzE+nPCpTB7uk7wj0H2DTbCrlrhf
7pT2zHIdAdfKlC9GNcR9Ki1JTtJ/BK4Uq4uLEZbGFLrCwkZgvULJ+vFqBn7W
VOXQrZQReG4QctKbcEqo1owEdQRyJqK2JVQx8CsrV63D9EeB9V7A7tZfxHm8
5Y2+g+QYUCIycwpKif6vnpmZVRwDpq/3Ej0JW03wvnTHxuDvjgssaoQ5Wb17
As6Pgfkm5/EfJcR6yFnf/Bg0Blq/SE9ii4l48VUKbpsag72hRpvOFxL3nfWT
e68sj4FNB6cUD2Hv1/ENQ+y/QTWw+jmlgFj/VOEtM9t/w2SwksMuwnYdTIm8
xr+B3S9BdJhCxJdCValG5m9wOlLTciKPqEc5frYVRb9BLmSZm5HLwKO0sfUG
db8hYaEk6A1h9UvpZ83GfoNA2aT5WA5RHx+/orqIjINLGpx6mE3kxx5L1mTP
cZD+Wsj1KJOBKwSvqAmemICWLMv7i9+I9bJZvpZ0dgL2TyVqeRJW0voTePTa
BLhd2rWBjbAy01yz3cMJ4Ij2iuVNJe5LdyZu5mdMQNrp5YekZCJ/XOyMuiE+
CVwOljNjn4l8erC9aHXvJPxu4OAxJ6y7qXUs7MgkjJoW8zQnMHC92gZl3GQS
Cq5/zc+JJ/ar5q9q0tNJmHj5oML9E7FeMuSVnKVJkGIfFimJIeoHR+ZOQ44p
cOyxXydN2GIoQ2d40xSkXUzLD44m1ivmWwT/vinwzfz+Ti+KmM+Nn+WsrKfA
PGy+rPANA3dejjRb3zQFKd98Uh0jGLj20KEe+XPT8GhwtqIlkGjf0Djuf2ka
XMMDK7cR9qXc/NNtMQ2ddgKvrAIYeP7r9wIht6aBg14dMu3PwFVPc54cDZgG
31jB/Flfot5mtmXG5kyD3b3PEkUeRH4OdHm+QZwGea77ua1vE/PnvCHGRooG
i847hv1uEd977WsSRY4Gd5narn50YOChar1lN1VpcFDzgHKHPQPnYmivVhjT
4GFEn6TKDQa+arrZzsefBlPVk3LJVxn4sOyPYzPjNIjeLZvgZcjAxR/YW+5h
0GC7jqaDswGRPyp3Prq6SAOe6rAcW31if994UVS7lg5Pdu+lntYj6kn8LY0k
UTokdbadYtMh8uH2PepW+nToPKXuJK1OxIdAzOHWdDosOCxaaMsR83nt3MX1
ZDp8dnN9zSXLwOPSed21KHSIK1yjUL2HgQsbPsj+XkkHUtOH+3q7ifPP0wuH
Qql0qDlCt1DdycCb2QVUdDYz4GaY3PViIeJ+thygmHOfAWtelbSEsjLw6jsW
Yfe9GCDoRdVkYiHy/cThWZXHDCJfhL+zYyLOx11TPzLCGeByaz8X/KXj3PiZ
QympDBA2u5RaMUfHo7y2q78fYsCr1v0jbqN0PJ8tS++x4Qw0O4avHq6i4xsf
Pk/ROj8DUd+mVa1+0XGreVu+tVdmYFvi64Mh5XScc0S03st+Bv7GUZ0ai+m4
YbnvGbfHMzBi4IVr59HxwSD9izfzZkA9/XwCJZmOr+MfsTGWnoVPqixmMyF0
fM7/4rFo+VnIjzbYtBBEx4dWasXGlGfhGd9o9mIAHS8Zz2p5qDELTqLffs09
ouN+ZUHHvlycBdNPtgMtD+g4m+fe7SxPZ2GshPXsfnvCU/daUxizYJ0sDyY6
dHxt1Vptrtw5iH9kxyG6QsO57d9adBXOwdOg22/Ml2j4Rh5Fz5SKOdALTH3x
foGG7zx1JcuodQ7STgRmiDBouGYVec9bxhzkpttn0IZpuHeVA5+s9DyELJoY
i9bRcKbqtja9yHmoI++ieMbS8KXqJLvntxeg5S9Z6MYhGi5aZ/5G02UB5Fr0
Tmw6QMOPNghUzHksQFFa4x9ckYYHtjyQNA1egNfnflK5ZGm4YO+p/h3xC6CS
0D3yaBsNV6ZNnMvoXICqq9tXWNbQ8FskOY1W7UXoP2BpI/FrGqeeSxYSFf0D
Er4nsGOG07j645v2ZUlLYOTZG5SeNomHr2RyaFz+C1sHyhozzMZxU5HCk52M
FTBUmP8wwj+Gc1P2jIufYcKCy4OS5oKHccv972fPyzBjcdOZsfEyVNzZw8VQ
bJYZmwyXH/OXGMClxt25/ReYsYPvT02dEB3AW897lUwsMWNnbSPH+TYN4Cr7
Aw9ls7Bg3+M1SclrB/CF32/Ez/KxYGJK2oq7qP34/fM4PWgPCybK7zO47lM/
7qHE9mLenAX7tW/T0SypfvzR2IuG6moWTKrD9PQ+rA/3baFWLNWxYOpM9pdy
DhIuOlAg1cSCnUw5tl5XsQ/3jupI9e5gwYTFXprck+jDPQx3PFEeYcFsPSrO
r+Hpw++R045HMbNiIyxigavtvbh1YF2uvRIrJiW98t74fi9+Unp9AvdrVkzP
427x58AePCRJmXLSfA2WYcZqZc7ThVcYfVi+c3AtRvlL3XvqcztOqXIIlmFl
w2gTAS6PklrxtBteWGUXGzbOyen2taAZF9UFlZvf12F67KbNDRubcI3Viz7R
7uzYePvEA+WvDfi1ZpyeeYYDqzx0w9Retx5X8/LOMBfjxHqZJA++2F6HP3eg
ZXMPc2JWzBcDHmyuxfs9Pw1F53Fh4o1aaXFi1fhvy6xrBf7cWJWOTSPzlUp8
2n7DuipzHqybfJr70fsKPPnEr2UrWV5MmjxLj91Zjg9ZyyuzzvJiqrXeB8gV
pbjwl/YX/lXrsUcV2ezct0pwnyuO76t0+bB3LgsBfprF+PyyUIhuFh+mGlns
4bC5CJfKjnxVsZMfm39lzHFkbSG+36L4NH8APzamveXvz00FOOWtgGDlLD/2
osDgpeSufFyKIhCoZ7oB20otGFU2pOCn1o5vrc/bgMV8P36xchuOT3cMFpZL
kzA3Ka0feS9ycYe3IaSApyTsUvqFdaoqOXgl884pnVASxpG5vGiyLweXvk6u
4H5BwizI3x1dZHLwQYVhr2cRJOyQzb6ZbLEc3KQUm458R8LCtOYkz3Dk4Efp
jMq4LyQsL0uupaY9G990/IJfUSkJe6Lf6tLvkY07JU2b+5WTsBbs9Hp512y8
doP/keO/SBgYFgk9dMrGg7rSZ4iKisntwwK3W2fjTE48Fg1NJGzv4sAvZ4Ns
fOwdBfoHSJixyhpLm53ZuDbruS0fqSQsdobMXi2ajX+0npizHCZhK0EyQkpC
2fhlReHk0TESdixHz2MNbzbeWOYkQqORsPj9M7o/5sm4ghznQhqDhHF1DWlL
0Mn4kxcxDXdmSdhh7NvXyHEyfsKsKnBhgYSZJ3Yke/SR8bhCCyvyHxLmP3pU
d6aDjK/Z/UfdfZmENRk/07NtJuPmT55tVVshYTaPtTMHasl4HkNicXWVhJmI
EWX6Fxn/HxV/iGY=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJxN13c81t//OH5c9rouM6OhMgrZq6FzXmSGjBSlMjJCViEjM0RWUSIrySzK
Xs/n0woJ2ZsQkRGy9+/5vt1+t0/f65/rdr9d53nO43HG4zyv4+aO+pYUZGRk
+wQysv99J/mYU0ve9bo4JlIXWGK+AZJvzJ+7zmcMWGa/Tf7PA9phLnx898Dg
/hBNGW4p+e/v6PtdwEux+fly3O5qxsxUfB6gy3c+pgp31fWfjw6sfUFGavMu
hpu8qGR5ty8A8NDaCdXj5q/aEdzeCQKdzp/YvuJWrYcmG8dCQRXXw5o23DYt
Qc9XlcMBbVCERA/uZ93NDcvWUWB+/avpMO7rf2h8NlSeg6jEdb3J/7V3yeFa
73sBUn27CQu4Pda1ClfvxYJSQ363ddxhnovaKzsvQRJ3ShaZxQb4GCATuHQs
HqRG9Wsdwo1S9x1Z/JwABhWXkJO428M8yhaUE4ElaXhBAvffF+jCrHUKWH2c
8lQbd8AzifpV71Qw55z61wR3WKs/y6rKW7Bs3ch9H3eiHv+Hv31pIM4tISkK
d3qM69Zy6jugZge33v5v/J4G1eV76aD5P3JS8f/GN743vrjzHtR1hduP4B43
y+NcOJYNqiJi2uXuboDZdwcW8zPZ4PM5wqoO7r9Tup/nPueAPaJtqzVuStuV
y7PKH4D+5aMpb3ALuij4T1vnA1ubzUwGyw3ANXjJ+gHXJyDWy2N5GvdhrwWm
Fe9PYON5Rocabn7k4s2/Kp/BjzTV4mDccv+Nry31FYDUo2HPGK02wLmJ0ESn
C4XAeuQgSxz3xUAp5aXUQsB4avq+AW61L4HRi/eKAOff978TcRtpCIr82SkG
SllDT+WtN4CXnp3p3LFywL6cahBmswH2A+W4f4SXg+53305V4vYrIe/s3CoH
9dyrOfO4n/C+Vq7oqgDxb4fy9O5tgMipesHQkCrwyDjA96TtBkj1OLoguIiB
jSBx30m7DfCzfeaC5J06cIPPArY44vnY6nDnvqwDV397RTE7bQArQtEaf0sd
OMo79J8e7hlZ3zyus/Wg1E7xSx/u+QQOPjK2L8DSKWV9xnkDrN9VInxvaAAX
RVjtuR9uALqtN1/txZqB1NgHs8RHG0AhZMBT06wZZNz+qTuG24bjkOip2GYQ
nP72Ar/HBmiQfBH5c6sZuJKn7eXifmL71ODGl2+AwHyovcJzA5ANPxxRM2kF
Z/jENzu9N4CEbUGkQFQrOHG25RzH4w1wZ3MREGpbQTO1ktp13Ci7XRoq1AY8
vHU+DeL20jazll1pA3Hh+xajPrh/ZDxiUWkH+jzHNXr9NsCLDBU9v9vtgD//
UTib/wbIuT95etG9HTDEl5rp4h7cOT7UktMOriSLFjbhVuBKUnxK6gClqXRh
hQF4/roxFAdDHYDCwqjU4ckGYOaSGrq/1gF454oM3+EW/NFeOMzcCRIOJtT7
cBveZ7as+K8TxFzvO6IYtAGKQkMbXTM7gYv+TRay4A3QonsqdbK6Ezx9Mjwl
hvvnocZHBoOdYNWk/48JbtYMSmFJpi7AQpsQUYLbudY3fN6lCwQk+YTeCdkA
myyxH4eedYEXxPMNwbh9zLLamtO7QOHgsWMfcYeTdZCye7sAq9Z/HBu42XSn
JF8vdgFkyiSH5+kGSEjZ0g+h7Qb6z+9dVsSddfHES8tz3UA8ciDVF7d4pFzJ
VYNuoEVBqZ2Cu2REs0/ZvhuY/IldRXDXez/gPpHcDVIYdQU2cV9uCTnHUtoN
nEZIGWyhG6CTN/EmWXs3+C7pyyKGe6yiPmmUvAfsHTWMu4Pbmn4AbeXpAVFl
ytluuP8YL/yoksZt9y02HLdrNjn5B60ecGr7veFb3LubHCfeWPYAec+g6SLc
gerCymE+PeAOI6NqI2761xfvesT1AA/Neft+3M+n9YNsPvWADL766zO4ueSt
M65/7QF10mcoNnCnBHs1qk70ADKWTmvKMHz9eqNmZHd6AJXdhSck3B8F0ukE
2HvBmtC+Pi9uGdcyYfYzvUDRueg7P+7K+pbLBNVeYDkxuCaKW4l93P7vbdzP
d6ulcX+1WIsYd+8FRl0Zomdx6xbS5bdH94If+Zoyirj7KI62Y9m9QO7zvS6A
+7a+1HJebS/gD/Gn+g/31FtV1uShXrDxd/MLxG2/fEM6YrUXhN5SI/2v/Qp0
vOrN1AecOId/nMftGR3oaifYB+ic2CTkcZOPxb26AfoAo9qNXQncT8U/lGoY
9YFvJDZ4GjfRt7pfwbkPFMlFrR/D/aqte0sorA8EJkvwcuA+cvQ3z6F3fWDL
SiebFnf6/b3z1FV9gPs/scRtfP5EEJZba9194NYpwcVZ3AWMgj6TC32AxjMw
aQC3gsm5lC7qfvCUzC+tATeWq1Nde6wfeD6y3PqMW3XHfPyzQj/wMvVIeoO7
RdOd4q1ePzB6OhMaiNsg4dnJaNt+EHNpsfwe7sHfKZd8A/uBOdpySge32dki
S4fEflCxmtohgXvmaVPwreJ+wP4wIZ8F97rQctP56X5gT1mz0Yrvz8fuVLPC
ZAOA7vlxo2zclI3cDDzcA0AlTm0wADerlZL2puYAKHvILSGBO774msO0xQC4
X7K7RcDNR2UX1es9gNf/vx09+HkSS4/pKMobADmIzOsHuNlfS2xUfx0ArgKX
ts/h3nnWerh1cgAcD/LZPsDPb9MDGpspnkFAp05TFYA7zzo9Yll2EGiQvJwg
7pc3/yvc0x0Epfke2Tt4vTBX9trnCBkE7vrGUba41eW5+E+kDYLwq5LiR3GL
ixRriCGD4Pp8+dnveL3ZZV2MVV0ZBHJ7bg9P4345YS7ifmcI/Co1/Irg9cu7
90A30HMI7BxPpDbBbd6c6Bb1cggsnG332MDrnVhBb03mtyHAUB80LYC7yV/T
qF9+GEQK+/Kb+uLxuk4/ntQfBsudQtem8fr68t6Td0v3h0GG48mndrjN9dA/
tOnD4CddRYctXo93+aSCzpJGgHFT14VLXhtggv17jorICFCJZSwowOv9V1r7
dj3VERDpNbx0BPerpfe8tt4jQLqoJH8Wvz8kqrkLEmZGwMuZJCcTtw3AWVTS
l0EYBT62f50+uW6AvUyDvYKjo6CL5iqBHHdzVIT6t6ujoOCeZW3cgw1gcYf8
x071KHilnzyZgN9nmgbJlLTDo2BUf+xTJ34fSqidF2bfGAWX4kZ7qXHvirm6
ip75AeK/VbLdvY/Hsz/DcCv+B3gvej50Gb9vp3RsDv9QGAMqT8OP6ePvT+wN
9vw+KmPginfB11tm+PlXdBY9oj8G0P74CUtT/D4W8bxw024MaIj9ULe7vQFM
aMNN+pLGQCmBQknzBl4fa/ITv1OMg8d/HIsN9PDzerYo3YE4Dsq5hwJP6uLx
fSr7wHR4HIyMLJgt6myAiOSaqsuy40An6KSslxa+H7y6hhutx0HlWHmUuRp+
H8psHK5uGQfabcLdthc2wELuDv+dgXFw4/PXls1z+PvNSbIz+1Pj4K3Pj4cB
Z/H3QRY6xQsH44BGVLfyqRxe3/7w3CqTnADEFMVHphL4/Zh5MenTqwnQmBBt
I39yA8TxBB95a/oTjKpMdBlR4efrZ1umjsNPYPnSSU2AsAGufjwktev1E9z1
12iYI8PPE8xWvR73E/wwV2202l0H4ZYtjkxtPwHLWzky9pV14PeJtdbj/CTo
6hlJv/RjHYx63NQS0pgEvGe1zuUNrwNF5fTe7muTILjyvhnL4DrY7pGdE3eZ
BOnMt1Xru9fBwx0j9l9Zk2Du7pv4oa/rwEY1xUqfcwr4H2UZ/lqwDhqIM0sH
J6dAxRt7+q/560BgQMLro+QUEEOIBjUf1sGEXW0UrfYUcLL9zJmUsQ5Mnk+V
oYFTwPX+8wSyhHWgOyzCILI8BfYOsQJn33Vw1qUsn9DyC7RIn7nceGkdtB+c
v+088Au8oNXX+APXgVUExvjj1y/wZLKwiUlxHbzIarhXQT4NXk/SS8nJroPZ
0e6TzvLTYKArak9EYB0kXl6OG02bBnxpbzgzCOtgn1/Yr9xjBjC7+3/KqVgD
sQUfxYRCZsDoqMex3uI1IAwlR2JjZ8C0QLjB1qc1cO2mwjmn/Bnw2ipzVTBz
DeQ/V10VnJoBz34ORR2NWQOm++Y2sbq/wWLWxwzPe2ugru+NrqPQLPCM5+mr
J+L9mxuurknPAmKRySEV+jVgtcD82hvOgtwCzQ8I5RqgJwT8CDWeBRbL7xvj
tlaBrpiNQ/qzWXCBRsR2cWIVjD6RCR9YnAWv5zmx00WrYFuytVG5bA7QXxNn
L9NdBS1VwXbN9XNAyfG3m6LmKkhWg0S9jjlwo//2cIXyKvjvVuG127NzYPCb
w7skuVXw9Gn81KPD80B/u4uCcHgVcP6wJOT5zYOCKIP0y1MrQDJ8/yKXxgJo
8S82aHFeAVL3du9+vLYAXvNVG368twJkVLfDlO4uAEkr7NsTsxUgR7bea++7
AJr/2rId0lsBFx4uONQULwAD0990X8VXgLrJcLLtiT+g6bJii/ncX2AqWrFf
tfMHPBVcV3h48y9Q+3Xuh8T1JbC2QYQRx5aBVVf3fMitJaDzS6LtK8cyeFLt
sD1qgTt8/uU+wzKoSUjjiHDC2ytKzepuLoHzV+i1focugSznVs349iUgXjZQ
9rZqCTARXU8hvkvgUNijF6wnlgHxarTi30+LYPpMicrq/DLY6xNIDJ6dB167
odJVnitAemDM4sPmL0DDMnPvqvAa+L0RmPHt+BigaqVSY0DWQe2qksPz1i7A
eD/RYqRuHaxJvdzoju8C7EzSfvnNuL8W0khbdQF+bdNyg/518GDwFRs86ASX
WitEEvFzeOl+xYVMqU4Q0OpIOiO8ASw3lGLWktsBWdvAgE7cBuh4//5x9rFv
gNbBaZ0vGX8vEk0y4apuBiRmGraVdPzc/9jubzdtBnw6MlpxBRvg28tx5uPv
vgLQFon+aN0A1DOnpa6INAGfNuV3TpSbwE0URthpfgE7bR/tXzhvgsU8y98s
URg42mH25tKjTWCLcRE/T6NAqYujed1nE2ggP1XJ/kNBWN9joZvhm0D51U5o
wVoV4BrTnjiZuQne6HzN8bWuAHLLC9eLhzfBl1yN3Kj7xcCJTUy5X20LRF0/
uRjBmgViOSacw3S2ANVbyYeCKxmg9NCr1AuGW+DInEWBfs97sM+7v5dqvgXE
vDTonJLfgQj+trJ7j7eAdx4bAQtJBjmyDmI7BVug8douzzPnZ2Dqeh730aPb
oDaWzAbaPMcyjPZqTfi3ATuPi+OhozGYjbGW/RvhbRBw+MjQRnssNntjFuWS
3wbJ7eqh7WdeY0u3BO+y6W7j/wsOzdTWJWO7Fsl5tAHbgKKE/3hF/nsMvbtw
Xe3pNuAZJKrlu2RgvpYXyIMjt4Hvgbz0CZlMjMJ60IDwZht0TzGw+RVkYbS2
nFt7hdvAhDcplTYpF2NzilRemdoGk875WbGxn7Bup5F5yfltEKzzlzj/+xP2
yln0ldPfbbB8pn3R7+JnjOtB88zC/jbQE+n5ZT71GTvqRh05c2gHLA7z5W6d
LsSEvX36RzR2wC1FkZDCyGJs3rvV/7DuDvjd9d+t8b5i7OPjwyI3r+0A8V7u
q9p8JZiEb8XjfvMdYLU9dnEgrwSTC1g/0eW1Aw7PiOr+qC3F/nvqcL/p4w4Y
MJO26Gwox3gKflyPLNoB9xRnCax0FdjqkK7S1cod4Hf2ToOjZgWWIS59aKxp
B0TzvAoPa67AGPs2qjd+7oA16qgotepKbIrsXi4yuwPaBdWehe1UYqjw4MvA
5R3wuWWpblG2CnP2qbIlHuwAkXgy2xNZVVivgD+7EM8uEDwMO04FIFj+lb/7
83y7gMNYP+9JCYI99bD4XSC0C+4c1lKinkWw860q6EXZXfCMpSTRWwfFUh/S
21zT3QUvStK8LjFhmF1dTGVQ8C6ArKdXdCWrsUsLlBmXI3YBc7+CR/Olauzo
IbdolthdQP4lwnToejXWbmtkmfQWb7+DJNd7V2NyrEeIxVW7YOi0whxSU40R
L0RuedbtgtF3dnzbHdXYjOXBT9i8C8y9/Hq/j1djb8rHy1r6dsH3YuKgJlkN
RmaWYT75dxc4TQpzhCnUYANhh7RztnbBDTrnylSVGqyg6Km8E9keUKDk9Lmq
X4NZ0tox7jLtgSLV7slY2xrsotTweg37Hqh7wH3lhFsNxmWiPR7Cuweu1Ef+
p+NfgzXni5ewnd4DD5V1bvq9qsHSB1JTB8T3QKLCImdoag32mMD6LEVuD9zK
VZeRyqnBJK6v3hG5tAfuHGq5aV1Vg9H5W2oua+4B17ivGqv1NdhETq9Mqd4e
6EoTNDvZWoO93C+jU76zB1jvZXTdG67BGIW+OLy03ANjz2gWGX7WYE+udHRN
2+0BjXGv9lu/azCX1N9J4Y/2QJL1cSPWtRrsd9MaxQ+fPTAbuKrwcLsGM10m
t5EM2gOCcbVaIQc1mI4Sj1Tv8z1A/ba8v5a2FvtiKxh36vUeaMOr2zxjLXYh
RmrXM3kPzATaqTaRarHCyotmrel7wErQoug6ey0mPKnZcCx3Dxj3r7QnHKrF
3jJeF3H5vAe6Gf0JL3hqMS5Zi+j6Uvx5OYdCxSO1WNQtxzVOdA9kfj2qnnys
FqMO9rpxr34PnFBYP1V0vBZ7nBeCVTbvAfu164jvyVpstTeGn7ljD7x6mGlP
LlCL2R2khJr27YGCU+rJZwVrsQmhD38KRvZA66N79kJCtZixbpkB1eQeKKMo
9W/B3f6ovuz67B7I2d4wPX2qFlN/234kZ2kPQOsuz4u4sa/DAbvre4DryhJg
xC33d2ZaZ28PfC9b44vBn8/jWdN6S9gHlLlhkV34eALK5AUrdPvAQPTaVise
T6Id0yFV0j4wVj7oCOCvxdhiub1fc+6DknXR0L8narGwKoHx2cP7gEo7OOoI
nh/5lKSq4sl9MKlVYEiJ5/+I6WJu1Ol98Hf3ulbm4VpsUVaTNCG+D75ZHJ2k
xufP6vY1Vxm5fcD09EPESXx+R4LNB4Mv7INQK46RXbZa7Gq+AxhQ2gfCiV8H
YvD1+dbnmS6isQ9myMjUfuPrp0QWQudzZR/Emq0n7uHrK6mX0nXCZB/sa/BM
3iWrxbI8chVczfeBmV3dl7KdGowvrTSp0WYfbFeedG5dr8GYV75b27vuA56j
5NTn52uwIN7hFtRrH1z6uvUj9lcNtqs8I8kSsA8WelPvfh6rwWZjyXaLI/+X
77KOTHcNZoYwmtG+3Mfnl/P9G3w/909xNdx4sw+KW71kGxtqsAY5yeiDzH1A
KMqotC+rwdL6zfg1avZBLqG4mRBfg3GTO4S+adwHoqYWyonRNVj0ac8/C637
YPVauvReSA3m4/mi7MXgPuhmGnfhwc/nzcN1WsMr+0DO84ZM+xU8nvvLf4u3
98ExkYeksUs12CPsWHwU+QFIHTjoLDhbg70y955SIh4Ac6epE+9P1GCdWbI+
2cIH4A5Zcfn35WpMUzYr383sANTR9Iu1BlVjA8G9hro2B+Bu28iCqXs1ZtNP
uXva8QCcbJD1qLWpxoK9zNRHvA/A5YOgF8ua1VhtDc+48usD8Cj28jFWpmrs
nE4EK8v3A0BVwGc7yoJvv5TKstmeA2BARh5gsohiRsu/b9cPHwCf3Z4jz1pQ
zDVWNdd99gDkxj/mPgjCf184OL5IQQYPZ6RmW60hWKx0eYXhUTL4kM29+kZj
FcZYLTJ/wpAMKo0OTU/BCmwiXq/J14gMrtFY3EAOVWClD9zTh2+SwfaA9TrH
P+WYuVCdyStzMkgfRhS2fVOOlUbeaKVzIoPJBe8pelfKMPNboXlLYWTwU+b9
y/EppVjZ9i8ntJoMiigKB+XOFmGWsmlrxqLk0OjqHm0Wez4WFslBfCxODrfP
NMuXNuRhedNPT6VKkcPvAe7tm4/ysPV4x5u/FMjh9UL3aK7Rj9jT/Qs1Lirk
sKpBOGAx5wOW09gX/uw2OUzOLHrwn24O9seYiR+JJof2JMXbyx3vMdZCP8Wx
GHLIXbG03BH+HpNjXL1GiCOH5JZ/NunV32O+6GCoRhI5bLJuXA7F0jHSyazF
nmxySKxbCOoueIdJzStV/qklh6+GNhctct9i7j6P9PnWyOHbK2s2wz1vsFPz
3owhm+RQ2033TsLNN1i/sX/Dwg45jAm5JmM+kYApyIadq6SggMntLMelV+Kx
zbk3J66RKGBm+vDp78dfY57G2N9nIhTQTKfs+vuCWEy4se7DXzEKGF/R5Z+t
EYsNyjRZGUtRwL050UtN4zHYeVLHoOBZCljKUWZqzBGD7TZM1NaoUkDm+FR5
67DnmI8MdcyGGQUUm/pPLftqBCaWRq9925IC5inFfq3NCMdGiUSaLzYU8A12
++6RnWcYmDvk9cKRAsY6bH6OywnDyNJOW5x5TAHbhGV4nQWeYp+IYkdi/Sig
Q++xjanQEMz0sVTfdiAF3OGPP5GwFIzVGJ2/3BRGAZuxKo6q+iAsgKgtbfGa
Apb5+Yk0hQRiUo/1Fr6+oYCWfc+VuPcDsIlZw0yJFDy+HUj51i0AU264zbv/
ngJSYGSyug7+GOVjJ0J8IQXc6tB/0LfkgwXNxnS1tVHAG29Hml7Mu2NP+qaa
dzooYEnbWb4EUdz18rWneijgp74pR2UnNywgeehTwBAFVPhz/ZEthSvmo38y
Um6GAlaA1rwoPRfsMXANspijgMN3OjRE85wxb9FG7+g/FDD9iNbn78zOmCe1
nd3sKh5/Iq+CTbEj5lZRoJ5MToA3RUg1fnJ2mGsmJfxGSYDCq3HsTkK22MPY
a/KbNAToniBKXDh6D3Nx2BbQZyZAel0hvuvHrTHHE0oEal4C5GFlrr7lYoE5
EGO3pY4S4FnPrBuir8wxh92p5TvHCfCp6fvfnNVmmH1v6Fi5EAH6eTgz0Aia
YjZhHch9GQLkol5KUvS4gVm7nyxOkCdAT2GW+LvHjTGru64fGs8RoJio7F5J
93Xs7kXuN8f/I0A0RFZK3cQQsxCxe6FziQDzan7zXpC4iplzIaFeang88bqp
X5gNMLO/po96tAlQeWwqhzCni5n+KHCk0CPAbtP+mMH2K5hpC6W1+FXcldm2
H39oY7czsgxDbxCgjsC2iqCCJnYrZlur5BYB6q+c8pbzV8dM/LQu/TQlwNVd
rzyeEVXsxo0lKUVrArz1oShAqk0ZM1ZTEra1JUAGgRvuYbZKmJFM7PG4+wQo
ZG5SfZvrP+waswJp+QEB+vBF51prK2KGO6E0R90JkPS7sDmV8Tx2dWZoX9OT
AD/RSKf8N6eAGdT6LqT7EWAJ29TD0wRZTD+/Y7IjkAANZmx2M89JY/qJJ4f3
g/H8f/xW2YuQxPRCXbtEwgjw4jDf6bBNcUzXrbHZKALPj5H+uhzdGeyKBXdt
UDQBFsmPvZHTEsZ0dO3KC2Lw+VZefVyLCWFawsQsxgQCPPSaW/qm5EnMuMkx
63QSAUpWOYnHyx7HrKzas1RTCZBTTu7ejbqj2ANKyWyLdwT4SmlDu9OaF/NL
e57tl0GAnyMGzw8rc2ER8G92UjYB2o+CIw56HFjCqH5OxQcCjHuflb3/lhXL
9C7M6cvH4+nzi8WkSFgRD3vuagEBBnbanPhCzojVlD3MZSnBnXQ7Q4qNFmu7
1pMrVk6AVlsVvCKxlNjQquyHy1UEKPrd8DeLLzk28+LVBxsMnz8i83xs4h66
JrHxIagWz59LW89pcxOl+H79Y9oXAqx7xtXuTb2GEu+XfcSa8PU4xyfnX7mM
Hmbgzhv+RoDEP0JpT7n+oKezPfK22ggQEVQb4R76jcqpDeZxdhIge91emXLW
L1R56ly+dA8B0lnntsfcm0R1A9/k6/YTYHpJPhZH+xO9dXw3//4QAf42tD0+
4jCB2mImn8JGCbB35tzz5aAJ1P0W8ilznACd2PxzzOV/ok92jnyunyTAiZCV
PZn6n+jzeJ/P49MEqKa5JpFVM4Ymy//4vD9LgOaYf6SN7jCa2wMKeP8QoAQn
1RjtVB9a9iC1QGEZH+9oa1GIXDf6hYW80HAVn787Unbnz3WgnflmhS4bBDhS
yVO32tyK/tCuLYzaJkBFeH9e9mYzOj93oujDHgHSGjERp4lN6FZoYNFXMkoo
SPwwXdTVgFKfmiz6RaCEns7bUlrPG1C2hkvFBBpKOB+W/dFYuhHlu/u+mI+e
Et62tmUPS29Cz1BQlygyUcJS1j8nw743o+dSrUpukChh/+up19QprajaxcYS
dzZK2E1BztXr045eHRYqjeWkhCFS251sdp2omefT0s/clNBtvGToRWg36sD1
u7TtMCV8+TIqOvt7L+pVolE2dwx/vnv4Sp7UAPr0ak4Z7UlKeEpgw30jcwh9
+Ze+XECQErYVF7tdcx9G06LtypVOU8L7Q7Zic/tDaL5YS/kdUUr4ve6NdcDT
IbSqRbTCW5wSbt1xq2RnH0K/2kZUxEtRwqXUU3UJbwfRXto/FSWylLDSfewQ
k+QgunQpv3LpPCX8kcPFFG84gPIjkshddUq4H/h52qeoD434KFetZUYJ1X+V
WtLWdaOCpqfMPt6lhM+b6vOC73ajKCsPBbMNJXR6R80hStONLrnvKX93oISS
1P9tX9LrQq8q1TfqeVPCITO9hrHNDnRhtdimwJcSjt3nv/IhowMNzsykYwuk
hLsh46e3DDvQMsZnl7tDKWGTs7rMblk7erhP7/u1OEr4vueIw+Cx72hxqLJT
aQIltLq/1Mnyog3VuSDLwpVMCSN09IzGqdtQv7dcBgPplDCLwBvIttmCTtr9
6L1ZgMdnuF/BtNqMfiC7P2raSgnjY9/orRs2oiqFt31r2inhUZon10PnGtBR
S12+E92UMGnZTZ8U2ICSvkmb/xykhGwnXJq6S7+gD19uT1nOUMLkeHdeKfl6
lEl9PrhhDs/Pxbrhx2AdmrE9IiS0SAlTzn5rPfCtQ/vv1NybWaOEX/jyQwW/
16LnhZ8u2BKooE2IxOR1vxq0e9gj8hs1FTw2dzP5vkQNah9lJy5KTwV/qm3Q
b49Xo8mrOs4LJCpocuHpiIlGNUqBcaw5HqWCJ0JKRIX0ULTZ4N3uw7NUUFfA
SfSaUgVaEDQx+OYCFYxS+CB1qbMcTSg9Xl4LqGCHW2IU991y1JY31ZWkSgWZ
dPZrTSLKULqfiX9y9fH+b4aquK2VoEvswy2dhlTwXcUp+faYErRflTd3y4gK
im+q2PZKl6BZOfHWaneooODMbfrmR8WousursQk7Kng7qsXal6MIlUjvQekc
qeDjnsNv7KsLUa5e9iQJFyp4pPUgLMi+EJ0+G2Ps84gKNig99OBsKkCDyaM7
uYOoYN+N+qMvoj6jX6JD63WTqSDnieyE+ZI89ENtU5r7Wypo1OfsGyaTh8au
0vgnp1NBau2IFouij+hdo2DF+RwqeBTpyE+p+IBS8gWWhJRSQas96vS0Hzno
vF5tbF4FFVx9KYvu2eeg3YHkD3oQKiilrd+kupuNvpv2FT9ZTwWDn6zbBfNl
o0r53lloO25mbbF1n0xUeLwyeKqLCoq9vEK1w5OJsrLt3GXso4L9bP6Xi8sy
0Ak3j+M3RqjgkCXL1Jmt96j/RbeEtd9U8JahZti9iHS0utUxXJRADVnBXNy5
nbeoDDtkiKOmhrEphDPnst6iWTdIYeT01FBisOYzeu0tGjX9KaSXRA2lanK7
FctS0dvkfwP8jlLDAF5Jtu9cKWinWi353HFq2LAQpFkXmoyqRr7wMxSghkPk
nM9u7yWhZ3ilfYRFqaFTyY8qo/lEdFfmoUf3WWp4uPrHGvlMAurkdWnzoiI1
jCb1hHbbJ6CTNezu2ZAaPpRY051biUe/6RQ/9FGjhslJjqbCNPFogs264ylD
amj8R4VYqxKHnk18ZOXtRA3pZiTcNI/Hoh8m1Kd+PaCG5xYPH16sj0H5TnPf
1XPH27NpiGraxqC0JeVmgj7UkGf/D0Ze8QLt/75t0v6MGmqcjqFRsH+OanF+
GzoXRQ3lfgxoDvM+R6tN3tx4/4IaGi2fXF5viUYzf5838oynhuuZHGaPpKNR
N8JjA/5Malj2xlGb40QkOquh3RmZQw1P5NQV+cdFoLejj+htfcTjt7b/5kOM
QFWOoDptRfh4c+Y7u9ThKLv8gcajWmq4sfKQs5E1DC2w9YctI9TwNXG2ki06
GJUxN20SHKeGo+YJIpTCwWiJMdD1n6SG8l8Ty5q/BKHl6nt35Oao4YBja3oV
RRBaLejhm7pJDe88NTxi+TwQVTpqRLOzQw1v9TN9lz8biNZxyEcZHlDDIu/A
F+8nAtAGyrVkemoa+MZ8uEnmXADaOuGEPmSjgYU0VZoGO36ozuAV1e+cNHDg
Vu+4eL4f2t4h1naahwbqa3D72t/1Q7ur50dG+Wigttpb2r53+L+jZJs9dTEa
eO7JxvZrt8fozA3TC0c0aOC369nEv5EeqK0+qHfXooFf9nVm9nk90HmNo1qd
V2ig68OL7SdzH6GLCsM3Q67RwJBd+tWI7+7oOqeR17IFDRzu+PayRdwNfcQs
T9CypoHUzB7f77a4oltUnM8ybGngfYRWtvueK7q72pVw0xmPh3zUczn7IUro
ulLxxYcGbtyNi7G9+AB90iymxBdAA3WpUgLjp11Q6lqmZs8gvL9QN8ObL1xQ
+s/fBsTDaeDYjsGg97wzSopS24qPp4H1vQf03gVO6NHLQMGhiAY2NT3mE9+3
R//U2O1FluLzZdtzcjbQHsUUXtfmV9DAdLcjV/MY7FFTwWWt5Woa+Osy3WnZ
43ZoGvk7s4etNJBozn3S2eIe6vLou+DLdhoo2oIw5mzaoMqLO3PFXTSwIMl6
/3OUDTo5fNVtY4AGSq8bTrPUWaNCZdTPPH/RQIEVKx3Vi1boppi07pvfNFCd
RLYhMm6JNr2/w1E1TwOdXxQGZARZorYxZSl7f2nguvKqhGLXXfSDg22R3wEN
lNG+Iz/qa4FKCLSNBHPRQoWtQxdd2MxQssTttExeWsjR4Nyd/s0U7WAVsmk6
Sgt1pBfdmINMURcyv790ArQQxmUJTa/fQYuHJGkiJGkhaS1IZHfuFhqsf7vl
owwtPJxuO1fncAu99jXseZs8LaSkjn3+YcUE3Sz5yUu6SAtDEwo3ygkm6LkX
LyViNGmhKueR3ZLzN1B6utq1Qm1aGDwRZFjYaowO+f6p6NalhdRR3pd2TI1R
7/tqKpzXaWFcXKrRcrgRiqpvGcdb0EKa6BT6uq1rqPKBSWCKNy08Y3vjsPnx
q2hqGM9vgh8t9G/0zTvcYIDucvTr2ATSwjfPEbJgewO0RNSARzKMFoLBC+cu
ofroqRsan2vjaOH7Sxb6YQ/10CdT1IeE3tBCsz/uu08F9NBxp3rvZ8m0sCtZ
gl6jTxdNCAHqV9/TQhPrltS9i7ooY7Hsj6kCWtjPQk26pKiD2sCVS5oleL5/
jDsSCrXRL98+5eSV41a96u4uqo36TIi4uVfTworQWvM4AS10iXiCia6NFo5B
Cf1LMppoty3zedHftJAuLtNmulwVlVj/lho9j8e3Fmelqa+KRviHUq8t0kKu
h94mnvMqqOpryk5knRbGr4nlXhVUQcu+bNtcoaSDZ5rOvD+Tr4yy65W1FdLQ
wZQrfuZphsqo87CrDBcDHUwM0nlXuaeECq8sHYyx0MEyLrYnmL4Smsg3/crl
GB3Mfy0Ro0b8D93MTd/tPUEH5/WvKvLWQtRQ3tz8vCAdnF6+xX7TDaLMOiNn
KM/QQbqV/PPUDQD18+qqf3mODnq+S7zeFaeI3u3F/pYZ0kFNlk6/gLSzKGm8
+eVPIzp4Pf7s/GfZs2jlXI8CswkdDNRiP4w1K6Cs5PM+FuZ08JjBOHp1Wx7F
RLgYmB3pIAfK+DXBQQ61lTuZp+BCB6U8IekXUQ7l/E9Mz8KVDjKkWtB0Fcii
9tcuxZV50cFNdbmdB3syKI+/00mLp3QwYRZ8PkiXRhueeTVEPMPjIYutvKgv
jTq/Cr5XFkkH79rmqlCTSaNNuYn5TC/poFKe1pfCO1KoW2/T+bK3dPAqlQYn
mbgk2iFy/CpTJR3M/aWvKMcqhnrLiW7Io3j+vR+eCMWcQU/9J59gXkMH5c9u
/VTnPIP6XNMeK23E5/fvx9XVE6KoqL+HvXk3HbTSs84YvyqM9j97Qozoo4Nr
ZLJrSr9Oo4GvogpKB+mgv76PU7DHaXQw9/0m4zgdtBnvLI98dwp92tvxpHSB
DnpHeV+LoBdCZcaHhSaW6OCYdibfyyxB9MfcdDPjKh2kXrDYVFUXROXI90nm
23QQ+P6miA4XQH+KCCcx0tDDH51PJulO8aMX/QOKzfjoYdCZlWHx98fRjQuJ
Zt4n6WHk+9uRFibH0U+bxUxxgvSQ/lGcawf7cfSk02/LFlF62Hw4LuRSKB9K
e0eXU/4sPaTg7WkM2j6K1vLY1updoIcF8a8CAj2Ool69gQ72gB5WZIgNZWwf
Qf9olza8VaGHas9ULgPCEbTrwlF3Rn162Hen3n5ElBcN35Q/KWRID4cllm6K
VfGgqkV63/8zoocn2ssKrbR50DKRICH32/TwXEJggIMrN5rMM983bksPKS8U
T5ANHUJtNssVSgPpoRwiP2S+xo4eL+qa7Aimh6ufgyr9k9nRQceF6PlQeni2
S+BNojo7qj3N9/t4ND289GLpHtVbNlSqNyQ+PJEekk4LKh4xZ0Xnn79VyUyh
hzySRudzOVjR99qVyzVp9NC81SrHt5kF5fryR2Mjix4+kr1SPCPPgu4VGm6b
FdPDG7O1rrLHSWiJo2OGdxk9zH+QMjleRUSdREL14yrpoRuN+qn4s0R0Iq0q
p6WGHsauflJOO8uMNj0/eVO+jR7WibeVsxowoi8clysZp+khyyvdTaphWrQP
JNLazdLD3TMJjCV2tOhhkprh1wV6OPZNTs5+jwbN/JT4J2iVHuoKMt37JkiD
Vi2rHT8gZ4Dxn3JyPKKpUPLav/dvUTFAm07aRh9xKlT1RVJFJS0DXGKjULjc
Tol2SK0YPCIywGUK21KeQ5TorwfJwcuHGeCtuWehZWUUqMglja4rfAyQ0xJk
HbakQJ3YV4/lnWSA6ly9N+jYKNCdIo1yW2EG+FNej/fWA3KUtL4691OeAY5Q
bB2+p0SGnnt0Wa9XnwGOSVq0+crtIr7q60ky1xjg358tP5tKd5B6rrezL4wZ
IN2HmmdW53eQK+XrgVdMGWD9kb2b7hrbyN3ttyVN9xmg11SUZ4/vJpLdrEUQ
cmaA7O8F32azbiJ/EjauBD3E+yvPnvPP3EA8zmv//s+LAe4ECBRz9q0jkd6b
vJVPGSCru/q2vdYa0qX1zoY7nAHqO6SnNM2vIlxHdIrdoxhgT0D4u6HIVeQd
8k5H5hUD1N3VITL1ryBl+zr+H98xwBMHqNPE47/IhN/7XykoA2zJNxb1ZVlC
3NqTnOprGGDyepp0X9IiQs/3anumngEO3UmsWOFZRKSwYGapbwyQ67OoVQvv
HyRwz1quvo8B+oQoW7XIzSNc2qbVM4MMkP43efeL2jnkQ6KRJtMoA1Q408yn
qjuHdJ/XuH1tkgEeLRKJ5nSYRfg9hYNnlvD8TwOR5IoZpOzrCRLTKgMU32Og
O6k/g2hx8yZIbjDA3OpEqttz08jDMoY8zz0GeMnc6OzYiWnky/p8DyM9IxQQ
MknxfD+FWD3IF5A8yQj7XUqoJVYnkO3azHxDQUaoJb044pM+gUSypp71PM0I
6TgEtEWuTSAln6O168QZYSdemIKRcYRmydnV8AIj5NIe4rv6ZgxJBLYHHoAR
fshSUr1pOIZIRJmHJisxQi/5ZPOXpDHESMwgaVqdER54OX86zvEDybKX+eJh
yAiPyl27qM81glyoEr2SbMQIvR81Nr1OHkbaGQQGam8yQvY7F97uCw4jWzkc
CwzmjLC29OI85cUhRPP3OnuyAyNMXKKspHwygMxZlt+tDWGEIqov0EM2vQhj
s1KU8DNGaB1fFPaUshcRFWspfxHJCIOSbFfb03oQ+/VRZouXjNBJniq9crIb
mQ+mLCe8Y4Tzk+uXmB50IYxzET/tMhhhCpdDRxlPFyJ65RBzdzYjPB2nU79T
14nYHxK2SP/ECFV0KffEeTuR+cwrTCooPh+Fuq9zhtoRRsYB+Y81jJD2Ip+c
bVQ7Iupkbs7xhRF+b272eH6pHbFXcC2d+sYIm8O6+PctvyMLTQlmwQOMUMqn
ovU2aEX+/J4qblxlhBi/ToPB3a8Is47jmPgmIzQ9NSp7YrkJESvYpH+9g6+X
6acFWr8mxMGTwdSGggl6F799R5beiPyhl6SnIzHBZ0sWQnWEBoTZsULGmY0J
tj3/3Pc49Qsi1qV8Z4CTCWptaueygS+Iw5trRdlHmOCDW1unC/zrkUUR79ua
IkwwLbAhcJK3DiFFU4UWiDHBVQ057bSGWkRiNbKQR4oJRliRc+y71CJOVW9p
5xSYYOWsOJNzew2ypNVY8EyVCZrwJCQ7JFUjS/dZaVrNmOBkT5ys668q5I7e
b4edu0zQ8HLmLqNjFdImU9172oYJKgxwkyq3KpEPO/czgh2YoKqLzgc5jkrE
JvSrCvRigiQq8txCi3Kkzz71o4MPE3yfLdNAtVuGqOq6cyT5M8HwtkM6Qq/K
EP5DAlNbIUxQqZVVpvh7KTKW7vekMJYJjtJNa1BeL0GuPL0+Px7HBF8fTqsc
2C1GUDuxq6Q3TPDJIeMK+fRiJFFq+OT9t3i8W2N/7m0UIUbV8nWCeUwwvu1Q
oe/HQuT70B/yhEYmKH2237Xp4mfkIvblXlMzE7ToHGf0XP+EfEhL7FhvZYIu
CXfvmOR/QsLuab416GaCr77Kn87k/4SobryHTONMkEcveJz8XB5SPOiddX6S
CXa7h9I2VX5E+FEDku00E3ysRuOEgY8IRRD5WMMCE7xCIz91WucDgrLe8vXb
ZoIVpPrsS09ykDPr0tN5e0wQDd7imOfMQRIH6K+MkDFD0rJkeGxuNuKZWnb0
HA0z1Gly9GofzELkxNjRFTZmGC0lcOv1tUwkT+PbrtUZZuj+JTjrWG46IjL6
6X6QBDM0XXXqhbfTkSyXV6PvpJmhX77biRrWdCTtjVn12FlmOK/MTVbq+w55
ubAReEOVGaorJMA7NmmI93N+Bp07zPDTZJD2iF0qsiVA721vzgxZOcQXFSVS
EbeKxfkwS2aY6shQVjGbgjj9rGhrtGOGbW8OKM0IKYiFrN6L/x4xwybPW/ep
KJMQzYHH3LLPmeHaG9Z+dZl4pPG+RZhBLDO8miOoeaLmNXKJQmPHOY4Zjuie
rUq88hq5KMI+kpeEW1rwU5xzHCL5OCf1VA4e7+InlTfNL5E8lmgWtY/MsO6W
lqCL5UtEOMM1wPITM2zdfywoQfES4f8O76aVMEPtTMeXT/6LRbiO9wkdrmOG
cpLHEp/0v0BeFle9PtfADHt79qdDA18grJppdMZfmeEDdcYHVRIvkKjREE/3
FmZo632OXGDsOcL44P7cy+/M8FEE1c9nMc+RUBoDk6JOZkj05qOpuf0coU5U
aO3sYYZhM6+K+EWfIwf1hHziMP58sk8IQ2s04m38+5jYD2Z4g3sywSg1Gtlc
aIvWmmCGdq4RbDau0chfzgSX0Blm+FM6lmTOH438spGQI6wxw07yeI8EgShk
kSVTzXITj9ejYKt3OBLZrDhi3LjDDOkfROzJvIpE6JgYvJ9REOFq3pmw/5gj
EdHPUzVsJCK0LU4JIzFGILI3TLpc2YhwLUV7t6UlHLlI6Jrs4yRCmzjaqYCI
cETXsJom8QgR/nS5zNHIFI4Y78tx7/MRYf/ZDONvLc8Q88yPwqb8RPiiq5C5
OOwZ8mArQZtfhAiVVSLq+SmeId5pLHeCxYiQjUy0lq8yDHly+anTjCQRJhic
FP7jHIZErO77a8oSYfttg7HemVDkVZJrzAcFIhRVkWQN1glFUlTn05kvEGHs
xikBnoKnSNaieYkTIEJNccqybranSMV/ugMyqkSYxBbeX9cZjNTNNsy+0iDC
KqmWd14SwUhLjOLuphYRCldx2ppGBCEjU8LHEAMiPLWybF6q8gQhC6OyVDEj
whbpDoumUn+ETtrbLfMuEXrOPLTk4PRHWIf/htDZEKF3h5NRoqsfclJsLKfV
gQgtLkvwIi4+iGpnxZKhNxFSStkK1BV7IFe8JCnKfImw08pw+1rsI8SIP4uN
J5AIDV+HJz/ycEds3V7KjYYSoW+l6GUXY1fkwTFGdRiBx/eiqk3X8CHi3RRg
nBZNhFHivw41Gz9Anjhv2VLGEqEbteJdM2sXJILHydsqjghpOty4H4Y7I6/q
fkU0JRChGNe3aHlRZyTZ/laKcDIRevR1mbf0OCGZHN2fwt8S4WI7FBx+6oR8
QjVr/6QT4WRDjTNJxQkpt67p0s0iwmgv6mFWeieklqQwVZBLhEbmjze48x2R
b+V56+z5RDhhIPNd94Yj0m0uQOteQIQSus/tj3A4IiMMidwDxURYNLSy2znq
gPwqYhU5X06Eo56VH+tLHJA/t0IvJFURoWCB2geVRAdkg5pM5wAjwiWqTYHs
SAeE1njBqa4Bj4ddGd6Nc0B4cgdjQlqJ8Oq319ZR3xwQl67kifx2Imy4IUsO
lx2Qrzvmkv1dRJh471zch6OOCB+/kB9ZHxHyqX3NVjdwRB5pzbWdGiTCt0qE
8pBIR6T9Yf4RvREi1MmlUxn57oicSnpg7zFGhJIz+1a3GZyQvoUduuZf+O+q
CXMPjJ0QMc5qo7+/iZB3fFgkItAJCb74JJNngQjTNvtt9fOdELkoRhW7FSKU
ugCnGumdkcjS9piYdSJ0L21JnTvrjEz9iJ2o3CLCLm3Dm2n3nJELtMaSk7tE
OKWUVh7+2hnRfM0MqclI8N4Wp01PnjPi9sHJOoGcBH+qNAaSfXFG0qo7I8UI
JPh+xtVtYdAZ2Z55NXKNmgTPSw2EhFG5IIJ7m5RzNCSYZ8zmucXtguiz3BT1
pSPBrP5rs5lnXJDss8e8MhlJ8M4o5TzUd0HIzH9+/U4kwXmVrUFdFxfEKCyT
a5OVBHtYNKm6wl2QTwV21nycJBh+iam8NtUFoR0SL1HnJsHoMaNLvB9dkDKR
MoP4YyTofHucezXHBbH2hsu/BUjQKSVmXd7HBXkRncblI0SCEUZs8L6dC4Km
U0LW0yR427FL85qhCzJbZmWdIUyCMP2VX+d5F4SztSnynCgJ+pUeu1xz1AVR
GhcuaTuD93dPkp1i3xlxWAsfMRfHn/eMVHk44Iwk0C1SbkiQ4JucLfWNT85I
wxE90WdSJCgz8uwLhY0z8ley0OCYDAmSner+lLXihBxV5fAqlCXBo6qifh5e
Toirw8DXIQUSPELg05Ynd0T4MTNrUUCCSqKBArXfbZFAU5e01su4Y02G2uvN
kNX9wwmB2iQYqbynUvXEFLFKanx+9goJ8t9buyIedhvRHDzs/16fBMNWv9EZ
xBgjrFcb7zw2JsHHtl3cfO1XkCd/na9L38TjC/8KqAUuI+vRh6/8NiFB3QTC
IFW0KmIj3qiachvv7/NN3hw2JWSg1fmioSkJcvy4fn/37nlE0/6wHIM5Cd4c
TUR4RqWQKvrGMzUWJDgh5MrzTFwAEct2FnC3JEGX+dPEhDJKJFXt8JEz1iQ4
UJMcOMZHpsj6q4H9pw0JpqgcqdYUYFN88sSZMd6WBA9WrE5ocBxRXD9xmPKK
PQmeGjKfkF47oWhd07BD6UCCmvey/fX6BBX77zivVDiSIGhhS9qRFVbU3Oed
c3ImweycPHMJzjOKVYkNE4IPSDA0M5jsj7e4oth558HhhyRIIXNVP75UQjF1
gLfzhRsJJqpHX9x/JKnI+qjhq/ojEjw5uTfETyWl+ITTuWbfgwSFjd/9F35b
SnG9iLe8yAvfH9vBwYUhUoqDy05ZfL4kOEh/gv6igZQiItYQFx5Agt9zyI8h
XpKKYq1OUUpPSFDowJObcwAfz443ZDMI3x8ORo9Pc0gostI3+OSF4Ov/GtbN
3xVTfJLl5HY3lARFuj9XbFiJKq6r8jrwPCNBLzkWoguen83UF8v2cBKUuGv3
x7hHSFHrBK/hhWgSvFqiRG2XdEIRrf6i9fc5CVJpFsgeTzmmKHHH6VJWDH4e
p89OKbRxK6bt8Vy4/ZIEn0bKunN3simyJX6RZo8jwTjex1E+9xgUn5xzEml+
TYLU+WXfEsj2L6z385z0S8DjXxzUrpnsumDj/oVHLhHfv///Z5DDiXU+6Z+1
injo01L+GdX/Qm709p/fRvEs16X/sw3dl+9vcv95Y5c74nL5Py+tXA7dqvjn
mdnHQZlV/8/4/eOPCdX/z3hF2Q6VDf/8xP6srkj3P5OGjdgYFv/5VGVcfDM/
y/9Z1uLLFZbQf65O5OBqWfvnU9UcYTo3Wf/P2lTzRzrRf14amqz7Ksz2f3ZM
jGALjfrnFnL+Rc3n/yxsXdHMGPPPk5LT/tGv/tmoES7FJf2z0t+Vlozcf+ZU
vxFc3/jPDz4umQV//ed21hBF9W///GykcPVb2z+TPWCy6Or559mkajDx85/V
CNd506f+Od1mYd1y+p/vSPPk/Z795+6mB4eXl/9ZUox+s2DlnyNjUrserv2z
xu3WsM3Nf86os7Cq2P5nytPb/3nv/rNZZPSRi/v/jK4Ibh0c/PP/B9Y1iak=

        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"r\"", TraditionalForm], 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[0]], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {{0, 5}, {-1.2418310114218982`, 1.4712534155918968`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"Vs\"", "\"Vp\"", "\"a00\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.6145131984307184`*^9, 3.614513203606388*^9}, {
   3.61451332705492*^9, 3.614513331871353*^9}, 3.6145139460608144`*^9, 
   3.61451404842441*^9, 3.61451465641047*^9, 3.614515114736437*^9, 
   3.614515266988388*^9, 3.6145154041766787`*^9, 3.6145156065031147`*^9, 
   3.614515678173931*^9, 3.6145161804436665`*^9, 3.614578706448907*^9, 
   3.6145845449766803`*^9, 3.614597964883589*^9, 3.6146855197205715`*^9, 
   3.61699839245852*^9, 3.6181403682618113`*^9, 3.618142596331395*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"ParametricNDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], 
          RowBox[{
           RowBox[{"y", "''"}], "[", "x", "]"}]}], "+", 
         RowBox[{
          RowBox[{"intervldas", "[", "x", "]"}], " ", 
          RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", 
        RowBox[{"En", " ", 
         RowBox[{"y", "[", "x", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"y", "[", "0.01", "]"}], "\[Equal]", "0.01"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "0.01", "]"}], "\[Equal]", "1"}]}], "}"}], 
     ",", "y", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.01", ",", "20"}], "}"}], ",", 
     RowBox[{"{", "En", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"root", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"y", "[", "En", "]"}], "[", "19.9", "]"}], "/.", "sol"}], ",", 
    RowBox[{"{", 
     RowBox[{"En", ",", 
      RowBox[{"-", "0.398"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en", "=", 
   RowBox[{"En", "/.", "root"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fsnn", "=", 
   RowBox[{
    RowBox[{"y", "[", "en", "]"}], "/.", "sol"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"norm", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"fsnn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fs", "[", "x_", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"fsnn", "[", "x", "]"}], " ", "/", " ", "norm"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.614513129164627*^9, 3.614513213285252*^9, {3.6145132576246915`*^9, 
   3.6145132911644697`*^9}, {3.614513348744295*^9, 3.6145133742734175`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"En", "\[Rule]", 
   RowBox[{"-", "0.3983107371515708`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6145133686303983`*^9, 3.6145133753962126`*^9}, 
   3.614514049039827*^9, 3.6145146570519266`*^9, 3.6145151153668847`*^9, 
   3.614515267589816*^9, 3.6145154047600937`*^9, 3.6145156787503405`*^9, 
   3.6145161810140514`*^9, 3.614578708853613*^9, 3.6145845476755934`*^9, 
   3.6145979717604623`*^9, 3.614685520548707*^9, 3.616998422805044*^9, 
   3.618140369043071*^9, 3.6181425971126547`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fs", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.01", ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<r\>\"", ",", "\"\<Psi00\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.614513381537568*^9, 3.614513412683652*^9}, {
  3.614514693988118*^9, 3.6145146945095034`*^9}, {3.6181387107583466`*^9, 
  3.618138732994603*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV1XlYTfkfB/CblOS2XlLJkoqk0cIgmXkfokI7iTGWNpMyijYlZSmGotVS
SRlFSmgR1W1TUqGFFkVN2z1HoSht995z7+/8/jjPeV7P8/2c832+38+i6eLt
4D6DxWJRzPP/d+7JqtHh4HBkH723PuenD0QL48/bpVxE6ubxUn6UL6yqXObm
lV+GfYSKznadAPyUlkjecC4GMSGqvBHHU4i2T+PSNdfR/t/HjEcfz8HVd0S8
KfMOnPXPT5/67QqSZFaZ1Ro9woPG1zuLJRIRntjq5vlvCYx2dNQJqHuouP7B
JN/jNZZsN+uRe1uI7JpfnRvYLfjbWdFry8sK3O74nOy+tRNdU2uHPJbWILhq
758h53pQrbnrboLqG+xwl3mdltmP7zVBuvmfm2DT8kLPTJlCmuJQjpF6C3QU
8l5OeA3ho9K+9syd7Vh6bYiQivqG6nBL/2PundD1u9FWG/gd4szIoqCKLjiY
dYdw2aN4ciD1ttLfPTh8srzieeIYinI56U8HesFJWEb7Wo4jJ3rLHNND/VCt
+pBaYjOOw8Gh+kHu/Vg4enmzpOM4Qmqiuwo8+7HcbuRinPM42nSV+7T9+2HK
fq6cGzwOIqNBlbrUD9fwbbrDD8dR6bTG+UdeP/L9ju70UJrA+5DSCGnJAex0
zHvwZ+cE7kRtkgtLGsBosrnlyt4JcOZ1CDxSBxDX10lOUxOI7W3UsE0fQJO3
pPaN8Qko3TxJKjwagM3lXbebFSexZm72L66VA9hePhFnbjGJZdtcTK2pARAr
TEMMCyYRLOXuO8+Qhx7vRnVx8SRMVsoeD13DQ1iha9Hbykk8eVWxsn89D2Vm
UROejZNYWnSnPnUTD6YHunwyhiYxkdxhw3PgYW18mLu65hSe+aqE3/bjQZ+u
spl5dQoL7I9o5Bfw4JrToJCfMAXZd8/cTz3nIWl/R5Nz8hRSYx8ZgcuDTNmw
Q3nmFM78VmFeVMXDQKiaU3DVFOxqnqsHvuMhheV98PvUFOodftGaP8KD/Ex1
n0+u03AtiIxs1yaxtUDbKNJzGgbeGy3n6JIIcTMYNTk+jR9u8Rs2rCQxVL3F
70boNKbDZz2/ZESiJsL7pEPiNF6fHewa/o1E6KyXZ2obpjE6EqbT5EhiRNYn
tsCEj/ITO/7uO0uCa20q8x18rN+3sckqnMTlGOmwleZ8lOw/0ZF3gYS2SsrR
fx34oMqCOo9HkvhDs94ixouPB79aBZckkKhepy3ySuEjyPf6/pB7JOKCR/zu
3+Xjxc0bT9IySRwsLf7S94APdqVtckUWCf5m+469hXz0rx9cM/aIhIFNaIFF
Ix9+dZluWs9IJLl98NSSEID6jhWPa0h43L/be2CWAPU7CjKjakn8OnRsT5Kc
AHPT7Qvd60kmP6TMldQF4E9sD5ZtICF1ylhTbCyA5LvRxEWtJHxio9o73QQo
f6w05tNH4rcWJxsVLwF0Wqz0Zw2QkJ2v9dL+uACrZ2LkJo9Exq2ivNrTAkS+
bFR6/JlE533ySuF1Aca9D77KGGbuo4zYElcrwPJPulPcaRIPVYcLdzUKkCDe
NLRcQGKub/KK+W0CSF06mXJFSGJg+YT8rX4BzDZvtdwmJnEuNrsjQyTArJwj
z8/OpDD0ZY+Vh5QQHvF23BdSFBzMpcv12EJ0llqHi6QpaAoOpT9WEyLk0AOX
w7MpVLipeBetEWKUVDgyKUdBt7yq95SpEH8PJKXIK1CIUTu+6/fNQhyMkEpe
okjhYMNrkypbIcYeW4+tYfqIaN3ZmW89hahpu2+wWIXC4bhVgdHHheie11nB
nk+h4evHQfuTQjywjNAcZ5xyZ21jW4QQQQ2ajoVqFDbO+ZrYkyaEpsbpO3wN
Cunuiey794X4b/He+rKFFNgV5mHuj4SQLOmvP72Iwke/O25DJUKQ2dlOXxdT
2Nxo0/7whRDWW3eSyUsoZK0QbvOuE2Lwboi9uSaF4O7dBj/bhGigQl9ELqXQ
t37mv4VdQsSNCuuXaVHYHp87N2hACFH+1qdcxmqWbD79Q4hL6UVrOrQpPM+t
rJ4lR+P3pnjp1mUUlrC919VzaNzVa9xisZzCP4c1sqLUaezPO+xTwNhpQWC0
ki6N9SNzrofpUijz157RsorG8pj98V2MlzU1+13/lQb5KTZ87QoKE+H6fyww
o6Ff772tg/GB/zredG2jse9Y1BItPQovTS4izY5G5FGf0b8Y6yesyXNxonEl
sbviPuOE4V5tnQM01E7cutLHWGgZfYNyo2Fy1e8P1ZUU3O5ulM3yohHPMl2x
jfEbejDk6Akah86+FfgxXr3nxsiqIBrWNcotyYyNt0qphobRiBnlJpYwNjT2
Jd5G0NDacIHdznjV4l4PjSga92PYq4YZ67NtY73iaPg3jIpZ+hT0prlFxTdp
OJv0nFdgrEvq9c1OpXFW7kyJGuNl72/K7s2gMSR1NnMxY+0K6dWZ2Uw8L8FK
k/HSHL99k7k0zom9HyxivCSp77z5cxpPK2or5jNedNHu4bUyGlPOTglsxhp+
ZS0D1TSM1D7o0Mx+1J316dWvabAU5AMHGavaJOmcb2bub3fVpWbGKqYyNu/a
aXgE1R58yniubkCAZjeNBTI/+QmMlecN3PYZoHFJe+l+H8aKMxxelQ/RGFVc
848FY/mR8hH5HzQWlyqEqjNmf/pF9cAkjdadqcQgc/6ydclEDk1jd21Tcz5j
mcLZR4SSIrxxvbY6mPHMGF5RkqIIHcbZPnzmvmec3tk3qCJCYeoX2wLGLM9K
WZOFIvz7+tYsT8ZCs5R97StEeJ64Q6aOyR++4ZzwZYYi6EnvdjzBeGph0EP/
tSLMqxo6N5/xz8ldNMdMBHcN+X8cmXwcHXih47pNBLq3zXWYyd/vzYY2ebYi
nD+eonue8ddsdqrdnyKUTtT4p+lQGDhYTVzxFyFt7pN9WUw99FkZH/l0SgS5
D0e5Sxn3mKTFrjwnwkXF/Pk3mHr6xAnpq7sqAiw6anyZemt5tTpcOlOEhnNP
LWimXt8V3Hno+EgEP41nXEfGTXcUWtMLRFh/qur3LKa+35z6omNWKcLVsEhf
C6b+qw3uvgrrFEFnyKrfgekPBTeU50yzxbC8uEr8mOk3VrdcDBo5YnxVXSr3
TIkCLy1vZ4a6GJpNb+8VMf1JJcvhlr2uGFqmYZdz5SkEcuN+yTITI73fyOeo
LIUNvcp2+4LF+Cuy9b6SBLM/nouf0Vkx1A+MS75n+qnXUN7NWf+IYVGlvzRG
ROLWmENv/jUxuIcEeTTTj0VS8SfYuWJEdF69dG+CRKUe51opJUafZ62h8Rdm
nhm4FsUPixHIW/1n7iCJ0dX5XUfGxVjkFX9en+n/sbdXcCIlWETsIrlWFWY+
vLhft2+dAotYdibqS0k3Mx+LZ3+L1mMR9sWVq3c0k6C6LylscmYRAdWfZBPz
SbBUvhnfcmMRr4p77TNzSaha2+2e/ItFvFhy0rDgMQnLEpWUnGMsYq+HdVVl
NonMG3f11ENYROPSgMyCu8z8syvdOnad+X/gb8XCOBKfK7+fynjDIhYH7HEx
9CYxmO70efZ6CaJph1bn1CISVjrJh1eaShC9pZq5QRoknmR0D1j9LkH0HDB2
nlIjEXDPvTd6iwTR8dlpz8hcEjMyfTvn2UsQs120xqtkSWhkR7/R9JQgCswd
A2UneLDNffXE5JYEEScsLVvymoenpeuCjrBmEA6mTrvkfHh4W/fHhcyOGcSK
KD2/khsDeKwbsyM0XZJo13u86WNpPy4Uxx3c4zWTSL9Qc2L1f314gA8jSmZS
BHF5bNfyz724Nt9wvQtbmugpip49Ku5BQ1+9MJaUJn5GevjfkeqBsMdYsYY7
i8jf5tKQsLwbY0Y5H2PCZYjLJ3fv+3HsE9YFeGqZ7p9N8Ce+DAWkdmKL3Aat
kOWyhFLxEVMb0QeYt7cdr/wmS6y1nbd9vX87riUUbiSr5xDcprIOn65W5KRn
lt+5wiYesGqeaPu2QDmzq2zjX3IE+/DIxhDROxAi7YBjxvLEQzUXH+enzXC9
aBKSPi1P/OUfkWEa3oT3krGiomYF4vY3l/2DNxtw4chpjXxrRaKCpZylHPAG
dfXvJ6eKFYntc233hm2vx8WXMXximRJRzfu7Vd66FlmDu/fuuqxELMzYlHc7
pga+F38PaJ9QIh4Gtg0WNVQjzcZgROdPZcIx/fP+HRZVsHx8ITqgXJkYSzTi
TvZU4vol8be1KznElExL38LACmy7cjbzRTSHCPZuK0oJLsOQYXXK+VgOoXj/
+CMFnzJcbpGO3xLPIfqETjMi3MtQvyDqdM11DtFtcbQ6yK4M27OuO9SncAju
qnM3I5cxfpUtbM5mvqe05Jnt+1JYSbTZ9b7iEOEzvaJ2GpTia7qq+b91zPqJ
RY8MdEoRZbnP1PU1h/gUGamssKAUb6J7dHgNHGIgWzKtXZqJX/SF/7mVQ0wK
Mguiu7mwNmVlfO/nEA7n9cVJV7kY7t6clMvjEEP+vn1Z4VxcPRcRfYLiEHHN
e/mlwVw01MkG/xziECoy4dXfDnNhs2ee7dQPDlGxo+mBL5h4gdOWojEOscE1
Xi3lVyY+NckkeJxDOJ2ZLKxbycSTi7WFU8x5xeoE6qtyceyyi1opn0PELDa6
6SLPhfyqDPlQIYdY0neoP3kmF4+aKUmIOEROa6vTB34JbPz1psViDvFBOvfn
/B8l+B8mfkbb
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"Psi00\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.01, 5}, {0., 0.7241369720206153}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.614513398865835*^9, 3.614513413012884*^9}, 
   3.6145140494301233`*^9, 3.614514657441201*^9, 3.614514694907787*^9, 
   3.614515115876246*^9, 3.6145152680141273`*^9, 3.614515405154372*^9, 
   3.6145156791416173`*^9, 3.6145161814193583`*^9, 3.6145787101585445`*^9, 
   3.614584549042564*^9, 3.6145979745324297`*^9, 3.6146855209862127`*^9, 
   3.616998427960704*^9, 3.618140369605729*^9, 3.6181425975657864`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"norm0", " ", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"fs", "[", "x", "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f1z", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"fs", "[", "x", "]"}], " ", "/", " ", "norm0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en1x", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en1", "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.614514075378512*^9, 3.6145140884768095`*^9}, 
   3.6145154245741425`*^9, {3.614515646783679*^9, 3.614515684402368*^9}, {
   3.614515827581457*^9, 3.6145158321727324`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "en1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "0"}], ",", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"en1", "-", "en1x"}], "]"}], ">", 
    SuperscriptBox["10", 
     RowBox[{"-", "6"}]]}], ",", 
   RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"en1x", "=", "en1"}], ";", "\[IndentingNewLine]", 
    RowBox[{"prod", " ", "=", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"interAKB", "[", "r", "]"}], 
        RowBox[{"f1z", "[", "r", "]"}], "r"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"sol1", "=", 
     RowBox[{"ParametricNDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], 
            RowBox[{
             RowBox[{"y1", "''"}], "[", "x", "]"}]}], "+", 
           RowBox[{
            RowBox[{"intervldap", "[", "x", "]"}], " ", 
            RowBox[{"y1", "[", "x", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"interAKB", "[", "x", "]"}], "prod"}]}], "\[Equal]", 
          RowBox[{"En", "  ", 
           RowBox[{"y1", "[", "x", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y1", "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{"f1z", "[", "0.01", "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y1", "'"}], "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"f1z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y1", 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.01", ",", "10"}], "}"}], ",", 
       RowBox[{"{", "En", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"root1", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"y1", "[", "En", "]"}], "[", "9.9", "]"}], "/.", "sol1"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"En", ",", 
         RowBox[{"-", "0.398"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"en1", "=", 
     RowBox[{"En", "/.", "root1"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"f1nn", "=", 
     RowBox[{
      RowBox[{"y1", "[", "en1", "]"}], "/.", "sol1"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"norm1", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f1nn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f1", "[", "x_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"f1nn", "[", "x", "]"}], " ", "/", " ", "norm1"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f1x", "[", "x_", "]"}], "=", 
     RowBox[{"f1z", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f1znn", "[", "x_", "]"}], "=", 
     RowBox[{
      RowBox[{"0.7", 
       RowBox[{"f1", "[", "x", "]"}]}], "+", 
      RowBox[{"0.3", 
       RowBox[{"f1x", "[", "x", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"norm1", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f1znn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f1z", "[", "x_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"f1znn", "[", "x", "]"}], " ", "/", " ", "norm1"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.6145149977605195`*^9, 3.614515001524186*^9}, {
   3.6145151326391516`*^9, 3.614515141908704*^9}, {3.614515228021761*^9, 
   3.6145152398641768`*^9}, 3.614515487718894*^9, {3.614515629789645*^9, 
   3.614515630117858*^9}, {3.614515716826337*^9, 3.6145157254524527`*^9}, {
   3.614515769781904*^9, 3.6145158213650694`*^9}, {3.6145158591308284`*^9, 
   3.6145158595361333`*^9}, {3.616998470055606*^9, 3.616998470140648*^9}, {
   3.6169985382560034`*^9, 3.616998540929902*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`en1, StandardForm],
  ImageSizeCache->{21., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.6145845510589933`*^9, 3.6146855213769884`*^9, 3.616998440272444*^9, {
   3.616998470653015*^9, 3.616998482372331*^9}, 3.616998542525035*^9, 
   3.618140370121361*^9, 3.6181425981616488`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"Ra", ",", "ktf", ",", "qz"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"siPseudo", "[", 
    RowBox[{"k_", ",", "Ra_", ",", "ktf_", ",", "qz_"}], "]"}], "=", 
   RowBox[{"16", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["k", "2"], 
       SuperscriptBox["qz", "2"]], "-", "1"}], ")"}], 
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["k", "2"], 
         SuperscriptBox["Ra", "2"]}], "4"]}]], 
     RowBox[{
      SuperscriptBox["k", "2"], "+", 
      SuperscriptBox["ktf", "2"]}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Vlocal", "[", 
   RowBox[{"r_", ",", "Ra_", ",", "ktf_", ",", "qz_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"siPseudo", "[", 
       RowBox[{"k", ",", "Ra", ",", "ktf", ",", "qz"}], "]"}], 
      RowBox[{"k", "^", "2"}], " ", 
      RowBox[{"SphericalBesselJ", "[", 
       RowBox[{"0", ",", 
        RowBox[{"k", " ", "r"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"2", " ", 
     RowBox[{"Pi", "^", "2"}]}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.6145805801071863`*^9, 3.61458064168785*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ra", "=", "0.93"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ktf", "=", "0.527449"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"qz", "=", "2.17"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tVlocal", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", 
       RowBox[{"Vlocal", "[", 
        RowBox[{"r", ",", "Ra", ",", "ktf", ",", "qz"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "20", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intertVlocal", "=", 
   RowBox[{"Interpolation", "[", "tVlocal", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.6145160888617325`*^9, {3.614520251000863*^9, 3.6145202691607475`*^9}, {
   3.6145204254775715`*^9, 3.6145204265803533`*^9}, {3.6145204668338737`*^9, 
   3.614520475202828*^9}, {3.614520507062419*^9, 3.614520508188216*^9}, {
   3.614520843352857*^9, 3.6145208434749455`*^9}, {3.6145213591335616`*^9, 
   3.614521359994171*^9}, 3.614521957593888*^9, {3.6145222319524174`*^9, 
   3.614522267588683*^9}, {3.6145805502730627`*^9, 3.6145805736035757`*^9}, {
   3.6145806480633755`*^9, 3.614580663526333*^9}, {3.6169986089432025`*^9, 
   3.616998610785514*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"intertVlocal", "[", "x", "]"}], ",", 
     RowBox[{"intervldap", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<r\>\"", ",", "\"\<Vlocal\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<our model\>\"", ",", "\"\<from reference\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.618138753903207*^9, 3.6181388257850413`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV1nk8VWsXB3ASlag4N2WoDCVXUhpcCWsjVIYkqVx1VeYxUgkZoiiaDA2k
KEl1DSf0IlkqSaaUTJWITMcZ9nHORsZ337/25/vPs9d+nrV+z1Y55m/nOkdE
RERFVETkv2d6+DEJHZdQo9GQYM97J0i858jWP6B8CKb9PAW3aXdYXw5UVvaE
OvnquP+86a+PDyXbA2GuQax6Ou0zFocWiSufBZubjz5k0y4/0Bs86x4B1kPy
/sW0RYte8KfazkM29Z3xgfbq8kn1ickLMB06UPSTtnkV4TS26hKMGWzaM0vb
o/7CDaFpAmz7XdylEkBi/Jfaar77NXAP8D6+i/YB7rzwMbMbsNbNsu0UbY/A
p8tH2xJB6baN3mPaZ0etCoWeycB+7xvdSftyCM9aMJkCBi8yi5cHkph7fks0
ueoOsJs036bTrpBoW8FjpkJKeMDtAdpNl8+WcEzvwl5O/k7dkySOJFZwWO73
IXHJ2Poe2ufjN1YJwzLgqDnfCYLo9RuiZIRmmfAFqh0zad/du/rfkbYHYBjZ
++LkKRKzkk795mc8hLCdKxb/op3bUm3O98yCkdY/NA+dpt9/yPMnb/IRyO9S
vrv3DIk/j+bJcVY9gX3JnYqhZ0lkPZw9zh58AvYZ+ltlQuh6+myZw8yn8PyM
4u9ntOd6CSxZpv/C8njLIF4oieqBelED7vlw0yG1NzecxOVfd7ifXF4AFz7u
nvKIIFEplCMtCCuA8eVmjzUi6fN4ZfT3iBkTxldNPC6OIlHX+CdFtj0H3yVp
s+IXSNTvuXT3hEEhBK/6uL+PtlH0JlMyoxC05jLUP1wk0eJd9HWeZxGo7M3V
uBdH4sFd6uu4k8VgvPDo0XMJJIbu9XYeXlUKIdd9J6RTSJyJ1pXvSigF338c
PK1ukhj5QvTz59+lkN86/vPaLRJjFG+bljWXgVLiZPeaVBKv9lWpX4oth4j5
3CdX7pOYcXYlR52H8Npu67xdz0iUaRXaSWtXglE406T1XxLt/B03xLpUwnSm
5m6PPBJbMtcMhnyqBMPsrNxUJolfJcoPHXv2Gpi+uY56JST2Ng0a6PzzFioP
VLL3VdP74WUj/yzlLcz8mCuvVUOim1gRtbr+LQTkXWqeX0vi4NaIvOXbqoD6
/av3YwOJ7NSlyiKMd3B4cbt4cguJoy4mYh+rq+F34hEu2Ufigt9pH3y0a6Fo
plKZt4CPerEdIbuP1kJnyg3n9VJ89Fi6TEsjuRbsXziv9V/Ex2qdxKu9v2tB
RoulOy3LxxivuH2O7+pAV/6vdhMlPop8D+q0cGqA/b6q4/4b+BjalR0sY9YE
MTcv2248yMeANxEJ7MBmWJnctNPsOR/HZZJzv8U3gzDFzGtzMR/Dj+Y01mY1
wyMJnfdqJXxMEPm05ElrM3h/eLpiYQUfc4xUU1z1v4Bdf3+W4AMfu8uq0n+I
tkDXQi/HtT18tC1ckN90vRVSgrttBYwR1M5K+lSU1wGUC1zmhI5gn42HUpde
N3TeyVBVcBPgH9U+q8PNuuGDbDEj3FOAJoYBWivsuiF41Hr/Tx8BZqwLMfjb
uxse7ZwpfHRSgE7zE5za0rvhhcrIjjVRAvz8Ov/uxzk/4dsI9+dEmgArtowp
Vdb/BOvACL+OJgHeUri4ItO5FzZLOtiv0RXiaG/jYxu/Xhgr9j90YpsQ7XOX
bZoK7QX54c+jJQZClCWemB+41Qu1D117TUyFmOBa7y/d2AuLNuzu0bMVYmSB
7Juz239BYV64d46nED3M77vZyfWB4Ij0Ht9UIVYvHiRn1frgREqgjnO6ENd0
bAzN1emDhoF7gj0ZQuzxfnNtvnUfhCUaiKhnC9HpRl9JRXQfdHTJ33nGFKLt
93UL1/H7QNmp7tWyGiFuCyzJF6vvB3fzXRfWjwixaXb7kYCOfoirjmFmCoXo
dgWluvr7YVvOsK7smBATc6o9y0QHoKdH0mhwUoisH1/UAv4aAO8z+s3u4hTe
teTf+vFgABS0S6qZyyjc1BFkblUwAE1B1KsheQpr3MaFpa8GwN897dMKJQqF
UbN7U9oHYPwBaRSiTKF1ibSU1aJBcCj2fi/2J4UzqzUjS88OgujBGQOHbRQm
P8/VXhs7CCgpu9lmO4WahE5ncvIglBfWzTcxpNDhbz39E/mDMG+7yI4VxhTm
3zAXqvcNwoyz/LXMnRQ6zxzzSLYdgvWKbmt+OFA4Gt8vN+fIEBzvWm2TeJDC
BHmvd/7eQ7DhV7W8iSOFpVsCVC0vDsHKOTGXkw9TKOsd8V20fAhS5S82jh+n
8G1bmq3/WhaciVy+84c/Xd+x/UJqMwu0/jV5ph1AoRtn0e0wggVxGRHKoYEU
Soqd77p0iAVqq/j6809RaKvt4ZcVzwKXZRwxwVkKVUtVZNfdZkHzusE6tVB6
f0y/FTOzWPAuMuiObRiFtw7ZTFe8YoGKhgjcC6fwR8yWhA4eC2DJyrgF0RQW
LOZucJ5igXV9p61CDIXnUx83988fhjIiV3btBQrXFCgoClWGIeuqfuiWWAp9
vok8XWQ/DH8d21W0Mp7CCZ2G96YlwxAyV9pjQyKF9eUXvWurhuGMlY7ELO17
FsTivZ+G4arBsZjaJAqNDxc6HGENw5jtE4X9KRTGxd3pC1Zigx5XIlrvNoWO
jH2XZjXYcFGhjuqnrXVPav3FrWyoc1MwuHGHwo+FEUFJNmxYkyZv2JFKoVyX
q1heJBsy5Vp+6aZTOOi56vGWK2xQ79eqeUu7TNi+++UdNpyzvhpodY/Cw5JW
iTXP2ZC8ar3c3vsUaqeI6+5BNuzW2C3VQFtEGTta6tjwZu7GtzsyKMzaukml
9xcbHhcZh6zKpPB05XCVJ58NfJkQy4u0LSwfeZDTbEjbmPhtkDbLeXnBtBwH
PhnK6mU+oLB8+NO+GDUOGAbazR2jffV0/JjkRg7UC1Sv7XxIoU7CjNHyXRyQ
9VrT/YP2Js8pl1wHDlhHJxr/mUXhFvOJyyYuHGhdlJnpR3ur2nhBWwAHlpX+
JZJPW1dktNUnggMh2oaHWbT1OgVTolc44Kl4u0T5EYXbyviqt1I5YKO1QdaO
tv4t3k6tHA7ckB7yDKdtEMTxe13MgXve/+Ij2kZ7h5Md3nKgc+QfRg1t0B4q
G27iQOkelksfbWLhQHfkDw6kaW8qmqZtMvhLQo7NAc72laIy2RTueNej9ew3
B+RXp1iuom32oNuOmMeFuKRzSRq0zSN+BLf8wYUs3Yp2Ldo7nb7f81LlQnup
oeJ/3r3ta9XsBi4kfOhxVKdtKdfOSjbkwjrZ5FuKtK0ELUs0LbmwgtD7tJC2
TVOzLh7kQuNs8bwxuh7b3E9O9m5ceDwt0O+kvffyx/NDJ7kg09/uVUHbzr0h
JzyKC6ddLW+l0rbfUdfIuMYFQmNTZQBtB5UPwpy7XOj4erLPlPaBmWoFo6dc
ePrnmIQM7YPfqojm/3Fh5esHqzvo/XYseePm8Y4L6daHje7SdkqpTJj+zIWk
UGl7R9qHAyueJ3ZzwX3sjiuDtrNW2Uz5JBccLveEnqbP+9iCktV2C3iwY8I7
Upn28f7i3QNyPCjx9Il8R/eLWwbzpswmHnwb9wkUoe1xLr88G3hwOEDf5Sbd
b56OuT3brXkglSa/dy1tnz+eaLt58CCt8LGiPt2/fvxs+8lTPLCeVPv9ku5v
/8askOvRPPjyyOqTHu3AuIzqsns8kGgxDFCj5+PM1K0ji1t4cOXMV5/yNAqD
O1Jisnp4EMQUKsnRDnmR9HQbyYNwJlntRc+fUYnFJFOchMDwhBpRej6NA00t
viuT0Jdx5S6Lnu83ziZfs9eSIHb/rO1y2iZ7jH0DtElwYEjOM06m+0ULkiQM
SPDfZ3Q+ms4Li379ro0HSFDqnf5Wf5X+/uYv7NjD9PpPniX3XqEwptJv4sdx
EmqGy2aoBApfpz5YeuUECTZhM8PSdB5t3yNpNXSJhPeCFTaSdF5tKOkoySwn
wSWoa6cunX82j05Wj78hwa/6Re78c/R+JUp/2fOBhH4Bv62Vzs8nPsa86RYS
xoOTo9zofFVTebLGkUdCnt1Vq31BFC67HJwoq8qHw2GnO4570vN3RjbDU4NP
51m6psCd7ieXf3Mrtfng46y5P9yNwhtG3TV+2/lQ9f7M9jg6/xcKLGZr7fnw
Z1evvxd9P8z+vcwnOpYPdR6q1z1tKRxY/8JMyOZDia7Yom2b6Xw/5+u6TsAH
B9/Q89Y6dH/Vr75w7DcfPu9uWn9kA4VNXklVTeIj0Dp9VSdoHZ13j0+Y5q4c
ATOnDo2TavT9pLLO2M12BOzLvZ5XyNJ5szTDoL1wBFhLqxencYXo43LAaXHZ
CHz7cvCcPluI2YWLwswrR8DOodK1dUiICnbnXhbVj8COrIR8sT4hzr3mqH+j
bwR8YpKObfkmxNb5S/V2LxOA6zI1VbJaiKFTlzaXhwigfb7L3oY0ITYGHU8O
iRJAdLx76OvbQlTmGFB6cQLoYYV1MFOEWNXJe1GcIoCv90sh9poQpXC/fn6B
AGKio5aKRwvxXpSK8YN+AZjrRXL30P83ryVKbeLshPAx/uct/c1CnCcz6Gmv
SQGn9/R6pVcCHI11Mru/kYL8U901IaUC7J9pUmbpUlChPvi1tViA1ezStghT
CuaNy/rH5gnwYk282TMnCkSa0nNr7wtQInKDypxrFOQpVul8p//nJHin2/MF
FNyx06khdghQvEHcYuGrUeheYT716s0ITjbm+iQGjANz7XDxhSQ+9h3Ik1+5
cgLet1c/wAMkGsf5+dbkTsLGgapnTge5mDJTssD0n2k4cKGmYG3bMP6t9Nbq
u2AGgof7XH1vDqFU5Tq26n4R4kgNofTJYgBdtz6gDmmJEt6KzjPz1vfhmfBg
O2VKlHi3VWFb0eFevMBKam5snEO4s3zVryT+RCvNxTlSqWKES4y0rop0N17J
1a20OjqXGPWZGFVy6cTafQ+ngraJEwq55ks5ZV+xssE/QUtMgpC9fsPvc1g7
PveKIuo7JQhq0c3kNZatuNIS9PyK5hGaLl5SuY5f0HTWKfp+2Hwiee7vX6H/
+4wurThSsn8BcTyNfP5I8RMaRZ0vPqosSVQ9qdGzCP+Iif78l1IDkoTty9tq
BxY3YE/ko/77FQsJDfkQD+mcWhx2LXV5EytFNGq+yNZIr0HSV3Zew1FpIkNZ
0sf9djXm7aqbclu/iFi8ztLeuLsK+z026opRi4i5Cn/Y3LF/iwrPvibFNiwm
5khOt76qe43RzoEPGiyXEKI35R6MhVbi2JT8FcvSJYRRzgs7xcMVqPHy1p3a
1TKEwfeIz+YS5bj1+Ls9MpdkiIQt1tt5c8uw8u7S5fWUDJGnaK+4RbwENSqX
Xrb5W5YIjPHU6bF+gdbi7BWfK2SJ/JiWeLnKIiS//Xr7QZNBZMlvEdfaVIj+
d68wLl1jEKAj01z7jYn1oqt5u28wiK7yTc3SrUzUdC+rlUpiEBHdzCa7Jib+
0hmIun6TQfSy7lf2VDHx4HuCvJXOIGoy14ko5DHRZERQn/2MQRhHJpj0RzJR
bqfjxar3DCL+66GFgrVMPJlLHr34gUEYDqsoB6kysUk21nBnHYNYqjqjMKbE
xPjOQiF9wxG1v/6onCPLRJGT0sebWxhECplTuHGqAFnpldDTyyCOFH65399U
gBZiBxSz+hjEqaI2vFBXgFkenFHXAQYh73a6TL26AP/ZrJA3xGIQD1/lGPi9
LMAvNSeV+HwGIXai0ZmRXYA62pLjzwUM4vXau8avMwrwalJGcxBF179/19iJ
tALcdaTh8vg4g1ARHv/Rcr0As98edyubYBBNDscWxccX4Nw/J4zDphhEu8yx
JSYXC/Do1esrjGYYxED6s96JyAKsEKj/np1lEBknY2OLQwvw/3aHzqw=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJw913k4VN8bAHBLyR5NCklSISEiKeW9IoqSrVJKSURIUSGSLbJVytJqaUHK
EinGcse+ZN/3fWzZZsYa8bun5/v8/prn89w55557znve95ztVx0MLVmYmJg+
MDMxod93HlfZFK65qWVrUMm+3Qw8yVvJZ3rbK8j5z33myZsmtn2Gd8+uZCGP
fVi1GB/5/P/ndKr+t9/fEqHi9q1m5CXJ9ytj97/AN1njX8hrbjB0xzS+Al+t
QyUy91fNV6PcSXBWObcJWWAyfGikKQlOXuvPRhaVH1YciUqG+7mi//qTcFTx
Gr6eAma5Ef+eC7ZrXncSTIXE4rp/7UXcJngY7qkwfU47B1lMJOK7Y1/q/8e3
M1fNlH7sGxgyPvx7v5TZMLNj4jc4HarTgiy7+jSBxpsGditOecj7YlRO33ZK
AwtjsX/vV1bvm51uSQOT/8ar5rNPYzom/f/j1y72eTZl8x3O/eeTVjIHHKq/
Q6GCcCOy/rqmrsl9GRAxETSNbJzwwPdmZAbw7VTuRTY5IbFncikDOo3KaMg3
qsqKx0N+Ak0q/N//3Qxsr/zelgVSziOTyCs+ykI9wVnwh0+c4xFhzx/M9fWL
WRCyxZ4LmWW0MrDEivx/+255qUFuIENEtxQnMpuexXISlg2rhw/vQg7wlMuI
TcoGawFlfmTu9EX7cOEc4JVckkR+Qi2SCPDPAUneYxLIfILPetxnckDx0oN/
7Z/rmL68ZZ4L9rcWAXnjAwmDa9W5EJTHKY0cmULjMFHNg7frG44iC/fnFOgm
5EEB01Z15LcbH7uBAA75/1lU20hJ0RuH6FqXf/3FuIpOSEzhUKIjb4TM3zxj
yCNHAbej2x2RDR0u7PW/RgHbyjfOyGHsFC7mNxSYp1beQ26K3TVyv44CInUd
d5E3qQYVzazLh1irx0+QTRqnY26q5YNC6KlQ5Ff2Zx+M3MmHKI+4BOR2tpzz
V7/kw88+oyTkgdqRwwqXC8HIYx2LH4qvG3pCX8ILIbmORRDZivX77M7KQug5
FboZOf6tUH0USxHEiVvLII/sf5gseLAIhifD9yHvrhkMfO5QBAYKomrIN6x1
rnPHFYH3VnY95C/MqRp+nUVwgId0Gnn8tYAYE6kYKuWYLZFlldyWXU8Uw+qd
KHfkm1W9rYyHxXDs8AUf5FQrrQz7H8VQPr3kj0xb/RI6PF4Mv+TEYpH3veK/
ab6jBOwLeCuR7+xz1uk4XwIdVSpNyBm/OiXOPCsBtvnbHchz146y1pSUQO9x
PRrygZX4nuN/S0DcT32tP2GXSJ6cAsVSkGxcK4RMlnd6efhGKcx+qJdFXipv
vfMjphS+vj8OyIct1AzkW0pB83qFGrLH8gfZRJ4y2BL78wQyHs7BuVOzDNaS
L5shM+11GHp3vwze7dpyG1m9rLFg87cyOKyU5IPsbX4oOnS4DP482BSBXPgn
2o1LtBxeRJ9LQF4TttbkkXE5JIYWZSIfk7VVWg0sh/43tHpkv5JaPtf8cqiz
0JxHLrusPEGfLwfH69rcjwlzLL4pt5OrAJ9niiLIKv5t93XMK+CbjZ0MsrXA
ZhmpsArQ3OJ3GLlE4fmTgcUK0BY3u4jse+Ox0YXiX/Bi9MtrZKbOO13aF6uA
fCCBL4Cw/I20J7ueVsFdBT4x5MsLU8BaUAVlMvaqyE/8ZGm9M1VwiHWrCXLe
Rtv3eZLVkDj6xgZ54n2C0dsL1TCS2OKILKIwtOZ+SDVEdArdRj6J7/hxjlIN
W28N3UN2O2V+fT+jGk6OHn2OnNgRJUiSqIFCM40k5HabzvJpkxpQDHqZg8yx
IORWHVQDwao1hcgqfudkvubVQNsm+X9264lz4T9WC9xGWZPIz+OOGXia1ULR
ZZXlf/3bD+6ecq6FQSEnzkDCBUo+LGahtbDe9O5G5Pal7R2VibUQFhgmgEwv
oKSrFtUCT38TCZkj8HJwYlct7CfrbkAWM1i5JjRfC4sGkf+eqwi+O/KYrw40
YnZsQ9bvUd00v7sOJDZIyiBbx7VPWmrUgZFTgwKyp71raePFOnCvrpFHjlQS
jNG4Vwc6d7ilkJOXfrikPa0DRTr/FuSSgjMG2z/XQfxNx3/v6w6Y2f2soA6a
ZQX+jX9O/wXLakcdBOhd/Tc+XsF9HfazdfDn6Ak2ZIme2vRO3nrwt1H6g+ZD
Lc4hWFeqHvSG8QXkM/a8lmT1epCKv7WIbKeUdGS3aT18oH6ZQfZd0t308k49
3HW5NIr8tmBsku1JPYxwfWpF/h4QUHo3vh7CrJwLkCv1pWIGKfUgLbYjEXlg
c6mLUXs9bG80foH8p9vSoIBRD54Bxe7IG+LWSCvwNIBX2/HryNL2H1hiJBog
KOyjAfJRpaMdvFgD5K9QVZAvLPWmPzjfAJLJp4WRbxc8DB53bAC5lUvzKL4X
+MOSOoIaYO4OvRbZwzyhuuJjA1whO8chr/2WM5WV2wDWC2eckYOZ6vg+NzdA
2YjFUWSSPlXh5VQD8NUZ8SC/jl409GdvhESf971of26f4rlzb3sjGOfq/9vP
CWri4ZaHGuHTzI5g5L1PlH8YGzXCXoGrBsg/unRaNOwagct2xwbkIncnIfGo
RpC8nxGJ8plupf8h/p+NoOD++zxy/Za3pky1jcD7NfFfPu8lF73rZm4CR+4D
j1E9uM7Zllcl3ARnZp1UkSfPT/TkKDaBoZXlb1SvlxcExN9YNkHW+Uh1ZJ/j
0hqBHk1wqmty2Icw50u1a66RTfDec1cwsuCB63HnyptgzLKmzJtwtJ9bqVZ/
E0THrL+ELNH8dGT/UhNU3a0d8yKsdDdTeqNsM1zKpk97onhP50ipfdYMPcZq
Qx6EW1hEa/HPzbCg+/UCspnhPlpyQTMEPl3If4Dii3ZBMWSmGaZzP3i7E2Zg
DsbuPC3wM7Spz43w/Wc+d20lWiD1wpEjyI/3fv15wqQF/kTHDroSXv+Q0qpy
uwUC/KvlkCOqGxclA1sgpdTfwYXwR/u/qmw5LSCSntx6D+XzL3qUgm2twJE4
HeREWGvpat83lVZYHXkf7YjiVceZJdagFWxZPL/cRvlgNFrzoU8rzHDLZjmg
/SVJK1MdboWV7JMPbAk/cF47Js3UBhufuZ67gfJ7qRCXsFAbNJhIytqgeLY6
empBpw0irmYUWBGW+/ii7ntyG3CWqvmaE974Un6eUt4GJVbu7FdQfQqqEqka
bIOfxQo+Zij/O62zpgq3gyhbqYEp4asabisC/u1gmOJ63pjw8QOCO8XftwOb
uLqbIYq3PRkn5HLbIT1BO0gfrf+GqTAtBtE+hufxScLh/Vf3OF/uAHGMa7Mm
YffmVX2f+x3g2/i7Xh31X/H23tPwDtgd/8wT0HjTmvPjf3VA9Y+9mYfQeLx0
TFoPdMLUjwhfeZSf7g4/GDTshMrjwzWyqH8b3w/T9p2gcSJ87R7Un0HeJPvH
Trh9mH5wFxqP2L5HB/m6wI66bkiQcP/GmsRje7ogSmghToBwObtdrYFWF8xr
c57dgNZz+tOWG+5dcHBvhTsXqk8UobTXI11Qn03uWe4izlPff7TEsXYD24Th
2kXCf+ON/qaJdsPW5DWbZwlXPA05/su4G2LORLNMELa4zNyzROmGzuTalg7C
OkZRa9g7u+Hn8zLDFsLy2qrSG+e7Idk/KaOe8LLc3bsysj3Aq622r5xwxMoI
16VXPdBG0RLKIEzVsxbpUemFOKuvo/6EN5bY7fQ41gvhG+8qehM+euS2zFbD
XqikLVi6E47Zc/+wqW0vfFjT4XmL8EX24Ist73pBn1XQ6xzhoIfPrt1L7IVO
BvuyPmHyXJidwM9eCB6aO6tDeDP1nbtRbS+MUsS/HyZcn5/ytoalD15nPhYR
I8x88PvHm+v74H5GZZIg+p7UzK88In0w+OTQNn7CIVH5Obr7+2Bb4atoZsLH
3Ro6S6/3wWGoOtDXSdRzpXkRSmUffAp/KPya8MSXpZ2X2/pApMrxzTPCIjuY
ZFeofbA99se8H2FXfo4jh1f7wEEAVJ0IK00KX8pU6AcPXbGeE4QT49XepUb0
w7ozXjVTHQy8TVTj0+kP/bBlj0XVAGH2CO2kyZR+GGZhjmkhbOmrnytT3g/X
fk4V5BEWM7/albDUD2e9L68JIhwp7Lc19soA1K3JcBMmPDdQHa93cwBeMGce
5yRsnLR537LbAOhQxtsX24n9h33WOhc5AHOaV3RbCQdbVjrwVA+AmiJoPCfs
mbqhwFV1EHyOW3YuthH11NX0pOSJQZiYWH1JJXxE42Nz49lBWKm7yFtH+E/T
/t97HQdhaNZCLJ7wnSWTjUMJg3C0hbP+NGFrrWgrw01UMI1YbnneStTr9SPT
qzuokJWhXu1KeFebvFuSAhVUNzjZXyHcb1vwlP0UFcI26nyVIXwxlJqZ50MF
5clwifwWIp927uHaQ6OCwIyeYVszsd8+3QlvXaFC6YB1Bpkwj0PuNj/uIfgJ
0llvCFcwn1bqkxyC3QJF7y4S1pR0vBRpNgRCAZqUtiYGftAxM4W1cgjevX7o
Qmlk4LWrqma324bgrdOlLW8JW4Xg3D1DQ7A3tcPImfDzhBIbMvMwSFeweMkQ
Hutu3HH7wDAYvUqIC20g6r8uLbL7/TBIWKc7adUT5/m2O1onU4fBu+XSgjDh
MquFmazcYbAv42GdqmPgM16rBuGtw7CTvzE+nPCpTB7uk7wj0H2DTbCrlrhf
7pT2zHIdAdfKlC9GNcR9Ki1JTtJ/BK4Uq4uLEZbGFLrCwkZgvULJ+vFqBn7W
VOXQrZQReG4QctKbcEqo1owEdQRyJqK2JVQx8CsrV63D9EeB9V7A7tZfxHm8
5Y2+g+QYUCIycwpKif6vnpmZVRwDpq/3Ej0JW03wvnTHxuDvjgssaoQ5Wb17
As6Pgfkm5/EfJcR6yFnf/Bg0Blq/SE9ii4l48VUKbpsag72hRpvOFxL3nfWT
e68sj4FNB6cUD2Hv1/ENQ+y/QTWw+jmlgFj/VOEtM9t/w2SwksMuwnYdTIm8
xr+B3S9BdJhCxJdCValG5m9wOlLTciKPqEc5frYVRb9BLmSZm5HLwKO0sfUG
db8hYaEk6A1h9UvpZ83GfoNA2aT5WA5RHx+/orqIjINLGpx6mE3kxx5L1mTP
cZD+Wsj1KJOBKwSvqAmemICWLMv7i9+I9bJZvpZ0dgL2TyVqeRJW0voTePTa
BLhd2rWBjbAy01yz3cMJ4Ij2iuVNJe5LdyZu5mdMQNrp5YekZCJ/XOyMuiE+
CVwOljNjn4l8erC9aHXvJPxu4OAxJ6y7qXUs7MgkjJoW8zQnMHC92gZl3GQS
Cq5/zc+JJ/ar5q9q0tNJmHj5oML9E7FeMuSVnKVJkGIfFimJIeoHR+ZOQ44p
cOyxXydN2GIoQ2d40xSkXUzLD44m1ivmWwT/vinwzfz+Ti+KmM+Nn+WsrKfA
PGy+rPANA3dejjRb3zQFKd98Uh0jGLj20KEe+XPT8GhwtqIlkGjf0Djuf2ka
XMMDK7cR9qXc/NNtMQ2ddgKvrAIYeP7r9wIht6aBg14dMu3PwFVPc54cDZgG
31jB/Flfot5mtmXG5kyD3b3PEkUeRH4OdHm+QZwGea77ua1vE/PnvCHGRooG
i847hv1uEd977WsSRY4Gd5narn50YOChar1lN1VpcFDzgHKHPQPnYmivVhjT
4GFEn6TKDQa+arrZzsefBlPVk3LJVxn4sOyPYzPjNIjeLZvgZcjAxR/YW+5h
0GC7jqaDswGRPyp3Prq6SAOe6rAcW31if994UVS7lg5Pdu+lntYj6kn8LY0k
UTokdbadYtMh8uH2PepW+nToPKXuJK1OxIdAzOHWdDosOCxaaMsR83nt3MX1
ZDp8dnN9zSXLwOPSed21KHSIK1yjUL2HgQsbPsj+XkkHUtOH+3q7ifPP0wuH
Qql0qDlCt1DdycCb2QVUdDYz4GaY3PViIeJ+thygmHOfAWtelbSEsjLw6jsW
Yfe9GCDoRdVkYiHy/cThWZXHDCJfhL+zYyLOx11TPzLCGeByaz8X/KXj3PiZ
QympDBA2u5RaMUfHo7y2q78fYsCr1v0jbqN0PJ8tS++x4Qw0O4avHq6i4xsf
Pk/ROj8DUd+mVa1+0XGreVu+tVdmYFvi64Mh5XScc0S03st+Bv7GUZ0ai+m4
YbnvGbfHMzBi4IVr59HxwSD9izfzZkA9/XwCJZmOr+MfsTGWnoVPqixmMyF0
fM7/4rFo+VnIjzbYtBBEx4dWasXGlGfhGd9o9mIAHS8Zz2p5qDELTqLffs09
ouN+ZUHHvlycBdNPtgMtD+g4m+fe7SxPZ2GshPXsfnvCU/daUxizYJ0sDyY6
dHxt1Vptrtw5iH9kxyG6QsO57d9adBXOwdOg22/Ml2j4Rh5Fz5SKOdALTH3x
foGG7zx1JcuodQ7STgRmiDBouGYVec9bxhzkpttn0IZpuHeVA5+s9DyELJoY
i9bRcKbqtja9yHmoI++ieMbS8KXqJLvntxeg5S9Z6MYhGi5aZ/5G02UB5Fr0
Tmw6QMOPNghUzHksQFFa4x9ckYYHtjyQNA1egNfnflK5ZGm4YO+p/h3xC6CS
0D3yaBsNV6ZNnMvoXICqq9tXWNbQ8FskOY1W7UXoP2BpI/FrGqeeSxYSFf0D
Er4nsGOG07j645v2ZUlLYOTZG5SeNomHr2RyaFz+C1sHyhozzMZxU5HCk52M
FTBUmP8wwj+Gc1P2jIufYcKCy4OS5oKHccv972fPyzBjcdOZsfEyVNzZw8VQ
bJYZmwyXH/OXGMClxt25/ReYsYPvT02dEB3AW897lUwsMWNnbSPH+TYN4Cr7
Aw9ls7Bg3+M1SclrB/CF32/Ez/KxYGJK2oq7qP34/fM4PWgPCybK7zO47lM/
7qHE9mLenAX7tW/T0SypfvzR2IuG6moWTKrD9PQ+rA/3baFWLNWxYOpM9pdy
DhIuOlAg1cSCnUw5tl5XsQ/3jupI9e5gwYTFXprck+jDPQx3PFEeYcFsPSrO
r+Hpw++R045HMbNiIyxigavtvbh1YF2uvRIrJiW98t74fi9+Unp9AvdrVkzP
427x58AePCRJmXLSfA2WYcZqZc7ThVcYfVi+c3AtRvlL3XvqcztOqXIIlmFl
w2gTAS6PklrxtBteWGUXGzbOyen2taAZF9UFlZvf12F67KbNDRubcI3Viz7R
7uzYePvEA+WvDfi1ZpyeeYYDqzx0w9Retx5X8/LOMBfjxHqZJA++2F6HP3eg
ZXMPc2JWzBcDHmyuxfs9Pw1F53Fh4o1aaXFi1fhvy6xrBf7cWJWOTSPzlUp8
2n7DuipzHqybfJr70fsKPPnEr2UrWV5MmjxLj91Zjg9ZyyuzzvJiqrXeB8gV
pbjwl/YX/lXrsUcV2ezct0pwnyuO76t0+bB3LgsBfprF+PyyUIhuFh+mGlns
4bC5CJfKjnxVsZMfm39lzHFkbSG+36L4NH8APzamveXvz00FOOWtgGDlLD/2
osDgpeSufFyKIhCoZ7oB20otGFU2pOCn1o5vrc/bgMV8P36xchuOT3cMFpZL
kzA3Ka0feS9ycYe3IaSApyTsUvqFdaoqOXgl884pnVASxpG5vGiyLweXvk6u
4H5BwizI3x1dZHLwQYVhr2cRJOyQzb6ZbLEc3KQUm458R8LCtOYkz3Dk4Efp
jMq4LyQsL0uupaY9G990/IJfUSkJe6Lf6tLvkY07JU2b+5WTsBbs9Hp512y8
doP/keO/SBgYFgk9dMrGg7rSZ4iKisntwwK3W2fjTE48Fg1NJGzv4sAvZ4Ns
fOwdBfoHSJixyhpLm53ZuDbruS0fqSQsdobMXi2ajX+0npizHCZhK0EyQkpC
2fhlReHk0TESdixHz2MNbzbeWOYkQqORsPj9M7o/5sm4ghznQhqDhHF1DWlL
0Mn4kxcxDXdmSdhh7NvXyHEyfsKsKnBhgYSZJ3Yke/SR8bhCCyvyHxLmP3pU
d6aDjK/Z/UfdfZmENRk/07NtJuPmT55tVVshYTaPtTMHasl4HkNicXWVhJmI
EWX6Fxn/HxV/iGY=
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"r\"", TraditionalForm], 
       FormBox["\"Vlocal\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {{0, 5}, {-1.3530701128505962`, 0.}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"our model\"", "\"from reference\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.614516118948044*^9, 3.6145161936630206`*^9, 3.614520283717058*^9, 
   3.6145203150052223`*^9, 3.6145204351043973`*^9, 3.6145204842332106`*^9, 
   3.614520516814364*^9, 3.6145213697951*^9, 3.614521966098898*^9, {
   3.6145222625951233`*^9, 3.6145222763218555`*^9}, 3.614578759900835*^9, 
   3.6145806985011597`*^9, 3.6145846011214886`*^9, 3.614685532221619*^9, 
   3.6169985204784036`*^9, 3.616998620088098*^9, 3.618140384340988*^9, 
   3.618142614091369*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"f2", ",", "f2z", ",", "f2x", ",", "f2nn", ",", "f2znn"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"norm0", " ", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"fs", "[", "x", "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f2z", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"fs", "[", "x", "]"}], " ", "/", " ", "norm0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en2x", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en2", "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.614514075378512*^9, 3.6145140884768095`*^9}, 
   3.6145154245741425`*^9, {3.614515646783679*^9, 3.614515684402368*^9}, {
   3.614515827581457*^9, 3.6145158321727324`*^9}, {3.6145198672777915`*^9, 
   3.6145198853586197`*^9}, {3.6145214711840096`*^9, 3.614521489448959*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "en2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "0"}], ",", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"en2", "-", "en2x"}], "]"}], ">", 
    SuperscriptBox["10", 
     RowBox[{"-", "6"}]]}], ",", 
   RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"en2x", "=", "en2"}], ";", "\[IndentingNewLine]", 
    RowBox[{"prod", " ", "=", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"interAKB", "[", "r", "]"}], 
        RowBox[{"f2z", "[", "r", "]"}], "r"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"sol2", "=", 
     RowBox[{"ParametricNDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], 
            RowBox[{
             RowBox[{"y2", "''"}], "[", "x", "]"}]}], "+", 
           RowBox[{
            RowBox[{"intertVlocal", "[", "x", "]"}], " ", 
            RowBox[{"y2", "[", "x", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"interAKB", "[", "x", "]"}], "prod"}]}], "\[Equal]", 
          RowBox[{"En", "  ", 
           RowBox[{"y2", "[", "x", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y2", "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{"f2z", "[", "0.01", "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y2", "'"}], "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"f2z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y2", 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.01", ",", "10"}], "}"}], ",", 
       RowBox[{"{", "En", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"root2", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"y2", "[", "En", "]"}], "[", "9.9", "]"}], "/.", "sol2"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"En", ",", 
         RowBox[{"-", "0.398"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"en2", "=", 
     RowBox[{"En", "/.", "root2"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"f2nn", "=", 
     RowBox[{
      RowBox[{"y2", "[", "en2", "]"}], "/.", "sol2"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"norm2", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f2nn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2", "[", "x_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"f2nn", "[", "x", "]"}], " ", "/", " ", "norm2"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2x", "[", "x_", "]"}], "=", 
     RowBox[{"f2z", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2znn", "[", "x_", "]"}], "=", 
     RowBox[{
      RowBox[{"0.7", 
       RowBox[{"f2", "[", "x", "]"}]}], "+", 
      RowBox[{"0.3", 
       RowBox[{"f2x", "[", "x", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"norm2", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f2znn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2z", "[", "x_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"f2znn", "[", "x", "]"}], " ", "/", " ", "norm2"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.6145196555246506`*^9, 3.614519658066455*^9}, {
   3.614519835698382*^9, 3.6145198358244996`*^9}, {3.6145198903041267`*^9, 
   3.6145200060732117`*^9}, {3.614520039641012*^9, 3.6145200635659533`*^9}, {
   3.6145201597431583`*^9, 3.614520179639246*^9}, 3.614520297312682*^9, 
   3.614580735161126*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`en2, StandardForm],
  ImageSizeCache->{21., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.614519659301309*^9, 3.6145200740173955`*^9, 3.6145202843114605`*^9, 
   3.6145203155536337`*^9, 3.614520435649765*^9, 3.614520484953721*^9, 
   3.6145205173757095`*^9, 3.614521370386521*^9, 3.614521507351632*^9, 
   3.6145219667173567`*^9, 3.6145222818097467`*^9, 3.614578762340549*^9, 
   3.6145807356344604`*^9, 3.6145846032620068`*^9, 3.6146855325966415`*^9, {
   3.6169985561777267`*^9, 3.616998561456475*^9}, 3.6169987246433244`*^9, 
   3.6181403848878703`*^9, 3.6181426146538763`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", "ktf", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"minktf", "=", "0.535"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxktf", "=", "0.545"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dktf", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ektf", "=", 
   RowBox[{"Table", "[", 
    RowBox[{",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "minktf", ",", "maxktf", ",", "dktf"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxj", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", "Ektf", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6145235339129524`*^9, 3.6145236110646343`*^9}, {
   3.6145238586181774`*^9, 3.6145238602843585`*^9}, 3.6145239833045635`*^9, {
   3.6145243026970425`*^9, 3.6145243054259768`*^9}, {3.614580830403653*^9, 
   3.6145808315584717`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "ktf", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "en2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ktf", "=", 
     RowBox[{"minktf", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"j", "-", "1"}], ")"}], "dktf"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"tVlocal", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", ",", 
         RowBox[{"Vlocal", "[", 
          RowBox[{"r", ",", "Ra", ",", "ktf", ",", "qz"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "0", ",", "20", ",", "0.1"}], "}"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", 
    RowBox[{"intertVlocal", "=", 
     RowBox[{"Interpolation", "[", "tVlocal", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Clear", "[", 
     RowBox[{"f2", ",", "f2z", ",", "f2x", ",", "f2nn", ",", "f2znn"}], "]"}],
     ";", "\[IndentingNewLine]", 
    RowBox[{"norm0", " ", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"fs", "[", "x", "]"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2z", "[", "x_", "]"}], "=", 
     RowBox[{
      RowBox[{"fs", "[", "x", "]"}], " ", "/", " ", "norm0"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"en2x", "=", 
     RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"en2", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "0"}], ",", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"en2", "-", "en2x"}], "]"}], ">", 
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]]}], ",", 
      RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"en2x", "=", "en2"}], ";", "\[IndentingNewLine]", 
       RowBox[{"prod", " ", "=", 
        RowBox[{"NIntegrate", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"interAKB", "[", "r", "]"}], 
           RowBox[{"f2z", "[", "r", "]"}], "r"}], ",", 
          RowBox[{"{", 
           RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"sol2", "=", 
        RowBox[{"ParametricNDSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                FractionBox["1", "2"]}], 
               RowBox[{
                RowBox[{"y2", "''"}], "[", "x", "]"}]}], "+", 
              RowBox[{
               RowBox[{"intertVlocal", "[", "x", "]"}], " ", 
               RowBox[{"y2", "[", "x", "]"}]}], "+", 
              RowBox[{"x", " ", 
               RowBox[{"interAKB", "[", "x", "]"}], "prod"}]}], "\[Equal]", 
             RowBox[{"En", "  ", 
              RowBox[{"y2", "[", "x", "]"}]}]}], ",", 
            RowBox[{
             RowBox[{"y2", "[", "0.01", "]"}], "\[Equal]", 
             RowBox[{"f2z", "[", "0.01", "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"y2", "'"}], "[", "0.01", "]"}], "\[Equal]", 
             RowBox[{
              RowBox[{"f2z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y2", 
          ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "0.01", ",", "10"}], "}"}], ",", 
          RowBox[{"{", "En", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"root2", "=", 
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"y2", "[", "En", "]"}], "[", "9.9", "]"}], "/.", "sol2"}],
           ",", 
          RowBox[{"{", 
           RowBox[{"En", ",", 
            RowBox[{"-", "0.398"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"en2", "=", 
        RowBox[{"En", "/.", "root2"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"f2nn", "=", 
        RowBox[{
         RowBox[{"y2", "[", "en2", "]"}], "/.", "sol2"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"norm2", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"f2nn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
           RowBox[{"{", 
            RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"f2", "[", "x_", "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"f2nn", "[", "x", "]"}], " ", "/", " ", "norm2"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"f2x", "[", "x_", "]"}], "=", 
        RowBox[{"f2z", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"f2znn", "[", "x_", "]"}], "=", 
        RowBox[{
         RowBox[{"0.7", 
          RowBox[{"f2", "[", "x", "]"}]}], "+", 
         RowBox[{"0.3", 
          RowBox[{"f2x", "[", "x", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"norm2", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"f2znn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
           RowBox[{"{", 
            RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"f2z", "[", "x_", "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"f2znn", "[", "x", "]"}], " ", "/", " ", "norm2"}]}], 
       ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Ektf", "[", 
      RowBox[{"[", "j", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"ktf", ",", 
       RowBox[{"en1", "-", "en2"}]}], "}"}]}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "maxj"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6145234362737226`*^9, 3.6145234871837993`*^9}, {
  3.6145236190152907`*^9, 3.6145237372000685`*^9}, {3.614523828201611*^9, 
  3.6145238527420125`*^9}, {3.6145238846626234`*^9, 3.6145238891377983`*^9}, {
  3.614524315094832*^9, 3.6145243183271246`*^9}, {3.6145808659858847`*^9, 
  3.614580868861923*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`ktf, StandardForm],
  ImageSizeCache->{28., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.6145234370422497`*^9, {3.614523468019213*^9, 3.6145234925215836`*^9}, 
   3.6145236945928583`*^9, {3.614523727624279*^9, 3.6145237402242146`*^9}, 
   3.614523864595416*^9, 3.6145239363933215`*^9, 3.614523993093514*^9, {
   3.6145243238169975`*^9, 3.614524335026947*^9}, 3.614578825270156*^9, 
   3.614580881556923*^9, 3.614584664143173*^9, 3.614685545550844*^9, 
   3.6169987486163654`*^9, 3.618140402733285*^9, 3.618142634174309*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`en2, StandardForm],
  ImageSizeCache->{21., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.6145234370422497`*^9, {3.614523468019213*^9, 3.6145234925215836`*^9}, 
   3.6145236945928583`*^9, {3.614523727624279*^9, 3.6145237402242146`*^9}, 
   3.614523864595416*^9, 3.6145239363933215`*^9, 3.614523993093514*^9, {
   3.6145243238169975`*^9, 3.614524335026947*^9}, 3.614578825270156*^9, 
   3.614580881556923*^9, 3.614584664143173*^9, 3.614685545550844*^9, 
   3.6169987486163654`*^9, 3.618140402733285*^9, 3.618142634174309*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", "Ektf", "]"}]], "Input",
 CellChangeTimes->{{3.614523818689867*^9, 3.614523820645233*^9}, {
  3.614523958350874*^9, 3.6145239680287323`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], 
     LineBox[{{0.535, 0.004352108941974797}, {0.536, 
      0.0031794499490866435`}, {0.537, 0.002009559128323346}, {0.538, 
      0.0008418701252682625}, {0.539, -0.0003220854034589049}, {
      0.54, -0.001483835936696376}, {0.541, -0.0026433802346256807`}, {
      0.542, -0.003799539575898625}, {0.543, -0.004952813552737967}, {
      0.544, -0.0061040773275288784`}, {0.545, -0.00725186501028896}}]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.53484375, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0.535, 0.545}, {-0.00725186501028896, 0.004352108941974797}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6145238210455313`*^9, 3.6145239139984436`*^9, 
  3.6145239859724545`*^9, 3.614524259737565*^9, 3.6145246033021803`*^9, 
  3.614579758647748*^9, 3.6145811447915835`*^9, 3.614585202652317*^9, 
  3.6146858009182353`*^9, 3.616999003608404*^9, 3.618140717304966*^9, 
  3.6181429677590494`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"interEktf", "=", 
   RowBox[{"Interpolation", "[", "Ektf", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"solktf", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"interEktf", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0.539"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ktf", "=", 
   RowBox[{"x", "/.", "solktf"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.614580320067818*^9, 3.6145803496768045`*^9}, {
  3.614580917427371*^9, 3.61458093403113*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "0.538723038107536`"}], "}"}]], "Output",
 CellChangeTimes->{{3.614580334578106*^9, 3.614580350339281*^9}, 
   3.614581144846603*^9, 3.6145852026703286`*^9, 3.6146858009182353`*^9, 
   3.616999033691734*^9, 3.61814071732059*^9, 3.6181429677746754`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tVlocal", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", 
       RowBox[{"Vlocal", "[", 
        RowBox[{"r", ",", "Ra", ",", "ktf", ",", "qz"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "20", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intertVlocal", "=", 
   RowBox[{"Interpolation", "[", "tVlocal", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6145821131051273`*^9, 3.614582123454465*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"f2", ",", "f2z", ",", "f2x", ",", "f2nn", ",", "f2znn"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"norm0", " ", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"fs", "[", "x", "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f2z", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"fs", "[", "x", "]"}], " ", "/", " ", "norm0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en2x", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"en2", "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.614514075378512*^9, 3.6145140884768095`*^9}, 
   3.6145154245741425`*^9, {3.614515646783679*^9, 3.614515684402368*^9}, {
   3.614515827581457*^9, 3.6145158321727324`*^9}, {3.6145198672777915`*^9, 
   3.6145198853586197`*^9}, {3.6145214711840096`*^9, 3.614521489448959*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "en2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "0"}], ",", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"en2", "-", "en2x"}], "]"}], ">", 
    SuperscriptBox["10", 
     RowBox[{"-", "6"}]]}], ",", 
   RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"en2x", "=", "en2"}], ";", "\[IndentingNewLine]", 
    RowBox[{"prod", " ", "=", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"interAKB", "[", "r", "]"}], 
        RowBox[{"f2z", "[", "r", "]"}], "r"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"sol2", "=", 
     RowBox[{"ParametricNDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], 
            RowBox[{
             RowBox[{"y2", "''"}], "[", "x", "]"}]}], "+", 
           RowBox[{
            RowBox[{"intertVlocal", "[", "x", "]"}], " ", 
            RowBox[{"y2", "[", "x", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"interAKB", "[", "x", "]"}], "prod"}]}], "\[Equal]", 
          RowBox[{"En", "  ", 
           RowBox[{"y2", "[", "x", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y2", "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{"f2z", "[", "0.01", "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y2", "'"}], "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"f2z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y2", 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.01", ",", "10"}], "}"}], ",", 
       RowBox[{"{", "En", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"root2", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"y2", "[", "En", "]"}], "[", "9.9", "]"}], "/.", "sol2"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"En", ",", 
         RowBox[{"-", "0.398"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"en2", "=", 
     RowBox[{"En", "/.", "root2"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"f2nn", "=", 
     RowBox[{
      RowBox[{"y2", "[", "en2", "]"}], "/.", "sol2"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"norm2", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f2nn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2", "[", "x_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"f2nn", "[", "x", "]"}], " ", "/", " ", "norm2"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2x", "[", "x_", "]"}], "=", 
     RowBox[{"f2z", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2znn", "[", "x_", "]"}], "=", 
     RowBox[{
      RowBox[{"0.7", 
       RowBox[{"f2", "[", "x", "]"}]}], "+", 
      RowBox[{"0.3", 
       RowBox[{"f2x", "[", "x", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"norm2", "=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f2znn", "[", "r", "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f2z", "[", "x_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"f2znn", "[", "x", "]"}], " ", "/", " ", "norm2"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.6145196555246506`*^9, 3.614519658066455*^9}, {
   3.614519835698382*^9, 3.6145198358244996`*^9}, {3.6145198903041267`*^9, 
   3.6145200060732117`*^9}, {3.614520039641012*^9, 3.6145200635659533`*^9}, {
   3.6145201597431583`*^9, 3.614520179639246*^9}, 3.614520297312682*^9, 
   3.614580735161126*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`en2, StandardForm],
  ImageSizeCache->{21., {0., 8.}}]], "Output",
 CellChangeTimes->{3.616999292958805*^9, 3.6181407265870423`*^9, 
  3.618142977369017*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"qz", "\[IndentingNewLine]", "Ra", "\[IndentingNewLine]", \
"ktf"}], "Input",
 CellChangeTimes->{{3.6146859185134745`*^9, 3.614685932156003*^9}, {
  3.614760470372757*^9, 3.6147604893441873`*^9}, {3.614761663513816*^9, 
  3.6147616727083344`*^9}}],

Cell[BoxData["2.17`"], "Output",
 CellChangeTimes->{3.61476228606222*^9, 3.6147803306828594`*^9, 
  3.6147968746912003`*^9, 3.6148392823962517`*^9, 3.614839396693291*^9, 
  3.6148572852833233`*^9, 3.616999388171397*^9, 3.618140744869585*^9, 
  3.6181429961359234`*^9}],

Cell[BoxData["0.93`"], "Output",
 CellChangeTimes->{3.61476228606222*^9, 3.6147803306828594`*^9, 
  3.6147968746912003`*^9, 3.6148392823962517`*^9, 3.614839396693291*^9, 
  3.6148572852833233`*^9, 3.616999388171397*^9, 3.618140744869585*^9, 
  3.6181429961359234`*^9}],

Cell[BoxData["0.538723038107536`"], "Output",
 CellChangeTimes->{3.61476228606222*^9, 3.6147803306828594`*^9, 
  3.6147968746912003`*^9, 3.6148392823962517`*^9, 3.614839396693291*^9, 
  3.6148572852833233`*^9, 3.616999388171397*^9, 3.618140744869585*^9, 
  3.6181429961359234`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"B", ",", "Rb"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"model", "[", 
   RowBox[{"k_", ",", "B_", ",", "Rb_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", "4"], " ", "B", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", 
     SuperscriptBox["k", "2"], " ", 
     SuperscriptBox["Rb", "2"]}]], " ", 
   SqrtBox["\[Pi]"], " ", 
   SuperscriptBox["Rb", "3"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Vnl", "[", 
   RowBox[{"r_", ",", "B_", ",", "Rb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"model", "[", 
       RowBox[{"k", ",", "B", ",", "Rb"}], "]"}], 
      RowBox[{"k", "^", "2"}], " ", 
      RowBox[{"SphericalBesselJ", "[", 
       RowBox[{"0", ",", 
        RowBox[{"k", " ", "r"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "7"}], "}"}]}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Sqrt", "[", "Pi", "]"}], "Pi"}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.614763151942749*^9, 3.614763203026969*^9}, 
   3.6147655317549815`*^9, {3.6148271240438185`*^9, 3.614827149780713*^9}, {
   3.6148271811588993`*^9, 3.6148271855968304`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "r", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "B", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "Rb", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tVnl", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", ",", "B", ",", "Rb"}], "}"}], ",", 
       RowBox[{"Vnl", "[", 
        RowBox[{"r", ",", "B", ",", "Rb"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "10", ",", "0.2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "minB", ",", "maxB", ",", "dB"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb", ",", "dRb"}], "}"}]}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6148271537498875`*^9, 3.6148272554475217`*^9}, {
  3.614827287309786*^9, 3.6148273058898096`*^9}, {3.614828657508933*^9, 
  3.614828657696435*^9}, {3.61485710048484*^9, 3.614857100646934*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`r, StandardForm],
  ImageSizeCache->{7., {0., 6.}}]], "Output",
 CellChangeTimes->{3.614827309780832*^9, 3.6148286579776416`*^9, 
  3.614839282488325*^9, 3.614839406469225*^9, 3.6148572853143435`*^9, 
  3.6169994049583163`*^9, 3.6181407449008355`*^9, 3.6181429961671724`*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`B, StandardForm],
  ImageSizeCache->{7., {0., 8.}}]], "Output",
 CellChangeTimes->{3.614827309780832*^9, 3.6148286579776416`*^9, 
  3.614839282488325*^9, 3.614839406469225*^9, 3.6148572853143435`*^9, 
  3.6169994049583163`*^9, 3.6181407449008355`*^9, 3.6181429961671724`*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`Rb, StandardForm],
  ImageSizeCache->{14., {0., 8.}}]], "Output",
 CellChangeTimes->{3.614827309780832*^9, 3.6148286579776416`*^9, 
  3.614839282488325*^9, 3.614839406469225*^9, 3.6148572853143435`*^9, 
  3.6169994049583163`*^9, 3.6181407449008355`*^9, 3.6181429961671724`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"datatVnl", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"tVnl", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"interVnl", "=", 
   RowBox[{"Interpolation", "[", "datatVnl", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6148275786487007`*^9, 3.6148275981501203`*^9}, 
   3.6148346014670496`*^9, {3.61483922039529*^9, 3.614839220571415*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"prod0", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"interAKB", "[", "r", "]"}], 
     RowBox[{"fs", "[", "r", "]"}], "r"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6147629998598995`*^9, 3.6147630308388653`*^9}}],

Cell[BoxData["0.3282382092222119`"], "Output",
 CellChangeTimes->{3.6147630326881747`*^9, 3.614763955529516*^9, 
  3.614765538332651*^9, 3.6147803321498995`*^9, 3.6147968760037317`*^9, 
  3.614834623684786*^9, 3.61484406450533*^9, 3.614858737502965*^9, 
  3.6170010441998453`*^9, 3.618145313064271*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"prod1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Rb", ",", "B", ",", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"interVnl", "[", 
           RowBox[{"r", ",", "B", ",", "Rb"}], "]"}], 
          RowBox[{"fs", "[", "r", "]"}], "r"}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb", ",", "dRb"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "minB", ",", "maxB", ",", "dB"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"maxi", "=", 
  RowBox[{
   RowBox[{"Dimensions", "[", "prod1", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"maxj", "=", 
  RowBox[{
   RowBox[{"Dimensions", "[", "prod1", "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.614763296539254*^9, 3.614763301161549*^9}, {
   3.614763339348625*^9, 3.614763396032798*^9}, {3.614763455592045*^9, 
   3.614763481234226*^9}, {3.6147636736886654`*^9, 3.61476368609446*^9}, {
   3.6147637239953513`*^9, 3.614763731010306*^9}, {3.6147649523261504`*^9, 
   3.6147649699596543`*^9}, {3.614765185939788*^9, 3.614765209720649*^9}, {
   3.6147799412887783`*^9, 3.614779954614235*^9}, {3.6148263182631955`*^9, 
   3.614826333936695*^9}, 3.6148276834695325`*^9, {3.6148277181598296`*^9, 
   3.61482772728563*^9}, {3.614827866814269*^9, 3.614827868017391*^9}, 
   3.6148346268920593`*^9, {3.6148348879511585`*^9, 3.61483491145485*^9}, {
   3.6148472913513193`*^9, 3.6148473424315367`*^9}}],

Cell[BoxData["51"], "Output",
 CellChangeTimes->{3.6148594256738997`*^9, 3.6170017190099287`*^9, 
  3.618145991839754*^9}],

Cell[BoxData["19"], "Output",
 CellChangeTimes->{3.6148594256738997`*^9, 3.6170017190099287`*^9, 
  3.6181459918427544`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"difp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"prod1", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"prod1", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"prod1", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "[", 
           RowBox[{"[", "j", "]"}], "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "-", "prod0"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "maxi"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "maxj"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6147636078219805`*^9, 3.614763633451152*^9}, {
  3.614763689627984*^9, 3.614763701339287*^9}, {3.614763778654106*^9, 
  3.6147639283352337`*^9}, {3.614763970349004*^9, 3.614763989977923*^9}, {
  3.614767481292736*^9, 3.614767493308255*^9}, {3.6148347086790485`*^9, 
  3.6148347128630133`*^9}, {3.614860595695774*^9, 3.6148606031660705`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"difpcontour", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"difp", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListContourPlot", "[", 
  RowBox[{"difpcontour", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Rb\>\"", ",", "\"\<B\>\""}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6147641008885593`*^9, 3.614764113912794*^9}, {
  3.6147675138658323`*^9, 3.614767535035842*^9}, {3.614847356135272*^9, 
  3.6148473895309315`*^9}, {3.618138853446719*^9, 3.6181388756826906`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxtnHk8VN8f/yNtFGYfYzALY6mkQoTOEUUlSymUShulFClkS5aKilKyZSkl
kbRIRRstCu0LSQuK7MvIUuQ3fX8/93yc+fnH4/l4v++ZO/cs99y5r9ebu2Hn
ss2SY8aM6Rw/Zsy//0mJ//6awJj//VHhaKZjzMSYhTEbY2WMORhzMeZhzMdY
FWM1jAUYq2OsgbEmxlqw1e6WckTLCJMxpmJMx5iJMQtjNsbKGHMw5mLMw5iP
sSrGahgLMFbHWANjTYy14DzpygxPk2bi+oxmKsZ0jJkYszBmY6yMMQdjLsY8
jPkYq2KshrEAY3WMNTDWxFgLHiv5peEcg67PaKZiTMeYiTELYzbGyhhzMOZi
zMOYj7EqxmoYCzBWx1gDY02MtWCdP/WyRe0Iy2NMxpiKMR1jJsYsjNkYK2PM
wZiLMQ9jPsaqGKthLMBYHWMNjDUx1oK6s//9tRDXazSTMaZiTMeYiTELYzbG
yhhzMOZizMOYj7EqxmoYCzBWx1gDY02MteCBlv8tWMT1Gs1kjKkY0zFmYszC
mI2xMsYcjLkY8zDmY6yKsRrGAozVMdbAWBNjLVglWr2kK9H1Gs1kjKkY0zFm
YszCmI2xMsYcjLkY8zDmY6yKsRrGAozVMdbAWBNjLajpHCNa0VqJ6zWayRhT
MaZjzMSYhTEbY2WMORhzMeZhzMdYFWM1jAUYq2OsgbEmxlow4N9y5o+u12gm
Y0zFmI4xE2MWxmyMlTHmYMzFmIcxH2NVjNUwFmCsjrEGxpoYa8HnFf/+0PUa
zWSMqRjTMWZizMKYjbEyxhyMuRjzMOZjrIqxGsYCjNUx1sBYE2MtqBLxb0Fr
I67XaCZjTMWYjjETYxbGbIyVMeZgzMWYhzEfY1WM1TAWYKyOsQbGmtDL5N8G
FV2f0UzGmIoxHWMmxiyM2RgrY8zBmIsxD2M+xqoYq2EswFgdYw348N92tARd
j9FMxpiKMR1jJsYsjNkYK2PMwZiLMQ9jPsaqGKthLMBYHWMNSPu3/FDbiesx
mskYUzGmY8zEmIUxG2NljDkYczHmYczHWBVjNYwFGKtDN9d/f+j7j2YyxlSM
6RgzMWZhzMZYGWMOxlyMeRjzMVbFWA1jAbyt/G+BQN93NJMxpmJMx5iJMQtj
NsbKGHMw5mLMw5iPsSrGalDm3+O4dAfx/UYzGWMqxnSMmRizMGZjrIwxB2Mu
xjyM+RirYqwG/7e9ckbfbzSTMaZiTMeYiTELYzbGyhhzMOZizMOYj7Eq/N90
vIy+z2gmY0zFmI4xE2MWxmyMlTHmYMzFmIcxH2NV+H//dxLfZzSTMaZiTMeY
iTELYzbGyhhzMOZizMN45PkAnf9oJmNMxZiOMRNjFsZsjJUx5mDMxZgHl/17
mrVD5zuayRhTMaZjzMSYhTEbY2WMORhzMR55vkDnO5rJGFMxpmPMxJiFMRtj
ZYw5GHPhuX+Puxno/EYzGWMqxnSMmRizMGZjrIwxB+OR5w90fqOZjDEVYzrG
TIxZGLMxVsaYgzEX9v7bXv1C5zeayRhTMaZjzMSYhTEbY2WMR55HuojzGc1k
jKkY0zFmYszCmI2xMsYcaPlvubRA5zOayRhTMaZjzMSYhTEb45HnEfT5o5mM
MRVjOsZMjFkYszEeeR+GPn80kzGmYkzHmIkxC+OR5w/0eaOZjDEVYzrGTIxZ
GI+830KfN5rJGFMxpmPMxJiF8cjzRDfxeaOZjDEVYzrGTIxH3k+h9kczGWMq
xnSMmRiPPB+g9kczGWMqxnSMmRiPvD9C7Y9mMsZUjOkYM+H/bme3UHujmYwx
FWM6xiPvb1B7o5mMMRVjOsZM+L/LKy0k2hvNZIypGNMxHnlfgtobzWSMqRiP
7LfR8aOZjDEVYzr83/IZgY4fzWSMqRiP7I/R8aOZjDEVYzr83+WoRMePZjLG
I/vZHiJ/NJMxHtk/ovzRTMZ4ZP+G8kczGeOR/RPKH80j+xkUH80j+wkUH81k
+GTXy/ueRUgvMKInmPMuc7WJJRlSNRfrKEg2A/N9OrF1u0jE+3TjifC1UgoJ
Kh2rGHzq1wysAiTeMY7KE++TB200XoX/lifen95jek5qXycPl9hIeHEfofen
I7/3VS36LCe8rAk/51Cn+Q+j30cz3OZlHdko/nvg1uYP25581YArem7vOZTS
Bny/s47d8Ea/j7mz5EMfKGjAgl/b7N2ei/9epNV7N3mDszq05lLD00zEf09h
j/sipX9BAJ8ddDReekP89wfjbbP8ygfUoE9p2OTXd9vBVZ3vt960o+d3vv+C
+MLlanCoo3PbfV3x5983b07vPJOvCvfJRymuiO8Au450TqJboOfJYc2dg3y2
KuS7a/kE3BV/PpN8MOltSyQfxhhsCzAlnifQ80/t8OXsC0M8uO/HpbeFmp0g
a/OEFTp/0POGQ2TKFBlfHrzt9+bmMV/x/f2gfszYF7+4cLykcWFfUCdwEk7M
v96K9tdPG548urSXC2fMPeEnJ9o/Or1zs06TQvvbLo3GXW6SXGg067lkxnPx
/WXFOHplcQwH3lv1Q8CmdYGaQw2T5Y3Rfq/HcEg1jMuBplnuSjuniu+/yI6h
4S07VOBEWenJt1Z1gVTb0K1jySrEfsXnMVf1xVllKHdLOswjVnz/Mmdz3yHr
L0rwWn/yt9KULuC4esOhu+VKxH7gY17gMjJXCQrsQ7ZO/NIFBN+NPp7KQvuD
DZ1hMo/c2TC6q6NxqtTI+o3u5+TFCjXkIkXodG9mewy7G1zVjf3Sn6RI3D8n
PHwNr5EUYYRzkpmhUzc4ENA7K/8cup8en6hU6rSDBRsd/+jVhorfDzOH57x4
9EoBppwaG51+shs4qr2V17ynQNyflEpdra4ZKMDHjbbJni+6QcPlI+4hLeh+
pRXBSfh+ngn70iU2hE0QguaMlgIaD91/Zhxt0eUyRffLGN/py0ni9xPb6hMZ
OjEMqO+vsE4bCIHbIdPVxu4MYv1PaDyi90WaAR9WH7zJ8BEC39efIyuL0P1g
97K59X1RdGh08s2BHZeEQOnhTfckKlrvee9bVa3l6PCl5y8fw+vi6/l+3/Uv
rsfToNrnOP6FWiHIva79cGUA7f/Njx4wEBnXOsSnwU3X9e7Z0ntA2l2XAtkm
tF5XfHp4fmw+Fb47R5t4cHEPyPDuYm1xRutzacoWxVQLKlwqXHclz0N8PZ7S
xbHO+kKB0vp7z6kF94CQGqqfZiWFWH95fKuxw34UaF544+zEqz3guhtHlrqa
Qqy/J68vuRRCpxDr5fumKFrwdaTnMmEemTmVR4PKLoxSya/iejVTZ68JCoMM
gi3SV34e/4EFzUpmvGi/K65Xs/5udL0nT4lgjZPHzLvMObCOPNRmdUFcrzZV
P2zGz6tcmDG5ih39Tly/pl21h/VVGeXP9N8y7sNhFJ/FXt1Z0a8G6392/zlb
L67Pun919rkxi9H3NXCBTwrfaEDVw9tpz980gY1JCnODk6gw8YDPQE5SE3im
/0lj6QCDOL7KJsxztai/Frg/SxpHQXqbkfiu+CdyiYooX+brpLwP1QpQcZrx
q9b8JrC69WDznBVKRPyCYKk1NYkNYVriiXgW0t+MxE13HGuzcxKtL5fydo7/
1gS44/7UtfCRvq29eusTi8lcqGLwfNz1LnH9W1GwzKmGbTzoq71wboUy0ueM
xA/xcjdHlPPhDNaQU/e5JjBD9llmVA3Svzk8sdZTnaoG+Zd3fmMMievjOqfE
vlvfrA5tvJbnmV4W17sVzaKcdk2nQMOe1MwV9s0gJTL18k9PCtyyYowwRbMZ
GDabvP4eINqPFk/g2vQ2ARAe43X8jgJx/F7aXzfLhXTYGH3WXNNJXB9n0P9z
tlYr0sf1Vr8dlolVhOHtzoGLNJrB0ulFBbrhSA934+698rY5ytD6Sc5AylJx
vZzhq3fljTs40D6oyuPUXnH9XKJp2dWqYtH9KFn6/km1ZnD241+tmMVIL9d/
7X78Myofnl+nJdWxUFxPt1L1RlChmyqcNUe70Msd6aGMV7i2k5WawXm9MZWq
m9UheeHGlZVS4no52oT0RaenqMONua7TTswX19vt9oubcdRFAz5Z4zbfyUVc
L1U7dXrTYoEm/Djv6rXlfHH93QuP8pLrbWToM5/5OP5VMzjnouG5ZAvS430u
EQTuFa13ZSZxeclHmsFbk+TeWSQmvDOur8RoXTPQZvsFlU1TJPJbGKF6YBIT
GmS9WfQgVlyvN7j9c7tUPAteSLmWF1Airt+TKTHIKlNVIliRcXL9sWsqcEqM
wOjBrmYwEKJu4eaE9Hq0At8pUzlcaEk7UDw2XVzPd9pFrXmKGw/6P1hp8qBY
XN+nKvP2SWcuH+7LPp/a8VVc7zfbRTukwEgAhdIL3oELSK92iEo/eTdAXL9X
JF3jnBiqDn3NUhavLEb9NRI3uxFpGPhMAyZXMOfAj6i/RvRZS3xcTYd8NeEP
ueL0T5JIX3R1+3y33CvN4GpV+txHM2hE/47furQ83wzpASO7WsYfLkR6QDn/
qPnrZzIIjpXUDJ6TpQDLnEy7yj40g6po9dOHTdnwbqDd6dPZzWBrvuSM3BUq
RD7zcOntKSpsuOiN83TtFnG94GmK66/6OGV4XCvlSu0UpFcaiZOsQ5lrDnDg
K989D+dNQ/qlkbh9rJ3+02KkJ4z7wLGfPYT0hKx192Mm7VaDHiSOWjIZ6ZVG
4msyonN35wmg7mkv270aSL80Ek9vXFP+tRnpvW561vnuv68JL+YPtTWcRPOB
tohuN9OyBZjd1H1cHkgi+kNqdmnsjzMk6B0QbeQ9qwX4Bj4uz5Oiwv3lg3E1
jBbAnnhy5edspB/cOimD1ChJhbttmDFhukgP9nzLi5i2AVF/demZCDcrEPkv
vgYf+7mRDmNJkUa2zuJ6RL2CVXLNj5hQcq1xuX+QuD7x9BH96BY1RYIlNpKn
tB1QItjNsP1we6MKvLRFJgRSW0CTY83OAhcuJJt+47+obwY5uvUvFfuRHrFh
wuZxfqpc2H7TalLaQnH9ooLwzaN+ex60mfy9pWONuJ4x+Nlls983kH7xaj57
bECDGhTUXMgpn9ACZDxPHMw4qA6n37GR7mlH82ck/0daVMkfujpMJbdpAGNx
fSPzcP/+QAsN6FM/J1DLWlyP9n4jr+HqkCbU4T76+1YS6dGUpP9a6txpAa9h
xZw3F5De8X4yh1M+gUTwsOEHGUl7CuT7f0mak9sCssJJfpvGUYi4cdXhPoN0
GsFBPqb1O1sZsDqv92mxdwsQ6v6uDN/Ogo9kdPyPOIniBcullskrEfmF1L4X
mQYsaCgnf18lEen/mP5RCZuNWkBHeOr4xxUqRP7AtUuFn8PZUCFxeGHeFXE9
pYHdhkzqa2V4Sj43ifVYXF95p0/m2floDuR//B7W/0Fcb1nzpGFecT4XThvk
Txsf3gJ+H5Yr2D5WFeadGXhet6wF3GtYbvznNNJTKm4+rdUvun/N1J6fcez/
o7801PVNp6irwS8Opxi6p8T1mE5jl9FnLBXAiXHly+zPo/l6yY7+NnOtuP5y
75tpRxZ7q0NG1KMP/Ovi+s3EMxMkXRM1IOnBlsKK+2g8jOjrTKYsk4njaEJo
eifii4e4npO05E5T9255WDZ1dtm50y1glTaU/72dRsSr33zvc8olw4vLXhcE
q7WCjUUbJ2XRyNDeh75oVlQLCDg9++aCbwwi/9yqKeOLfyD95446PaqGMorP
cV/Li1mpQLBk9wGd3mhFgsv25s1bU6pEcKxEldWjYRXo2X66Q/9BC6g/pbfc
3gLpPa+Yh+TS2Fw4caXOpm0N4npQ34qsokB7PnSkOJ7dOQbpz0bizvJ351/x
FO2nj5UYB8sgPdpI3NT+9bP6I2rQ+fO6+ftoSJ82EldL+GHLuCiAavzxPvHK
SK8mnZ3huKtcXB8qUzNQufixOmwo+qb3Q4D0bCPxdhXZdcG1SP83IEjw2+Kg
CZl325JnfUD9p/g36zVNEen/ZkWdaIrSQfo/nXljN1aL4iuLptJa7JC+tGFu
fPYeWTJMf3JwphqpFcS77oyqPIn0pubF8zUHZlOhsYHz/CBTpB/cExNqMmNc
K3Afjrmf8BXpUc9ZtF8IdKLDn59fv1plg/SFZCmXwjt9LeBUg7r3udmKRP7Y
F4mCMfuY0MoksvTnKqQ/nPyALRn6swXcsqnY9TZWicjfaL/gfJjoeX2q1FBO
3iakT9yw+uwvJdH1qjV/9iBcND5G8kuqO/kTytjQgc2QJHmI62NV1p8+G9Wh
DJ3nF1jZ7xbXyxYLM+QPRnFgepiEdt5/9KDE8f42MdJXkF7W2uS8dUUJ0ssG
jfkzJfo90stefmj73OYn0st+OZB5hPRHAENKVwW8km0Fsbbhwfl2aL5OWTy4
5O0UDTh+/pWHm7WRvnHfjG9PLGtaQPy2sNjTHUjfuO7v4eMXDoj2X3HavHcJ
rcDoo7PWG3MSMX5klxUrfvdBXG7KbNoQRYF+U3OOV8S1AnudWK9iBwoRj5q5
s6A2hUawJfdJmMtVBsETSEp2Xx8pEPxozG7ltVWKBId1lrXUtCgRbPqNe3u1
qH/CjV7cT3JvBVIHkrfUzOJBqytDnUPrWgHZsHHHeHukn/36tfHiNAoPdr9j
MykRSD86+CdznNryVhA9baX1tECkr73ncEK+lc2HS84uytwVieZ37L19kgvN
WkXzX8fgcS7S355+Oc83R6AKWaurwIajaL4fg/c0p84QrZc+R5USW5E+N9Ci
+bO7jhqcdlujvuuYuJ531f04c625Ari1b2qm9kk0/yf75JLM9MT1u4ZzTHOa
zNRhtexcR368uP5XIa+VdHGpBnQ45/WnKhH1/193y1mJRuj32v3zHpyVlm4D
TntfHDDZj/S/9sFmT4wa5CFPcInmG9sKckhHbsWL1vORuNxrnt6hn2S4mHue
vWlyG+ju6LOK3kWGMpum2JVGt4Lb1tsXnA1jEPllfMlz75qp8OieDP7lKNF4
Xz//DEhRIOLhPrVkbpto//aa95F5oBXM2NBw7fttRSIOnz3Y79HBhCETNSZ1
hrSCurLHT/jVSkR8UDG983YXC+466DCWHtAK/LvY2wr+qhDxgh371o3vQfpj
z+K1L5b1KsNXeW/TfNhILzkS331d9sOeIC482fRF242K9JIj8VfOwVNOB/Og
XaufuwwJ6SdH4trj281L9vHh/j2RAmlZpKcciR/JWxP4M0QVxkaVv1whg/SV
I/Emx+fXZUPVYF93+5b6iUhvORJfKGnSohsmgKpbBT0XxyP95dC1Xo7DaXH9
8rmcS7zV4epw2reesWelkD5zJC6xgr1qf4QGFPqWuj2WRL+/v77UOONcqrj+
2ceticZylocTq2/tsF+E9Kw2+1ll/aLv+86hWt5jA9I/T7yqUvx7KRkq7g6v
eS26Xqu1Hq1Jt0V66KTfK7Z/AlRYc+VMjso8pIfNesk5+Ft0/bXad82uM0Z6
6anmRxh3ZtIhbZZLSI8u0st2Tlh3IoTZBjbKtrvWCJCe+s7RkpLTfCZUEP49
YDsd6Wnb5Eqm7hH1vx877DJfFumtrSv7PYJoLPjibqPfR4G4PtvLffOjeQNK
BH/jzFBYO4ENr+VHVVtzxfXbz/5umRLSjvTasXypjZ6NSK/tbJl2y+Ub0mur
esyVtfuI9Nptx99vNH2D9NoFBZ63Z5Yjvfa+TzJyvEcCaLj7RKusBHr/MhK3
GHNhE/muOtzyMq4xdqe4nltWbX6hZIEGXL0oIdNmK+p/3b0nUjL2tYHgxQI3
07MkuP953IaVDuL67vDyvTuXF5IIfhLCGwo7TYE/JJ3axh1sAy25J3pYuylE
fLx+eVR+MI3ghS3ezB8uDIIPpbMzaWYK0CR1i2c+pw1I8neZJgiViHjZisez
F4qe10ZYWmZHsc8EJah1sWubq1YbWPvyUvu+TxyoyHjtZa3TBl7EL6uRfob0
308K17W3bObAddO+pAmuIH30aQVyI39OG+jf2fg87zrSh7vSdPWkHLgwc3L2
+ksZaD2YEDUQyAdtIFtnt8LVJKQfH+85MZBtyYOXgtumxCWg9aF4RsD+dMs2
8Fh63TbpIKQvv1BWU6JryIfLz8QlZUWj9ULuXU+AvH0bWNZ0NtDKCenPLdSu
TlqqpQptjz6ZVRiB1o/dvUceKm9oAx+CGmvWTUf69MZ9EbabFdVgYc2Nw+eD
xPXsh6qd4oMmo3xNPe0vcUMCONv4vdDKR1zvXhojqXa5XR3WBaVZFXW0AePp
iutzfyB9e8Ic36czp5PgjXdWHayYNpD4Yl1WvCmNiOd4V6RuHEOBpl/lmCV/
2sCVitNNoUlk+GazhPFQfBs4a9ZnSfr3PuL/5d/L4+6Je0uFpuDqQMUZ0fG6
2xvvVSA9/OsWnyWlmXR4SDe0aqoc0g/XNtzdePWSqD+UUmxzDiG9/Hf1Cu7A
Xia8WKWX1vILrQe23sxP1bfagNWMC4IsY6Sn79vI7ddayoKtUbXfj34T199H
pFLlpHhseItvG23yQlyPP43JDXjwRIVgFa0ijYEKpMfXePqDEluA9PgzXeWH
tdKRHt9Iyqj5YSQfmvKOSnyQQfrkkfiCs5vfO3uLxlNsi2b1IBoPsrqT6sy9
24CDScbdp31In28Njz345awGI9ilGUs60HhQq+r1fCkaT0dOD96rvIv0+w5f
CnOiFwqgTNLM1P46cb2/S+CPU+o66pB+kN99sxKtLy6T1NKN17YD9wgmY9xs
pPe//q0h0ChTHvYzONLb7JAe/NPO2/oNE9vBT6kBzfWWSP8/4Fuylb4N+QMi
MveaVfTQCAZyqSu7ZlChbVFy0sTp4v6BZyYrdC7cZhAs915HKTRYgeCV2ydL
rzFThBLnvh6WeNcGBueVreiNVYFbteqHL9S3AX/FVWNOJCC/QH3Sw3ryc2XI
OvY+Zt8qpDdPG3N+2Fs0nkhr2ft/uSA/ATXR5mevJQdeDi4t1jFDevSxr951
fJnUDn7/OrBMnYv8Bjc33V27aSoXUmZ/bEvTFvcnOOlMff96Csof+pOwBHTy
4Pn142iObHH/Qnrp+JJLb5B/wezEbgPWDeRf+LG27vLBeDX4dQX/2ca14n6G
Q1q2ar/2CuAJXa6k2VL0ft1H2t3ir0c7ODfvYnHUKxLxPv7dp5Wl82oQtx/S
ESqqyUOD199m0hntYMP3+ZY3OmhEvEg7KHn9CQpUu3Q73ju4HbCO3Dycu5UC
oaGNMF2tHehV28q9Ockg8s/sz9gZvpgGl2mbvErTawehqfu1PuooEPGD756Z
XZBgQPL8oNClFu2Azvc6troE+SN2qHcyym4xodfsN0H2BeJ+ihX+9NbWnSw4
vbK3hH5C3F/B28fwYVcpETzRO3LLijgVgvvrHJSNMznQUqXLa1ilHcwPbi+S
qEF+CvfJ2w4938+FlcYWguwbqH/jLSV/aBm0A63Pjj17jyG/RY1ecPfaNTx4
ecCqBZxG/dv5ALx0theNr8eO/WsMkB/Ddt1x504DPqzWZ0eHRoj7Nx4dOvdk
PxXlz7l2U4fSqQoLCj8sl/ES93dc/FSWdE6030hyenG+rKYdDNsUeE9hk2DU
JD0N/2Bxf0fv7clD4ctJMNNy6xaXY+3g14CH9/kB5O+4azSffWCIDNWOPX1k
1tUOlAJYu5inyfC44LzZQEY7GHwxR0FrH/J/RNz1NTp4AR1PK67bG/mHQbA1
yF11yI4Ou/2GzG2+ivtHvs5nJkadV4Bmj7Plm3e2A5W8d4zIR0owok5ugtqB
dmBxq+ZEgqEKke+xMKzyyAAblj8PsqCmidajmlPp36yRf0Tv6a3eoxnK8G2a
p0Zul7jfZFi1L6pUgPLrfxxnPf3DgXu732a+fi3uRynNnJb99BXyo2S7lRo+
O8+Dx539da94t4N7qRLOez8g/0m0xoZnz/z5kGzyYqnNIOpf++xIlZ9x7eBO
uVdK1DY1It+7adCxzEYVtr06X7a4TtzP4pAd/7NMVQ3OvaWS8qAMzf8CfXcL
zuIOQNLKMi3wRP6Wif0uxadeycM0mVRLtyXIP/GnN5lxcEIH2GTgdUkoj/wu
5fGzs6R2kOH15m8Zm263A9UFJcOLBxhE3L6yas+3LBrBMXPGx+ySoUJGiEy6
gzzyY9wM/fqB/bIdTJaTKT7spUDkM3xznK0XovY+0YPN7tQzYWlcZ9RuiQ7Q
6JCe3KiP/DPrV/JJCcqIBb2/+sbdUYIF8woT6mnIvxHoZqcgLGwHaadrbZ/2
IX9Nc9zTL95OKlBt6YkdyZXtoOOy98K5qchvU5n0vM4zgAOD9N9OUu4X9cev
JdyzBsh/c7tZ/4P6Yi6MvWjcds9A3K+TPDf92Rcmyg+KmnQ3rpEHZR/P8etn
ivt51lXvumJVgPw8UKsmY2yEKnyy6q+pmh3SI5lsLHBuWd8BSihHBseI1ucR
fVNkgXHyoe+IEzL7qwXL5SFznm+AhnIHaClaORgaRiPi/k9CVjfvocCAiJQ7
lv4d4H6Q+ubbZhQ4xyY+JEG/A7TaWtc8aUb+H/cPjxStJtCg5BfLgOWi8/E5
6WdSYIb8QKsbJtbkJtDhxBkKkbwL4v6hvONParwMmZCnHf2dsRP5bxQDF98Z
ZncAZz/tC8VRSkS+Nv09+62VIjxybsG9G3NF36eogiX/GvmJVAQKn3W/sGGI
wTW96tUdwFNuNrP3P/4iOf01Kad2KsPTG51UHcP/P36kjFfagf/J78/ulp3+
jAMzVUxeBv7HrzQZTBk2UuwAQ0m9od/LkD+p6xq14/NxLpwJcyNUTDuAa/z8
4CB75FdqKtR/Gb2KB80OHh4IjRX3N9WWOOYBPsqvLvOP6WzhQ/fH5JezPZFf
qFrmYseKlx2gfY9Kg0CHBFlLdOSsT4r7nz7+KfcscSHBVzZ3uddF8WnPOR7p
qcj/lNV5SDWhgQzpEkvltFs6gN7ttRxOKPJLLayWPGLWTSPY98eCKo/tVHjo
lHCBR5O4n4r28j5Q8GPAyMsfE0qjOoBmUF54eg0L0mdmH3PJ6QAGS6t8v8sj
/1T+LcMLj8JYMPhYWln0D3G/VVhu76qkSSh/+dnrsp4xSvChiefJ91fRfF5g
VcILDRJ9n9cuy5/FI/8VL96zZAFNBX4n9VAFGR2AbhnxV4OH/Fj9j+lFR5dy
4M3Jh+/y68X9W+vgr5N+8ij/aeHbHRvfcqFGxv30vFtofteolGdUuneAncZq
HOU3yM81Q++apfUp5Pc6lXeMZ+jEh8b2n6YH1qL+rLG7y8lX6gT3Q4pd848g
v9eEhycC3OrkodnU/Gn5bOT/2Na958AM0ff/8S6171QrjcjXLD/X2FZJIVjB
4vRVrTVk2H3ntb+9lCi+sGTMt2cUeOBcpRP3RQe4YxQYnTeHQeTPtclVuroM
tbf47Y3lu58jP9mLCoUdY3IU4DODMWrHK0TXM+Ve1W5TJSIevO7lr7smivDq
hhudvZ2i+eoQm9a/BvnJYuorp+6/xYZqOfNbolTF/Wfpbt/Wm89G+XktP+Mn
XFaB96q2K/hPQv6UOTUKrnvKOsDbGR0cuwvIj/btZr/r5pMcuChvxQGfXx1g
rrHu6TYOj4g3DQxKlNpx4ZZpWZa5LHE/W7eRRIqGHMofCBpnEFXBg0pSySdz
pJA+8wTQNO2b1gkcNwfatT0nEXrPBYJpKSs+Iq79Whg0c6s8dP4QeSGQ0gnC
Jj5+vXUyjYhnb0+5s3cRBba//CCfYNwJ6qpCp5+QpkCdTo03rXxRfMGYux3z
kB9O7rpsTcptKtTOvRXsO6ETGB3+Y5N9VoGIH2ctkPZZQIdrPr/4mjYb+YFW
Tj+l8YUp6s9n2VLqz5B/zujAhrnS0uj4tIq3Ttr+KC5FWbB3WbMiVL92atDZ
DPmHKIGckzEynYDZtdU8aKcKkb/FqSDBZ5USTNP6EvdbRdTenuWVXAPkv3ue
pn4rqUwZmq9bktNoLe7XU/Cu2LZOCeUvoUcEeL3nwLOLBxYtnI38SIL73spc
Uiewj7sk0XWSR+QH3TY5HHYU+fsuO/cmxS3gwUpJK43L81D/fTm+83vfBtH4
cjnq+EOLBJPvzFvVsFTc/0datUn69SoSnB1k4+Mrio/dqHw7ew7y/709rHXl
4QMyVDyQHKm4uxPkCxtLL9gjv6BjR8GfrCM0gk/d7VxRIKBC6WlHGJ3OyL9V
a/6i5+PCTjAxo+3w6igmvNCSkFcwtRM4BU/0OPlZkTj+0zIzi2hH5C9MDZ/U
FnJPAVYcylze6or8XvcrP2T+EX3fqb6hqwpakd/QpeBlrLcqao/3M87ANQrF
GxScvzh2KsFHBp56sjvQ/OwTNn7y1esEBktO1b65ivyJWUt44UtWqsDWof5o
XytR/vNtJVQe8ivemNdDVVnLgfcCS1PdvMX9jXEOlW5MEsr38SwsJD3iwmSV
wfpzDmh+Nh50eb4qoRMYrnnWfywG+R1TFr6wd6qVhxa6Pz7GRaP18WZE8/zi
tZ3ghN8Ro2PraET++rhjYy4lUgge9sjLDjUhQ7Jzrn9ZhOh6SERKpvii+MM7
Xivf/6JCzvJt6W+dOoHQsyRbK0WBiMv/6Rk+dZABdRlhEokeneDPGgWPCZnI
P9k0i+ZoJ5pf1WpC5uDyTvA5k/NUp0GJiC9e1Zvr74ryL+2vHHuuRBHKWf96
nHwczbfyeYdKNm0VzY8Ox5CT1ch/OeXiLafnyqi9Ha8S83r9UfxVn/84TqUK
LFsxXRgWi+bbrbWyjyw3dYJxOpn6hke5RH6i3OXcc4nIz7k4I9XxtgUXrpKY
uk/vBOqP/LeFvN3ZneDuxW9L7XNJhB69eOeb9173ET9WGC69vF0eXk9dku8k
6j/wwPpaagzye957fL5el0yB38KerqPf7QTRMTeWbXlEhldvOj1cGt4Jqg8q
986OYhD5VhQrpbwjVFjRc2mLfTGaPz/+eG13FLVvM3tn/uUY5Be9XqoyJVia
AaPGhwmjQ0Wfr81ij0tXJOJ5SkKW6RqUn+P9REPqigL8PUfnQGQhmk+GS5lN
K0XtX59rm1ocg/ymF54l6pdKKsLTbX9mBoR0ip4HZ8kN3lYh4hkqHuZRK1B+
2h64bGmWEjx05JpP3g00v26r7mCuELUfmGSj3mqB/KrJ5RQX+T/Iz1pxTFjQ
JEDxMqPPJktecaBwCbVF5hqaX1FnYt2Kv4rGL9vBS5ZCghPkt9wJLxf3u+6J
n2Nvu5BEcCLdyOzJRwrBExxuL5E5RoYxD6N9Kl91ggjvCQX+zynwZez79flC
0fi2JxteVSDD9ZvcgfB+J7BUsHZLS6fDg5uWqa3L7QQeDP/c6kMKRHv34ubN
MvZA/lnbFQ80+woYcPHMwqrpzeh+taV2+LXVw07gHSxx/74P8tPWUedzr41R
gH35X/QN8jrBL03OsmIvJSK++91DpsdilD/+5AJ5jZOK8HbSy1d3PqP5tPHa
rW8LSjuB1uI/B+gLkB83cXnphPrPbBhR+vOIx1XR+sCxs6HkIH/uNMqi4RR1
lH/vTVmvo5cKbHq8kpPyTtzfq7FI0Be5hgNXFL033dSB+meNwGBNMLULBHNK
dr3bh/y9fVtS/n57LXr+TjjcKDco7vddsqN93O/lFILPtCwIbSOT4bgmmfKv
E7qAhUpLXKwSBVZFuL5Vei9qzyd4ukwCg8hf5b9GOieZBhd55lEntYjWC6md
QbIHkD/YsrfxmAqDAQUqkwtZ1Z3gov+W5qtOikS82+8YdZojyj/9xyDBIFEB
XqRQdUtlkN/SevK8OrXuTjDHtd9bMB35iy2CaxUXVLNgwnuJv8Oi8UkiNzHH
yKsQ8a4xUWl2iig/KWwWf62zEnQYPy4k+Y+4X9l8/KdM9xTkV+44FKbl+0UF
+q+p0NajIb/Jysiw0GGNLmBXfoJzYB+J8Le86VM7nJKEWJDQpNa8XtQfs+Y6
ZP0WfV5Y1t3SEhoR3+ewodP2LRlazDwUbDqvC5ATnJY930OGj0+/KeHJd4HN
jjcDlxYgv7P33uFlwUY0GAsoOZ8kusDazTFqT7YoEPFwHwZnWxDKn/lheYSy
aD44v6vRWW6K/Kz+t0rT7yt0AVIwyFSdh/zSn/WONb9uZ8I+lcEXF6W7gJ/n
lU03fiP/dGRchU2EOsrX/TXxhoGLIizr6VnfrY78sCkWB0jGou9bFdKlSnqq
QuTX2i9gtSag9o7m79+X9loJDlb4W34F4n7tudR735dJq8Dt8QF/U9Z0gfmK
feRnbfJw4fpDE76Yifu1g6fUNnwTkOCY9ujak5uRv3ezQOOm/OwuQOdEyeZJ
0Ih8leD4TYfOkWFeysA8GdH5D1S83C6MZxBxvsui6PpbyO+9SrBdMaaJBu39
6lflifqrKe27nKcn8nsfb43OmstiwL1xZGetWV0g7jpjf/tkRSL+9NpVvYbF
KH/Y713J8QAFeP7T+8ufV6Hx/rvWOCFRtQtY940nhRQoEfn6oM/G5BLyk+8Y
x/r8s0YRrvnuMHnLf/zeE3pvCg1F1/NiYHhizlZlIv98ubH7ySmovU/H1/WB
ecrww9ikhzvt0fg2PLx63WvvLlB8fULVwioS1M+7HH3reBf45uU3MWgD8qd/
MM/Z5/WNRPByoZdTyE15uPO5NJTd1gUo/X5fny+gwoDVJ9coLu4CgYdM2y/W
0mDhSollO9d3gVazjmD5e8i//qlRqWL5LORvX2vo0G2+mgaHyicmWocgf3a2
RXQ/zaELGIVMWeMBFIj82qhjTP1w1N7mmmfz1HMZUC5orbPsKTT+v6231G1d
0gUSDHx39ZUpEvlN08duZn5A/vnt+4wPTxpWgH6Ly+/quHYBrc+xRamhyD/f
8WrP1d/q6HgvXl5liy2KC71/DtXsVYIXengzz4ai8d1AA60Ls7rAoh0tPpGW
JMK/tnfS64VPPRDLnNO6YWElD9sVDNe5iI7/blTgtIRHI+KK+ZnqDCsKdDPW
vELJEI3fI4M/IiMp8KdUj3bt3i5wo4Smt/8Ig8h/ZPjoz6I3yL8/K839aJmQ
Br1suqwVTojOL23OeTM7JlQdGO/0QHT+pe81LiT/VSDy06VIKktoDGjee94z
PqoLFOz9MZxUhPz9cu43r5TrI/9/0Ms1860cFWDqWYvnfy+g8b1yzv4i1/1d
YGWFTlWAthKR36or9a5iL2pvVVL25qXJivDB0SkDvJvi9QSeDtv2Pb/DhoLM
X1YmNaL1dqPEPYn78vDp6qCSrJtofRjx/9UVP5/sPCwPKQuuNXTd7gLJ6UuM
r2yjwkq92os/k7rA+K8h+RkdNCL/j379tYWi+1/Pw3TymUrReNkhiD/bT4aB
aykl56+L4nVTxm8pRPUI+u9Q56yzRvUK7Iv2J93YQoN19Y76Jz+h8ev3q6iv
/lIXyAtb5vZFVoHIv3K7fUgmDLU3+dbq9RtSGPDw+W+u8T/R+OU5TtBKOy+6
PrPO7Srcqkjkby14+ujWTVQP4XG+nobcG9Q+9/rZw5tbUX2EoKtyHUXj2fBi
t90e5iM0PodkT1+cNbkbXDavvXnADdVL8LTaNX1PnTz0dddvuvGmCxg/r2Qr
69OI+NIhu2sfi1A9hfMex0iLXlKg6tzjCnWi9uDFLQ9+rSXDswMvrh7q7AJJ
LzfZLS+mwG2Jm9O8n3cBK8mom9W+DOL4wc8vPG/VoXoMy62nvFLvpcH7zLV3
lETXI7fMbekRLSb8qWJQ+aq0C8zwKglaKnp+HcnPubdkRvwkBlxk/0PGrF50
/huWthi6oXoNY2dERY9XQvUcVqc9bdujowA16D8KVwrF6z1cl5uw9IcZOl46
ZMElewdFePm6oazbIBqfI37Rqlg39YdP5eH0Jav3XtJG9QNWXynhfJzUDRI2
Bjf8CKdCV1Kh9PHWLnBI0DzQ3E0jjr+23b1wvCWqF3HnTMeMl/YU+Gb9ltRJ
gm5gZdj48KAqBXZKttkkjxfx6rYE91xUP6L0w+7z8etRfYk3Mr9ZLjtosNgs
grpd9z/1FezWkPlju8G+cK+kZ1Wo3sRnuO+YRgBqr3GP1Pgu0fPplz5FFY4h
qnegsfqTpPuw6H4+eXHNsgmKRH53dmTA7ZOovaGvsl37zyjAMwbmQTL/qT8x
Ep9IO+m6+DILWm2PfNG1oBtY6y92vxpHgt7vXPsC1cXrXaSTWGG7+CToF7V2
cgO/G2iabNhsDmhEnN1+2ejOF1QP47bl8kHWDwrck3NBW2J1N3jLeWXgFU2G
c7iJ9jqwG7z/FvEl4zMFFn34+jmF2w1+jo3NLlvNII5fmdF3Z28LqqfRM5Qc
VNVFgx5fdyycrtINdBmn5Bb7KxDx445w3px+VG9jxvXvf+P+ovYqpkTe75FC
+e5bpocsl2HBx7VuD5dD5A8Wrn9v+2hPN7h08+SUZkAi/MShunD3sjGi57H2
hXV/otH4OlMUR0taJZq/K3W6954Q9a+D3uP2ed0gwvDHWoc2GnG8a+u365+3
o3oeLTst9ad4UKCW7V3dtaLPG4wr3t5gToH1GX5600TteQ4nb6xMoMOce6bk
BNH55umUKVL+MojjPYV5t4w9UD2QXh+G0XYPGoxZc/nV5MNovK2S3vq5wKkb
ZP1dqxObiuqDBP4OvpvsgeqHSAQ3gHIP0fp3Jvrju4Pi9UUOSliX/PZAx0+O
uGGutUMBfg5fpC+IQOMrrCILqGR1g1Nj52/aWyYPc9usx++J6QaszWozn/0l
Ef7rXbs+re4fQPVIpi8LqOsXxVW+vZlVIboeIbL54QdF42skPvHqxzqjAVSv
RNl7r9RuIQWGfm3RnpQtGo+nAvSOXiNDjUwVk7PHuoHsxp6x1E5RPElzqalP
N7jS41v00pBBHK+npyC41IbqnVj13bL43kiD5YfV594T5adeImkWzFYg4htv
O25l16F6KP4B/VH2Nai9YyYJl46I9jPmY4sqP1d3g5kOa/u0bOXhBnag3YcS
0XhM8RwXGUgi/OVD7tN/RKWj+ilPHRlTJETzT4oUak261A1spmZmqydSoWag
09i6491ggif3g883GpF/YqGEnm8kqreyVrfFuS2IAgN+NNTO+dIN9pcb+i0Q
kCGjK3lFwGPR+RfW2fmvpsD5Hjv2zb3cDSyzFUtVg+nw1n2Wsv6JbhCVcfXg
p5cMoj0N3vvwjbtQ/ZZuufuXPrrS4Flvht6Fr+L1Xe4OZb2zWY3quxxsiR18
bMOAT8yLFT6/E6//YvcxUNXYnAk3PrV2/FqOxo+6p1RuxS/ReDlgeXT/MKoH
8/hKzuqHAPGr7wuTs7VJUFjitfZmK5qP1ZtC3RY97QYuFN4udwMakf+JWVd9
XAnVk2m0CmLtnUwhuDuEucrlDwU+OSPxvHKgG3xI3BbUW0GGfnJKpPui+LV7
1Oypvylwa8fE9eai891gI2+mSWEQxw/lX0+0aEb1aSY1WX/U/og+n6rUzKQ/
RfVqVOwiHIdEz4ulPjes12gIweLr/Cyvg/IwZ31HwyGSEKgU2dx+dY4E35wL
Hhw3hNbjkfoC7UYumZXliOmZM6tcbpBgqvmFfM7fbrBQ8H66WzwVGso/qrP5
IdoP6Hl4JD6nEfkm8mOlm1NRPZzN/u+MvA9R4Cavj2/uTheC7N71ukbmZOhi
4Zcxny4E78LSpe5vFd0PU7cyciWFoPCew+oja+mQs3xtDbOpGwg7N5ksSmUQ
7R39ft5j0AvV1ymw9k2LED1fuH8gNbnOEq+/8+WW5WvZBaj+zng+a2yCNgNO
cs9Uc+ag+gWuhcWco6uEYKJrVIMiVR6en51UsMhcCIL9/eJctUhEfQWH77uD
129H9XroD5kbi2xJkDqlnWdsierXkG6t32WmKASzw+Y2606lEfnvz9yxoOmh
+j4nQ1ym7VSgELxsnRTp2RAFWiapnrFZLAShvgVn2F/J8HHD0PjtorirUVKW
oSj+8f7x0uOi8+/gbiiu/UknjifPy/rFq0P1gt6wraoDn6DPP/6n496HbDqM
TfP4m+UjBBtvnD9xP1+0v55tot/lIgRD/ZLVBo9IRL2IoIpfW/nyqL5Qbd6W
h/4diM1PfGK/eUGCV7423r5sKwT1J6a3+sZQoZrDrxyuoRAUzYtgfbpBI/Kz
fKx9NC+j+kSTVxW/DDlKgWdztF+3BAnBqVSDRYNOovvf5vlKSW5CkDZpfuyA
J4XI32miq1m1HdUzes25EDrDigYX5p+Q9g4Tr3ekK8WqOTCVDi2l6Qe83FF/
n9OftC4nSwgk3k+uOWMmD5P5R9n+J4Sgu0QxOdKKBHvDGpleG8XrI2UpdM/2
P444MGbB14FtJPjYx9ay8Azq/8D1yaxzO4TA6+7W64NMGpFvOy4xau9CVF9J
LaBVb4BDIfh3J6j1E60XKWnWOxySheCDrqaSUTMZnnz7SS9WFLec+mit82+U
/9z1xJH+96g+U3pNwxy/KzRIeueddP6xEGioOf7a+lEeTmhyHPp1RQimpWlw
hz6RiHoe23qrHp/SR/WbjOk73rpNRnFZ/bG1BnUkGJzicv58hhA42zzdvjWU
Cq+U/NYyPyoEbsHFDVOTaET+1xUJ7ZNuofpPV/ZMH6wW9e9z28XrLr4QXW/Z
r1WFW8jwoNsEv223haDFKyMD7qIQ+fvjSiZd2ojqRdndcGAEGdLguC9B+e1v
UP8Obd4o7dcnBKoRasEZ7vJwBWvitgX1QvCxgLWQ7UaCf3drGNiUiteXuh/J
kR/IQ+xyNaR6/n4S3LFuOdd5APVfit/fg44lQmDDpjjnStJQPaqP384dWYbq
U6WPMd35gU8hGGqcMeT8okAdemv4x1YhuNzsJ7m+gwzT/QIllKuEQJu9ve1Q
N8r/ZiMh5f6ECnkVulH/6p/YTdz+QFJ0vqFnUn2MaD1AQ8n0RkKvPKz1mbhx
v0QPGJ5Jz9ZuI8H/e549oMSbsenISlQPq7xi//ndfBR/p9ba4NyJ+EvwSo0F
d1G9rMbKB1unR1EgpU/LtValB5zoaAgN9iLDkrTnsRkyPUDq+i/7sB0UIr9T
Z2oOzYEKy10Euwc4qP7Kq6KGOTULe8Dqd0YLQJQ8VA1v9Dw1uwfMm3wtUD2A
RNR3iXIEJpL/qcdFUxijmvsUcfrHB9KOx0nwwIeT7y1sxOt1TU3a3yW5CnHB
qvlVuTwKwfMVx953bKHAARP+vIfzesCKvRa+vqLrv3jDqZS/Wj1g82wN6+MN
FLh9T0r0VL8eYPzIJvIrVx6atqmOW7lZlO9+7b7VFBKkb74UELKsB+yQp/Xe
7ifBhPVK73s1xOuDLd8+422FJ+I5Pu+oa/RIBCuG7F3ZNoB4OFI5IegeqidW
f+LhxylhFOiz5MrN/V49oND2+0GtPWToQ1s4ZtbaHnBXeGIw2pUCd/B29T88
1QMy7DzW7siQh4mKk8pXhfcAaXVZ+vFIElH/5sLhK/k3FFE9sqLt09OtahC/
Wpp9uP40Cb5cpFiV9p96ZCPxH9rqvv5rEA/IndtAUqbAwt74w1LHRXFv6gyL
FjLUK8nuqC/tAZ7hmhVrTeRh0A/qlvobPWBb+W/3zcqi9XDivm91ovZdyRWT
tg+ToHLmt+u+h8TrofkUST6deADxetr7lU/mkwi22nnhR9gw4jnP9u42vUOG
DvPZ5/wf9oDSktTB0N2ontqzsCLynlmontqdGJUB3xbEeclhX/3PkQg+c6Hx
cZDo+8b9VR6XX9wFio4P3r8hzYbzz25YSTXuBq8pM55KkFiQtCJ47KEr3SCn
yv7d6vVM2NgU2b/DQQgMqOafqUZ0mPCHM9TdKwRyN+szeKL9yf8B5jFpPw==

   "], {{
     {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNVE1IlFEUffPe901hOJItWlpEQz8GTkm0iVAJCumHUqLahc4YgVorS1q0
sCgHa1mIkTKGBdFMtBHCzELRRSunVKQ2UURgJIS061zOCVocznv3vfv/7tt6
oetUp3fOXQMCUAdkgBrgUezci4RzI+AfOPwK2bR4DfjmuDYuAwMwVGm2wEci
57ZDtxZcAazD+id0p3T3reNd85NyPF+foN1GoElxmHyzznbIjtlbAy5j/Qe8
AGSxXgbvAzcA9Qn6t31aXK91nXyY/TRy64NsF/gdMIn1NLhd8VseN2Q3B36G
HOahdwf83DGfInBL+zbwMO4dw/0+8XHFVFTeJeClfM3G9JNWnm2yczJQ95z0
p6RbVNxWn73AIvRncL4EbsG+Vbl9iKg7AR6S3kOgG7LeBGtXEXO/ijuPPe2N
gTshH4b8itVE+Vren7B/D/kv8EFgwHoSU9/sLIH75ScPnHaMqQHYFtNvCnxI
umajW766JLsP3AXOxlyfAc8px2XwIFCy2sask+Vl+T2QfFB2zIb19ZV6YD3J
qGZbHO/a236qvpT+q4/Vxt5TR8Q3czFiDcrq91XNS07vNyOb6aRzX3D/ALga
+Gz1ATfFjOewxQyMm09wIWJvR9Uj82/1a4bOd8jPJxnnuGKd8KzlKPhEoM5u
8H7dN72ZwHmcDbzbqJlO4GwRdzYlGX9eOYyp70/Ak57v6g34OlCFda/nfNYo
x52w22MzC74Zs363wSPKpaA3kFedsmKr1ZD+E/tXepSrnVUFxrIRvOD5hhc9
9yavDuyB9eISeMXzbX0E/9Y/YP9Be2Afc4HnWb2/2sB49gTmYnlYbvP6v8q6
l9P89AfOWl65/ssjpf2qpw/z1QEueNb4nmdM5vu1Z+1bNatZ2Tc/RyPOe3PE
WbKZWonZM+vdnPVOb8beTmXE/y8Vsact6usGye38LyP5sYA=
         "]], PolygonBox[CompressedData["
1:eJwtkztolEEQx+e7/b5TFI3EwlJFPM88QGIQOwkiKOIbEbUT8gAhr0pMFfA8
fJBop0UEgxFMk0RtBEmihgRTpPFBLog2okjw1IiInb8/s8Uffjs7OzM7O7v1
QtfJzpyZHUQp2pCZ9SVmJVSAr6FR+DEagl+jaXgOzcMXOdQMt6AyXJf52UHZ
4H/YehKPqdi3SLaLPJvRILyUeSzFnIFnY/xnaAw+j+7A91EnnMubvYEX0HfW
vZnvqcarcDXzPfkEfJ9kHksxn8Ij5Gwxr+EBfCDzWpVDuT5Qb1viNf+BhzO/
u2Iolu6oux5Fw3A92gSvQsXUa1qI/anA67GtTtynEf4ZzP6a29ayrmV9mfVN
1ADPo6/mPvKdosZT5jVPwr9Qm7mtCq+gS+Y27Y1z5p15jLngOZW7gA7Be+nJ
Z/gb2gOfwOcevhOoNfib6G3WoQG4HtsQfAPVwS+w7YdPo0X4EWoyt03Dt9EW
c9tDuJJz33b0O+cxFEs17wxu0556UBP8zfR2FZTAG/POn1At3Id/jXkO5Srm
fU93KsCNwXupO+luHcHv9kp30F5wVo/Uq0p873PoPbyEuhO3aa/IGw7E/7BD
7xn/h3zW6H8Q4yWxxlA5uE8pzvs2zVOcb83ER/hw6m+hP9MBHw9+Vj0+Bpfw
mYjzXM5co3H+u+Ez8T+opn1wV5x/2c7C7cTcDW9HrfCVOK+y9cPj8T8ox13V
iu1I/L/ynUq9F7r/ItyQeizNkGa9Guf3C1qGJ6O/YjyHr2N7a94T9eZH8L+h
Mzo7G/ysfGbgkdT/kmIo93/tUplc
         "]]}]}, 
     {RGBColor[0.34869768369637966`, 0.4262515821297181, 0.6140882626193807], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlctLVVEUh4/nnnvD1Lo+qCYFluVbIf8BixxkpelAMGtQ4YMUrYiEMqLy
0bW0GgbRQ9OyIMMiInwkmZZok8J8FI0CIbxm9pz1LdYaLL7f3nvtfc/+7bX3
TTxUV1zrOo7TSviI837H6YlwnEZYGnCcZXQtzKDdjM6C+bTD6P1wxnOccvQs
DLPAb9ZYhDWM/aH/DGxkLBfdBFOINeh0T8ckpw0ms24jOgXuI66jD0AfYx/Q
YfQIMSq/BceJYfRbGM1akeggnKE9iV6AvcQQehQ+JV6gn8A95CWjCzxtS38H
PEZ0oE/ACfYwz14mYSd5hfR3w3jap+lPgFO2d/Gg23Luwzc2V9ZoI0bQ7TDN
pz6nwyNEH7paxomv6FGYJXPQ2bCFGEaHYIXly7xz5qf42kxsR4dgLONBYiPR
T7uU/kFPfRF/Yj31XfzPgPnmg/hRyLo3mLcXfrNzlPOcY6ySnM/wFYWyg/4R
uBqPGuiPE//pW09sIK4xlghPw3Lm30IXwTuu5rTBw7QfoQtgNFGP/u7qmOTU
wwe294sw5Oi3iXfTjJXAYfjSvqcHplhejFFyZd0m+y35zQXyitFT8v20q9DL
6AZXPbvnalv6Z6xP/Ey0OTJ3AM7aN8zB13Z2vbDdVQ+uuBqir8Kg1YzUTlh8
QS+56ql4+wWuxMdT6FUw1e6a3Lkly/8BU61+pI7u0s5Gd8FBIhc9JL4ROeiH
MN+8EG+K7CwyYb/ld8LHUsfoyz71PtvO8ZLVbRXMsJqMg5vsnsp97bazljMP
2Xm1wnL2s5WcSk/Hc6wmq5lzm/4auWdWty2e3je5dydhn93HZ7DM3oE8eJO8
3egLcAsRQEfC59Yv43lEEjpNcqw+g3Cb+ZkGx+zdmIDT5JWhhzz9Jvm2Er+u
K+svsJc43p9ZdDwcM6/Esyhy/krdopf9+kb5yYmw90rerc3mVRJcYeusDWiI
ToAt9t42+XUtWXMcxlg9RMF5qzGptfd2rwc8HZOcn57uQfbSBWvNN/HvrJ1F
BTxqvyW/WWV3f5enZyBnUQ1/WU1+krfFzuW4/BeYP3V+fVvljXUD6q/4/I/8
g+a/nMOE+fwOZtJeJ7UNd5qWvkV7Pz/C/6zrzwE=
         "]], PolygonBox[CompressedData["
1:eJwtlElsjWEUhv/7D1fQFiViQ2JIq4Y2ITEscCMWaA3pwhAsiFuSSouNoCJo
UVPEDkVbLUoiKiIiphtNqcSK1FSsJBLzECw9b85ZPMnzf+P5zvm+f/S62sqa
MAiCjRBDbRIEzakg6IDNeCdcg5NwCtoZXMa4DNwLrU19p6EJDkEjnIGz8IYx
y3z933gXzAus7TX+JQqCNHv94fszPoE5+/mugyL8BGOG0DcG6vAC2nbQVw9j
8YPMydF3FRrwNYqHvlbYktie2nsnDKZ/aJp96XsOKXxrYmM1pwYvTGxvxVCC
55OU/vg/5g/Ek7TN1Rr98PrEcqWcVeMXQ4t1KlzGb9J2m74cPMLvh5a7SniB
LyWmJo9/Pf6Ntqz3f8E30HYdPwdZfEhkZ9GZBuEboSuwMRp7BHoDazuMj0ss
V8pZPj45srWOwqTIaqRaNUML7GTP0coV7MK/w7bAYlJsrV7/kdCCL/L4G2Eh
ft7PpzEamx9Zn9bIw6+ElhvdgYd4YWSx6Ew6Ww98DOwMj/BXXj/dl5f43dBy
oz3u4B1+n7TmJcUaWmx5sB1fHFluFaNizfl91JwH+DHPn/brVP4ju4u6kwOo
91OPR/X/gXfDh8DGfFI9/H6MgFK8BIanbH4R3gcb8FXwEm+EufgSOB/bHhqr
OePxfVCBZ2AvXub5Uc0q8bbY5mqNVvwurEzZnFt4QWS5PgQl+Avasikb8wxv
jy0WraG1Ov2+6IyP8Uu+vsbk8AkwzuPT2d5yR/rgHbxPLKZzfv+q8ILYcqGc
6O00xHYWxdeCT/L8aM35seVUudX4vNj21N7K2RvlDqZ4PvbElmOtXwwL8fLY
XG0L8GH+PpSzUnw1b/Qrfb+UA719Yu7Gn8KrxP45qqVq+lH11RtN2ZguP6PO
+gN+QglrjIciKIZ7nn/luBc/zp0a5fe/LbQz6qw6QxafGFltdB+XRPYPqPT3
9TW0O6y7rDd4Af/p/wPVVLXd6/nUervxnsT+LfrH3MBnEtMMmAbTYUdob0Ex
HQutTX3lUAE1acvNX9iEr2CN5TAHMonVrMLvzx282v9HejNH8SdeP90fvd2M
z50Fs6HK66ccrI3tH6f3qH/2gchyWOQxK/b/Dl7Lvw==
         "]], PolygonBox[CompressedData["
1:eJwtz7suhFEUBtDtMgqNROYFFGI03oDErUEUCtdOIm4JnUJUwiTmDYQCHQmD
UiOT0ChUKiEq7QhD0Fkn/mLlO/Od8+/saZtdHVupj4g8Oc4aIk4pUfH7RNYa
Iz54ZK4u4k2W9a/ub7L36bs1A47cF+UOJT69Xdc15/5npFn3zhXdnXzimQH6
GWTX3bTsoZsCW7p2Oc6B85ScYJIfM7/5ZcNdi26kKWKYGaq6IXmrv3Yuy3Mu
OEzz0t5cubtMe/JOlQddTS6Zvcgyfek/yi590bk32z39h1F9h24he5++e2Fe
95Xtmfbd93aPbY7dbcq8HR+dW2WBTv4Atoo8PQ==
         "]]}]}, 
     {RGBColor[0.5056156032615114, 0.4813984548203395, 0.5218425846641594], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFtIlFEQgP9297eLilmrIPSQZJmFW0IRhWikIYgXlC4SRmgipKgUZERG
oSXmqkkvgUZpSppWZr4oJlRqCFEGKkISFiSUKGpqGj7UN5x5GL45c+Zc5xKa
XZRe6LAsy4s4kTmXZRWts6xF2M/EcWztMNHHsqaxJ8ElxhewT8DNTqOLzW1b
1nV8gmGg6mI7gdxHPwmXkWH0FbiLM4LQI6AHCUEPhHPqI75B7F/C/sEwG3mO
ngTDucc3WQtf4deF3ghnmFvGZxYmIBXo4XA9ch59hnvG6bnhchbjHOzzsA2f
EfQXsADpQi+ER9i3Gv9o25wn57p9zLvlbnlIOn4NcB88xNwUPofFR/eR/Y6x
vhZ7AlxxmHWrcD9zNehR0A8pRveHiUg9erLeXew5+h55l6/Mc8Y/9nwKm3hP
HPod2MLcG3zKYRtnHEBvcZi4SnyX4BRzP7D3w0nuNIT9q23eJXc7jfTgl4G9
AXbiN46tBj7SP2+GecwdRE9xmb1kz2cSL8ZR8l44zPgX9s/wMffwoDfBDczZ
+EzLm9irHb0Kepnbhs9l6IfPX/QFfPyZK8MnDC5qnvyGHv1DN3yo+1TCMN1f
zjmqeZgBR9k3Df9emMm4Dvs5GIDfJvStLvMX8iefbJMTkhsd8C4yiF7rNGtk
bRYsRV6iP4A/NQ8lHz/o2+UPIjU3ouFOzasYGKP1lQoTtRakJpI1B1Iknowz
sffDLw4TnwGHGYt9AL5mHIu9D15FfNGvwDHmcvAZhfVILPpNGGkZf4nHNc5e
w14DezXuEv8hjbvEv0Bz6R1scJj1VfAPfpfwX4MlGneJf6PGWmI+oncYh9s1
jqEwH2lFvwXPaI3E26YvSJ3ugRHaT7bYJjYSI7fL1IXUhMQyS8/NhRVaC159
o9xB8qmEe+yA9+AN/YdSeFHjeNY2PUL2HYOpzO3GngbLtP9IH4rXe3pgkvqI
b4j2h72wk7lu9EH4VmPUCge1r76Hy9oHpB/Uqb+sq9Ycy3eaN8hbqmC3xqUP
3tYar3Ca2pAa+QgnNG+/w1ntb9LnAmwTo1XW5mq/kr5VqfVSDHs0phLbZq3x
J7ZZI2sn4YS+Rd7k1f4jfShD6+uUbf5U/rbMZXJacjvZx8Rb4r4RLmgvmofl
2kOkl/wH4tDaZw==
         "]], PolygonBox[CompressedData["
1:eJwtlElIVmEUhq/3/lfLDLW0AVoU2QChJhRRiAYRgllQEZXkohShQYWgYaEV
DWJo5S6oqKSFoUmR0GRCVJaQUuAEFVRQkEEkglC0qOflnMXL//zfeO457/kW
7avbVhsGQbAXJdCMKAia+D2KUuEtDK5OCoLlaDN8ChXDBage7o+D4DUaQIPo
B3ti5qbYPw4PoHF4DPVHdobOmo9K4YOM9THXjQ7A5xnbkGR3NsK3CC6PuWL0
FL7Dmq/wEOqES7izlbVX0B74L3sOww0oM7YYFIv2fINbGOtkrhvdgNs5cxVz
i1E93BvaXVvRKJyZsFhTUQZ8hLEFyhM6Dr9CG+Gd6CPcFdpZOrMGXsae7CTL
SU7CYlbsz1A7PMZYFXN16BecQ0xn4AtoCVwUG19G6+EnHl8uegw/ZOyB10C1
2BHbWu1Zp70er3LYBl9j7B5zj5QzuCW0s7SmGW6LLTfK0XW40O9XTAvh7cR8
0+u1Hy5MJq/M/UBF8EX0F/6HmuF8z59qXgbPiq02qlE6XBvZWfLAJXg2qtfZ
KANudX/IP/fhsmS7S3eugbcwdpW5LlQJVzC2B+1G5clWM9XuD/NpCRvTXC2q
QzMj87o8vzyyM7q8PuciG9Oc7iiFqxPmffXASXiOx3sRrYR7QvOOaqRajfr/
KvRT7P6Xv2vgiti8Kw+Xwy9D85I89QLOiuxs3aHcNEYWm2I8A08kzDvy0Ajc
i3b5/6GE3aG71FNN8LHQvKt6yxud7l/5tQMedj/qjB54k+dXOSiBn3u/aE9f
aDlULg+hGlTm+dMe7a3xuQZ0AvV5/6onv0dWU9VWb8QbuMC/Vx6T1z6E5gXl
5H1ob5LqVYlS4J/e3+qv6cT7RX0Av1U/wb/Zc8Dzl83ad/4eyQ+TcDIxxSgF
TZN/PR557gI8GNla7dFbNs3XzkXz0Ar02f2YC0/Gdrdi+ASv9f7QmmXwSGix
yxPDcL73k745L7I3sNu/vxo+yxm3k6xnT8NNXn+9IR2RvTnKjb5xKrQcKBd6
c5bCE6F5TzlLY32W94N6Ur056d+nsXT+3/X3STVSrf4De1fDbA==
         "]], PolygonBox[CompressedData["
1:eJwtz70rhWEcxvGbnueUsHEwGgnlL1BOKGWRZDiGY/UWYdGxnMVA2RSFUpyy
URgNBoOXP0BeZpuIweJz95zh2/Xrez33ff+ezpnF8YX6EEIeKUaSEPrrQijJ
IQyjoqhys3IO82nmY9+NVl1BnvAX5nN5iSv84on7kmkuhBza0YYWvOs6ZF5f
NnfJHvSiCY34dvei7jPJfOz7sMMNyi2+YD6OO+A0yXaMu05iVzchj/gp87U8
wCFe8YI3LOt+5IZ9ytjGH7cuH5y/xyPuuOc0Ox/vqWCA25cNfMXcXNs9/sMt
X4xnam/FN0v8HrckV7CaZnvH/au172+SzMd+DWfcphyzz4d5VBYxjX+klDi9

         "]]}]}, 
     {RGBColor[0.6625335228266434, 0.5365453275109608, 0.42959690670893813`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFtIlFEQgP/+y+quQRRqWhFJt4eK1KiHKIkSF9HAtKCipXbrochbiWGQ
URgquqX2EHTdokgqexHD0odiKQskM1MIil4kIotumJVJ9A1nHoZvzpyZOXPO
mXMyIhXF5bZlWfWIg5R5lhWbZll18KVrWXvRu2ELk33Ml8PTjHOxt8AXBK/H
fh+uIKYBeyqcZK4KfQrO9Iz+F303shA9F9YiOej7YDtShB6FI0g5+jc4qDVI
LTWsEWCtanhcYyVHHAmhP4GfNfaLa8ZifwovIwXol+Bb4reTpw/G1H4VJlDn
UfREOIjE0YfgSfbcgX8YViJd6IfgGeY68GmF/YxfY++E7cgQ+h34jLleOUPP
rHkQ2YGkMFcLf1PDdF3XDw9gv4a9BH53jV3mZ6EnoafAJj1/uYcFzEXR18Ee
cuUQ22ubOqSeVjiB33583sGLul/Z9xX8luPTBB9orORoZG4NPmWuiZHYxzAL
mYOeDTfqXcudl6p/BRwmvog8IzBP7zoIPzGOYH9lmz3IXmbDDUgy+mKYgbjo
nmt6SvJITct0rUz4xzZnOCl1In70I7Cauev4hGGh1rkSpvgs6w36PJ/Zj9S5
BR7T/jkB1xJzDn0bfKR9KP24SGtbCmN611G4Sfcl+0vgfKupIQAbtQapJYgt
T+96St/CP+lJ29jjcLX6iG+v9vkwzCRXC7ZUWKZ+d22TS/ylj7q1r2565gzm
WuZthLVX8+FWfcvypj8yHsc+BvMYt2HP98y5yPnM95nzknNLhvc0fw/cpf5B
mK7+adB1zJ3K3Q6hj8n9Oubu5N6kt7rw8zMfhzPIO4ntBz7FjL+SZ4/k07f2
HDbbZi9RWIDfBfRCx8RLngFYqm9Q3uIN5CH6Kcf0jfTPB/Q6tdc7Zj1ZdxD2
61ryvs+TyyHnbbhT6wnJvpAR9ADMJaaB2CUwW+9llWP+O9lnDLbj54PdQo39
5ZkYifXDoO5F9tSsvST/R0jX3QwjyDj6YTiK36j0CXyvdyd3GNB+S5LeUP8K
2Kb/81mYpn9LumP+IPmLOmCV9meNZ9aQ2Er4U/9D+Rfz9a4LYKLuRfZUov9S
lvSX9uKEbeqTOm/BAe0B6YX/dUfKHg==
         "]], PolygonBox[CompressedData["
1:eJwtlEtIVVEUhk/3nHtTGwSlZTWSCgdZaFGDUIsSLQq6hEEFQtmkKJWIoKis
KNK8ktmgQUoWBVY4S4hyUGgvkFJ8QBAEJhWIpJGPsknfz1qDn/udu/fae/17
rb1zKmv2VseCIDiMIvQj5HdeEEzB3+FHaAB+iR7C15m8Ak5H9XBZPAiamV+H
tsFPmfOJsTH0ES5A9+EmlA/3oNHA1v8GpxFzlthqNE4CeYkgWIPWonVoKf8t
YGw5KoDTIssvE62CMyMb05zF8AfW64a70Hv4LTnuZ69S9AauYc0pxibQQbiQ
OY3wbbQ5bntq70JUhA4lbK5iKuHumK21EVXBXagYTqIheENoXuW5HP7KmiNo
Ak2i3MhyX4m2w9ms+RkeRmnwvrjl0obK4TTWOM1alaoP3MicFGpBrWiOPY8z
dgFla5yYDmIfoHp4te+nM8uBSyLbW/9thauI6fR8j8GDMdtLfgbg/LjVVjUu
dQ/yMo1m0FhotdT6qs1vvucCq8civpeFlpvOZD38J2bfynkWfuz9oB5Tr7US
s4vYYlQLv0ZH4QrUA9egTXAJaoC/qAeJPYA64GrWeBuYJ3mb9fNRD0zDqchi
tUZ9ZDVWrYvRFnQmbmenM0zBL+LWS+qpXrjJ45PoCTwYWq/Ls7y3sUcRnIfu
wiOe/yk0B1cyp8Pv0xX4luerO6O7M+7nr5rP53smZt7k4W/MclSue1ASNaEb
3hPqjYaY7a07qrt6LbS9dL7t8L/IclFOM5HdGdVK+S+Ec5lTB99BZXC/11Me
+0J7E1Rv1WxUXvx90Lfu9k2///LUFFrMmPvrVS+TU4bnl4IvRVZr1bwFHkJH
/D0Yhhv9vZGne/B5PJ5zz/L+LrLekB+d9RK/f+qxLPgZcxLEpaPOhPW0els1
6oN3hOZVnkvgn5HtrRz64d0+rpqpduX+nqm/ToTWkxXeD690ln5ftZ7OUj2S
9P7tlh//Vg+pFyd9P72Bv+B0P3+tobt/kZxr3bO8X/V6Kp/L8LD7Uc+odzIS
9pboTclK2Jnp7PRGPYd3ev/Jk7yf9PuvejUrX2LCmJ1ZO/wfboHKsA==
         "]], PolygonBox[CompressedData["
1:eJwt0D0vw1EUB+CLVmOUlIRBWsaaDBaJ1VDS6iwprdFb0kkijBYDoyAktInE
KkI3H0Fi6sQXsHjZxHPjDk9+J+fc3HP//2Jju7bVH0LIk2UmE8J4XwiLskKV
icEQenpjssQ0Tf0GC0yZ1eUDTXVXPvLEjrOfeptynwPOOeOWActP5ZzlR84V
ZJFJvvnih1ezjHPr7pxX76X98R1t8xs6dM3u5TF36ss0a6c7491D7Jrl5Cp1
1rjWa2X/3x3ff0VZ7yL9h/g/lpnV25Avzj6re/KNd371W3rD6jwjSaxHOTQr
yTIn6pW0P76j6vsqLPFhVpN/KJEv9w==
         "]]}]}, 
     {RGBColor[0.819451442391775, 0.5916922002015823, 0.3373512287537169], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlEtIlVEQx7/u99AgCJLwBYGGizLqdtOCSkoR6bHoQRC0MMs2gWlqkZkY
iZRZoFmLyiwqC+2xKjMipNpICOq9UtQm8moGFRFokhrRb5hZDL//mXNmzpxz
5vsyDlbsLg85jnMKc7HVnuOkz3OcZOjiOIDvGwuKfMdpwh+Gufhb8a+FaVg9
Oh1exvrRV1yNkdgojDL+jn4Hx7BJ9AQsIVc7ObfD/ewXRpfCN9gu9AN4OnCc
P+ijcDPjTHQhTCT+GHnmw3LG6/BXwkLG1/BvgRVYD7oKdmJRdBdcTq5ROQv8
xd5v0XE4ydwca0ag62md4+gUO+NsSHNJzmq4ifgJYvMC3U/23QrPYH3oRrgH
u4NeAy/Z/VTCYfIfIfYnzGJ8Fn8AM6mjAf8GmGNvkQunrLbf8BX7LaCWIVhm
+WWfZruHCjiLHUaPwh9YDTrR1zuVu22BZdgy9E543O65Ad5j3VN0K1xvZyyA
BXb/+fIu7PeQfUtgI3N/8bfBC8R0omtg2OqXc9RZfnnPant3ef8PjBdylnig
byNv1O1q3VJ/P3zE/D78n2AG4yT8WXDAYiXHFLmG8c/42lvydl/hSdbl4a/1
tD6psxUuZl09+p+nfSn9+R5mm1/mC+zshTBi/Z/jay7JWQyfEPOR2DboBVrD
tK99LP18CBbbeUthj92t3PEQte8gNgYvWm0tsJ6Ybegb8Krp69Cznpfej1ns
SEj7Xt69Cn5mLo7/NbzJXDb6Fuxgbi9rXng6J2vuwybm0tDn4W3r2wZX18n6
Xthj+pm8hfXPY9nL3mhMtH1HX3ztCemNIulne68EOGh3JXc2wLqXUg9c5Glv
y/c3SB0b0b2w2/aSPWcYl+Gfhiesx2p97V3p4YinMRLbAc9hqfLtw0RHtZxz
qdUjdSXYtybfXNzqj0ldVlsfXGXvLu+/0v4bKwLNl205+622ZFfnZM2SQHtR
+mEOJllfpfh6X3Jv457eu+Rohu1Ws9QesX9sKnxu9UhdtXb2OnjXeqkL5ts/
RP4l/wFwU8Qi
         "]], PolygonBox[CompressedData["
1:eJwtlEtIlUEYhqd//v9kF2gRlZdaVBSEUGZYEAkZFtSmOhFBi/LS8uQplTIo
I5GQNl0XqceisDJtqSURLU6LiEA9CYG77hsjgkS6uOh5+WbxcJ4z/1y++Wa+
Wd2QTTdFzrnDEEOHd+4lv0NwEe9JOdcNgzAEX2j7xbdP8AFvpK0BmqEF+iAX
xmjsOCxmgSXwFt/NmG7GXoYavIZF18xzbimsxSdp+8e3aXiHVzPmG98+wka8
HurCmlpbfdR3CsbwisS5Lvq2Qzl+lT5z+G84j98ljnL67oBR/Ia3sa/hOj5K
n2cwDCMwAI9Cm751pGwuzdmJ/yDmk3gbfMf3eMud9qi9FiX2rQPm4w+95a4A
D7ytobXy8AquEFOpsxjv4ItoWwjLYHk4g8EQk2KbZc4J5n4DP/EzjClyNkcX
nrBGK14PHi+Ba3g7FONpYt7A2G3QhJ+ACrwaLuBl3vpqTBXeF1nuFF8OL04s
18r5JryZthJnMbTix2KbS3PW4be85Vo5H8a3hnju6w56Qz4CWfxrYnvTHmfw
x95ypxzm8c5wX9XWj6/3dreU/1pvMSpWxdSLPyWGI8y1D27jc7Qd5VtGdwCf
jixXylnM+AUhf5pTc/+NLB/q/wdf4c3VVqp6IMZe5u6Hs/gpb3vRnjL4JGP2
h/PQWhPhv3I6hs9GNp9iehLZGVSHeNvxXGyuPfThPeG/+pzD94b60h2s94Zc
Obrk7c4Vwv97eFtisSrmFvwgd+oApOGQajrErzO76a0tHWpQtbglnJfOsFL1
l7JaVc1uT9mZ6+xV47vwbGx3TXcugz9nzRf4MIzgleE+lsFm/HS4L4pBuRxI
rK/GjCZWw8qdcjge2Z2aCu9HAX8f3ge9KTN4KtwPnalqIx/qUW/aZ7w2vEeK
+XhsNafaWwmroBDuh9bT2a2L7e3SmJ14VWyxaw+qrf+if6/d
         "]], PolygonBox[CompressedData["
1:eJwt0b8rRXEYx/Ev996jMJEf5UdZTQZltEhhcS02g83gR2STWX7vmFgMNrJI
ukJSuvwFlJhMUuKS17dzhvf5PH0+3/M85/ucrsnZsZnqEEIrCvjxKFeFkE9C
qEUdHvMhPOAU47IT+oIp9Tet4BcdzrajE8+yblrDb1R30QISXOMKN1mPJ7rt
bEW9Tnexl6Q9Y+8/LMsafduRuqguZT1ir01sYCvLDumSswfqNbqJLQzo+crr
p6MoJqkf820cy/bpMIYwgh3eBO3Finowy+KZd3OmeeVsP3FP5/wz3l3cIx7w
mbNXu22QN6EZl2aXcI96P+CCzvP7vLua3SfeayH6mMOXbDFJdxh3+abvh765
fDonznvEbdxpIZ0T57WgjddD/wFbhkMm
         "]]}]}, 
     {RGBColor[0.9121995785873653, 0.6504989464684132, 0.32781869362083244`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlF1oz1EYx39+v///t4QLVjPmbePG/2bKxkpomFBbmTYumNnykrJpLySr
SbjzNpvW35aXIcyWxP+OKYWUl2mtEdlrs1DScGHK5+l8L54+zznnOed5Oc85
6WWVhRW+53lHkQA5GPG8nEmeVw1TkKnov1h4i1EB691wnPEEei98ggygd8E3
Uc97in0P3I20oO+Fg6z9xGYAnodtyHXkPmcthnGYwVoVug9zkWb0PHia/R2c
0wBrGSeYPwSzdVYaHGLtJTajsJvxB+YfwHrkEfrxwPmJIalaM5tGeFk2x+B8
8p3BOT7sDT1vOnENwa2Bi3cbXKKaWG3iiv8UvOS781tgDZKEXgULsYthnw03
EF8Dej6chdSjp0VdbpZjY9TV4CRSrTolVKto4OZCOMJZ+y3fiPO/QrlVyJf5
/Ezcyfj/AvM9d3dmN1N+zf8R7Daix+EW7L6ib4Z7kB/o+2Aza8XoCfgOKUP/
Dp8hJegd8DaSh34m4sT0KvjKd74TcFAxW+ydSCH6PVhHPnew2QnL5XcXDJSv
5X3D+g/9ZuDiszjXwX7FYLF0qQ/bYKh7tjtIJs8abP5h0y6/5r8ycPUtClyv
W8/XwhO+21/tuz22dxheVQwWSw/yDb0PPsfuAPoEnKf+sT7qk817uJBxOvO5
EZen5bsWxs0R+1pD1zd2h60whXEv9lNCt2Y252C33tdjWKA6FMGQcwP0JLgU
mYO+HP7WO/0DZ9t7sPuHk3X+NPha79redyl7Mpkvibg+tPqXIqsC15OL4HbZ
7LDa676sX/r1xocD59tiyIGb1PNZcFzvdAQuYM9H9IzQ5Wnx/GX+k+/izOKc
JuV+JXT/gsU0xvis3ksdvMD8C4sVZqq3U2EneyLY3oUx+ZoLD+tfKodtOsfO
G1VsY7BfdbZ6P1TPW++v1D2uhiPqbevxJsVw0eosX5bfNcVgsRTrD7G/pEQ1
sdrk6a9bH7jzSvVWb2lvu70F3a/dc5H6dhksUy72167Rvdgd/gepRrjL
         "]], PolygonBox[CompressedData["
1:eJwtlEtIVVEUho93n3ud1CCFDMtAq0FOKtKUpELFoIENjKRJ0WMWlPkcBYZp
jdUKsaLSiMyCCDSFBEWhJ6VgklFkPug5iOgxadD3s9bgx8+z1957/WutfXOP
1lSdTERRdATF+puKoh9pUfQN7YPPohbUitpQHcHpxK1C5+G2hDFLUSv8BdXB
h9FneHWIona4GWXDBcFY34rgDagN7kKlcBMahJ+gi/DuYGt3dCZ8C03CH9EY
XMLF21EZKkc56B25z6CV8P6UeZGnQ3ATanRP8rY8ZbHakw1fJed8zi5BD+ED
3HEzspwa4RY0ElkON+AF9qwgLhN9gL8mzHs9CsFyVu7a0wxPsb7X66PYS8G8
vkUDcJn7VU12Bqux6qucLsNbuGOze5b3Iq+vcqwO1iP1qgN1ogZU757lXZ7k
TTm8hNd7/dWzPDgVLHd9U29WMRTLqM0atBVeQMdVSzQHP42N9W0enk5G0Tj8
DC3AZ7xeqsFpeClpa4qZg4+hK3CHzoSLY7srX/MHvyDn5+gNmkUFvq6cNsO/
g/E/zv8Fv0bfvZ5TcCMxxaxXoHZ4kjNe+Zk6uzJpdyuHo3CCmAw4oBiu83ns
RTXwhWBnq2ed8EFiNhGbi3bA/ZwZ60Gh7pT1VPHKaRou93lQj9VreZRX5Xgq
tjej2ahES/Cs+5G/P3BpbHfpzrLY3oDewk80B/8NFquaqHfXU5aLcuqB02Pz
Jo958GKwvfoW+H+Xn6/1tbHFZLi/dfC2YLXQzBXqbt+vHEbhQvejHqlXvZ6f
3kuPapkwb5rBAc02NW8mtgFlwouxseZJs3bP56sK3YWz/PfjBHrM/mH2DKFH
aAQNquZoHE2krOcVvr8fHkTV6jUagOv9/anH6vWE7x1FY/q98/3qT21s30Z9
hjRLyqnK56sP/uTvQx6ipHme9Pd/De5mfU+a5dAF3/f98qi3NMyZQ+5BXmp9
flXTk7HVTLXbiB7AM95vzYhmv487b3tNVJvY+60ezbOeE6x2quF79p9L2Fn6
jdFvuXJW7upJFvwfwP/Hng==
         "]], PolygonBox[CompressedData["
1:eJwt0C1Lg1EYh/HjeBTWNC/NaNl8+QTOsBWDWQxb2JIGBfEF/ASCPLowWLNM
0O5AV2wraw8KJpusGCzOst8DJ1znf3Od+z43nHLzaO+wEEJYxiLajv5CCKfy
HBd4XAoh0TSQzxhik9/AFlL9dfnBv+MLK/ozOeP/8I9MX5H7Vo/Vv/FuFvfk
+y7x5O46dwmHA1S4fXlrPsUNgh1deRdn7uUAD+jwP1xLHuMEPfMN7iy+m7+/
yn9ya7KKdbyaf8EIb+4mssZvYwdTbleW+Ct1Jf5F/idzXtItNg==
         "]]}]}, 
     {RGBColor[0.9372663389012842, 0.7131658472532103, 0.4055256505939808], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1lEtI1GEQwL/9v6KgawZlD+sQBIVsWKmVJFYHKyqSgkzwUofIBNeMShZ0
pQ5BpVl7KSgkxA4ZaVhrbJHikhBBEL1LiNVDhw49FMR+w0yH2d/855vvMa9d
Wd+w/6TnnDuB+Mg0P7NwBo4FztXFnHsZqIg+Dr+zoQ6fSVgcOTeBvQheYW0H
egKGrC9CCpAazroKN8KnyFf0m3DCzsxBh3joMfiWtR+Y3vu6R/ZugG2entkA
O+2uLriLyy6ix+Ec3wl0D/0Zb1qA7wvYjPzC3gRbOSvDOefhfL5fY5/Bf73F
EoeN5t8CT3HmWvQDcDNSiF4GU57G1wGXclYPehO8huTQmyVG1qrRx+EZ7uhh
bytczloj9hh8xfcw9mH4hu8P2AfgJfM/C7st9v85WGO5jdk5eex38RvAvy/U
3EkOP8Jbcgf6bVhmMUrdhsy/F9ay1otPha85ktiPwyf2tiz8zNpPfL7ADtam
sV+INB55ZxLu4TuPXhnpuXJ+F0yw5xF7D/maR8nnJviAd5dKvPC0+bTAEsuz
5Pu39eQ7GFifePBvqLWbDbV+ok/BxawtRP8j+ffVX/YdthpJrW5YjdKwINSe
kabdzvd11EpYjrSjr4JZi/0bTFrskoNBZB5vH4p0v5yTD7T/RPdhsfVnSai1
lFwdg/229zEssrtW+xqPxDIH9yKd6PtCnTeZuylYb/bdofaW9NhDOGo9PxLp
PMi9S+Re3lSOnoYVVqMqmLJY2uBBq0tNoPWQugzCczYvSV97SHrpDrxsMyiz
eNT6R/ooZ3N9H25B1qHXwozNvvwHxK1GUqt+T/s5DTP2foljGWsr8NkGt1pd
pD5HLBaJ6RO+SeyF2PvsPfI/lLW+fQ7bbU5TVifJ+b1IZ0xmrRtWWz4l31WW
n53wHy6fqU0=
         "]], PolygonBox[CompressedData["
1:eJwtlE1sTGEUhu/c786VSGpJaESLhURiUyna0iY2FrWRtEjoJBbsNA2qC2QS
IrFFp2rB0FiIhPgbwTQsbCSakpT+oUzL1MLCAimReN6cs3iS997vO//n3voD
3bsOx1EUtUMCQ2kUXYfbcAdyIYpu8r4MJ9B/4B+6JhNFyzEY4nmU50/wDH0R
mwvQDwW4jPN1nDXBPXQt71ZAHdTDZ2x+cBbjr4LemcUefQ52ZM2HfBXhGmQS
uyubj8FiKraen6O7ibEUjWnUg570fL/DBPp+bLkop7voAu+m0S+hHz3j+chn
Gd1MvJXEWw8dieVQ9B6pV7cI9JCzYXiK7sPmkfu7hB4MphWjpFyxmYF5+JZa
D9VLxWhEV8mph7s5+Ipu8/4PQCv6NDYL3P0Jvei/3DnP2Q3Yy/n7YLWq5gX0
E+4s4s5iKKM7oQO6NFvlEFssxYy5/4Z3r+EVjMB+ctpArBbYl5iNbA/CIcgH
2w3twFX0FZ+HnovBGPX9OYVuxUddxnxuTSymYp+B1ejfwfqh/H+hH8S2m5qZ
Zrc7WK2quRO9JpitfKxCbw/WK/VMuzvi9qrxC/qk56vzrmA1qtZJmIJNPm/l
0IAe9P3VThXQS7hT4zusXZ5j5rNQhXno9XlrB44Fm2HOv68K+khsu7lMNaP3
+L6oJtU24fPTvoyhS76vslctmxPbReWoXMfJ4R3MKhfoS203tCN59IvUZq8d
KKW2g9P+PYyjt0De+6ldmvJeyKd8n40tV/VA3/Kcx9IOa5ffUsyY90C9GM7a
t6Bv4jG6gTsVdBXa0Ed9fqr5OHqtz08z26b5pXZXNs3oxqz9C/RPaM/aNzDg
+9KC3hgsd9Xwgfz+A/9KreY=
         "]], PolygonBox[CompressedData["
1:eJwt0c8rw2EcB/DHbBPFdaHYXB3kH3Dkpii7qpXNyY/Ywc1FcVCy/QtyoI2D
owOlHBQr/oEV4w9QnHg9fb+HV++n97Pv9vl8V6psLm9kQggFcrTzIbS4ZMDF
tfxz0ekLYdB5mBFKFJmi625GHvLrfCAbNFnybENXkWtUaWZDmNddyBZt9vVn
umN5Gp9hTl/UTcjJeOZT3+Mrneknl/TxPhPpgrzX3zo/y1feKOundVtyh10+
eKdH3d2fHPPZUcY50s3Kml2qrPOt25YL9JwX5QrlfLJL3OmKVXeP2WSXuFOT
G915+h7i+6ile+/lknniXPX0/ZzIp/R7uumccd4HvzPkv7mTL3TozyXzF9LZ
4w7/4io8pQ==
         "]]}]}, 
     {RGBColor[0.9623330992152029, 0.7758327480380074, 0.48323260756712916`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlE1sTFEUx++bN/NWFAsL00U7acRGIhaqkwrddcEGRRuCSINqom3S+Exp
2IgV2s60RFMhCFKk0pBaCYl+CsUkDEKaIdIFu/qo+p3c/+Lkd+6555x73znn
vtSepk0HY865BiREuuLOVQfOZeHKhHPt6Em4F7mMvhEexvEhvq1wXuRcDvsC
WML6NPYyOE78buwv4DrWGexVsBO/Wexn4AnWE9j7bF92239OzGb0u7CF9U/0
ffAaEnDZ67CDe/Rjb4fnFZuFDfJvhL/I+4/8eXifuDT6ACwgO9G/GtkbQm+D
x6QfhzWcvZw8tbAUWYS+Fu4i7zT6VnhUNbHavGQ9n3zPYCt+afOBG9g7i14O
z8lu+7XKXwc/E7eec0djvgeLEcxuiJhBfG4n/Hl2bnXkN+0+dq9e1cRqU69v
txpcUB+tn2tUf+tDn2reC9+Q9yk+T+AcOZqxT8Ep2W1/BhlF/wZ3EHMTn0r4
B78O9LTNApJHfwS7kRH0I/Cv6j8Lb6hf1reumP/GU3BGPuZbrFkqinzvbQY6
4QrWH9BT8KLyXwq9n/nPkfOkatcMa1SrbTBJfBF6Mdyu+9t3PEZ+oH+CJcpf
BpfI/zf2L5oTm5fV6mMa5vBbiO1d5B+N1c3qV+F8H23OMqyXwR7YEvP9bIKD
qlUPrAt9Da2WA5rPB/Cqenol8jnNbrnuaB764X7N3gG4SnezOyb1ZsOE/x77
rqXwI2cF6AEXqVes5RjW3L6Ck+r7W3tT6lcGBsgh9LjNCfGN6AU4ojdub31c
eewdfNfMTMMK/SuycItmvjLu4y3PGBxW7e7BlP4hpaFfm70b5lQ3q1+5emS9
yqsX7+Et1cfqVNAd7C5x3T+Cr+Vvcf8Be8Sorg==
         "]], PolygonBox[CompressedData["
1:eJwtlEtszFEUh+//ufNa2KCpiYWNjXhEg6QWKmFHkEaUiMRCohYyWoLShMSq
UWZaookNDQmmaZpGy0o8OkUiQiKoYTwqFixJPL5fzln8Jt//3nPPOfece6aw
p33zgTiEsBGl6Dw/W6IQNqBeeFESQjfrJbQG7sd4MdyEKvDdPIRx9AA9RBE2
B4OdaYTLqfmSzyF4ZRbCWbgLLYWfsbYb3o+m4So+N3F2FXoMF1lr8nzOweuI
0YzWoxa00PNTzADn+Cy6/wZ4OTbL/IzOKoZiySbK7I7yrRg9qeWoXJXTBJxk
5kv2MVz2+89FF+CT+OxCp9EZtIAcrrLXi1rh5sRqN4h2wlW/r2I8Ss1n0e//
j+/b+LiFKmgIjaE7XmPVejv6ju1PtNdtKm4j24/k1BashjV4m9dvCdoKt6bG
WlNt13p+qmEBfkk+99mros9wp99nVD2RLWs32RtB1+F7rE2x9wONw5fRU3gM
HYFfk9Ns8piBnsDHEtuTzXH4UGK+FUO1+41m4vsv37/gU7HVGgwn4Fn4eMX+
W9QIP8/Nt2K80PvjThF7cyJ70N1+Xj0rwV+8PnoveqtTieWuM+/g9tjmQGd0
tsH7rze7Au7H5g17E6gP3pdbL9STXfAnVEfvUS23ng96PdrgG5nVTjW8Bhdy
u4vuNB/+k9jdVYN5JFL2+ijeRfhrZr1Rj+rwpcT2lNOo5k0+9LbJfUBvxvuj
eqs3A94fral3qz0/vQG9hUmfP9XoA9zh/pXDYfhKbr4VowQf9X7Kxw54OLb/
BvmQr5rXYhp9Q32xzbb6oVma9HnUTGg26rH1RvH1ljs50+Ezpln7D88AnuI=

         "]], PolygonBox[CompressedData["
1:eJwt0D0vg1EUB/BTqhMiMZoMNomBSMqMReIl/QRiIiE2XTAhNh/AJDGWqUlj
QbxEjIYn0drYLLYuLb+bPsMv/5tzz73Pee74xu76Tl9EjDLARCnisxAxJaeZ
oWajrnYr77inS4c/MnuD+g6tDziipnYuG/0RLfdm8oMmq+orrHGhb1NuO/9r
vSf3qXLCMad00n3yR++bdTv/fppjrhhRZp5Je5Vib8Y06wOPau9yTH3Yejbv
T+de3PnME0Me4lWW9Z7pW87nTPNu5bNW839M/9rUO+JMJr/45oqC2qW85oZF
FlhK86f5Sr13SO/Rout92vIf+Zw5yg==
         "]]}]}, 
     {RGBColor[0.9873998595291218, 0.8384996488228044, 0.5609395645402773], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlE9IVVEQh4/3vntpEVjhqnyaC9u1iaQyWrSJahFhDyKtTbWqyJ2mUfLc
RO0sX0+KtgZBWhqUikpEUEkEBSVIf8QyS7NWEZXPvml+i+GbOzNnzpw5c27N
0eaG01EI4RgSI42ZEDaWhdAEG5IQutEPwIOym7/E90v0BbgzDWEGfTNcmbrd
/Dn0OfRd8A6SsEkvnMX3GPtry42tlj2vwAHFWGwe+UlMW+pi+snU97C9amE1
MoleDi9TUz16C/zDIZbJWYJj+FaQcxy+Q9agz8IC/m7kJvJXZwnY+/FvQe2D
h2EzcgSpIyZPTBa+Uf2TcC37laMvsdeo9hqBw3y/Zd0IPEdcLzF52IXvN/oF
2KkarJZK5a+ClcqZha/4HkN/CO/ynUMfhB9U3xPRatwb3Gcx9zJ+fuvDMmxV
f87Ar8gp9HnYpdo64Jzs5i/y3Y/eAwvSzdZErmFynoX7NRvb4ELqPbHejKvm
R/C4Yiz2lvJche2sf06eG7GfzeL7Eq/D6jmReC+sJ9WJz4jdywZkQGcswinW
L2IbgoXI/cXI58nW5OE1fBNmhzOR9+oj/EzNFXAefte9XIStmrd2uBT5DJTg
F/XnRcbjLP5S6mews4zGvqfVUIF80rxNwY7IbZ3wve7M7nBH7Pe/HU6rNqtx
Wmstx3lo7/P/I419btbDGq21HFuRIfQ2+Es9sd5s0nupg6v0XlbDB5rP67As
8XPZ+W7rDQ7CH5pne0NZ3UUKn6n/dg9PI5+7CdioPt+H9fiqiFkHd+s/sAcu
Sjdbi2byEPym2qzGnNZajn2aH/sPFXW/PfAfwXKlow==
         "]], PolygonBox[CompressedData["
1:eJwtkz0s3VEYh4//VzpIJGJqEQY2o1DtYjEYReJ7aXRgwCYhodfSuYmLICxt
bQiDr6RL03A1FhcxEBFNSaNqEmnL9fzynuHhuec95z3nfc/5l7/pb+oLnHMv
IYLv/Gjkfxec46nYuc95zi1BGp8NndvQPGjHcwIvIF5MgtdQildBC75F/JT4
DZziD6HN1Zr/oZHz8Xu8DMbwNJTjr0LzBejU3qHPBet4ijNW4EXwDl+EGmdj
4/iPwGrphxzeEdnZ6mAQfwws1gln+K6vXzmW8JLIzquaVNtkaLWrB7V4qT+v
cjwEtodcY47YjK9fa6bxOhj3ca3NJs7twwEcwhTrK/3+y7oYxdn7GH7j1XCB
X8ENvgox857BbWI9Vn/U0386W2C9Uc40PszYJr4HQ/gAY4Hv3yjSFllv1KPW
yHqqmOaM8GeIPe6I/YU/+Fvohh7ohR3YhgzsQiu0+Dma+wuKyFMI575m1X6i
s6t+mIQ5mIc132/1cDO0nBnfs6yfo7kf4RP8TCy39rjEX/j3qDt8HllNVf4+
m/H3idWimlL4VmK9VE9XVE9gb0NvQm/jiG/gG3O/QBZvSOwudCf1+ERs34q+
mQ+x3WGNX5/BCxK7S91pfmJvWm9bd9KBf40tt/a4Jv4E+xeBxg==
         "]], PolygonBox[CompressedData["
1:eJwt0D0vg1EYBuBT6dtYGUySRvAHJOLjH1gMNGEWQ1vCyGKw2gjqB9BBlEis
dBIiQWJq4mORSKNmgxhcJ85w5T55nvOe855nYGF1ZqUrhNBHxlQhhHYuhJKc
Y56GxgmnXOk1ZUaeAptq/bLDJ188qf3K/XwIe9QoqZ3Li7S+k/c8MOSeQYZ5
1xsp/Ndj/5FltbZsOfPa+iPdFe/csvdHbVvWOKBKhSW+9dZi3d4z6+P0nviu
WXbVFmWZCuOMMZF606ke+1Xqahuyx5kt62L69/iGIw6pkxlsQ77ywjO9am+y
k96US3OM8yymWY6m++N/NO3t9s2lvOGWdd9O2reTZhtn/AduTD1G
         "]]}]}, 
     {RGBColor[1., 0.9098931834977297, 0.6747997190582434], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkk1IVFEUx2/X994mEC3CkhkHbVJUKj/Txj7QFs4snCg1xSnFr0IX03Lc
KM42txouIlfRykIQhFy4FRE3EbTRtoFI0DbTfqdzFn9+/3feueeee+6tnnj9
NO+dc09QCVqNnDu74NwbuMyPO8Q+wc8og9+DV9El/BVYYV5i31hTCr/Caa/+
pUn8K1SLEtSvgw2oC98IF9Fl6hThTOjce+L9cCNwLo1/Cx/w7yP+IQT/95U1
N/keJHALPkO/8UNwzc4iZ7pva6XGoOVIbs5rznP4Ank0ipKojPgNWCMDwl+H
/egEPwD/oiK/qhhcH/6IeNZmlnY6L+kxaX1+Ie8IbsFu8rbI74H1NgeZxzWv
+ZVwj74vwl24HmlvH+Ck1/iU9SrxMa99SD+pEt1besjZncn3rtWStTtw3uYs
894JtZ/1UCV+FbZEeq4kHAr07u7BQ/b4Rc1tWIh0nrPwj8XlfyHQc+VgE3uO
45u9nlnqP/J6r3K/c7CV7wK+DQ5HOucMPKaPffx3eGpeYh3kLeE7YSzUtSG8
y/cKPuW1lsTb4Qg97dPbOzht9WWfpJ2xHMa93lFCaoT6ZorwIND+N2G1vQd5
F7FA38k5NbOh9QPTXvvMwAV72/LGs/ZOHsNey5Hcn1Zf9klZ/13wB8qz9szr
2eQsx4G+dXnzt73uJ/smQr0buaM4/Adj4moJ
         "]], PolygonBox[CompressedData["
1:eJwtkztIXEEUhmdn795GEFFUYnxkcbVRMY2iaDojxojo6kJcFVQU1AQtlUAC
W4aUMW1SiZ0SVhAUbGxE7FKkcrXSwkfEVnx8P+cWH+e7d+aeOXNmbnJmOb3k
nXNtEEA3D79izm3AG7wWjnlfgBr8FfzHHeNJvBn68Ay04K3efBpe49UaZ3o7
vJSHzqWJw3CDNxG7YpZDueq95S6BFN7gzeugEa+CFFNKoRL/Ro4scUx14R3E
78z9CZ14ube5PLqKaE2tPQRt+Dp4/JEJv0OrUbVqjRf4X94VE4vgCD8kvmNs
HM70XdySqyf3+Gpge9GeVvB8YP3Quz94LmG9VY+/4CMJc9WbxgussUDeeTjB
67z1XvnV+x/R/lXjGp6DsqhejV3wzUfiIpyHhlw5lfsWpvEpyIfWM/XuA3zW
XLijlmuYw/fitrZq2MVrAjsLnUl1YDWrdvV8EH+K25h6ot7sk2PG25paezuw
u6GeqDebUb/V0y1cl1Gfa09f8VFvtaimDD4bnYXOZM7bGegsluBU5+HNc/Cg
u8OaA8T3yoPvxG0vutNZ/B819zL2Fq5CQ94DB4xd8vzJW0/VW+VQrn7dU7zL
2/51hvp3JqK7pDs1Cc+ju2JN
         "]], PolygonBox[CompressedData["
1:eJwlzzEvw1EUhvHjhi4SIVbRmDCqlMGAEFQIqaHSDqiBibGJb4BZ+AYmk8HG
YLUKC7MQi1nE7587PMn7vOck99yR9nH9KEXEIHpQLUVsKjbw3hVR4bfY5TtI
uOFn+DNv8SZO+QN65X20cc9PsC038GO/w1899CQv65bwwmv6b90Wr2OFD5Ty
Det8Df282R0xJo+ibNbgn6jwCezpPvgXOvJkyrNiZ9g7U3I15dkQv8Qcn8W1
7oJf4U6eT3lW7DxiUV5IefbA39xzyA/Qh2ceWJVrKf/x117L2zPyeMq3F38o
68910ynfVNz2D2t1K74=
         "]]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{622, 638, 640, 641, 659, 660, 686, 687, 714, 712, 736, 735, 
         766, 765, 798, 826}], LineBox[CompressedData["
1:eJwNzCtLgwEYhuFXdGbtHhD8BYKw4A9wxfAtKLMNDBq2uCEYjNqnC4JpcUEm
DDZwwTIWLDK0bFHFbx66Q73CxQ1PeNaK5aQ0ExEJV7MRBdp06DLih1/+WJqL
WGaLXQrsU6HKBTe0uOWBN95JyWR8sMIqWXZIyHPICafUuKROkx73TOYjnvSZ
lClh+2CBRdbZYJNPtsmxxwFHVDjmizPOqXNNgyYtvrmjR58BjwwZMeaFV1L+
AcnxMy8=
         "]]},
       "0.18`"],
      Annotation[#, 0.18, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{624, 639, 642, 661, 663, 664, 688, 713, 715, 737, 739, 740, 
         767, 768, 800, 801, 829, 827, 860, 859, 891, 890, 925, 957}], 
        LineBox[CompressedData["
1:eJwNw0ErgwEYAOB3+eyk3C0taf/Awm4uztJXuGoHrLipneTkPMVXlJMcJGmn
STs4iZIyuczFgdryA3ZAe556ptZ3lrdzEZFaH4mYM/PEU1ve2nXgr39OJBEF
K6auuuauhx6Z2fTJZ1/smRuNSMw7adlZ512y6oZb7tnw2EuvvPbeju9+2/fH
f8fyEeMWnbbkjAsumrpi1U1r1t33wIaZZ5574Y1N72z74KOvvvlh1y8/7TsE
YCQxVQ==
         "]]},
       "0.16`"],
      Annotation[#, 0.16, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{625, 623, 643, 662, 665, 689, 691, 692, 716, 738, 742, 743, 
         769, 799, 803, 828, 831, 832, 861, 862, 893, 894, 928, 926, 958, 956,
          991, 990, 1025, 1024, 1056, 1086}], LineBox[CompressedData["
1:eJwNxatKgwEYANBvF412L2VPICIMhsUiK4IoODQJC64pwsBZZEmMwoZoFMPC
wo/FoAYRFGEaDGMwDIYh+gZekHnC4eTK2ytbqYhYo5CJ+E1HrHuKKrvUOOGU
S3r0eeWbH8azEXkKzLFKiSpHNGiS8EiHJ94Zkh6JyDDBDHkWWWKZTfbYp06D
Fm2uueWOLgM++OKPIWOjEZPkmGaWeRYoUmKDCjvUqHPAIU2OOeOchAuuuOGB
e154pk+PAW988g8TyzSR
         "]]},
       "0.14`"],
      Annotation[#, 0.14, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{627, 644, 645, 646, 666, 690, 693, 694, 717, 741, 744, 745, 
         770, 802, 804, 830, 834, 835, 863, 892, 896, 927, 930, 931, 959, 960,
          993, 994, 1028, 1026, 1055, 1054, 1087, 1085, 1117, 1116, 1147, 
         1177}], LineBox[CompressedData["
1:eJwNxT0rBAAYAOD3OMpg9tWV8w906pTRYmGgQzcYrnxMKO4Wo4wGH2eW7aLL
Qt1guLpFKYZLbpBy6dwfoEye4elJF3YWtxMRkSfVG/HeEzHlLMussEqREmUu
uKPJGy1++GU4GZEhyzRL7LJHkROuqXLLI5980SH6IoYYYYwMc8xTYJ1NDjjm
lHMq1HjgmSZtOnT5Y6A/YpBRxplgkhlmWSDHGhtssU+JQ444o8wlV1S5ocY9
Deq88ESLV9p88M0/t9UzSQ==
         "]]},
       "0.12`"],
      Annotation[#, 0.12, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{628, 626, 647, 667, 668, 669, 695, 718, 720, 721, 746, 771, 
         773, 774, 805, 833, 837, 838, 864, 895, 898, 929, 933, 934, 961, 992,
          996, 1027, 1030, 1031, 1058, 1059, 1089, 1090, 1120, 1118, 1146, 
         1145, 1178, 1176, 1206, 1205, 1234, 1261}], LineBox[CompressedData["
1:eJwNzr8rxAEcANCPH2cxKi4yWC0u3RmMl8nmZLhF3d1+l/smJdNlRpiUyXLC
Rt2gSykGg24g48X5D84glDe8/c2Ua4XqQEQU+R2MeGRiKGKSKXIssEaNOglH
HHNNhxde6fPF+HBEhiw5ClTZoM4e51xyxQNdPujxx1gqIs0c82RZZp0KW2yz
wz5nNGlxS5sOXT7p880PoyOOTDNLhkXyLLHCKiUqJGzSYJdDDjjlhAuatLjh
njueeeKNd/4BhVwyvg==
         "]]},
       "0.1`"],
      Annotation[#, 0.1, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{630, 648, 649, 650, 670, 671, 696, 719, 722, 723, 747, 772, 
         776, 777, 806, 836, 840, 841, 865, 897, 900, 932, 936, 937, 962, 995,
          998, 999, 1029, 1057, 1061, 1088, 1092, 1119, 1123, 1124, 1149, 
         1150, 1180, 1181, 1210, 1207, 1233, 1232, 1262, 1260, 1288, 1287, 
         1314, 1339}], LineBox[CompressedData["
1:eJwVzD1LggEYAMCntIbGQCqIwLmI1DnahGgRCVrFWdJsaQjc+7LagtYIXtoq
gkZBGgQJ3YP6BUEgJBFdw62XrdbLuxMRscPbZMQdI74ZM5+KWCBPgW1qNNjj
gkvu6TNgyBez6YgMc+TIU6JGnSNOaZPQocsL74z54ff/mYpYZo0im2xRYZ8D
jjnjnBseeabHKwM++GREejpihgyLLLHCKutsUKJMhSpNGrQ4pM0J11yRcMsT
D3To8wfiqTBV
         "]]},
       "0.08`"],
      Annotation[#, 0.08, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{632, 629, 651, 652, 672, 697, 698, 699, 724, 725, 748, 775, 
         778, 779, 807, 839, 843, 844, 866, 899, 902, 935, 939, 940, 963, 997,
          1001, 1002, 1032, 1060, 1063, 1091, 1094, 1095, 1122, 1148, 1152, 
         1179, 1183, 1184, 1209, 1211, 1236, 1237, 1264, 1265, 1292, 1289, 
         1313, 1312, 1340, 1338, 1365, 1364, 1389, 1411}], 
        LineBox[CompressedData["
1:eJwNzD1LggEYAMCnL2kLqaTG5pBsDweXFkNMWqKI2hxenZqCZkGp9oYWKRpa
WlqlMgKJ2gvBXxAEZuDSDbfeylF9uzYRETvcTUYkPNLlhS+GjPhjcSoiQ451
KlRJqHHOBff0eOeDH+amI+ZZYI0iJcokNGjS4oYOTzzT55cx6RkHGbIU2GSP
Aw45pkGLK9pc88Arb3wy4JshI1KpiFmWWGaVLBvkKbHFPrvUSTjlhDOaXHLL
P3yKLgQ=
         "]]},
       "0.06`"],
      Annotation[#, 0.06, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{633, 631, 653, 673, 674, 675, 700, 701, 726, 749, 751, 752, 
         780, 781, 808, 842, 845, 846, 867, 901, 904, 938, 942, 943, 965, 
         1000, 1004, 1005, 1033, 1062, 1065, 1066, 1093, 1121, 1126, 1151, 
         1154, 1155, 1182, 1208, 1213, 1235, 1239, 1263, 1267, 1268, 1291, 
         1293, 1316, 1317, 1342, 1344, 1368, 1366, 1388, 1387, 1412, 1410, 
         1436, 1434, 1457, 1477}], LineBox[CompressedData["
1:eJwNzL1KQgEYANAv82cJyhKcm0KI2xjtTmIONhW2ODRYGEE01Rok2NADBBJU
1FSDexTkYD1AIj5D1tDYGc56lpuH9fZMRGxxlYo45Y4HHnnljS9G/LIwG7FE
gYQ16uzRYp8ulzwxYMgH38ylHeRJqLBJjRbnXHDDLfe8MGLMhD/mMxGLlFgl
ocwOuxxxzAkdrunxTJ93hnwyZsKUHzLZiBxFCpRYYYN1qlRosE2bA87o8g/B
cCss
         "]]},
       "0.04`"],
      Annotation[#, 0.04, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], 
        LineBox[{634, 654, 655, 656, 676, 677, 702, 703, 727, 750, 753, 754, 
         782, 809, 810, 811, 847, 848, 868, 903, 905, 906, 941, 964, 966, 
         1003, 1006, 1007, 1034, 1064, 1067, 1068, 1096, 1125, 1127, 1153, 
         1156, 1157, 1185, 1212, 1214, 1238, 1241, 1242, 1266, 1290, 1294, 
         1315, 1319, 1320, 1341, 1343, 1367, 1369, 1391, 1392, 1415, 1413, 
         1435, 1433, 1456, 1455, 1478, 1476, 1498, 1497, 1517, 1538}], 
        LineBox[CompressedData["
1:eJwNw71KQgEYANDPn1yiP3uCFonortEq4RBCUKtbECmBQWu0FpGLDyCIqNQW
1J5Ncn0CA+kRIomQts6Bs3V6edLMRMSRN9mIa9sOffTJke9O/fDHtVzEhkV3
TTz2zHPrPtjy2bGpE79dzkesuGrioVXrNrzwzp59B745deavC/9cX4oouWPZ
AyvWbHrlrfd27NrzxVdTJ878dO6XuUJExk2Lblty3z2r1vwHoDIpYQ==
         "]]},
       "0.02`"],
      Annotation[#, 0.02, "Tooltip"]& ], {}, {}}}],
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{
     FormBox["\"B\"", TraditionalForm], None}, {
     FormBox["\"Rb\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.8, 1.3}, {4., 13.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.614835772580688*^9, 3.614844657341671*^9, {3.614847357540248*^9, 
   3.614847389822153*^9}, 3.6148594264344387`*^9, 3.6170017192611065`*^9, 
   3.6181459920809436`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataprod", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"prod1", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"interprod", "=", 
  RowBox[{
  "Interpolation", "[", "dataprod", "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6148281708926964`*^9, 3.6148282107554803`*^9}, {
  3.614837779845897*^9, 3.6148378501947765`*^9}, {3.6148384406003942`*^9, 
  3.6148384491394463`*^9}, {3.6148385235482244`*^9, 3.6148385283936415`*^9}}],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["InterpolatingFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open$$ = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{
                 GrayLevel[0.6], 
                 AbsolutePointSize[5], 
                 PointBox[{1, 1}], 
                 PointBox[{2, 4}], 
                 PointBox[{3, 2}], 
                 PointBox[{4, 3}]}, {{}, {}, {
                  AbsoluteThickness[1], 
                  Opacity[1.], 
                  LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
                   "]]}}}, AspectRatio -> 1, Axes -> False, Background -> 
               GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[
                 GrayLevel[0.7], 
                 Thickness[Tiny]], FrameTicks -> None, 
               ImageSize -> {Automatic, 
                 Dynamic[
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0.8`", ",", "1.3`"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"4.`", ",", "13.`"}], "}"}]}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{
                 GrayLevel[0.6], 
                 AbsolutePointSize[5], 
                 PointBox[{1, 1}], 
                 PointBox[{2, 4}], 
                 PointBox[{3, 2}], 
                 PointBox[{4, 3}]}, {{}, {}, {
                  AbsoluteThickness[1], 
                  Opacity[1.], 
                  LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
                   "]]}}}, AspectRatio -> 1, Axes -> False, Background -> 
               GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[
                 GrayLevel[0.7], 
                 Thickness[Tiny]], FrameTicks -> None, 
               ImageSize -> {Automatic, 
                 Dynamic[
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0.8`", ",", "1.3`"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"4.`", ",", "13.`"}], "}"}]}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> 
        Baseline], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->(
    "InterpolatingFunction[{{0.8, 1.3}, {4., 13.}}, <>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.6148385386329145`*^9, 3.6148468774368396`*^9, 
  3.614860755674203*^9, 3.6170017193601766`*^9, 3.6181459921119757`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"valBRb", "=", 
   RowBox[{"Table", "[", 
    RowBox[{",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb", ",", "dRb"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxi", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", "valBRb", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"minBRb", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Rb", "=", 
        RowBox[{"minRb", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}], "*", "dRb"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"difp", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{
              RowBox[{"difp", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"difp", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"interminBRb", "=", 
  RowBox[{"Interpolation", "[", "minBRb", "]"}]}]}], "Input",
 CellChangeTimes->{{3.6148386859123273`*^9, 3.614838710315628*^9}, {
   3.614838746085993*^9, 3.614838850885316*^9}, 3.6148389471675634`*^9, {
   3.6148393057708263`*^9, 3.614839325890091*^9}, {3.614839426018084*^9, 
   3.614839434412034*^9}, {3.614860663385769*^9, 3.6148607034951873`*^9}}],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["InterpolatingFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open$$ = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJxFzHtMUwcUBvArajEilFfLlVpbLCu0bOMh4AzTcxQm0hBQFPBdIjjwgcxR
5kCt06GWhAELjFJTOzRKfE5hiBoHMQpTnK5EQKm22jGRtbelt3WCIJuvqPck
X778/vhO0PqCtA1uBEF8/jpvGjLEOo3GAsVSgwdBhOCNo/L5cqMFNIvoAktg
CK4xyRuvBlthq2zHAf0KMU42iMlVeVa4o9mveFL8EW5KlfvqTlpB23LMK0oX
jPfPrnu022WF8tLN/z1+IUJ5d3D9TzEUXLywp9M2JkKHuXF2kpICVic54zEp
wriN51ad6KAgqW7HQIVkFmqbi4rmTbHB6RQxj+02C6dYJ2QXLLGBZ+r4sL4m
CMv6lyf0VtvgWqSnJK5BiNfTp18a7LWBKVVSvW1UgOxfjxJ1fDtof850ryKE
mN89HLczyw7STJWoc81M7DWxZf8ft0PTpJeLhwf5OLb+IPUxbYeRr6MO3BDO
xOhT1HeVUUOQzg1ZHZ/Ex2LTREtlyRDksg89eTbCw+47/QntrUPwiUA9UN7P
w8+aVIW1LAfc7jssLPULxJXT6mM4KQ4YCKvNfu4eiJUSJXW9ygHm8qBLZY0k
dkWIFKTBAV/aWWmHzAFYvSvx2xQvGiLbzLKwQBJnCGOJ3HAadCsyJXMvBOCp
OaptKctomKM5k/39GAfbz7Ua9QoaImK3tx55ysG/dRmRQg0NxNvjYpbsuP73
32i41t4T2iTkYm6mKdf9IQ21eS0qOoyDCkORhevmhGWyRUblX37o0erMuSJy
vtv744R1YumVBMbjhW19FXlO2NiYxltL+uNeau6ekTInfFFaQTa0+aJnH+kX
/osTtL1dbC+zD4rED3RE1/u9L6ojMxShTidIpqlH93n4ondT9GwBxwWCTYl5
OOqD/jXD1NlYF0xdmP5cleyNfIpXwV7tgoclP3bIe9hY+nK0uEPpevfPG78p
uizn1DPOzzJ/Gt3O2HH6nxHbAGN9y4mp46ynH9wc8yfrvpRxMPfu+NJkxprN
C4x1XzHOV26YHFvD+A/XltD884zDjfeiCw2M+SHiOL8XjH0G70n3Cv794Oyc
hTmJ8YwhvkrdkMM4SL2guUfF+Ifkuze1JxmXbN1/89Ytxq8AE2N88A==
                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0.8, 3.2}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> 
                  None}, PlotRange -> {{0.8, 1.3}, {3.9786982951185186`, 
                 11.552562234955348`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.8`", ",", "1.3`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJxFzHtMUwcUBvArajEilFfLlVpbLCu0bOMh4AzTcxQm0hBQFPBdIjjwgcxR
5kCt06GWhAELjFJTOzRKfE5hiBoHMQpTnK5EQKm22jGRtbelt3WCIJuvqPck
X778/vhO0PqCtA1uBEF8/jpvGjLEOo3GAsVSgwdBhOCNo/L5cqMFNIvoAktg
CK4xyRuvBlthq2zHAf0KMU42iMlVeVa4o9mveFL8EW5KlfvqTlpB23LMK0oX
jPfPrnu022WF8tLN/z1+IUJ5d3D9TzEUXLywp9M2JkKHuXF2kpICVic54zEp
wriN51ad6KAgqW7HQIVkFmqbi4rmTbHB6RQxj+02C6dYJ2QXLLGBZ+r4sL4m
CMv6lyf0VtvgWqSnJK5BiNfTp18a7LWBKVVSvW1UgOxfjxJ1fDtof850ryKE
mN89HLczyw7STJWoc81M7DWxZf8ft0PTpJeLhwf5OLb+IPUxbYeRr6MO3BDO
xOhT1HeVUUOQzg1ZHZ/Ex2LTREtlyRDksg89eTbCw+47/QntrUPwiUA9UN7P
w8+aVIW1LAfc7jssLPULxJXT6mM4KQ4YCKvNfu4eiJUSJXW9ygHm8qBLZY0k
dkWIFKTBAV/aWWmHzAFYvSvx2xQvGiLbzLKwQBJnCGOJ3HAadCsyJXMvBOCp
OaptKctomKM5k/39GAfbz7Ua9QoaImK3tx55ysG/dRmRQg0NxNvjYpbsuP73
32i41t4T2iTkYm6mKdf9IQ21eS0qOoyDCkORhevmhGWyRUblX37o0erMuSJy
vtv744R1YumVBMbjhW19FXlO2NiYxltL+uNeau6ekTInfFFaQTa0+aJnH+kX
/osTtL1dbC+zD4rED3RE1/u9L6ojMxShTidIpqlH93n4ondT9GwBxwWCTYl5
OOqD/jXD1NlYF0xdmP5cleyNfIpXwV7tgoclP3bIe9hY+nK0uEPpevfPG78p
uizn1DPOzzJ/Gt3O2HH6nxHbAGN9y4mp46ynH9wc8yfrvpRxMPfu+NJkxprN
C4x1XzHOV26YHFvD+A/XltD884zDjfeiCw2M+SHiOL8XjH0G70n3Cv794Oyc
hTmJ8YwhvkrdkMM4SL2guUfF+Ifkuze1JxmXbN1/89Ytxq8AE2N88A==
                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0.8, 3.2}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> 
                  None}, PlotRange -> {{0.8, 1.3}, {3.9786982951185186`, 
                 11.552562234955348`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.8`", ",", "1.3`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> 
        Baseline], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("InterpolatingFunction[{{0.8, 1.3}}, <>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.614838947415742*^9, 3.614846877786096*^9, {3.614860684189499*^9, 
   3.6148607042917557`*^9}, 3.617004959633301*^9, 3.6181459921930237`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"norm0", " ", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"fs", "[", "x", "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f3z", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"fs", "[", "x", "]"}], " ", "/", " ", "norm0"}]}], 
  ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "Rb", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Rb", "=", 
     RowBox[{"minRb", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}], "*", "dRb"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"sol3", "[", "B_", "]"}], ":=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], 
            RowBox[{
             RowBox[{"y3", "''"}], "[", "x", "]"}]}], "+", 
           RowBox[{
            RowBox[{"intertVlocal", "[", "x", "]"}], " ", 
            RowBox[{"y3", "[", "x", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"interVnl", "[", 
             RowBox[{"x", ",", "B", ",", "Rb"}], "]"}], 
            RowBox[{"interprod", "[", 
             RowBox[{"Rb", ",", "B"}], "]"}]}]}], "\[Equal]", 
          RowBox[{
           RowBox[{"-", "0.398"}], " ", 
           RowBox[{"y3", "[", "x", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y3", "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{"f3z", "[", "0.01", "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y3", "'"}], "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"f3z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y3", 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"root3", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"y3", "[", "10", "]"}], " ", "/.", " ", 
        RowBox[{"sol3", "[", "B", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"interminBRb", "[", "Rb", "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"valBRb", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", 
       RowBox[{"B", "/.", "root3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Rb", "]"}]}], "Input",
 CellChangeTimes->{{3.614581240613504*^9, 3.6145812487583*^9}, {
  3.614591382755723*^9, 3.614591468924819*^9}, {3.6145915079284735`*^9, 
  3.6145916567680273`*^9}, {3.614592376294972*^9, 3.6145923956797166`*^9}, {
  3.614603923127122*^9, 3.6146039232542114`*^9}, {3.614827995704945*^9, 
  3.614827997236411*^9}, {3.614828160141672*^9, 3.6148281609385557`*^9}, {
  3.614828243570775*^9, 3.6148282661194143`*^9}, {3.614837944740814*^9, 
  3.6148379693082314`*^9}, {3.6148394830044875`*^9, 3.6148395005008955`*^9}, {
  3.614847125423669*^9, 3.6148471258189497`*^9}, {3.6169997532383633`*^9, 
  3.616999758789304*^9}, {3.616999795441324*^9, 3.6169998670781827`*^9}, {
  3.617005469340152*^9, 3.617005473211901*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`Rb, StandardForm],
  ImageSizeCache->{14., {0., 8.}}]], "Output",
 CellChangeTimes->{{3.6148382848379517`*^9, 3.6148383142057743`*^9}, 
   3.614846877867144*^9, {3.6148607428361015`*^9, 3.614860759155653*^9}, 
   3.6170017199195557`*^9, 3.61700496521124*^9, 3.6181459926533327`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListContourPlot", "[", 
    RowBox[{"difpcontour", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.2"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Rb", "/.", "fit"}], ",", 
        RowBox[{"B", "/.", "fit"}]}], "}"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"valBRb", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Rb\>\"", ",", "\"\<B\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6148611941671085`*^9, 3.614861227130481*^9}, {
  3.6181388914546185`*^9, 3.618138896205231*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxtnHk8VN8f/yNtFGYfYzALY6mkQoTOEUUlSymUShulFClkS5aKilKyZSkl
kbRIRRstCu0LSQuK7MvIUuQ3fX8/93yc+fnH4/l4v++ZO/cs99y5r9ebu2Hn
ss2SY8aM6Rw/Zsy//0mJ//6awJj//VHhaKZjzMSYhTEbY2WMORhzMeZhzMdY
FWM1jAUYq2OsgbEmxlqw1e6WckTLCJMxpmJMx5iJMQtjNsbKGHMw5mLMw5iP
sSrGahgLMFbHWANjTYy14DzpygxPk2bi+oxmKsZ0jJkYszBmY6yMMQdjLsY8
jPkYq2KshrEAY3WMNTDWxFgLHiv5peEcg67PaKZiTMeYiTELYzbGyhhzMOZi
zMOYj7EqxmoYCzBWx1gDY02MtWCdP/WyRe0Iy2NMxpiKMR1jJsYsjNkYK2PM
wZiLMQ9jPsaqGKthLMBYHWMNjDUx1oK6s//9tRDXazSTMaZiTMeYiTELYzbG
yhhzMOZizMOYj7EqxmoYCzBWx1gDY02MteCBlv8tWMT1Gs1kjKkY0zFmYszC
mI2xMsYcjLkY8zDmY6yKsRrGAozVMdbAWBNjLVglWr2kK9H1Gs1kjKkY0zFm
YszCmI2xMsYcjLkY8zDmY6yKsRrGAozVMdbAWBNjLajpHCNa0VqJ6zWayRhT
MaZjzMSYhTEbY2WMORhzMeZhzMdYFWM1jAUYq2OsgbEmxlow4N9y5o+u12gm
Y0zFmI4xE2MWxmyMlTHmYMzFmIcxH2NVjNUwFmCsjrEGxpoYa8HnFf/+0PUa
zWSMqRjTMWZizMKYjbEyxhyMuRjzMOZjrIqxGsYCjNUx1sBYE2MtqBLxb0Fr
I67XaCZjTMWYjjETYxbGbIyVMeZgzMWYhzEfY1WM1TAWYKyOsQbGmtDL5N8G
FV2f0UzGmIoxHWMmxiyM2RgrY8zBmIsxD2M+xqoYq2EswFgdYw348N92tARd
j9FMxpiKMR1jJsYsjNkYK2PMwZiLMQ9jPsaqGKthLMBYHWMNSPu3/FDbiesx
mskYUzGmY8zEmIUxG2NljDkYczHmYczHWBVjNYwFGKtDN9d/f+j7j2YyxlSM
6RgzMWZhzMZYGWMOxlyMeRjzMVbFWA1jAbyt/G+BQN93NJMxpmJMx5iJMQtj
NsbKGHMw5mLMw5iPsSrGalDm3+O4dAfx/UYzGWMqxnSMmRizMGZjrIwxB2Mu
xjyM+RirYqwG/7e9ckbfbzSTMaZiTMeYiTELYzbGyhhzMOZizMOYj7Eq/N90
vIy+z2gmY0zFmI4xE2MWxmyMlTHmYMzFmIcxH2NV+H//dxLfZzSTMaZiTMeY
iTELYzbGyhhzMOZizMN45PkAnf9oJmNMxZiOMRNjFsZsjJUx5mDMxZgHl/17
mrVD5zuayRhTMaZjzMSYhTEbY2WMORhzMR55vkDnO5rJGFMxpmPMxJiFMRtj
ZYw5GHPhuX+Puxno/EYzGWMqxnSMmRizMGZjrIwxB+OR5w90fqOZjDEVYzrG
TIxZGLMxVsaYgzEX9v7bXv1C5zeayRhTMaZjzMSYhTEbY2WMR55HuojzGc1k
jKkY0zFmYszCmI2xMsYcaPlvubRA5zOayRhTMaZjzMSYhTEb45HnEfT5o5mM
MRVjOsZMjFkYszEeeR+GPn80kzGmYkzHmIkxC+OR5w/0eaOZjDEVYzrGTIxZ
GI+830KfN5rJGFMxpmPMxJiF8cjzRDfxeaOZjDEVYzrGTIxH3k+h9kczGWMq
xnSMmRiPPB+g9kczGWMqxnSMmRiPvD9C7Y9mMsZUjOkYM+H/bme3UHujmYwx
FWM6xiPvb1B7o5mMMRVjOsZM+L/LKy0k2hvNZIypGNMxHnlfgtobzWSMqRiP
7LfR8aOZjDEVYzr83/IZgY4fzWSMqRiP7I/R8aOZjDEVYzr83+WoRMePZjLG
I/vZHiJ/NJMxHtk/ovzRTMZ4ZP+G8kczGeOR/RPKH80j+xkUH80j+wkUH81k
+GTXy/ueRUgvMKInmPMuc7WJJRlSNRfrKEg2A/N9OrF1u0jE+3TjifC1UgoJ
Kh2rGHzq1wysAiTeMY7KE++TB200XoX/lifen95jek5qXycPl9hIeHEfofen
I7/3VS36LCe8rAk/51Cn+Q+j30cz3OZlHdko/nvg1uYP25581YArem7vOZTS
Bny/s47d8Ea/j7mz5EMfKGjAgl/b7N2ei/9epNV7N3mDszq05lLD00zEf09h
j/sipX9BAJ8ddDReekP89wfjbbP8ygfUoE9p2OTXd9vBVZ3vt960o+d3vv+C
+MLlanCoo3PbfV3x5983b07vPJOvCvfJRymuiO8Au450TqJboOfJYc2dg3y2
KuS7a/kE3BV/PpN8MOltSyQfxhhsCzAlnifQ80/t8OXsC0M8uO/HpbeFmp0g
a/OEFTp/0POGQ2TKFBlfHrzt9+bmMV/x/f2gfszYF7+4cLykcWFfUCdwEk7M
v96K9tdPG548urSXC2fMPeEnJ9o/Or1zs06TQvvbLo3GXW6SXGg067lkxnPx
/WXFOHplcQwH3lv1Q8CmdYGaQw2T5Y3Rfq/HcEg1jMuBplnuSjuniu+/yI6h
4S07VOBEWenJt1Z1gVTb0K1jySrEfsXnMVf1xVllKHdLOswjVnz/Mmdz3yHr
L0rwWn/yt9KULuC4esOhu+VKxH7gY17gMjJXCQrsQ7ZO/NIFBN+NPp7KQvuD
DZ1hMo/c2TC6q6NxqtTI+o3u5+TFCjXkIkXodG9mewy7G1zVjf3Sn6RI3D8n
PHwNr5EUYYRzkpmhUzc4ENA7K/8cup8en6hU6rSDBRsd/+jVhorfDzOH57x4
9EoBppwaG51+shs4qr2V17ynQNyflEpdra4ZKMDHjbbJni+6QcPlI+4hLeh+
pRXBSfh+ngn70iU2hE0QguaMlgIaD91/Zhxt0eUyRffLGN/py0ni9xPb6hMZ
OjEMqO+vsE4bCIHbIdPVxu4MYv1PaDyi90WaAR9WH7zJ8BEC39efIyuL0P1g
97K59X1RdGh08s2BHZeEQOnhTfckKlrvee9bVa3l6PCl5y8fw+vi6/l+3/Uv
rsfToNrnOP6FWiHIva79cGUA7f/Njx4wEBnXOsSnwU3X9e7Z0ntA2l2XAtkm
tF5XfHp4fmw+Fb47R5t4cHEPyPDuYm1xRutzacoWxVQLKlwqXHclz0N8PZ7S
xbHO+kKB0vp7z6kF94CQGqqfZiWFWH95fKuxw34UaF544+zEqz3guhtHlrqa
Qqy/J68vuRRCpxDr5fumKFrwdaTnMmEemTmVR4PKLoxSya/iejVTZ68JCoMM
gi3SV34e/4EFzUpmvGi/K65Xs/5udL0nT4lgjZPHzLvMObCOPNRmdUFcrzZV
P2zGz6tcmDG5ih39Tly/pl21h/VVGeXP9N8y7sNhFJ/FXt1Z0a8G6392/zlb
L67Pun919rkxi9H3NXCBTwrfaEDVw9tpz980gY1JCnODk6gw8YDPQE5SE3im
/0lj6QCDOL7KJsxztai/Frg/SxpHQXqbkfiu+CdyiYooX+brpLwP1QpQcZrx
q9b8JrC69WDznBVKRPyCYKk1NYkNYVriiXgW0t+MxE13HGuzcxKtL5fydo7/
1gS44/7UtfCRvq29eusTi8lcqGLwfNz1LnH9W1GwzKmGbTzoq71wboUy0ueM
xA/xcjdHlPPhDNaQU/e5JjBD9llmVA3Svzk8sdZTnaoG+Zd3fmMMievjOqfE
vlvfrA5tvJbnmV4W17sVzaKcdk2nQMOe1MwV9s0gJTL18k9PCtyyYowwRbMZ
GDabvP4eINqPFk/g2vQ2ARAe43X8jgJx/F7aXzfLhXTYGH3WXNNJXB9n0P9z
tlYr0sf1Vr8dlolVhOHtzoGLNJrB0ulFBbrhSA934+698rY5ytD6Sc5AylJx
vZzhq3fljTs40D6oyuPUXnH9XKJp2dWqYtH9KFn6/km1ZnD241+tmMVIL9d/
7X78Myofnl+nJdWxUFxPt1L1RlChmyqcNUe70Msd6aGMV7i2k5WawXm9MZWq
m9UheeHGlZVS4no52oT0RaenqMONua7TTswX19vt9oubcdRFAz5Z4zbfyUVc
L1U7dXrTYoEm/Djv6rXlfHH93QuP8pLrbWToM5/5OP5VMzjnouG5ZAvS430u
EQTuFa13ZSZxeclHmsFbk+TeWSQmvDOur8RoXTPQZvsFlU1TJPJbGKF6YBIT
GmS9WfQgVlyvN7j9c7tUPAteSLmWF1Airt+TKTHIKlNVIliRcXL9sWsqcEqM
wOjBrmYwEKJu4eaE9Hq0At8pUzlcaEk7UDw2XVzPd9pFrXmKGw/6P1hp8qBY
XN+nKvP2SWcuH+7LPp/a8VVc7zfbRTukwEgAhdIL3oELSK92iEo/eTdAXL9X
JF3jnBiqDn3NUhavLEb9NRI3uxFpGPhMAyZXMOfAj6i/RvRZS3xcTYd8NeEP
ueL0T5JIX3R1+3y33CvN4GpV+txHM2hE/47furQ83wzpASO7WsYfLkR6QDn/
qPnrZzIIjpXUDJ6TpQDLnEy7yj40g6po9dOHTdnwbqDd6dPZzWBrvuSM3BUq
RD7zcOntKSpsuOiN83TtFnG94GmK66/6OGV4XCvlSu0UpFcaiZOsQ5lrDnDg
K989D+dNQ/qlkbh9rJ3+02KkJ4z7wLGfPYT0hKx192Mm7VaDHiSOWjIZ6ZVG
4msyonN35wmg7mkv270aSL80Ek9vXFP+tRnpvW561vnuv68JL+YPtTWcRPOB
tohuN9OyBZjd1H1cHkgi+kNqdmnsjzMk6B0QbeQ9qwX4Bj4uz5Oiwv3lg3E1
jBbAnnhy5edspB/cOimD1ChJhbttmDFhukgP9nzLi5i2AVF/demZCDcrEPkv
vgYf+7mRDmNJkUa2zuJ6RL2CVXLNj5hQcq1xuX+QuD7x9BH96BY1RYIlNpKn
tB1QItjNsP1we6MKvLRFJgRSW0CTY83OAhcuJJt+47+obwY5uvUvFfuRHrFh
wuZxfqpc2H7TalLaQnH9ooLwzaN+ex60mfy9pWONuJ4x+Nlls983kH7xaj57
bECDGhTUXMgpn9ACZDxPHMw4qA6n37GR7mlH82ck/0daVMkfujpMJbdpAGNx
fSPzcP/+QAsN6FM/J1DLWlyP9n4jr+HqkCbU4T76+1YS6dGUpP9a6txpAa9h
xZw3F5De8X4yh1M+gUTwsOEHGUl7CuT7f0mak9sCssJJfpvGUYi4cdXhPoN0
GsFBPqb1O1sZsDqv92mxdwsQ6v6uDN/Ogo9kdPyPOIniBcullskrEfmF1L4X
mQYsaCgnf18lEen/mP5RCZuNWkBHeOr4xxUqRP7AtUuFn8PZUCFxeGHeFXE9
pYHdhkzqa2V4Sj43ifVYXF95p0/m2floDuR//B7W/0Fcb1nzpGFecT4XThvk
Txsf3gJ+H5Yr2D5WFeadGXhet6wF3GtYbvznNNJTKm4+rdUvun/N1J6fcez/
o7801PVNp6irwS8Opxi6p8T1mE5jl9FnLBXAiXHly+zPo/l6yY7+NnOtuP5y
75tpRxZ7q0NG1KMP/Ovi+s3EMxMkXRM1IOnBlsKK+2g8jOjrTKYsk4njaEJo
eifii4e4npO05E5T9255WDZ1dtm50y1glTaU/72dRsSr33zvc8olw4vLXhcE
q7WCjUUbJ2XRyNDeh75oVlQLCDg9++aCbwwi/9yqKeOLfyD95446PaqGMorP
cV/Li1mpQLBk9wGd3mhFgsv25s1bU6pEcKxEldWjYRXo2X66Q/9BC6g/pbfc
3gLpPa+Yh+TS2Fw4caXOpm0N4npQ34qsokB7PnSkOJ7dOQbpz0bizvJ351/x
FO2nj5UYB8sgPdpI3NT+9bP6I2rQ+fO6+ftoSJ82EldL+GHLuCiAavzxPvHK
SK8mnZ3huKtcXB8qUzNQufixOmwo+qb3Q4D0bCPxdhXZdcG1SP83IEjw2+Kg
CZl325JnfUD9p/g36zVNEen/ZkWdaIrSQfo/nXljN1aL4iuLptJa7JC+tGFu
fPYeWTJMf3JwphqpFcS77oyqPIn0pubF8zUHZlOhsYHz/CBTpB/cExNqMmNc
K3Afjrmf8BXpUc9ZtF8IdKLDn59fv1plg/SFZCmXwjt9LeBUg7r3udmKRP7Y
F4mCMfuY0MoksvTnKqQ/nPyALRn6swXcsqnY9TZWicjfaL/gfJjoeX2q1FBO
3iakT9yw+uwvJdH1qjV/9iBcND5G8kuqO/kTytjQgc2QJHmI62NV1p8+G9Wh
DJ3nF1jZ7xbXyxYLM+QPRnFgepiEdt5/9KDE8f42MdJXkF7W2uS8dUUJ0ssG
jfkzJfo90stefmj73OYn0st+OZB5hPRHAENKVwW8km0Fsbbhwfl2aL5OWTy4
5O0UDTh+/pWHm7WRvnHfjG9PLGtaQPy2sNjTHUjfuO7v4eMXDoj2X3HavHcJ
rcDoo7PWG3MSMX5klxUrfvdBXG7KbNoQRYF+U3OOV8S1AnudWK9iBwoRj5q5
s6A2hUawJfdJmMtVBsETSEp2Xx8pEPxozG7ltVWKBId1lrXUtCgRbPqNe3u1
qH/CjV7cT3JvBVIHkrfUzOJBqytDnUPrWgHZsHHHeHukn/36tfHiNAoPdr9j
MykRSD86+CdznNryVhA9baX1tECkr73ncEK+lc2HS84uytwVieZ37L19kgvN
WkXzX8fgcS7S355+Oc83R6AKWaurwIajaL4fg/c0p84QrZc+R5USW5E+N9Ci
+bO7jhqcdlujvuuYuJ531f04c625Ari1b2qm9kk0/yf75JLM9MT1u4ZzTHOa
zNRhtexcR368uP5XIa+VdHGpBnQ45/WnKhH1/193y1mJRuj32v3zHpyVlm4D
TntfHDDZj/S/9sFmT4wa5CFPcInmG9sKckhHbsWL1vORuNxrnt6hn2S4mHue
vWlyG+ju6LOK3kWGMpum2JVGt4Lb1tsXnA1jEPllfMlz75qp8OieDP7lKNF4
Xz//DEhRIOLhPrVkbpto//aa95F5oBXM2NBw7fttRSIOnz3Y79HBhCETNSZ1
hrSCurLHT/jVSkR8UDG983YXC+466DCWHtAK/LvY2wr+qhDxgh371o3vQfpj
z+K1L5b1KsNXeW/TfNhILzkS331d9sOeIC482fRF242K9JIj8VfOwVNOB/Og
XaufuwwJ6SdH4trj281L9vHh/j2RAmlZpKcciR/JWxP4M0QVxkaVv1whg/SV
I/Emx+fXZUPVYF93+5b6iUhvORJfKGnSohsmgKpbBT0XxyP95dC1Xo7DaXH9
8rmcS7zV4epw2reesWelkD5zJC6xgr1qf4QGFPqWuj2WRL+/v77UOONcqrj+
2ceticZylocTq2/tsF+E9Kw2+1ll/aLv+86hWt5jA9I/T7yqUvx7KRkq7g6v
eS26Xqu1Hq1Jt0V66KTfK7Z/AlRYc+VMjso8pIfNesk5+Ft0/bXad82uM0Z6
6anmRxh3ZtIhbZZLSI8u0st2Tlh3IoTZBjbKtrvWCJCe+s7RkpLTfCZUEP49
YDsd6Wnb5Eqm7hH1vx877DJfFumtrSv7PYJoLPjibqPfR4G4PtvLffOjeQNK
BH/jzFBYO4ENr+VHVVtzxfXbz/5umRLSjvTasXypjZ6NSK/tbJl2y+Ub0mur
esyVtfuI9Nptx99vNH2D9NoFBZ63Z5Yjvfa+TzJyvEcCaLj7RKusBHr/MhK3
GHNhE/muOtzyMq4xdqe4nltWbX6hZIEGXL0oIdNmK+p/3b0nUjL2tYHgxQI3
07MkuP953IaVDuL67vDyvTuXF5IIfhLCGwo7TYE/JJ3axh1sAy25J3pYuylE
fLx+eVR+MI3ghS3ezB8uDIIPpbMzaWYK0CR1i2c+pw1I8neZJgiViHjZisez
F4qe10ZYWmZHsc8EJah1sWubq1YbWPvyUvu+TxyoyHjtZa3TBl7EL6uRfob0
308K17W3bObAddO+pAmuIH30aQVyI39OG+jf2fg87zrSh7vSdPWkHLgwc3L2
+ksZaD2YEDUQyAdtIFtnt8LVJKQfH+85MZBtyYOXgtumxCWg9aF4RsD+dMs2
8Fh63TbpIKQvv1BWU6JryIfLz8QlZUWj9ULuXU+AvH0bWNZ0NtDKCenPLdSu
TlqqpQptjz6ZVRiB1o/dvUceKm9oAx+CGmvWTUf69MZ9EbabFdVgYc2Nw+eD
xPXsh6qd4oMmo3xNPe0vcUMCONv4vdDKR1zvXhojqXa5XR3WBaVZFXW0AePp
iutzfyB9e8Ic36czp5PgjXdWHayYNpD4Yl1WvCmNiOd4V6RuHEOBpl/lmCV/
2sCVitNNoUlk+GazhPFQfBs4a9ZnSfr3PuL/5d/L4+6Je0uFpuDqQMUZ0fG6
2xvvVSA9/OsWnyWlmXR4SDe0aqoc0g/XNtzdePWSqD+UUmxzDiG9/Hf1Cu7A
Xia8WKWX1vILrQe23sxP1bfagNWMC4IsY6Sn79vI7ddayoKtUbXfj34T199H
pFLlpHhseItvG23yQlyPP43JDXjwRIVgFa0ijYEKpMfXePqDEluA9PgzXeWH
tdKRHt9Iyqj5YSQfmvKOSnyQQfrkkfiCs5vfO3uLxlNsi2b1IBoPsrqT6sy9
24CDScbdp31In28Njz345awGI9ilGUs60HhQq+r1fCkaT0dOD96rvIv0+w5f
CnOiFwqgTNLM1P46cb2/S+CPU+o66pB+kN99sxKtLy6T1NKN17YD9wgmY9xs
pPe//q0h0ChTHvYzONLb7JAe/NPO2/oNE9vBT6kBzfWWSP8/4Fuylb4N+QMi
MveaVfTQCAZyqSu7ZlChbVFy0sTp4v6BZyYrdC7cZhAs915HKTRYgeCV2ydL
rzFThBLnvh6WeNcGBueVreiNVYFbteqHL9S3AX/FVWNOJCC/QH3Sw3ryc2XI
OvY+Zt8qpDdPG3N+2Fs0nkhr2ft/uSA/ATXR5mevJQdeDi4t1jFDevSxr951
fJnUDn7/OrBMnYv8Bjc33V27aSoXUmZ/bEvTFvcnOOlMff96Csof+pOwBHTy
4Pn142iObHH/Qnrp+JJLb5B/wezEbgPWDeRf+LG27vLBeDX4dQX/2ca14n6G
Q1q2ar/2CuAJXa6k2VL0ft1H2t3ir0c7ODfvYnHUKxLxPv7dp5Wl82oQtx/S
ESqqyUOD199m0hntYMP3+ZY3OmhEvEg7KHn9CQpUu3Q73ju4HbCO3Dycu5UC
oaGNMF2tHehV28q9Ockg8s/sz9gZvpgGl2mbvErTawehqfu1PuooEPGD756Z
XZBgQPL8oNClFu2Azvc6troE+SN2qHcyym4xodfsN0H2BeJ+ihX+9NbWnSw4
vbK3hH5C3F/B28fwYVcpETzRO3LLijgVgvvrHJSNMznQUqXLa1ilHcwPbi+S
qEF+CvfJ2w4938+FlcYWguwbqH/jLSV/aBm0A63Pjj17jyG/RY1ecPfaNTx4
ecCqBZxG/dv5ALx0theNr8eO/WsMkB/Ddt1x504DPqzWZ0eHRoj7Nx4dOvdk
PxXlz7l2U4fSqQoLCj8sl/ES93dc/FSWdE6030hyenG+rKYdDNsUeE9hk2DU
JD0N/2Bxf0fv7clD4ctJMNNy6xaXY+3g14CH9/kB5O+4azSffWCIDNWOPX1k
1tUOlAJYu5inyfC44LzZQEY7GHwxR0FrH/J/RNz1NTp4AR1PK67bG/mHQbA1
yF11yI4Ou/2GzG2+ivtHvs5nJkadV4Bmj7Plm3e2A5W8d4zIR0owok5ugtqB
dmBxq+ZEgqEKke+xMKzyyAAblj8PsqCmidajmlPp36yRf0Tv6a3eoxnK8G2a
p0Zul7jfZFi1L6pUgPLrfxxnPf3DgXu732a+fi3uRynNnJb99BXyo2S7lRo+
O8+Dx539da94t4N7qRLOez8g/0m0xoZnz/z5kGzyYqnNIOpf++xIlZ9x7eBO
uVdK1DY1It+7adCxzEYVtr06X7a4TtzP4pAd/7NMVQ3OvaWS8qAMzf8CfXcL
zuIOQNLKMi3wRP6Wif0uxadeycM0mVRLtyXIP/GnN5lxcEIH2GTgdUkoj/wu
5fGzs6R2kOH15m8Zm263A9UFJcOLBxhE3L6yas+3LBrBMXPGx+ySoUJGiEy6
gzzyY9wM/fqB/bIdTJaTKT7spUDkM3xznK0XovY+0YPN7tQzYWlcZ9RuiQ7Q
6JCe3KiP/DPrV/JJCcqIBb2/+sbdUYIF8woT6mnIvxHoZqcgLGwHaadrbZ/2
IX9Nc9zTL95OKlBt6YkdyZXtoOOy98K5qchvU5n0vM4zgAOD9N9OUu4X9cev
JdyzBsh/c7tZ/4P6Yi6MvWjcds9A3K+TPDf92Rcmyg+KmnQ3rpEHZR/P8etn
ivt51lXvumJVgPw8UKsmY2yEKnyy6q+pmh3SI5lsLHBuWd8BSihHBseI1ucR
fVNkgXHyoe+IEzL7qwXL5SFznm+AhnIHaClaORgaRiPi/k9CVjfvocCAiJQ7
lv4d4H6Q+ubbZhQ4xyY+JEG/A7TaWtc8aUb+H/cPjxStJtCg5BfLgOWi8/E5
6WdSYIb8QKsbJtbkJtDhxBkKkbwL4v6hvONParwMmZCnHf2dsRP5bxQDF98Z
ZncAZz/tC8VRSkS+Nv09+62VIjxybsG9G3NF36eogiX/GvmJVAQKn3W/sGGI
wTW96tUdwFNuNrP3P/4iOf01Kad2KsPTG51UHcP/P36kjFfagf/J78/ulp3+
jAMzVUxeBv7HrzQZTBk2UuwAQ0m9od/LkD+p6xq14/NxLpwJcyNUTDuAa/z8
4CB75FdqKtR/Gb2KB80OHh4IjRX3N9WWOOYBPsqvLvOP6WzhQ/fH5JezPZFf
qFrmYseKlx2gfY9Kg0CHBFlLdOSsT4r7nz7+KfcscSHBVzZ3uddF8WnPOR7p
qcj/lNV5SDWhgQzpEkvltFs6gN7ttRxOKPJLLayWPGLWTSPY98eCKo/tVHjo
lHCBR5O4n4r28j5Q8GPAyMsfE0qjOoBmUF54eg0L0mdmH3PJ6QAGS6t8v8sj
/1T+LcMLj8JYMPhYWln0D3G/VVhu76qkSSh/+dnrsp4xSvChiefJ91fRfF5g
VcILDRJ9n9cuy5/FI/8VL96zZAFNBX4n9VAFGR2AbhnxV4OH/Fj9j+lFR5dy
4M3Jh+/y68X9W+vgr5N+8ij/aeHbHRvfcqFGxv30vFtofteolGdUuneAncZq
HOU3yM81Q++apfUp5Pc6lXeMZ+jEh8b2n6YH1qL+rLG7y8lX6gT3Q4pd848g
v9eEhycC3OrkodnU/Gn5bOT/2Na958AM0ff/8S6171QrjcjXLD/X2FZJIVjB
4vRVrTVk2H3ntb+9lCi+sGTMt2cUeOBcpRP3RQe4YxQYnTeHQeTPtclVuroM
tbf47Y3lu58jP9mLCoUdY3IU4DODMWrHK0TXM+Ve1W5TJSIevO7lr7smivDq
hhudvZ2i+eoQm9a/BvnJYuorp+6/xYZqOfNbolTF/Wfpbt/Wm89G+XktP+Mn
XFaB96q2K/hPQv6UOTUKrnvKOsDbGR0cuwvIj/btZr/r5pMcuChvxQGfXx1g
rrHu6TYOj4g3DQxKlNpx4ZZpWZa5LHE/W7eRRIqGHMofCBpnEFXBg0pSySdz
pJA+8wTQNO2b1gkcNwfatT0nEXrPBYJpKSs+Iq79Whg0c6s8dP4QeSGQ0gnC
Jj5+vXUyjYhnb0+5s3cRBba//CCfYNwJ6qpCp5+QpkCdTo03rXxRfMGYux3z
kB9O7rpsTcptKtTOvRXsO6ETGB3+Y5N9VoGIH2ctkPZZQIdrPr/4mjYb+YFW
Tj+l8YUp6s9n2VLqz5B/zujAhrnS0uj4tIq3Ttr+KC5FWbB3WbMiVL92atDZ
DPmHKIGckzEynYDZtdU8aKcKkb/FqSDBZ5USTNP6EvdbRdTenuWVXAPkv3ue
pn4rqUwZmq9bktNoLe7XU/Cu2LZOCeUvoUcEeL3nwLOLBxYtnI38SIL73spc
Uiewj7sk0XWSR+QH3TY5HHYU+fsuO/cmxS3gwUpJK43L81D/fTm+83vfBtH4
cjnq+EOLBJPvzFvVsFTc/0datUn69SoSnB1k4+Mrio/dqHw7ew7y/709rHXl
4QMyVDyQHKm4uxPkCxtLL9gjv6BjR8GfrCM0gk/d7VxRIKBC6WlHGJ3OyL9V
a/6i5+PCTjAxo+3w6igmvNCSkFcwtRM4BU/0OPlZkTj+0zIzi2hH5C9MDZ/U
FnJPAVYcylze6or8XvcrP2T+EX3fqb6hqwpakd/QpeBlrLcqao/3M87ANQrF
GxScvzh2KsFHBp56sjvQ/OwTNn7y1esEBktO1b65ivyJWUt44UtWqsDWof5o
XytR/vNtJVQe8ivemNdDVVnLgfcCS1PdvMX9jXEOlW5MEsr38SwsJD3iwmSV
wfpzDmh+Nh50eb4qoRMYrnnWfywG+R1TFr6wd6qVhxa6Pz7GRaP18WZE8/zi
tZ3ghN8Ro2PraET++rhjYy4lUgge9sjLDjUhQ7Jzrn9ZhOh6SERKpvii+MM7
Xivf/6JCzvJt6W+dOoHQsyRbK0WBiMv/6Rk+dZABdRlhEokeneDPGgWPCZnI
P9k0i+ZoJ5pf1WpC5uDyTvA5k/NUp0GJiC9e1Zvr74ryL+2vHHuuRBHKWf96
nHwczbfyeYdKNm0VzY8Ox5CT1ch/OeXiLafnyqi9Ha8S83r9UfxVn/84TqUK
LFsxXRgWi+bbrbWyjyw3dYJxOpn6hke5RH6i3OXcc4nIz7k4I9XxtgUXrpKY
uk/vBOqP/LeFvN3ZneDuxW9L7XNJhB69eOeb9173ET9WGC69vF0eXk9dku8k
6j/wwPpaagzye957fL5el0yB38KerqPf7QTRMTeWbXlEhldvOj1cGt4Jqg8q
986OYhD5VhQrpbwjVFjRc2mLfTGaPz/+eG13FLVvM3tn/uUY5Be9XqoyJVia
AaPGhwmjQ0Wfr81ij0tXJOJ5SkKW6RqUn+P9REPqigL8PUfnQGQhmk+GS5lN
K0XtX59rm1ocg/ymF54l6pdKKsLTbX9mBoR0ip4HZ8kN3lYh4hkqHuZRK1B+
2h64bGmWEjx05JpP3g00v26r7mCuELUfmGSj3mqB/KrJ5RQX+T/Iz1pxTFjQ
JEDxMqPPJktecaBwCbVF5hqaX1FnYt2Kv4rGL9vBS5ZCghPkt9wJLxf3u+6J
n2Nvu5BEcCLdyOzJRwrBExxuL5E5RoYxD6N9Kl91ggjvCQX+zynwZez79flC
0fi2JxteVSDD9ZvcgfB+J7BUsHZLS6fDg5uWqa3L7QQeDP/c6kMKRHv34ubN
MvZA/lnbFQ80+woYcPHMwqrpzeh+taV2+LXVw07gHSxx/74P8tPWUedzr41R
gH35X/QN8jrBL03OsmIvJSK++91DpsdilD/+5AJ5jZOK8HbSy1d3PqP5tPHa
rW8LSjuB1uI/B+gLkB83cXnphPrPbBhR+vOIx1XR+sCxs6HkIH/uNMqi4RR1
lH/vTVmvo5cKbHq8kpPyTtzfq7FI0Be5hgNXFL033dSB+meNwGBNMLULBHNK
dr3bh/y9fVtS/n57LXr+TjjcKDco7vddsqN93O/lFILPtCwIbSOT4bgmmfKv
E7qAhUpLXKwSBVZFuL5Vei9qzyd4ukwCg8hf5b9GOieZBhd55lEntYjWC6md
QbIHkD/YsrfxmAqDAQUqkwtZ1Z3gov+W5qtOikS82+8YdZojyj/9xyDBIFEB
XqRQdUtlkN/SevK8OrXuTjDHtd9bMB35iy2CaxUXVLNgwnuJv8Oi8UkiNzHH
yKsQ8a4xUWl2iig/KWwWf62zEnQYPy4k+Y+4X9l8/KdM9xTkV+44FKbl+0UF
+q+p0NajIb/Jysiw0GGNLmBXfoJzYB+J8Le86VM7nJKEWJDQpNa8XtQfs+Y6
ZP0WfV5Y1t3SEhoR3+ewodP2LRlazDwUbDqvC5ATnJY930OGj0+/KeHJd4HN
jjcDlxYgv7P33uFlwUY0GAsoOZ8kusDazTFqT7YoEPFwHwZnWxDKn/lheYSy
aD44v6vRWW6K/Kz+t0rT7yt0AVIwyFSdh/zSn/WONb9uZ8I+lcEXF6W7gJ/n
lU03fiP/dGRchU2EOsrX/TXxhoGLIizr6VnfrY78sCkWB0jGou9bFdKlSnqq
QuTX2i9gtSag9o7m79+X9loJDlb4W34F4n7tudR735dJq8Dt8QF/U9Z0gfmK
feRnbfJw4fpDE76Yifu1g6fUNnwTkOCY9ujak5uRv3ezQOOm/OwuQOdEyeZJ
0Ih8leD4TYfOkWFeysA8GdH5D1S83C6MZxBxvsui6PpbyO+9SrBdMaaJBu39
6lflifqrKe27nKcn8nsfb43OmstiwL1xZGetWV0g7jpjf/tkRSL+9NpVvYbF
KH/Y713J8QAFeP7T+8ufV6Hx/rvWOCFRtQtY940nhRQoEfn6oM/G5BLyk+8Y
x/r8s0YRrvnuMHnLf/zeE3pvCg1F1/NiYHhizlZlIv98ubH7ySmovU/H1/WB
ecrww9ikhzvt0fg2PLx63WvvLlB8fULVwioS1M+7HH3reBf45uU3MWgD8qd/
MM/Z5/WNRPByoZdTyE15uPO5NJTd1gUo/X5fny+gwoDVJ9coLu4CgYdM2y/W
0mDhSollO9d3gVazjmD5e8i//qlRqWL5LORvX2vo0G2+mgaHyicmWocgf3a2
RXQ/zaELGIVMWeMBFIj82qhjTP1w1N7mmmfz1HMZUC5orbPsKTT+v6231G1d
0gUSDHx39ZUpEvlN08duZn5A/vnt+4wPTxpWgH6Ly+/quHYBrc+xRamhyD/f
8WrP1d/q6HgvXl5liy2KC71/DtXsVYIXengzz4ai8d1AA60Ls7rAoh0tPpGW
JMK/tnfS64VPPRDLnNO6YWElD9sVDNe5iI7/blTgtIRHI+KK+ZnqDCsKdDPW
vELJEI3fI4M/IiMp8KdUj3bt3i5wo4Smt/8Ig8h/ZPjoz6I3yL8/K839aJmQ
Br1suqwVTojOL23OeTM7JlQdGO/0QHT+pe81LiT/VSDy06VIKktoDGjee94z
PqoLFOz9MZxUhPz9cu43r5TrI/9/0Ms1860cFWDqWYvnfy+g8b1yzv4i1/1d
YGWFTlWAthKR36or9a5iL2pvVVL25qXJivDB0SkDvJvi9QSeDtv2Pb/DhoLM
X1YmNaL1dqPEPYn78vDp6qCSrJtofRjx/9UVP5/sPCwPKQuuNXTd7gLJ6UuM
r2yjwkq92os/k7rA+K8h+RkdNCL/j379tYWi+1/Pw3TymUrReNkhiD/bT4aB
aykl56+L4nVTxm8pRPUI+u9Q56yzRvUK7Iv2J93YQoN19Y76Jz+h8ev3q6iv
/lIXyAtb5vZFVoHIv3K7fUgmDLU3+dbq9RtSGPDw+W+u8T/R+OU5TtBKOy+6
PrPO7Srcqkjkby14+ujWTVQP4XG+nobcG9Q+9/rZw5tbUX2EoKtyHUXj2fBi
t90e5iM0PodkT1+cNbkbXDavvXnADdVL8LTaNX1PnTz0dddvuvGmCxg/r2Qr
69OI+NIhu2sfi1A9hfMex0iLXlKg6tzjCnWi9uDFLQ9+rSXDswMvrh7q7AJJ
LzfZLS+mwG2Jm9O8n3cBK8mom9W+DOL4wc8vPG/VoXoMy62nvFLvpcH7zLV3
lETXI7fMbekRLSb8qWJQ+aq0C8zwKglaKnp+HcnPubdkRvwkBlxk/0PGrF50
/huWthi6oXoNY2dERY9XQvUcVqc9bdujowA16D8KVwrF6z1cl5uw9IcZOl46
ZMElewdFePm6oazbIBqfI37Rqlg39YdP5eH0Jav3XtJG9QNWXynhfJzUDRI2
Bjf8CKdCV1Kh9PHWLnBI0DzQ3E0jjr+23b1wvCWqF3HnTMeMl/YU+Gb9ltRJ
gm5gZdj48KAqBXZKttkkjxfx6rYE91xUP6L0w+7z8etRfYk3Mr9ZLjtosNgs
grpd9z/1FezWkPlju8G+cK+kZ1Wo3sRnuO+YRgBqr3GP1Pgu0fPplz5FFY4h
qnegsfqTpPuw6H4+eXHNsgmKRH53dmTA7ZOovaGvsl37zyjAMwbmQTL/qT8x
Ep9IO+m6+DILWm2PfNG1oBtY6y92vxpHgt7vXPsC1cXrXaSTWGG7+CToF7V2
cgO/G2iabNhsDmhEnN1+2ejOF1QP47bl8kHWDwrck3NBW2J1N3jLeWXgFU2G
c7iJ9jqwG7z/FvEl4zMFFn34+jmF2w1+jo3NLlvNII5fmdF3Z28LqqfRM5Qc
VNVFgx5fdyycrtINdBmn5Bb7KxDx445w3px+VG9jxvXvf+P+ovYqpkTe75FC
+e5bpocsl2HBx7VuD5dD5A8Wrn9v+2hPN7h08+SUZkAi/MShunD3sjGi57H2
hXV/otH4OlMUR0taJZq/K3W6954Q9a+D3uP2ed0gwvDHWoc2GnG8a+u365+3
o3oeLTst9ad4UKCW7V3dtaLPG4wr3t5gToH1GX5600TteQ4nb6xMoMOce6bk
BNH55umUKVL+MojjPYV5t4w9UD2QXh+G0XYPGoxZc/nV5MNovK2S3vq5wKkb
ZP1dqxObiuqDBP4OvpvsgeqHSAQ3gHIP0fp3Jvrju4Pi9UUOSliX/PZAx0+O
uGGutUMBfg5fpC+IQOMrrCILqGR1g1Nj52/aWyYPc9usx++J6QaszWozn/0l
Ef7rXbs+re4fQPVIpi8LqOsXxVW+vZlVIboeIbL54QdF42skPvHqxzqjAVSv
RNl7r9RuIQWGfm3RnpQtGo+nAvSOXiNDjUwVk7PHuoHsxp6x1E5RPElzqalP
N7jS41v00pBBHK+npyC41IbqnVj13bL43kiD5YfV594T5adeImkWzFYg4htv
O25l16F6KP4B/VH2Nai9YyYJl46I9jPmY4sqP1d3g5kOa/u0bOXhBnag3YcS
0XhM8RwXGUgi/OVD7tN/RKWj+ilPHRlTJETzT4oUak261A1spmZmqydSoWag
09i6491ggif3g883GpF/YqGEnm8kqreyVrfFuS2IAgN+NNTO+dIN9pcb+i0Q
kCGjK3lFwGPR+RfW2fmvpsD5Hjv2zb3cDSyzFUtVg+nw1n2Wsv6JbhCVcfXg
p5cMoj0N3vvwjbtQ/ZZuufuXPrrS4Flvht6Fr+L1Xe4OZb2zWY3quxxsiR18
bMOAT8yLFT6/E6//YvcxUNXYnAk3PrV2/FqOxo+6p1RuxS/ReDlgeXT/MKoH
8/hKzuqHAPGr7wuTs7VJUFjitfZmK5qP1ZtC3RY97QYuFN4udwMakf+JWVd9
XAnVk2m0CmLtnUwhuDuEucrlDwU+OSPxvHKgG3xI3BbUW0GGfnJKpPui+LV7
1Oypvylwa8fE9eai891gI2+mSWEQxw/lX0+0aEb1aSY1WX/U/og+n6rUzKQ/
RfVqVOwiHIdEz4ulPjes12gIweLr/Cyvg/IwZ31HwyGSEKgU2dx+dY4E35wL
Hhw3hNbjkfoC7UYumZXliOmZM6tcbpBgqvmFfM7fbrBQ8H66WzwVGso/qrP5
IdoP6Hl4JD6nEfkm8mOlm1NRPZzN/u+MvA9R4Cavj2/uTheC7N71ukbmZOhi
4Zcxny4E78LSpe5vFd0PU7cyciWFoPCew+oja+mQs3xtDbOpGwg7N5ksSmUQ
7R39ft5j0AvV1ymw9k2LED1fuH8gNbnOEq+/8+WW5WvZBaj+zng+a2yCNgNO
cs9Uc+ag+gWuhcWco6uEYKJrVIMiVR6en51UsMhcCIL9/eJctUhEfQWH77uD
129H9XroD5kbi2xJkDqlnWdsierXkG6t32WmKASzw+Y2606lEfnvz9yxoOmh
+j4nQ1ym7VSgELxsnRTp2RAFWiapnrFZLAShvgVn2F/J8HHD0PjtorirUVKW
oSj+8f7x0uOi8+/gbiiu/UknjifPy/rFq0P1gt6wraoDn6DPP/6n496HbDqM
TfP4m+UjBBtvnD9xP1+0v55tot/lIgRD/ZLVBo9IRL2IoIpfW/nyqL5Qbd6W
h/4diM1PfGK/eUGCV7423r5sKwT1J6a3+sZQoZrDrxyuoRAUzYtgfbpBI/Kz
fKx9NC+j+kSTVxW/DDlKgWdztF+3BAnBqVSDRYNOovvf5vlKSW5CkDZpfuyA
J4XI32miq1m1HdUzes25EDrDigYX5p+Q9g4Tr3ekK8WqOTCVDi2l6Qe83FF/
n9OftC4nSwgk3k+uOWMmD5P5R9n+J4Sgu0QxOdKKBHvDGpleG8XrI2UpdM/2
P444MGbB14FtJPjYx9ay8Azq/8D1yaxzO4TA6+7W64NMGpFvOy4xau9CVF9J
LaBVb4BDIfh3J6j1E60XKWnWOxySheCDrqaSUTMZnnz7SS9WFLec+mit82+U
/9z1xJH+96g+U3pNwxy/KzRIeueddP6xEGioOf7a+lEeTmhyHPp1RQimpWlw
hz6RiHoe23qrHp/SR/WbjOk73rpNRnFZ/bG1BnUkGJzicv58hhA42zzdvjWU
Cq+U/NYyPyoEbsHFDVOTaET+1xUJ7ZNuofpPV/ZMH6wW9e9z28XrLr4QXW/Z
r1WFW8jwoNsEv223haDFKyMD7qIQ+fvjSiZd2ojqRdndcGAEGdLguC9B+e1v
UP8Obd4o7dcnBKoRasEZ7vJwBWvitgX1QvCxgLWQ7UaCf3drGNiUiteXuh/J
kR/IQ+xyNaR6/n4S3LFuOdd5APVfit/fg44lQmDDpjjnStJQPaqP384dWYbq
U6WPMd35gU8hGGqcMeT8okAdemv4x1YhuNzsJ7m+gwzT/QIllKuEQJu9ve1Q
N8r/ZiMh5f6ECnkVulH/6p/YTdz+QFJ0vqFnUn2MaD1AQ8n0RkKvPKz1mbhx
v0QPGJ5Jz9ZuI8H/e549oMSbsenISlQPq7xi//ndfBR/p9ba4NyJ+EvwSo0F
d1G9rMbKB1unR1EgpU/LtValB5zoaAgN9iLDkrTnsRkyPUDq+i/7sB0UIr9T
Z2oOzYEKy10Euwc4qP7Kq6KGOTULe8Dqd0YLQJQ8VA1v9Dw1uwfMm3wtUD2A
RNR3iXIEJpL/qcdFUxijmvsUcfrHB9KOx0nwwIeT7y1sxOt1TU3a3yW5CnHB
qvlVuTwKwfMVx953bKHAARP+vIfzesCKvRa+vqLrv3jDqZS/Wj1g82wN6+MN
FLh9T0r0VL8eYPzIJvIrVx6atqmOW7lZlO9+7b7VFBKkb74UELKsB+yQp/Xe
7ifBhPVK73s1xOuDLd8+422FJ+I5Pu+oa/RIBCuG7F3ZNoB4OFI5IegeqidW
f+LhxylhFOiz5MrN/V49oND2+0GtPWToQ1s4ZtbaHnBXeGIw2pUCd/B29T88
1QMy7DzW7siQh4mKk8pXhfcAaXVZ+vFIElH/5sLhK/k3FFE9sqLt09OtahC/
Wpp9uP40Cb5cpFiV9p96ZCPxH9rqvv5rEA/IndtAUqbAwt74w1LHRXFv6gyL
FjLUK8nuqC/tAZ7hmhVrTeRh0A/qlvobPWBb+W/3zcqi9XDivm91ovZdyRWT
tg+ToHLmt+u+h8TrofkUST6deADxetr7lU/mkwi22nnhR9gw4jnP9u42vUOG
DvPZ5/wf9oDSktTB0N2ontqzsCLynlmontqdGJUB3xbEeclhX/3PkQg+c6Hx
cZDo+8b9VR6XX9wFio4P3r8hzYbzz25YSTXuBq8pM55KkFiQtCJ47KEr3SCn
yv7d6vVM2NgU2b/DQQgMqOafqUZ0mPCHM9TdKwRyN+szeKL9yf8B5jFpPw==

    "], {{
      {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNVE1IlFEUffPe901hOJItWlpEQz8GTkm0iVAJCumHUqLahc4YgVorS1q0
sCgHa1mIkTKGBdFMtBHCzELRRSunVKQ2UURgJIS061zOCVocznv3vfv/7tt6
oetUp3fOXQMCUAdkgBrgUezci4RzI+AfOPwK2bR4DfjmuDYuAwMwVGm2wEci
57ZDtxZcAazD+id0p3T3reNd85NyPF+foN1GoElxmHyzznbIjtlbAy5j/Qe8
AGSxXgbvAzcA9Qn6t31aXK91nXyY/TRy64NsF/gdMIn1NLhd8VseN2Q3B36G
HOahdwf83DGfInBL+zbwMO4dw/0+8XHFVFTeJeClfM3G9JNWnm2yczJQ95z0
p6RbVNxWn73AIvRncL4EbsG+Vbl9iKg7AR6S3kOgG7LeBGtXEXO/ijuPPe2N
gTshH4b8itVE+Vren7B/D/kv8EFgwHoSU9/sLIH75ScPnHaMqQHYFtNvCnxI
umajW766JLsP3AXOxlyfAc8px2XwIFCy2sask+Vl+T2QfFB2zIb19ZV6YD3J
qGZbHO/a236qvpT+q4/Vxt5TR8Q3czFiDcrq91XNS07vNyOb6aRzX3D/ALga
+Gz1ATfFjOewxQyMm09wIWJvR9Uj82/1a4bOd8jPJxnnuGKd8KzlKPhEoM5u
8H7dN72ZwHmcDbzbqJlO4GwRdzYlGX9eOYyp70/Ak57v6g34OlCFda/nfNYo
x52w22MzC74Zs363wSPKpaA3kFedsmKr1ZD+E/tXepSrnVUFxrIRvOD5hhc9
9yavDuyB9eISeMXzbX0E/9Y/YP9Be2Afc4HnWb2/2sB49gTmYnlYbvP6v8q6
l9P89AfOWl65/ssjpf2qpw/z1QEueNb4nmdM5vu1Z+1bNatZ2Tc/RyPOe3PE
WbKZWonZM+vdnPVOb8beTmXE/y8Vsact6usGye38LyP5sYA=
          "]], PolygonBox[CompressedData["
1:eJwtkztolEEQx+e7/b5TFI3EwlJFPM88QGIQOwkiKOIbEbUT8gAhr0pMFfA8
fJBop0UEgxFMk0RtBEmihgRTpPFBLog2okjw1IiInb8/s8Uffjs7OzM7O7v1
QtfJzpyZHUQp2pCZ9SVmJVSAr6FR+DEagl+jaXgOzcMXOdQMt6AyXJf52UHZ
4H/YehKPqdi3SLaLPJvRILyUeSzFnIFnY/xnaAw+j+7A91EnnMubvYEX0HfW
vZnvqcarcDXzPfkEfJ9kHksxn8Ij5Gwxr+EBfCDzWpVDuT5Qb1viNf+BhzO/
u2Iolu6oux5Fw3A92gSvQsXUa1qI/anA67GtTtynEf4ZzP6a29ayrmV9mfVN
1ADPo6/mPvKdosZT5jVPwr9Qm7mtCq+gS+Y27Y1z5p15jLngOZW7gA7Be+nJ
Z/gb2gOfwOcevhOoNfib6G3WoQG4HtsQfAPVwS+w7YdPo0X4EWoyt03Dt9EW
c9tDuJJz33b0O+cxFEs17wxu0556UBP8zfR2FZTAG/POn1At3Id/jXkO5Srm
fU93KsCNwXupO+luHcHv9kp30F5wVo/Uq0p873PoPbyEuhO3aa/IGw7E/7BD
7xn/h3zW6H8Q4yWxxlA5uE8pzvs2zVOcb83ER/hw6m+hP9MBHw9+Vj0+Bpfw
mYjzXM5co3H+u+Ez8T+opn1wV5x/2c7C7cTcDW9HrfCVOK+y9cPj8T8ox13V
iu1I/L/ynUq9F7r/ItyQeizNkGa9Guf3C1qGJ6O/YjyHr2N7a94T9eZH8L+h
Mzo7G/ysfGbgkdT/kmIo93/tUplc
          "]]}]}, 
      {RGBColor[0.34869768369637966`, 0.4262515821297181, 0.6140882626193807],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlctLVVEUh4/nnnvD1Lo+qCYFluVbIf8BixxkpelAMGtQ4YMUrYiEMqLy
0bW0GgbRQ9OyIMMiInwkmZZok8J8FI0CIbxm9pz1LdYaLL7f3nvtfc/+7bX3
TTxUV1zrOo7TSviI837H6YlwnEZYGnCcZXQtzKDdjM6C+bTD6P1wxnOccvQs
DLPAb9ZYhDWM/aH/DGxkLBfdBFOINeh0T8ckpw0ms24jOgXuI66jD0AfYx/Q
YfQIMSq/BceJYfRbGM1akeggnKE9iV6AvcQQehQ+JV6gn8A95CWjCzxtS38H
PEZ0oE/ACfYwz14mYSd5hfR3w3jap+lPgFO2d/Gg23Luwzc2V9ZoI0bQ7TDN
pz6nwyNEH7paxomv6FGYJXPQ2bCFGEaHYIXly7xz5qf42kxsR4dgLONBYiPR
T7uU/kFPfRF/Yj31XfzPgPnmg/hRyLo3mLcXfrNzlPOcY6ySnM/wFYWyg/4R
uBqPGuiPE//pW09sIK4xlghPw3Lm30IXwTuu5rTBw7QfoQtgNFGP/u7qmOTU
wwe294sw5Oi3iXfTjJXAYfjSvqcHplhejFFyZd0m+y35zQXyitFT8v20q9DL
6AZXPbvnalv6Z6xP/Ey0OTJ3AM7aN8zB13Z2vbDdVQ+uuBqir8Kg1YzUTlh8
QS+56ql4+wWuxMdT6FUw1e6a3Lkly/8BU61+pI7u0s5Gd8FBIhc9JL4ROeiH
MN+8EG+K7CwyYb/ld8LHUsfoyz71PtvO8ZLVbRXMsJqMg5vsnsp97bazljMP
2Xm1wnL2s5WcSk/Hc6wmq5lzm/4auWdWty2e3je5dydhn93HZ7DM3oE8eJO8
3egLcAsRQEfC59Yv43lEEjpNcqw+g3Cb+ZkGx+zdmIDT5JWhhzz9Jvm2Er+u
K+svsJc43p9ZdDwcM6/Esyhy/krdopf9+kb5yYmw90rerc3mVRJcYeusDWiI
ToAt9t42+XUtWXMcxlg9RMF5qzGptfd2rwc8HZOcn57uQfbSBWvNN/HvrJ1F
BTxqvyW/WWV3f5enZyBnUQ1/WU1+krfFzuW4/BeYP3V+fVvljXUD6q/4/I/8
g+a/nMOE+fwOZtJeJ7UNd5qWvkV7Pz/C/6zrzwE=
          "]], PolygonBox[CompressedData["
1:eJwtlElsjWEUhv/7D1fQFiViQ2JIq4Y2ITEscCMWaA3pwhAsiFuSSouNoCJo
UVPEDkVbLUoiKiIiphtNqcSK1FSsJBLzECw9b85ZPMnzf+P5zvm+f/S62sqa
MAiCjRBDbRIEzakg6IDNeCdcg5NwCtoZXMa4DNwLrU19p6EJDkEjnIGz8IYx
y3z933gXzAus7TX+JQqCNHv94fszPoE5+/mugyL8BGOG0DcG6vAC2nbQVw9j
8YPMydF3FRrwNYqHvlbYktie2nsnDKZ/aJp96XsOKXxrYmM1pwYvTGxvxVCC
55OU/vg/5g/Ek7TN1Rr98PrEcqWcVeMXQ4t1KlzGb9J2m74cPMLvh5a7SniB
LyWmJo9/Pf6Ntqz3f8E30HYdPwdZfEhkZ9GZBuEboSuwMRp7BHoDazuMj0ss
V8pZPj45srWOwqTIaqRaNUML7GTP0coV7MK/w7bAYlJsrV7/kdCCL/L4G2Eh
ft7PpzEamx9Zn9bIw6+ElhvdgYd4YWSx6Ew6Ww98DOwMj/BXXj/dl5f43dBy
oz3u4B1+n7TmJcUaWmx5sB1fHFluFaNizfl91JwH+DHPn/brVP4ju4u6kwOo
91OPR/X/gXfDh8DGfFI9/H6MgFK8BIanbH4R3gcb8FXwEm+EufgSOB/bHhqr
OePxfVCBZ2AvXub5Uc0q8bbY5mqNVvwurEzZnFt4QWS5PgQl+Avasikb8wxv
jy0WraG1Ov2+6IyP8Uu+vsbk8AkwzuPT2d5yR/rgHbxPLKZzfv+q8ILYcqGc
6O00xHYWxdeCT/L8aM35seVUudX4vNj21N7K2RvlDqZ4PvbElmOtXwwL8fLY
XG0L8GH+PpSzUnw1b/Qrfb+UA719Yu7Gn8KrxP45qqVq+lH11RtN2ZguP6PO
+gN+QglrjIciKIZ7nn/luBc/zp0a5fe/LbQz6qw6QxafGFltdB+XRPYPqPT3
9TW0O6y7rDd4Af/p/wPVVLXd6/nUervxnsT+LfrH3MBnEtMMmAbTYUdob0Ex
HQutTX3lUAE1acvNX9iEr2CN5TAHMonVrMLvzx282v9HejNH8SdeP90fvd2M
z50Fs6HK66ccrI3tH6f3qH/2gchyWOQxK/b/Dl7Lvw==
          "]], PolygonBox[CompressedData["
1:eJwtz7suhFEUBtDtMgqNROYFFGI03oDErUEUCtdOIm4JnUJUwiTmDYQCHQmD
UiOT0ChUKiEq7QhD0Fkn/mLlO/Od8+/saZtdHVupj4g8Oc4aIk4pUfH7RNYa
Iz54ZK4u4k2W9a/ub7L36bs1A47cF+UOJT69Xdc15/5npFn3zhXdnXzimQH6
GWTX3bTsoZsCW7p2Oc6B85ScYJIfM7/5ZcNdi26kKWKYGaq6IXmrv3Yuy3Mu
OEzz0t5cubtMe/JOlQddTS6Zvcgyfek/yi590bk32z39h1F9h24he5++e2Fe
95Xtmfbd93aPbY7dbcq8HR+dW2WBTv4Atoo8PQ==
          "]]}]}, 
      {RGBColor[0.5056156032615114, 0.4813984548203395, 0.5218425846641594], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFtIlFEQgP9297eLilmrIPSQZJmFW0IRhWikIYgXlC4SRmgipKgUZERG
oSXmqkkvgUZpSppWZr4oJlRqCFEGKkISFiSUKGpqGj7UN5x5GL45c+Zc5xKa
XZRe6LAsy4s4kTmXZRWts6xF2M/EcWztMNHHsqaxJ8ElxhewT8DNTqOLzW1b
1nV8gmGg6mI7gdxHPwmXkWH0FbiLM4LQI6AHCUEPhHPqI75B7F/C/sEwG3mO
ngTDucc3WQtf4deF3ghnmFvGZxYmIBXo4XA9ch59hnvG6bnhchbjHOzzsA2f
EfQXsADpQi+ER9i3Gv9o25wn57p9zLvlbnlIOn4NcB88xNwUPofFR/eR/Y6x
vhZ7AlxxmHWrcD9zNehR0A8pRveHiUg9erLeXew5+h55l6/Mc8Y/9nwKm3hP
HPod2MLcG3zKYRtnHEBvcZi4SnyX4BRzP7D3w0nuNIT9q23eJXc7jfTgl4G9
AXbiN46tBj7SP2+GecwdRE9xmb1kz2cSL8ZR8l44zPgX9s/wMffwoDfBDczZ
+EzLm9irHb0Kepnbhs9l6IfPX/QFfPyZK8MnDC5qnvyGHv1DN3yo+1TCMN1f
zjmqeZgBR9k3Df9emMm4Dvs5GIDfJvStLvMX8iefbJMTkhsd8C4yiF7rNGtk
bRYsRV6iP4A/NQ8lHz/o2+UPIjU3ouFOzasYGKP1lQoTtRakJpI1B1Iknowz
sffDLw4TnwGHGYt9AL5mHIu9D15FfNGvwDHmcvAZhfVILPpNGGkZf4nHNc5e
w14DezXuEv8hjbvEv0Bz6R1scJj1VfAPfpfwX4MlGneJf6PGWmI+oncYh9s1
jqEwH2lFvwXPaI3E26YvSJ3ugRHaT7bYJjYSI7fL1IXUhMQyS8/NhRVaC159
o9xB8qmEe+yA9+AN/YdSeFHjeNY2PUL2HYOpzO3GngbLtP9IH4rXe3pgkvqI
b4j2h72wk7lu9EH4VmPUCge1r76Hy9oHpB/Uqb+sq9Ycy3eaN8hbqmC3xqUP
3tYar3Ca2pAa+QgnNG+/w1ntb9LnAmwTo1XW5mq/kr5VqfVSDHs0phLbZq3x
J7ZZI2sn4YS+Rd7k1f4jfShD6+uUbf5U/rbMZXJacjvZx8Rb4r4RLmgvmofl
2kOkl/wH4tDaZw==
          "]], PolygonBox[CompressedData["
1:eJwtlElIVmEUhq/3/lfLDLW0AVoU2QChJhRRiAYRgllQEZXkohShQYWgYaEV
DWJo5S6oqKSFoUmR0GRCVJaQUuAEFVRQkEEkglC0qOflnMXL//zfeO457/kW
7avbVhsGQbAXJdCMKAia+D2KUuEtDK5OCoLlaDN8ChXDBage7o+D4DUaQIPo
B3ti5qbYPw4PoHF4DPVHdobOmo9K4YOM9THXjQ7A5xnbkGR3NsK3CC6PuWL0
FL7Dmq/wEOqES7izlbVX0B74L3sOww0oM7YYFIv2fINbGOtkrhvdgNs5cxVz
i1E93BvaXVvRKJyZsFhTUQZ8hLEFyhM6Dr9CG+Gd6CPcFdpZOrMGXsae7CTL
SU7CYlbsz1A7PMZYFXN16BecQ0xn4AtoCVwUG19G6+EnHl8uegw/ZOyB10C1
2BHbWu1Zp70er3LYBl9j7B5zj5QzuCW0s7SmGW6LLTfK0XW40O9XTAvh7cR8
0+u1Hy5MJq/M/UBF8EX0F/6HmuF8z59qXgbPiq02qlE6XBvZWfLAJXg2qtfZ
KANudX/IP/fhsmS7S3eugbcwdpW5LlQJVzC2B+1G5clWM9XuD/NpCRvTXC2q
QzMj87o8vzyyM7q8PuciG9Oc7iiFqxPmffXASXiOx3sRrYR7QvOOaqRajfr/
KvRT7P6Xv2vgiti8Kw+Xwy9D85I89QLOiuxs3aHcNEYWm2I8A08kzDvy0Ajc
i3b5/6GE3aG71FNN8LHQvKt6yxud7l/5tQMedj/qjB54k+dXOSiBn3u/aE9f
aDlULg+hGlTm+dMe7a3xuQZ0AvV5/6onv0dWU9VWb8QbuMC/Vx6T1z6E5gXl
5H1ob5LqVYlS4J/e3+qv6cT7RX0Av1U/wb/Zc8Dzl83ad/4eyQ+TcDIxxSgF
TZN/PR557gI8GNla7dFbNs3XzkXz0Ar02f2YC0/Gdrdi+ASv9f7QmmXwSGix
yxPDcL73k745L7I3sNu/vxo+yxm3k6xnT8NNXn+9IR2RvTnKjb5xKrQcKBd6
c5bCE6F5TzlLY32W94N6Ur056d+nsXT+3/X3STVSrf4De1fDbA==
          "]], PolygonBox[CompressedData["
1:eJwtz70rhWEcxvGbnueUsHEwGgnlL1BOKGWRZDiGY/UWYdGxnMVA2RSFUpyy
URgNBoOXP0BeZpuIweJz95zh2/Xrez33ff+ezpnF8YX6EEIeKUaSEPrrQijJ
IQyjoqhys3IO82nmY9+NVl1BnvAX5nN5iSv84on7kmkuhBza0YYWvOs6ZF5f
NnfJHvSiCY34dvei7jPJfOz7sMMNyi2+YD6OO+A0yXaMu05iVzchj/gp87U8
wCFe8YI3LOt+5IZ9ytjGH7cuH5y/xyPuuOc0Ox/vqWCA25cNfMXcXNs9/sMt
X4xnam/FN0v8HrckV7CaZnvH/au172+SzMd+DWfcphyzz4d5VBYxjX+klDi9

          "]]}]}, 
      {RGBColor[0.6625335228266434, 0.5365453275109608, 0.42959690670893813`],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFtIlFEQgP/+y+quQRRqWhFJt4eK1KiHKIkSF9HAtKCipXbrochbiWGQ
URgquqX2EHTdokgqexHD0odiKQskM1MIil4kIotumJVJ9A1nHoZvzpyZOXPO
mXMyIhXF5bZlWfWIg5R5lhWbZll18KVrWXvRu2ELk33Ml8PTjHOxt8AXBK/H
fh+uIKYBeyqcZK4KfQrO9Iz+F303shA9F9YiOej7YDtShB6FI0g5+jc4qDVI
LTWsEWCtanhcYyVHHAmhP4GfNfaLa8ZifwovIwXol+Bb4reTpw/G1H4VJlDn
UfREOIjE0YfgSfbcgX8YViJd6IfgGeY68GmF/YxfY++E7cgQ+h34jLleOUPP
rHkQ2YGkMFcLf1PDdF3XDw9gv4a9BH53jV3mZ6EnoafAJj1/uYcFzEXR18Ee
cuUQ22ubOqSeVjiB33583sGLul/Z9xX8luPTBB9orORoZG4NPmWuiZHYxzAL
mYOeDTfqXcudl6p/BRwmvog8IzBP7zoIPzGOYH9lmz3IXmbDDUgy+mKYgbjo
nmt6SvJITct0rUz4xzZnOCl1In70I7Cauev4hGGh1rkSpvgs6w36PJ/Zj9S5
BR7T/jkB1xJzDn0bfKR9KP24SGtbCmN611G4Sfcl+0vgfKupIQAbtQapJYgt
T+96St/CP+lJ29jjcLX6iG+v9vkwzCRXC7ZUWKZ+d22TS/ylj7q1r2565gzm
WuZthLVX8+FWfcvypj8yHsc+BvMYt2HP98y5yPnM95nzknNLhvc0fw/cpf5B
mK7+adB1zJ3K3Q6hj8n9Oubu5N6kt7rw8zMfhzPIO4ntBz7FjL+SZ4/k07f2
HDbbZi9RWIDfBfRCx8RLngFYqm9Q3uIN5CH6Kcf0jfTPB/Q6tdc7Zj1ZdxD2
61ryvs+TyyHnbbhT6wnJvpAR9ADMJaaB2CUwW+9llWP+O9lnDLbj54PdQo39
5ZkYifXDoO5F9tSsvST/R0jX3QwjyDj6YTiK36j0CXyvdyd3GNB+S5LeUP8K
2Kb/81mYpn9LumP+IPmLOmCV9meNZ9aQ2Er4U/9D+Rfz9a4LYKLuRfZUov9S
lvSX9uKEbeqTOm/BAe0B6YX/dUfKHg==
          "]], PolygonBox[CompressedData["
1:eJwtlEtIVVEUhk/3nHtTGwSlZTWSCgdZaFGDUIsSLQq6hEEFQtmkKJWIoKis
KNK8ktmgQUoWBVY4S4hyUGgvkFJ8QBAEJhWIpJGPsknfz1qDn/udu/fae/17
rb1zKmv2VseCIDiMIvQj5HdeEEzB3+FHaAB+iR7C15m8Ak5H9XBZPAiamV+H
tsFPmfOJsTH0ES5A9+EmlA/3oNHA1v8GpxFzlthqNE4CeYkgWIPWonVoKf8t
YGw5KoDTIssvE62CMyMb05zF8AfW64a70Hv4LTnuZ69S9AauYc0pxibQQbiQ
OY3wbbQ5bntq70JUhA4lbK5iKuHumK21EVXBXagYTqIheENoXuW5HP7KmiNo
Ak2i3MhyX4m2w9ms+RkeRmnwvrjl0obK4TTWOM1alaoP3MicFGpBrWiOPY8z
dgFla5yYDmIfoHp4te+nM8uBSyLbW/9thauI6fR8j8GDMdtLfgbg/LjVVjUu
dQ/yMo1m0FhotdT6qs1vvucCq8civpeFlpvOZD38J2bfynkWfuz9oB5Tr7US
s4vYYlQLv0ZH4QrUA9egTXAJaoC/qAeJPYA64GrWeBuYJ3mb9fNRD0zDqchi
tUZ9ZDVWrYvRFnQmbmenM0zBL+LWS+qpXrjJ45PoCTwYWq/Ls7y3sUcRnIfu
wiOe/yk0B1cyp8Pv0xX4luerO6O7M+7nr5rP53smZt7k4W/MclSue1ASNaEb
3hPqjYaY7a07qrt6LbS9dL7t8L/IclFOM5HdGdVK+S+Ec5lTB99BZXC/11Me
+0J7E1Rv1WxUXvx90Lfu9k2///LUFFrMmPvrVS+TU4bnl4IvRVZr1bwFHkJH
/D0Yhhv9vZGne/B5PJ5zz/L+LrLekB+d9RK/f+qxLPgZcxLEpaPOhPW0els1
6oN3hOZVnkvgn5HtrRz64d0+rpqpduX+nqm/ToTWkxXeD690ln5ftZ7OUj2S
9P7tlh//Vg+pFyd9P72Bv+B0P3+tobt/kZxr3bO8X/V6Kp/L8LD7Uc+odzIS
9pboTclK2Jnp7PRGPYd3ev/Jk7yf9PuvejUrX2LCmJ1ZO/wfboHKsA==
          "]], PolygonBox[CompressedData["
1:eJwt0D0vw1EUB+CLVmOUlIRBWsaaDBaJ1VDS6iwprdFb0kkijBYDoyAktInE
KkI3H0Fi6sQXsHjZxHPjDk9+J+fc3HP//2Jju7bVH0LIk2UmE8J4XwiLskKV
icEQenpjssQ0Tf0GC0yZ1eUDTXVXPvLEjrOfeptynwPOOeOWActP5ZzlR84V
ZJFJvvnih1ezjHPr7pxX76X98R1t8xs6dM3u5TF36ss0a6c7491D7Jrl5Cp1
1rjWa2X/3x3ff0VZ7yL9h/g/lpnV25Avzj6re/KNd371W3rD6jwjSaxHOTQr
yTIn6pW0P76j6vsqLPFhVpN/KJEv9w==
          "]]}]}, 
      {RGBColor[0.819451442391775, 0.5916922002015823, 0.3373512287537169], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlEtIlVEQx7/u99AgCJLwBYGGizLqdtOCSkoR6bHoQRC0MMs2gWlqkZkY
iZRZoFmLyiwqC+2xKjMipNpICOq9UtQm8moGFRFokhrRb5hZDL//mXNmzpxz
5vsyDlbsLg85jnMKc7HVnuOkz3OcZOjiOIDvGwuKfMdpwh+Gufhb8a+FaVg9
Oh1exvrRV1yNkdgojDL+jn4Hx7BJ9AQsIVc7ObfD/ewXRpfCN9gu9AN4OnCc
P+ijcDPjTHQhTCT+GHnmw3LG6/BXwkLG1/BvgRVYD7oKdmJRdBdcTq5ROQv8
xd5v0XE4ydwca0ag62md4+gUO+NsSHNJzmq4ifgJYvMC3U/23QrPYH3oRrgH
u4NeAy/Z/VTCYfIfIfYnzGJ8Fn8AM6mjAf8GmGNvkQunrLbf8BX7LaCWIVhm
+WWfZruHCjiLHUaPwh9YDTrR1zuVu22BZdgy9E543O65Ad5j3VN0K1xvZyyA
BXb/+fIu7PeQfUtgI3N/8bfBC8R0omtg2OqXc9RZfnnPant3ef8PjBdylnig
byNv1O1q3VJ/P3zE/D78n2AG4yT8WXDAYiXHFLmG8c/42lvydl/hSdbl4a/1
tD6psxUuZl09+p+nfSn9+R5mm1/mC+zshTBi/Z/jay7JWQyfEPOR2DboBVrD
tK99LP18CBbbeUthj92t3PEQte8gNgYvWm0tsJ6Ybegb8Krp69Cznpfej1ns
SEj7Xt69Cn5mLo7/NbzJXDb6Fuxgbi9rXng6J2vuwybm0tDn4W3r2wZX18n6
Xthj+pm8hfXPY9nL3mhMtH1HX3ztCemNIulne68EOGh3JXc2wLqXUg9c5Glv
y/c3SB0b0b2w2/aSPWcYl+Gfhiesx2p97V3p4YinMRLbAc9hqfLtw0RHtZxz
qdUjdSXYtybfXNzqj0ldVlsfXGXvLu+/0v4bKwLNl205+622ZFfnZM2SQHtR
+mEOJllfpfh6X3Jv457eu+Rohu1Ws9QesX9sKnxu9UhdtXb2OnjXeqkL5ts/
RP4l/wFwU8Qi
          "]], PolygonBox[CompressedData["
1:eJwtlEtIlUEYhqd//v9kF2gRlZdaVBSEUGZYEAkZFtSmOhFBi/LS8uQplTIo
I5GQNl0XqceisDJtqSURLU6LiEA9CYG77hsjgkS6uOh5+WbxcJ4z/1y++Wa+
Wd2QTTdFzrnDEEOHd+4lv0NwEe9JOdcNgzAEX2j7xbdP8AFvpK0BmqEF+iAX
xmjsOCxmgSXwFt/NmG7GXoYavIZF18xzbimsxSdp+8e3aXiHVzPmG98+wka8
HurCmlpbfdR3CsbwisS5Lvq2Qzl+lT5z+G84j98ljnL67oBR/Ia3sa/hOj5K
n2cwDCMwAI9Cm751pGwuzdmJ/yDmk3gbfMf3eMud9qi9FiX2rQPm4w+95a4A
D7ytobXy8AquEFOpsxjv4ItoWwjLYHk4g8EQk2KbZc4J5n4DP/EzjClyNkcX
nrBGK14PHi+Ba3g7FONpYt7A2G3QhJ+ACrwaLuBl3vpqTBXeF1nuFF8OL04s
18r5JryZthJnMbTix2KbS3PW4be85Vo5H8a3hnju6w56Qz4CWfxrYnvTHmfw
x95ypxzm8c5wX9XWj6/3dreU/1pvMSpWxdSLPyWGI8y1D27jc7Qd5VtGdwCf
jixXylnM+AUhf5pTc/+NLB/q/wdf4c3VVqp6IMZe5u6Hs/gpb3vRnjL4JGP2
h/PQWhPhv3I6hs9GNp9iehLZGVSHeNvxXGyuPfThPeG/+pzD94b60h2s94Zc
Obrk7c4Vwv97eFtisSrmFvwgd+oApOGQajrErzO76a0tHWpQtbglnJfOsFL1
l7JaVc1uT9mZ6+xV47vwbGx3TXcugz9nzRf4MIzgleE+lsFm/HS4L4pBuRxI
rK/GjCZWw8qdcjge2Z2aCu9HAX8f3ge9KTN4KtwPnalqIx/qUW/aZ7w2vEeK
+XhsNafaWwmroBDuh9bT2a2L7e3SmJ14VWyxaw+qrf+if6/d
          "]], PolygonBox[CompressedData["
1:eJwt0b8rRXEYx/Ev996jMJEf5UdZTQZltEhhcS02g83gR2STWX7vmFgMNrJI
ukJSuvwFlJhMUuKS17dzhvf5PH0+3/M85/ucrsnZsZnqEEIrCvjxKFeFkE9C
qEUdHvMhPOAU47IT+oIp9Tet4BcdzrajE8+yblrDb1R30QISXOMKN1mPJ7rt
bEW9Tnexl6Q9Y+8/LMsafduRuqguZT1ir01sYCvLDumSswfqNbqJLQzo+crr
p6MoJqkf820cy/bpMIYwgh3eBO3Finowy+KZd3OmeeVsP3FP5/wz3l3cIx7w
mbNXu22QN6EZl2aXcI96P+CCzvP7vLua3SfeayH6mMOXbDFJdxh3+abvh765
fDonznvEbdxpIZ0T57WgjddD/wFbhkMm
          "]]}]}, 
      {RGBColor[0.9121995785873653, 0.6504989464684132, 0.32781869362083244`],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlF1oz1EYx39+v///t4QLVjPmbePG/2bKxkpomFBbmTYumNnykrJpLySr
SbjzNpvW35aXIcyWxP+OKYWUl2mtEdlrs1DScGHK5+l8L54+zznnOed5Oc85
6WWVhRW+53lHkQA5GPG8nEmeVw1TkKnov1h4i1EB691wnPEEei98ggygd8E3
Uc97in0P3I20oO+Fg6z9xGYAnodtyHXkPmcthnGYwVoVug9zkWb0PHia/R2c
0wBrGSeYPwSzdVYaHGLtJTajsJvxB+YfwHrkEfrxwPmJIalaM5tGeFk2x+B8
8p3BOT7sDT1vOnENwa2Bi3cbXKKaWG3iiv8UvOS781tgDZKEXgULsYthnw03
EF8Dej6chdSjp0VdbpZjY9TV4CRSrTolVKto4OZCOMJZ+y3fiPO/QrlVyJf5
/Ezcyfj/AvM9d3dmN1N+zf8R7Daix+EW7L6ib4Z7kB/o+2Aza8XoCfgOKUP/
Dp8hJegd8DaSh34m4sT0KvjKd74TcFAxW+ydSCH6PVhHPnew2QnL5XcXDJSv
5X3D+g/9ZuDiszjXwX7FYLF0qQ/bYKh7tjtIJs8abP5h0y6/5r8ycPUtClyv
W8/XwhO+21/tuz22dxheVQwWSw/yDb0PPsfuAPoEnKf+sT7qk817uJBxOvO5
EZen5bsWxs0R+1pD1zd2h60whXEv9lNCt2Y252C33tdjWKA6FMGQcwP0JLgU
mYO+HP7WO/0DZ9t7sPuHk3X+NPha79redyl7Mpkvibg+tPqXIqsC15OL4HbZ
7LDa676sX/r1xocD59tiyIGb1PNZcFzvdAQuYM9H9IzQ5Wnx/GX+k+/izOKc
JuV+JXT/gsU0xvis3ksdvMD8C4sVZqq3U2EneyLY3oUx+ZoLD+tfKodtOsfO
G1VsY7BfdbZ6P1TPW++v1D2uhiPqbevxJsVw0eosX5bfNcVgsRTrD7G/pEQ1
sdrk6a9bH7jzSvVWb2lvu70F3a/dc5H6dhksUy72167Rvdgd/gepRrjL
          "]], PolygonBox[CompressedData["
1:eJwtlEtIVVEUho93n3ud1CCFDMtAq0FOKtKUpELFoIENjKRJ0WMWlPkcBYZp
jdUKsaLSiMyCCDSFBEWhJ6VgklFkPug5iOgxadD3s9bgx8+z1957/WutfXOP
1lSdTERRdATF+puKoh9pUfQN7YPPohbUitpQHcHpxK1C5+G2hDFLUSv8BdXB
h9FneHWIona4GWXDBcFY34rgDagN7kKlcBMahJ+gi/DuYGt3dCZ8C03CH9EY
XMLF21EZKkc56B25z6CV8P6UeZGnQ3ATanRP8rY8ZbHakw1fJed8zi5BD+ED
3HEzspwa4RY0ElkON+AF9qwgLhN9gL8mzHs9CsFyVu7a0wxPsb7X66PYS8G8
vkUDcJn7VU12Bqux6qucLsNbuGOze5b3Iq+vcqwO1iP1qgN1ogZU757lXZ7k
TTm8hNd7/dWzPDgVLHd9U29WMRTLqM0atBVeQMdVSzQHP42N9W0enk5G0Tj8
DC3AZ7xeqsFpeClpa4qZg4+hK3CHzoSLY7srX/MHvyDn5+gNmkUFvq6cNsO/
g/E/zv8Fv0bfvZ5TcCMxxaxXoHZ4kjNe+Zk6uzJpdyuHo3CCmAw4oBiu83ns
RTXwhWBnq2ed8EFiNhGbi3bA/ZwZ60Gh7pT1VPHKaRou93lQj9VreZRX5Xgq
tjej2ahES/Cs+5G/P3BpbHfpzrLY3oDewk80B/8NFquaqHfXU5aLcuqB02Pz
Jo958GKwvfoW+H+Xn6/1tbHFZLi/dfC2YLXQzBXqbt+vHEbhQvejHqlXvZ6f
3kuPapkwb5rBAc02NW8mtgFlwouxseZJs3bP56sK3YWz/PfjBHrM/mH2DKFH
aAQNquZoHE2krOcVvr8fHkTV6jUagOv9/anH6vWE7x1FY/q98/3qT21s30Z9
hjRLyqnK56sP/uTvQx6ipHme9Pd/De5mfU+a5dAF3/f98qi3NMyZQ+5BXmp9
flXTk7HVTLXbiB7AM95vzYhmv487b3tNVJvY+60ezbOeE6x2quF79p9L2Fn6
jdFvuXJW7upJFvwfwP/Hng==
          "]], PolygonBox[CompressedData["
1:eJwt0C1Lg1EYh/HjeBTWNC/NaNl8+QTOsBWDWQxb2JIGBfEF/ASCPLowWLNM
0O5AV2wraw8KJpusGCzOst8DJ1znf3Od+z43nHLzaO+wEEJYxiLajv5CCKfy
HBd4XAoh0TSQzxhik9/AFlL9dfnBv+MLK/ozOeP/8I9MX5H7Vo/Vv/FuFvfk
+y7x5O46dwmHA1S4fXlrPsUNgh1deRdn7uUAD+jwP1xLHuMEPfMN7iy+m7+/
yn9ya7KKdbyaf8EIb+4mssZvYwdTbleW+Ct1Jf5F/idzXtItNg==
          "]]}]}, 
      {RGBColor[0.9372663389012842, 0.7131658472532103, 0.4055256505939808], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1lEtI1GEQwL/9v6KgawZlD+sQBIVsWKmVJFYHKyqSgkzwUofIBNeMShZ0
pQ5BpVl7KSgkxA4ZaVhrbJHikhBBEL1LiNVDhw49FMR+w0yH2d/855vvMa9d
Wd+w/6TnnDuB+Mg0P7NwBo4FztXFnHsZqIg+Dr+zoQ6fSVgcOTeBvQheYW0H
egKGrC9CCpAazroKN8KnyFf0m3DCzsxBh3joMfiWtR+Y3vu6R/ZugG2entkA
O+2uLriLyy6ix+Ec3wl0D/0Zb1qA7wvYjPzC3gRbOSvDOefhfL5fY5/Bf73F
EoeN5t8CT3HmWvQDcDNSiF4GU57G1wGXclYPehO8huTQmyVG1qrRx+EZ7uhh
bytczloj9hh8xfcw9mH4hu8P2AfgJfM/C7st9v85WGO5jdk5eex38RvAvy/U
3EkOP8Jbcgf6bVhmMUrdhsy/F9ay1otPha85ktiPwyf2tiz8zNpPfL7ADtam
sV+INB55ZxLu4TuPXhnpuXJ+F0yw5xF7D/maR8nnJviAd5dKvPC0+bTAEsuz
5Pu39eQ7GFifePBvqLWbDbV+ok/BxawtRP8j+ffVX/YdthpJrW5YjdKwINSe
kabdzvd11EpYjrSjr4JZi/0bTFrskoNBZB5vH4p0v5yTD7T/RPdhsfVnSai1
lFwdg/229zEssrtW+xqPxDIH9yKd6PtCnTeZuylYb/bdofaW9NhDOGo9PxLp
PMi9S+Re3lSOnoYVVqMqmLJY2uBBq0tNoPWQugzCczYvSV97SHrpDrxsMyiz
eNT6R/ooZ3N9H25B1qHXwozNvvwHxK1GUqt+T/s5DTP2foljGWsr8NkGt1pd
pD5HLBaJ6RO+SeyF2PvsPfI/lLW+fQ7bbU5TVifJ+b1IZ0xmrRtWWz4l31WW
n53wHy6fqU0=
          "]], PolygonBox[CompressedData["
1:eJwtlE1sTGEUhu/c786VSGpJaESLhURiUyna0iY2FrWRtEjoJBbsNA2qC2QS
IrFFp2rB0FiIhPgbwTQsbCSakpT+oUzL1MLCAimReN6cs3iS997vO//n3voD
3bsOx1EUtUMCQ2kUXYfbcAdyIYpu8r4MJ9B/4B+6JhNFyzEY4nmU50/wDH0R
mwvQDwW4jPN1nDXBPXQt71ZAHdTDZ2x+cBbjr4LemcUefQ52ZM2HfBXhGmQS
uyubj8FiKraen6O7ibEUjWnUg570fL/DBPp+bLkop7voAu+m0S+hHz3j+chn
Gd1MvJXEWw8dieVQ9B6pV7cI9JCzYXiK7sPmkfu7hB4MphWjpFyxmYF5+JZa
D9VLxWhEV8mph7s5+Ipu8/4PQCv6NDYL3P0Jvei/3DnP2Q3Yy/n7YLWq5gX0
E+4s4s5iKKM7oQO6NFvlEFssxYy5/4Z3r+EVjMB+ctpArBbYl5iNbA/CIcgH
2w3twFX0FZ+HnovBGPX9OYVuxUddxnxuTSymYp+B1ejfwfqh/H+hH8S2m5qZ
Zrc7WK2quRO9JpitfKxCbw/WK/VMuzvi9qrxC/qk56vzrmA1qtZJmIJNPm/l
0IAe9P3VThXQS7hT4zusXZ5j5rNQhXno9XlrB44Fm2HOv68K+khsu7lMNaP3
+L6oJtU24fPTvoyhS76vslctmxPbReWoXMfJ4R3MKhfoS203tCN59IvUZq8d
KKW2g9P+PYyjt0De+6ldmvJeyKd8n40tV/VA3/Kcx9IOa5ffUsyY90C9GM7a
t6Bv4jG6gTsVdBXa0Ed9fqr5OHqtz08z26b5pXZXNs3oxqz9C/RPaM/aNzDg
+9KC3hgsd9Xwgfz+A/9KreY=
          "]], PolygonBox[CompressedData["
1:eJwt0c8rw2EcB/DHbBPFdaHYXB3kH3Dkpii7qpXNyY/Ywc1FcVCy/QtyoI2D
owOlHBQr/oEV4w9QnHg9fb+HV++n97Pv9vl8V6psLm9kQggFcrTzIbS4ZMDF
tfxz0ekLYdB5mBFKFJmi625GHvLrfCAbNFnybENXkWtUaWZDmNddyBZt9vVn
umN5Gp9hTl/UTcjJeOZT3+Mrneknl/TxPhPpgrzX3zo/y1feKOundVtyh10+
eKdH3d2fHPPZUcY50s3Kml2qrPOt25YL9JwX5QrlfLJL3OmKVXeP2WSXuFOT
G915+h7i+6ile+/lknniXPX0/ZzIp/R7uumccd4HvzPkv7mTL3TozyXzF9LZ
4w7/4io8pQ==
          "]]}]}, 
      {RGBColor[0.9623330992152029, 0.7758327480380074, 0.48323260756712916`],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlE1sTFEUx++bN/NWFAsL00U7acRGIhaqkwrddcEGRRuCSINqom3S+Exp
2IgV2s60RFMhCFKk0pBaCYl+CsUkDEKaIdIFu/qo+p3c/+Lkd+6555x73znn
vtSepk0HY865BiREuuLOVQfOZeHKhHPt6Em4F7mMvhEexvEhvq1wXuRcDvsC
WML6NPYyOE78buwv4DrWGexVsBO/Wexn4AnWE9j7bF92239OzGb0u7CF9U/0
ffAaEnDZ67CDe/Rjb4fnFZuFDfJvhL/I+4/8eXifuDT6ACwgO9G/GtkbQm+D
x6QfhzWcvZw8tbAUWYS+Fu4i7zT6VnhUNbHavGQ9n3zPYCt+afOBG9g7i14O
z8lu+7XKXwc/E7eec0djvgeLEcxuiJhBfG4n/Hl2bnXkN+0+dq9e1cRqU69v
txpcUB+tn2tUf+tDn2reC9+Q9yk+T+AcOZqxT8Ep2W1/BhlF/wZ3EHMTn0r4
B78O9LTNApJHfwS7kRH0I/Cv6j8Lb6hf1reumP/GU3BGPuZbrFkqinzvbQY6
4QrWH9BT8KLyXwq9n/nPkfOkatcMa1SrbTBJfBF6Mdyu+9t3PEZ+oH+CJcpf
BpfI/zf2L5oTm5fV6mMa5vBbiO1d5B+N1c3qV+F8H23OMqyXwR7YEvP9bIKD
qlUPrAt9Da2WA5rPB/Cqenol8jnNbrnuaB764X7N3gG4SnezOyb1ZsOE/x77
rqXwI2cF6AEXqVes5RjW3L6Ck+r7W3tT6lcGBsgh9LjNCfGN6AU4ojdub31c
eewdfNfMTMMK/SuycItmvjLu4y3PGBxW7e7BlP4hpaFfm70b5lQ3q1+5emS9
yqsX7+Et1cfqVNAd7C5x3T+Cr+Vvcf8Be8Sorg==
          "]], PolygonBox[CompressedData["
1:eJwtlEtszFEUh+//ufNa2KCpiYWNjXhEg6QWKmFHkEaUiMRCohYyWoLShMSq
UWZaookNDQmmaZpGy0o8OkUiQiKoYTwqFixJPL5fzln8Jt//3nPPOfece6aw
p33zgTiEsBGl6Dw/W6IQNqBeeFESQjfrJbQG7sd4MdyEKvDdPIRx9AA9RBE2
B4OdaYTLqfmSzyF4ZRbCWbgLLYWfsbYb3o+m4So+N3F2FXoMF1lr8nzOweuI
0YzWoxa00PNTzADn+Cy6/wZ4OTbL/IzOKoZiySbK7I7yrRg9qeWoXJXTBJxk
5kv2MVz2+89FF+CT+OxCp9EZtIAcrrLXi1rh5sRqN4h2wlW/r2I8Ss1n0e//
j+/b+LiFKmgIjaE7XmPVejv6ju1PtNdtKm4j24/k1BashjV4m9dvCdoKt6bG
WlNt13p+qmEBfkk+99mros9wp99nVD2RLWs32RtB1+F7rE2x9wONw5fRU3gM
HYFfk9Ns8piBnsDHEtuTzXH4UGK+FUO1+41m4vsv37/gU7HVGgwn4Fn4eMX+
W9QIP8/Nt2K80PvjThF7cyJ70N1+Xj0rwV+8PnoveqtTieWuM+/g9tjmQGd0
tsH7rze7Au7H5g17E6gP3pdbL9STXfAnVEfvUS23ng96PdrgG5nVTjW8Bhdy
u4vuNB/+k9jdVYN5JFL2+ijeRfhrZr1Rj+rwpcT2lNOo5k0+9LbJfUBvxvuj
eqs3A94fral3qz0/vQG9hUmfP9XoA9zh/pXDYfhKbr4VowQf9X7Kxw54OLb/
BvmQr5rXYhp9Q32xzbb6oVma9HnUTGg26rH1RvH1ljs50+Ezpln7D88AnuI=

          "]], PolygonBox[CompressedData["
1:eJwt0D0vg1EUB/BTqhMiMZoMNomBSMqMReIl/QRiIiE2XTAhNh/AJDGWqUlj
QbxEjIYn0drYLLYuLb+bPsMv/5tzz73Pee74xu76Tl9EjDLARCnisxAxJaeZ
oWajrnYr77inS4c/MnuD+g6tDziipnYuG/0RLfdm8oMmq+orrHGhb1NuO/9r
vSf3qXLCMad00n3yR++bdTv/fppjrhhRZp5Je5Vib8Y06wOPau9yTH3Yejbv
T+de3PnME0Me4lWW9Z7pW87nTPNu5bNW839M/9rUO+JMJr/45oqC2qW85oZF
FlhK86f5Sr13SO/Rout92vIf+Zw5yg==
          "]]}]}, 
      {RGBColor[0.9873998595291218, 0.8384996488228044, 0.5609395645402773], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlE9IVVEQh4/3vntpEVjhqnyaC9u1iaQyWrSJahFhDyKtTbWqyJ2mUfLc
RO0sX0+KtgZBWhqUikpEUEkEBSVIf8QyS7NWEZXPvml+i+GbOzNnzpw5c27N
0eaG01EI4RgSI42ZEDaWhdAEG5IQutEPwIOym7/E90v0BbgzDWEGfTNcmbrd
/Dn0OfRd8A6SsEkvnMX3GPtry42tlj2vwAHFWGwe+UlMW+pi+snU97C9amE1
MoleDi9TUz16C/zDIZbJWYJj+FaQcxy+Q9agz8IC/m7kJvJXZwnY+/FvQe2D
h2EzcgSpIyZPTBa+Uf2TcC37laMvsdeo9hqBw3y/Zd0IPEdcLzF52IXvN/oF
2KkarJZK5a+ClcqZha/4HkN/CO/ynUMfhB9U3xPRatwb3Gcx9zJ+fuvDMmxV
f87Ar8gp9HnYpdo64Jzs5i/y3Y/eAwvSzdZErmFynoX7NRvb4ELqPbHejKvm
R/C4Yiz2lvJche2sf06eG7GfzeL7Eq/D6jmReC+sJ9WJz4jdywZkQGcswinW
L2IbgoXI/cXI58nW5OE1fBNmhzOR9+oj/EzNFXAefte9XIStmrd2uBT5DJTg
F/XnRcbjLP5S6mews4zGvqfVUIF80rxNwY7IbZ3wve7M7nBH7Pe/HU6rNqtx
Wmstx3lo7/P/I419btbDGq21HFuRIfQ2+Es9sd5s0nupg6v0XlbDB5rP67As
8XPZ+W7rDQ7CH5pne0NZ3UUKn6n/dg9PI5+7CdioPt+H9fiqiFkHd+s/sAcu
Sjdbi2byEPym2qzGnNZajn2aH/sPFXW/PfAfwXKlow==
          "]], PolygonBox[CompressedData["
1:eJwtkz0s3VEYh4//VzpIJGJqEQY2o1DtYjEYReJ7aXRgwCYhodfSuYmLICxt
bQiDr6RL03A1FhcxEBFNSaNqEmnL9fzynuHhuec95z3nfc/5l7/pb+oLnHMv
IYLv/Gjkfxec46nYuc95zi1BGp8NndvQPGjHcwIvIF5MgtdQildBC75F/JT4
DZziD6HN1Zr/oZHz8Xu8DMbwNJTjr0LzBejU3qHPBet4ijNW4EXwDl+EGmdj
4/iPwGrphxzeEdnZ6mAQfwws1gln+K6vXzmW8JLIzquaVNtkaLWrB7V4qT+v
cjwEtodcY47YjK9fa6bxOhj3ca3NJs7twwEcwhTrK/3+y7oYxdn7GH7j1XCB
X8ENvgox857BbWI9Vn/U0386W2C9Uc40PszYJr4HQ/gAY4Hv3yjSFllv1KPW
yHqqmOaM8GeIPe6I/YU/+Fvohh7ohR3YhgzsQiu0+Dma+wuKyFMI575m1X6i
s6t+mIQ5mIc132/1cDO0nBnfs6yfo7kf4RP8TCy39rjEX/j3qDt8HllNVf4+
m/H3idWimlL4VmK9VE9XVE9gb0NvQm/jiG/gG3O/QBZvSOwudCf1+ERs34q+
mQ+x3WGNX5/BCxK7S91pfmJvWm9bd9KBf40tt/a4Jv4E+xeBxg==
          "]], PolygonBox[CompressedData["
1:eJwt0D0vg1EYBuBT6dtYGUySRvAHJOLjH1gMNGEWQ1vCyGKw2gjqB9BBlEis
dBIiQWJq4mORSKNmgxhcJ85w5T55nvOe855nYGF1ZqUrhNBHxlQhhHYuhJKc
Y56GxgmnXOk1ZUaeAptq/bLDJ188qf3K/XwIe9QoqZ3Li7S+k/c8MOSeQYZ5
1xsp/Ndj/5FltbZsOfPa+iPdFe/csvdHbVvWOKBKhSW+9dZi3d4z6+P0nviu
WXbVFmWZCuOMMZF606ke+1Xqahuyx5kt62L69/iGIw6pkxlsQ77ywjO9am+y
k96US3OM8yymWY6m++N/NO3t9s2lvOGWdd9O2reTZhtn/AduTD1G
          "]]}]}, 
      {RGBColor[1., 0.9098931834977297, 0.6747997190582434], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkk1IVFEUx2/X994mEC3CkhkHbVJUKj/Txj7QFs4snCg1xSnFr0IX03Lc
KM42txouIlfRykIQhFy4FRE3EbTRtoFI0DbTfqdzFn9+/3feueeee+6tnnj9
NO+dc09QCVqNnDu74NwbuMyPO8Q+wc8og9+DV9El/BVYYV5i31hTCr/Caa/+
pUn8K1SLEtSvgw2oC98IF9Fl6hThTOjce+L9cCNwLo1/Cx/w7yP+IQT/95U1
N/keJHALPkO/8UNwzc4iZ7pva6XGoOVIbs5rznP4Ank0ipKojPgNWCMDwl+H
/egEPwD/oiK/qhhcH/6IeNZmlnY6L+kxaX1+Ie8IbsFu8rbI74H1NgeZxzWv
+ZVwj74vwl24HmlvH+Ck1/iU9SrxMa99SD+pEt1besjZncn3rtWStTtw3uYs
894JtZ/1UCV+FbZEeq4kHAr07u7BQ/b4Rc1tWIh0nrPwj8XlfyHQc+VgE3uO
45u9nlnqP/J6r3K/c7CV7wK+DQ5HOucMPKaPffx3eGpeYh3kLeE7YSzUtSG8
y/cKPuW1lsTb4Qg97dPbOzht9WWfpJ2xHMa93lFCaoT6ZorwIND+N2G1vQd5
F7FA38k5NbOh9QPTXvvMwAV72/LGs/ZOHsNey5Hcn1Zf9klZ/13wB8qz9szr
2eQsx4G+dXnzt73uJ/smQr0buaM4/Adj4moJ
          "]], PolygonBox[CompressedData["
1:eJwtkztIXEEUhmdn795GEFFUYnxkcbVRMY2iaDojxojo6kJcFVQU1AQtlUAC
W4aUMW1SiZ0SVhAUbGxE7FKkcrXSwkfEVnx8P+cWH+e7d+aeOXNmbnJmOb3k
nXNtEEA3D79izm3AG7wWjnlfgBr8FfzHHeNJvBn68Ay04K3efBpe49UaZ3o7
vJSHzqWJw3CDNxG7YpZDueq95S6BFN7gzeugEa+CFFNKoRL/Ro4scUx14R3E
78z9CZ14ube5PLqKaE2tPQRt+Dp4/JEJv0OrUbVqjRf4X94VE4vgCD8kvmNs
HM70XdySqyf3+Gpge9GeVvB8YP3Quz94LmG9VY+/4CMJc9WbxgussUDeeTjB
67z1XvnV+x/R/lXjGp6DsqhejV3wzUfiIpyHhlw5lfsWpvEpyIfWM/XuA3zW
XLijlmuYw/fitrZq2MVrAjsLnUl1YDWrdvV8EH+K25h6ot7sk2PG25paezuw
u6GeqDebUb/V0y1cl1Gfa09f8VFvtaimDD4bnYXOZM7bGegsluBU5+HNc/Cg
u8OaA8T3yoPvxG0vutNZ/B819zL2Fq5CQ94DB4xd8vzJW0/VW+VQrn7dU7zL
2/51hvp3JqK7pDs1Cc+ju2JN
          "]], PolygonBox[CompressedData["
1:eJwlzzEvw1EUhvHjhi4SIVbRmDCqlMGAEFQIqaHSDqiBibGJb4BZ+AYmk8HG
YLUKC7MQi1nE7587PMn7vOck99yR9nH9KEXEIHpQLUVsKjbw3hVR4bfY5TtI
uOFn+DNv8SZO+QN65X20cc9PsC038GO/w1899CQv65bwwmv6b90Wr2OFD5Ty
Det8Df282R0xJo+ibNbgn6jwCezpPvgXOvJkyrNiZ9g7U3I15dkQv8Qcn8W1
7oJf4U6eT3lW7DxiUV5IefbA39xzyA/Qh2ceWJVrKf/x117L2zPyeMq3F38o
68910ynfVNz2D2t1K74=
          "]]}]}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{622, 638, 640, 641, 659, 660, 686, 687, 714, 712, 736, 735, 
          766, 765, 798, 826}], LineBox[CompressedData["
1:eJwNzCtLgwEYhuFXdGbtHhD8BYKw4A9wxfAtKLMNDBq2uCEYjNqnC4JpcUEm
DDZwwTIWLDK0bFHFbx66Q73CxQ1PeNaK5aQ0ExEJV7MRBdp06DLih1/+WJqL
WGaLXQrsU6HKBTe0uOWBN95JyWR8sMIqWXZIyHPICafUuKROkx73TOYjnvSZ
lClh+2CBRdbZYJNPtsmxxwFHVDjmizPOqXNNgyYtvrmjR58BjwwZMeaFV1L+
AcnxMy8=
          "]]},
        "0.18`"],
       Annotation[#, 0.18, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{624, 639, 642, 661, 663, 664, 688, 713, 715, 737, 739, 740, 
          767, 768, 800, 801, 829, 827, 860, 859, 891, 890, 925, 957}], 
         LineBox[CompressedData["
1:eJwNw0ErgwEYAOB3+eyk3C0taf/Awm4uztJXuGoHrLipneTkPMVXlJMcJGmn
STs4iZIyuczFgdryA3ZAe556ptZ3lrdzEZFaH4mYM/PEU1ve2nXgr39OJBEF
K6auuuauhx6Z2fTJZ1/smRuNSMw7adlZ512y6oZb7tnw2EuvvPbeju9+2/fH
f8fyEeMWnbbkjAsumrpi1U1r1t33wIaZZ5574Y1N72z74KOvvvlh1y8/7TsE
YCQxVQ==
          "]]},
        "0.16`"],
       Annotation[#, 0.16, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{625, 623, 643, 662, 665, 689, 691, 692, 716, 738, 742, 743, 
          769, 799, 803, 828, 831, 832, 861, 862, 893, 894, 928, 926, 958, 
          956, 991, 990, 1025, 1024, 1056, 1086}], LineBox[CompressedData["
1:eJwNxatKgwEYANBvF412L2VPICIMhsUiK4IoODQJC64pwsBZZEmMwoZoFMPC
wo/FoAYRFGEaDGMwDIYh+gZekHnC4eTK2ytbqYhYo5CJ+E1HrHuKKrvUOOGU
S3r0eeWbH8azEXkKzLFKiSpHNGiS8EiHJ94Zkh6JyDDBDHkWWWKZTfbYp06D
Fm2uueWOLgM++OKPIWOjEZPkmGaWeRYoUmKDCjvUqHPAIU2OOeOchAuuuOGB
e154pk+PAW988g8TyzSR
          "]]},
        "0.14`"],
       Annotation[#, 0.14, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{627, 644, 645, 646, 666, 690, 693, 694, 717, 741, 744, 745, 
          770, 802, 804, 830, 834, 835, 863, 892, 896, 927, 930, 931, 959, 
          960, 993, 994, 1028, 1026, 1055, 1054, 1087, 1085, 1117, 1116, 1147,
           1177}], LineBox[CompressedData["
1:eJwNxT0rBAAYAOD3OMpg9tWV8w906pTRYmGgQzcYrnxMKO4Wo4wGH2eW7aLL
Qt1guLpFKYZLbpBy6dwfoEye4elJF3YWtxMRkSfVG/HeEzHlLMussEqREmUu
uKPJGy1++GU4GZEhyzRL7LJHkROuqXLLI5980SH6IoYYYYwMc8xTYJ1NDjjm
lHMq1HjgmSZtOnT5Y6A/YpBRxplgkhlmWSDHGhtssU+JQ444o8wlV1S5ocY9
Deq88ESLV9p88M0/t9UzSQ==
          "]]},
        "0.12`"],
       Annotation[#, 0.12, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{628, 626, 647, 667, 668, 669, 695, 718, 720, 721, 746, 771, 
          773, 774, 805, 833, 837, 838, 864, 895, 898, 929, 933, 934, 961, 
          992, 996, 1027, 1030, 1031, 1058, 1059, 1089, 1090, 1120, 1118, 
          1146, 1145, 1178, 1176, 1206, 1205, 1234, 1261}], 
         LineBox[CompressedData["
1:eJwNzr8rxAEcANCPH2cxKi4yWC0u3RmMl8nmZLhF3d1+l/smJdNlRpiUyXLC
Rt2gSykGg24g48X5D84glDe8/c2Ua4XqQEQU+R2MeGRiKGKSKXIssEaNOglH
HHNNhxde6fPF+HBEhiw5ClTZoM4e51xyxQNdPujxx1gqIs0c82RZZp0KW2yz
wz5nNGlxS5sOXT7p880PoyOOTDNLhkXyLLHCKiUqJGzSYJdDDjjlhAuatLjh
njueeeKNd/4BhVwyvg==
          "]]},
        "0.1`"],
       Annotation[#, 0.1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{630, 648, 649, 650, 670, 671, 696, 719, 722, 723, 747, 772, 
          776, 777, 806, 836, 840, 841, 865, 897, 900, 932, 936, 937, 962, 
          995, 998, 999, 1029, 1057, 1061, 1088, 1092, 1119, 1123, 1124, 1149,
           1150, 1180, 1181, 1210, 1207, 1233, 1232, 1262, 1260, 1288, 1287, 
          1314, 1339}], LineBox[CompressedData["
1:eJwVzD1LggEYAMCntIbGQCqIwLmI1DnahGgRCVrFWdJsaQjc+7LagtYIXtoq
gkZBGgQJ3YP6BUEgJBFdw62XrdbLuxMRscPbZMQdI74ZM5+KWCBPgW1qNNjj
gkvu6TNgyBez6YgMc+TIU6JGnSNOaZPQocsL74z54ff/mYpYZo0im2xRYZ8D
jjnjnBseeabHKwM++GREejpihgyLLLHCKutsUKJMhSpNGrQ4pM0J11yRcMsT
D3To8wfiqTBV
          "]]},
        "0.08`"],
       Annotation[#, 0.08, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{632, 629, 651, 652, 672, 697, 698, 699, 724, 725, 748, 775, 
          778, 779, 807, 839, 843, 844, 866, 899, 902, 935, 939, 940, 963, 
          997, 1001, 1002, 1032, 1060, 1063, 1091, 1094, 1095, 1122, 1148, 
          1152, 1179, 1183, 1184, 1209, 1211, 1236, 1237, 1264, 1265, 1292, 
          1289, 1313, 1312, 1340, 1338, 1365, 1364, 1389, 1411}], 
         LineBox[CompressedData["
1:eJwNzD1LggEYAMCnL2kLqaTG5pBsDweXFkNMWqKI2hxenZqCZkGp9oYWKRpa
WlqlMgKJ2gvBXxAEZuDSDbfeylF9uzYRETvcTUYkPNLlhS+GjPhjcSoiQ451
KlRJqHHOBff0eOeDH+amI+ZZYI0iJcokNGjS4oYOTzzT55cx6RkHGbIU2GSP
Aw45pkGLK9pc88Arb3wy4JshI1KpiFmWWGaVLBvkKbHFPrvUSTjlhDOaXHLL
P3yKLgQ=
          "]]},
        "0.06`"],
       Annotation[#, 0.06, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{633, 631, 653, 673, 674, 675, 700, 701, 726, 749, 751, 752, 
          780, 781, 808, 842, 845, 846, 867, 901, 904, 938, 942, 943, 965, 
          1000, 1004, 1005, 1033, 1062, 1065, 1066, 1093, 1121, 1126, 1151, 
          1154, 1155, 1182, 1208, 1213, 1235, 1239, 1263, 1267, 1268, 1291, 
          1293, 1316, 1317, 1342, 1344, 1368, 1366, 1388, 1387, 1412, 1410, 
          1436, 1434, 1457, 1477}], LineBox[CompressedData["
1:eJwNzL1KQgEYANAv82cJyhKcm0KI2xjtTmIONhW2ODRYGEE01Rok2NADBBJU
1FSDexTkYD1AIj5D1tDYGc56lpuH9fZMRGxxlYo45Y4HHnnljS9G/LIwG7FE
gYQ16uzRYp8ulzwxYMgH38ylHeRJqLBJjRbnXHDDLfe8MGLMhD/mMxGLlFgl
ocwOuxxxzAkdrunxTJ93hnwyZsKUHzLZiBxFCpRYYYN1qlRosE2bA87o8g/B
cCss
          "]]},
        "0.04`"],
       Annotation[#, 0.04, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], 
         LineBox[{634, 654, 655, 656, 676, 677, 702, 703, 727, 750, 753, 754, 
          782, 809, 810, 811, 847, 848, 868, 903, 905, 906, 941, 964, 966, 
          1003, 1006, 1007, 1034, 1064, 1067, 1068, 1096, 1125, 1127, 1153, 
          1156, 1157, 1185, 1212, 1214, 1238, 1241, 1242, 1266, 1290, 1294, 
          1315, 1319, 1320, 1341, 1343, 1367, 1369, 1391, 1392, 1415, 1413, 
          1435, 1433, 1456, 1455, 1478, 1476, 1498, 1497, 1517, 1538}], 
         LineBox[CompressedData["
1:eJwNw71KQgEYANDPn1yiP3uCFonortEq4RBCUKtbECmBQWu0FpGLDyCIqNQW
1J5Ncn0CA+kRIomQts6Bs3V6edLMRMSRN9mIa9sOffTJke9O/fDHtVzEhkV3
TTz2zHPrPtjy2bGpE79dzkesuGrioVXrNrzwzp59B745deavC/9cX4oouWPZ
AyvWbHrlrfd27NrzxVdTJ878dO6XuUJExk2Lblty3z2r1vwHoDIpYQ==
          "]]},
        "0.02`"],
       Annotation[#, 0.02, "Tooltip"]& ], {}, {}}}], {{}, 
    {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
     1.6], PointBox[{{0.847163868861284, 10.166365109167797`}}]}, {}}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], 
     PointBox[CompressedData["
1:eJwtkntIU2EYxoeEzq15mZvXnHOo00xDtBBv72sp2mXoRMJKIqslGJFaluga
QSxG/qHYH5kRGCpKmkhiLCShLUxBu9cSJdKM0t3ObhGWnfadvgc+Dofv8Dvv
8zxv4qkLVZoAHo+X7T/k2XuHaB3kVxavsmwK2tRGmd66DlvDHycrHyuxSGDp
byzcAPXzdO1kRQp2mXyptZ0bEPT93cH6yGRcbZOMla1sQGN5160OXQrmZBNZ
Ye0Q2sznk/CGlQPCr5V842xrEn7y0wQWKyRnNIuGBApMq+30E20Q7db9ZdlE
bCe4NhvsqRx8xrJyXJgnssHFB3GbLJuACXoCtMOA9f7TijU5NhWSAe3QdNvM
smw8msl4JjtMX/9gJ+9SgpM4wBGP6QV8GdafJXIAr2RQ074vHp/ICNAB2Drf
oy3egUJiV+CE/GXrVMfpWOTGq3WCIbA077cmFjncmBPixEYjeKORx4mBk9Of
/f+Pon4YyNId2Jp1RGEVca9mQLZg8n8gpf4YWFTXJXu1kThA4uhnILtnVMF/
LaV+GbCMhu/NipHiT2LHx0DBMcnNvgwJ9e8CpTgzZtwXgeVknDIX/BE21Cs1
ETQPF3T7Hh4RLYnxf78uyPzWovxaLab5uGBEJd82YQmnfbuguFhVGnAinObl
hjNzy5u9C2G0fzeY3vTMsGwozc8N1UOil12iMLoPbqi7F/y26nAocnaNbti5
uD/XoA+h++EGR0BvQ82MCDmcwAPNES+WtCEiui8eUDkFE+dqttO8PaBTqd7P
PxIiZ1fvgdiOvm59iJDm74Ef1xS83Y0C5HAWDyQJ+WCwBNM+vJDzqmSkpCiY
9uGFzanLR++Oi2gfXuDz4/iaXXzahxeOt7BzzcNBtA8vrOamf7mUGkT78N/n
GdLMo4H4DwI1f6Y=
      "]]}, {}}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"Rb\"", TraditionalForm], 
    FormBox["\"B\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.8, 1.3}, {4., 13.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6148611955570946`*^9, 3.61486122751173*^9}, 
   3.617004950662912*^9, 3.6170053121115127`*^9, 3.618146386764471*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["valBRb"], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.8`", ",", "11.499996121212064`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.81`", ",", "11.856084520772578`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8200000000000001`", ",", "11.155681495993266`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8300000000000001`", ",", "10.543756807677267`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8400000000000001`", ",", "11.247158633577982`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8500000000000001`", ",", "10.214385397766769`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8600000000000001`", ",", "10.235906369504832`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8700000000000001`", ",", "9.020805759608786`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.88`", ",", "8.999999955173777`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.89`", ",", "8.499998141698692`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9`", ",", "7.999999912203395`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.91`", ",", "8.445920873656924`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.92`", ",", "7.4999999964837665`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.93`", ",", "7.499999729306124`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9400000000000001`", ",", "7.508042026317964`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9500000000000001`", ",", "7.314923847400678`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9600000000000001`", ",", "7.0639518618391435`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9700000000000001`", ",", "6.59721273066594`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.98`", ",", "6.599591169798835`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.99`", ",", "6.23852432845572`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "5.999999998064226`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.01`", ",", "5.983188588724759`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.02`", ",", "5.499999504699444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.03`", ",", "5.62202509314053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.04`", ",", "5.453156034263929`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.05`", ",", "5.27460178835755`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.06`", ",", "5.044557721607415`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.07`", ",", "4.98992957442946`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.08`", ",", "4.848783126685699`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.09`", ",", "4.713918070190077`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1`", ",", "4.582897774286989`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.11`", ",", "4.4606438297954965`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.12`", ",", "4.3418055370714805`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1300000000000001`", ",", "4.200786514020681`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1400000000000001`", ",", "3.9999995723139543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1500000000000001`", ",", "4.0132476993402015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1600000000000001`", ",", "3.9122673424896424`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.17`", ",", "3.8152012248712213`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1800000000000002`", ",", "3.7218483284235537`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.19`", ",", "3.6320740862014924`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", "3.5431741702758814`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.21`", ",", "3.462304743393985`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.22`", ",", "3.382090707325358`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.23`", ",", "3.3047771463899274`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.24`", ",", "3.2302403377847373`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.25`", ",", "3.15540441325893`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.26`", ",", "3.7112338055953815`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.27`", ",", "3.0216770776032753`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.28`", ",", "2.957250192745659`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.29`", ",", "2.8947541726293915`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3`", ",", "2.834356617421958`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.617006390039757*^9, 3.61814638679249*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"valBRb", ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Rb\>\"", ",", "\"\<B\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6170049946441355`*^9, 3.6170049998698473`*^9}, {
  3.618138903612048*^9, 3.61813891326899*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[1, 0, 0], PointSize[0.01], AbsoluteThickness[1.6], 
    PointBox[CompressedData["
1:eJwtkntIU2EYxoeEzq15mZvXnHOo00xDtBBv72sp2mXoRMJKIqslGJFaluga
QSxG/qHYH5kRGCpKmkhiLCShLUxBu9cSJdKM0t3ObhGWnfadvgc+Dofv8Dvv
8zxv4qkLVZoAHo+X7T/k2XuHaB3kVxavsmwK2tRGmd66DlvDHycrHyuxSGDp
byzcAPXzdO1kRQp2mXyptZ0bEPT93cH6yGRcbZOMla1sQGN5160OXQrmZBNZ
Ye0Q2sznk/CGlQPCr5V842xrEn7y0wQWKyRnNIuGBApMq+30E20Q7db9ZdlE
bCe4NhvsqRx8xrJyXJgnssHFB3GbLJuACXoCtMOA9f7TijU5NhWSAe3QdNvM
smw8msl4JjtMX/9gJ+9SgpM4wBGP6QV8GdafJXIAr2RQ074vHp/ICNAB2Drf
oy3egUJiV+CE/GXrVMfpWOTGq3WCIbA077cmFjncmBPixEYjeKORx4mBk9Of
/f+Pon4YyNId2Jp1RGEVca9mQLZg8n8gpf4YWFTXJXu1kThA4uhnILtnVMF/
LaV+GbCMhu/NipHiT2LHx0DBMcnNvgwJ9e8CpTgzZtwXgeVknDIX/BE21Cs1
ETQPF3T7Hh4RLYnxf78uyPzWovxaLab5uGBEJd82YQmnfbuguFhVGnAinObl
hjNzy5u9C2G0fzeY3vTMsGwozc8N1UOil12iMLoPbqi7F/y26nAocnaNbti5
uD/XoA+h++EGR0BvQ82MCDmcwAPNES+WtCEiui8eUDkFE+dqttO8PaBTqd7P
PxIiZ1fvgdiOvm59iJDm74Ef1xS83Y0C5HAWDyQJ+WCwBNM+vJDzqmSkpCiY
9uGFzanLR++Oi2gfXuDz4/iaXXzahxeOt7BzzcNBtA8vrOamf7mUGkT78N/n
GdLMo4H4DwI1f6Y=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Rb\"", TraditionalForm], 
    FormBox["\"B\"", TraditionalForm]},
  AxesOrigin->{0.7921875, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0.8, 1.3}, {0, 11.856084520772578`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.617005311890356*^9, 3.618146386841527*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "Rb", "]"}]], "Input",
 CellChangeTimes->{{3.6182111921186075`*^9, 3.618211195917291*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"fB", "[", "Rb_", "]"}], "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"valBRb", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "Rb", ",", 
      RowBox[{"Rb", "^", "2"}]}], "}"}], ",", "Rb"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.614861243399016*^9, 3.6148612748413086`*^9}, {
  3.6148613102964287`*^9, 3.6148613135707703`*^9}, {3.6170055003972006`*^9, 
  3.6170055015329866`*^9}, {3.6182084110597725`*^9, 3.6182084118463335`*^9}}],

Cell[BoxData[
 RowBox[{"62.32567472346697`", "\[VeryThinSpace]", "-", 
  RowBox[{"91.69455097744662`", " ", "Rb"}], "+", 
  RowBox[{"35.53453849767525`", " ", 
   SuperscriptBox["Rb", "2"]}]}]], "Output",
 CellChangeTimes->{{3.6182111860142503`*^9, 3.6182111973383017`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListContourPlot", "[", 
    RowBox[{"countour2", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Rb", "/.", "fit"}], ",", 
        RowBox[{"B", "/.", "fit"}]}], "}"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"valBRb", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Red", "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fB", "[", "Rb", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Rb\>\"", ",", "\"\<B\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6148614408259964`*^9, 3.61486147867083*^9}, {
  3.6181389357551737`*^9, 3.6181389562568655`*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxl23k8VF/cB3BKJZRlxswYY8w+qERpoXROyhJKSYtCSKiISLstSotKUSmF
tAot0iKFJK0KFaHSorINM2MtyTP9nsc9j8M/Xu/XOffOvXdm7pxz7ufL9gxw
XDNMTk4ue4Sc3L//p07++2sEcv/9seBgszFzMHMx8zDzMQswCzHrYdbHbABb
Ft1l7m5GxzvYbMwczFzMPMx8zALMQsx6mPUxG8BZSlXnAs2b/s9MzCzMbMwc
zFzMPMx8zALMQsx6mPUxG8C4ok49l8MDZmBmYmZhZmPmYOZi5mHmYxZgFmLW
w6yP2QB+3U6+av0Fnc9gMzGzMLMxczBzMfMw8zELMAsx62HWx2wATSb/+2sm
zmewmZhZmNmYOZi5mHmY+ZgFmIWY9TDrYzaAe5r/+wL9n+mYGZiZmFmY2Zg5
mLmYeZj5mAWYhZj1MOtjNoDvZd8upSp0foPNwMzEzMLMxszBzMXMw8zHLMAs
xKyHWR+zAdR3OSz7xrUQ5zfYDMxMzCzMbMwczFzMPMx8zALMQsx6mPUxG8Ad
/75+2wdMw0zHzMDMxMzCzMbMwczFzMPMxyzALMSsh1kfswEsffnvD53vYNMx
MzAzMbMwszFzMHMx8zDzMQswCzHrYdbHbAB1d//7woqI8x1sOmYGZiZmFmY2
Zg5mLmYeZj5mAWYhZj3M+pgN4Ebzfz/4A6ZgpmGmY2ZgZmJmYWZj5mDmYuZh
5mMWYBZi1sOsDx/9Gw4UofMdbBpmOmYGZiZmFmY2Zg5mLmYeZj5mAWYhZj3M
+lDz39eZ3Eqc72DTMNMxMzAzMbMwszFzMHMx8zDzMQswCzHrYdaHPt7//tD5
DjYNMx0zAzMTMwszGzMHMxczDzMfswCzELMezGX++wKj8xtsGmY6ZgZmJmYW
ZjZmDmYuZh5mPmYBZiFmPaj8b/qh1Eac32DTMNMxMzAzMbMwszFzMHMx8zDz
MQswCzHrwf+GEy4DJmOmYKZhpmNmYGZiZmFmY+Zg5mLmYeZjFmAWwv++jlfR
+Q02BTMNMx0zAzMTMwszGzMHMxczDzMfswCzEP7vfzFxfoNNwUzDTMfMwMzE
zMLMxszBzMXMw8zHLMA8MB5G5zfYFMw0zHTMDMxMzCzMbMwczFzMPMx8zALo
+G/2tQidz2BTMNMw0zEzMDMxszCzMXMwczHzMPMxD4zn0fkMNgUzDTMdMwMz
EzMLMxszBzMXMw8zH7MAnv83fTyHzmewKZhpmOmYGZiZmFmY2Zg5mLmYeZgH
5h8D1sBMxkzBTMNMx8zAzMTMwszGzMHMxczDzIdd/4aPneh8BpuMmYKZhpmO
mYGZiZmFmY2Zg5mLeWC+JCGOf7DJmCmYaZjpmBmYmZhZmNmYOZi5mHnQ5t/P
jTU6/sEmY6ZgpmGmY2ZgZmJmYWZj5mDmYh6Yr6HjH2wyZgpmGmY6ZgZmJmYW
ZjZmDuaB5xfoeAebjJmCmYaZjpmBmYmZhZmNmYN5YL6IjnewyZgpmGmY6ZgZ
mJmYWZjZmDmYB563oOMdbDJmCmYaZjpmBmYmZhZmNuaB+amUOL7BJmOmYKZh
pmNmYGZiZmFmYx54/oOOb7DJmCmYaZjpmBmYmZhZmAfmu+h4BpuMmYKZhpmO
mYGZiZmFeeD5EjqewSZjpmCmYaZjZmBmYmZhZsP/hmt30fEMNhkzBTMNMx0z
AzMT88DzKvT6g03GTMFMw0zHzMDMxMyC/31clNqJ1x9sMmYKZhpmOmYG5oHn
W+j1BpuMmYKZhpmOmYF5YH6NXm+wyZgpmGmY6ZgZmJnwv+HBbvR6g03GTMFM
w0zHPDC/RvsfbDJmCmYaZjpmBvzv7apC+x9sMmYKZhpmOuaB+XMHsf/BJmOm
YKZhHpi/ov0NNhkzBTMN88D8Ee1vsMmYKZgH5m9o+8EmY6ZgHpgvoe0Hm4x5
YH6C+g82GTOFyGf0L7vK67XTheFuDWsdGhqBzw3SFVUyk8hDTBXVJ64ZxYRP
RhVNDBAN5CNQHsI0N0dudjcD9s47XqO2f2jeQKgoPjlBog1/ZGYPOxTfBHyt
uQFPv2sTz8OvP3zVTSNpw+PV9k2vOc1A+3pKjJ83nXi+zKnSv7JpBh3+Kb20
f7vt0OfLV3YnfY4I1YL8QmP7vvPNgKX67FvZdC3i+eahmMQ1S0pp8LX64pQr
rBZwu2z66XeTacTzQVVbP+sMDg02lyZdMzAb+nzwxDmdFz0HqdD/Q/mnzvgW
sNzN3QGsphLPnw6nzjL8MYxKPK8I83t2eHSxPpQ6FE8qGC4Cziq3hh27TCGe
38wverL0yk4K/D652mCt/9DnGX7O21O3hegT+0uNlz7f1atJrJcf/OXebSrU
h2dMkkb1GqHnQS9X90kPbhQBm4ULy21+axL7uy0fljT7kCac+9W6jnRABEQu
4IdHlj48dP/MsfBqETjI/5GYFoj2TykTfnbga8KObcKPgfKt4EdavX34DH2o
Pmn1Qj5sBbRRCc8obWRifTuv1K7Iu5AMj3rTjI7MHLqe//N9Qg31rR50+Dpn
9YkLrSAx98SbMSFkYv3YPffRVYtVZMiN/Gx/fnsrCPErOpxfiNbLR9nrhvfs
1IOka2n9zaPbQKmp9bA+eTKxPvvZsrs+TeZAE9cd95XR+uXOtQlGrK5W4DbV
yLd2Flqf1pwV6dYg1IOcBevbVxgNXd/9JHyyd/VNEmxSdY47vK4N7HV5k/v3
AoloL+pOfnvwFVov7fUS11f5kiCVqVVk/bwNtA7/tqvAgQTj2y5eyQ1uA06L
bz9feRv1vzi7aNjGILQeeYen1JjCJsH+pazq42Qx2FfYvCbtrwYczi6wzJG2
gcq7Shdj9VH/1NujJ17TEsLHVanXipSHrv+V+MdVH/uoAY8sUfG8OEcMNlSs
meqerUG0f/6zMLDmHlpfK9cXtR8/rQGbo++fXRYkBgd32Z26u04DMuYampSb
ioFT5adt54+j/otDZhzf5ILWsz7mj1sS5aYBrfdbml1LFYPDBacubRRqwHZt
xVILWfviRQfDPg1H/aGe+4gVwwTQVUHtUusOtJ7Uds+2ffsDMXa/EwPGFrkG
cy7yovIsvUvJfPhwvnmy9ysxoOfIW/U1qxPrIdLsgq/fRepwdPijpB95YjBS
sD07eS1a7ynM8VHrBnyY37/cJLgRrZ8cYuZlLOsVA/IwV53p99SJ9Ymo5OFn
owuRZ2ytzbn4hQeDFLVc+oUSEEx5IqcYq06sB4zgSHR+HlOHK+THzrPqE4O4
Lb53FMvR+sa3CGimE8aD0bu881Y5ScCx1DDnxR7qxHx8n9sB92Eb1OEBvb4d
I4EEpBSpb6NOResL/FFO2nEsHlyvE33FZCmav5+eHbh5e4QEiF5ETxthpk7M
lznHnjx9ZYM84/5MSecDLjQ0iqpemCkBxXyaxxiKOjFfjfWcZ2kjUIfTso/n
q0ZKwDhBRaLrSTTfftXirMlx4cIczYel36ok4H6gxib3TjVi/lhafvXUhpHq
sMnI7OkqmW0XJLjoy6P578muJGm2bH4ZWqx4pu7/zTcNl7x9O3m4FFhXndXu
qVIj5nvRP3UKLRuRL5sGMr6f5EC5kIJhsw2lYO+zi65vHqgR86+s69+WVL5S
g4VqofbfFaRg8TLpF28PNF+c9N2zco8ZB44/cN/yuyGarxXfDuhUcpaC7fHK
Ct0X1Yj5k+akoJmGd5BveFkH/q1hwzmGyc/ioqSg+EGJcEO8GjG/mf5W2ckj
TQ0WFGsUXbSSApdspUf+JWj+lbc6qeH0Zjas1/VWKc+SgtUbh3+3jVIj5iPx
2/iB++PU4MGQVV/X7ZUCR49xv1aPQ/MlSnVgtIDOhiYfemMWJKH5S/OJksvP
qqRg7LH5Fpc2qxHzi9AQ24MvI5H94pdqvb3FghschpdtkW8HgpTKZRf91Yj5
wLnO/a5Osu0Zrudo+c+lQP33sB+1sWh+Uu+7jjnbiQWTzJ4HFY4aGM+xYLVq
eG2VQTvoyLV7GuKrRoz3lWPrrVZsQJYuiO+vk+pCn0MTBN8Xt4OuAyVpDj5q
xHh9run1X7x1avBexizlb8rtYO2ZwPa1zbpEe5yqvAmdrQtfv1OpPbmzHfge
rivdKes/MP5W7Yh7qyKzIGz71TcL2sH4KoXe9Ito/C8yCuJcXC2bz4fHLmUF
o/F69n7dW63n24HDvU7h8iA1Yrw9QsPEM2ID8ozQqBHcFB3Y1diXUfOyHYSR
6Kccw9WI8TN31JlVSlvV4JXfMUFLjrSDqxYuDYt9dIj2L6Dm6NZyBry+QHmP
Y0c78L8ctKnniBoxPg54cLzVOUYNOr3s7zj5ph18271rX68BGo/rfUwuPq7F
gG6TzRR6PqDxdGj9Misb7Q7wbdmtuJ4rav/3e9EBzBK6muafQe6sZk84O1Mb
siQpPldmd4Cu3OviCS/UiPGv8S9SnUKeGnwY9MlHSusAJ9ecE+k/ReNr7rXJ
zluD6LA7qH9/oAUaL1+QL3zl6dMB/JtTfma2qxHjYeffcpL2L8iczeyKhcla
0MTz1uIlsR1gW875te/46sT41yZvUpIiWXY/krzKtVjVAf5OXiMyd9Yi2sPq
pJbMW7L53yd1rR8paLx85FZvluv1DhCQNkXef7U6MT526JY/U7sYOX5ab4DL
ZyoxHs56/3OJ3AV1GCMQvlRJ7wC+yRTFz/mo3ezYtoPf71EgYLZef3YZ5ZXV
FU5N3ZM3NE99Oin9g+U4lL9uXxwcEnWVC/fuaDWzzR+al87V3DhZZxfKJ/8d
2fE60YsFE6a113hSUZ51oD3D6M6kDAcO/Oi0rHa+PMqz+vx69xZmNIKzTt+8
3z0VwoyIR86J7xtB05jQn9wZKO/8/nYC5aYzytv2bQPV2mNQfrjM6LXeD39d
wi/EzuGxy9hwnMWwfpELytPefVNgsjEa5WcdzSTau51RfvYF3HV31DyUn+05
/uJb70qUn23wCp6lMLYJZHlV3Z+UgPLM6byFtcIXKD/7VmHZcAsDffjw+4ck
y61NYKxXrcQ+DuWX89Zt2UwzY0L90ohnE1OG5psrklhNZYdZ8OXjM+tvl6Hr
qXMwPFttSxMY5WNc0WyH8swx/l9d51Vx4OTlq87/eoqu7yF2LuehbRPgbwkN
9qrkwT3Oji39i5vArMth5hG5fPhYz8J/zMYmkASPKN12Q3nnvXGzOhPzBPA8
I+PJftn1iLAavdCwRg/a6tqvGbEd5YNnhjbu6k5HeeLWmx7DjxxoAvezNryr
UUZ5W01bba/zk1Ge2GrS/LlLJ+kQ7ihedf7rI13Cy+sP74x9wIZc6cYNWQKU
P/UuUJtqeKoJ1Kcrn5j4SQAVYuEsr1dNYLPt5gcjZ6A887iRtU4XFgghfbnt
Lv23TSA7s8rmrx7Kx9ZN8duwaII+NLxuI93Kbgb12bmaLzcw4Jacqp6i7iag
+z7PLzRYlzh+tgnJ1sOUARcl3vh6ympo/ln5qXkJKU023zTNYOV7DM1De3xx
4K79zoIuQQsF67ahvKzBkaITmu4oL7vaPgyc2IzysmmjEj3rlJqBfkN984gw
lG+eNG+Oh2GiEOqRKIE02fyTr5B3NngKyscG91w+G01H52uYUP4sxUObsMn5
NSn1iTpQWuE+MmJ+MyjzU295nYXyzNtutursNGNBtdlJekvOojzwXr8rgXZB
zaDarxm8NUN5Zovq3oDIMg4cVlvme/gOygc7RaXtO+PVDM7w62/Er+HBCaRk
sWWo7POgoBG4m4byzhZyz18tNODDzQevJf6VHY90Ta3n3EyUdw6uXhWyPl82
HwnzzJwY0gy4JvYjXhijvKxSzo8PnN/60Hh/Q4TqtWawJNWRXveLDk2bS5uT
zjWDb/KmYRtn6xDXZ+Onn7fYiXRY2r/px3EKypcOtNetGbvz8nUGZNyR+3OC
gvKmA+1qYuVK4wW6hCOX663Oy2BDqtO4g7MoKG/av/3QtNCMZnChwDObthfl
n53eJ69qLOHD6NPPuHEnmsGPLv041xLZfGkaq2WdKsqXDvRfdNNkTdRzIXz+
dEyuUWkzONiS8+AJE+Vn61KMhjUWoethHbHnY95bbXgkMOH0LFIL2Abds+7G
oPzz38fJEydaMGHXLLO/Z8yH5qO7TMyXqNSyoFm16Tatb81gvOm4NQtr+FC+
z+LTEV4LcEnfoH93jABO1LGeMO9nMygvjnScUYryzQ1p57acHCuANoXJEfM5
Q/PNu37+idB8hPrf/+h8x6cP5WWXXVBZsC1GHyY/WOEZz0R52ZY6V3WxcQuI
sAmJ//ZEC9qPTO5sn9wCLi2vh3Z52sT1UFKs/HliqhZhkwrRyyN01N4z715D
6yoduON+zLpr82T7f0N9k3cS5aPNJ1wQqs5gQSr10JHhJ1GeeEtpkNWfDS2g
xbz63Di+AAZGr732dGYL4FpU1qoUobxz4K3TloE8AdRydPn8Wb8FBIfXWbD7
UP45IrTeYngW6r/I4ckNSoUenEee9HvCuBaQFMF1VPuF8rORe17P77LRh2na
VXFX0luAXXxB17FaGhzpvOfL8JwWcGbx1vyfp1A+mlHxwnl5Ig3KH5xdN+L/
5Yvn9E6b8vBiC0jV8Qx+KkL56WvkatjnRYfDg2v9snqH5q0vaZX+WXqIAT8V
Fq3dNgLlUwfad8z6/adyjS48a9Xx+uFwlD81O3xsqnczyldvCL9l9a6gBTwr
V4zarSeAk5fZz0k6Ifs8BNwoNbuI8tOqoov7O2TXz1M70a33QAvwv+K19dBz
9PnI3HIhr/0A6g8V3jWaperBgJBwT+X4FjDyhrHfzhx0/cy6H0quFWgR3qCQ
quv7Qhv6rv6psO1PC7hb4XxWuRLlqRszD+0z3MSE6ivYkbusUP6WlzbON1na
AhZe2PK7bB/KUyuP+XXHIocNz+xOt2xbgfK4byyjFvySE4HSxxeaOlxQ3nom
VbdII54LzU+HOBymiMCjLdeFEVoCeMbIKgp0twDq5eLdzjtQvtr+F1/9jaYA
Rka/TohyR/nchnMfDPVkx1Mafsjf4gDKX+envL+U4Ym2B7f7OsPW6sFR3YmV
6/62AJU/Hmyplz4c/3nliS5Ze0uJ/Kvtf6mQuStMaDxBBJ446j+LvaBFrOcF
S1zf9oRR4dwEFe2F40TA2UOy1O6GNtH+QEM1XGci6h/papfgKUTtSo5h3Ttl
848BXynpHH65mgUDFjaMnjJZBC4pKM3+XYDy2A3xTRFaEi7UeJv/JiVraD7b
d7a18qlffGipYnbVYKUIXD65P4U+RwjLmzbqN8psMmyn2xOI8tj+0g+ieZOF
MGuPoCfp4dD8dtiD0miTiXpQQJebrX8N5ZsvmF9aU+UnAq6rlnz9JBvP9NFW
RkgPiEDVuRJXpyVUGHK34lVTsggY9K8ILv6E8tzzmzmpBcOpcMlD7pVd50Tg
RkzqctUilO/Oy057onyOBhU6AqbP3CcCzbZzU6y9dYj28oMxWrYxdOj50sBn
42iUrx1o7zw+etipRgYEUy4GkQ6LQNLJu6bfUlEe/NDFzMo+Gxa8ZCNaO7MJ
5cWTG/xu6W0SAXK68jO5Ti7smeDMzpNdjxULn007MYwHrWisM5+CRECQ0+uk
+AvlwT9RM/Y4yto9HQ92+lUMzY+/mvNuNPcl6m/V++Hcon4BzPotnbpo+9A8
/Gi1WLkvbShPnjxCfZjggR6s49z6Y9MtAmo/4t9uuU2B+/u6Xlwd2wq8Habv
nsFD+fHr26SV72JRvnzcxwPVvq1ahDfzFc3/0mnwc5Lycx8+yiufeD3T/+Wo
VpDQOmeJhQPKm39lKl81m8KAx6/duhk6YWge3Vlx39L4RF3CEpWaBD8pFyra
ZAUXvxOBprBdlN+P+FBC3bPmrex8jDrvW+j1ozz5roe8cuNEPuwILyPNeya7
voHktN4mlC+vKznpHHhfAG/lT8y8Uye7n7xsGvH1PMqb860UmcEXUf+EBtVL
ewP1oH68uTbDoxVY6RUsUWNTIFzAMrWgtQIppYvu2aBFrGffmDL8xaNLVML7
bmaXfNGiwM+Wz9SStw3Nr49wsxC4B6Ht1xgo5bxP0YZXf/dFfTBqBRZnVZ6c
kY1/BtqFiye4b3jLhKm7Lu18LHv90phNNcelKI++NLBDY3kpF5pOTR33Z2Yr
iFua0b0+kg/X8suVVsj2p7V+UvKPyyiPPunrqpSuVXwYfCyhizOjFfzODHgw
KQbl0yeyb+w13CqA7v2Vzc1OraCbLVeQPFWPaD9u/9XltQvqXyOwDrDi6cG1
8TX+zrEo/z1HtMx0zdZWwAw55RxzmApPvTauWBndCqKv2jCL5moR6/l6rCsj
Dc1l82uDhcKbO2TvZ4et7eft2kR7yS/vXQW/UR5+8TYJe7S2NmxwjrPuvdUK
qK9yI86MRfn3tBTDZfdGM+Hw8nlaIfdRPj62gWEzRnY89ukXwiqforx7p+LP
jGVnuNBpvpJWzqVWsOJVgbFoMh+m6PW7bU1tBRpnOVUxtijvLjRdnzuMz4e3
vdjM5AaUj0/1eVLVd1V2/T5cfyDQQXn4yK5HXs6TBZAXUBA4qWNofr5gDXnu
VhLq/4602Ne1QghNN55fzi1F+foP8929k0pawWotQWHORU34dx7n8NG6VnDk
xlr5TCUqtM3quHm/VXY+xVZJ9RkoX5/3xmv5nUoKXKriaze6qRWIsm81WD5D
eXsju+fxejGo/+QT6+xVT6H2LTWKHbmROlBu3arHgR9bQdHbKSf6D6A8fWz2
WcNxPsh6vLTlx7+gfP3lmwrtx5v4kLJs0zB92fl8DHB6X5eP8vQl/JSv/YUo
b7/19GPDbTuFMCfdqFfdoA241aomq5pqQtuOiPy1lm1g0ugVWuMOoXz928cS
pz0KmvBx3sn66GVtwN8ArJfXQXn7vG8+x7Q3UWTXp0bVc2kbaJvbyNDmofz9
1rwlqjOpNLjwaJw5dQPKsyuMjBq1W9AG1tHHHIEOOkR/tY3+l5Yz6NCkk2N9
P2Bonj9z37r4FHkduPjFToqLdRtIVrhnKjebC3fe35ylQm0D/dIWj54qlMe3
skwGZydw4byi2uh9J1G+PZC3ZUYyqQ1wr47bc+Mryusf37SnjZzAg53XfVOf
yI5vRNVdg7KLKL9vwYx68v4EH1qXXsi7IXv9qE8nj3UAIdF+yZepyPUXwOPP
Pxq1R6E8fPSx8fJbYttAtHP6dFoFGc7R+BEqf6UN1IzhZG3WQnl/bVqb88vr
qB7gZYkWb10elfCs202PaZoUWPBiO2/Gw6H1AsGi9lGhd7Vg1/jkkwHxbeCv
97fwPRdRfUBC64PHHruR9xs0Pvdr5kDjqOL3Mw+0gZE/TtZ88eNB6dIbv1Vl
ti87prbBH+X9S7e4vAq14cH+XV83PfqL6gNiX+x9YJ7aBpqjclTBOFQPcDO3
YmScNR8G+l9Q7ugZWj9Q/H7E3Fxt1P/QosgN+WUC2H1LbcreZ6i+4HQIn1Er
agOSz5px3hvJMKSM/c47rw1w0lvsHmRS4f/2E4OQpL039z/WJGw3fGlGhDsZ
/jEa7mVz/9/1bjk045IW6m/0nBXgi7ZfM//ymyB3LUiOziJn9Mnerz2P8o+O
RfUHX/7M8p2pwoAP+8IjriigvG45a79J0W3Z9Xcu0/5SzyH66+fOZlOPIWvV
/i678hfVH/BZnc62PTw41nksxa+4DdzSJ80wvIfqDR4Z5R39VoTqEZT36U5a
FCK7PhvncnaNEAP/gMuL+XmacL7v9CsCoRjMbJh1/TSFDB+O+FO4b6wYqN+9
QbKypRLPI4uugRrPUE3Cj0aEikNIZPhRbLXpw2SUX06dvEftmKoYZG0PujHd
XIvo/6qJ41ihhfbn5R2bnj4GtQtmKAnj8rWhYcPBNyepsutFfnYszI8DF5Mr
q+1lx/9bbs9V3b+oPqFHZ2TRrrkc+Psd/3DMfJRfvmI3c3iJvBhoC5+sb+pA
9Qtj9jY7RqVxoRe4dN9Vdn4VN5t4Uy+ieoZbq7zjNU7z4HGWh/FSthgs6XC3
uzBRQLR3/Ym9+8QX9Zc/nPT2hI4AUic07b0/FT0f5V1u9BVMEQMz2xOfU3xk
11c072/RLDEoblx9bHsbqocotPPvUZHdP9MPhT6YDmXXc69bgdlHVB/hajHi
QNhrCsxS21c2f6IYxF9bsOjmdW2iPbNbzdywEPUvJrnnUcNR+8vaD9vWdLCh
2ZFS9YOy13c2yVs4dhsXTt9+St1X9nr86N9HQvxRPYTq7dEuv+y4cJOS79JX
W1D+m7svYaqW7Pr+vFi3jsNE9RLbE2vMLs/lQVpLiXRB8ND6Cs+vc1Y+0ED9
XcOcsh8W8OHpSY+nFa5Az3MZ8MFMBy8xOOtWtJdN14Srhq1d5bVBDJZ7rlqm
dRrVW3DHbM4P6iHD81UgQD1QDCJ6PNQFMaj+4sP7XSo++yjwcv+3Kg03MXBQ
cAsh+2oT7VrpCr84W1F/16trosfbacMqq8wt15zEwMJS2elOK6q/eJ15o6wy
BvlK06Htm3pQPcbfrECbdhEXjn7UkrHDQwyUzLeOyUtG9Rddk8afOHoT1Wd4
7t3SlOrBh2e/WE6Uj5ftbwfFeKPsfn535vc91tliMGzfq8ZIOxI8p0su3HhG
DA5vUtCVOqD6jI+zlHdF5cm+bz0zHZkpYjCjesQfhRmoXsNkffDHvdYU2HBq
bLvPATHICHh21s9Ym2inbNj3u2QKDdoqHehKejq03sO7butmP742dLu18t2s
RDHYUrHLdosNG9r2bjG4tlMMgnWOTs3tQPUbf71yQtv02JDx5sn9GbdRPYGx
Sb3q5HDZ5y8364Pcd1TfkTNl3GbRUQ4UUq+3LDsoBrYBN7eeikX1Hs6zw6br
xnKhZ8SlosyzYpCssxbsHcMn2u8aLtptvpQHH6z4U/TtxdB6kU2zfY2hIh/+
8rzidOwS+nxdqHn/GzwUg27HtdA9DtWLdKddTKgyIMET79bpldeJgd7Rp3vm
aZCg2PdhlEi2fxv3seo/lVA9SWRKzhOTXWj7zBTLv/a9VMKmrjHXW0ZT4Kwz
143Yb1H9RrWmgzXzjhjUbzgXPUJVm+hvQ2oKV9FA9u58LnTNYcGdpT435+eL
Qe6MO26nVnBgVGquoLFADMrfdpceWojqS66NtJH2TuHAfSnSpMvfh9aj6H7X
vPnDCPVfMd79wqM+LuzYUkgL/Da0XqU5viZ02AUeFEV2h45tk1m4rvr5YlSP
cqju7PSIXxpwlkdAk9wYCYgsPHxw00cNqGLolTe9VAw2FiZV3/tNJfpXOo6d
va1Wk7Cb+WH5KHu0v7fRsdJb76gwMp9TI/os+3xkz6/2VNAm2l981f7JpmnD
0CnNc+9+EYNsyexFMBTVryR99Nk0fSYLSg73SCtVUB59oH3Bi/qFtLdseNzh
Zv5y2fEdW6C7/NgfVM/y2tN3q085ByYuAgrGsuuhYrHpwphNPKK9zzinbkci
6p+8eJKzlRUPMs6dpu3XRHkOptZtkdwvMRhbkuS1qUoTsi8fvbGBIQHrni91
SmSgepjjHbEm9i804OVLnh3vTSXAocxQvSFTA/pf/bA8XLb9zR2m+jblVKL/
zVLF7So5moQb9tfHB9HJUPJw+Si3qUPrbdwmVK+8cYcKR0TOrvRRlACryaWj
WynaRHtvZpah/1xku40ff1xbrAvvP/h8sFZOAsa7zXl27h4b3pSTGlrKS8CF
HSdOqd5F9TRLKxd0Ra1lwyKdH42zVCVgWAn7+W13VF+z3eqcV4sf6v84dNlH
QzPUPv7mExG3kQs1fjJK1U1RnuTe/V8XvfgSILJ59f5YpiaRn9nZ9UZeV0wi
7FrTNHV6qgZcdIR8QG2e7Hr+DJtyo5UET884UrPCWwKajjcsjovQgOrZR5cP
k+3PYEFlpucNKrH9yjlKgblH0P6L5mVastOoMDvPUenTeAkofdcZpuegTbTf
NnSVM5H93p6Y93ljMJQAtm+s2GUFExZfP6azbvnQep/kpjdOCxhMGFMdYVpn
h+olho3deO/LXAkI9n0wKVSdDVti98vNmCMBs1WTZ77WRvU+Ge/TrrSOZsN4
b1LabztUT8FLMjZ050mAR9e8uosfUD3QklEhicFqaPsVIV6bc2o40K/sRpWy
w9B6Intf04DIaC6E/YunzlkkAb6jf7yftleTyBuZ2rwue/mKRDho7eIoq60a
sN/ha/j3TRKgQQue/eI5CdaSzE7EHJWAV6Ou6Hgs14ANVcznObLXGx8Sxs5M
ohLb79p9+cOrTWj/ozWZnqbHqfDnrwm+JvMlwML+YaP4njZsO3j3St1CCahR
79MnH9Qh+mevXkkbcZQF1zobkbtl7RPLyx92P0b1RR7aBk+7LrBhu4659hLZ
+1+hUKTpB7lEu9b4DbLBPurvq/jhS4aAC9XXRc75G4k+f1FGlOLEnRJw+myT
3/51mkR+6nH/LeOQGyTCzqU/s8IXa8CHY910l6VKwEnrhu78DBL8e3VcxKp8
CTjT8dF8qYkG/CqafDl6m+z78HXzsxFHqMT2xeX9t265ov3bP5aTpByjwuL1
41arHJKALclGCZNsWLBy76LkbTES8Nx311frjaheyXr3OYGjgAUbzxw6SklH
97sdjKNBZvES0F/aerNCiOqZ8tr6g9mz2dBRrm9u262h9U/bPOPsz1NR/+S5
E5JUijlQOynUS/88+vy021fHrrokAcL81SnvFmsS+TDHrt4OkEgibEmSxrUb
a8Adp++9Xv1CAoa7rF6ZeoQEV6QbTP/aKAGCvKbZm8gasOznMyfnNNn1NOS5
nDtKJbYfK/oe2GOP9s/JSziamobak0Yl+FQt0CX8UnxZpbiWBTvP2HofuCwB
JeezChPTUH3UVGNLD8XrqH5K3JQXXe3OgVmU+zfaRqP6jcy+yeGHy2Wvp9M1
L2yuJpFfs7M7NdozikT43uv9h+6RNGCJpKhDsUsCqox3qMTtJMHGT7rr1J9L
QPqZjYsEsuMd6E++bkudPwftL1Jt3/bQQiqcDlSPXPsgu9+sfbjOP5cJr+YK
49ReSsDuO6N2JBajeqrYU/0PtJYxoVLV7cIVveh+EuXTVpdXKfs+5vo8bYxE
9VYaRzevH+/HgoE7LNKMmiQgeufn0QsVOUR787SY2Fd2bKhnytnRoILyaAPt
nfWn7vUocGDVyVuvCkXo/f8U/+u2juz1063L4lTMNYl8XlTLOVNWMAm6T9vz
zIIlBTV2Ur0HfiSYHj5sd7hYAuYUu8uXPKQS/a95TD1wbjbafmvb4s1d7bL7
c+ukRULtofVeek8LFvqzdODHezpf82ei+piOhSsrRepSMNbKMlqiiuq77gcs
NG5SRP67KIDHbWZBoxtzvwPa0HowFZan3MLTbDjJNPFpL1cKNKccyTGZpUnk
B4OP1xZV+JDgj81LDVVspaDM+Ml9H08SPGt8PmCNphRkxu9Qie2gEv3j6/bQ
zOZpwsNLfrynTpGC2IrChiW+qD5s/qcF+dduId94LH/zuEQbJlCz2sJcUD3Q
SouCE9VaUmB3NkE58BOqD3tR49Xny5D9XlPDnq2bIHv95owEnhebaN998/3h
OWGov/+pLwruM9iwwblUpLgcvd/rYcZTir1sfyvOTf5mo0nkHes+2DGaPEiw
Z+9OH7dgKWh0WC/95koi2iuiIsryVmrCySs/dJUvkIKRseZBBQItOEEpiOoj
O/7yiNYV3TuZUD+q5OseNymYY3+py8QY1ZNRV7BfvZ/NhFO1KksOBw+tPxvH
fZvgxED9Xfb63G+oZsH0SP3XhUHo/SvtS5AskW0fnmSaM99Nk8hbZiTNduuU
Hb+30sknRqelQPnvyNnJq0hEO/ncnIMbdqD+Z1SG+U0014FmPuvEIwOloPq3
99m3j1C9WVatWy3ZRZfwOxXV83ODWBDuWHU38aQU+O5Y2q8UoUnkNZXPvvt1
xZcEuz6cnLW1WAp6bu2UsGQeaF+2+uiX7RmacH6w7gefTCm492lzoSiBASXU
n11V56XgjtOdjZvaUb1Z9vxsNSUrBrQ3kKsc/Rh9/nvZitKP2bLjHze/isxh
Ef2/j9HpJMUw4YsDtknFb4fWr63bfUeDR2bB1fCnn/tDdD1J246NzMmXgoTj
N7OmXNck8qNR3lnFHZtJ8OpMnUeCFinYs09jm/ZWEtFeHDv6rrtYE4YMjzkV
1DC03m172IsvxbLxfN73q2a7R6D6ooF211VyZcY3dAj3/yk6O082Hs1z3q27
4asUrGH2haRINIk8aoCE3iR3iAR9n4TFGJDagc8cB0+/OBJ01L16IE2uHeze
2j9BbSuqd9N9klt7oga5+peZ/71kLbj8QGC9Kg/VP21ikjaPl52f83D1mW+3
6MA4Levb5t2yzxeMOblTxCS2r3/6V7ewiAH108dEPzAaWi+XyohYb7mPCdM3
XDfarze0fi7YL95sxTUSDPtzvd7PtB18zFj5zjCbBJ0F1t2dtHZwKXWkf581
lej/aN3M3c9E2oQvC92VVxTpEPnYxMbzH5Q/kmDyz6rqMrd2UGrU6VL6iQTr
W4pfr9iE6r+2lY1dpDi1HTAqSpQSP2jDFMUNHvNmtAPLBFZ+0ym0vyLhD9t7
7+hw1stQTknk0Po51qLdrIffGNB41dwPrpdRvZngRbu30a52kJ5A+5XGkw25
HtmdzM5qB887XkY9UUD1dO/uWvx1m4zq6f78OR0y5ZMWPBY6rDwjoh3M+ORu
d3oag2h3mLZ+VbouA+ZuPBWvEouud59oQsK3s+1A8OXhnNWJqH7uwuSrjpEj
NKCaR9oSzpt28MDiaHmFEaq3m/Lm9QthIxlem8PeWizbX7uxO8c3VQturcxs
O/x2aP2d0gKzbulWGoQv33GGFwytx9Ols467T9SGHi5ub+bktwPz0PoJ16do
EvnfUIo3+ZupBjwfXvQovLsd7CqWk1is04DLSN4sfdnxWY5VaA41okDH1eln
LJ63g6iLZvMLUlD9neC6R7fREjpMqljis78BvR//+78DhHEXjnfcpQHT3382
iaV3gAfrR6wX5qD6vAqL0X0iJy0iD2x2TcVQ6YcGhFbSFvGMDlB7ZNyG+xok
uGOp/5Wxsu37rdKzbO6h+rqZaxfyMpfQ4ItFmQY7p6P87kA+uDtTtXNPIAku
zPa9P2llB6DYfXs5IpYE10ytWt8SOLT+Dvws0O/vosDHdxOHvQ1A9W3L9jSW
U4I7wFMxrdDTg0zko4x6xjv9rkb5Ctfa4EZbRZRvGV6hG/LxL5V4Pne5X2vB
6DuaxPMqD8e9tZ9kv1cDz1csTzeeq9ETEuuRPw4wG7UrSPCVqpO59lIxCDJb
E5nxgkSs1yn9uLCIcoIE6evnOXhEi8Fsy6ZUsI9ErDdNvPo5dYXs9yV21sFV
7bLxxPigU+90fqsT4wtlCdXVX+aD1RVl64EUpLvnzJ/5U534fV59dSf0blCH
hWZnehPWSsGlsxW3Td+rE79/Bq/NLGqr1eF33alhfvFS4LZxZeXkUnXi96i5
zdGt55U6lI/7NK7tvhR0dJ9d6ViiTtzvp9t2FXQ8UYdrLu4U0X7Ifn8/r/V5
+kiduN/e2pLdSX6sDjseVZ6sHyu7n2wYHlopM5H/5w8vyZLt72jWzyK7ae3A
e+T13pcv1Yn7UYttT7VQdjyZnzs2Wa1qBydHKduqyo534H6R0rN6n4LMY+e8
/vp8j+z+ZPqlhdqsTny/a8unmdQ3qcP/AfG3kwc=
    "], {{{}, {}, {}, {}, 
      {RGBColor[0.4022409456153132, 0.11256809584755181`, 0.58630911102037], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlD1Mk1EUhm+93yZlhzr4F/5WSl2LxDhJiZMpJBoXS1TQ4M6PDu4qAsGZ
kjhXjEIZtK6GVnbAoBMUBhONoO/JeQjD+733u/f83XPOPRfujt8cOxNCeC5E
4ZE+8+LH4ltJCL2pEK6Lu8U5oUdY0nlFKAtvJfdJPAd/5iybuGxOfKT/s1of
B0eL1v+CI611EJr8H7DXyv4z2X2v5YL4kmyd097lxM9MJiX8jc5H4j/xdG8f
f01ifScsCy+kX5TMjHhVmNK6Kp4VRrV+LR4Wl4QR4apQEAaEMZ0NicfFHSnP
T6cwITxBp0IezN8D5E2vJOS1Lor7xYPYno2e0+no5zdSfl7T3hdhRdiQzqT2
PiZuu4b96cTl74v3gud6n3y3kPMl7j9nuacev+XrV3SdXfH5xHXS4kzK6225
3iZ/O8Dq813Yws82Po/5v3aSl8TraXU6IJ42YrJ8ZYUuamz1Ogz+34fvY/rB
fJteO7pZZLrYM86wl0O3nb00Omn6bYFeWoweU8Bvhru2EtuJ7Q7+27CRQaaF
8zRnnfz3Ep/9z0TvtafR7XWj30t+LvKmevBtNSzSE8b3Ut6D/fRIHz02SZ+Z
rzz+vlGbTWrQpC57/Futhull6+MdarhJX1ic9ubryDbQNzmz3UcMlt8tzkym
nHicLxOX26Rf88SdRW8A3eHE1yP07CByi9TlTfS9AnoN/NeIrcG7shxMkYcq
73dd/CN6PX9S30PuucbbsTfUpIftbuvo1hP3OUSsu7yLDXE1+r3W42leLKZB
6mN6t6O/rYfiVebgyVysE3OB/JuPErHbrLnDvLW5myUflu969Ngb0eeCveHx
6Lqj2HrFvJqlDhPY/pD4eplZ0SCHc9R7ntlRY7aMEb/do8i97H417mo1raBT
Rsf2rGZfo99xLfr5Cv2UY/5fIbYSdv8DJ2rR3A==
          "]], PolygonBox[CompressedData["
1:eJwlkb8vA1AQx9/z3ka7NzGoX4NVwyoRYZGISaqDWErQRthR/gM/2g5mrcQq
hJZB0hUVu0TCZDBISJr4XL7Dp/n07nr3epdeLs4XupxzQxAhyUfSO9cLA3gn
OOe9Ypb75Pu3U+wPzxKbwEdhAd8nVid/BVV8Oio3DFP4E7E3cm14xG+J7ZDb
ght8DWa9eq7gv9R0qP2CH/wCWvgr3OFtana9ejTxGRjDJ2HR3gM5fBWO8RJk
vWbs4RV6PNDrEsr4EbG8V80hXo96m8VqeDmq1zac40WY85phs+6D3vZu/xHP
Rb3FatatntgZuQoUgmbabIud4M2g3dibGkEzbJb9xwbeH7XLFKTxl6BZdpMP
fDDqdiOQwTeCZlVhCT+Fa6cd2i6th/Xqhr6om9ntrOYAH4/qZTu13W4G9bIb
l/BE1G/tRj34c9Ct7MZ263/2tE5a
          "]]}]}, 
      {RGBColor[0.2498556666258807, 0.39410633443204846`, 0.8125321825100349],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlkts1FUUxv/Te2fhCyhoYMOjraxIEBEDxBgWvrVGYWF42FI1EDN02tAI
SVva2EIEZtqYYJkp4KNqROm0xkVLCBQqqQtcGBjQ1B1EUnTDBgwR0eDveL5G
F6ffvfd/7nl855w7rXqzeV1TRZIkPyIB+ZU/U7YHP00lyWdIETnL/mfOJ8BB
9iVkALkSk2Q/WI6uZ/r9yIPpJDkOPgTe4Fsf61+EnyAHkSFkWHdi2tfptH8f
kI6hxVGQzyHtnySOZuJZA57Bbp6zS2BHyuPp1B2LqQd5B70P0d8BFpBR1sXg
PkzP7nchvUi37vVr36dYcrLVK93z8ncSvBs97t/BanIYZ12jXAaVx1R0m9fE
WZ9sVih34yAnX3lJQT6XEmsdMS9UXYbE2xz26zivAuvBzcjaxHVt/6r2dm56
21Mec4t4yomrLuW9EzlNfDssbvCqYp7SWZd0TkS39SX4BL4z2H4kuL96+Zyu
n+WwjG8NnD0KnkYusj4DdoCdiddyQDW2/BbIVmXw2BsU/0T0OL8T953KZRvf
GuXbMKuc7bxNZ1tSHvNW5CfsXuNsMji/RdV1dvDYF4GfR79zAHwPqWe9Nzq3
2+RrULwUwR72vcpnVtrrngK/xtb3nH0DHkFOsv44/BfrZtXP8qtWvlnlvCtx
jpqUR7vuPKb+tznYC+5DWpGXg/t/JXhcVqsMUie0HOp1p9b6P/q33apni/ix
/jqu+TyS+OxYbi+q1lZzq9WodE9Fr8UYeFY1slq1KwfLp6DaGtdz4GXE6px2
e63itFV52jojNL6NyxH1Rz5xrqd56VD/7Edy4qhGM7g07WLrKvB9YlpvfSO0
+m5I+b28Yi1F520YvECeVzgrgy16Q+wtaZO/dklOd1tVC/tesDdG+33Sb5Ne
XnFvEd8Ww+HEubbcFoif2Wnnbtf/cu1Rj30VvV7HwGXIXNYLo9dkXPVrCB5b
VjUvKJaM9tYL7yJfWF8F/1ZUrI3KzfyPyp7VOqtYrD+bgus3B7d9VPftN8Tm
y34z7iOme7j3BzqXE+fT5v8pzhdzvlzf70X+4nwcvXPgMHgTuW72wBr0ZqIz
A5yUbZurD6Jz2Ae+hKxiXQtWIrOMQzCLrLX5B++P7usB+Z0r393Ba7AdfCN4
v78V3Of8lNv6gX2Z8zFwRfTzh62XkDWsN4J/Wtzo/Bb8ffmXB/AZvi1H57no
uVmOHwWveUkzVla/XQQb0Xsa/dejxzWo/jBub4rfGeLkb/RfUO7GwZ7g+ocU
v8VegaxMuc1Vmnmb/WbwcWQJ69XR31x7e+eDVezncV4Nbop+/3nwNeXyLDiS
+O+p1d64nCc+6/TeGO9j4q0E3gpe59vgHr2r9r7OVL0qZXNCdt9mX2tvvPGt
mllPWc+OyO8B9bD18iLFbLGbz8vqt6vqv/PB8zAOligf268EjwW3eVD8lcT5
VtV3Q/TZPaw5PKcetDd9vebYYrXzSX3rkQ3rpzvB63A3+HyP6k2zuK5rNqbf
poxmerE4vRTc5rdgV3Rf3eLhqGa7rFyNu6L+z+nXvSnNzCHlthv8B1kMRBY=

          "]], PolygonBox[CompressedData["
1:eJwtlFtMj2Ecx99/z/u/YKxWjJuUcGUj5bjZXDgNGXVh5RgmOsvG5kJbyUxp
NjqNsDGHSuYiZqi0XHBh6WDcaVrhwo3zIcvnu99z8dn/83/f5/T+Ds/sfaVZ
JTFBEByEED66IPjK7yh8wFdBKV4Om/FiqMbPwB48jUnzIkEwA1LxW1CGH4Dr
+C5Yg2dCMT7GnM/MHYcfeCHPMniXAxV4Pc86eHcDzuP34AX+FnrwT/58MYz/
q7NBI/9vQgV+mjV2864AmvAWOIKXw2OdLbSzaEwVvok5x5lbABvxhc58FyzA
BxhTzdga6MJP8qyVdxeh0lkMFAudoQTv0hx8GF5pLPQG9k0t+GGoCSyGufhc
1kxk7ViYg/90FhvF6Cte5mwvzdHcImexaYBCnZU52RGLYT6+xVmuamGv4qMc
+PiX4JWhxToPLuDnQ8uV1jiHLxP4fFiKr4O0iOV4Nd7Mmo9Yu00xwJ/y7Kxy
B9347Ci/+H1IxhcxJlexgZWay5gTEauRh/iT0HKjGCvWA85ip+9XrTTy7KjP
ZwM+GFoutKf23g6r/Pcfwr/BVbwOvuC9zmpnDF47O5PO1gEJ+HfGXMPbIYb/
485qSzX2B49G7d0DmIbn+P0Uk234qK/ndzCCJ4XWC5MgEX+mmOO1MBRaDBQL
9VQ63s+zMxGLSV9oYzS2CUZUG4zZythMiMfjo3b2VojDk529y4IEZzlWrtVz
RepNX1/K5xL8MmOeB5ZD5TLJWa1rj1n4FZ9f9dxd/Jezb1FNqjZ/+/qczLMp
oeVcuVeOOkOrGe2lPRfj06MWO9VECh6J2tmVown1vno2sB5UL+b7+0AxzsPb
4VjEYtiDr/f1qPfZeDzE+f30raoR1Ypqvh7f76wXmuGIasFZLSi/ukvqQusF
3RG38Z3+vlIP7MDv+P5VT3fi/5z1qmpEtaIeVC/qGwrwDOYs9/HX3Tfh60ln
jFUtOzuL+ucU3gT3A9tDe+kO012mZw14ur9f9c1r8RRnuVZPpar/4E1gOe3G
+5zVYj+8dLZHm8/3JTyFNWb6ftbaQ87ueq0xiK/w+dM3bMDbnK2l8+kuex9a
b6lmh/GpodWC1kzW/R5a7aqn1FsX/f66M6uc3cnKj3Lahv8HMonVew==
          "]]}]}, 
      {RGBColor[0.36690916712301946`, 0.6600310843213859, 0.6359251569314657],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlltslUUQx79z9vuEF2O5FCJKuYgJogjFFlo1aOlpExDPETwRizbG4iUF
Lygx9UGDiYroAxKERGOEBxoNIsXIAyiRcIpyqdH2GDW0TQwtqBwvDwoVtQn4
G+ffxIfJb3d2dnZndr7db1rLk8ufSEdR9BUSkIlJFB1IRdGVcBb9Bcj1yO1I
HVKFTJCN2a5CSrTvhRU4yDE+Bf6M0+to/5X2eYuQ6sh18yP3/U/afQ/DsuBr
xDCDr358NsCZ/5tXRn8f+rHwLmSQ9jIYgu/rAn6m0j+EfhrsS7mfr5ElcRTV
wiy8A/tnsV8K6+lXom+E39LvRX8EltK+9hC8iNTSviz43hdo/7+knX+nfY/z
tc8q7Xmm5tjcUfBXxWtxD9D/3vIOm5TDlXCRYrcctEW+z1YkR/8U+jy8lTkP
oquEc5G7aU8XTZ9HjhLPi9gfh/fJx/3I4uB+b4Y1wcdmw07Z27xuZCPtIrwB
mUC7Ai7Ebq3VQfAc1Kg25tFvsbiD+zKfV8M/lUPLpZ1/vXJUSQxd+JwH56ht
ugxjDfJrtHgaNS+jvAfsOrAflfg6FlPWhPXWw2XKTYvykJWN1eUpYniDuYOx
12ROdVliznl40s4/5XVTRA5g9xz8BN6p2G+TzYDsWuhvQv8w/ADuQd5BmpTn
kXxv0FluRbapvy64bRtsDT7WDDcE97PRYlFcOfi01loFd7Kntaz/np0V8gDt
1+DL2sczsAA7kX3I29LbeKt9A9ivhs9r3VaNH1QMJ1Neb73igNrvyu9Ws2d+
G7q9tq72YHsx20HlZzN27divh68z9hC6LbDGaov2LRYHspz2utjz3qdvdr/W
GlmzR/Es5Oy7Ga9N/Hu27zoHVwfP7Ro4nv4Y9OWx+xvUXdARPMbt8B6raXRN
sfuzmHuQAmNd2HwYvN+renhEefsvf4nb18FjmnccuZaxCruj4FxkhtV57La9
sjuh+Kzuh1V7VoOjsRuNboj20ZTvyXz/bncHNmeCr1GUjyuwD/AS+sn6TqfA
C/SH7e61+ypxX7PhJPm3dfK6T7KJn3+76rJK93y17vys+ruC5/592K/7oUd5
69E+H6ffAJvhSzrTp2KfY3N3wzfpr0H/CvxSd2A3PKc9295PM7YJm29ij9di
PYz8pu93ABZUe3tgl77Tj2P/Zqx+X4WziO1TywncrNp7IXad5eSQ9l7U2Q0x
thP+GPuadj4FZLFqtRaWqa6svi4Gz3/K1ldtPAq/Q/8Te+izOmTt/egTncMx
rTuM3XZ4LvZ6tdw/BqcnHmu5aOvb/Mvp74IRHKc3zt66atWb1V2f1u0PPsfe
6A7l0fL5Wez6gsaKqkOLdbfOxc5nh3JlOTuscZvTqffxc3iV3uIx8LTq8wdY
p5qvhOnE82l53RL8Htpm1N3VbuvoG1wB9+q7+wjm9S5n4Ljg9/9U+EXwe+Ag
HBv8bZgMb9K9b2/jNcHv/hnB76KSvv/xwd+Tcr3j9XpTLsWe21Ti9Z5Tzd8Y
/O2Yo7c1r/do5H2yd32l3m77D2pW/S+NfbxRNpP0b2P/OGcYewubs7GvnZG/
P1QP5+ES/Z/Yf0q13ijb71nNLcF/AYwROXs=
          "]], PolygonBox[CompressedData["
1:eJwtlm1ollUYx+/nOeemQCI3NciX2dTE1HxZJpviuxNytuUL5sgmTlNqqVOL
+UFR8F1BxJcPJuqHCTGmU9oHLS3ctJJJzYLMGIivRbo+qNOUgfr7c10f/uz3
3Oec6z7nOtf/updfuWLW8mySJDtRRDNCkqzh7xZUAf+J/oH/Qn/AO5i0IJMk
Vegr+FeeXWPsMroEf4EOwbvQKnhrtLlaswX+MVgsxbwCr+TZLMaK0TL4N7QN
3ouuwz1QDpyHBsLforVwNWqEu6CX4ddQH/hRsN+dxO+Ac6OtVYwc+EmwMc3R
2qWoBB6PFsPPGQ9wB3M64SPoDNyCTsCT0iS5ynir1qQWU7G15lU4E431rCv8
lOQOZu0Q1A4f51mN568evhrsXcqHcp2DJsNlKA/+GO3z+5gPf472w0fRBngv
avTfu+HyaGfRmZbAN6Pl8jB6AE9gTjVzK9E4+Et0LLE7092d9/vReZvgGr/P
49oDXEKMImINRe/BpeTgesZyUgLPZM56v/9KOOXZKcYaUITnoX/hG+hD5Q81
wnXoFY0R8wBcix7DFdFqQzVSDU9FI+EBaBJ82O9HZzgInwy2dz1rgEeihfBs
NAL+JNjedKbVcBH6FP4IFep3tLOpZt6F1wfLre5gHbyHZ4u9/mqj3YnupgaV
w2OCsWIqdl/O9H3GztgLXuTvV44Wwr1QKTwR9YRXux/kl83Rctbg+cjCMdjc
USjAY33/8ux0+Otoe5NHTsN3vb5Uk8/getTsfj2r/ETLpfwzFG51P7ejW6o1
ry+tqVP9e/1o/6XwMPb0M2svov5wrt+nzpwH9w1Wy/PRMPgC79jF2EZ0Hn7J
z3dae0jtmcbkkaZoMRTrB9QNfoMYU4k1BeXCd4LtVZ5+CGdSqyXtoSt8xd+n
mroN3/H60rNb8PZgta16kdcve/9R/lrUf4hxLmM13B0ewJw57p8C+BGeHgS/
he7CxcxpY+5N9AHcmTXvF6I0mMRF6BljM1ObK0+Up+YJeUOeKoPHoN8zFnMy
3CfY2dUj1CvyUXFiOekGv55aLpvQm4rl/teZ2uB+wbygNVrbA01L7Ez9g3mu
1v0aWP9/1mpNZ3wMd0TrJcrxc3h4sLtVDaoWZ7hf1SPUKza4f1RDe+AT3v90
x81w72DekwfkhbHuP62fDo8KlmvV3Hj5M7Xe+xManVoP07g8/g78jftfPawZ
vuj1pPtWLXR4/1fN3A9Ws6pd3XE/+Dv/vihfraq/aN7Q96InXOb9T2dUb3qS
tbtXj7+XNU/JW/LQL8G+eQu8f22Cj7o/1UOOKJ73S53vfd2F9zf18LnwPp41
ef7U6wvYY0vGakK18XZquZBHBsO33Q96/41g38w879eF0b7ZVe6vY/JfsFpU
DXRXL/X9652ngtWQaknvHK769O+L9jgHLvD+od9T9A+E+0810snvNv//QT1I
vajC+6W+YZ+pP3p+FWME/NDrSzX7H5yfmvfVY9Rr/vb6lIfl5RfN2RFN
          "]], 
         PolygonBox[{{1151, 1150, 1130, 331, 1148}, {1152, 356, 1167, 1150, 
          1151}}]}]}, 
      {RGBColor[0.6004279671441201, 0.7426603837750129, 0.36488050227381424`],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFln1Ml1UUxx9+93kybcWLQskPsKZiMzCTTMT5gpU4E0VMzUy3SIWWq8hF
mhmuzVzWsrJ/ar38kWv+0aTI9bL8i+VqUtbWskwiKZoECpoilml9zs5364+z
z7nnvjz3nHvuuc8NdY/UPpyKoqgTCcjEOIpyM6IoDXthH/KbCYNG0d8Nm5Io
uoStMXHbGOR65CPmbMG+P/b+wNjLMGHhEvovptwWy16kuSORoQy3XUDOZ/h8
s/GJKAu5woR1/4Z/Bt+f7XMEvEx7EHsvLIZlyARkZeI+LIFrGDcPfbGNR/ai
/wPPI3vQ/4BHkF3oX8IXkBXoW2P3x/x6F7Yhm9Bb4NfIDvR2+B6yAf11OMA+
+vj+rzCPb7dgHwY307cAfR3sIwaFjLkAT9N+E3s/3I4sRd8Y+1q25k6YyfxW
9GvMJ+YUMHcw5bGzGNo5dOiM7KxKYQUyCbmSfcyAA9jrmT/IOuvhgGJ9WmLx
PoP8m/J5v9s5pfzs7AwXsI9S+mfAYmQMei5czFo96Ctgg9a371zSOrbecton
sC+DIfGYW+z7M3z8gL5/QXsY1N7M3itbn2xD2u+plOddP5zDWmOxlcJP2Os3
2PfK70mKRTryuFk+HafvZ/gVPMH8fPQu0cZlIsOQHIuf8i9bttPaj+1rS+I5
3Qy3Jp7bz8C6xH27X36bbjGy7xdqrXLF0GKZhcToGbo7l+Vnv2Jgc5v1rc2J
+23nYufcyZxX6O+AN+LPQmyjxXuRamQa7XqbA6cgy9DHweVwfuRt62/QHGs/
EHn/WtHa4zVnePBYZCtGtobFukqyTLa3GXcAPgdrkG3otXBq8HWvtfWQJhuv
PTZpH4toN8JKOE995keL1rS125B29FZ4SOdu538U6bE7Afcgregvh//jkgk/
R35C/wI2ILvRVwWvI1ZPjsGrLF7oqeB7tT3PgWOD+5mr/tmqO7OCx+lWfada
fXnB4xGpv1Fx3UF7H9wJX0TeQX86eL5WKaY1idfgOxPfh33vHHlQTfsX7Avh
o6pvVufyVf/SOp9CnZFJkeptCXMOMv4muJQ5k9Hnwrm0v0OvgOORNvTRsBA5
YPmbeL2x3LMcnCK/i3Vn0rpfdaw10+47nMOcH9Bnw27VWKu1xdqn7becvsPY
p8GN+LgL27rg9y5LfqyVfT18FnkL/Qn4gXJgf/C7miMfRymOw4KvUaB16pSH
S4K/L5n6xtmU76kH3izfLQZN+tam4HGx+EyBx1M+9yjcovyxPDqivDpo+aKa
Xw9Ppjz+f8Ea2hXYa+FEnUUpfEm5uhtOpt2OvQxerfqfDe/SuS+C54K/iYPw
dtod2KsSn2/rvAqfVF16Cq6kvR37fXC43qYRVruUe83wY92jz4LnpeXn8xZj
1czDMF/vbxGcpfOthF16+7phtXw0X8cpnhPgqsRr+erE3wyrbfckvm/b/3x4
Rn6Zf2WKw9TEc7lIZxypZobY/TG/Vtvegt+7NBxJXw5j8mwver9mwvLgNWZ6
8BphtaLT8k0xsdiktU5B8NhZDK3GP6Y3+nF4m/J2Ovxeuf0j3Kf/hPdjF9Nb
YaXu2h3wbt2RFbHHwmKyxt4Le/vtfYGH9I/xLbyo/xZL2lP6Zzgbu2/m43Ww
RO/gLfDBxN/ThxL30/ytMF/0b9MMX9M/xhuxj7PxG+CH+uf51P6RUn5Ph+z/
Lfh9j4P7b3Foin0tW3MbTKtWjEncB/PlJDymd6oL/gcoGDeD
          "]], PolygonBox[CompressedData["
1:eJwtlm9o1lUUx+/z3PtTI3KaGaHTFeYfdCtdWWumbma2yk2dbuWkqDlTIbIl
LG1ZEZRFkJr0JvpLCb0IRyOCyFeSBK4sCCqdmrPFppubZjNLHX2+nfPiOz7P
/d177rnnnHvubmrcVPtUPoTwNkroK/605kLYjg7C59F78KfoErwNPQQ/gLbC
pVkIP8EdaA68K4bQjp2P0Zvwj8lsvYU64UE2m8e3KnQ93w/zuwBmaeiE1zC2
G34FNcAnUR98DJ2AX4hmW3Na4dFoIVyKro7mg3zZj26Fi9A++ACaCY9F7Tkb
mwjfiQ7592L4XvQ7fBQthheiX3I2pww+iY/j2Os6dBRuZ88OeB9qgwcYuxEu
QZfh7rzN1dgZeAgVwhPRKfhvNB2+DUXWV6AmuBktgnPELLH3EL+H+V2AlgY7
s85+kfWTgtk8DR9Do4L5KF+1h/bSHhfgymi216IF8CPRYq14bozms3y/BV0R
M9YAb0BlcBVqgdejJfB30XLzAzoI/8OaycF86oOPMNYLH0E/wweisWK2H/6X
OUXB1vTDs3w/nXEGvA7tgF9CjfCz6P1gY5vhFdG+6Uw10XKm3KkmF8FXMVYf
LKZz4fHoPrhcOYTv9/MoBqvh19DeYHu8Ct+M6oKtmQK/Hi3XmqO5KlzdDdXU
NfBF8vUJ3IZG8HtEtHgWK3+crzha7HRGnfX2aLnQHqWyF+1uyOep0e6AfJOP
9fAYr/dqNAEujMayp1yVR8uV5utstR4fxaspWk01ezyXwyla7cmmbK9Ldrfn
o0b4SZ0JHkbPwF2cYUKwO3tCtc2ca3NWo2PgP/JWO7rjo7DXGa12/68B+E/l
PNidHoQ/8niqHj6PVoO7vX9sk7/YnI3tKagC/itvd30aOg+vd3/Vk56Ht3h9
KD/b4Tc8n9pDe93g/hahGXC39xf5dA7uStar1PPOwN96vcr/w3C/n0fnVcN8
0fuRet5O+AvvB1rzDfx1tLuhO9IBH/f7IBuyVYONcmyVqKfCe1Q/6AP0IZqX
7Jv8LYPHJ2OdQbGP3h/0exw8J1msFLNKeL6v1x7V8GTZ8HgWw7W+/xL0GLzY
4638r4IbyPlZ+DRaDZe4fdmYCTczdgW+gDbBj6MBuAfVw3XJbMnmSnhFZrbU
Y5fDT6ChnK1pzMwH+bJS9ZYsR0Uen3K9PW5POW/yGClWO9EudMj7kXLaBW/F
Zsybjy3wyGh3X3dSd/Nhxnr5NojWwu+q5uEtaC/c4e+X3sQvk90B3YWEzefg
pei3nL0RFYpPZm+J3os74M3JzqIzPZ1sD+2lmCq2L2dmSz62qnd5/WnP7+FZ
bk/v1SR4mcdHOVPtPMpYH3xO8cgsB8qFYroBvpS33qMeq17by5p3+LYDdcMD
/r5rz+NwW7KzKwafqT78PdQea+AaP6/yuwqu8n6rOZrb7/bVA9ULT3k/1Jj2
/jXZ3vrdk8yGbCkHy1QP3u91h1vgkZn1UtmI8PTM3na98bPhy8n6r85wFq70
91o+Pgjf5e+7xhbAc/3/A70Pd8Oj/f8B2RhmfZ37o/XVcKH//6A5BZmt0Vqd
+R7VTt56kXpiT95yoFyoZ26E/wM5+yx3
          "]], 
         PolygonBox[{{1304, 1303, 1305, 450, 1316}, {1223, 1222, 1224, 399, 
          1237}, {935, 934, 916, 178, 932}, {1033, 1032, 1013, 250, 1030}, {
          1290, 431, 1302, 1303, 1304}, {1161, 1160, 1162, 364, 1177}, {936, 
          207, 951, 934, 935}, {1034, 277, 1050, 1032, 1033}, {1202, 376, 
          1218, 1222, 1223}, {1142, 339, 1157, 1160, 1161}, {1169, 1168, 1152,
           343, 1164}, {1190, 379, 1203, 1188, 1189}}]}]}, 
      {RGBColor[0.846547793054481, 0.6831656970892198, 0.24253294684878873`], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlmlsl0UQh9++/3fB/iuFpNS0iSZirAVLrH5AjXI0EIGqJKbQemCkFKxH
hMYKpbRqRKsE6e2JCLSFWryA4pGoMTFBRQx+86ACBQ2C0RZIJWoVj2cyvw+T
Z3Z2dmd3Znffd1JVTdnKOIqifUgKOUwjgQOwK0RRf0YU/YVhm3SzXYDsQc+C
zyI5+G6AeTAfmRi7LU/6SdOZ8xiswG+YsUthFXIOvTp47OzIY6+k/Tf2frgK
iRi3Onjb7HuDz5ePjEPGK84EpF3raIPZsfdlIo3B+WRwm/mmkWbaubDF9hX7
mEzNZ3uxvnXqeyK4PVfjO4L7dCoHExWvU/bntIYc2du0tlb4o8Vh7UfhAton
2Vc5PB57Hn7Q+rKQgPxBYnrxGYWv4zeI/ga8GxlCXwJLkaPoNwdvm70SLmDM
Vegz4BkSPcr8I7CS9jzsZbAZWYbeARvo68TnRcsZ7bHY03A87Y/QL4Zvq467
4Jta/1uwD/kWfSfcrfrugTXIefSH4SOqqdX2vwzfn7WPKCeWm8n07aNvCuxF
vkJ/DT6IjKKvgHO1X9t3t9bWA6/QWJsjS2f1Qrgd+RR9R/DcTlB+M1Ufs61X
zZ6BzeRhN+t5Af0iOAm5DPlTtRiCl9P3AXoevAv/JvoXw0akB/3xlPeZTxp+
w5gm9P2Jz5mreadqj9fBS7TOIngKv3b0Q3AHc32Cbx8cjn3sCTgm+HpsXa30
9WPvgAVIaeQX+1Ts9+Vn2zNMK3Y2fTPtDsEHmGeEeZbDybTvxF4ES3TeboW/
Mb4A+znNY3PYPrI0j813v2pdo/paba1mtWo/ZPcJv2K6fqJvLvpq9PnwBvZw
qdUOXq+zNAtOo+92fDLhJtoBe4LPZmQF+hYYJ263/o2613a/p+v8z4SrkEXo
axJ/c8bp3RlQnr+HX9BxGNsBWMf4mHnWBo9hsbbC7+Rv454Kfo6agsewWLMS
j2Gx6uFg7LEOifmKO5sYtbAELmb8CbuP8Gqd4cLg9bC63APrtZ41ti/ka+zT
4I3SZwRfh63nadignFvuyzT/fFihs2pndo7G2nxFqvtUuJl2MfZX7PzTno79
jOUCfRv6opT3mU8xeyxJXJ8N8+i7xfIL18u/Hr6DHER/D67FrwL/x2A37Y+x
b4RVtEux35v4B+F3MIT9c9XF6rNd57wN/hP7HToPy3WW5sFlmmcrayzUuZqS
+H22e92FT47OTAou0Xu4FC6kbx0+18KQ+Jt5Fv048ou9USn/BhWolrY+W+dg
yu+23fG9cJfOzKv2ZiA19o7BX+U/nPJ31t7bO9DP6ltp38wB7Xc//ExzHoBf
0j6C/SAsVJ4t388zTzX6lehj9G7b+92juN2wRe/SozCNXIOeYblU/q0OfXpn
dsLlykMZPKa4LxGnVd+LFpivWGNho2rakHg9rC6n4U0pX5utsQ69Hb0abrFz
bPmxN09n4124gfGV2Otgrepi36uFifuXw/e1zt6UvxdW37zE92P7GiHufYo1
B55W7V4mVpdyYjW5TXfQ7uImxbX4/yb+z5MdfM+29w/x+R/N4gxu
          "]], PolygonBox[CompressedData["
1:eJwtlllsV0UUh2/v3IG2QCExICgkQqQgIMQHxZiCRJSCSmK6IUENFCi4sFht
7cIue2kt+iIRBQp1ARSLoDHGxESiMRaecMeyusRIWTQmjRD9fjnn4Zd+/5m5
Z86cOedMh1cuK1maJknyMsrQf/wYwd/h6DpcEpJkLVyNHoF/YWxCYmu09n7G
Fvp8IXyFsZHwYHQZXhzMdhtqhJ+JfJeTJD3oafhV9Adzp9Bp5ov5/TNzJ9FU
eDpjNcytRxXwC4yl2L3G/HJ4TrA57aG9RjH2OXMfo1vh/oxNZu4hNASeiKoS
szkNvo1D38La8agIPp2a7/1QF/wENq4y9yd6HF6FIuN90Ivwl9j4ibWd6Fiw
M+ls+uZJOA+9D7ejXvBX7LEebkXfwRui2RqANuvsjJ1Cx9EJdBmbPYnFqBvu
Tu1uBqKLcH60s2oP7VWKLri/jyl+/lsxVWxXuP+6gwbFEpt3JBajPvCNfp+z
0J2KF2uOs/ZbdDc8y+Ot+JXDdWgX3Ipq4aPBYqGYfBEsZvJFPsyBaznTXLgM
1fgZddavUSdq8vkl6DW4Kpht5eACOC+YbzPQSHhKsNyTz/J9VbBc60AtcAM2
KrA1A82H7412li40BR6KPoGPoWHw356/iolic5PHVzlVCG9l7FBiZ94ULOer
3b9SeFK03FW8p8FtjH3q+fEB/H1md68c+CaznFRuzkaj4XHBWDmqXN3Omvms
XYZ2w2Oj+ao7GQdfwt+ixGoyl/VHPP7as0P57fa0x6hgNaPa+RcthYu9vrTf
A3CT+6sz6qxve7y0Xzv8pueDfNgL98an3jmWoxFe6PWiGngKLmesyONfCddl
dve6Y931Pj+P7mAPvNvjKx8Uuza/nw60C77I2D/ai98p3+/JLDaKUQv8oPcP
5ZtqYVJmta0avwd+I5ov8ul1+OFoufArmgn/kFofLEBn4LOp8RD0G9yTWS2r
3nJZnwTLRd3BIPj31NYqh/6CV3g+qj81wPt9P8X0Ld0f9rpRl3oPeilY7uqb
Zrgg2tkVg/5wZ7BeqX5wRrWa2XmU4/VwP88n1XNfeGe0s05QPcH3ZcYaK4VX
en0oftvgu7zfq+YWwY96/1bNq/bf0x14vA6ot6lmcmzsXXg8Nm5HY5SrfqYu
72nqbYui5Z5ycDFc5d9rTHNTvd5VX/XKf4/HZ2gffDDa3orhO+ptqfXCfHQ+
NYnz9KbAV9RDPcaKdY3nXzGqhjdio4B1uWgtHDLLLeWYEmElY/mp9Uz1zr7e
z9UT1BvKvP8pZ7cFi/lk7x/58EfY+BAdQUfRFr65IbU9N0WLkWJ1MxqKVkfz
JQ81wuuisXyQL53eK2VTtsf4e6YaV603s2agchBth6+z5prHQLGoUc76efSW
vRJt7WDUCtf7+yof5EtLtDn5vDXaG6W3Sns0wXO9v6vmVfvtwe5Kd7ZX/S61
txRMfoTnef7ozivVK/x9Uw/phX87M+v96g874MOeL1p/SP3E7182KuBm74/K
4Ub4XLDakM1L8NXU7kL1qP9Nlvj7rBg8Bz/r/VBnroXnZZYbypHn4TV+H5qv
g/8HTDspiw==
          "]], PolygonBox[CompressedData["
1:eJwt0LEug1EYBuCDNhIjSUsYmMRAJZgMtZmaaG+gSXd6Ey7AFRgkxCQIoiaJ
GJgtKKukNZNIiedLzvDk7f+enu8/559rtRs7wymlcYo8jKT0Kp9llzcqBYZS
2pCLLFGN1NXkFnVe2NN9yB79LH5/cmjtW5YpMcmsbl5ecsERbd1BnhmzG2zq
mnKGacYY1U3JVQdfYY0n3brsOPc1x9y6z5X88d8z639ywG88c8o5u9bu5U3c
3Z7HPKOTv0N8j3e+rPXlgvfc2bOc3x/n2Ld/W3eS58b8AkXdRL533P8f5Scy
DA==
          "]]}]}, 
      {RGBColor[
       0.8883847560096176, 0.35997478837315555`, 0.17357760067288758`], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlVtsV0UQh0/37KGGwINgIEIV2kKhiHKRIAYLhruNwUipIiLQEoJRBKUg
WBCBhnJpCxLgCaItpFyexEA1FASBcCl3NIghAZ58MI1C9QElMfH7ZeaBh1+/
+e/Znd3ZmZ3mVy6etigkSdKMUlSTJUknBlbDOrgvJ0nq4Rq0Hnst3IR2Y2+G
G9Au7I1wO2rF3qG5aBt2LaxCFdhL4TPoWdQLfckeeVoHd8HLzNkNF6Ip2B/B
D93WWL2fpwGuQ7XYNfBqtL3uwPn4+ht7LiwmoBnENAh+4edXHFvQfuyt8HNU
jb0arkSfYa+Cn6JK7OXwE1SOvSRYDIplmeaiRdjVcCr6nb3egL1Rn2Cx1XGO
J+FG+Avsh26hu6gL8+/BK77mKrru93MD3UbKza/8+cl9/qx1xFPCeNfU8qR8
LYMfeOy6gwEeu+7ggfbF7lBOMrv7Bvg1vMn8RliAClFfV77nqo//zvMYFMt6
z1tfn7PD874TztVa7Ao4HT1k33L3U/CY/8LH9sj3mBeg0ax9H74SzU8xfF13
g5/X4FvoH+xpcDZ6ijnvKRfEuY3x8bAos/P0grPQb9hlmf3WeBc4OrN6GwEP
s+YEa/fAcfhqwh6reohWAw3wzWhnGxvtm+aUwInokPZVHaU2vgo+jPYu2uGk
zO65BJbxrYo5RXABWoc9MrXz6ZylsCE1n1vhRLQUezJ8G9Vgz4D1qBF7Onwi
s3fxb7R4FFcxLPf5WjchWIxj4Lxo9VytmILNeRk+x+8Cxl+AT0e72zw4k2+d
sN+BZZ5T5bYn37ozHmF7avV/B07h20nsSfBV1Td2aTC/8j8ETvZxfT+Xmt0C
3w3mc5ZqP9pefyh2z7vyPyJYbb8IXwp2PyP1rqO9xya4N7UzNMPvo/WKy/BW
tD7QBkf5Wvn4MzX/D2Bnf196Z3O8nlXXRZ67CXBPtL7RAqu460fqV5nVdT+v
6Q5/d3/BOV4/qqMf9YbRKe0frb9VwA2s78bYJvUu3S9rB8KjqdV/KyyEQxPz
e55vPdAFdDbY2nPoNOqKzgSraeW9EZ6N1t++hcP5Vsr4MOU9mN9BylEw/8/D
jzlHDlyufuK5Vs7vRev/9+EKvuUyZw0c7H7kT71SNaZ/LmszO08t7IjWe/9T
rty/9smi1Vgu3MzvnspnZufTOYfCnMR6pnpikf/uDy8Gm38pmF/5fwTnBau3
ymB1qfpsg0eD7duK6qL18xXwm2D98xA8EiynLfCw20c8Pt29ctPub/y26H7k
71iwnnw82F3rzr+K1mfVB5rggWDv/SD8zvOrPF/wnLah/T5Hc695j9T/h5Ne
P6qjH4Ld/wn0P7xd4fY=
          "]], PolygonBox[CompressedData["
1:eJwtlFlsT0EUh+9/7r0kUg9F7Ev+iKo9JEKkHghKIvZYYokm9thC0NpbLUpL
SZSqomjtlLQiscSeWirWeMGbRERsD5Yn3y9nHn653505M+fMOWcmmbV84jIX
BMEKFKHB/OTxXY0GwaNRA3wbZcKNMWqUCIIWqA08PAyCEuZy0QJ4KDa34Gdo
FDzdmf0f/qfC1XEQVPKtQmfhI2gxvBxVwN9Ds9WamP1rQ9tLe16FZznzrfkZ
8BbWNObbFG2Fr6BrcB2qgQeGFtsqNAm+xFiNMxvZlqKx8Hj0MTSJJ6CDzH3l
/zdrP6Mv8DdiKsd3NfoBl2EzD9v56DC8H7WHO6B9cA++XVjbCqXD3Z1xCkqD
j2JTwrcUVcLD+V5m7jgaBh9jbJ8zG9mWo0XOcqbcTSamY4HVIBtOJ6YksTVH
aXA9yoez0QN4pLNayscI+Dhjy5jLQZXwntDmZHMCHhVaL6gnpsDn8XlOtUPn
4DPolLMxzammqq3GNKecKDeKWbHXRuarAF2DezPeL7Ac9YL/MlbF3GH0OzIf
8nVRgosYy0pYzMWR5Uy5O6CzwDmMTUmYzXrZMt7Z9+tsXxPVpq1yCj9RPVAz
9ADVo5Z+/im6of5FKcobuud7TT1301kNVUu2D7rBM53lXjWYA49z1jvqoUm6
S6id9/kY3fF7p6L7aHds/vW/S7kNrRa6g3VwfmxzWrMttjWpPuZHaENovaMa
FsFFsZ2lpd+7NWNjmJum/lO/+/jVk5/gpdj8I/ZfaDGcCK0+GagJXK68MPcG
HYVfoU7+TM+Um9Bs5UO+fjLWNbA9tNcn3/8a+663wucyga6r9535VgxX4dco
qT3QW/RG9fQ+X/oa6Xwd0XP0wnPSr32HnL9vH4CHvtaq4V2UEdtZdKYh8NPI
erMENcAnGSvD7hA6AW9y1r/qv2x4IRoCZ6IlcHFstVU+9sB5zvbTmo1+D+1V
gargy3qznL1JepvaR9ar6tme8Cm9kVqHTscmsd5QvaVrY8udcrgutp5I8T2b
B7+P7Cx6sz5GFpNi0xu1V/fF2Vl0X9bAa52x7tBKeICzXlE9+/s7qLt4QYIL
YsulcrodLnTmSz7z4bmR5UY5mgPvjM1WOSqMLQfKhc6os+5wdvf1BuyC+znz
rZ7qq/529pbpTdvsbCzD91cfH5NiU06V2wJnsagGuaqJs7dbMe509mbo7VCN
Vev/+F/X1w==
          "]], PolygonBox[CompressedData["
1:eJwlks0rhFEUh+/ceV8pdv6CmYWwscHCDFKI8VGm1BTF+MjKjDKTwUrIBsk3
k2mmZFJKFqRRlqKwk9hb2NhY0Kw8p7N43u7vd86599x7Xt9oPByzxhg/uHDI
J4IxAL9o6xjz6DXmi3UfXjc8oAvwgteD7oV96lLkRj3GzKCnYRZdhDzeBnoL
sq7Wyz4heGaPe3QZ/iZ6HU7JL0VXwQF6Fwp4laKhHx2GP2q/qa3lDD/xMbwJ
OCJnGM5Zn8EnsSF0ltw7atrwGmVfvJCr8Tz6BLrQexBk3QQ58uepq4EI6zq8
etiRd8JbwgtYzZc68SXeAAli7V49R85rlfvjreGN4P1w7oXVPqXfanjCS1u9
t9zf4W4VeINW5yLzacEL4E2ix6EZnYE5vAV0Co4dRdZJq3NJo99hGb0IK3hv
6CR7lqBv4Ub6dnV2MsMp6CQv4agv8SsoypzRl3At8wEPxFztR/qKgo+8oKPv
Ku+bg1e8DvQHfpr1qtWepLdyV2e9bfV/kP8iA3HZW/5LmTN5/+TIVUI=
          "]]}]}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwV0UlIFVAUgOHrhKG2NqNNG+0V1Cba5LCwgdo5UYvABiIItCDFIYkibdKn
pmWDafrMShs1XpF7Q0HcloK+XRsph00kCH4uPn44HO6Fe3efv1JanRRCiDOf
HMIvFknwmxVWWSMpJYQMstjODvKIsJdHaSEc1eNUcIrT9Jg3ahNROhhimK98
Z4In9hL6VP/qCmmpIaSTwy72sZ8DPLfXywv66OeCeSPXidLOIDHifGOGWRZI
sMwqG6wz4JyXxBjkFUO8Zpi3vGGUEd7zjo984DOfGGeMaq5SRz03ucUd7nKf
B7TTQSfddPGQKG20co8WmrnNDWqp4RpVXOYiZ6nkDGWc5ATHKOAwB4mwh1x2
kkUm2/jvPf6xxDxz/GSaScbop49eWqmnjhrOUUkJRRSST4Q8sknlmbuS9Y8/
X2KBaab4QZwvxBjg8dabaDkNFHOJQ5SRyxE2AYKTYt8=
          "]]},
        "4.5`"],
       Annotation[#, 4.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwV0rtLFXAYBuBfWuJRsCEwoxoCRUkFQUQRpYNBOSTICR2UQg9eMRIFD5o3
aIkuBI6CQ4FWU5hI+AcEgtYoJB3FLDFCLazBwdLH4eEdP16+90q8N3b/VAhh
gS8pIayywVe2+cEf/pKSGkImWZzlAgUUUkQ5N6ilkSaa6WKYMZ4zwTSvecMC
S3xkg01+sU/a6RAiZHCRqxQTpYbbNBCnnSFGecYEL5jhFfO8Z5lPJFlnj98c
8p+sM/pxicsUUkQ5FVwjyi3qaKCRVuJ00EkXvfSRYIhxhnnIKCM8oJ979NBN
G3e5QzMxarnJdaooo5QS8sklhwwipHGgzw4/2eYzKywyxyxvmWKSxyQYoJ8W
YtRTRzWVFJBDNudIJZzc8rN1kqyyyAfmecdLnvKERwySoIM2YtRTQ5TzlBEh
j0D2yT7sMV1uySP+ccgeu3znG0k2WeMYp1xcMg==
          "]]},
        "4"],
       Annotation[#, 4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0j0oJnAcB/A/j7dFUV7y0um6Y7hIjyQvpR65gavHS8pLGDhdt6AMFmIh
TIrJInWZrhSDZFN3XZRuMjApg5e7Qedd6T5l+PQdf99+fd8OjLQPJ4QQ1viT
GMIjVzxwyS0X3HFPJBJCEhnkU0AhZVRTQy1NdNNLH1+ZZIpFllhmnW12OeCQ
U8645oZb0pLc4w2lRInRSAedfOYLE0wxzSKrfGOLHfb5zQmn/OUfz4TkENLJ
pIAiPlBGFTXUE+MTcTpooZMuBumhmzZa+UgjDdRSQZRyiskjlxxSiXCnzwXn
nHHEL36yxwbfWWGBOWYYY5R+WojTTB3VlJBNFhkk8OLHl5xwzBE/2GOTDVaZ
Z45ZxhljiAHaiBOjnkoqeM87sskilRRe7ClZPsunxNf9/Qc8Dk53
          "]]},
        "3.5`"],
       Annotation[#, 3.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0T0oxAEYBvD/cSYD7hhxR9ZzyCBkUIojZVAGCqV8R6wYfIxKKaUsBiEy
SpbrrLoUMYooq48oAz8ZfuPT+/S88aHpnqlQEASLVOQGQZwoMSKUUkQZ5SSo
ppEOUnQywBjjTLDEBpvsc8Ah51yS5ZEn3vjki/ywm5STpJZW2uiljxFGGWOB
dTbYZY9TzshyxT0PvPLOD6G8ICgkQhlRYsRJUEkFJRSTR5gcPuSfeeKRay7I
kOaIQ7ZYY5VlZpikn05StNNAPVVEKKLgr6c9vnnhjltuyJDmhGN22GaFeeaY
ZZhBuumihWbqaKKGZO7/338BODE8/A==
          "]]},
        "3"],
       Annotation[#, 3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0EtKQmEAgNFfbGitwUc7KHIFUtMcRQaKI6G8V5egtoN8lNi8olZQPpZQ
6hrUFQSJQQcanPnHl6nGxSgRQjgnSoZQpk6FBk3adHjgliEjHnljyowFS9Zs
2LLjl4O9EHIccswJec4occUNETEdevQZ8MKYKTMWTJjzwTvPPNHljjYtrqlx
yQWnFDgiS4Y0+6T40fvNijlffDJhzCv3DOjTIk7+//sDnqQvOA==
          "]]},
        "2.5`"],
       Annotation[#, 2.5, "Tooltip"]& ], {}, {}, {}, {}, {}, {}}}], {{}, 
    {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
     1.6], PointBox[{{0.847163868861284, 10.166365109167797`}}]}, {}}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJwtkntIU2EYxoeEzq15mZvXnHOo00xDtBBv72sp2mXoRMJKIqslGJFaluga
QSxG/qHYH5kRGCpKmkhiLCShLUxBu9cSJdKM0t3ObhGWnfadvgc+Dofv8Dvv
8zxv4qkLVZoAHo+X7T/k2XuHaB3kVxavsmwK2tRGmd66DlvDHycrHyuxSGDp
byzcAPXzdO1kRQp2mXyptZ0bEPT93cH6yGRcbZOMla1sQGN5160OXQrmZBNZ
Ye0Q2sznk/CGlQPCr5V842xrEn7y0wQWKyRnNIuGBApMq+30E20Q7db9ZdlE
bCe4NhvsqRx8xrJyXJgnssHFB3GbLJuACXoCtMOA9f7TijU5NhWSAe3QdNvM
smw8msl4JjtMX/9gJ+9SgpM4wBGP6QV8GdafJXIAr2RQ074vHp/ICNAB2Drf
oy3egUJiV+CE/GXrVMfpWOTGq3WCIbA077cmFjncmBPixEYjeKORx4mBk9Of
/f+Pon4YyNId2Jp1RGEVca9mQLZg8n8gpf4YWFTXJXu1kThA4uhnILtnVMF/
LaV+GbCMhu/NipHiT2LHx0DBMcnNvgwJ9e8CpTgzZtwXgeVknDIX/BE21Cs1
ETQPF3T7Hh4RLYnxf78uyPzWovxaLab5uGBEJd82YQmnfbuguFhVGnAinObl
hjNzy5u9C2G0fzeY3vTMsGwozc8N1UOil12iMLoPbqi7F/y26nAocnaNbti5
uD/XoA+h++EGR0BvQ82MCDmcwAPNES+WtCEiui8eUDkFE+dqttO8PaBTqd7P
PxIiZ1fvgdiOvm59iJDm74Ef1xS83Y0C5HAWDyQJ+WCwBNM+vJDzqmSkpCiY
9uGFzanLR++Oi2gfXuDz4/iaXXzahxeOt7BzzcNBtA8vrOamf7mUGkT78N/n
GdLMo4H4DwI1f6Y=
      "]]}, {}}, {{}, {}, 
    {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV1Hk41NsbAHDJTd9R1pS1kOEqJltFuc4xLUoIKZEYCoWQJSNkKKkoirQj
ZE0pokWWyb2EGLKkEHLVZDAbuf2i3zt/zDPP5znnvOd933O+R9M72MlHXExM
rAV+ov92YkX2rVtsdGHFfa97gbpYoi5186fbbLTJQ3rryHFdvDVciqV2l412
pafakv10cdGQ+KKcLDZi1L1b9chLFydU8LwL8tjotIb5XuYBXbzxcIdORRkb
OUu0Wc1gXXy3/NKjtgY2yt03ujFRURcHuCyq/c1mI45sp6tdnQ42H89brWf1
Hc3xcvgekjp4teH798nXvqNw+YffDnqScbuXdd/+0e+oYL2DnmqtNn7cHaL2
xWwCjZGqlqgoaONCcd2q4osT6HtndqB+5FrcefLaVZORCfQ09FTghi4t/Hcz
9ZX2Zg7ySOs4hUy1MOtjnPneJA6yrSArXMzXxMsoof9ZDHHQeKy9Ud4yTexp
wVt+dMMkoj/tbU1K0MAxxs9C+GcmUb2bbfKm+TW49ThFcXvPJGL8bYAqxldj
I3dT6Q7yFJLo941Q+66Om1Ond6nHTqEPN4t9qMNqeF3pdGdX1xRKa7c33vtF
FefFxzxu0JpGwwE7mq4vqGC7W7XtYVHTCFf6l7hIq2DpwMtUz5ZpRF/Y+DZi
ozIWq1/6a4kcFy3lKHZEOinhob8m5+UsuIj+YH7H8+hVeJeyUon5UXBwjV3O
y5V4z3X1H8xULkqrDOnQ5yni/qDjU8eecxGjssE5wUIR29b0pVCHuYjb/cDQ
9doKfLBEoy1WiodYnUZLLo0o4OmZx896THiIZmxc+nGbAl4zqoxTPXmoPNJo
lJMjj02pBSdjLvEQpv/ZQhDyuOc33e78Ux4yC24j0hPksIyHTgtvkIcYicXG
9+ZkcbeyCi9qCR/tWn6xcWOcLD6z27BuI4WPcnZKrVOXkcUNypqUfa58JNaU
HxW2RQanWh+0vhzPR/iv2aCocGk8q+i/SK+MjxxKvaaqypZjthXTZ6SHD/1T
91y8eDluGLE4+W4exhPWhGUfX4aNta6pq+oJkEZrS+bnLilMqTcIT3QUIK6n
oOmjsxR+s5AX4BgrQLL9107ZDJDwX08sSI5FMN/qyKzaKRI+Y0CL5oHLJdxl
a8NJuLb4LOdqsQCx0goIWhgJW+a2tHeVCNCwuNHtghBw+sF05zKIb6dqYhkA
jghXO/hUgGiMHdtv0EgYmz+keNZAvP3cL9w9JExtUN13giVAIcxsJSqZhCWK
mDaqnQLkcNfFSFybhJuuHKe+BdfHZjm80SJhW/dqI/J7iOfSn7tLg4QP/HCS
HeyBfHwWZ3qqkrC/waV3tp9g/vSf1bVyJHz11py1/rgAGVa/GLP6TWBnRjb6
CKadc+rQWiDwSr+dmy98hXpdT9dLzBP4tmmGztg3AcLKkVWtPwmc37Hhj7sT
UJ9Qm+czS+Dnf/gxpXgwX9npfuskgYdP9lhM/A/yVeRzDg0SWCmUXHj5F/Qz
+e7ZoAECO4ZGyBnOw/jrNb/jPxGYGao4Hr4A+Rwszy/tJ/CDsP2pC2JCxPD5
WUz0Etg/omdEbokQiQ0b3eO2E3iG3nPeTFaIHJwpOv4NBKZEkXkfwRqeXJdb
9QT2jYo4FCsnROU6yUFv6wj8IUrRkCkvRPUTNjb6tQR+eXp//x5FiGcvePXr
JYEZMT3rPVXAoV+TmisJTGL0sBK1Ib75YaZUMYHlSUyCTBaitKHxVYeKCKyS
8YjaCOaG03aXFhJ4fVFSpbiuELEi1mL7AgLbssxvxulBvKZvMVl5BL6ikeUZ
RYF8CkNMjmVBvAbfqUAzITL0jsjIyYB4e/bpLjOHeIbzflJgrR5EKxWZG74q
Mp3AJmylLvYWyH+7KcnxGpyXXOsz378gvgXfUiaNwJleG2JpVCEaPhbwb2Uy
gZXF56ScbWH+KyedB2fhvGb9WsXsIP+4D+s1wZSJvktlYAaFapqVQODt3dWE
5F5RPxrs7sQTOKggUvKlI8RLD8q7H0fgNzY/xDVchIi2JbF/KJrA9siP2Qau
f7J7eQD4g0lffNRB6NcK/ra50wSeUqsWe+8K8e5MvVAEK02fWkh0h/HHmc3u
dAKfSJ/9b8JLiHL4uSGqEQSeS/J9cdMb8lEv6KoOJ3BCTC99xxGIb3J5837w
TZ+qH1lHoX+akqT0MLgvm0/NOPoJUYhESadKKIFXDcxwqwNh/VjphFswgXNZ
PuVHTwiR7JvJaEmw/t89wXJBcD4pCjLPgghMffRsyj8Y8hslWSqAAxkRHPVQ
uD/pRbWfAgncoD3z9WwkrJfNsbnnD/sZS6uQ6TBfNYjhITLWtf0HXO9WdEMD
3OjuWr70NPSH7uVfeJzAzRmv6ZdjIF/98Zy6YwR+m9tbQomFegcVR5PALeXT
Ax1ghzdPJBzBrW2aVvJxEN+AMvWvH4HbJc4TN+JhPMrcSQXcIZ+91SwBzGrJ
YvsSmKXx/EQ/WNa9ue0FuNPie6fqOdhPbuk7d3B3uP3tnPMQb/aWR5kPgXsS
/NqskmC+IKXqLLg3jbEwCq7X5ky7gfsePvUmX4R+6kwvWQb+OLZyfUky3L9c
yX/oRwn8ib/h8J4U6N8Od70D4AGx3akccI66epApeFAtWkC5AvUHfLkjOELg
oXUZZBbYYeTbuW6RzcpcTqZCPilue6vAw86fX1WkQby4hAsx4BHvuUnnq5B/
s9kPGng0RE5jFszYech6J3gsZds5s3T4XobHkhXAXxsLbV9fh/kppILn3gT+
1lV/xiMTHK2lkS/ycH/5bzAjuyA6Dfz9l5Qi9SbkkyjoDQBPkMjWX8CG1jW9
bmCOkmXUuVuQnyWv2gY8ZRoy+M9t6M/b7NUG4GnqRZljdyBfD+X8NWCuQ64V
cRfq//M3SUFkj1dhJWANXcd9kmBeYPeDPfdgPzeZ2F9eBOafnuzjgGlM8wt8
kS8sIV3JEr1XrHA2WJC5xmJDNuRv+J46AhbmmwWxwKxNVH4/uEKsyPNcDpxP
EqWrCxzqvsrR7D7Mfyfe2gY2en6eygFjom6gCcxVmDXJyRV9r0ckG8GPg33I
znlwnrRpmwZwUGv3yqX54JgjhXVgA93tS2vAtCt1aiJzEir+C34A+11fXCpy
6ZDWxNoCeA+ubnASrfffcm2gD8w6u01eFF8vc1F7ciHsH4AmRPt/44XUoSKo
b9faQVF+hXbD5QJwmsr0V1H+vsV7cwuL4XxGc6U+gsl/1KUfKoH42Za7RsFj
NEqiTCnU58S8NwHOq7l36g1Y7H8Gy2bB3krLj0U+hP1vxqcvgn5rhse4ri+D
cf3XJtLg4Y4Jm8/g+sphjio4e/0hi/RHMG7CqV0H9khqMbB+DOMFn4u3gAcs
i2Ufl0N+QWdaDoPv3FYSP/IE4jP1xE6C3WaTBCufQj+WvbZPBH8o8+09UwH1
Me5segK+QfQ2GVfCfSoZ72gGH/DZ8WK8UnR/lBNGwN1q2nftq+A+sDcbrYT7
m05PvyxeDf1ia1GMwU7d4nFV4PKhmW17wazkEa/VLyB+yb6XKeDUrw77ukRm
DKmUge231W8//xL6t8cxox3c9jNLd+oVrGdOda6A7zH5gLRybo2oHuVMc7DN
01jSgddQj4x+mCe4+bj75OtaOH9jgv4I3PhBueJyA+T7M/ehK3z/Z00v5lsx
Yb3TcrMkMDVt7voMuDzbc+AZuN66j364EfqhUhO8Et6bmqoMS4MmGL/q3DAG
jpaXMBwBG15fUFCF92tLUJjm9WbI/0panBP4OdlJYv4t7EcLvN8IjoxvmClv
gfEtVS6/wZsGDb8ebYX3ivimsxXeR6FZzgelNrif7xbJ0MEVGTItbWDDpMWy
VeD/A/bc4kk=
      "]]}}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"Rb\"", TraditionalForm], 
    FormBox["\"B\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.8, 1.3}, {4., 13.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.614861466778398*^9, 3.6148614792001853`*^9}, {
   3.617005494815238*^9, 3.617005504731277*^9}, 3.618146387105713*^9, 
   3.6182111989464607`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQm4HVWV74s7z3PmkIQMEEIIARIIgRAIBAKByBDmwTDFgMiMiCIaRQRR
QJCxjdCgKO1ACxqQQRBsEFSQVkQFpPEJUQGDAiLjfvu3aq8669Td59w6xNev
3/v8Pk6RW6dO1Vr/vea99q49jzhtxTEfOOK0Y486YsKupxxx0opjjzp1wi4n
nuJP1a+XJOvtz2dCwr9dkujB+f/cARw4M/S/vyP/q0/cmtXJylWPyF91cmxO
Hlm1PFm5ek363cqVycrly5PlfPx1l9ufd5b9XD6PrJLL5N/y89XJmvAdt131
iEsus7dozd3ikWSV+QnfrfKU1Cm1/vZCmf/rCxFGAqF1cmwpp2T5quSRckrK
COkYzItbk6z27K9eE+6walWyqgTF5dXYiP36keSqoUhuKCd51SNXFR/R/85/
byD/axMgBY7lgdFBYwgIy1Pm6mX0FZ/phW8h41X5Fh3hKaXhjfzcPmKzIObV
fpYJnLkm/V1L1d/5RzUESlVO+WyiQlKAUuV0uRGm9VLYJ8j/mlIt05+V/l0f
vl6zeqV5un9CKvrTi/26TIXl14LaphFEGqrfcUbkJ00VgY3dWs+lhmPmECRY
xAMGdeXAVUDGAhexGdOr/7o5kGW/nl6F1Aq3WRe09DqR9MBA7H4tEVLXGwxR
Scmyn6bEN6TDiy6lQ7xp9V9lMhVGcXmwdqtWyWhVk6kKd1wXlHSgrITHSChD
c3nqC+trEKTGctcXnrZpkZ/mv3bqjDfRO0Pn6kdqEazpQ/40/t2mVb6zgqSj
NK3K9Rn0JbKSnG4WMUuDvy5o1Mo022URwPS8VC83wl7xppvGf9UYPz2jwDPe
HWVlRlq+DpBuEH6cc3yN8dMz4qfLRMPoLhI2IzKcFe6+WeTSpsi52HUZtzkS
ysZhKCoEzqC+6xLzTOR/zvkbzuKwnjmb1HMmG8L6yLnWyLmWgtcVPff///16
ys75z1TnHr/Jub3400vEyBXOXTHVPf74GjdyJNeudT09i9ytt3LtNW7ZsnrG
LGl8wM2ZY28jt23/b2Aj9luR8vX+KVP/l+43oOdGejNzhXMrOLnWuZ4POffp
Fude47u73Q47MDRcy/+RL873uLVrr3ArVvD9V92BB450a9YUHar/0bI1J3Ju
64LXDZNjE3p4knMXgSUnLnLupNnuNw+Fx4mKOildJEmdHOuBL7tNX0ESBvE4
RrkyOUFD5IcPyrEDOl90+/R5UyInfuyen7W7e+q7SmDchtSX2ZCl75aGH8mx
eYJzTz/v7htITz/tP3uJjCFXSfrA5moyl+yfJ2BkIEAin7IiQ3lqKiFDAz+8
X/5uROxfc67lHff39Zz7uD/Zko3PH93w4VXHbD+OjYPIwCuXfLRi0hjB4z/S
6+c494C/dCZ/3Orcoq+5Ew9IDPCMgyWibDAOzmMxSuHXsDwlIPb8++TY4wV2
7aed+xB/4Fe8g7mpEvaxc4fmSRht5EGjqNjz7035X+TcrWvEJLnkX92Lh0NP
sqKSkNnAPyZk96T2gZtc49wy/njcvTb1Bbe43wq4KNx0978Onb5xEbNxdzmp
yAyyY0S2XkU2EwI3n9tvUOT2d6WaYYl+wLk5U4Oayq0b0se45/adyn35JLtx
HFPkCXemgOUZqJfbNLpXJvWqrMvn9YG2ZC++G1Hk5renRtD9/ohN3Mu39svp
N/6rxa354BS3ZskUfciz+2/sXtmwz/19RLt7dUI3nCRL+a6/yEO+k6obt2p1
f/z4RPfms83y3St39bk/LJ3s3moViNzbTfXu+QUTksO5trvIrUXcW+XWTe6l
G0e4d95Yz731UoN7/jMTBGtPcRhleYrCL0/oLPKEGzl2BhzWnLShe/2JNvnu
tUc73LPLN/a6zXf1GRNG38tGfBnHtiKP/Eqqw+kjX7honHv71Xr5/PmqMYxK
Um3sj+G7liKPuZZjv9yqe5AAPH/c+PywCCcxSXgf3zQVeeQXOQ4Pw2XBRBIg
ocJwpWA0uF8dOM09sNeG8vnubpPq3b8t3MBf+mVP3IVzx/LxF3Gsd5/eerQ7
ZcZwPkm7HOvdB2eOyK6rl2Oju3ze+twl+9zt8a3jAf6Kpw/ZJCNhs8JMXslx
VKBYhw+59MNXVFgawnVPHrSJMuyvg9sGt2r+OOXCfXTLkXXCXAP/dOd9YCP5
XPmR6fXuuk/M8He48byZ7q4rt+LjL+JY7374pTnuV9/ano/HhmO9e+zr87Lr
6uXY6FZfOou7ZJ8LT0Xc/QO8HoMl+H581iihhDEI+AnFHrtk48qYCWQyOTI2
MKzSh3Hw0pfKeGdMxgWlhz1aPItnMobQAD1nbj4ipbFOAGhwN31uC2XMPXzD
tpsGrh+6fq6cAp/Am0AHX8gO/Nz3npSPKTyxPgtBqoz95zmuL6QPYB3c33/Z
Lt+9emu3e6t3sD496ln43fhu96feFvfEsDZ3yRYjhY2VK6YISZDGMHhS0/Fq
ltGD6gtOmirUXjBnjPv2oonISjKxsJReyHF8MCRilJ9vSqX0S6Pd34a3azzn
Xmmszyi67EObZBR5MpJFQlKTu+dftnZfPHtTwJfB8LqJro4vTM1nOE4MhgEK
3vaU/O0PfvSOGunOmT3a/bWxTt3ok0Z6l8gxlVQv9KIEl2w71j2638bJ+oWf
fh5HGY+kjZ+62xZPdtfvOs49/M109J77ZYv70ic3Fll64Npt3EsLRqiZ+tuG
XRk1+8ixwd1+2WyRITT1oX02GlOYkE9xHCeE9Iv1QQK/unNq3QD3o8dMdtd8
aiP34nMpYW9fXp+KVLu3GB+dLpT8xkv22l1HuVen97i/bjcMvJL9Ak5oOUyc
c9yGIjd37jE5GVWYvE+UpLtTTBPkoYCQJ6LoRfIrn9pMFOvRG7dzT9+1hXvj
1Rb3zlt17u+nt2nA5d7sacpAOzSAhgxdcvo0Ac3fe0Rhqj5WsiItGWioL0MA
aFCF1HqqGgIOv39gEyHqzdeahEhPUBKTr8OCdQQzbgdewwtTdlaJsmYEQbAC
dsUKNUaPmoMe/ekXG8hv//Zil3tydUpGBVl7b4ANOwZsUOcfMVCYuDM5jgnE
4VgResAHMuQDyPygeFvPkzrcr7+9nXvlN33p77/qZa6/qswdFaDDXGFY/agk
/YWpO4Pj6EAdA3rtjuPFEKDhmCFGxItY8F8N7je3zHV/f6kj/f2HMqdqJW2F
cXXYVlx9X2GKTiu59WYRfvC6avtx2WB+44LNMQ5JV6Dot3fMEuF/+40G99Yh
DTHxGhYu9X4p81HelDUG381dg0v3f3FskJE5/oDx8jnp4Al14UusM6c+fOSk
4KIbM/+hH6+ZwbWnGCgVM3K4eOud9BbG5RSOIwMuj/nwEF+k9oqRuuXiLbm1
D+JS3XvmnpmCieqeF/AkJuGdgSz11B7fRJy68uzZF57PWDbRf7HsjLn+3DEf
nedOvXAXPv6v9PjJ6/dy596wNx//F8cGd96N+7qrvn+YfK6449C68OUF31gq
py66+YAkPdfoVl67RG8pn5M/u9BfyeOahYRTD9tAgy6BGaVGb6YH+jmPUySS
6C4M64klWJvEJ31rl4mi5H6Exdd6SPrlCW3u2Yc2Tk2sl/+nbtuqkka2hMvx
YLgoiGWAIJ67guX+758Na+74cxfUwa0C4zFSvHyQwbHdfeG2gwXXD1+xuwBz
wvk7ucNP20buwz2hksHHwk0NYOCocdDw1VUYjA9wHBHAIPLDJ4o1wB9+fAaP
GBbE68/3j01/5jP/t0eLiUpaggmDcw1qUS7VmoNO2Mod+eHthIuzrl4sXHkR
mCWMtsifZ3xhN/e+j893h5y8NQInNheN99I5JfDGn5ip1D8W5e24PG+4LqJq
iMOZeqJT3lrcbz3tDO7a347KzLBrSQNjb+nqQmyrsbwOsNoM2FQFQSm8tCfz
hcdmd8l3D3IfW7UnAy/CAI9ILpI8KTDIgKLd0NoxRGy/wqZ6uBfkV9lCRTxw
w4Pbgy0MNay8c/N6aWRzUX1DiECvO3GqDDTKhmzqKHkdTnYT8huFfOQQ+YN8
P8peTlOykUVSEmhp59iQUVllXJaXGGgU542tx/sgb554Hzel1KNhricVOKH8
zHr37JwBNWm/HdsllH3upv2TvYXaBmRLBgJr653YhEAo40WIkBFaSICO5jgs
EIpjIvpGORh2r3/J2KD3b81opMCZThYsS6Xmwyu2dD/abpz73fTh7kkveNd/
Y+l+QmS92D1ugU8bb+IgYoTaKDzSUogtQ0uAEgHj9mOCfCO46OcNn5vsXv99
XUrpopTSP04bOCRQ5qEUyhjkcYEyDJoaluKULbOUEWZwC2QNXcZpjQ4qheXg
HCOGwf/01TPda683utffaHRPnTjePeuDgIBfcmggE/vIKHuB8clISiZqiXOs
jczDOQ4EMglxdYgxYp7zQGZq2pEiWEDb0WbG8TsPL3BvvV3v/vpah7vxR0uO
DBSe/vldxUDw4zHGQuOuaqPwUEsh6o6FtkOs2qKpolKIMvvxrAua8YM75mSE
3nD/3kcHQo/75A4ie9xj9DrJ4sGWUMIVboFdwtQSUI4MhBK3QjyGEKuCA/CE
1geDc6NH9e9HN4mIvvPoeu6Oi+YnxwRqcZbwh5VYN2oP4tgfqMU5MDLYN26H
fI4w1AIr3+GisDjeJjYFatee3ZXeEvX3turVvtZkeaCWmAcTCfOjIq6sOLUH
lKhtEIuLpGPvvUwpoURzWFAlFFi9OWwJ43/3L+emd7tVCNUw/voQl3GRygRe
GfkHhpHrZEH3s3RTVCJHAxKvreqjSGdBBbtDkITqeLrbAt0PPrW53O2VH7fh
xpRub7Qyutc3xj+Eo9ylQaLUBsJK8W42+vIjR8yhTi84vhDE1ovT07vPDKiI
Xz8pDbdGrBMq++ZRIfrE/nkVHh6CLcI7IiFMIrYGl9wRoqafPD1DbvXrNZPc
dd9Z6h7bc0NrJocZKwkUnvCkLkTs3Aqm9zlmC39uz/du5imY/d5D3Nxjl8tn
4VlnNLhdzj7Tn97142e5vS+9UD67n7uyTk43uj0vOFdO+b/ks8NpJ/n7+t/6
eGKp93nvOXJmhjY2muEE1E0DVZxbnUZbyfB1gnHvSjCamFWVAlvDgPtAzEfH
KSW/+NlGCmMyLKgzDlDTEkwjyUidoNUs+Gx3/IqMcw+KIHHw9au8eh/2tes8
7Yd+5ZoMtCUXng+e8juPtCACDSBCgDjVmAl02SKC7yANrg2RvTj2BUTu3GOy
RWQgqJstVKm6eXHvMtb3jfMb0njry3Vu9Xk7+dyK7zrE+mpaQkoCQwz3Vkce
7uad+H4BZfF55ygoUwWTZvkTqQGLrY8+Qp6KHCKXG0akYtg6YbDEYsDPcUFo
UoZBo7hK7o5yMcooV3OgBABU9ZsDKH+9Mi0KumvSiAkj3y7ftYnEEN5bQBjx
BWec4nb75NnCvZeKLQSMJnfAqitFcBAkLg2PnxSRhXXDYQ+LA9pBVMOtvEr0
52SBJ+KJif39IDcbWfCsCsuvdzSJLDQFQtUGeUiyGoP1JQ0mw0OZSAJVVuaf
/AGFZtsAC3qD6GzzvqMkeEHEvP3aICIeAwEWbDGBZW2wLObYG2Dh56oiPpTq
D+JB0QiXj9FgfFDWtoAJdtbOmiAKjTlM/nJ7Z8Ckw/op+YAHDgm4MQqICnqz
18UXAMICwaPB7f8vl4kEYVH95RMi4qE4DErCquSOu1nuCSaJegDSK0eee8lV
fQzhhyF4nvpMGkqza3121OVjvdM13iPnvJMggPrDGtzjZ/a9/OLdhPN6kQQA
8Zf45KjkydBVCOwPbEMmqk3xp6Nw7rmoBEC9ZNxoBdlOJe69OiRqG3+9aFLZ
2PuxTeojziQ91zSIU/T+oGuvXhI4hUtUoxTClA+wclqwOJDjdBc71AS4hF7c
ysdbfYFZQi98r2W2RyjpjQ4dw1vmIG4XByE1Pxj1ftIymuwTOEWS0WjuPDZw
iq3RDKkvMqbF6zwLOepENjkcGRIgejOvnGLplFMwh9ORwUS9dE5XKTJuSdza
tkaxQ3Dh3dj+gQmsFoaeH40JTGD0KblYJvA1+N7ailU7WcHELoXMKUhBg4TI
Sr3Xh1HByt758zmWeA2Pj7/yUsgW0pUBPyLie+FdGcAM4Q15Rq+ZV8Aq1lZJ
XGBHgWIJORmmxQ9qX+ABE076hqz4mGNU0CvE57qbp8qdnv9hh+04c09MmZwx
cmBkJEYHRihhhdJ7xkiYiqiRkR1LjNTLQGIivJdMlAsqDRhdnJL3/iND0Zbs
g2AK93XyJbvK7Z54fpI7/tpL3V0LF7hfTvNOZu4chiY5OHCy1A8TuRp3GBUx
AcqJrcEUr3TPt0OCtecWiKcfkt7ADIMNToQu3l6pTpDs4LLJDYjbzr31/e6N
txrdM2vHufd988plgX6ivpVpwBTUqVyxlX74eTjtwkhHorkI/dvbkSACYiQo
yijx2AsqCUDoyRgRQjLiVKhgJIiz8K3I0EduO8e9+kabe/6VAZg4IjCBr+UO
JZtQrtg9lQahEBPzOHbnBgF8vPFVeKiQoBfeRiYjTCaizsPnWFDplSKNDj64
+vyMkZNvufCowAgDhQRygxERBe+ppBeFupq2HWo0wAcuCG+8hRoeGEGUkC4i
v2BS/Q1SRjzxwgTM+H8fbWIA+Cb0GBFR8O7ACEU5qMgYaS3CyFw7IlgqMyI9
gRfujPFCB/xIaHqYlywfwfqzKS/H//ulGS9e0pZHjNWwiIr3RLx8cV62KfGS
ug0dFGUEF8+todiPhDJCgQNPgj9Q6UoZaXQf9HmrVw/RdXTeM5NMNgYrZP+J
FgrgUOsHO515emM4jdZpKuzju83CHYjyCaotHtZk6NhCOGVOYgHBo1CH39Z2
bIkFqLUFL6RIqyf1EU+goFmMN1SBB3EZvhKT4bEIwtokuLzU0y0xwlu317s3
32xwF/zgtPXD116uhVcyGwIe4PDpbp3bbCklpQ23O8tNnf9Jt9niL3rS0uOs
fb/htj5gtXw2X3Jdo5xudRvvcK5cymejeR/jBhKQeHA1v06mBTjJJyHawmmN
l8LJ319OW6PSqKQ9D6d2SduO8Qpd0ltZqWMGh3CBWeQe41VkbswbMK/EAyGm
RO6pgOBVYAQ9DyinyJJQtbe5C848Tc7jMiXY/mr66L8d1xoqLQ0iidwjQF3n
tjh4fy+8YLbposvdFnvdILBuc8id3oTMP/pn3qnNOeh7wOw2WXixXDfzgKXi
wbiNH/CNAqTUKMJ0dTIQMaMKKekhBr0ypGnzc9OgRX5h2WSsV3s2xy4jwMzu
hcmi7pxO47R87DQQQkFoJiaB/j0vOLdB2OkogRg+AA24AvgV4cEfSr/zsUm/
/KxNvKJWbRBlwEKGAU/BnXfEgxsIts1u+yN/6mYvvUm+3vLQg4QINAFrPzni
nwYiZr0rMlEiwHZUArZ8lXC2tECAlWUIm1tJVVvPtJEaAwYVU4wxUCAxjogp
PCy58PymQL5KaCn5bZI4+5lrxqXPvygF0YesvfKTFgERc4LvmzL3TDdtp8+6
mXtcI+B5xKYJeA0IqQgtOHuFnhQeiLdEg6CqP1KFVrzADxHxEZbx54OXYTSV
LRAfQhC3sMgxtYiO0+LSY4IW/DodHTqaGv96wfHcpyXRe+fPK5M/IvqrHzxG
nvOHu0eUxcVdwZai3EiL4ubtopt76D2bC171ghdY+cuSiQEsvBh+BEL6zHQR
mkufhGqtraaJcA1qVtc1KwLOqlWlZaceuJg1LJMxqbT5sWCGqtuEqYwZgZEn
qT+IGeUBwIJRryatQWbe5y26zReuvi3F6tHnZrgjv75KIcJDUTrBlqKXiJWH
aHaAaNvD7xOIvOdNNggQeQsppRQLESNGgdzK0yBf0VXUsIXVyzF5mmlRkk6m
dIo+GxjCRzSRsnC/0UTcMpx4XeoKtn/lHWfbbKTDFBExWdh0bNCM3a8Ch20C
JN5aiTvFfY6PJGAKiXQ8+PiA6S+FBIdGASWrTAxaRBFznx6amMBsVrLxaSs8
qbI36JnAoNAMCtGnp0Z1nxINAuP9VdJtIuiXXuuWyNNHoO0hhiP4AgasNkbH
m+ZkntEeTBtXjovUohQHW3TtNKaGQaINWHDoKRKVzbAMqxUmpdaxZ5qGlNpL
Yzb2uDOUl6jHq0dboJRYQQsCmg8RrT73l1ESevvcqDWAQESGDUVFiKkAYccA
wrQF58sEDVeuH26NlKGUabAyOFRXYWBocMtZQa63CAibWhCsQe02bo9HMRvR
F0DAgmE2GC+vym3BOVcKmLx9cL/848aiHOd+/8yWAASMEqWjFNN3vRSlSHYK
QHibIXf3ypOMDUAAHPkXGXE1abA9FwJEXxEgplsgiB7L7WWKL48j/eszfg9F
9SYvSfW9tWJk88AzaU3MexkfmaQQEOMhB4w7Ybf3vskuAQLCGcJIrhwTIAAy
aKgkCwoBtl3OHTgthaDQwq1NLATUmLRNoMvcVhVCZQHTjTEk8fTGsLNiWOJt
6SML5VHf+sXeWVrHoOIwEAKiNIRg94AA0TC5C1eOjhRte6sIgZ1/KI7ANIsA
ykRdylpcDcyYO1YhII8uN4DNg8KLP509TJ7hhSBpCKx7zZH4QJ3Cdu+9P9kj
sO7/LYKB/Cvr/E1GyFN7qgy+nbcW1geKsL6xZZ38NOZ/iay86Q/Ip54Qd4Aa
e9ffE7i3wcJj758mio8B8IYgWMdGGVhMG75vy71vFNF/j5pB7xtwmVw5MpJS
xga+o5L2DyvC/VSOncb5EemTO3YZ54cwkMV6A6QUaNnFezYfbqYGAOdnCnqi
/Cgu3CLSPsxO9gmcwjkyYDklQeExlca5w3g9IoJMyYcX4XQjyyleD7CYa9Jx
psjEo2hKyI8zpHqNHdCg0HOnxSWqf5gzgmPMmedyqYn6EF7LpK3R9lQZTluA
knnEQutcN7RM0vVFlERrq03mcON0acbGcliQZHVd3PejXzssM1PePyUHBPaI
c5emMxvJcFMrZN6pNHeVNjBhlix7dlajozB7Uyx7OotWWouQmgD1VT3xMRwe
9PCuJxfIbS/8ypbihbFCBwXOsEoYZ8uZjU2VM/4OiwwzzmxxXQZuZBHOJlvO
pHJIBnnDtplxo8ogTZkX7pINnBpgBm5ECL6uvnN3ueeNt2yL/B0SOCLFRQ8t
R1bfusMtEU0eYzmyCYhwNCrKkTA0yfKBK9XONcsHwuAflPEBEVhSqhM9kcCy
3jiOEy/cSfh7+PHN3cJjH0wODQxS8SC8tgzimolUeIq2GdkkVBkk3qVSSzpR
GrKhJq8n5ocM3CyrGjXQsKASQ9SAMHrsA6sdFcNHdIlsdNmeh7uXX+1wT/xu
I7f4hPsOiyQOwwLHIAR3dkht/bHdjAISRuIgHBdaor+B5ZhQEe4sxwIkS+4M
x3hu3CdC2huKELFQkeLMgQfs617s7pZNBd5Zu547972fSA4P7JJRgwZ3GDDW
hlIsz+s2SoHDsuzakoywO7YIuxPy1kbDQssu56i5KLvMnmIWKIb0VSlVzd3q
JPfTEZuFnSz8Z4fEvdg6cHgkBFRusUhkH1ac8Y9wxiioONtWHFlEvH4Rbsfn
XYcklkNwC9iYFTS3P4QB+RDw0Z6Jop1/OyddA+9OKkXGe3sZ9gwL0wcbTaY2
QgiorBMEYelK/R+pKoE0uUpHJARsL8z6uDzrhAbcttN4K+CwrFOqwWiVyEyL
Rd+ZtaV7sHu8u338DsLeRy67KH3OVzOuHxs+I+NaDTTVWmIDO+Ax+4XxoDZj
xXtQK/u4Ilyvnw+I1JlartFcnGm3MZ9kPV4Tg9HpEM1FC/GaDB6sHXbWTd5m
dbqnnpnibpm5j3tk1Cx316RFIKL2ixIrLoib9AeOCX6p9VqOKYQwrpZjWwAS
jscX5rjDBLuMM9FRNY51dQNZjppZ4j2inzkHfc8Palo19pbZPbNmA/fiSwPu
gDNWHxG4nDzndJFefqj2gNyPcJGMQrm0leT2nDkl0BUuJxThcqwdV0o7Ki4d
VbgkSFIrPRBCCcgkaCLu8+NaHzi67+Ed3etvNLsTL/hispHR2TB15gHh2Oi2
2v8WqRTzCdMTycxIZKxjbzPcTgM+ek8kVNF3FdrAZoxFhQqfLrOohooWvTDm
A8bFIu0+g2G2Vdi55mbZp8xd+rXTk4lmCsbMJop2kPNtMOt4/7sd+g73EC3o
W+b2GHaSfPwZN3H2if5uE7ZY4Y8h2pa7TQvP4T4U4Kww2bhUhYlpCuZV4azN
+EAEjC02BLaJRWAbbWGjk4t5hqFgI+APkydlzgv2SSAUNjWNt/7HkmRCUCMK
AFSESIU9HHWCVL3bfeB4t2TYqe6QUed64Vg+9nLvQvcd8WG3bc8BUkwEmTCN
ozJpa4oKls2+Og21mp6ojNlpCXGhk4qANcqChRtSs1UNLFwohr7kQtPesGBR
vZSkwKhFJQr0ge/YMItKGZ2KGeLC3MykrU9xC/uPcUtHnOWOHvuFAcGq0R04
cqVgiJQRW5DtTIk43JhUdRrbjzLiGRUou9xHgJpcBKiRFihw1naDakBRb1eH
a/0FlhRDrEB5cMQQA5Y3xGPkdJOYI/I8DPKigeNEeg4f/ZkxAlA9giXyyQz1
5EjSVE2CYupGNYEEFw8lwEwpDExHJKeoBgwBfrlVaJDIGNuNGnkRaTK2m0dh
u0caQ4XGIUFe48Qo7T38DHfUmM8n4wM6y0Z/TtDx1yWTIklybxWxsfpljZFO
XLQXRmeERYeAPB/5WnS6chELGZeKDRELqRM2vDmwc9U3T8hs+IggM7gp2FSl
QmY8LJMElQb0S06DTDb5Xl4X6Y2ITYehDLCIuVSfbNlHxGbDIsAMt8Bo2Qef
aTNcHpUHRgOb/lxgg5VWYLysyHO87PjMmnONIi+Y3bk9+4lZRlamBlnZf+TZ
8h1XjjdlXUpIQ8kK6Y16mLZIdCuQbFQEkmEWEqJb2TjEpAo2nbEpBf6eKMiG
JSECCpA0uOOPvkbiPMyMNzf9ARU0iWhHxcUb3WR6QAXji5PiynGRImg1QSGn
lDjQoAL5sMRuSILK1MpFmQFrbol5qRXHygFUBa14oEtMWSsWEIuzSbUjZfow
n7j8ubffuQcSWSR6wTHoWYoTNhd7S3xzxJiLZgQscEYqIesbJ4QeEWopFrbj
QrHQcgJD2WbIZyhJ70sSMlT9ZsBKSMxbY3t1KGz6FRpYMzKxtTLJ7a1JS0CF
fEc6UHjWMknt/fUpKrhsJApD61GZGVDBuHDaomKLHj0mAAUBcuEOI7ico6pl
bawWPQSVaUX0pt+iwkRSvnILSjo3beNNBiuGCtO8rYGdl/cPvf1XxEsAneE6
5IZgxkOSbBHgwcxgi7lirEkjcP+EBAqPTa46cqaOVkwLDyPMfj0CzyZF4Omz
8NBuhg5aS4u10plKm8EypR+Dx7Ma4GkiWnFv/KUxVaWw3cVjw2d0mdDYyM2W
AZjFw04UObHAoF0qpgqMbX1VYOx689ZKwEwvAkzvUDaGgAjbal0QMw95AzgY
mGYJ6R57aoZ75dUOd8fOu9tqQiYzQKAyMztAs0v/CjGyXDEmXIfrAgoLje2C
7TCDphZBZcamBbIb56aFoYkZmmrml3oAMCDaMWjaAjtfv+MQeY7PpXxAmAoK
aoEtRTK8Z94qoIHcoFlcNNp04YAa64N6THSkHfiKBok5vf1V0ZhRBI2eoQyM
NbsaF5CIa52xGhorrzpPnuNRCWiklTViGlLHOQGK7XsPlf5TCwXJgRqxbvMM
AkVGpqNKPGt7UASKzYpA0T1UjMJttUWzM+cASa57jc0jXyxB0eBOPvYqSYHQ
G68/neE0fhZOd+o7CtnYJgBCIIfYcNGoAAgAcVerKTY8aTe1I+QFM6iA2Dkj
AWRmzYAQ8+msaHvEunbmfJ+NHAAEeSGba40EKjq5kHc4Pu9Jtg2QbDDreC1n
hlypPEpRSOw0msoI9KgBVLtqF6wIJJsXgaTLQkJmQIaQt6uqrZ05f1eacymH
pC0WpeyVRintkSjFp3+KCjkPyFhBsWWp7ipRijWprYZ8spUsji2ESmelTNCa
VK3Yq0mlsKzdFTp4VFoUlfaCUYomRpQHiG7xOPNMosy5vNBwDhtrDQtRCvTF
DEtrzjWQKAs8WxSGp90UujEspJnVbCy5l+bzCg+Va0xACR4TpTxeFqW0GmGg
ykRKuH2uuGJRiQmNbUmvZl3sDJeo0pZFUOmwQmNLwCo0NrTtjIQoFhWEhp6t
9lyI8vobTe6uxYvKQhQVGAI4IjOfCyY7mGyZSiVXjKgiMHZmt92oOTrGFIZC
YwsIAs2sItC0W2homtYeAIUGY8ajLDQ2RLHRN7O4tsyL4VXdqTfGmHMavnz6
S5/InDjGGIdN+rxjJPofEZGgrsiMcIfRezZwsXpl65YC0+zCMKle2TnS/IwN
yYfCxNJBSCp1N/S5084/x73Q1ia683JTpzt90WXptJmHxRvhqudfW9rqQtW8
1Th10AmZwYIAGj5+dgp0qNzEZcu2G6tsUW1VV1PRg21VBLQ2K1s2M7CZmGz/
eeO+GWhoPeJOlGNl6+HRo51trQQUAPLqlqSbPLTYcwKYo6q6JnFv/1c9s3Qt
ptUWo+RFK9k5IMZ0gk66DK8iZjZEbjfjjDzghlqNPGiVRhDbunKVptXiRDCp
jYjtkWiwI2cCqNL0GB3APL3Q0ptt9ov/CgKU6I7X5ly6qR+70E1NykwWMeG8
3oPcoaPOy0Dy/xb9tCBxHYEyQh7TxXYTrDGuOKOYjyvp4lBbkLfmdZHFrjYE
oBicry/aTFzhYmwZ41s3XJLo3ik6Q18612zP0cOQ0nGS+L4MLoImoPFhQLIw
wAV826ThQzLMaCHXsdBTtdDO9rdF6joWLq12CVzbFNHCFitddlY4Xy5itBQu
Co/lGcCA5MqhTOUW+1H/9sb7WWdX9fwHzvqSe/vv9e4v3+/W800GEbQRQVsY
8Y0qaHZWTwXNzhy3RXxjReTmFkauvYpvtGGD1Uvmyqz9wmgw6FSSO3KTVVST
9z71zmaDBpziAheayBtZwrUqGrZXXtGwxQyLhhbAKqKxbRE0mvOhJY1zdkYw
lo9ADmTFUmvY0TTs2/fsJ885/eLLEjXTzGAxmQkICyPRwDBjznXlhELBFAPW
xppp22zbUgmK7YpA0TRUXQd1ChswZ4KBhqPp+aRa/XRHbm6cSoZCQd7OzJyF
goSDzBWhUqlAj4gXuXtnLpInMmk31jCfj9nQuoXjvMJQqFRQFtUVWwoF06P5
Ur42d9jaE8k0jUElKBrQCzvbojrCTAsTC+CwSyTiGWauU5vfaUIJ0KCuo2jY
1ldFg5IXe5BmaGxfBI3GSmUMtbV0hureL50mStXsVHWEDkBm621t/MGfbyvt
N4eddVPmdqhxUuu0UFjjqVDYJrNOo4cIJCs7bCgjHtmHtgqFregIFPMLQ6GC
gVzle5xsJqqCQZVaS7QKBYk66k3jgkLxues/Is9hyrYaFFhOIjvyNYUiFrDY
CrlaTjvfFEseBIodikDRUCkpVyjIUbT5rcPEwVhTqyOylcEBq8vMBd0hSMUj
v5oVhWLXyGTBQCQYUShsSlAtGBkExY41Q2GLWnZGj3jO5lF26s1mLui3NRea
iVP89KajqQoah4/+TOaRhxl/o3rYafRQs99qAcagrLIQGvVDGU+skMY3Khi2
LlHNXGhrGgl2kzEDWEpAWBSxnAMGMn1GZ04PrR+xPanqUknyCDPpfxEoFtQM
BRuRa97eZm6rI2F1hFoaqlzNXBx77nXynLseWpRBQWDOZIA3ERkUNr9RKCjd
cA49VB2JBezWpSoUg5LAnQpD0Waa7fMdANpDgw+rpiNqLg5belOZjqx5YbS4
VZ8SNxqjSPBwxJiLkt0ijQsDVXTElsHbIi61JUd2lu3tnEej9JbK3HvqH3HR
Ff9lSAG0LslRpGIB+mD9aUp3fpx/Tr4Co3UpjU5pnmo0cgFiJHyKmEdPSixY
lYEqnteWyK270aJSq3GRukGU2NiFccQqvnM+tgGAgNYaQCPEyc/u2Ti+mqap
0SlVYEpVGVst9zF9FtAqeqTL/Jakb/eIvPVHZiltCIeGU0G3Nlk7qhQ9OzUn
6O1SDb1s+wReTmrQk2qEvJ21xczXkfvY1mRyCF2ybqeCdCWH7phgrBNY2SKN
wqbdjLngV5GjjEwbDZhVkzsydc28FDk7h9dmok+1tS2VfLvYLbuRSfYq1/Ae
1fAq+IpK2lLF5dupvQ5jP1RrdIsFLdeEUky+YpPOUaTMe0MvQdFRK2/MRI6M
mfZPCxzxIVMWdJEqcLbzRoGz0xMKnO2gqAjcooomTt+B61y2e0dF9JpN7Mh+
lFbysBm6S5KdHtDu9RS9VsmIg2+rVKnJNFYn030IUWbvCKWZ3dk9EjqoxsZC
h5iHsK2zLSYOxvdn8O1WSWMFMgtf+u+K9q65RvmjCJ6foxocfadKanqzG42b
1NJFzJ0qWNyOYILShYIVq+LYmryCRdylb10SsHbPg6VKKrsNiStdmaxeU1lJ
m96FmJHM2hkFKnSafMYSV0WIqR4mLSxCVDiodFiENDCxDsDuCdFmvLr2kldE
aHHh8KupRnmxU6i2Cs5SFxuJ+mBcnnPVN0/IoCALw8fZSMLmJ/3mOm1BUCgI
+aDFRhKFoNijMBSNNUoFoYJu5FA5W6uX2WSkwmdsmd22da5FERttoUDKaHOo
FlTZtVUVodizZiiKSgU2Txe6qVQQAaivVqnwufsgBaEHh/zEKghFL4VRobB+
vsPUm7XjzkKhawoqQrGkMBQN/wCpiFU/tbLj/1+mICiDV4oMCttYoFDYel9H
lWAxBoVdVyhQvKdmKIpKBX/nJzJsAp9XECo7qiDUvqmBWwWhEAw8LLNTKOz0
gCqIzVpbI/U+m7Xq4kOBYq/CUNTXKBX8rSvZVSr4W2fNOnIK4iGJKohC4YMT
OcfUQr+5DtdtfayN5xQKu6rYTg/oBKVAsXfNUNh5o1qlgqZEdYgxBVGpYPSp
XdgKF2YTB8uSTJtNcS1zUzFn2mocOwUFdsWy2buuIhQo9qkZiliGHpMKO1MS
c6Z5BfnlL6ZnUBBhEWlZqbClT4XCziZas6mJb7Uw1ba/1ghFXY1SETYUKIMC
4VV2OkLK6CFw77y2nnMTsuJFost2idzp8rSVrpj5tO0OCok2PFnzGQtG7fJ7
gWTfmiEpKh22fhNzqrHmo8ac8rgVpf0YTMlCPiF2t+GHTr7GTIp1NJwrvaQk
Hn4MQmppYaQSUSSVnWhrbLXQnEkO6YH3PNQFWCJtRxmAmtu88YPG0E3SkBUq
Qvi+W0TD+qoYG1uAUGPDPKluJ1IxEdwvD1JAJK11LfepM2jV+6NUbuS7EUPg
GASuqoOyeaCdW9YqsXa1ZR1H4UM/reKo6c89O+6cpEWLxqxoYWP/aroZM1d2
VxAFkyoikR+OV8FkBze6r7LQZv9BYLaVwNSk2tYnpBwrwJb2x1EkYwXqmCVj
vhcDa5G0AaBaq6wvKev16rLlsSyDQpUrdZuEUo8t6xNc2QDJ7kGhgNrM20YF
OvVlY0UApaxfks76dw9oBSFlT7r86mI7a1rNXw62iI1p/5IRUvqX6oyyU218
4ncbZWUghBBhtDOqMSxjcfe7xvLAasKp2m2rPyWMq2EZZtbK5viZjGd7zaHC
MJu9Kpax8pliaauPGpfQpEL57L8Vy4PyWNYlkbLtI6vqgvW0W3hXs5723eqt
xq/lW0lJ+nTxbyyQ0757bXn5yuojM+Gzmc5CU+cmvGc6XwGz5dpaAdOdEzPA
Di7si7WfXt6Unb6lMmM7VgyydTFdqMPGMZH2FhYRwyk872wSG4ogtOPHKq3K
ua0HVePcLr4Qzg8pzHmtYYctm8Ym1JRtWxGslW1b8KiWxKDxsmBk/5DPHVoz
28RzmkUr27ZtJRYlKNu6oN6zH+1y26lGtnW3EBud2/mc5kiXm7B9WGG27apz
3Yy08gRXvZ2kSbRJ3bY6epm3LbNzuveRvKQa57ZIXi3atlsIVOT88Jo5t83X
sbqFNWzsooHH1QH3Bk3uadsa7TzUAsN26BYuq3xrn1KHeYY2VivbdoFmRbbf
W5htuxgYp2lXU8fqmbZvT1cCeccnDpB+i9ZIMLHjEDUKrqUnybJNrMiW9LEq
d0W2l9XMdiWrptvkxKpUyiKTQKGdN2mJ+H0dbbs4Wdm267bba2R7UGnmiJrZ
jlm1WO4DibqBg7J96ddOl3vSaKTnkIi9hp9eNtq2d7daGG6butWYx/pJ7Av+
ZH7vyMJst1SxarGSi01UdGSJmLU8q2zrGhvaaJRt245ZLcqzk6TVcuNBbQ21
sx0zabbj3yYRRCOlEkqzLavIRzeFY+5CYaDKwDYoALCDCXbRazujFas4IWG4
7aGyWvsCd4HhqMIwNFcxcbZhPV9wo4+qPshAbL2WhrHX3LxCHQDh/UEjPykY
zK8SxdoNp6oFNbFYzi7OEiSOrhmJmNXjUQTvpbb6FrFI++21p+e8v4zz+emi
q/pQJWKxdUgmcf6tEVs4v4rDj3m+2DyO7T5UTgbN4xwTBaNUwmiuYgFjpUYC
+Yd6J5r6RKnriaqPtqXo6upjz70uCwcQIkplsK4rZJm9QRpYwW8BQHIonVWL
eGwLigWgLKcRvRhqTVWY9C7phW7lXS0vxlC/0NKjDGdLy8rqDDOTLOTVdM/O
8uryaUIDYMjLQR6GWARUCIb3FVaKphpDAbLZ707azUhES1bfs2WCl3/Z5da+
1EcI3B4xD9uZ3YB0o76hkMhHB4WQWFEzEgQc+k4nu2hCO7RSgWiW2QLcX6w4
Up+LFlZedV42kcNv0AMA0O0GmMTR3bf6jQHBh/xDYDi2Zhh49bW+t6m9ir+w
03ZNuWjhwZ9vm7Et72rrWlLGNi1V+S4hbTX9h7B9XGG2G6t0XlM2C+9mjAZJ
+UY8Jm47Im5gbpWQWHtE6XdZZ7bfXzPb8uZ5HwIPFSRBEn6SKp6yrS2vNNDZ
nUa0vjHHJECB9az/MMY2xv9dsX18zWwTEOk7V6oVtGzHQn4DzlDQUs7tnOzW
JgjC71vOtdcrP+ChcSE6J9tsInmJlLWy84HCnDcY8HTZcLVZC1sO1olF3UOS
glZXJAfSnZgw9iT6tuFUjTsZb7WJMvuKOJvxljUonFAz27HCLQKguzSrm0Pu
deckndrSGXgSfd11yRa0Zkd8mmU7Pz9IMqA6p2zbbf0rZrwn1sy2XaLZbhDW
WnKXUT3KOna0yXnCIqOMbevKZ0U29huIGHNlOzaTRze5vkJDI327HkAy3pMK
s11fYx3P1qvzuzbTetITztnWE92Xjja1PNvWqsU6Xas1JNl+C2H75JrZtqtQ
bYJDLGeFXN5OFfyQRixYNZ0a641ELFsYttUu2BV2+UbFGNt2sWFFtk+pmW27
LCGW1NgQVjcBU7a1dskslrJNtILPguHNI2zHltJ1GInKNxrF2Lb1DWH71MJs
1xmrqO/Ns3vBKEkq5BqvWrZ1PSVbk2srw5Zdi2FWGN4s57p5VfRwY/Hz1Szb
lmqzeN0LQ9m2q2yF7dNqZptoIL+ZIXkcJqxSfKps06SgJq3XWGgahyzb5OtE
MfhtZTtWzQJa3XfYzsjowkll2+7x21KZ7VK+rsziEnTJbiw8izWZ1uUMGcuH
+yLMzjDemqSU+rTdFCY/D2O7pCyzuvFCxX7bUwrn5nVVwrPBixWabX1aPtaI
qXHaqnsvGU+Y3USODfI3Yo2t9oG6lexqvWE1cf3BwpKdiCHTifoqu0o0iyXH
ySjDar6ov2SrF70lphwLq9PCGLOWimzECrRYbW/C2Dm8c125PaNWbkPdIeN2
cEG62VZm5WOtlhphO9G0scmqqd8TiCm3oMY5Xhat3OqbXYbi1i72FW4/VCu3
oRZdtn+Kvs5LxxYbGjqi5GON1bCI/m5kas4kGV5ns73DNNrm7cO1ju2g9OrM
WrkNDrlsg+9yi9VkQy9rqZQBG3pMDlpLNoXWEo15Y5Xn1QZdsY7OQqnkh2vl
NZRLynaS1Z70lNfGzBVZ8zTS2BzNnyYGRvG6BByMtNdYvTQWVL9rRj9SC6Ox
pNFOkyqjmjRaszTSKCAmiFmjDQKjLADC9fAbb47spfkRRVffFaNn1cJoLLgg
htHtZnSVJr5x3+MvVGuke+zaTRjGm/QIiaXmqzuKUhwKr1HIGNTNfGpm8KO1
MBjba8FGT8ogUN/z0DbCoDdAuru0nd9OXy3SKNJKoZvB1VqmMsqMD5pvRRZG
9S0W1Rgd1L1zdi2MxvpcSbtY3w0dutvI6ZfumEVJur04IQX1C/gbHUQVHaWP
Az32w2dHXHdutjqpUWE1BgdVcz5WC4Ohp69iuVpHkledPv1sp3vmuQkYoPUj
UcKIwCMjC9/YJK+DYwyP+cWuMbtjN4eo2Kzw8Vp4xD3lebR73Gn4++WfHiQ/
ZZfwcblBxN4MCwziUdDP8CacsVUYtFsoxdYEVCzSrCzMoG7cG5t1Ov7fL5XX
K9/+gynJBKNMKBm7pvUG5SOSRTRxFfhMArz1h2ArP8Fma08VizCfqJktCjD6
ajhli5elv/FWg9v9sBOSDULZRSMzojZvSzoDZ/gGAjuUDoFkIjn2ZpHYRk/V
1sANKjh8Ms/ZQMZL1sCc9ZQWXWVsd+/W8otuj7DyjrPl2n97YHsM5qSAAzkX
zpB8zA9rs+DQLFEPpwgIyElppCfoxcyOHwIPRtrWlO3rNCvicU4cj7YyPISB
Gpen2zcmaRuAYvLM2nHupde63Z7nfIj2mfQVVV2ixEQCJHF8iHORE8Bgjpm/
OY+QcB2BxFb737KBSQ5iuORnGWL1OLuERXD5VFFcqm1TUtpoI7YDc2eIo675
8TL58WX3H6cxVXgXYbOoi750D3aZbtf3D+q7q3QXfB+IlpV483MM8J2vTA3i
WzS/sSDfpebq7Lsh5cFm9h0hPcBrIQ/IhT+jIfReJhRmvP3psj4exMoaABX4
qgx+Oj+w8hYU2U/bM7H6kZoGuBqj1nW1awnDD/X1L0yW68+/72RhNuxBmrwn
cMuEBOEiu+Daql6+RQBu9SW+Fbk9L8+tvBKHvZ+1XX75kCqeDMmqLV60hb6a
Cd74j/TXvuY/N/nPgGf7YD/OFCyn7fTZJUZpGUe7FxUxY74xRveTt9ySZ5dx
e35l415aafFujbuttraGUV182zn+ypRBGN39qUT+nvvgMXY2UdqsFgeOZW9r
nzPm9/bMR8m60q4qx58p7KiVDTsz0hrs0DxveWYGGXjl6oT7uLU9PqO7Mr12
99knDFpStyiwQxKQn0itxE7eO9PazHs4M3YuqJkdO5vZGtzLUh9O/eyd9dzr
L/ore7KWpj/3tculP+oel8Q2d9rZJKQEzLxLrrsKR7FORrtbjnD02Zo5spFU
a3g8roFr//rRJNsF+/2XXez+1NjmSq1K5ZsuLcjZEx90ZuzQkZhnJ2ZPBrHz
uZrZ2Wzp3mLmUqtQylLU3t+z4zZK/RNTJsulN0+amMS2QlKOcIKaZypHmB9C
65o5urAwRx2RKK81yP2Nj+4v117wg9Pkxdl3LVwgL4Z/YO4cd3xa6HQLjzjM
fWvyYttCtMC4cBSJN1FrropSYVjt0u2hOGp5dxzZufGWXE7yk99vSYvsoKnE
nXKlVrRFScft6eRvXluqkn5RzaTb8FJJv/e384T0D64+PyPddjgo6rZuaknP
7xWqcYUlfVBN/OKaSbdrHJXMj3iHwrW3/XrXjB2zSXmyo8l38+/uqUR6HvVB
i2c/XzPpNoxV0r2giFJ7wclIN1XuZAcz24T22l1gY6THwvRB5bBLaibdlmzr
AgMfTPPx7HPxfSfKb7/88CGZCbaN49uHJE4nVYhnvTuvxk1sWnhQSejSGrnp
sEGmcPFST7d46Vfb29wFZ54m57Gyz78ygNVtCxTa10Ftl4uymTPprZETfUNR
xskXopyUpjxT+hvK6Pf2UrutYUPTIj8YunrE9utsa7JheVWeD5eVbMajCNm6
di6rV12SZW3FBqDBihNUZ63SLYn7y6tdYJ9NLloTtE2QIH2LDsrkczb7dhBM
g0+WyhqYYriXFdwur1GCGqwqu3vnz8sCo0v65HJvkMrW5ukC7DmmTAX89u1c
Wi4k+axGPfKP1GTUX1Ej9a3Whpb53Z/suWXmvWLr+GabcpQUedOqrn2db/5t
H5jS/GY6gzT4ynVyYPXheNeTC4T6k2+5sOwtLQAN3bNM8sSAkBjrO70J7ZhZ
sHsag1LeC2BKy0i/ap3ChrqIA4u9EmDzADxqjGdAdzzwSj0Jli72ze9lH3ME
GfVX/0Ootz6sx8iCrnqdaSJQBs2+Txg3TY5oSUe5Yttylfmwf6kxpm6yMbVE
nMFX9UXM5KbG0GDd6QX0rqrf6IROgVmi85vtDdpA64vrRLQWAL1LUqJtd94m
hmiqwci4D9L6jXUEfaxjRxWiBy2NXlUj0Y1ZMqYRgU/EkoFINDw1NFPqy6ug
mPlSkvx+YxYpa9jJ8hjZg4z6l2oku0HIPvTaSzXJGmaqofpG9I0Cxvpaa9IN
//2AkXqtwdRE7DU1E4tbWHXvXpo/DTdw6R5wk41AICSYfO+NlC/d0t5OzVNn
rCTFGbHX1pzOnnr+1u7Pr3SKYxkZEV2d5yBAx7Fgsv33w82lrPGylBKp5Def
UseSNUH/a82U/uAn4zIPPiriAscFkYVSqGe0KbwyuTnc2DQ1x7EXX1aM/66r
2Rxf/8Ol7s236tzNP5qRjA51AuSVTQiwAV6zxhhslWIP6MiILRuK2LIX5NRO
7JN/nOCJ9cP54cOTseHxqDsWlqmrkUa5IpTq7BUGrLMKpfoyuYf22Sil9Poh
wur2oFLfeGix0P2TJ6exkGN9k46hUt59hSUpTRIBsbiVDJP8Bro8qSox2jVF
LKek0gwSI1VftN2aCWyhULo92Nqnn1/fvfV2vbvm3gPU7ibrhxkCTD6ua8IW
KyReRoi9FUsXnbWIXSASJSAiqpDudi84yK+3E6NNdEFsZF+oqE1RN543c9BL
3DJmvlJYQtqCt7vl4V3k/KM/3VgmtUOJfEKQbKI05JUGBW9965CcJC2mkiIw
BVQnx2ZhF55gnQHC8xE1EXuMNYrCOeIPb1ryvK2+dFblN2XdUDNva1/sdu/8
cT1Jcl7vaHL/euJWOMNJgRgMNxaZj2e5gcQnBKbaWTPeZBRIl8+iBr0Cuerr
vb5amGhtfvvef+6Qnj+ptMj1ld6WLARcnBN4++o4ShGE/vb1KGqhM5K+VjNJ
L7zcpzgmmnctP2JmVv1tDCSZ8kSyo6kOQhL+2U616vxXRTJvLExmS7jt/U/M
kvPPfXpERuYfpw2oSPsRT4mN1B+S+UEmdLqOqqCXSjsdqnMcrSY+Vl8iFP9b
YYqbQ8b/xXsOdq++3ioAX+PD/Mf23NA9O3OEe3LBBHe9T+NCzqWEkzDaTcQ8
E8n2xmSgpARtXcZUE1rYl2PafZeE6q/XSHUJZy+pXsnSc6zC00WJmqQoxna5
ttaYuWKu8YfBIJSRnn9Lmk1IhPRvFCa9yTjvAHii7NgVdnUB6XvnzytD+okp
k5NtI1F9dy3kfrNmcv/zdxvLee8mM3Lt/jdKbqSSn6GLKdNovjviGCuS+63C
5DYadHGM3kFmvbx23mt74wVwkqGxsMsYVPVwbTmzkCnZTTVTZUG06/l0tdm8
HFB0RCtQuvsFjqnNAKXZmpD074VJ8oN4Y7qyMPvccP/egpmP1LISoN27bTtj
R/E2dH51G3PPOdayKHXU+xlGEmCh7ttx6jrLqPOfqe7xx9e4kSNF3vGWq8+T
DVGycMePbtnLp3TLnG3CqGotMJjObiOvauwtkUxKZLJ2c5zIxjyRd7sddki0
+PpqX2sWQPpB7ogoyByTeGEdiQ57TLFJ6/Z5wrIXaN1SOZBNh1QhyzzO754d
ncGl7sP20s02ngbLxwD6Ae8xnkYrMRWpujkjojpc17hlyzLCXtynR057852Z
WeQbXEj/tzTaibRx3tu4XmMz1JkoYWx2VkbYd+Pj2J4nrMetXXuFW7Ei83ag
hmH2HjETbzt5s3kgTt0cQubthaJGAIkLwXTobnFM2rGRbUbc6uJ62iCSr8Ll
EeuNjOSMQBOGg0gMAjygvTnb4UEqe2tt2bvqbq2VpmfXjlCgeo250Gnm6UYZ
1cSed+O+faZESTRm9961vThC023FaSqFq0hVv+EcDwlBG+fEHbvmLaxeyjhq
zdS+ea+MoO/VQhCxlErSQISgDYPPJHiVypgniBoMpYM+44kwcV/51GYZVdpS
+93dJiXy3rPbi1CVNvHU7+XcTXLqzl/MS4ZHqJqUGzfcppd/y4DmGkqQVg1J
/oSgO2ogaIJzT7uHnpCcLxlhnoIg0YExIcCEcJOxkX7gNYFpwFha3RGp3Ths
LV0JVXfWQFXDm2++KS3khIIN4SnGYya9oW6AyKOK+BsfXYwJ2TdChumCWCSf
SS9/q2HGoKgrao8EGELvXcWFrdVuCSwfaMUtGR+aaQX+Br/kCQwVuRRdhBCC
UQWypOGBRw2HgtFtj4QfQvD3ixPcaBdjp+ZkZilXgnAFui/UOjCsEAbhFI7Y
KKE3zEYT1nEOGWbZGIgDMSIywogIBocAqiMXaRKiCAd318KBWUUvH0911mp0
fbq0Qp7dH4oAUIDvQqOAGWH24UA6Xd4qTGgRAMXDuXApPyH9gplRgRla0lV+
lBltUiCUEWbuqYUZ1mqZZaXu14smlaWuyozVUITaa10iLUt+GKCYIdAPTDKH
4bnwCUJ6JZpLtMhdxhjTS4M9Dl25QTzKuPlBLdoAN7TKhZaaWEqbjA+CBTXg
qx8kf0IuEcD8dhovxZ5zeHOh7N48ZWkPpb7BstQtSv9kQ9hludQfm9mcqKfV
la/hfdGLTOFC0wElzLY6CmH3xQlrHkSYvmqT7uTmSsTo4mO7+fguJovBdhH/
KzlYC13CL+T8ME5O+UKC4DzTXtPwNkZpNC11hishdmuunU0iAi4ei4wQLYXd
tnhy0p6J0uCO7XJCGvRceC+fc1XaenWrBbuqaoHBhvOUwjpzvolVMULS/Xls
+qwM5XqsQ+NtWUN5/VCkWbR2CIbdoIXydRqzqO9oFeoeyFPXr4JUqSfaA1Zn
RnJIKhsiAG5vQkXAAsAuw02ZeXgwLlxNSdmW8SVZ193OSzvIF6DOvhR1u4Ah
hpAILcSOXcZKaGIpBD5U2H41GhOo25VsE56GF6TEw9uxfQjWZUQcArz6pyP2
48JP033N7C4hW4enEShgeGDGy0eXgYEBuXvJlPRpP6n5aSgAzg0kZ5swgwop
sa03ed3Gr7HOMZPGnxZ+mi5CY1sN3VV1SxOCQYFPznwiPliq5FEPF36UzurY
HYVmBsZ4FDBiET1jPWZ8NWeVpz1S89MYd+JeSu8zwtMYRISUp3mY9WlkDeQz
3nV5J+uf9rPCT2uNPG2TXPyL+Hi70WtEBF0mR5GnPVr4aW2Rp001yoZPB00/
WH1m3FRE5Gn/Wfhp7eZpoEZVa0qIDDBECCRxEdEE8UmfESnVb3nkzws/ssPo
AI+kzDcxMIjoACfYecnsN4NHhPTlBRO8D/FP+0Xhp6VGvUFugZ0PnU7jjIqD
MnLrYRzIpXR37jE5feBj0QeW5lG7w2PQVtQKr+cfMzLEvtgt7Dhwklah43dd
udUwMxeASSNX68zQLDQXmsp3kwwg/HF3ECRE9k9N04dmMS7oIV+xoBtrSV2G
3YSH5SAKJkCG9VeFge4P614RRsYKQjDfIIFOIllp1bdVHC8EYspBn2uhCp3l
90jaiJw39rFUis2vC5M0LJAENlgbmENRgXrP926G9HnkCMybRKU4D+nYe4bE
gzPaLDxRFRMqflOYijGGEe7Kuxga5JjqwK/CS0TGhGHQ4Ih1Lt42ytOeKPy0
+UakgI1OgC5u8WThW8yLy4Pc5anCd9nO1EwBlvGTWzxd+BZzAyFoIwLLJis+
25a7/Ffhu2xjCAER3HY3t3im8C22DoQgSMgohPikWe7yu8J32cqYawaYgLyH
W/yvwreYFQjRXkxMsBdJucvvC99lC8MOfUS8BMyH4nKX5wrfZXNTe2aAv71o
YtLLLdYUvsVmOXaoEntc5S5/GMLizjBpX2DAeyd9/OCafPnjN0/Pdbz88svZ
uTeL0C3HmYU5zJ2bEzm3dcHriv624d0SNxA517oO51rW4bfrQsv/i7+NYfWu
B/IfPRj/vN//rPv9U1j+eb//A8LiOLElh7R2lSTr/W8kbEzy\
\>"]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"valBRbM", "=", 
   RowBox[{"Table", "[", 
    RowBox[{",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb", ",", "dRb"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxi", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", "valBRb", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{3.6148474512777095`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "Rb", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Rb", "=", 
     RowBox[{"minRb", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}], "*", "dRb"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"sol3", "[", "B_", "]"}], ":=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], 
            RowBox[{
             RowBox[{"y3", "''"}], "[", "x", "]"}]}], "+", 
           RowBox[{
            RowBox[{"intertVlocal", "[", "x", "]"}], " ", 
            RowBox[{"y3", "[", "x", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"interVnl", "[", 
             RowBox[{"x", ",", "B", ",", "Rb"}], "]"}], 
            RowBox[{"interprod", "[", 
             RowBox[{"Rb", ",", "B"}], "]"}]}]}], "\[Equal]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "0.398"}], "+", 
             RowBox[{"0.5", "/", "27.211"}]}], ")"}], " ", 
           RowBox[{"y3", "[", "x", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y3", "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{"f3z", "[", "0.01", "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y3", "'"}], "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"f3z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y3", 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"root3", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"y3", "[", "10", "]"}], " ", "/.", " ", 
        RowBox[{"sol3", "[", "B", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"interminBRb", "[", "Rb", "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"valBRbM", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", 
       RowBox[{"B", "/.", "root3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.61484745626825*^9, 3.614847482406783*^9}, {
  3.6170010780148506`*^9, 3.617001083398675*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`Rb, StandardForm],
  ImageSizeCache->{14., {0., 8.}}]], "Output",
 CellChangeTimes->{3.6148474865767403`*^9, 3.6170055208687153`*^9, 
  3.618146387151745*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"valBRbm", "=", 
   RowBox[{"Table", "[", 
    RowBox[{",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb", ",", "dRb"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxi", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", "valBRb", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.6148474512777095`*^9, {3.6148475081680484`*^9, 3.6148475082561116`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dynamic", "[", "Rb", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Rb", "=", 
     RowBox[{"minRb", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}], "*", "dRb"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"sol3", "[", "B_", "]"}], ":=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], 
            RowBox[{
             RowBox[{"y3", "''"}], "[", "x", "]"}]}], "+", 
           RowBox[{
            RowBox[{"intertVlocal", "[", "x", "]"}], " ", 
            RowBox[{"y3", "[", "x", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"interVnl", "[", 
             RowBox[{"x", ",", "B", ",", "Rb"}], "]"}], 
            RowBox[{"interprod", "[", 
             RowBox[{"Rb", ",", "B"}], "]"}]}]}], "\[Equal]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "0.398"}], "-", 
             RowBox[{"0.5", "/", "27.211"}]}], ")"}], " ", 
           RowBox[{"y3", "[", "x", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y3", "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{"f3z", "[", "0.01", "]"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y3", "'"}], "[", "0.01", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"f3z", "'"}], "[", "0.01", "]"}]}]}], "}"}], ",", "y3", 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"root3", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"y3", "[", "10", "]"}], " ", "/.", " ", 
        RowBox[{"sol3", "[", "B", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"interminBRb", "[", "Rb", "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"valBRbm", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", 
       RowBox[{"B", "/.", "root3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "maxi"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.61484745626825*^9, 3.6148475353933496`*^9}, {
  3.617001088953617*^9, 3.617001099322978*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`Rb, StandardForm],
  ImageSizeCache->{14., {0., 8.}}]], "Output",
 CellChangeTimes->{3.614847918975322*^9, 3.617005971065318*^9, 
  3.61814699266015*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListContourPlot", "[", 
    RowBox[{"countour2", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Rb", "/.", "fit"}], ",", 
       RowBox[{"B", "/.", "fit"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"valBRbM", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Orange", ",", 
        RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"valBRbm", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Yellow", ",", 
        RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"valBRb", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Red", "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fB", "[", "Rb", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Rb", ",", "minRb", ",", "maxRb"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Rb\>\"", ",", "\"\<B\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6148476285554047`*^9, 3.614847628888641*^9}, {
  3.614849948750663*^9, 3.6148499587077227`*^9}, {3.6181389801962953`*^9, 
  3.6181390037764177`*^9}, {3.6181429306752596`*^9, 3.6181429345036764`*^9}, {
  3.6181475482941017`*^9, 3.618147548690384*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxl23k8VF/cB3BKJZRlxswYY8w+qERpoXROyhJKSYtCSKiISLstSotKUSmF
tAot0iKFJK0KFaHSorINM2MtyTP9nsc9j8M/Xu/XOffOvXdm7pxz7ufL9gxw
XDNMTk4ue4Sc3L//p07++2sEcv/9seBgszFzMHMx8zDzMQswCzHrYdbHbABb
Ft1l7m5GxzvYbMwczFzMPMx8zALMQsx6mPUxG8BZSlXnAs2b/s9MzCzMbMwc
zFzMPMx8zALMQsx6mPUxG8C4ok49l8MDZmBmYmZhZmPmYOZi5mHmYxZgFmLW
w6yP2QB+3U6+av0Fnc9gMzGzMLMxczBzMfMw8zELMAsx62HWx2wATSb/+2sm
zmewmZhZmNmYOZi5mHmY+ZgFmIWY9TDrYzaAe5r/+wL9n+mYGZiZmFmY2Zg5
mLmYeZj5mAWYhZj1MOtjNoDvZd8upSp0foPNwMzEzMLMxszBzMXMw8zHLMAs
xKyHWR+zAdR3OSz7xrUQ5zfYDMxMzCzMbMwczFzMPMx8zALMQsx6mPUxG8Ad
/75+2wdMw0zHzMDMxMzCzMbMwczFzMPMxyzALMSsh1kfswEsffnvD53vYNMx
MzAzMbMwszFzMHMx8zDzMQswCzHrYdbHbAB1d//7woqI8x1sOmYGZiZmFmY2
Zg5mLmYeZj5mAWYhZj3M+pgN4Ebzfz/4A6ZgpmGmY2ZgZmJmYWZj5mDmYuZh
5mMWYBZi1sOsDx/9Gw4UofMdbBpmOmYGZiZmFmY2Zg5mLmYeZj5mAWYhZj3M
+lDz39eZ3Eqc72DTMNMxMzAzMbMwszFzMHMx8zDzMQswCzHrYdaHPt7//tD5
DjYNMx0zAzMTMwszGzMHMxczDzMfswCzELMezGX++wKj8xtsGmY6ZgZmJmYW
ZjZmDmYuZh5mPmYBZiFmPaj8b/qh1Eac32DTMNMxMzAzMbMwszFzMHMx8zDz
MQswCzHrwf+GEy4DJmOmYKZhpmNmYGZiZmFmY+Zg5mLmYeZjFmAWwv++jlfR
+Q02BTMNMx0zAzMTMwszGzMHMxczDzMfswCzEP7vfzFxfoNNwUzDTMfMwMzE
zMLMxszBzMXMw8zHLMA8MB5G5zfYFMw0zHTMDMxMzCzMbMwczFzMPMx8zALo
+G/2tQidz2BTMNMw0zEzMDMxszCzMXMwczHzMPMxD4zn0fkMNgUzDTMdMwMz
EzMLMxszBzMXMw8zH7MAnv83fTyHzmewKZhpmOmYGZiZmFmY2Zg5mLmYeZgH
5h8D1sBMxkzBTMNMx8zAzMTMwszGzMHMxczDzIdd/4aPneh8BpuMmYKZhpmO
mYGZiZmFmY2Zg5mLeWC+JCGOf7DJmCmYaZjpmBmYmZhZmNmYOZi5mHnQ5t/P
jTU6/sEmY6ZgpmGmY2ZgZmJmYWZj5mDmYh6Yr6HjH2wyZgpmGmY6ZgZmJmYW
ZjZmDuaB5xfoeAebjJmCmYaZjpmBmYmZhZmNmYN5YL6IjnewyZgpmGmY6ZgZ
mJmYWZjZmDmYB563oOMdbDJmCmYaZjpmBmYmZhZmNuaB+amUOL7BJmOmYKZh
pmNmYGZiZmFmYx54/oOOb7DJmCmYaZjpmBmYmZhZmAfmu+h4BpuMmYKZhpmO
mYGZiZmFeeD5EjqewSZjpmCmYaZjZmBmYmZhZsP/hmt30fEMNhkzBTMNMx0z
AzMT88DzKvT6g03GTMFMw0zHzMDMxMyC/31clNqJ1x9sMmYKZhpmOmYG5oHn
W+j1BpuMmYKZhpmOmYF5YH6NXm+wyZgpmGmY6ZgZmJnwv+HBbvR6g03GTMFM
w0zHPDC/RvsfbDJmCmYaZjpmBvzv7apC+x9sMmYKZhpmOuaB+XMHsf/BJmOm
YKZhHpi/ov0NNhkzBTMN88D8Ee1vsMmYKZgH5m9o+8EmY6ZgHpgvoe0Hm4x5
YH6C+g82GTOFyGf0L7vK67XTheFuDWsdGhqBzw3SFVUyk8hDTBXVJ64ZxYRP
RhVNDBAN5CNQHsI0N0dudjcD9s47XqO2f2jeQKgoPjlBog1/ZGYPOxTfBHyt
uQFPv2sTz8OvP3zVTSNpw+PV9k2vOc1A+3pKjJ83nXi+zKnSv7JpBh3+Kb20
f7vt0OfLV3YnfY4I1YL8QmP7vvPNgKX67FvZdC3i+eahmMQ1S0pp8LX64pQr
rBZwu2z66XeTacTzQVVbP+sMDg02lyZdMzAb+nzwxDmdFz0HqdD/Q/mnzvgW
sNzN3QGsphLPnw6nzjL8MYxKPK8I83t2eHSxPpQ6FE8qGC4Cziq3hh27TCGe
38wverL0yk4K/D652mCt/9DnGX7O21O3hegT+0uNlz7f1atJrJcf/OXebSrU
h2dMkkb1GqHnQS9X90kPbhQBm4ULy21+axL7uy0fljT7kCac+9W6jnRABEQu
4IdHlj48dP/MsfBqETjI/5GYFoj2TykTfnbga8KObcKPgfKt4EdavX34DH2o
Pmn1Qj5sBbRRCc8obWRifTuv1K7Iu5AMj3rTjI7MHLqe//N9Qg31rR50+Dpn
9YkLrSAx98SbMSFkYv3YPffRVYtVZMiN/Gx/fnsrCPErOpxfiNbLR9nrhvfs
1IOka2n9zaPbQKmp9bA+eTKxPvvZsrs+TeZAE9cd95XR+uXOtQlGrK5W4DbV
yLd2Flqf1pwV6dYg1IOcBevbVxgNXd/9JHyyd/VNEmxSdY47vK4N7HV5k/v3
AoloL+pOfnvwFVov7fUS11f5kiCVqVVk/bwNtA7/tqvAgQTj2y5eyQ1uA06L
bz9feRv1vzi7aNjGILQeeYen1JjCJsH+pazq42Qx2FfYvCbtrwYczi6wzJG2
gcq7Shdj9VH/1NujJ17TEsLHVanXipSHrv+V+MdVH/uoAY8sUfG8OEcMNlSs
meqerUG0f/6zMLDmHlpfK9cXtR8/rQGbo++fXRYkBgd32Z26u04DMuYampSb
ioFT5adt54+j/otDZhzf5ILWsz7mj1sS5aYBrfdbml1LFYPDBacubRRqwHZt
xVILWfviRQfDPg1H/aGe+4gVwwTQVUHtUusOtJ7Uds+2ffsDMXa/EwPGFrkG
cy7yovIsvUvJfPhwvnmy9ysxoOfIW/U1qxPrIdLsgq/fRepwdPijpB95YjBS
sD07eS1a7ynM8VHrBnyY37/cJLgRrZ8cYuZlLOsVA/IwV53p99SJ9Ymo5OFn
owuRZ2ytzbn4hQeDFLVc+oUSEEx5IqcYq06sB4zgSHR+HlOHK+THzrPqE4O4
Lb53FMvR+sa3CGimE8aD0bu881Y5ScCx1DDnxR7qxHx8n9sB92Eb1OEBvb4d
I4EEpBSpb6NOResL/FFO2nEsHlyvE33FZCmav5+eHbh5e4QEiF5ETxthpk7M
lznHnjx9ZYM84/5MSecDLjQ0iqpemCkBxXyaxxiKOjFfjfWcZ2kjUIfTso/n
q0ZKwDhBRaLrSTTfftXirMlx4cIczYel36ok4H6gxib3TjVi/lhafvXUhpHq
sMnI7OkqmW0XJLjoy6P578muJGm2bH4ZWqx4pu7/zTcNl7x9O3m4FFhXndXu
qVIj5nvRP3UKLRuRL5sGMr6f5EC5kIJhsw2lYO+zi65vHqgR86+s69+WVL5S
g4VqofbfFaRg8TLpF28PNF+c9N2zco8ZB44/cN/yuyGarxXfDuhUcpaC7fHK
Ct0X1Yj5k+akoJmGd5BveFkH/q1hwzmGyc/ioqSg+EGJcEO8GjG/mf5W2ckj
TQ0WFGsUXbSSApdspUf+JWj+lbc6qeH0Zjas1/VWKc+SgtUbh3+3jVIj5iPx
2/iB++PU4MGQVV/X7ZUCR49xv1aPQ/MlSnVgtIDOhiYfemMWJKH5S/OJksvP
qqRg7LH5Fpc2qxHzi9AQ24MvI5H94pdqvb3FghschpdtkW8HgpTKZRf91Yj5
wLnO/a5Osu0Zrudo+c+lQP33sB+1sWh+Uu+7jjnbiQWTzJ4HFY4aGM+xYLVq
eG2VQTvoyLV7GuKrRoz3lWPrrVZsQJYuiO+vk+pCn0MTBN8Xt4OuAyVpDj5q
xHh9run1X7x1avBexizlb8rtYO2ZwPa1zbpEe5yqvAmdrQtfv1OpPbmzHfge
rivdKes/MP5W7Yh7qyKzIGz71TcL2sH4KoXe9Ito/C8yCuJcXC2bz4fHLmUF
o/F69n7dW63n24HDvU7h8iA1Yrw9QsPEM2ID8ozQqBHcFB3Y1diXUfOyHYSR
6Kccw9WI8TN31JlVSlvV4JXfMUFLjrSDqxYuDYt9dIj2L6Dm6NZyBry+QHmP
Y0c78L8ctKnniBoxPg54cLzVOUYNOr3s7zj5ph18271rX68BGo/rfUwuPq7F
gG6TzRR6PqDxdGj9Misb7Q7wbdmtuJ4rav/3e9EBzBK6muafQe6sZk84O1Mb
siQpPldmd4Cu3OviCS/UiPGv8S9SnUKeGnwY9MlHSusAJ9ecE+k/ReNr7rXJ
zluD6LA7qH9/oAUaL1+QL3zl6dMB/JtTfma2qxHjYeffcpL2L8iczeyKhcla
0MTz1uIlsR1gW875te/46sT41yZvUpIiWXY/krzKtVjVAf5OXiMyd9Yi2sPq
pJbMW7L53yd1rR8paLx85FZvluv1DhCQNkXef7U6MT526JY/U7sYOX5ab4DL
ZyoxHs56/3OJ3AV1GCMQvlRJ7wC+yRTFz/mo3ezYtoPf71EgYLZef3YZ5ZXV
FU5N3ZM3NE99Oin9g+U4lL9uXxwcEnWVC/fuaDWzzR+al87V3DhZZxfKJ/8d
2fE60YsFE6a113hSUZ51oD3D6M6kDAcO/Oi0rHa+PMqz+vx69xZmNIKzTt+8
3z0VwoyIR86J7xtB05jQn9wZKO/8/nYC5aYzytv2bQPV2mNQfrjM6LXeD39d
wi/EzuGxy9hwnMWwfpELytPefVNgsjEa5WcdzSTau51RfvYF3HV31DyUn+05
/uJb70qUn23wCp6lMLYJZHlV3Z+UgPLM6byFtcIXKD/7VmHZcAsDffjw+4ck
y61NYKxXrcQ+DuWX89Zt2UwzY0L90ohnE1OG5psrklhNZYdZ8OXjM+tvl6Hr
qXMwPFttSxMY5WNc0WyH8swx/l9d51Vx4OTlq87/eoqu7yF2LuehbRPgbwkN
9qrkwT3Oji39i5vArMth5hG5fPhYz8J/zMYmkASPKN12Q3nnvXGzOhPzBPA8
I+PJftn1iLAavdCwRg/a6tqvGbEd5YNnhjbu6k5HeeLWmx7DjxxoAvezNryr
UUZ5W01bba/zk1Ge2GrS/LlLJ+kQ7ihedf7rI13Cy+sP74x9wIZc6cYNWQKU
P/UuUJtqeKoJ1Kcrn5j4SQAVYuEsr1dNYLPt5gcjZ6A887iRtU4XFgghfbnt
Lv23TSA7s8rmrx7Kx9ZN8duwaII+NLxuI93Kbgb12bmaLzcw4Jacqp6i7iag
+z7PLzRYlzh+tgnJ1sOUARcl3vh6ympo/ln5qXkJKU023zTNYOV7DM1De3xx
4K79zoIuQQsF67ahvKzBkaITmu4oL7vaPgyc2IzysmmjEj3rlJqBfkN984gw
lG+eNG+Oh2GiEOqRKIE02fyTr5B3NngKyscG91w+G01H52uYUP4sxUObsMn5
NSn1iTpQWuE+MmJ+MyjzU295nYXyzNtutursNGNBtdlJekvOojzwXr8rgXZB
zaDarxm8NUN5Zovq3oDIMg4cVlvme/gOygc7RaXtO+PVDM7w62/Er+HBCaRk
sWWo7POgoBG4m4byzhZyz18tNODDzQevJf6VHY90Ta3n3EyUdw6uXhWyPl82
HwnzzJwY0gy4JvYjXhijvKxSzo8PnN/60Hh/Q4TqtWawJNWRXveLDk2bS5uT
zjWDb/KmYRtn6xDXZ+Onn7fYiXRY2r/px3EKypcOtNetGbvz8nUGZNyR+3OC
gvKmA+1qYuVK4wW6hCOX663Oy2BDqtO4g7MoKG/av/3QtNCMZnChwDObthfl
n53eJ69qLOHD6NPPuHEnmsGPLv041xLZfGkaq2WdKsqXDvRfdNNkTdRzIXz+
dEyuUWkzONiS8+AJE+Vn61KMhjUWoethHbHnY95bbXgkMOH0LFIL2Abds+7G
oPzz38fJEydaMGHXLLO/Z8yH5qO7TMyXqNSyoFm16Tatb81gvOm4NQtr+FC+
z+LTEV4LcEnfoH93jABO1LGeMO9nMygvjnScUYryzQ1p57acHCuANoXJEfM5
Q/PNu37+idB8hPrf/+h8x6cP5WWXXVBZsC1GHyY/WOEZz0R52ZY6V3WxcQuI
sAmJ//ZEC9qPTO5sn9wCLi2vh3Z52sT1UFKs/HliqhZhkwrRyyN01N4z715D
6yoduON+zLpr82T7f0N9k3cS5aPNJ1wQqs5gQSr10JHhJ1GeeEtpkNWfDS2g
xbz63Di+AAZGr732dGYL4FpU1qoUobxz4K3TloE8AdRydPn8Wb8FBIfXWbD7
UP45IrTeYngW6r/I4ckNSoUenEee9HvCuBaQFMF1VPuF8rORe17P77LRh2na
VXFX0luAXXxB17FaGhzpvOfL8JwWcGbx1vyfp1A+mlHxwnl5Ig3KH5xdN+L/
5Yvn9E6b8vBiC0jV8Qx+KkL56WvkatjnRYfDg2v9snqH5q0vaZX+WXqIAT8V
Fq3dNgLlUwfad8z6/adyjS48a9Xx+uFwlD81O3xsqnczyldvCL9l9a6gBTwr
V4zarSeAk5fZz0k6Ifs8BNwoNbuI8tOqoov7O2TXz1M70a33QAvwv+K19dBz
9PnI3HIhr/0A6g8V3jWaperBgJBwT+X4FjDyhrHfzhx0/cy6H0quFWgR3qCQ
quv7Qhv6rv6psO1PC7hb4XxWuRLlqRszD+0z3MSE6ivYkbusUP6WlzbON1na
AhZe2PK7bB/KUyuP+XXHIocNz+xOt2xbgfK4byyjFvySE4HSxxeaOlxQ3nom
VbdII54LzU+HOBymiMCjLdeFEVoCeMbIKgp0twDq5eLdzjtQvtr+F1/9jaYA
Rka/TohyR/nchnMfDPVkx1Mafsjf4gDKX+envL+U4Ym2B7f7OsPW6sFR3YmV
6/62AJU/Hmyplz4c/3nliS5Ze0uJ/Kvtf6mQuStMaDxBBJ446j+LvaBFrOcF
S1zf9oRR4dwEFe2F40TA2UOy1O6GNtH+QEM1XGci6h/papfgKUTtSo5h3Ttl
848BXynpHH65mgUDFjaMnjJZBC4pKM3+XYDy2A3xTRFaEi7UeJv/JiVraD7b
d7a18qlffGipYnbVYKUIXD65P4U+RwjLmzbqN8psMmyn2xOI8tj+0g+ieZOF
MGuPoCfp4dD8dtiD0miTiXpQQJebrX8N5ZsvmF9aU+UnAq6rlnz9JBvP9NFW
RkgPiEDVuRJXpyVUGHK34lVTsggY9K8ILv6E8tzzmzmpBcOpcMlD7pVd50Tg
RkzqctUilO/Oy057onyOBhU6AqbP3CcCzbZzU6y9dYj28oMxWrYxdOj50sBn
42iUrx1o7zw+etipRgYEUy4GkQ6LQNLJu6bfUlEe/NDFzMo+Gxa8ZCNaO7MJ
5cWTG/xu6W0SAXK68jO5Ti7smeDMzpNdjxULn007MYwHrWisM5+CRECQ0+uk
+AvlwT9RM/Y4yto9HQ92+lUMzY+/mvNuNPcl6m/V++Hcon4BzPotnbpo+9A8
/Gi1WLkvbShPnjxCfZjggR6s49z6Y9MtAmo/4t9uuU2B+/u6Xlwd2wq8Habv
nsFD+fHr26SV72JRvnzcxwPVvq1ahDfzFc3/0mnwc5Lycx8+yiufeD3T/+Wo
VpDQOmeJhQPKm39lKl81m8KAx6/duhk6YWge3Vlx39L4RF3CEpWaBD8pFyra
ZAUXvxOBprBdlN+P+FBC3bPmrex8jDrvW+j1ozz5roe8cuNEPuwILyPNeya7
voHktN4mlC+vKznpHHhfAG/lT8y8Uye7n7xsGvH1PMqb860UmcEXUf+EBtVL
ewP1oH68uTbDoxVY6RUsUWNTIFzAMrWgtQIppYvu2aBFrGffmDL8xaNLVML7
bmaXfNGiwM+Wz9SStw3Nr49wsxC4B6Ht1xgo5bxP0YZXf/dFfTBqBRZnVZ6c
kY1/BtqFiye4b3jLhKm7Lu18LHv90phNNcelKI++NLBDY3kpF5pOTR33Z2Yr
iFua0b0+kg/X8suVVsj2p7V+UvKPyyiPPunrqpSuVXwYfCyhizOjFfzODHgw
KQbl0yeyb+w13CqA7v2Vzc1OraCbLVeQPFWPaD9u/9XltQvqXyOwDrDi6cG1
8TX+zrEo/z1HtMx0zdZWwAw55RxzmApPvTauWBndCqKv2jCL5moR6/l6rCsj
Dc1l82uDhcKbO2TvZ4et7eft2kR7yS/vXQW/UR5+8TYJe7S2NmxwjrPuvdUK
qK9yI86MRfn3tBTDZfdGM+Hw8nlaIfdRPj62gWEzRnY89ukXwiqforx7p+LP
jGVnuNBpvpJWzqVWsOJVgbFoMh+m6PW7bU1tBRpnOVUxtijvLjRdnzuMz4e3
vdjM5AaUj0/1eVLVd1V2/T5cfyDQQXn4yK5HXs6TBZAXUBA4qWNofr5gDXnu
VhLq/4602Ne1QghNN55fzi1F+foP8929k0pawWotQWHORU34dx7n8NG6VnDk
xlr5TCUqtM3quHm/VXY+xVZJ9RkoX5/3xmv5nUoKXKriaze6qRWIsm81WD5D
eXsju+fxejGo/+QT6+xVT6H2LTWKHbmROlBu3arHgR9bQdHbKSf6D6A8fWz2
WcNxPsh6vLTlx7+gfP3lmwrtx5v4kLJs0zB92fl8DHB6X5eP8vQl/JSv/YUo
b7/19GPDbTuFMCfdqFfdoA241aomq5pqQtuOiPy1lm1g0ugVWuMOoXz928cS
pz0KmvBx3sn66GVtwN8ArJfXQXn7vG8+x7Q3UWTXp0bVc2kbaJvbyNDmofz9
1rwlqjOpNLjwaJw5dQPKsyuMjBq1W9AG1tHHHIEOOkR/tY3+l5Yz6NCkk2N9
P2Bonj9z37r4FHkduPjFToqLdRtIVrhnKjebC3fe35ylQm0D/dIWj54qlMe3
skwGZydw4byi2uh9J1G+PZC3ZUYyqQ1wr47bc+Mryusf37SnjZzAg53XfVOf
yI5vRNVdg7KLKL9vwYx68v4EH1qXXsi7IXv9qE8nj3UAIdF+yZepyPUXwOPP
Pxq1R6E8fPSx8fJbYttAtHP6dFoFGc7R+BEqf6UN1IzhZG3WQnl/bVqb88vr
qB7gZYkWb10elfCs202PaZoUWPBiO2/Gw6H1AsGi9lGhd7Vg1/jkkwHxbeCv
97fwPRdRfUBC64PHHruR9xs0Pvdr5kDjqOL3Mw+0gZE/TtZ88eNB6dIbv1Vl
ti87prbBH+X9S7e4vAq14cH+XV83PfqL6gNiX+x9YJ7aBpqjclTBOFQPcDO3
YmScNR8G+l9Q7ugZWj9Q/H7E3Fxt1P/QosgN+WUC2H1LbcreZ6i+4HQIn1Er
agOSz5px3hvJMKSM/c47rw1w0lvsHmRS4f/2E4OQpL039z/WJGw3fGlGhDsZ
/jEa7mVz/9/1bjk045IW6m/0nBXgi7ZfM//ymyB3LUiOziJn9Mnerz2P8o+O
RfUHX/7M8p2pwoAP+8IjriigvG45a79J0W3Z9Xcu0/5SzyH66+fOZlOPIWvV
/i678hfVH/BZnc62PTw41nksxa+4DdzSJ80wvIfqDR4Z5R39VoTqEZT36U5a
FCK7PhvncnaNEAP/gMuL+XmacL7v9CsCoRjMbJh1/TSFDB+O+FO4b6wYqN+9
QbKypRLPI4uugRrPUE3Cj0aEikNIZPhRbLXpw2SUX06dvEftmKoYZG0PujHd
XIvo/6qJ41ihhfbn5R2bnj4GtQtmKAnj8rWhYcPBNyepsutFfnYszI8DF5Mr
q+1lx/9bbs9V3b+oPqFHZ2TRrrkc+Psd/3DMfJRfvmI3c3iJvBhoC5+sb+pA
9Qtj9jY7RqVxoRe4dN9Vdn4VN5t4Uy+ieoZbq7zjNU7z4HGWh/FSthgs6XC3
uzBRQLR3/Ym9+8QX9Zc/nPT2hI4AUic07b0/FT0f5V1u9BVMEQMz2xOfU3xk
11c072/RLDEoblx9bHsbqocotPPvUZHdP9MPhT6YDmXXc69bgdlHVB/hajHi
QNhrCsxS21c2f6IYxF9bsOjmdW2iPbNbzdywEPUvJrnnUcNR+8vaD9vWdLCh
2ZFS9YOy13c2yVs4dhsXTt9+St1X9nr86N9HQvxRPYTq7dEuv+y4cJOS79JX
W1D+m7svYaqW7Pr+vFi3jsNE9RLbE2vMLs/lQVpLiXRB8ND6Cs+vc1Y+0ED9
XcOcsh8W8OHpSY+nFa5Az3MZ8MFMBy8xOOtWtJdN14Srhq1d5bVBDJZ7rlqm
dRrVW3DHbM4P6iHD81UgQD1QDCJ6PNQFMaj+4sP7XSo++yjwcv+3Kg03MXBQ
cAsh+2oT7VrpCr84W1F/16trosfbacMqq8wt15zEwMJS2elOK6q/eJ15o6wy
BvlK06Htm3pQPcbfrECbdhEXjn7UkrHDQwyUzLeOyUtG9Rddk8afOHoT1Wd4
7t3SlOrBh2e/WE6Uj5ftbwfFeKPsfn535vc91tliMGzfq8ZIOxI8p0su3HhG
DA5vUtCVOqD6jI+zlHdF5cm+bz0zHZkpYjCjesQfhRmoXsNkffDHvdYU2HBq
bLvPATHICHh21s9Ym2inbNj3u2QKDdoqHehKejq03sO7butmP742dLu18t2s
RDHYUrHLdosNG9r2bjG4tlMMgnWOTs3tQPUbf71yQtv02JDx5sn9GbdRPYGx
Sb3q5HDZ5y8364Pcd1TfkTNl3GbRUQ4UUq+3LDsoBrYBN7eeikX1Hs6zw6br
xnKhZ8SlosyzYpCssxbsHcMn2u8aLtptvpQHH6z4U/TtxdB6kU2zfY2hIh/+
8rzidOwS+nxdqHn/GzwUg27HtdA9DtWLdKddTKgyIMET79bpldeJgd7Rp3vm
aZCg2PdhlEi2fxv3seo/lVA9SWRKzhOTXWj7zBTLv/a9VMKmrjHXW0ZT4Kwz
143Yb1H9RrWmgzXzjhjUbzgXPUJVm+hvQ2oKV9FA9u58LnTNYcGdpT435+eL
Qe6MO26nVnBgVGquoLFADMrfdpceWojqS66NtJH2TuHAfSnSpMvfh9aj6H7X
vPnDCPVfMd79wqM+LuzYUkgL/Da0XqU5viZ02AUeFEV2h45tk1m4rvr5YlSP
cqju7PSIXxpwlkdAk9wYCYgsPHxw00cNqGLolTe9VAw2FiZV3/tNJfpXOo6d
va1Wk7Cb+WH5KHu0v7fRsdJb76gwMp9TI/os+3xkz6/2VNAm2l981f7JpmnD
0CnNc+9+EYNsyexFMBTVryR99Nk0fSYLSg73SCtVUB59oH3Bi/qFtLdseNzh
Zv5y2fEdW6C7/NgfVM/y2tN3q085ByYuAgrGsuuhYrHpwphNPKK9zzinbkci
6p+8eJKzlRUPMs6dpu3XRHkOptZtkdwvMRhbkuS1qUoTsi8fvbGBIQHrni91
SmSgepjjHbEm9i804OVLnh3vTSXAocxQvSFTA/pf/bA8XLb9zR2m+jblVKL/
zVLF7So5moQb9tfHB9HJUPJw+Si3qUPrbdwmVK+8cYcKR0TOrvRRlACryaWj
WynaRHtvZpah/1xku40ff1xbrAvvP/h8sFZOAsa7zXl27h4b3pSTGlrKS8CF
HSdOqd5F9TRLKxd0Ra1lwyKdH42zVCVgWAn7+W13VF+z3eqcV4sf6v84dNlH
QzPUPv7mExG3kQs1fjJK1U1RnuTe/V8XvfgSILJ59f5YpiaRn9nZ9UZeV0wi
7FrTNHV6qgZcdIR8QG2e7Hr+DJtyo5UET884UrPCWwKajjcsjovQgOrZR5cP
k+3PYEFlpucNKrH9yjlKgblH0P6L5mVastOoMDvPUenTeAkofdcZpuegTbTf
NnSVM5H93p6Y93ljMJQAtm+s2GUFExZfP6azbvnQep/kpjdOCxhMGFMdYVpn
h+olho3deO/LXAkI9n0wKVSdDVti98vNmCMBs1WTZ77WRvU+Ge/TrrSOZsN4
b1LabztUT8FLMjZ050mAR9e8uosfUD3QklEhicFqaPsVIV6bc2o40K/sRpWy
w9B6Intf04DIaC6E/YunzlkkAb6jf7yftleTyBuZ2rwue/mKRDho7eIoq60a
sN/ha/j3TRKgQQue/eI5CdaSzE7EHJWAV6Ou6Hgs14ANVcznObLXGx8Sxs5M
ohLb79p9+cOrTWj/ozWZnqbHqfDnrwm+JvMlwML+YaP4njZsO3j3St1CCahR
79MnH9Qh+mevXkkbcZQF1zobkbtl7RPLyx92P0b1RR7aBk+7LrBhu4659hLZ
+1+hUKTpB7lEu9b4DbLBPurvq/jhS4aAC9XXRc75G4k+f1FGlOLEnRJw+myT
3/51mkR+6nH/LeOQGyTCzqU/s8IXa8CHY910l6VKwEnrhu78DBL8e3VcxKp8
CTjT8dF8qYkG/CqafDl6m+z78HXzsxFHqMT2xeX9t265ov3bP5aTpByjwuL1
41arHJKALclGCZNsWLBy76LkbTES8Nx311frjaheyXr3OYGjgAUbzxw6SklH
97sdjKNBZvES0F/aerNCiOqZ8tr6g9mz2dBRrm9u262h9U/bPOPsz1NR/+S5
E5JUijlQOynUS/88+vy021fHrrokAcL81SnvFmsS+TDHrt4OkEgibEmSxrUb
a8Adp++9Xv1CAoa7rF6ZeoQEV6QbTP/aKAGCvKbZm8gasOznMyfnNNn1NOS5
nDtKJbYfK/oe2GOP9s/JSziamobak0Yl+FQt0CX8UnxZpbiWBTvP2HofuCwB
JeezChPTUH3UVGNLD8XrqH5K3JQXXe3OgVmU+zfaRqP6jcy+yeGHy2Wvp9M1
L2yuJpFfs7M7NdozikT43uv9h+6RNGCJpKhDsUsCqox3qMTtJMHGT7rr1J9L
QPqZjYsEsuMd6E++bkudPwftL1Jt3/bQQiqcDlSPXPsgu9+sfbjOP5cJr+YK
49ReSsDuO6N2JBajeqrYU/0PtJYxoVLV7cIVveh+EuXTVpdXKfs+5vo8bYxE
9VYaRzevH+/HgoE7LNKMmiQgeufn0QsVOUR787SY2Fd2bKhnytnRoILyaAPt
nfWn7vUocGDVyVuvCkXo/f8U/+u2juz1063L4lTMNYl8XlTLOVNWMAm6T9vz
zIIlBTV2Ur0HfiSYHj5sd7hYAuYUu8uXPKQS/a95TD1wbjbafmvb4s1d7bL7
c+ukRULtofVeek8LFvqzdODHezpf82ei+piOhSsrRepSMNbKMlqiiuq77gcs
NG5SRP67KIDHbWZBoxtzvwPa0HowFZan3MLTbDjJNPFpL1cKNKccyTGZpUnk
B4OP1xZV+JDgj81LDVVspaDM+Ml9H08SPGt8PmCNphRkxu9Qie2gEv3j6/bQ
zOZpwsNLfrynTpGC2IrChiW+qD5s/qcF+dduId94LH/zuEQbJlCz2sJcUD3Q
SouCE9VaUmB3NkE58BOqD3tR49Xny5D9XlPDnq2bIHv95owEnhebaN998/3h
OWGov/+pLwruM9iwwblUpLgcvd/rYcZTir1sfyvOTf5mo0nkHes+2DGaPEiw
Z+9OH7dgKWh0WC/95koi2iuiIsryVmrCySs/dJUvkIKRseZBBQItOEEpiOoj
O/7yiNYV3TuZUD+q5OseNymYY3+py8QY1ZNRV7BfvZ/NhFO1KksOBw+tPxvH
fZvgxED9Xfb63G+oZsH0SP3XhUHo/SvtS5AskW0fnmSaM99Nk8hbZiTNduuU
Hb+30sknRqelQPnvyNnJq0hEO/ncnIMbdqD+Z1SG+U0014FmPuvEIwOloPq3
99m3j1C9WVatWy3ZRZfwOxXV83ODWBDuWHU38aQU+O5Y2q8UoUnkNZXPvvt1
xZcEuz6cnLW1WAp6bu2UsGQeaF+2+uiX7RmacH6w7gefTCm492lzoSiBASXU
n11V56XgjtOdjZvaUb1Z9vxsNSUrBrQ3kKsc/Rh9/nvZitKP2bLjHze/isxh
Ef2/j9HpJMUw4YsDtknFb4fWr63bfUeDR2bB1fCnn/tDdD1J246NzMmXgoTj
N7OmXNck8qNR3lnFHZtJ8OpMnUeCFinYs09jm/ZWEtFeHDv6rrtYE4YMjzkV
1DC03m172IsvxbLxfN73q2a7R6D6ooF211VyZcY3dAj3/yk6O082Hs1z3q27
4asUrGH2haRINIk8aoCE3iR3iAR9n4TFGJDagc8cB0+/OBJ01L16IE2uHeze
2j9BbSuqd9N9klt7oga5+peZ/71kLbj8QGC9Kg/VP21ikjaPl52f83D1mW+3
6MA4Levb5t2yzxeMOblTxCS2r3/6V7ewiAH108dEPzAaWi+XyohYb7mPCdM3
XDfarze0fi7YL95sxTUSDPtzvd7PtB18zFj5zjCbBJ0F1t2dtHZwKXWkf581
lej/aN3M3c9E2oQvC92VVxTpEPnYxMbzH5Q/kmDyz6rqMrd2UGrU6VL6iQTr
W4pfr9iE6r+2lY1dpDi1HTAqSpQSP2jDFMUNHvNmtAPLBFZ+0ym0vyLhD9t7
7+hw1stQTknk0Po51qLdrIffGNB41dwPrpdRvZngRbu30a52kJ5A+5XGkw25
HtmdzM5qB887XkY9UUD1dO/uWvx1m4zq6f78OR0y5ZMWPBY6rDwjoh3M+ORu
d3oag2h3mLZ+VbouA+ZuPBWvEouud59oQsK3s+1A8OXhnNWJqH7uwuSrjpEj
NKCaR9oSzpt28MDiaHmFEaq3m/Lm9QthIxlem8PeWizbX7uxO8c3VQturcxs
O/x2aP2d0gKzbulWGoQv33GGFwytx9Ols467T9SGHi5ub+bktwPz0PoJ16do
EvnfUIo3+ZupBjwfXvQovLsd7CqWk1is04DLSN4sfdnxWY5VaA41okDH1eln
LJ63g6iLZvMLUlD9neC6R7fREjpMqljis78BvR//+78DhHEXjnfcpQHT3382
iaV3gAfrR6wX5qD6vAqL0X0iJy0iD2x2TcVQ6YcGhFbSFvGMDlB7ZNyG+xok
uGOp/5Wxsu37rdKzbO6h+rqZaxfyMpfQ4ItFmQY7p6P87kA+uDtTtXNPIAku
zPa9P2llB6DYfXs5IpYE10ytWt8SOLT+Dvws0O/vosDHdxOHvQ1A9W3L9jSW
U4I7wFMxrdDTg0zko4x6xjv9rkb5Ctfa4EZbRZRvGV6hG/LxL5V4Pne5X2vB
6DuaxPMqD8e9tZ9kv1cDz1csTzeeq9ETEuuRPw4wG7UrSPCVqpO59lIxCDJb
E5nxgkSs1yn9uLCIcoIE6evnOXhEi8Fsy6ZUsI9ErDdNvPo5dYXs9yV21sFV
7bLxxPigU+90fqsT4wtlCdXVX+aD1RVl64EUpLvnzJ/5U534fV59dSf0blCH
hWZnehPWSsGlsxW3Td+rE79/Bq/NLGqr1eF33alhfvFS4LZxZeXkUnXi96i5
zdGt55U6lI/7NK7tvhR0dJ9d6ViiTtzvp9t2FXQ8UYdrLu4U0X7Ifn8/r/V5
+kiduN/e2pLdSX6sDjseVZ6sHyu7n2wYHlopM5H/5w8vyZLt72jWzyK7ae3A
e+T13pcv1Yn7UYttT7VQdjyZnzs2Wa1qBydHKduqyo534H6R0rN6n4LMY+e8
/vp8j+z+ZPqlhdqsTny/a8unmdQ3qcP/AfG3kwc=
    "], {{{}, {}, {}, {}, 
      {RGBColor[0.4022409456153132, 0.11256809584755181`, 0.58630911102037], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlD1Mk1EUhm+93yZlhzr4F/5WSl2LxDhJiZMpJBoXS1TQ4M6PDu4qAsGZ
kjhXjEIZtK6GVnbAoBMUBhONoO/JeQjD+733u/f83XPOPRfujt8cOxNCeC5E
4ZE+8+LH4ltJCL2pEK6Lu8U5oUdY0nlFKAtvJfdJPAd/5iybuGxOfKT/s1of
B0eL1v+CI611EJr8H7DXyv4z2X2v5YL4kmyd097lxM9MJiX8jc5H4j/xdG8f
f01ifScsCy+kX5TMjHhVmNK6Kp4VRrV+LR4Wl4QR4apQEAaEMZ0NicfFHSnP
T6cwITxBp0IezN8D5E2vJOS1Lor7xYPYno2e0+no5zdSfl7T3hdhRdiQzqT2
PiZuu4b96cTl74v3gud6n3y3kPMl7j9nuacev+XrV3SdXfH5xHXS4kzK6225
3iZ/O8Dq813Yws82Po/5v3aSl8TraXU6IJ42YrJ8ZYUuamz1Ogz+34fvY/rB
fJteO7pZZLrYM86wl0O3nb00Omn6bYFeWoweU8Bvhru2EtuJ7Q7+27CRQaaF
8zRnnfz3Ep/9z0TvtafR7XWj30t+LvKmevBtNSzSE8b3Ut6D/fRIHz02SZ+Z
rzz+vlGbTWrQpC57/Futhull6+MdarhJX1ic9ubryDbQNzmz3UcMlt8tzkym
nHicLxOX26Rf88SdRW8A3eHE1yP07CByi9TlTfS9AnoN/NeIrcG7shxMkYcq
73dd/CN6PX9S30PuucbbsTfUpIftbuvo1hP3OUSsu7yLDXE1+r3W42leLKZB
6mN6t6O/rYfiVebgyVysE3OB/JuPErHbrLnDvLW5myUflu969Ngb0eeCveHx
6Lqj2HrFvJqlDhPY/pD4eplZ0SCHc9R7ntlRY7aMEb/do8i97H417mo1raBT
Rsf2rGZfo99xLfr5Cv2UY/5fIbYSdv8DJ2rR3A==
          "]], PolygonBox[CompressedData["
1:eJwlkb8vA1AQx9/z3ka7NzGoX4NVwyoRYZGISaqDWErQRthR/gM/2g5mrcQq
hJZB0hUVu0TCZDBISJr4XL7Dp/n07nr3epdeLs4XupxzQxAhyUfSO9cLA3gn
OOe9Ypb75Pu3U+wPzxKbwEdhAd8nVid/BVV8Oio3DFP4E7E3cm14xG+J7ZDb
ght8DWa9eq7gv9R0qP2CH/wCWvgr3OFtana9ejTxGRjDJ2HR3gM5fBWO8RJk
vWbs4RV6PNDrEsr4EbG8V80hXo96m8VqeDmq1zac40WY85phs+6D3vZu/xHP
Rb3FatatntgZuQoUgmbabIud4M2g3dibGkEzbJb9xwbeH7XLFKTxl6BZdpMP
fDDqdiOQwTeCZlVhCT+Fa6cd2i6th/Xqhr6om9ntrOYAH4/qZTu13W4G9bIb
l/BE1G/tRj34c9Ct7MZ263/2tE5a
          "]]}]}, 
      {RGBColor[0.2498556666258807, 0.39410633443204846`, 0.8125321825100349],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlkts1FUUxv/Te2fhCyhoYMOjraxIEBEDxBgWvrVGYWF42FI1EDN02tAI
SVva2EIEZtqYYJkp4KNqROm0xkVLCBQqqQtcGBjQ1B1EUnTDBgwR0eDveL5G
F6ffvfd/7nl855w7rXqzeV1TRZIkPyIB+ZU/U7YHP00lyWdIETnL/mfOJ8BB
9iVkALkSk2Q/WI6uZ/r9yIPpJDkOPgTe4Fsf61+EnyAHkSFkWHdi2tfptH8f
kI6hxVGQzyHtnySOZuJZA57Bbp6zS2BHyuPp1B2LqQd5B70P0d8BFpBR1sXg
PkzP7nchvUi37vVr36dYcrLVK93z8ncSvBs97t/BanIYZ12jXAaVx1R0m9fE
WZ9sVih34yAnX3lJQT6XEmsdMS9UXYbE2xz26zivAuvBzcjaxHVt/6r2dm56
21Mec4t4yomrLuW9EzlNfDssbvCqYp7SWZd0TkS39SX4BL4z2H4kuL96+Zyu
n+WwjG8NnD0KnkYusj4DdoCdiddyQDW2/BbIVmXw2BsU/0T0OL8T953KZRvf
GuXbMKuc7bxNZ1tSHvNW5CfsXuNsMji/RdV1dvDYF4GfR79zAHwPqWe9Nzq3
2+RrULwUwR72vcpnVtrrngK/xtb3nH0DHkFOsv44/BfrZtXP8qtWvlnlvCtx
jpqUR7vuPKb+tznYC+5DWpGXg/t/JXhcVqsMUie0HOp1p9b6P/q33apni/ix
/jqu+TyS+OxYbi+q1lZzq9WodE9Fr8UYeFY1slq1KwfLp6DaGtdz4GXE6px2
e63itFV52jojNL6NyxH1Rz5xrqd56VD/7Edy4qhGM7g07WLrKvB9YlpvfSO0
+m5I+b28Yi1F520YvECeVzgrgy16Q+wtaZO/dklOd1tVC/tesDdG+33Sb5Ne
XnFvEd8Ww+HEubbcFoif2Wnnbtf/cu1Rj30VvV7HwGXIXNYLo9dkXPVrCB5b
VjUvKJaM9tYL7yJfWF8F/1ZUrI3KzfyPyp7VOqtYrD+bgus3B7d9VPftN8Tm
y34z7iOme7j3BzqXE+fT5v8pzhdzvlzf70X+4nwcvXPgMHgTuW72wBr0ZqIz
A5yUbZurD6Jz2Ae+hKxiXQtWIrOMQzCLrLX5B++P7usB+Z0r393Ba7AdfCN4
v78V3Of8lNv6gX2Z8zFwRfTzh62XkDWsN4J/Wtzo/Bb8ffmXB/AZvi1H57no
uVmOHwWveUkzVla/XQQb0Xsa/dejxzWo/jBub4rfGeLkb/RfUO7GwZ7g+ocU
v8VegaxMuc1Vmnmb/WbwcWQJ69XR31x7e+eDVezncV4Nbop+/3nwNeXyLDiS
+O+p1d64nCc+6/TeGO9j4q0E3gpe59vgHr2r9r7OVL0qZXNCdt9mX2tvvPGt
mllPWc+OyO8B9bD18iLFbLGbz8vqt6vqv/PB8zAOligf268EjwW3eVD8lcT5
VtV3Q/TZPaw5PKcetDd9vebYYrXzSX3rkQ3rpzvB63A3+HyP6k2zuK5rNqbf
poxmerE4vRTc5rdgV3Rf3eLhqGa7rFyNu6L+z+nXvSnNzCHlthv8B1kMRBY=

          "]], PolygonBox[CompressedData["
1:eJwtlFtMj2Ecx99/z/u/YKxWjJuUcGUj5bjZXDgNGXVh5RgmOsvG5kJbyUxp
NjqNsDGHSuYiZqi0XHBh6WDcaVrhwo3zIcvnu99z8dn/83/f5/T+Ds/sfaVZ
JTFBEByEED66IPjK7yh8wFdBKV4Om/FiqMbPwB48jUnzIkEwA1LxW1CGH4Dr
+C5Yg2dCMT7GnM/MHYcfeCHPMniXAxV4Pc86eHcDzuP34AX+FnrwT/58MYz/
q7NBI/9vQgV+mjV2864AmvAWOIKXw2OdLbSzaEwVvok5x5lbABvxhc58FyzA
BxhTzdga6MJP8qyVdxeh0lkMFAudoQTv0hx8GF5pLPQG9k0t+GGoCSyGufhc
1kxk7ViYg/90FhvF6Cte5mwvzdHcImexaYBCnZU52RGLYT6+xVmuamGv4qMc
+PiX4JWhxToPLuDnQ8uV1jiHLxP4fFiKr4O0iOV4Nd7Mmo9Yu00xwJ/y7Kxy
B9347Ci/+H1IxhcxJlexgZWay5gTEauRh/iT0HKjGCvWA85ip+9XrTTy7KjP
ZwM+GFoutKf23g6r/Pcfwr/BVbwOvuC9zmpnDF47O5PO1gEJ+HfGXMPbIYb/
485qSzX2B49G7d0DmIbn+P0Uk234qK/ndzCCJ4XWC5MgEX+mmOO1MBRaDBQL
9VQ63s+zMxGLSV9oYzS2CUZUG4zZythMiMfjo3b2VojDk529y4IEZzlWrtVz
RepNX1/K5xL8MmOeB5ZD5TLJWa1rj1n4FZ9f9dxd/Jezb1FNqjZ/+/qczLMp
oeVcuVeOOkOrGe2lPRfj06MWO9VECh6J2tmVown1vno2sB5UL+b7+0AxzsPb
4VjEYtiDr/f1qPfZeDzE+f30raoR1Ypqvh7f76wXmuGIasFZLSi/ukvqQusF
3RG38Z3+vlIP7MDv+P5VT3fi/5z1qmpEtaIeVC/qGwrwDOYs9/HX3Tfh60ln
jFUtOzuL+ucU3gT3A9tDe+kO012mZw14ur9f9c1r8RRnuVZPpar/4E1gOe3G
+5zVYj+8dLZHm8/3JTyFNWb6ftbaQ87ueq0xiK/w+dM3bMDbnK2l8+kuex9a
b6lmh/GpodWC1kzW/R5a7aqn1FsX/f66M6uc3cnKj3Lahv8HMonVew==
          "]]}]}, 
      {RGBColor[0.36690916712301946`, 0.6600310843213859, 0.6359251569314657],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlltslUUQx79z9vuEF2O5FCJKuYgJogjFFlo1aOlpExDPETwRizbG4iUF
Lygx9UGDiYroAxKERGOEBxoNIsXIAyiRcIpyqdH2GDW0TQwtqBwvDwoVtQn4
G+ffxIfJb3d2dnZndr7db1rLk8ufSEdR9BUSkIlJFB1IRdGVcBb9Bcj1yO1I
HVKFTJCN2a5CSrTvhRU4yDE+Bf6M0+to/5X2eYuQ6sh18yP3/U/afQ/DsuBr
xDCDr358NsCZ/5tXRn8f+rHwLmSQ9jIYgu/rAn6m0j+EfhrsS7mfr5ElcRTV
wiy8A/tnsV8K6+lXom+E39LvRX8EltK+9hC8iNTSviz43hdo/7+knX+nfY/z
tc8q7Xmm5tjcUfBXxWtxD9D/3vIOm5TDlXCRYrcctEW+z1YkR/8U+jy8lTkP
oquEc5G7aU8XTZ9HjhLPi9gfh/fJx/3I4uB+b4Y1wcdmw07Z27xuZCPtIrwB
mUC7Ai7Ebq3VQfAc1Kg25tFvsbiD+zKfV8M/lUPLpZ1/vXJUSQxd+JwH56ht
ugxjDfJrtHgaNS+jvAfsOrAflfg6FlPWhPXWw2XKTYvykJWN1eUpYniDuYOx
12ROdVliznl40s4/5XVTRA5g9xz8BN6p2G+TzYDsWuhvQv8w/ADuQd5BmpTn
kXxv0FluRbapvy64bRtsDT7WDDcE97PRYlFcOfi01loFd7Kntaz/np0V8gDt
1+DL2sczsAA7kX3I29LbeKt9A9ivhs9r3VaNH1QMJ1Neb73igNrvyu9Ws2d+
G7q9tq72YHsx20HlZzN27divh68z9hC6LbDGaov2LRYHspz2utjz3qdvdr/W
GlmzR/Es5Oy7Ga9N/Hu27zoHVwfP7Ro4nv4Y9OWx+xvUXdARPMbt8B6raXRN
sfuzmHuQAmNd2HwYvN+renhEefsvf4nb18FjmnccuZaxCruj4FxkhtV57La9
sjuh+Kzuh1V7VoOjsRuNboj20ZTvyXz/bncHNmeCr1GUjyuwD/AS+sn6TqfA
C/SH7e61+ypxX7PhJPm3dfK6T7KJn3+76rJK93y17vys+ruC5/592K/7oUd5
69E+H6ffAJvhSzrTp2KfY3N3wzfpr0H/CvxSd2A3PKc9295PM7YJm29ij9di
PYz8pu93ABZUe3tgl77Tj2P/Zqx+X4WziO1TywncrNp7IXad5eSQ9l7U2Q0x
thP+GPuadj4FZLFqtRaWqa6svi4Gz3/K1ldtPAq/Q/8Te+izOmTt/egTncMx
rTuM3XZ4LvZ6tdw/BqcnHmu5aOvb/Mvp74IRHKc3zt66atWb1V2f1u0PPsfe
6A7l0fL5Wez6gsaKqkOLdbfOxc5nh3JlOTuscZvTqffxc3iV3uIx8LTq8wdY
p5qvhOnE82l53RL8Htpm1N3VbuvoG1wB9+q7+wjm9S5n4Ljg9/9U+EXwe+Ag
HBv8bZgMb9K9b2/jNcHv/hnB76KSvv/xwd+Tcr3j9XpTLsWe21Ti9Z5Tzd8Y
/O2Yo7c1r/do5H2yd32l3m77D2pW/S+NfbxRNpP0b2P/OGcYewubs7GvnZG/
P1QP5+ES/Z/Yf0q13ijb71nNLcF/AYwROXs=
          "]], PolygonBox[CompressedData["
1:eJwtlm1ollUYx+/nOeemQCI3NciX2dTE1HxZJpviuxNytuUL5sgmTlNqqVOL
+UFR8F1BxJcPJuqHCTGmU9oHLS3ctJJJzYLMGIivRbo+qNOUgfr7c10f/uz3
3Oec6z7nOtf/updfuWLW8mySJDtRRDNCkqzh7xZUAf+J/oH/Qn/AO5i0IJMk
Vegr+FeeXWPsMroEf4EOwbvQKnhrtLlaswX+MVgsxbwCr+TZLMaK0TL4N7QN
3ouuwz1QDpyHBsLforVwNWqEu6CX4ddQH/hRsN+dxO+Ac6OtVYwc+EmwMc3R
2qWoBB6PFsPPGQ9wB3M64SPoDNyCTsCT0iS5ynir1qQWU7G15lU4E431rCv8
lOQOZu0Q1A4f51mN568evhrsXcqHcp2DJsNlKA/+GO3z+5gPf472w0fRBngv
avTfu+HyaGfRmZbAN6Pl8jB6AE9gTjVzK9E4+Et0LLE7092d9/vReZvgGr/P
49oDXEKMImINRe/BpeTgesZyUgLPZM56v/9KOOXZKcYaUITnoX/hG+hD5Q81
wnXoFY0R8wBcix7DFdFqQzVSDU9FI+EBaBJ82O9HZzgInwy2dz1rgEeihfBs
NAL+JNjedKbVcBH6FP4IFep3tLOpZt6F1wfLre5gHbyHZ4u9/mqj3YnupgaV
w2OCsWIqdl/O9H3GztgLXuTvV44Wwr1QKTwR9YRXux/kl83Rctbg+cjCMdjc
USjAY33/8ux0+Otoe5NHTsN3vb5Uk8/getTsfj2r/ETLpfwzFG51P7ejW6o1
ry+tqVP9e/1o/6XwMPb0M2svov5wrt+nzpwH9w1Wy/PRMPgC79jF2EZ0Hn7J
z3dae0jtmcbkkaZoMRTrB9QNfoMYU4k1BeXCd4LtVZ5+CGdSqyXtoSt8xd+n
mroN3/H60rNb8PZgta16kdcve/9R/lrUf4hxLmM13B0ewJw57p8C+BGeHgS/
he7CxcxpY+5N9AHcmTXvF6I0mMRF6BljM1ObK0+Up+YJeUOeKoPHoN8zFnMy
3CfY2dUj1CvyUXFiOekGv55aLpvQm4rl/teZ2uB+wbygNVrbA01L7Ez9g3mu
1v0aWP9/1mpNZ3wMd0TrJcrxc3h4sLtVDaoWZ7hf1SPUKza4f1RDe+AT3v90
x81w72DekwfkhbHuP62fDo8KlmvV3Hj5M7Xe+xManVoP07g8/g78jftfPawZ
vuj1pPtWLXR4/1fN3A9Ws6pd3XE/+Dv/vihfraq/aN7Q96InXOb9T2dUb3qS
tbtXj7+XNU/JW/LQL8G+eQu8f22Cj7o/1UOOKJ73S53vfd2F9zf18LnwPp41
ef7U6wvYY0vGakK18XZquZBHBsO33Q96/41g38w879eF0b7ZVe6vY/JfsFpU
DXRXL/X9652ngtWQaknvHK769O+L9jgHLvD+od9T9A+E+0810snvNv//QT1I
vajC+6W+YZ+pP3p+FWME/NDrSzX7H5yfmvfVY9Rr/vb6lIfl5RfN2RFN
          "]], 
         PolygonBox[{{1151, 1150, 1130, 331, 1148}, {1152, 356, 1167, 1150, 
          1151}}]}]}, 
      {RGBColor[0.6004279671441201, 0.7426603837750129, 0.36488050227381424`],
        EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFln1Ml1UUxx9+93kybcWLQskPsKZiMzCTTMT5gpU4E0VMzUy3SIWWq8hF
mhmuzVzWsrJ/ar38kWv+0aTI9bL8i+VqUtbWskwiKZoECpoilml9zs5364+z
z7nnvjz3nHvuuc8NdY/UPpyKoqgTCcjEOIpyM6IoDXthH/KbCYNG0d8Nm5Io
uoStMXHbGOR65CPmbMG+P/b+wNjLMGHhEvovptwWy16kuSORoQy3XUDOZ/h8
s/GJKAu5woR1/4Z/Bt+f7XMEvEx7EHsvLIZlyARkZeI+LIFrGDcPfbGNR/ai
/wPPI3vQ/4BHkF3oX8IXkBXoW2P3x/x6F7Yhm9Bb4NfIDvR2+B6yAf11OMA+
+vj+rzCPb7dgHwY307cAfR3sIwaFjLkAT9N+E3s/3I4sRd8Y+1q25k6YyfxW
9GvMJ+YUMHcw5bGzGNo5dOiM7KxKYQUyCbmSfcyAA9jrmT/IOuvhgGJ9WmLx
PoP8m/J5v9s5pfzs7AwXsI9S+mfAYmQMei5czFo96Ctgg9a371zSOrbecton
sC+DIfGYW+z7M3z8gL5/QXsY1N7M3itbn2xD2u+plOddP5zDWmOxlcJP2Os3
2PfK70mKRTryuFk+HafvZ/gVPMH8fPQu0cZlIsOQHIuf8i9bttPaj+1rS+I5
3Qy3Jp7bz8C6xH27X36bbjGy7xdqrXLF0GKZhcToGbo7l+Vnv2Jgc5v1rc2J
+23nYufcyZxX6O+AN+LPQmyjxXuRamQa7XqbA6cgy9DHweVwfuRt62/QHGs/
EHn/WtHa4zVnePBYZCtGtobFukqyTLa3GXcAPgdrkG3otXBq8HWvtfWQJhuv
PTZpH4toN8JKOE995keL1rS125B29FZ4SOdu538U6bE7Afcgregvh//jkgk/
R35C/wI2ILvRVwWvI1ZPjsGrLF7oqeB7tT3PgWOD+5mr/tmqO7OCx+lWfada
fXnB4xGpv1Fx3UF7H9wJX0TeQX86eL5WKaY1idfgOxPfh33vHHlQTfsX7Avh
o6pvVufyVf/SOp9CnZFJkeptCXMOMv4muJQ5k9Hnwrm0v0OvgOORNvTRsBA5
YPmbeL2x3LMcnCK/i3Vn0rpfdaw10+47nMOcH9Bnw27VWKu1xdqn7becvsPY
p8GN+LgL27rg9y5LfqyVfT18FnkL/Qn4gXJgf/C7miMfRymOw4KvUaB16pSH
S4K/L5n6xtmU76kH3izfLQZN+tam4HGx+EyBx1M+9yjcovyxPDqivDpo+aKa
Xw9Ppjz+f8Ea2hXYa+FEnUUpfEm5uhtOpt2OvQxerfqfDe/SuS+C54K/iYPw
dtod2KsSn2/rvAqfVF16Cq6kvR37fXC43qYRVruUe83wY92jz4LnpeXn8xZj
1czDMF/vbxGcpfOthF16+7phtXw0X8cpnhPgqsRr+erE3wyrbfckvm/b/3x4
Rn6Zf2WKw9TEc7lIZxypZobY/TG/Vtvegt+7NBxJXw5j8mwver9mwvLgNWZ6
8BphtaLT8k0xsdiktU5B8NhZDK3GP6Y3+nF4m/J2Ovxeuf0j3Kf/hPdjF9Nb
YaXu2h3wbt2RFbHHwmKyxt4Le/vtfYGH9I/xLbyo/xZL2lP6Zzgbu2/m43Ww
RO/gLfDBxN/ThxL30/ytMF/0b9MMX9M/xhuxj7PxG+CH+uf51P6RUn5Ph+z/
Lfh9j4P7b3Foin0tW3MbTKtWjEncB/PlJDymd6oL/gcoGDeD
          "]], PolygonBox[CompressedData["
1:eJwtlm9o1lUUx+/z3PtTI3KaGaHTFeYfdCtdWWumbma2yk2dbuWkqDlTIbIl
LG1ZEZRFkJr0JvpLCb0IRyOCyFeSBK4sCCqdmrPFppubZjNLHX2+nfPiOz7P
/d177rnnnHvubmrcVPtUPoTwNkroK/605kLYjg7C59F78KfoErwNPQQ/gLbC
pVkIP8EdaA68K4bQjp2P0Zvwj8lsvYU64UE2m8e3KnQ93w/zuwBmaeiE1zC2
G34FNcAnUR98DJ2AX4hmW3Na4dFoIVyKro7mg3zZj26Fi9A++ACaCY9F7Tkb
mwjfiQ7592L4XvQ7fBQthheiX3I2pww+iY/j2Os6dBRuZ88OeB9qgwcYuxEu
QZfh7rzN1dgZeAgVwhPRKfhvNB2+DUXWV6AmuBktgnPELLH3EL+H+V2AlgY7
s85+kfWTgtk8DR9Do4L5KF+1h/bSHhfgymi216IF8CPRYq14bozms3y/BV0R
M9YAb0BlcBVqgdejJfB30XLzAzoI/8OaycF86oOPMNYLH0E/wweisWK2H/6X
OUXB1vTDs3w/nXEGvA7tgF9CjfCz6P1gY5vhFdG+6Uw10XKm3KkmF8FXMVYf
LKZz4fHoPrhcOYTv9/MoBqvh19DeYHu8Ct+M6oKtmQK/Hi3XmqO5KlzdDdXU
NfBF8vUJ3IZG8HtEtHgWK3+crzha7HRGnfX2aLnQHqWyF+1uyOep0e6AfJOP
9fAYr/dqNAEujMayp1yVR8uV5utstR4fxaspWk01ezyXwyla7cmmbK9Ldrfn
o0b4SZ0JHkbPwF2cYUKwO3tCtc2ca3NWo2PgP/JWO7rjo7DXGa12/68B+E/l
PNidHoQ/8niqHj6PVoO7vX9sk7/YnI3tKagC/itvd30aOg+vd3/Vk56Ht3h9
KD/b4Tc8n9pDe93g/hahGXC39xf5dA7uStar1PPOwN96vcr/w3C/n0fnVcN8
0fuRet5O+AvvB1rzDfx1tLuhO9IBH/f7IBuyVYONcmyVqKfCe1Q/6AP0IZqX
7Jv8LYPHJ2OdQbGP3h/0exw8J1msFLNKeL6v1x7V8GTZ8HgWw7W+/xL0GLzY
4638r4IbyPlZ+DRaDZe4fdmYCTczdgW+gDbBj6MBuAfVw3XJbMnmSnhFZrbU
Y5fDT6ChnK1pzMwH+bJS9ZYsR0Uen3K9PW5POW/yGClWO9EudMj7kXLaBW/F
Zsybjy3wyGh3X3dSd/Nhxnr5NojWwu+q5uEtaC/c4e+X3sQvk90B3YWEzefg
pei3nL0RFYpPZm+J3os74M3JzqIzPZ1sD+2lmCq2L2dmSz62qnd5/WnP7+FZ
bk/v1SR4mcdHOVPtPMpYH3xO8cgsB8qFYroBvpS33qMeq17by5p3+LYDdcMD
/r5rz+NwW7KzKwafqT78PdQea+AaP6/yuwqu8n6rOZrb7/bVA9ULT3k/1Jj2
/jXZ3vrdk8yGbCkHy1QP3u91h1vgkZn1UtmI8PTM3na98bPhy8n6r85wFq70
91o+Pgjf5e+7xhbAc/3/A70Pd8Oj/f8B2RhmfZ37o/XVcKH//6A5BZmt0Vqd
+R7VTt56kXpiT95yoFyoZ26E/wM5+yx3
          "]], 
         PolygonBox[{{1304, 1303, 1305, 450, 1316}, {1223, 1222, 1224, 399, 
          1237}, {935, 934, 916, 178, 932}, {1033, 1032, 1013, 250, 1030}, {
          1290, 431, 1302, 1303, 1304}, {1161, 1160, 1162, 364, 1177}, {936, 
          207, 951, 934, 935}, {1034, 277, 1050, 1032, 1033}, {1202, 376, 
          1218, 1222, 1223}, {1142, 339, 1157, 1160, 1161}, {1169, 1168, 1152,
           343, 1164}, {1190, 379, 1203, 1188, 1189}}]}]}, 
      {RGBColor[0.846547793054481, 0.6831656970892198, 0.24253294684878873`], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlmlsl0UQh9++/3fB/iuFpNS0iSZirAVLrH5AjXI0EIGqJKbQemCkFKxH
hMYKpbRqRKsE6e2JCLSFWryA4pGoMTFBRQx+86ACBQ2C0RZIJWoVj2cyvw+T
Z3Z2dmd3Znffd1JVTdnKOIqifUgKOUwjgQOwK0RRf0YU/YVhm3SzXYDsQc+C
zyI5+G6AeTAfmRi7LU/6SdOZ8xiswG+YsUthFXIOvTp47OzIY6+k/Tf2frgK
iRi3Onjb7HuDz5ePjEPGK84EpF3raIPZsfdlIo3B+WRwm/mmkWbaubDF9hX7
mEzNZ3uxvnXqeyK4PVfjO4L7dCoHExWvU/bntIYc2du0tlb4o8Vh7UfhAton
2Vc5PB57Hn7Q+rKQgPxBYnrxGYWv4zeI/ga8GxlCXwJLkaPoNwdvm70SLmDM
Vegz4BkSPcr8I7CS9jzsZbAZWYbeARvo68TnRcsZ7bHY03A87Y/QL4Zvq467
4Jta/1uwD/kWfSfcrfrugTXIefSH4SOqqdX2vwzfn7WPKCeWm8n07aNvCuxF
vkJ/DT6IjKKvgHO1X9t3t9bWA6/QWJsjS2f1Qrgd+RR9R/DcTlB+M1Ufs61X
zZ6BzeRhN+t5Af0iOAm5DPlTtRiCl9P3AXoevAv/JvoXw0akB/3xlPeZTxp+
w5gm9P2Jz5mreadqj9fBS7TOIngKv3b0Q3AHc32Cbx8cjn3sCTgm+HpsXa30
9WPvgAVIaeQX+1Ts9+Vn2zNMK3Y2fTPtDsEHmGeEeZbDybTvxF4ES3TeboW/
Mb4A+znNY3PYPrI0j813v2pdo/paba1mtWo/ZPcJv2K6fqJvLvpq9PnwBvZw
qdUOXq+zNAtOo+92fDLhJtoBe4LPZmQF+hYYJ263/o2613a/p+v8z4SrkEXo
axJ/c8bp3RlQnr+HX9BxGNsBWMf4mHnWBo9hsbbC7+Rv454Kfo6agsewWLMS
j2Gx6uFg7LEOifmKO5sYtbAELmb8CbuP8Gqd4cLg9bC63APrtZ41ti/ka+zT
4I3SZwRfh63nadignFvuyzT/fFihs2pndo7G2nxFqvtUuJl2MfZX7PzTno79
jOUCfRv6opT3mU8xeyxJXJ8N8+i7xfIL18u/Hr6DHER/D67FrwL/x2A37Y+x
b4RVtEux35v4B+F3MIT9c9XF6rNd57wN/hP7HToPy3WW5sFlmmcrayzUuZqS
+H22e92FT47OTAou0Xu4FC6kbx0+18KQ+Jt5Fv048ou9USn/BhWolrY+W+dg
yu+23fG9cJfOzKv2ZiA19o7BX+U/nPJ31t7bO9DP6ltp38wB7Xc//ExzHoBf
0j6C/SAsVJ4t388zTzX6lehj9G7b+92juN2wRe/SozCNXIOeYblU/q0OfXpn
dsLlykMZPKa4LxGnVd+LFpivWGNho2rakHg9rC6n4U0pX5utsQ69Hb0abrFz
bPmxN09n4124gfGV2Otgrepi36uFifuXw/e1zt6UvxdW37zE92P7GiHufYo1
B55W7V4mVpdyYjW5TXfQ7uImxbX4/yb+z5MdfM+29w/x+R/N4gxu
          "]], PolygonBox[CompressedData["
1:eJwtlllsV0UUh2/v3IG2QCExICgkQqQgIMQHxZiCRJSCSmK6IUENFCi4sFht
7cIue2kt+iIRBQp1ARSLoDHGxESiMRaecMeyusRIWTQmjRD9fjnn4Zd+/5m5
Z86cOedMh1cuK1maJknyMsrQf/wYwd/h6DpcEpJkLVyNHoF/YWxCYmu09n7G
Fvp8IXyFsZHwYHQZXhzMdhtqhJ+JfJeTJD3oafhV9Adzp9Bp5ov5/TNzJ9FU
eDpjNcytRxXwC4yl2L3G/HJ4TrA57aG9RjH2OXMfo1vh/oxNZu4hNASeiKoS
szkNvo1D38La8agIPp2a7/1QF/wENq4y9yd6HF6FIuN90Ivwl9j4ibWd6Fiw
M+ls+uZJOA+9D7ejXvBX7LEebkXfwRui2RqANuvsjJ1Cx9EJdBmbPYnFqBvu
Tu1uBqKLcH60s2oP7VWKLri/jyl+/lsxVWxXuP+6gwbFEpt3JBajPvCNfp+z
0J2KF2uOs/ZbdDc8y+Ot+JXDdWgX3Ipq4aPBYqGYfBEsZvJFPsyBaznTXLgM
1fgZddavUSdq8vkl6DW4Kpht5eACOC+YbzPQSHhKsNyTz/J9VbBc60AtcAM2
KrA1A82H7412li40BR6KPoGPoWHw356/iolic5PHVzlVCG9l7FBiZ94ULOer
3b9SeFK03FW8p8FtjH3q+fEB/H1md68c+CaznFRuzkaj4XHBWDmqXN3Omvms
XYZ2w2Oj+ao7GQdfwt+ixGoyl/VHPP7as0P57fa0x6hgNaPa+RcthYu9vrTf
A3CT+6sz6qxve7y0Xzv8pueDfNgL98an3jmWoxFe6PWiGngKLmesyONfCddl
dve6Y931Pj+P7mAPvNvjKx8Uuza/nw60C77I2D/ai98p3+/JLDaKUQv8oPcP
5ZtqYVJmta0avwd+I5ov8ul1+OFoufArmgn/kFofLEBn4LOp8RD0G9yTWS2r
3nJZnwTLRd3BIPj31NYqh/6CV3g+qj81wPt9P8X0Ld0f9rpRl3oPeilY7uqb
Zrgg2tkVg/5wZ7BeqX5wRrWa2XmU4/VwP88n1XNfeGe0s05QPcH3ZcYaK4VX
en0oftvgu7zfq+YWwY96/1bNq/bf0x14vA6ot6lmcmzsXXg8Nm5HY5SrfqYu
72nqbYui5Z5ycDFc5d9rTHNTvd5VX/XKf4/HZ2gffDDa3orhO+ptqfXCfHQ+
NYnz9KbAV9RDPcaKdY3nXzGqhjdio4B1uWgtHDLLLeWYEmElY/mp9Uz1zr7e
z9UT1BvKvP8pZ7cFi/lk7x/58EfY+BAdQUfRFr65IbU9N0WLkWJ1MxqKVkfz
JQ81wuuisXyQL53eK2VTtsf4e6YaV603s2agchBth6+z5prHQLGoUc76efSW
vRJt7WDUCtf7+yof5EtLtDn5vDXaG6W3Sns0wXO9v6vmVfvtwe5Kd7ZX/S61
txRMfoTnef7ozivVK/x9Uw/phX87M+v96g874MOeL1p/SP3E7182KuBm74/K
4Ub4XLDakM1L8NXU7kL1qP9Nlvj7rBg8Bz/r/VBnroXnZZYbypHn4TV+H5qv
g/8HTDspiw==
          "]], PolygonBox[CompressedData["
1:eJwt0LEug1EYBuCDNhIjSUsYmMRAJZgMtZmaaG+gSXd6Ey7AFRgkxCQIoiaJ
GJgtKKukNZNIiedLzvDk7f+enu8/559rtRs7wymlcYo8jKT0Kp9llzcqBYZS
2pCLLFGN1NXkFnVe2NN9yB79LH5/cmjtW5YpMcmsbl5ecsERbd1BnhmzG2zq
mnKGacYY1U3JVQdfYY0n3brsOPc1x9y6z5X88d8z639ywG88c8o5u9bu5U3c
3Z7HPKOTv0N8j3e+rPXlgvfc2bOc3x/n2Ld/W3eS58b8AkXdRL533P8f5Scy
DA==
          "]]}]}, 
      {RGBColor[
       0.8883847560096176, 0.35997478837315555`, 0.17357760067288758`], 
       EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlVtsV0UQh0/37KGGwINgIEIV2kKhiHKRIAYLhruNwUipIiLQEoJRBKUg
WBCBhnJpCxLgCaItpFyexEA1FASBcCl3NIghAZ58MI1C9QElMfH7ZeaBh1+/
+e/Znd3ZmZ3mVy6etigkSdKMUlSTJUknBlbDOrgvJ0nq4Rq0Hnst3IR2Y2+G
G9Au7I1wO2rF3qG5aBt2LaxCFdhL4TPoWdQLfckeeVoHd8HLzNkNF6Ip2B/B
D93WWL2fpwGuQ7XYNfBqtL3uwPn4+ht7LiwmoBnENAh+4edXHFvQfuyt8HNU
jb0arkSfYa+Cn6JK7OXwE1SOvSRYDIplmeaiRdjVcCr6nb3egL1Rn2Cx1XGO
J+FG+Avsh26hu6gL8+/BK77mKrru93MD3UbKza/8+cl9/qx1xFPCeNfU8qR8
LYMfeOy6gwEeu+7ggfbF7lBOMrv7Bvg1vMn8RliAClFfV77nqo//zvMYFMt6
z1tfn7PD874TztVa7Ao4HT1k33L3U/CY/8LH9sj3mBeg0ax9H74SzU8xfF13
g5/X4FvoH+xpcDZ6ijnvKRfEuY3x8bAos/P0grPQb9hlmf3WeBc4OrN6GwEP
s+YEa/fAcfhqwh6reohWAw3wzWhnGxvtm+aUwInokPZVHaU2vgo+jPYu2uGk
zO65BJbxrYo5RXABWoc9MrXz6ZylsCE1n1vhRLQUezJ8G9Vgz4D1qBF7Onwi
s3fxb7R4FFcxLPf5WjchWIxj4Lxo9VytmILNeRk+x+8Cxl+AT0e72zw4k2+d
sN+BZZ5T5bYn37ozHmF7avV/B07h20nsSfBV1Td2aTC/8j8ETvZxfT+Xmt0C
3w3mc5ZqP9pefyh2z7vyPyJYbb8IXwp2PyP1rqO9xya4N7UzNMPvo/WKy/BW
tD7QBkf5Wvn4MzX/D2Bnf196Z3O8nlXXRZ67CXBPtL7RAqu460fqV5nVdT+v
6Q5/d3/BOV4/qqMf9YbRKe0frb9VwA2s78bYJvUu3S9rB8KjqdV/KyyEQxPz
e55vPdAFdDbY2nPoNOqKzgSraeW9EZ6N1t++hcP5Vsr4MOU9mN9BylEw/8/D
jzlHDlyufuK5Vs7vRev/9+EKvuUyZw0c7H7kT71SNaZ/LmszO08t7IjWe/9T
rty/9smi1Vgu3MzvnspnZufTOYfCnMR6pnpikf/uDy8Gm38pmF/5fwTnBau3
ymB1qfpsg0eD7duK6qL18xXwm2D98xA8EiynLfCw20c8Pt29ctPub/y26H7k
71iwnnw82F3rzr+K1mfVB5rggWDv/SD8zvOrPF/wnLah/T5Hc695j9T/h5Ne
P6qjH4Ld/wn0P7xd4fY=
          "]], PolygonBox[CompressedData["
1:eJwtlFlsT0EUh+9/7r0kUg9F7Ev+iKo9JEKkHghKIvZYYokm9thC0NpbLUpL
SZSqomjtlLQiscSeWirWeMGbRERsD5Yn3y9nHn653505M+fMOWcmmbV84jIX
BMEKFKHB/OTxXY0GwaNRA3wbZcKNMWqUCIIWqA08PAyCEuZy0QJ4KDa34Gdo
FDzdmf0f/qfC1XEQVPKtQmfhI2gxvBxVwN9Ds9WamP1rQ9tLe16FZznzrfkZ
8BbWNObbFG2Fr6BrcB2qgQeGFtsqNAm+xFiNMxvZlqKx8Hj0MTSJJ6CDzH3l
/zdrP6Mv8DdiKsd3NfoBl2EzD9v56DC8H7WHO6B9cA++XVjbCqXD3Z1xCkqD
j2JTwrcUVcLD+V5m7jgaBh9jbJ8zG9mWo0XOcqbcTSamY4HVIBtOJ6YksTVH
aXA9yoez0QN4pLNayscI+Dhjy5jLQZXwntDmZHMCHhVaL6gnpsDn8XlOtUPn
4DPolLMxzammqq3GNKecKDeKWbHXRuarAF2DezPeL7Ac9YL/MlbF3GH0OzIf
8nVRgosYy0pYzMWR5Uy5O6CzwDmMTUmYzXrZMt7Z9+tsXxPVpq1yCj9RPVAz
9ADVo5Z+/im6of5FKcobuud7TT1301kNVUu2D7rBM53lXjWYA49z1jvqoUm6
S6id9/kY3fF7p6L7aHds/vW/S7kNrRa6g3VwfmxzWrMttjWpPuZHaENovaMa
FsFFsZ2lpd+7NWNjmJum/lO/+/jVk5/gpdj8I/ZfaDGcCK0+GagJXK68MPcG
HYVfoU7+TM+Um9Bs5UO+fjLWNbA9tNcn3/8a+663wucyga6r9535VgxX4dco
qT3QW/RG9fQ+X/oa6Xwd0XP0wnPSr32HnL9vH4CHvtaq4V2UEdtZdKYh8NPI
erMENcAnGSvD7hA6AW9y1r/qv2x4IRoCZ6IlcHFstVU+9sB5zvbTmo1+D+1V
gargy3qznL1JepvaR9ar6tme8Cm9kVqHTscmsd5QvaVrY8udcrgutp5I8T2b
B7+P7Cx6sz5GFpNi0xu1V/fF2Vl0X9bAa52x7tBKeICzXlE9+/s7qLt4QYIL
YsulcrodLnTmSz7z4bmR5UY5mgPvjM1WOSqMLQfKhc6os+5wdvf1BuyC+znz
rZ7qq/529pbpTdvsbCzD91cfH5NiU06V2wJnsagGuaqJs7dbMe509mbo7VCN
Vev/+F/X1w==
          "]], PolygonBox[CompressedData["
1:eJwlks0rhFEUh+/ceV8pdv6CmYWwscHCDFKI8VGm1BTF+MjKjDKTwUrIBsk3
k2mmZFJKFqRRlqKwk9hb2NhY0Kw8p7N43u7vd86599x7Xt9oPByzxhg/uHDI
J4IxAL9o6xjz6DXmi3UfXjc8oAvwgteD7oV96lLkRj3GzKCnYRZdhDzeBnoL
sq7Wyz4heGaPe3QZ/iZ6HU7JL0VXwQF6Fwp4laKhHx2GP2q/qa3lDD/xMbwJ
OCJnGM5Zn8EnsSF0ltw7atrwGmVfvJCr8Tz6BLrQexBk3QQ58uepq4EI6zq8
etiRd8JbwgtYzZc68SXeAAli7V49R85rlfvjreGN4P1w7oXVPqXfanjCS1u9
t9zf4W4VeINW5yLzacEL4E2ix6EZnYE5vAV0Co4dRdZJq3NJo99hGb0IK3hv
6CR7lqBv4Ub6dnV2MsMp6CQv4agv8SsoypzRl3At8wEPxFztR/qKgo+8oKPv
Ku+bg1e8DvQHfpr1qtWepLdyV2e9bfV/kP8iA3HZW/5LmTN5/+TIVUI=
          "]]}]}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwV0UlIFVAUgOHrhKG2NqNNG+0V1Cba5LCwgdo5UYvABiIItCDFIYkibdKn
pmWDafrMShs1XpF7Q0HcloK+XRsph00kCH4uPn44HO6Fe3efv1JanRRCiDOf
HMIvFknwmxVWWSMpJYQMstjODvKIsJdHaSEc1eNUcIrT9Jg3ahNROhhimK98
Z4In9hL6VP/qCmmpIaSTwy72sZ8DPLfXywv66OeCeSPXidLOIDHifGOGWRZI
sMwqG6wz4JyXxBjkFUO8Zpi3vGGUEd7zjo984DOfGGeMaq5SRz03ucUd7nKf
B7TTQSfddPGQKG20co8WmrnNDWqp4RpVXOYiZ6nkDGWc5ATHKOAwB4mwh1x2
kkUm2/jvPf6xxDxz/GSaScbop49eWqmnjhrOUUkJRRSST4Q8sknlmbuS9Y8/
X2KBaab4QZwvxBjg8dabaDkNFHOJQ5SRyxE2AYKTYt8=
          "]]},
        "4.5`"],
       Annotation[#, 4.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwV0rtLFXAYBuBfWuJRsCEwoxoCRUkFQUQRpYNBOSTICR2UQg9eMRIFD5o3
aIkuBI6CQ4FWU5hI+AcEgtYoJB3FLDFCLazBwdLH4eEdP16+90q8N3b/VAhh
gS8pIayywVe2+cEf/pKSGkImWZzlAgUUUkQ5N6ilkSaa6WKYMZ4zwTSvecMC
S3xkg01+sU/a6RAiZHCRqxQTpYbbNBCnnSFGecYEL5jhFfO8Z5lPJFlnj98c
8p+sM/pxicsUUkQ5FVwjyi3qaKCRVuJ00EkXvfSRYIhxhnnIKCM8oJ979NBN
G3e5QzMxarnJdaooo5QS8sklhwwipHGgzw4/2eYzKywyxyxvmWKSxyQYoJ8W
YtRTRzWVFJBDNudIJZzc8rN1kqyyyAfmecdLnvKERwySoIM2YtRTQ5TzlBEh
j0D2yT7sMV1uySP+ccgeu3znG0k2WeMYp1xcMg==
          "]]},
        "4"],
       Annotation[#, 4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0j0oJnAcB/A/j7dFUV7y0um6Y7hIjyQvpR65gavHS8pLGDhdt6AMFmIh
TIrJInWZrhSDZFN3XZRuMjApg5e7Qedd6T5l+PQdf99+fd8OjLQPJ4QQ1viT
GMIjVzxwyS0X3HFPJBJCEhnkU0AhZVRTQy1NdNNLH1+ZZIpFllhmnW12OeCQ
U8645oZb0pLc4w2lRInRSAedfOYLE0wxzSKrfGOLHfb5zQmn/OUfz4TkENLJ
pIAiPlBGFTXUE+MTcTpooZMuBumhmzZa+UgjDdRSQZRyiskjlxxSiXCnzwXn
nHHEL36yxwbfWWGBOWYYY5R+WojTTB3VlJBNFhkk8OLHl5xwzBE/2GOTDVaZ
Z45ZxhljiAHaiBOjnkoqeM87sskilRRe7ClZPsunxNf9/Qc8Dk53
          "]]},
        "3.5`"],
       Annotation[#, 3.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0T0oxAEYBvD/cSYD7hhxR9ZzyCBkUIojZVAGCqV8R6wYfIxKKaUsBiEy
SpbrrLoUMYooq48oAz8ZfuPT+/S88aHpnqlQEASLVOQGQZwoMSKUUkQZ5SSo
ppEOUnQywBjjTLDEBpvsc8Ah51yS5ZEn3vjki/ywm5STpJZW2uiljxFGGWOB
dTbYZY9TzshyxT0PvPLOD6G8ICgkQhlRYsRJUEkFJRSTR5gcPuSfeeKRay7I
kOaIQ7ZYY5VlZpikn05StNNAPVVEKKLgr6c9vnnhjltuyJDmhGN22GaFeeaY
ZZhBuumihWbqaKKGZO7/338BODE8/A==
          "]]},
        "3"],
       Annotation[#, 3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], LineBox[CompressedData["
1:eJwl0EtKQmEAgNFfbGitwUc7KHIFUtMcRQaKI6G8V5egtoN8lNi8olZQPpZQ
6hrUFQSJQQcanPnHl6nGxSgRQjgnSoZQpk6FBk3adHjgliEjHnljyowFS9Zs
2LLjl4O9EHIccswJec4occUNETEdevQZ8MKYKTMWTJjzwTvPPNHljjYtrqlx
yQWnFDgiS4Y0+6T40fvNijlffDJhzCv3DOjTIk7+//sDnqQvOA==
          "]]},
        "2.5`"],
       Annotation[#, 2.5, "Tooltip"]& ], {}, {}, {}, {}, {}, {}}}], {{}, 
    {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
     1.6], PointBox[{{1., 0.847163868861284}, {2., 
      10.166365109167797`}}]}, {}}, {{}, 
    {RGBColor[1, 0.5, 0], PointSize[0.01], AbsoluteThickness[1.6], 
     PointBox[CompressedData["
1:eJwtkmtIk1Ecxscimpvp1jYvRTrTTJvZZZVauf+hKKUs2/uhIqTI6GIZGdht
YhKxrJQmTjRNbGWhIo6yRI2gsL6ESQSK1gfz0gd9N917m5JGp52388Dh8MLL
7/yf5/nH5V9mzigVCoUleMjdUE80DeKyhZMpGcnIZ+uJcXinYY/7JsY4EVnV
w81FmSy8aWyqlDxmVNUXSMpzsmCqKWUxTkATdoMna5yFAw2uVmtKMtpqIfKC
xTPYWaZJQne9MhD2zA3u+FQQj0aCNPWwF6Swg9+rHq5ByXnOINEHi0OF97sN
a1EJwdl94BoNPo9NaOALkQ8mpyD7L45FsQ4CnAGGER7t0pvQlUwy4AxMM/lN
GK9GH8l4fTPAqnIx+TYSnGEWmrRtR5nHJnTuLNEsFE9c72pRmFBvDAHOgmtn
aVa7MwZpiF21H6bI8zgayePl+eFS1/b1ZeaVSMZ5/PCCeW/3PI1CClkcJPz8
Vf56SxT1w0F6r1X1VYpGDHFv4+BwXIdYEB9N/XFQ+fl24NjxKPScxNHMQeTQ
wt7z9gjql4Mf/WMjGBvRHLET4MBtTs1Rboqg/nmYHG12seVGlE3GyeIhrWR+
HmM9zYOHxVJ/UZvegP73G/z/lS2Sfaun+fBwz52mfJKqp33zUJ5vWnpVtYLm
JQB3R+Qw1tH+BeBDWkoa23U0PwG+jddeSN+mo/sggNLKXAvt0yLZbo8AJxSn
Ezcf0dL9EKC41ditGglHMk4tAq/5w/Zrw+m+iPBb5xgbOBRG8xbBGZtZuKFm
OZLtOkTYHZ6b8WAslOYvQmSAraizhCIZNyzCqur98YZKDe1DAl9OyrqNPjXt
Q4JT9XWdF21q2ocEz4orklTvQmgfEmTUVE+Om0NoHxLcsM69/OBW0T4kuNWx
b0mtQYX+AWBviU4=
      "]]}, {}}, {{}, 
    {RGBColor[1, 1, 0], PointSize[0.01], AbsoluteThickness[1.6], 
     PointBox[CompressedData["
1:eJwtkltIk2EYx1exzW1qbm6WpnNLnWmKmYeL0XyeUFhhIJpILSmRnIGpWVFm
qRlOjBVaajGpFDTQUd4lSwWndaF0sIjQMIs8lO7gvm/7TIhs+c33Dy/v3Y//
4VEWV+aVbOdwOCmbj/07TaxWoDnqxdFJdSw6ci1yg30F6m7PDHu9KswQTvdc
0NiAZvKPT/BU2Dq+tq+wxQY6vfqX1xuN8zXSAe0PG2TdlAgbNdGYmsLKDjrp
2azuiihssvuAMDqnoCTmvTizSRNO26H4eW38G0qJcYUtm0QHHDv44LxZo8Tr
LK7GAWq63bjQqsB3b1k5ICtxqTSMo8BIAwt0QhG3LbP3ixyrNKxBJ9wxJaZ2
jEXgK9beuBMi9EpHuCUcZSxOugpaylkeN7IHS/WsVsHd3dU5yA/Dl3IWuArM
geL4yyuhKGLjCl1gvqQy9QlD0Wev0AUZXdzajMzd6MMNuKCJiTWH1u9Cjk8U
RH59YtaNhpA8FJiySwyT4hDMY9PnUmDrTRb0oIzko2DHyYTS9ddS7GXr6KEg
UbtB98VJSV4KbtX73+N0BONvNs4aBVPfIiV6XjDJT8OV9KWY4ToJHmHtaGno
mg//fuKvmPRBw31FQaDqmhi39qVh9gPz+DRfTPqhYY67/KizPYjsTUOaa0CM
qiDSlxu81qenjNU7yf5uGCpKP7f0LJD05wbBw4mf1uUAcg9uGEs2/ruYEIC+
uBY3lJXxDw9e9Sf34YZIq0xdMClCH07oAf+qtJwypYjciwca1ca7f+qEpG8P
5B8S6poXBOiLa/BATMMNb26agPTvgQbLJ1nliB/6cNMeoBbNH9uS/MgeDLzP
y6ar+/lkDwYqzuBiYCyf7MGActusaGc/j+zBgPXzfHlOEo/swYBzHaL3D3Gt
W3swIKf4G1NaLv4H/f13vQ==
      "]]}, {}}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJwtkntIU2EYxoeEzq15mZvXnHOo00xDtBBv72sp2mXoRMJKIqslGJFaluga
QSxG/qHYH5kRGCpKmkhiLCShLUxBu9cSJdKM0t3ObhGWnfadvgc+Dofv8Dvv
8zxv4qkLVZoAHo+X7T/k2XuHaB3kVxavsmwK2tRGmd66DlvDHycrHyuxSGDp
byzcAPXzdO1kRQp2mXyptZ0bEPT93cH6yGRcbZOMla1sQGN5160OXQrmZBNZ
Ye0Q2sznk/CGlQPCr5V842xrEn7y0wQWKyRnNIuGBApMq+30E20Q7db9ZdlE
bCe4NhvsqRx8xrJyXJgnssHFB3GbLJuACXoCtMOA9f7TijU5NhWSAe3QdNvM
smw8msl4JjtMX/9gJ+9SgpM4wBGP6QV8GdafJXIAr2RQ074vHp/ICNAB2Drf
oy3egUJiV+CE/GXrVMfpWOTGq3WCIbA077cmFjncmBPixEYjeKORx4mBk9Of
/f+Pon4YyNId2Jp1RGEVca9mQLZg8n8gpf4YWFTXJXu1kThA4uhnILtnVMF/
LaV+GbCMhu/NipHiT2LHx0DBMcnNvgwJ9e8CpTgzZtwXgeVknDIX/BE21Cs1
ETQPF3T7Hh4RLYnxf78uyPzWovxaLab5uGBEJd82YQmnfbuguFhVGnAinObl
hjNzy5u9C2G0fzeY3vTMsGwozc8N1UOil12iMLoPbqi7F/y26nAocnaNbti5
uD/XoA+h++EGR0BvQ82MCDmcwAPNES+WtCEiui8eUDkFE+dqttO8PaBTqd7P
PxIiZ1fvgdiOvm59iJDm74Ef1xS83Y0C5HAWDyQJ+WCwBNM+vJDzqmSkpCiY
9uGFzanLR++Oi2gfXuDz4/iaXXzahxeOt7BzzcNBtA8vrOamf7mUGkT78N/n
GdLMo4H4DwI1f6Y=
      "]]}, {}}, {{}, {}, 
    {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV1Hk41NsbAHDJTd9R1pS1kOEqJltFuc4xLUoIKZEYCoWQJSNkKKkoirQj
ZE0pokWWyb2EGLKkEHLVZDAbuf2i3zt/zDPP5znnvOd933O+R9M72MlHXExM
rAV+ov92YkX2rVtsdGHFfa97gbpYoi5186fbbLTJQ3rryHFdvDVciqV2l412
pafakv10cdGQ+KKcLDZi1L1b9chLFydU8LwL8tjotIb5XuYBXbzxcIdORRkb
OUu0Wc1gXXy3/NKjtgY2yt03ujFRURcHuCyq/c1mI45sp6tdnQ42H89brWf1
Hc3xcvgekjp4teH798nXvqNw+YffDnqScbuXdd/+0e+oYL2DnmqtNn7cHaL2
xWwCjZGqlqgoaONCcd2q4osT6HtndqB+5FrcefLaVZORCfQ09FTghi4t/Hcz
9ZX2Zg7ySOs4hUy1MOtjnPneJA6yrSArXMzXxMsoof9ZDHHQeKy9Ud4yTexp
wVt+dMMkoj/tbU1K0MAxxs9C+GcmUb2bbfKm+TW49ThFcXvPJGL8bYAqxldj
I3dT6Q7yFJLo941Q+66Om1Ond6nHTqEPN4t9qMNqeF3pdGdX1xRKa7c33vtF
FefFxzxu0JpGwwE7mq4vqGC7W7XtYVHTCFf6l7hIq2DpwMtUz5ZpRF/Y+DZi
ozIWq1/6a4kcFy3lKHZEOinhob8m5+UsuIj+YH7H8+hVeJeyUon5UXBwjV3O
y5V4z3X1H8xULkqrDOnQ5yni/qDjU8eecxGjssE5wUIR29b0pVCHuYjb/cDQ
9doKfLBEoy1WiodYnUZLLo0o4OmZx896THiIZmxc+nGbAl4zqoxTPXmoPNJo
lJMjj02pBSdjLvEQpv/ZQhDyuOc33e78Ux4yC24j0hPksIyHTgtvkIcYicXG
9+ZkcbeyCi9qCR/tWn6xcWOcLD6z27BuI4WPcnZKrVOXkcUNypqUfa58JNaU
HxW2RQanWh+0vhzPR/iv2aCocGk8q+i/SK+MjxxKvaaqypZjthXTZ6SHD/1T
91y8eDluGLE4+W4exhPWhGUfX4aNta6pq+oJkEZrS+bnLilMqTcIT3QUIK6n
oOmjsxR+s5AX4BgrQLL9107ZDJDwX08sSI5FMN/qyKzaKRI+Y0CL5oHLJdxl
a8NJuLb4LOdqsQCx0goIWhgJW+a2tHeVCNCwuNHtghBw+sF05zKIb6dqYhkA
jghXO/hUgGiMHdtv0EgYmz+keNZAvP3cL9w9JExtUN13giVAIcxsJSqZhCWK
mDaqnQLkcNfFSFybhJuuHKe+BdfHZjm80SJhW/dqI/J7iOfSn7tLg4QP/HCS
HeyBfHwWZ3qqkrC/waV3tp9g/vSf1bVyJHz11py1/rgAGVa/GLP6TWBnRjb6
CKadc+rQWiDwSr+dmy98hXpdT9dLzBP4tmmGztg3AcLKkVWtPwmc37Hhj7sT
UJ9Qm+czS+Dnf/gxpXgwX9npfuskgYdP9lhM/A/yVeRzDg0SWCmUXHj5F/Qz
+e7ZoAECO4ZGyBnOw/jrNb/jPxGYGao4Hr4A+Rwszy/tJ/CDsP2pC2JCxPD5
WUz0Etg/omdEbokQiQ0b3eO2E3iG3nPeTFaIHJwpOv4NBKZEkXkfwRqeXJdb
9QT2jYo4FCsnROU6yUFv6wj8IUrRkCkvRPUTNjb6tQR+eXp//x5FiGcvePXr
JYEZMT3rPVXAoV+TmisJTGL0sBK1Ib75YaZUMYHlSUyCTBaitKHxVYeKCKyS
8YjaCOaG03aXFhJ4fVFSpbiuELEi1mL7AgLbssxvxulBvKZvMVl5BL6ikeUZ
RYF8CkNMjmVBvAbfqUAzITL0jsjIyYB4e/bpLjOHeIbzflJgrR5EKxWZG74q
Mp3AJmylLvYWyH+7KcnxGpyXXOsz378gvgXfUiaNwJleG2JpVCEaPhbwb2Uy
gZXF56ScbWH+KyedB2fhvGb9WsXsIP+4D+s1wZSJvktlYAaFapqVQODt3dWE
5F5RPxrs7sQTOKggUvKlI8RLD8q7H0fgNzY/xDVchIi2JbF/KJrA9siP2Qau
f7J7eQD4g0lffNRB6NcK/ra50wSeUqsWe+8K8e5MvVAEK02fWkh0h/HHmc3u
dAKfSJ/9b8JLiHL4uSGqEQSeS/J9cdMb8lEv6KoOJ3BCTC99xxGIb3J5837w
TZ+qH1lHoX+akqT0MLgvm0/NOPoJUYhESadKKIFXDcxwqwNh/VjphFswgXNZ
PuVHTwiR7JvJaEmw/t89wXJBcD4pCjLPgghMffRsyj8Y8hslWSqAAxkRHPVQ
uD/pRbWfAgncoD3z9WwkrJfNsbnnD/sZS6uQ6TBfNYjhITLWtf0HXO9WdEMD
3OjuWr70NPSH7uVfeJzAzRmv6ZdjIF/98Zy6YwR+m9tbQomFegcVR5PALeXT
Ax1ghzdPJBzBrW2aVvJxEN+AMvWvH4HbJc4TN+JhPMrcSQXcIZ+91SwBzGrJ
YvsSmKXx/EQ/WNa9ue0FuNPie6fqOdhPbuk7d3B3uP3tnPMQb/aWR5kPgXsS
/NqskmC+IKXqLLg3jbEwCq7X5ky7gfsePvUmX4R+6kwvWQb+OLZyfUky3L9c
yX/oRwn8ib/h8J4U6N8Od70D4AGx3akccI66epApeFAtWkC5AvUHfLkjOELg
oXUZZBbYYeTbuW6RzcpcTqZCPilue6vAw86fX1WkQby4hAsx4BHvuUnnq5B/
s9kPGng0RE5jFszYech6J3gsZds5s3T4XobHkhXAXxsLbV9fh/kppILn3gT+
1lV/xiMTHK2lkS/ycH/5bzAjuyA6Dfz9l5Qi9SbkkyjoDQBPkMjWX8CG1jW9
bmCOkmXUuVuQnyWv2gY8ZRoy+M9t6M/b7NUG4GnqRZljdyBfD+X8NWCuQ64V
cRfq//M3SUFkj1dhJWANXcd9kmBeYPeDPfdgPzeZ2F9eBOafnuzjgGlM8wt8
kS8sIV3JEr1XrHA2WJC5xmJDNuRv+J46AhbmmwWxwKxNVH4/uEKsyPNcDpxP
EqWrCxzqvsrR7D7Mfyfe2gY2en6eygFjom6gCcxVmDXJyRV9r0ckG8GPg33I
znlwnrRpmwZwUGv3yqX54JgjhXVgA93tS2vAtCt1aiJzEir+C34A+11fXCpy
6ZDWxNoCeA+ubnASrfffcm2gD8w6u01eFF8vc1F7ciHsH4AmRPt/44XUoSKo
b9faQVF+hXbD5QJwmsr0V1H+vsV7cwuL4XxGc6U+gsl/1KUfKoH42Za7RsFj
NEqiTCnU58S8NwHOq7l36g1Y7H8Gy2bB3krLj0U+hP1vxqcvgn5rhse4ri+D
cf3XJtLg4Y4Jm8/g+sphjio4e/0hi/RHMG7CqV0H9khqMbB+DOMFn4u3gAcs
i2Ufl0N+QWdaDoPv3FYSP/IE4jP1xE6C3WaTBCufQj+WvbZPBH8o8+09UwH1
Me5segK+QfQ2GVfCfSoZ72gGH/DZ8WK8UnR/lBNGwN1q2nftq+A+sDcbrYT7
m05PvyxeDf1ia1GMwU7d4nFV4PKhmW17wazkEa/VLyB+yb6XKeDUrw77ukRm
DKmUge231W8//xL6t8cxox3c9jNLd+oVrGdOda6A7zH5gLRybo2oHuVMc7DN
01jSgddQj4x+mCe4+bj75OtaOH9jgv4I3PhBueJyA+T7M/ehK3z/Z00v5lsx
Yb3TcrMkMDVt7voMuDzbc+AZuN66j364EfqhUhO8Et6bmqoMS4MmGL/q3DAG
jpaXMBwBG15fUFCF92tLUJjm9WbI/0panBP4OdlJYv4t7EcLvN8IjoxvmClv
gfEtVS6/wZsGDb8ebYX3ivimsxXeR6FZzgelNrif7xbJ0MEVGTItbWDDpMWy
VeD/A/bc4kk=
      "]]}}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"Rb\"", TraditionalForm], 
    FormBox["\"B\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0.8, 1.3}, {4., 13.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6148483575112767`*^9, 3.6148499594522495`*^9, 3.6170063894463367`*^9, {
   3.6181476061071963`*^9, 3.618147607891465*^9}, 3.618211260687329*^9}]
}, Open  ]]
},
WindowSize->{667, 669},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.4399999999999, 841.56}},
Magnification:>0.95 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1500, 35, 151, "Input"],
Cell[2083, 59, 16006, 273, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18126, 337, 647, 16, 51, "Input"],
Cell[18776, 355, 21750, 369, 231, 17087, 292, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[40541, 727, 585, 16, 47, "Input"],
Cell[CellGroupData[{
Cell[41151, 747, 328, 8, 30, "Input"],
Cell[41482, 757, 632, 11, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42151, 773, 850, 20, 51, "Input"],
Cell[43004, 795, 27556, 464, 231, "Output"]
}, Open  ]],
Cell[70575, 1262, 582, 17, 32, "Input"],
Cell[CellGroupData[{
Cell[71182, 1283, 1119, 29, 211, "Input"],
Cell[72304, 1314, 564, 9, 29, "Output"],
Cell[72871, 1325, 566, 9, 29, "Output"]
}, Open  ]],
Cell[73452, 1337, 141, 4, 30, "Input"],
Cell[CellGroupData[{
Cell[73618, 1345, 857, 22, 51, "Input"],
Cell[74478, 1369, 39179, 677, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113694, 2051, 3267, 96, 351, "Input"],
Cell[116964, 2149, 53270, 944, 216, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170271, 3098, 2079, 64, 175, "Input"],
Cell[172353, 3164, 531, 9, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172921, 3178, 459, 11, 30, "Input"],
Cell[173383, 3191, 6137, 111, 236, "Output"]
}, Open  ]],
Cell[179535, 3305, 831, 24, 91, "Input"],
Cell[CellGroupData[{
Cell[180391, 3333, 4339, 116, 398, "Input"],
Cell[184733, 3451, 328, 6, 29, "Output"]
}, Open  ]],
Cell[185076, 3460, 1388, 41, 150, "Input"],
Cell[186467, 3503, 1248, 29, 111, "Input"],
Cell[CellGroupData[{
Cell[187740, 3536, 599, 16, 51, "Input"],
Cell[188342, 3554, 25181, 465, 231, "Output"]
}, Open  ]],
Cell[213538, 4022, 1060, 28, 111, "Input"],
Cell[CellGroupData[{
Cell[214623, 4054, 4167, 114, 398, "Input"],
Cell[218793, 4170, 628, 10, 29, "Output"]
}, Open  ]],
Cell[219436, 4183, 927, 23, 131, "Input"],
Cell[CellGroupData[{
Cell[220388, 4210, 6391, 167, 674, "Input"],
Cell[226782, 4379, 572, 9, 29, "Output"],
Cell[227357, 4390, 572, 9, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227966, 4404, 185, 3, 30, "Input"],
Cell[228154, 4409, 1545, 34, 205, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229736, 4448, 547, 15, 71, "Input"],
Cell[230286, 4465, 307, 5, 29, "Output"]
}, Open  ]],
Cell[230608, 4473, 550, 15, 51, "Input"],
Cell[231161, 4490, 1060, 28, 111, "Input"],
Cell[CellGroupData[{
Cell[232246, 4522, 4167, 114, 398, "Input"],
Cell[236416, 4638, 204, 4, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[236657, 4647, 261, 4, 71, "Input"],
Cell[236921, 4653, 268, 4, 29, "Output"],
Cell[237192, 4659, 268, 4, 29, "Output"],
Cell[237463, 4665, 281, 4, 29, "Output"]
}, Open  ]],
Cell[237759, 4672, 1279, 36, 109, "Input"],
Cell[CellGroupData[{
Cell[239063, 4712, 990, 23, 111, "Input"],
Cell[240056, 4737, 322, 5, 29, "Output"],
Cell[240381, 4744, 322, 5, 29, "Output"],
Cell[240706, 4751, 324, 5, 29, "Output"]
}, Open  ]],
Cell[241045, 4759, 405, 9, 51, "Input"],
Cell[CellGroupData[{
Cell[241475, 4772, 344, 9, 30, "Input"],
Cell[241822, 4783, 302, 4, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242161, 4792, 1684, 37, 91, "Input"],
Cell[243848, 4831, 122, 2, 29, "Output"],
Cell[243973, 4835, 124, 2, 29, "Output"]
}, Open  ]],
Cell[244112, 4840, 1345, 35, 51, "Input"],
Cell[CellGroupData[{
Cell[245482, 4879, 670, 15, 51, "Input"],
Cell[246155, 4896, 51874, 915, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[298066, 5816, 495, 10, 71, "Input"],
Cell[298564, 5828, 9370, 193, 68, "Output"]
}, Open  ]],
Cell[307949, 6024, 385, 12, 51, "Input"],
Cell[CellGroupData[{
Cell[308359, 6040, 1412, 37, 111, "Input"],
Cell[309774, 6079, 10604, 212, 68, "Output"]
}, Open  ]],
Cell[320393, 6294, 477, 16, 51, "Input"],
Cell[CellGroupData[{
Cell[320895, 6314, 3125, 76, 407, "Input"],
Cell[324023, 6392, 329, 5, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324389, 6402, 960, 26, 71, "Input"],
Cell[325352, 6430, 53166, 935, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[378555, 7370, 32, 0, 30, "Input"],
Cell[378590, 7372, 4431, 105, 220, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383058, 7482, 457, 11, 30, "Input"],
Cell[383518, 7495, 1857, 43, 236, "Output"]
}, Open  ]],
Cell[385390, 7541, 127, 2, 30, "Input"],
Cell[CellGroupData[{
Cell[385542, 7547, 464, 10, 30, "Input"],
Cell[386009, 7559, 274, 5, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[386320, 7569, 1179, 31, 91, "Input"],
Cell[387502, 7602, 68589, 1163, 356, 43794, 756, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[456106, 8768, 430, 13, 51, "Input"],
Cell[CellGroupData[{
Cell[456561, 8785, 2577, 70, 386, "Input"],
Cell[459141, 8857, 205, 4, 29, "Output"]
}, Open  ]],
Cell[459361, 8864, 483, 14, 51, "Input"],
Cell[CellGroupData[{
Cell[459869, 8882, 2577, 70, 386, "Input"],
Cell[462449, 8954, 200, 4, 29, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[462686, 8963, 1746, 44, 131, "Input"],
Cell[464435, 9009, 46098, 798, 356, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)