(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 132002, 2575]
NotebookOptionsPosition[ 129824, 2501]
NotebookOutlinePosition[ 130587, 2526]
CellTagsIndexPosition[ 130419, 2520]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"runge", "[", "x_", "]"}], " ", ":=", " ",
RowBox[{"1", " ", "/", " ",
RowBox[{"(",
RowBox[{"1", " ", "+", " ",
RowBox[{"25", " ",
RowBox[{"x", "^", "2"}]}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.683209056277864*^9, 3.683209058277611*^9}, {
3.683209102855551*^9, 3.683209121606978*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"data5", " ", "=", " ",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"runge", "[", "x", "]"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", " ",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], ",", " ", "0", ",", " ",
RowBox[{"1", "/", "2"}], ",", " ", "1"}], "}"}]}], "}"}]}],
"\[IndentingNewLine]", "]"}]}]], "Input",
CellChangeTimes->{{3.68320917871485*^9, 3.683209208826675*^9}, {
3.683209942892378*^9, 3.683209958015396*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
FractionBox["1", "26"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox["1", "2"]}], ",",
FractionBox["4", "29"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
FractionBox["1", "2"], ",",
FractionBox["4", "29"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",",
FractionBox["1", "26"]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.683209209935733*^9, 3.6832098347290697`*^9, {3.683209950336926*^9,
3.683209958328669*^9}, 3.683283467670382*^9, 3.683612940534294*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"int5", " ", "=", " ",
RowBox[{
RowBox[{"InterpolatingPolynomial", "[",
RowBox[{"data5", ",", " ", "x"}], "]"}], " ", "//", " ",
"Expand"}]}]], "Input",
CellChangeTimes->{{3.683209135011203*^9, 3.683209142673655*^9}, {
3.6832092117410192`*^9, 3.683209231577496*^9}, {3.6832099242433777`*^9,
3.683209926096374*^9}}],
Cell[BoxData[
RowBox[{"1", "-",
FractionBox[
RowBox[{"3225", " ",
SuperscriptBox["x", "2"]}], "754"], "+",
FractionBox[
RowBox[{"1250", " ",
SuperscriptBox["x", "4"]}], "377"]}]], "Output",
CellChangeTimes->{{3.683209215650296*^9, 3.683209231792885*^9},
3.683209835663327*^9, 3.683209927792663*^9, 3.6832099595065928`*^9,
3.68328346767877*^9, 3.683612940594055*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"data7", "=", " ",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"runge", "[", "x", "]"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", " ",
RowBox[{
RowBox[{"-", "2"}], "/", "3"}], ",", " ",
RowBox[{
RowBox[{"-", "1"}], "/", "3"}], ",", " ", "0", ",", " ",
RowBox[{"1", "/", "3"}], ",", " ",
RowBox[{"2", "/", "3"}], ",", " ", "1"}], "}"}]}], "}"}]}],
"\[IndentingNewLine]", "]"}]}]], "Input",
CellChangeTimes->{{3.683210063345929*^9, 3.683210106138051*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
FractionBox["1", "26"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox["2", "3"]}], ",",
FractionBox["9", "109"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox["1", "3"]}], ",",
FractionBox["9", "34"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
FractionBox["1", "3"], ",",
FractionBox["9", "34"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
FractionBox["2", "3"], ",",
FractionBox["9", "109"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",",
FractionBox["1", "26"]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.6832101069765997`*^9, 3.683283467733436*^9,
3.6836129406568336`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"int7", " ", "=", " ",
RowBox[{
RowBox[{"InterpolatingPolynomial", "[",
RowBox[{"data7", ",", " ", "x"}], "]"}], " ", "//", " ",
"Expand"}]}]], "Input",
CellChangeTimes->{{3.683210113027869*^9, 3.683210116244294*^9}}],
Cell[BoxData[
RowBox[{"1", "-",
FractionBox[
RowBox[{"211600", " ",
SuperscriptBox["x", "2"]}], "24089"], "+",
FractionBox[
RowBox[{"2019375", " ",
SuperscriptBox["x", "4"]}], "96356"], "-",
FractionBox[
RowBox[{"1265625", " ",
SuperscriptBox["x", "6"]}], "96356"]}]], "Output",
CellChangeTimes->{3.683210116592023*^9, 3.683283467744555*^9,
3.683612940718045*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"b", "[",
RowBox[{"n_", ",", " ", "\[Nu]_", ",", " ", "x_"}], "]"}], " ", ":=", " ",
RowBox[{
RowBox[{"Binomial", "[",
RowBox[{"n", ",", " ", "\[Nu]"}], "]"}],
RowBox[{"x", "^", "\[Nu]"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", " ", "-", " ", "x"}], ")"}], "^",
RowBox[{"(",
RowBox[{"n", " ", "-", " ", "\[Nu]"}], ")"}]}]}]}]], "Input",
CellChangeTimes->{{3.683283304369678*^9, 3.683283334313779*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"bern5", " ", "=", " ",
RowBox[{
RowBox[{"Sum", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"runge", "[",
RowBox[{
RowBox[{"2", " ", "*", " ",
RowBox[{"(",
RowBox[{"\[Nu]", "/", "5"}], ")"}]}], " ", "-", " ", "1"}], "]"}],
" ", "*", " ",
RowBox[{"b", "[",
RowBox[{"5", ",", " ", "\[Nu]", ",", " ",
RowBox[{
RowBox[{"(",
RowBox[{"x", " ", "+", " ", "1"}], ")"}], "/", "2"}]}], "]"}]}],
",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\[Nu]", ",", " ", "0", ",", " ", "5"}], "}"}]}],
"\[IndentingNewLine]", "]"}], "//", " ", "Expand"}]}]], "Input",
CellChangeTimes->{{3.68328336336255*^9, 3.683283442795767*^9}, {
3.683283490889036*^9, 3.683283529865547*^9}, {3.683283579272306*^9,
3.683283593744274*^9}}],
Cell[BoxData[
RowBox[{
FractionBox["9", "26"], "-",
FractionBox[
RowBox[{"7", " ",
SuperscriptBox["x", "2"]}], "13"], "+",
FractionBox[
RowBox[{"3", " ",
SuperscriptBox["x", "4"]}], "13"]}]], "Output",
CellChangeTimes->{{3.683283420138424*^9, 3.6832834678066196`*^9}, {
3.683283522349393*^9, 3.683283532330844*^9}, {3.6832835832414093`*^9,
3.68328359407304*^9}, 3.683612940786067*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"bern7", " ", "=", " ",
RowBox[{
RowBox[{"Sum", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"runge", "[",
RowBox[{
RowBox[{"2", " ", "*", " ",
RowBox[{"(",
RowBox[{"\[Nu]", "/", "7"}], ")"}]}], " ", "-", " ", "1"}], "]"}],
" ", "*", " ",
RowBox[{"b", "[",
RowBox[{"7", ",", " ", "\[Nu]", ",", " ",
RowBox[{
RowBox[{"(",
RowBox[{"x", " ", "+", " ", "1"}], ")"}], "/", "2"}]}], "]"}]}],
",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\[Nu]", ",", " ", "0", ",", " ", "7"}], "}"}]}],
"\[IndentingNewLine]", "]"}], "//", " ", "Expand"}]}]], "Input",
CellChangeTimes->{{3.6832836089838047`*^9, 3.6832836153757687`*^9}}],
Cell[BoxData[
RowBox[{
FractionBox["9534739", "22207289"], "-",
FractionBox[
RowBox[{"41904975", " ",
SuperscriptBox["x", "2"]}], "44414578"], "+",
FractionBox[
RowBox[{"17193750", " ",
SuperscriptBox["x", "4"]}], "22207289"], "-",
FractionBox[
RowBox[{"4921875", " ",
SuperscriptBox["x", "6"]}], "22207289"]}]], "Output",
CellChangeTimes->{3.68328361585501*^9, 3.683612940853427*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"runge", "[", "x", "]"}], ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"-", "1"}], ",", " ",
RowBox[{"+", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"data5", ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Red"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{"int5", ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"-", "1"}], ",", " ",
RowBox[{"+", "1"}]}], "}"}], ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Red"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"data7", ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Red"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{"int7", ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"-", "1"}], ",", " ",
RowBox[{"+", "1"}]}], "}"}], ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Red"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{"bern5", ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"-", "1"}], ",", " ",
RowBox[{"+", "1"}]}], "}"}], ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Green"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{"bern7", ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"-", "1"}], ",", " ",
RowBox[{"+", "1"}]}], "}"}], ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Orange"}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.683209836552342*^9, 3.68320985956606*^9}, {
3.683209893694619*^9, 3.683209975214408*^9}, {3.68321018224732*^9,
3.683210187876793*^9}, {3.68328345267299*^9, 3.683283464216847*^9}, {
3.683283588592607*^9, 3.683283588903996*^9}, {3.683283620368507*^9,
3.683283626983901*^9}}],
Cell[BoxData[
GraphicsBox[{{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJw1mHk01F/YwJEkZUklW4WsKdrs8fySrCmJEipkrUQqImuWKFtIdmmGSEmy
h2snS4xhjG3M2LLO114k3nnPed+/7vmc+5xz733OXT7PFbVxMbZjYWJismRm
YvrfVg74pre2MMSxmX5c7SsOTO5Kha6tY2jRo7pfrgQHXm+UJZdWMOQ31XVS
ohIHTTPmNhMzGNqa2Dcm8AMHVgnp/W29GCrGQfARGg5eL0i3Jn7BUJNe+OGy
PXhYxql9On0bQ+5KNcJrj/FQzm79wKGKjl6b8YTKamWCXztppsZ6Domf3HNd
9uQHmMoUOKAkPIs+cqTfuqeWA0eHdXdyD02jd0yKV+l+uYDfi1vuez6F8NE3
pyqM8qDOoiUCwSSSCNp1npibD8LpwiIJtAnEd/ar84nYAjA4b+FJDBtHrbm2
XcwNhXD4r72/jN4YUnSXUXt3rARmexzw5efHkKtA8U26UgmU5js2G2iMob2S
tgFa50vAyP4uz4PTYyju5uUpdvMS8Cc4vys4OIa4OAx3Lr0ogZEPj6vVFkdR
5/LPvVfHSyDL5DnTpeRRJH7Dy+xpVikcz0v1d5sbQRf6SVPiWuWgW2nKbTU5
glKO111qNSoHmzbONMPRERR45KOf181ySJj2+S7dN4L+YV9sl9zLgVXq1iql
fgR18NjwG30sh/70Q/cNUkZQ2X/i0hW83yHkdfp1cYMRJMRMqkiY/g7Uxxly
pGwaUjK6fceotBJ8FZ7oDuFoqPXSUrFIUyUIr+rajKXRkCtnJ+5vTyWYecy/
WYyjoZ/Wwy6EpUogeMI/rgAaSsFWqP/kq6DWd6hV5wYN1ZqpN9p8rAJ8qIBT
2U4aOt8FLbgPCJxSXuNS7lIRl6bGtxOj1bDMrh+mZEdF1YJPT/bOVoP/ExaX
rttU1Az5r4JXqyH+0iNVdlMqGjyvu7y2swZqmUwJj4CKkjwcPDVP1oCgHf+W
/j4q+jdUGHEjoAbeWGgULT4bRvUPf1cOSNWCme+NI5/EKKitzUXgVHQd7KpW
rk/ipyD+0IJ7esl1UMXMbxfGRUHvI7ZSnLLqQCKYlGW/PoRa3EZQfUUdLL66
elS0awgpegpsTUzVQXii4cn4gCGkZRCqPXqhHqoLz4E/dRCdZ8fJbbA2gPSM
jIVJ2gAqC+nEDWY0QlFQV+zd2AGUaO3+PCW/ETQPPWvzDx1AbHciGp1QI1he
aVP/7DaAptTPlR8baoTokgcibDoDyJzIvmgq0ARrgd/GS7B+FCKI5jXjmqBF
WN1V6Fw/Sv4e4LAS1wzXi8ezTyr2IyWb23/9Mpth7HIkTUe2Hyno4xcEipth
8/mw8eP9/SjgEJ++d28znJoKUGif6kOts7NRG4I/IKmocd03pg9914kZWsf/
gHuXjIJHRsnozdZ5rQcNLbCpf6Jbto+Mmi8Klef3tkCMDs+RJz/JSFoiRY11
ugXK/+us3lFGRtF9VZ8oXK3Aftpo41gkGVGiJczv3GiFrANGjzyUyWj/DdOK
ioVWGKFett4d0YucTX79Uj3RDuaPLqsrKpJQdpaZH/tUB7wip1orHyOh/B1v
3NI3O6BCfTZYVYyE7CgCi+IcnXCIPeynBhcJ4Tqx5tnDnUBLqb2tM9GDrraP
iy0ZdIJjo8Jzs/gedLHjrdVoZie4Cwg3ea12I+knsolJ1gT44Ht3xnu2G0Vn
jRG/OhOAPFrK7TfSjbbztAp1exJANc/ULPBnNxr8K7mlEkOAf5pRU6+yutFF
Xxn98DoCBN1n2Z16rRs1/4FKE+kuiEWTRqiYiBR3kkUb1rsgzZuJcyqXiKg8
qTJeO4mQrcL/gzeDiC7Z6Y2q8xOh6pvOOftXRMRpF56zoECEyQ9ZJzmtiEiU
Rf3EbjciaETb8lrsJKI0n8OlgnNEmLKiElctutBqiPv8Lqwblg/+iRK50oXc
n6j6FG11w2Y/90V97S50rkimyIWnB/aZQn3qiS40Om7twHeqBzT00gq1tnch
LqWtZDn3Hog7afkmJo+AhBzfhyQwkwBYyNfkmAloZ7taUb1EL0xI3Zrk+d2J
vP7zJFgp9UKk4Zjn0mwnGj+eocyp1wuUhPmUUnInkr2hL/z2fi/4yu8c1czv
RNmJEtmuhb1QYanqcv12J9p1tkZJW4cMjx+ocDM/60BFj62quj374C651jVz
qQ3Jfi7KF9k/CM5E67qyoTZ0+MjZgJ3HB8H1JxPfz6Y2ZLnHdID9wiB41Gt8
X01uQwdMmc0MngxCUH75dl2tNrTgcC6JShqEtNCCpOm4VnTAdq3OJG0IiMrv
6+UVW9DvsoDKJI1hOJsYwF/+tAkdvKwln2VDA0PzqLdn7jShwI2gs2oPaXBL
KJXvi2ETcupoMhzwo4Ffauk+vFgTkjUXv3M2lQa1GRhPZFsj6hMcSwgg00Dn
482dNiKNqPFm3ak9V0bA+LvK+s7meqSdLCu3oTcKjkMLAzcO1KI7xgIGPtfH
4TL12Odm8XJUktb+oNN6Ci7aSlnBWhm6dszaV+/RFOhPiu4tbi9DGm8eQGXQ
FGjN83ni3MtQJ3Iqif0wBcpMzBd8m0vRxnxbyPLsFIiJ9Ayevl+CPJjOYefd
p2Hlts/u9G+F6Ne2NDnMfwYWRz3Q/tBClK9xoFv69QzMO7i5hVsWomdC8TJX
M2Zg2sWB7Lm9EBWHvQx+WjMDFL8reJPr31BU/H7TDaZZaE6XOMvx9ytS4RJj
SvKeBUWU3DsdlIeidF+059+ZA8HdrFNpp/OQXf4//Xuuc/DP7P668chnJKss
HcPlMwf1i2cPfofPiDPyuSlX/BxclaTYvFrPRaWxOe+mG+fANUKELuuag+Qq
FjxJR+hg0h+6NXwoBzku7ND9K0cHJakFnrj2bAQ5ODNWVTpsVtec3jiajaYO
sh2tvUyH8GUbz7bxLKQgI8M07kmHHItMVmcLPLrvvvdleDOjP5uTT5QDj2zm
lHJ7CHRwXXki1VOKQzsqv01s9tNBOUpbX50Phzav4IvmZ+nQWPsripOQgVy4
L/AZcGPwkdsoo8YvA/Fq/HCMPIBBhGVpwRO5DPTSuP3Pl8MYmKyG9gy9eod2
qevMh8tj0HjVRNEyIg0tV9v8l23IiJ8Tv1E/nYo+Dqn49Jow4l+sPDumm4qi
HMr1Ri0wGC2Pr9lgSUFRdUYtUU4YMIn1XUx9mogIUb2SSoEYNH3PcdlOSkCi
BdIJF8IwiDT1inE+nYAo/Tai8lEYCIcJkdXp8Wg58xghJgkDlfmbdyh34lDG
RMzphC8Y3C/HT3nUxyLKv1tlNoUYpAXNuOyRiEUPB2QS2Msw2Cbg6a018Rod
cpWijNdgoDiKWCjar1HduifbwUYMHD+zhXl8iEZ3znFzyLdgkBgoLWtKiESS
q1wnRgkYbB4oVgqNiUB8b32FgnswsPl0Xuv71XBkLwmPmfswONZz66YoKQxh
R6gcYcMYvHaadTJ5G4o4fv0SiBvBYPWfp/sLsxcoMjhG2XMcg2rJN1Fz/UGo
9vorY8I0BhLfxVJEUgIRr9x1Ka05DF5ezs++evM52kauq4rGMMBG1YtCDgUg
C1VF9pIFDD7Mxwc+Qn6oJEN8uXgJA1eBgpS+cz4oqf/A4+gVDFQ124ug3gs9
Ufzkdf43Bqz3Jn9maj9FIT4xfzv+YPAzdtvkrh9P0O326BmFdQwSKg4xuxk8
QvttA/978pexvnEVQXK7K+q9fnMhYgOD68If7b3f3UdMajKrfv8wmHamJuhm
OiCLTzt1DTYx8EV8rfs+2qDvRBUaxmAxsaT1mpsWqLCFs9J5CwO9Brbb5g5X
kNXCYm89g6sz2jlb69SRpbyr/AqDdXFb1Vmy4pApIlm7yeCg9/a/Sn/rQrhc
RxSNwUJ52txabtfgSxwkpjLYa7tzj+kZKxi8Ykc9xeCJb4q4MHk72L1d1zGD
Mf5VG6aHlUfvwrVidoUpxnyreVo0FiRc4NcrmgEHg+OH9UJieNzg+D2Jb6yM
9bUVyzkfi3wM20LAjczIB0vkXpPGXR4g1V3wOngNA2W7P6pWYZ4w/VRAaDcj
fy5nh0TX2bxBc7+4wP1VDLL21rLHBfmCClvi28xlDB48If7mC/CHP1FXcaWL
GOAvllLyN59DrbdT8j06BlB6tMtHPQjeWg1k7ZrFoP9IaoO+dzC45lX6BE9h
wPM34NPY2gvgiCrsZRvDINd+Of2rchggCcvnXDQMtLvsY309XsIPx7c680MY
+OQYePGvhEMut6O3Zi8G/PurnMdPR0JiNlXoGxGDQv8T1gVuUbDEkq+w2YHB
Si6HuOSfaPh22OC8eDMGsoEYR/WTWJgRl54pKMbAUm0v+2exOFjrfHYu5isG
4UuK25M64mCnnWm49icM6Hd8tx7JxMODmaZ8uQwMCrQ4l6WGEoD0ZtyEhXF+
RzdOLOx7mQh90ab2kc8x2FdkQmdWSoJ/OzOw+WcYPJFImRyITga5/CZN1QeM
/LLJDkVppYFTvLrQmBEGTlWX+r0X0iDn1W/eo3oYJLm79TqlpcOwh7yx7jnG
flsanBT1fgcyD/JxXCcxGL4jPvq3JwMcpXkLf3Bh8F7rW++XMDxkymwrVqij
Q7nIhWuSVDyEUuNqDpfRgbhB6k5RzITwiduPJ/LowFq0TggbzYTS7G7WXUl0
sJPQbLuj/gHyuOLvlz2ggzQbofrAQg5Irb7VXNxDhy9N9Bw/sy+wOhsVI6E5
B5RbnD7yOV8gJkt765TCHHCtyhoNr32B3jdyw0el50Ax5syzdMN8eO9zX3iA
cw7iqh+KbtHz4ZVNV9gF8ixcOTjrXHWyAMQz5AWeO81CC4nKpl5SCIr0Qsc3
fjNQqdeirFpbBhV8vh3XwqZg5uN7p0tmtbDEMSL4WnwcVvsdWRqca4F0Scav
de84MO2ST1YLrIW+wUZWzm3jwHfve5t0Xi2QhTInM2ljoCnbLb+NtQ5+Pg2T
PJU+Bgm521dLvtSBlTjfo1ahMdD65PhcdEcDtJ9sFH0nNAqpn+WSl4uaYOCd
ymF7FRo82M0ftvajCS6+ZKduyNJA4x6zx+ZQE9QV34TUQzSgSHcbs7M1w6Ew
z8n1bTQQwXtyCF9rhrdaM+eOdlABn1TveX61Gfw6I20tHKjw6YW5WYxiC6Qb
7vEQY/hLhXXI/hMlbVBpt3dR9/og9PEMEcfb2sDnY0ncIxiEVXQ6JnmkDZq/
95sXSg3CiUM0rh1c7RCiFCH59M8A4PrV2Cm27ZCjwBG0I3kAXl5dWH/F+xN4
Q9ButbF+MLtgSf3l3AF5JKJxckgfeO1L7LnMS4Crlubf+dh74d62a8MPhQkw
/HbYOG2VBJaLvFOxkgTQK1bfqzjO8MfO8I1eVQLEupv0vaklAWu4/xGrOwTg
f8bKtt+XBJHbHB+6FhLgJoidYfvTA7hFRc7X17rgxhVO+2u/u6Gts1urK4nh
yeuex3+IEKHY0ly5Bk+E2e1J6sp7iZAxOSybn8dgm/m8b9uJ4M40wxtZSwR/
zTMhHdNdIHKCmaY3TYSGET2UWNQFT6KO+9SodENRW9qZB4ZdcOhSSFE+uRsc
0mS8m4IJ8LBVSTKKjwQ6bWtnyXyd8HxrKeCaKAkODVx4L7yrE2JO5w8dPEaC
GZH+XjKj/ihMln7z6RwJtBTOrlh0dsCfewKsLfdJkHyh3czlcQf47v5LY60j
wXYKi39R9U94aViV6uXSC5tpZDFBp3bAd2jtt28mAze/9orjcgvwJ8ckP+4i
g43xSpjsaAu8sqeKBg6SYb556fg/Qgu4/Xsm926eDPwuC3btX1rgnOw3nX7+
PrjSwjx5+H4LUEJEvS459UGcUuua368fwK+xSVHk6Ic0oZnyhslmCP9Ukr3j
4gB4CDO/t+VtAkmRs2/p1wbAmWOexWhbE1THVgf3WA/AgO3qPr3lRljy+mGD
8xiAUx7iPLakRjDXGxAG3ACsctBr1JIbQWZiM9p9fQC+7rDVspNqhMbD2p7j
2YOghnvcra7XAMyx3Xp12ylgrGy5KZZfB5up0zYL3BRo7W3WHMDXwXo2k/dh
QQp0p1LfpSTWwXLVsbxnchTQ8SMEqwbWwcR0EO+Z6xTgLD/xm3atDto0FQbw
2RSoORZY0btVCwmLb+6HGAxDu9PPFTHGOT+Qk9uE16XCs2ovfw+RGuD9J6j3
3pAKZ0xvKdw5UAO7r7xsSTemQsPwtlpTrhpgWXNsT7KkgvLjBt3LG9VA15Uk
RrtSIejollksuRoaJ99RvBOo4MlNZjaPqQZ36fgVk0kqDPGQa4o5qoH0wf/I
9lAabAzm2fcLVjHq6119DyJoEL9+wdKTowoWf7+JJMfQ4JWUxH6J9Urg0s1d
y2XUDRvPPdPe91WC9mRPh/E3Glxz6i44k1gJJdKy3u8oNJBn6ZL9KFgJCTk9
3WoKI5C4pOH3QrICLHKPhriNjEByYp9u+u1yEDy82en3awSGYp95/jUuh/4Y
glDE7AhYLyfaWWmXg7nX068fVkegrS7iitbxcjDTaxwc5BiFphjK+0d/y8Dk
l/VpndOj8CPwbqJTYhlcPJJIFQoahfThb/1+A6VwNnmHWoPEGKjzkhN73Etg
NKpsVTxoHIL1pdf4Ogqh8IjfjOjgBLh6RPvdTy4AKs7jFOvBSVB0OjXeSc6H
LukL/ktPp+AF1/D7Gfs8OJx0QaS5chpCyqtLpypyIf7jjTWVjRlIeK9TYeGW
A0Sk2VdqOgcugpjPjfMf4F7NrV0HE+gQW1AYYeCRCTbpffEVqXTQtI06UuWS
CeY+JmKWODqQAzWyzjhmgq6Kvkoy452qOubgcPxGJoh/VXAQaKDDNvlnkYZq
mTD4bnfd/kU6VBQUHtFmyoSL/uVeXBcxGLLqesYWgYfztxTY8q5gUML6I2sh
GA+qZ/NfG17H4IujoDPVFw/SfzKzw20wKOWSqW12xQOr62sShycGCkPj+vUm
eKi87XhqRxbDQ8sa620P4qFQfbQyKxeDENUzoaF8ePgkdEtPm+EJO9gMa75w
4yGp96pVcAUGG57XX7Gz4MH9MuNKZHiI+Qo/jE7gwPl4uQCOzHj3q4Vdxag4
sN2lkKlJwUDuXw6rXR8OjJuOVgQwPMipwu3ycisO9DIzdUQZHlxUocZ8rgEH
/wWKEKsZnlUolcP5ugoHStbJt6wY3iatFuI2VoKD//uvhf//r/0fJxxYHw==
"]]}}, {{}, {{},
{RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
1.6],
PointBox[{{-1., 0.038461538461538464`}, {-0.5, 0.13793103448275862`}, {
0., 1.}, {0.5, 0.13793103448275862`}, {1.,
0.038461538461538464`}}]}, {}}, {}}, {{}, {},
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJw1mnk8Vd/3/6nIWyoVpVKGkKRS5qIlUZpUqDSQoYEoQyqEiESGKMkYIslQ
kilkmck83XuPIVGGO99IksT3fB6P3++fex/Px9r7rNdewz77nMeRsXEyubyA
j4/vMPnzv//tsJo5P8/DiubxZLX3qWB2bXPQnxke8lkH+DprvgTPZ1oKP3/x
0PdFuJgGJkM965zNKIu0m1ysL0qPB6uYpN5mGslOyq38khEQOa7YFPuO5Flv
+foXHjiZuidb9SIP9RbIsKxjMnBd29HD286R/txuzG789gb1ZizoCqdIe85A
/2WlLAw74Su37gjJ0xtvPS3MQYV/NQl8mjyU1i9zQcv3eOa0cVjLMh5aOQTn
L9tfiCVC1jeulnNxcG9xvZk/YsvX08RkMRetjA34M5ZV4GDhUf37H7goKphn
rHu+AgUva61OzOBihKNvyY6fFWhSuby88wkXnSN3r9PeWIUsj/Kle6+S4xe+
4BOyrkFJ1vocMVHS/qW1bziuAXdUrVjzUpj0pzBhqN7XgPqxi/12CHBRT+br
6U3rP6PdwZ9mh2c4mOv3fktP7GcsSG2cvTfMQb4jMR9znzSi8QWPo6xiDvpW
WsZquTbjvRYqq9Kag3oX1Y5PMNpwkPCvyLrAwRNWT0/eWNqO+sMqz56d4aDi
rIN8qXw7Cv59tNf+GAeDntaI959qx1BFiBTV5uDgfIK8bn47xvm/1rgoykHz
52HnQ+07cDbcbMmhJRzMqOkaC7jXgRZx/IO7BDkomp1mdPpZB0q/Px8sOMvG
mFypTv+KDnw9sLw/Z4yNzm9Nl4iId2K+trvfbDkbJQ506A8VduJqQ/nTox/Z
mJFbWO3U2Il3TnQqteezkWiI1CO+dOLuq8rdqZls1JuIvKO5qAsrowYVjkSz
sfj1tz6V413YyjNqjr3OxhOXLb2kBrqQ8WrtGk1JNjand15xGOzGVptvt3ev
YWOZgZHgSl435ktlUXVXslFamnco+l83+sTqRBsIsTHU6ha/1joKrgy7KG4y
ycLJMF3hbycpuNvt1arrzSwUfZ8DX0soKLXzxk3nehZ2lx//z66egou4Gl03
q1iY/O1sQFsXBVuvNjzxLGbhJf6Qjt1sCtqcZ60ISmNhtud0fMB6Kj7S3yma
6sXC3D3D/j9vUtFp/o9T+h0WntgRq+bkQ0Wzsqq2N64s5JNmJzcGUXGjhtnj
XDsWqpyM4EonUjFvy51l5WYsVN6qqHyshoq9op9EepRZ6HbFMTZPhEYW7APH
/s0s1ElYUr5TnIZpj4ybv8qy0L3G+1XkBhreWDQYMipB6hWCuZ/baLhgesGS
yUUsFBs/lGxwjIZKX43+W/6FiWX5h0c2BdJw9uCUWjqNiRLm1usNwmjYmptq
pdvJRPPyuSq9KBq63p8rcqhnYnLzsY9tKTT8KJ9/peE9E/N7uu4fKKXho3Dr
JxezmWgU1/3gaCUNL/xeVj6VzsRpDu/Fjnoa8n22F5dPYGL/TpfLYZ00NHKU
qvELZKKcR6TvmzEarqM08yT8mJige8cljk1Dtq7n+ty7TBTV5pe0H6dhxHKK
64Az6T/lDi9phoY27vdf3HJg4oXHYvuE5mmoNrSjUeQKqbegMNF4IYFE3iOZ
PeeZGMXS/XxrCYGZ67WOdZ5iIl0jr+L0cgK9Akbc7U8wMUjlsNjqVQRKn9Zr
f27IRKsRirTKOgInyjl/t+sxUShac0HIBgJrNsdvrttN8mBMRI00gVf//PKZ
3MFENwchgW4FArVsUjNDlJjYfsF2VeYWAoWbTlBl5cnrHTwjdVGZwLcJWdtO
rmOie8Yt3ys7CfQVOHuWLkbag5v+FasSaHJD8MG95UzU01rxmalO4BRY9+cs
IuMj/iyWrU1gQ8YyIcN5Bk5e/VJXtofAuBVlqv1/GGjXueWJoy6Bjp72F29O
MlCZ/9by2b0E7v2+OkSYx0AD9wITBz0CRY/WFKYwGMh+8sWpZB+B3/JdvmkN
M7DGv8+ToU9g/gapZe0DDMwwi304vZ/AwMBm7as9DOwfnX0zZkCgOc/j8lwX
A9snxn4VGhKoZL458lkrA62EtO5dOUDgbEV3mfJnBiaE152dIrl1y316dTUD
p6vtYq8cJDD5yQ6x8+UMVCvnnSwi2fVvP0wUM/DoNcXndJINLj1yCP5A+g/t
85ohWbxF87n0WwZ2V7Ss5pA8qj5SVZTBQMID3StILn7xhGucykA6//VCN5If
LdZbN5pI+vcM//4fyRecOYbeMQxs6Ket8iX1bO+JcxF7ysCo6elzNFI/n75R
YlYYAwNuJTYvJ7kz81eDfhC5nk5Hry3ketNWpU723CfjeVnYR46MR03u4pAW
b9KebGUsTsZr5JijTKU7Gf+6gUAWGV9BVntR/k0GaoW6aL4GAhWC1I0zbjBQ
4t4CZyMyHwfk44bj7RkYushdr02HrJ+qOc/Hlxjofq6geA+Zz4zZ+te3zzGw
ImPRYK0mme9Y5b3XTjHw0umWt9/JemBoRHZbnGCgGDRdGiPrRcnlHL/hAXI9
d97XJu8g8PAyfK61j4GKoBlxehuBDlmbtivrkPHduc1vQonA7BH2uVW7GHii
3U/8izyBzfdPjgtuI/UXXSK2biKQI1X4cGYzeT3dCj5rsr63n7uXP7SBgUJj
dRU+ZD/ktq5YlvsfA/UgsyB4KYHtDrfTUhcx0Ld2/vxSYQLHhfp2P5+nY5nN
wZE7ggTu2p921ecXHbuztn3lJ/szv0ij8ugQHfuNt8qzuDTsNos/o9dPx2L3
2eevmTT8NT7PUaXRUcvQ6dqRURpqKH9et76FjrOxpxwPfaFhcfJ5N0YxHcWM
NaOlG2lI6FYIf/lAx4xy3eK1tTT80yuX0v6Wjl4uTQUzSMPd4tyWojQ62t1V
9XMroGFZsO/mwAg6Jvs9EDqURMN+hZFPHiF0JDy3Ft6PpeG/6kNm1wPpmG3v
VpL2lIZ751b6mXnRsWL5vkUvH9KwwvVVr6wdHSXkTA7536Bh9fnGMATS/2XL
nxxNGranrfpxYDcdQ+t+Gkuo0HCAc8GkVY2cf9+ET1GRhtP3eKu/bKGjdJ7b
+99raLg9TSx5ZhUdG8qirp6bomIc2zJPnT6GQo76Y7pvqZihniH26dsYqlne
SKxLo2KBz/htgy9jKOoU1qceT8V20YA9pp1jSIg839PwkIoC6m9qnMvG0OqS
f2L5RSo6e/+kZkWM4UrjTqcFS6joU6ejrRoyhlHXw+7PzlMwZHlgfMmDMUw+
t+TIwCQF01MkrD57kuO1thqdHaBgX60uY/TSGN4PEprbnkvBA8uC/spoj6GC
kuVL++MUlEySlI4ZGkXFSJndiV7dmBPrt1S7fxRlt9dt+nmjG/dGjc70UEdx
4m9Hv6p1N14MzqWsbx7FzIJR/tuG3fjypkFIUuEomgg/n54T6UZFI8ep9JBR
3G5r83hXTBeqjZc2F6iPYsP5PqPnSZ14ZP95j67gEUxfNEXw3W5HJdc7He0B
I9j4TvRUy6V2FE55uqX13ggWfj25IMS0HRvmmnoabo2g158uuV6VdjxQorO7
3HoEf5TyT0RS2lBv58a/Gdoj2L7LL45e1IrqUkNePoxhtNO996/4ajNK/b3i
u+XQMLqxP4Xc86jHbW8TfV0535D+Op0DO4pw0C1lOzVjCPU6Qp3lpNzAPiEy
NeHaIF7K67Na+6IEzH3ObsqWHcB003EVG88mUGRtOW/2og+Vk2xvfrTuBgfj
Ew++fSdw0V19Af+bfXDu5nFdDQ0q3n6/pTRj6RA8RfoJLOzCP1NjjrO/vwMs
IE5v5+9AWr840fplFK4RVc6vfjbjzvwrRf4HGHC9y7r645dmfHRqbdf+Ewxw
buVb3VrfjNmThS3/zjLgTs3e0qn4ZjwNKmYXrzMgILdEwMigGY+r8p8mnjLg
RVBeHDOqCa9QvD8kfWVAl9bLmh0ajdjhwrjr7MoEnVg/iRL3elz3IeFlYAAL
jp17/FzNth4TrouY+YeywHJ94up3x+qxp3SRl0cUC+4lFoulydZjXFSZgkka
C6pSeKLhzXUYW/DnTX41Cw5mWvxnI12HIRv7/HX42WBSqj3zX0MNqmkmdhjd
YYOt10GPgLwa3B0ar+bswwY33VPTcwk1CPFOTREP2PAMnad+utRg+khj6Ken
bCCqX098WV+D6ms2Kta+Y4NFszjrvVM16pTbrg4ZZYPdl/G+s2uqUFMgc2TY
mAMfnPoFDiysQps31OPVZhyY46/fsYtXie6pmQnx5zgQpZDgL1xfiffX1xLa
VzhQ4XRga+ntSlwx65ev7M0BiQXxnpLUChw5vbaF+YYDEceCdpVvQQzYFueA
cxxQcLUIjOZHHOCTSqAt5EJZ9K7eGz3leNNNKpAhxAX6134/qeBytBOh+M2s
5IKe684OX/ontF+g8btdgQs/onud9r8uQw/OL5rxMS4cH1TOaZArwQUTkR8C
n3Hh6KXNVvDnI6qaq5upxHHhMF1mVWHLR7zSIe3Q+YILBj9We6Te/oiVspVT
86+5oMXHb+jTUIymTzRs+Eq4ICtN6Vd1LMImC0ePZ/1ckEpre5ypV4RDh3VY
tYNckFRs1JcRL0Lq1PIK7jAX1qhgxrLyQhRaqBO+hcMFEb03bozlhVjh4Zy4
/x8Xfl30Fkn6kI+NnlFRQpI8mPh+B8WD8vGjnuGHcike/Ljq6hp6IR/PFlM3
Xd/EA6bTVcJDIB9XBSZO5SnxYODeyTSzMx+w4dLeg9+0eNCQJK8j/Pc9DmXS
sdWUBxoYT2MGvMULBuE0wp8H60QWMV6ovkUXzX9L7QN58M/cccbkWw4GF+/x
nAjiQc2EzoZSyME992vGf4TxwFRhwCZkJgvl0rOOJjzngXOYNHer8xv8ZWuq
lv2GB2a9QfNfN77BsUAf/7YsHmhuHheNasnAXKc386wcHsxVVKrOKmWg9cGF
3qJ5PAidtPFoHknHvlR9n8UlPHhz/tWi6+fTkH5KUi2ngbRnLF0tI5yGEf1K
620bSX+/bm2mFKei36fFiiubeaD1+MBh3dWpyN8b8/58Gw/qqsYeL+1IQQ01
e48ECg8yl59IqbyXgkd5OwLW03gQdqE479b2FEx+X//+KUHqnQqifAlJxgu2
wm5OfeR8UzONC2EvkF71PKR7kBzPkTtbw0xEuazoVMlv5PiHv+4qGyVi2UB7
n8V3Hnwvia6cXZCAPOGmrKYRHvDJ9hxNdI/FzSdmK82YPKgvfeMkQI3BgDU/
ui6zeBB+yvPJddUYvC8wvtCZzQPJ4PWELjcaxxbKfnLi8kD7h4XtgG0UKky2
h0lO8MCxJI1xp+YpLuntMpkg+UUAy2mF/FN8c6HAvfInDxau9fAyGI3EIOq5
0SO/yPx+xwUDByKR01O7bfEUD+xyBIPvvI5AkycWlFKSY/0Vt57qCMeqbBeD
FdNkPtYUagY9CcOFK1KW5JFsk73foNQ0FAu22+46+ocHyhRLCxlqMGouXf3C
cYYHkfZse7PnQWhWV/ttguSpfx63H5o/xLtbAgNd//KgQuHZY05vAPafqGda
zPJAvlQ2QTrBH28vXJX1meRHx3MzTC3u4xcdgcbt/3jA+65bELjRDzfvfHgw
jOTXP6L9b+I9VH7qv2mEZOe1eQk9+7wxJGrUQmOOB7v1WwqgxhOTRhKnfEle
5EBvfXXAHcMKYjg1JLc+XUhf8vkWqufV6y+Y50FM2UZ+1yM3UU9ow5QWyTYj
2uuIFmcUtw1dbE/yGcnMK17JjjjIFr7zhGTm9cEYo1dX8bHxY4MCkn1wdZNY
pg12vVvh3EGyrGzcTKXFedxQFPJnlORDtYIXz109iWnB04O/SK5IaVnaVK2L
Vk1mCnMkG6XOV6RvlYMlSS8+z5Mc8PLKWPFvI5BNpzTOkLz+7YHlBq6nYZTv
7xYeyZ4C1ymn1KzA3HjFWD/Jox80UoN3XIa92ZILakg2teFz+aR0DTYWyd5N
+58/0ca94/JOsP+RkokPydFfDwU+EXWFYtR5eJLk5sLt15XD3cDY2XbdRpIX
hK8yq1tyB6JVM5cMk/HSujy92yrYA75LbTyfSrKTzheZGUEvONbYInSB5PRV
VUJRAT6QfeCz2DKSb9zq+r3azxcSNsve+0jmJ+1o8UDu3H243qftNEvmF4qV
Or11A8Dk2KZfT0nu3ZRYe9jrAbRbY48cyaJ//bKH/zwEvk23cBdZL1lXJpPe
awXD50u1Fe/IejrQeeWpz51HYHlTXUaBZO83RzwlfoXCnacT83NkfUqIl18f
UQ2HLSr3faxJzvdVsc5zfQx8uYUXPv3mwa8sYTmF6QjoHkrVsibrfas/T7ji
1lNIefDH9SzZLxf2rBLKkY2C0ochDW5kP4X+1BCIa4sCvKZrGjTOA66tz/zN
LdEQ/fufUAyPB3kGSyc3f4kBpozJv7Nk/36fVRkXexQLr1PUFmqS/S1WYMbl
14yDJNmreiIMHtyST6D3RcSDT+Rf66RRMr6CW788NngBGbMrjtgN8cC+3LjX
a/wFdA0+E1tM7i9xt11p9i+SgO68UeLFAFlvP/vpMl7JoL0fW/PJ/eirrdz3
v5QUuHUDBB6Q+9lLgw+0d8FpYHp14VRuPQ9KpA1PKwymwU0x48iuWh50zVK7
EzRewbh11HVuNdkfBTMdwd9fQefqdSyRCh5cltdvttV9DR9uvBHiFPFAUbCj
Ys34G7iRmnRodzoP9L7ZQPjBTGh7nqE+lMqDs+WTnxa9yIS7hwsdfFPI/r0t
UTp+OAt6cq4Vv07gAXv0YkFTWjY0lN4ejX3Cg3f13Df3zN/BDYFv25Z6k/cj
y6XeO968g8eb5l/be/Jg2dTWE1//vIN/n9+54R1yv3qidjfpWC4s9zgodMaV
B1EVLjLz3FwQpAgraVzlwckN7OvlO/Ngwe1+Zv5xHjRSBwV1i/Lh04PfRz6u
J/tZ1vlH1Nd8+OmvcG2fBA/+XJ/vYS8ugNt1teNVYuT6BDbmJJgXgAczVi9v
KQ8eqp43nf1TABLWnT/3zZP39whKUqlOEYiMuTspDHHh06FGrd1VH+HtcJGA
cDIXuOpq1T85H8GK1lx/KZ4LG2VfHMtZWwJdm9fwiqK54DPjYiPtUgJbzt92
PRhGnj+y1oYKSpdCdBG/yxJPLtSI2H/t9C6DHgEfD0UTLjS2LQ500Ebw6bAK
qZjlwEypi6j8ZYTh42mJSr85oJTRFzcQgfDZ74l+2DgHQnzfvTtJR/jV//aw
zigH0mOy2PFHKmCQKuW7r40DdodMV9+fqYDUq1V0RhIHWJkv7Y3Nq0DVvNm+
fA8HpnrtFtRer4ILCQ5uF9Q5wLdkR/we/yr48jfl0c/tHFjtUNqs+LYKlkjU
DIrIckB/a/eOhYuq4UPbwCX2Yg7EZAlMFb2rhszYFeetOtlgkG13X2ZxLbDF
tQYUbdiQmLM9frKgHqoLOe1vrrPghohE8J/P9cD7/LZC7goL9jrw35n7Ug9X
6l+viLNkwYBit4mQYAN0rgwYuHmcBdJpHsKSpxugVXvpmWEVFqTF1Xjsn2qA
FrEE65IJJmQ/PGf+RKMRpld6bTQiz89l1oHiKkXNMEdJNjxrzQBPsVjK8ZUd
8J/ybbpL8yg0t3cbdMZ1QY7ge5nja4bBpUlT4fFqKtTEXlBrVx2CtDYD8SsN
BEyZ1w/d/NgHodlFGYuP9kHyknKtJ9oU4H/afahaYACUQx3696xqhjVvsurT
jAah7qe251rrT0B97btJIGgIBk9tiPj4OBzOZykFun77BkEmKUdUbAtRJ37x
nlr5YfBN7xb/cqoOl9lOfdy7dRiifi11MvCvwyGlEa1ilWEo1n6ZGJFbh4El
VRpZe4ZBsWfrDFW4Hjt6vHdFnhyGoLMiShLl9XhFYnKLhTc5f+71yhNSnzHi
2aDEr25y/HbLzPdNTWhj0fb8Ru8wSAvN5rv9akJ1+fLV9K/DIObZ7SMh1Yy9
+fFifcxh+HFXsYnftRnlu0+LVvKNgGju+pQzq1uwZGXL4jDlEWhY6f93wrwV
vz/+OCUXMAIGd5zUfWzacVd6KDMgeASK2cZPf7q14/2yiwPD4SOQMB5DnHnY
jtIMgbq02BHQyLcj2FntaKlv8kzu3Qj02k8PH5hsR2KSqSrXOwIHVKKHs/06
sPmspMsmlVGYnmbubQnvxPXOvEv+6iR7JeH8i068Flhl/n33KJj1D6+ReteJ
/32w00s1HIUM2zUicm2deECkYPmm86OgI85RNlzWhRXlx97KBo6CnnZcJCWo
C/M33WPJ9JO8U1GymHx+LhCId5MfGoVh41BTz7vdWDhW+E9xdBSe3KgTVArq
xqIs7nKVH6OQ7J2TcTKlG0tULdX2LhqDc14qJys6uxH363qfUx6DG0MG35bt
omCF/FlBy51jYCQ8uvelLsmLbz221hiDKZMyddlDFKxqyk6x0xuD8hdqH8cu
UrDGVLLuttkY7C0bCHoYSsFG27/LnnqNwbW68y1Lv1GwyXBNTLTfGNR9U9h4
iU3B5s2qMnGBYxB6300ufYqCLaxrqikRYzCpNb+GI0zF9pu9Z96ljUHgmjnB
B7uoSPH/mNzUPAazcuzz7d5UpF6mbGnrGINFd/P29gWSfHA8r5NK2v9p8Nof
U5FYsqW2Z3AMyoQ23vNKoWLv0xjG2OQYKFapVHZWU3Ew9c6uRRvocEK6dObG
IhpO9rzl3ZSlQ0P0ge4aERoKiY5mf99MByMMz+YTp+EOL7PN1bvooMcZX6ok
T0Mfs52S943oYBZz0X+fAQ2fPLLrGT9Gh3zlw/q1R2iYXpEUbW1KXj+vzG67
KQ1blJet2GdJB5Fnxsm51jSUFGAJ8LnR4ahO0ytXbxqq7JGtdvKgg1VkcahU
AA0NXM76fvWhw4UIhv77RzR0+FI/Ux5MB/Pm1Pb7z2lYUpDG804i9drZne1/
R8NWVl82J40OOux7L3MKaPhNZtU1i0w6hB55KGNbSkPhcL9hnQJS3zoHN886
Gp69Ytnzt5EOzu140ryPho4Jz6Id2umQVpK9/dAgDX07m037KHSY3qrwesMI
DTP27mktGST9WehscOHScHq1RLXHFB2G77rP4TwNRY4d92X8pcNkm31M00IC
pf0Ddc/yM6C5zW1XyWICD/Imi7REGKDzuUVCbzmB0fUd2b9lGNDw+UwIW5LA
zH9C165uZkDUKb6Fy6QJLFfV20xTZoDyVr2BFZsIHEl6m1KoyYCK0Z/OFYoE
TlNGLBV0GTB7WIzfYSuBIiIbJKP1GeD7Sy799zYC1dxDom8dI/3f2DdYuItA
o7dVpiMmDJhupB1jqBF4YfiP6ClzBugF3fT7p0Gg87qdrTUWDJAzOX71pxaB
/ifsQtRsGTD5LIXVuJvUG5hklGbHAPr9hBl/HVJvGVVA7AapT/iG78a9pN6J
pdX+N0l9A2AfBwR2Khr6/nRnQMItzZTfegQ+V6rtFPRhgNGp8O8y+qR/ZUP5
df4MsFI8a7BzP4Gy22vvbAtiACFz5YO8AYFjOwwb9cIYULzHV3qe5OydtZJm
T0i7htPdT4YEuqoaOl19zgC++N8frA4QqKleW+mZwICawt6P9P+9X9cwFAtP
ITmJ6nXqIIGVWrVXUtIZ4LYrnZ1OcuBuw4/5WQyQXMn/p5/kIzq1SxpyGSDy
Jj7yN8miew0t+woY4Ki4OX2KZArU5nJLGKASdFKhl+S4fYYLF1Qw4MLDWv6X
JFvtrz0lXkv6y1JSNCZZ3tAwQ7GRjKe+fPAAqYd5oHZmTxsDpC1Pi5mSnGtk
eOx4NwPUes9/zCLXc+twbZJNDxnfM+1X6eR6dx81nLg1wAB3OLL8P5Lnj9Ua
BH9ngGKFVdLS/71fP274PIHOALH2lMVT+wgMPlnLeMdhwFHlBM0qMt7GpoY6
1RMMyDfv3ehK5mPVqdpw6m/Sf/L3bAEyX8RpwyHGLJkPMZ0OLzKfL8xrVf/x
M6Eh7NJdGplv23OGgaKLmaCY3Rsnrk2g4oVaYpMIE9opElKamgRyLQy3aq5g
gohW9O896gS6Wxu2W6xnwqK96215KgTq2tbKukgzYXAjPyVxO4ELLhveCpBn
QlDeN/MdygSG2Rmuy9rBBLvpnWZ/FQg0uVbrWK7GhOGNlzLV5QiUcDTEDm1S
z+C6dhMZAl86GV6a3s8Eg6y7B9XXE3jVpbZwySEmXLjYfmdmDYHKNw3/kzIm
9QnMq70UI7DotuFbQ3MmJIhIropdSmCzt+H0E0cmaBX/C5ado2HkvdrD6S5M
kDYcOjrzh4an/QwTP95mgvOnt6vzf9FwKMBQf9CXCcSOzrstbBpOhRiGbnvG
BMm+FQXPemhYGlY7oBfHBLOVu4i73eR+8dhwp1kSExzHvO/ubyP3m6eGVM83
TMhYPDt3u4aGUnGG0g2fmECnR0tdz6GhFfPNWGUVE3Tmfmt6vabhy93L3pXW
k3rag32up9BQoY+q+66DCT+stp6eiqLhdkm789EjTDjhv/NGkicNnR2bZSOY
TGhOntYov0nDvDIVZjCPCRH3PXPKHWmobvHH3fsPGU/BPbaXLGmo8+JR9KWl
LOB7+HXbPj1y/+ZyLSxXsuDCyqpkBy0aVuw1lTdfw4KGb0p6d1TI/ffr+vwj
Mixw9y+r3ilNwyPSOR271FkQY3Vrza45Kp572SbCb8ECoxr5/JP5VEyYUO2e
sWaBkG/4iYeZVBzQj4mfJM+FPziEWGIyFW2+WynRnVnQHuzXZRdKRXu5iYNt
ASyg5/hZ3LOhonu6mH9iNgskrd1144SoWDLlfvj5exY4H2982ThLwdkDX1ZE
FrLAbt9Fxd4fFPQde5UcUMGCRaYLTKIJCj5U1Cx36Cbn258x9kunYHTm2T/a
syyoiWk8t0qHgizjnskkfjbQ/dK05pQpqPfT/IfAYjbwtVUqVm6gIHOP+VjH
Cja0S8gwW+e6cW/LaYr9ZjZMCgjELsZuHOGZvo81YUOQzg1qr2Y37o7qyp4/
Q14v9XGdjkI3hmuZZly2YEMyv6/zLbFu1PIzSdppx4Yf8tLx1350YejKk2Gf
vdlwoqyYZZ3ehWrqxvZ/MkgOf+7kItyFwT0tly6+ZYN57+cmtalOHPA+ZlX7
gQ0NRRoPWoY6Maju6JnIcjb4vhUu9inuxP4zRwy3dLOhwqC88IttJwZ4Gsmc
nWeDyt/BLs+8DuxC/Z7iUxyQCOBERG9vx94dS65VneNAUBsFo1a342BS10zT
RfI5YZbRTJ1tQ/a9S5Jf7TkgbdGZuj++DQX1Ai8K+HCgvfW7gU13K2pXfB45
mc6BQXGxo081WzCp4sQEc4oDFZXJo1UVnzFdZa3/5F8O+PanikUHfsbs5KFV
c3xcEJXZ81z86Gcs9nVVX7GEC77DmwXWUhuwUy/KXVOKtGtnOG0brUeBStqc
/0Eued7e1uAwVYsOlZZLNsRwQSVJLVCTWok2ST3RZYlcyJ3t5d8fXInnvM1k
L6SS83c5mg/uqUQj7cPa8W/J+YbZVW1JFSj3Xv3q2lou8Cls9P1dU479ySLV
4hNcsEqrrP7w6iMe9S3xXHaUB75PLt/77p6D+y3VBd+eJDl/8o+1SDbu1smN
PHaGB3wRNTJLX2Si4vSrjFAbkrduXzNa+hoXOUdShT1IvvL126OhFPx00W7X
YvK5mq++ZcfD4w8xX/f7p/QsksU36Ihv9sPs9ZaHDrwnuZtvB3BvYRzN1OpB
Gcl6HqoHpw7C7eMQvrCL5MTSOzvqH8H1bSVrUwlSz1Cnw/LoCLi0RP2V/gBp
7+/PPN38FEzqlcr8GCQf2190ziAODr16dVCGR47/zvq1LjAR9PyluyomSXun
dBdxORk0reMtrWZIdqbqRQi/hP/3PRL8/++R/g8xIhIT
"]]}}, {{}, {{},
{RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
1.6], PointBox[{{-1., 0.038461538461538464`}, {-0.6666666666666666,
0.08256880733944955}, {-0.3333333333333333, 0.2647058823529412}, {0.,
1.}, {0.3333333333333333, 0.2647058823529412}, {0.6666666666666666,
0.08256880733944955}, {1.,
0.038461538461538464`}}]}, {}}, {}}, {{}, {},
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJw1m3c41f///9FCkraiQpLSUDIqPE6yV4qkZVWirDRI0jEqKit7E8kKyTgO
b89jFAmhzMThnGOcKSEkvs/Pdf1+f7lu1/2xH8/Xui5H2t7t7HUBPj6+fcv4
+P739yBsZi4t8RDfY5FTxu8zwOLmnqC5eczm5LYDKW/BO1pN7vc05kLq5iMB
edDAumg/wsKcF/l7KOE92Mal9jV3Y259FD+3owIifsl/iS/kIUJ2rZwTqQ5I
ksedInN5iBLjt1Ymuh4G9IxWhbzBrHn6wHL3j7AvxeUUMRHznqR/RlINUGtY
XOnwDMfzCLOTvtUEUxkn8pVssF4ecLblXBts+2pseOAiD0lZFz0bL20DwvyV
Mblz2D5Ic37vpnYIMSPKbjPiIapz7E2J9naQ+1efxKfKQ7aS6RI/NL/BeUvT
kBZRHO9Ufl/aZCeQBe1cb1RzEVH1zZ/qmj5oGbTsmSJxkS1tkbtJ9AdQy4y1
/D9wkRSfwumQCz9g5XW1zcnZXMTHvtAwxPkBZ2vWVne84iJKgk83QeQnsB5U
r9G8wUUTppndrVKDsGhW4vnFDuvTx66+txmE9fK5Q1aXuUgsdt3Ex+RBUOuK
Lr1zhous3jHy6ldTIfCIy5WcEzj+iqTkL0QqSLIk3m0U46KiyRtfr1gNwaHa
dVteC+P6doXlpNweAq34VX6HVmD/ugAW8fkQOOr9tjCc56AJF9EPCpVDUJrR
tPCYzkHETBQuLz4Mjd4UhzWDHEQVkmD7HxyG/jNlbQm9HDR2tfY/f+1hEOB7
nVnaykEk/5m6u27DYHr5gTGLxEFWHs26ijXDYKfkVub1gYMa9wtp1X8fhrvC
16VWFnAQZVNtDv/YMCSQzKakMnC8loRi7zU0GNkon2QZwkFpA4mEOxY0eNzS
xaqx4yBClu6X8Q4aUHsCKHmXOcjr6OGsy1QaaNEVo6PP43yt7dnPOTRY+fe5
ppMJroe8OWfrKjq8lIcIsWO4n/8uSYuq0oGrxL4+r4R18eiGa1p0MIP44/SD
HNR2bGvMAxM6bLD8TSuX5SA1o/V7Bu3pkBDwVsVGDPtf5ThkPqfDQqjFaoPV
uN7s0NSZSDpcSeCnHlmJ868M5Akl00Hq/aXglQtsZHb7k969Ajr4VwlaT8yw
UdyZKMHWMjrQG0qP9P1iI/k9pDPj1XR4O7C2/90oGykuX8NybKWDILOqKHYY
24/H/mrppMPNaacnfj/ZqKd8P2emnw4HReoPnvuGWV3lQAyTDiXHvPwWqtlI
nKmQtWEZAzbr7LYcqWAjyrD+/teCDPA069jXVsJGQXlCd/+sYcDxG/u/Z+Ri
f6vKnD9bGJDk0Zsd8gbXsyJLL0OSAYuPnj7yTGOjbH35VVukGVATRZUzisH9
dC7Tt9rLAJm0kL9HI9hIsF7DU+4AAwLzjrfteMlGts1tu6oVGTBSNpop+AzX
o7Uyc+dRBujXRj2Y9GMjsQG6iZEqA3JbTpr2+7BReK+i58njDFjdy5X55IlZ
yPmegAYDnOmJfwo9cL75zuRQYEArT7853gX7CzvrjJxkgOLf6bQAR8xPxilC
2gx4tTLjnstVXC+l4dqcDgOm1pkZnrfG/iqaT0r1GHBu+78dJy+w0WyK1n1N
AwaUyef+3mfBRkTR4BdRhgwQP3q+ceNpNmoTDRQnGTHAG5YnLxqw0QT5mnuO
MQP6Dd/fHtNmI/2+bSOOJgzQtLTW7QC8n78WzTOYU+1WS1Qdx/MOJ94zN2UA
nwuJ90YZ9y/UpPQYs73X9fowRWzPlrzgjbk+YH38AwUc/88uVR3McmHI5aoc
3r+KwU4qjheU4KxlIs1GjZJl9kaYx99s3aIqyUZqWeZnn+F6Wu2H7x/fgveX
nnM/HtdbsjOvS2M9GxEy5Mp9cT/x/XdUTq7B9UZa2Kjifn3j1WO0BXG/Cv7k
OjyPq5YrZvSWsdHY2roNsrp4PxtazxktspDiCK/UCs/zQFtMqekcC/W4ZrHs
tBiwPsRm09kpFtJPNlgCAgP+GMjfO8djocZC/hO/8b76V/76bsVkoTj9qrGH
JxiQRfSPsqGyEJ/4F4qoCgNeaBhN2f9gIYp116OtSgxwn99g4dCF4/mc7Zg/
hM/j3TcbXJpZSP7Qi2ta+HztPOx6x70BxyMfUMrZzYDlXJVvd2pxPcfWVI7i
89h6o/GVN4mFCH87NnG2MuCDbMTkow8sFLSz3bNkEwPihi6c9StgIbP96u8t
1uH5X2KtC8pkoTGa2CcpfD3oiZfcfpHKQo62DQdN8PWyv9OnPTQB9xMXGGy+
SIcZU9GI6HAWatt17ADvNx2eax0Wy/BhIeIquSann3RwW5pzy/JkIXEfDTuX
bjpYVNV+zfFgIas/9I0m7XTYoWIRVuSI+x35M5xeT4fivZ6i1RYsNNtz90l2
Dh1iR8C15jQLSe0dcIl6TQefDMHWekNcr6JZmHUiHXS3J4R8IeB57HJ8FvqS
Dn1i/4n07mchNXv+Z9dc6IBanjj378Hzu/31jsF1OmQ+N20elMH2TI1s0St0
cF1OfTEijufhqsQ6bkwHgVmB1VPLsf38err0XjrsG9QXWvuTicTcRLTtftJg
QW/maFY3E5llN/wJxffX1qIMW40OJlKrfbUiqYEGHv6L5bcamEjcq8vx3Hsa
VOwucWh8z0REb7c2kwAa6DvvrPd7ykRpaTzdOGka3Jib9p06xERjiufEUwyG
Qc0+I/fFPiZy3PjqucGJYRD+YtYls5uJCN+Wxf/cPwwFSXkHzmxjorbdhDTK
2mGYAbv+d8uZaFZVbOjB9yF4+rT52I3ecUS4vBAxdWEIMjdkTPX6jyOSodNE
tyUV6otWvWh5NI7GHjxfUtGjAsPEWbrGaxxlD+1oClKlglyQsmm26zgyK5S1
WiFOheyFhrf3L46jNunhu1+LBiGfwb644cg4EgsVl5h9NwAl5So1xkNjKI0o
d/ZCfD/UXWoKQTCGJjKtHSl6PSCZKikVNzSC0hwuC6rltcC7eL81x/oxC5Ve
Ur7aAppRI/O9XSNIqoW+zkyiBWyCizolmkcQcZT1bvBFM7y+o/0itWwEKVpq
599z/QLy+s4zWS+w/Sl4zjz2GY7+qmwuVR5BhFsUA+DUw0eWFNlSEftPStt1
5dSD5ciTt3/2Yf03Ky/eoR48f5z2PyY1gqiVwU+yqHVA/khT/U8Yc93dT/Su
WiAkrM6oH2Qg4tnrsibNFDA6denBt2AG4nulc5RDroB9Hp7tbYEMJFWTgQb0
K0A4PXJv62Osx19ce6SbBI2LX3ob7zFQ2gebXXzT5aBLVj9ebYe5euCvvnIZ
EA7v+Jt9DPs3LFPk/1wMyjuHfHzH6YivJ2KKS8yGjab/vj+k0/H72n5R5fK3
MOWz9cCDQToinrkQcIWbBcV9Z37e6aQjwueen1Y2b0AxplbDqQb7Ezb6iBm/
hn1rMhfN47F991Vfl9dxsPOvA3GvAdbpwtV9c7bA7ryRST6FOTyfYWKqA6Qi
x0YjTcxt2l0W/AbIzOGmmKsSZtI7wR5FF0Rsd0kr3o5ZTHFZx0t/NPz2LuXE
JA0RS10+uGyOQgX+9+jNbMyucx7116OR95X7gtajNMQXK7+aVByDNmzwMiP2
Y85UD3HXiUfavg+p9Z8w753SXmaagrIs/PlME7H/DoF4s+kM5HEoQHYwGuvp
Fn/igjORpnCgvns47X/vjyZZkm9QN3oS/uoJDVHkV7WtgSwkqBAs1e2GeVuY
tMC9bHSTP5xgq439Lz29u/lNPlLpD7/2SxP7ux/1vbv7HRIojwjyP0ZDhK7D
e8Iz36FE58i2zIPYv/9442JKAWrujrEdF6ch6pDQjfNaRehAQTLRgzOMpMJa
Tj8VKkb6/51bazs2jMR4lhv+nihG9s1rUkxow4iYck14yKUYxTEfVcr3DiOq
FmEXX1sxWr7HemagfhjZhn3YGhTyAfWl7nA2ShpGfCxXzVxOCZou6JpXix1G
7lzJRLktpUisOjRY7tUwCj9fUL2eUIp0+hez+IOGkaJJ55bj4aWoSHxwqPzO
MEozWuNQt7cMPY1IPS9rNIwoa0SNSk+Wo/S08yPrdLF/yrrCPfblqKpw7b0l
As6X9Hu7kH85+tXy+FWfCs4nlL58K6UcXRa2bQmXwf2lnbzrrExCnlvFL/tu
x/2ka+RYniGhV/JtzFvimFdGNxU6k1CjLkFQTxT3Z2f6tSCdhJQCpE79mxtC
FA8t3uDyCmT6qqedOTWE0hi/w09KViDH9HDbHt4Qsn1rv3e9UgVKQXy+HxhD
iEqKOM1nU4EqWkki6VSsa98a3X63An3/6Z4Y+mMIEZ8qPc8NqkDCC1SSUzuO
5/Zs9bqiCrR7dbze+WbM3ZvmmLUViLDtTJd2wxBqc4pde7SzAt1Tq/m98z/M
Unv6N8xWIOrd9INd2TjfcrHNq1XJyFf5nv7PDMwX92aK65CR5Iy+PT1lCCke
+muReJaMrDwnoiejcD3hBHM+ZzKaUa0vnAvD9gJGVcOeZBQ1G/uZ78UQKmo5
/vh4ABm1P4B/on5Y76edNowjI/fjG7Zs9hlCZuzHjwRek5Ho3xHF7Z54PnMf
tRXzyCi/kmwo6zGE+Oz+ln37QEaGPqHXFFxwvtdsBruSjMbU7X2POOL6mWza
wzoyevpPOe7YVawnd9YRm8hItlqomGA9hCZ6V8T/bSOjWt+fX/QuDCEpQXtP
dhcZ2cJ7hqkF1q3N75j3k9HiUuDSudM4n2tDuuIQGSVRrLZeMcT1Zh0SD2SQ
0XG//UrXdHA/I0S2yTgZ9ZzkM7lFwPkXjyiHssnovsB3B48TuB8gCOnwyGhj
3VviAxVsvyRL9PhFRh8CHiYQD+N4ewffb/5NRme1T5c824+5llN2eIqMJpbv
ag3dg/3vm2XXYQ79ODMaLYP72fkstRnz/qdN/Mnb8fwtIsqMMTfppkhkiuP9
8jirtHE8x1UeynkbhpB7UkJBMc63slHndLEo1m02fIrD9WQGbXWqEMLz3XX2
5gyuV8uA409ZPoTCT7WWf8H9UIVqkhqWqChtk88X8RG8/6aostZ5KlL0bK79
iech+cKxrXOaiqjn8yu3/SQjspE6s3+Cimx1Ar9/7cbnQURsOZ2F/WdU9/9r
J6PokHLVySEqCo+T21xTT0ZHTV+cmeunIr4PL8fO/0dGHaI2t/h6qIi4sMv7
Rinef/jKVNFWKiL43rb9lYH3b9ZH2vQZ26/fNncrAe9/XUGHZD22f9PdYxOO
9/3q3EoFMubK2PkP3njf5nuljpTieu11Aje64X1v+HfsWBHmW1foXHsyWorK
dNHLoiLKDcWqdQZklHLO65lpOq6PR3h88QQZqW82Tj+XhPXtDoXbD5CRV+zv
71dfUVHRzcjJDWvJaLNVA/dmCO5fN8RCb6kClYgnCnoEYXsb35ppbgWaiNdS
J/pieyExm/rmCuSUFJGRdBPbR+9WPuBfgaYEDYNVr+N+sp6/fOJcgYj3BNw6
bKioTfcqT8uyAsWY3jkueA7b6wdWcPZUoFq+c+13ADNSLhSqJyETlzXlosdx
vefL3oXnkFBP78eknKPYP1/qhW8oCXGLVRwH9+J50B50h1mS0Lbr4kuGG7F+
P+dZ2GA5etPeRmeIUpHZmS5DC3w/U9QMbiIKUdFECjD80srRy4NTCi7/BvF5
S8gStylH9FflF7Q7BvH7+4rcE51lKPqSZunkw0GUpn5kIvJNKco/WkiUv431
MYeNKx+Voto1UsbWDoOI+pnmxDAvRVzET/tsNojCF4va2UslSFf2o1j67kFU
FCvaJnemBM2wjZxPfx1AaSbjQi96ipHIpyrVJ/UDqOh7sMRUVjGSST2wrLJi
ABHvPFH/ercYmZ5ZmyCXOYBsi/ZO94sWo7elHQ3/vLAe03HeRv09svK9sCtf
ButyySei5gvQaopafYI45vHf11pCClA1v/j1YNEBRJW7mCMuVYB2P+nKcpj/
icSK9RtHT75Dky/M90l3/ESUk4oOXt556GW8yeEYP6w/X3jEQG8RpeQkEKn9
SKoo+rMOIRXdmZGiunb1ozSdiYrgAylITo3P70oz5txTUeJbk1FIZXXtcVI/
IvT+t1+SlYAu1p7QnQ7rR3xOF44Oesegqa/KJjehHxED13+binqO5Fl7L1mk
/MD3u64liyMPoDSwI/Jm5A9E7Jj/FVbpC1o7HjYTg34gisivdgE5f7h8plnj
nccPRLgWcFyr5hmEl7tKrdTD9qWfNU5GRMBcwAdGOa8P8SVmFN/UTYYmSQ13
iZN9aKJv/UzeXC7cMjV7MkzrQeKydTFT82RYNFT8rtDbgybunFr35mYlvNIT
23WvtQctGGdrvO2rBDKhjbKqogfJkwqrUiqrQFDJbGF/aA8q2vm62tivGrK2
mN3xVOtB12Jff0tcUwPD1NN2IiHdqPHUrs3s2nq4eOe0hopKF/IV7q1SCGmG
SDRmhsq+IV39b2u3Lu8CEOixPMjfjuTb7h+I/jAAN3tq3d/8bsbfS0IKgWdo
oB7vJ072akDwqzLF1nAUTC6GxR692oD+xj7dwHdhFKwlkjcXmjQgoRiXrpgb
o/A4mbQxU6YBEdISNuYGjkJtOk8stPkT2pSZvdmhehT0cq8I2Ut9QuvsP7rv
VRyDs5XH5oUa65GC80/LYJFxuOqj9yCwuB4FItNVf7eOw12Nc7OLSfXIxzL+
mf2ecYhG7jO/b9ejAz+cmtZrjUNP3dvJnxL16InK6PY/98fhSvMm1nu3OkQe
FtX+ODAOjj9//biwpRY9ilPrVshiwge3/hW6y2qR5Zdlq+68Z8Iif8OhI7wa
FLE99GBRFROi5JIChBtqkOuj/doi35hAcdNVqLxfgwL9r2UZLjFBXCDRW7KL
glx/5+v1nmNBuEnQkeq9CP2adS9Y9ZcFch5XnsbwI+R35ULs4nI2VMUc6XPt
rUb2et/9mKJsGBvs99sZXI0uqDE002XYQPA43E4c+w8pmSyPDDZgw0RMn9up
t1WoWeHZC4hmw2nq/neNsmRkNjlFWSfLAeNre2xhDr93qDnJmx/ggOGY9Iay
lgrUnz6b/VSFA9oTmx9k3K9AO6j3uur0OaDGx6/j20hC93p5IjHOHJCR6uxX
ci5H9jNgG/meAzszv4blEsqRxSNCx2QFByTlm7SkN5WjH5PbR0/VcmCLIsoW
rS5DL7aH/yR3cECEkHN3fG0ZsqrnqP+d5MC0zSOR1A8lKHct/mhW5MIkzRNt
CipBNQfHbFXUuDBxw8Pj5eUSxMu5sTYFuMB0u9HzYEUJ2rv/0yLBlAsDj89k
Wpz/gDb5pPp8v8mFxtTd6sJ/36N9ta5f9qdzQQUldjMDC5B3XLiwjwAPtoks
H09RKkA+mrluRat48M/Kef7s8Ds0eGXt5W4RHtRPqm+vhHdoSq2tcmEzD8zl
BuxfzOeho2/pim/28cA9RIqr4J6Dfm99P+h0mgcWfUFLgztykDjTWfSjOQ9U
9/wSi2rJRpR7OiHrrXiwSKlRWtiXjY4v/XQNtOXByyn7B82MLMQ50uVc586D
nEtvlrtcykQPOza15oViPXvNZmnhTDSTdjVl3yucb/renk5SBhr6nhKRGM0D
tTBdQ43NGehw/q8u8yQefKodDVvTno5sBZrjt+fwIHetWXrN43Q0e55f80A+
D0Iuk4rvHUxH0RLmkwcLcb0zQZ0/X6ShtsAMf8FS7G9uoXI5JAVxtkWt2kjB
9hzZC/VMfB80FZj8UIvtn00/3K+fjBqenurX+cgDGjmmZkEgCVn968uGJh7w
yfQaJ3vFI5pf38TzbzxoqMxxW9EVh9QtNmeTO3kQes77lYtSHLoN18/0d/NA
MliiR4Mbgzjx2+9O/+DBsYkrVweuRqGDyy61+9J44EzOHPesj0SX6k8ZKTN4
kBLIclu3OxJRdzmrDYzwYNnWBz7aIxEo1nj8xiomD1RoSGBANwKtvSmS/YzF
A8d3K4M934aj219Xn59n8yA+QF7hXHsoel6f8a+Mh/expUw16FUIMl1r+Zvv
Fw/s809pV5q/RFxxcQuNSR7s77S+It0VjG4lOZiHTPEgwontZBEbhH7rWE2k
TfNg5t+D+8+snqHrorLTWTM8oMhFh3H6AlHgXh+l57M82F0pkySVFIAO7K+4
dWOOB89PF2WbX/FHZwsOC6nO84BH0yh9usMP+b8+t3oO89uJmIA76DFqdU65
/e4v3vfW4qTek4+QAC30hMUCD45rtZRCvTeiG39w5GBefmus9Y2uF7p+LX3W
6x8PWiOXja3+fA91nJtlzmCOq9rB72F0B/FRbOHGIu6PcWxbT4s78ip5Of0Z
83nJXAefNGcUWa66ZucSD5gu1Dj9NzdQCkXuqQNmX7T5y8ZcezRzTN42DbOM
TMJ8zZVLSIJ/Y2IzZoOPK20u3jiDah2+qLAwU9Jb1nyp00BjB48pLWDWz1ii
ZCnIQk/4mfAlzIGvHUZJf/RBUXW96TRmiQLdtdoelkADf+efmL1XuHSeO2oL
yurFrHLMIx9UMoIPXQeSYtWXQMzm9ny3/9t3E1Si60S0/5dPrEnz1243eGcx
XTCN+4kZNHj6SswDDrc8K47H3Fx20GV/6F3o+0reoohZIHSDxafVnpCW1j1A
wvNRuz573Db4AZycURQ8itlN/af0/Eof2DIvE5WO55u1oVYwKtAXWHobAvgx
u9779mezHxHaOe6d5ng/mcakgaJFfzhaYpP1Fe8XSPs6HmkEgvG+xd1zeP99
u5I/Gvo8AcUM2dWbMIv99cunzz3Dz4WXgrL4vOQ5TKW+VwuGh2vlZLbg86Tb
4RDp6/kcLMvnMhZ+8+BRjpG3+PRLILXfoKXg8ym+qdqFoRQKselZry9N8KCE
qGhX7BEGV5k3WoTxeZ7OE5aVmw0Hd3sZJwI+7woBPGHKvUj4cepipyC+Xi6f
2CD4TiYKduy2/qxEx/eX3yorEr5GgYdd+xfTYR5wr/ou3dkbA2LsUwLnBnhQ
rL1mas/PODAwZVx9ja9f2oLir43P4+ESOWrOBF/fG0stuPyqCWB5zj9vvI0H
93Ynjf0ITwQN1sytX1/wfFcq/AzTToFrb5TjtWp44FRt2ufzKwWa7t8ydKvm
QcJ9j26nlFTYuJ0n/7ISn7ff/WPSPmlw5bG1Zwy+Hw1elaX97UyHzcy9qZxs
HrzW/tBdGJwJ4Tst3LJf8oAspWMpR82Eov9ED/QG8eDbQtf3JJU3oHSed2o+
EF8fpfPtwbQ38Cq0P3jNIx5c363VfFXjLczYmnZ4OfNAfmU7ZcuvHMgL+G19
XZ8HhGF7CNXLBdNBL73kUzy4UD313/KUXHjvOlDzURNfv/fFK38Z5kFJr5rP
2FEesEdsSr9k5oNJ1sMH96R4UNjAzXlsVQiu+T5n30/h55H1mkeHcgrhZMM0
25LHBdEZBbPBuUKIki4y543j59Grow9TTYrg7MWb0bMDXIii3JZe4haBrEOc
lUsjF85sZ7tUHy6Go5c1PWhxXGjqoq7UKC+Buvflz6Tw89Fexn0iarAEMslN
1D17uTDnstTLXlUK7VUno2RkuCC/Yse7JKtSEIiI3jG5gQvPlC6ZL8yVgv+3
22bzM/j5Ht6ZWqleDtNuevUfyBz4z6BJ7XhtBZRY38v5pcYBrvLRut+cCmg+
rp9afogDO2RSTN5tJcPwetMQNzkO+M7ftpe6TYY7Vs9vl27gACFv68uVUpVw
ry75eAKHDfUiToMdj6rgPZyaaU1hQ9PXVU9vHUPQRxD+IvWHBazc106mVrXQ
l8BuuOnHhJk+R4GPLrVQI2c3fvAeE/hWH0o8EVALmzMFPo06MmHzrcpm+YJa
GDjY2KtqxgQthe+Hli2vg7Rv3i/P7mBCXN6KmfLCOjgc/Vr/IWkctPMd/aVX
fQSV72IPGPQxSH53MHGqtAFU4vrsYqVGocru6SbF8mYQjd2z5vljGnhvjO88
vb4dQoOigyk+A9Dc9l27I+EbPG17+/DP5S64/UVVLmxzF0ypV1v9MGyBzK/a
mxwae4DyzE5y17YqEE98lXi3owccv7yKai+qhBcOVOmA/h4gdJ6sb9CrBI9/
Dw+mTfTAgpsL7eV9MpxU+KDXJ94LQSuWGz3pJsHAU2lvUyfM9+pSnr0tBXHN
xQEV4T4gbgnM27WiEF4KGV/X2dgHYtVODdM6BbD0PZ5lvqMP0hbuXHZ/9g5G
binPuh/B7L5j0U4kH0rjndflXewD6g9jO+MdOXB2uu/Uzrw+mNjs8mTEPgNe
5pdnrzL+AdRb/7V/GgsHOSn1WK7lDyBEnRcymgkFSiTlSafdD+AjlNDCdryE
396f7TM8sf6g+GH1g6dw0eCHJGRg3bOkQL7sPuwdWQy/P/8/fr/rgcNd9Gmn
7gNGdj9IDXGbczXikW1k043mD/1AMbFucHRLQPMrT1t+qO4HPqfp2wqpiegg
97yS3/d+SKtIOUWaTUbRVU4cSb6fILVMb92QQTq6diHEzuL8T0iTo0puKXmD
+CO/G9StGACiWbtoFXqHFpOZ9r/WDkB4t0LGg0MFaD6bz2fntgEQ+7HqkXZK
AZqq3l/w8OAApGneyV3yKkQjzMD1R88PAJ9NTe+jiCLUrKX8IzN7ACbWqj/T
kS1Gn02MpjqKB4AyVyzjbFGMPlnZreH/bwDcfRP7NwYWI+QaAlfaB0Bc/GEs
a6gYFScwMjbND4DtRElRVuwHFDcZ7fzUaBDcnV5yxFklKPpf3pOSc4NAiU/o
O7mhFL0SrE0ZthmEtnN5NWPHS9GLHdw2zbuD2D/YvzCoFPka6ir/ScL2Qfyr
tu0oQ97nLpvufjsIab+3zilolSFPW48b5u8xa+rMVVwvQ+73U+ILPw4Cwb1K
2SCvDF19PfPvBncQiMZ7jx5ULEe270S2xMxiez2m/DazcnTw8jpxe34qhNvH
XCS6lSOFG3sOh6+mAtFLO4qcX45kH5lfZe+kAl+DvyVVioRe+w+4LdtNBcJu
md1x6iQkHeTks20fFdqoJx82niehHZGPo/WPUkGqvJoV8ZKEtuTkNWTqU0Fx
u7xqLY+E1v/bZvDahAppzjoK9SsrkMiZ502pZ6lgG3baTmt7BRKYc2xJuIz1
A3V9xfoViKsv9y3cHftHPRGzia9A40nRFqH3qDCRe3OHZn4Fok8s73rhjet1
KhOMq65AfXG0nqeBmKU3NlYOVaBPY2kDPnG4Hj+qXbU0GdWoi9l6J+N+DH4i
N0Uyqgp/POT5mgrUEOH3CZpkVKxmTffIx/3tnS66fIGM3r1sue7+ngruT7o9
fl8no2yq+qhLGa73rPLBZR5klBIkwXSkUKHoft3CyyAyiu9/fsvhIxUoB1s/
rYwkoyjFefbVJiqICQjPziaRUVigk6vdV9yfh5jL1Swyet7Tw7P+juuZ+S2g
W0hGT/br377ci/PfJMSmlZMRkVg+eWEA53vxd9UdREb35WOmLcbwvPvU5nxb
yOi2zwrPsxzc35yCGukbGTm33Z09PYn1MPc2x14yuiFLf2DyB9cTffd1+AAZ
2XuZ/zVcwPYZMmGHaGR0pbnWR59/CCYchj11RsnISurIos7KISDsiNfsYJKR
+d30x6dWDwFROPdjJ4eMTBvF+E+KDQHf2Azv9AQZGUgS/TU3DYH7dWoaYZKM
tN15y9S3DeHzrVv19jcZQb31k2M7hyDNJ1juyRQZHRdvXakqOwS2l4PrezAr
O2sEHd2L7S3fPnyNWZGSL3TkINa/fjw8jP0VNkq+OKSE/Uf1W2JxfDnHFyIH
1IZA8c9m5TqcX7pqPmSfBq53WbzZNS4ZSYrdXCuvhetRqVz1kEVGW671hu/W
w/4XOFqrxshoPUl//S7jIQg33sUSpJPRGhFSpNSZIaD6dI4/HiQjQds9m3ZY
4vy2/Hud+8hoWUlMjMQl3C9nb2TLdzJaXLVSfKstrned1YbMVjKau3QvfvP1
IZBSlIjmNZDRVCF928abQ2AWFby8iEJGvGUWSevcsP8EwZRBIiPm+brta+8O
gViHg01YERkx8o6kijzA/jI5uwvekhF1KV1K2Bf7x2mGnUwho663xF0rgnB9
X9irPgWTEf306l7XEFwfy7eW8oiMJv9Eh/a8wvPYsKi85TYZiernzeUlD0HR
zv6/XefwPCaUCzdlYHuKwj6CHhnti6Nce5yN53PG6PNyNTLSHev8evYDzl+u
uS1tCxlZhNs+qSLh/q5JFdxfic+LGuu4XDXe/x7e/eypCuQbxJc114j7uTl5
Z/vXClQur+CTNoDn75c5aOSDr7e20sPCdOzfl9A7f70CffcijN4Zx/GrpcqW
n65AE43nzupNYX+zigX5nRVI3okozxUaBqmLqiofyklIZd3qgfNrh4Hv0pFS
tSQS0q6IjqzZOAzU4ft/xIkkZCuUtxi1E+sryj6O65BQXE7n9xPKWP92uqz5
cznKOmP7/M3xYUhr2Okpn1OOSuaYsJYwDJR7AWKDz8pRmwFf3rDhMCgqxo1e
PlWOhJj7/IJtsX9VlFhSMb6/7iMe6H6B6+liOx/xKEVBHcI0QgTmE6EJBL1S
FOMdHZcbMwxirQuuuRKlqLgpd5lv+jAQLQOtI2pLEPNmZ69sOY5/3bypQLAE
Xcrb99RjGOupYTaa94vRtp2LbY9HcTwVA+sM7WLU96pdIoQ9DLbJG995ry9G
F7293r+dwfX/lH1HzH+PrAw+9fcL04AQeeAxp7cIWYzaKekpYX43tan1aAHa
eEnZ10KNBnz8234s4efft1bBz3YaWNeo9d5m+A6dLSu09tHDXPrxxepL+cjs
yb/g95doQPTlbBlxy0XGu+KpEoE0oGxt5DRdz0Iisc4Ke4Mx61zR/DD4Bn0R
JtxXCcX+DGeZ51ZvkOHkyOozcViv0zBYoZeJ9GuOqj7Nx7p55Kj6ltdI26Yt
ZOI7jn/1VNw+4USknrjqxMfddOAr3m433eqDRK/OVGgqYJasfU3a5YmG9jHU
SIqY88UmV7vdRk/JtSp5JzBTU4x4b86j9t5HRyLO/M9f4OWXiNvgID6198oj
OhCZiuafwsMhPJoqPv0d6+dufSIZvQFaWMWMbCADKEKToinHKuBI1ktmYDAD
CColEtwPFeBfZTNAD8V6Em9DwUEySI2v+JQZzwBbzvd1D3dXgrXW2WjZQgak
FfCvUhH/D3qmmEqyfdj+Oae1MYgCzRckb+9SHAFqSlyS+dt6KNn1mCXdPwIE
UYOHS3YtQM3wPLJ8+xi0Tck7SFt2w1RvAe+OzBiEW0z3LT7sBkGxkXzanjGg
5L+K7UnvhkM+FnvqjozBxIKmx2NON/haHJb018f6ePmF8MAekFzBWsF3dwz3
u6395vteuOBg3fu3CbOrI1V/WT84J0XH3GobA7GJH1d/7ekHYkez+Y/OMSji
c0sMNu6HbM0TrWTqGEiJP7n7LLofZjeL1z2YwfUE83fky/2EmIb2/D/S4zCh
PExS1xmADnkd4m+vceiR1fHZrUaF2H0fO1b6jsMsNT5hTI8Kl/fr7N4WMA7h
oVUmKeepMHpIp4kQMg6CFo/eUu9TYUFFZ2No+jjwqRpHVJZQYbeOTrZ80zgQ
Cv17kw4MgZedTtsVCSY4+n7xjV0/DBpXP8rclmKCfvIbKT2pYRC4rnMvcDcT
zA44JA8fGIYQR51teYeYoPg1Sqtffxheu+lcmz3FhFlFEvvbo2FofqQz+8qZ
CVb7R2PSacOwM0FHqvE/rF+LqF6XTANbZs5oTS0TvNJTJaLe0uD1cdHCygYm
BNm59vx9TwO5H10ahe1MIPD7P/b+RIODko6XYhhMmIhx/XGASwP1lOcx19aw
IAik+1XU6ODL5V6xXs8CM68/tycJdKBomu+22sKC8ACboDADOmgPSpQYSbPA
0a5J1eUiHYyk3rUfUWYB33afxEJvOlx8/VWE/woLsr+6x24ppUPSpNL3eTsW
zG7ppTZX0mFAKy5xyoEFaYvV0Ta1dLCn2e4bc2eBe4S6suRXOjjJTup9DWSB
2JADgzlCh9y7lms/B+N4wm/lAtl0YNeTu2pDWWDVcqhk9hcdP5cDrpfFsaAn
6mKaxwIdvLI2BiTns2Cs0E/u9VoGkGe8DGPfs4C4/+9R0Y0MWND9uS6ijAUE
CX97c3EGEEffpAVSWGCbPrJ0Q4oBtarCjr4fWUCZaR5SkWXA8iDXQ15NOJ9w
x6efexjwTF61+tZ3FhQROh8WH2RAo1fik+u9uJ8766sGDzNA+POSsc0AzneO
PUg7ygDjrdc2XqCxQD5nMqValQGhTo0/zo6xgBrwsMjtOAPaKvZnGHNYQFLO
+DKjzoD1whE3dSdxP4eN35oDAywuTh8m4O/I2ekd809OMiAm98LcsQU8r8lg
75BTDGCZ9k6l8rPB6mHq+XAdfB/4bTWxYhUbiPPnttjqMSA6tod1S4QNQa5t
Fxf0GcA8YTXavo4NhB/U2muGDABq97DqFsxyghNxRgyICjw/kCzJhvBf9/zj
jBkwLt/du0yGDWpegtuu/u///1osO532sKHIydhyFnPk7a62r/vZIP7Rp+u8
KQPGNlk2Kx9hA1+Z/zE/zBrkzoZEVWzvOr39LuZX1ufq+DVwPcu3yShiHhXo
rL6hxQZ9IxqtBMdTf2tBbtFjA6noF58A5nCj76VKJmyY2BK5eQuuh8Ezfx9/
lg2CpbU1v3H9x6O+5S+dZ0PPmHxqrAGer5p59vUrbDCTkDASwP3S+jsyvtjj
euIS7ZR0GaDmdzb1sCMb5J0u+O7TZkDI7o6EWBec/0iR+iie7/DnMzH/PNgQ
J5Kt6oTnr+raHnHViw2NdtNCRXg/L9efCfn8COf7NGtSeYwBQ2VtQYcC2DDb
XZ38XIUBKpfMAqODcH8b+CK3KzHw/fL0Q7tINlDCFb+9VGCAsv7X+w1xOD+X
edoRn6fnbFOPAyl4X1fLOlfsYsBRZVOnuWw8rwSPy0+2MiC4t+WaTQEb2j4+
e+mAz+/AIxPbjx/wviJmdgni8x30yfh8RDXel8lj2vNlDPh5s/nsnzpcj8V6
tVv/6HBkrbHplc9sSBucMBb+Q4f+80Y6e7/jfv9rFwkYp8PhhSZCWC8bvBST
hy4N0+FpmqH69AAbxiR1m3710UFx3ECpZhzP32T1HvMvdAj01pe+sITnz7Te
R82mQ++ORkm0nANjAm5V0al0OFinJ75bmAPuD07MLY+hQ89qvbW/NnIgrfFv
uag/HfYn6/wL2scBUp3n1jpLOvid/DjLPYT1rwe+HTOiQxdDe8pCmQNiV8NI
DoCfgwe1WVIEzIRjhCE5OnxDWr2kcxywzaTWG0/SoO/Q6pu1FzkgPu6ZZMWg
ATX12/wXGw6+XjZtkO6hAfvxNclBJ8yiXldHqmiwkvDUZoUvB7IXzu5XC6CB
SJHphGgABwSzfOJ33KXBBqktfuJBHCD2d+dWX6OBFF/2a4VXmAcSVPfp0OAY
5TPjTBYHHKtdrTIF8HuB4qv7l/I4wJe6S9/k1zDopl1cdb2IAz33WV/zB4fh
LJEl70XG/lqekqGVw+BMWOOc0orn5eD9pdVtGFIpZpPMGWzvF5Yz8XkIshS3
Bkz95UCb8x3V7/i9NT9taMMiHxfUbL3EHPF7L4noobxuNeZEzspU/N7dQYjy
Ut3JBUWh5Xma+LtlRU33YoAe5gs1ouMnqSByOC0sxJgL2f9OWqTJUWF9uqNU
7BkuxF0AM378HbzDb+5k7iUufl7ufPDozSConZR40ubGBeqddVtVqwbgVo31
6u1xXEj7Yxg639AP9qm9MVXJXJCy5tGe+fbDxUcWMpczsD3/W+7+o/2gf8zw
WGIBthf0hoqkHyD7XvnG1o9Yt4y3Jdn3QX+aSN2mSS4QboUoHK/phm++z0xL
/3CBkuuvVuDYDU2XBfos/nGB+MSJT25tN5DEZyciBXlA6Fr2WuJCF0SF03as
38nD7++pO/5Sv4MxkewtasyDNDnf+zdQO5yyVl5ZcIYHfFyJpIeW7XBcvSjC
5DwPpDTnX/my20B+9k32S3seEFVL44w2tcFy94gu4Qc4fnldLOlDM/xn43hk
VRZm34P1ppc+QokG7b+sPJyPf1fpaod6yJewNtB9j+OL1QR7u9ZBQrc5/qDA
9tXDOfZeNXD/NIQu+4Z1b9FOCSoZXA6Qt2b0YB7KsdzcRoJrq5XfaA3g/Cdt
HPUqy+Bsw74qv3Gsty1ZqAQUg8GbN3rSPKyftS8esykCQoDUN8oU1lOjDO65
5YOqXaK17Tzmh4OfjDdlw//7PQr8/9+j/B+SN/im
"]]}}, {{}, {},
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJw12Hk4lc37AHCyRqKUvTpkp0hlK90qSaLFllQKFSqRyPLaikSLPa/sOufY
9yTZhkPIksRzkoSIrOeQpSzxnfe6fr+/nutzzcwzzzPXzD33jKSts8m1dSws
LDtYWVj+e+4GofG1NSa69TXtxIEiMpjdkAtZXGIiS83PdyhVZPB+rik7O89E
LhtfTEo1k6Fxwsp2ZIKJcusH8y4PkeFKXEpP62cm0tXuVP4sRIHIGfmWFwVM
lPjy95OS+xSYIx/I3XuZiWJWjTN7r1NBrN3IcJcVE/Xq3Fn31Z0KukuXRmXN
cXtjZ9OpICo8OxMgLXaSiYyUF/ONyVSQ/VufyKLBRCsZkTtWBqhwzuLUs7aN
THSxYSKY80o6lHPb3LavZqCQP97vg29lQFu/RfdcGQMNOMHadf8MGCg1OvLg
FQO5KR4SuxSVAZzXNIWSMhnIJ1Sj+XFZBpjU8ld/imIggcLy+HGOTJjwquY7
ZM9AlrVfDAspmSAxIZ63RYCBCmN1WhZmssC/jT5RazOF6i0MD4Q35cJAd2BN
zsUpZOCv+m6sLxeO/FB9/vzcFBLgHA81m88FzuXHhxyNp5DbE/54K6k8eCoP
kQJaU0jXdkuRnG8exAdmqF8WmEIfL7qnVO7PhxItz/sr1ZMoboTEHVpcAGNU
UWENiUnUZy8hp3GrCBT7DdbzfxtHjv2nNqe2lwBFkDz35cEYeu9a53enrwzq
LjQ/QzCKss0Mj8dOV4JEigQp7vsIilGdcT3dXAMnj17w6gwdRjlHjUzOydTB
juXrAQonfqDBH0c+Gdu8g135SQGuU4MooNbgsU17Iwy4pe2mZ35HOUznnsiN
zeCYGElOvDGA5hSy/+1RbwVLv/M7c6X60MqHwfx/vD+A/ITCBbPkrygpsvBJ
HHyEm6fOPBwc6kZrdXZ9wcc7wOruaR11dToqY7qkJ2p8gmg0egaVdqJUue69
F9k7AdZ1W+xm7UDWDUXhTi2dcKOb5kKdbUXo0YtX005d4NRpU/f2WyuiiFee
9nXpApcPLEIfGlvRtP0mRe67XeBRf6hiIaEVOc++/VfEswuCCss5DPRa0cSt
3pPSD7ogOaQ4fjymBX2s2ItGnndBp+bLehX1ZuTEE0PaWtkFB1/cFyn3bER7
Qz0Ps7ERYGwV/u8+u0aUl8ZeuJmDAGvxJKEC40aUwf/cgsRFgH9S2RaKVCNS
eBxiqM5LAC2NKRDW2oD65Pe8MxIk4Hj2pfW2pAa04qtK27mTAJMKraX1TfXo
kfW6do/DBNj5HPcKKq5HWllKOcZHCXDTMf+zmliPSjwESiWPEfAcuSzM3qlH
OQELFvUGBHTXZfz6Jl6PDuplVc2eJuBS69aJIuc69CsahpYuEeDwbebreWEa
EiqtpmV6EvDKuZdDn42GfNw7bsl7E7DK2qiixqxFtJuD3un/EBAjmxjI01iL
pB5o05L8CKhx1lequFeLqlad/3gGESCyLsFbgl6DIsrWf/keTkCEcYhatQJC
1Rzccj5UAmRdLwXHsiL05UPdfGM6AZWxaj23v1QjuXya1OZMAkb7e+/vCK1G
CTkDsWnZBOi67ukIGK1CRk94hnILCJiO7XE+mlGJrl7f89PtLQGnB5TzmqTL
0VDSxOP3LQQYXZW7Aotv0fmGiGN/WgkwHJUULG17i2jnbvDLfCBAb1rIi3zv
LSJ5cH70/EiAJgvrMb+mMuQWxsGyniBAikT07r31Bs1eUZlv+UbADkp7eLbu
G/SZGRf2tY8ACfnmI5Jb3yBF05B9Y/0ECKuizI3VpSjC5Bx19TsBG3Sz3Mb4
S5E885LQ5hEC5i/7bkh5VYI6AvW2fJ0i4NeQB9oaUoLa3Gl2LQz8P/aurk8v
lqC6MLuqt0wCxp3tu704SlDneEBYxAwBff5nKWbnXqGcHjOK7DwBTSkyB3mW
i5ADCQXMLROgjhI+jwflI80rYjuEuOkgtoF9LHlvPlKJGkEV2H8tby2ZDOYh
W2Ui4/J6OtT/OritAvLQ3Yh6o5c8dDCV7bN9spSDjtyjjm7mo4PLMxJDySUL
8cz+tkjbRAeznpC1/u1ZyIH95hWlzXTQkJsRiGnLRHU+DQWvsFdraveuKGai
QfbpHUiQDk/nbL1ah9MRH01Jr3YrHbIuUNmdLlAQNXf+masoLs/kE5LkoaAw
SRJjANtl3l2OKCMjwWy1aGMxOmiG6xvqCJHRQN3nHElxOjTQfobzdaQhXivq
1tcSdMjmP5NW65+GEoSjErZuo8Ozi2XF7rvTkNGVlWtu2GYLIcS3J6moNFak
SXk7bm9qpn7xWTI6e1qmJmQHrj8lfb5+PAk1hBY7fMU2ezT/j7JBErJQszFX
JtFhqDy2dmVdIlLkWlxqwmaR+mKU5PkC3WQuuU9J0qGxIsuZgx6HqtS9D6lJ
0SHM3DvKaW8cStBuM3THlggV79ZhxKLtP1t2L2BrTV+y67OLQfL/6O8c2kmH
W+WUMY/6aASPGxZFpOmQHDThvEkmGikX75QxxmYT9fLRG4lE7n4XvAux1YfQ
uj79SPS7RoHSj+2QxxnqkRGBUi0rpfhk6PAiUF7JvCMMtfKJbLfDXhUu1QiJ
eoZK79Ljn2Db5h7VqzB9iqLQ0VvF2MqE9SVJeihi+yHMt4wd6TjpaPZvCNIp
cO+VkKXDwl+ve48sH6HiYy4sOtg1ss/Dp3qCUAabsr4ntkyFVCIpMRCtbxq2
j8Z+fLow0/TSA3QjcldfLjZzSOd18Pb7yGkvS1Y9dsZ0bOBd5I9WS62aerBd
RIsTvxz2RWestA8ysbWPtL2Gem/UH5HIvk6ODuw3Rz9Q9T3RbTZ/SUHsD9Fs
o7zv3dH6iP4oKey4yu2srifvIlbDSktVbNthLbHuNhc07SV49yD2OYns6z6p
t9DbpKHv+tjjTgNxBlR79NBBiXoa2w8JtWzJtkUNtLFKC2wpqfil2ksXkHrz
NoWL2CfecV62sj+LOjsaxi5j16S18bXU6aAxmx+rNtgG5LWadCVp4NC852CL
HfTy+s+y3waw7riP7H/l4vn6/HquFrBWuqBpje3N4USY77sCdsPDKeexR16p
k0NVrkHfVcMLptimtix3qhRvwLW/0jdP/tefQPOhGRln0M69134YO7b/RHCU
gCt8J+uGqGO3lu52Ug5zAwWjoOcK2OvCBM0aeD1A9sjR32LYmtf+aF8J9QJt
S/88Hmzng98klzh9gDNWu+wPHu90QRp3TJAfeGl6CA9j33bv/C10PwCaijRa
2rEpRmV9hasPQG3llGoqNpQpfvLVCYLtlTnfH2L37Ex6Z+jzEIJV4346Ygss
38/9sfgIAqx3zyhj51yfSynSDAVSUf8cL7b+p+vRfh6PwXJcxXgMzzffrJPe
IvNPgfa0ejkZW2RrtdPw3jA4rMVp4oFdEqBqU+waDkyTtRVj7PkcHmnZPxEQ
mix2dgHPf6VAJk+NezRIzEb9UsO+eECQO08qBvQn311YxOvr6aw6R3x7DMRV
GH6owmbY+a3dVYgFR1Gndl3sYj2+OblvcRCWIn5UBa/PoRXVmS2PX4CU4ODv
Yby+t7w2Y7BqxIOguUFpPLa7TOLo14gEMC0nnVnF8UCTU+lbuF4yzN4wWMzD
8cOx+lSPz0wyBOSZrJhhx99z/eyYnALlCpfWL+H44zfbOyrpkwr8/pmHD2H3
20kPLRNpUBGRqlyA49lLvVefC0IpoCJosKiG42E56ZiF7AAF6sy0yOUidOhc
oXclqlNheU3KUheb/fVSR+gQFaBUbuiYMB2uyRxptdPJAOeKNX8tHG/lOTtq
hHHe6SIqM0IToIPuoC2EHc+GEHqWgRL2+eq5KvbkbKAuOryJ5Mfr955IxYxh
DvzmmnlruZEOkyOXX7dQcoE9qNi8nZcOBY2MLH/LAugUgb/WnHTos+bzVckq
gIFMH7cSDjpsXFA6079YAOwVdC1ubPWoff+kGBfC72HNgmw2OsTU3JFcYxSC
ifCu419Z6HB226RT9Z5iCI021J1YIqCZPsCp86YEFlPvczbi/dFWymU6pr8E
gn6echmZJGDRae3LJNdrCLSzV2LHlufYnpdo+RpkPBnPtccJeLT3gunK4msQ
LouAaLzf6kUQKRUH30ClZfnaLN6vq040a2rT3oJkCk3QDe//jP376man3sKx
cyr++m0EbJdKNs4TLQfdM+7zQjhf8Fu6Y0u6Uw4m4sfYit/j/CNH9CknqQLe
x/FlfawnoH6DY/8n30qYz+U9XliOv7+dK/imFgJ3pz7FJQoBSxV3BGSuIcjl
PnsmjEyAYubX+L4IBL7t08GklwQ8CSgoODuKwCI6Vh5SCEiPy5lMOFmDx+nl
0WsvcD52wlTowVINtP+zyGP+jICJ7JeOpyxp0CphHlB/l4CFHod175xokCLQ
yb7TlQAWXpWEA4E0iFxIf+XvQoDQzYpW+Xwa3P90PHKvEwFHlLpU2NjrIIVf
1/ThdQLicjgW3hTUQZJSiEKHJR6vXIcHklzvwO5f0XHegwQk5e1OmHvdCPVc
FcsSf7vg9gaR0MX3jWDMHSegvNwFh26yeqx+a4TfB/Ykai12QZ98lwk3ZxNI
z8aLnJnvAhLFi0fCognK/W7k3ZjqAkp8vdfRhSawliQHWHzrgtxHVpZR6s2w
v3GYyoPz50qb4K2qb1rBS1DNZs6tC7y3vCBOb+6AMMnw1I8NndD6sUvvU3wn
XHjIPfBlQyfcadGQDRfCccJOoUztyCegtOttvd7UDR8/PZh9dLYDnua+yeQy
+gokF3mBlMsfgTW660QdRx9Ez7bN74v6AMJZOY0UgwGQ7T0vN+TSCvSMgJ0c
Id+hCeV3yBk0w4UcxWDXwUFI+zG5kWWoEQ4mcB14J/MDmnj+2uSkvoOh8LcL
0kHD4J/WefKmSh2U7PSfkOwdgRLRWce6zhoYIHuosW8bhRzx/SFcV6vgk/yx
gFnPMQgJXDt9+28Z7Ig/RmqqGoeS63wHEhReQ2z2+UWtlQlw8X7u+bq6CCZO
fZlLYZ0EsZSuutLCItCdtZzm4JoEyo2CbPSyCMYPWP7s2DQJD9gF7EaDi+BQ
mwXhKDeJ8yiqTOzpIhhmmha9MJmE+uXdKg6DhbBv/ynHxcxJsBI76ymwsRA6
0ZEvZeZTkOlKjnv2Nxd6VHhv0KymYOBe302zn/h8mtK51HJ5CqQJblmljlyY
9L8q0e84BaQnjR7cVHw+1Q2+zOE3BdwdkXmBxrmgVfN++Gz6FLht1TR+mJYD
KTVnfo0vTIGIgAL/X/NsSFcVDZxbnoJus/KnXYezITf1u+AqCwMyBW5pVe3K
hrIA1/2beBlAqsw5QePIhk+6MZ4aOxhQuf68Q2JpFnDUfl4NPM6ALS685S/E
s+BmrTXvtjgG9P7S+sk6mwG2KV9iK5MYEHSxoWu1LwOsfM2kLpIZYJl8tX1z
SwYYaBlqJeQzwEiAJhtAzgDpov32ou9w++9cy3fMM6A3dUPd1l8MCNnTrYiq
0sEooNx7oxETIm4YVNunUuGo9X7O/LNMIPkp8NqFU0H7YGGk8TkmGJFSDnv4
UUH+DzXzqS0TLCOfZYxfpAK7SySdx4sJqmLzf1fFqFB12UGNK50J+95UbZpI
oECJzlBVeg4TuqaofD5PKZArbn1CvwjXv+I6LOtLgfjPplceVjJhIDj7WrM1
Be6dhjC2TiZ4qnSYGu6kgNOuclFyNxM+ZrH25GyhwFXe/dQjfUyYbj5cKsdJ
AZNGxcr7Y0w4I6ydf3uMDCeo1OOSTNxfeNKo1lcy6AaSOmvm8PtP2JfuaCOD
hk2C9ZUlJsTlz8qSEBn+734H/v9+538TSSUH
"]]}}, {{}, {},
{RGBColor[1, 0.5, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJw12Hk8Fd//OPBLSLRQIVlCSBTayNbLWxKSyr4TKZJIKcpWJIosSXbFpeva
t6w5tiIkst4ZW7ZkuVdCltJ3Po/H7/fXPJ6Pc15zzpw5y2tG1N7NwJGZRCKp
MJFI/7vKAu/0v38MJHKiVE2lMB2Mrh8IWV1joMiOY76jlelw/+VJyV9LDCT/
Sc/oRWM6NM1Y2E/OMBCXuAn7zv50sItLxdr6iPq9mOrjf+kQ9VOqNT6fgQqw
axoXL5JhMV0l55gtA3Vo9auPrJJh7xc93cMWRPxv0fg+lgxQX7OekjRmoFpZ
qjW2IwPCLwaI7z1HxFurXmaWzADJv41JJEUGUp8c/ThokAGmJvrhn7czEOmn
gefnvAyoZL9881oNHQWsabNOuWXC52GT/sVyOoq76yB32zcTRt7paTwqpqNy
Nbv4bc8ygc3xJG8yhY5E1s5edc/MBIO6HTVfo+loJDXJjTGYCTPeNdtOXaOj
/ijGpeELb0FwRiB3NxdRPrZ//yhQQK6emy+Ng47cK0Iuul2ggEb85odyrMT9
3vyw3GZLAaezv4x01+aQ2YCHso8fBUrTW/74j8+hOJNIA8kaCuhbeevNlM+h
+RyB4FL1LPD/3DtTd3kOiRzjVGM3pMJIf2BtthVRPrisFOdABY1x+ZcvTecQ
KfEe28k7VGBbf3rK+fwc6hBqkX77kgphUhDFpTSHnHqUHDVpVEgIfKtgyzWH
pl7hUQEO2VCi5PXwT80sGtleJHwoKAd+ZPDzKQrOonL+A7SA33nQbj96V5lv
Frl7kE60cuZDyb7sXrWds0g+nJ1dUiQf/OJVYzXZZ1Gc2SORbTr5sDPclsdg
cQYV9Jp4vEnMB+U7Gbtc22aQ9kBazIJoATzVOMKV7jODautrrnh2FID0sPaW
HYPTqHnuTjVVqwj+nF0+ntk3jUYe/7vz07AI2gvS7dS+TqN+U4qQxuUi8Hi0
UebSNI06ND4Bk08RVEiUXG0unEY+DfXNy4VFoH1jX+PD4Gk0X7Q0XLOvGK6t
Lvktyk0j9jZpiTrmEiDvSl+kPfqBjtfxNDhOlkKDZUs4gimUs2L9N7S7AgRT
BUXivk2ikY2f94oya+DcaUvvrtAJtMDu3hqxUAf71q8GHNQZR9W2ewfCYxvh
cF5ygMfcKHrAV2/JnNoEI3feyPZSvqFB7vB0q6gWcE6KSk+6PoLs+DRy5B5/
BjM/8/05YkOoo1fNQsa2A6RmDloapeAowF42EAY6wUX/4uPRsX6UW5nJxn2z
CyxuX1BTUOhFe7SN52CyG16gqYvoXReSNSnqH5PtBWDuN5Fl6kStFwqLpT37
4Hp/vXvGrza0LBTlbRvUD65dlxsqBtuQ/vN486yQfnBvJ/G2N7WhY06FofNh
/XCv8VTVcmIb+te+s+fuy34IKqhk1dZsQ8xR35bsM/shJaQoYTqmFQk89NUr
b+qHrpNpjXIKLciaMj6kz04D1fiHeyq9mtAlaQl8OoAG5y0iXh13aEI3X2o3
3wyigY1AMm/++Sa0h5zRx3hCA//k8t1ksSYUsEXE/MdzGtS/YXA9b/uIkhVa
WyuSaHCWar3FXuQjktc3jvtSRgODKqW1Lc2NaM9BS9XmGRo4+Jz1DipqRLyF
SfF0Og3uqBmvbCQ1osvaZ9a5F2jwErkv/7rViOrVdJovrNCgv+HtwqBAIzrS
Uun+lgUD6zaemUK3BuS0m0nloyAGToM/cXO+eqSY1DZcpYtBsdsAq9amerT7
1zPKpfMYbDA1yR1l1KGT0nV14xcwiJFMCuRoqkMmr7aOMRtjUOumJVN1tw69
mW/6ImyLwR7mxPuCvbXIyoD0qdsDg8jzIUdrDiJkoUPjPRGHgaSHdXAsE0LZ
WWGNtxMwqI49it2k1aAtvEv5+UkYTA0PPNwXWoO+91ao7XuDgbrHkc6AqfdI
UopDcjALg/lYzO3022q0zlte3FWJwYWRQ7nN4pWo2e6JAgXDQO/KATtYrUDT
2u7m7wYw0J0S3fXucwXa7n5Ypm4IA815Xu/0uxWI9LKjv20Ug5MkpjN+zeWI
okLWq57GQEykZ+DYjTJUJLOwZ30Vg33kLxFU9TLU9d/pia51DASlWjREecpQ
H+WJadZfDPjkEWV7zTuklNMlo8uEw1b1rDs/drxDyRI7Hjuw47Bk67s1tbgE
tf+ZD13kwWFh7B7iCSkhBqDF6xUfDvPXPDzCrEpQkkUOqyI/DtNu1/q9WUuQ
NjXvt4sgDkP+l8hGpsXId2pJLlcMh+ZUCVWO9UI0yLn4PEwWBwWU2DcdlIds
nEbFq0/jsHcry4+UY3lIvIYzYlATh79mN9YMRnOR0QzX+voZHBoXVIWqIBcp
TEb3yWnjYCg5ZP9sLRtlfsETbuvh4B4uQpdxz0K9Dw5wuRjhYISF/BsWzkKp
4UZeVsY4KB74yRXzmYLKrmkO6ZrgsFFbd+yPNAXtMw1IEzbDIWzR3rttIhPJ
qgmzpVnikGWZweJqSUapClwce+yJcso2XlEOMmI9fe44jbD7kueBnvJ0xB3K
MHvlgMPJCC1dNd50VJxaFsnhiMPH+u8R2zrfIJE950rbruFA3XHxTZ3/G2Tc
+SXX0wmHcKvyIk/ZNwhjN08VcCb6uxzSM/jsNWIa6r5hc52INzRSsApPQe6F
+3LRDaL+nLh543QyOkJ1d77oStR/svTgkHYyigmJEhoiPFYZW/eHOQnN/X53
Y/4mDiQxml6yVzw6MjiZNu+OQ1NVlhtrbxxqWd281/kWDs+N70e7HotDZbGL
T4YIC4YK9KvRY5HVreqztR44KM1bOww5xKBHjaxGtndwuFFJ/nGv8QXKXXmS
9p5wStCMG7fEC0TtPs3K74nDJn5vH83JKJS3zr25ibDCGGIe0opCH2rXMvjv
4uCUyxZ6720kahdtMXMmHB8oJWPc+RylmXau/iO8wfdOMSQ6HDUrT3zXuoeD
fc5pzSrDMJTc++rHU8KHemysRXtDUTBT/AEOLxyinGedjV6FoIpjnxzOEF7+
6333idkTNH7FstiXcK3ky4g5LAg5lrmHTRCWqBJLEkkKROzcOA+PNw5PLxRQ
DK0fIRXMs+g/wowxtdJg4YcIc1WwdyH8dj428DbyRzdoOyWiCbvzFyXR/vNF
8oNM66WElTU+l0LjfSQwuzbWS5jFZao9Q8sL9cosDy8Sbn+xaYrzkydqvjNL
33Efh7hqYSaPc7cRl0EflxRh+wmlvf2f3dEzpsIzaoRNBalXfV7fQJ2374Rf
IDztOhKnnXENqegJTdkQ9kO8rbup9mhk5K2xC2ExsYS1OmtL9EqZu/cOYZ0P
bLYW1y6h1d2mzg8I1775vK21QQ1ZD93b4U9YO/1fbaaMOIyUeTT/z0FpV7+X
/9YGG8+zMb6EBfK0dmh6mIBn8rKHF+H7rK49xsft4LHzwyvuhCeLFdJD5Rwh
/8MPJ0fChvakW++lr0PPxaMBpv9rj6vl1E8JN0iysqFqEY4d1gmO5vIAh7lb
348Sbnsn63ro+R04X3lLUZAw8/NdRh8574HyYYcEZsInHVeU7UK9odFej2uS
GD831UHRNTYfOCN9PP4j4cxd9ewxQX7Qzip2gkz4pmfXb96HASAlLTzuR5is
Vz5UsPEItqY4PpAhDOXSX33VgqC0u9HhL/H+sf3JH3R9HoOLmIVtG2Gu9Yc5
46tPoNnPJPIy4eyri6mFJ0NhE0ffhwOEtb5efeF37ylcz6jdPkPMP9+sc/f3
LIUBc/EW3InwHp4a14ljz2FSIcRmP+GSAPnLRR4RYEDPXcKI+byUzSEuuRIJ
NU3Hbf8jLBPI4Kj1fAE84yA6Q6wfK5Vd7LliMfB7s4N6MOGwXwqsCV9iQDsh
mCFEmO7g9+/2wVi4eeTMhsZtHIo0ty0eGIyDJ+e4vzkQ63Xsj/zP3U/jgVsj
LXCMWN+7S43oTIoJML5NqcyWsKdE0hQemQjLh7d9Pe9GjC+bzGCEZgqstsZh
JGK/cK7Rx3x+psCRqYQtjsT+knDXo885JRX4/0y0fHAh5tuvgSlRn9dQM8PB
6kvsR8MO4mPrPW/gw98Cq3piP0vTLO7LDyXDI1LqB8plHCpFzphIjpAhReC0
fK8dDl1/eruTFDIAN3CTJxFmKV3rDB3LgG+BlxZ0bHBwlNBoc1B7C0eKtwaW
WOAgxdZZy/czC/pXmXZOGuCgPmoPz89S4Yy426+BSziY1yy+Z0mhwkOb+Jsd
F4n1e3dP1U9dIg+uNzyWq4/D7KRtaSs5B2K4BjfUdHHIb6Jn+Zvlg/CszkS1
OnEe2WzzlcvKBw72rJVowGH7sszF4dV8ILek7b16itivoo8/SD1fAEFPw59t
UsUhpvaW6D96Aew5/eCggCIOl4RmXWuOFIHYKj3+/SEcWnpH2NTKSkAnNzum
kzgf7cXc52OGS0DQ5g+f7m4cVl3/0WY3l8J4dEAJ2kk8H6twbpJZKfi9zFRO
24HDk2OWhn9WS0FNSTJYcwsOmpE9qVWqZfCdcdRjgziv3+u0nFSur4DjlPzH
usMY0E8cb/g1VwFXufALpwYxEBZLOZ/LXwnmecZ1sjgGfmu37EVuVcIB5vgk
1j4i/8jmD2MTqYKNK0fOPGvHoHGr8/BX32q4uyVlarkag5Yvm4NdlBCs5DxY
M3yFwVrVLS4JRwT2+z2/D8ZgIE3BE4YiEXDrxkZeicbgWUB+/qUpBEZJ0nud
wjHIjMueTTxXC5XzbcLagUQ+pmPI+2itFgIMkqNv3MRghprmrG9WD62jfff1
NDBYxpyYP7jWw45ilhYfwIDEKZeoElgP31QvclJVMeB1qWqTyqsHyYNO19YV
MNCQ6ZbbxNIA7Sutid4yGMRlsy6X5TdAgmxJ1vguIh/KcXokuvkD8P/gPPhg
lAbJubKJi6VNsD3g3Bx2lwY3t+4JXf3UBOpt7IXPbtPglAvTvY3BJsgaXPyr
5E6DIaluA3a2Zpg9HK0Q4UwDEbI3h6BJM3DeilIStKIBOaHR+/RyM8z/EDhV
p06DnCcWZtEKLRDjHCmoRuTP1ZeDeeTL2sCGxPH7UGQ/3N8d33NhZydotcrz
hrj2QVtHt+bXhC6QbRDZyFbthVutipIRvL0g9HuVnft3N5C/aPJcbe6H9rgI
/6e+XRCWU0bZTOQxiRu/kky2fgWmF906DaxD4BRuIOzo3gF8WdlNZO0R0PGP
jDPv/Qy9bwP2s4Z8g/k8buXaoRawzJYO9hgdBUH9SaVD5U2gmrhZ5YPEOFQ4
i2wuG2uEsYiKZfGgCTh/RbpaYqMOSvb7z4gOTMI0tzXXjqoaGEm/d5RFaArc
3Wh0L+1K+Cp1JuCX1w/QtvlodmrTO9iXcEak+f00yNdN7v39ogjsprO+19VP
w8qcGy3mSRGkKW/Pr2qaBrt9uSSVB0Ugifeq5XdOg17d/tDX9kUgK+hkGTtB
xAtN+3cQ60g15WnslW0zwJ7w+ltDZyFYpH3ZymQ9AysLsvLLfIUQSzVfVfoz
A17tneJN9/NhRp+2mMo0CyEN2ofcr+SD+i+zedbNsxDHYRpxSD8fplXMvndy
z4L2rmSzYdF8OPXZpMf5wCwU5L4NPtSSBxMMw8J4g1no+LoYdlk4D46f0Hde
pcyCnbKT2+6eHAilfb5imzcLXrr5bCJ1OTDke97uQ/EskFSULE7l5kDIRz3T
qJpZmN9lLFT8OAcGTM+dOdg9CyNUDXsfxRwIuq8tav6PuL/KVqGQlGzoQhq0
cuLTzy45i8vgPhUwOc7r9RZzEBf2nNzjTIWR1K61Vts5ELldUu1kToVZ/yuC
w85zxBdtjfX7k1RgUw+2ZfUj4t2MEvetZIFS7aeJS5lzwJUmFVvnnQWptRcX
ppfnYOTRjgnNEApkyvMHLq7PwQppky7VmwI5r7/t2iDRoYNhc0LYhQLlAR4n
uDnpUOBy48ERfQp8VY/xUtxHhxAv3o8sPBRgrevbCDxLhxGe7oMmGW/Bpc6G
UyiODk6yLs62HZlgn0qLrU6mw7zb2BJLfSZY+BqJWaXTodbIYVtVcSZoK+kq
JebR4WTTt1SzV5kgXnjiGv8HOpSz0ZJNbTNh4PXWBp4Fov3W6L8mCxmgF1B5
f7seA2oNa8sn9mfAaZsTbHmXGPD6NOtXH74MUFYtiDpvygD1yk/GYpwZILWS
QQmzZwCXt/+luAUysLhH9XJ4M6AgSJZFtp4M722djm7OZIA8Kfw8w4EMJWpj
7zOzGTByUoN0xYwMOQI2OlqFRLmL+tiEHhkS+gztHlcT8bzx37kUyHD3Ajzf
1EW0ZzX6hmkLGVwPV/Kn9zOA5NoZMfg3Ha5wnsjQGCL6R97F9nEhHQyapKsf
/iDi9zudqB5IB52MjLOiDAaINAo0fOpMB/VAka7aRQZEijo+GvuYDoqXE23s
1oj+v9O13lKdDv/v/xz8//9z/wcdsx/T
"]]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->{{-1, 1}, {0., 0.9999994079562567}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.683209848042804*^9, 3.683209859856327*^9},
3.6832099136633797`*^9, {3.68320996111534*^9, 3.683209975450506*^9},
3.6832101883000727`*^9, {3.6832834653670807`*^9, 3.6832834679432373`*^9}, {
3.683283523786682*^9, 3.683283533557103*^9}, {3.683283589464904*^9,
3.6832835967371492`*^9}, 3.683283627498534*^9, 3.683612941289789*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"spline", " ", "=", " ",
RowBox[{"Interpolation", "[", "data7", "]"}]}]], "Input",
CellChangeTimes->{{3.6836133025229607`*^9, 3.683613309945881*^9}}],
Cell[BoxData[
TagBox[
TemplateBox[{RowBox[{
StyleBox[
TagBox["InterpolatingFunction", "SummaryHead"],
"NonInterpretableSummary"],
StyleBox["[", "NonInterpretableSummary"],
DynamicModuleBox[{Typeset`open$$ = False},
PanelBox[
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource[
"FEBitmaps", "SquarePlusIconMedium"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
Evaluator -> Automatic, Method -> "Preemptive"],
Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic, 3.5 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
GraphicsBox[{{
GrayLevel[0.6],
AbsolutePointSize[5],
PointBox[{1, 1}],
PointBox[{2, 4}],
PointBox[{3, 2}],
PointBox[{4, 3}]}, {{}, {}, {
AbsoluteThickness[1],
Opacity[1.],
LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
"]]}}}, AspectRatio -> 1, Axes ->
False, Background -> GrayLevel[0.93], Frame -> True,
FrameStyle -> Directive[
GrayLevel[0.7],
Thickness[Tiny]], FrameTicks -> None,
ImageSize -> {Automatic,
Dynamic[
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}],
GridBox[{{
RowBox[{
TagBox["\"Domain: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Output: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"scalar\"", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource[
"FEBitmaps", "SquareMinusIconMedium"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance ->
None, Evaluator -> Automatic, Method -> "Preemptive"],
Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic, 3.5 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
GraphicsBox[{{
GrayLevel[0.6],
AbsolutePointSize[5],
PointBox[{1, 1}],
PointBox[{2, 4}],
PointBox[{3, 2}],
PointBox[{4, 3}]}, {{}, {}, {
AbsoluteThickness[1],
Opacity[1.],
LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
"]]}}}, AspectRatio -> 1, Axes ->
False, Background -> GrayLevel[0.93], Frame -> True,
FrameStyle -> Directive[
GrayLevel[0.7],
Thickness[Tiny]], FrameTicks -> None,
ImageSize -> {Automatic,
Dynamic[
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}],
GridBox[{{
RowBox[{
TagBox["\"Domain: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Output: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"scalar\"", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Order: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["3", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Method: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Hermite\"", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Periodic: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["False", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition ->
Baseline], DynamicModuleValues :> {}],
StyleBox["]", "NonInterpretableSummary"]}]},
"CopyTag",
DisplayFunction->(#& ),
InterpretationFunction->("InterpolatingFunction[{{-1, 1}}, <>]"& )],
False,
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
CellChangeTimes->{3.6836133123216343`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"spline", "[", "x", "]"}]], "Input",
CellChangeTimes->{{3.683613348225533*^9, 3.683613358921604*^9}}],
Cell[BoxData[
RowBox[{
TagBox[
TemplateBox[{RowBox[{
StyleBox[
TagBox["InterpolatingFunction", "SummaryHead"],
"NonInterpretableSummary"],
StyleBox["[", "NonInterpretableSummary"],
DynamicModuleBox[{Typeset`open$$ = False},
PanelBox[
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource[
"FEBitmaps", "SquarePlusIconMedium"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance ->
None, Evaluator -> Automatic, Method -> "Preemptive"],
Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic, 3.5 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
GraphicsBox[{{
GrayLevel[0.6],
AbsolutePointSize[5],
PointBox[{1, 1}],
PointBox[{2, 4}],
PointBox[{3, 2}],
PointBox[{4, 3}]}, {{}, {}, {
AbsoluteThickness[1],
Opacity[1.],
LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
"]]}}}, AspectRatio -> 1, Axes ->
False, Background -> GrayLevel[0.93], Frame -> True,
FrameStyle -> Directive[
GrayLevel[0.7],
Thickness[Tiny]], FrameTicks -> None,
ImageSize -> {Automatic,
Dynamic[
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}],
GridBox[{{
RowBox[{
TagBox["\"Domain: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Output: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"scalar\"", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource[
"FEBitmaps", "SquareMinusIconMedium"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance ->
None, Evaluator -> Automatic, Method -> "Preemptive"],
Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic, 3.5 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
GraphicsBox[{{
GrayLevel[0.6],
AbsolutePointSize[5],
PointBox[{1, 1}],
PointBox[{2, 4}],
PointBox[{3, 2}],
PointBox[{4, 3}]}, {{}, {}, {
AbsoluteThickness[1],
Opacity[1.],
LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
"]]}}}, AspectRatio -> 1, Axes ->
False, Background -> GrayLevel[0.93], Frame -> True,
FrameStyle -> Directive[
GrayLevel[0.7],
Thickness[Tiny]], FrameTicks -> None,
ImageSize -> {Automatic,
Dynamic[
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}],
GridBox[{{
RowBox[{
TagBox["\"Domain: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Output: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"scalar\"", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Order: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["3", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Method: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Hermite\"", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Periodic: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["False", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition ->
Baseline], DynamicModuleValues :> {}],
StyleBox["]", "NonInterpretableSummary"]}]},
"CopyTag",
DisplayFunction->(#& ),
InterpretationFunction->("InterpolatingFunction[{{-1, 1}}, <>]"& )],
False,
Editable->False,
SelectWithContents->True,
Selectable->False], "[", "x", "]"}]], "Output",
CellChangeTimes->{{3.683613350586225*^9, 3.683613355510889*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"?", "Plot"}]], "Input",
CellChangeTimes->{{3.683624491284494*^9, 3.683624492096904*^9}}],
Cell[BoxData[
RowBox[{
StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\\\
\"f\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) generates \
a plot of \\!\\(\\*StyleBox[\\\"f\\\", \\\"TI\\\"]\\) as a function of \\!\\(\
\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) from \
\\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]]\\) to \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) plots \
several functions \\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \
\\\"[\\\", RowBox[{StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"], \\\",\\\", \
RowBox[{RowBox[{\\\"{\\\", StyleBox[\\\"x\\\", \\\"TI\\\"], \\\"}\\\"}], \\\"\
\[Element]\\\", StyleBox[\\\"reg\\\", \\\"TI\\\"]}]}], \\\"]\\\"}]\\) takes \
the variable \\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) to be in the \
geometric region \\!\\(\\*StyleBox[\\\"reg\\\", \\\"TI\\\"]\\).\"\>", "MSG"],
"\[NonBreakingSpace]",
ButtonBox[
StyleBox["\[RightSkeleton]", "SR"],
Active->True,
BaseStyle->"Link",
ButtonData->"paclet:ref/Plot"]}]], "Print", "PrintUsage",
CellChangeTimes->{3.68362449367947*^9},
CellTags->"Info-b437559c-70db-4f4a-aa30-7304826586e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"?", "PlotLegends"}]], "Input",
CellChangeTimes->{{3.683624624331328*^9, 3.683624633053432*^9}, {
3.683624728364662*^9, 3.683624732236874*^9}}],
Cell[BoxData[
RowBox[{
StyleBox["\<\"PlotLegends is an option for plot functions that specifies \
what legends to use. \"\>", "MSG"], "\[NonBreakingSpace]",
ButtonBox[
StyleBox["\[RightSkeleton]", "SR"],
Active->True,
BaseStyle->"Link",
ButtonData->"paclet:ref/PlotLegends"]}]], "Print", "PrintUsage",
CellChangeTimes->{3.683624732496306*^9},
CellTags->"Info-6b66c57f-09db-450c-a84d-b69f4f8e8618"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[", "\[IndentingNewLine]",
RowBox[{"Plot", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"runge", "[", "x", "]"}], ",", " ",
RowBox[{"spline", "[", "x", "]"}]}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{"-", "1"}], ",", " ",
RowBox[{"+", "1"}]}], "}"}], ",", " ",
RowBox[{"PlotLegends", " ", "\[Rule]", " ",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\"\<Runge\>\"", ",", " ", "\"\<Spline\>\""}], "}"}], ",",
" ",
RowBox[{"{",
RowBox[{"0.75", ",", "0.75"}], "}"}]}], "]"}]}], ",", " ",
RowBox[{"PlotStyle", " ", "\[Rule]", " ",
RowBox[{"{",
RowBox[{"Black", ",", " ", "Red"}], "}"}]}]}], "]"}],
"\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.683612921052759*^9, 3.683612936765296*^9}, {
3.683613315570691*^9, 3.683613337761959*^9}, {3.683624475359399*^9,
3.6836244857269707`*^9}, {3.683624518094647*^9, 3.683624582422134*^9}, {
3.683624650613986*^9, 3.683624666677512*^9}, {3.6836249742509413`*^9,
3.683624986050825*^9}, {3.6836250232187023`*^9, 3.68362504865027*^9}}],
Cell[BoxData[
TagBox[
GraphicsBox[{{{}, {},
{GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJw1mHk01F/YwJEkZUklW4WsKdrs8fySrCmJEipkrUQqImuWKFtIdmmGSEmy
h2snS4xhjG3M2LLO114k3nnPed+/7vmc+5xz733OXT7PFbVxMbZjYWJismRm
YvrfVg74pre2MMSxmX5c7SsOTO5Kha6tY2jRo7pfrgQHXm+UJZdWMOQ31XVS
ohIHTTPmNhMzGNqa2Dcm8AMHVgnp/W29GCrGQfARGg5eL0i3Jn7BUJNe+OGy
PXhYxql9On0bQ+5KNcJrj/FQzm79wKGKjl6b8YTKamWCXztppsZ6Domf3HNd
9uQHmMoUOKAkPIs+cqTfuqeWA0eHdXdyD02jd0yKV+l+uYDfi1vuez6F8NE3
pyqM8qDOoiUCwSSSCNp1npibD8LpwiIJtAnEd/ar84nYAjA4b+FJDBtHrbm2
XcwNhXD4r72/jN4YUnSXUXt3rARmexzw5efHkKtA8U26UgmU5js2G2iMob2S
tgFa50vAyP4uz4PTYyju5uUpdvMS8Cc4vys4OIa4OAx3Lr0ogZEPj6vVFkdR
5/LPvVfHSyDL5DnTpeRRJH7Dy+xpVikcz0v1d5sbQRf6SVPiWuWgW2nKbTU5
glKO111qNSoHmzbONMPRERR45KOf181ySJj2+S7dN4L+YV9sl9zLgVXq1iql
fgR18NjwG30sh/70Q/cNUkZQ2X/i0hW83yHkdfp1cYMRJMRMqkiY/g7Uxxly
pGwaUjK6fceotBJ8FZ7oDuFoqPXSUrFIUyUIr+rajKXRkCtnJ+5vTyWYecy/
WYyjoZ/Wwy6EpUogeMI/rgAaSsFWqP/kq6DWd6hV5wYN1ZqpN9p8rAJ8qIBT
2U4aOt8FLbgPCJxSXuNS7lIRl6bGtxOj1bDMrh+mZEdF1YJPT/bOVoP/ExaX
rttU1Az5r4JXqyH+0iNVdlMqGjyvu7y2swZqmUwJj4CKkjwcPDVP1oCgHf+W
/j4q+jdUGHEjoAbeWGgULT4bRvUPf1cOSNWCme+NI5/EKKitzUXgVHQd7KpW
rk/ipyD+0IJ7esl1UMXMbxfGRUHvI7ZSnLLqQCKYlGW/PoRa3EZQfUUdLL66
elS0awgpegpsTUzVQXii4cn4gCGkZRCqPXqhHqoLz4E/dRCdZ8fJbbA2gPSM
jIVJ2gAqC+nEDWY0QlFQV+zd2AGUaO3+PCW/ETQPPWvzDx1AbHciGp1QI1he
aVP/7DaAptTPlR8baoTokgcibDoDyJzIvmgq0ARrgd/GS7B+FCKI5jXjmqBF
WN1V6Fw/Sv4e4LAS1wzXi8ezTyr2IyWb23/9Mpth7HIkTUe2Hyno4xcEipth
8/mw8eP9/SjgEJ++d28znJoKUGif6kOts7NRG4I/IKmocd03pg9914kZWsf/
gHuXjIJHRsnozdZ5rQcNLbCpf6Jbto+Mmi8Klef3tkCMDs+RJz/JSFoiRY11
ugXK/+us3lFGRtF9VZ8oXK3Aftpo41gkGVGiJczv3GiFrANGjzyUyWj/DdOK
ioVWGKFett4d0YucTX79Uj3RDuaPLqsrKpJQdpaZH/tUB7wip1orHyOh/B1v
3NI3O6BCfTZYVYyE7CgCi+IcnXCIPeynBhcJ4Tqx5tnDnUBLqb2tM9GDrraP
iy0ZdIJjo8Jzs/gedLHjrdVoZie4Cwg3ea12I+knsolJ1gT44Ht3xnu2G0Vn
jRG/OhOAPFrK7TfSjbbztAp1exJANc/ULPBnNxr8K7mlEkOAf5pRU6+yutFF
Xxn98DoCBN1n2Z16rRs1/4FKE+kuiEWTRqiYiBR3kkUb1rsgzZuJcyqXiKg8
qTJeO4mQrcL/gzeDiC7Z6Y2q8xOh6pvOOftXRMRpF56zoECEyQ9ZJzmtiEiU
Rf3EbjciaETb8lrsJKI0n8OlgnNEmLKiElctutBqiPv8Lqwblg/+iRK50oXc
n6j6FG11w2Y/90V97S50rkimyIWnB/aZQn3qiS40Om7twHeqBzT00gq1tnch
LqWtZDn3Hog7afkmJo+AhBzfhyQwkwBYyNfkmAloZ7taUb1EL0xI3Zrk+d2J
vP7zJFgp9UKk4Zjn0mwnGj+eocyp1wuUhPmUUnInkr2hL/z2fi/4yu8c1czv
RNmJEtmuhb1QYanqcv12J9p1tkZJW4cMjx+ocDM/60BFj62quj374C651jVz
qQ3Jfi7KF9k/CM5E67qyoTZ0+MjZgJ3HB8H1JxPfz6Y2ZLnHdID9wiB41Gt8
X01uQwdMmc0MngxCUH75dl2tNrTgcC6JShqEtNCCpOm4VnTAdq3OJG0IiMrv
6+UVW9DvsoDKJI1hOJsYwF/+tAkdvKwln2VDA0PzqLdn7jShwI2gs2oPaXBL
KJXvi2ETcupoMhzwo4Ffauk+vFgTkjUXv3M2lQa1GRhPZFsj6hMcSwgg00Dn
482dNiKNqPFm3ak9V0bA+LvK+s7meqSdLCu3oTcKjkMLAzcO1KI7xgIGPtfH
4TL12Odm8XJUktb+oNN6Ci7aSlnBWhm6dszaV+/RFOhPiu4tbi9DGm8eQGXQ
FGjN83ni3MtQJ3Iqif0wBcpMzBd8m0vRxnxbyPLsFIiJ9Ayevl+CPJjOYefd
p2Hlts/u9G+F6Ne2NDnMfwYWRz3Q/tBClK9xoFv69QzMO7i5hVsWomdC8TJX
M2Zg2sWB7Lm9EBWHvQx+WjMDFL8reJPr31BU/H7TDaZZaE6XOMvx9ytS4RJj
SvKeBUWU3DsdlIeidF+059+ZA8HdrFNpp/OQXf4//Xuuc/DP7P668chnJKss
HcPlMwf1i2cPfofPiDPyuSlX/BxclaTYvFrPRaWxOe+mG+fANUKELuuag+Qq
FjxJR+hg0h+6NXwoBzku7ND9K0cHJakFnrj2bAQ5ODNWVTpsVtec3jiajaYO
sh2tvUyH8GUbz7bxLKQgI8M07kmHHItMVmcLPLrvvvdleDOjP5uTT5QDj2zm
lHJ7CHRwXXki1VOKQzsqv01s9tNBOUpbX50Phzav4IvmZ+nQWPsripOQgVy4
L/AZcGPwkdsoo8YvA/Fq/HCMPIBBhGVpwRO5DPTSuP3Pl8MYmKyG9gy9eod2
qevMh8tj0HjVRNEyIg0tV9v8l23IiJ8Tv1E/nYo+Dqn49Jow4l+sPDumm4qi
HMr1Ri0wGC2Pr9lgSUFRdUYtUU4YMIn1XUx9mogIUb2SSoEYNH3PcdlOSkCi
BdIJF8IwiDT1inE+nYAo/Tai8lEYCIcJkdXp8Wg58xghJgkDlfmbdyh34lDG
RMzphC8Y3C/HT3nUxyLKv1tlNoUYpAXNuOyRiEUPB2QS2Msw2Cbg6a018Rod
cpWijNdgoDiKWCjar1HduifbwUYMHD+zhXl8iEZ3znFzyLdgkBgoLWtKiESS
q1wnRgkYbB4oVgqNiUB8b32FgnswsPl0Xuv71XBkLwmPmfswONZz66YoKQxh
R6gcYcMYvHaadTJ5G4o4fv0SiBvBYPWfp/sLsxcoMjhG2XMcg2rJN1Fz/UGo
9vorY8I0BhLfxVJEUgIRr9x1Ka05DF5ezs++evM52kauq4rGMMBG1YtCDgUg
C1VF9pIFDD7Mxwc+Qn6oJEN8uXgJA1eBgpS+cz4oqf/A4+gVDFQ124ug3gs9
Ufzkdf43Bqz3Jn9maj9FIT4xfzv+YPAzdtvkrh9P0O326BmFdQwSKg4xuxk8
QvttA/978pexvnEVQXK7K+q9fnMhYgOD68If7b3f3UdMajKrfv8wmHamJuhm
OiCLTzt1DTYx8EV8rfs+2qDvRBUaxmAxsaT1mpsWqLCFs9J5CwO9Brbb5g5X
kNXCYm89g6sz2jlb69SRpbyr/AqDdXFb1Vmy4pApIlm7yeCg9/a/Sn/rQrhc
RxSNwUJ52txabtfgSxwkpjLYa7tzj+kZKxi8Ykc9xeCJb4q4MHk72L1d1zGD
Mf5VG6aHlUfvwrVidoUpxnyreVo0FiRc4NcrmgEHg+OH9UJieNzg+D2Jb6yM
9bUVyzkfi3wM20LAjczIB0vkXpPGXR4g1V3wOngNA2W7P6pWYZ4w/VRAaDcj
fy5nh0TX2bxBc7+4wP1VDLL21rLHBfmCClvi28xlDB48If7mC/CHP1FXcaWL
GOAvllLyN59DrbdT8j06BlB6tMtHPQjeWg1k7ZrFoP9IaoO+dzC45lX6BE9h
wPM34NPY2gvgiCrsZRvDINd+Of2rchggCcvnXDQMtLvsY309XsIPx7c680MY
+OQYePGvhEMut6O3Zi8G/PurnMdPR0JiNlXoGxGDQv8T1gVuUbDEkq+w2YHB
Si6HuOSfaPh22OC8eDMGsoEYR/WTWJgRl54pKMbAUm0v+2exOFjrfHYu5isG
4UuK25M64mCnnWm49icM6Hd8tx7JxMODmaZ8uQwMCrQ4l6WGEoD0ZtyEhXF+
RzdOLOx7mQh90ab2kc8x2FdkQmdWSoJ/OzOw+WcYPJFImRyITga5/CZN1QeM
/LLJDkVppYFTvLrQmBEGTlWX+r0X0iDn1W/eo3oYJLm79TqlpcOwh7yx7jnG
flsanBT1fgcyD/JxXCcxGL4jPvq3JwMcpXkLf3Bh8F7rW++XMDxkymwrVqij
Q7nIhWuSVDyEUuNqDpfRgbhB6k5RzITwiduPJ/LowFq0TggbzYTS7G7WXUl0
sJPQbLuj/gHyuOLvlz2ggzQbofrAQg5Irb7VXNxDhy9N9Bw/sy+wOhsVI6E5
B5RbnD7yOV8gJkt765TCHHCtyhoNr32B3jdyw0el50Ax5syzdMN8eO9zX3iA
cw7iqh+KbtHz4ZVNV9gF8ixcOTjrXHWyAMQz5AWeO81CC4nKpl5SCIr0Qsc3
fjNQqdeirFpbBhV8vh3XwqZg5uN7p0tmtbDEMSL4WnwcVvsdWRqca4F0Scav
de84MO2ST1YLrIW+wUZWzm3jwHfve5t0Xi2QhTInM2ljoCnbLb+NtQ5+Pg2T
PJU+Bgm521dLvtSBlTjfo1ahMdD65PhcdEcDtJ9sFH0nNAqpn+WSl4uaYOCd
ymF7FRo82M0ftvajCS6+ZKduyNJA4x6zx+ZQE9QV34TUQzSgSHcbs7M1w6Ew
z8n1bTQQwXtyCF9rhrdaM+eOdlABn1TveX61Gfw6I20tHKjw6YW5WYxiC6Qb
7vEQY/hLhXXI/hMlbVBpt3dR9/og9PEMEcfb2sDnY0ncIxiEVXQ6JnmkDZq/
95sXSg3CiUM0rh1c7RCiFCH59M8A4PrV2Cm27ZCjwBG0I3kAXl5dWH/F+xN4
Q9ButbF+MLtgSf3l3AF5JKJxckgfeO1L7LnMS4Crlubf+dh74d62a8MPhQkw
/HbYOG2VBJaLvFOxkgTQK1bfqzjO8MfO8I1eVQLEupv0vaklAWu4/xGrOwTg
f8bKtt+XBJHbHB+6FhLgJoidYfvTA7hFRc7X17rgxhVO+2u/u6Gts1urK4nh
yeuex3+IEKHY0ly5Bk+E2e1J6sp7iZAxOSybn8dgm/m8b9uJ4M40wxtZSwR/
zTMhHdNdIHKCmaY3TYSGET2UWNQFT6KO+9SodENRW9qZB4ZdcOhSSFE+uRsc
0mS8m4IJ8LBVSTKKjwQ6bWtnyXyd8HxrKeCaKAkODVx4L7yrE2JO5w8dPEaC
GZH+XjKj/ihMln7z6RwJtBTOrlh0dsCfewKsLfdJkHyh3czlcQf47v5LY60j
wXYKi39R9U94aViV6uXSC5tpZDFBp3bAd2jtt28mAze/9orjcgvwJ8ckP+4i
g43xSpjsaAu8sqeKBg6SYb556fg/Qgu4/Xsm926eDPwuC3btX1rgnOw3nX7+
PrjSwjx5+H4LUEJEvS459UGcUuua368fwK+xSVHk6Ic0oZnyhslmCP9Ukr3j
4gB4CDO/t+VtAkmRs2/p1wbAmWOexWhbE1THVgf3WA/AgO3qPr3lRljy+mGD
8xiAUx7iPLakRjDXGxAG3ACsctBr1JIbQWZiM9p9fQC+7rDVspNqhMbD2p7j
2YOghnvcra7XAMyx3Xp12ylgrGy5KZZfB5up0zYL3BRo7W3WHMDXwXo2k/dh
QQp0p1LfpSTWwXLVsbxnchTQ8SMEqwbWwcR0EO+Z6xTgLD/xm3atDto0FQbw
2RSoORZY0btVCwmLb+6HGAxDu9PPFTHGOT+Qk9uE16XCs2ovfw+RGuD9J6j3
3pAKZ0xvKdw5UAO7r7xsSTemQsPwtlpTrhpgWXNsT7KkgvLjBt3LG9VA15Uk
RrtSIejollksuRoaJ99RvBOo4MlNZjaPqQZ36fgVk0kqDPGQa4o5qoH0wf/I
9lAabAzm2fcLVjHq6119DyJoEL9+wdKTowoWf7+JJMfQ4JWUxH6J9Urg0s1d
y2XUDRvPPdPe91WC9mRPh/E3Glxz6i44k1gJJdKy3u8oNJBn6ZL9KFgJCTk9
3WoKI5C4pOH3QrICLHKPhriNjEByYp9u+u1yEDy82en3awSGYp95/jUuh/4Y
glDE7AhYLyfaWWmXg7nX068fVkegrS7iitbxcjDTaxwc5BiFphjK+0d/y8Dk
l/VpndOj8CPwbqJTYhlcPJJIFQoahfThb/1+A6VwNnmHWoPEGKjzkhN73Etg
NKpsVTxoHIL1pdf4Ogqh8IjfjOjgBLh6RPvdTy4AKs7jFOvBSVB0OjXeSc6H
LukL/ktPp+AF1/D7Gfs8OJx0QaS5chpCyqtLpypyIf7jjTWVjRlIeK9TYeGW
A0Sk2VdqOgcugpjPjfMf4F7NrV0HE+gQW1AYYeCRCTbpffEVqXTQtI06UuWS
CeY+JmKWODqQAzWyzjhmgq6Kvkoy452qOubgcPxGJoh/VXAQaKDDNvlnkYZq
mTD4bnfd/kU6VBQUHtFmyoSL/uVeXBcxGLLqesYWgYfztxTY8q5gUML6I2sh
GA+qZ/NfG17H4IujoDPVFw/SfzKzw20wKOWSqW12xQOr62sShycGCkPj+vUm
eKi87XhqRxbDQ8sa620P4qFQfbQyKxeDENUzoaF8ePgkdEtPm+EJO9gMa75w
4yGp96pVcAUGG57XX7Gz4MH9MuNKZHiI+Qo/jE7gwPl4uQCOzHj3q4Vdxag4
sN2lkKlJwUDuXw6rXR8OjJuOVgQwPMipwu3ycisO9DIzdUQZHlxUocZ8rgEH
/wWKEKsZnlUolcP5ugoHStbJt6wY3iatFuI2VoKD//uvhf//r/0fJxxYHw==
"]]},
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJwt2Wk0FO7bB3BtKgmpVJKtlFRSQoSvRElFCxJZsyVFUlolJEUp4mcryR4x
zNjjRkgiYxlkHTuDGZEWpMdzzv/Vfa7zPffy7r4+55Kwdj5tu5CLi4u1gIvr
/1dZCLH+/eOQ/cE8/gcyYmHguM3vzzSH/PfQhO9JdSxuh+zfOjnFIb2umTvy
BmPxacTEemCEQ/6JnX+atykOlmHRrdXNHFIz/tFE2y8OL75LfwlP55AtdL3A
qLPx+BF7IFXegkNG3kSx+roSIFx7XHeXCYd0HTf8cPVXAjSmzYa2GnLI5AIp
TjdfIp6e9NwifIxDlC+O0J3UErH1b1kUlxKHfDU+OCkbnoizRnpPa/g45KzY
nS03jyUhf5nVFfsiNtG2vVqWF5mMmi6jlh+5bFLNeaL7LCMZzOzjml5UNinc
IX9N61MyuG33C71KYhPZYedNRhPJOF3CX1QfxCY+jabsVUfeYeRW0Up1ezYJ
U1ums3jkHURGNr5fI8Am4Z3LV0RsSsXu0lXr3vKwyc9Hq4q+7U6FZvjSB7uX
sInWleRXcwdT4XBk0kB3eozMSlad+W2biqzYqtn7fWNE8NFzWlpqKvTO3zo+
kjtG3vGo8mkovMf9mqaREqsxoupjc7pAPg3MFu/ilPNjZENxCaP5YBo0++RC
Qs6OEYO3M8uZ+mngnnmifvHEGOE+rNRNvZSGAGm8EFAeI0EeO+iX3qYhwjtR
0UJgjEQZTrbK8aaDpnzzwWzRKJFJNJuh1KVDSFvKaCBvlIgu8tB06UiH+8l6
GTptlKTY8oiIDqdDxX5nY+y7UWIccvy7JBcFJS+ZW4+FjhLJNTck+oQo+MrR
qQ6/PEpon5PVmjQpGI7fsE5JZJQ4RGiuqno5n1v33FBZN0rEdCeqnodTQBNL
aVITHCXPAwp9T76mwCNcNVRr2SjxqhOSK0ikQPCpxdrTP0aITlDfLfV8ClTc
4ldfrh4hX+OuOHJ3UvBEc49A7N0RIpmn+3FQPAPO//44J7iPEL3HlKreLRkw
+FBam+w6QopkMne3SmdAVNEgkOIwQkSGf6tly2Ugc7s7X5HBCIl4Ehe5UyMD
rQKFvN92jpCVQj/bNppnQKZLZzl/B4vITwe6nQzNwOyRn/sSmlnEdEhsdio8
A18psZZq9SxSybl4N/RVBly95nIufWKRb5qvX1fGZSBPimZXmcEiFWXxYxOZ
GdBxEit74Msi5oGizZe+ZsD+z5THj90scnJme5f+wkzErY798c1rmDStVP83
ZJmJj6ZVTwmGiG/h99RHS6igx60eP6wyRII27LW1XkZF59j501/3DRGfXXIN
6iuo+H2fI9SxfYgkO5cu/ytAhWzcmjfTq4dIy9xn1+ciVESMmmcqDA2SobP5
xWL7qHC5N9mU8nyQhF6uTNOypcKjQlVZ3n+QaB0qH7zqQIU/v29k/sNBomtr
H/P2EhUJMestP98eJMOev2v5XKloK1cbHrAZJBa5LSmr71NxmM9vRkJ5kCgr
DbDawqkQiRYRD+seIO5jHUNV9VS8D3+wUrl9gOxZmP/CtYkK9ZcD09+aBkie
c5+BWCsVFo8pjI3VAyTA3snSr5uKt9e0/KOzB8hN3YPLIsapkNZx+pngP0Ae
dJXe/sRPw77vBdVZCgNE4Kz2cPJpGspHxPON5AZIuS1jK/9ZGowGHib+khkg
XRY/5O6Y0uDepu+lLD5AQqS3ddvb0JBf3qtUyDNAjgUY7wq5QYNGxIrYsq5+
8uN1msGxKBqOHTK91fC4n8wu0OnwGaNBxtW9ju7TT6iBYekPJmjgiQne/vV+
P1FWuNT/8BcNlXNfvlVe7yc14vGJcQuycDhfVaXIqp/kDdfmqwplQWOP6EyS
cj8ZJVsIUyMLCmLddz2G+8gP+0Fj7agsrNH723inr4+cXndl4tDbLPy4u2HX
ra4+opo4rH8sKQuZrac6rjH6SHtJjZcbLQtyoaVqF0v6yPiptNk9NVmQWRk3
dya8jySY/Oi15sqG2Iyd5/ajfcTvd3r48OVsjDLs4/IP9ZGhCbpjxvVs5FIc
Ko+p95Hs+untD+9l46Sdo8AV+T6i4hby7uTTbHjWXX6TuamPiEZsVL/1Phs9
iW7FByZ6idAxod8i49lIMPDi0ovsJccFRJasup8D193eW7pCeskVUlJ91S8H
6jw+Oi7PewmdWXeI+SIHzeTh86CHvWQ6xezmQFwOlu14LN7s3EtEibFP+Jcc
OC54rmGp1UtuZD66mrAxF7vSXnm6jvUQeqQYu7AiFzqFhvyWQz2kauHFcbm6
XFhXr3x9oreHtEQ12WW05SKMda9A+lsP2Wlc39E6novF28x/dpb1kK+XlfbV
bcxDa7So07GoHjIttcbL0C0Pvi+iz2451kMGTv6O4pXLR8ybswOrDvcQHhvO
YS3VfHxI57/+T6OHWAq/q3+ik4/vNfeDWhV7SIK5aKGWVT7O81jWPJfsIbmf
xjZdDs6HvLf4ob9/ugl9pw9fxHQ+mG4xsk1J3WTus3MCrbEAHgrXdTpiu4nR
uRzZ/3oKIPJTx7rvdTeRZnpeeDxeAGP38ZCJl91kf2nS3yjeD6i7hb98D7oJ
+xxNwkv7A0o9Or4cOddNegbmgk/kf0Cc34aLecvnz+c8uLOPUgjNo2NexYu7
STXtkLNEcSGYy0uiPv1jkt/MOXsxeiFE/B3ojCkmMTFzCdYbL0TI0xyliW4m
UXVI+nd7TxF8gwy5d+QzSQKDErY2pwgXo17ERjkyyU6/Q9te1RL8WKb7WMmW
SaZFFwsc6yXwvL7Qud6CScouPgvj+0UQqndNZZkhk9zs/2dxib8YpVyGddfA
JJplyW7ZSsUQtl3/T3fN/H2pTUbmT4oRYqqeNXGni2wo1xOV2l8CY49zm1Ml
O4nI2oc5/DmlWFG8vyxifSdR5ds0PFVaiqIF620f83US8061RYNfSyH1sCnB
brqDHFx/dSlroBQT/mdkJOo7yIDXv5Fr6z4iIPzEntAHHcQju3JZ1O2PKKYd
hCeznYS9d0m2OVoG6ZHtpgav24jwCyVdAZ4KZPnUBzsGt5EVq7rUNgpXQFP0
TrWnXxspuHAgcZ9MBc6fqlZ779pGjH19fwXpVuB5zhVx7iNtxKA3yHDOvwJ/
vKn9OZxWwr26XyN01SdUiai5bDzYSprm3KNnt1Xikt7Jhz29LUSQ9qpxj3cV
5nTlGnd8ayGypGlZVmgVgo4IbL7+tYWw3xzsPfKuCvka9OKleS2kMiIsPqqu
CsvkT87ufNZCGnUKRRZJfEHCupPX3Pe3kCMhLrmfS7+gh6lvxfu0mdhJ/ypx
EqzBjY7dFEOvZmJzLaTi+7Ya8LTy/3vt3kwMpD/qPFKrwZ6G2qg91s3E3SuX
2etQA89y/RYjpWYS13J3o01xDUTf6evHdDeR7NUz0b6uX2FyTV9NUbGJ3Pmr
vcC7txb+La+s9u9sInU8O7wD/tTig9roQxXJJpKS0u5fv5QO0WWPv6rzNZHW
kTOfFojS0R1VanFkgEFW15zZWqBLh+DCVT5H2xkkvcfYY9aQDk17i6Rj9QyS
XOJ3XduKjrg9s+P6RQzycvzMcbY7HQ4VCl7GoQzyKG7JUGQ8HeE7fBJMAhgE
/319KJxBR9Xz+qrzXgyy4V5Yy5sPdMxMiXPMbzKI/kbRXtlKOnaaOq+2ujKf
KwknlTXQYVZcqHTBZv7+kCMy1l10PJPiPW9rwiDHZy2dlo7QUfTExNP+JIP4
cfPL5MzSweEkxV08zCAtLgUCkWvqIG74q/KSKoM8y3uR6LuzDifztccu72WQ
/RaHum9p1SHTp0fBVXR+f8HcUne3OtzYIPLp9s9G4haItKrGOiR6OI7cHW0k
v0NNBr+P1qGlN5f/fk/jfH/abiy+pB4qaYbG3l8biW9gR3qQQj3+agYO+yc0
kjTz/XlfQuvh47SQ95VRI6maevvS26QBwWToJMluIFUtJTrvBxrx+i7XyuGU
BtKnZP2oaAEDScrrPwvGNBC+zzv1mkQYKKIeOWjn30B8pM7KbTjDwFBiwp6V
lg3krWb0JRZhQP25jaDp8gZSzxrvSYlowrAls+GnaT3JbN8/K2/QAixsMZJd
UEcqgk8LvW1og2NLqUv8ZDUZtZ1yHFTshmr4g/X5Nz8RHdsRyw2FfXDo+N52
bl0pWXKScmvD4iHoM3e+r9ySTxrfzQw9/sLCcZttlviTR9wPv5RuamJBd0hi
dXZNHhGr7zy6sYcFrXGhW7E38oik3Gb+579Z2M+1QNujMpec0I6kSkqNQFKc
0S7vlEOkP7V29N0dwZTFPd5oKo04FW/1ebN1FBO97mStH43sqD998rfcKMbt
XV0DztMI22+WdeTAKFjO9i23ltCI6Hnri1/1R9F5/1ScwVkqedycHO5+cxSV
0VKqPDMZxGVt/kH5ylEokshmlk8aWajtfHe11RiEeRcPv5ZPI9qUx0E5F8fw
19hp+nTPeyJZU/HyjOsYyiZUNxXgPXnklnzwmvcYzmzttPafTiGrhwRvnYwf
g8tTcfYOl2TSVP9Y/e7gGJJN4xdfNo0jAqqxWxxs2QhIWikkwRNHVAbUd886
seEydX0bIzeWcJZxHX7kxsb+wMO6akKxpENg8o6XNxsVpYOBK+tiSGvYa23e
mPn6jIHi+aevyZ8/onL2rWwoj5td6LzwkjQ/tLRefpgDp/y4YfeyYHLnkrP2
qeMcvPYZcV4lFUxST0RnB57mYNGGW3e1Bl4QQ3uu7ePmHIR7S+8wrHtGBJ6K
hKi7c1C8NSRwrNWHUAOsylckcCBVIBklHuVN3jvzX8tL4eCJPiXpjJkXSa05
q22WwUHieKj3NXKfGJgYqT36wMHX4EVDKz5fJwlnLEov1HMQ9kF0geuxa0Qo
VaG9pJkD635l4ZYaF1Kh3tu/toMD1mVmmE68PXnoap0WPciBBxH6suadNbE+
tMiSMcqBpGTEdImZKRFN2zDINcHB0XJuCxP7UyRad6Wa5K/598bUrPzyUY3U
ULRNlWc50In9V5ywYwt+GgaK5M1x4PPWbjD3lw7ynXx5E/9wsDHtML+WqxHe
3fcsefKDg9tLLjMM91mC+XOtpg2HgwGqYuzj3bZwU+l6Kc/i4Iw119VCGUd4
ZroV/+7jILTrqG+QgCvMmbYfbFo5qM6WvbzzmRss7SbCVzA4WPhstUHFCneo
lqQ6JtVy4KzaITHNfRc9IbxcZWUcxB3P7aTMeeH5pi1U7zQOkCtTf0/NBzzv
q3pakzho3fyqXPfuQ0ietlaRjuVAYOZBat+fR3h2r+JO/H8c3Es+dnv9VACm
C1Zy7fDkYIc3h6f4ejCyRyca7PU5OH9g9bL3ki/hZ+YgEaXDQcCk4pKI2pdg
8bQalh/kgH3B49+17aEIG7YM+SnPQabWyh/bOsIwfq7MhLGOg/3cOzoCtV4j
TkLMzL+Djbda1Ob0x3HIllq5d40VG+mf2Mn3jdMxWrYq1UV3DJ3mK+/tTk5H
3z3+p8UHx8D3c8fJrj/pqA6sCFumPAbFoH13ok9QIHyy+NiDbWN4WXxV4h+b
Agf1+11rF4/h1KbRy0V7MvEsXbCgrmAUVU1MbrUcGhzqv24vkxpF4dGq/Sql
edj3NFhsdT8LI+/eXtQzLkWnpRVNoHMQr97LRv7I+oSFhnXLbof24YOV71q5
nGrktb4N0TPvxu014Qx9wTpsTpFq2ZjYhkuLjLquitSh7GhrVGVAG85PCA4H
b61DV3Z2iLtrG0APmG1WqcPc5Uum7WptWBzgudnyQh0cHC8UlDa24tkih6su
tDoEOPtO8C1qReyE4soXRvV4q2Nhy23dgpfdk0JUy3o0pO8LXqPTAl86RZzh
WA+Xq4YZW2Vb4JAms2/D/Xrcuf53ymi6GbKOoqYxifXYGekrNRzUjNzuJckZ
v+tRKXdDk1nWhGp6o1Z9RAOsJV9E3t7JQPZ5k/0lcQ1wuZ5+LWY1AzFDXTso
aQ2oNDYgNdONuME1IvistAHH/nr0K35uhLjcgu6jrAb8/HWt7bhdI64H7rpX
otwIrkdFnUExDbDcSHWhHGqEuuQpgXWPG6CbuN8m+kQjri6I9o1xaYA4OXTs
nlUjInLzrn9GA6rY5zYoP26Ek9bSarvOeojq+WZRWhqxJb7vc49IPZa1rkiO
7mkEz0dFh7rF9Zi0fRH1bLQRj1tuinya/x8r70V5O3ExoLVOeObThzpQl0u6
m/Iw8KMpGg1xdXgdkuiou4YB6QLrr/0Bdbj2PvOUtDQDK0TH5sTN6mCuvF97
3V4Gdsm35R/VroNOeeF+blUGisPPTN3aVQf5U4d2TmkzMB11sSBjbR1EOyrF
+vQZWO8nJ/z9Lx3LLuqtbjjHQKjCQunM+f5g8kcDd+kFBizENtduYtLR6Xlu
mnKZgZSVJ8ReNNJRyds1Fu3OwFvLurW8n+nIDLPpfvaAgSs3F1CeFdLxagur
8Z4/A4pZsiPrM+lwVZ0qMI1mwFy0Qlkrkg4RpxVP1n1iwF2+dnTqMh1Xvyht
DRRqgl6Ax6mPa+jw+jf5wEiiCTJ5i5bXLqMjSJ7SsWlnEw4t8Bf8NN+P0SKl
Q1IPNqE0Pjj1RFUtfl/asLjKqQl7TMp8djrVwoN3pnvxxybM/rpcIUP9iicn
il7ddm4GVUMx5M+JGsTVaq21q2yBZL1qsGVWFdZHBkW61bfgwPSSPb/fVsHf
jinh3d6CIcMHUa+eV8H17x3ZN+MtePdAt2KVUxUO7qAeaV3/DYzXRz+/3lyF
Tl+J23oXv+FdoGDa4ZDPWK8+16nI04ofRwNmErwqEZCak7T0eBsoQktHr/pU
YKu46n9sozbMUujbeN0qUBxc/JBh1QbeUpE/tAsVmLz92TrWvQ0nvDqx91AF
TI62iSC2DWoCN/9rXViB7QNzz29Mt+HCck+Vdp9yVIgdvtWf1I7J1MqUq8Fl
sAyusq+mtqN4y/VWuk8Zprn1jahF7RDuySpQu1EGWfZZ+QeN7ThuH3pL41wZ
Qj5cHBPh6kCo3CGRYbEy2Jx7amVwtgO6dpWVxekfsSC48ejHJZ0wjrATNv5W
irlXLOvv/J1Y5TxueqCmFNNJXHfFhDvxT+/h5+0lpfhRtDPtjmwnagpzVkkn
l2KA5SO472wnXu17SUu+VYpqTYW2uKRO8LjWK34QKUXYRIiT77EuPPOJLJ1y
LEHI35SHNMMuzCmkG8pbliBoWenrHosumJjxnL9jWAJ/UTZd3a0LeyM9UmQ0
SuChe1jhV1QX8ilU6hKhElx4+/OvPbsLqrK/TJM+FmNdcsqnOB0m7L4Ix7hv
LYbgX+Gjb08w8cyl7e+2TcXgPfWkKvo0EyyXAFr36mIs/ONQE3GeiYi5mQ1X
FxSDrbO14bkLE7mmV8/N5RFUDL3pvBvGhHF2hVniDoIb0qFTBkNMvGhKEXMR
KcLVu0vcT48xcexuGwR5i+BEd/utP8EEXyA1p3ymENY3z8zozjLhN8Hwsmwr
hF6lwIKDAt0QvLrXyCayEFsd/Hl37e+G8LHiS5GihWhK9Ny8xK8bwfZdUnf2
fECf/opvV552QwfM/XMSHzDxK+RZS1A3khLerX8p+AF8Oil/Ul51w1SYf+nv
yQIcHmLUnqZ2Q0P/gHB0TgFypHfcfdPZjZsfDk+aaRYgLJnReEChB8cFjJXV
bPORcMrySbxKDyj/lP/Onc0H7Q8L/Bo9sJa9V1enmw/6Ua6UHt0evEXEtXdy
+VjOknnw2LIHWiNnNmz9m4fbMp67mv174LNv5KNKeB5MU2R8XXt6EDPdbH6z
IxfCYnP0+4M9yKf5HeFqyEVrUN3Gp6M9cNzH5x9SmQuT2zczEn/2QFzzytQg
NRfGRyva23l6MVtutXGHfy4MBq3kj8j34s0g/xdx1Vwc3xzO3OgzXxsYZNxO
zAHvf047tj/uBXdIzJqw1zn4wqNxQ/HZfP7o1sWSkBzoTgysOBXWizmNN/lK
PjnQKdmn5JvaiyvySUUZVjnQsqA/HW/shV1gpFOdaA5UI5ceKJfqQ05/21mX
mGzwXfiZp76jD+I2f82MwrPRLdO/P1euD/FnT5TovMiGb36pYsqBPiyZ+Wd7
+kE26r7d2/viVB/6Cy+E/LLKht36H9vN7vWB/aTkz12pbDwPYa6fauzD4K9c
bf6sLFib1f53pbUPezarbLRNy4KCVJHQUNe8M1K2eJUnZqGVFrmmjdWH6N2F
VfERWZBqNBIo4eoHV1A6rcczC/mCNUuf7uzH0bWK5w7qZ6E3MO/nFp9+FH1J
PbVrkoa9CQEsn8f9eNnu0lo/RoPXB4vOvmf9CDr1t9lziAbx4SUVceH9MIrn
nZnqoMFc83TIlvR+7I85ZXPoMw0tP1jyW1r74WjQ2mEeQ0P1OZGrm+UGwP17
lYbyWRo2unBsvBUG4HOQl6fhNA2OvqXGvSoDyP2WG3JNj4blVAeNWO0BRMhX
FFRq03CYN4t/s+kAvFTmykv20VBcdCJN0ncAtXM6Yz2raaBtvj8i0T6AOYqb
iVcTFVlLIt2kugewVnxF0foGKrIHs/9KDwxAUea3H7WWipwUNr/c+AAs71Gk
f1ZSkS9vvk998SAmxIJN0gqoIIfU7pnsHATHZKiLGUNF1YUZvuC7g1CpFdy9
4CoVzFj3vYs3DeHekENd2Toq6qW1PSdvDoOlrS3Cb5eJ/2TK67k9huHoFr7Y
6UImzu/UlhL2Hsaw9jn/T5aZGNytXaXxdBhB604evm2aiVlF7TXPYoZhbua3
p+ZkJqS0tZOkq4ZhlRHUInogEzettOlmG1lY7OynJcGXCbUL5ZJXxVnwL3r7
5cCKTCy01b7uI8VCYGeV15llmXjqoC2cspuFYsbNM7cXZuKts7bN70MsvPLL
U4v7mYHqe9q/g5xYoKmr7bHozIBYhLZ4ZSELJ5ifnCVSMmDJSh4sKWVhdvnD
qPbEDLxV4Usv+MTCiiNuWcFxGdja1qSWXsfCKdmPnlOvMiAr4mAaOt9nmgoJ
6/s+z4Dq6yehNitHoHfN3qTBLQMmb2t5F5iNgCvsXHKtcgaiJuQbp61G8LVr
+Y1JhQx0aoZF/rAbQUt9IWPV3gxY91rKDLmM4NUYz2Z1mQxc3DJxpNZnBOUm
ez6dEc7AzYQ13q9SR+Cv4lh+8Q8Foe/O/VGeHcHqI7brpjIpGNH79iN6wSha
V9wP/f6eAo1J4/ElS0fx6J3ixoEkClgHjAfrVs3X32zmsl9ToF5jxLi4bRR3
8xe++/mYgn7OmYzw06PwcHT16zanYJ+C3sU/SaMQCnk+uXghBY+/1dhYpI2C
sXbxyNdf6ei8d8KynDrv7Kmbfp4j6fCrOH72RdEo7Ex7JZLr09F+9pj29sZR
zMof/sL7Jh0+t3Ukzv0bhRMzun2JUjoaiOa3XMMxhOg+EJkzSEPr7hWOpSZj
yDbU2iR+JA3M6IbpLxZjiOfyPyCrnIbR+zYiXfPO1lyw3p1vUxq4NXwtlniM
4ZKqtXt773soF3/uP5UwBlNBLe7Iy+8RXXxygvVzDPYzb5KXXE1FgtwG7x8z
Y6C7O87ct0xF6pvu1XNcbBxnm73u1U9FrqerwqoVbFS/VPKwk01FvcbLm0pi
bHwzGtxrzErBkpLmOe8jbKzbVv6t2SwFl0rMV2wKY6Mqu+Niyt53sI7+Fvrh
FRsxUbI3O0TeweSegeT5WDYer/Mu5XC/g46yrnJkGhttOonPaK3J2JKhYL+h
nI2vc5yoAs9ktL/h/bh2go0/PZtOx1Uk4bhn/m2+eZeP9JVt5lZOxCFzBe60
U/MODF1stkgsESqqlBcnznKgVfRlrH1xIqR/xycFWHPgxbYM30JPwGKXF008
t+ZzhXzKQtsEFFo47F067/Q+349vOh/Fg6bWW5gw7/RJueS8oEvxSN1ofvTw
vNPdNFuUJPTjEdF8xvLhvNOF1nsPVq+Nxw39edI0cCAyKZpqGhOHy7vyN8S2
cHBI/cKjLu842KxQiNfsnHf1cN1XVbs4nP4k8+HBMAcb2l5LecvE4Wh8/BGJ
eTf/tcj6eYk3Dhre4g3F867+XmyXs4sdCyWrSHPLaQ64NgXqVNbG4n/zaCj9
bx79f+zMAGE=
"]]}}, InsetBox[
TemplateBox[{"\"Runge\"","\"Spline\""},
"LineLegend",
DisplayFunction->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
AbsoluteThickness[1.6],
GrayLevel[0]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
AbsoluteThickness[1.6],
GrayLevel[0]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"LineLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
GrayLevel[0],
RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
True, FrameStyle -> GrayLevel[0.], FrameTicks -> None,
PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"],
Appearance -> None, BaseStyle -> {}, BaselinePosition ->
Baseline, DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
GrayLevel[0];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["GrayLevelColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
GrayLevel[0], Editable -> False, Selectable -> False]}],
"]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[1, 0, 0],
RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
"RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
BaselinePosition -> Baseline, DefaultBaseStyle -> {},
ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[1, 0, 0];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[1, 0, 0], Editable -> False, Selectable ->
False]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{#, ",", #2}], "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.75, 0.75}], ImageScaled[{0.5, 0.5}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->{{-1, 1}, {0., 0.9999994079562567}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{{}, {}, {
Directive[
Opacity[1.],
AbsoluteThickness[1.6],
GrayLevel[0]],
Line[CompressedData["
1:eJw1mHk01F/YwJEkZUklW4WsKdrs8fySrCmJEipkrUQqImuWKFtIdmmGSEmy
h2snS4xhjG3M2LLO114k3nnPed+/7vmc+5xz733OXT7PFbVxMbZjYWJismRm
YvrfVg74pre2MMSxmX5c7SsOTO5Kha6tY2jRo7pfrgQHXm+UJZdWMOQ31XVS
ohIHTTPmNhMzGNqa2Dcm8AMHVgnp/W29GCrGQfARGg5eL0i3Jn7BUJNe+OGy
PXhYxql9On0bQ+5KNcJrj/FQzm79wKGKjl6b8YTKamWCXztppsZ6Domf3HNd
9uQHmMoUOKAkPIs+cqTfuqeWA0eHdXdyD02jd0yKV+l+uYDfi1vuez6F8NE3
pyqM8qDOoiUCwSSSCNp1npibD8LpwiIJtAnEd/ar84nYAjA4b+FJDBtHrbm2
XcwNhXD4r72/jN4YUnSXUXt3rARmexzw5efHkKtA8U26UgmU5js2G2iMob2S
tgFa50vAyP4uz4PTYyju5uUpdvMS8Cc4vys4OIa4OAx3Lr0ogZEPj6vVFkdR
5/LPvVfHSyDL5DnTpeRRJH7Dy+xpVikcz0v1d5sbQRf6SVPiWuWgW2nKbTU5
glKO111qNSoHmzbONMPRERR45KOf181ySJj2+S7dN4L+YV9sl9zLgVXq1iql
fgR18NjwG30sh/70Q/cNUkZQ2X/i0hW83yHkdfp1cYMRJMRMqkiY/g7Uxxly
pGwaUjK6fceotBJ8FZ7oDuFoqPXSUrFIUyUIr+rajKXRkCtnJ+5vTyWYecy/
WYyjoZ/Wwy6EpUogeMI/rgAaSsFWqP/kq6DWd6hV5wYN1ZqpN9p8rAJ8qIBT
2U4aOt8FLbgPCJxSXuNS7lIRl6bGtxOj1bDMrh+mZEdF1YJPT/bOVoP/ExaX
rttU1Az5r4JXqyH+0iNVdlMqGjyvu7y2swZqmUwJj4CKkjwcPDVP1oCgHf+W
/j4q+jdUGHEjoAbeWGgULT4bRvUPf1cOSNWCme+NI5/EKKitzUXgVHQd7KpW
rk/ipyD+0IJ7esl1UMXMbxfGRUHvI7ZSnLLqQCKYlGW/PoRa3EZQfUUdLL66
elS0awgpegpsTUzVQXii4cn4gCGkZRCqPXqhHqoLz4E/dRCdZ8fJbbA2gPSM
jIVJ2gAqC+nEDWY0QlFQV+zd2AGUaO3+PCW/ETQPPWvzDx1AbHciGp1QI1he
aVP/7DaAptTPlR8baoTokgcibDoDyJzIvmgq0ARrgd/GS7B+FCKI5jXjmqBF
WN1V6Fw/Sv4e4LAS1wzXi8ezTyr2IyWb23/9Mpth7HIkTUe2Hyno4xcEipth
8/mw8eP9/SjgEJ++d28znJoKUGif6kOts7NRG4I/IKmocd03pg9914kZWsf/
gHuXjIJHRsnozdZ5rQcNLbCpf6Jbto+Mmi8Klef3tkCMDs+RJz/JSFoiRY11
ugXK/+us3lFGRtF9VZ8oXK3Aftpo41gkGVGiJczv3GiFrANGjzyUyWj/DdOK
ioVWGKFett4d0YucTX79Uj3RDuaPLqsrKpJQdpaZH/tUB7wip1orHyOh/B1v
3NI3O6BCfTZYVYyE7CgCi+IcnXCIPeynBhcJ4Tqx5tnDnUBLqb2tM9GDrraP
iy0ZdIJjo8Jzs/gedLHjrdVoZie4Cwg3ea12I+knsolJ1gT44Ht3xnu2G0Vn
jRG/OhOAPFrK7TfSjbbztAp1exJANc/ULPBnNxr8K7mlEkOAf5pRU6+yutFF
Xxn98DoCBN1n2Z16rRs1/4FKE+kuiEWTRqiYiBR3kkUb1rsgzZuJcyqXiKg8
qTJeO4mQrcL/gzeDiC7Z6Y2q8xOh6pvOOftXRMRpF56zoECEyQ9ZJzmtiEiU
Rf3EbjciaETb8lrsJKI0n8OlgnNEmLKiElctutBqiPv8Lqwblg/+iRK50oXc
n6j6FG11w2Y/90V97S50rkimyIWnB/aZQn3qiS40Om7twHeqBzT00gq1tnch
LqWtZDn3Hog7afkmJo+AhBzfhyQwkwBYyNfkmAloZ7taUb1EL0xI3Zrk+d2J
vP7zJFgp9UKk4Zjn0mwnGj+eocyp1wuUhPmUUnInkr2hL/z2fi/4yu8c1czv
RNmJEtmuhb1QYanqcv12J9p1tkZJW4cMjx+ocDM/60BFj62quj374C651jVz
qQ3Jfi7KF9k/CM5E67qyoTZ0+MjZgJ3HB8H1JxPfz6Y2ZLnHdID9wiB41Gt8
X01uQwdMmc0MngxCUH75dl2tNrTgcC6JShqEtNCCpOm4VnTAdq3OJG0IiMrv
6+UVW9DvsoDKJI1hOJsYwF/+tAkdvKwln2VDA0PzqLdn7jShwI2gs2oPaXBL
KJXvi2ETcupoMhzwo4Ffauk+vFgTkjUXv3M2lQa1GRhPZFsj6hMcSwgg00Dn
482dNiKNqPFm3ak9V0bA+LvK+s7meqSdLCu3oTcKjkMLAzcO1KI7xgIGPtfH
4TL12Odm8XJUktb+oNN6Ci7aSlnBWhm6dszaV+/RFOhPiu4tbi9DGm8eQGXQ
FGjN83ni3MtQJ3Iqif0wBcpMzBd8m0vRxnxbyPLsFIiJ9Ayevl+CPJjOYefd
p2Hlts/u9G+F6Ne2NDnMfwYWRz3Q/tBClK9xoFv69QzMO7i5hVsWomdC8TJX
M2Zg2sWB7Lm9EBWHvQx+WjMDFL8reJPr31BU/H7TDaZZaE6XOMvx9ytS4RJj
SvKeBUWU3DsdlIeidF+059+ZA8HdrFNpp/OQXf4//Xuuc/DP7P668chnJKss
HcPlMwf1i2cPfofPiDPyuSlX/BxclaTYvFrPRaWxOe+mG+fANUKELuuag+Qq
FjxJR+hg0h+6NXwoBzku7ND9K0cHJakFnrj2bAQ5ODNWVTpsVtec3jiajaYO
sh2tvUyH8GUbz7bxLKQgI8M07kmHHItMVmcLPLrvvvdleDOjP5uTT5QDj2zm
lHJ7CHRwXXki1VOKQzsqv01s9tNBOUpbX50Phzav4IvmZ+nQWPsripOQgVy4
L/AZcGPwkdsoo8YvA/Fq/HCMPIBBhGVpwRO5DPTSuP3Pl8MYmKyG9gy9eod2
qevMh8tj0HjVRNEyIg0tV9v8l23IiJ8Tv1E/nYo+Dqn49Jow4l+sPDumm4qi
HMr1Ri0wGC2Pr9lgSUFRdUYtUU4YMIn1XUx9mogIUb2SSoEYNH3PcdlOSkCi
BdIJF8IwiDT1inE+nYAo/Tai8lEYCIcJkdXp8Wg58xghJgkDlfmbdyh34lDG
RMzphC8Y3C/HT3nUxyLKv1tlNoUYpAXNuOyRiEUPB2QS2Msw2Cbg6a018Rod
cpWijNdgoDiKWCjar1HduifbwUYMHD+zhXl8iEZ3znFzyLdgkBgoLWtKiESS
q1wnRgkYbB4oVgqNiUB8b32FgnswsPl0Xuv71XBkLwmPmfswONZz66YoKQxh
R6gcYcMYvHaadTJ5G4o4fv0SiBvBYPWfp/sLsxcoMjhG2XMcg2rJN1Fz/UGo
9vorY8I0BhLfxVJEUgIRr9x1Ka05DF5ezs++evM52kauq4rGMMBG1YtCDgUg
C1VF9pIFDD7Mxwc+Qn6oJEN8uXgJA1eBgpS+cz4oqf/A4+gVDFQ124ug3gs9
Ufzkdf43Bqz3Jn9maj9FIT4xfzv+YPAzdtvkrh9P0O326BmFdQwSKg4xuxk8
QvttA/978pexvnEVQXK7K+q9fnMhYgOD68If7b3f3UdMajKrfv8wmHamJuhm
OiCLTzt1DTYx8EV8rfs+2qDvRBUaxmAxsaT1mpsWqLCFs9J5CwO9Brbb5g5X
kNXCYm89g6sz2jlb69SRpbyr/AqDdXFb1Vmy4pApIlm7yeCg9/a/Sn/rQrhc
RxSNwUJ52txabtfgSxwkpjLYa7tzj+kZKxi8Ykc9xeCJb4q4MHk72L1d1zGD
Mf5VG6aHlUfvwrVidoUpxnyreVo0FiRc4NcrmgEHg+OH9UJieNzg+D2Jb6yM
9bUVyzkfi3wM20LAjczIB0vkXpPGXR4g1V3wOngNA2W7P6pWYZ4w/VRAaDcj
fy5nh0TX2bxBc7+4wP1VDLL21rLHBfmCClvi28xlDB48If7mC/CHP1FXcaWL
GOAvllLyN59DrbdT8j06BlB6tMtHPQjeWg1k7ZrFoP9IaoO+dzC45lX6BE9h
wPM34NPY2gvgiCrsZRvDINd+Of2rchggCcvnXDQMtLvsY309XsIPx7c680MY
+OQYePGvhEMut6O3Zi8G/PurnMdPR0JiNlXoGxGDQv8T1gVuUbDEkq+w2YHB
Si6HuOSfaPh22OC8eDMGsoEYR/WTWJgRl54pKMbAUm0v+2exOFjrfHYu5isG
4UuK25M64mCnnWm49icM6Hd8tx7JxMODmaZ8uQwMCrQ4l6WGEoD0ZtyEhXF+
RzdOLOx7mQh90ab2kc8x2FdkQmdWSoJ/OzOw+WcYPJFImRyITga5/CZN1QeM
/LLJDkVppYFTvLrQmBEGTlWX+r0X0iDn1W/eo3oYJLm79TqlpcOwh7yx7jnG
flsanBT1fgcyD/JxXCcxGL4jPvq3JwMcpXkLf3Bh8F7rW++XMDxkymwrVqij
Q7nIhWuSVDyEUuNqDpfRgbhB6k5RzITwiduPJ/LowFq0TggbzYTS7G7WXUl0
sJPQbLuj/gHyuOLvlz2ggzQbofrAQg5Irb7VXNxDhy9N9Bw/sy+wOhsVI6E5
B5RbnD7yOV8gJkt765TCHHCtyhoNr32B3jdyw0el50Ax5syzdMN8eO9zX3iA
cw7iqh+KbtHz4ZVNV9gF8ixcOTjrXHWyAMQz5AWeO81CC4nKpl5SCIr0Qsc3
fjNQqdeirFpbBhV8vh3XwqZg5uN7p0tmtbDEMSL4WnwcVvsdWRqca4F0Scav
de84MO2ST1YLrIW+wUZWzm3jwHfve5t0Xi2QhTInM2ljoCnbLb+NtQ5+Pg2T
PJU+Bgm521dLvtSBlTjfo1ahMdD65PhcdEcDtJ9sFH0nNAqpn+WSl4uaYOCd
ymF7FRo82M0ftvajCS6+ZKduyNJA4x6zx+ZQE9QV34TUQzSgSHcbs7M1w6Ew
z8n1bTQQwXtyCF9rhrdaM+eOdlABn1TveX61Gfw6I20tHKjw6YW5WYxiC6Qb
7vEQY/hLhXXI/hMlbVBpt3dR9/og9PEMEcfb2sDnY0ncIxiEVXQ6JnmkDZq/
95sXSg3CiUM0rh1c7RCiFCH59M8A4PrV2Cm27ZCjwBG0I3kAXl5dWH/F+xN4
Q9ButbF+MLtgSf3l3AF5JKJxckgfeO1L7LnMS4Crlubf+dh74d62a8MPhQkw
/HbYOG2VBJaLvFOxkgTQK1bfqzjO8MfO8I1eVQLEupv0vaklAWu4/xGrOwTg
f8bKtt+XBJHbHB+6FhLgJoidYfvTA7hFRc7X17rgxhVO+2u/u6Gts1urK4nh
yeuex3+IEKHY0ly5Bk+E2e1J6sp7iZAxOSybn8dgm/m8b9uJ4M40wxtZSwR/
zTMhHdNdIHKCmaY3TYSGET2UWNQFT6KO+9SodENRW9qZB4ZdcOhSSFE+uRsc
0mS8m4IJ8LBVSTKKjwQ6bWtnyXyd8HxrKeCaKAkODVx4L7yrE2JO5w8dPEaC
GZH+XjKj/ihMln7z6RwJtBTOrlh0dsCfewKsLfdJkHyh3czlcQf47v5LY60j
wXYKi39R9U94aViV6uXSC5tpZDFBp3bAd2jtt28mAze/9orjcgvwJ8ckP+4i
g43xSpjsaAu8sqeKBg6SYb556fg/Qgu4/Xsm926eDPwuC3btX1rgnOw3nX7+
PrjSwjx5+H4LUEJEvS459UGcUuua368fwK+xSVHk6Ic0oZnyhslmCP9Ukr3j
4gB4CDO/t+VtAkmRs2/p1wbAmWOexWhbE1THVgf3WA/AgO3qPr3lRljy+mGD
8xiAUx7iPLakRjDXGxAG3ACsctBr1JIbQWZiM9p9fQC+7rDVspNqhMbD2p7j
2YOghnvcra7XAMyx3Xp12ylgrGy5KZZfB5up0zYL3BRo7W3WHMDXwXo2k/dh
QQp0p1LfpSTWwXLVsbxnchTQ8SMEqwbWwcR0EO+Z6xTgLD/xm3atDto0FQbw
2RSoORZY0btVCwmLb+6HGAxDu9PPFTHGOT+Qk9uE16XCs2ovfw+RGuD9J6j3
3pAKZ0xvKdw5UAO7r7xsSTemQsPwtlpTrhpgWXNsT7KkgvLjBt3LG9VA15Uk
RrtSIejollksuRoaJ99RvBOo4MlNZjaPqQZ36fgVk0kqDPGQa4o5qoH0wf/I
9lAabAzm2fcLVjHq6119DyJoEL9+wdKTowoWf7+JJMfQ4JWUxH6J9Urg0s1d
y2XUDRvPPdPe91WC9mRPh/E3Glxz6i44k1gJJdKy3u8oNJBn6ZL9KFgJCTk9
3WoKI5C4pOH3QrICLHKPhriNjEByYp9u+u1yEDy82en3awSGYp95/jUuh/4Y
glDE7AhYLyfaWWmXg7nX068fVkegrS7iitbxcjDTaxwc5BiFphjK+0d/y8Dk
l/VpndOj8CPwbqJTYhlcPJJIFQoahfThb/1+A6VwNnmHWoPEGKjzkhN73Etg
NKpsVTxoHIL1pdf4Ogqh8IjfjOjgBLh6RPvdTy4AKs7jFOvBSVB0OjXeSc6H
LukL/ktPp+AF1/D7Gfs8OJx0QaS5chpCyqtLpypyIf7jjTWVjRlIeK9TYeGW
A0Sk2VdqOgcugpjPjfMf4F7NrV0HE+gQW1AYYeCRCTbpffEVqXTQtI06UuWS
CeY+JmKWODqQAzWyzjhmgq6Kvkoy452qOubgcPxGJoh/VXAQaKDDNvlnkYZq
mTD4bnfd/kU6VBQUHtFmyoSL/uVeXBcxGLLqesYWgYfztxTY8q5gUML6I2sh
GA+qZ/NfG17H4IujoDPVFw/SfzKzw20wKOWSqW12xQOr62sShycGCkPj+vUm
eKi87XhqRxbDQ8sa620P4qFQfbQyKxeDENUzoaF8ePgkdEtPm+EJO9gMa75w
4yGp96pVcAUGG57XX7Gz4MH9MuNKZHiI+Qo/jE7gwPl4uQCOzHj3q4Vdxag4
sN2lkKlJwUDuXw6rXR8OjJuOVgQwPMipwu3ycisO9DIzdUQZHlxUocZ8rgEH
/wWKEKsZnlUolcP5ugoHStbJt6wY3iatFuI2VoKD//uvhf//r/0fJxxYHw==
"]]}, {
Directive[
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]],
Line[CompressedData["
1:eJwt2Wk0FO7bB3BtKgmpVJKtlFRSQoSvRElFCxJZsyVFUlolJEUp4mcryR4x
zNjjRkgiYxlkHTuDGZEWpMdzzv/Vfa7zPffy7r4+55Kwdj5tu5CLi4u1gIvr
/1dZCLH+/eOQ/cE8/gcyYmHguM3vzzSH/PfQhO9JdSxuh+zfOjnFIb2umTvy
BmPxacTEemCEQ/6JnX+atykOlmHRrdXNHFIz/tFE2y8OL75LfwlP55AtdL3A
qLPx+BF7IFXegkNG3kSx+roSIFx7XHeXCYd0HTf8cPVXAjSmzYa2GnLI5AIp
TjdfIp6e9NwifIxDlC+O0J3UErH1b1kUlxKHfDU+OCkbnoizRnpPa/g45KzY
nS03jyUhf5nVFfsiNtG2vVqWF5mMmi6jlh+5bFLNeaL7LCMZzOzjml5UNinc
IX9N61MyuG33C71KYhPZYedNRhPJOF3CX1QfxCY+jabsVUfeYeRW0Up1ezYJ
U1ums3jkHURGNr5fI8Am4Z3LV0RsSsXu0lXr3vKwyc9Hq4q+7U6FZvjSB7uX
sInWleRXcwdT4XBk0kB3eozMSlad+W2biqzYqtn7fWNE8NFzWlpqKvTO3zo+
kjtG3vGo8mkovMf9mqaREqsxoupjc7pAPg3MFu/ilPNjZENxCaP5YBo0++RC
Qs6OEYO3M8uZ+mngnnmifvHEGOE+rNRNvZSGAGm8EFAeI0EeO+iX3qYhwjtR
0UJgjEQZTrbK8aaDpnzzwWzRKJFJNJuh1KVDSFvKaCBvlIgu8tB06UiH+8l6
GTptlKTY8oiIDqdDxX5nY+y7UWIccvy7JBcFJS+ZW4+FjhLJNTck+oQo+MrR
qQ6/PEpon5PVmjQpGI7fsE5JZJQ4RGiuqno5n1v33FBZN0rEdCeqnodTQBNL
aVITHCXPAwp9T76mwCNcNVRr2SjxqhOSK0ikQPCpxdrTP0aITlDfLfV8ClTc
4ldfrh4hX+OuOHJ3UvBEc49A7N0RIpmn+3FQPAPO//44J7iPEL3HlKreLRkw
+FBam+w6QopkMne3SmdAVNEgkOIwQkSGf6tly2Ugc7s7X5HBCIl4Ehe5UyMD
rQKFvN92jpCVQj/bNppnQKZLZzl/B4vITwe6nQzNwOyRn/sSmlnEdEhsdio8
A18psZZq9SxSybl4N/RVBly95nIufWKRb5qvX1fGZSBPimZXmcEiFWXxYxOZ
GdBxEit74Msi5oGizZe+ZsD+z5THj90scnJme5f+wkzErY798c1rmDStVP83
ZJmJj6ZVTwmGiG/h99RHS6igx60eP6wyRII27LW1XkZF59j501/3DRGfXXIN
6iuo+H2fI9SxfYgkO5cu/ytAhWzcmjfTq4dIy9xn1+ciVESMmmcqDA2SobP5
xWL7qHC5N9mU8nyQhF6uTNOypcKjQlVZ3n+QaB0qH7zqQIU/v29k/sNBomtr
H/P2EhUJMestP98eJMOev2v5XKloK1cbHrAZJBa5LSmr71NxmM9vRkJ5kCgr
DbDawqkQiRYRD+seIO5jHUNV9VS8D3+wUrl9gOxZmP/CtYkK9ZcD09+aBkie
c5+BWCsVFo8pjI3VAyTA3snSr5uKt9e0/KOzB8hN3YPLIsapkNZx+pngP0Ae
dJXe/sRPw77vBdVZCgNE4Kz2cPJpGspHxPON5AZIuS1jK/9ZGowGHib+khkg
XRY/5O6Y0uDepu+lLD5AQqS3ddvb0JBf3qtUyDNAjgUY7wq5QYNGxIrYsq5+
8uN1msGxKBqOHTK91fC4n8wu0OnwGaNBxtW9ju7TT6iBYekPJmjgiQne/vV+
P1FWuNT/8BcNlXNfvlVe7yc14vGJcQuycDhfVaXIqp/kDdfmqwplQWOP6EyS
cj8ZJVsIUyMLCmLddz2G+8gP+0Fj7agsrNH723inr4+cXndl4tDbLPy4u2HX
ra4+opo4rH8sKQuZrac6rjH6SHtJjZcbLQtyoaVqF0v6yPiptNk9NVmQWRk3
dya8jySY/Oi15sqG2Iyd5/ajfcTvd3r48OVsjDLs4/IP9ZGhCbpjxvVs5FIc
Ko+p95Hs+untD+9l46Sdo8AV+T6i4hby7uTTbHjWXX6TuamPiEZsVL/1Phs9
iW7FByZ6idAxod8i49lIMPDi0ovsJccFRJasup8D193eW7pCeskVUlJ91S8H
6jw+Oi7PewmdWXeI+SIHzeTh86CHvWQ6xezmQFwOlu14LN7s3EtEibFP+Jcc
OC54rmGp1UtuZD66mrAxF7vSXnm6jvUQeqQYu7AiFzqFhvyWQz2kauHFcbm6
XFhXr3x9oreHtEQ12WW05SKMda9A+lsP2Wlc39E6novF28x/dpb1kK+XlfbV
bcxDa7So07GoHjIttcbL0C0Pvi+iz2451kMGTv6O4pXLR8ybswOrDvcQHhvO
YS3VfHxI57/+T6OHWAq/q3+ik4/vNfeDWhV7SIK5aKGWVT7O81jWPJfsIbmf
xjZdDs6HvLf4ob9/ugl9pw9fxHQ+mG4xsk1J3WTus3MCrbEAHgrXdTpiu4nR
uRzZ/3oKIPJTx7rvdTeRZnpeeDxeAGP38ZCJl91kf2nS3yjeD6i7hb98D7oJ
+xxNwkv7A0o9Or4cOddNegbmgk/kf0Cc34aLecvnz+c8uLOPUgjNo2NexYu7
STXtkLNEcSGYy0uiPv1jkt/MOXsxeiFE/B3ojCkmMTFzCdYbL0TI0xyliW4m
UXVI+nd7TxF8gwy5d+QzSQKDErY2pwgXo17ERjkyyU6/Q9te1RL8WKb7WMmW
SaZFFwsc6yXwvL7Qud6CScouPgvj+0UQqndNZZkhk9zs/2dxib8YpVyGddfA
JJplyW7ZSsUQtl3/T3fN/H2pTUbmT4oRYqqeNXGni2wo1xOV2l8CY49zm1Ml
O4nI2oc5/DmlWFG8vyxifSdR5ds0PFVaiqIF620f83US8061RYNfSyH1sCnB
brqDHFx/dSlroBQT/mdkJOo7yIDXv5Fr6z4iIPzEntAHHcQju3JZ1O2PKKYd
hCeznYS9d0m2OVoG6ZHtpgav24jwCyVdAZ4KZPnUBzsGt5EVq7rUNgpXQFP0
TrWnXxspuHAgcZ9MBc6fqlZ779pGjH19fwXpVuB5zhVx7iNtxKA3yHDOvwJ/
vKn9OZxWwr26XyN01SdUiai5bDzYSprm3KNnt1Xikt7Jhz29LUSQ9qpxj3cV
5nTlGnd8ayGypGlZVmgVgo4IbL7+tYWw3xzsPfKuCvka9OKleS2kMiIsPqqu
CsvkT87ufNZCGnUKRRZJfEHCupPX3Pe3kCMhLrmfS7+gh6lvxfu0mdhJ/ypx
EqzBjY7dFEOvZmJzLaTi+7Ya8LTy/3vt3kwMpD/qPFKrwZ6G2qg91s3E3SuX
2etQA89y/RYjpWYS13J3o01xDUTf6evHdDeR7NUz0b6uX2FyTV9NUbGJ3Pmr
vcC7txb+La+s9u9sInU8O7wD/tTig9roQxXJJpKS0u5fv5QO0WWPv6rzNZHW
kTOfFojS0R1VanFkgEFW15zZWqBLh+DCVT5H2xkkvcfYY9aQDk17i6Rj9QyS
XOJ3XduKjrg9s+P6RQzycvzMcbY7HQ4VCl7GoQzyKG7JUGQ8HeE7fBJMAhgE
/319KJxBR9Xz+qrzXgyy4V5Yy5sPdMxMiXPMbzKI/kbRXtlKOnaaOq+2ujKf
KwknlTXQYVZcqHTBZv7+kCMy1l10PJPiPW9rwiDHZy2dlo7QUfTExNP+JIP4
cfPL5MzSweEkxV08zCAtLgUCkWvqIG74q/KSKoM8y3uR6LuzDifztccu72WQ
/RaHum9p1SHTp0fBVXR+f8HcUne3OtzYIPLp9s9G4haItKrGOiR6OI7cHW0k
v0NNBr+P1qGlN5f/fk/jfH/abiy+pB4qaYbG3l8biW9gR3qQQj3+agYO+yc0
kjTz/XlfQuvh47SQ95VRI6maevvS26QBwWToJMluIFUtJTrvBxrx+i7XyuGU
BtKnZP2oaAEDScrrPwvGNBC+zzv1mkQYKKIeOWjn30B8pM7KbTjDwFBiwp6V
lg3krWb0JRZhQP25jaDp8gZSzxrvSYlowrAls+GnaT3JbN8/K2/QAixsMZJd
UEcqgk8LvW1og2NLqUv8ZDUZtZ1yHFTshmr4g/X5Nz8RHdsRyw2FfXDo+N52
bl0pWXKScmvD4iHoM3e+r9ySTxrfzQw9/sLCcZttlviTR9wPv5RuamJBd0hi
dXZNHhGr7zy6sYcFrXGhW7E38oik3Gb+579Z2M+1QNujMpec0I6kSkqNQFKc
0S7vlEOkP7V29N0dwZTFPd5oKo04FW/1ebN1FBO97mStH43sqD998rfcKMbt
XV0DztMI22+WdeTAKFjO9i23ltCI6Hnri1/1R9F5/1ScwVkqedycHO5+cxSV
0VKqPDMZxGVt/kH5ylEokshmlk8aWajtfHe11RiEeRcPv5ZPI9qUx0E5F8fw
19hp+nTPeyJZU/HyjOsYyiZUNxXgPXnklnzwmvcYzmzttPafTiGrhwRvnYwf
g8tTcfYOl2TSVP9Y/e7gGJJN4xdfNo0jAqqxWxxs2QhIWikkwRNHVAbUd886
seEydX0bIzeWcJZxHX7kxsb+wMO6akKxpENg8o6XNxsVpYOBK+tiSGvYa23e
mPn6jIHi+aevyZ8/onL2rWwoj5td6LzwkjQ/tLRefpgDp/y4YfeyYHLnkrP2
qeMcvPYZcV4lFUxST0RnB57mYNGGW3e1Bl4QQ3uu7ePmHIR7S+8wrHtGBJ6K
hKi7c1C8NSRwrNWHUAOsylckcCBVIBklHuVN3jvzX8tL4eCJPiXpjJkXSa05
q22WwUHieKj3NXKfGJgYqT36wMHX4EVDKz5fJwlnLEov1HMQ9kF0geuxa0Qo
VaG9pJkD635l4ZYaF1Kh3tu/toMD1mVmmE68PXnoap0WPciBBxH6suadNbE+
tMiSMcqBpGTEdImZKRFN2zDINcHB0XJuCxP7UyRad6Wa5K/598bUrPzyUY3U
ULRNlWc50In9V5ywYwt+GgaK5M1x4PPWbjD3lw7ynXx5E/9wsDHtML+WqxHe
3fcsefKDg9tLLjMM91mC+XOtpg2HgwGqYuzj3bZwU+l6Kc/i4Iw119VCGUd4
ZroV/+7jILTrqG+QgCvMmbYfbFo5qM6WvbzzmRss7SbCVzA4WPhstUHFCneo
lqQ6JtVy4KzaITHNfRc9IbxcZWUcxB3P7aTMeeH5pi1U7zQOkCtTf0/NBzzv
q3pakzho3fyqXPfuQ0ietlaRjuVAYOZBat+fR3h2r+JO/H8c3Es+dnv9VACm
C1Zy7fDkYIc3h6f4ejCyRyca7PU5OH9g9bL3ki/hZ+YgEaXDQcCk4pKI2pdg
8bQalh/kgH3B49+17aEIG7YM+SnPQabWyh/bOsIwfq7MhLGOg/3cOzoCtV4j
TkLMzL+Djbda1Ob0x3HIllq5d40VG+mf2Mn3jdMxWrYq1UV3DJ3mK+/tTk5H
3z3+p8UHx8D3c8fJrj/pqA6sCFumPAbFoH13ok9QIHyy+NiDbWN4WXxV4h+b
Agf1+11rF4/h1KbRy0V7MvEsXbCgrmAUVU1MbrUcGhzqv24vkxpF4dGq/Sql
edj3NFhsdT8LI+/eXtQzLkWnpRVNoHMQr97LRv7I+oSFhnXLbof24YOV71q5
nGrktb4N0TPvxu014Qx9wTpsTpFq2ZjYhkuLjLquitSh7GhrVGVAG85PCA4H
b61DV3Z2iLtrG0APmG1WqcPc5Uum7WptWBzgudnyQh0cHC8UlDa24tkih6su
tDoEOPtO8C1qReyE4soXRvV4q2Nhy23dgpfdk0JUy3o0pO8LXqPTAl86RZzh
WA+Xq4YZW2Vb4JAms2/D/Xrcuf53ymi6GbKOoqYxifXYGekrNRzUjNzuJckZ
v+tRKXdDk1nWhGp6o1Z9RAOsJV9E3t7JQPZ5k/0lcQ1wuZ5+LWY1AzFDXTso
aQ2oNDYgNdONuME1IvistAHH/nr0K35uhLjcgu6jrAb8/HWt7bhdI64H7rpX
otwIrkdFnUExDbDcSHWhHGqEuuQpgXWPG6CbuN8m+kQjri6I9o1xaYA4OXTs
nlUjInLzrn9GA6rY5zYoP26Ek9bSarvOeojq+WZRWhqxJb7vc49IPZa1rkiO
7mkEz0dFh7rF9Zi0fRH1bLQRj1tuinya/x8r70V5O3ExoLVOeObThzpQl0u6
m/Iw8KMpGg1xdXgdkuiou4YB6QLrr/0Bdbj2PvOUtDQDK0TH5sTN6mCuvF97
3V4Gdsm35R/VroNOeeF+blUGisPPTN3aVQf5U4d2TmkzMB11sSBjbR1EOyrF
+vQZWO8nJ/z9Lx3LLuqtbjjHQKjCQunM+f5g8kcDd+kFBizENtduYtLR6Xlu
mnKZgZSVJ8ReNNJRyds1Fu3OwFvLurW8n+nIDLPpfvaAgSs3F1CeFdLxagur
8Z4/A4pZsiPrM+lwVZ0qMI1mwFy0Qlkrkg4RpxVP1n1iwF2+dnTqMh1Xvyht
DRRqgl6Ax6mPa+jw+jf5wEiiCTJ5i5bXLqMjSJ7SsWlnEw4t8Bf8NN+P0SKl
Q1IPNqE0Pjj1RFUtfl/asLjKqQl7TMp8djrVwoN3pnvxxybM/rpcIUP9iicn
il7ddm4GVUMx5M+JGsTVaq21q2yBZL1qsGVWFdZHBkW61bfgwPSSPb/fVsHf
jinh3d6CIcMHUa+eV8H17x3ZN+MtePdAt2KVUxUO7qAeaV3/DYzXRz+/3lyF
Tl+J23oXv+FdoGDa4ZDPWK8+16nI04ofRwNmErwqEZCak7T0eBsoQktHr/pU
YKu46n9sozbMUujbeN0qUBxc/JBh1QbeUpE/tAsVmLz92TrWvQ0nvDqx91AF
TI62iSC2DWoCN/9rXViB7QNzz29Mt+HCck+Vdp9yVIgdvtWf1I7J1MqUq8Fl
sAyusq+mtqN4y/VWuk8Zprn1jahF7RDuySpQu1EGWfZZ+QeN7ThuH3pL41wZ
Qj5cHBPh6kCo3CGRYbEy2Jx7amVwtgO6dpWVxekfsSC48ejHJZ0wjrATNv5W
irlXLOvv/J1Y5TxueqCmFNNJXHfFhDvxT+/h5+0lpfhRtDPtjmwnagpzVkkn
l2KA5SO472wnXu17SUu+VYpqTYW2uKRO8LjWK34QKUXYRIiT77EuPPOJLJ1y
LEHI35SHNMMuzCmkG8pbliBoWenrHosumJjxnL9jWAJ/UTZd3a0LeyM9UmQ0
SuChe1jhV1QX8ilU6hKhElx4+/OvPbsLqrK/TJM+FmNdcsqnOB0m7L4Ix7hv
LYbgX+Gjb08w8cyl7e+2TcXgPfWkKvo0EyyXAFr36mIs/ONQE3GeiYi5mQ1X
FxSDrbO14bkLE7mmV8/N5RFUDL3pvBvGhHF2hVniDoIb0qFTBkNMvGhKEXMR
KcLVu0vcT48xcexuGwR5i+BEd/utP8EEXyA1p3ymENY3z8zozjLhN8Hwsmwr
hF6lwIKDAt0QvLrXyCayEFsd/Hl37e+G8LHiS5GihWhK9Ny8xK8bwfZdUnf2
fECf/opvV552QwfM/XMSHzDxK+RZS1A3khLerX8p+AF8Oil/Ul51w1SYf+nv
yQIcHmLUnqZ2Q0P/gHB0TgFypHfcfdPZjZsfDk+aaRYgLJnReEChB8cFjJXV
bPORcMrySbxKDyj/lP/Onc0H7Q8L/Bo9sJa9V1enmw/6Ua6UHt0evEXEtXdy
+VjOknnw2LIHWiNnNmz9m4fbMp67mv174LNv5KNKeB5MU2R8XXt6EDPdbH6z
IxfCYnP0+4M9yKf5HeFqyEVrUN3Gp6M9cNzH5x9SmQuT2zczEn/2QFzzytQg
NRfGRyva23l6MVtutXGHfy4MBq3kj8j34s0g/xdx1Vwc3xzO3OgzXxsYZNxO
zAHvf047tj/uBXdIzJqw1zn4wqNxQ/HZfP7o1sWSkBzoTgysOBXWizmNN/lK
PjnQKdmn5JvaiyvySUUZVjnQsqA/HW/shV1gpFOdaA5UI5ceKJfqQ05/21mX
mGzwXfiZp76jD+I2f82MwrPRLdO/P1euD/FnT5TovMiGb36pYsqBPiyZ+Wd7
+kE26r7d2/viVB/6Cy+E/LLKht36H9vN7vWB/aTkz12pbDwPYa6fauzD4K9c
bf6sLFib1f53pbUPezarbLRNy4KCVJHQUNe8M1K2eJUnZqGVFrmmjdWH6N2F
VfERWZBqNBIo4eoHV1A6rcczC/mCNUuf7uzH0bWK5w7qZ6E3MO/nFp9+FH1J
PbVrkoa9CQEsn8f9eNnu0lo/RoPXB4vOvmf9CDr1t9lziAbx4SUVceH9MIrn
nZnqoMFc83TIlvR+7I85ZXPoMw0tP1jyW1r74WjQ2mEeQ0P1OZGrm+UGwP17
lYbyWRo2unBsvBUG4HOQl6fhNA2OvqXGvSoDyP2WG3JNj4blVAeNWO0BRMhX
FFRq03CYN4t/s+kAvFTmykv20VBcdCJN0ncAtXM6Yz2raaBtvj8i0T6AOYqb
iVcTFVlLIt2kugewVnxF0foGKrIHs/9KDwxAUea3H7WWipwUNr/c+AAs71Gk
f1ZSkS9vvk998SAmxIJN0gqoIIfU7pnsHATHZKiLGUNF1YUZvuC7g1CpFdy9
4CoVzFj3vYs3DeHekENd2Toq6qW1PSdvDoOlrS3Cb5eJ/2TK67k9huHoFr7Y
6UImzu/UlhL2Hsaw9jn/T5aZGNytXaXxdBhB604evm2aiVlF7TXPYoZhbua3
p+ZkJqS0tZOkq4ZhlRHUInogEzettOlmG1lY7OynJcGXCbUL5ZJXxVnwL3r7
5cCKTCy01b7uI8VCYGeV15llmXjqoC2cspuFYsbNM7cXZuKts7bN70MsvPLL
U4v7mYHqe9q/g5xYoKmr7bHozIBYhLZ4ZSELJ5ifnCVSMmDJSh4sKWVhdvnD
qPbEDLxV4Usv+MTCiiNuWcFxGdja1qSWXsfCKdmPnlOvMiAr4mAaOt9nmgoJ
6/s+z4Dq6yehNitHoHfN3qTBLQMmb2t5F5iNgCvsXHKtcgaiJuQbp61G8LVr
+Y1JhQx0aoZF/rAbQUt9IWPV3gxY91rKDLmM4NUYz2Z1mQxc3DJxpNZnBOUm
ez6dEc7AzYQ13q9SR+Cv4lh+8Q8Foe/O/VGeHcHqI7brpjIpGNH79iN6wSha
V9wP/f6eAo1J4/ElS0fx6J3ixoEkClgHjAfrVs3X32zmsl9ToF5jxLi4bRR3
8xe++/mYgn7OmYzw06PwcHT16zanYJ+C3sU/SaMQCnk+uXghBY+/1dhYpI2C
sXbxyNdf6ei8d8KynDrv7Kmbfp4j6fCrOH72RdEo7Ex7JZLr09F+9pj29sZR
zMof/sL7Jh0+t3Ukzv0bhRMzun2JUjoaiOa3XMMxhOg+EJkzSEPr7hWOpSZj
yDbU2iR+JA3M6IbpLxZjiOfyPyCrnIbR+zYiXfPO1lyw3p1vUxq4NXwtlniM
4ZKqtXt773soF3/uP5UwBlNBLe7Iy+8RXXxygvVzDPYzb5KXXE1FgtwG7x8z
Y6C7O87ct0xF6pvu1XNcbBxnm73u1U9FrqerwqoVbFS/VPKwk01FvcbLm0pi
bHwzGtxrzErBkpLmOe8jbKzbVv6t2SwFl0rMV2wKY6Mqu+Niyt53sI7+Fvrh
FRsxUbI3O0TeweSegeT5WDYer/Mu5XC/g46yrnJkGhttOonPaK3J2JKhYL+h
nI2vc5yoAs9ktL/h/bh2go0/PZtOx1Uk4bhn/m2+eZeP9JVt5lZOxCFzBe60
U/MODF1stkgsESqqlBcnznKgVfRlrH1xIqR/xycFWHPgxbYM30JPwGKXF008
t+ZzhXzKQtsEFFo47F067/Q+349vOh/Fg6bWW5gw7/RJueS8oEvxSN1ofvTw
vNPdNFuUJPTjEdF8xvLhvNOF1nsPVq+Nxw39edI0cCAyKZpqGhOHy7vyN8S2
cHBI/cKjLu842KxQiNfsnHf1cN1XVbs4nP4k8+HBMAcb2l5LecvE4Wh8/BGJ
eTf/tcj6eYk3Dhre4g3F867+XmyXs4sdCyWrSHPLaQ64NgXqVNbG4n/zaCj9
bx79f+zMAGE=
"]]}}}, {
DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1),
Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}},
FrameLabel -> {{None, None}, {None, None}},
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {None, None}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]],
Method -> {
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange -> {{-1, 1}, {0., 0.9999994079562567}}, PlotRangeClipping ->
True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],
Placed[
Unevaluated[
LineLegend[{
Directive[
Opacity[1.],
AbsoluteThickness[1.6],
GrayLevel[0]],
Directive[
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]]}, {"Runge", "Spline"}, LegendMarkers -> None,
LabelStyle -> {}, LegendLayout -> "Column"]], {0.75, 0.75},
Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
CellChangeTimes->{{3.6836129371333923`*^9, 3.683612941468025*^9}, {
3.6836133268442163`*^9, 3.683613338318421*^9}, 3.683624536650165*^9, {
3.6836245718477182`*^9, 3.6836245830313187`*^9}, 3.68362465974516*^9,
3.683625049513628*^9}]
}, Open ]]
},
WindowSize->{958, 1179},
WindowMargins->{{0, Automatic}, {Automatic, 19}},
FrontEndVersion->"10.3 for Linux x86 (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"Info-b437559c-70db-4f4a-aa30-7304826586e9"->{
Cell[79799, 1582, 2192, 36, 82, "Print",
CellTags->"Info-b437559c-70db-4f4a-aa30-7304826586e9"]},
"Info-6b66c57f-09db-450c-a84d-b69f4f8e8618"->{
Cell[82200, 1628, 417, 10, 44, "Print",
CellTags->"Info-6b66c57f-09db-450c-a84d-b69f4f8e8618"]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"Info-b437559c-70db-4f4a-aa30-7304826586e9", 130143, 2511},
{"Info-6b66c57f-09db-450c-a84d-b69f4f8e8618", 130294, 2514}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 354, 9, 32, "Input"],
Cell[CellGroupData[{
Cell[937, 33, 666, 17, 99, "Input"],
Cell[1606, 52, 702, 23, 49, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[2345, 80, 358, 8, 32, "Input"],
Cell[2706, 90, 397, 10, 52, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[3140, 105, 726, 19, 99, "Input"],
Cell[3869, 126, 872, 31, 49, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[4778, 162, 256, 6, 32, "Input"],
Cell[5037, 170, 401, 12, 52, "Output"]
}, Open ]],
Cell[5453, 185, 484, 14, 32, "Input"],
Cell[CellGroupData[{
Cell[5962, 203, 878, 23, 99, "Input"],
Cell[6843, 228, 417, 11, 52, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[7297, 244, 785, 21, 99, "Input"],
Cell[8085, 267, 421, 12, 52, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[8543, 284, 2113, 54, 209, "Input"],
Cell[10659, 340, 50526, 845, 238, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[61222, 1190, 176, 3, 32, "Input"],
Cell[61401, 1195, 8948, 184, 65, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[70386, 1384, 125, 2, 32, "Input"],
Cell[70514, 1388, 9132, 185, 65, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[79683, 1578, 113, 2, 32, "Input"],
Cell[79799, 1582, 2192, 36, 82, "Print",
CellTags->"Info-b437559c-70db-4f4a-aa30-7304826586e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[82028, 1623, 169, 3, 32, "Input"],
Cell[82200, 1628, 417, 10, 44, "Print",
CellTags->"Info-6b66c57f-09db-450c-a84d-b69f4f8e8618"]
}, Open ]],
Cell[CellGroupData[{
Cell[82654, 1643, 1212, 28, 121, "Input"],
Cell[83869, 1673, 45939, 825, 238, "Output"]
}, Open ]]
}
]
*)
(* End of internal cache information *)
Danny van Dyk