(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    126244,       2449]
NotebookOptionsPosition[    123495,       2356]
NotebookOutlinePosition[    124088,       2377]
CellTagsIndexPosition[    124045,       2374]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["PRob. 12.3.19: Clamped/Clamped Beam", "Title",
 CellChangeTimes->{{3.443973175040408*^9, 3.443973190759158*^9}}],

Cell["\<\
Here are a few of the details discussed in class realting to finding \
eigenfunctions:\
\>", "Subtitle",
 CellChangeTimes->{{3.443973195556033*^9, 3.443973216837283*^9}}],

Cell[TextData[{
 "Find the roots of the characteristic equation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "b", "]"}], " ", 
     RowBox[{"Cosh", "[", "b", "]"}]}], "=", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". (I will use ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " to represent ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"\[Beta]L", "."}], ")"}], " "}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "Start off graphically."
}], "Text",
 CellChangeTimes->{{3.443973226384158*^9, 3.443973358212283*^9}, {
  3.443973442196658*^9, 3.443973495337283*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "b", "]"}], ",", " ", 
     RowBox[{"1", "/", 
      RowBox[{"Cosh", "[", "b", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "0", ",", "15"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44323838046875*^9, 3.443238392546875*^9}, {
  3.443363593921875*^9, 3.44336362778125*^9}, {3.443973499337283*^9, 
  3.443973501946658*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[3], LineBox[CompressedData["
1:eJwVmHk4lF8bx+17VHZJjG3G0oLsOTelhRJS0SolSZESpYWKFioVCQkJWVpQ
WZKOH1EkFFnKLgxm5hCy8z7v/DFzfa7rPOfcy/fMc75Hxc3H0Z2Hi4urmfr6
/++/9spPauFRFnvmF6gPQQ0Jcuctm0+ju7v5agYoBulaN7nmq+jC5jcmzymW
+b1EePGG24jJ8FxvTLG/fWYTb/MD1NmDh+LnCTr05mvmwp1HqJV1V//nHEFb
ZdiXZtbHo9jNQ8u6ZgmKN7+RPnMxCUVf10wrmSFoCUf2wVRTMrIqqa8/M03Q
9cT0CxN6qehrdHHa9CRBs/Ym7uN3nqNnq4eVd04QdJqnym6UmYEyDd9uuDZO
EPPNHuOR9S8Q9/cIqdBRgg64D6mQhFfo5rONkXtGCDou+jH038VsJF7VUsZL
COr4YOcz1pSLokqqN30fIChOWvbIGf636OnkoeTxPoKcvDuc/+q9Q19sLIrZ
PQRVrThlNXwnH22z/7XBpY2g0HPGRj5FBeirx/v31S1Ufb5z6XCYheifE41X
qpGgvKv3pVnrPyCjVyeUlWoIOvXbRcTLtxiNvXbh6qokSNuAtjCQ8BEdeNbz
JaCcoLrTLmOjF0tQ+LkQHZUPBG1UG2wbaSpFv085TB5+TlCKvZ1zjncZijD4
/rPiKUHcl3J/nOL/hBgb79TPPSbow8/Az0SvHPl2SdgzIwhac0M0h33nM+rK
7zTPPkvQ3Tc+2i/VvqCpHaYi77wJYnXUp54o+oJ+/ky1uOtBUJpxfNwQsxI5
OMfzfXQmSHFQJ2RgfTVy0k1iSJkQFChzfz79VzV6IhnoWLyaoCar8XPHfL+h
SVUXYzM6QQ8eF5/sT6hBHyejj7+TIShE43nW34t1yHrQrDRlhIOmmoweDjf9
QHUW674GJnJQgZ6Q63NGPXKYy4q+HslB/neatQ5cqEfRT4Zuud7goL9W50u+
KjWgR1ZHjYK8OWjw5fuhNPefaOeOjyxPUw5qvbbOav9oE1ouzVcsWMlGce2L
FklZN6NDT8LnFwrZyNmkvakquhkZ3b5c9TmTjX5yLp80Nm1B4Y767hXhbFTj
UhIjeeUX6j3e73PVlo1KVq0nleJtaE/kAe1FpSx0OUzyfbBrGxJ9qeEqks1C
5r09IUa5bUhtzUBd8xMWKowLUUjd2Y76h23bBs6xUC5/hXVwfAc6Fpz6t0OH
hX6cVLNbJt2F1pUdjzC6PYTK1j9P+Z7cg57s7SwMYgyi1XdfD0x86UFRT+8e
OSs5iBKa81cqkR6kOR23YD03gM6d/FJw3OwPil5LCz1XN4BWPhqo5m34g44r
ZW3TODuA4ga1x9fy9yGNsrMX/8tnolP3s63jPJgoI2CY9NL6kWJHYZ+bDhu5
nT+3hie2B3GN+sZUOrDRKc7bL4cv9KA/Alo2qwPY6EtvZ2nm/h70cmXcy7n/
2Mh0IurqgEoPsrgc6Bezm4MuXKZnrMzoRgeXm/HUXCWo+d/hhpncLvRdt/1u
PGsY1XWfWffQswNJnTiYKbh+FMlIRovUjjeiB2s2FtntnEQiJ5JOtzzIQC0x
q0tGFs+h2tBdkt80anFcfZaEv/ocklrx3rOvvBbvEdc8OG0yh+aGKkvc9epw
67Xl8zyH59DUev9T03V1uNNbxFzq3Rxqyts4XC/2AzM3/Mk3dJlHJ866yzRe
bsCTw49eX3i6gFbeP9MdvbkFh6cE1fLIcwNt/tHRIe0ubGPguVRalRvqTUQN
W7d1YaFPjjs1dbnhgUhJTI5PFw7pUf9ta8kNHnFPLIXfdOGLtOq+KE9uUP4V
a3fUuBt7J8nNa7znhk/nD+zMWNeDHeJzdGz38sCGsL8lrNW9eLHOY5/97jxg
J+f5QHR7L64pCsn18eGBd9XOCUIne7HN793GUdd4IHNR8fP49F5spTC/vi2L
Bz63Ku/VVOrDBjE2e31meWB/gPa3BJ5+LBvVcyvyCS9wZ6+ranvNxHLa70Im
03ihTlsq5t1nJlYovR60P5sXCotmTLw6mFhpmHFWs4wXks66B/iID2D1radc
i5i8UH6oxb75+ADW55sz7NHnA7XHN9sklg9ig8c1azav4wOu/jfceXqD2FAv
SeflRj7Qj9/Hb7x5EJu6rqcFuPBB/Np3BrWnB7Hlh1uLRIP4YNuZw9ybKgbx
dj+ZP3pVfBB8o9Vj/dEhbC/KbH9UzweVX/VF484PYcfkwpbZVj44WQxfq24P
4V11+2orCB98P/3T6H3uEN6v8+z9Hml+CHJrHfw2O4S9/qy6f9WVH9arfkrN
vcXCJy5w3+735Ie3fD7KiXEs7L20/vrWM/yQoGTJOJLFwqfB/6LMdX5oNl9y
K6Cahc/Hf/DIzOIHu5/2gv+JsfENpy0WP/7xg5q9S/fXUDZWeFujwMMtAIYd
tw+deMjGrySdJtaICsAu5xxmawobN/44kH1/hQBcOzKRqVvGxmoOfjSHzQIw
8vrdzvA5Ni7InpoPdhQALdbdYxmiHLx1cdDv7H0C0NWQVBYtz8Fnam9FLfYV
ABdXz8l2Aw4u3ZYoUBcrAJK/8QTNk4N3vVTrWXgmAGNDx3oLznLwoFgmXvVK
AAaOOfgsv8rBS6rfnosoFQCxNXWCjnEc7GpTNWg3JABZ11N0PL5w8NzG8Zpv
5oJQVBu8e80ygu+lBWbNbRQE9dHldulqBKsJcN3UdRCEEy92lLN0Cd5aLmJ5
x10QHrngqTZEcNx65Tdb7wqCVb7Q4MFDBK98lhpxMUYQkhclOlp6ElzKo33i
RbIgdOyNrCanCB74b626WL4g5JjKlL0JItgYbB997RAE5X7l041xBFcn1p2Z
GRAELUvuZSueEuy6sNNee0wQNr7JCDR4TvCNj67C4UJCsEpnjVF5LsEKSn29
75cKgZb/9itQQPCrS16lg4pCsHDx7b6bxQQ3mvtfsFkjBJnmR1MvfSb4ePzM
7kAzIahzvcOjXU3w3EywQaa1EDzTy65LqaPyLQpnC+8Rgq9TBs/mmgkuUFhS
ZXJECM6ri8e1tlL5B0aneXoLwdkr3/tudBJ8xuTpwcqrQnDjRMLx9f0E2ySJ
j9neFoIrXjkyKoME0wQv3qx5KATWp3QyvrMInjo5oOiQKARLTlop7SQE1zXs
yqlPFwJV6aOns0YITjf7ZL0rVwiKurYkN4wSHJS85ldzkRBUyHRm1o0TvEs4
0XtvuRDofd5zK3GCqvcpMd72GiHobNY2s5wimL/p/CPXZiHYIMT/8d00wa3r
+rV7uoQgZahJYm6G4LcpTiXuQ0LA8+/nStk5gsNFS52YY0KQdf6UPN88wW6n
Vw0cnxcC90znmjKKTVviL7EFhcE+MWjrrgWCl4DI0lNLhGGfk0xkEcXMtIC0
vwrC4J915+koxXhRr+lZNWGwPRkdME9xtJ9j7YSuMHzcoiLdSrH3b3w40EgY
ppoOBN6m2NpKd3IWhEE7Gj+XoFgxI+52kI0wMJmjT9yp9cckhFR4nIRhtQJr
/10q3q/+Z9+F7BcGRedm5q1ZgpPburcIegjDyjd0cKbyO7/Bvv3WKWHYpnjH
fYqqh31W8WmxQCpet/E9JycJpi/VFoy4JgzXV92nvf1H8MK5mMdL7giDskDd
x29jlF46+FdHRQuD6bpDeu//UnraeOaTTJIw/JzVDz4/TPA+KTv2sjfCIJgT
m39qiGD9C0VXEj4Ig3nPlvR0JsEi3XQZlQphWCHhf+VNL8GFr3mRRosw3Ppj
Mm/ZQe0vGd/69G5hEI1gZZb/JvjYpXYPbZYwONEdHBUpvcnYFt5bvSAMu3Rp
aVaUHtk5GupvhETgZkTa/qWUXj/JRRWuXSoCX4rFNN5Rej7T591tqi4C55Q9
efw+Unq6omZgbSsCj4+9SG3KIPg58/6Xz04icLi6OgFSCL68fWGfzQER4ENS
XRcTCNZd/it0u68ICBmxD/k8IDisIKLJ5ZEIuC3z2LzuHMGHVsx5tSaJwHmS
ctHSl9qv149zHcwUAZ5UBSv54wT377BmHCkWgUbrQxnr9xK8gUwHeveIQKvR
tGSoGdWPzVFa/7FE4LJfbLiDPlXPp7q/JP+JgHVF9rNRLYLlnFxNCoVE4V7l
WHeBPMGsgvIJ3pWiUDK+fHDzOAdHXr3nF3tOFCqbF5uEpXDwl98MNdYVUZAa
F76VF8vBswZl9RbhonAtWNam8C4HH+0f1/vzRBRw2569Vuc42HTr3pGVZaLw
TxcdP7KFg7ulNbw/LRKDN390fP71sLGsD14uKysG6rLiNvcb2XjrF+dvnspi
IHpAJJG3ko3zAsN1JPTFQD9Fm9vnJRuHdQwPujiLgfn2sTw3PzbWyyjyIMli
kHz9Ia12moWvmDscUjBeBDkxkQ32g0N484GEv0ZWi2BCuy7hdOMQFg8eurZz
6yIoarft9ygdwvFloWn3XBeBZ+iZM99ih3CBzfshgVuLgHsbTfTmxiE87Kzq
P9qyCLYGDOc2PxrEB86Oh1VfEAeplbk/uxSo9/EjK8XBUHGYaDX4mMc9QNUv
4qXgPXFY+TEz6zCTiQNnGXVWKeKQvD7FaOM7Jn547YB0YbU4HHitcF9vGxNX
3/+cmLpcAnRe13N/O9uPTV/Fvr2MJWC9oYesWVYv3tBUM8f5IgFHJv/jPhLR
i+24+DYd/CEBi27oDnif6cWHHb1bUK8EiPCJ2mqb9eKNF1SCgvkXw4/ZvDSr
yj/41Ip/zyy1F4Om9+xTccrEffJIZJf5LwYHPNNsOtWFT0yOBH9ZtAScr+Rx
Z1X8xlPai9t1dy4FWqTLmPjlEmye9SIpOloS1I3PG3OCP6ORpTauu0qloN4x
Q7fHow01n6DVHf8sBV4hlxbPvm5DJRXTKKhaCnZuVFvaO9GG7gVmrUhvlIId
XPbJ6jfa0epusY6pQSlYw1Ld4/SsA3nn1O5/IikNcKmGzjPQiQa379z754g0
NNWeia3j6UE/MnS/TnpKg8XHq2W+qj3oPa+A2SIfaXCJ+ioxtr4H3crPUzA8
Lw168SHrHof0IPoKuV837khDn/HwOm++P8iD88tZO08ajvtemJ+a+4P+3Hbd
dVpQBk4e86jf2tSHvAd1aKvFZMAw50X0t5E+NLFpis1eLAODOtOKK8X6kQjv
g1BPBRm4XBnffgf60erzZW9ddWVgaO0t/U/P+9Eldw3J7Ttk4MVyx3SWDxPJ
WLBqtRNloHf7ySTTvgGU9Ljg8cAzGVD69+Kaz+wAYkyFeDxPl4GokeGeoKWD
yPzt8gVargx8PV2QqGcxiA5rbV+pUC4DkfqjL1ojB1G2TO5toSEZ8HnzRpxh
PIS2kIAtvYaykDqxfW/bYRZSXKN0XchcFrIfBvz3wZ+FOKc/lWpbykLyrad6
J2+xUNS/xeanbWVh3aF/7+EVC7XPZaxcOCgLD/yvyL4eZ6HTYq2S8rdkQfjQ
jaSIC2y0we6qvfldWQhPtub4Un5K9h79zsFIWTh759Zl1cds9EHyrEDaE1lg
5B9eGKX8mMAy8Sm9XFlQl3D6b9M45dcY0L71tywoXXHcnOrGQSe8+hROdcpC
xneBbad8OAi9vL07slcWPm5XURS+yEF/VrfUtRBZuPi9qOJZFAetND5ddpRP
DuZWySteKOMgrkA5rjBhOeA1tYPcGg6qL/po/lJcDpyKy+7ntXDQOSSaNyon
B/G7lvhpEA4q25iSHqwrB5cX89o9lSUo+qZN7zM9OZAeLx5BKgQdqxpW+Wwk
B9a9N02ztAgSt1v3eJGVHHAtuXip35wg552Nd+J2yUGT4nOt8QMEaT26WFW8
Vw4Czh7aNXGUoLlmmmCXqxzk/6a/Laf8dvI+n2BNLznoOJ/zo+IS5b8PC515
GyQHYo81N7vEEsRJ2FCMQ+RAZkPR4YREgkhLsODXW3IwEPFtbU4qQX+3Tz3u
ipQDz62KTSiHoNGwtX2sGDl4PD0RWZRH0Fi57+rJJ3LQ2nOvm+8DQRNmg5/E
0+VgZ3KmJFcFQZP+GhIKL+XgINral1NF0HSOm4t6rhzsL2FpraklaFbzN9vs
gxx8+9fBftRE0LybrPGm/+Rg9YPGA0G/CVp4suOqY4UcZP6V1DToIIhHqlrG
s04OJDOU0/j7COLbLnTI76ccTO2Sc6QNEMQftiEr6JccqIQ/R2IsggTKg8fD
OuTAQVHneBmHICGuYhT9Rw6+xDp92zRCkIjZ1K2nA3Kg5KjsHjtKkKj/2oYX
HDlIdOnQLRgnSCzHV6lgVA507umppUxQ/WC9PFY2KQcP00St908RtFhzMLdm
Tg78VF/e6ZkmaImbxlwLjzyEe2TOGM4StPSJ26ZeQXmIz+m/vXuOIKnmhPvD
YvJQoRKHrOcJkpb8/XtmiTwc+LBpKdf/77fsZDUEZeVh84nPvDcplru149RS
RXmo4bOUbKNY/lPE++Uq8jBlpQv/vy9TWPjKx9CQB8+anWEcihVNhbYbaMtD
hsnPkUyKl5/dEItWy4Mgj2yAAcVK2cE9NmvlgXm3SSGcWl956IPuLlN5SFit
1v6Kik9FYyrgEJKHfKW9pYlU/LRDa0tPbJCHprPalftnCFKL9xU7t0Ue+NY+
HGNS+Ws0vdx1zU4eLpkObLScJEhz6WDS3R3y1ImtsvToP4Lo2zSGYp2pfBs1
vVzGKL3edFubul8eAt02r5f/S5BOWUJQtps8HJXCdmmEIN35X5VFHvJwv/fU
fS42Qav9dhz44SsPc2Evvyn2E6T3OiK9zV8e/s49rGvvIUh/8Otf5gV5ePHR
b7l3J0GGrhtuLITKQ0j6pqyxZoKMHgd/FwmXh+JwpcmhBoKMGz8sk7lH1UMp
Jy27jiCzrWuzdeKoepzZsCH5M0HmN3ynjRLlIa49y7K2lCCL0pcb1qfIQ/qq
+OLKYoLAWKPF5ZU8aMc6O2i++f99mSzPjVJ5mB2M/B36mKABt03pZp+p+lSu
NY14SNDtpwF2w1/lIde3oftEBEH1Ss1xLj/lIfGViUHqVYJc5WP1dZjycGzx
2gYRD4J4nStbOlnycDA97VL+QYLSoqeCHo7IwzOx2CJjZ2r/Su6pnp+Wh5EV
75UKNxN0XnyZ+/dFCrDmlMqbXE2q/9tsRa8vVYC/O+ir+VcQVBJ+IcdUVgGO
epk81pGh9oNw69wzZQXQEnh1YpqXoAe8T6L99RWgUc7OLbKNg15MKn1Z5qIA
QsTkesVNDtputN27br8CxDPf07wvcdDfs0FSoW4KUCvIvD3ky0Emox2uHC8F
yP9gLHJsDwdVsJOmSi4rgGmu+FlPBgd1dNO0j6YowJJfgTpPMBtdVdnxXSFD
AaJqVsVl5LCRhuu1gNqXCsARfEBuP2OjE209Zcb5CpAtnpfYfJ2NJptS9olW
KUBA7aaN123ZaOk3jbvZRAF0/bKHtn5joXmyOrVqTAG0nz3YdaKIhQaXmn34
M6UAz7ScefdnsFCp8/ZBOb5lsLT6QExuCAud+ROw8YrcMtA9mTy1xoSFGma+
zDtYLoN+z2st8bFD6JGWl8/og2Xwq9PHQMxkEIVsO3t9Ucwy2OgAxx+oDKJT
p4KeaD5ZButMVi/nCA+izXmRX/c+Xwba/eFRGr8G0KTlB81PRcug3E1AIunc
ANrjsqgz6s8yMNBzguaXTKR487W9oaEimHPrPrw23YcyX70smzJVBJ9VnBp2
Rx8y/pllWIwo1uSNMSrvQ060dMUNWxTBfnmbz/GIPnT7QxLTYZ8i5JwxPepA
60Mzw/eDT15VBNujpsEbrXrRLxe/7JQaRdB+EMDq8+pBMdomiyU9lkM/793c
lPZ2VKVguXb0vhJE/6QXuLRVIVPF0nurGldAxRr6s9TO91icN9nv0FVlkLEz
Ltz+rxkLTOEdIyHK8GfRlx8Fli14ntOmd+WGMmjWHgqcvN2CyS/5kaTbyuA0
KnZ9ivYL1+XeP9kZrQzDchyl8a2/8QO3K0cPZinDf6cbSjxi2rBMqavz/gZl
eK/qwJ7m68LiBZeN2I3KMGgrcOeZZhcWeBUvc6lFGVJLkMBqmy48EdvcEN+u
DMsi05NH73bhZl97h1amMqi7+e1dIduN41TAZu+cMmSG/afdrNKDla6sMHfR
UAFb/e5wpxW9+NUZIVobXQXuPhAYu7yuF1scHRE8pK0CCmFbPt3Y24v325bV
H1utAvtuHOjQf9SL46U9vM6ZqoDTu6Ffw2J9WD7zVdwjOxV4/1fS7+dIH5aq
Xzf1018Fmq+105YkMXFKuUaHy3kVUE7oLsguZGL9Aonytgsq8KaQ6DPqmdjx
Sde93mAVmF8Fxin8A/i+Ryh9PEwFJGaWqXw8NoDFZ6t3SyWqQLcB+9JBzUEs
rL4vz/GzClyx6R7dGTqEj8sjm6xKFZiz8lh+PGYIVy2itfNWq0Dg8xI756wh
fPtfP/+7OhXoGxxzLa2j/MOXMztlf6mAvMS8f5U8Cy/1Ch/7zVKBJ0o6b6NS
WPj0Qe+bBkQFQvd3xax7x8L1OxwU74yoAFYKmftYzsJR5rIbLP6pQL3OyJBN
HwvLij+LTFpQgZ+lo5wQdTZWzHmv576UBhNetjXe8Wx8MfVJRbEUDYaCYkIe
ZrJxW2zwHhlZGjy/hjwjC9g44erGq5+X0eDkj++npBrYWNnpx3eGOg3ehbR4
MYQ5WH1i4BTHiAbhL/ndIrw4+PpQNd8mUxokp10/oxzAwX0dr2MSzWnwMW4k
9sZVDk7/crbE3pIGv6dn+5piOFgrjnvxGxsaXLn5s/lyGQevXCf/OmA/Dewz
7t1vWUzwG1XPGR5XGlyaLp26pkD5U5HCTXfdaCBW7LloVpVgqybnzhQPan5R
xWknQ4J3+cYs+eFLA9PTqvbpzgT/3s3cv9+PBia+tec+uhLsamGcyfSnQceU
7e+nxwg+LtpstXCBGm86rVAXQHBQqqyfznUa+GwVMKiMJJjvtkdJ/k0aBFX+
aNoUR/nn0/li68Np8Ddwp3NkEsFRaHeqyz0a7H+95PO9FwTLazwf+fOABr1H
/jy1yiU4QWxi3amHNLCtT9T7L5/g9JboxutxNOj8FOmoVkr585I+2tInNFjh
NVcnRPn93DRDnyeJNIjQzu0p/ErwhzONgm9TaGCt/ff5lQaCLfdoOKHnFK/Z
bBvTTHAF+CdVZVD9G7989EIrwXWLZEy6XtHA0qxwKK2H4J1j7qEncmiwKppm
Q/oI/vXr3feJNzTgCjAW5hsk+OB//ErX8miw4+68ai+L4D/Pdx4XL6SB8fLq
hw8IwZ53U/Nii2jwYdZ2j9hfgjl+4zzqH2nASrl40nGM4DN7rbdnl9Bgu372
1yP/CJ60fPjYrIwG7adu+66fJPgSvbe/opwGx5tE9nGmCOaRWGvg+IUGt6LP
3XSfIfjGeEhwWxU13yP/sfRZgsVaG6qPfaOBxbWpJwVzBN8vVZMfq6We/2/L
tah5gmUy/NyDftDAM4j3mfkCwfERn3JEflL9yZaZzaZYxV9q/mET1R+Jz3dG
KE7bd8RG5RcNgPZi9//vq3TWv41+0UqDkrU5Lk0U5zD4eow6aFDpJh11kWLD
xU6ryrposC3cS5BDrVf079kFuz806HOJe6tNMbSNfm7po8FRaI1fS8VXXrZe
yn2ABj/P4v9EqfhtMiNdh4doMDaqrv5qmuDaez0vLnBooOlnXalI5e8UoD8l
MEIDttfz7N0TBLfsv2b9YJQGRUKM9gPjBB/YUH9/+T8auGrPOOmNEtyjpdqe
PkmDFrdkuR/DBB9bckbLYIYGCX3/dCw4BJ9uX1pmw6UKN39mOl9gEvylYl9x
Jo8qCDb2bQzpJVjpdVq+CL8qOA86m7l2E1wVZPqiSlgVlr/8ufn+b4KVj4Wk
aYmpwjquQK++JoL97WuSwsRVgefZjefilN5oKm4PbSRVwaK06kozpcdzwi8i
MqVVocM1SjuQ0mvNyPgtETlVUL9G+Aml58DSW5erFFVh7JfJUcdCgr8fzvGw
0VCFMy3CMVwpBGtsnTmUSVcFnfmIG+YJBF80sN4noq0KW/xqumxjCKbzt9hX
rVKFZUz9yT/hBAencZnamKhCqkxsGrcvwY13bQwyzVShJVjlT4sn1c+AqJUi
Fqrwj4kaQ90Ibt5EV62yUgXlEz+4XXYQvHpgu5jNVlWY8J1JY+sRfP17rECm
nSp82aVdcESL4NbCHi4RB1V4UuTV9FqF4JthAeOVO1UBmwf4lkoQ3Kmd2L7l
oCpMTbwO/DXAwfe8OdlbTqtCmueFnq6H1P/bLuOsDD9VeD1buTwpjIPN0dVU
4QBV8Jw4tUk/iIOZEjJxlRdUQfL02YxmDw6GnHXXtoSqwidFp0AVIw4mo7d3
bolRhZztoynvv7Fxa/PTXU/iVOHahsoAmRI2rirO2z0Srwq3O1ynt+SyccqN
TpfYp6qw4kKji3E0G+9ZZnBgIFMVhvd8izPYx8blVr+P3ipWhXPWs08+dLJw
ruawRxtWhfhOeB5fx8JJYvyea0pVYaXsl5SdJSwc2LjSq6VCFbi2LvrpmMjC
q49f9WHUqcIVW+4rF/ey8OP7jHOV3ZR+jB8efVo9hG/6W5xf3kuNX3320rL3
Q9h/745A336qP1Ez3KeeD2F79UsX5VmqgHa6FqZfGcIChXXBnuOqEHj5QO5e
gyHs2xlwS1hIDfp07ky2PxjEm1ZVxG3RVYMjT9O3Ka0dwM4Cm53qVqnBHdWr
I6qKA/h4W+Wi3XpqgLaahXLzDuC74d+CjxipQVvjmKJ1HRM39jccDbJUgzWa
80F/jzHxkaQevXc71SB5JP6sSGQ/vrqE+6vyZTUw/HUw48DXXvxx1GxmokYN
Cm+eNPne2IWfVue77fiuBmGK58vP5nfhkFT9qlf1alAjoZ7HHdOFt+zWjnVv
VgPnexZ+dc5duOG9glF9lxoopk/r2bV04sErU6dfjanB0XUXrXuyOrDM4vzB
IwrqYDyvOqd9+Tf21tH79d1dHQ6ZrfCwyPuB13GONLgIa0C2VecrR7NHyFpN
btuiZA2wExaNPbi6Ab1ll6scSdEACWvLXpeABqSWf+bf+zQNyF+5W8/4YwPi
s6lNPJalAa9PXrVNtP2JSn2u/y17qwFWA5IDYu6NyKJo7FHgZ2r+npDvSx40
I0PH7939LA0oGLU4pv2jFaUtC8q3IBqQvnaHAVuqDUn36tx+OKIBK6Z1jW/s
bkNjATfXrv+nARHAdcGqtQ3lPkE3ExY04LNGHm91TztaNfBSd+dSTUiC6M3e
ZzsRPTjsXKmRJpg3WeZYe3WjD2ap/FtNNaF+idcxz9vdyH4CP/hprgl79spb
+7zsRue8x18wLTWhQjM+Tpl0oy/7XLvEt2qCvDDfX0nfHnTMxNBmrys1n9BE
vYTPH5Txt2vZ2E1NcA3fJTHj0IcsXs2mXwrXhHvFkk5cPn3oh6esoeBdTVAR
uHepK7wPTXdutVeI1ITOp5LlhtT526Y2PwSeaMIqN4sVdMN+NJh1h307RxOs
5gPC5xczkZa7CVb/RTHvSz3bjAEUQbObvtaqCUfX7lFvxQNorMNtbXe7JuRp
XJvf3DiAPu65nZXQownXdhT2veMZRI72HY9k2ZpgdntUq8VlEJ03Cz0lzEWH
m2/PL9LmHkLtk7FZHjx0sIkPWHZCeghZ5b3qK+ejwwohmTU3GENIbE3zvqvC
dLhYk8Fj6zCEkjS0t8wspUPOvJyRQOIQ+rLkuwpbnQ75jLyd+vospFvbu8+W
ToeiWpnlQtYs9OD29KMMLTocXn7a6t0uFtonqCZ+dBUdghVXb4g5z0Jk1n+6
3ZgOt+xSLlwuZiEZpmJ9nS0d1NKa1uSvY6MLqWvEV9nRIaCm653ANjbqdNu4
5Y49HT7HVKnr7mOjzDYfvGUnHeTUL/rNn2cji/rSrNIDdIBHXTez37CR+8dj
IW996cArl023XMFBnJODAdZ+dJCQj13Fp8tB55af8Gr0p8OE486bD005KOyi
j+PkBTp0N6BG2k4Oyjb1Vza/Toevi+Kv997gINPBCclvN+lgqJf8QS6Kg8pi
zwseCKdD9OmKOPkkDmqcvMgJukeH/ZLZXCH5HDSbd+1DWRwdAonGgakeDrp+
lD/b6Qkd0l5MFT/icJCEzI1nvYl0yFjHXs07xUG0s2Fhgql0iDrLErVcRNAm
/fvOtq/pwFeaWrVLn6C67qVbW3PoYOIdMb7XnKA9D6LQybd0OPP1/htda4JO
jDzSiCikwyJFldeGuyj//Tph7EcZHUZWFtPazlL+/aAy83AFHVTcfdysLxGU
Kp78e+wLHbYs7K06H0JQwcnUUpkaOoRFfO7Z+IAgy+Waec/r6FBReudyRwxB
VdXpGcb1dHgzpSi1IZGgNu0X9/Y00+FVyA9+3yyCjv7WDRn6RQcLU/Y2kxyC
hsNeB1xso0N4U+Gxb3kE8QzmHkjopkOEMM9f5/8Iuh1r4Liqlw56Birb7SsI
kt6SZ13STwdy12Sf5FeC6OmFOt0sKh8ee4/ZeoJyd5spnyF04H+VvIvWTJCZ
YLEk3186nKh81CzZStCnPAvBh2NU/e1z+uo6CLI7WjKtPkGHpXGfA116CGqW
tuLkTdGB+7BwxMs+gg6Vl3VtmqXD2caZ5d8GCPJT+/zFk5sBvyvzH3kTgubr
N3+Y5mXAqJz5+eERgm5cq3odLsAAlZK+0nVjBC3W3/pMUZgBIvfZp3b9Iyiu
+1v0S1EGDE+1BplOEqT6YHuYhTgDDojGsAamCHph+f1S7WIGbLvk/PbIDEGG
I46+rpIMePPmVUPmLEE4qeHIiDQDQkqv2H6YI6hzq8pBfzkGJCVfu/VwniCu
qZMuMwoM6DUc4KbOl0gl9f2O4OXU+B2Zb15TbOUgaMevzABtV4mEYYoPz+3Y
HEZjwEqXnBLqfIlCMpKsJNQZoFl3ftkvilN3ss2jNBmgyEp+dZXiCm5TI3kt
Bih75gdOUuv1v7y+JkGHARcfPQg2o1hoT7226ioG2O5x/c+Wio8uoKyRvoYB
z9WfWDCo+LfknlDWNWDAxlnp6fppgo4fKFTINWTA0xPMcVsq/zARAWkjEwbE
37lqcH+CoKw8R4kPZgx4Np1c8GycoGq3RGFLCwa41DqHXhsliC3O4q0ABrxL
5k1YTdVfvMh43mY9AzKv7BDI4hC0yiN0staaAdsHNpf+HSLIXvLHX6fNDAgt
MWgUpPrpi5XYLTYMkHMo2DjYS+0HL6/+A9sY4APlcnHdBNWX8bUec2TAfq/6
f4d+EzTm49DIdmJA5Okt4oFNBEkpJtSd3k3Ft18v4SClv11+RuUX91H1Kiuw
jKwi6Jfa8Vf3jjKg7G3SoSeUvmfq8tKlPRmwbFkoH43Sv+Il3mdxXgwQ9Xm3
z4/aH/t/xj9KOUXF1+DkcJXaP52htcEFgQxIUAjcuyGUIG49xQvrLjGg2yEw
z+gyQbT2Y2dLgxgwd/eB7JQ/QUcMeY5XhzDg7dtdCn0eVH/6DHZ03mXAyZGI
gOObqP5EXtnmfp8Bap3Xd9VaUP1BNZsGI6n6cwySeAypfjzyMB+LYUD51s6s
BlWCOJvi1IWeMeB+SrkFfY6DxtIXJlblM+AF+qf+OI2D+nZtTLpVyICPde76
BY85qJnvzuaeIgY0v46dzbzHQUWuCrHRJQyIGIhcWBLIQVfl1prOVTIg7Kjf
lX4bDlp88/jFqlYGdPLyceE/bMRjmKOm1sGA7+IsH9TERmM9E9WXuqh8L/Zl
RleyURMKXb6mjwFVbcXfKl+yUcJE4sdHhKqv/qLeDX5spOPxk8udRwt0JWt4
k6ZYSElaMeMjnxasv/olIHqAhRaXuTnICWqB+3+8C0daWGhUafjpV1EtCD3c
mxRWwELvG0XW60lrwe+e0ZxpPxbavBFCFzSp5xfPF1ztG0KH1bOE47ZpwXtO
06/uF4MosPzAcQ17LfDOWEjZFD2I7rkv/ZrrqAURswLWV4IG0YfU87e/7taC
69pdcWccBpGUxmaJuUNa8LzX8L3z6ACq0OiVcvXXAqTceXvjqgGkRV+hrJGo
BVLxoYHVN/vRiFakYe6wFogc8dLUr+5BzdVgLTmqBVaAVqx71YNKvDk7/Ma1
oLAkbZ32vR50N3eLr+G0FlypCo95u6MHaZlyvXjPqw0NptkBwS3dyG3LSZUy
GW341pTXSevsQg0em8QazLUh8fDyZVHvOlBBykzX+E1tWF2y5k/ciia0Z4Mq
mCnpwCgSjAubfoOWnbxRuLJEB4Y2c48d1a/BdxeOrg0v1YEdl+cCdSpqMM+D
jTn9n3Tg7fYMxc/OtXgwjz8jqVIH5Gln0AeLOvyeKyRmab0OmPeseb/H7Tve
ExUc8K9XB05qLjiOptTjmKLzaz+K6gK+LHOzQaoZS4ucyNm2Wxeci84UTWzo
xK/uFvS2uuhCBPtGgu6xTrxRkl/hxD5dUDrs+GxzeCf2V0y4GnZIFw5YWOro
fu/EzSvrdnz20oXGpu+zGXu7cPwOg38QrAtpd3NMLL26Me3JrKlBhi401I8J
up/5g1euvvNJYUYXpNAlXnVFJlbrdXBZSbFeifDCX4oV4mQ4lhSf+3N3pGQ5
E/PzJcl6UizQfaVo3wombm3KPZ5P8YQVT08kjYnDgpoXO83qwm4DRjAXg4n7
alT335nTBekt48M/1lLjrzFHkii+JMT9NdGQiX8Yv7z+luKpbzOPTxgxcXGy
YfZvit2Ni2kCJkwc5b+FV2teFz7RPcqMzZnYSskno4Li195SDvFWTGxcr2/x
i+LZZ6zYY+uZeOXNyR9sigekX7cYbGBi+b9XZqUWdCH/0si6b9ZMPFwetf0w
xVVcR2LnNlPxBbr88af48sfQ2MotVHyrlM6HUXxwZ8S9hzZM/Dn2eXIOxfQ2
58O6W5n4g90Jo3KK962VQ1MU5/KuqW6m2HXtxyXl25g4vWDclUVx8z2b3/fs
mDjh5PvxBYoDZj483redif8HXKyW+w==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], AbsoluteThickness[3], 
    LineBox[CompressedData["
1:eJwV13c8V98bAHDZe++918coZOV7nwelUhFRKCMhlVmSlWSlSCkVEhJSSkbJ
TkRWsjMisyT5mNn8/O4f977er/Pc85xzXnc8R8LR09yZkoKC4sz26f/Xf4MN
n6Sj4wmbza3tgwydKfz++j0XYTyJteX3tpHnqyN/Tyj89T2h+3zbvP0cDOx7
Y8AKs420t+179OU3qp57MHqA8l/yJhlOFza93Lr9CMyPJR3u2iDDYd6/V9cM
k8H4cI/p8DoZkvVuZK8FpQF5+jjtxzUycEzz3Vv5lg56lqNXfFbJEJmaHbik
lgmET9DrtWUyrB/VcV68/RyUw83zjy+R4SJlo8n8xAsItqiLjVgkw0Shjfas
4StYjnY1j5ong53zHwlySi4wdy0z2M+S4TxTZcS/oDzQ++f0iYFMhh/lJp4L
3wrgoLdrWP9vMiTx8DldonkL67nFOZS/yGDh8cNqTu0d8Oy2EN0cJUOjmJfB
zO33oHInQ/PiABki/LS1PMuKgeKcJcOf3u31aaNQmp4ogZ7nRiHa3WQoCo3j
mTIsh0/x5z6atZDBq9+a8YJ3BWRdz/ko0kgGkobk1u+UStBpNW6vrCVD60Xr
hfmgKjBX3kwOKSeDkfTkwOy3auA79seeNpsMGUdNrPI9auC3z6pjcDoZdlwt
aPei+QRsXPvDmpPJUN4V8JmsVguxFKSiP3fJsOsGU/7f25/BVuiwle4VMsQW
epJeS9fD5xSB/LNeZJj60ZHpVlYP7/Nv+LqdI0OWdnLSn4kGmCGSd2zYkEF4
Uin8t2Ez6GSdcwY9MgTwxm1m9zVDLqP6OWUNMnwzWPRz9f4CP+YNXBZIZLj3
uML9V0oLdH/zkmIVIkO47POcuaBWODN6q8x3aRpWvmk9mPnWDv9iLkabvpiG
YjV6h+cKHXD1g4oDbco0+N7uUbQL7ICcSYfy+/emYc7Av6pJtBOsFutt1AOn
YfJ16Z8s5y7Y13w35o7xNHwP+8/Adv4bCPC0azOM/IUqVUNyA+sAKPy6Tnvn
3xQE3+IqDXEYgNezIe/qfk6B3vhouFbBAJyLTswY6p6CkqRwwUzLQbhgPN5V
XjQFBTR1+0KSf0C99d44ictT0O4ubSLEMww7cExoceoP1Bg+z2hLH4WQfUuN
UU2TsDP2ze+l+lFgFdmRxlg6CSk971VEyaOg9MTl4tXsSfBzry8+v2cM9p/6
dEgrYhJUHv1upuocg1p5bVdqYhKSJkmLu2l+wtUA8ur+17/BKy5vX9LZCai7
OcFyLXwChH+U/HRU+gvHPrwsjJP+Cdxu9i/pDOfBVmrXx5onw6BI96zu6Il5
sPrlyCgdPQyY/nMk8cI8pPBK3L/jNwxuPe5CSvHzcHmh52PUsWH4tDco5uj4
dnzhM1ZaxmHwEUn0SLyxAMb1IlmE/xB0tLSrkZoXwTHemthbPQj3dhmVmVgu
Q4UlSdK7oA9U+633/+e6DBOzde8/P+iD5nD3DlLgMgSy3Hqt6d8HtD3xf+if
LkMerWSlLfZBYPCoUM3UMhwYSwhp/doLTk0hQVrhKzBCbhzcP98Dms5l/4kX
rsK7lJoh18PfoIP1awNr3SrYq76s/6z2DbyKRyw3elbhcNXBdELgG7xkYvTo
21yFqNpyJp+f3SBWYJUSb7wGc29oO9avdwP91uIm/cgaKC2anQ+u6ILehJ1V
s+wbkJ1Yo7a6rxOSOnLYfGU2IIbxvoi9cifYsMrZr+psgDTPmSeD3J3bz5PI
JuWZDfhdfUpQeawDhjwY9bjfbcC73fd304Z3wMTesfea1ptw1SexN7G+HZZn
Hr0JfLoFwx+ivn52aoMSEtfW1rstkGFp4bU1bYMAl1iT8MYtsKsMfsmo2wbr
/eF/Y+a3gN6R3zWXrQ1CRot5vkpS4EWDSjbe8lYIb8k8NuRDgVFz3OEWAq0Q
nXHtK6XADuydKHLdavgCxhrnOHmkdqAgV3P048wvQP/J3FJOeQcOj/annb7+
BcJHZfoP6e9A8bou6gs6XyBIsvln/LkdaJ3W4emR0wweafybsqU78FVWXzHP
oyYwS85XOnSSEk3N7jzrjm4AdqXHnrbOlCjyyKXW2a0BWsrCCzw9KVE7wJZa
8EgDGPef0I4Po8RYb3aDWdYGMBDcNBzIocTNfUtJx+PrQSPB+KTnOiUaWlLN
9Gd+Br740Zv3n1DhzBm2Oy0jtcBPehe+nEWFr/5m69xqqAXB6shrtnlUCJMb
uxzzakF0RuGyXA0VvhlTSnQJrgWZw14OZRNUeGl4SrJSqBbUqTc0R9WpUdtI
1e3OyU9g6sM7ptZIjQ2Gspwr09VwlGli8FEHNd6h1jOj760G8/SS3vXv1Jjk
Eey+s6Yajree+lpHpsa26rLOxkfVYKv0rNSGhwY1H9NEyBhUw4Ux1bhQBxpk
UKmZOPn4I9ywOEi0/6PBV8tUU8L2VSD4tkWQcgctOm/mlgcZV0Eul8XSLiZa
/MXyWPjf7irobrfLixOjRaU3nJy7WapA2sxH0uwALQ5ZdUh89P8A1UdSaVsT
aXH89m7zbP1K2DBabPmiR4dJ5xt4mhfK4G5WQM6GER1uleS5X2srA2laiihl
Mzr0ZdjdapdbBodrGfVvO9Mh7bUbw2muZZBkKF54OJYOa/ny/ZR+lII2HnrU
9IMOeUnixhqdJXBJ56l9Qyg9FuE+3ezv78E4jXXhUAw9sqgOZwdUvQdJuqCo
lgf0qGqyi9sj4z20dh7P78imx7eSb4zfu23/57yYqQZb6FH87ZLU180imMi6
kjUnyIAU6vnuC/JFcIrb5K9QIQNO6c2fEo5/C+qBZddTyhlwzGy/d33gW2Ac
keeVqGNA77U1/rgzb6HkDRXI9jKgBDd16hX1t8B7qOTuzi0GPMRYsfCgsxBa
r0tr7DvEiBGhZwvXhAphL3k1wGOUEVdPWUzHVeaD/4F4xY9TjDjirt2w/iIf
cp8q93H9Y0TeUzMu1x7kA7+Fg04JPRNWRHQGN7nlw1Rx7RKVChPSjaWrBQnn
w/3Quz6JfkzIXLmcJB+SByM8sh6fWJiRIl08dPFNLvB5fhDh42NGlw+pwSdi
cuFwvdWXc+LMeL/h8KsR11woCohWYlNnxudWQ4OXJHPh1o+ZSWsrZvQ7yR8Z
9Og1qL0oO0tOZ8bX1MG5m1Gv4Lqe2WlBbRYsv8OseyfqJRywS5nTMmDBWbZ4
dqmzL4E15E+Y5WEW7DuiNDa07yUk10Rk3XVgQUvFq/m9VC+h2Lj0D+1NFlQz
39Itvf4CZqykfOd7WXCf3pWbjBHZYHd58VZzICse6l66dTc7C2QeGQhPRrCi
/dObxlQxWdvzv/Oa7i4rnmZ9NpfomQUB6wqtBhms2PmT6aCaVhY8CLPjKWlm
xZg2DnXG+kxojvucminChhSptq07ZzJANzfxbfAHNtT23/NEzfoZ7P3WsjFd
z4YFAi77vQyegQkF9X77djbM+e/g63rSMzhj7tEL42xITW2s2rCZDkaBEtdC
aNhx4uLNFzRZ6eAl9u+ZPokdSe6LXWYrT+HT2dS/Nb7s6IrKgucK0uDgug5n
UCA76pxWPfwpJQ1a7nZqaoSwo0mHebxmdBr0ljCEZNxkx/HyqVV7pzSYZvLh
jEhmRy3hZvUavjTgzzugZVTNjr0MKQmuNKngtjwbUs/CgZK7rTdF2pJB19uF
9ycnBxYu/c23e5UM9JN9OVT8HLjuYKHdciMZMvtruglJDuS3aPiqDckwWPlA
6Z0mB3635ynZnfcYTCN0ep7ac2BKWP/Y46QkUOO8rhqYz4EUcau19+8kAEX0
4qeEIg6cpjPaRK8EaKE6b1NUxoFXEs9L8ZolwIVF84jZWg4UkTt4TosrATJ6
pPvP9nEge2+609HER8CbWh9pQcWJlKdr5vJePYQVEvugsiUnHjS6XfljOh7+
PRG8rm7DifuopcJfdMbDApuMtI49J2ZHPOGPL42H6Xmd83vPcWL+Q2fGpsh4
GCk788/mKidK6To+LROPh8ZD71mjMjlRVuFYdbjNfUi6YAcji5xo5+k4+2Is
Dh4NuI78WuVEg4slPfotcRBveini7xYnjtIONy++j4NY9aimZQYulLD1M82P
joPQtfwTbKJceHKQNHdRIw4uRNN46RlxoefjoAHK6Lugl/Mq7eFDLjwtQPV8
8GEs9IvnpO57zIVBVzsCpC7FQsDDFykLqVwYuEjDcM80Ft5fz0o2f7HtrI24
P/SxoGaVlsBazoVLwzfZo6/eBgWa+LuRw1x4vMTwoLlHDPDaB4b4KnHjvSP0
zB/dbsG7Tv9rMru48eMd1pWRI7fAwtgvuHM3Nz7NI83Lq96Ce7svB6kBN3It
hLuIz90EFmZPv2kzbjRftykr9r8J1CWOXi5XuDHnXeWBC3eiYJbT2OF4NTcu
Xysaq+6IhB43ydbzn7nRZ9TPuacoEqq2a5VrzdxYucQTyZkUCXcDcsSyu7mR
STL177xDJOwcYf6xMsmN30UmzVxmIsAj/6vtEy4eZCuvYxrhiYBJU8uTY048
2Lum/4AmIAzaXyg3LZ/jQbta3VDr02FQSkW7h8WTB5cNzr9pPhAGN98XCWr6
8yDploUSO38YyIvx9924zYNc7bGudMWhcHa6z4pUxIM7qI8cebBxHcZiHI5f
pOPFP1tSqaSUEPCYVJLcycyLPiI+teG3QmBp/8rfv+y8+P7IO/lF3xBgpLoX
cU6QF3eFGmkLHQ2Bnf41bx2UefEN5YlQf6oQuOosy2V6jBctgkKqWr4HAy8x
9ZWUyoukqhL+59lBkPa4+PHvZ7y4SHyfqo4MAoWV8LPPs3mxc/5jJ61zEOi9
FdmSLOBFJ7dwSVrJIDijaKoiWMuLDdgVP/AkEPJ4C2Lo//DiZVv7kM/JAXCQ
fOXguCYfGm/E1ZgW+YHwLtFIej0+3FTf8TrroR9MX/xUTdLnQ/urnLKyV/wg
/h+73sVDfHj6ftTSE20/GNx4obJlz4e/LPf4X6i4AheZv3MJ3OTD86kHe81a
fCFJAQcP9/NhGZcQyzLTZXC78FPQa4gPnY/rCO2Y9QF4HXPi/jgfMj+ifKfU
7QNjO3tbe8l8GKzZ2DeZ5gMq2hdrXKj58aDArMymlg/UGGVkhyjz48RYh+xJ
t0swdYb+0ttr/NgS0/rflylvmE7ZW/EhnB95Glb+Yrc3kHtD6Jpu8uMHF/a1
1g/eMGe68nj4Pj8yzgQ/2XffG5b2TH5izeZH7ZjLclf3eAMldzPvuVZ+vJf6
lIIuzgsEPt0pFZEQwHcc5oLaqR4guNVErSArgHPftWkL/TxAWJfeVIMkgOP7
TrnYmXuAaF7IqPFuAUzj7L+zj9YDpJO9mf0OCmAG1xLZxMsddvocs2v3FkAf
xy1hwSNu2/tPPsob1QKoXWA3QCl/Hn477s/e81kAB/d/f2PKcB5inl4xmWkS
wASx7FtVk+egQ7QnybpLAF8cUs9jyT0HDgKJ6koTAlgvISVnpnkO/FmFnNtY
BJElOOyT1RFXeLUsWi9kLYif0p9etIh3AVMtU49WW0FMDQnb0envAnOXr3FH
OArif+tHcy7au4DO/A+H6QuCGMDeXsFMcoG6v2krVcGCWDL0fvJNjTP8GJEk
uWQIYkHEsaP3V52A84tsbB5ZEB/sLmAZvHoGNsk7MxsXBDGX5O7B4XwGJjn3
lI+tCGKLZuApp8NnoNrKdJKfWgiNzXehq9AZuDR2xeg6vxDSNkW1jJY6Quda
/aaZvhA62AmRb2ydhkeKFzzn7wmh8PX5S1dTHCD8yOVIlgQhrMiiumR10wG8
vK49kXuyff9nemsTHwc4UHS/6eRzIXz8Q8PslrEDLOuXy30qE8Ivl+qCgmfs
wcaaZSh+TAgfjKwubOXZgXDUm6OamsKYmsLcunL8FLzMfV2zoiuMr7ukSSa7
T4F2V45mBQijzSmtG41cp8BCMlt470FhfC56Nly37STElKdNmJ0SxlHLLfe5
IydhbSYuxD1UGK8/3R2TaGIDfdY+eRktwqhkPeoRc8EKXEMuSrl2CGPC6o3F
KBMr+Jfl9ZDUI4w/3D8sPN9lBZwLbkEFw8Lo1b+v5PDyCTCOdT5QtSCMg34j
f5RunICS6uND/YIiWM0QKCKTcxwSSDrsXGdF8Dvccv7FaAmWh77crbwgglad
t5Oc5iyA88JpjvNeImh84MGpzV4LiH55k/Ojvwhq/v5KeeOFBQQr9HF7xojg
gtZe4vdBC3CSCxRoyhfB0nJb8a47x2CXVIVk2LoIwp7BFE9Vc5g2MHumskMU
/1RG96OgObx0HJfqoxHFo8mfPynSmIN0OovMLjZR9DTlUTzQbwb8EnZyPyRE
sRCuSWVFmcGm6BZpz35RDHOns+7+dRQaBfV3z8eJYtqgl8oDD1NoFX0jS/1I
FK9ULqwPGplCt6QIP0+yKAYJPF6yETOFYcWVVc0sUYyN5fCZaDWBZd38qoBS
UTxp6JRrrmkCsiclDlOOimIbac1UhfEIhD7ecYZDQwy9e8yEz3QaQ1Sqp4Wk
jhjanhD0u1pgDLHPBvapE2I4oGX7vPquMSTmlMhbHhDD6Fb57OYjxpBX5j2d
cEoMaaIfWfU2HITB/mF/8Qgx/PYoKvh5wwHQFa6+q9othhfiuYPf/jSCESnp
wd99YrhgOSlW2GQEN0mRpIwfYvjGjCOpLc8IenSN6/h/i2G3oPF190AjuGLd
vrZjXQyLjb4winAagc0hb/VJdnHcf66Va8++ffAwarvc1xTHa3Rl84EfDeF8
jFqtgI44Uh+jEN750hCIu6N/fPeIo/DVn+Vb9wxh/NE+nV0ojup9cr9mnAxB
4zlDZ+ZBcVRibjvJx2gI7bVxDHdOiWPIb1S3tjYAVqp0n9Oh4qixeDu4n1Ef
aFc+HJsNF0eKaKdn3IsIm9MDatdviGN6cd3jcz8QyH0Cs2kx4igaJOHv8hah
tSDOfeihOB54WcGSbY9wz/G6i32OOG54/+m18gXgrXawsu0UxzdqvSnpjP8B
a3Gw1t9ucZyzoc6KHNcD2txk3qu94rhZ+R9/UpUeLCX2dCYPiiPto6ZDJlf0
oMf7qNn3CXEUk606Pf5zDyRJoPHJDXGcotLuSmrRBdHrYnrWshLIJ6Vv+rBS
G3Iv0UsOyEtgg/IRx+hUbSBcZulOkyTw2vMtl+ch2mB7qKbDdacEFljLhx4z
3K5Aec5e8NOVQNbT94t8G7VA4GVu0iMTCSy8o/Dgww9N4O74b6XLVwKD28/Q
Csnshoxa2R/W/hK42LMmFs+4G9SL2WoHAiWQaXAxRGVGA8yfDN8dD5HAHup9
F+vKNCDubIT84i0JnLNVjA220ADW9eYT3KkSqHZVX20qWh0YZE4VmX+WwBNZ
YUk5HGpwXgCMcxokUCOkhzdyfRc0skgOUjVLYO2VYnP/X7sg5t8vmnetEjip
fvrBi4pdwFp/yZKvTwKPP8yRUrmwa/t9j17on5LASPhbltu4E4TzS9WcOSVR
xIDxcspuVQjKfFJXwS2Jbou/mPg5VGEgMcSGl08S/T0rT5dPqUBKqFHoZyFJ
HFO4HBqeoQLiFu1tCjKSWBSSqczCqwIyS7+9prUkUd/OKb6LQhlU/hN4c8VW
EtXsNE+vzCtCodS5NUoHSSTRP52qbVMEbcaS/bGO2/HCswMVbxTB4JvVUMZZ
SRS9rs+r6qYIx70TONq9t/uf6Zlg/6UA1zL5fJQiJdHnrNjRZ2Py0MrCqzOc
K4mhitEPkjZkwXLBOcItXxLb+MyMPIZkoa/vXdtSoSROWhatudTIwthzy/Os
JZKofraouO6m7Pb3/8HjPTWSuC/jj4suvyxI+HJvPvgmiRmDr3Ib98jAxUHO
GmMKKVyrIZ88mSwF9XWnKl5SSqFPT+A7sQgpEH2T9Z6RRgqfuOKDLXcpaLym
+6qRQQrJzYrOHCgFkhKOD4y5pND+/UKl/7gktJ3JP2ssK4UvzVWT9HdLws7f
pszGh6XQrelbwLdf4hDZlkj70kQKj+p/1m/tEIfvJaMUjGZS2E6xXD30QRyi
bl1ZbLCUQoGOL2EHEsRhiJQ6eNBeCguP2S2oGovDXY/pvIMXt/MXvDt420kM
yPMxlgcTpPDryOfPb2VE4HvP0+NPkqRw6JhfdB+VCDRWFJ2YTZbCN0F2aXIj
wpBxY8g68akUUv+1otNKFQYbIQ273y+l0OaRe4+MkDDUGvS73KyQQtUvLJnC
gkLwOE7Br2FECmNeqmkbqAtAlC/hLzK+3d9cc/QGjwD4njwW4P1LCqOGkwb6
lvnhqMzVIIGp7fmkcQ2uVvIDbUlryLlFKVQ/asDcfJgfvIeu3GSgl0ZuupBr
cR58sF+1LumgsjQuM3o2ZDTwgBXtAYtWVWkMXp7s2JnLA+cHGlhOqEkj67PG
yz/u8UBs9JcQJy1pFJGIb3t2ige6f3W6XNOXxpMVp9Q+zXKDU9qo2jtLadQa
yYsjJLkhlGNHk3iwNMZ2XDFYT+KE+InQ8Och0tj0/E/DrTBOyPpATaiESaOR
im2/phsnNLrT5++JkkZqvht0v/7jBI5GtkfH70kjo+jh4GcjHJAWKnomJksa
TZNo9rvv4oDK+T1rSy3S6GgkN5FWxwZPm987HmuTRjM7at69T9kgPFO9MbdD
GktmT6hxBbHBwROkROceaTTRpXDVUGODzlJBrY5hafzcMqh6NY0VJq+vXMxd
kMaBmGSd9XAW4GV/P+kkKIPO5anHTrkxwcqEmnmVsAz+R/nttchhJvj+MbdE
SEwGH+7amqVWYoKnl7Ki2qVkUFmaJnLvFCMofXsgi8oyqKIQwRDmwQgGKT6O
QiiDru0r0d/8GcBDSa2vzVkGndozSCUv6eDykuCqvasMzuv++XUnhg6CqqkE
p8/LoLvjbu7bHnQQbdVlzeglgzrFkisranSQHe7XaxAggzZ3+LMTKmhh5Htl
T2GsDHoL1VBU9dLA8duHvj14L4P3x+mXLytRg62VxpJUqQxaMRidrOKkBicp
Eb6Cchn0IsmGklao4FLJ9PGWjzI4mr116UwdFdwdj+umbZbBOKvNM5aOVND4
X0/XlSEZLFiw2xJJo4T/pp06rRlkcfmYWftOtR3AW7Y/vZxJFtflXx4rEdkB
0zcUvcRYZbGTxLHLhmEHpEjMMI1zyuKxB+oxY0MUsGkRaOglLIttjhfT+OMo
4ENZXEGkqiweoDVWbPqzRejfrLxbaCmLsv5S4tlpG4Tg8ad2vFay6Ndd2ud0
dYOYkwxX8reRxQTJhNuHbDaI9PKD9YS9LE7du8v9kHuDoJzp3GpwlUVuYXsQ
jF4nao7/8RgKlMXwhIXIt9fWiH3S/EdY0mXRZMTSayJihXj7t1bCKUMWK2gW
B8RcVwjp95f+lWbJYrf2D+YA4xWC2vhrqmuOLBYduMX8kG2FqPaMnKt5K4sp
T0HV9fEyQZQtPAr4LIs39mQEmJcsEZrmbSO/pmTR7TirqgbLPyJL6Np7giyL
QU7eL/zmFwmecaWYB7OyeJh1SbG/d5FYuBK12/CfLN4cP/d+JWuRKHgCUSlb
smjY266YaLBIqP5+rWzJKYfxdoFZhtcWCPmQW37VWnLIqjhj5MAyT5TvyaQ5
rCuHzxrrhgwX54ijSx/udenJbe+PRzb2DcwRfh6Lryb05TCx/7lc5us5ov6U
wzDrYTnMPyLP3GQ6R7jqaBqfdJBDlRXtw/GJs8SLuWGhhSg5LPoR+FnMYIYg
ctezr0bLoepXlugY5Rmi/RyfJl2sHM7kOVtxCcwQq0OHjwrel8OkznCBgSEy
Yfz1fTg+2c73MPTRGyQTkzm3/8bky2Hd6S/GhQzThKKzzgeZPjnMeea4FPHh
D3FH0mQ17Lscus+NXatM+UMs/HDcPTIoh+bNFh9Fgv8QlTYxOSmjciipqlts
+t8fwvzoj0d8f7fz74oODaqYJPz3RHgxUMijo/jLpPZPv4l6jjaJvzLyeF0R
FgynfxHKX8dPHZKXx76lnOnNtl/EvZjVRy8U5fHo3r0m/e9+EafopFldVOVR
l806denqL4K87rs6qC2PeULjhqVsvwjeCeGO1kPyaPCSjcpI5yfhXOka/tZb
HuP0VPouPRsjpt0nr+zzkUe5i9P3GG6OEX4ibhe6feUxoPat4EePMeJWkKf5
cuB2+6rPZLzuGJGn6yuuFymPXxhLvzd2jBLrRWHlNUnyeKR+48gh5lHi3puU
hfYaefyPV18nLH6YELYXnzhTJ48Uj4GOKniYyGRN71+ol0f9hcKnqWeHiWL3
zGreFnlkPlGRrbJnmBggvbpr0yOPl+bbKNNGhwj57BKlkSl5/LF0JylPZ4j4
kNbpNMujgMfMnh3YOT9ADB2WsPflV0DPh/8F3v4yQFCsuFuvCSogvYTGikD2
AGFgRmdCI66Ay1N1vz/YDhB1O3S1BBQV8NzlMlWdpu9Es2Mqgz6hgCw0b1pz
c/uJPunzuXddFHC0zopK4mEvsdZalM1zTgH3zdrNrFzuJYSvUj1LuqCATamN
e9csewnbruRHGV4KOCG1ZuXL20sMRXwNKQ5QwHjvqrwDiT3Er58ax4ZiFbCD
aXpVLesbsZC9taT6XgFbHjw3a+vvIn4eN0q7WaKAl79svdpZ3UX0UN8+MFqm
gCpFity52V1EmYNg4sMqBeT8oONP6dtFhPLv1t1oUMChv5QtLJxdBHvU+aDG
7wo4bH0m865pJ6F0tovCmVIRF5/Radv/aCdEeYRfVFIrIm/b7Q6ioZ1gr3E0
46dTRPYsUQftwnZiXnTmaROTIgYk9bf73WgnSrsZDdV4FFEpb7yDtKudOGCE
EVtyivhSU8ABb7YRZ2RyGJKOKGKchLD/yUOtRECt3XnZo4oY5H70WaZmK3HX
mbOpwFwRIzLVxRklW4nyTP+YphOKyHmkjN9w7ivBLXuAbeO0ItqJV4uxmH0l
6mTHuR18t/N55hQI8LcQivJi4rKpiiiuUvzNrrGJwPr2kIKninjjea8r8/Mm
4rhr5DCRoYjMdBQ/foY1EWHZf9NPvFDESibnhxJEE/FdvlzmZqEihkcm02S/
bSRiFaxJU58VMapKw7P+RQMxq3hfs2BGEeE+Q/9wwWeipxn3cc0ropXUicyP
Dz8TVR7Tx3wWFZH+6lhrdcBnIrbgoLfmqiI22F15LW/4mVDUpXhVSkVCV+N6
teCuOsLxoLtEDS8Jj8sUvVehqCM6z+5n7tQjoRaFiPxTt09EGcOi4G4g4TOK
PY1nLD4R6TnpCg/1Sehv+3unod4nwou8YWRlRMKrfrE1J5g/ESxX3l7/bkpC
0zHyoc7XNYRRpMTSmCMJT/tL9G8sVhPFGWvDi1EkDLkh76mW9JHQNPRZMo4m
4eHbo9bvIz4S74anmNNuk5D3L6+AhfdHokB0UMv4HgmrykWzOg98JF4lVN1O
eUzCEW791enlKiItJkJnfy4Jz5iIkb1sq4ibPmxxCR0ktEsuX/3pXknQc0Vl
/e0i4SC3ntY140oiMp+i3KCHhEc0czJRrpIIn579OfWdhN0Huq2I4Qoi2LVT
T/8nCTe9F3+JnaggLp5KnPi9TML4+dhec+NywmavFO4RVcJhwZ8+ekdKiY1O
etYacSUUies8xKhUSqQ5T/cbS223X/Wjp2QqJX5GllyxkVdCprEUe4+GEuJi
g+kbfzUl9OER/6JxoIS4ZRIkWmykhAp9RiWHjhQTpVZd6xqeSqht+s1/v08R
Yfu7tLHcWwmfd5+8NHOiiKAISEvY66OEJQKJuyr2FBFGjy9oWPgrYbbu6P6P
VEVE+8AOt0thSviuPn3F48E7YtJRpT//kRIu+h/n1/3wlhByv1GiUqWEfokT
d8+SConYLZfd0dVKmPf7NHsHdyFBec8o/9cnJeweaJS33iwgJotoXqQ1KGGj
Djx/21ZAlFKEJ3B2KGFcXJhvpn8BYRMfcuXfuBImbLUUHmvJJxLK/HdXMinj
DiG5aO5beQSziXW+IKsyipf9kU/0zSNChrSVr7Arb6+3S4nGmTzClWZZeieP
MsY7XTXK08sjtEx9udNFlZFhff8Bt+E3RPfIxfmIXcq4rpXa3VSSS/AwuuUf
OaGMTO9OZu6/9YrIjS0e/26tjIVvxuV7nV8RRlw0gm6nlPFderFyov4rwlc4
JfTWaWUce8ve8mwlh+hRaT32+YIysn2b3Ph+IYdIPqbxD0OU8bdca94rq5eE
5JN1XY0Xytge7dCrZ55NqOy8/UlwTRm3HOVWe0syCOlxM2uVbZ+6UM3Jtm3B
JN5p/W139Iip7y3OIGio0/jObXtfoXh0blEG8f1bwfn32/7Ip5YQVphB3LrW
w26xrowDmmayqq8ziJ8tUra3N5QxUtKDPSZtOz5sYjZt28M91eLVqRlEu/br
yLfblgls1V5OySAq0jXz+rfNZckT4vQkg4j3PUiluKmMuwT/u/BfUgZhIOr5
om7bJu3VhTP3MwjtDnWib9sxA6Egt22VqOX2v9u+KLzUbnsvgxCYu77OvaWM
iXRr7E13M4iZ2njTM9vmsHD9nXl7e3wB1mO+275c8bHge8z2+FRF/W9t22+r
OYxr258Tn6fn/z9+aEnv+q0MotzETat223QTvDLFNzOIAqpdzT3bPvr4Jzc5
KoPILl50mNr261wXZtltp7iXLm5tu6f7IZPtjQzifwbyeXE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 15}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.443238392984375*^9, {3.443363615*^9, 3.443363630359375*^9}, 
   3.443973531790408*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "b", "]"}], "-", 
     RowBox[{"1", "/", 
      RowBox[{"Cosh", "[", "b", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"b", ",", "0", ",", "15"}], "}"}], ",", " ", 
    RowBox[{"PlotRange", " ", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", " ", "->", 
     RowBox[{"AbsoluteThickness", "[", "3", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.44323630440625*^9, {3.4432382496875*^9, 3.44323829825*^9}, {
   3.443238329703125*^9, 3.443238341421875*^9}, {3.443363650453125*^9, 
   3.443363651578125*^9}, {3.443973504352908*^9, 3.443973507931033*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[3], LineBox[CompressedData["
1:eJwt1nk41NsfB/DvICm3UiG5JSS/MAlly3K+KLdsoXK5qCGiYtAtSWJspSwh
SUOWbiFF9rW+n0mKQUTLTLl2aWxjGeLekt/X8/ud5znPOa/n/ZzlOef8cRTc
/ew9hTAMyyHrcvuth92gFJtijP2/vM+UuWTCPYeW+0VX3z/HpdrdZbgRy8bb
oiUJ6a71qyT2xy2bUbagTwTaFnCEucnLFm2OOkq4lbUULMXfWXbgKfHThJX0
xJXvZhmkGdzwb5eIDMNr+d9Dsknj0p/FY4j1/E3J/3DuLztrJjyFuJqVf3le
6yFpDc7E2Wzih62+51x8HulsvR2ij4hzQs02At6jZfMTbUsJXtkfetNmT0hX
c17xa4jjnmMKk5lFpCVeN31+QZwRJ6K/hRQv58VUoSZCyeNq8IWCEtL54lhO
O9H7zMZvllNK+oyb7sX3BFNqk8efK8pJV/oUbvhMHKX3Os5oVZC2HpVy6yPW
NeZZB9AqSVdpnz4yRDRv8zediq8i3W/cPM0jooP0dP3qqklrU9Jt+ATegVH5
vBrSASrJxjPEdxW2vK90HWlDanPTHFEZkSQ1bvYMYQzzP0Pf/kP4dzmtPhvw
nMw/8fJpPwm1vYpLI5kEwlg6LU71FBiOGxV4twKZ3+82eCACb885zQpCWGSu
6Sv390pQz3pOL9v4gvSWPmd/cYhtURg5V0CaMQVRXuuANx99UsuknrQEc/fQ
ejBXGu2e5iz7N0OBlSQ8sLVxLKG/RBguvvPhtDRQrpR2+q9oIOfL0J//sBmO
P5K21sggjV9aLF/cAs8+BDdOar1C2NvpEjcdedgs1GvylE1a3kI/caMiBKqb
PaPTXpPjrYIDZJRA85p4yUR8I2ndysqcnZBQ5qdWqNSEsL4ns76qajDe++6h
Tx1peWJr6OAuOPSLnjzVno0wsXDRO14akKuXwRzjkV7Yu/R1XhNEPDGpx2HN
CPPWKu77aw+4JXncPCPdQu4vx77CRxu2jFKjRsxaEbaz0bLHSR+CpZN+5n8m
HVPdWMEwAI7pXJB3wBuE6YXZ+LGNIDn9ue/XzDaE0UK8Bt1NYKpRgZer3U6u
90hajDAF69lo91OtpHElaTZ1P0Qp5z2eCXmLsKAhgy+//Qalhp+87ZtIs1am
5c8dhH57ceXSjR0Ik3S+za2xAOMwv+yAAtIuNZ6nYmzA93aOa8ccabGg+3IW
tpDx+J2spkkneb//0mpc7OAfju7tKQ5pq4wzjEdHoFpLjJan8g5hjlErbi0d
hcB4rurxy6RVmaMepxxgxvQSq0XuPcIiPF+ZeztB8b1DsRH+pPkf45xEnIG+
sNlBv550wj6qZpkLjBbWjuV6fkDYVFBn1g4a5IvFVrpWkfYLTWLJusGpk87h
kqs+IqxFz8FG1h0GZX5IRzwh3Z2nxtL3gL8jjUxdBRyE/Vh6c5lyGpg9a9ZI
HuAiTOpLDMPuDDjq93CaU0l7iV3cXHQWPvBDffX2fULYkDJbPoEOKYcO603G
fkKMhtE1a1f5g/2DbcK53WRetLV2oMMf2pxYaRvDPyOGS/9IZtA5iCtPPNnc
+Zm8r/lLbxz+BIt1burhSl0Im7kp72Z4HhobKA38RtJ3/tpjLhcIrN1mk+y1
3Yjx9VHSBB4MoTc21jJo3QizUywkDw4MvwxG6ZaSueIu7khkCNQwo2QfHutB
WP0Tq5CRUChd8foAI6OXPO/KPC+JCAigpUro8nsRfrHJe7E+AtJcyya+betD
eIP4RrfgSHCojqwuDCCdEZrImY+CTl8lm1+l+hGmeULu5O4Y0EyPK/tm1I8Y
ufYRFquvQ2LTrEznqX6EBwXmxoxeB5vtrwZjqvsRq/HmiGVdLDRzPS99cx5A
jNKzoXVZN0FFtK2nI2qAfO+HHW8dSYSYPTr7CwsHEKvpI1P7cyKYJ4iu81ga
QHivFvPEVBK8NMt70HF/ENEMuxUVTVJAI+HpyHzTIML9DtPzOlMgk1ulLjc5
iLJp5534p25DkG9T9RmDIST/cf977p1UUL8z0ir8fgjRLHPsXv56FzL6p9er
/juE+n5pXVh4eRdWUf91sJX/guQTx1Xk/JgwxFrdn+FD+g92v1VbOjBH1ea0
VwyjvlGd9vbiTBDT3rvPRW0YsTZkekgHZMGFMMOwCLthVKwULGEgmw22ktar
2u8NI9y2ythiIBtWGNO3eut8RSzaWkvv6Pvgn1R8gOnFQ28VwnuTNudCT1f1
DVY8j3xvAkb8rVywVH7RPlzGQ/LD1ev11uWBcl2H0x5sBL315qnniOdD19CM
b2vaCJryiUYCmQIw19NO/ckeRSxTKc+Zq0VQHmHUpTQ1ivCU9rl7W56CwpsD
8pbSY4h24YqJRPlT+OHmUHDHfQwxMgueK58vhpLYi4TG9zHk2HIjeXtZCWzp
rRl2p06gmN3J60NcygETBKSx7SZQ31Exhx9l5TAkqmqhcXECVc99R66/VECh
OrNw8cUEYqzufPMCKsA4NPh82u98lMYo1JHVrIITWw2E2iImEZeezpE1roWO
XT0JGeNTSCx1cfYCgwUNurVfDy9NIdVUmZWmtSyoNEnFhTdMow1vWj6FzLKA
ecxm5rTuNJrqSpo0OvMC3K8Qx3QjppFHxs2HX/+oh5nWzC2dm2bQzPOndtm2
DSDpc6JgpZkAHfRKm/SPbQLVlX+9tv1dgLgN16jJ3CbA7w8P3D0rQBZxLvtV
lNngw/X9lZoiQBJ23YWV9Wxo2B8SZ/tFgP4WzWIYUVrg/Na79LvXZlGT7SUd
n1tv4F1bp5Za6xyqyuvPKYnsgGRN8zqbYwvI8CBHIMXgwKc0Dda0xCI6SNc9
XjzeD7EPwtqFNlNwx+pX+NlMHljsPb1BajsFZxr/lDGr4oFYg/2x/+yi4DeE
57HVb3kQNbijy9KEgk+KvxPyoIxAiGLrcMppCq5TnzBqcnIE6NkyP5VrKbjf
9tsv6dtHwS6jhGrpLISnHf94euDWGEhQ0/1cPYVwKaJeeEfBGLTVRZX6+Qnh
Zmr+2w6zxsCi63e9lEghfK2qyYLj+BiYyv40634shJsX9VCMzMZhb5qFs98P
IbzIisqWGh+HTSmD12/dE8YXYyj0pJ18kFGriFrIFcYNvEKVZfbxQbb+aphr
sTB+SOfy60hLPshNqVz4z0thvLWoeOsqOh92WPnT6njCuCIz5VNjCR/2iCzq
DO4RwUt9UqoFeyZhb3qb5kEjETwhT/C40mwSdLSyqYXmIrjH+QoFlyOTsI9m
pnjRSQT3HwsUsjk3CSbPrq8RDxPBPQ3S89hFk2CdFmwtUi6C/+/3NwX/BaHg
7kk=
     "]], LineBox[CompressedData["
1:eJw9V3k01WvUdlWUHGQ45/yOIed365SkpAzX0LuVJoXSVcZCVyoqSppukYpE
EkVmN4oGRCKl+4pkrJQhZEjhcpxzXqJM4Tvf98e3/3nXs9Zeez97P3u/a22u
+1FbD0kJsf0mIfG/77wpo5aVZD5I/J8N4q8qvCOvGbJQL7Ku+PGOYNZRrM5i
yYKq0tirXZjgbZX2bw9qykL6svdVN3IILjgTtlx+tSy8vE+hmOsEX+0c5DvY
y8JIg11AqxXBevdfeJI7siDcf46xt0yEL5jucOMYMSDLbU1lS5QQb96T/N1w
HQN+ere87/5biOUCBy7abWNAXFrEj/L9QpxYdvlepCsD5OzD5OYbC/Ezy+cD
UqEMWLTuY3ZahwAP2v/uP9zCAIWBECctTQHec+LH1dqzcnD6oVvHoct8vDh2
nRr/shwwTrZ/9z/Ex4Jn17OkI+VAmTRYutjw8ZlfWnXr0uVAXlLfuYjNx7cu
7lEpqpWDk7Vb1zy5349rb1Sk3FWXB7XQFrm6133YODsu/zyWhyahsfm7L73Y
4tO7KVGlPMw4GEmFlfVia4nZm/Z+lIc+jqSf9r1evM/2SAvqkQfL9Jl2llcv
3niWGxA4RwEkbtr8ljbcg30W/kwz11aAiddOOG2mG7/2TBGW+SuAfXTyIbfZ
37D32FBgJWMBPFBO7CqObsfj2godOnaKMGCiLeCrlmHTh49SY2KU4LrUPOvA
2HI0pGjpuqtUGeqTLzI35LahZm+67lCFMti83GG1YaINlbyZQAG1yhAbM3xO
eX07ijzzcGFmkzKsl/4mqdHQjnS/ynaO85VhXcLNJR+GO9CR3PcuSUoqsN09
JfXBzS+Ib2Pn1P2XCvRVaFzsy/+KPt7XqRk7qAJa9addBI1f0fNZUiaMoypg
NcBor/v5FYUWFnAMTqvAPMv6X8ZG39DShezWkGsqkDxlpRlR9A15ilrttQtU
wNFs4/1ZBd2oO9x11zFpJhxu5i9quNmLjvCX07qyTCj5EnMxLacXjW4aFwoV
mPBk9+7NttW9SGZW1OWDHCacyHnhazXTi3RPl+W76jDhS0uAVYHnf+icB0/J
ZqfYX+2DzGq9PsRcK3ivncIEjzYT2/5H/Sg14VlCfxoTUs3qp9zK+pHW+CXP
jEwmPDq8qelpSz8yzVefofOY8P3g8WjRHD7at8xmBaecCQtCq4ZSnfnoMTMv
fO4AE/JH8gKI5ADaQk5u6TFgwYP6yhc+egKktkojeK4pCzZHq/td3yBAomOv
S7XNWZDxl13veXsBuvlTwfTYVhYwt0sHvD8nQB1T91fM7GVB70wErHkjQMdk
25SoUBZUv2349d1KiCysg7abRrBA6e99z+X3CBErcum1vdEsMN4Uf3TysBAV
K52QupfEguxscELXhEhKVW5cL48FRTmlgf5VQhSvBR3bPrNg1NLI/pqRCHl7
9XJ8vrDg1546y4gNIoSywndH97Ag0rKw1NlWhLp1W+paCAvkzaSG3LxEaIXR
sbL9s9lQbfV24fwEEZI4w5a4Oo8NPlKvFP3viVD9i39Ns+TYoJh9azArV4RO
ofkFw2w23EttWnypQoTKNqZnBuqwIf/A09jKQRGKuWLZk6bHhg2vPSXiJkTo
QPUgt8KQDVx5z3f6swmSszZLYKxjQ4YIuzQwCbK3a7oWv4sN39oD8tP+IGhZ
7N/VL53YkK47lNNoTtBUMy3d5cqGA7dXpNZvIeiO89HAJV5scHpL6ax2IEiw
b+7x/AA2fB9/mBVwgiBRssVLfIkNl7Z3dg2dJYi0BErXhLJB7ein6FVBBH23
GU/oimZDqHXXViqCoOGr+r2C22xoGl4Ir6IJGin31R1LYoPh5nMRBnEEjZrw
X8tlssGs0IkKTSNozJ8nz8lig825Kxv3ZxI0kevusDiPDYf3aecoZBH0a8ln
oUkxG8bpBNbbpwRNu7OMNr1ig6fCTZnOIoJmknYG2b5hw6iT08J/XxIkqVzL
PFjHhgaPhbe/vSZots1cN79GNmhIVg9pVRI056rFw4BWNsRWJ9ub1RAkVR74
42onG1pCzCrV3xE0V+Iliulmg9SBGNOaOoJkTMZD/+lng4oUP3dDPUHz/fUb
HonYcN2natG1RoJkc301ng2zoXUlM+qfT2I9BFkHysbYMLFVcjSohSCFJfy8
d1NsqN+hsGPVZ4IWuPOmWiQp6NutlPyojSDFJPdNPdIUpEiubBtpJ0i5OfnG
oCwF0yGf5sl0EqSi9Pnz5AIK+HkfFgvEmGnN4kmzKOju0VuZ8IUgduhOH0U1
CkDdbTGriyDq9fXn6lwK/htUnOsqxpyZmtlaPArCb9l8OiHGasZzbdZoU7Cv
/Ui0vRirn7CIQ7oUOBtRZnPFWONx4DdLfQoan2xqvCSOrzlQrLPLWIzH17u8
E+fn8sZPuiEKntpkNnV3EES76Zd6W1DgcnPv+kox/0WJvrKntlAwaHb37ilx
fbxPWbsuWlMws2uOxM9WgpYo8lMjdlKgf9bZDsT9WWrFG4izp+BK/afM3eL+
Lbvirn/XRVzfgh9TJuL+Li9LDnjsToGjd5C98CNBOtOtVS88KaiOTS72Euuj
67dzz0dfChLCIp+8ryZIL+d6Zrs/BcUSBtufVhC0ml/zve8sBTpR82QOiOfB
wNUiZOYyBcHR1oI14nkxTAj8IBNGgWSUItdGPE9GTcWqzEgKigrvhxmI581k
m/7j5fEURK0/qHH4EUGmIb4ThikU1P70sCvOIGhtaZbF+nQKDOw6OpvvEARG
vBaHbAqSA50UztwmaOMilmRIKQWW4QXNLhcI6nfflGlSIeYnuMy/LN6n8H9O
Wg/WiONXbaGDxPtWr9Ec79BIwc6zobzRAwS5UnGrl/dRsFHIuNhgRdAs+6qW
LwIKEvtmypI3EnQvZjzg1hAFrbaF/mZIvL9KjrXTExSoGdU7ja0k6LScqscH
BgeeCJwdPeTF+lttnR+syAH59X4uDVIElYSdzTVmccDfWVWHPS1CUvPaptI0
OXDlXv8+DYEIRc1KivFfzYGYzDVxvDci9GhMo1LVgQMeVhWr9I6JkI2hzZE6
Fw6oehRZj+wXoe8nApQvu3OgvsCUE+4kQn8Md7qKvDiQwT8zZWohQm+EqeMl
5zngMPF7+V0lEer8SmvvT+dAWPCyuDsPhCiIu/MD5z4HZLzc71UkChHP9eLJ
91kckNJwO18WIUTe7d/KjAo58Ms4qh0dE6KxT+nO86s5EJFnfM3KUIgU3/Ii
HhMOjL66w3hfJEDTRPdu9QgHZvQXbZDOFCC+oklx9zgHvHMmkxViBKjU3obP
nq0KJfEaurG+AnS8++TGC2xVcO+uVznJE6CGycrpHeaq4v/t5o6kkAEUu8zr
6HCUKjgIJwsOL+WjS1Ynghm3VSHF6u2CeQv4yMcnIGlJkir46356d3q8H20u
iK5xylCFrXnGMm1V/WjMvHjJ6xeqEDZT8T7jQD9ydGB8udmtCmX5DiUByX1I
7UrOdgMDNRBOWLDtBb3oQXZW2bixGsxOal5S/6EXGTU+NHiJ1OBVGM7TKexF
f9KZahZbxLg//uOFC70ovDi1b4ezGkj5zTr8QLkXTQ7eCDwcpAZntvqtXqjf
g1od/B6nv1OD85rAy937Dd3W/kNByVMdMk4vrYmr6kDVHHP94RsaUPjXBD3w
shoZq5VGrmxaCMRxkexxuRdYbtYdP7cgTVhwa5TXON2MpcbxzqFLmrCshHJZ
bdmCp0XtehdCNOFi3sqVB261YNJKDaWGa4LipS1FO7VbcV3ejcNfYjShfHTk
+yK7zzjK/cL+vQ81IUkos3tDajtmlrrauzRowpfpdPPEuV1Y7tl5Q2GTJpyQ
/WwG2l1YKjuRea5FE1wqg6hKqy48GtfckNihCRGyx8KDorpws+/2HW19Yj7x
mkaJnK84nguWTlOa8GCV2syqxd+wxoWFpg48LhxVfbTHm+7B2cfn0u1LubCm
7VhPFPTgtfuHpN20uSB/yKAldk8PdtlaVn9Alwuete+2mMb34EQVT69Txlwo
CSnV4sv3YupBdnysNRcEsVLeuSO9WLnebLzRnwu229Gbp3f6cHo5r9PhNBcS
kvbPty3uw6ufyZe3nxXnb8Z/VDT2YdukrsieQC6knJLLNZnbj294Xl764yoX
nEqEjzd79WO5X7W7lVO4oHju+GSdFh/PW+xcYFvBhZ/xdlq3QwbwIQpZPqzi
AkNjWfb9+AFczaA7ZtVyIXSab3YrawCH//xvztM6LsjGLmFOfBzAcpXH7Vit
XAi/VNo2qirAil5hI58FXNiQOEsm+54AH9t75MoawoXnyzpO/1kowPU7d6hd
G+LC4VXB3vUVAnzTlGWx9icXiHFkgGOfALPk0qJTZ7hAbSsSXl0ixGq5z/U8
FGlIKNZb6p4sxH/fTXrzUpmGQ2upmOBHQtweF+jIZNEQkTJHP+i5ECcHbQyq
UKWhZJwqmm4UYs0/P37QWkwDY++jWpn5Irx4tN9HZEjDh+E9R/ceFuHggdrZ
m4zF/rOq3ESnRLi3M+d2iikNDndve+28JMKZlSdKtpvTcPBKQ3BKvAgvi/9N
4YklDcn6jnpry0V4hRmVc9KFhoJi3ocrigQ/+f3gpKSrmM9rLnOVGsFGMkWb
Itxp0EjcNC9jMcHrPtl/Sfekoeko4+WkIcG7fG8v+OhLQ9XMqlcbHQn+vLvP
xcWPhnTTic+O7gS7rjV60OdPQ+OOFatNDxF8aH7zupmzNAS4Kvy1/zTBAXdZ
fsuDafCwNjm/+xbBs8M9Swqv0LCu5s7ShgTxfXisUHZ9GA3BVeZ56ncIvol2
33WIpCG1JsuYlU0wxcsY6o6iIT6Pwat4QnCy7KiZzy0aIiVqqtYXEZzZEtMU
HE/DP5uVWWllBOuU9NKKSTQsNajJuVxJcN49g6NJKTQ8DtfvXPOW4OLjTdL5
6TQU+TC6xxoJNnfk/YkyaDiXjx4yWgl+A/6p1fdpeNGdLRC1E1zHYP7RlU3D
SLR7ObOHYLsRj8veuTTApNQOlz6CW1uffhh9Iq5PLxP5DBC899UcjYsFNPhO
bAy3ERHcnWF3SK5IrEemod7kIMEHI+4WxL2goVmH1jk+TLDI74fk4n/F+dQl
Txf+IPi40wabxyU0SD/lKVaOEjxmfivBpIyG2516P9LHCT63tOe/N+U0lJmp
L7SeJFhSXn+NbSUNa7V0r5X9Ijjkx6XA9moaThTNM5szTbBsW0Ptgbc0uFck
LFeaIfhG6SJq5D0N7wa1HYVizF1+Qdmsjv7/e/9/ANoTvIA=
     "]], LineBox[CompressedData["
1:eJwdlnk8VN//x1FRKimRhModM/cOQyVLlPNOKSOVJe1ptYVWkaUPSkIREkWk
RdlSVLSoI6KSLFFRyG4wM5csWSrf+/vdf+7j+bjvc87rvF+v9+NxFx84auso
JSEhMV1SQuL/3jlJ5RcutGqAxP8/ffjl8B2/Te0agN1nLvCeoDE0Dryr79SA
G9/LHAL+0bikeM1cx24NqF+CWuz+0tgy48q+vl4NWPiWf3dwnMaVUW1ZfmIN
UMpSy9g/RuMt3nqj0v1MPV49lDBC4/o958xjBjSgLDoqNGWYxg5ra6LVhjVg
4LCR84lBGrdxiaa0Eabe/GWs/C8au8w+yV0+rgGF78Vz/Wgan2iaU2wpQUBw
7D71p900fl+6+1WGFAElvNZrBZ00Vn94L192CgF7TW0XxLfRuCzAOKtsGgFl
E738kgYaL3IJvsedQcAMfuaEcj2NvawrUsLlCJjQDq5CX2issfjAVUsFAsJy
nOqlP9H49LSsyxmKBKj6Sajdf0/jiv6hMFllAv4uqo1ReUtj36Kw/8pUCTic
I6Hr94LG1QdznC3ZBLj4E0IilcZsq/H9GSQBMUohZx1u0th/ufluWS1Gf8eK
8+7XaUxOqbcu0yXgg+bGfqkIGgfekzC2XEHAse6OPSonaPw10nJ5hgkB5xwb
N/UfprG2d6yOrCkB7xoHhxIP0rhuPUmUmRGgrycf5b6Fxku6N8+wtCLAc+FJ
1h89GodUX5fO2ETAypO6Q8e1aNzwvE1C1oYAtV7vLy81aBwa7j30wZ6AGz4T
Qx/ladysdbOJv5eAplUP1X72iHHUEfEj/gkCtuR3yDTGiXHnVqPMdE8C+Hey
lBMuivFKdDZ1mjcBZie1VbQDxVgwSynhgx8BQ6F/dStdxBhyVp3jnycgdOTx
aQUjMaYHLtnzrxHQF3H9850KEW6ou7U1KYGAdSlJcf8KRbjsVd62/hsEBLYm
TV/6WITvXmjecf0WAZ1PI+3U4kV454LlDt0ZBOxR/3NScY8Il5j9cAp7xXz3
aDlytUWIczl9zo2YgKNK9v6e1UKcMmOK69IiAj5V6wZovxFi3686bvWlBKym
gl9xUoR4yeGzR6kqAn5On3Nl424hToymTn9oJUA0ek/C7VMvDvUy9VHrYPyM
3M9rf9GLvXbZ+R7vIsA/6PN7w7RebK15xn++kIAGc8OcI2d7sfTzqkDXIQIi
ml8rq+v34uPN3mHTprKgk5zvkXClB6/XLU3g81jQIKxIKNfvxtulLbZU6bKg
o2jqwWrVbny48cPMbctYEDtmoJo9qRtHXvwUeMiQBf8dVJDqqxLgr121TgGr
WTDvxUK5BFcBPpTStuypPQuogOgLmVe68NnZkh8X/ceCIdHqoIGPHfj1gMn4
7woWbKX67ay/teBb5fkH7KpZkOgZZjmY34KDU/XKsmtYoFN//F7AtRbM36Z1
3bGOBTuWyK/auKMF175QMaxpYUG8M/3kfX0z7gkaPZE9yAJLWQePyqyfWEk+
v+eQiiYYJErvkwn4gY9oL/te7agJodcEBeN5n/Eq8aHaHdPYIK3iHfd8WTwy
ZylvnHmbDcPrXYNGdWvRE1HJ4kN32WDy6c3aQa9axMo/OfziHhuMx49MrXlV
iyZbVt50yWRDiAl3psmGL6joaMiv4idsWKN90i/j0Fdk+nIw3vcdGxaOGgtz
o+uQgW11a5eQDQGGR/RqqhvQvQUB+aY0G1ovH3O6OrcRKXZoX7raz6zf9KZK
d1sjGvQO1V8zzIauA/N/9v5oRLlJKDR5gg3+fjajXm1NSLf7Ac9+DgfSB+Qs
zU81IzIw/HSRIQd284PiFrq1ogKT1ClWxhwwt247s+ZSK7L+jWO+rORA7N6I
cP6DVnT6yFCWYDUHvOps0Li4Fb3fva9FzooD7/s8bOljbchlhYHlrn0cKDta
kSI80o7Sf7UsGAzlgMsfpYvfbTqRafaftDMXOeB5f2zk55FO9Nl1noFMJAe2
2rtueHOxE401W1mrXOHArlCDdqWSTmRZmR8MSRzIKotsmmrQhXoyI0SXcjhw
6vHboGZ5AeI6rsCa3zlM3jknddO70WWNTWPnGjgQ9DQxpBB3o8GfB/Rbmziw
39ExkPe1G73eeSkzuY0D/ETX9ASpHmRr/TN+nogDj6Z5e7ze0YN8TM4fmyZB
QtP8+xazJXtR08j1TGcpEiY6FU/ZKvYis7zszpLJJDiYSaZ7UL1oxtK63Wen
kTD9UXHeUptelMLW4o/PIWFE0LVflNyL3s+uXizSJOG0/gnnBXpCxKvs2L2B
JGFWy7wNfWuFKObSWHw6l4SFlXGXkrYK0W4ZlpyTLgmcM0algT5CRP/xGmsy
IuGubI+b8yshUhKo1lRtIGHuneiRlFUi5Je6VE53Ewnf4hvi+qxEqPnAOn6E
NQmrtLoWzdstQhmNRzHfngS5zwF3BD4iZFpTlFnkQMLTaHP1xMci5PjaJfjJ
cRK+rFp5XnuhGIk9erzNPUlYHHL5Hq0tRqfV3N2+epFgZhQ7P8hYjML9j9qO
+JHg0ZORKGcvRo+MvRatDCFh9tLq3OoLYmTc81vhUygJqrWGUlNixaj4uo+M
w0US1ijfGJ2SIkZfR/zFAVEkLBq+G30sX4z+5J0rKE4gwf/WD5vONjEKcZry
aEsSCb0hs8qCxWI0S+nCnY6bJLBnmNv3jYiRxqnwcJlUEoS6bvt0ZtJovV70
9g0PSfB5LPXfWj0aVbXOsWrIIeGF8fZC/koa7YyJRR5PmP1Op11dYE4j9/54
9uXnJPgZ+GLWVhrFPEwe/FxMwqOhFZEfT9FIde8iwcFSElr2uLfrnaFRqtzt
H4PvSbi6p+CASzCNnnmkFilVkPCp81qafgyNVqtx8u5XkZA87L6j4hqNysrT
0o1qSJCsEk3Wu0mjRq2sqJ11JDQELdPYl0kjpx+84N7vJERM6g0gc2jUF/7Q
27+RBMuiFY8K8mgk1ZPrkNxKwuW3eocs3tDo0vXltrodJGxqP/sVldJIkZ9n
XtjF5E3p0YjURxqRac+1W4UknHG+yRPW0Ch3m8mikzQJ2Xvzls6po5GJzCuF
yb9I+LvM/v2kBhq9zTOVuTpIQvjE357CnzTa5FQ4pvmbBGfTsCv8NhrVKZqJ
80aZ/n3SLEjqpNH+kuKW9X9I2Dy2fe+rbhp5st69d5WkwPmVheRemkb/aiwK
xiZRgBwLh5v7aXThXNnDi9IUWDWs3aIzSCN5Pas7qtMoaJk7Q2n9MI0SWj/F
PZhOQUnSbSOtERoRMZvDTeUoaLzf++z7KI2yVlefqZSnwH764lj7cRoZ9Nse
36dAgZZVzbvEPzTCKbWH+hUpWJbcbfPgL42arRbv9VKmQLKj4HbIPxpJjHrs
GFehYINxA483QaPFqS/sAtUoGLmMfqUwbGYjs2nKIgos3HTpFoYP/rWzCNeg
YLxjLauP4eD0FLNZmhQMZrtGf2Q41V60MpZDwS7ZOgNPhksljQ3ncykwq1ZR
7GHO63oQsjRZm4LyYzN5PIan7qzRInQp+CD4EbCK0UdKL2KnLaWg44PUrAWM
fn6u+yLecgrW6G1uKBmj0WGH5yq5BhTcr2zqXsXcP1xWWtFwBQULPi80Pveb
Rpl5trMKTCiY+auq8uoQjcoP3Jy22pS5r7Nk9qkBGonkhJNKgYLMNvk6Dab/
ci+N/lmuoeBa1EObJDGNdJ3Pj1SaM/2UblLv6KWRtcLnX1ssKFBeL1ozJqDR
cawuqrdk/Mn/r6Shg5kHN7cuh40UaM4PTrvUSqOa4skNLrYUPLBYk7blB40G
j9p8FW2hQEb5RJX7NxrNVU2uOrGNWf/u3zFbJn9bPQ1L/HdTsF8pUj+kjEbf
WYezo5womKcXFRfF5Hu8Ki9N0ZUCoUYoX5HJv+qZSXcS3Ci4V56f48zMx54v
N+LvHmP2T5tfeoqZn+bzlYHPfCkwLfoiZ3SeRpLLVP1WnaHAMtXSR+s/Gmk0
uZwqCqBAXeNtt9CLRocMpA6XB1MQ3y4//bsz40/ncrvmSAqGT3rddVjP+HMl
aKNjNNMvW35MsSnjD6pY33OFgkmphT3D+owf8c4rB69RYNBeqvCBoJF4fYLm
1DuMX6Lzzap/xWgwbeK3bj4FdXEzjaLuiVHn1nUpYc8Zfb4bbR8kilHd5AiL
tpcUFKeakSlRYvRyn8r1uEIKfmXFrJXxFaOzyvrGfz9QEBbgMdJgKUbyoYf9
yxoo0MkxqXvSLkJSBjks1k9G79vpW/S/idBg2+/yMy1Mntc1J1z6IELf0Hm1
pZ0UOOmYfcEPRCj5983X8TQF/75LLjDxFCFt5y8SjlJcoLzVY+NGhUhdUTX9
9WQu+CtTChHdQiRffMBGWYYLW6OdU3fVC9GAet+tj9O5MG+M3BP0TIhefJVd
s0yRC4LRPdf7PYXIYh2cn+BwwaB5z6BPZy86qJk5LWEjF7SXcZ9+z+pBviUO
h9nWXCj9lhWG4npQlOOcj7m2XDgllFzuE9CDClJ9Ln3cxoVtjtbJbjY9aC7b
Ytbf/VzISxrosB7oRqXsjrn7vLgQ+7hemvk5QVxy4SL2TS6wO0UXSkK7UD/3
ikFuHxcsRLnGvPI2VFcO5goDXBB+jVxhmN2GCo+I7TyHuBA4Y9hBM6oNReby
jxuMcYG4+eZdtl0b4hpLZL2YpAUa2dZFvvWt6ADfY3Gxkhb8pDL3qTW3oFrn
9TNqV2pBVGV5e9jTn+jZ3fGWoVAtuBGqPC9m4Te0cy0BJuraMPNjmdWxscdo
gceF5zqF2rB39tOwY3oVOHLCSf9ikTYESztPMSitwFIx63K63mrD/PYviVXb
K3FP3pT0lA/a0L2heaDQtAq/kAi+NqdGGxohcfveA9V4Z2yg93CHNuyfG1v6
+24NvvbSR//1dB6E3UrMqJtbhxVl3XM2buNBtr5y8OjaZpwd+ayjYQcP1AI7
Dum6NON1ClNU3HfzYGzIzdnyYjP2Uk0+G76fB8jvR69OdTOu06mye+fGg6f3
Lz/O3NWCb9gtH4ZAHjzesfKnmVsr1kj6Y7w8nQeHbylHOJ1sxzpLIt6qjPMg
r0llM1tVgFkdNjt0GHbISbAcZFglQUm8muEMjsKqIjUBnjI5ZZ4rw8/KhNIO
CwW44Vvu4XyGff2Nda5qCHB4QJ38lj88KGD/KZOkBLizgtgT8ZcHqrL/jGv1
mfpzgv4UhsO4f+feMhDgz0YPQp4wHGLT2+FhKMCvbhs8+sGwU+AVd5kVAhzr
xZ/E/ceD0xOyM41XCrCZ+tH0UoZ7fewSkswE2KhGz/Q7w4PzFra5rhFgndCR
zyKGlQdqNQzWCvD8X0F/5k7w4J3Ov5AKcwHuK4ndfJDh/XtNW/9ZMPp8d7R7
MZwRZtdaxmf06ar7hDN8I8K6Ps5SgN9dv387h+HffRJZOlYCXLDJ3bCE4Qf5
jy+MMZw7aWl5HcPZ7I07SzcKcNqzoX1ChpP7y4mYTQKc7PFiaILhJeXL2vds
FuD/AROrOg8=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 15}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.443238266203125*^9, 3.443238299171875*^9}, {
   3.44323833596875*^9, 3.443238342640625*^9}, 3.443363653765625*^9, 
   3.443973533962283*^9}]
}, Open  ]],

Cell["Find more accurate values numerically:", "Text",
 CellChangeTimes->{{3.443973364727908*^9, 3.443973389899783*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "b", "]"}], "-", 
    RowBox[{"1", "/", 
     RowBox[{"Cosh", "[", "b", "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"b", ",", "4.5", ",", "5.0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.443238624671875*^9, 3.443238641203125*^9}, {
  3.443973510540408*^9, 3.443973514149783*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"b", "\[Rule]", "4.730040744862704`"}], "}"}]], "Output",
 CellChangeTimes->{3.443238642109375*^9, 3.443363675953125*^9, 
  3.443973537165408*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "b", "]"}], "-", 
    RowBox[{"1", "/", 
     RowBox[{"Cosh", "[", "b", "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"b", ",", "7.5", ",", "8.0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.443238624671875*^9, 3.443238669875*^9}, {
  3.443973517462283*^9, 3.443973521384158*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"b", "\[Rule]", "7.853204624095838`"}], "}"}]], "Output",
 CellChangeTimes->{3.44323867071875*^9, 3.443363680734375*^9, 
  3.443973538571658*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "b", "]"}], "-", 
    RowBox[{"1", "/", 
     RowBox[{"Cosh", "[", "b", "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"b", ",", "10.5", ",", "11.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44323868659375*^9, 3.44323869003125*^9}, {
  3.443973523743533*^9, 3.443973526774783*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"b", "\[Rule]", "10.995607838001671`"}], "}"}]], "Output",
 CellChangeTimes->{3.443238690953125*^9, 3.44336369709375*^9, 
  3.443973539665408*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"roots", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"4.73", ",", "7.8532", ",", " ", "11.00"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.443239187984375*^9, 3.443239204796875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.73`", ",", "7.8532`", ",", "11.`"}], "}"}]], "Output",
 CellChangeTimes->{3.443239205609375*^9, 3.44336370159375*^9, 
  3.443973541259158*^9}]
}, Open  ]],

Cell["\<\
Create the eigenfunctions by plugging these values into the solution of the \
x-equation:\
\>", "Text",
 CellChangeTimes->{{3.443973400665408*^9, 3.443973430181033*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "b_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"b", "*", "x"}], "]"}], "-", 
   RowBox[{"Cosh", "[", 
    RowBox[{"b", "*", "x"}], "]"}], "+", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Cos", "[", "b", "]"}], "-", 
       RowBox[{"Cosh", "[", "b", "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sinh", "[", "b", "]"}], "-", 
       RowBox[{"Sin", "[", "b", "]"}]}], ")"}]}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"b", "*", "x"}], "]"}], "-", 
      RowBox[{"Sinh", "[", 
       RowBox[{"b", "*", "x"}], "]"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4432390065625*^9, 3.443239139*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"shape", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "#"}], "]"}], "&"}], " ", "/@", " ", 
   "roots"}]}]], "Input",
 CellChangeTimes->{{3.443239162765625*^9, 3.443239177796875*^9}, {
   3.44323920990625*^9, 3.443239247078125*^9}, 3.44323928746875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"4.73`", " ", "x"}], "]"}], "-", 
    RowBox[{"Cosh", "[", 
     RowBox[{"4.73`", " ", "x"}], "]"}], "-", 
    RowBox[{"0.982502214605038`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"4.73`", " ", "x"}], "]"}], "-", 
       RowBox[{"Sinh", "[", 
        RowBox[{"4.73`", " ", "x"}], "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"7.8532`", " ", "x"}], "]"}], "-", 
    RowBox[{"Cosh", "[", 
     RowBox[{"7.8532`", " ", "x"}], "]"}], "-", 
    RowBox[{"1.0007773119072525`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"7.8532`", " ", "x"}], "]"}], "-", 
       RowBox[{"Sinh", "[", 
        RowBox[{"7.8532`", " ", "x"}], "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"11.`", " ", "x"}], "]"}], "-", 
    RowBox[{"Cosh", "[", 
     RowBox[{"11.`", " ", "x"}], "]"}], "-", 
    RowBox[{"0.9999664507707187`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"11.`", " ", "x"}], "]"}], "-", 
       RowBox[{"Sinh", "[", 
        RowBox[{"11.`", " ", "x"}], "]"}]}], ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.443239170546875*^9, 3.443239216625*^9, 
  3.443239248703125*^9, 3.44323928875*^9, 3.443363793109375*^9, 
  3.443973552196658*^9}]
}, Open  ]],

Cell["Test orthogonality.", "Text",
 CellChangeTimes->{{3.443973562212283*^9, 3.443973576602908*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"shape", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "*", 
       RowBox[{"shape", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], " ", "//", " ", 
  "Chop"}]], "Input",
 CellChangeTimes->{{3.443239252640625*^9, 3.4432393275*^9}, {
  3.44336383159375*^9, 3.443363832375*^9}, {3.44336391065625*^9, 
  3.4433639190625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.0000086137907829`", ",", 
     RowBox[{"-", "0.00001341005240665602`"}], ",", 
     "0.00031237872729289364`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.00001341005240665602`"}], ",", "1.0000005887413863`", 
     ",", 
     RowBox[{"-", "0.00110137124865072`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.00031237872729289364`", ",", 
     RowBox[{"-", "0.00110137124865072`"}], ",", "0.99959896504879`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.443973664415408*^9, 3.443973712462283*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumberForm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.443239342703125*^9, 3.44323934584375*^9}, {
  3.443973624509158*^9, 3.443973674227908*^9}, {3.443973704759158*^9, 
  3.443973711118533*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      InterpretationBox["\<\"1.000\"\>",
       1.0000086137907829`,
       AutoDelete->True], ",", 
      InterpretationBox["\<\"-0.000\"\>",
       -0.00001341005240665602,
       AutoDelete->True], ",", 
      InterpretationBox["\<\"0.000\"\>",
       0.00031237872729289364`,
       AutoDelete->True]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      InterpretationBox["\<\"-0.000\"\>",
       -0.00001341005240665602,
       AutoDelete->True], ",", 
      InterpretationBox["\<\"1.000\"\>",
       1.0000005887413863`,
       AutoDelete->True], ",", 
      InterpretationBox["\<\"-0.001\"\>",
       -0.00110137124865072,
       AutoDelete->True]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      InterpretationBox["\<\"0.000\"\>",
       0.00031237872729289364`,
       AutoDelete->True], ",", 
      InterpretationBox["\<\"-0.001\"\>",
       -0.00110137124865072,
       AutoDelete->True], ",", 
      InterpretationBox["\<\"1.000\"\>",
       0.99959896504879,
       AutoDelete->True]}], "}"}]}], "}"}],
  NumberForm[#, {3, 3}]& ]], "Output",
 CellChangeTimes->{
  3.443239346296875*^9, 3.443363895140625*^9, 3.4433639415625*^9, 
   3.443973633149783*^9, {3.443973666571658*^9, 3.443973712790408*^9}}]
}, Open  ]],

Cell["\<\
Not quite perfectly orthgonal. Compute roots more precisely is this is \
problem. \[LineSeparator]Plot the approximate eigenfunctions.\
\>", "Text",
 CellChangeTimes->{{3.443973730024783*^9, 3.443973774806033*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"shape", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44323921784375*^9, 3.443239227390625*^9}, {
  3.443363986375*^9, 3.443363995546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[3], LineBox[CompressedData["
1:eJwd1nc81H8YAHCFkk0kGgpJhfxKkeRRRCIRipKVhshKgxQKISOFJOmMhuwR
Se45spKVUjLuzpZxpzLuyvh9+ev7er8+z2c838/c6OB27OxSDg6OgiUcHAvf
w2eHPlN+WmiJ6/03OT/PVcalI+VOk1QFgyPP/lQ+LyfvfBafWCCpC/1WX4yO
pXaT+9bKBVyTN4b1A3WWu1r/kA0bvuc/lTQHjXjFG/SkJSgXvu75vLQVSImN
0L4H8uHM4TOP7OVtwMkn4PSPhpU4HPi10j7OHmoPXLxq+ksKTzhOlz2QdIR9
k+6xu+M2YqWOVPGHxHPgPBL+xgHkUUV2X+6EtBOsXp7ykH15GyYutUvflOoM
nYr9X3ofqyBPz+2U4/Ku8KRF6I0R7sR39JaGD+buIB9hk75uqxq6mzgeto7z
ACku2qhmuwZ2bb+rEyHpBQEG31/NB+7HmGerKZtOXYEeasSV4kodPCz0WpOc
eBX6vf9198jrYRGjfhdT2htWPFknan/MEF1sbPLv2vtAhkKfSMIaY5RpZCpv
SL0BjVMVMaF3TDAyS1TBVP4WTMcd4DdIMcOD69LSfp73A/kXM+JgaIG3qhOE
y839QYKr9Pxe7hOoulsxwiouACbibKWVMk8iSfxocJhkIOSdFzpAcrDHGw2P
Ko+/C4SYmvN72n0c8HgQfansqSBYPth7/+aTM8g/6eFXmhgM+sttbv2ZPIvX
v8ZcH5UOhafPBOUPCDmjWXhX0VtKKMhcUvvlctEFlXXlJwPtw6D40HvLwYZL
2FdQ7LEu9R6Mf/AToB13R9OH7ReN5SOBK/XjM6MLl1HRUDZdqiYSDs7Y2v3Z
7YU8nC6DA+ejIPunqcCbFVfQtmQuD83vQ+3U2dLbpVdRfMt9Zcu4aHh1S/WY
lIkPBvAUbA6VjAHbqOiuoXUBuFU/OiTfPQba/JrO7c4LwJYgt58dNTFQEfne
kKp3G+U4FTOUr8bCqwvagnu872D1bJry15Y4GLQ0LZtlByH/n7hd0uGPQVPw
Ggf14j1889+VuEO9j2Fbm7jycdlwtHE3m/bQSIBoiVXGq6nhmDMmVFI5lACK
9nOHr56MxGNDIZoXDyaCGOW6tlbxfYzv8tF5M5cEabobRM8ticH9a63SqBbP
QPGRwc5CtxgcPqnGzZP1DCgS1pLStBhcP+p9JkuJBKl5ezcblMeim9PuTRyd
JHglPsegPXiEoo45r56rp0DjfiOr5xefoKVVcs74rzRQLNoR6juRjMwOc94U
qefQqu13TVo9BYNteM6a6TyHj4/I59R8U7DgjJtUUcxzoHOEeVZxp6Kg676g
G2ovwGXVowvm69Ow6vaPk8tuvgQtfYak0NkXuCNTZNlantfgNibJeVs/Az8q
V9k1qLyGkpL2l6cfZ6Bd3vXSW1av4eM/jpSXIxkYUURz7379Gk6xFMuDojNx
iJLV8eJIBnDyj7Y69mRhUqtB3n8PM0F4bN0PMMpFvvkAa/31OWBy2+q+1dYC
jHc6YaOolwOiXsfcVlgVoNxXRTsR1xy4eOfYxpG7BaiV/v1MR1kOfBYQStAZ
KMCS9Lg3xcq58DNfeoPe80IcMxt9b9iYC5dXr4i4oViEFq8efboskA+qz9Z4
smxKcJMpY+jDvUKwU00StNtMQSk/fY3zyYWgQ2/j4NWnoHAW6R5vcSGkpT99
2HCOgn95zJRNewrh0UueU8kvKNhMKb5MVX8D366bFnhvLkcflYA5Vv8bCGff
TqApVWCjkJiYsnYx5CU1dAsfqcRrjXsgfqIEPrXeHIj6XIsShSLUJUsQRI92
zemKfMaiHp36Js0KkBE3dGt7/Q0rLj5dYzVaCRZb55/MJ3TipPw+oaxLNXDs
Y1LcU7VuXMrOEF6zqQ42PN+4a8ONPtw9b1dkll0PMU3rec8+HMT6QNXG6q1N
0ENZYaWZOIzS90fY6YxmqNdIYMh2jOHINI3aqtICzqSCOpVz45g2XFonGPkF
Bsz45TJGf6HgupfMvr6vkMQlzU4x/4PhTm/OkeS+QWRelJngvQmc0s7ou+D3
HQp7llvWlk6i147KwlUf2mCjl+raZ0VTeE51Aym6tg127piXe/BuCi13+97j
b2wDr3SBB7fJU7hXQ9Vh6Y826He4FXuqegqXHkgTYjDaIDg9YgujdQqjTAMv
Vkn9ALaJdU3MxBS+dtfd4OX5A5Sb25f0bJ9GWnblvc8b2+GF0sayo0nT2DzG
Nbpjczv85tJQCk6eRoriQaMYxXbYMTQ4VJI2jaTXVfwn1NphSPOYtmTGNDq8
qI7oNGoHdfls6+LiaRx4Whs1eK0dbL51Frs3T+NYeP3D2YZ24N252ufL/DRS
P/FP2Hxph/sUP6n8pSxs5D1iTmlrh4GXkr8juFmYHdIgdqe3HYRU/XX38bHQ
PbAxlofdDpFvb5z1WcXCiRvNj1bKdYBG4n5xV0UW/rv49ckWnw4IXWWnqnac
hea7T0cr+3XAdcfea/ctWZi5ZCB4Z2AHvHjgDIMnWWgTP+2xL7IDila0WUbY
srC8SuqQaUoHVEZapZdeYOHdDfYT1+s6IPu0riPJh4Urv40Z1Up1QlThDq+7
iSx0Sb56oEG6E8pSYl3vJ7Gw0mVerUWuE5IVDOlxJBZe5RSR7VTuhL9fdisk
prHwh4oqm3mgE0IKhyAkk4XP7vk8l3DuhD/a81oDpSzctn/53LnSTtBb0bCq
uI2Fua8zNrdROiGdu1XxYTsLVcVMTA2qO2G12cO9Lp0s1ByMT9v2uRM0w5P3
i9NZaByx1XB8oBP2Pdref2CQhZ4/jsR7i3bBOaXIXfyTLJw68Lt8WKIL5l2M
0ounWHgjM27k1LouGN9bI2THYmGgH01LS6EL+MfCCl7+Y2HcJo/+pVpdsOrv
YyPRpWws8YjZEe7UBbybrnmbC7JRq0Pdeta1CzxbVMcbhdhYodsV5OrVBZfv
WpvribCxTkL+h4lfF6SYZfZuE2NjZ1mxn3hsF+zRqRBvkWQjB29HfRKlCz5f
jw0Kk2OjfsrG83kSVIgUaUhLV2OjarygfPVaKgRnsWuy1dm4IfJfX/tGKqzS
/7krbw8b/3q3OnApUuGOstmvrL1szDINtTmhTYUmbo3uYGDjyiW/LGYvUGHo
v723ivSI/qa7xERdqcCbYKF+X5+No6N1X+QvU6Fxs5fG+UNsrG5LMzW5SYWz
D6VXCRxmo3eu5ZHUaCrsHmPJqx9hI82WomvwjgokgxeRfGZsrLfI4rRBKlRU
BRWXEH5rmFDhWUmFUa1t8mfN2fhAzUs7sZEK1pqHvxZYsPGgkIIms4cKpzfd
cVexZOMObvF/nENUEK/aU1lLeP2/Je9Wj1FBJbXG2saKjayBDrUD01TQNP53
KuAkGzPIUTtj+WiQzE2NemHNxvhC39/pwjSgFJ1bvuU0GwNfO+WRxWmQsIVV
8YqwTZzO9iFpGjBef+cm2bBRxHV6615VGjiXiL+9ZMfGuTN9P4/uoUF5xKUj
7YSHrT6/ctSiQT5DWl7Xno2VBzPkIw/RYG2LXrKQAxuvrbOV6bamgWBVwvug
M2x0MFE53mlPA60sclk7YeM7S8K+n6OBqOfEWiVHNsr/TP3V4E6DYzmnJj8S
Fl17ZdPHKzRQsPdwFTvLxlljPatKHxpYOtgftCb8tXCI8i6QBjsHn/L3EaYM
lky8CaVBpG3LjOw5In+pewp5kTQgC+cdtid821/p/st4GrxVODD/hbBrwdyH
lKc0KAL62RXn2Wg10DT9NIUGE8z5LZqEVYw8bWMyaeCWRKp7THitn87DqDwa
hPGIvKwkvDxfrCasiAaBvd30UcK/+/r/BpXSYFSI/7roBTZSJYqVAyg0+Nof
4rKLcN3hEAffKmI8qsfIFoTf3LSKu1ZHgwwdh0uXCZNyt9Z5NtGA93OBdyTh
8N5/s5e+EvVFD/S+IHx9VcN/Tj9o4FnE8/o94TMGSWcdqTRooXM2NhE29nV7
bNtLgyPKKkfphDVytBtODtGgOT9MiUFYvkdkyfExYr7Ywk5swiLivaqmv2nw
ibt8yVInNs7oF14wmqaBj+nj6eWEh3yCEvVnaBDTGH+Yj/Dw8W0XkjnoYDdA
/rtgu/GVS6U56fDem4+Hl/C30Jknidx06KPf8uQmbCjbv0uKhw6FI5Iac0R/
lPcNTY946eDS3WUzQXj38SIncQE6NPvX0wcJZzKTOB8K0UGGYwjbCMuE3n0q
LEpYYOdMNeF4GXe1SDE68DbkxuYTFnxv+ZlPgg6xnY7hTwgHWux3DpWkw+hR
M3oAYTZjC/fytXSoz/ePPkvYNUT0WeB6Oljx/H6mR7hv4z/1pRvpoPIpk28T
4WbzepfZTUQ+bav+/SDmU49RuOyGAh3Wun65lUv4/d2nJNZWOggvm7ANJPzy
nevXP9vpoD3pryG3sD7MT7h67KBD67G5nePE+nowBjxMVTqU4ZJ7JYRvbRDR
HN5DB/OpclNdwhMl7NbzmnRgBTws5yZ80azHrV+LDlSSWFQlsZ4tggtS6TpE
vJa5jgZhxVELvu9H6ND+bIvoMmJ/vDU3wjATIv6Syp4MYj/plB24rGVGh6Oe
UvpHCJ+M3N7x3JIOr1YNSoQQ+zFUZUWG1xk6iJbnRLUR+1fs8byNwjk6rM5b
Pe5ImLRkSrTzAh18H6xUZ9gS7bf0+Oi40uHdJxm/aeI8GPB6f1jUmw6qOYGj
fcR54tmVP1d1gw57NI+HWxKePZie732LDkU10WIfTxHtS8RJdd+hw0dZpJKI
80inxG04J5IO31ban95GnF+kWZmwI2l00Msz2Zh5jMjvnKTWkpd0UH6qcoJh
ysbiRqHfhel0KPd9cU2JcOOzGau1OXQwSp28nnKU6G//ty0jJXQwvpobcN6I
yDc49GNIE7Fe9iu2nD5IjJfhd1OzhQ5ja3KqXHXZ6HHi6n/jX+nwtTb+ha8O
G0MUzjw+0U6HNHPn/6L2s7GoTtNJvp8Owcfeu0ftI+4DoXGeyr/EenNPqZpR
ZWNLWdhdg1k6xE8f4xjfScyvy6ZlTfN0aMyfv0/fQZxXdSc527m6wTVj5ZsS
FcJBVbNMwW5I2vFawEiRjcL/En6vke2GqzLGyr9k2Mg/eLDzsmE3FJQ3F2oR
92N9LP0k+0g31K0TXt3FT+x/3Rs/bpl0g0v5+bbrfGzkS8n9FmrRDQ9az3i8
4mEj7+k1n5/ZdkPC3yq+IeK+5fkyXvXpcjfwCd9a95O4r7nwSY5sYjcxX86v
Joj7v11T9xAtqRvMwxwuSXWwMOfdKD0huRv0R9Tl9v1g4cmifaKiL7tBgnu9
k3crC/OyaF4c+d1AFZQ91dBAvH8SZTW6arrBRlVoX28ZC996Z1TG/emGrtbK
pXVPWBg5bXb62FQ3cJFI3yIfs/DMlZlJAXY3zLOcX5s8YqGgx5HNQXPdsNUe
zT49YOHZC8zQyyt64PDE/LvEUBaKnth51ES6B+bidA1zr7LQWbX0xwrDHtjJ
nhFKMmYhpbk18+2RHsheSxIQNmKh+KVxv/MmPbBhWEDNz4CF+HyTfJVFD2iW
OgtZ6BLvL4n7nv52PTBgu7+fuoeFpWxHvukrPaCS0/rMWY6FfCi4r4/UA8/r
hHQvTU9jhoEDiTzVAxPW5d93xE6jquJGLWD3QFzgPRPFB9NIFqR34L8esBTj
uCIbRbx3v5yWKOfohXcX13/gDZ3GidNWkR94e2H/o4o7Zb7TqOVp4lu7vhe6
i3PECs8Q8Qlali16vaBcetL3J/F+nhyREh6I6wWNqT7eR+VT+MZMnzNGtw9k
fgwebCycRL9DQc8KB/rg61iZ5Ib4CdzYdbgtNagf+H/CeYrjH9RQC4yR3DEA
tcZ/1Ur//ULr9U3sJV8GiJeME/NS7DhO1kX0uAcMQtdhIYnG2TGM57LxOiY3
BPImG2JFmMO4kvomZWnlEFCvvghZ1jeI3DcDzPd4/IQ6i19dKnF9yJFuk9Mj
OgxS65u7p+51o2dCToRoxTA4/FAdufumE8u2hfCIuI6ASen8jcaKbyhy2FPx
tuAo6PVGRf9+/Bk7lZq/eL8fhdW9RukOEh/x2YjITU4chbe1nHUCE7XokG4m
H1E+CuSq9plPzbX4U+77dVL1KFzdJdMQEFaLU2uo62qaiXiPiqCvczUowjt6
Xqx/FNR/qVVvHKlGvYHlM9kCY1CxpWZlcUsl5iaBXJ/NGAz9nf34mk7BPz5/
ltvbj4F2tI205AcK7j7xcqTrzBiIraEzEp9TsFRIqOD7BaJ+dqdS/0UKVvtT
93/yHANHge8Cf0YROxxu2uYHj0Hl6Yz567JkXLa5NME/ewwUpGqpXPnv0IDT
7dZs7hjQddPl3X3fYThNxsGnYAya2w1vrtB/hyLxYVu83o5BuPOhd9WdJbh2
xcm35yvGwEXFdpsrbwnuGGG1Gn8bgz5mWFawazGeztktsm5uDCayDM6GnyzE
opMswWYOBjjOr5egyxei4LJ3/Hc4GWD5YSLj0p8CpFjv4/nJwwCFr0OzuyMK
UIZXd75wJQPivZaQgz7k44Cj6ZjRFga8b5kL2b43D12lXD76mjNAOD3VUT4n
E6urlGq2n2CAu6TkYPnxTJT2YFb2WDEg/DBu+jGXgc01npRDtgwIUUn4dsMk
A3dc8S4Wu8iAtjOP5uPZ6TjdFPw8048BJOejey6eeYn+QckBna8ZYK5qVy7/
KAUFri0/bJ/FAF9zT+dQsxRMuHBJdCCHAc3uxyg2wilYYLgnlVnIgL6m/j0O
95JxQORz5VJkgKaQ0eqWYBIaJnHwbPlC9Ndwp4p781NsizrXnNXKgEPTTiKm
2YnoGFAfv6ONAav1/JVDdifiLcf4LZpdDLggqXaj1OAJ5m5VMTw6SNTvoRTv
v/EYVxXbRl75x4BXQ0HBm/niMPVV1fG/swzw562+a5cciyoJ26T9OJjQTD/x
7Z56LBrcnM4J4WaCAjPk7zunGPTVifr8RIgJG/S73wZ/f4A9TWSxClkm1Dod
LzldEYVu5XJdevJMaLM2z/MRiMKZ/LDnnxSYQLcW3Bd6MhLF447vblViwnjP
SuNbf8PxkDXjxJAaE0I2rOSjmYZh1tC6J4JGTCDVC8Sr2AahSXr0zY/GRPnf
4XmLskD87cRtF2jKBAqH49Ev6wJRfWRU7u9xwqR31T/6b2PFWGl2vz0TOCrE
lu584I+O2dujSY6E1fqjVTn9cblb6uVT55mgks75WHHsFhqNh6l/diHqb71d
M1Pri99+W1W8v0b0H5jON1NyHa8XNKRd8yHGG8aZs7fiGq7x2n93x00i37WR
ykZNV9FuUsHo1W2i/dsR3EPTXjg8Pd36MIL4f9TKYd07Hhj+1vmt8X0m5EYp
6R/Md8ft3rSEFQ+Z4K8jIGBc74Zef6tt/eKZYJL0s0epxAXnZ2J/XkwlxnPh
MqmS5zymlK2o3/SC+H8emupH35xF3Vs3s+mviPJDpNQyZ0cMm3e8fDybCSwT
Wd/jU/aoSGmzEMljgrrbW8XQOjts8jdSry9ggvDMSzc7U1sUW6o6u7+EyO/q
po/fuU9hUcVL2kwpE9zbrR+KzFmi1Z01FcVkYnzGoRsseE9gEhfnXaVKJthl
Z0RL2ZqhdtVVp6Fqon/uhJnMl6bYGzRsmPqRWA/LXNUvcpmgwvIWYckmwoFX
7PknDbCu5uCfL5+J9g6fHhrerI+XQkpaI78u5L9Eyf6OLgobKL01+E741Oki
v+UHMH9FcgJXO2F2+6rsC4DmdWI3sZPoL9npHHPlXpwOC7H1oRH/O8jBqU9Y
DRMMZ/bv6iHiNSlK2bY7UZPfXW68j/CF0PJLHCpIre9dljFIxA+6nQ0Z2IIB
ESd+nh0myl+R1j93l0M540+fNowR5XpmsYNa0lgtCNkdTMLCfHyXBlahU1P+
/bjfhKvnMstyhZD/vvxl00nCmddtb2/lwmyTBAt+FmFSnob91SmyqYiges1f
wv6+p3Sieslh3EvXdC5Y5cDtdVM95Er25Oz4grWDu07Y9pB393R9kPpHOH65
8Zh6N1mqIOuo64L9xShqIlSy2cvkHXcWTBoZGOfqIoc/iRWPXzDHoeGLsx3k
uTs3O8oXTNHE5Jkf5B7zI+fFZwjnlqqtVf1GXmOw//DWBdsdaO060ko237dL
CRZMCq6wc/lKrt607s+FBft7Vb8ubiFnTI3eer9gbTGRFMEmct8w3f7zginV
HvsiG8jraV91BxbLq05aS9ST79e85xWeXWg/SXWT3keyV3x43JkFk7apDohX
krPC/b2vL5hDYZrUXUEe8PeyjlgwRVuBXlROtnSylile9Hx02z8yOfq0CXf9
otN6PGnvyXWmukP0BWsXsFZ9e0fep6GYzTu30J6v1c2ZIvJV5Q3R0gumGEto
K74h58qIeakulu/1F3ArIMvwzeyxWbC/sPpHpVzyqXnm2suLlv3nZpZFjvnT
O393MV4jzdHjNXlZ56eqvMVyf81Y6edkaMZX1Yu2F2jJSSFfryy417HoXV82
nyOR896+dB1frJ/xTykokTyc+cSUe37BO5dph8WTZZOjVKUWnZcZ3BFDto69
I7F90d+7lnpHk2NDr/3VWfSL9otV4eTGm85dlovOfqP1313yck9byqVFy3Dd
2XWbrH3OLPX2omuXXU67QfY+qR/8aNFpG2sFvcj5xnudMhetflTU3Jk8cmC7
Ufmimxmeo3ZkOTXZ7d8WreLn2WBKttkmITqyaP+3ThIa5EfSfJPzi+bg2Gae
XPY/TiZxKg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], AbsoluteThickness[3], 
    LineBox[CompressedData["
1:eJwl13c8ld8fAHApJRXSsiIlKcK3jJD7sSorW1SikMoOWSUjVLITQskqM3tE
HCR7XjMrGffa232uRL8nv3/ufb1fn/Oc+TnPOQ+Pia32XVoaGho9/Offv8rd
ifaKST3Cs47f43//cpbtUGC3+8kmCk3ifAWVmr3l5+OiYvPYFKFlMfjWNVVq
+Rgnr5cznzqEr2b8wdT3INXmntx3bLpwykaoj0uOFfEGHE3+y30dkLxr39zc
cfRHxTTyDp8RVNPp752REUBTPp3VdyLugDXbgKmq3zmkb4aVhbGZQXli5/2/
ghdQtQJ70bdYc2iLfYe9DSMgkRMy2SvcD2A++46rVr88iqW9nXoy0RIealhy
aTVdRvQj3gnX+Gxg4rP4ABOnKioZJjZ/07UDRkWWJK0GDWSnaaZiGPEQuHhS
zltbaqNB4ecKgWyOUKGWpj2xwwCFx7FWnLz5CGKqrLaNHrmJVJjSLpbHOsGN
7jjml9eNUOFck9g8tyscVI57K5xvgqyMjHKf33GD+74HY1OjzdDxlnmhY4mP
gWwiJysTZY6CMln4tfieQsR3Y+NHvRbo0tGkpMl7HjAUy9+xzm6NntZEM1fq
eoLxLYM+Y0dbJCouGHg9wgvWPpmqVInZow+HNPz82XxA2oQq0JLvjB43R1Zf
K/EBGhZ77wIRV3TNd5j2xE1f0DFG4a1Fbmjv6kOP0lg/4M/jIbmT3ZFLZ7jL
DPdLuHKL9jn1rjfSCRgsLK54CQqvvBjUNZ8hIUW+VZ87/tAmbjfOJeuDxvKK
Hh5NfAUHCoLenxDxQ1qv+yzU+YLgQDnXbk0tfySoeiKVvTYIvvfrnT9y7xWi
325FJt0LhvFRsSxp7wBk/GUzB+mGgLyd9tvAuiB06HSIkEFEKLQSm1icGkKR
F33eqZds4SD2PKg9+WAkOnMl9EWuXTjsqZQtnuiNRERf28n+2nCIrPgrIvwh
CvFuF0wXcnoDKVeclMskolHNRpJQJzECbP7jORvj/w7tXY4Q4w54C5Ju1xQT
jRJQwX+PIpRG38KjdyxTWr0JyMhOB3soFQ02u79L2+okoqxZpi/VE9HQxyDD
uXg1CWlPvLhocSkWFsxTTRZ0PqKoQTeFgs33UBS5FtuekIbkOK8nDenFgaqk
U3n/uXQ0dUOCjj4zDrTvJNjLVacjrhlX08yzH2Dpqmkz+3QGsn0gfpJm4ANE
VUqRRpWyEItZVkryhQSQ3KajMMKTiwyux2ctLCZBxPrZtfORRWi+X5chgT0Z
+t+e2Zc4W4T8jOjv6igkQ0KbLdNbxWKUZ2rLXhieDGsiR+aPrBQjRhsZ38cS
H0GHwStQ53oJ+u7948ZO909QntkwoXexDJ3L2L+Tkz4NHPqYfcKyK9Gev16G
V7iyIJDsounkW4eiHugbCV7OAvkZwbue5XWIt1Pw9n6bLCgXTPL6itUhQmqP
aX9ZFlzYMT5Vb1GPvqRGFBQJZYOZRq7QeZ0GNKsz81W1JRt4M1x37TvbhPRS
Ihsd9uVCparb6+Rtbeik1tzEt1f5wM9mI5B/uBM5t0hC1MoXaD4jkGzQPYiO
5O8f2rYNgdSGTVt5+ygqHFFoar1YBeM8G/JhcpOoyuIdx/WZatBikVhqdJ1D
q3wyTJnWtZAlSx+R6bOICCPytf4utVCend/PEbSI/N4pedx/VgsOfGsZvpGL
6PBB3fkTb2vBX/l5r2raIhLfZtkaXV0LXU9PfYhvXUQu/VHBLzjqIC/W7rY1
2xL6E7zCZFZfBy2uV3qupy4h2rV0Zo6TDVCc7nxU9Msy4miWXwbhBmDcs4Ia
KpaRaPyPLjPJBoiIvXrOsG4Z3VXeFfP5agO4TCQ42vYso7q3JiflnRrA4m3N
0rXVZRQsxSb1oLYB/JvkKSdFVhDnEz/TogeNUCRZU5Ucv4LENI9eHnBohMiz
haTAlBWkzpvPv+1pI3D3vtG0y1pBHk2/ZlXCGkHILW/8RNkKGuGUcRkqaQTd
IzSJl3pXUGrZcgDd3iaoWBwYtt23isT/3i7U+dwEK3afaxQcVpHa1QrvS8VN
UAelq1ddV5FpDLeGRFUTMOvKC2h7rKIQiSEye3cTLEmhGKVXq2jS9ibbyEYT
CPmy/zebsIpih/We2F1thpQuQ0GW9lW0rUpFPnCmGU4GGK/n8VMQK3Maowel
GRrKzCyoZylIyGh3vx1NC1Rtj38kfp6CbvyuddA92ALMWvK6cTIUlH/uUjLH
xRaATav+E9oUZJ4I9GmvWmBhT+bdVVcKavIRbak50wqXH57NSq6mICmmRtpQ
sVaYMT6u4FJPQSlv70jclG2FXTcej8i3UNCzz0Ef5vVaIa/TXKyiBy/fO2HP
6tUKw6zOjTem8PIC745Y9LTCHMWrci8jhg4XnlcTHWmFtt137I1YMOQj2+C5
OdMKMl97qJ8OYyg7bd1ReVsbpD/Icz3OjaFXiH9o8HAbVCmLLOULY0h+0jt7
p3wb3FqQoruqgSFXoZYGyyttYC1sHsmugz/vwDbeptYG8a0NzT+vYYhrM4st
Rr8NImZ8OLSMMLTGMugtbN0GTcSoyRYrvPxFCT2DqDboW/7ZJfoCQ2Qvb9uy
d23wIWxd9/Er/Pna5pfHE9vAbd5K9UsQhgK0zMpnMtvAvbXgNccbDN03Dz3l
9a0N3rJ9UHKNxxB3yPRa6lwbZP4upI8sxlD5HY/U3OU28N5Tf/pkKYaMzh+4
Xkptg+K4mi/pZRiK7ZYqbqJtB7fd7VwJVRhiPervNH+4HaJ8NmrPN2GoaO4o
H5WjHUT4hAR8WzB0rSKni4anHcpTZeZa2jD0xvSHKItAOzi15weodmGIJY1/
WRTaAcRJ1IlBDOU8/pogo9gOH6R6+Td+Ykjzqqb2ZeV2yFJzS9s9gqHgBecc
fR28PcG1mD0kDO2VqLV1u9cOnQkt9HmzGKKrvjuDgtshgjU9NmgdQ0lv1mLq
wtuhebyV59QGhhTvBaq2v22H49SRoaJNDHkzFKSNJOLt+Q/+rtxGRZuaOx7Q
FbfDWXOBUJddVPTueBQrY1k7zExlZxDpqejiikDd4ap2uNQWtsLLQEWPI3VO
8Te1Q8LF8e25e6mIOpgwrjLcDuPH+n9b76eiyCzxNzrj7SCVK6fzkoWKxL0a
FA2n2qE6Xbs59gAVPeJdSrReaYfNB7d4Mg5R0UGKr47TWjucKe3E84uK8mvZ
tntstsNS4OJMzBEqWrKQMwmhJ4K3qQyfFRsVhV7s2v92HxFCaXY+UGKnIhHG
B5XxLEQQ0/30jZODimxyQo7lcRKhZLq5NJOTivY9420r5SHCWj+9vsVRKsrQ
Lfao5iNCfv9zOm4uKprGfg51iRDB5O9opB03FRXeC65SESfCcIO4MvsxKvLs
IXxE0kSImohILsGtemXupagcEYiRGelaPFR0uOiddeplIpxf5L3xE/cvvqta
XGpEGCDlZJkex9uL+CP6WosIHxUZ0odwO+/MYKXXJwJr9qSK5gkqkne6+eeJ
IRFCUpiDinHvIzEML94hguFzRYcjvFTUq1fyzfweERo8NNascCd+f/Cp34oI
UnE03F9w24ixvdK0J8K5ZoHRddySyXU2352J4NyYqih2kop2HHLRlnInAo24
gfxd3K0+p8SzvInA/oyt/xXu6JVuNt4XRLDa3rUvFfddM7+NqEAiUH85/fiK
W6RT7Ne+10QQ4F24WIt7XWG82juKCK2p4hJ1uGvywlOwd0TgO3upFuEOPaEY
YJWIz488x0wmbsPXy7a/Uogwc70sKQw33/ZEnWufiTBVKrpgjXvRXluiMY8I
0QHB+EuTir6ObOOQ/UKEiw3D0vS4/bRzNvPLiaB1VVaqFh+fVtXtkdPV+HzV
NdQ+wc15jrnmfT0RGOrjR/lxk+NR6oFWInQXTAc04vOZu9828EUnEaTbOqrM
cLt7cT3c+EGEJ+f9fVbw9VBabNa1/0mEtk6FdjfcB+64XyCPEUHumVQKhq/n
UJsgp+EUEWLJGfSWuB2zX41eWsXzseCIqRieD3BMurbkNxE8s5NvBuD5wxAy
lSZM0wEMPn19P/D8irNVtmfb0wFmZ99aGOD5Z/GTqhfE3AEzt366vsTzU1Qj
RXL74Q4Q4ry0LwfP3wahXdtmj3XA08tHy0fxfKfMVgdXiHeAC2q/0IPvl8pb
jg5iFzvg1OC3618PUlFA8wn9NLkOKPLK+h2J76/jmd5c4Wod8P7615Jz+H68
aiWbec+kA2LoS/gpe6iIdWA+ZOBeB7whmBGC8f08ohrnqGXdAfk5R9q5dlOR
i8CmtLRLB2Rsf2rFs5OKkqZKGxiDOuBwcYhj/l8M2URqnLB43QGiYXROu/H3
iYTi6OPvUR3QMXVIVe8PhhreMZx9ktgBHkmBtu1UDC1qXg+eLO6AsAqHuJuL
GCrZmCErlneAyBeQvjePny9pnrIfvnWAWwJv2gP8fca6I2XxWksHrCyrbdOZ
xBChiKJTPdoBOjdiIoqGMURv5p/BPdkBV6+9bnIdwhCRmYvu8VwHJKVC97kB
DN21uFT431oHRH3Tv/uyBz8PjoazxjF2gifrgnNdM4Z+PPtv0FWyE+7LpqcE
4e//BJHvYl2ETrhMf0q8vABDVoMGQSKKnUATNBYzloshGglPIKt3govl6OKh
TAzxTbXE65p1wpo0VxcDfp44alqZCwd3wglRhwWZ5xhiPPppfmysEw4S1o+1
qGFI9tqzwdHJTqAfTjHhUsaQfbBx48hcJ7iZSlaaX8JQ9zbWT8PUTtA+er73
pwyG3pNeGA3s7QKjjFAfByEMCWVbNHeIdsFI3eZbHvx8vqoglF7l0wV9skyP
42op6OkThreVL7uAhsx3fLWKgrILSH4VQV2gW9ZHp1BOQQf540zKo7ogSYD8
vDafggb2MrOXZHRB0VFqlEM8BVl1L77I6ewC7luJe6/j94uABwXmH3i7gfdQ
QIvJCQqaks18sedMN5D6aO4rHaWgK6zJaU7C3WDtfurgySMURFsbPqcm1Q2d
MoUZ3xgoyJXX0WlNoxumLDdZIxZXkfnPc37aj/H4oktZaNkqktPLTt5B7Ia+
S0zMK+qriCKbPnbfoweG7YUfLeqvoK9J0zHOPj0QPvAjWVpzBXnTC+r4veyB
jReUd0+VVhBjW0Zl4useUGfzn5u7sIL4jD+/H/rUA5w3+/Rd2VbQNfccA922
HqiJWPCX+LGMCr4UNQFPL1Rzz+610llGjueq8w9/64UptuVOnfNLyFz02IfQ
ul5Y+HDFiOP0EjIQf/Jqb0sv9L5XUuznWkLSUqImtD96gSSdI67IgN9/5ZOY
5uZ6oTUlnL90eBEFa/lYfGf/AScXrSZkAxZRmp3iMUf7H7D0Jq6zfnAB/fxc
/aqdpw+ijzUGvO2ZQ+sWnTGn3fqBhc5UJSRyAgnI7do0Lx2A11iw5abICLqS
wHMv58gQvE/fdS8kqgs5HzU+/svwJ9AbV4w6HyxDgjN6e3quDkOvu9eNg5Wl
cIBpgb769zCEJX6MeSzQDTtQTNaJ2F/Q5/HhdtP8L7AULf2xW3UEhK2cOGZI
E5CubPKhnDICOQVcf9XY50FUkIcAayPAemV6126ReShnHO5H6yNQbvWOqeTS
PLR13DpSSTMKEy7rG7/t5mHl1vWgbwyjkOkW+RyrmQeCveaTOq5RsHliZW9x
YQHaogkGxMujwDQ1JYYNLsDqNDszKWIUqv3eJu49sgTh78i1sW9HYTbjj4ok
zxKc18j30IkdBc2xl85GAkvwMPfqfEX8KNxyUtAMgyWYdfFsickYhXW9kdC4
e0swTkcK0KoaBcEzXPNqhUvQxZ2zu2x2FLhL+2N6ry6DY7t7pcPCKBwVYXRn
1F+GA89UXM8sj8KKwn3Li7eXQYs0OhFJHYXFxYA7nvbL0JxxuM5++xhQ5uS0
UyKW4bvkEz9+tjGIYZK78mhwGQp0rmwPVxwD7adpN2bMVuCFarEv55UxkOCj
5wuzWgFDhdP0ycpjEGXMmiriuAK05/fsK1QfA3qPp036z1ZAnaX1cK8BHo9T
V1SPX4GJtmtnOK3HYKDe/deP/hVgVzfXSnozBm6aPypuqq7C7KWeDsGoMTBD
POsHtFehQkbpWkH0GBgtOiZVG6yC+dkzN2vixuC/S2vSTOarkLd3zmwidQyG
dxleUvZcBbXGRy6C5WPgt3Fsu0beKngo+cblk8bA06Z/+PUBChCN7huKTI4B
zRNFBUk2CvA+UmXLmB6DMxIFfD1cFGiI3/86cWEMXlOtLP6cpsDB9Xd+Yb/H
oCeSo2QGKJCSWWhtxzgOgqG5AqYWFGhjmZAWFB+Hu0c9n737QoHjpxupny6M
g3tmmKRmOQUeweeCE9Lj0Bjrp7heRQF2K0dhDtlxWLxgpCvVRAGz7zQnGFTG
4XJloLThEAWozmwME7fGYUBMQ0RoGwY8gyq9ib7jwHErJHa7HAb+VdJZei/G
oUTuIZHpEgZLnwT9dr0aB4Odof0syhhU2TOKWoaMQ5h5uOmGJgZm9MTgczHj
EJTYLWx2G4OU89evVGaPg5Sg1qKzOwbMbCpcDnnjoK4vPrvgiYHrptQqb+E4
MDx1/3zbBwOVes7EF6Xj4HZX/ynvKwymjYY3NWrGIeeijKxMFAZC/vcKh/rH
QZNc/C03G4MIW4PAkKFxyO55XB+Zh8FfXWUz+V/jMO4t/8qhEIM2bgGWjyS8
P5U8ckxfMXhYMGdtvTgOASsHLXtqMOiL/qnIvTIOYxzfLtnXYyDv2cbRThkH
P0eXH9ubMGBRza0X/TMOO1razuxpxyB/+NHJPztJIFjObZPWhwFnjfmfzN0k
6BRu3b0+gIFvun6H8V4SCNhmGMr/xOCak6TXt/0kGFa7capgFANsz8aAPycJ
mOfvXxWYwUBKwiec7RwJTgo/JV5fx6DbhE38nSgJrL3236X+wcAh6HPPMQm8
PXW9kaBNDDLGe9n5L5Jg7fPtd4nbqMAVfjZe/DIJ+PIesFntokIJqpIvUSKB
y2dVugZ6KuhP64/JqJLAXenoIDcDFULkvU9d0iSB5v6HWnl7qUC72J2pc4ME
swINOq77qfCe00qjx5AESwt/kyNYqCCttG3xhjEJwu4pkNIPUMExTkDUxIwE
VQWK58oPUYG5saJr3JwEuTN5hNLDVMik6Dk/eIDH37yWyj5CBdJVzxI7GxJo
m5yl9WajgrfrIcMVO7y9jvwWI3YqcCenbTg7kKBf50rAeQ4qGPzplPVwIQG7
r/pANScVVk9ZjNA+JsGKc4at11EqhOn8febnTgLqGnlVjIsKjWmnawO9SSDy
fmHAj5sK97vL7+/3JUEQpYpw4hgVdtDqMrx5ToJQVfc3Rbjjz06ms/qTIIGS
9kuBhwqE60+vxgbg42vpO1GHu8/nwDx3MAnuCMYZKh6ngnN2SkhiKAmkSIEB
xbizd3V0pEWQ4Nxlnc4XJ6igdv7+I6G3eH9Z782O4Z402jicG4PnQyw3jSQv
Ffz8w4rF3pMgkJ93ny/u44Wnbnz5QIL7IdyH6nGX//q6fjGRBI78Fax0J6lw
c5/2u4pkEnBVF7FK4qZeIBMUU0hw7EvpIfx7AsLNngzXppEA6/VhfolbJGS/
t2omCQxdWncn424u/XiiNQvvn+VN2i+4LcjS37Vz8fXcMfO7GvfOA+3m3fkk
iGVVWsG/JyCBYE5/o4gEYr8l5//FwWI9dfALnk/uwTPFuAfehKje+UqCghW2
2STcLpUnZ8fKSTBx7vPiC9wHZ0uC7leSYDOQd90Mdw6rpsjMNxIYdBsw/Ou/
uuJ4u20NCUxunzn2b3xTtm4Oy3UkcNt8LPNv/H4xTIecG/H6doia/pufE7VJ
hb+bSaCoeDHs3/xVLEkaPG3D85XZu3Ecn19Drta1bR34eKQoTP64GdnsC0q7
8Pkp/JpwFHflgUMPH/WSwMlcZugTvl6OjMWCwv0kiNn55Rs/br7dNycmBknw
iO+R7gd8vXu3byYmDJOA/vTXUEbc/psfjA1H8fxVGnzigOfL/DKpu3WCBD5j
tCY8eH4lzL0MezmN7ydqmZEFnn+6k4LqCnN4PulVMKbh+Vk8ZP+9cBnf35Iy
Qfvw/PWu38x7t0mC9zNvzt9lpYJodbyt/jYy2LSTl0zx/UEuVxTYv4MMF/Yo
PLyO7x+1fP8En91kiBDUzuE/SIVDcYdDLQ+SYXfrS0sDJirUvf2idvIIGUSV
SjX2MVLBLdyQ/icbGfLLZ/4W4/t56GWChzY3GZbc+RpXdlMhxVHIRvIM7tIR
mc3tVLhh2356WZAM5F8/cx/QUmGfheN4hjAZYom7aJtoqGBvXGJ4TAwv36Ek
/mgDA2mVy6q7ZMnQm5gjcIOCwZzi5M5KeTKcRXSfnqxg8AECqtwukeHettE9
EUsY7BAjSs6pkIGqoRCdOYdBC7cRf5ceGb70ztPakTDwZN82FmRABiHtiu0q
YxicP5QUp3STDNmC6ZvsIxhEMUwd/nqbDCWvHKbjBzEwWX1El2hJBmcznSGF
TgxWGwJH7LzIMLyf82QfwmBgT9f9P8/I8GL6Dp1OGX4eqXHOP/cjA+tlx1PV
JRiEtKStv39Fhp0fNy4EF2Bwhlh7sPkNGdjN7jXUpWFg9GPbldNpZHAVCHRp
fI2BIrtyc34GGfjY1qzqQzAQuBmiI5tFhsvn26pRIAbUAa7b+vlk8L6T/OnN
cwzChqVdfcvJQIz57UJyw6CG/Cj9F5EMT7R91Lnw8y+Dv+w/6y4ycD6Zf5Vo
iMHrBzuKqT1koLH/rcVzHYPb02HVTINkaMj44rVTG4Pfc1mDMmQyBBaeLnBW
wECYMskUvU4G37qOeIwXn58dRo7avBOgtlC17jFCgU3TI2LtfBMwnKJj+R9+
npt9a1vVOD0BY8fu/e3/QQERbwXnq0ITQPMCi+Nsp0DdX343pQsTcP9pNJMa
ogD2e9mDoIaXT7rKbh5NgWuLL1+dcZyAG1cGmWJUKfBVU0Et1WkC3vuJhjpd
xu8b2X/28rtOwNePAuGqchSYs7ENOvl0Avz77QRGxCngO6MbeuzFBOTcVsYq
eSiQT+aOPBw7AXuO/G1Wp6zCgaGCBNpqvL5vL+/nR69C0F5396KaCaCbfP78
UvgqMEgrGljVT0D1QzmP1sBVoI0i7utumQAfyXqGFvy+taQ175L6YwJI8krM
Tvh9rO07v4bm/ASs8sR0PBJZhYDMmPV37JNwvrN6tx5aATp3L13Jh5MwRZ2m
+1i/DPmLM2vIYRKUfnmfOlq1DGbmBnGXnSbhXVDe8eCSZajWEJ7SeTwJJpnZ
Rabpy+BzfNDDxncSjAbv/GgNWIYddRfSE99OQr2m8XyR+jLQHljYxlg1Cdzs
StHkliWgSTXKGmGZgqDjeXWtlYtgH50VyFI1BXqG5Fbt4DkoE3hBv99mGv5s
hJ65qD8J+1XsBb0ZZ0Dr9viayU38nnq2rcP16wyYSRg16PEMQfZ74B0zmgXB
WYKp80wnLLst77pzZxZUWH8wqTR0grj+p+lB01ngR0J7hVI6oZSJKa/n/ixQ
jxubncG/m2s8h+Qa7WfhPmteMjbQAf0m7sa5frOgJqi5d6OdCDtPlUZ7fp6F
p6z6mEtDGyhvt326kT0Lf66TxDPS2iDg53ETt7xZmFv+dXXFvw32R/mfdiye
hTDtUodvqm3AuftG8b2qWagw8ntUGdsK56apXerdsyDalydxO6sZbmWJ7z+6
iZcf0QzqoNRD4Q0qYxvNHPArT/OvFNUD486Svc+2z4HUPn1Qd62HCkMZ+kn6
ObiYbLcj+08dHGdQ/Jt/YA6UDAyX/ttZByQzrVm103MwRGb2tuWtARt2q/on
unPAIn/aqyO4Cmq+n60V1p+DpqZOlGNQBdwP56tHrs9BmJZEKpGnCtpq7SuU
jOcgirwrcTC/Es49ci06aIHX50VSODZUAVirX3KGxxwce7kQ89/jcvD0jfca
SJuDsc9NHsVmxbDPeZfKncw5EFEwVLrPWAzR961ZSFlzkD8yLBFbXAR5qpKJ
8/lzUHxTzzqMsQhI+9uradEcLNx2uvW9ogBU39PQn+6Yg5nn+V8+E/KgN9i8
LbMLH6/FF/MfC7lg5tUUda53DlxI16qCE3PhqVnU6YuDc8Asl3kvniEXss+I
qGqQ8fYnI2Lu/syGw0XGQY/W54DG9IZN4ZVMSEz5fu33xhzQR/6Xs1SWASLR
AtweNPPAzLTXXE8sA5TdsawXdPNwm/vDdOipdHiiENwewzQPdm2/W7exp8JI
a/nBqhPzUKERox8ikQy2lbyDl/nmwfNdzGJSRRL8yfVPbuSfB1n7T4fnVZLg
UMQ18a6z87BQFlV3yjQRlAzn9CckcBv4SV9KiIfMiaMxjGrzQEMwrd1VHAua
qaHu9eq4O2ub4FcMLD2gu+2jhZv3W6/9vhi4MD3D+/saXv8fkaQOm7dQNVv6
efzOPBzL77n3TS8CzD4Lh34ww+P81TRHIt/ALttEh5v38P72CQ679Ifj70X/
C+1WeH/vlrI8tH4N3UvXq74648+HVKc6FYaAS15zkrMbHtc0+eHBHAIcjnLP
z7njz2+fPKbXHwS3V/nVUrzx/ri+sBwwCYApDOt6HYjbus93tOw5BBRbFquH
4OXLLvC/SfIDYdef0btf4/3hZL+VHeoLjr9rjD2i8PIciRXiHs/g7583kxaJ
uNXeuB/U9ICEst1NJz/i7Qul+3P5uoMi/t0znIL7gHKNUu1j8P9r5nDt87/5
0FfndXABwYpevf05/+JPBycGnKDVU+1CUx5ugafHVnQewUFa0Q25L3j5/KIr
dBb2UFj16eefUtwnK2y4dj+E6884qorKcdf6vVe2tIX3O7Y/P1uNe0HHF2ws
QPa704OJGtznyCIarPdh1HdKNbEed7zITb/Bu8C/i8jM1oqbPCBR/OUONNRe
Wu5ox80QNpwbbwzWL750BXXilp0yH9ppCMzKZ4uVe3DnZr9gSzSA3N3x0Tv6
cIcxNfk76YFuw0F3NID7mm6RgZc2YP4vjN1+4r7/+YPOcw2IVv0jJzbyr75x
KeXHKnBxrx3vwhhuZj3ln0OXYKhpdGc6GbfIp16TXDnwCtSfvDuFOyVtUm5G
GnjVGxuPzeKOeqjXrCsGNYzwuX/+X32/WHcQhOFBa25IxNK/+gY1ViJOwt4Q
PgetVdwfeGnBkgM+a0br7aXirnjtQrZiBK39jBdqf+Om6aj5euU3wZ+OlmNg
y1QvL+c1QvXa6sbCltNG/NOoBPGRwW/s6//8osSSHSOw52Vq2Gw5vPQezwpB
51P8uWf/7Ml0RcdymRAQ8+ZQ1FbcaflZ8RJh85l7f+VWPIOmwHCRMKJ79d6h
P//i21yzomYJHMpyKmf+b7+B2zMEXRmxs7DlwOlw4WlCzcmjy/e3/EQ1ZXiC
kE6Zefp1y+JDhqFjhLGp4TvtWy4wnwgcJXD97FQkbVn3Mk3oCCGk9isD88Y/
R37uShsmOEYFRJhueaei+I0+QmaAp6vLlr9S2L/2EkiejoaBWz7ziF2gh2Dw
wPB40ZaJ0pYinYTQW5p0TVu221VWQyQ0aClODG/ZrOuMRTtBRkrwM8PmP7sY
FWY3E5yEjoVyb7lt4OLlRkL28YOOoltW27exWkc4vuePpNGWBZfOJlUTbv6d
53TYsqx1XEIVIXx59O/zLffuulpaQdg50Pg9Z8t2WmVOJQRoQyk1W06Zfn6p
iOBSnfeqf8uaxi1K+YSc4k82C1uOygvzzCFMZcRo0f395+FbaT8yCSfig0XZ
t+wpLMSRSjB88+yI8JbtLPK/JxHevHT+rbDlEA6ZHx8ILe6WgwZblo2LSo8m
7LI3rrD+v898dwonyJrrJHpvmWZ0N38QwfXGFb/I/5urcKcvIVdd+kHG/+1O
OPCYMC0vrFb5f/869M2GwCtxQrj7/16K/HWTYCRwhGX6/6avfCpDiOTes/r3
/6ahiXGX+R8qyUiN
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], AbsoluteThickness[3], 
    LineBox[CompressedData["
1:eJwl2Hc8lV8YAHChKFJWRoOEHyUkEek+QnZGSVZCpMiWVPYKSZIkIVGUrJCS
cmRvInvcS+Jem+uOJH5v+qc+389z3jOe85zz3td+O7ezDowMDAyt2D9//9d1
IH6rJJ3HcRgEDa0bSn1hVhd0xwvIA8ehfYdd+iYrjj5PSikW0ID5i3uYxL+x
oPE9osE3xQ2gSaam7mq1INJr7S1KFTABOSf270er/0OiMXtfrQuZg/3z3bsE
78mhVd3LT2zFrUGhqnBsZ64ymgr7XmObaAt9+Vq45P1q6II97Uu8gD2sHtCO
TM3WQjXqgh+qU67AcdMOB5fJM0j2wMnCZaFrAMxFPnLuZ1EKo80bsUxnaB9p
Tp7XNkWsYyEZpuKuQDsVnfPM3wJ9InS2Vpu4w1dpgyPj2y8hdyN7XatED9DL
U79YvmqLhmXuqt8X8IYIwvFNSe6OKOE5f6WY5Q3g5pGbMXN1Qro7clQqUnxg
n2jOvMBTF1Q613JsXugW5OnT3t5R9kTXra2L7trehraVqy8JXN5IpG1eWjjz
DtDIcse8Nvmg2DwuCWPxACBlWOS2Cd9Gp/e+fElyDIQdkXvNXY39UEBd8s6v
JkGgZbP5EOlJAJJXkLpvnhgMh171/+QoDkbpvIYR0QJhsJVXfzGd8S660/qk
xvRTGAhk8bWqeEQi03AC4wHLcFAeJjZ6TUUhdopHYHlKBGjuKZuLWo1Bvt8T
fGeEomBJ8ans7vaH6FzMcOnHyihgEr5tc7owHklriFPCbKMhI7WN9CjxERov
/uCxN/MefFhZdYnyfIyMHw04GYjHwnk2ASZNx6dISu/AG8H6WKAl/a5h9EhG
rEzXJyccH0BZN/7tp8Bn6FLZ2jtkEgcrv70NWXJTEa9knLRZ4kMI3mZL+Cr0
AgWzFv8XJZAAz5T5d9SIZ6GDWg8ji9wTYFbbSbCdkIU6w91Ig/UJcASf252Y
mo1EmaTeSvs8hr0/OsBQ6A2q+/NS+ntnIoiSdPazqucidnLiMaGYp3CvXk7S
Ouwden/kRqL2j6dwMvNMShj1HbJ2P0fzUE4Gg3OVR+evFaGC2R1lNcRkcCxw
14g2KUZniZEqTqdTgIE7ZH/O8fcoafi2+vu1NNDPmn0hcqIMndpj/nLk/HMY
0dGRrK8sQ1MWiptZ856DqCUUPNb6hPbN3Lqcdzgd7gatyeSYlSO3awpiDEPp
kESxNwuN/IK47AtevzqeATmD/Qk1HF+RmfmLgoXFl0B4GhaMWOvQ/KDJtgzB
V6A+GqjCdqEORVizOpxTfwWWs2Mnql7VoeLLboKlCa/A9+JxBzeNesThejL8
jmIW9C7dXCqOaEC1If0WW/yz4XPOUvbZfc1ILpdzyx7WHDjJzROXrduB2NaD
rbT2FYBr4mLUKK4HiRnPEavvlUBpyW1kmzmKbrYpQdJyGbDPPalxFichvhLO
kU2bEIj/uvZt/Nc8sor5bTK+C8HlH3WfDrAtoAz7n811UgiOnBU0MBBYQFK8
ZWX3zBBcb4+aij22gNR8bB7zFiLI7nUaLHdZQAopF7ISZCrhsi1fW/HQArK1
zrr4eqQSdHZbH0wqWURhurufPiVVws5Mm86Wr4soSyHue/RyJXRueWJPb1tE
Mxy39Vy2fQVtijqDPGkR+aAzSnIKX2HGT0r0xN4lFCNM4fl8/ysomU403Apd
QqVj6i3tKlUQms/WoqpNRj3awYv3tapg0Gk0/tc5MqLmV+zSP1sFTWoWMdmX
yEjxjpJtg2MVyOvEDoz5kNFHbhlqZXwVsFaF4bpfklGZhqBwEbEKTp278V/K
Ghl9zlrwSkiohtwQxcgzb5bRELv007PPq6Grb9korngZrXo6V+zMqYYfaXEh
dV+W0UmYYL2PquHy7OZp9s5lVNE7mBo+VQ2qPFnWDCvLCLHW1/uo1kDLg3B3
Hy0KqnJK3W0+UwMxTBcva/VRUDHJ2dmaWgPXoU9Oj0BBL68ql19mqIXlffdK
1IgUFH6l18KVpxby6+69YadTkLYdZ3KoSi2Mn9E2Z+OjonbzcP78mFpQjZxb
fHuWiir7zl0tTqwFoc/3sibMqajwgsjHj+m14HOjIIDHloriz6ML1SW1YF8e
dVPHjYpMjX8l9g3Vgri/QjrfPSoa0nbhZTpcB8Rat2cnK6motf6EA6tiHYg+
o7zKqqOiCs1t77efqgMFrmfGjK1U9Fwj24T/fB1skr3k8rCfiuxURx8d9q8D
XUn10e1LVERUPM9l1loHgrIRireEaai/9IDdxd466J6XaGcVp6GmY0vv7Ebr
QMpjW3z0IRp6e/SBsQulDtb/tPjbK9CQq0xjXMjeeui1WzzsoUdDFPGTO/Jc
6sEi56MQ0ZOGcGNq9dG+9cBwJLP+900aikjVDrwaWg9OZ6gFa340tIvHZP7A
03p4ofZUpDOChhQ2Obcn19SDy9KOsvynNBTw2f2ub3s9hEky3D+RRkN1N33A
dKAeRngL7T9k0NCFueACzoV6yFUzZPR7S0O+g0kPInc3gGjwHZnjn2moMjFN
64p4A3w2HTJXqaQh1rMv19WPNECj5jdDmRoaetpQ4Lau2QA2Oh9DR5tp6NP7
OkMfzwbgwB0z8RmgIUaPFhYT/wZQoXgeWBimIV2pTnQksgFMiCnRZqM0NJgx
LDOb2gC6i0qslEkaWn2wvMO+sQF6VmQFrJZpSENvpf7U9wYYYZ5a16HRUMwW
hiAhfAPkt7obiq/Q0F5/toWB5QbIUi7iylmnoSvHOV9/XG+AtJrAO8aMdJRP
3mWTuK0Rdg+rKk4y0xHOSaTDWLgRljRj4oe30lGEmESkzKFGcI8q/w/HTkdt
hMOq2xUawUdV4ncMBx1ZX1AqbNBrhHjmVm0KFx0FahjFwc1G8L7aSJsXpKOG
9fPae0MaIX+YRP26h452llsy/I5phJy3Ohwh++go/Yije2lGI1yxFfVu2U9H
xJnrEgl5jXD77e8y0wN0JPvak+DxsREu8TZvaRelo8p9AUaH2xqx98P3l1H/
0RHrQCgrW38jBEatzTZL0JHR46hK4o9G+PBx7fCqJB0lGT3wrZtrhKnVFRvB
Q3Q0yvZY9uWvRmg4cShUXIqODtYnE4OZmyCovD9O+DAdeYakp1/a0QQBBy5H
sErT0aeTWWYnBZtAwV/BZgQz46+3O3eLNUGDfLdghgwd7W5VI4NME+xK/HND
W5aO5F/0d9srNQFXhRoDHrP+DfePUepNUKNML3U4QkcOOizP8s80wUx84JMh
zAF70/y7LjSBmKb2c3U5OkpclLeh2zbBmdb25mTMBbXNanuvN8GT5BeCY5gb
ntqJqfk0wbLAhSiBo9h6XH6xOAZh4717wnsK88qpuKl70U3gi/i/mGHm3vVf
a2FCE3xOS/W3wSw19aWgO60J4jJoJn/jpytM4ldeN0Ey/5ZTqpit46e9hYqb
IF27FPgx+1wJuaDxpQnsvZkMCdj4D5QFlK/VN0FSL/V6EubXHIV7Yr81QVp2
9hNVzJVjmutFg02QwH2itQ9bX3/p8GjvzyZYUR9ns8W8FO1dszrfBE4W48b9
WH7YLrFl719pgniP6NRTmEWPZkRpMjdDWsrR2adYfk+yKF135mgG+oQujGH5
Nx1sN4jjbwYeE514QcxuBVeOvBdphs8j78fVsP2LDP3DPSDVDG2+Yscssf0t
O3So/8CpZiB4ZjdZHqSjzvWv5dp6zSASLrldA6uPqS6zNJfzzXBqW6z2Hqx+
9vhFXP5wrRkiTW6+ShGjo2NGezWHvJoh3WWwRgOrPwPREolNAc2w+pzQNySC
1XvL6KxufDNEWIkPDglh9Zbu2+GW0gzyte/rNbD6LvTeUZyQ1QymjGGvUrD6
H9tz0nfkUzPwU7nl9gjQ0e+FLgum2mZY//UIr85HRzy1Ticl2puBwbn9jiUv
HWm6JDF6/mgGQ7XYAAtOOnrzhRyzmb0FSo+0ZTxhpaOqh9FuB3e1gPMzp3Lc
FjoacNh/1lC4BTRkLlR2M9ERO4ch31P5Fji7lRzbtUZD7tY5L6QutkDEuT+q
HNj9ESV3KszYsQVqCoK/yC/SUMaWvis+Hi3gMmn3n94cDXXlb5aqDG+BhRON
NVpE7P5ctyk9l98C/11glQ8apCH9M5Uhpz+2ANdiyxHFPhq6/EzIULGqBVbk
7n0d+U5DcYojk4I92Hz2bU1eb6UhkpulwNifFuAQtNWKRDSUQjjv536mFcQ5
OwNLn9NQkfR7bbsLraB8dID75jMaavDj4TWxbYUekRk9iSfY/c/flad4oxV6
U5zzrWJpyMDYCL+W0gojYfrO27H7flOVrtr9mVagRlnaxpnQEP/OHI5Aaiuc
jdVkszKkIWnrrYPuDG0QFjF2k1+XhixW6r1MeNrgIEdMxmWgoRK50692q7RB
Vi45WF0Suy8zgTXnXhvwLO4vObRCRS1h8m11B9uB46tYTVEcFSnvaGZ8eKwd
WM3ctTdFUdHrp7aKlqrtUHflqBEumIpC82PT58+3Q9gZ8p9QD6x9H9GTP7gd
dp0tsMEZY+0PpfI59bYDn9eWGa/tVKRGCincotYBiduFKrbdoqBb0m1NzlqY
1SyD5d0oqNBL4GeHfgc0JXaGn3GgoH1rBQLPLnSAFcXO9YwxBf3iGg6RcekA
awHO8HAJrL2K4nmzpA4gpZvKD3ctI6G46V9v5jqgik9F3HYf9nvFNvBNEbkD
pqyqn5/hXkbWR7nNy+kdwOE/YCPFuoxSepQ/tjB+g9Cc5z2Vi2TEvzfaZ37X
N3Dy07+oWUNGXDkSZHn4BrfFxm2brpDR5hqHGfTgG+xm1hmeebGEpmn4kW7Z
TrDjTT3ktbSASh0fVOkqdIIP1zVYG1tAQb24LHSiEwob7pXe6VpAuz6kurzR
7AT/iTEGg5K/vzctV/2sOsF+gt3R+MYCSl7uERCN7IR7xRwWX0jzSHux1cQT
3wklz4RTR77PopdT5U0csV2wlSu9b8yehDj2Zs+Pj3+HMdFWZP8Cj2Kuvb+S
LtoDfjt7LLM6GxBV9e341cBe0Ga4q7rU9BW85WpKdlX3wZNxovPYqSHA59fc
+7Z/AIoqDR5ZtU5CxyzzjNx/A2CJ4jhoC5NQKXVaP0FqAHJquC/58RAhPaeW
/YLiAOwfs2HVsiSCXVbd/SH9AfA78OhE/yQRJlIbHkzeHAAbA1vL3lUSzMa0
PPrTOgD1Eb/Z3HlnYKSZfdm6awC8U/+8kVKYgbZtZ0wq+wYg/R4+rMN0BvIj
W3lCfwxA3Far0NYnM+Ae1vaY9dcA9n3qnfWUfxaW73Q84RYdhIp+s3E73jn4
7fT9meTtQRBVdMxh+D0PJgoXH0oHDkKP6/bjKmwLkLtpIuJo2CBY6voTp/kX
wDqJ5nEydhD0s39HicsvwNdaQW3jjEHg+u72kcVpAe4K2y77Ng1Cwf46CY+u
BeDumdVvEByCTy8eO6amLML1Fz5qrUJD4L054njl60Woub6u2Ck6BIdrA7K7
SxbBh4nzwJD0ECzE8aj0tSxCv6z8r3m1IVhOrNM5sboIz+/dfsXnPARBozcd
PcyW4NAplrUr5UPww8sTd3kLGQpz3v7XVzkEe17cGn/NSQZ5HiNjnboh6HR+
/mR4DxlUJpNeHvo2BOec09a4j5LB4P5BvYWJIUjnZa4ptiaDZ/+ZpFtcwxDR
W7TpQxEZqGpLX6f4huEqxXkn6TMZ7uQmTlvuHcbydD5paz0ZwgLxOJzEMCwy
NSzwDpIhUczjJyNuGJLN5zstGJehzCNBLubaMOBbLjLHnlkG3OBxqz+uw7Di
EZKXaboMVRrD4a7ewyCoyKSXfWkZmvjE+40Ch8FYg0HD12MZhr58COR9PAw2
/726oJqwDAzbBlvSKoehYZnlrl3PMmhl7Hd8xzcCZ2U1z1boU0A+iUO8bs8I
GKbXH+Q6RwHh2N/jA/tHYCd5c/R5cwqs3Oq2Y5YagZjX4405DhTIM46yvqA6
AgKWXG2x/hTg3rR4/s/VEciyt2ZVyqEAA22Yh8t1BL5ExR8JLaDAzExTl7jX
CPie6n/2uYQCdX0vjY38R0BbdvrAnwoK3Co0O5P5cATa+dcSSzopgL9UqaHz
aQS+M1v3/6JSoOV8HpM1GoH4mCVThd8U+KiXXOVZMwJDsfeGbNcpEK/orZrS
NgITaqfJ4SxUOL1DQmV+DBtPavXXJj4qyG3m/c1EHAHqUKBdqSAV9v3e9Il/
dgQSS3TKzfdRsd8Bg4pqtBHwflYj5yJGhbcVD44+ZsODfXTZfJ0cFZJK/Jbe
7MQDB/KJWzpGhbCca+8qePEgGL/Evl2JCtaJ6jJEITzU3eh9wAFU4HSlHTwh
j4dlYeZAdV0qrF0eJxkq4SGtcyv6qU+FKfNvr+1xeDCzCG70MaRCzem34rHa
eBj/xKvgYEKFm3sviYxa4SHFtl/Z6yIV7IxkTYds8XBN5+DJ4EtUMAjdFN17
BQ/q7HXZAbZUECdlLra644Hhm1ihlgMVuPbcEGu8gYf1T4f0uB2p8MdA07zm
Nh76zzLotF2lwvcSYuWnMDzkl++9ynWdCpWTZcvvo/BwtJL17jMXbP2C9yTe
xWLrH9jCzONGhZCgw3HZSXhgxm3m6fKggmvxWnVGKrZ+EdZXAl5UMJ9op6Vm
4MHb+ECcoTcVZPU9LyXk4sHHXcojyocKewLVHz14hwdXX3+H+zepwFLEUx9d
iof2tdzCIF8qLI3/XAkvx8NU+bazl29RYYTvg3RwJTae35L2sdtUaNKNtPOr
xQNhT0sCFfN7f/PEm014ePiQ7Vj2HSqkFx5s8mzHQydBVlLLjwoxP37/cfmO
h0yxBvcezL67Wo9c68fDTOw1tvP+VLisk+ZgP4KHZLsyehVmAz+3p5d+4OHI
iuNx4QAqKBeotloQ8WBVe6TpOmbxMc5NprN42KSLz3uNmZP3h7zxEh5OHTj9
owvzqlbJVX0aHnBMGk5zmIm3w1O0VvHwprBBjY55yvTQ1RcMBCBsbbm+iNlm
gZtRiIkAQUzniP2Ye6JWn6VsJkBbluv7d5j1Dvw8JshKgBQele++mCs/t7Y/
2UYAzdBxDRnMCqal13i3E6AJUlm6sfnnzqcxPdpBgKy32XucMItE3U3dyUWA
T2AcNoetP0nEXTGWhwCCkWScHWaOz2bf2PgIcF1iWb8Wy1/Y+VPOUQIEyOup
yefD/GtOcjPLHgIUXfphb47l2zWS63nYPgLoZvS7RWP7M77/93HG/QQgxp/s
yMH2r8Ok5fofMQIwvx17VIbtt+ZcyZY7EgSQFYihZ9+gwue7qen0gwTs/Hi9
D8fqI/uT63eyDAHsGc6d2OGJ1YfJBVcPOQLEOHNvKXenQvwssM7LE4AnN1PK
FKu/AGFOlSklAnxf0nlogdXrctmvbkcVAgSciPpW7UQFp3Njbj9xBJgjTHns
uUaF8xHFmQR1AjzUnOl9hp0HqZnzbL1nCKA25nSxCztPH030UbQRAZ59lFGI
sqSC+hc1L9w5AjDqyd07ZE4Fi1iZwVdmBPDm4S46hp3HKNmtb70vE+C2RK+M
jQ4VeJ6uW0tcIQCX8Rvx25pY/W2icg1dJQCdM/9tkDrWf+fYbXVXAsgLhDud
O0mFCe/Puly3CKCcH7RlpywVPIeL1mrvEMBoKbosVgo7n6ffFN0KIEBc9OjO
FQmsf75EwdFQAngGffqYuB+bX5nbVEEsAZIEsjSJnNh4f0Siz7wkwE2O/Ivz
cxSQuiKA25RNAO3u/kmlKQp8aNuxVPKGAO5teAOPnxRoe75qvqeAAKo9A9VZ
gxT4c6pHcrqMAEPylUiqngIWEVGNke1Y/rtEJ14nU2BiLtBfpRPLd9EP3eoE
Cnhc8Dmy8J0Afo/NuptiKRApcfnphQFsfdDh9iKEAqVNKtfEfxIg4ZbzGZdr
2PtgxwJrzQoW/2PmFXaUAp1fou/q/CFAVYrD/lkp7L6+LralfZ0AH5nvvjst
TgGuJgumAeZR2Pau+14dP+bw2j/zHKOw//PQe5Y/y7Dzd/LS7gOjcPuPmXtM
1TKwT54e8tIbBVybq1vdqWVoeUyw+HVmFFR6ZnuOKS1DjMad/gCjUUi/YdP9
WHYZ2DIKe6LOjwIHrrbwP6Fl2HZx97fnl0bhgtG9J49+k4G1a6G22WsU5CJ2
rzx8RwZm9KzgQMoohJSrsFhwkWFARUMbnzYKTEy3JlhZyFDwaYaQ/AIbL8+j
NOv3EliUnuTiyh6FpkNnjQrGl+BdHt6boWgUtJuFwinvl8A65YDycP0o2Jd5
zlqfX4KPt97WJJJHQUP1WfDC3UVwli/v36o3Bk5Ge6+K+c9DZUd37sczYyDH
ZRF8/NI88LosBDoajcFxhbRzsqfmAb0SE689PwbOR9gj25jngZsvzjPIZgz4
a/hp9dFzUP7Lno12Ywxqumudax/OAhviODmePgZ+n1M5M2Om4a2OXXoFdQzO
7guamT8xCZRpwZ0TiT+gxeiIs/TXIXh/TospQWMcjLLHRjePIwjUDn9eMjEO
q3aZvT9J9Wj/sG5fZvhP0E8XDBTdhUfKimEJAnITsDru5ykjT0I9dgIKqfIT
8O5IUrG8KQl5xeb3CitOQMcN0nsJXxLK/dknKKEyAemBnmlD5SS0L+HwCwXN
CRB5LGzvoTaFGBd78s5ZTICfeaqAsv40as6RrL8fMgFRj31XXxnPIqt97b82
dU1AhWMGR/iDBcQh4Pm+vHsCdpttYcE9X0BfuXk9bvRNwALuSjopfwGJb7Uk
EocnIMkvPZS/bQHNkyd62okToOUQmNfFtohCGteKU9cmYF/3l9qSsEX02lva
VengJBBv/Lrd5ryELNy+SZKlsDwdthCoubWEtjt5/8yVmYThFsORnLtLyPPS
JyvhY5OwT0CnUC9zCZ3Q1dRjUZ0EkZSvp/v7l1CbkLVE9/lJqEh+sSCoQUaU
pvtj7sGTsCD5lH+RfRkNsXVfXQ2dhEJRDx4p/mVUpb9n/m7EJFz0HNtsfmAZ
xbXl/E67NwkR3NtyI5WW0cHOep7Wx5Og7nlOCeeAfV/1b9KSzJmEL/u37Vst
W0Z1kzfejnZOAsfP0k+PzCgoV+LLEZfuSXARLV5bt6WgR9eYP9J7J4HxG8vl
i84UZDMdX7NjeBJ4tHRvTPtT0MpcwfDJyUmIKRzdZ5JBQTJU0o7k35PwOlr1
1VkiBSUxW3ufFSWCtsUIN+EqFa1d5jv2TZwI8+UDF1Xdqci+uoNiKEkEGw0l
9PAmFcmGqN88I00Ea1mejywRVNSwLnFb+zgRUpTyeVQzqIi2Qg7E6ROB0kuR
x/dSkZVFnuoXAyLs5TQ7bDhCRVVlVzapGBPByjeMsXCcimJ9+0OUTIkwNaCh
oLFIReLUinB5GyJUNl9wLt1KQ6aLUfcOehNhn/xJb6RIQ5+N1PXf+BCB79rW
thMnaUikcJVd4hYRykIce16r0dCcq1usWAAROs9sIpmcoaHwGZOHwpFEiPAI
71q2xb7fJ4We7EohQkUQT49xJA0JavVfeJxGBPrvLra+GBoKyorn53lBBOHh
wDaDhzSk77A5mTOLCLbd8+TtyTQ0PjaVwl5IhPivqo86c2iIe+R9BmMNtp66
fXNejTQUy+7v/6EOc9H2NwatNLTthIbZ9UYi+BWN7OX7RkOMSZ3be9qIMNZR
JevRR0NLxvO+b/qJsE0JEXQmaMg1qPSc9RARFm67GMaTaGgq31+aG08E9v1b
PBpmaGiUjX3cb5wIJnLtTX+WaKijVsLQaJ4I/jcft8asYfNdnpfcvESEjur5
erVNdNQg8oH50zIRJNw/eE4w0REKPP3pwAoRml6/6qey0pFyPvvjvlUiJCUy
J15mo6PSoS63++tYPgpOMVVsp6N8JTsxGjMJlhXuL57goqODVyUZcllIkMxr
73WJh46yEhcGbLaRwJQrJ9t9Fx2lkgPimnaQgEockLQSpCN+EU3nQC4SGHnu
u6Wwh44SjLZryvOSgN4R4r+2l45i8p79ThUkwS6y2JsL++mIdciu5+xeEnTu
MOgkitBR2LaD71iESXA85lqJoygd3XH8eMVDjATsvDyvpf+jI+rjwFPiEiQQ
3bP3s48EHXnWaO4ZPEiCnVe3x+ZK0pHT/u5vGrIkyO229hg9REcThim5v+RI
cP9DUzhBio7sAi7fzT9GAgWDo9ath+loJPeg3eXjJFBx0FvNlqYj88FFFf4T
JHiY0WvrLkNH37eW8bWeJMGVifw4cVk6MjoetBSsSoJ43U/RTZhbrmi1KqiT
QLNp2djqCB1pP+Z4PX2aBK/fORMHMddUd4eka5NA+SLOSEeOjlSXUi6e1yNB
lHHavZeYPwvbH99mQIIYkfaUWcyKhoe4kREJhO+JR4gepaMi/6VZr3MkuH6d
XVcHs3RuWYOEKQnsWlemLDHnDARlDpuRYOyrv7MVZvGt2gHxliTQyznapos5
Q3GHuZY1CTKaWnj/w7zvSs/RVRsSzLxjO72IjZeckMrx7jIJzuyvtX6DeVe1
PcnhCgns3+IdDDHHLx6qEbxGgovOJhd/YOvhECantTtj+beX1v779+tog0+3
wlxJ4PQ8WrIby8dm/2ATJQ8S9PolMR/FXLI48wt5kbD3LMntHpZP+ytmzzV9
SGBl4Xz4O5ZvnsFqjVZfEnQw4WE75hpDmalzd7D+yNw5Ctj+eNckPxjwJ0Hs
nklXI2z/RJW2HLMNIsHBs+oPLbD9DRMZDnQNJ0HAw4gVwPZf/om2GOUuls/O
u1q7sfoYZytpuhNNApsgzbUJcTrSoETzRj0gwUh1/XtDrL6Wr1E/7YgngaA1
15cZrP5ejtjaJCaQoOTBwRO3sfpkbjj+NvMpCeJSnd5c2YetR+Wl0cEUEozb
RabXYvVt/24HtTCNBCtnL+3h3Y3NP3lCtSKTBHVnygvD+ego1CWhpy+PBMX3
y0vydtCR3Nj6nUuFJDgm2qX0EDtvY6bO+yeKSMDZym7ngJ1HNVW16+QPJAj+
uS8Xv4WOGLkXNnFUkUCbRfPZnj80VHTXMjuhhgRL5Yl54Ss0ZLdap7+7ngSV
7sNheBoNVf1MfSLRguV7XSnBAbsvQj7qHVbvIYF4cFZpOXbfyB3+0NnYh9WX
R4X72x80NPZCxNdokARbn7PyxhBoSO3er6qLBBK87O2SER6goU3W2Wa+U9j8
bdKVE1poqLCTa21thgRZqxqdbNj9Z6MVkBk+j50Hzi9+3rU0VCl7fi5+mQT+
creEBCqw+5WJKSxvDbsPks/KF+bTEMMb64Ixrim4TdeJErxPQ3Uzva7PeadA
ZVqz8zR2P8fIGktb8U/BEb+h9UuhNMT3UT2ve+8UJLNoSNjeoiHpeom3DRJT
0HzzcOwTexqy+rmUlY+bAtX7S9OD2PtCRPL6FedTU2B6Z+HcryM0RLz+U0xC
Ywp0hTPEt0jRkNdy78sXOlNAmBKXnROioWimLxkJJlNQKtHfRd9CQ2X776bd
dpoCPxmDZIZOKgpwYLBWdJmCWM2PbALNVKTx5tbeZbcpuNq7L2h/DRV1yF5P
cbkxBYldV5MZS6mICMbJNkFT4CNwt2TLUyraZb07UTNxCug/ie+FrKjIM7ng
PlfVFOxKKT811kNBH1aT71bVTEHNEo++UhsFrVpHBHvWT8Fxc9LpkFoKunvg
4o3Olilgn3muMFVMQSm52y7G906B78ktptxxFFRb4SDFNTsFUqbuHN2nKYj/
x+5mTv5pMOMdfuWSvYy+HIpk5XSdBs+QFW/8aTJS+M7XGu8+DXFqnR/GlMmo
0C/7IY/XNExEJOUNyZBRRmudIL/vNEg3T/4oESCjSLfNh4VCsPjBzEHazBI6
WxxifDhxGq47hAh2PVxCk8r+yToV00BgbGBT7l5EnLqeUiEcMxCZmKJTc3oB
DR3u6Lr1GbOlfcRmJRIqTAPRcetZYLj/9PX3g2PoYoEC5961WTBC+vKsyr2o
1ILO0cEwB0Gnf/F5M/ciji2f2EOZ5sA9nGeMqb0HVVqdZCWxzsFOmebCOPse
JLJNY72Eew4KL12du/awG03YG8/qS2LtBfi/uS91IVfB641+Jlh/1YmxId87
UF3t4XqZC5hzC4mSLzuQkMd8zZj5HDAsqwRt8u5AHfWeldqX5oDw/BBVjacD
yd249YHHCYtLNzcdzW9DtPaIV7mBmHPfuY20NKOg8BfBQzmYZUWkp6zq0Pab
LLq2eVj//EM8F3bUoeSrLlwTBXNQqWRVe7iqFhXrKWXOl2DxUgPu3ZK1aILz
Ww0jwvxt/hzLajXSS2NglezC2jvZcJeWfkV9D6505HVjcTXuCHb3r8g+uCVJ
rg8bLyZ5S6/kVxRgnySpMjwHqonPqpvSKlHhQVk9w0ms/ViYbcAehHZ9uBR7
4zfmnRFCfSzlKPN1renKH+x5Zk6lF1GfkGzyIaFAhnlgSOLb5sj+Cen40woi
N89D0PYXv2d5ypCf+oNvz3Zg8Vwl1e1yH9BYewVP1QEsXu2bWJRajNy+ig5r
imNm/LFrTKYYrRZFv2qWwNrvCvolUl2EeBNNFboPY/H3TzlHZt4hbau5C0RF
LD7MUXfxTCHKI+59xqGP2Y6sqXs3Bxm9eejfaIC5tO/kO/QGLV3bbBNmjPnY
tYDmldfo+PSM6Iop5mv6O/67lY2qZsvzf9piZkno7kl8iezzZR6m22NudQmU
/5mJWNwyvSwdMe8d7r+kkIn0F6KPf7uOeVqnW2r0BepZMq/6fBNzB2cJ/V0a
8i1ufXnzNuYJS7qWXyra7X3qrhz2XceQctXLUT8F2VAk9F+HYI7XuH1k7Sma
otG6H93/+7xAQ87rxyjmo/NHgzjMVTYV8hkJSOYWPnnrI8xzuXXVLx4h75W6
S4FJmDtV/diKH6L11cckp0zMcV7bKSdjUMaXrS1iWZj7Tsu2xEcjjQD/fMJr
zDvRMb7lSBS9bu9lmo/5uH/jyaFwJFXZd57zHWaCQ8PRy2GoPUj/eEsxZm3O
e53UEMTDKP/nVNnf/vRwoBGESquy8avlmIXbwHDVH5mH7q76UIGZ/4fhYNQd
lMbMdPdwDWY64+4HSz5ItdbnGrEOc2Fo2XSrN/oRPqWX2YjZ5oOTS7UnkmDp
3CnQ/re/1KePVlxQU/1pctc3zEYvvxaFOiGXyLLu2O+YGX6kzp9yRDt1Dn/U
6f2brzLOwGP2qGjri2Tmgb/94zclWtsikyYefzSEuTIho/P2RUSLjrx0G485
SKbJ8qUZStZbPXVs7O94M3BE2QSpsLuLLoz/7V+w5bOKERpp+bHl7SRm1SSv
DjMdFHz/Aslh6q9NXylzqyNRg+Zm4dmN9o58506gOg7IH5z/2/9TW2klOXSt
vSgucelvnNBTVSKG2OPEvYwpf61xw3qUB+UbJZ9np/+1sFOwHqXCmJPjeP3K
Xy84Vg6QcNGbGXcPbVhV4sjWaVzNL8qfhQ3bBNQfnMEpjA1XC/7+60o5O605
nFvPtyyZDceVOKjN41431UZpbDgySpN/ASdYnGfouuGkHhHyAu5c9gu50A3z
b5k2XcTFPHvMm7RhXy2NkkVc7YMoeu6Gg0Kl2ZZwa6H+g183LJH5xnIJp+jr
UdGzYdkH718t4dyvO7yY/jdeoTFpCffGxjyMYfWvd8oGiJNxYyZnHHk3nO6j
fJGM261zSvfghoXzIu6TcSYnjx2GDdt8tvtAxt0/IrnTZMOq99sGyLg6sb3k
qxt+rd1II+PWBTh7/Dfs/uQcxzLuOMfmsvh/zri+bxnnyfjrWfa/8c7ySCzj
3lJnAj5vuCFO99AybnyKYPvtn8N3YPF9+O8aExsOEryMPX+hq+G/3//iihpY
/3H1n7ft/LOR3y3F2PiN5YWzohtOlynE5sdY+LJDacPEZ8rY/E+8TCo22LD2
sjG2Pu+kmMTLG47cT7Mi4/Jigm75/nueXRLLz0SQt9X9DZulTRKXcEI3rkLG
vzgcxfJrds1K5MOGjQTYsPw/vGi0ueVf/yZu25ZwTcYaRMKGbcwvFS/iTipL
5W9b21iP2I/FBZyPtPBDoQ2rVvjcXcAVivB4y284XePxrgWcCNuqkvW/+O9J
tTmc5fr8Hq8NCzNfVZ7FJZB/rN/d8E6ZVdEZ3Jah5tp3//ovsu8i4aADva7b
sLu04hMizrem+N7gvzj3XoNJ3FTuM+PN63/NYCP6eBx34MUDecENE5w0xH7g
rB6H8slsuFLM5/Uors3fedhsw+k/hXYO41g8L1W6/IsbzTf041SvnMsM+ddf
zrBjD67I4MS13A0HXVUvbMNNq8nof/0XN588W48TVTwg0/PPIXGhCGd9iI9r
+p9fpJILcE+E2Cjr/8xgQhfG/Q9vM2R3
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-1.5881461901430143`, 1.5092248480082509`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.44323922803125*^9, {3.4433639910625*^9, 3.443363997*^9}}]
}, Open  ]],

Cell[TextData[{
 "Compute the coeeficients in the expansion for ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["x", "2"], "(", 
     RowBox[{"1", "-", "x"}], ")"}], "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in terms of the eigenfunctions:"
}], "Text",
 CellChangeTimes->{{3.443973808056033*^9, 3.443973856977908*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"shape", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "*", 
      RowBox[{"x", "^", "2"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.443239411359375*^9, 3.44323944828125*^9}, 
   3.443973800165408*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.03983660115035095`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "3.818986234692921`*^-8"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.0006092611401620081`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.443239452953125*^9, 3.443239520640625*^9, 3.44336409121875*^9, 
   3.443973800165408*^9, 3.443973936556033*^9, {3.443973968165408*^9, 
   3.443973990837283*^9}}]
}, Open  ]],

Cell["\<\
Chop to get rid of small quantities (like irrelevant complex components):\
\>", "Text",
 CellChangeTimes->{{3.443973868149783*^9, 3.443973898087283*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"coeffs", " ", "=", " ", 
  RowBox[{"Chop", "[", "%", "]"}]}]], "Input",
 CellChangeTimes->{{3.443239455015625*^9, 3.443239459140625*^9}, {
  3.443973996227908*^9, 3.443974000149783*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.03983660115035095`"}], ",", 
   RowBox[{"-", "3.818986234692921`*^-8"}], ",", 
   RowBox[{"-", "0.0006092611401620081`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4432394596875*^9, 3.443239520671875*^9, 3.4433640994375*^9, 
   3.443973944727908*^9, {3.443973976665408*^9, 3.443974004024783*^9}}]
}, Open  ]],

Cell["\<\
Create the solution as a linear combination of the eigenfunctions:\
\>", "Text",
 CellChangeTimes->{{3.443973901649783*^9, 3.443973926556033*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"soln", " ", "=", " ", 
  RowBox[{"coeffs", ".", "shape"}]}]], "Input",
 CellChangeTimes->{{3.44323947146875*^9, 3.44323947621875*^9}, {
  3.443974008009158*^9, 3.443974015321658*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "0.03983660115035095`"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"4.73`", " ", "x"}], "]"}], "-", 
     RowBox[{"Cosh", "[", 
      RowBox[{"4.73`", " ", "x"}], "]"}], "-", 
     RowBox[{"0.982502214605038`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"4.73`", " ", "x"}], "]"}], "-", 
        RowBox[{"Sinh", "[", 
         RowBox[{"4.73`", " ", "x"}], "]"}]}], ")"}]}]}], ")"}]}], "-", 
  RowBox[{"3.818986234692921`*^-8", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"7.8532`", " ", "x"}], "]"}], "-", 
     RowBox[{"Cosh", "[", 
      RowBox[{"7.8532`", " ", "x"}], "]"}], "-", 
     RowBox[{"1.0007773119072525`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"7.8532`", " ", "x"}], "]"}], "-", 
        RowBox[{"Sinh", "[", 
         RowBox[{"7.8532`", " ", "x"}], "]"}]}], ")"}]}]}], ")"}]}], "-", 
  RowBox[{"0.0006092611401620081`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"11.`", " ", "x"}], "]"}], "-", 
     RowBox[{"Cosh", "[", 
      RowBox[{"11.`", " ", "x"}], "]"}], "-", 
     RowBox[{"0.9999664507707187`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"11.`", " ", "x"}], "]"}], "-", 
        RowBox[{"Sinh", "[", 
         RowBox[{"11.`", " ", "x"}], "]"}]}], ")"}]}]}], ")"}]}]}]], "Output",\

 CellChangeTimes->{3.44323947796875*^9, 3.443239520671875*^9, 
  3.443364159546875*^9, 3.443973950149783*^9, 3.443974015852908*^9}]
}, Open  ]],

Cell["Plot the solution:", "Text",
 CellChangeTimes->{{3.443974064462283*^9, 3.443974069431033*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"soln", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.443974026134158*^9, 3.443974040884158*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[3], LineBox[CompressedData["
1:eJwV13c8Vf8fB3AZJclqozQQEeUrSZxXZZRVZESJRFYiMyMrhEgb0VBI1j3K
SiqUUXZGA9e9ZjLuaauMfuf31308H59zzme93+/P56477nnwBDcXF1fRPC6u
//8anBh9W/XZgliy98ymU3+fafJqi59mrVJFaI5Q1tYjAcR/d1NuFa3SQdsP
yYiIQynEkKR0xBnZ/fi1UXVnmm0eYdj8/vHtVeYIXzV8u8rkCSGdsDrrn5Q1
ZvYdTwqbeUnMGDgk28va4mfJ+AVns0ZiLKqzxj7JHq4zSnFaSe3EIcep51dX
OeLfkG5covYHokZbvOzVLSfkm2eqWz3qI7Zs0Cr8IeWK2GfifA+oAeIW97Ec
mYyTsL3m8+TiyAjBP3DuvqWsB6L/66R2ao0TT9ntza/MTyOWt9Qx7jtFnDZx
NLBJ8sLZDn2X7KhvBFM5RvviKl/cL0vbcVD+N3H97soqmSN++DEbKvR9zzRh
IJyr+eKWP3aMs03nJcwRpZymbZRUII5/SGlc9I4b7ra2j2Psg6AyZCl/tpoX
61sopbUZwWh60T8VXDMfiQVicqayofCdnUrnFl0E3dWZmZ+dw9BOmX3wO7wY
oXWpItXm4WgVXqNhWiEMVTXFi9ZJEVCQtkpLsBdD+rID5y+sioKhypLrkz9W
ILg5ucbyaRQeHLjn8MJ/FSyj2dwbjkTDuVyNW5JXAoI/vcIqbp1HaVnAQrfd
axDQeT1gQioOTdXs4cH762GWwCx9UhUHZUnf1qdXNkBJR/ZnlP0FHP2aEaJz
XhpDRWVeqzPicUwz0NIpXBam17rd9ssmgmf0/q67TzZB0XBDjnh9It78enqj
vlMB/Dzun0acL+FuSbvgpV+KsCufe1Rpfhn9J1ovfTVQxjL5y0pWSVcgMhax
8piECiL4izbGrboOn974JcoJ27Fp75XYx6evQ0fB0DvAUh3t0Z6fe+qv44Bd
tvnvDTsgzaOYp+R/A1nHzzjceK2ButlMpc72JLSZPRpaqU5A8HvSNqmEm5ib
CMnzeb8HJVv9kvYN3oR52iiDY6EN29NmU14aqXCTUvT53aUNclK4vGY0FY0b
t6wp6dbBwdFYTTfdW1CslFvz/JceUphB2iVzdxAyFtVoFWCI3ZLWmX0Wd5E7
E7TmuLARxg5v5+MvuIvf0wOPJ7ONsGYi0KFgczoKYv3CY5nG8HRVk+HqTUeF
nIjrkc0mEHMkH2ap38c27lflG1oOwsr6HvnlayZMmrZvsU+zAtVjLnBfPAtH
9Ueo4ikrnLflP2GmnYX6GAvVB+bWKHLwFC+9ngXXrenzj4kchpCHVnTw9gcQ
/HSM2njpCGrPfTw8PyQbx+bfaajOsYVKvuh8Sf5cPAu8NOz98DjeKNUea96S
i95SYz9Z9nEcexRQEWqdi4SQJyUbVjrgYinrdH9uLrbMu/vgb6wDRqsKeh4Y
58HVgehZ5uGIO136j7Zey4fDs8VyfbpOWPQvwmbvGhKnmL5maZvckOJ6yFZR
jwTX58tRX13dIN2peEzUg0S4yE4yLscNRM57h57nJAoLdlqHyZ9EeU5SSZlS
IXaWG34IVnTHpNnEM8OWQigN2xukEB6weJjc6LP4MZp90+s26XtBxpQz+iq+
GEfPRLU0T/lBPGyvhvO9YvRzlMoD1/tDpCA9XqCsGO5OrEE9Y3/85TdTMh0o
RujU2Zs6Gf5oqyrz6VMvwZXhzZ8aTM4gaEvE3O/hEpyqbl/NeRSAFuGlS5V2
lcF9l0rvp/hgnGnZgZQf5fi4aWHf06ZwrCgW7Zs3rxKRtuxEvnkxKB3QbmrV
fAmbQ2kPdJ0S8dLttoT1RA0kJca1Mpddw09ZLeGCU/VIMU/VeN2bBO4/eSIS
Mg34vvfeMo3FaVD7d6zUjNGEk9eHi0an76ApSrWlblMrHlQGSWY73YPU5fE/
OZw26C1UChV0z8D4FKuva0s7rPbO/DmomYXMsYoGocQObNU3q+9fmQ2h1dnU
0FAnPvv+Ke5ufIgE1xKndOl34P+uqpaEXPzalTfkEvYee6cLCnxz8uCrUlO8
/NUH3PauURF+mw8n1bXpV15/AOfQtM/jrnxYqZ2NF2z5gI3WbyIPdudjp4bq
ce6PH/AkZK1g3GA+uPdkCnM4H2DidDO39Wc+LplGudWKf0QJ8e7My1UFyD2t
s9bX+yPeS+lgh10BWIya+LfrunG0yYRPl12AtkneCZWN3bAo8UziHSpAlaKu
0XXFblDyxZ+rPhUgPbdW8ND2bihJuHUqUwU4/qDuYq9RN9o93+aOzBZg5Pbr
S5/OdMNrE8kqE2dgMqHp2mxzN0wtJh4OmTLQ1yj4w7ajGxfejJzeacFAi4Cx
edWHbjxfwDOWaMUAI7Z5aeRgN4xTHkwq2DFwOqrlBv+fbqxM7Fck3Bn4EdyW
vES6B4edNKReRTMw7daZJh/Ug1xtuyuGpQyYqx29ohRGtwvdC+ErZyB/3sj5
/6J68OPZgrPPKhiwTZny0krsQcLWgYJ11QxU14rvM73fg/NJ23tfNzIQs9b+
R0BDD+R6pFZeYDOw5N2k0WvxXkRePPC6awEJ93v+e5qlenFAqtBiqwCJGvd/
29ule+Fk8nUsTpCEP4/ohl6lXtgajSqoiJL4uEX1D7WnF+125/7ZipO4Gx+U
teJkL8K1zxfIK5JQ2L1gzqmiFwuvvNaIMKbzMDdv44cquj/NOmb2ARKqS01M
9et6MVYk8KfBlITmp5RMhbe9ULCTT55vSWL/xU2GX0Z6MXRextXMloT3R+OU
QDEmZoql1mnTef5rz7fqsRVMqMgdlN56mkRwftL4kdVM6DGE0yS8SUSFsQhC
jomcceGBYT8SSTJew9wEE86iYS0HQkiUe11XSXBl4k9xznBAPAmiR91m1oMJ
T+axeUoXSbzUYUZ7+DLRt8krgZVIomGF7EeTMCYOn8ygtl8l0fu8LGzZDSYO
NCYPPk+h65BAT9OdKiYey782XpNFYu/9dc6PVvRh202jbOUKer4pQrJ1kn0Q
KLX5afOMxNrE6aHudX1oHJtYF0PXqb+BXcd5FftgsvjPsvZKEgWmcbaHdvVB
NaHuxJ4aEkvmfbWYdemDvkFpdEIT3d8Uc6mYRx+qTm/Ni2kmMTHR0CHr04fF
PvwFYS0k6j5kmpqE0O937dd1aiMRWGhlnHGlD2Hkj5rFnSRYdlU6+k/7kNye
/6m2m0STRQGPbWUfIo/o1Sb2kHhimPrSu6YPynfPhpj3kri63XfXrZY+mJkd
DXnHJKErLKdJDfSh68ChJ8VsEip8y6Z5RvtwtW2ni2M/iTXT856unOzDZXWe
byIDJH6P9GzfM9UH373DV48Nksh7cem/G4tYqBMtXdA9TCKl+Oy3HBEWtF54
RJ0eofcv1/XRi2UstF117eb5RMI2SVt5VIqFD696RdeNkhD1mNq0U5UFg+S2
/G1jJOYchj4f2EG/v4r8+pj2mPXbh44EC58W7RPePE7Hs26ebOI+Fi53uHeu
mCBxZrXd+n4bFpaWf4mqnyRx3GSLZa89Cwq81B15Dh1/kfMuvHdigRl6vzCW
tuznjK/Np+n+6qefalEkxCT9ZN74sXCFGV90jfbsfj3rmiAW4ouzMkZodxaP
Vj2NYuG6wgG3yC8kqj6V/yiJY8HrZ+OuZtp54vFyjxJZuNmRL7T0K4lz4Zsv
Z6ewULYs8HIKbY+iuVf3b7NgFWWu84629Ujr1O37LGRI+lIi30hsMfK2u57P
gmeng0IIbckw7WuXHtHzZ8k+Y9Be8Hhp/YVSFrTHlugwaX8bGv4bXcGCuqnM
K/7vJPpWlClFVLHwvdFix1baDQaxx8/WsnDAI/2BJe2SEOukMw0srH/ItSiQ
dnrhpgbvVhZ0dL2dUmgnDE7PnupkgTz19Ukx7YDlzVtdP7KgnxXE3ULbQf/O
Ccc+Fn40CmgP0d5/1vOm3SALSavvBk3R1iB3NR8eZUFTZVvOgh/0+g6IzrOc
ZOH5bEPLUtqiywZVTb+xsKTNdnwN7Zm9xS5GU7QtqDkZ2qNB0bf2zrDQcT14
4SbaY5YKLve42JD/zr1IgfaxL0u4pXjYmFaO5pGn/S5uJu0WHxuaztzfN9A2
3DC8TZyfDaZI8EcJ2lXPmluTBdio5vpSKkJbzbLUddliNt46HY/npp1P3eG5
JszG75YOy6/0+NfHxdwWEWNj4zq9VUzaKetPb09cyobuvYr2WtpCz6zeLlrB
xi5KLTKPdpTF7pNxq9gQWVCxKZH2H4483wJJNop3Gb45RdsjVuxu1Bo2ZE3G
bQ1oD62bVudex0aw7t3xDbTbzJvcZ2XYGJ00H2um91OPUzw/WI4Ng4vHbO7Q
fhZzO/33JjYWjl+rPUk7+6lH53dlNj4w4kJm6fiRND/k4aXCRka/VVM17auT
4KdU2TB3dxWLpB26VlRzbAcbsyvco2bo+PxR/qfLWZONgJFThcW03cwGPIcJ
Nj45t3W40rY4X5TB1mbDsrObq5GOd8UJi0XvjdlwJUV+utD58sTcqPKCCRta
3QJXuWhrP9/jQ5ixcafB/vZ1Ot8OJyr3ZFmxYS98/N8jOh/jtizM83VgQ+CB
O13YSSy9+c9WzomN9TMLebVop8/7JdbrwsZejbio4s/099sHgrQ92PAODWxP
oevBiO8zA7FANkqumWaq0fXDm/l4rjaYjcqVCso36Poyq5vzODCUDdsH8fJf
hujvr0gS749kQ4GjdSqNrkfa5Z5jZCIbXq8W/FdP17P02fUXjDPp/T/Z3eJD
10dFp1XEvGw6Xrx+H735kURZi/C34hw2smb22lZ8INFyd8ZakmRjf9fU4x/v
6P52v5MfL2eDoSFZqNlBz/d83JvYVja4biquWN9Ij5cTFqLZzoaHwcxroQYS
Xof8t37pZCO5S44z9ZpErJzDzUPdbLyYU71WWUeitEHTVXaYjfbMECPpl/R5
IPyFv+YvG1tZqenaT0i0P78Qoz9Lx7fs9PDiMnp/3WXmt/5j47/048u7Suh6
1XCYp5u3HwrpbPXDRbSja2cpoX76/zU7FgwSItOp3yQ29KP5rF+AfwZJ3/N1
e30M+6E5GVWXRJ+PTTfYh/8Y9+PvRf8Xc3F0/usEfww16ccb9u8HDrEkFt0v
fBdn0Q9jvmAD6WgSAkcl3t6164eAukR/eCgJ/o4vtY0+/dh5Si84mz6veSvT
yA23+tGa+nU87yCJbk2dfaw7/Zio9GbGmJAgn06wU+/1g09CFMf20+tXqiUm
lt2P7ITPZvMNSDwqYPlyPe5HsgJf88bd9Plwa4MGs74fj9Jv6lUp0fERmFeT
9L0fPRmKL/Xp+03ilNnRg7/6cegY07aYl65PfjM/F//px5Am01+Cm85XL+ON
0XP9WO5iKc6aYeCECxXns3AAR6bWa2h+Y0Ds0H8HTKQGECORo7a/l4GTqhUf
FxoOwMu2cnFnAQNVbV35T4wHMPrbnZeZy8CyU1/CnE0GsJr/b8ZANgOVWTKy
tRYD+LHLkzV4j75/rbjsHX5sAMKdi81f3GCg4o/joim/AditlknpOMvAokoh
raH0Afxe8/31uX0M5OkfT3/xawBlStzxwu8KoKq4jsAfejwJsg0x7QV4IcTu
qZweQFC1vtZsC33f7Ti6opprEFNb3apZ9QX4cdQ68ZXAIGZsNPZHlheA8DY5
+3rNIPbx1wzp3KKfTyWs2vUG4XdJ0buEvj//HBcXGUkahH3LpkmXvnyUmO3l
ua4zBHfFTxlF9/IQti/6bvHIEKKm7iTmHsjFOqbBh4zoYXwuv6FazHoIje1R
11epjGAosJI3RSEbNmta/8zrGMHoEMfipn8WfjZcHDgd8Qm2YsT4m4gMpPDa
+h6UHsUrIf+0h6n3sKSv5D53zSiGv6/q+mV/F3whEeY7vD5jl2JWb7lyGrhy
bMkBsTGsy/uUtF8/Gd6p5EWxl2OwO3WtMkj2Gp4rxPKLeoxDY/Jo3M2oRIga
eCueE5rApSNud0aLY9C7ua0j8NkEfJzSur/8CcfdcdEQnsoJSH6cOHhwIBzH
c8xkL1ZP4HBCd0dlQzg+S78PSK+bQLH2keWVaeH4JdG3ur5tAlMm7wsOEOEQ
FZhwXjo8geCRk6aRi8KgN7JghrF4Er2HPZYc1jyLwjuQHrKdxOJfV1riOf74
HvR9gb39JFb4eQmX1/lD7VD2ONNhEguZQ7Lcd/1RISxc9N5lEs0/xaRHD/ij
Lrxvd6P3JPaq3LHnK/JDz/EQu8fnJzHbc1frRqgv5m+sSA1n0OZNP3hRwRv6
PJ6hs4WTuDm4Kcl6gTcSWOuPBxVNIqKEnK8z6AXRlAvyvk8mcc2vtNwnzQuS
Cw8/cX45icP3Lfx2LfaCyvjvrv3vJnG0w+YEJj1xlFQTXT03iV9bn/Z/rT6J
0sO/hdq4OFBsjfhvOPgkhOY/FYzk4aAru0VSRu0kqmy0+D/zc/Au+al/fJ4b
1gvo/CtewkGIXMrFqZuuGHE0nTSS52B0ODT4TLQzPMTd35w15+Ayp8HCJcUB
dbWb65UPcfCfXO9KIxsHSHlRNQPWHAQQn8+eW+uAtnrvqn12HKzXuPz5U85x
qPgFli114+DK5ivpqVX2mGo9n5UfxkGwWXTjtWk7hEffi+jN5UDQe2Sdnpc1
Fp9ZYGBfwIFLQh8f/zJrpLqcEhshOSgxcLJ0LLdCkeGODKqYA021goBJHiuM
iL6t4a7kYNFleQeDdEsY3uHil+/gIPpqVq/PLzN8uOTUVtDFwcMjXufnZZrB
MaIpReUDByIX4uKVDpoh1DFFXpPJAZdYwKBz4UEUbtpieOATBy8Fw04d8zXF
8jK7RL9pDhbq/1tss20/Mh7WWv6d5WDNgMO7/ExjbElVkArjonCqc+U2vWXG
0A+ZImP5KNxWv7PZ4q8hzmpfepsmTGHW9qn5zw59DLS+WPpyA4W1OUTz61pd
eFZLM/VkKWTV7F4yqa+LmccXshrlKFi3zbQ5tOpgWZKlWtdmCpmOMoqGfdrY
Z8M5NLqdgrKBYYGY4B4UjK5OEzKikGigF7LGRAsmOVdC3uyn8KCwUEHDWxPf
XPmORZlS0LDzCY9N3gn18Qnpv5YUbmU9dHk1vgMvJysYw/YUuC5n6PY9VYMj
Q/lKuiOFqfUP1Ct+bcMCzwyfI84Ufn8Ocn2/bRuMvlxQf+tOYe6xT1vH8//w
7pv1y2dnKDz5Il3P/3MLAoqaM88EUfB5u/LZIsMtkPDdHaMSQoHPOWZxyT5l
HPspZ/TwHIVqsfvtr6oVMTY11XXtIj2+hF4qhkcOCU9OPtl/mUL+zXDbjCFZ
KAeyUhdeoyDBK5Dj2SQD3791dmEp9HrkKbptLNyAfzM3PrtlULj0yOXS+8tS
uP98YZPMAwq6XCPhTS9WQyc0hMF+SOH89LwEi78SuPDP0ceSQWFf/da1Wqkr
oVj1wUL0EQWdJ+93P5xbjtZwI/WmIgpXvoNRdXoZlnKrzu4up/c35FqKWKgY
Sl9ms2YqKOhdlyGtVonCOlLiZdkLCtnzoiIbooRxh5cnZnMNhe36BSvfBQtg
V62/62gdBSFrkaf9a/kxGD1mmPGGwuYGpdL8fj7ILWgXWdVKofxiyLqi0nlo
qNf93vGWwr+WFVHCSf+IU7HlXYmdFO4nO+669WuaENHf/ET/PYWjtTtzZC79
Jh4vvJfK202hgr38S43dT8K8YWlIZS8FBcYJvWsu34ipC7F2QSwKbNauCjMz
ikg1nNm9bYBCTo15i7beGKEpeFr6yxAFI01FefncYaKvaXB+3icKPFwRSmph
/UTExUOfT4xRUMk9EKkR30NI729sXDtJYfDV/AvrpjuJOiEweigKe8IcPQVv
txCurY8vJ32jUDXfJTN1US0heFnWx/QnhYD4Q6Ee0U8JhkmqheBvCoVG3+RI
wQLCVFRIvf4v/Xzp82QhjxTiAh+3RC/ttd1azzmZyUTNn5+zX2ir+3VbLmcl
EWoDzFfi0xTqwvJUNI/eIMSLCg540CZDboUMhl8lzLLvqUTSfnTb9iFX+xUi
Ie3GshTaJfttHpyQvULMRYb0VNP+Lz/ovNDjS8SAubHzshk63o72xJg3XiAk
9HcbbKJ9f2XZSaH7cYS51rbNoL0hQj3bKiyWqJNZ/d2F9uzEGv87xueJvF8T
oc9oH1mjM/BV/RwxNMa2f0vbwlS1e4tOBLGG1akzQjvCbvd7Lstw4nL9MwGR
WQqlWrwRD8VDCN+UhCQH2s9lL8sn3fAnChLCAwNo7z+/xFh+mR8xEu5rc5H2
71KuftY9H8LK1WZ9Ge2U9SI9ZQOniStHTfiaaC+ZvOpQtNmTaDDVGWXTbv5F
0cXMndDSUGQIzNH5cz6TfyuvC+GvtPaKFO30NpG85K4TROH6pb6qtC+5x/Tu
rXYg1i+a2WFL291t+Yhgqx1x5B8l6UPbVGQhc5OODXH9++C/GNq3ZDvXsSat
iPm9jbWPaGva/s1dxDpIoK3yYR3tpc4p+dGyJkRATVF8D+3T7ZXCW3UNiUdP
sj2+0F4pGlgT+0CPGMtPM+X7R8Fqe1/jUq89xIZ7l1TFaSdqj8sx9LUImxuR
K5Rp/+hyn7sbqUbciDvzV5u2vHPwvXmXtxAtISeZVrQttbGzkClLLPC2qzpF
+4vg8ksXwiWJXU5mGedos/n31atLLSYCD+89n/z/9jd1sqM6lNbj/Ttd8//f
zpmdPJAx/nx8j7JRNe3rp1IHi1fPPZfevkH5HW2RoapzL9O5XtgqrBAbp/2J
a9WGUc2p58lSi37+o50UlCK5dYfn8/8BU3Wl3w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-4.8393756147104*^-10, 0.062409730047397645`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.443974027649783*^9, 3.443974041727908*^9}}]
}, Open  ]],

Cell["\<\
Plot the error. (Note that it is dominated by the next eigenfunction.)\
\>", "Text",
 CellChangeTimes->{{3.443974072993533*^9, 3.443974102915408*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"soln", "-", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4432394800625*^9, 3.443239529265625*^9}, {
  3.443974045681033*^9, 3.443974058259158*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[3], LineBox[CompressedData["
1:eJwV2Hk8VF0YB/CxZc0yxtyZkUgSEr1lKclRVJKEyJKEkGRLtCiSKCVSJElS
FMkWstY9diXZEmWJZF9TErK8j798vp/fOec+Z7l37rXG3sPEkZ1CoZzgoFCW
/+o7DjaWDJlpZakqCaEQzzecOizPLqYK6raLfDStqkhueRwTl8PURQmXLNUc
JQ3I3lUyV87JGiLtvgHewzePkfs/tmY/Ypqi7nlee+bvU6TMLYlnS5KWyDa0
0rygwoec1z9+307WBmmv32nBrn2ZHA5qrrCLtkMJWspyaVuCSXOHv2/vMh1Q
gMVUrdnDULJCh5VfHueEslSLTC653CE3rd2RNSV5EnV3WoTpedwj49htX6xL
PIVKbpcVCrY/IHl6Ap8elnVHCdJOw3Vp8WRRd9PHclNPFNC7W7hy8gnpaeSg
bx19GpXIqsquwUlkp/J1nTCmN9Lml5lpG0slox4zStYd8UEUF5tZTcMMUl8o
VZOMO4s8uyeWTCayyLzxWtUJyQuIspHX4WNVLulqY5N93c4XJXR81b3/OY+U
rptQkkq8iBKS1VJc/xWQ4elUOWNZf6Sd6XBNN/QtuVsiKWnoxGXUHS3+rXYK
k/5VscKlpgFIuFl4m5pGKamiphhmGX0FBczx115uKycTxA5eu8kMQgFG1R5n
Yt+TFz/erzhcFIQoM/u1DGQ+kIeDu9nXHglGtsX2szsLakmBP6cvF8ddQ91U
BRGhxXryfHPU+VHJGyjAh1OG7fIn8tCtzryCkhvIVpaXXuPSTCrpyv4JsruJ
uus+tG888pnszck/LZEYikqu5ymE7WsljSPbXAxlwxFlQZV/zZF2UnH/2hes
6nAkNf7QWc2lg+ThcB3oP3EbUW6h1LN+neSxwsVX2DQCSV34Mqed1UWKyUco
WUTfQQmlE9NYuoe8wpOz/gYzClFCeMXPiwyQCnvvhGR7RiEpvsNIrXKAbAr2
GGqvhrzlZtKQ7yApw6H4UunsPdT91/++0OgQWbWQpNTcFI0SWuPFz/aOkgK/
o1Ulbz1AFH4ulWORk2RMp6/O68V4qPeF2MDRGdLC8knmz8kkZPtAUndLMgee
aDfle8p6hgIGVxh+7+bA12x4HA/pgFcdqH7I4sQ5xz1YeVHPUMJ/7479F86J
Bd13BF9Uf45KpO1+kT5cuDLwq9UKv2QkxVX0+sRubrw5TWTFKp5UFCCkRHPt
4sPvlSptP24CBxI51xn82PbV+WJ/y1REse39FGbMj8Pyujy/p4J5TjWYlfPj
wZL09ucHXiKKu1BI0TMBHP9536v/ItMQ5bUvB7+jIOZfumK9d3Umsr16LqPr
hzCOOWluo7gnE0ndKBPNWxDGMs2KtiLumShgZZ6YDyGCtV60Hm9/C/ml6JCX
+iK48EX063ylLJQQsXTlZ6YIHjs0+mZ/HRi97b7tQ8VmKfc/nFmZjShH1JJ/
DYviuKOBBk5rslHAtsMGmmw03EN1+2ihmo2089SzHQga9vDbVb/jKPiXQ46R
Dg3fMBlr4k6H/hN7zMMf0PDb+V1tDw1ykHba7nxnJIbXGY8PlofmIu0QWwE2
DzpmXd6rceJJLgr4uzFfIZCOhdMTQvnycxEl7lCLzD06nuM5pGTcA1ZQC75R
RMcNJflnvm19jbR99toIchDYd9OVxZm+14jy4kB4y00Ce9i0HYz7B7no6Vtj
sQR2uLXlCRLJQwFrvTIbUwl8cLBP55pmHirhME2n1BBYJkH/hmgk5C9Y+VNc
DFwnRKMpaecjykohcRFvBi7f4ebYaAamyrzoD2DgglNVed6n8lFJ17Fv18IY
OLH6vGVxNOTXfIpknzPw+cud8XpjkJ8zfN/dzMBu6Wo/R9gLkPaXo+I83Qxs
3357521GASrJa5CaHWbgA+q7ej/rgBVPtKlTmFh64rn88dgCRPGo27lOjokJ
CcrFFVmQO8odv/8fEwvst6x9UVmAAmR1vZs0mPjvc36Pnz/BK4ZEEg2YuNbG
M9dvbyEKOHiVkebGxGW33nOtOQpudYo47sPE+UXS5hVehYiiLnb8xyUmfkr/
PMsXD17qat8eysTn6rahmCmwY8V9w2dMLKj0uu89TxEK2H6e/iOViZPCNt36
twqszVexJ4uJGw3Wf7XZDY5bDL1YxMTOaU8vR1iCUyvvG2AmXuRfLVvmBt6/
5fVoORNv+EA7sy66CFHunFoZWwv1KUQwzVPBrpk7khuY2OImf0kICe3VQ12u
NjNx8D72laP94OTg1JR2Jl71wi9H4h+0J9bkT35j4myeWcuDQsXw/DPI4e1h
4q7qiefZ6mCuUq/nA0x8dv2pA737wXHnt2wYhvW73v9bzLYYBXjEf/Mfhfn3
28Xu9QbXrPF+Ms7E2/Z0al8IgfbJblN3fzJxwzOLgdQ4yCWdbQ/9YmInruaw
jizw79OFPb+ZeN7hoIpgJbQfd2Tb+YeJIytq2tBXyF1jNNynmVhBZs+V02Pg
lpYTLn+ZuORq6fpEtjeIwnbiluoMEx/+oVnXLAZ+tyKtHjy2q8B7hcIbFOA0
UrN1lomDnm4R36oF5iwd8wSz2DNLT5qA6anM8+AsOwXnh07Qf0bL1BC8t/SZ
4EdfyHeHJf6G8b5JrXm9GA62IgSdwd4BcUc2JYI/fYp9CfXwdRPs9vnQf1rR
mIR6n6DIlMgPkCPKtgSYz9bHggcruyB/88jKeIqJ6xZv/Jn+DY6rJhthPRxs
uOLkeN6igAev3NdMMvG/twG7rFaBvSje2hNMfFdifjB001tEcXv/RWmMieX8
zt1+qwt+eyd5FPaD7PilOmEB7SmGIxcGmdhM071Dyg1cbpfZ0sfEow+HAk2u
QPvB+CX2H0wc+M9BPuge5Gt2Dy52MXFm0ZGzA28hvzv22vErE+9hta5iNoGv
3X7d8JmJOy6YlOv3Q/tfXwL5m5iYd9s+4QxBElFktUt+vmfihJiKvC5pEgV0
HzZ8WMnEajPoqIg65L+5+sVKmfh4vlqq9zHIhZ57Xcxn4jl6ttHzM5Bv+RLi
lM3EEWc3/m29DnnP2pE16Uz8VlVGd3sW5FGzbbxP4f7NFfnGxoYRRTPAPeEG
E1vf+mfaSwf/aRC9Egjnz6HvQ5UiRgH1EScULjKxolhhYagFePVwUOspJt51
1vaeWBa0N9KKj9dn4hBDfYGZSnBmcFH1Tib+KKtyta0d2r/sOVG0lYnTRq4W
1HOUIErTxM/5dTCfOPPnUcrgjV9U5xYY2DKk9nuwBnjxjdGZ3wx8yXunxLnd
YFyxlDfIwKUGG6Isj5SgAAm+Z/FNDGywsHhl9XVw0bNfvxIZ2M7m+dGUb+Dj
XSYNmgwcpC/+4MEQ+MHgCIcyAz9Xi2i+OQVuE/DlXMPAo4K++934SlHAnxsS
bpwMfBYf2LZZDSx3atP3dwS+JfWH9iasFFECJKwv6hE4Q8DFKD0G8lDbxrvq
BG6c+RYanwi5pg2/ryyB6Y3v2K8UQn7e9nYBPP+fXIn7ubsPcqmgbf+K6Tiv
R6e2XrMMUSSMjpSvpeMWvSuTYXvBgTz39gvT8XQGSTcwAZ/kcUyZF8PqF7fZ
vTsB1u2J6m4WwwWiytMld8FxO7qNrorhQl2WVPYguOTqlWNfaPjN859noqLK
EeWqe1iegyjuEFB6YPIYfHLeRMNAFM97nSKFU8EK1gkPtojiHaifJwyDGwpL
R9hEMdna/ih4GCzt9ro3jooxT3X1We0KROG9V21TK4LLXB6JW46Ca0Jk5UWF
cc7QqVM20+CkaCvOSSGc5KxRfJxSiSj2XJFBxUI42KnVyp0GFuhWmjwohPXs
RWKvaoKDdlRdOyuI6y2DGRm3wPEyxWzFArhDz02MY2MVoih5X9osw4v/yO4Q
SnerRpQ9YelNt9kw++xLYfF1NYhCKf1VvvEhqbZkm3cooxbuv97cSf4lLYMD
JYG7C8AFocN9AUtaxx9KHlQvA0c4Fd//s6QVof5tgNUCdmG9YnhQ0JDHEWbP
AjhgZzLtMBuK6za75HngI+zX9LyeBAdiK9PfFTYKDko5eiB8BWIIpwpengYb
9IXNlq9ASja87Z6UOkSZD5y6MLsCWc1VnzGlgV0Pyk0f50a5m3c/E9cEU1ru
fVLjQU6JiCc1FDw1ItT1iRfVBqnUVSnUQ15YoTwkgDSEPrDfUQVvZVdqW7US
pTywUz+iDQ5oUNpjtBJdzQhPmDADf9n22C5vJdL4MujFuAKmif6OuyyIUjY8
IlxawUqDZ8fZhdGuocCsFbsaEEUjMivdQwRdUKqrObUX7J+kZxgsgrLOMPsa
DMC+U59qYkXQ6sVM5kNzsImSpnmlCJqldgYqu4GnjFMLGVSUpaluZhEDdl2b
FlJARZIRI7MvxsEyGxUutYsi0u7yi+zfYOfdpNaIKLLZImpZPANOcCj8NieK
4lo0CmrZG6Heqqg8Jg0xJG6enaCD2/a8LTejIWqq3G8VBBY8dlmnmoZeXXzz
dIcumLEQ/6mZhowOGJns2Qee8aZo99DQ7Z/nXpkfAn/L3Zs+T0MC6tUevifA
zvkbviiLIa4Kx1F8G9wioWR/Wwwl3Zt9+C4KHJOtnRkrhnRPhO1vfADuprxs
fSaGAvlep/YkgrOPmhYVi6FFI86TXAXgOqnnlX1i6JF0DEPwLVhvWGp0Qgxp
Tm14Ry8Dsx5Fjc2KoYv3D62XqwUfxtuvrKSjmc6nffrd4NQZ5+HNdHQ/U+3e
oT6wp8eNge10pHalRtd6GPzziwnWpSMfmV+JblNgzsk3i2Z09Mtlp30ETxOi
1MqzvzlLR3c0P4s8WAnWDr0U5k9HmwRPlj6hgndhm23X6Mj9VYRUzirwCh8t
qXt0NPK369vnTWCB3mz5V3SUd+J2mb4aOIQz36qADu9dWs/xdrDi/kPHMB3R
8x+5vdgDjmPT+FFLR99lDxivNgBrMs7bf6KjtOh5lUhjcPZT1ddf6WjX2SPz
l6zBKl3Mz310tLKfr3vSDuxVpvZ0hI6+mBWVO50AF13EuyahPlVmqJHX8nwM
ORf/0VHsVAtTJgRcpj1vLUQgR4drCzFhYIoTvVKUQJuaVb+vjATHmAZRGASq
yolK+fsIfDjIbFKSQHfW6t5yTQSX3Mh7vpZA1pG/Pb6ngGe6nZTXE2jSy0T9
Qw5YISC3aCOB3vSwiWsXgnkETd5uItA1k1eLuSTY9gKK3EIg4zLbHvkK8FSa
n6YagVZtFq6Kfw92+LGycCuBBp7gF6L14P7nkzzbCZQt4hEW0gze06iguINA
fldWn174Cu4JLZZGBNKb/Gjq1QV2Ovh8VJtAonZ+Wwd6wR0/xm7sItC3BsVV
1sNgd9t7czoEeqHdsdQwAbbekKC1m0DeWaE/dv8B/5oVObyHQEhqe3XRHNii
YVx7L4H4IoZTlSmfEMWKbfsSuHnpQXgSFzhe6V+EHoEee+zzYvKDN+upTINd
umbMwoXBcbdGlPYRSOVgyjYOOrgqRHY7eIk0lzgvDo4lRljgGiVutjEpsIU9
qoP+9+Lzeu1kwfNd8mZgW0Gndy0bwDfNXmXC9Tf4i6Xt/w8c/rmjE+qdHqu4
XaIG1irJ6YL5lB71PqOquVxv+Y7XugS69XGteepOcNvXQBuYv/mOTxqSe8HT
+0PbdxJIOj1wdZQBeDzjmCKs39iqzey8JmBKH4+xFoEKbn3v8zMHy0lE7NMk
0AFX7fQT9uBfdTZ56gRidExEdJwA268rUlAlUM/+x97GbmBpdfEzmwl0fsPi
9u3nl+u7xQxQJJDOw3TJLD8wfeVHXXkCCfIf5Vh3FcxTkd25jkBJw8U1guHg
jHDdW6sJ5H7/4FqXSHCRZGkui0Dquj8uVsaAa7xUc+iwfo/4Nl5KBL8bV9ss
SKAo/fjg1hSwYlhnNi+BbP7+921zBpj9SwYvF5xXI8vbQwXgBDNuDbg/ihZG
B3RJcPS6VNFpOgpKDdBOKAev6Mgo/0lHDM6UycN14Lr1jGS4/7Typw9V/ABf
OiDs95GOeBxupkkOgQ2CnPir6ahJeDXXxXHwYMcDzxI6cnTZnfffLNjmbhvO
pqNbElGMx4LNcL6Xks7A8+Pr1f86L2wD1z7X0j5ER083Vap+1gIbDZK6+nTk
2mkRvkkXHFCgu2YnHb7bAtCAIfgNd669Eh3JDtc9MXUAb/Xw5uWmI28jVyfl
22B/p97ZLDGktbBE3owCx//3LwSev9ypkUT/g+X2WwImH4ihWI7id3FJ4JQA
9YOBYqg0j3cDXxFYa5W4trEYEpRInujtBdtw+QoO0pD24audP4bAZFCTcjsN
ed0+9qFnHNxkLfBfHQ21sDGSu2fAznwBn3JoKL4/xKZD4DOimPpNxfrRkFKW
y8dPKuCp3dz7+GnogI7Sy7IgsP9/1CYhUeR/ie9B6Q1w2XotySX4PXzdf60k
HHyryvfgOBXR5B7bkzFglm20ZS0VdQgIs4rSwKPzp4nrVOTaMhnyqhncLLTy
0F8RdOvka6cEmRZEEfaue1gujIa100P4FcBKUt316cJoL+NZ6lllcLiITf99
YcReHTVuoAHWeKlbfEoYXZDxPjt7EDycdpCXKoycujZfM7kITrrEkZ8tiHaa
ZT3jbALnZnSKpvCjae2Xvc6XW2G/mp8pcnMh780VufTyL/D83CLrJDOm1ZVR
Edq4pg3en44b+sf/JP+5ND+U922H59E5adOiFdhU7egdpctgb9anC6MrcBpb
/7UtQWBO3Uy/1dzYJubv6R3hy+1fvF8dyI1LK1l6xk/BBYkZ5F4efF3Kbup8
DXhKVU69lheLtowZvGN1wP2wnVxXIIBdn5zd9VES3OEpf6NPAFe4Lqk3yYAH
ZWTLqCvxWQ6RtR1KYNqBhhzXlfjrJpXZiV3gWpv28NWC+HGo7zPiFLh3Ysfo
BSG8YSf3olMxuEEvo2aFCM5Kfbn+SwmYfU3DrlUiWIVmZLyvCuz66uqj/0Sw
5kBM0oZGcMp24bkjItgwTGH/z36w4bv2/Zki2OvrgZgL1E6Yr8WHLUZUPL3r
V+kwAa759aDiOBVfTIseOSIBbrnRpHqOioMud2lpyYHZBxcLHlFx9LrTfexa
4PHSN1pDVFx4OmrzrZNgiuQuRV9RrNW+1XrBHSwd/TE3VBSX6XYGu3uDYxMa
xB+J4hpC9qvRZXCF87sgDO/3b/Mvi91bHv+vOWanYQpfe218CbibeokMpOG9
T9eceEV8g/MkNqroLIZVYgRlq1aBs2S5vbzFsFT4v962NeDmO4z7AWJ47sJn
e05FsDa9NSBGDKcb37Ax117Ovb42VIlhUbZJswVnsNrqXaYSdEz520mjuoNn
Yqoi1tPx6GjNJ9kz4DzVbWn/0XHVlyRjIz8wY2f65d10fCHL4kDineV6Vmrc
P0XHXcdKdPcVgRta6i+9ouNas3QOGwwOio9/UkjHBftjy7wqlsfnv5pUSsd3
1b214+rAnkeO6jbS8W4hOc2JHrDeavrIOB1v5hL7xzEIdhU8uPSHjlf/Yyti
jIGfP9eZnKfjmf529V1/wann1Nz5CPySvL3lHn8XnBeK4oe1BI7JvfTrhTD4
KVKolSdwUOrJV6QY2PlSdKoygW2idZQHJcEN7+8taRBYxP2vwnYVsNdNXV4j
Ai8e7x06uA1MUa2aMiXwsGVjioPWcp7g/daSwBW7X8qG64ETGjT67Ql8TuKY
9HdrcIl8etQZAtsbbTrcYQf2nBo2O0dgw6tsN1udwLKJfn98CSw7lDj50RP8
0/hW/RUCU1f5rHvvA55nLPIGE3jBcI9lhS94zjhLOoTAzbmDJUVB4LvJ5eNh
BC4ZKJx6fQOcsST+NALmzwqVexUOztZO3BJJ4OgD1tZpkWBBP7PEewQODNgY
kRwDjv+jNHmfwO45i+VPH4H1WIoSsQS27K//++gp2PXGvvVxBN5k4HUsKg0c
nfrl82MCr7qsE3n7FVjjqq7vEwJzZ9Oqb+Yt1/O7Yv4pgX/19s0FF4NXBJkf
TSLwNyJf6UoJ+NbI7MNnBK7RD7G/VAlmF04teE7g136W0edqwIornHKSCZyQ
pVDjVQ+OE1G8lQLf6z/+Lbg1g5OS5na9IPB5+sf/Tn4FX7NtaAUf3xfv6PBt
uV6xNP1UWN9LHg+O/Vhe77JbD8EamdofrQbBCvdO14Ble0TYDo+B/YctW8Ei
Yj9UjH+BFw/sLgPP7811NvgLNvHdEgoe9A2O2zu/XI+FzGbw8OENzk8o3fD9
zsbIh+vb/hRll+QAXysWZIFbbsw/jOMCWy3wHIH696/tU2XxgNNOcfvC/Ere
fKy/zwc2bOM7B/NXO5x3UmwlmGJAM4H1SZuI54gUApv+kuGH9ZO+cf2RMBWc
tVHrKaxvjLSnejgN7BVmR8D6C76xaOQnwA31ES6wP0FmO0/dYIJLvn98+IjA
s+PyXNyrwNJdrJcPYb9DqI+DVoOfU31jHhC4d82/rexrltv/GTsO56HBtNZ1
YR1Y7uHqe3cJvGc8d8VFObC3xve52wR+c/1RwowC2FenQgvOX3KRe/NvZTDt
4KztdTgfpubupzeDa5NMUBCB744hngkVsANf+78AAvtLiWgObwOPpt0QgvM/
VTj7+YTm8njZBU5nCexyqMejTwvMspSL8yKw2bWcxG4dsJR45xMXAiuOmvG3
Huhefn4qM+H+KzA1wDeNwEkiwv8OEVjn7a4zWofAcwJurw0JbBWu3P7MAlyw
8W2ODoFvbOJ96X0cPDye3LqBwLQHSzZyTuCiamv/dXD+2KapHc5grYrPC6th
/KYeXx13sEau5nURAvd7v9GnXlhuv5WncoqOvTqzFysvgoXVV2wZo+OF3S+y
L/iDdw1J+vbRMY2IZn2/CjYYbIn8TMc6hR7DmeFg98e50zl0nLAgffNAEjhI
iufaSTpWdGJqsSWDU2t/hR6j4/w6oV+5L8Aqma2nzOi47vG85apMsMLuhkJt
uN7OFvmRQrCM//4IMTq2unbjfUj98n7lp6oViOH+8ct+mk3gxc4dvS/F8Gnz
s//9bAbPtAy4PhbDIXLHH5i3gTVxvdA1MZxXo3lStm95fWny8cbw+yD0k6di
DjxVEznxnYab3t68vm8BLNjKcaiZhu+6rltRv7S8vv/53q+iYWqNFUcb53fY
X7eq8lRwcOXChCC4YnDx5WkaFv4X+0t8LVhu3+3aWVEsMLC748x+cFM0b+9v
Kq691201ewAc1HAvooeKb+le/OpvBC4o7JJqpGL+p1ktN8zA/uGCY+lUzHdU
vPHxMXBVa7iaExXzfPpZ+eEMOH7aJKlRBHPih5lr48A8K+uSooRxm6auXlc8
WDhtSctfGGcWjXbHPgG7ev4uPiGMrfJ2UKnJ4JCxPBsNYfwqvcubkg3OTY2/
/0YI28St1eisBgfID3/YKYgLLrysiP4NlmlrtJfhx6dUir/y7u+B69W191tz
4pf77BPIabCtU5qxbD/5Z4Ql3B/9A+7nihtvpya1Xh/ayxGl2wv5kYT3Q9wo
ZH9B8Kq94Jhy6wkJHmStI8/zbN9y7l/+y5gHsW/hX5lnCK59p3+nkAcZUuvp
XyzABXmOMtd50WDDYYVVbuCQb1esxfkRy9DJOOkeWM/WamSdIBrb3fpJMQac
2ymnaCaISnboHX4dC9Y9Xa8dJIicNiocqXoMvlRzrve7IMoRGHcYfAGeX7li
5UMhZPDB57wiCU6q2WgcKIwu6wU/zu0He3pu8PoqgppsnK03DYE1F6qfjIkg
GZ/9zLQRsINFVz4bFdU8EYlM/Am+e2QpWh7er/89unZ3DqzUcEfiPBWlpOe5
eQr2wffCypZNwqKogTq4XVENrDhz5dEGGpKW/zCTvBVsHX7UTpOGfFDG67Xb
wVaF/7gP0BDL1VtZXBvMrkhdcKMhh0rKWj79vuX/P2RdzaChmXNMvsGj4LKp
cyPyYmhNp/6XxODl6/FePcNLRzfLtmeahYDnv5r4EHT0K1nxGncouG2c3Xgd
HZV5CaqcigDHNd25p01HDjxNtzc/BLsqWRr50FHKFsu9pVlgo5Ea71Y6Embq
rz6TA047QXL/oKMLixp/ZPLAdRf7vMbpSP/9qsSQYvCeN6caOQk0YtO9eLAK
3IFz0pQJpHTzRN63drBpZGe1H4GiPSzCIr6Bi3IWm67B973pPodd38H0r325
twnUILmB+rwfPEfmzCcQ6PTrcTe3SXDuKfHYUgK1xXbpSk6BZw5vtXxPoF0B
DeKN0+CejX7jDQSi7s9+rzIPdolUedhFoNxun3XzK/rhfu60/zdHoFVVTvPp
vGCp0cqTbAwU/NL80zEB8LXy8nRuBjp8dtuVchGwtYVhnigDkUcULHxo4Cre
Yl8mA8nuFFdeT4AproE0SQb6y7/QcXMVWFO+t1qegWwnx3I0JcFzybbflRjo
Xcu3m+NrwFkS8/VbGCjmSclWk/XgmB3mijsYSEM9KIq5GZw2IdV9gIFa7Jlq
j1TAKrEi9sYMdCY8o1VKHRzbakKaMlBa3xeWnCbYUCqB6wgD6Ym4v3mptVwv
evDzKAP1aXLYKO8EFxBvX9sy0OqojU/U9oBdztnVOTJQES7bVaQHVnzXsMaZ
gcxHzHt37AdbndA76MJAU/Sx4NIDYFmdksOuDBSxK3D9biPw/JVNW90ZSNGd
eP/OBFx75c5vDwZ6/yDNxcAMnNrSHnKagZwqdwo0mIMTDHlmvBiIfbIl/ZAV
WGNMaKc3A8Wvcj3Yar1c78TIcR8G2q7HNml1DOz87p7tWQb6cib67jc78FkZ
bvVzDOT9eIOKvQO4Y2DbAFj4Q8nnPicwXVnu9HkGSp82O3fyJLj3QG0zWF96
hDF2anm9G6WoFxio/0BAkac7+Ke/lDw48IKY9ZQn2NS0igmWfJa6cO4MuOna
yl7o/6YBPf7ns7x/wZPXwRbzzdqXz4Ops25c4D/rXXrYL4KnSvytoZ67h5au
XvMDM6Ylw6B+pctR6/gCwL+GD9yH+X1Ila8OCwQ3KHBdhPk7t5DOIsHgLxd2
bT3DQJzspnz3rvcv/3+KvR7W78nGoZeMm2Bpbx3kyUBalv4H4m6BD1ex3YD1
bwsSnZC8Dfb12Z4G+3MuKyUi8Q6Y5jCeAvuXxf3pU2o0+NLLAiUnBjLY4uyj
9GD5fA3V5h9noCGbBXr2Q/DdzaYsOwaSzltvVZgAXtxQcArOE/n9zT/NxOV6
b0daWTDQkZUmj0qegQOcuqTNGCjK4VJ3dSp4xvgdMmSgTREigfvTwYHDjlH6
DPSx+Pna+kyw0qJ32R4GWiHa6NSSC25bPZKqxUBPtZx4rPLBZVdMHTUYCLn8
e9FZuHw+BFRmVRnofOm6sV4SrFBpna7IQLSxonDnUnCeROrH9Qz0imG0abR8
ef1++lRLM9Cwh++Z3+/AfN2RexkMZL26fpbt0/J5TNzpC/e3INPrdfFnMNl7
pAfu/1JRsdM+X5b3v/iwxBSBZHmPDA52gkuCuAT6CTTxu7+lfhCc0jtfW02g
p+M37t4YWR7/d10tJpDpkKKhzvjy8ySm4HE+gQq+eVXm/V4+H5pT5HMCBb5f
zHm0CO5/x9sbSCCViice5mwDcF62R/pdINAAqbtBhBP8q/jysAeBDHJvPg3i
BSflpGtZE0jsMf3OKRo4Telp42YCpXgruW9TAHsiqXR4Hlt5NMr/VgR78SYH
fqCjlS7efWnK4NVHHRUxHXkdK7KWUgXbLL6bf0ZH2/X37OfWBsclUCJP01Gd
pI3cZzPwm7ieJAodBbDYesMtwNZl9KpJMbRFLOmx3hEwlfriTY8YiuEbpr+x
HVj+/9QOhQoxZP/HhyvxFLhX9xpvsBj6UxPW43kF7H3x3egiDXXwf3aevwrO
UzaLGaehMoNVE9evgZtOzkt+o6GIutR/8aHL+Z+J8jc0pNBUTft4D9x2s972
PA3ZfGXbK58KDt9sxT4kiqoGfF5+bxpY/h6zjciiojS5t/+5fQbnPlMYe0hF
kSc5C2ZawYqHleWvU5HtyN0KoU6wvpg1OkpFc+OZnTsGwAE1Fwa4qUh5ekgo
9h94D0Nzp7kIiuG08TaRGYT1p3yaeiuEFo8Tqo2y4C/ta0fDhJBDecOfg/Jg
C9b2tKNCaFOgzrkDSmDnR7XX5wXRuyU5X72tYM6/lFx1QfR37vdlLQNwx5z0
6iQBdHjyRqiCN9goY9M2c14k+u31U/YKsK/t6lJ1dsTld8V02+kh+D2aj3d9
UapFeWGT2UMdhvO3y2Z4fJGsGm11fyy2bO6XGReXyFubjJWsGWCbNKM1nBRM
FOikf5YAbzZzc4mgYKVquZfv5MCKfl9Kktmwdd+v5xlaYL1LBv8aOHDhmuvx
vi7gCFFqBC8P9nek2Ki7gQOVB2v282DdFxckpjzA890jbWE8uGGTa5ybD1iY
onRehBcPIuNY2wBwFDXoPp0P023Eo/dEg3k+7h4iBLBXbGYYtQwsY5be80sI
58/HXi+rAM/a2r+nC+N5m2tXvKrB2SSLU0UYX1971KepFixYFyLlLozj0viO
3m0F+6jJjncL40rSUZE6BpYIMUwsEcGMH+IfRBgjcP7ujL12EsVHd3NXlrLA
FM+o/sui+GnyL/K0BPjEltnJGFGs6Po+u1EaPGEgEFMjinf+ORt7ZyOYyvWZ
pUjDLtxNJ0V0wK4yCdUDNPx2QwiPiPsICrjx3fA/+D5RayY+3vWE/HHpwqQJ
HWddSr5DOwO5Rp7CLUc6fvqxisU4D45xsTC4ScchHlwbJQOhvXPR1b+NdGyS
E2i8MRpyA5nJz/C99+EIlZ4ZA7nO6iBx+B7U5XzatukhmOMBYyt8T6qblR5X
SYD2xwSy/sD37aq/Sz7bUyHffijcv5XAAxp+sftIyL9mP07WZ2DbHwLHPpSA
n7XrG1gwcFto3NoD5dC+Q6ek0pGBazuK04zeQW6jc00tgIGz/edI8ybIQ1T+
8ucw8Ib1N69+bQb7+bgcwgycVM/UO9IK7eXbU9w/MPB9qW2NNh3gOv+VUj8Y
+FLZuR+O/eB7wqqnhJn4jwt3ysAgeFCRPCDOxO6i911PjsB4tjnrOWSZ2M4h
74/rT8h1vyj2azDxnhV/uL3nwCYfeG7aM3FJRlDtn3mwE28cxZWJt5nT7pxb
gv7/mWns82FixZQtrIucoyhAdW6L0XUmFtH3UgwUHIX38UivzS+YOKFUiF9D
BMxIuPv9FRNv2pY+NCkK7Xkbqy2LmNhQbvC5HRPM85vyrIaJOx8HBzNXgeO+
fjzXxMSuxFqHxtXg++93irYx8c0VNmt2yoCHLfMSB5mY6f9vaUYWLEINiplg
4pQ/Md+y5OF6VtyRZtNMXN376aGUMuRhz2hyHCzMWb6PTtEA//dORpHFwpEa
A1P5muBV5WdtJVlYOjvokwcCa/FYWMuwsPYTHNGlC6Z+v5C6kYXrGUc97u8F
+0RFzf/HwjYRcwcO6oO163+JqbGw32VVfnwQHGysEr+DhQX+Ng2dNYF6VuhM
C+xk4Th3z3dKZpBLCBbu0mXhDf0rk/vNwQwfN7SXhYuOvgyOtwILtXJy6LPw
vs96DoePgp9Lng4zYOEvBv27BG3BXK1J3wxZ+ETF1TVV9uDd4pHTRiw8vX0N
xd8Rrpf8SPmzCQsH55DfVJ3B/tnuvqYsTNtg/XbMBfxOa3e/GQsnPZ19+MwN
XFqdwjBn4S2s+75HPWG8IKfbIhYsXHZHxVLsDORJnycawCa8TeoffSDvPV16
2JKFvwd40IPPQ35Pdv4p2HNG4I/mRfD50JjX4CWP1E9TfuDI+tvh4PCBvdlp
Acv7W9W+ESxxrC/C4epyPZ1nI2H8tJZAj1XXIOfeYI2hnu2GUobNIWCX49df
HWbhmsq3irdCof37b1MnoX6rHUf4dcMhJ2KfDB5i4aHcmaF/EcvXUwrdCPM/
rxj9LicS8kvjmVthfXiStiSfigazCgX5YP3uizcGr30A7U/LJj/Zz8Kyke4O
7Q8h73O/sKTHwq/5BHQi4yGvP3tt7R4W1g18sWb/EzB/Vf1KHRa2P937reg5
eDhPSlWThScHr7z1erFcz3slr60sHGArGaeQBr4+HeyjwsKPD1pZxr4Cnxte
W7+BBb8Hf9VNcsEaV8+uW8/CpNY9Ol8+jNf+TX6XNAt3bGz4dOEN5Hf5muoI
6D8i4seBIR9QUn5Mheu/OCQbVgq+W+C5YyXMX6b1fEIVuGND+Q82OA/i3ySq
G6C/0oPsL3C/FH2VrDb6BC44rMnsYWK/+3aebZ/Bz6rm17czMadoX9lY2ygq
8dYwy6qF+5lv9AStD3LX1yNu6UzcXL1RJH4ALOmXseYZE8cEexStH4brSZtJ
JMUx8Wq23wLbJ6A/9a6uWCg8H2ZmX9nNQn7fjkx1hOdLP/d8xsoxVOIn6Zor
wsS8SfuebRUG96/Stl7BxLV2oYZl1DFEeeXEaJ5j4EOdgk8+E5Azb2irwPPN
tllsz/wasNyGi4WvGPhi2dqIfWpge8u5yd0MrBXguO3T1jEU8Gv+U7I6A7Nr
JfdYbx9D2t9VE5XlGTikUEHVUxvGH7+U+5qfgaOz/muL1of+Z9dXPK4jcFY8
kum1gf7fTUoFDQj82/c3t50dtD/F+9VgO4HVzJNHOo9D+2AreTsFAhcLCeW0
OsP4TqdlVvIQuCrg284PXuDZOd9zpXTcbu93LPsatD/N44wV6XjF+uLYgAwY
v+7x8dB+Gt7H4eG/kAV5i9bEZAMN3+qStvfNgdzCzlW1mIZFYm7KexfAeDmf
d5jepuFVvFYFJ8qgnsVUnxlVGt48MvPZsGUM2QpobSb84Pc2U01EYhH6S97I
eDUlgvOsZgQbKOPI9tD61fSvIlhwRZHAVY5xVDIgaWv9VgSXWO/gGeIZR9o/
Q4iIYBEszae7lCs6jro3nMhJoIngfgfjMQN5MNEyULtRGLuzXN9fMoX++ZKO
Xo8FcEDwkysdqeMoIMpRWOY7J155jlvfLh3Ge2qmJZXMiWOd3aj9meMoIczK
RtaNE+fs35Y4kQu5fROb2SwH7hdprGDHUF9fmYg1lQPvj6fwyH+C8SKlvzD0
2DA9/1i4zz/wtLnPu3v/yMSUysNzC+NIKpNpMSD3j9wUu0HyMmUCzhtb+Mk3
c+Q+v7+ZIVxgz6Mfn/bOkpd0bjc+FJpAAW9pZqoaM2RPPUkrWzuBEpQvSBvM
T5HpgxIPBQ3ArQqnxb6PkUYv7vi9N5xAlNfMVWyrxshfJ7lsg4whTyjozrYY
JbeOjMrMHYbxJIPnQlqHybKx4ow+O8hPrwv5MTJAOmQo30lwAA801f1QHSC5
PRLPHDkxgWyJy3jkSj9p8PPm1kZXyHlOyqtI9ZEtvyzL3pyDeot4V0ed7SHP
53xMOuc7gbStM9zJxu+kuPfO65v9JlCEwudrKsrfSds/cgYpgROo+87dNwd6
usjhv38/R4ZBvVxbd6nItJO3Ck4VGEbA+HlsBZvY2kjlC12xvJEw3nVtwuTH
F9J7rurY5ZgJJGUeW7U/v4Vcmr835JI4gTZJrmhjJDSRT9/y1q57DvUYHV3Y
ltJI6vr7ZXSnTCAjb+dQal4DeXPJ4czhDBgPV9idrPpIKpZ8MRN5Be35bpbu
5aol6wMMttbmwPiPYi02GNWQNHaVhZ2FUA/KNovlqybzypK75ouh3qOm6l6+
laTlVfGyfHICeV6X0xucLifjOTmub6yA+fbOFu2jl5LalWdPDlbB+CzRaq4z
mPwRPLw/8T1cnys7ZuTTG1KOu0mYWQ/r2/XT1aA/n6yp3v37UyP0H/j6wDHm
NekWUvg5vBn6ny69r+SUQwrv21iwrxXyHlODvwdfkdm8T2I526Aea+1OybQM
0rSG5oc7YPxFDdG7k6nk35shx3y7YD5h0tP9nsmkpoCnzM9e2P87L6bLJJ+Q
32p/rHg5ALm4w4M1T+LIK2HmQ47DUE+984VHF++TMoYfPkiNwfWvP4jRabhL
VgmijPYJaL9mmxOpHUaerM+OiP41gbJW9xReaAsmBSJkzxj/gf3IC/j0otuf
zDCKNROYmUAWP6prO3i9SWMRwa3Vc1Bf9QP1uFNO5E0udvEOcMGCHN13ypGs
mP2z8BM8s+431x5/R1Ktp7Oc9Q+8vdguOcqBZOWkH3QHp6z4oBhVa0/2mB44
ITYP+yssf0+vyYYU37dTXwEc0+RS28hmQ5ruUN2IwFvvfV/auuUoWbVO4rcz
mKdMT/7pwyPky+lR/zdghsMfxx+BFqR3zK3o4wsT6EtQq6rOSxMy/VbAhfPg
DiWrB+SMMdkf4G0dBlZU+aTP0jMmLU5aS+eDB98sNA18OUju0FDM4FuE85Bi
c+H4fX1yRceHylfg5/abOH+/0yZRA06pAtNuHO/7TxuR5ytyQtvBFR/9/3JP
a5LDaQ+NuZYmkClqS7E8v5Ws8zvVaQFWnFalr89UJrm9jpW4gRWMdI6GB20g
tZ0OJQaC2y7Y2FBPriezDbefTAMzq/Le/iVXkyO7lA1Kwaviqrze9dBJGfW1
yi3gpopPgqX7BEmbDQR1BLzZsozgElt8e1+S/88S+OdEse+kpsfb/wGfuXFL

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-0.00010051890252379958`, 0.00009335816878225378}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.443239503703125*^9, 3.44323953065625*^9}, 
   3.4433641763125*^9, 3.443974109024783*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{586, 625},
WindowMargins->{{2, Automatic}, {Automatic, 1}},
FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (May 21, 2008)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All], FontSize -> 24]}, Visible -> False, FrontEndVersion -> 
  "6.0 for Microsoft Windows (64-bit) (May 21, 2008)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 118, 1, 69, "Title"],
Cell[711, 26, 180, 4, 77, "Subtitle"],
Cell[894, 32, 689, 23, 101, "Text"],
Cell[CellGroupData[{
Cell[1608, 59, 680, 18, 145, "Input"],
Cell[2291, 79, 28457, 474, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30785, 558, 746, 19, 145, "Input"],
Cell[31534, 579, 14860, 251, 238, "Output"]
}, Open  ]],
Cell[46409, 833, 120, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[46554, 838, 382, 10, 77, "Input"],
Cell[46939, 850, 185, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47161, 859, 379, 10, 77, "Input"],
Cell[47543, 871, 184, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47764, 880, 382, 10, 77, "Input"],
Cell[48149, 892, 185, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48371, 901, 203, 4, 42, "Input"],
Cell[48577, 907, 184, 4, 42, "Output"]
}, Open  ]],
Cell[48776, 914, 179, 4, 71, "Text"],
Cell[48958, 920, 791, 25, 179, "Input"],
Cell[CellGroupData[{
Cell[49774, 949, 316, 8, 42, "Input"],
Cell[50093, 959, 1413, 41, 281, "Output"]
}, Open  ]],
Cell[51521, 1003, 101, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[51647, 1008, 699, 20, 145, "Input"],
Cell[52349, 1030, 605, 16, 145, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52991, 1051, 298, 7, 42, "Input"],
Cell[53292, 1060, 1302, 40, 125, "Output"]
}, Open  ]],
Cell[54609, 1103, 224, 4, 101, "Text"],
Cell[CellGroupData[{
Cell[54858, 1111, 348, 8, 111, "Input"],
Cell[55209, 1121, 36120, 601, 219, "Output"]
}, Open  ]],
Cell[91344, 1725, 371, 11, 75, "Text"],
Cell[CellGroupData[{
Cell[91740, 1740, 572, 17, 111, "Input"],
Cell[92315, 1759, 629, 17, 121, "Output"]
}, Open  ]],
Cell[92959, 1779, 163, 3, 71, "Text"],
Cell[CellGroupData[{
Cell[93147, 1786, 210, 4, 42, "Input"],
Cell[93360, 1792, 358, 8, 85, "Output"]
}, Open  ]],
Cell[93733, 1803, 156, 3, 71, "Text"],
Cell[CellGroupData[{
Cell[93914, 1810, 207, 4, 42, "Input"],
Cell[94124, 1816, 1630, 47, 350, "Output"]
}, Open  ]],
Cell[95769, 1866, 100, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[95894, 1871, 302, 7, 111, "Input"],
Cell[96199, 1880, 9341, 158, 237, "Output"]
}, Open  ]],
Cell[105555, 2041, 160, 3, 71, "Text"],
Cell[CellGroupData[{
Cell[105740, 2048, 505, 14, 145, "Input"],
Cell[106248, 2064, 17219, 288, 184, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)