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

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

(* CreatedBy='Mathematica 10.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    316973,       6460]
NotebookOptionsPosition[    312479,       6304]
NotebookOutlinePosition[    313033,       6323]
CellTagsIndexPosition[    312990,       6320]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Exercises 2-3. Functions and Their Graphs. 
Calculus - Limits and Derivatives.\
\>", "Title",
 CellChangeTimes->{{3.6566748118645225`*^9, 3.656674834433813*^9}, {
  3.656679099984789*^9, 3.6566791293874702`*^9}, {3.6580336856261396`*^9, 
  3.6580336907261467`*^9}}],

Cell[CellGroupData[{

Cell["Defining functions. Plotting graphs.", "Section",
 CellChangeTimes->{{3.6566748432383165`*^9, 3.6566748572031155`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"x", "^", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "Code",
 CellChangeTimes->{{3.6566733793915896`*^9, 3.6566734565460024`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw1mHc4FXzcxs3HjjhEGjgpKSMkRb4/KSGUrBMpI0Qio0FUJEJJMkJ5CKGy
MxJ+x87MOEYRx94cI3u8z3td7/vX/c993dd1//e5PqJWzpdtGOjo6Hjp6ej+
N71Hdee3t4nkyvLyP9vbJOT+QfBv9waRvPUnzPfgCgk5mg8uF6wSyTt+MFjr
0UjoatuDTecFIvkTa3lHApWEVHAiK3WESO5QLg00KSOhtcjVfeRGInnOPn3v
li8JPdBIvvAklkjWGbbdPMHy337yRhLdCSI5iKTx7hqfCXJGtvJC5mLkSY2K
m5F8Riib5Y7Th9ei5FOlsmUftQ2QR3CjzeE6EfLJb5dEdeP0UVBXvUvo4H6y
mYuRxKmaiyhrXsUl8+I+MuGsgZVMvg7qrSZKbEXvIb/g9qFYhmohIUKOiebU
bvKgk9yp6o8aaODbE6qbmRDZJMbj1sSusyhXqErkZ+ouctRuWfUDj9QQb6tW
EQefADmRTXrqnrsq8ma816D+jEA+6337/mP9U4g2syvyczsvOULBymf0iCKa
k1srXDyzkxzSlHrK4l859Ncy6WD3Hm7yqyXVeAYkjUQuJTZUVHCQi1IvsrLu
kkB2s2Lizkms5C0Bty8Lq2KolCFkykONmRxJPbE9qbIHNWffFWtXYCaH8E/N
mAvvQQMW5iRZCWayHrPa78FVYcSMj1aO7GAmH+JvTDxSIIx0HtbHGvQwkbWW
bjN8lhNG3QusF6TuM5HVSlunb0rtRitDT9OoXxjJqzckvPuPCSK5Gg/b84IM
5FdcTI+q7hEQ4cDe3eHsDGSq4OmTFBMCWnpCbqRu0JN1G6kOa0oEVHSK5bhn
Pz3Z+9jNYy/X+dCZjHDG9E/0ZPnRexcafPiQQURmPO9pevIGS3huVhgvcrce
/v3Hko48t6/RgLeaBxmTn4dIGtKR23TNerg/8SClvUfP3NegI7eKG3YfCOFB
Gx2uaTxH6MgHWp6pRBjzILYIOpr/2DYGydZd+1u4kaS1ouRlrm1MTbpWQhHd
gW5tJ8SNGW/imbN3U11G2BFZ1q2EXmUTv7g0mi6fx44IVmd7dotu4k91hTNi
fuyotHJESHdyA7uye4oFirEj3qAjEdmPN7BI4d3L7pZsqJCQF+yZuo6X6/Up
VaMs6B/JHw8411bx2/Z3140EmJGZWXSUeN8qfp690Vw6wYSyXjjkq1au4vX1
795GmAmZznIu3glZxfY9pEB2eyaU/lXfuV1sFVvWc9i/KWVEhtBtE3dhBTdb
GmuLuDKgD4Yzl2XfL2HV/g0J3aVteBJsELDLbwmnKPsoPc3chmvlhd+3HJaw
8bI2I6v9NgjJPj3QqLSEg8Iy6jZ7tiCUQ3DJnvIX65PyRWJ+bMKjcrXoRI6/
WE/0x3hExjqYykb0CXgu4H/SFmej85ZByW6Nb8tiAVsfFb+Z8mAZBOKuaw6f
X8CsO2NjGVWWoYVDMjuXfwEf3DJWSK1YAs3RUt9L2fO4zI5b6kPHX1CMGxMP
GpvDNg98la9wLAIvp4rjpjEN337l0tCWSYPQOMF3Nco0HJjLHub0gAY7jv2t
fy1Cw5Vl2kM2ajQQ+HLVRIcyi0+efGxOSZ0FVqTW8X5tBodFreSHbU7DlB07
BZ2fxrIiTyUqaydg7EWFfDvPNLb4EqYZbDsBw9leb+x/T+E2TpoPB9ME9K7P
XA67PYXdtcPRCbVxaH7V1jL4ZhLnFPpOK1eOwteCdz/9qeNYyHKZeW1qCLJ6
jGSEP41j9WNDRZcjhiCdnvtVpts4zmjfF3hDdQg+XvDR6/pnHJ+J9XbJDRuE
t302jYelxvANoX6XLfUB8GKRqW/wGMGSFY+twsL6QN2krJqXbxBrqH8ztC7p
gMsBH/TVqQM46mt+e+/ZDrAoeNrjlj6Ai9ZmOd83toPXLo15yvkB7M0sENc/
QIG8zrq9UV79eIMgeyF4TxvoZaWOKzb04Q8nlBLK3v4EB55b21G2ffjn13QH
7uYmCLgjxb9K14dTumPiB9iagCybg74f78UXD/boCz1rALns71Hwbw8Ozlyr
rYmuBYGcpnOarr9wzusUnsMqlSDH+9osjfMXdkqLSmiMrYCLrgYu7ClduN1h
O255sxyey3W9a+juxO8mjvd115bBWk7/wqVzHVi62HuibrsUBPiS2HL62rGi
f1ebw2gJyLvZ7ufzbMfhiWKR/JRicJSf1G7PoGC1Lr/k4OIi6M1dTLgi2Ibv
HvaZXa3NhzW+goKinFbMFWIcT/uVB7vcPRqFdVvx2jlhyfmZr3BJYWvlj08L
rsl0/cEvkQt+9tzxlR0/8Z2OHIvS9EwoORxe78/xE1dQLutf2ZcBS+OCy5qo
CX/zaFlgi/4CNx3E9BrTGnBYgYPely9poHPr+Ea7Vy2eY+Ay/auTBBxjXEMR
eT+wV9s9ZEdIhLobI/VGMzVYS+WUa9BwAmhei4ptv16NddNjnWu1/gWWbuen
EW+rsDOPStSJg++h2kTzllFLJSYkvTJiFYiFs/qrp9rPVODRq5ciW2SigLGp
RSziYTkW8C0RrLsSAeXan9iNvpbhms4/x8Sj3gA6a/abIk7GOQQlCUadUNjy
sfM7XFKKfy0PsnMGvATvh4KGadIl2OhQ6XzHuyDwdPJcSN1ZhK+lJWsXqzyD
FbsjFRJPC/HEek5RR7Uv3LPsCUtdzMfemQdJ+fefwKLpSysJ2zws+ZxeIz/O
C1wNVeVSO3OxnZuvYlDsA6DpztJLaOXgLJFmn7Fhd3A6H9+SUpSFmUMnDrV4
u0CXz4czF0kZuME3Uf95tSO0uzMN6Cl/xqn2HGxPj9pBi52tj96+VBxL4bwX
JmUFjaY/RPTok7F2wMVjt9+YQa2uJFl3KAG/ul3Y30tvCME+gjgm5D3mKExd
W9C5AH52PZvRhlHYJFmD1ZtBDbx041Wid7/GjBoRXdmacjBm+2NJtuwZvvE8
+fjp8L2QZRM/di3GFTPNRtMOJvxVLWZDLqGKV0Di7FZR3J8K1RAHJJpy/DGw
dLpV6d7ZAcb2gnztO17Agrxt2Xq0BOTq/dC+pRYOlF9P86KSTkLRTSZOx4cx
oGgeGntr4hxYqsXb5pvGw7yTlZBzwSWw0VOtyb+fCB4FMs0tmSZgb9ZzqCD8
I8iyys6b914Hx5uezwuy0yAoKxsHJtyAO3cFxwuavoBA/5Dy6ow9uPvmaxVO
ZsK3iOzb3p3OUHxe0uiqXzYojwZLBku5gaqex7Me3lxIruJY7S++B2TDH3lX
E76CsC1JrCLaEyotbQXMSwsgYunzGd44H9C4mafxR+cbDNo/u95K5wc/nJju
m3cXgaJqVZpJkD80PPzQab5SAjNsD6qzd74APd85ll5/DAb0k2/9uV/BzbMi
ezKDyNB31EqHZ/drmNB21pERKgeKgBFP64NwONIUecOZWg5hhmYUjXOR4Khf
6pWZUgGUcoLMPvG3MGPClS6jWAVU2YTUxX3vYO7GZy5Zgx/w8jCPcbz3B5Dm
ENQmHakFDW26T4v1ieCQ7ef/hLEOArnzVLLFk2Fo03y7Obce8gIc91mvp0BX
JM+cC+EnvJPma0uTyQD+095SMVM/4aubxF70KxPS5hYVLK2a4Ys0vcH+miwY
ibJ0CTzVAqLcDKdOvcwBi6FTE78mWuHy53+f9Jvnw6MTLqwzxm3ASS2O17Uo
gPdBKQcZKtqA206FevtmIfyWJVhLxlJg8JZVSV1gERh6T3d7XuiAtkvatL88
GDQF4huFv/yC0YqzewLfVoKtfcekjOBvcKfZHLI4XwXPijnZz/r9BnENpTM7
V6ug3MpDw/FqN8w40j7S29SASuZlXMz5Bw6kZhwVvl4Hgkm+XRmKVHjlkB0u
6NQMKY3vRwsdqTCtVR9l2NMMisuFS+UfqNBTUvJh80ILGGnPEjp39IOL9dHm
SJlWCKOZ6W+P9MOtZNnAYRYKcJ4+XncxahA+MrW7LW50QpCZREZJ7SCcOymi
wOvRBSyewmFHNgahV2u+8/ZSFzAU0JuyWA4B57ZkXe/iL1iRbRovlRwGjW8z
pBS6Hhg6YMcmXToCsfl9r8YPU8FK3XQ6ljYCFFmVF6MuVOiz1G1hI44Ch9BV
T78iKvyOk48eDhiFe/IjR2J1+6FZkO7we/0xUA4lDik/HIDvnNGanMPj4Dt+
Jk17cQiUjrw46rlrApLUO8pOaAxDvtZjnjGtCajmkGqoeDsMWf42XRUZE8A4
ciC/EEbgI53czYcPJsGl/HQff8QohC3WBUxwTAObMMH/vfkEHHd6ZH1DiAbR
yYf55uRoQEmgMy1UoEHj9UiHfQ40cG33vcR5iQbhagp70hJokKEScPqrPw2G
HjKGdOycg4McobuYFmkQXD/7+fXSHAimJtQnNs3Basd28/OWBdjor5QffLoA
5+I2sWfjMsTwn5c88e8CyF94ZW7AswJKWrUiwUULULj/slGgwQrczWrkkp9b
gGdwy4CrewVmHnWM+l5bBKLpZODdmVWgCo/Fip38C17rYtTqgxtQacTBZDWz
BBeXC97mO9Gh1p2M6opsy8C9TzEFRdChvsY1H/YDy/DC+UnO8nc6tHZuYjvn
yjLUhXngKTZ6JKtYu85YtQzqvzdz5lPo0TuBgIXk2BWQv61H5zTFgNw7GQbH
NdeAPZFbQSyKGRGvrJW5JG5CsB4vnY8bB0rlvjZ5v3gTRl3tzWcTONDR6jLC
o/ZN0Ndj6vVr5kCK8oF2QSxbYCrJrCUuzYk0uQS5Em9tgeR9+WrlSU7kWHac
RJHfhnbrM+bYcQfqDle6L2xFh9IrCY9D/+N58U03rkfz9MjfN4Q5RZSA3ko6
JHHTMaACya1jRERA7CQL5QQuBnR3a84y/xoBzeTo2FdK/Me9ErYNou8IKP+m
eBX7dQZUFvCknlOQH2lQOryi6hkQl4u3qzxBANl+PjmVlcSIqLNR1hV7BVHq
le26QWNm5Bl3sXX67h7Ezcze4e/DioJ7bwQZV4qha6VVs3LvONDLl6E2oa2H
0HvGyJjHaztQll+yFGlTClHrXWv9uHcirQyzk2zH5NBE94EdMRW86DV9AdWF
XhHZvolcbTQlIMvx4PP/DJ9EHS0Wjv9M8KP5OquuTEZVpGqcd4g7dhcS9J8i
tturoV2+tYGKMkIoOKSnj71VHY0v2ClID+9G0rnfXCkxGihj6pqt5Js96BJl
gk7GTwsNv+CHcwf2IYVjX+Ylb+gggpuxhWznflQtud0QnnERmT05QnifL4J0
10atr93VRx/Zu5STvEXR4txobOc+AzRdUBvwxkgM5dBIH40YjNCUkvAh3v1E
xF6r48by2xh9ZNTsjRAjohpfkxynAWNk0eQeIXSQiDxOJ3l1ThijdusmRlEp
IiLnMeamrxuj0hAfqozyf/3s3x8d95qg0KHRaF0TImroHPukYGmCFEK/cga+
IqLP3c8OTI+boBnT/grON0TE+bW5/tm8CUoV3/EwNJKIrF6ab+1fN0F7v9uN
R70nItqZ08xXOEnon5Hd1R8/E5H/N0LMH2kS6lL2eVxZQ0SpFCJV1p2Ewv7J
UNSsJyKz4hDlAS8S0mn5PV3fREQMycpiEc9IqMxW4WpbOxEpeJi93o4koU+v
R5UGBolop1Tu0sg3ErpxlUCzGSWi23ukvySVk9D+Q2op4xP//eOcnLKuJ6Hw
4hj+uTkiUqdJ8oz2kJBeQE2D+18ichtMn/80TEKslxefrqwQ0dtOV4s7MyRU
vkdU2WuDiHIaPK6cWCah//Mh6P99yP8AkQ1v+g==
     "]]}},
  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->{{-10, 10}, {0., 99.99999183673486}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.656673393192379*^9, 3.656673456797017*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVzXtUTHkAB/DpKSlx9t77K1lba5sJB9XIdptm5nuLVammx25STClOSJbK
o9YjJlToZUK2UEtJ7BbK2dambRcVOwhZCQ3Jo9meROmxd//4nu/5/PE9X9vI
7wNX6QsEAl8+/7d5vlJPIKBgu3edgUDAIjRte7Q/7452X8MG3mc25/99kreD
xxKTHD0WCwJa8jg9Cl6jWquvDFgkGQc7qfQp5Kx/GOlpzKJjg2+UsRGF1K/d
D2Sbsahd6HbNzJTC5BgiFVqxSOi2SrOiKCSH1DJLnVjYH3LXvphBQZJYFS5a
w6JwVUaGm4xC/VheUlo+C/O4GIu5gRQs6U0N1rdZXNNURjRFUzjZ7Fg419gV
HqHTxxluoyAe7+l/k3WF+fzR7R3ZFLRZJ0r7NrqicfHa+sgSCj5eKtqv1BW+
WYPRsb9ROBbrStk9ccVUu4GH9ncp7Dq+dImalqDiNV0Q95KCcvkV3VZvCVw6
rjsHD/L/2fs/27NDArN5L4+/nUgjV2TT4HxZgtPlwuXm02nEu5s8U+gk2L/9
QWebC423lk8KLIVuiEqh/fz8aEwz6W0wC3eDXvVWI+9IGvUrNk9Rqt2gk3sd
HNhCQyOcfXqtxg3579zWOh6g4dUosdQYSpE3WEA+L6LRfS+gc0AuRapL1tGi
yzTSNP7rv0mSQlp8en3VTRo9Rxoz28qlkK20p3/Q0sjUdZf76KQwCtBM0ryn
0SuWzR6ZLsPVLUZt1eMZzLt0t+lGqAzXukp3hnzBIErVeWPDYRmy1RsTUsQM
PBxf2QRqZChNL2ZXeDF48I/xa+sJclyqXtf0UMlgqLyv0mCRHClWwbWtcQyU
HvuKyU45CuvP7chJZdCo08u3uSKHqliY05zPIOS61ybFezlCahwTL5UzsFXe
67zBAInCsw4e1xnkuvfWrXYGIn5fKI1oYVA+85SaCQTUp/ymzOlhcGbGIPHe
CBysTvJJNyQQyx/F7cvg96YugcmWBBWbfnZZXAZUnI20F80hOP/4bsuxRuCX
xPKgZe4E/Z6OwV2vgMGjMQr3EIJJ7auvNo3jML/v8rS6WIL2hWKVXMSBTRJ5
3NlFkHakd7h0AYfUQEOXzCMEW1pLLpSt5FCw1HB3axnBVF/VSMluDqeO5Z74
8yqBdDhohfAkh4+z1AfDHhDEXFwicq/lMFlXeWfXG4KibarUwKccevJiGx7z
DouxFDzifWeRXZ3zW4JZniWJ4c84ZP2kvviG94RbF+LWtXGYGBZ/OEBHcHs4
edve5xxMGx2W2XYTROsPdVV3cNA/U/aq9h3B0wKlwq6bw/PvotqmvCdQKByN
z/H+w8D6UQLv+10jNU49HJLD0xvtBwhsPqbMRy+HUWbN+awPBDVib2lYP4eh
PcL4iCECU0VFafYHDi3ipzHVvJu1XyZbfuTwqzZ3JfWJoCoyI+QE761So+B6
3tVzgizOD3IYePfCxWGE4K/uQ+r6Txyai350TOct67+fpBjmUOkfNLOd9612
i6hm3gnn6qyPjhLMzIln20c4fBuaRPXxHvLNF8WMcphn4mTuM0ag/VBD+nhT
VW+Minm3Zj4enzjGoT+qcHSM979038gY7/8ATLwTkg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{5., 24.5},
  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->{{5, 6}, {25.000000204081633`, 35.999999755102046`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.656673393192379*^9, 3.656673456816018*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Piecewise", "Subsection",
 CellChangeTimes->{{3.656674771909237*^9, 3.656674773497328*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  TagBox[GridBox[{
     {"\[Piecewise]", GridBox[{
        {"x", 
         RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
        {
         RowBox[{"-", "x"}], 
         RowBox[{
          RowBox[{"-", "1"}], "<", "x", "<", "0"}]},
        {"1", 
         RowBox[{
          RowBox[{"x", "\[LessEqual]", 
           RowBox[{"-", "1"}]}], "||", 
          RowBox[{"x", ">", "1"}]}]}
       },
       AllowedDimensions->{2, Automatic},
       Editable->True,
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}},
       Selectable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxItemSize->{
     "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.35]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   "Piecewise",
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True,
   Selectable->False]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "Code",
 CellChangeTimes->{{3.6566746220456657`*^9, 3.6566747034883237`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBGIQnbx+wvv//9kPMIDBB/sfu3QOprUj+D3HTkw6y4fg
K0g9LAjkZIPzC2yCAzVFWeH8hOXf3E6rssD5e/yqypWVmOH8y0fCV53XZ4Lz
Q8tFJYw0GeH8iiKW2XHqDHD+uopZDvty/+2H8Z1a3xzQTvkD5/vpf3J1rP0F
58/Oivr6av4POH+/XLMU46xvcH5UQbzL/m1f4PzTVn8ev1z1Cc6vm/Z77YoV
H+D8xV8vtm/NQfBPhKxIPGSA4E96IzvjqCKCH90y+dwJIQTfIeBcphc3gq8i
w8l6hhk3HwBLiYeo
      "]], LineBox[CompressedData["
1:eJxlx1tI0wEYhvHlOhgUBUkiVroGGkmhsiCI+iAkIoLaxBlFxqQDelE4rAgL
XJCg1qjpXDgtXMPEmhTlcboX8pCVYSaJJQ3XinRr+6dBZCJW8N518fDj0eSf
M5yKUalUur/9c+LMwoU70wqouBfNnoYPCqicdUwF3a8UUFE9Hz38wKOASkpK
89aOIgVUvvckmbz5Cqh05tgdvmwFVA5eK13av0MBlaLPRv/IXBRUul1qW9gS
BRV90vG5TbYIqHzqKq36aImAitno3lZXFAEV242wKUEfAZW385derlsbARXD
eI0z1voNVAy33uyeLQ+DSrY662q/ZRpUsjbb4rrbvoBKINNkq6wNgIp6KPRi
uXYCVLRNAUuNcxRUdg4/1TwKDoBKMLZ3e3vjAKhY947s8hUMgEqwNZIzpPSD
irUupWJqvg9UggW3Z5PjekFl48pfZdpyH6iYL8c1ZKzxgcqgku4Vew+omMcK
lGMN3aAyeG8it7qzC1SK92DLslAbqFR/XWV/bW8Blcn1F/1PGj2gkrYvkFrb
/hBUnrlbu06/bwaVGVPe5OKG+6BS33Ei9+T+u6Cii9eF0gvrQWXofOyVhUon
qPzOfOyqGXaAyhFPTHTQeBNU/PEtS9JmroPK6nfG1D5dOagUHmoy//RaQCUj
wZWetFgCKtaqHyX6smJQGUussK5ILASVZM3RA+MGI+h//wf288iP
      "]], LineBox[CompressedData["
1:eJxFxV1IEwEcAPBrdbUzGYM2kTgiteeISFyctaUMCmKQTqUnZbomubaoG8tI
nStScS1WhIXjNieWXq2vQSGMOWo1zVI6d5KTkT1sppUTCqIt+nro/3/48Ssx
WGuMEoIgKv76d568Enw1blD/3y+1bQ2Jp+Fqd1nUoTsHZ7YJrC7eBceORhUy
/0XYJFimFov7YZXy5XCV6IbJe7KJxGEPPL9mvMWQN+B2VqGjOr2wU2uS+/cE
4dcLtGvjvvuw0iJsMVU8gPXT3O8i30M485X6nhp5DBdol9JtoSewftn1vGcm
An9Tnp1odMbhE08H+LvH5uB2guVslxbhKkkza5/8AB+f2iVv6UvDMc4YtQ+u
wLvJDbM8j99s86ZS47hZNZerfocrBE25XLkKN5M0P+rGJWbh+kL3J9gsnAoU
evB5FfVI7cd5UjMzEsFrfEHpmTw+JPR2FNg+w5r9ahPT+gXe2d+TKLHjRGr2
kPQyHnU00eIwrp7sfmt5jx9siDGB+jV4x1jhWK8R/5XTF1lZPMKl15lr+IHM
5tviG7zSdkROabMwHfd0ZGvxn8XJVdGAh8MnXwQcuFcW2tt3Fb/QlPdZOZzZ
5DpfGca31yeWS6fx3B26jkriyR8tz7If8bDXOVC7jv8BrTG9rA==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvWijnck19g/2DGDwwX7vd7nWi1wI/lqFw7tdhBD8
uZ7pn7ZLIvgyEzuWB4Yi+HNurIx5PQHB19/l92325I9w/qHZn/t9pn2C8wsO
du5jrfwC53vkxZcHtXyD81fWNmp/z/kB55/47bCV3ecXnC/I6HBydfAfOP9R
RveN5Rb/4Pz32tw7pZUZHGD8M1HzCyRVGeH8t7tuqh4WZYLzF98zXrBNihnO
n2tsIhHGxwLnf7Nnrtb+i+A/4f+0yIuBDc4XE2w/IfoJwbd5wH2Hq5Idzk9e
P+H9//8IPgDGmXfi
      "]]}, {}}, {{}, {}, {}}},
  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->{{-3, 3}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6566747042293663`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  TagBox[GridBox[{
     {"\[Piecewise]", GridBox[{
        {"x", 
         RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
        {
         RowBox[{"-", "x"}], 
         RowBox[{
          RowBox[{"-", "1"}], "<", "x", "<", "0"}]},
        {"1", "True"}
       },
       AllowedDimensions->{2, Automatic},
       Editable->True,
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}},
       Selectable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxItemSize->{
     "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.35]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   "Piecewise",
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True,
   Selectable->False]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "Code",
 CellChangeTimes->{{3.6566747327059946`*^9, 3.6566747333260307`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBGIQnbx+wvv//9kPMIDBB/sfu3QOprUj+D3HTkw6y4fg
K0g9LAjkZIPzC2yCAzVFWeH8hOXf3E6rssD5e/yqypWVmOH8y0fCV53XZ4Lz
Q8tFJYw0GeH8iiKW2XHqDHD+uopZDvty/+2H8Z1a3xzQTvkD5/vpf3J1rP0F
58/Oivr6av4POH+/XLMU46xvcH5UQbzL/m1f4PzTVn8ev1z1Cc6vm/Z77YoV
H+D8xV8vtm/NQfBPhKxIPGSA4E96IzvjqCKCH90y+dwJIQTfIeBcphc3gq8i
w8l6hhk3HwBLiYeo
      "]], LineBox[CompressedData["
1:eJxlx1tI0wEYhvHlOhgUBUkiVroGGkmhsiCI+iAkIoLaxBlFxqQDelE4rAgL
XJCg1qjpXDgtXMPEmhTlcboX8pCVYSaJJQ3XinRr+6dBZCJW8N518fDj0eSf
M5yKUalUur/9c+LMwoU70wqouBfNnoYPCqicdUwF3a8UUFE9Hz38wKOASkpK
89aOIgVUvvckmbz5Cqh05tgdvmwFVA5eK13av0MBlaLPRv/IXBRUul1qW9gS
BRV90vG5TbYIqHzqKq36aImAitno3lZXFAEV242wKUEfAZW385derlsbARXD
eI0z1voNVAy33uyeLQ+DSrY662q/ZRpUsjbb4rrbvoBKINNkq6wNgIp6KPRi
uXYCVLRNAUuNcxRUdg4/1TwKDoBKMLZ3e3vjAKhY947s8hUMgEqwNZIzpPSD
irUupWJqvg9UggW3Z5PjekFl48pfZdpyH6iYL8c1ZKzxgcqgku4Vew+omMcK
lGMN3aAyeG8it7qzC1SK92DLslAbqFR/XWV/bW8Blcn1F/1PGj2gkrYvkFrb
/hBUnrlbu06/bwaVGVPe5OKG+6BS33Ei9+T+u6Cii9eF0gvrQWXofOyVhUon
qPzOfOyqGXaAyhFPTHTQeBNU/PEtS9JmroPK6nfG1D5dOagUHmoy//RaQCUj
wZWetFgCKtaqHyX6smJQGUussK5ILASVZM3RA+MGI+h//wf288iP
      "]], LineBox[CompressedData["
1:eJxFxV1IEwEcAPBrdbUzGYM2kTgiteeISFyctaUMCmKQTqUnZbomubaoG8tI
nStScS1WhIXjNieWXq2vQSGMOWo1zVI6d5KTkT1sppUTCqIt+nro/3/48Ssx
WGuMEoIgKv76d568Enw1blD/3y+1bQ2Jp+Fqd1nUoTsHZ7YJrC7eBceORhUy
/0XYJFimFov7YZXy5XCV6IbJe7KJxGEPPL9mvMWQN+B2VqGjOr2wU2uS+/cE
4dcLtGvjvvuw0iJsMVU8gPXT3O8i30M485X6nhp5DBdol9JtoSewftn1vGcm
An9Tnp1odMbhE08H+LvH5uB2guVslxbhKkkza5/8AB+f2iVv6UvDMc4YtQ+u
wLvJDbM8j99s86ZS47hZNZerfocrBE25XLkKN5M0P+rGJWbh+kL3J9gsnAoU
evB5FfVI7cd5UjMzEsFrfEHpmTw+JPR2FNg+w5r9ahPT+gXe2d+TKLHjRGr2
kPQyHnU00eIwrp7sfmt5jx9siDGB+jV4x1jhWK8R/5XTF1lZPMKl15lr+IHM
5tviG7zSdkROabMwHfd0ZGvxn8XJVdGAh8MnXwQcuFcW2tt3Fb/QlPdZOZzZ
5DpfGca31yeWS6fx3B26jkriyR8tz7If8bDXOVC7jv8BrTG9rA==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvWijnck19g/2DGDwwX7vd7nWi1wI/lqFw7tdhBD8
uZ7pn7ZLIvgyEzuWB4Yi+HNurIx5PQHB19/l92325I9w/qHZn/t9pn2C8wsO
du5jrfwC53vkxZcHtXyD81fWNmp/z/kB55/47bCV3ecXnC/I6HBydfAfOP9R
RveN5Rb/4Pz32tw7pZUZHGD8M1HzCyRVGeH8t7tuqh4WZYLzF98zXrBNihnO
n2tsIhHGxwLnf7Nnrtb+i+A/4f+0yIuBDc4XE2w/IfoJwbd5wH2Hq5Idzk9e
P+H9//8IPgDGmXfi
      "]]}, {}}, {{}, {}, {}}},
  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->{{-3, 3}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.656674733768056*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exclusions", "Subsection",
 CellChangeTimes->{{3.6566746346203847`*^9, 3.6566746360134645`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  FractionBox[
   RowBox[{
    SuperscriptBox["x", "5"], "-", 
    RowBox[{"4", 
     SuperscriptBox["x", "2"]}], "+", "1"}], 
   RowBox[{"x", "-", 
    FractionBox["1", "2"]}]]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "Code",
 CellChangeTimes->{{3.65667346856269*^9, 3.656673559161872*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwtmXk01N//x0cZY58h+kgIkewqFZHXlRRCWUsJLSKRJUvWiCQpkiyplEpI
thaSet+QJbJmKfu+C40h62++5/z+uudx7nLueT1f2z1X4qyrqf06EomUzUIi
/W88lxPzZ22Ngr1eR4e6tJshHC26TWOZgpt6Q1ne1JkhEbdMa+8FCj5s/3vd
bKkZalEpq5qYpmD3LN+IqCwzpJc///xXLwW77JFwWR9khpTe25x4W0rBJTrc
nPMSZmihSOHrhZsU/KTzAd+oiymKKq+M/cFLwd2ClfoPBE2QuHCvmwkHG3b0
8/A63G2I3DTNTGQFyfjYSckjNyP1kN0rxqFqaVb8sz1RuaThICo29vPZKrke
C+f0+Hsc00ZNZccz65TX4ZEnuyy/LGsiCx9BoZ2yLPhA+NpYMN6LrnqwJtvI
kHDweS3j7xd2oeyrD9EXl1WCez8fm/qUMurByYwE+1WiYC44uaVRGfFzPM5y
P71KFOt+ZtwsUEY+SSlC0karRJjFowbpEGWEil5M31ZYJeZz33QZCiqjpqXs
p1bjK4QdI+SulrYSWggqJc05rhBv85/mnX2lgA7cmMDy55cJLpnW9YaZsmgs
mfRfjPUyYfAq0I3yQBbF5gu40M2Xid4O4lPDNVnU36256bPuMtEaJFwTayGL
wvbdcTeWWSa+PagY+sYii779UZR0H1siskjkZyPW25HeSdfQD25LBHlu6t6g
qAwyVp7V1Q5cJDYkvi6crpRCGvU5E9Vei4RUmNA//wIptN3d5b7l5UWCFZXf
3pAmhda/Hem5ZLtIePQrRjqESqHCPd3+8dqLBO/P3M2pWlJIQqsmb5y8SLjn
c4meKtiK6IZpovF3/xH9x5WdM/IkUbLTybmxlAUibNVGR7pSHDnz/DFqSlgg
1qIyfxgXiiPN3NC0T9ELxOeDJZ/D0sVR11zW8ahrC4Rzn16W4C1xJB6y9lHR
doFI8CTXfjcQRy8SXgS5iS0QhV3q/HNPt6A3ZVMUxqN5okllk5lDlSgixEKF
WR4yiOcJM35Op4URW4zcBs9YBsGi5SwpoyuMDFkauYYjGQS3q/enOQVh1NYv
vlLjzyB2xVjfrVzehGbTv3QnnmYQequuRjqPN6FtuxZfqEgwiFHysemQXiEU
ddhd2S59jvBWCye+e/+HTrrZHiQ+0AkT0/bGhgYBFNbfORWdTSdExEXXGJ8E
ULaldZJdGp34eGzHI8U0AcSy32qKJZ5OZA3/nKj1E0DpHGaJB73ohHRDnG6P
lABipB6aqNpFJ5y8u1tUAjag2GbFuJ+5f4mwTPseyb38qHrfcv9o5iyRviKc
afmBivapSXX3pM4SfoZxyqL3qSh9t+Hv1oezxPFzngGrrlQUrvKo/lvkLBFd
cZTCJ0dFB7Zpfn7mNEusK3ARv5LCiwr5AuKt5GaJkEC+YMFoHvRiZEmvKmOG
MHBs8NgWwoWC4pfepKdPE7oYc+5/TUEmW07/E4udJNxv2lzceYoFma0/eP1b
yCgRYZR38+kSAw5KxgoUfxgk2kxc7LpKxqB355nY2w97iaufp4/+rKmD9TVj
VWxb24nho2tuPcGNxNb03pD45CYiT2fDeoc3I4Ra3TuJ3P5yQp5jxIfnDp2I
G+Z+8ONBNpFjFtNzUHGZuK7rQHuq8gaEj4cWcDaxYLrgFcL2egWUtn01n+0l
4xOU74/7v1SA35nHqjIzZPxpQTzAYakCLLtecp0mseHr7bVqrp6VcD94tKJa
jA1Tn8nlB12ogowWr8wPp9iwnELfi8cG1eCxw36hppkN2x0wiWznrwPzXx1n
XKopuGxXuqPt0Trw7/qU0vmbgmWk1w71366DCEssaDJGwfOhLSFe6+rh0XUf
qQMc7PjLhTCtQP96sA/dee7YYXZ8RKGnIMqlAcY5tPS0ytjxhYKEzNcmTVAR
KRb6uYQDR253aPT2aIIv8z0th39y4OykPYva95vAFyse6hrkwPP+zfptP5vg
lMWzwB0cnDgCbRhlPfETfITnGoOPceLXVXdlbGyagY2xtPd4Hyeu32dzVPZa
MzRivhdTdE5Mf63oQ09phoKSb18fU7iw5t2a8sjeZlC1d7c/rMiFa005LxSc
bwFbX9eZUV8uPN1+4wXtUiucmZnPLNjEjQWMLGrab7eC0TnDenclbqz2RYqe
ltUKBrvfyNjocOOQp6U6+6dagWjiFWhz4cb89iz9F93bYOvJsyUvv3HjPS31
nLtj2+BEkfA53Q5ufPLw052kt22w+yBX9Y6/3Pi5LFyPp7dB7qvtvOslebDq
VIBEqc8vCIi1MhQO48EnbA317yb+gjqziKN5j3lwQP1md6uPvyDCrLCmtIAH
f8svwn8WfwHNL8InYJIHW/os2IoE/YbCUnXGMTte7DdScXP4yW8Y8TPN/RnE
i1OsEnLyid9QXBiVoPiEF49o7FnTY2mH5La5ytRuXuxL8nziFdYOXjzhr/pc
qThS73HoqxftMCTkYxwXT8UPY8odf5W1Q6/3skrdFyouEt+0az+5A4RnLC00
OWn4u+MBIVfpDmjImWrZIkHDv3MvrTzV7YBCp0Y1CXUaXkRfKljDO0DZNct5
yZmGOW8NZ+1J64DGl7UMsVs0LNxAi3Us74DxTruM+TQaltu0z+fhUAdMlG7W
+FROwxpnzlnXsHXCbnY1v/QRGjbMiNJe3dYJZPUzxhw8fNh65v02lcOdsPGW
pP5uVT7srN7NddahE4acROfibPhwQAj7zP2bncDexrY9LYoPR1XtaPn2qhOO
3I8rZCH48CO+U5/mKzoh/tc96XMMPpxlFfZUdqQTrpXsWsvfxY+Ln725cYq9
CypvvTUWvMqPa0ZbnO5s74IAqfaBlTJ+3LGDdIzQ6wLt/4rijUQ24Alf2d0z
jl0QzqN+MjB4A175aiq89VYXJH4YSuqmb8C8nAFr5hld0NVlac0WJIDFTF8O
hFcx1x80XnSUFMRKD2urCke7oOVmdkfAuCDW6pvPHuPohudDEQ8zhzdiYzmJ
OBG5buB65p5JURLCNh4GvsYG3ZAVlcrCNrQJXy66YhPs1A1qVVuE+K1EcNC6
xzr5kd2gqdbUn0QTx3cNyrcPZHaDU2YWS4ndVpwS+4dnY3U36O2TYEl+L4dz
fwv9PTzeDU+2uN0ytNfEdnwSE8XkHjDtkO/y9T6IHN+/72oW7AGdnvtokVcc
uVkZNExJ98Dxh5sVrp1jR1dXukope3rgTW6vlfmNaQh+duWD+KEesNB+J940
mk1E6LJnqFv2wFjJxjsco8NEzOijZNMLPfAwu77EMvQvkXhnx91L3j0gvp/1
xCzHP+LpjvLgsPAeqJPkYOHXWSHSm09eeRzfA52umKXWkIRzff/Yf0jrgT+f
SpzjX7HgQtGwE3UfeoBnj4azZMU6jL8KHRkp74HFC9N8DR/X40r7N/tZWntg
judy8ttbrLie44CK8HAPSPm7K/NokXHbmxbJXfM9UAx+WZodZNxjcknQkNIL
h0s43x5zZMMjc2sU+/96wZe35LrjIBueTopbDJTphWTOg0pzFhS8sF92Mn5v
L7Tb8icNfaJglr7P3TmHe6GIErWzWogdc4abNlYe74VR4dryIRd2zC83XNbr
0AuCIutVdIrZsXCtf8GiTy+ItEx9LmblwJIetMwNEb0weW93NJceB5bb+PKR
QmIvrJ42e/c9nAPvLFKP1k3vhTfXX+cHfuXAB9ad8/Sp7IXK3oAQNwVObMPR
uM2/tRfeKmt8UzrJif1p2r+ChnpBNq078+kNTvxObItWOGsf7Ipg+erYwsyn
0nenb23og/4fRxwElznxhMJK6h3JPoiMiJOXEufC0hrtlAeoD7wNX7YPnuPC
Bw4YFCUe7YN1Hnty6kK5sI3+R+dHNn1goL22LzKVC8cfT2h4HtAH1v3y7GUd
XJjd0yw5v7APaJsvXd5+iBtL+ZcYfajoAx1Z84vhNtxY+/oOUlFLHxi3X9y5
w5sb+8VQ7b/S+4D1xZbZuOfceDyrWqlepR80fYNNr89zY/Z3+3qboB/yJv2u
7OPiwVKfMu63GvfD/O7kt4FiPNi66uZCl3M/TMp9+Fukw4NrB3VKJtP74eiG
6M+xt3jw2ES+50xBPzRxJUrIPuTBFLqEzFx5P8SnxO1wyeTBaB0panmgH0J1
8io5v/PgPLFiCy6JARi7aNA3QubFtdLy7FSVATCdeKChIcCLxxQeFvHDAOQ5
6jQfleTFkhpXtwifHoBbpxi+Fft5cdxx1dHtSQNwp8MyR9yDF+faPE9WSB+A
ApV2jg/MfF1jz2+sUjAALRkrscK3eTHZczp/b/MAzPdEyFg+58XeMVkBh/gG
oTkg8v2HBl5sVSVFO39rEC4FS0pPbaPi7JpBm6ykQchoDlv+toOKWevT3tAz
BiFG/aaYlyYV57ZsP3Lj+yBw7NUVtzahYrYBhfA0riHY8jdVz9aXiq2HJ39O
bR4CtpN4ZH0oFeePZW/dqzAEQwrk4rAoKj49o/K1wnAIwigOYyIpVPxuVXV5
5M4QuKXWZr8toWLOdQyDHU+GwDTgyelD1VRsSy5I8s0egtE683uFTcx5bvW9
nHVDYF4k26o5QMVnNu33kKcNg89qf9IQCw3zquqOuMQOg61dbEiqGA2f38u2
90PqMGzxXP1vgVlfivZV3FjNHwYXfooZSNOwvbb+1uimYVBXFFv3XJ6Gi42N
bHIFRmCQ0i3ydS8N85vyvlmQGgHyvGzhy3007GBRt4R2j4C3W7h3wH7mvLVJ
UoPFCBxgnbhN0qHhixctfs7Gj0C76xat80Y0/MV541aNVyPAfkZapP0oDQu4
tbqHFoyAe0ik00FTGsbeVlSBthEwNrO/MmVJwxvDThvs3jQKeUoGP5/a0rDz
TbGkQNlRuD1ypO31GRouiewe/qY+Cq3sR7wyztGwy70zNyxPjkKLa96NAAca
Lntij32SRyFzo5P69cs0rERmqcvMHAX9xdY1NjcaTrz0qLPz4yh0q97eGuzO
PF+taVGnbRQmzntdP+pJwy1PLnP4DI9C5J2R4pdeNIzInEKZjFHoGhMxm/Zm
3r8R7aYJjsHHT7l3z/rScJBah46O1BhIffXeEelHY74jfUy9d41B8pZauTR/
pj0vZbt2mIyBRWnupk+BNLytUT+IemYMnIRWON8F0XCM2mDUAbcxWA6xNXh2
jYbPkUUy0++OQfv2lvQTITRcc6mgsP3xGPCXKpdIXqfhPY2mFbxvxqDAXUGs
l8lP1aaatYvH4GdIyMf7ocz+IOXWgGf1GCQ6FcXsC6NhT7L031e/x4BUr/60
mcldlzBL++gYbA7cN3D+Bg3rNZ6i8f4bA3XL+hMjTM5XmxfTZh8HeZ3Rf7bh
NCySEqvo+d84CPMbl1YzOZyspPlq2zjwmz3Plb9Jw9OXqgx+7x6HOwpOn68x
+WTjeSse3XGwkGUZrGBymRrJEZmPQ8/aC0nWCKYeKcneV86Ng6+Zu7sqkxPJ
e2+keYzDKdczNSeYvM658f6vkHHgXT6m5M5k50aXVO5747A1Z/leIJNb1Djy
4Ok4xM+tm/0fo5QXhEfOOCwkDuh5MDmTjGpffhmHZFvyvZNMFnBu72j7MQ4D
r7LK9jA5qNF7nKtzHBZXyV1sTB5R41/UmhiHyXyJ1u/M+5qmvGH3WBqHMLu5
jOtMLibr//eScwKGA6yPKTF5m/OAdNumCdjWLlT2g2mPmMZrqlyyEzCh2LRq
x+RFtc06WmoTYH5j8+Iw057nUz6YuB+eANWqizlnmVxLNrV7YTkBn5XFhBqY
ejxrjAjk9JoAFu/ykYj/6acuFbU/bAJMDrPrNDL19UwhHrrdn4BFuuFuKpP1
nBkFLXkT8OVd5LdzwUy9Gu+Vc3ydgEQxaQt/pv+IqCs2a9ZPQHET2S6c6V/T
5POzqVMToHRtpco7gKmP8xqpZWUClhQFha2Z/lnW+JDKwTMJmge9KlSZ/puY
0qDgKj8JJ8tgM/Zh2lcdHDQcJ8FE3LZ6vwcNi9+++VPCZxJKMxM6y5jxROqs
02YPn4Q92PMuuDLjOdhOpPn5JHjU8LyhMvtVqAxpuNw9CTr9m1iE7WlYTPi7
lsXUJCixaSvsZ8bv6iX+LI2VSbg36fXBjBnfX6jPw9k3T4Gao2rFydM0rHW8
TCPVcgr6TU1n6syZ+zO4MyLsp6D2/QOFO8z8sbpovtHVc4rZz0+E7j/G3P9k
cFojdgrmtl8873OEhvcPsaU1/5gCr5pN/4y1aVjTS5/GofsHmnULc27IMe1V
cS/wj9kfOPXy+203GRpeFvo91nz2D7TEic8ZSTH1L3b6lhr8BxI/uxj0iDL7
adYoP83iPzBE0/53hkbDj/UdZgs2TUNY9pB86iAVR3lwycpLTAOHZmk27qTi
gOQc2yfbp0EsfY9waTOzPkzO14TtnYYzAuOnrnyjYpF7Ea9MLKbB1IPH5tpz
Kn7UlmE9HjMNobtKS3adpOL0Ne9eUtI0bPb6aPb2KBW/33bwwsZn03Ar75wp
TZeKaz27XLXzpuH+cKHSWWUqZuHbEJrQMA2bBjZcPbuOii/oB2To8M9AxlBL
zudnvNjDTV/JSngGZIt0rlMe8OJrCRvfXpacAWPLTzTFCF6cOJhbnLRzBhqE
cmc5L/Pi7yGDdX9MZ+Cg189iXjVerFxkzEi+PwNXrJy/iH7jwZq9m/3zkmeA
MdctvfEDD9ZjH10rfz4Dx189CBtJ48FnLUM5Zt/OwO5G8XfCETw4brZARO/n
DEj9sc7O0+PBC3ISOnSBWTjd5+McU8KNS5L/RhvGz0KvjsVtlMiFrehvPFsf
z4Jesthy/A3me9PQ0ersy1kQqYrgq/LgwqKrHZJX3zHXM7K/EYZc+Kpd+fvn
jbNgoPs5hr7KiZWkk9oXef9Cw0i0j701J07K1pLJuPkX5Ob+ncpdZMcqlH9c
qtF/ISkI1+v3s+Ny27fTX+L/wga3spxP1eyYTtte9PPlXxDfqH9g+yN2bHyF
z4hU9heecKM6CQ12zKo24HGcRAfLvcsC19wp2O3rrS9kXzq8P0vykyLIWErI
ZWZnCB3cnCQeKD0l49bLx6TsbtHhUn2CLFsIGWuJ/BdZlEQHkwUzFdEDZMzl
88LCtYgOmdGRtUNfWXGaAjHRtkSH+o85Y5UF63FHAl04K2gOXnOdS/zuz4Jj
plqNfoXPwerrI3/2W7JgHd1PwWzRc3DsTMFOPxUWnDkbMmSXMgdXzCpHDQdI
2MeImi+I5+Clwj3ScX0S5l8vp3+NhQHl4l+/fuRbJfQu2/qYhjHAjaNRyuDj
AhHOUOacu82Aa08MzKrsF4jSINLjhPsMYDw7JtvDt0BoRT8r6UhlwO6klB9N
jvOEam4/j8NXBizWzaxU8zEI8VmHF/6rDCAP7Z2qOPqXWPBya3hxdR6yA8RS
TOljxJ5VdP5w8DysHdl2UnvnGHElnG9+9OY8bCU/UTrqOkpMxeeLKCfMw+vQ
o/zlQ8PEQAHd4eP7eTDN+4n4qweI+n9XV3/MzsM9t1UZ24YOIiMwRH7eeQEO
J4mx8kY+IVL9012ueC7A5851ccohF4mHvnU5f/wXwP+X9ssfhxIh0ktUdSRy
AfITErjZ+t+Cs8tHzV/pC6D1cqc8nqoAldMzRp8GFqDZoSTY0ug3FGqecbtm
/Q/cNoquZe2YgNx9EflL5/6BsFnasxtyk5ChlkP3ufQPHrxn33xcagoeqq5c
dfP7B193llpc4ZmGAIWkkDOJ/8BpaCKwn2MWkEhDrM7Pf+Dw1tgwRJgBlUvo
PcVwEZRub34X/WgVOudjdLeZL0LAIUvtf6prMPu3p/mg9SJcdZHQWfuxBiIT
wYwQ50WQXEhcPxNMQu4deO9y1CJsNN0hHV7IgoQ/o6LpH4ugrhQ++XQPK3IO
QsSvo0sgXbuQ2+TKgfhYUNVrs2VwHAp+LuTGj3KVAj/CqWUQubtZ8fJjfnTM
uiij6ewyyB33qhj7zo/uFqhGLrkvg6hzsb/Vtg2I+7LskSMxy7DHj5WF2r0B
sbXz/xirWYZzm5hV/LggWnw3WC97aAXueOr6/HUQQn2Ot9teqa3C0xZ7UiJ5
C3oSN7OxC63Cd6OLKgvaW9BJfNxCQH8VJo3Pi0QFbUGN/0k1BlutQmlhT8zR
hS2opLy42spvFZy8Bwa2+oijZ1JTX7iKV4HbiYQ4PSSQXc+xl66wBg8SQrUn
/LeiP/JcHzdvJSF7h6QQRp8MygwYzdkqQ0LihTPLVpTt6MKPijR5eRIqj21I
+yW/HXVcDovT2EVCp5SaihS9tqPveSuup3RIaHZqn4UchyxK2zu9LfkcCd0T
fT8SvEcO2eg0xwm/IKGzA5ItpFcKqOZkitsmaRZ0/dsrBfEZFTRZ9Eu6VHAd
CnqoIJMWuAc979r19IPwetTq9EF0JG4/erxLVciSlxWpHKpONEo/gBiw3l9+
hRUVHTCvsiMfRgPU2VQDEhv6al51ie5piDby3awUnGVDs5FezZFbTFD03q3u
Rgw2ZJU8V26oaILYbYhNNxbZUHXrqtpGDRO0lDnvRF9HQTLqezIISxPUc9CR
p2kDBb02FWB1uWuCMq7qm8bspqA789N/d62ZIM0erg5OXwqyeJJ8/MaQKXrP
lh52IJCCluujAzXnTJGS4kFFvxAKEovZ57u03gxJ+AUEjd6ioFjXq8sxEmaI
TWBSvPIhBfFW04KET5uh+sO19jeKKUhIjL86o9kM6V924v2MKehEtUdM94AZ
KoljK6CXUVBCUaOlKN0Mve/VYj//g4KUyz1mcvnN0UP/nMwDXRS01yooU+2Y
OdqQesTMr4/JKeJl2bbmKKpyeClviIIW1t2nK7iaoyBBcSOJPxTkZ/frhfZd
czSvUTx34i8FHZSQkWt7bI7czp54EjNPQcN31Bq835ijsQj6ocolCkrOr34k
+tkc/f9/FtLiT4muqTFH/wfrUjRK
     "]]}},
  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->{{-3, 3}, {-28.395699109910872`, 83.19998541387847}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6566735061428394`*^9, 3.6566735595408936`*^9}, 
   3.6566749906127462`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwtWnc819/3N7Le1tvexDspo1RWqHuMsqVIIlmhUkiysolIoqRPGVlJpKyQ
yusaJathJWTvkL3l1/fx+P1z7+M8zrn3PM49z3PveT4eV9ze7ZQjDRUVleC/
4X9zwJjR/PY2BR93+XV57GU1eGbwL3VvUjCj+1dP7vRquGI9tFK2RsFLv7l3
6jyshnOtPltuCxRsOuNu+iGgGtSJTMb+UQquTrTamDKuhvXENVHcTMF38s7j
M/NV4HP8mUFwEgUPCckWGh+pAs9nm1lUyhQ8fiTFivhEgBs4HRKwlsAqMkZy
+70roJDB3TUjXhwP50iUiFBKwfdOs+Pehp34XKlV6rhrEUR3Nl6LGxLD1Atp
3j+m86FgXv3a6xOimNt6gE7fIQeoY/lfduqK4myLtyKiRjlwau/iKLWmKObV
U79ErZwDCzZ558wURLFjzPmgJVIOKDUL6K7xi+IPs/tG7hc/h/fPl0W1BkVw
7QuuW8kMz6HuXEFTh6cIVtN+1VVR8Qx6P1H2/H0sjB/QsB57bpAJXFSDJjoP
hHEevwT1pcOZoHs4zTcuRhhfLNGsVpbKhKI84UaJIGH8X8RH1U2aTIiI43HV
uSCM7yv+Nd/5LgPkLBlK4vYJ43NsYS1f5TLAf3oSUWqE8Es71Y404XQQ4C46
ozsliCs/2v52O5IKBcbtdHSjgli0Vu6kmHgq6EatFlf1CWKrJiticEcqeP09
SlZrFcSeNIOxz5pSoGW88bNchSB+6Xl8TsA6BWI+jBzmui2I2/hNgt+EJMNf
JwHhXoogLnCq3OX18wkMvg3uv24lgN8OLnTwVT0Cu8YQoxdmAlj6y6Ru2PNH
0N8TWtFrJICTR1zv08Y+gr7t8AQ9EMBfPB4Galo9gp5jUbpikgJ4OkA/oHw5
ETq+xxc0zPDjtLvU+24eSISGiYxg8VB+LDOc1cxSmgDFAh93fs3hw/eLtOuW
V+MhQVaGyyeDD7/cny6XNhIPXiieTjyZDyeFT1icbYkHFUfrSY97fHhQ4m33
el48VBYsFfN68eEXpSrpazbx0KCzW+e8Fh9OD03P7W2Ig8EbkVenf/HiUjO1
07wW94CzRa+CmYsXCxmvBh5UuAOdofeftLHw4ndGq+rBPHcg9VC3Xwo9LxaU
S9AdX46GvQ+vqO1f58GjfCQWhopoAIt7708N8GABw+bkAI1ouNrbVvn4NQ+u
49yu0DgdBZ8nbWqkDHnwGV16vw/3IiE2KSdz9hgPPoTejCh7RoKp4VzYW8SD
RahyqxssIqE3P1Tb4NA/PdP2w8MSkbDk/uyjqyAP/iUTRlItjQCJlcm6N+Pc
uJjI83s7eAsCaL2atG5x44Loj11GRuEgfSfZ5VYgNw6gCSvNOhgOnZw1pDpv
buxGs6LKyx8OChJkPf3L3Dhtz+Fl3aEwmILcjyYnuHHekRX47RcGloG9ldYC
3Dg66WM81+tQUFo7Xuidz4X9N4SLvKVDYDj4qsnbbC7c/OzuSWquELjPmPBn
/SkXPsWz7JS5EQzTfANygfe58LbN1Cv55mDIUrqZG+7NhVfeeLZevRYMXJ6v
M+M1uPBNMit9nX8QzM7wJea1c+IwuaI3Ma3+QOWTWWH7lRO37br67XC+P5Cp
9/fx1HNikp9hN2ukP8hzHd8T/J4TP03NMZdW8wd3Zc8Ks0xOvKNbZv3As5sw
G/Std8udE1uFSX+8EOwHs+QoKRMWTsx582Vr2ikfoHrCbUhHz4m7TceHVuV9
gExJc6/Y5sC/lIyferL7gLxi2dtdCxzYScu2sKPJG9zPjhis/eTAXYv8vpp6
3jCbruGe8ZwDu7/puZih6wVzB9fLFzU5cNHuGbU2W0+YvO+QLKHOgc94Rj1b
B08YnG8KMlHkwNcfO+rpiHtCS9HT4y+lOHBxRFzNqcHrUHTwWJsDCwcWGtAR
3e90HTwPxv1paSdjqIy7OejpAcsHdu8uvEjGIauLA+fz3WEm/h5Tnx0ZY80o
Q4777jA6tzrFYkXGumPMUqNe7tBR2Fh80YiMlx8PvVkGdyg7cE1j50Eyvv3f
SwbbfDeYtfd5K7rCjqMVHLNaya6wZJe1u1uYHd8TfPvOltEFXlmr13uxs2O9
PzOL9V2XwelsmwsnDTvOORSW6Zp/GTpNdhTqjbFh49jIu5dML0MFuqBWXsiG
f9hebhXLuATBIrtMHh5nwzJ/1Zxt9S8C6Wem7wl3VvxHfvX251pHqGlTE/5t
z4r3XdfsVEt1BP9vrZURp1lx3aMf+4e9HWG6jnZHpSor1vW7LN8q4wjfSh1i
ZelYsWc4B6Nk4gV4mEDJZHrCgksu5Ixc8XSAnSaZTTU1zFhJevCbirkdpBjT
+R0vY8YrVXhEQMUOBI2cpepzmfHRnpROiqAdcOvLhH6JZ8bn97Pgwl5bYNIu
Vv5pw4z7XPLcCi/ZwrxyTcbMBgl7x22VHWWzgVqxIR8BBRK+afu1yv6DFWiI
HtudLEXCnpcMIxujraBS+HmrqBAJmyhqfPa3sIJyAZd9u2hI2NitPaVs0RLy
uRaG9n1jwjzfDD5HyFtCIgPtCe0rTJjPLZDb6I0FOP+RkHTLYsT/ySa/iJs7
DSVJYDKUyIg15spDF2tOA43u+ZtnohjxSv2z85mJpyE57fF35MqIDw/O1PWr
n4aWk+RAsgojFuqnIX2PMQP1kq1/EGDAb+b2qh9RNQVO387bi/P0+INm4tLW
ZxOwlVwuvjhCj2k46HPEskwg/ztXX88PeiyItGlDg0xAV/qE4sf39DiNue0G
g7IJBHR/HHgYQY+L9xhoCZw6AeNHilWVBemxdCZbi9cBI6ikiZ3y1aDDMxcz
VkT19OBb4Q2JdgU6/NWtnvY4px4M2lpbyO+hwwqH95Gbu3WBjpCtHWWjw2vu
MwZrbrpgeLMxybRnBy69eObEh2Qd6F5gNJDz3oHzh/pvxjAch9XhsBf9L2mx
GVurl6iYFpASXPrU0mjx3MesbIcFTRDWMuV59IAWq8ebea/XaQJKlwgx8qPF
YcrrmkIemhBhXWVRoUOLH391jxJp0ACejr8MCYM0uKPu+NrH2wAH63yddPhp
cL6r8kDATXXg3iUimECi+dfvtPUIHFCH5WDc3L9JjdO5qK+bj6lBhSqDot8A
NTYn67vmn1YDzVcJtPm51Jg/MuJz6WFVMH34Oo3zCDUuUUGzlqIqoDR/ysxm
PzVeFqvYG/1LGfhPLDO8FKfGOYeNLPRTlKGH8YjbMXpqzPnuYZ2vqDJc8G84
4vOVCs+41wf5SSmBp8NI1y87Kuy0VRZ+0FQBzPHtWGkzKrw6HVRAJaQAKiKy
mt7HqXChmMG6ydAh2OzweEGWocKaR62NPW8cAqaHVLMR49sEI03x/MunB0Ha
QUn6FOs28fKxTeZO5gPgsp2eOm6+RfzlOWUn5i4LWP76B2r1LeLGUA+ts6gs
cNtr9wiKbxFPzIxXPJtloLJ2VMDo9yYhlf+u5pecDHBGyzwsDNokEiQCJ8tX
9kI595s7fjkbxC6Gl3z6r6SA9XhE7oO7G8T+nQlntC9Kgb33mfqXHhvEgTpf
u2kJKWDpWqPvU98gzmTNSB5/shtsnh4N1fq+TtSaH2T8HScJ9NKffVjW1wjF
7dffG5MpYGX1+JFk3xqh5NR/k9mOAgUxl0uP1q4RH5tujw9JUsDyD8uie+wa
seNK/buzhRKQX3LSrV1ijXjw8kmQwldxMEPdjqkGq4S/6zvOW5I7IcNs5pR8
yjLRHHDNMc9ZEILvmEbyhS8TeGik9yCfIJyvLn/39/IykVW9GhxUJwAC8mG7
mlWWiasnCjttpQUgjpl/+VLbEkFb4BRFXuODwGqNx5nMS8QtPL4SV84D59ay
m6PnF4n+Cq2C+Os8oCrPQuPxc5EI2cOxrbqfB5ZSOi7D80UiwbY5OjiHG674
uqj/0lwk+LcO0+VkcIGl/MM+Xr8FYue3Jt2lYg5QcV7n+mu7QLDc/ytc5sMB
vKk2uiM6C8Rqa9ZhhqMc8J1ZurCYZ4Go+SLIaNhABt2xylCTwnnCun+fkm8L
OyiljktGj88RO0h0u5sCWYCTRf3Klvkska3tOnHpFj3EpfIn16nNEp1/aGbM
JOmB7cBSY/zOWeJGrHiAxCc64H157oxh2x/C0fWDlAWJDhhBoyNlfYZYUHx4
qzWZFqacSW2gM02URFxLMhqjgpKy5K8R/RMEW3Suot3GCiroOb1fKHeCWL95
R1To4grKp2a/9/r6BGFzibmkv30ZZRuEGHfSTxCoZWbdr2QJ/dfn2LxXbpxI
MhjRdwhYQP4M+xubfEcJ2l1mqU3XZ5DWmapPnFxDRERG6pbbVg86FZlxUqt/
kAiRbbMqPdSNbMvCeq7nDxLOolXf611+In++4/NtOoPE59Z8TZmBdvTmR4PI
I/8BYiOMb48x0YyMC3ImlJr6iE8/ztUqS91HvEVfjul6/CScZSNfB4X8JAxd
FDfb/esJKyqtIAItEMzjrMMP33wmVDakbzzNXCAaLow2np6pIwqpaK/6MCwS
uucfJbXbfCKio9qS+L4uEton11TbNWsIdsEgWoHzy4Sfq99CDkcFERVI9zr0
5hpR4Jg2fv6JB8GoZh2e+GabeM8E1+KUziLZNBXdJBYqHHsZxJ8rBqFMA21j
l6NUuNj4s76LRgJam9tnxZxBhS9Z9UiVJWQjBZySaXCJGtfaOfFaV5ah7H0f
fNpWaPDchTxWedPP6CudnpYbLz3ex8yvbyFTj8QuUYm3GNLjy4XhEcG0Dei2
3qtM7TB6PLxlvf2tuBG9k7tNsZ+lx52J5Llr3F/RHPGcrv3fO2M7rDr5c7IF
OSZusTPGMOFA5WuMM+at6OTdmJ8xH5lwSvTz3TQ1rUiYhXohbpsJd8lzO0gn
taEg5pB2+xskbBYw3e1n0IEK0X/bdC7M2OMbZT22rAO5+l2WNs9jxvEUS/5M
yg80HTFrozDNjL/UfzJr3PiBmiz7Wt95seAp4S2PPudOJDL99ZEowYKZ3Q/F
L7R2IkeNWztjSP/6CN60ZqGXP5GHe22kXD4rdrrU8Xs/fxcyHfretY+eDd96
z0LSDu9CQaPEww1HNpzFrrXHYrYLzS11GVh+YcPV9r7Hr5zrRowyvm/LNNhx
/5vXF4I/dyMS6+Sibw073mYcDU1Q6EGDWrwJx2TJWPSccHpOWg/iT2g5ujuc
jNVfnyLes/xClIjd32T/kLElTdSvbz6/kDXrXxNGbw7se5rYGB7+hUImbB7I
ynHi/3KWBNZMehGHoW/qPQUuXLoho8L6oRcJ6o62LvVy4zZje3PxvX2oIPaZ
2QsJfryQ/p+n4sM+xHa1HgdP78RRfs71WVT9iHUrS0o1zQf4s0I7Xyn1I4Hd
/uNPD/9Bz5tTxsqv9KP3n5Z4xceWCKWV8uXqjH7klMJyNcOCGn/a2UbX3NmP
OJ6HOXM93YFP6//h/sE2gKLOrYRnZP3Dw3XSrgHtAaTcoOuyn4kRe6ZIHvrt
N4BecnkOXOBgwrR1oLlUMIBYd3fvyupjwvdnrU5ujw6gO6/e9ZAiSVhc0NuW
SWQQXTojfo+TixkXaN134zIdRJ4N2l8Y7zBjuJofKBI1iHyFV4nGBWb8NfHz
XSliEPHGWOS+NWHB5/FQ8oGlQWQ33TZ1OIsFz0z8zVOTGUJxGadU2WdZcACX
4LtjdkOIm/UC7R1FVsxyRLHhxKMhNMypVfnqBiuOttrz6kP9EPqpNnzy4j88
MPgJ3ZfZHEJnRK6ZvhhgxTRl1JYMdsNoWWsfk7EGGw5uXzxy48EwipRr1ze8
yoa3FsbEhz4Oo7QUTV22R2x4Vf7LRKX0CGp+aEb/aJgNe52oapa1HkHrZe+z
chjZ8cLVksIn90aQqNUzTV4ZdjyT+8TXa3EEGd+1m77gwo6v1N+1Ht49ihyw
lNbVKHY8MRascersKPrK1q8gns2Oh3c5M+2rHEUZ+g5PiG52bK9lOZ00O4rU
3B4EEYvsuM/O6DsTZQzF2WnsN6An467UQ49HIseQ8PdveR7CZGzxYXeAacUY
CuF9GVuym4zbuwXsqqbG0DW3+fKr8mT8jZ9qb8rJcRSbGXXCSJOMjZUXWJjD
xxGjlEORlz4ZN54enfUpHUesoSGWIqf+8QzPn22j4+No0SpFSvMsGX+631Ru
JjSBuKcKP43YkLFWIZFcbTSBVq6IlDE6/eMpX4uC5YMnEJue6Ik8FzI+OvPs
QmrRBApTqSWa3cn4HctjXZaRCZTTdpHf/QYZq8jEyPrxTaIiAax335eMS/WC
yON6k0iqPnaPQgAZH7rosXjafxIpRnK6nw4m44IIx86aV5NIuFmydimUjPc9
s3h/YGASVZjtKea+RcZ5NQZpT7l+Iwan4rLCCDLeM3g0nPX4b5TmtFO1KZKM
s6kOXrzp8xtRyYzFO9wm411ikoYTub/RTEMnvfc/Of0Iv/yZX78Rq4BaC93t
/9U3M/dH9inkbPpZjP3f+mS/vysHNadQl2wi2/1//gQfz3WneU4h9snRwrth
ZPyobJhgez6F3i2NclCHkDF3x49M/59TqHjHWdnf/+K5v9gQOck8jYj0g0v6
fmRM5qp0sTg6jeqw9BkxLzK+e6DwxCf3aWT5WU3B+RoZk0yyDilkTiM2c0En
8Sv/eJ3rI76M9mlk8Su90vDfedPfjd5gZ5xB9DtVGMf/5SMsL6AvQHUGRTns
oZ+3IOPAcYfnZ5/OoN8qr0lGemS8SX/mTt33GVRivMc7CcjYV1LfTXHHH7QY
onvBVJmMPe3llTku/UFPIqsN1iXIeD6YIhSU9AddXlUKHOUjY7envNtTzX+Q
XdZkuhILGSu6BjpcEJhFUW0hv9dG2HFbOpVlucIseoFTDWI+s2OP9lATFpNZ
RLMpupT+gh2/Uo88UhIxi7T4Gl7pOLNjQ3cmBcaMWdT8/MLYVy12PJl5R/rc
h1kU+W6wolGUHe9mjuPbsTiLvkxLMbN9Y8O1RznZLNjnkCW7tqVhNhu290jY
8VJ6DnmoOE5M+7Hhpz//mzO1m0M5rrN/9cTYMH9OemPmlzkk5sntO2PKiku7
KdUrE3PouGxz0FdhVmzGnl1uQDeP2EstteeGWHC8V+6zBbV5lE8bLjJyhQWT
jhUHab2YR2GbNl1sl5hxjo+i16PaeeRRda/Di8KMj78su/K7bx7RpF0fW+8m
4TCu92cf8C4gq74iS20dEt4cqD00FLaApq0zbczpmfATHh1p5acLqFZ2L4dA
ISNW0avfeadiAZUQTcrfzzLiGwXNrIfmFpAbJZye7RkDngnsGAs9v4gaUm2p
5CTocUyRRW+H7yJ6gE6MsL2nw9KjXW3SDxeRXrNW3QdTOuxs1FfV0riIPty/
XHnVfwfuFxpPkji8hP7QNj0MK6LBgScu3/cyW0IdHMUFqqo0WDhs6naD2xIq
b1S6k0BQ47OTszc8spfQUVbcI1hDhVvK105Ucy2jGB68o+jsFlF7mnmH/cwy
OsV3cO9NlkWihYNWS4lpBe1mUU/Z+jZP9DWvh5B2raDwTaJVO26OWD82uV10
dgVprJK/TW5NE/JK9Ru0H1dQw75Xh04oDxHJvJELz5JWUV4Ng1H2+yqU2xJ4
0K90FfEV2B+1sv2CymK9rhl/X0Uj5RInmx+3oxZ6pz/L9Gvo/uWAezGWA4hx
Rfu3jsca0tKxEbzD+Ad5/qAZmtBdR1YLr5dU7P+i0Afr4pUO64gkoxNfJEcF
907M294PXEcjNEZXMuSoIbduoFe1ZB29zqqMzlGmhf4y3HVHbAPdepToue3J
AIb/BbbILW+gFgcXBlUjMliaeXHQcGz+q5+m7e9jZHAmu5p0yGyipmmlK/rh
HBB62/pLoN0m0rCKnZmo5oRyH/WGr02byN7l2XmNMzxAObtedS1zC5mMVozp
9QlCDvv5397vt5DKjdmHozFCIPupijuwfQu1bjwONVMXBqVDUc7RDH9RZGWa
/+s0EdBl5WfNdPmLThrkC/1EO+FKlaJF26FtxE3SlaowpMCs9+OQLsNtRK93
sZwoosCNfVu5/Y7bSOrqOaWPArsgMKl2a+rRNmpwT1ton9wF8TdMM+k2t9Hz
X22xKo93Q3eCireQPRWwBOi3me+RBlH3yTuprlTArSIyQ34qDbYGyWniN6lA
Sm3JfohXBoapqRqkEqigbTYv7QeTLMy41gkrfKKClq7NoL1bckClZ15tKE0N
jozDsS6sB0By6zpr4Dw18L2LKexOVYT/pC9nsVPRQPn8zdbFBUUgWdiqpbPS
QJmOUsp3PSWYKTK8VLuHBuxlPUO7VpSg9KLkR5INDZA+eKjoWqvA8bYO/0eN
NPDUVp3mjrEalFM3c+39SQMxrAtt9gVqIL2/JrdilAbGvqhykbnUgS36decv
alrQ0Eo//6dLHTrQbYVdKrSgZn/swIDnUXDKOzxVkEULwVx7ZPQnADo794dp
FtHCpTmqG7vFNUCffrdgG0EL7Eyrb73OasA+O07dlS5aCODfl3CjUQOWeX9n
HuHYAU/pl5S3SjQhMjTZqiFgB2T0LyxWpGpDztnthiFzOqgMEXJW/a4L5uEy
Z2Id6CD0Lq3YFpce0L4+M6TiTgeo9whJ6YwenN9RsHE3ig7UKBlxLH16wPPa
Vlbl/T+9qw+D1aI+hO6ovhsjTg/17y+OLSgawbnX4SaKU/TQrNCX7MJyEkhd
BT19q/Qw2danW6J4Esp2/LoYTccAt5TMX4HNSeC0VAzpE2WADEpAjWTxSajf
MVoYdZIBrkoO/tlz/hQoWepw9ZYygEQpSjxVZQrsdKSOiBBGeJ6yc1uh0hwW
F9wj5u4ywosvzUTYH3PoGvyhdO4JIwT+oncTFj8DWfjZowPFjLBdIVkue+sM
qPhrnO0ZZoTc2cX2byYWYL/g03NAlwk+afK8dVo+C6UDY4M9bCSQUi5jbvK3
hqRvxg90hEhgS3NEZbTMGoKJN1pFUiRwp928a7pgDQYpYVmRQIKFD/+N7HE5
D/0WYk4HPUhQvEpO+3TeBkjfzCci20lw6r38R8Y8Wzhf+fHPwWRmkP1NZRxW
Yw/Xt90lXr5gBoe2mug7E/ZwG4RPS5Yxw+zAYkgDuwMUVXtU8LUwg1SMwdXp
cw5AXyd2a5OBBVJ63/Y0rTnAq6++gp+us0Dx92MPxY46wt9+uWNnDVjhvVcd
z615Z+CS+OndYsEKpF0V9A1iF2GPQ3iugRMr5HK4GxkaXYRTI13sR0NYITpz
4A3Ti4uQPRHZJVHGCkxiOlNXHS6B8fyA25QEG7CM5DGxDF+GFNrEJ0HrbBBT
kf1lF68rzGh4V3MwsMNeiavZkzqucDTYYjKTix2KjCYXfvu6Qv+moOpnWXZQ
yXqWm97rChLLT3+SbdghI/7Ss95cN8gef8GfUcMO8T2q2w7P3eHH6HkD++Nk
YNl+U95i7wFUESds8gzJQFNa2fskyAP2SML1xVNkSGwNfxeW7AE+DuJJETZk
OKUnvVHW4QGC/UOTuT5kyPWm1sw3vA7nfl6MXsj9Zy8qeqv/qCf0N3rUh7Nz
QPdP8Zv8R7xgZ8It0dO8HFCv/Td+1tYLbM/9d11ShAM+Hx6tnw/3gv6pDyKf
pDng0esLYl7NXjDAyuTBcJwDHjwpWrpp6w2DJ54KRvtzQF9ehUh6rA+MtDa6
3JvgAFaRnw6qLDdhd3IvtpnlAMOEyE+JijfB6cIcj/zKv/2JEi9xm5swusiL
v+3gBN9OZ93qon8yjz03505OEBrcvKZ4zh/Gz6y+TzDnhIpbRaxU5QEw2b2L
7UkNJ2xUXj/Kqh8MnzNafi3Xc4L89nGF/bbBkH0pON/0GydoWaWDs1cw2K90
G7L+4oSrNgd/CGQGQxfngzvBy5zgplGTEL0VDPV61EzOe7kg4pPx3uelIZBT
9otW4R4XVF2Ou6agGgZODxLXmi25wYBthHk6KgJs39t1k+y4QekJK2vAswiw
HJH9oOPMDThWeVqyKgKMlGuCq65zQw0NVUT1agQodP9heBPDDcPFVyv2XIoE
Gooeb3IlN2gJPT1WanwbUos2Dl6W4IFIW5NbSC4aOr7bXqGf5IGd9xKUndRi
YZxifK9hlgeK32QU37WNhbUbakWxKzwQO6O+2XErFoQFeVd56XghJSlF++u3
WHCwbwyT2skLXL1iMxYX78HsvGKSrjkvjA44Gc4ZxwGJm7khupoXjlbLCRbE
x8NR8zdS7El8oGytvXDCOAFmso98tEnnA6MlEuuwQwKkrHy0L3jOBx68r2Si
fBNg87+OlJMlfJA2KpNE/ywB3navcCU08wF/+5L6180EULBTpRKg4gfpC+P2
T18/BOkrRKeEIz/we2IXP4lHwBdaH6W0XwC+StQUCqMn0Ltx/SKbkgCsXfnV
eMnqCWTfENUZVRcA0JRLbPZ+AgqXru9I1BcAxuRKl58FT+CUiUjQkqMAtJs9
uEq7KwliRK95liQLgPt/E1fz2JKB6h2/zUGSIAxw8gmkL6XAxIKzwr4RQai5
tb/wKn06NH3dLzn6WxB6+w8+1OdLh4K8FZ7UeUFI/bY2fmhPOng5RK6wUgnB
vu5DqzL66UDTml0xLSgEE9LmtkWx6SBYNAL5JkLw5ZVkiYhgBhi6OxjJvheC
uLTO1MeqmfBq6ryT9ANhOGp9lvVW5jMYieFBx3aJgvV29PGIilzgvm5uK/9D
DMKMVF4feVIAVsEy3CmlO6F1zEqmRKwEskmdalkB4pDn8CVGia8cpsvqIx+c
lgCfssTIXvoPMKUiJMUpRgGuzZ8XqXdVQTatbu9DCQqIUR26FiBfBbZfPB8K
7KaACn3acaojVdDu8IVWXI4CEn8f2AuaV0FlbEj/fjUKZPxmzUq7XQVxw2OP
jc5QIOEFl8/KTBUoxJWwRN2jQIezXEsfroYZy4EalgcUWLq2YKj6pRpyJNlu
xiVSwKwhcTipuxpE3jlPPEqhQHdIjKfncjXQjwp+ys6jwMaPGeubsjXQqRYS
VFtHAaHlnruDj2vgPv0rJd1GCgRyCtIXPK8Bw+9d041fKHD/U21N+JsaqHJS
ONfaToGd+YkC2t9rIDd+TGVwiAK6ga+9BJlq4cI57lnHMcq/e/ennQRfLYhJ
aTyfmPznP3co+4BkLSS8f8IzN0cB+2s9uk4atWAcWdfkuUQBvz9TuXdO1ALj
qcWw1dV/8ZlKXCu3roVqYXE1/00KfGxiS51yqYX//48BpA1thT1+tfB/MAXk
XA==
     "]]}},
  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->{{-10, 10}, {-8.46387293299497, 10484.314095137193`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6566735061428394`*^9, 3.6566735595408936`*^9}, 
   3.656674990655749*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", "/", "2"}], "}"}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.656673572030608*^9, 3.6566736723853483`*^9}, {
  3.6566749819232492`*^9, 3.656675012777014*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVxXk8FGgfAHByTOMcjI0p5Z6Uu/vyPIVIhCaKXJG0So4NkeQKSbLKUSJJ
rnTQLiI9v0gU5b7NDHkrrJXsGNb5vu8f389Xxd33qOcqAQGBvP/5/x7Pk3+s
rFAg8MmtaJ8BFoZbSpp7FinQMRwt+LSFhdf5FTsFzVHAzLN/1XQdC3frv/sw
MUUB/5KQ+MQSFjYvm33UN0wBn+0qPkLhLKz7p8uJl3UUqDWWEJtVYeG5Ku23
Z+IokM1OlRnzOYoT3zemfJKiAFe+8VCqvC1WZgz72VJF4WxoQKAZ1xL77WXZ
asmLgI2j6uG4BHPsVsA/2KQhDJ0DGXq1bSb49ZHQYDVVIWA8H7ocYLMfd7w7
XtyitwpGs7fYv1nci+2C5RUMtQThQOzKeATswJcChDNdmAIQcdroyMczW/Cz
S/fwG59lIrFPRnTXpB4egkx+uucyqZiJyOxu18Oy1KwSf+dl8tq0hh9XoYeD
7z5Q0LBaJjF299s0IvUwrsqbuqG9TGZfPOVYyuvhjoVnOQ5/LRE3fmSS0X5d
PBdeJzBzdom8LMspdS/QxgeuTcDm04tEnNkjZFmshcczBdYkOy0Si4IrfpRU
LZxSRvfhHVskw4Okuu2qFh7h7lWsMV0kPeGM5hQ7LRyz+6b/EeYiqU9t+FYv
qIXrf+io+o8vkBIBkYejThuxuaNvdLnfAhGZmfz9qxITH9GbNt1/ZZ7IZTyp
nGpUx3tan080Bc4T9RiFfy9XqOON/j637S/ME2H8/oZcvjoWejk6dM51ngSM
6CR4Ravjyu3cy2n754lU54u1uUbqWMWoufQvkXniXyaudLJCDfMs85XSkv4l
I8f1zheVquJMb8eZ8QdzJGbZxVijURmfl/xh1ZE+R1YSiz8dqVTGe19E51ff
miM1JrU1MYXKmDNTcjzx6hw5/8W8RP66MlaOXHml4zpH0i+KfP5ooYzz0vPC
/dbPkUrOLtmZnA346btJCv/+LOnQV2R5fVDCZH00Q/AenzxK/xnq7czAosmb
5C6m8Img0XlVpikDWwq2i39P4BMJ36DqGW0G7h1RXmq+zCdbkp2SGhcV8XTh
G26GM5+YL/taGWcpYs0t83n6KnwyJmIzFTmsgBPN/PXcCmdI0M5Y8jFoDXb0
czUh5Txie3Sgva2NjmNG2JO3nvHIOmWlFX41HT+zd7rrls8jr2wM7uvk07Hg
PodJwTQeKfneOfE5lI4LqawMk0Ae0Wi7YzqkTsf83IMTH7bwiHcQt1s/TA6n
dOnc6XzxD4kp9hxS3SGLm3YvjowVT5PCJUaxfbk03r1TnTuUO01CLe/oKd2W
xoXbLPt77k2T4x4Xw5Z9pXGs/v3W+oRpcqvBmiKzSRof0Nxb89B7mqyq8FH+
7YEUrpQJS3PYNE0ir8hEyN+SxHmjC+Yfin4Si7NtAZqR4jg8beFpYeEUMQUQ
2/eEgm03OP+7PuVv4h/n8qvhSUHMEjKJqo8cI/FWpXE5C3xkoppCf13+lfTa
+rhxasfRsOGplBv3hsmlminrzuYWJNQ8/kFUbYB8t17xG4poJ2qFw5FpmR2k
1FhOyOvpKNnZ8ofKi5H3ZDN1NFjyJo/c+S6R+in1GXnOSh4y0VkkUaZetBz9
p4hxPLpCrEMQePK/EdeoBlTX+/bY9LAInKB8zBp504BCT2VtZf4Ugeo55TCv
hQZkz3ks7iwgClEDn3f6XmxEtyPGGprWi4L0w01l4Wc+oKLuwOLyk6KwSftL
XpZFEwow8Jxr7hIFtwO2CQOyLehY3+ApnyYKvNtSeNbVugVd5lQ/YPdTgKmx
cnDkRguKtwd523EKzEZ3RwauakX3o4LVD1BXw5szMUZXLrciz2hDDxuz1XBY
e6gi0acN/UU1Mjd6txrOVKQXP7HtQA0J66NraqmQsNGrPSigA72ZHeo266TC
s7vb5/ff7kAhoHOQ85UKs5e7DvV2dqCTdg+vGFDFIB7LjQmf6ETBjJn2CBsx
ePIhieni0oVE+Qs7jn8Rg9bdLtZaV7tQO8jkTfLEgPdEJ5j3oAtV1Na/zaKI
w96k5vcJw11oq6e/p5mOOHw+Knam4nQ3cg3x/TkWIg5TA9fyaOd60Kmfs8UV
ihJAt7JrHrjRg6w8LFv9dSVg5xt1Xn5JD7LY9pTpYiwBkTl1xvsmexDpkKL3
+kiArKfgyK/+vUjN0b32cb0EbO9uFduW0otOVDE8TAclwNEsx1DgZS/aZiLe
ZPCPBDzSQlFpvF70omCjlJCqJGydDFOpC+5DYSkOlowYSTjhankoKaMPtbDi
rUuzJCGsda2/w6s+FM+qbK6rkIT6sir4Md+HaKHxwWF/S4J98JzruvB+VFm3
i2/jJgWhow1x37P70Wjo0Red4VLwwCH9eRnpR68rE9N1sqVgdM/2FXPBAZTZ
O9OYy5WCEIGL2YExAyhQMrbgi680KPQ9eHsybQAlhGqa7LgmDeWlTf/ZXziA
VKisPwUypWHaXW2zVPMA0uhncqmN0uBd316RLzeIOLGGnx3oNFidvdyfqDGI
9KiPr25ToUF+0KblgB2DKPfa85hfdWnwhRllgk4OIl2NFeaPQzRwTDBo68kd
RP/kjusoxtJgzt2ZV/PHIOq4dPujcxoN0vZcX5P3fhAJ5dxM0i+gQfvEkLPf
+CCiRakmF3ykgV+9RKT94iA6tiB8+xSbBlLZO/P2SrHRae328K4pGlhYJ4+v
NmSjsbOfZdQYMjDKfC35w5iNHs0uWa3Tl4FYgVH9Ljs2UpayXpIyk4HaUhT8
MISNbGxOULdekgG3hHP34m6wka2H8Upqigwsu6fX+GSxkaZuv6XtMxnYTf8h
tPstGxWl7wqzG5eB3gkGU7mDjfy8Z2+OiclCUP1BC9GvbDRV5/jqgo4s0LMD
fCb4bBTvv9NJ4agslAVlJ7ev5qCYrBw1lRBZsLH++LKSwUHqF/inm3NlYZLJ
787W5iDtDaz3Xi2ysKnPSumcDQdNVeaMfzWUg8bSEGzrzkEGRQakxFsOziQ8
9thxkYN+8crR2VIgB8IebbFKsRy0lZahoTkmB7l7loqEMjho4ZTA4jEDOmC6
1qexIg7qmvjduyqCDpyJY1Mt1Rw0PHQtIb6XDmH1EXLlnzjIau2NVbt2y8Pa
7JLt97kctDS7cc+jAnmoCup1iPrJQcuioqfXqv0CJ6yFr5wV4iIVZlJR9vNf
gM/Uzzkiz0XvroY8lrNdA3cEnOq2MrnItexAdbGEAhj2xX1j7OIiQSfvsIAx
BWgtfUkVPMxFMXbiiiY/FeFCAlf7uxMXCWsGRhw2XAsSHuI2ny5wUQpz9nrp
23VQvGfHby8juMji9/HMa7AezOkeaXdTuOhr/mfe6zJl+DaR9OpqHhd1navw
Er2uCjH1VYOe5VxErTNwPmSsAarZ31YON3KR+4SuqkWNFkCQrJphPxfVbNff
HLnLAFysjQ4qTHBRdub+WL7XPnjYuixtPslFlg595zIrLeG/6UwjLg==
     "]], LineBox[CompressedData["
1:eJwVl3k0lO0bx8e+DOZJEYVKkl5LhLLEdZNKUfalsqVISLKUtaKULbK+3hYR
SlFKRFLuVJSSFpVUGvswY4zdWJrf8/vrOZ9zne91nut7fe9zn3uN93F7H34K
haLER6H8/yuxNuiwKZUO/otDvCxZZ6Q08SRWkKADZUl66s5sNWQ8p6YtuooO
XCVZ/yE9aeTKl9dD1aLDRuuOYrXqRQgTFcmhmdDBoPlYGk/wD1ymndy51JoO
9gye3Xazbw3lsv1c2QN08PFWsBEUG2l4o+hYvsKfDlf+nlksmpps6Fd56aEU
SYduJ4rtt8/cBn6NTUuUE+kwHHRAta5wsUFJt/Dlun/p4J6e3RGwj4KNjIiT
G27RobW4t6n1Gh92NjujpllNh+Z1anq65fw4xJLdqf2KDoe+ZQUkZQngdBv3
S3pf6DCXVx2174AgLnd+DwY9dOgdarNniAnhN+7G48ZjdHDKemTLLBLCfYfv
FgOlGyb156wXNYQxX6C8yzZaN7ilv3nHui2MlUITxXYqkfXw8YwxWRFsFDXz
dLdmN8R8vKf3OVoEO8f5Bu3d2g0LlsXTf7+L4JDEr6vtrbohbrOyS4mGKC7L
fZSw72g3RFeNuK54KYrfXFc2cI/oBiGzNI8jwmK4rzhj2OtiN+jw2wQYbhfD
Co+O2/iVdMN2GW6UfY0YNqjr4gus6obQWv8b3kwx7PRiT9Xxl91Qf3n4erqC
OE5rU5c/1d0NnpPu1banxPHdb1feRXG6wbVGJ9y1UBw3/xY7fZrXDWZlD974
vhXHFNZgT4JiD8hsqyowXkbFChPOOUkaPYCMf1ns2kLFBnOvd14y7oHkiLoB
lisVnxAtLs/e1wOiXtoqnnlUnEZb6pnn1wMxfVs7Djym4ruy8UuuneqBI9Ht
zlZfqLhHxetkUU4P9Anu/WwpLoEdzRRQ5aceKBBtL3YOksDBlinj1fQe2KH6
YTQ9QQKn2swVPxntgS5flQjVaxL4tXuH2AvJXrCd3jVyqVkCb47K/tK2qxce
iuZvk5WTxPZxAhe+uPZCy+j+dil1SXw8McTg+5Fe+Ff0H/erJpK4NNf2elcC
qV+a5HzuoCSWfyRxZORFL1iVassIlEjioMet1fqfeyGZAs1HH0viV0/SBE/3
9ELKdAnlZLMkDsbETSmBPjjP69C/xJDETa3Lfm+06IMEv/1vJddLYYVPX9Uj
HPug7O6ze1x9KRzSnhuFD/eBdkX57psWUljxp5ycXUIf/J2b1d10UAqHMRQc
Qpr6wOnJuq9x/0rhFubvwrpvfRDebZqSVCyFV43mc/gH++Bss9dGt4dkfWp1
WpZIP9hsay880iKF1wise1tl2Q+fD9+cNZiTwh8UNWGmpR9+5tZsLLajYZU1
7Evwsx8WjHgHfh2g4SiVil8Xmf2Q1Hwiie1Dw+vUdaLkJAYgheqOiiJpOMZA
v9pwzwAcrPIXcr9Bw5+NpwXi3QcgWnBiX1gpDa+HGvuWYwMgWH7w8dGHZH27
IWd/2gBEnLinyGmk4Q0OJuoxbQOgFDn8IryPhk87/4189WcAEn39cy+yaLh9
X8MbCc4AaCiqakVN0vBZLzPf68QgnCipdOfjJ/C3Y9sLn9sNQm5X7NJ2gsDn
E/cs52sfBNoSVW6tOoHZbMY6vd5BaHcxKC3QIrCr03m9I+OD0O3rsiRGh8Aa
yk/tWgkGdHIWzaW2ELj9qVrqf3sYYLt4aV+hGYFNlV9dee/GgIeP4paqWRC4
NNHzDi+AAX65jp03dxA4xim3ySeZATIB6ffCrAi8dlSAb1MzA/ZWRaslOxI4
1ekGzecbA3aydaiVzgSefmqklNfPAO719xofXAncknjC+K/AEMho1pr0uhE4
RPlPeAsagvkKBe7ZwwT+lRh1ftFmCJQ5pwysfAm8Y1QmS9tzCA7bZ7eJ+RF4
Rb31g9zYIRiftKIeDiBwo1PdsHfdEHxY2NqeeoKcr96Jm/N2CAKuO49yQwic
qzwm8rZjCLrUAo8cCCOw/+j6dRtnhsCvxTxw/iQ5v9NLXW/hYXj7fveMYQQ5
f72HeY7MMCx99+dnYCSBpZNyPOd1hyHS7FNZRTQ5/6h2kNa2YbB1rc1qiCHw
gNP7mIP2w/Ai1OLDy1gC1ykLXGkOHobYrE2b7pwhsEpSfuncmWHY8jDdOfks
gdNGDWs004fhT1jyS884Ah+sD27Pukf2i3UJGIwn/VGW6G2qHwYlm/ob/50j
sF7S7THuu2HwpgzQ0HkC54+aUzR/kv3a9Ws7SRZ17pLyGh4GLZP+7KMJpJ/1
kYpZ3GFAbcI3WST/UpbRaBJlQuOGiz8PXSD9THpgxF3OBPFOTZM2kh+MWu3S
WM+E8s35jVoXSX+dB108NzOhXdf1SDzJ5+vjfTO3M2FQ+4lqC8lsZaXw145M
eNCwMC+USOYr6cm52UNM2OFj0qNPcuOoY6Z6KBMEnMLb95Gs4cwp8IhnQvG6
M60nSM6tT6nIyGBCx1nZN7EkU9auf/6qgAmnWjue/5/pYcfVyyqYoC7GFA4h
GTfV5GU8Z0JmQHLtfpIL5CjCEa1MYIg5fNhC8ll/y1CPX0yQsGw2FyPZq/4y
3YLJhAU3W6KN/F8k9WOP+hwTdn8x1UkiebXXmqdLxFjAFnp3YwvJvIdH1WaX
syD6PxnnTtKPLoHKnC5VFnwaW7/3BMnPneb4X+uzILx4Mm6B9DP/tnlwmQUL
SgddmNEkn+Ym/85wYIH73+XnR8l9eFh92R3hzQL5wv7tLiSbXl9Z63GCBQOH
3P55RO7zLyrPVE9nQayutdlOct9dmZO8JfkssFmd63uGzMPzvq3HZstZIHFL
PbuMzMvpxNadr1tYMOgmOPLnNNm/U6a67AcLsnpixRlk3kw1PJQzGSx4aPNg
WR+Zx8U29oKH8AjoqfR9roki979mi/92mREwv58SkU7muT70zHd1lRGI5Bqw
95N5j1lOVM6ajUDXfX2N1nACL3joHMmMHYHoHSvXKAWT+geR7RGpI7Co9j48
K4jU8zeaeV4dge2pAh4LgaT+lr2CxpMRWNZX+Lb0KIHnR0I/vZ4k+6FarQBv
AndCvWm5ABvqhZXNYrzI85EhWJ4pzQZ1Tsetsx4EjtLPueCpzQapbEmrQ/sJ
PBfz2JgbwIbqZ53UdDtS/+Fv6Z8oNoRudPxgaEPqV++UbUpiQ9DntILv1qT+
1XdO5m025Fvk2bF2EphL5ZZo9LKhDBVxIkwIPHvFmPDaPwpscz6H5aoEXjL0
VT7FfxSIrXqn7ygT+J8twWsfR43CsLrmS/VVBHb/UrxZ4uooCP0o8afIkXmm
SrnX/hwFvR06XQxR8vyYchwTtThg3/3IzKWNhu19nv24vpkDfmeafEObaNgz
NdnjkSkHPt/erR/0jIYjOlX8uvZygPXtpR/vLg3fPbkvWu84B/KddA9cOk/D
tIrGQnoFByb6lSuRDg0rfEtXna7hwKrO1r3GqjSstuhWRsUcUKw3nJBeScPm
VjNVmz9ygEedG3QVpOGwQfU3qRwOtL7QvrT1qxTuWJXDNtAZgwy++/27g6Xw
zctHjDMqx6BjPvoHTpbEhkNrVivUjcGvtao1ujGS+KPZL8HbL8bgnHynfMIx
Sbw4bvuh/uMYDEkU0F7aSJL3h9FBBnsMkhOzlO9IS2KpFZIXQX0cpn4UMkUz
JXBJSHNAy6ZxaBAY7XONk8Bb38XZOhmNQ0XZ2Z6EYAl8NGZaPmDXOFzek5x4
cq8EftX1pzz3yDiInzH4WCEqgSOLKj+PFI2DOevArcCTVEwsBNZElI2D4dvn
dnGHqPiW4/prAo/GQfCqbdgJWypuF7rmI984Dievrqzr3UDFWn4Jsxb0cbBU
jD4n+VMc92m4Kl1TmIBIj9fYc7M4tn28eHR3zgRcWlq6YfdHUSwo2X3t1PUJ
qMpaKLz2WBTXHHrVVlwyAZtrLffja6JYaUmKPq96Amp/CwpE+4liZoAcX9W3
CRgxCoh+siiCL6zRzVOUm4S0+Foxk1UiuD7Vr4lzZRIO38q7EWAihIN7rbiK
RZOgANVGRYpCeK3RRg2rskkoNfd+entRECcPTmWUPJ0EWeqeLtlngtjF/Jz7
/l+TsGuN27MkQ0E8PnN98qXiFBCRgrtuqglgtUNflP8tmII7571H87so2JdZ
VG1YOgVjrBsH6+oouCg0zPJXxRTsrBm3LMmlYKXzMkFrGqZASjV9gbGHgpeV
uDwp+z0F8kfyjXaF8Roogz9t8IppKIlfyC+SXmzo8O+LGcqeBt97KmaOArMN
shNVtNRr0+CzKHuYc3+mwSE64aZW8TRkOTgXr90/0/AhRfVN6KNpsFYsjN1b
Md3wqtxv6d9P03DzjnzOfcephgds1h1p2gxMH3uz2itlvCEpZOqbcdIMwJVO
74Q9Qw3xwQrytZdnwE15JujwJUZDVNC2A3p5MzARcMHE//1gg79/xh+N2zMw
sq5ck7FzoMHaW5Oh+HoG3K9eLLqh19tA2PtweZRZaJQ/56f49kdDns7Xla8i
ZqEgeyFuzjwJLm9ccEdnZ+Fj9lqbq8uKIUlzbUH9xVng12g3T5h4AFEbTqhU
585C4gbfM/Sfz8FtjaTmrapZiNU2DXeLb4XVS7abJnJmgS6rL1mo9RtKOVVe
1n5coPoLz/nXjcAzluCYfzAXrPCWTIkWNnxmOMYlRXBBfSlj5kvnKCzQJwub
ErlQ9cXmGJPHAbtPer3oDhcUyzwYf9QnYO5hlY/+MBdymHY9nTdmwDq0yl8p
cA6KpQ+VmMRS0NjUozDO8XkYiUgXGGwSR5fXjh0+f2oejDRLPpTJUZG2nZaT
3Jl5mPEx3lbnT0VB5aX6KG0ecnQpDVU0CcTyvj6dXj4PERvuK6q4S6KBtgsR
G4fm4c5d+nNhAQJ13tkXE+S9AINCe2KT30ijRnfeOZbjIrxIc9iq1yKHTif5
NCq7L0JJVK2QMp88Mqp+R9nnswgHc50xMpBHlRJ5sa/DFyHQcTpoyW15dPOp
9qn83EW4eXRbNP/FFShO3tvftmMRvq5eWmloq4DQ11e2VQf+wms/6/OugqvR
M+tkxRhvHjwQ4AY8p6ogPfYOaqo/D7pOmQ6u0FRBd9MFuFdDeBDMv1k5c68K
yvsc0/40ngcmiRfFP2WooDDX4ynzN3nw8M4piUz5dUjjsCM3qpcHYX9+KGpo
qaJWk/ThrZsoyP6CsdvKQPI97rSvyfgRBU3jdyXNJpqo3lTr2N/HFPSQTzgx
/pAm2qomsOxFHQXV3j+X7pKkiUznyw/uaKSg5f4njGy/aiJUSFm0/URB2W8r
9WODtJDFyG1d31EK4vj5nmwr2YisE6YLLqvzIbsBtwK7ZTrIrTorur+ID11y
4bhgrIukf4xMdZTyI92BEJMmFyMkocU+FnFNAF38DkF3mxHyMXr2cU+KIGrc
H/zvr98WyEG8fDYwTQg5S3TOHeTuQglUMyWDs8IokjPrTQTZoGW7L5hsuSCM
puwMVvMybVBx4ju3zanCSCM/bQW11gY1Cjlf1csTRstfL5414bNFFEqAnM4D
YTQwl6DkYW2LYiazpf+hC6OLvsQzv35bFPabIayARJDen9FtHcr2SFBBS3Xl
DhGUPlDD09lij7L2h25fYS2CZANyra5a2aPK74vn5FxFUInZzsprYfaI80ma
TyZYBB28UpV5oNkeBTZtnZcsEEFWVj88Px53QAuC8Sskb4mglFM3nqgmOKCU
bc2GEuUi6KOF/KpLVxzQXWwXIV4rghrd7DSSXzsgRp3vlPBHETTc7vXPDgVH
FMEtWyb8jWQ5i3rFTY5IxGBMV+iXCPod7pknZOmIVKujQwQYIqj4cfFe4TBH
VD2BM/jZIogIv2CwKtkRWWwSfsg3KYLu8RGplgWOqD3Y6iNlTgQdE1a2i3/s
iA5VXB7l8USQqfSN9PfvHdH/AIYwq9A=
     "]]}},
  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->{{-3, 3}, {-57.442243081214286`, 88.3527831826265}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6566736457018213`*^9, 3.656673672828373*^9}, {
  3.65667498718155*^9, 3.6566750138660765`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   TagBox[GridBox[{
      {"\[Piecewise]", GridBox[{
         {"1", 
          RowBox[{"x", "\[GreaterEqual]", "1"}]},
         {
          RowBox[{"-", "1"}], 
          RowBox[{"x", "<", "1"}]}
        },
        AllowedDimensions->{2, Automatic},
        Editable->True,
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.84]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}},
        Selectable->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.35]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    "Piecewise",
    DeleteWithContents->True,
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"ExclusionsStyle", "\[Rule]", "Dashed"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.656674912158259*^9, 3.6566749775720005`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQnbx+wvv//9kPMIDBh/0/dukcTGtH8HuOnZh0lg/B
V5B6WBDIyQbnF9gEB2qKssL5Ccu/uZ1WZYHz9/hVlSsrMcP5l4+ErzqvzwTn
h5aLShhpMsL5FUUss+PUGeD8dRWzHPbl/tsP4zu1vjmgnfIHzvfT/+TqWPsL
zp+dFfX11fwfcP5+uWYpxlnf4PyogniX/du+wPmnrf48frnqE5xfN+332hUr
PsD5gfKxP+UmvYXzg5ldmo42voTzXZQmiezZ9hTOf2iUOKl71kM4n/nMq5Ns
yrfhfOUVDxunzb4M51uc36K44fExOH/Kc56pZ6eug/ObXNMFFhistYfxv4gW
749vOg7np22fvmp14GU4v5KhZF5py20434kpuaT8xEM4P/KkikBK51M4/8i8
1APls1/C+Uw5lybfbHwN5ztY2qdbZ7yF8+3Cj1gvCnsH59uUegpwur6H8/fs
yTq6qAHBt2bpqbLZg+D/Wi4TynkLSf2cpunBHxB8ADDT744=
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvWijnck19g/2DGDwwX7vd7nWi1wI/lqFw7tdhBD8
uZ7pn7ZLIvgyEzuWB4Yi+HNurIx5PQHB19/l92325I9w/qHZn/t9pn2C8wsO
du5jrfwC53vkxZcHtXyD81fWNmp/z/kB55/47bCV3ecXnC/I6HBydfAfOP9R
RveN5Rb/4Pz32tw7pZUZHGD8M1HzCyRVGeH8t7tuqh4WZYLzF98zXrBNihnO
n2tsIhHGxwLnf7Nnrtb+i+A/4f+0yIuBDc4XE2w/IfoJwbd5wH2Hq5Idzk9e
P+H9//8IPgDGmXfi
      "]]}, 
    {Dashing[{Small, Small}], 
     LineBox[{{0.9980867346938775, -1.}, {1., 7.527424000000001*^-14}, {
      1.0019132653061225`, 1.}}]}}, {{}, {}, {}}},
  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->{{-3, 3}, {-1., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6566749777660117`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot Options", "Section",
 CellChangeTimes->{{3.6566747982827454`*^9, 3.656674800209856*^9}}],

Cell[CellGroupData[{

Cell["PlotRange", "Subsection",
 CellChangeTimes->{{3.656673711199568*^9, 3.656673714255743*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"100", 
    RowBox[{"Cos", "[", "x", "]"}]}], "+", 
   SuperscriptBox["E", 
    SuperscriptBox["x", "2"]]}]}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "250"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "Code",
 CellChangeTimes->{{3.656673151287543*^9, 3.656673186100534*^9}, {
  3.6566732161122503`*^9, 3.6566732893894415`*^9}, {3.656673319966191*^9, 
  3.6566733210652533`*^9}, {3.656674438391161*^9, 3.6566744495137973`*^9}, {
  3.656675158552352*^9, 3.6566751600134354`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJw1mnk81N/3x2fGGPuSJSpr1rIkhFTex5pKUlkGFRFS9oSQLZWQlLVQRJIP
KkpSue+QLZE1Itlps5SEmeH7/v3x++f9fjwfr3POPfe+z7lz7+Mxsi6+R9wo
JBLJj3j833vqc1zzUV52XOrPRY+tjESQPlfqp0Vjxz8+nR73uJgIbY84kvf8
o+L4xpKE10cTQFXsddvhfir+4KKokLn8NegruGWb2kPFhSakt94YiYNYTc+h
3g4qLrzE53DlXhwMHFw/49hCxf2vKVy4KBkH8bF+fO6vqLiUvJ6So+xVmJ6X
twjNoeJnLgZNmO+9DKmRjK7Xt6n4sxx1+2r+ywB8nY5raVT89ajvBrw3FjKU
I8/GJlHxkWegE3M6Fsyc+uOTIqm4Bs7++fmtS1DQer35/kkqXsNvUZZMigHn
h4tm7xWo+O2k9ZUq/hGw+rzq4WtZKl4g0XK1STwCsupDOcskqbi681TP8bcX
oXdktTlZlIor5riUu4teBAsJjoO27FQ8zTq9u6ApDHRvih0dGWfDbW+S8Tj7
C9B9r7+ic5gNL4i9q+4jcAECyrJE6gfZcJEN9+Y2N4RAyXvp3sJuNjxxJFFt
fkcIbKYp23vVs+H0pAN7R6SCgT9Mz+lfPhte8vZbrYrIeSi5toKm77HhAbxy
L1Z7AmFf5muZz1ls+MDtmysRmYEQ+xxGX6ew4WwW0o2R0oGwMmvuFnOJDb/u
YCZlueMcTJyyP8vnyoa/3Hfyb2KEP8Sc29S6eoINvyFwJ9dhvz/IxHxRnXNg
w2XS2v1frvcHh3snZzqPsOGRVB51+ad+8LHf0z/TiA0/FSlsw97vC68tQ4Pl
NrPh2uvEKtWXvCC13lTZQYoNX7YPW7Et9AJv/XX9yRvZ8A6FFzeO2niBlGKR
/qoQG+6i823D2+dnIZLVw+pjY8PjiuXnNaPOgFHJ9tikCQpeNkM9WLbzNGzc
zNJ+N0LBV3UztBQXPOBPRtME4wsF35zw/dGRxx5QcMlpr2cvBU8v3MVfq+QB
7I7XuU0aKbjLwSLDZhl3aOL6lrxcRMGFsqWUWdtPQW7kM0ONBxScz6b62Oyi
K1z4G/nbPY+CH+J2ORn22hW2jqy37r5NwSvd5N457HOFhCoTscfxFHyu4bcR
3xkXsPTIzTnlRcGN9fXcSQ3O0FVvV9y+jYLfEQhMev7GEe6+4td+rkLBPfNC
HB+cdITT5e/e3FGi4FvjJf2yaY7AvKfV4SZNwccs+N3SjjqAfJjAEoOfgpst
3JhyX6ZD4PZGU+UZMp44WR9qEmALBsoR7XzfyfjPSz9NvRVsgVN6h/2fCTIu
YpqcGthvA9m8+V41X8j4eGJAjKiJDdRPRaRYfyDjdr78ISflrEHkrs5IVAkZ
3/rYdP0eziMwlPrrjHsRGXe/tO2MWdNhKEooWDhQQMa9ynVVea8dht0XhDjF
ssn4cPCk4Tvew3DKeka9NIGMu/a7d1dJWMEz7sLw/jOE/7zhfulqC4ggH6ch
dzIunzYhQbOyAPMl4eQCFzL+KSq0XHXqAAxOROf7OpBxbUVPLdUNB4D69ngL
+34yvuETPpCVsA9sgkXFNbeQcTWu3GupD83ASEu2ZasCGXfY6+GVddgM1GdV
w+VkyXi79xbnIqYpcHqYDItsIOMTw2bqLTamUG17rugfJxnXMj/ZMSlsAlI6
HXpvpkm49Uuj825vDIH79+D35+MkfF2+0cnCIEP4VzqdXTZMwmt/zqo2ahjC
RwUSObePhAvRdj+99xAgRnRbc0wTCb/SJFUwYoDB5EKivXkRCW9qffTy5tld
0Pkkk8ewgISbK6bwSC7pA/IqeLMzl4RTH7ndULqiD5njr2RVMkk4brYz6L/C
nbC/+/s3vjgS/vGm6leuZV14XGEe2uVBwpWvfswXH9aGbF9r1VZXEt793VR+
PkYb4lSch+qdSPiC90Z1ISVtcMkPNqq0I+FBXtJusue0QCSlkPv2XhLOe3z1
k9RGTQgJoGadUCLsb6Qephltg9y0DTnZciTcInnn+qEX6tBYpX7vszSRb9ge
jbxt6rB+jZ5vK07COTW11frk1eBZQul/llwk3GponDNFQQUGy2pLE9lJeOyr
wz8ti7cCW+enxy1kEv7slC7q1tgKBRrU09cX1tDPvqu71Y23wPC+0pCLvWuo
PlBrujhcCbYlfwpfbltDXuv/2pgLKEFELzn6fOMa4szSeJmcrwgSrrbXvKvW
UMlQULJwhwLQw9duH7+zhkKCG2vCMHloLzv8as+JNRRnrNRS5y4LUn/D0Etb
wv+O+rSbkCx47Sqs23FoDWn48SSFIRngblp5rwZryMJEvXRBUgbMRvIHJTev
IT3ztpXET5KQptQ2fHvjGsKXQjvsTSVh3HtpXFR4DT0p0FYcfC4BMSsWv/io
a0j8+L6b3+5ughrhRRZrYhVV/aSdik3eAHwOMpTQoVXU9Fm8xl54AxzL3U9b
7F1Fc+2hVyozxWFF9R7/TOMqipoos5krFgMdM3PpoUeE/RjP8Q8/ReFyYoCc
w/1VJLPsuMfskih0d2Yr9d5ZRUvhei83SYhCgNP8traEVRSXYUdpshaBspA7
UOO9ioZtR0cyR4RgGM9azHBbRZmBH44pXxICIa6cEv/jRPyi5YBDSkIQfPue
uMLBVeQ3MK1gEbwOikdy21ZNVlGyc3GtqNw6GNxyP7Zv9yoS3ElfOdEhCFBd
MJegSvh3ugzSdwhCAKWw0E1+FYlrev9j9AjAg/0Pj2ESRD68apiYmQBwDzxq
+s1DzG9JZiFFmx+6GGW59j9YSDyce5f/Pl6gmTyx1RpjISvpVGP+zzygl/iU
l2+Ahfxc1m1V8OWBbIlnIXgLC8noV8ymF3JD26nn6ndqWaiPdW/PF3NuIJdW
jp+rZiEgx5kFznKB+56XVkrFLKRMJYV47eOCzMvVNPJ9Fjr987/ul0xOaPnw
6vXn2yxkLs1prfGME5iibwKe3WQhvZM1Bxp8OWHbiRrlpGtEPjpflAO2cYJL
IRryiCbikW77bv3DAakzeKrhBcK/le/VRDUHLEXUkf6eZiHn4qI9YMsBWxvr
K9ucWWhOxGPThy0ccEygwauIzkJRNzL265E5IMmucXOMFeEfcqgnZJAGb+81
9TmaEzwiP3D5FQ0WppqTdgAL4bS/ybZ3aaCo8d5EQI+FSB7/wWgsDeghrSvT
2wgO59on40uDePzDk1olFmoS8pXkPE6D15zt7tnSRP5YvulNSxrMWn2UCBJj
IfrPnOMVxjTYfLuj85AACw2zHRF1300D65HOuC0chP22EI08PRpc2dJtwLbG
RHOqDleOEVzl37MwuMhE4tV3ycm7aPD9ZW9x5QwT4fzrc7WMaCBJ6XNOnmSi
zO9XAjALGljt719/ZoiJBLeHZ/9nT4OYW59bjXuZKHmdsLXfGRo8+zwQI9nG
REWvm0cuR9BgcvMXvX/vmEgv3zJ3PI0G4meHZj6+YSLzPVbM2Cc0OFDxtaD4
OWFPPxjo1EaDCMawQ2wpkc8vt0yvWRo8MR4VPPGAiaLOqXI/EOaA0YSxBt0c
JnLGg8PJuzhApHs8fF0aE5GcdlSEunHAhVNT0/WxRD4/ZDoL6zigpGT67t1w
JoICjvQD/zhgaOGbdUggYe8Z2jOnxglGl3/iKqeY6OOYrKZsASd8zyKJJR8j
5t/aev/QV064VS7ivWBNrJevRwBVkgvGvu7e8MaU8OcWvvzjHhckLlr5yhow
Eb30oaDwBBdo87m9u6xD+G9bSfhPlRti9a/7Wyox0XDfpPPGOm5QPZzXWC7N
RHFSUicm1/FAt8dzSTFxYr5p62/xu/KAfNqX5q+cTJRb/f6EEy8vvJtV2+z/
nYGGp5uVg0P5wIdmFNIzykD4yy2qtwf4YL2kbdvOAQYSd0CMWQN+cN8fEUpp
ZaDkDjWBLbwCQHvQ1plSykCFmWKH5ZwFwdzB91KlHwPF5dlR7poKwZzfpf6N
ngzk/jvGte6KEGRezdgWeZKBoqgmwV+bhODbMzSw9wgDZaaFeP45JAzxAoLa
/VoMJHGs1eKwpwi8r38yzlhcQcneHZZbGteD5bbfpoYXV5DmpMX8zs0SsOvj
45/vz68gfOwkV3G4BCj7e6fY+qygE3yzeW2fJICtYnr4rNMKOsv+2GRbsiRU
6XwNSzdcQWnTEVfkuaRB1qD16Q/2FSR97NeaBZ8sLFgUSqYnLaPf62rkeOzl
IeuMw9/v95aQg2XYwo4XKuDFN3uwK2MJ9U2SX6gwVGD3k0uFr24sof5u6sJx
TBWG/pbYJUYuoXGpq77nm1RBJnrtpZrTEsqp6C12+qIGBRkFEX5SS2j5frJb
O6cGlNbPcCxm/0M/7VIa/h7SBCR1aSP5ziJykRO4ubRJFxz8nExQ5QKyduVv
OG0J8F6fOfat+DdqyXB60pVlChHpjNKiojl0V+eAp/Cb/XBY+viy1K1fKOJT
z1jwwUNwlM0k5l30N3Qz/qiQ0PxhMNl8S+R15QSKiU9qfzpwFK6cuHbkQOEE
Ono76kbI2FFovhOV/DltAl0pvJSs/+MoWAr78i4HTiDRKdKBJytHgU61oOpo
TSBhDX07lw3WcHaSfeHx43EkNREUOWRjDbeKL3TlF42hfe4D0grvrWFE8+St
hDsjSGI16q5roQ2UXfrP3yN+BNHrvxQ0ldhAaPdfK+PQEaQvPnBJucIGhIPi
BRj2I8if+riuD9mA6cuKxDMbRpDDyTkhRp8NPMJoV/dlDqMzt1d0TbltYTTT
9h+/6ld0w/SUyehpWwjT//G8gecramCQcu/62ILIYGRgxI8h1HK9OsMm0BbM
pB/N/yoeQkOyQdYVkbZQ/IDxo3XLENJ+L9aplm4LAeW5w/FKX1Dbx/RjkrW2
wNb6vZkmN4BmuI9wDIjaQeDDFs5v1AEU9G670M2NdjAeU7z3/eRndP+NmYGR
tB2823nm3Y3iz+jj2sa/acp2cPXhN1xc8zP620x7RdllBzyXpl9sNexHldnu
t+dO2IGw/uQDS6dPaPTn7SDRfDuIFW0Y1zD8hP62bjim9tAOFuYeyAnLfUIt
G/r2wH920PPQLe/TZC9Ke9U+b1thBxmiE9nOPr1op6Te6t46O9g0P5YScLEH
+RnPvdUdtQO5opHo9KwuZPbhLm2vBB1kEiTjZkO70EJzQhdNhg5SPvZJ5g5d
yCovLB2Xo8NG7Y47K+JdKFtyaFlWhQ5COF5xIr0TvS71F8veSQdy370JxZsd
qMVpd7WXDR1Wqwd+RPp1oPTJAtf3dDowc8R+9x3qQINSffNyx+iw5HpjNZ6/
A3nXpVTVutBhbjZCbDbhIzrNEdlV6UsHJPD6lg9fOzK093APiaNDdY/WPZnW
NgSvVaYCE+hQmfXff53xbSjujPees0l0KFPKqtfhbEMpRn3upql0uIuFLq5S
PiBR4frUx/foEO6r53BjqQWdXFy+6/CcDnrtz2SfjDWg3pSdI+yDdBjjrFN/
UdiAHF4fUV4/RIcko45dNZ4NaFiuZllmmNCf/7JpnX2HGmlndyqOE3q2Yvw0
ox71hV6TnP1B6J6Zv2VE6pDP8xXO0BVCzy9cU/pUix54uFRpMonxvjzj3Xan
Fl32Mfw+wSJ0qw7FPTK1aJ1tXtcusj3s1OV2tFd9i8SCBp884LAHSa6lK3LX
atBUWvZOf2F7CAgXydsuUIN4pkOHOkTsoWlW4xWW9gYtXPNYU11P6L2es455
r1EaO/VZpzih5w/Ypb6sRqMl9UMDkvYgJbbkfx+rRmuaVxwEpe3hXLxI4pN3
LxFFtuQQJkPo/gfx1o4qlF3yoyBxsz0EGiBl9u+VqDDj3+9xRXtoeTpgJOxX
ifzpydt/KdmDtMLSMdnF5+j7AjY1q0zoPNtv7qE8RyGn+irHtxJ6//3l8xsr
0Een2a8J6kQ8CyQcm1uOrirqfPTYRtijAbVbiuXo+s37Oww0CL1QxKVM8ylq
khFw+rzdHlKneNM+pJUh3ogwxY/a9jC8PnioorAUuXxWtQnfYQ8qZiNKd16U
IHb1UnU5HXuoLXhe7d5fjILunB9x1rUH/m5p6sHvj5B3sE/1P4Id2OIPajGK
ELMrY881PXuYP3lieE3iIZLa9dMwe6c97L7ZtGVSrRDVP+2sldS3hzhc81yr
wQMkH+X86zbBMtIctNvO+Wjs/j+DmF324GXpfyjS/z4S5Wl0myH4xcWBTLeY
PJT7u3mHzW57yKlysjtlfg994WPvENpjD9pi2t81zuSgFSZftifBrec5L7IS
spDx6A+BVwS7dg8KtJTeRg2+8aocBvawovn0fnp7Boos6Z0/SPCtm5d3uM6n
IfpCjdMNgrfM2TdtE05FW5Y0g94TjFuqOzK1b6Fnb+R2UDB7oJdSZppsk1Hx
vUvZWgQPiZWRVeYTUeFBsxIngvl6bJXqta8h9VbnU1cI3n1rzeJ4yGVUEdhc
/5DgM4eKAhZfRaMbf4M/1BG8fcN9Dem1MMRxxC3iM8FJKX/CDl8JROajCZ9+
ENy7KT6JY9MZdPboVN8/gmVkHfb3HbFF/g8DY1YJLumJlA01NMAMd2h2rxHM
YL9e2vLSBXtaJN3GIDiX8zxPRY8fdoFi4PebYOMkOTzKMgSDzBvVYwRPCncG
WjZGYiki4qXtBNdb4CL8uZewqaDBvZUEp98Qmw08dhW7JzwWn0GwR6dP84B4
AkZN1Qo6R7CeaEO+UU8Stm+xl2s/wewl/Kjb/CZ2/fon000E+xzUV+VUSsE+
kw23ThHr2TvjdnsXexomYyXzopRgLPkmzXcsHTNpufTTh+Ci7W/O3X+biQmI
hbVsJfhCoIglV0Q25uN1JuoW8T1HReHV7mN3sd1n4+gGBD8Y2CGiJ5mLqWy5
0j9O1Af/xZPRZxl5mOL5sF5ZgmsP/tO9/P0+9jM3/0gVUU9BUtdn7vbnY+aN
vCH7CP6Kqhw7XzzAiibWIUeiHlOTLYV+FhZiVLlvw4NE/ZqfHG9iT3+IFU8E
l9AJfkIR1NkZ+AjbrGpoCES9x5h6COZqlGK8Zf5u7UT/tPZLJLJpl2GUCSld
MYJFfTo5PHQfY76NOrV0ot+s399dW3/vCXaXJ469WZNY/z9c/748KMcCrYz2
niD6l7tm/NkNpQps5kXz93NEf2+LQwGGjyqwRzVl+y6p2UOIxPmZgpJnWJpW
mf4NFcLedHjibEUlNtb/dN6R2D/UBV7lS+54gY34mIdgxP5ytD/tZHvlC8y4
4sFrCQV7yPY+8EWzugpzHOeJqif2o23pld3LeDUmG3WU0UTsZ9ZTiXVX22ow
/f3G4oVCxHhPPaJ3WiGMfNbxocI6ov/CjLAfHQir6fBZuStgD384wo8/PINj
5vo2MxG8RL1nb+/n9nmLjXopb1xgt4f2+uyPHYF1WJay3lzFPzqMbol/XPy8
DlO98nep/S8dFpKCky4t1mHjRa8+TPyhg7j9EYsdIfWYulXhl9VZOrj84mjK
DHuH/dXd+XByirAXPYecYhoxnaGrntd76UDnaMkZq2nE4gbYc7y76fBqSSbc
g9GIPV/YEWDeSYeYgTY938AmLNpnjG3mAx0E8raWR7g3Y/mdRt1L9XTYqjpa
kLP/PSYmv7WEr5wOzkaH4weE2rGTDJksPeL3sV6r6LTToXaMeZtP0+cyHZQU
1szGEtqxOT6hyLsxdPh3qTf6POUjlhJ50GA2nA417rEGF8M+Yjsb9rsf9qfD
AdXhF4neHdjQvxHaBns6uL/IKP7vcBfW0Fmn/EqeDvHKHp1BAV1YWZnnwCpx
Pii7rbNimNKFrZs6FrRbkogf1rOvr7sLu8po9nwgSoc4EP5GpXdjJaYxHuo0
OvzXnKR04kQP5lK62CI5aQdzA5cLBM9+wqRn3FmheXYgctCmdSDhE7bfNWPT
arYd6NXILxSWfMJcFZr2h2XaQXRunfGemU/YLfK7EdcbdiDkRh7z9O/DLm7s
3jATbgfaM+GydcH9mGUj1+KUrR1cIAXePR87gPXfsZoIo9lBvHnOpYcFA9g1
H3u/Y2Q7uJPccLq/fgBzuKYSoMu0hWqZDVp72AexfOMzw4PztrACNY3UK4PY
tJN/ysSgLYRHc86nXP2C9ZBaqmef2kIEJce4PP4r5leXV/zbzhaMKK6BwU0j
WKWajur6VBs4wdWpGPZpBNPlS9Zdl2QDYYKG/RGTI9huh4oejjgbeCYlbXCF
Oop5Ov79OBVmAwq7BjjSYBQL/C3yO8DVBjgDj2aVV41iQxsV7F9st4G2CePa
X0VjmFCp9xcqcX62b5YXPHVtAqvN3/xNfP4o1N91w4OzvmEiVOPrB8YOA+zE
PHad/oXtF67RbIo4BNl9j479SJ7DNp6rMgha2g+1WX9uWKT/xnYthOaodZiC
39trNewXFrDWXtXepF8A5j5OwUdiF7GV1Hap3su6cGVxG/ffhEXs3/L2rzHO
ulAXQcrJSFnENFDTud27dMHgRl7t4P1FLCXl0dveOR3QfjLG5/F2EbNXscko
OaYDMr89CsJWF7F3Vd1GbLo7YOm8X0dByD+sb5hPIvufJjy6GK3yz2sJqy98
8ozlrgb3w4q8zwUuYYJsq+wsRTW4c6H98WzYEsZu3NirNqUK8ecltafjl7Dp
y+f6FE6rgpf3y939RUtYyUxwZbiXCmgcnz/4anwJ05gyjtKK3AJVu0/6RR5b
xigLnmsnPyrAE/24cobrMjYoqQsJGQrwSO/xQvDZZWycd7Fx8YQC3NFmhfiF
LmMPdyxwZMzIQ7jq7eiTmctY6897XHzr5AEkOm4Zdy9jSRan2uium6GJAc85
LFawHt9YxtIlKfjyL9lU0XoF87saLWkrKQW//wz3mBxbwaKuf1WMfiEJEj+j
FqO9VrBTihZp5jMS4D+I6zITVzDe4YsHu9w2wcY3UD33YQUraYfztyPEYdvL
5P0CvSuYeXi3Up2COJg8H/6sNrSCnTa9ajbwQQx8SqMYZ2ZWsJAfn658lRGD
uhx89wQ/Ayu3d7AN6hQFrwhA/YcYWPaW+vSvbsIQHZp8aMmOgSmvoVSSpDCk
Bw1/Xe/MwPqiZPbs6BEC3CeKZO3HwMJzrNLGzIVA1Ak3bEtmYFU50f1Ze9bB
VkfBzp+ZDKzhimtoHksQwM7ZhSePgZ0OqDvTXiNInB9Il8yfMrBBhjSzzEQQ
ajCor+1gYNOhAfwpb/iha1ey9Ug/A4vj7oXXVvwwrTs8vjbCwKwSqcddJvlA
WCOKfc9vBibYrn1m9wY+UFb9mOa4wsCiXhA7eSUvGCjLKIZSmFgRtufbIVte
OC2Dm70QYmKnI2VOtebwwEUJwU89G5mYTPji+mhTHrgl7uyxsJmwFxKH0Vlu
eC1IituuxcRwn021tRbcsI4Mzf8dZWJNqc/NSpW44In6xZeYIxPz07+DN3/j
BKtj1Y+6XIh4PJGJ7mWckPRCO57hz8T0AlqRDsYJ6hP+oTcuMLFcQW+x8zyc
8EHo8Rm5aCKeXlXevs8cwOuz5cCBZCbW19Zf/j6SA/7Lct/1NYOJfdRIjY+1
5YD9zfkq5+4xMfMals73bRzwfXF4E8dDIn7N40gKLwdck5fizSpjYsq283pd
32mgfMSRqV5J2JM+Gbu00qApMvNn7RsmtmTjkvT8CQ08SnsGbd8xMXHV+8Jd
GTSgDQh9+N7KxIapXQN4NA0ecFq9iehmYs69kcxYHxqY6FwvFRpkYoJK+ZkK
J2gw7tqSUzhGrGdM03CRFQ0u3eRI0v9BxDNRFxY1o8FmZBLR9puJxb2ZCvMz
oEHtz2gflxUiv2drgW930uDkRnRikczC5nZlufPr0YBkzrSM52Jh9J8SjccJ
/d75nZjUOhYWcs58U+UeGhjkB20rF2dhw5fdFyVNaTD0sULaTIaFJat7rmQd
osHF1TmBz0oEXxTs0zlOAwlVdZLPNhZWlClw6K83DV7bn50j67KwPlVN9SFi
fo5Xi4bTDFiYn0nM0aVMGqw8m/i4xYyFZUb6lOyvoMHt0c1v3xxkYVEVczsG
P9JAT9D56WEbIv7MM2bFPA369uTkTRxjYVYTINkvygHBZz/fvHCKhcU1bKo/
socD1t8Wi+HzIvTQRTXl0xxQ2WAdkHeOhU3v737onM4BC7LtR5pjWNhpo51H
xFkckHKI1/h4PAtzbun1LdzBCZoX92nN32Rh4jFLwc/9OcG/r054Qx4Lq+Kj
fwlc4ARBGplaWkTk29z+RHsXUY9aBgvwhFgftwzH1MtcMJNU1X0aEZzvPXlE
gRuuv/5bz2wg7Gfs3r8N5QbV75rPk9sIZntwc66LG86alqZVfWFhgpHd6WU3
eYD73PfLFhPE9+CZ8bFc5IHiXKWg4Z/E+Ep6ju0neGGakWfLySTynyg6n76L
D65u+WqWzbaKneZ2+PTrMR8o2knoavCsYoJWz56ZK/ODW3m6GH3jKqZn2yOv
qiAAo6cT+h7qrWLyf4VSjhQJwt3U+fVDsIoNnhZ67rIsCA64nY3IvlWsIEwK
W7ZYB51i8p1R9kQ8QafHHYx1UNvw+r196CrmN3/adjBEGCJ+b+ZOJm4SUR6M
wvdDwqAvdc28IX4VgxOz+uf2ikD5eZt3mlmrWPI34f3ssqKQJz9Tw/N6FVM2
0g+Z/bsejllZswzriXgXyiccAsRAPLx6V0jrKkaKuxD3bF4MkruuVI0PrmIh
We+fWi6LQ1SMdPkb1ipmpRh0Zlp1EzgPWz3wxdaw7LdHuaTXy4AE74uxB3vX
sJ/JQnXR3jLQpyu5efDQGvY6w887s0EGrG58u2vuvIbR6Ypbf1+UBTCIyZSN
XsPG7Z68+UCWA6bndK/dtTUMLu9UM/OQg6o0S9Gkm2uY6qLRp9Q2OdD4tfHW
St4a5uXQ1ttwXx6ksysSumrXsN03h1ZZJxXhc+OGFq73a1jy1uPeRb2KkP4n
khO61rDpJwZmlgeVgP+AxeWSsTWsQO3vy3ugDGvhAciIQgJnWdt1E9hWmFXh
eblJjgRF7Tpvox6oQ3H4t8dySiTi3q03H71zG7h/aCxUUSGBxbyOwZv2bTDo
E5u6S4sEJqhrKSxaA1qesnwdjUnQtK/vdmLtdijUnVPMciXBOJL6kBChDS5x
bZL5HiQYmhT4Vz6gTTRRich/Z0nwe8xzg6L+DkgN9aS8OkeClvIfYqyVHRDz
ZvTL50skOKJ67UZzoi6cMO5J3VhAAkHZB9K9f/RhY2pFwuYiEsQ+0gk55LEL
esZvxmwtIUGJ9G5xi8FdYHHF0k//GQnwM86WQy27Qb+58YBDPQmGjT6VdlYb
gOihasqdcRJUs0rOokBD+HgvczlvmgSju03Wxb4yhMS5oLlHP0nAWR7FrsJm
BJRbWkMvF0hwPEr8vXKaEcx1l7zsp5LhlN6tl3L1xtDqcM9vgwIZ7HTLPFWs
zMDCJFBsUJkM+0QChZ1yzeCD2r6au6pkqJO4qnxh3gzaSH945LXJELj3uIpn
+l74WGj2UN2YDF0eh7+d/2EO3b9/fTE+SYZ2mbwarP4AWA/WxtLcyPB3EyNx
Ss4Cet5lqDSfJsNWeX50J9YCejMNL1j6keFY3h4XtX0Hoc8gTcQ+kgxBH+n3
Dny1hMH43Qd8csiABzhyjcgchmOB635r5JFBqHRte5n9YfhyfDLzTwEZVsS4
365POQxDGsmTISVkgCCDVeKSD8O9Y9GXXpHB5NYro5ylIzC+OaEqs5+YX8aL
rNFla/hV3a9QJ0oBBfM665Ar9hAuV/endwMFmox0Ou4MEve9xJK33yUp4H1K
IOW5lgMoH488LqRIAYOF4lND4w5wak0+7aQOBQbUtzuaHz0Gn439qCQ7CqRP
pYfNuTiBZ4l9p7AjBRzk1x0ZbXaCJRHjXCUnCrhctKKwxJ1h/aTo7kMeFNhO
Zm/sinGGw3Gvzt0NpkDzmaaU4uMnoamVNrY7kwLl5dYdgdtdwW7H3BOrbAoI
VfhOjfq4wmROf8SpXAoscfLtWStxBapvycbEIgoMKnzYtl/lFGDrjhwZqKIA
//AbFScNN6i0yXl7oZ8Yfy7AzvyEB5jWXLlx/QsFvhSmucY99IBuRb/jeSMU
qBEuCcuY94D5f0bLTd8oYBQ39EUl7jSo3pnWEF+hgBejd58P8oT8Ia3cyo1s
cH/i+3Qw3QsWvwpLXZZig5wJaf4/j7xg/8ifrKOb2UAbqxgzYXoRfVORMbeF
DT6Lt4Wdz/cGo29aN7buZAONcIm3+5g+MPpHK+KuHRus7z0fNvXTD3T+CjO9
HNkgJN1MYlLCH+IX/1zY5cQGJhynzF0P+oPmcsX5Pnc2eHeA69rQY3+IXtXy
Fgoi4qds8FoNDQAZLu1jV1LZYCub5FUplUAI5Bb5bJ3JBoP9EptLXAOhiWfB
Ti6bDQr8b2xtzw4EP/5nR/F8wl6jpm1A8DwgYe0DK+VsQNZU9NlNCoITUtr6
Ph1sEOxciN9iBUOOlra4LT8V9B3XVzpEhkObL/JeJ0SFaq3j3X6t4UAq2V/X
KkqFqP/YlKw2XgQX+ZM+xpJUKMFERgOqLoKyaFK9hioVjgTVH7q8GgHPFqf8
ePZTobwn9suP/iiY1DzX0HCQCu1LDHEzjmgQ813dFHOYCj+dD1uJ7YiG0CmR
xiU6Fcb27H8rdysasD5DyUkPKmhacw1zHomBlpdZzfhlKtxYlpHV/H4JmH8V
pcOvUaFG/XROlnQsqGmWB+pep4JVnQDvLZtYSC5uki5LpYJ3+MNWlbpYsMn6
ez4rnwpTiz2KBg8uw3D4oc1Bb6mQGnbn/t4rV2ERYwtTYVFh1LM3ZVdTAugw
7v/TJbOD1qMPp8bFEyGo0ijQhJ0dyr7q2AWfSYTISDU5a152+P//u/0PNSuA
Bw==
         "]]}},
      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->{{-3, 3}, {0., 927.3957052078074}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {193.5, -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJw1mnk0VV/0wN/jDYYMmetrjFAkmSu525AUSTI8VKYQmZOEzJUQClEoU5JQ
mUK4N2RK5kQkM02GMnv43d9av98/763P2sPZe9+9zz1nrStm52HswEAgEH7g
P//7b/8qfm57m4q5ijtL8eiggMUJSR6lU7G8l1qHpX/VgqBn/nnfVSp2XFKb
WyehFvrkG1p+z1MxRWl929tTNaBXvJI9MErFKmynXYZTqkGu7CKtpJ6KOTnf
ddfZXwVRSb9iZ1EqJlS3JXZlpBKmr/l92FdNxZT53zJdSa6EDJUHChmlVCzL
RJn6m1oJ3BUfdtx7RsUGq5orX/59C6tVsu8d71AxGo9ACOOfMjBJrVzJDKdi
ZaLvSpNelcGbAF25b8FUrIV3m3nQuwxc1G1Sz/lRsTOGDx74bpTCt5qEa+BM
xZDjMavlPKVQh63v261PxXJDZ3ZnOhSDcOYdG9MTVGz6he75qwrFEBDKkxyv
TcWmFH4lDGy/ASUtORJVnYpxWUj8tkx7A8/rbYf/yVKxTf+wNOLQa4hpbH7w
iZ2K6R6l803NFMFXKc2styxUTHJGvYIWUwTSdyvfZFKoWKRKa/tP+SL4oJ/f
eW2Lgv3Ysmy7eLMQtjqj2YVnKdggQax1j3gBeA0aRrl/omDTuwOOST19AZh6
0yNaCwVLlgkbXzR+AexPkBdaHyjYVDQzqZD6AvJt5Jv5aihYTHfAXOfVPJiY
3ElBCyjY39uqh5LNnoPZfG8oRwwFs29gUa3SfgY5Z0/fX7tDwUZ5+zjHSM/g
b/GHjPFwCjZ/ieluS2MOxF0rR98GULBC1ay2TwY50LyevGl9hYIR777MdLHN
hqNkqxuvT1Gw5WOtJykvMyHKsSfysS4Fu+SrOrbreib0N+mnRGhRMLtCrgut
2pngE6X+lnaEgl1mf62xPpwBRRzCS4T9FKw/JnXRRjADRHePep5lpmBe/qNW
nvbp8GLMrjOETMGEPpV4SnGng8LLiYOviRTMoVNLAK1Pg+PqM7Ps62Tstu/r
kVtSaeBycc617ScZOyFgbCyz9hhKszYvn2gjY8cvHxCprUuBY1eCm32byZj4
1Fy2ZXAKNCoSpXMbyBg9eZ9QsXoKDDSQpkk1ZOyPc6Lf3cpk2JpidagrJGNM
H3YxZ7x7CHoyu22PxZGx02oBtOLvidD1LxVzjSZjs71UQ7bniWBZLSSadoeM
cfU2SJE8EsHttNj39WAyJpS9FlVLSIQHHtIXKjzJ2EURJn0VmQQYKlGxUDQm
Y02ObowNj++Dp/q5s/t4yZg0VYSMltwDwdZ9A1d24vkIFVstXLoHzeYE2yI2
MvaaFieyxHcPRK4WeipSyFjnm5kJp5sx0P6CGn9shYRhuwuiq89Fgyx/dfvZ
ARL27CYvl57EXejPeWCW+JmEcU2K7I8bjYQIBefhvi4Sxr3KZnn7aSQMnuab
tWolYV539964KRQJURGebI7vSJiwhJqUldgdmFmQMPBPJ2EuN30n9U7cgsTg
jZ7qRySsNF3Ooor9FgBbt9V2EgmrHvPYhfVFQLJ08JWIWBI2WgoqYZcjQNd6
ICo2mITJY+SvZQ/CIaftXkuWLQmrZTcoiieEgc3zZd2Pe0nYo1i+chmvINgq
q3heLUbCcgRb7zQLBEFqgz9TkRAJk7OZ/nzh/U3oG91qieclYZLpdsWOvDfB
QJB62oxMwpJMHvbmNAeA6n3+c6MTjJjZfSIWaXEDep8OlHSPMGI5EU/k3Dlu
gHdRKk/DECPGs+vp/J5GPyj4KNKX28uIxYzGHFhQ9oM9FGkL1wZGjBarf2JU
+DqwB6hZr2QzYgXvf9TJ8FyDgrvr6MxTRsx7h/jbrc8+cDKlWvRrKiM2+Oj+
elCKD0SUwVh1AiPGaCDSFCziA+tzeg5h4YzYPUtdYUPlqzB5yeIKmz0jVnnS
dikmyAvCrv7XtnWREYvjeJxhecoLRMO+yc5bMmKiSR1elXxeYPnUdrbbmBEL
JrHKSbzxhM4BZ68ULUbsUjC3KXnAA6oN/a+L72HElHbyl8utukJiw3FpS2FG
bM0iYN0s1xXcjuwciN/NiHXtfRt3ztQVhCXzjmxxMWJ2Kj92vS+7AsGbnzf7
GRmxyHyJBYUQF9AqOBQRO8mAFc2SThcdvgy792wqfRhlwLZUkxUlF53gX3Lz
5MY3BmxP9M8Xxq+cICfc+oRzHwP2MPcoe52UE5Ct7rHoNDFgdqfzNFtEHaGZ
+Uf8Wh4DxpUmLL156BJkBJdqyj9jwNhMq87PLdvDjaXgv46ZDNgZFjvbgGp7
2D/KZ9L7iAErdxD/YHnSHqIrdPhfRTFg841/tdhc7MDQKSP9kisDpn1EzZHQ
aAM9Deb5HQcZsMccPrFlNVbw5B27UpkMA+ac6Wf1zNYKLhd/qHksxYDtjxLy
TKNYAf2pYpeDCAM2bsDukHTOEiQCOFY32Bkw3cW4acc1GvgcajouPUvEYqYa
/HW8zUBDOqiD7ScR+x3++7jbXjNgElG2+DdJxHiOxyf6DJhC2o5s19pvRGwi
xjuMV8cUGqaDEkw+ETFzD3Y/W3ET4HmiMhpSQMT2vzrOd4zJGIYT/7g45hEx
x/CDLrrNZyEvOmdRP4eIuRaryu64exbUb3Ax8acRsZHrU5ofdpyFSyazcoXR
RMx+wLG3QtAISllyAwdccPsFzVMiVQYQRLxAQR2JmETSpCDFyAD0Vrnjc+yI
2JcQ/2LZaX0YmgzN9rAkYkqSzoqyu/SB9P5CK/kUEdv1BRtMjT4Jptd5BRT2
EbEDzBl3E5/rgpaiWOv+vUTM8oSTa+pZXZCbkw0UFyNiHW77bPLox4HJSWeE
ZxcRmxzRlWs1PQ5VZlfzVpiImKKebdcUtw4Iq3Sp1cwQMJNKrWsONZrA8nfo
Z9kEAduZrWWb66sJK4UzaUUjBKzu95xsk7wmdO4lEDP6CRgXRf3N0+cAYbwH
W8KaCdjtZuGcUQ0EphZjLPTyCFhz24vK+1eOQvfrFFbNHAKmJ5nAKrR6BFDX
nJrDGQSM9MIhTur2EUiZeCcmk0LAMN3Dvi9zD8Op3p8/2CIJWOd92e/Ma6rw
qkTPv8eJgEnf6cwWGFGCNA8T2TZ7Atb787jEQpgSRMrYDDdYE7BFt91yXFJK
YJd9XavcnID5uoo4iF1VBJ6EXJZHJwjYjgtbX4R3K4CfNyn1ohSuH5d4lqJ1
EDKSdqWniRMwg/jDfMNv5aCpQu7pVxE83oBj8pkH5YBvm5ZtJkDAmBSUDvRL
HIDS6MKXhswEzGh4gilhrwwMFdUVxpAJWMS7s78N8/cDY/eXV61EAlZ6SRXt
ld8POfKky/cWt9Hf/XfU5bT3wcjJQr+bfdtog4/iTH6gFByM/xK41r6NuvIt
mepxSEFQHzH0WtM2ypQqXxmfLQmC9mZ33Sq20YJh33jurr1AC9x+dOHxNup3
vak2AJGAjqKz745d3EYjtaVa6x3FQHgpAK00w+0fy804cImB69HceuUz26i8
J2tsACoKLM3rHw/ANmqgI1e4KCQKuqPZQ0J7tlE1vfb1mC9CkCTVPvJo9zaK
rfp3WRwXggm31Qle7m30dY6S5FCZIIStG/xhI22jAhdO3v/x5D+o5V7e3Jzc
Qit+Uy5FxO8CNktRBv/hLbT5q0CtBfcuOJ9xirLct4XOd/jfLk8RgHXZp+yz
TVtoyGSR6Xw+P6jo6okMv8D1x1kvfPrNC7divMUts7ZQ0TWrY7rhvNDbnSbV
93gLXQ1Uq/xPkBe8rRcOtkdvoZHJ5gzNJjxQ5PcYat220BGzsdGUUS4YwVKX
kx220BSfT+elw7mAizm9wOsC7j9vzfuMFBdcf/RUYO/pLdRzcGavwfWdkD+a
0b6ls4XG2+TX8YrvhKF9WRH96lso52Ha+sUuToCqnPloWdy+226IpswJ3gy5
uQ4SW6iAgtvKxmcOeHbq+XlEEI9nxwGEX5cDWAZfNP9lxfNbFV1MUGKHno2i
DItfm6hAIMtRr5M7gKLz2kxxfBM1EknUZv/KCmoxb3awDW6innY79+/1YIU0
wVI/rHUTFT1SMvcwlwXaL5XJPa7bRPs3nx77pscCxMLyiatVmygQI3V95pjB
8VilkVT+JipNIvi5nmSGlFtVFGLWJnr598veSjoTtH56V/310SaqJ8JkIl/K
BHTeGu/S+5uomm2tfqMHExy8WCsdexePR+WbtPdBJrDLRYedQnF/hEce+/9R
IXEWS9S8gdu3sb2brKLCalA9YenyJmqTn3cMzKiwv6mhvN1mE53ncfrv0z4q
nOdodM2jbaIhccmn1IhUiDVv2hNmhNv7nfnsN0SB90+b+630cB6VGLz1jgKL
0y2xyrCJYpSleLMnFJCU/6jDobaJEpxewlgEBWh+beszB3EOZD4p6kGBKOzT
6zqpTbSZy0OI6QIFqpk6HNNE8PiR7OP3DSkwZ9Qp6Mu/idJ+p18o0abAnkdd
3Wc4NtERRmNeR3UKmIx2R+6j4voH/eQz1Shwe1+vBuM2HZ2Xtbx9HucKr8+L
Q8t0VKDqCTH+KAV+Vvbll8/SUYydL0NRiwJCDP028VN0NOXnbW/EgAJGpwb4
XIbpKOehwLSXFhQIe/C1TbuPjsbv5DbxdKFA6dfBMKF2OppX3TJ6K4gCU3u+
qa18oKNq2YYZE0kUELgyPNtZQ0f1jhnRI15TQL/ke05+Ga5PO+1j3U6BoI0R
y4hCPJ4/DimucxR4rT3GefEZHQ25KsvyjJsKY9HjjarpdNQGux5IPEoFnt6J
wJ1JdJRgrVzi70CFG5emZxoi8Hh+iXbn1lOhoGDmyZNAOgo51If6K1QYXvxh
4ueD6zv7f54/wARat35jMpfoaOe4mIJYDhP8TCXwx5/H829ryzrznQkeFPO4
LZrg9fJw8iYJMcP4d/VdNcdxexbuW7+eMkPMspGHmAYdpRU+5+SeZAYlNocP
t1Rw+4Pr0S9lWSDiyD0vQyk6OtI/ZbO7ngVkz2Y2FYvQ0Uhh4YtTO1mh16lM
iF8AzzeJ7wG7PStIJH1r+c5ERzOqPl603rEDPswd2OP1cwMdmWmRvu7PBu4U
Lb/PYxsoVrlP9tEgG/AJmbUfHtxABSzRjTkNdnA8FeTP0LaBxncd4Ni3gwMo
z9q7Ewo30NwU/rPiNpygZ+kRXu65gUZmmjM8Oc4F857hA7udN1DHv2H29be5
IOVO8sFg2w00hKRz/XszF/woRQdPGG+gKUl+zv/OcEMUB6fSgOIGKni+zeCs
Mw98bHg9sbG8jsa7dRnua+IDw4N/j2veXEcVpgwWDu8RhKOdr35/vLaOYuO2
zPmBgiDt5ZZg5r6OXmSby2z/IgiMJTMjV6zX0SvkVzoH44WgQuV7wEPNdTRp
Jui2BLMIiGm0vflFXkdFzv/ZNmATg0WDXKGHsWvo35214qwWEpDqYrn08+kq
amkYsKj8VgZc2eZO9ySvov1TxLcyGzKg/jo8913cKjrQS1q8gMjC8FKBeUzw
KjohfMfjWrMsiIZuVx6wXkXTS/ryrb8dgJzknCBP4VV0LSveoYNJHgobZqnL
aSvob/OExqUzCoAKh+8mPl5G7cQ57q/+pwqWntY6aPkiamLP3njZEODjEfr4
j/y/aGuy9eue1OMQ9HCjMC9vHn2iou/MXXMKzopcWBN+8AcN+vJ5/PrpM3CO
USfsQ+gP9H7UOS6uhbOgs+cBT3X5JBoWFdvxZvAc3L5411g/dxI99ygkzm/8
HLQ8Don/mjSJ3s4Njz/y6xwYcnvsWPOZRHmnCfqv188BjWRAUlGcRLnlj5jb
7TKBK1PkxVevJlDhSd/gYVMTeJB/oyc7bxw96TgosvejCYwq2D6IfjyKCm6F
PLHPNYWi8JdeTlGjKK3hW05zgSn49y4ZafuPokcEBsOlS0yB2zeKY8NiFPUi
varvR03heGVJjMuuUdTSdp5ro98UXiCUOydTRlCXR+uqx1nMYCzFbIVd9jsa
d/ySzthlMwg48quskfU72rhByHjibgY8Q8E+Qb+G0dZ7VcmmPmagK/Ji4U/+
MDos5mtSEmwG+c82frXtG0aVPvJ3H3hoBt7FGSNRUt/Q9s6H54XqzICx7WcL
RXwQnWUxpg7ymoPP81amH6RB1PfDIa77u81hIiz/xMepr2hWja6Glog5fDjs
8iEu/yvaub17KUnaHO48/4EJKHxFl1oo7xiOmgNr+Mzb/ZoDaHma46P5i+bA
fWTqmaH1F3Ts9yNf3mxziOBtnJDX/IIute06f+C5OSzOPxPnFv+Ctu7qPwYv
zeHzc4fML1N9aNK7jgWzEnNI5p1Ms3HvQw8LqW2dqDeH/xbGE7xvfkY9teff
q46Zg3jeaOjD1B5U99MTyglBGohGC0XO+fegiy3RPRRRGgi7W8TqWfagRpkB
DzFxGuxW6nq8LtCDpgkNr4nJ0IALw0ouPuxGqwu9+NMO04DY/3RS8n4X2mqt
XuVqSoOtqsFfwZ5d6MOpHPuPNBrQ0/n/9p/pQoeE+xfEz9Ng1T5uK4q9C3Wr
T6ios6PB/FwQ/1x0J3qZGtxT7kEDlKP6gTtbB6pp4eToF0mDqs+KT0Xb2lGo
lpn2iaZBeerLl91R7Wiki9uxK7E0KJJKbVBhakcTtPodjyfS4Aniv7zF8Anl
5W5IfPWUBoEeapZxq62o7fLaE8syGqh1lIq9Hm9E+xIOj5KHaDDOVC/3NrcR
taw2luYbpkGsVtfRWudGdES8dk10BJeX/TFtm/uANlGuHJacwOVpklEzGw1o
v/9doblfuNw55a8oTz3qXrbO5L+Oy7Nzt6W+1KHPnOwqFOj4et9Kdxx8XIfe
ctf8ObmJy426JI+J1qE7zTJ7jhIt4LAqi5WF7HuU33fo9TOqBQgxr94Wv1uL
TielHfbitgDvQJ7MQxy1KOuM/3AXjwU0z8m/Q5Jq0MW7TtuyfLi8z3nOKrMa
TSKTSrsFcHn2oHliZRU6VtAwPChkAcL8q15ZSBW6rXDbklPEAq5G8cS8/lCJ
MogVnEFEcbnXaaytqwJNK/iVE7PHAnw0UGnyz3I0N3nl74SkBbS+GdTi9ixH
vWjxh/5IWYDI3tXzYstl6M9FZHpOGpezHrp/jKEM9bvUXz6xH5cPZK1d212C
dlrPfY+Ww/0ZoNwRGcXoHUmVTqeDuD46eOCBZDF6736WsoY8Ls/lsStSeIM2
i3JYfz1kAYnTO5I+JRWhO4ICJDuVLGCE7/pwSW4havdV1jRQ2QJkdEelHr8t
QMlyhXLiKhZQl1NW5TiQj/o+vjZqo2oB7L0ipNM/X6Bu192rVnC2ZIw6rbiR
h9J7ko/dVbOABduLI9uCz1Hho7810w5bgPr95n1TB3LRhjfddUJHLCASU7ja
pvEMlQix+fMIZ1ERKuWRTTY6nrWiEXbUAlwNvc4Ee2WhvKxNDrM4v705mOIQ
lolm/G1RNlW3gPQKa/NLek/Rb2zkLq5jFqDEr/RT3iUdXaezpTnj3HaN6eZm
dCqqPfaL4x3O9r1DHK2Fj9BGjyhZqoYFrCu8yXrYkYwGF/QtnMb5wf1byvYL
SShtsdY6Dud98xbNB7kT0X2rCr4fccYM5azoSg/Q0hpxZQbEAmiFDLPNZvFo
/tPwNEWch/mLiDILMWjuad0Ca5zZPptJNSjdReXabC7dxln9wbbBBb9baIlP
S8NznF3O5HkvvwtF45auf6rH+dCuLHmR7QCUauwQ9BXn2IR/AWdv+6B6Y9Ff
fuHc919ULPU/F/TKuen+FZxFxSxP9RuboV7PfcK2cC74HCzmr6mBaCor9G7j
vEG+V9haaYe8yRNp38A5g+kaa8lnT+QGg4bnX5y1Y8WxEEM/BFLiqsZxnuLu
9jFsCkYSeAQKO3BuMMB42DPCkWnfoRPlOD+M45/zOX8Heco9HpWMs1O3e8ug
QDRCSlT0vYqzGm9jttbnWOTkch/zKZzJBexor9595N69L8f/w9n99BFZJqkE
5CtRc/80Xs++WYdHR8lJiKiR6NtCnJH4+xSP8YeITmv4b3ec8w7VXM16n4Jw
8Ae07sf5hg+PIXNQGuLu6hLyAH+eY7zwTv38E0T9SiRNA+dng8o8akIZiMy+
2wMTeH+w37QNvbKRiUheC+gTw7nu9IrqrZ9ZyO+MbOMKvJ98he/NPhnIRvSa
dvidxPk7WmHV/fYZkje5E7XC+zEx3pDrd24uQhL/MTKE96+e7UQz+eFzJH/y
egEN59cMnCqHfV4ge2Q1NQHv97DjTpwZ8oXIjiIvhw58ftoGBGMYlYoQhklh
VX6ced27qU6qrxCPJpU6Gj5vJh+fbPM9fY08YY0ktyjg9f/HvPLtWTHiY6R1
4iI+vyy1E6VxUiXI7NuWn1fx+T4YiXprvihBXtQWnQw/YAF+gtdmcwpKkSTF
oiNxMrj+8ZHJKyXlyPjAmwUrfP+Q43iXLaT8Fhl11/ND8P3l3ECSbUf5W0S7
5Fm14F4LSHPT/6ZQVYFYTbCGNOD70cGH5b1rWBUiFnJuoxnfz0ymY+rvtNci
R05pC+Ry4eu9cQo9bIQixCtWz/fuxOcvQAv51YUitV3u6084LOAfNfDCcxcM
0TtiOhu0A+/3tEMDLO7vkTFX6d2LZAvoaEjr7PKpR1Kl1eZLVmgwti/qVX5Z
PSJ7e2m1Y4kGi7HXY8OX65GJvHefJv/RQMDC2EDZrwGRM8r9tjVHA7s/1OaU
gA/Ikurh51PTuD7vVdQ6rAlRGb7jfK+PBjRqa/p4bRMSOUhOd+ulwbtV0UCn
jSakbFHZW6+bBmGD7WoePs1IqPs44+wnGnBk7i8OcmxBsru1elcbaLBfdiwn
/dRHhF9ifwFbMQ1stM5GDXJ1ILYboqlq+PuxQTHvsvWZDoT+iE3B/RYNpPZu
645HdyDzbFzBT8JosBLeF3qNoRNJCD6tMRdIg1rHCI2bAZ3I4cZTjme9aKAv
O/I2xq0LGV4ZpeyyoIHj2+T8l2d7kMbueul3EjSIknbq9vXuQYqKnAe38PNB
0SOVdc2EHmTn9HlfdSHcf8Dnk/29PcidjRbnZ7w0iATuHyRaL1JwPMxJjkKD
ly2xUhcvfkbsCpdbhabMYX7wVg7nlS+IyKzjpn+mOfCcNm0bjP6CnLJP/m8r
zRzUaiUWcwu+IPZ7m08FpJhDaEa99rHZL8gD4odR+zhz4HIgjjt79SM3d/fu
mg00B6XZQLH66wOIYRPz8rSZOdwg+Dy5FjGIDDw2mgygmEOUXnr485xB5K67
hed5ojk8jm+8PNAwiFjelfFWpZtBleguxWPkISRb22VkaMEM1qG2iXR7CJmx
9kqYHDKDwFCmhYQ735DPhNaquTdmEMSQrl0c9R3xrM/M/2tuBloM9j7Xm0eR
8gMqsnyJpnCRuVsy4MsoosoWr7oz1hQCODUHgqZGEXXLks/USFMoFRbRuE0a
Q5ytljqnA0xh79FBahKMIT5/ef5625sCk8+51OKKMWR4916Lt4dMoX1Su+5P
3jjCVej2jYSfny1aJDgv3Z1E6rL3/BBYOAcNTxyw66k/EB6S9j398bMAhxGn
o5f/IKe4axWag85AWv+L87/i55HdVys0fFdPQV3qvziDh3+Ro4v+6Qe6joPn
+7u15BuLSFufbF/sHwA9d+vrxhHLyHpih3DfLVW4vXyQZSl6GVlZO/Q9zEYV
6oMI6ckJy4g82nxV/agqaMRl1g1lLSMJCS/e982rgNLrcTan98uIhYxpcsF5
FRD965QTsLWMfKjo1WJUVYbVa55dOX4rSP8Im2DaigK8uBkqs+K6ijTkvi7d
dDwAWQF5bld9VhFOxi3ypuQBeHyj49VcwCpC1m7qOzAtC1HXhJRmolaRmVtX
+/delgVXt0r1gbxVpGD2enmgqwzIX1g4/W5iFZGf1g5RDN4HFeq2nsHn1xCG
Redt28698PpIZPGG/RoyJKQK0cl74YXaq8XrV9aQiR3LTcsX98JjpU0/T/81
5LnyIjV5VgICZR+F2qasIW2/nzKz7ZQAEOx6oN27hsQaXGqn2e+B5g0ooxqs
I589IjZWw4Xh20r8cUmTdcTzTqiQmZAw/P038lnn/DoScu+7ZOhbIRD8HbIc
6rqOXJI0SNKbFQSvIUyVHrOO7Bi5ebrH4T/YXQNV85/WkYIOuPYoSAAOVsaf
4uhbR/QCe6Xq9wqATtnI1wPD68jl43d0Bz/xg3thyIbL7Dri9+vL7e+i/FCf
jqlPsm8gxRaWZr7dvOAaBOjAmQ0kbV/Dw+8O3BDqH39m1XwDkd5GEwlC3PDQ
d+Q7n80G0h8iekz5Mxdg7iEEE88NJDDdKGlcjwt4rTHN9vgNpCI9dCD12E7Y
b8XZ/TtlA2m8be+fuckJYG5jx5q5gVz2rnfpqOXEzw+EcL03G8jQhgi9SIcT
ahFoqOvaQGb8vdkTatih52i8yejABhLJ0gfVRuwwozoysT26gRjFkC7YTbEB
t3wI+djfDYSzQ8lFfRcbSMt2JlmtbyAhb/GdvHwHaEiLSvoz0JE85NiPM2Y7
4LIopvuWi45cDha91JbOCjcFOb983k1HRAOX+UKPs8IDARunxT24PpcAjM2x
QDUnIfKQIh3B3P+rqzNggZ1EaHl5jo40J5bpFkoxw2u5m5WIFR3xPPIYa/nB
BEbnq1702OH+WINjHIuYIPatUtSGFx1R825DVRAmkJv08o+7QUcyON34r7Ey
wSeuVy7iobg/tYrMk1+psMN9n75+PB3pbx8o/hhMhZepjke/J9ORTvnEqAgz
KpxqyZa5+pSO6NVuqvw8SIWfyyP/UZ/j/mtfBTPsoMJdCeEdqUV0RNpsQa3n
JwWkja3ocuW4PuGLtl0bBZqDU37X1dCRVVO72LLXFHAq/Dxk9oGOCMhmcfck
U4AyyPXpZxsdGSH1DGKhFHjGZFQT1EtHbPqC6RHuFNBRuVfINURHOKWyU/Ze
pMCEfWt67jhez7DmkTwjCoTfp8Ye+YX705Hj5tWlwB5UJ6j9Lx2JrJkO8NSg
QN3vUHe7dTy+0m2f94cpYLsbvbhM3ETmj6Y6sqtRgKBHN4xi3kRovwWbLuDy
p9cOI8I7NxG/q3r/lR+jgEa278FigU1k5JbjstBxCgx3lojoim4i8XLO66ln
KHBza57jqxTONzn7VS5QQFBWjuB+cBPJS+E4s+RGgWqLK/NE1U2kX1ZBbhjP
z+pO3kiSxibiqRN2bjWFAuulk537dDeRlGD3glMlFHg0tud9zelNJKRkXnmo
kwJqnDZvzpri/mdL6SULFOg/lp45eX4TMZoEoQFeKly/8vX+jUubSGTjfw3G
x6jA94g/jM0Vl/svH5C+TIXyRhPvzKubyMyp3uc2D6mwKNZh3BK2iVzWOmws
sEmFhDM7tC9EbSI2rX0eucpMoHDzpOLC/U1EIGz1epkXE3j113PvytxEKtho
33wWmYCTQiQV5uHxtnS8VjqK96OixiK8xuvjkGyVeIsZZmMrei+jOGe7TRnv
ZYF71UsN9EZcf9b843t/FpD9qVAW344z47P78z0scOV4YVLFt02EM7j3YdF9
VmC5+vOWwST+PFhn3Q2XWSE/Q8p35De+vpSaVcfFHTCzkWnGRMfjn8y79vAo
G9zZ9103jXELucxi+eXPKzaQNBdUlWfdQjiNSkv1pNnBofghP233FqJm9llC
di8HjF2O7n+utoVILHElGOdxwpPEBb5h2EKGLnOV2a1xgiVmbspzcgvJCRBG
1gx2Qje/RHeIBe6P0/pV18ZOqGus/mjhv4V4Llw2G/LjhqC/e1ji8ZtEiNNG
7sdhbjgifFevMWoLgYtzR66e4IHia6YfFFK3kPgf3KfIYryQKTFby1q9hUhr
HfGbW+KD80Ymm5oNuL8bxZOW3vwgEFh11K9tCyFE3ogsXeCH+J7bFRNDW4hf
6sc3hmsCEBImUlyzuYUYSfq6zMj+BzYjRs88kG0k7f05ZhE+URDc8Xb82Ylt
5Hc8V32omyj0qwrtGTqzjVQne7qlNIqCUdyPJ3o22wiNJrn/700xAI2wFLHQ
bWTC/HXNJ6I40J1n+szvbiNw6/ABXSdxqEgy5I29v43ILmt9SWwXB/k/ux+s
Z24jrpbtfY1ZEiCSVhLdU7eNqN8f3tq0lYSvTbtamT9uI/H7L7jl9UnCw3/B
TNCzjcy81tA1PC0F7PoGtwrGt5GcA0uVT0EatgO9US0GAtiIme2cRPbDnAxr
5X/iBMjrUHkf8kwO8gN/vBKXIuD3brWF0MMHwfFTU66MDAEMFlQ0ajoOwpB7
ROJRRQLooD2rAaHy0Ppm08NKmwDNJ/sfxdQdglzVeclUewJMoMKfooOUwC6y
XSjbiQDDUxwrxYNK+BAV8Ly8QoC/4867JI8oQ6K/M8O7qwRoLf7Fv7muDGE1
Y9++hhPAWPZuXEuMKlzU/py4O4cAnGLPRPr+HYHdiSXRe/IIEPFCxe+M01H4
PHE/bH8BAQpE1AUMho6CwW1DzyOlBMBcbAyHW9XhSEuTvmUDAUa0vhR2V2kA
75kqhscTBKjaLLiC+mhC59OUtcwZAoyp6+yMeKcJMfO+8y9+E4CpOIQsw6gF
DA8UhysXCXAhROCjdJIWzPcWVA6QiHBJ7UGleIM2tFk+9dy1lwjmqkXOMka6
YKDjwz8kTYSTPD7c1hm68OnAydonskSoF7wjfWNBF9oJ/1gllIjgc+KCjPPD
E9CZq/tcTpsIPU5nf1z7pQe9f/9807YlQodoZi3SoA8mQ3URFAciLP23ETMt
bgCfPyTLtFwmwn4JdvRxhAH0pWjeMPQkwvnMY3YHTp6Gfo0kHotgIvh20p7q
fzeEoSh1ffd0ImDeVsyjomfhvM/Ov/KZROAq3D5UZHEWvl2YSvmXQ4R1fpb3
fAlnYVg+fsqvgAjgq7GFX/JhpG88NPwdEXQevNNKXzWGiT3RFSkDeH7Jb1PH
1kzgT9XA3npeBtirV2/id9sCAsXr//XtYoBmLZWux0P4fS+m4P1PIQZwu8SR
UKZoCdIXgi9wSTKAxmL+peEJS7i0LZFkq8IAg3KHrPTOnYev2p4kgjkDPJx+
GDBvZw3OBRbd3FYMYCmx03isxRpWebQzpKwZwO6mEcOmgA3wTfGqn3FigENE
clNPmA2cjXx39cl1BmhxaU7Iv2ALzW2UcfUUBiguNunyOWQP5srzr43SGICr
xGN6zN0eptIHgi5lMMAqE9ux7QJ7IHkU7I7JY4ChvZ8OnpK5BMhOY+PBCgZg
H6mRsZZ3gHLT9Pc3BvD1573N9S46wfHa23H3vjHAt9wk+8jnTtAr6Xkhc5QB
arkLApIXnGBhRWut+QcDaEUOf5OJvAyyj2fkBdYZwHWj76Q76gzZw4oZ5bsZ
IWvy58x1missf+cWviXMCOmTIuz/XrjCqdF/qef2MIISUjKuQ3fF56YkeX4f
I3wVaA+4lu0GWj8U4/YfZgT5QMH3J+nuMPZPMeiJOSPw9V0LmP7tCSpL3HRX
K0bwe6grOCXoBVHL/24ctWYEHeolPfvTXqCwVnKt35ERPugz3x1+5QWhW4pu
XL64/4Rdrlv+3iDKrHT+diIj7GcUuiMs4wM+LDxfTVIYYWhAcE+BvQ80sy6a
i6cxQo5X3P6ONB/wZC89h2Xj+vK17YOc1wDlVtJfL2YEooKkuzrBFy4KKx1x
72KE6za52IPN65CuqCRgxk6CI1Z85ZbBgdDugbrt5CJBleKFXs+2QCAUnKpv
4yVByEtGKaPdN8FOwtZdW4gEBQjPmHfFTZDmjW2QlyWBsW/DmVtbQVC6PO3J
eooExZ8jvv0aCIEphauNjadJ0LG6IaBLDQV+j63/ws6S4LfNWSN+5VDwn+Zp
WqWRYPzYqffiD0IB6dcUmnIigYIJ8wiTcRi0Vqa2YLdIELcmKqbwMxzoS5Ii
gXdJUCt3OT1VJAIOKBT7qN4jgVE9x44HphEQn98sUpRIArfA520y9RFgmrp0
LTWbBNPLnyU1nt2CkcAze3zfkyAx4HHWidt3YBlhDJDZJMGYc1/C0eZoUNnI
WlElkkHxxadLEwIx4Fuu5aNDJkPRdxXz6y4xsCQb5naBjQw6sVnVjpz3YHEX
0SZOiAztFU4675xi8fvFls6/Y2TQu8k9cCU7HhRePXm/rUmGg/SS8Pc98eDt
oqGxQ5eM14/1UQ7pPiyM3FTda0iGA/taW3ddvg/zn+j7zC+SgdFJYG5e+QH8
eb7O/i6IDO6Yg+LP2QSQtX8c3RRGBoP5zbQ/0ongKnyEqfc2Gfi6H8im2SfC
78QbxD+xZMhy/0pmHEyEn6Gr/4SfkuF6QBOvYncSzFgt94ehZHi6ujuKYyIZ
pPkfmsbVk6FRn/FU274UuNyt3J3aRIbV4foYmmcKTOtd+1jaQYYaXcXaH9sp
MKW8WDP1nQy1KXHpqvsewwTH36xTBAp8s9a2m8hNgx/2kR07SRToOZchrLKU
BrNvhen9VAosq05I2uukw4q1vqkTBwWWYO8hi8l0YHmdQ40QpsDHsRM3Nw89
BXkjc9cadQq+jxsIadEzQDnnT0oEUCDsUxZxcn8mHFkN/6CvQwFW7tFEVstM
0M54LfxVnwKXEmUnflRmgtk8c9eyJQXKblxf5gvJgpvx1cryNyhwgr+0IVMq
B8ImjO1WAilgR5TYpWmdA7fVfsTWhlDAMjWwJyg5B+JHeGcMIilQWFc6PsT8
DHLkPR474+d2VorjE9ryM2jtFNvOKqPAAcFLg6zzz6FDokLGpZICK3rsVwMV
8qDXz5B2qIYCL8VzR15ey4NvogFv0AYK3PdpR4y28mDes9d+qIcCVSf8i+YE
8oFv551m3r8U2Hf2RXvutQKIUxX3Or2M51/M9cajvQCYLqK7bq1TABvymzWX
LoSN/BWXRQYqEK/QGpK+F8KIzmW2Hm4qsOlWjymdfwUv/E4axyvj3H/0v069
N7Dn6eR602EqTM/3eYgHv4G0D6HZ2/i5ebZkw1C6/A3EclUtuutSIVxTTMVI
shi8C/Ynnzanwj1SkP4FjhJQH2EdYrlBhWPgbfKKUgZllLwIrZtUaK9xn9E/
WQZyB3QO+IdSweequ2FDTBmI+QcG/bhLhaUU3wATvnKg8PwRbX5MhRpZRyk9
pbfQeaLd4VY1FYzfzj40elIJJ91d2GswKlRbte6Xmq+EukTK28UGKihnpl1l
166CslENpkufqDAu5cYp/LsKHge8ytcapoKOc/SfAv1q4M7SP+c/RoURHwEd
n9xqiGme3ngzRQV+Nv2EKww1EMQrelpsjgo/Gu52rdfUwMrR6iXaPyrkU9s0
U4VqwdOO9iR+Bbe3TCwMDKqFn5GLus0bVFBNawzMHqmF//v+HP7/+/P/ASEf
BIs=
         "]]}},
      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->{All, All},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {580.5, -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJw1mnk81N/3x2eGhuxZorJmLUKRPfdYPypJZZmxRIQWWxJCtjZRUtZCEUmi
TUkqd0K2RNaIZE8lS0mYGX7v7x+/+WPm8Xy8zjn33Ps+577vfTxGziNgvxeF
RCJtJb7+96vHpo1/NuRgkP73gQB4bRMeKr+Rg6G9RrxcfcEXUmstVJykORiL
9Iglh0Jf8DNY05u8noPRpvji6gF7X5BWKjJYFuZgeOh8X/f2+XGIZnexezg4
GPHFCrPbYo6BacnWc0ljFMbDKc49D/WPwPqNbO13QxTGsm6GltKcD/zJaBhj
fqEwNib+uL//kQ8UnHX772g3hZFeaChQrewDq5yv8JjXUxgee4pMGmW9oWH1
9+TFIgpDOFtahb31MORGPzPRvEth8NtXukzPe8Lpv9G/vfMojL08HociXnvC
5qG1dp03KIxyL/l3Tjs9IbHCXPxRAoUxU/fblP+YB9j45OYc9qUwzAz0vEl1
7tBR61jcqkFh3BQMTnr+xhluvRLQfq5KYRzNC3O+e8gZjjx99+amMoWxOUEq
MJvqDKzbWm1eMhTGiLWAV9oBJ1CIEFxgClAYlnNXv3kv0iB4a72FyhSZcXm8
Ntw8yAGMVaJa+X+QGZNnJy38FB2AW2Y7/c8YmSFqkZwa3GsP2Xz5vlVfyIzR
y0FxYub2UPstKsXuA5nhGCAQdkjeDkRv6QzFlJAZmx9ZrN3BvR8GUn8d8y4i
M7zPahyzbNgHRYkFc7sLyAzfp7pqfJf2gdFpYW7xbDJjMHTc5B3fPjhsN6Ve
mkhmePZ6d1ZI2sIznsLI3mOE/6zJLplKa4giu1KxN5mhkDYmSbW1BqsFkeQC
DzLjU0z4U7Vvu6F/LDY/wInM0FY6qqW2bjdwvnVtWrWLzFj3idGXlbgT7EPF
JLZtIjO2rM69lHrPEky15Jo2K5IZTv/5+GbtswT1abVIeTkyo9Vvk3sRywK4
fcwHRdeRGWODlupN9hZQ6XCy6B83maFldahtXMQcpHXa9N5MkBh2L01Peb0x
AZ7f/T+ej5IYa/JNDxWGmMC/0onsh4MkRvXktFq9pgl8VCSRc3tIDGGq0ZPb
9wDixDQa4xpIjAsN0gVDxgjG5y7TrYpIjIbm+y+vHTeE9seZvCYFJIaVUgqv
1IIBYN+CN/q5JAbnfa+ryhcMIHP0lZxqJonBsNQPeVCoD7s6f3znjycxPl5T
+7p6URcelVmFd/iQGCoXP+ZLDGpDdoCdWrMnidH5w0JhNk4b4lXdB2rdSIw5
v/Xqwsra4JEfalruSGKE+Mp4yZ3UAtGUQp4b/5EYfK7Ln6TXb4OwIM6sg8qE
/dXUfVRTDchNW5eTLU9iWCfrrx14oQ71Feq3P8sQ+Ubs0MzTUIe1K7R8BwkS
g3ub9pYehS3wLLH0gc1qEsN2YJQ7RVEV+h9Wl15eRWKce7Vv0qZ4M3C0f3rU
RCYxnh3WxZ2am6FAk/PIlbkVPNlz0UjdbBMM7iwNO9O9gmuDtSaKI5VBI/lT
5GLLCvZd+9feSlAZorrJsafqVzB3lubL5HwlkPR0uORXsYJLBkKSRdoUgRa5
csP15goOC62vikAK0Ppw36sdB1dwvJlyU423HEj/jcAvHQj/m+oTXsJy4GtY
WLN97wrWDORNisCywNOw9H4LrGBrc/XSOSlZsBzK75fauIL1rFqWLn+SgjTl
lsEb61cwYyG8jW4hBaN+C6NiIiv4cYG2Uv9zSYhbsv7Fz7mCJVx3Xvt+awNU
icyz2WPLuGKSevhc8jrgd5KlhA8s44bPElV0kXXgkruLOt+9jGdawy+UZ0rA
ktptgan6ZRwz9tB+plgcdCytZAbuE/YjvK4fJsXg/OUgeac7y1h20XmH5Vkx
6GzPVu6+uYwXIvVebpAUgyC3WY2WxGUcn+FIabAThYdhN6HKbxkPOgwPZQ4J
wyAjaz7DaxlnBn9wUTkrDMKrc0pOuBLxixaD9ioLQ+iN2xKKe5ZxYN+EonXo
Gigeym1ZNl/Gye7F1WLya6B/051zPUbLWEiftnSwTQigsmAmUY3wb/fop20X
giBKYaGXwjKW2Ob3j9klCHd33XNBkkQ+fFuQuKUg8PTdb/jNS8xvQXYuRVsA
OpgPc+k/2VgiksfwxE4+oJo/dtAaYWNbmVQzgc+8oHf5CR9/HxsHeqzZrBjA
C9mSz8IYTWwsa1A2nV7IAy2Hn6vfrGbjHvbtHV+seIBcWj56spKNgRxvGTy9
Grx3vLRVLmZjFU5SmO/O1ZB5vpJKvsPGRyYfdL5kcUPTh1evP99gYysZbjvN
Z9zAEnsT9OwaG+sdqtpdF8ANGgerVJIuEfnofFEJ0uAGj0I84BNLxCPdCNj8
hwtSpxipJqcJ/2b+V2OVXLAQVUP6e4SN3YuLdoADF2yury1vcWfjGVGfDR82
cYGLYJ1vEY2NY65m7NIjc0GSY/3GOFvCP2xvV1g/Fd7ebuhxtiJ4SKHv/Csq
zH1rTNoObMyg/k12uEUFJc335oJ6bEzyeQDD56hAC2temtAgOHL1TtkAKiQw
PjyuVmbjBuEAKW5XKrzmbvXOliHyR/kW12yoMG37UTJEnI1pkzmuZWZU2Hij
rX2vIBsPcuwX8zaigt1Qe/wmLsJeI0wzT48KFzZ1GnOssPCMmtMFF4IrTnTN
9c+zsETlLXKyIRV+vOwuLp9iYYbA2lwtUypIUXrck8dZOPPHhSBkTQXbXb1r
jw2wsNDWyOwHdCrEXf/cbNbNwslrROwCj1Hh2ee+OKkWFi563Th0PooK4xu/
6P17x8J6+Ta5o2lUkDg+MPXxDQtb7bBlnXtMhd1lXwuKnxP2tD3Bbi1UiGIO
Op0rJfL55ZXpO02Fx2bDQgfvsnDMSTWeuyJcMJw4Uqebw8LujNBIsiEXiHaO
Rq5JY2GS2/aycC8uOH3420TtOSKfn7LthTVcUFIycetWJAtDAVf67n9cMDD3
3S4smLA/Gt41s4UbTM9PMlQPs/DHEbltcgXc8COLJJ7sQsy/ufnO3q/ccP2p
qN+cHbFeAT5BnFKrYeSr0bo3FoQ/j8j5n7dXw+V52wA5Yxamld4TEhlbDdr8
Xu/O6xD+GkuJD9R44JzBlRM2yiw82DPuvr6GB9T25dU/lWHheGnpg+NreKHT
57mUuAQx37S11wU8eUEh7UvjV24Wzq18f9CNjw/eTW/ZeOIHEw9ONKqEhvOD
P9U0rGuYiRkvN6nd6OOHtVIOLfp9TCzhhJnTxgLgvSsqnNLMxMltWwQ38QkC
9W5Le0opExdmiu+TdxcCK6eAs+WBTByf50i5ZSEMM4Fne9cfZWLv33GeNReE
IfNihkb0ISaO4TQP/dogDN+f4b7/9jNxZlrY0T97RSBBUEi7V4uJJV2arfcd
FYX3tY9HmfNLONmvzWZT/Vqw0fhtYXJmCW8bt57V3ygJhh8fTb4/tYQZI4dW
F0dKgsoJvxQH/yV8kH86r+WTJHCUTQwed1vCx1c9MtdIloIKna8R6SZLOG0i
6oLCahmQM25+8nPVEpZx+bVizS8Hc9aFUulJi/j3mip5XroCZB1z+vvj9gJ2
somY2/5CFXz5p/d0ZCzgnnHyC1WmKhg9Plv46uoC7u3knHNFajDwt8TxcvQC
HpW+GHCqQQ1kY1debnFbwDll3cVuX7ZAQUZBVKD0Al68k+zVyq0JpbVTXPPZ
//CkY0rd373bAEufXU++OY895AWvLWzQBadAN3NcPoftPAXqjtgAvDdgjXwv
/o2bMtwed2RZQFQ6s7SoaAbf0tl9VOTNLtgn47ooff0XjvrUNRK6Zy8c4DCP
exf7HV9LOCAsPLsPzDdeF31dPobjEpJan/QdgAsHL+3fXTiGD9yIuRo2cgAa
b8Ykf04bwxcKzyYb/DwANiIBfIvBY1jsG2n346UDQOO05tTRGsMimgaOHuvs
4Pj4qrlHj0ax9FhI9IC9HVwvPt2RXzSCd3r3ySi+t4OhbYeuJ94cwpLLMbc8
C+3h4dkHJ3wShjCt9ktBQ4k9hHf+tTULH8IGEn1nVcrsQSQkQZBJH8InOB/V
9GB7sHhZdvnYuiHsdGhGmNljD/cR9eLOzEF87MaSrgWPAwxnOvwTUPuKr1oc
Nh8+4gARBj+f1/F+xXVMUu4tfwcQ7Y8Ojvo5gJuuVGbYBzuApcz92V/FA3hA
LsSuLNoBiu8yfzZvGsDa78Xbt6Q7QNDT3MEE5S+45WO6i1S1A3A0/2ikyvfh
KZ79XH1ijhB8r4n7O2cfDnm3VfjaekcYjSv+7/34Z3znjaWxqYwjvNM/9u5q
8Wf8cWX93zQVR7h47ztDYttn/LeR+opi6Ai8ZydebDbpxeXZ3jdmDjqCiMH4
XRu3T3h48kaIWL4jnBOrG9U0+YT/Nq9z2XLPEeZm7sqLyH/CTet6dsADR+i6
55X3abwbp71qnXUoc4QMsbFsd/9urC+lt/xfjSNsmB1JCTrThQPNZt7qDjuC
fNFQbHpWB7b8cIv6nyQNZBOl4qfDO/BcY2IHVZYG0v70JCunDmybF5HOkKfB
eu22m0sSHThbamBRTpUGwgxG2cH0dvy69IR4tj4NyD23x5SuteEmN6NKX3sa
LFf2/YwObMPp4wWe72k0YOWI/+7Z24b7pXtm5V1osOB5dTlBoA371aRUVHvQ
YGY6Snw68SM+whXdUR5AAyz4+ro/fys2oft4h8XToLJL67ZscwuG16rfghNp
UJ714EF7QguOP+a343gSDR4qZ9XqcLfgFNMeb4tUGtxC4fPLlA9YTKQ29dFt
GkQG6DldXWjCh+YXbzk9p4Fe6zO5xyN1uDtFf2hVPw1GuGvUXxTWYafX+1XW
DtAgybTNsOpoHR6Ur1qUHST057/sm6ff4XrqcX2lUULPVkqYYNbinvBLUtM/
Cf1o5m9Z0Rrs/3yJO3yJ0PMLV5Q/VeO7Ph4V21jEeF+e8WncrMbn/U1+jLEJ
3bZNaYdsNV7jkNdhSKaDvi6PM13tLRYP6X98l4sOUqsXLshfqsLf0rL1T4jQ
IShSNG+rYBXmnQgfaBOlQ8O05iuU9gbPXfJZUVtL6N1Hp53zXuO0VZzP2iUI
Pb/PMfVlJR4uqR3ok6KDtPjCiTuoEq9su+AkJEOHkwmilx+/e4kpciV7kSyh
n9jDaG6rwNklPwsub6RDsDFWWfWjHBdm/Ps9qkSHpid9piKB5fgELXnrL2U6
yCguuMjNP8c/5tC3aRVC5916bQflOQ473FM+upnQe+8snlpfhj+6TX9NVCfi
WWORc7lP8UUlnY8+GoQ97ttyXekpvnLtznZjTUIvFPV4uO0JbpAVdPu8lQ6p
3/jSPqQ9xHxREUoftekwuDZ0oKywFHt8VrOP3E4HVcsh5ZsvSvAq9VJ1eR06
VBc8r/TuLcYhN08NuevSQaBThnPPj/vYL9S/8h/BThwJe7SYRZjVkbHjkh4d
Zg8dHFyRvIelDSdNsvXpYHStYdP4lkJc+6S9WsqADvGMbSebje9ihRj3XzcI
lpXhot5wz8cjd/4ZxxnSwdfmxN7oE3ewGG+91xTBL870ZXrF5eHc343b7Y3o
kFPh5njY6jb+wr+qTXgHHbTFtX9oHsvBSyz+7KMEN5/iPsNOzMJmwz8FXxHs
2dkv2FR6A9cFJKhxGdNhaduTO+mtGTi6pHt2D8HXr53f7jmbhmlzVW5XCd40
Q2/QEEnFmxa2hbwnmGGj7szSvo6fvZHfTkF0oJVSphocknHx7bPZWgQPiD8k
q85exoV7LEvcCObvclCu1b6E1ZvdD18g2Oj6irVr2HlcFtxYe4/gY3uLguZf
xeKrf0M/1BC8dd0dTZmVCMy13yvqM8FJKX8i9l0IxlbDiZ9+Ety9ISGJa8Mx
fPzAt55/BMvKOe3q2e+AT9wLjlsmuKQrWi7cxBiZbN/WuUIwc9WV0qaXHuhJ
kUwLk+Bc7lO8ZV2B6DTFOPA3wWZJ8owYmzAEmVcrRwgeF2kPtqmPRimiEqWt
BNdaM0QFcs+ibyH9/5UTnH5VfDrY5SK6LTKSkEGwT7t/Y59EIuJM1Qo5SbCe
WF2+aVcS2jnfvXoXwatKBHCn1TV05coniw0E++8xUONWTkGfySabvxHr2T3l
dcNwVRqStZV9UUowSr5GDRhJR+ZNZyf9CS7a+ubknbeZSFA8omkzwaeDRW1W
R2Ujf99jMdeJ5zksBq+MXG4ho+PxNGOC7/ZtF9WTykWqmy70jhL1IXDmUOxx
Zh5SOhXRLUdw9Z5/uud/3EGTufn7K4h6CpG+MnWrNx9Z1fOF7ST4K65wbn9x
FxWNrcHORD2mJtsITxYWIk7574P9RP1aHRptWJV+DxWPhZbQCH5MEdLRD76P
NqqZmABR73EWPkK5mqWI7+EJr1aif5p7JS9zaD9ElDFpXXGCxfzbuXx0H6GA
ep1qGtFvdu9vray9/Rjd4o1f1biNWP8/q/99ufsUBdua/neQ6F+eqtFnV5XL
0NSLxh8nif7WiMdBJvfL0P2qhzvPbqFDmOSpqYKSZyhN66HBVVXC3mJw7HhZ
ORrpfTLrTOwf6oKv8qW2v0BD/lZhiNhfDvSmHWotf4HMyu6+llSkQ7bf7i/b
KiuQ8yhvTC2xH2mkl3cuMiqRXMwBZgOxn9l9u1xzsaUKGewykygUJsZ74hOr
b4sR+bjzPcU1RP9FmKKfbRhVtfkv3RKkwx+uSNd7xxjIysB+KoqPqPfsrb08
/m/RsK/K+rlVdGitzf7YFlyDslT0Zsr+0WB4U8Kj4uc1SO3C34XWvzSYSwpN
Ojtfg0aLXn0Y+0MDCfp+6+1htUjdtvDL8jQNPH5xNWRGvEN/dfXvjX8j7MVO
Yre4eqQzcPHolW4a0Liackaq6lF836ocv04avFqQjfRh1qPnc9uDrNppENfX
ohcQ3IBi/Uc4pj7QQDBv89Mo70aU327auVBLg81qwwU5u94jcYXNJfxPaeBu
ui+hT7gVHWLKZukR78daraIjbntbEesG/zb/8zRQVlyxHElsRTP8wtG34mjw
72x37CnKR5QSvcd4OpIGVd7njM9EfET6dbu8952gwW61wReX/drQwL8h6jo6
DbxfZBQ/2NeB6tprVF4p0CBBxac9JKgDPXx4tG+ZOB88vKGzZJLSgdZ8cwkx
kiLiR3Tt7OnsQBeZjUfvitEgHkS+c9I6UYlFnI86lQYPGpOUDx7sQh6l801S
444w03e+QOj4JyQz5c0Oz3ME0T32zX2Jn9Auz4wNy9mOoFelMFdY8gl5Kjbs
ish0hNjcGrMdU5/QdfK7Ic+rjiDsRR45eqIHnVnfuW4q0hG0pyLlakJ7kU39
6vlvDo5wmhR869S5PtR703YsguoICVY5Z+8V9KFL/vRAF7Ij3EyuO9Jb24ec
LqkG6bIcoFJ2ndaOVf0o3+zYYP+sAyxBVT3nhX404XYiZazfASJjuWdTLn5B
XaSmyuknDhBFyTF7mvAVBdbkFf92dABTimdwaMMQKt+io7Y21R4Orm5Xivg0
hHT5k3XXJNlDhJBJb9T4EDJyKuviireHZ9Iyxhc4h9FR578fv0XYg6JhH1ca
DKPg36K/gzztgTv4QNbTimE0sF6R/mKrPbSMmVX/KhpBwqV+XziJ8zO9UUHo
8KUxVJ2/8bvE7AGoveXFCM36jkQ5za7sHtkHoI98DI/8QrtEqrY1RO2F7J77
Lj+TZ9D6kxXGIQu7oDrrz1Xr9N/IcC48Z0ubBQS+vVS16vQcau5W6076BWDl
7xa6/9w8Wkptle4+rwsX5jV4/ibOo3+LW7/GuetCTRQpJyNlHmnihpNGhrpg
fDWvuv/OPEpJuf+2e0YHtB+P8Pu8nUd0VfuMEhcdkP3tUxCxPI/eVXSacuhu
h4VTgW0FYf9QzyC/ZPa/bXD/TKzqP98FVFv4+BnbewvciSjyOxm8gIQ4llex
lbbAzdOtj6YjFtAqs/ruLd/UIOGUlPZEwgKaOH+yR/GIGvj6vTTqLVpAJVOh
5ZG+qqDpOrvn1egC0vxmFqMVvQkqjA4FRrssIsrc0ZVDHxXhsUH8U6bnIuqX
0oXEDEW4r/doLvT4Ihrlm6+fP6gIN7XZYYHhi+je9jmujCkFiFS7EXsocxE1
T95ezb9GAUCy7bpZ5yJKsj7cQvPcCA1MeM5lvYS6As4xF85Kw5d/yRZKdkso
8GKslIOUNPz+M9hl7rKEYq58VYp9IQWSkzHzsb5L6LCSdZrVlCSc6Gfosi4v
Ib7BM3s6vDbA+jdQOfNhCZW0wqkbURKg8TJ5l2D3ErKK7FSuUZQA8+eDn7cM
LKEjFhct+z6Ig39pDPPY1BIK+/npwldZcajJYRiNCTDRU7qTQ0i7GPhGAe7d
y0TZm2rTv3qJQGx48t4FRyZSWcGpJCkRSA8Z/LrWnYl6YmR3bO8SBoZ/DMku
kIkic2zTRqyEQcyNYdKSzEQVObG9WTvWwGZnofbJTCaqu+AZnscWAnB09+DN
Y6IjQTXHWquEiPMD6azVEybqZ8qwHpoLQRWC2uo2JpoIDxJIeSMAHYbJdkO9
TBTP0w2vbQVgQndwdGWIiWwvc7p6jPODiGbMqh2/mUioVfuY0Tp+UFH7mOa8
xEQxL4idvJwPjFVklcIpLFSEdnzf68AHR2QZli+EWehItOzh5hxeOCMp9Klr
PQvJRs6vjbXghesS7j5zGwl7YQkYnuaB10Kk+K1aLMTw31Bdbc0Da8jQ+OAA
CzWkPrcsVV4Nj9XPvETOLBRocJPR+J0bbF0q73d4EPF4oy97P+SGpBfaCcwT
LKQX1Ix1EDeoj50Iv3qahXKF/MRP8XLDB+FHx+RjiXh6FXk7P3MBn/+m3buT
Wainpffp+2gueJDlbfg1g4U+aqYmnHPggl2N+aonb7OQVRVb54cGF/yYH9zA
dY+IX/UomsLHBZcUpPmyHrKQisOsXscPKqjsd2aplxP2pE9mHs1UaIjOnKx+
w0IL9h5Jzx9Twae0q9/hHQtJqN0R6cigArVP+MOPZhYa5OzoY8RS4S637Zuo
ThZy745mnfOngrnOlVLhfhYSUs7PVDxIhVHPppzCEWI94xoGi2ypcPYaV5LB
TyKeubqImCUVNmLzqJbfLBT/5ltEoDEVqidj/T2WiPyerQS/1afCofX44DyZ
jWYMs7wF9KhAsmLZJKxmI9qkZL0rod8+pY+k17BR2EmrDeU7qGCcH6LxVIKN
Bs97z0tZUGHgY5mMpSwbJasfXcraS4UzyzOCn5UJPiPUo+NKBUk1dZK/BhsV
ZQru/etHhdf04zNkXTbqUdumPkDMz/li0WCaMRsFmscdWMikwtKzsY+bLNko
M9q/ZFcZFW4Mb3z7Zg8bxZTNbO//SAU9Ifcn++yJ+FPPWGWzVOjZkZM35sJG
tmMg1SvGBaHHP187fZiN4us21O7fwQVrb4jH8fsSevj8FpUjXFBeZxeUd5KN
JnZ13nNP54I5udb9jXFsdMRUf78EmwtS9vKZuSawkXtTd0Dhdm7Ydman1uw1
NpKIWwh9foIbTvTUiKzLY6MKftqX4DluEKKSOUuLiHwbWx9rGxL1qGU8B4+J
9fHKcE49vxqmkio6j2CC8/3G9yvywJXXf2tZdYT9lOP7t+E8oPZj2/PkFoI5
7l6b6eCB4xalaRVf2EgoujP94TVe4Dn547z1GPE8eKf8beZ5oThXOWRwkhhf
Wc+59SAfTDDzHLhZRP5jRafSDfnh4qavltkcy+gIj9OnX4/4QclRUleTdxkJ
2T57ZqUiAF5P08Vp65eRnkOXgpqiIAwfSey5p7eMFP4Kp+wvEoJbqbNrB2AZ
9R8Rfu6xKARODEd70Z3LqCBCGi1ar4F2cYX2GDoRT8jtURtzDVTXvX5PD19G
gbNHHPrDRCDq90aeZOImEePDLHw/IAIG0pes6hKWERycNjj5nyg8PWX/blvW
Mkr+LrJrlZwY5ClMVfG+XkYqpgZh03/XgoutHdukloh3+umYU5A4SERWGoY1
LyNS/On4Z7PikNxxoWK0fxmFZb1/YrMoATFxMk/fsJeRrVLIsQm1DeA+aHs3
AK2g7LcHVsuslQVJvhcjd/9bQZPJwjWxfrLQoyu1sX/vCnqdEeiXWScLtle/
37JyX0E0mtLm32fkAIzjMuViV9Co4+M3H8jywDo60e14aQXBef0tlj7yUJFm
I5Z0bQWpzZt+Sm2RB81f668v5a0gX6eW7ro7CiCTXZbYUb2CjK4NLLMPKcHn
+nVNq9+voOTNrn5F3UqQ/ieaGzpW0MRjY0ubPcogsNv6fMnICirY8vflbVCB
lcggbEohgbucw5oxtBmmVXlfbpAnQVGrztuYu+pQHPn9kbwyibh3683G6muA
94f6QlVVEljP6hi/adWAfv9zqYZaJDDHHQsRsZrQ9IQd4GxGgoadPTcuV2+F
Qt0ZpSxPEoxi6Q+JUdrgEd8ile9DgoFxwX9P+7SJJioRfXCcBL9Hjq5TMtgO
qeFHKa9OkqDp6U9x9tJ2iHsz/OXzWRLsV7t0tfGyLhw060pdX0ACIbm7Mt1/
DGB9alnixiISnLuvE7bXxxC6Rq/FbS4hQYmMkYR1vyFYX7AJNHhGAsYxd5uB
JiMwaKzf7VRLgkHTT6XtlcYgtreScnOUBJXskuM42AQ+3s5czJsgwbCR+Zpz
r0zg8kzIzP1JEnA/jVmlymEKlOtaAy/nSOAaI/FeJc0UZjpLXvZykuGw3vWX
8rVm0Ox0O3CdIhkcdR8eVbW1BGvzYPF+FTLsFA0Wccu1hA9bdlbdUiNDjeRF
ldOzltBC+sOroE2G4P9cVY+m/wcfCy3vqZuRocNn3/dTP62g8/evL2aHyNAq
m1eFaneDXX/1OaoXGf5uYF7+Jm8NXe8yVBuPkGGzggC+ec4aujNNTtsEksEl
b4fHlp17oMc4TZQeTYaQj7Tbu7/aQH+C0W7/HDIwgpxXD8nuA5fgNb8188gg
XLqy9SF9H3xxHc/8U0CGJXGet2tT9sGAZvJ4WAkZIMR4mbjkw2D3SOzZV2Qw
v/7KNGdhP4xuTKzI7CXml/Eia3jRDn5V9irWiFFA0arGLuwCHSLla/50r6NA
g6lO281+4r53ueTtDykK+B0WTHmu5QQqrtGuwkoUMJ4rPjww6gSHVxTSDulQ
oE99q7PVARf4bBbISXKkQPq39IgZDzc4WkJvF3GmgJPCmv3DjW6wIGqWq+xG
AY8zthS2hDusHRcz2utDga3kVfUdce6wL/7VyVuhFGg81pBS7HoIGpqpI0aZ
FHj61K4teKsnOG6feWybTQHhsoBvw/6eMJ7TG3U4lwIL3Pw7Vko8gTOgZP3l
Igr0K37Q2KV6GNCa/fv7KiggMPhG1U3TC8rtc96e7iXGnwlytDroAxZVF65e
+UKBL4VpnvH3fKBTKdA1b4gCVSIlERmzPjD7z3Sx4TsFTOMHvqjGHwG1mxOa
EksU8GV27/THRyF/QCu3fD0H3Bn7MRFK84X5ryLS56U5IGdMRuDPfV/YNfQn
68BGDtBGZSPmLF+ib8oyZjZxwGeJlohT+X5g+l3r6mZ9DtCMlHy7k+UPYxGB
25cMOeD////yf5iRvNQ=
         "]]}},
      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->{{-2.9999998775510206`, 2.9999998775510206`}, {0, 250}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}},
      Ticks->{Automatic, Automatic}], {967.5, -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->{1099., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.6566731870375876`*^9, {3.656673226818863*^9, 3.6566732583376656`*^9}, 
   3.656673289796465*^9, 3.656673321601284*^9, 3.656674449944822*^9, 
   3.6566751608184814`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["AspectRatio", "Subsection",
 CellChangeTimes->{{3.656673849320468*^9, 3.6566738531226854`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "0.5"}]}], "]"}]}], "}"}], 
  "]"}]], "Code",
 CellChangeTimes->{{3.6566737654826727`*^9, 3.6566738309574175`*^9}, {
  3.6566738619121885`*^9, 3.656673866042424*^9}, {3.6566744698189583`*^9, 
  3.6566744769653673`*^9}, {3.6566751658557696`*^9, 3.656675168084897*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {193.5, -133.43613465643523`}, 
     ImageScaled[{0.5, 0.5}], {360., 254.16406601225756`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {580.5, -133.43613465643523`}, 
     ImageScaled[{0.5, 0.5}], {360., 254.16406601225756`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->0.5,
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {967.5, -133.43613465643523`}, 
     ImageScaled[{0.5, 0.5}], {360., 254.16406601225756`}]}, {}},
  ContentSelectable->True,
  ImageSize->{948., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.6566737865508776`*^9, 3.6566738314104433`*^9}, 
   3.6566738665564537`*^9, 3.6566744772993865`*^9, 3.6566751683549123`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "250"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Code"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwBcQSO+yFib1JlAgAAAEYAAAACAAAAY6+Q7///B8B1q4+DbdtTQMCPHSY7
/AfA0+GDAa3PU0AccKpcdvgHwEdl2gLyw1NA1jDEyezwB8BxrHmIjKxTQEiy
96PZ4QfAbTYhbQN+U0AutV5Ys8MHwMJDDAr3IVNA+LoswWaHB8Ce3ZUR6W1S
QIzGyJLNDgfA3xXISZUVUUAgGuFwUQkGwGh6cnVH30xAcDxTUSkVBcBQWiJL
h4pIQGCn9kbLJQTA1NuYL8LRREC8Tnp3IyIDwBqv4HtyUEFA08RXqs8vAsDo
njNWvvw8QFV3FRgyKQHAQob/6oDAN0B4cgSbXicAwIBkPk7KZjNArniaQL5t
/r8MPREGOe4vQODAm/aXZf6/t/WAm9bSL0ASCZ2scV3+v7xFvfaHty9Ad5mf
GCVN/r+EVZzRJYEvQEC6pPCLLP6/97Ct3kwVL0DT+66gWev9v2D2gY4+QS5A
+H7DAPVo/b+zsqCxYqcsQEKF7MArZPy/CyfXA0yqKUDqmwAXkFz8v0qnfXAH
lSlAkrIUbfRU/L/h3L+70X8pQOPfPBm9Rfy/134azJJVKUCEOo1xTif8v8WV
x+bFASlAxe8tInHq+7+sAAWh6FwoQEhab4O2cPu/BfXukeUdJ0BOL/JFQX36
vxOYq7jwyCRAO9Cv7Mt1+r8khBj5e7ckQChxbZNWbvq/BEDGixOmJEADs+jg
a1/6v3LjLYpngyRAuDbfe5ZB+r8O1LAboj4kQCE+zLHrBfq/cbILHVu3I0D0
TKYdlo75v+NXL2ypsSJAm2pa9eqf+L+E/l5DJcggQGwN703Tl/i//4yqzU64
IEA8sIOmu4/4v71Ewr2EqCBA3vWsV4x/+L9s4kisFYkgQCCB/7ktX/i/l3QF
zspKIECkl6R+cB74v7jeORL1oB9ArcTuB/ac97/TMBlTZ8kdQL8egxoBmva/
o5fxempdGkAGkCoTdJL2vwE+bCInRRpATAHSC+eK9r8Mb3a79SwaQNjjIP3M
e/a/M5Bcjsj8GUDyqL7fmF32v0j+b01DnRlAJjP6pDAh9r/pBVDwgeEYQIxH
cS9gqPW/djiGv8p2F0BacF9Ev7b0v1FS29LR0RRAhOPd7o+u9L8cIB3/9rsU
QK5WXJlgpvS/uVAxnC2mFEABPVnuAZb0v6zn1OzOehRAqAlTmER19L8l0ZRF
4CQUQPaiRuzJM/S/anbf1jB8E0CS1S2U1LDzv4SqZeAiNxJAyzr84+mq8r+o
/RqqVrYPQDo4JN/govK/ekyULx2TD0CoNUza15ryv1djdHz+bw9AhjCc0MWK
8r+Px08HESoPQEImPL2havK/ArdtIHOfDkC4EXyWWSryv4F9EYAVjw1ApOj7
SMmp8b9KaNFyJoELQH6W+62oqPC/RcDACj2rB0BRH135HpLtv3GHXmkyWwFA
UwNEgsWB6b+ITbGHoPv2P0QikhS8tuW/2FFtYN7C6j/hMmGSi5rhv3i98E/U
zM8/zWN7yzp6378AAAAAAAAAAHiQNVk=
     "]], LineBox[CompressedData["
1:eJwthw041HccwP9eur/etE5Mx8Xl3WGKIczv6yU9xpV78dbbRMYu70s43NyW
1lTcTA+Rl14o2kZKyTSiSc61MNVtKtVNMq/ncG/u1p5nn+f5PJ/nQ4lJYcRp
YxgW8N7/+orW/5yeIUPY/1Rk/940myNDOSLfOmFgOSrMILtOFMpQS1nZOsKb
Gygx6Y636KoM+dRtp3bNPEDOB+Zpv4hlaCS+Oz+c9idq8z6U+tV+OUo1Imt+
3DaFmj1Ptihj5YjErL9QYD+NGjyapJlH5Ohsq55JhOUMqnBdyUrlyNG97T1h
X66fQ7kO53iHyuWIPT6V92a1BIHpYIn/H3IUf2N3CI+0hPqU0IqHKJDTKZOb
xefV6Pkyf6c1S4FyA8N95a4aJFkYGwnYr0BZSRR/jVCDTKfyl3iJCrRVVq4z
n49B2miXu+q0AhkxtlmdaNMC0l1onxMq0A6nE9O1brqQyIVO0R4lsnokax5O
WQ0bteDhNaYKJYznXzJOJUKzU94dtE+FTItMHJOriBC6v71hOEaF7CMyHkz2
E6HotmuhMk2FyIkdOVHWBrAu2S44mK9CbhxdrQ0vDYDwF1E4OaBCsZtFvH8i
DEFx8+/HdoEr6MzRnZkL8cbwOuHUsysealT7JA4rX2UG1aXzRi9AjfppXzjL
fM1gb1dE2KYgNZrefdj0NNcMhj60HMqPUqOetjH+HpkZdPd2CKI4asQ+JhZb
ZJrDBcuZX9d2qNE6NgZr0ikQPRZal4I06GzZN75TORYwS117x8QCg7j4c7yl
1zbQmPuuycIGA/O2eVUUbgufCx/UU6kY9JYM1ouotjCafLzUywWDfU7D7Y4Z
ttB/fSVlnz8GkhnPMPvVdlDvPmddGYvB9+TWiXw3ezjoP1JKuoxBjHjrE+yK
AwzsrUndbKUFX/92xcF83hmm20VWPYbawK1wsKnPc4NLL1xqb5F04Cn7Fnmi
9BOocnE1DtfXBedAQTntqh8sIZ0c6ooutPuxHkav2gXiDZKLn2IEuMd6eER6
NASMNn7bZyghgKQwY6TQjA7F7hZptCUCRFUu9oY40kHvYOfmAgUBBE/VHkZe
dFA2LrOl2jjY7HBr6Aynw1hAwvphAxyuMTbpJhXRoSEriMH/GIczy3MLLho6
eI+tHV2TjUNYdWVEwTgDWglXj/vl4aB6XJznvcgAJ8cARw4Phy18z2ylDhMo
nFzuu+9wKEnJUvEpTCBsmjbvq8BBX/ABl3SACY93PYor6MDBeAtR0DDChKBk
tv7dLhwiBen8l2ImdJcSbkvv41DWPhROljKh9ZWP3mEhDh/1ps83E1lQkdPU
6PcCB/cobqNHKAsMLgYzOa/ff435/Z8/Y8HpvrfK6+M4yLR/kDqksIBraE6j
zOLAiRZd9i1iwbJXx2LkAg4BFBv7Z1UsSI2JrOYv4/D2jMfgsZ9YMHlSGtin
xKGyRXCefJcFsU38WY0GBx9iTfHAAAv+BdrC8YA=
     "]], 
    LineBox[{{0.4995403365296497, 0.}, {0.5007004367730978, 
     40.9255941118396}, {0.5026654577065246, 8.02925302319648}, {
     0.5046304786399514, 3.0485824056552633`}, {0.5065954995733781, 
     1.0325511466026385`}, {0.508451965015644, 0.}}]}},
  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->{{-2.9999998775510206`, 2.9999998775510206`}, {0, 250}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.656673837937817*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXGFoHEUUftm9XJJLtFEp+Cvkpz/94z9/+EtFEPzZX2oIrmm1GOLZGhDa
FWqQq2gJWlRWq2DFgjVFchVpU7WUFA2soT8iUVKi1JNWbKVopSLrvjczuzN7
u3uzyaW5bffH3Wzmve/N23lvZt57u5dHR6pjT+0cqW4fHRl+aGJkfGz76PPD
Dz434XeZXQAwBNA1Mwx47fl/8q8h8DwPiTHNHdSY4DoWWBb7lOnbBMueIyp+
uhj7IDW94LkO2PWG306D9YwF+x0bbGcvAXc4DYNLbdRtxhZK6JNIYsBu+u4H
x/UCyJzt0+w3oGo9C1OonOMSUtDZEHAnNX1w6mUmiim1z7/eAQd9ilsL+00Z
UuGSDsML1h5wvRmYsJ6G3a7HR5mEScvx+z1DvvNuunPS5egkWOM1mPb1M8Rd
1JiOOJkcLfRMm+dpPqg0S2kmG5IU6vd8EWZaB/RgD15hS5/H7VnRguExHTid
EFzluxj847c+dS+PvfqlgBx6Z+Z7bHuv//sflCRWw33p7dPQHeUbvnT5b4UP
elAcihWsrxw5sYTtvauNPwUrs1Lv3Veu/oOkvUe/Whbs1fqZFWwfWDr/u8p9
z6+XriJl/Iv5ldbcjy0s/YaUhxd/vCi4rbmFn+O5x05+tyoognvb2XMXsH3y
G/cXlZv05XcvuB9ZXL4Yzz115OQPZA5hJv/6/uXVP7DFcVXu9989tpjEjeOq
3Mf3f/RtY+drJ/S4T019cPb8xIE5mfu+lQtX4rnR4oiQuemO47hNlCu4heMJ
7oOHZs9FTH9tdN9xvNU44divcotefW6c9BbcbNX2yU4YReBNoS+DCpFnIQ5C
8xAPQefVhAh/R4+KQpZ2v/n1vO2ciUDIfRMggfFVCK0P7vmaEJS+uRC0YgoE
Z04TIi/lNkFo9cZDxEnQGlKKQqQllTAIrrKkQQJpKkTebDJAcPHqQyrBPKZA
8NpsA0re4jYTJVwxijIQxM7gsg4/VORtOGkUXCMqStmOOxKFxxYeX9lQ8kkQ
RW2bZwc2bmkKqhRFscVUQpC8ZeoPtckoFvyZGKUF52uMUyUjlRMs90iZ3m7k
i5+f/ikbUjm3MyGV4/sWQGKMzpC0IA06UU05sgIjFkgxQcyQtHT4UoofMorE
vynZSUSKXSWKFEs1GalEMLlBUp62JiRZoIOQmIl+duCTBRVJ6WMLpDjRVKQS
+HUusoeaklKNsOu8bFOWum2oHSPhg39du64nu0zNQFgi8kRJxaYCDxVQ7Do0
PH6960N4wp41tYRXqAnrT3KByfNc2GO9DiNcmBmWNoLwI0ZHixdqZB0DXam/
AbVdoVj9CfD1cWxfPz7B0QpWnM7NwkVspwg3Sau6L7ze8PhNlZtntvpeOLOl
qGCjyR/6FX9A46N0pMgOYR9m+YCGWO6gSgqR4ESIwltdGxIt0E5kELLfFEjc
4JqRWLRohRTSVaSS1OQQySKJxPnLOiRmKc1DUjG0BRIdVEZKa2dD+MHEolBY
gsuCVIt3nYMUp1+BzIZU0slNQ8pLUSlnGR2obKcjKcdfEzKSS+Ucifm4hNzC
kEoRP2HTFCmDilQqBAVSRm6NLmJBlxfxVn1RHctlKlzlW5tEBu/pPL1uQpJ4
k4Lle/IrBSUlK/MztYTuUivhg4pwYokmkunXZvYRojmww5PwhP4wn9eQKyfu
gpbQn6I5PSn2GetuW5RPGYTPJVls42xgKqq2zYU6ZJnkn1TsqXkgFVbKA6mw
Us5JhQFvGEkvwJQeD2UPMMsQF2AGAnuTHw1liG3CAbq51KRnRFljSt2HROuK
KXUfFmnElH2S1pGYUueh0TriyYrWA6QioGwfqdgoc04qDJgHUmGlPJAKK3UC
KfIjJ4P/1EkEMeuuOAXRnkXRFwtUBjagZulKvzrDz3prlmzILeEvyLzM9UpI
UZtN2e1KeNq+KqWks7BiSsS+hlmH/sCsQQApBDS7TVIBswgs20Qq9tI8kAor
5ZxUGDAPpMJKN4wUGz2aSvTI+nqUl8uj4cHa4ket19W162Ny/JilJhkvNS56
zFiZhKaQNBozZqxCDvAZ7UuOD/UrjkJYL7SIA4X9U+qLcBsTFvuPE6Drf5B3
5OE=\
\>"]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["AxesOrigin", "Subsection",
 CellChangeTimes->{{3.656673979167895*^9, 3.6566739817340417`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Code", "Input",
 CellChangeTimes->{{3.6566737811775703`*^9, 3.6566737812225733`*^9}, {
  3.656673996635894*^9, 3.656674028098694*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
     "]]}},
  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->{{0., 5}, {0., 2.9999998367346983`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.656674028420712*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Style", "Subsection",
 CellChangeTimes->{{3.65667409430248*^9, 3.656674103987034*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Dashed", ",", "Red", ",", "Thick"}], "]"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Orange", ",", 
         RowBox[{"Thickness", "[", "0.025", "]"}]}], "]"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "4"}], ")"}], "2"]}], "+", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Dotted", ",", "Gray"}], "]"}]}]}], "]"}]}], "}"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.656674112725534*^9, 3.6566741567750535`*^9}, {
  3.656674254041617*^9, 3.6566743232605762`*^9}, {3.6566743782797227`*^9, 
  3.656674408740465*^9}, {3.656676159085579*^9, 3.6566761929775176`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
        LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {195., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {585., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
        Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {975., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[1, 0.5, 0], Thickness[0.025], Opacity[1.], 
        LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {1365., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
        Dashing[{0, Small}], LineBox[CompressedData["
1:eJw12Hk8lNsbAHD7jG3el6EsJYUSYtysKedJKLJkly1bSCq5QlRkiVI3JEkU
qaQoyVYkV6RNSXUnskRyuYl3hkEUv9Mfv7/m8/3jnM9Znuc5zzsr/Q847hbg
4+OT5ufj+/2rFx4rzMdHByO05L/FRRqEqk0XbOanQ9pLje8/5mhQ1H3QIEmA
Dt5G6OEUjwYMiz3BIsJ0uHo/uHLsGw1G5N2fS4jR4SSrVmGYTYNLT/TPyMvQ
4e2WHS8X7tJAYClHZr06HQw6QsvafGnw9lGwatAOOngmbN5f2yICV2zEUs6W
0EFTpYtYd1QYknOMN3Bn6eDLzLvW4C4Ees/KNzVsE4XZnqAnFywFQdaEnWh1
RRRiEqLfWGgKgOSeM8tIShSemVatJVj8YPhxdubiVjEAYsXz9dp8oKlTujK9
QAwWDhzRMYxfQAabh69UfxcDtj+5WrHnJ4rI/rir2FwcJDZ4PRT4Yx61XnWL
fHFeHGLrGb59jT/QYK4i2/2rOOgtbn+/uHcW6XZkx90ykYA+4zEZa7kZdKE5
L1L/tASUuI7vP8vjIe1pl7tJXyTg0ofFm2LsKZQh5WpkbCwJOSLjeQ+6J5Ho
yKCs+klJiFqlW20hOonuL6rqd/dLwq3ETw47zLhoYcPU4PIBSVDN9FhehLjI
OupJht+gJJy5I584uZGLPo/5jY0MSYLREvelBYZcJNF9uXhmVBL6cz+EC67j
osAqOWnZKUnYv/dd/zI5LpLZIzFhT2dApkV3eeIEB0V2Tt5sZTFgol1GTKGY
g1oGnweo/sGAiy3xroWFHCQzeUUpaT0DJlX3J6lf5qD7TJtsMGBA/aoPx0wv
chDX+Vp8vQkDTku/mk84y0EH2c6u9ywZYPrEm+F7hIP291QLFngx4FsImXPC
jYMax9Ib570ZUHh+hLvNhYMYv/wOe+xigIiWOUvSiYPKlzMmlvoz4Ov5FJtL
dhw05hPUnRXMgCFvXfHXFhwUOrDkXloEA3iNWkVn9DgoeDjaJzKNAZ6tlTqH
mBzkKpZa8+okA04NHeYekeIgc+0chlo6A2pe7Es+QXDQqqiqxg9nGDD/7ZPs
FXEO6hPmKBmeY4BV4tvxr4J4vFpo/48CPP+vlYdfTFHIMtDLN/4+A07quk+M
symkn7a3jl3FADlW3QXWPxRSLYslWTUMuMozJyLfU0hgKrfpcx0DbnwY2sv3
lkKNSR+UzRoZEDG66ZP2Czy+2G5A6DkDFH1dsgYb8PhB8D/Vx4CbJ+X9rxdT
aNHo6pWX/QyQUmvlbLhKoe6zgr0SAwywfZQu01lIocxNT93OfsHnO7SHKXyZ
Qgu5222zRxggJhE6fTSXQl32rkaXuQzY/OSwQ/0ZCv31aC+jUoQA/Y5/PAMP
U2iPTPv2SRoBoiKDdloxFDLfq31ST5SAe0b0D7woCs3LcQRrxQmIyb6edyaS
QiGRUT/qSQI4aqriHQcotEXz+FCrAgFJFazjhUEUms3NedilTYBWYOrfB1wo
9LFlQciARUC35LWVzs4UqqOC7LN0CfCTu+S5wYlCMdsMh6z1CODZy3lLOODx
M2zJBmMCjKzsc57aUOiHq7zfZXMCdALvDpwzx/tPPH57zoIAd8WI/vNbKPTw
zijPdSsBO9cTtRfNKBQr8vAUYU3AYMrHyRtAoblqj6oEewKkqkuK2RuxZfJp
AR4E9JsY9WTq4/lAyPGxJ14/X1H0PT08X1hYvqI3AYtqQ2Od6/F8LRt13+8i
4Ni5H4GKf+Dz+LPXw2I3AbmzvunN2hT62al0Z004ASbfVt7bo06hXxlFzmMp
BFhEhPkqLqfQiwnPZN1UAmKTNiw/voxCOXZLqqLSCHjxSiF6RJFC2hLpTP50
Ah7QpAUaFCjkmxrZKZtBAFvpU2SUHIVajm7dgfIIkO5ktxvJUCijhz8h+RIB
3MDnnnVMCnmbNNx9nk/AmE77CWPs6VkW4XyFANZ+8SqQppB6pMLrkGsEzKb7
7/UnKZQe+n171h0CTtrE2U5KUMj9eUkc+y4BTL+MstPYqur+t5fdI6C2vPbm
GuyGr/+IldwnwGFiY4y/OIXGfZue19cR0MJcFflNFJ/X49gffA8JUBl9Vp+J
naqkv9aynoCC6eOFxtjKPaVpHY8IGHigsfkvOoUc3c5t/dpMQOmAa781jUJK
NbbRGi0E9EWfJRZEKPRNhl5yoJWAdZbdPZXYyZ1HRObaCFBMv2G3ErvGNqiV
0Y7jo0b+rJQwhRLLlHlOrwkwkxwqeStEIXvxT6oX3xAQnN/kfQ575Jl9skon
AXwBFYWK2PLmxluM2AREZIYmIUE8f40WGf2RgDb62uOS2JS6cm91FwH8DqPi
vQIUeiZJi17fg/fnfOBZArZewtyWiF4CJAn9OWfsK9zv5L0+Aj7l/azTwI5i
v7+lPUDAGrXM3m5+Cg1aPYveN0jAdRWfLdXYtg315mVfCKBPahlkYqsWXe1b
O0zAUaGOZlvsDGbO7ZB/CciwvOaljT2fcjKmZISA1J2xSSR2Z2i4tNo3AlZz
NWO6+Chk2hvQHzBGQHs0zbIJu9TerezqdwI8Xg8V3sSWabY+PDBOwEvek7Qs
7AQ9U0tlioBV49d+HcUeu6HL3MUhwLs2dTEU211e7XMBF8e7Q9hfO7Fb0uXK
eyYJSG5wvGWFrbMgHqvIIyB8doOTCXZe+KKlxzQBIKx2Uhtb5AuXeXEG5/Mg
aaOCHeEy/Jk9i/eTuXBJHruvrat8yRwBpNR4jBS29Yb2WJd5Ag759Q+KYVeX
NW3N/knA48TOLmFs5RVVMu9+ETAR2eYtgH06s2RAapEAQaPG/XzYP4/buqnz
kfDrZY3Eb/9h0vaoDbuHdc+QHztkClSD+UkoDCqfEMQuKH94SkSABKt9t/Xo
2J1Bepzr2Gzz2yIMbLryHTcLQRK2fy/bLfv7fLvWNA5hFwdVOChhR2YVqSYL
kTBQUf1CHfvWdsV0FWEShF41dOhhfxY6z2nGlqhrDTDDXtLIcPcXIeFHZEeS
A7ZNdFojP42EVwK9LH/sRJaAWhF2st+30EjsutG4dKCToJw5r5uGreJ1wD1e
lATRgJXBVb/vR3a0UUmMBBdhww+vsP967a/WiJ0aY9cxjD0Hrtyf4iRcfJu4
bwWOF9bcG/d8CRJia68QpthB960em0iSAPsbTX1+x5PaptOxDBKO2PGbF2PT
+2u48gQJnGg1hWfYprmsnQ+wbSK2Hx3HLhVTXT1LknCvK/8/hOM9YUKs6RCT
BOM/Xfx42EZMevkqGRL0vKL7NX7nk4Fw3hts76R/WP7YfscW/1y7hIRNp21s
/8E2k5xa0ytHgk7a0n3vcX7OsTgyp+TxffmrpMjh/K50Huc3VCBhc1xYuA/2
qvyRTxmKJEgG1zRNYAtq9p41VyKhS33tNnVcTxrsuo9wsP+eUpqLxY6MYO+5
vIKEjwsO8W+whx683TKrTEJm+wHBY7getWx7OnNbhQQDl1NcCterE0F3dzHX
krBN0iRMWxLv/1SZTRP2sgYhx8vY0+Wlxvs08P2UiouTDAoF84qZbZokVG16
Oz2LvS05ty1WG6/PwaT6M663oleP6wyuJyFFOb2dJkuh5tZjy87qkbC1Uv3f
bOzY0TjRjfokGCUKvldZQqH/WFFfzhuQcL0nfM3Wpfj9eBx6wcoYn3ecRnWx
PI7/XqfFClO8fn/5sColXH8V5nwcEQkmaxOsnVZQaNStsHESe2P9q8eT2Jad
Y0cNNpOwZfPSA8YrcT/xNOVn/RYSAj8c/MxWwflZUfvj6TYSZpdvYvitpVDh
d++dIVYkSOfxecprUOiNhtADUWsSkgZKTd9ha13fEWOznYS9neUvtmtR6OvF
0em3tiTYbYzj2evg+ExSnOpxJGE3SyvnGn5fTzT97XTMiYQJPxuHKAOc37+C
769wJqHTx7HYypBC0jFVEf4uJOQ9JCR4RhR6GWbL+deNBNM5e8oHv9emrvHj
XC98vxeHBePxe6+y9ssIPZgER48wN8qRQu87JN7UYt+Y0ewSw/1FcoxBdVAI
CeudBo3W4P5juO3k8ZY9JAhYrM/a7YbjN4ilkBBGQhAzqGzWE9eza0e3zxzE
6/ck4mN2U8hkhdydr0dIyL8QXtCH+6Oxp5uzs4+SsPMnrU8vjkL5+/fGbjlG
wo4VOT9PH8H91qNGy6J4Eqau5Lwzi6fQ3167+70SSeA/rT7akkyhrXmV5PtU
EjYQGZWrMijkJGv7Z3MWCZrN+xrNb+L1WzLV95/D+aHX5f+mlELOMV098tkk
mN2k3nnexv602/LgeZwf51WWxd6hkGvRMXnlXHz/SRfNX1Xh815X8fhoAT7v
ylbe078p5GPBlDC+ie/XfUWXbC+uf4e6rt19hOtXK7tYXp6DfJq2vbJvJOF7
qKEcT4GDXMTrJiewfzp7Le9cxkFmRTlmrCYSAmZ4XRnKHLSs3elzRTMJrodC
lq1U56AO1deKlW24XrpYPz1tyEFG75uzqt7i/Czlv5OB+3nR9WUJD76S8OCi
abt1PgcljlzWDh7G9UOrblU9/l6YK8jskfmXhOeLSfbrinA/T482Ch8hIWOP
tM7SG3j+vs3U6m8kGG4TE+Gv4KDcU+xd2RQJ47pBzHUtHLR6UAAdmCeBW/P6
9vB3DtqSufOXqpQUxKT6v+u35CK6ra1qubEUzBs23r3HN4kqjwRwQ/yk4GDI
rHbrm0nEs3H2O3FaCu7esaX5vppCT2LTY5uqpIBpYxkInTykYVWg5/VZCg55
0drvi82g5Yd4uTKi0tBXcazCymoW8WTCr/HpSsOkdXBRW94PFOTSusPOSxpC
f7CsBdXmkf+kb0ldsjRcv1qkFHD3J5rRZV9OrpAG5kOOXlb0Ajo4dGBT8idp
aArTirPR4IOoKbsThYJMKHlUYtshyw8y1+nhSjpMUD3G6/BXEQDT+3ShB25M
GOPc9NmtJQi2+pooNZ4JXe0qk5UbhYDnpq5Ye4sJSnHzLqsihEH9494iwXdM
yBIuaxEqFIF/13/KqsXO//gpY/d1Ebhx1jp573smJNQIeLTdEgHVrWuD331g
wscs/S9nqkVAuWZYq/gjE5rbdd6ufikCctl+dWZ9TDhhE6WYNi0CtB1ub46P
MqFl3/Y9dDsaPL39tEn/PybI5Xu9T3OiQTLNoHIU2/RD4Eaxnfj7/rHMeYcx
JmiEeAiSgTRYWNfpsXKCCRvJ7rA1sTSYFrcdbppiguMezTspN2hQHdzAjuQx
wdqifES2jAaRTzSfq0/j/WmtVi65RwNurFhZxgwTnBV+pbxqoMH4aNtB3zkm
zMWgdSrvaFBuYRggM8/E6zpsX/+RBmFFN5yfYYeN3trv3EeD/9xTDFm/mGCZ
wi0+OUqD0qop9SHsuC/0h2oTNAghAxVyF5hwymZJe/MUDdaEvRO3WWRCZJNC
r+8cDYbbzH4tYv///5D/ARG1lHg=
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{3., 0.9},
      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->{{3, 5}, {1.0000000473635275`, 2.9999998367346983`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {1755., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->{1164., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.656674117484806*^9, 3.656674157195078*^9}, {
  3.656674261726056*^9, 3.6566743134110126`*^9}, {3.656674380033823*^9, 
  3.656674410608572*^9}, {3.656676169170156*^9, 3.656676193250533*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Exercise 1: In a certain country, income tax is assessed as follows. There is \
no tax on income up to $10,000. Any income over $10,000 is
taxed at a rate of 10%, up to an income of $20,000. Any income over $20,000 \
is taxed at 15%.
In one row:
(a) Plot the graph of the tax rate R as a function of the income I.
(b) Plot the graph of the total assessed tax T as a function of the income I.
Insert appropriate captions of the figures and axes labels. Format the graph \
such that it is clearly visible.\
\>", "Subsubsection",
 CellChangeTimes->{{3.6566762196920457`*^9, 3.6566762651126437`*^9}, {
  3.6566829865160856`*^9, 3.656683024095235*^9}, {3.6566838092458496`*^9, 
  3.656683823420906*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"R", "[", "x_", "]"}], ":=", 
  TagBox[GridBox[{
     {"\[Piecewise]", GridBox[{
        {"0", 
         RowBox[{"x", "\[LessEqual]", "10000"}]},
        {"10", 
         RowBox[{"10000", "<", "x", "\[LessEqual]", "20000"}]},
        {"15", "True"}
       },
       AllowedDimensions->{2, Automatic},
       Editable->True,
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}},
       Selectable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxItemSize->{
     "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.35]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   "Piecewise",
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True,
   Selectable->False]}], "\n", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"R", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "30000"}], "}"}], ",", 
      RowBox[{"Exclusions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"10000", ",", "20000"}], "}"}]}], ",", 
      RowBox[{"ExclusionsStyle", "\[Rule]", "Dashed"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Thickness", "[", "0.015", "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\*
StyleBox[\"Tax\",
FontSize->24]\)\!\(\*
StyleBox[\" \",
FontSize->24]\)\!\(\*
StyleBox[\"Rate\",
FontSize->24]\)\>\""}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<\!\(\*
StyleBox[\"I\",
FontSize->18]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"R\",
FontSize->18]\)\!\(\*
StyleBox[\"(\",
FontSize->18]\)\!\(\*
StyleBox[\"I\",
FontSize->18]\)\!\(\*
StyleBox[\")\",
FontSize->18]\)\>\""}], "}"}]}]}], "]"}], ",", "\n", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"R", "[", "x", "]"}], "100"], "x"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "30000"}], "}"}], ",", 
      RowBox[{"Exclusions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"10000", ",", "20000"}], "}"}]}], ",", 
      RowBox[{"ExclusionsStyle", "\[Rule]", "Dashed"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Thickness", "[", "0.015", "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\*
StyleBox[\"Assessed\",
FontSize->24]\)\!\(\*
StyleBox[\" \",
FontSize->24]\)\!\(\*
StyleBox[\"Tax\",
FontSize->24]\)\>\""}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<\!\(\*
StyleBox[\"I\",
FontSize->18]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"T\",
FontSize->18]\)\!\(\*
StyleBox[\"(\",
FontSize->18]\)\!\(\*
StyleBox[\"I\",
FontSize->18]\)\!\(\*
StyleBox[\")\",
FontSize->18]\)\>\""}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "Code",
 CellChangeTimes->{{3.6566762773313427`*^9, 3.6566763255881023`*^9}, {
   3.6566763834604125`*^9, 3.656676452898384*^9}, {3.656676490677545*^9, 
   3.6566765352600946`*^9}, {3.6566765660228543`*^9, 3.6566766029379663`*^9}, 
   3.6566770077231183`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.015], Opacity[
         1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvUdZ98VDfhd7BihIlFnxWD9dyQHGZ/d5cpg93QjO
v5XMtOVzmhOcfzhfcM3LtCA4f8dXiRVP0pLg/E07ZNQepRXB+fqz5J4+SGuC
85/vWbmWQXcynH9V9XxjRO0cOP/Aovr80vOL4PzJp+dc8ju8HM7/WmDP1JO0
Bs5fOd14c86mDXB+h0oX+yP1zXD++nxlJ87irXB+iPv/aTveb4fzHe/KXpJ0
2gXn31WoX3+yYw+c//2D0nJGxv1w/tr9LYdKlx+A82V9Z+7Te34Qzk8xPM/N
r3gYzhfdM6fJvBnBBwDp21zT
          "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/do5ufZEz2EHBjBQcZBuOsbCq34Ezv9wrGn16aMI
/r71Mm8U3x2F80/fu25po38czt+QsuVGbdYJOH+n56asGRNOwvmMpRc5y8+f
gvNz/wvO0ft5Gs7f+KC4nlf2LJxvwvE9f0PkOTj/dt/sYJ3G83D+g7UGStsS
LsD5++1VDr/8i+AbNK642znhIpx/MHXvv279S3D+k59JM38dRvCLLWfeqQm9
DOdzxfkdnN2K4AMASOJZ7g==
          "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/W3hRruUrssODGCg53D4+YYJ5y8i+I83xHwql74C
5zs/c9mjtRvBNz29979nwFU4f1L08dc1jxB8/v7Ee4KN1+B8uaIeL2HR63C+
7w/3vWVbEfznmlNuvA26AecLcxfmXnyK4Mf33+MQb70J59seviN7UvIWnN++
KPt232oE/4NK9/xtnrfh/Ndh1ne97iL4bDo1io61d+D8Ttld3QueIPg8/D++
/ve+C+cDAC/DWlw=
          "]]}, 
        {Dashing[{Small, Small}], 
         LineBox[{{9990.433673469388, 0.}, {10009.566326530612`, 10.}}], 
         LineBox[{{19990.433673469386`, 10.}, {20009.566326530614`, 
          15.}}]}}, {{}, {}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox[
        "\"\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSize->18]\\)\"", 
         TraditionalForm], 
        FormBox[
        "\"\\!\\(\\*\\nStyleBox[\\\"R\\\",\\nFontSize->18]\\)\\!\\(\\*\\\
nStyleBox[\\\"(\\\",\\nFontSize->18]\\)\\!\\(\\*\\nStyleBox[\\\"I\\\",\\\
nFontSize->18]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSize->18]\\)\"", 
         TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None},
      PlotLabel->FormBox[
       "\"\\!\\(\\*\\nStyleBox[\\\"Tax\\\",\\nFontSize->24]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSize->24]\\)\\!\\(\\*\\nStyleBox[\\\"Rate\\\",\\nFontSize->24]\\)\
\"", TraditionalForm],
      PlotRange->{{0, 30000}, {0., 15.}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{{}, {}, 
        {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.015], Opacity[
         1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvUdZ98VDfhd7BihIlFnxWD9dyQHGZ/d5cpg93QjO
v5XMtOVzmhOcfzhfcM3LtCA4f8dXiRVP0pLg/E07ZNQepRXB+fqz5J4+SGuC
85/vWbmWQXcynH9V9XxjRO0cOP/Aovr80vOL4PzJp+dc8ju8HM7/WmDP1JO0
Bs5fOd14c86mDXB+h0oX+yP1zXD++nxlJ87irXB+iPv/aTveb4fzHe/KXpJ0
2gXn31WoX3+yYw+c//2D0nJGxv1w/tr9LYdKlx+A82V9Z+7Te34Qzk8xPM/N
r3gYzhfdM6fJvBnBBwDp21zT
          "]], LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAA60NjfciMw0B4OQUvp0ePQGwfQFNE
jcNARzIAUm1Ij0CTAXZIOpLDQFLPvEBdUI9A4MXhMiacw0BnCTYePWCPQHtO
uQf+r8NAkn0o2fx/j0CwX2ixrdfDQOdlDU98v49AG4LGBA0nxEBJm2udPR+Q
QPDGgqvLxcRA82s1iTyekEC+rxzsIe7FQGVZfVZOi5FAy97XOTwvx0DWS0Yu
MIySQLBktNh9ashAWh1drWSIk0C5SbJqmJDJQPs6KCKtc5RAAXXRCXfPykCb
XXShxXKVQG3/EZwu+ctAWMx0FvJglkCx4HN/DR3NQCgawzJxSpdANAj3b7BZ
zkD3bJJZwEeYQNuOm1Msgc9A4wsWdiM0mUDgrTAitmDQQM2vGp1WNJpAvz8k
w+n90EDMMm1r3C+bQDCBqN2JkNFA5wF0L3YanEDBZb3+iy/SQALW+/3fGJ1A
5PlimfrD0kA69jfCXQaeQHM5mdx8VdNAhfXBLS7vnkAKXk7Bm4XTQERjfWgs
PJ9AMem30Q==
          "]], LineBox[CompressedData["
1:eJwVx30w03EAx/Hp0YVkaWgNdetBrYerk12Gj56GrtotUSERUZ2ESFlOqTxs
oqWkZ05NzcO+Zbkm13UcqjvlNk/b74dDKculxFHO0h/ve99raXisOHIGg8Hg
Tff/Y0XEMyJbi5zRItIVr8B3CTP+zLS/3pQs+zVtV4OT+q1Mi07tGy91ogKN
BVvcg69rUbN353n3FAWMC04Lr9/RIk2474fwqgKbZhpC/5ZpMc8tpvPIPQXq
BlR5H1u04LCKyuVNCvSpgn+dZeuwTWceMOZcim1ftr9eXaODyPZVRWFPKVw/
1Jp8Ra1IyFGZpDeeQh7UaJT0tqI3Ztmeya3PYJ0b1mVzsQ1MZmKJj5kSjvEy
v4WL2hH4Y/5I33Mldo8La5PU7QjOy/INSijDgEt+x5C4AxW3U++LNpRjoUVc
TMvnDrD0mm/5PeUIze0yt7vSCc/udg/1wwp41FGcdw56SDiCbK64EhnFJw3X
lHpcDrMazGSoMMyVPnzpa4ALa0geE6qCMcCd9qMNOBQ1XD1RrcIcnmSp9wUK
Jxb394zYEcjZzUskaRR+JvnY9DsQOFo421enU0jWlnnr2ASbB+vmr82mkCFL
LK5yIogqtZi0L6BQMjUnInElQRP3btuwikJXr8vA2GaCLI5G+qifglgZOzSx
n4BlZZlhGKCgn6vjDAYSFE+GXGIZKYRF8PfoDxJoDGbnZD8pxHLMKjUhBIOF
vseSpyjIcuWnUyIJ/FidENnTaEhQj0yeIWibvUYgZdPY/cmBO5REED4qcWtw
pKHjpfrTyQTndc7rBMtp9H3eqa6VECjl0exVG2kwDnQkpV4m4F/SsI660sis
EihOXSWoj7NkPuDTsLYpaj+cSUCJVOa2XjQ474/zvWQE0Zgxa+9WGo9XNEev
v0bwe72/KWsHDV76xkKnPII0pyd/6n1ovOi+9c5aTmBpPT5q2kVji+DvhOkG
wT+852AS
          "]]}, 
        {Dashing[{Small, Small}], 
         LineBox[{{9990.433673469388, 0.}, {10009.566326530612`, 
          1000.9566326530612`}}], 
         LineBox[{{19990.433673469386`, 1999.0433673469388`}, {
          20009.566326530614`, 3001.434948979592}}]}}, {{}, {}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox[
        "\"\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSize->18]\\)\"", 
         TraditionalForm], 
        FormBox[
        "\"\\!\\(\\*\\nStyleBox[\\\"T\\\",\\nFontSize->18]\\)\\!\\(\\*\\\
nStyleBox[\\\"(\\\",\\nFontSize->18]\\)\\!\\(\\*\\nStyleBox[\\\"I\\\",\\\
nFontSize->18]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSize->18]\\)\"", 
         TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None},
      PlotLabel->FormBox[
       "\"\\!\\(\\*\\nStyleBox[\\\"Assessed\\\",\\nFontSize->24]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSize->24]\\)\\!\\(\\*\\nStyleBox[\\\"Tax\\\",\\nFontSize->24]\\)\"\
", TraditionalForm],
      PlotRange->{{0, 30000}, {0., 4499.999908163265}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->{988., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.6566763211268473`*^9, 3.6566764832171183`*^9}, 
   3.656676555907276*^9, 3.6566766166777515`*^9, 3.6566770088431826`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Exercise 2: Given the graph of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SqrtBox["x"]}], TraditionalForm]]],
 ", plot the graphs of y=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox["x"], "-", "2"}], TraditionalForm]]],
 ", y=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox[
     RowBox[{"x", "-", "2"}]], ",", " ", 
    RowBox[{"y", "=", 
     RowBox[{"-", 
      SqrtBox["x"]}]}], ",", " ", 
    RowBox[{"y", "=", 
     SqrtBox[
      RowBox[{"-", "x"}]]}]}], TraditionalForm]]],
 ". Plot the original function with a thick red line. Insert axes labels and \
a legend.\nHow does the graph of the original function change under those \
transformations?"
}], "Subsubsection",
 CellChangeTimes->{{3.65667686456393*^9, 3.6566768808678627`*^9}, {
  3.6566769247703733`*^9, 3.6566769945643654`*^9}, {3.6566773629094343`*^9, 
  3.6566773629094343`*^9}, {3.6566829351771493`*^9, 3.65668297924867*^9}, {
  3.6566830406761837`*^9, 3.656683080202444*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SqrtBox["x"], ",", 
     RowBox[{
      SqrtBox["x"], "-", "2"}], ",", 
     SqrtBox[
      RowBox[{"x", "-", "2"}]], ",", 
     RowBox[{"-", 
      SqrtBox["x"]}], ",", 
     SqrtBox[
      RowBox[{"-", "x"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SqrtBox[\(x\)]\)\>\"", ",", 
      "\"\<\!\(\*SqrtBox[\(x\)]\)-2\>\"", ",", 
      "\"\<\!\(\*SqrtBox[\(x - 2\)]\)\>\"", ",", 
      "\"\<-\!\(\*SqrtBox[\(x\)]\)\>\"", ",", 
      "\"\<\!\(\*SqrtBox[\(-x\)]\)\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.015", "]"}], ",", "Red"}], "]"}], ",", 
      "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", 
      " ", "Automatic"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\""}], "}"}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.656676996607483*^9, 3.65667722489954*^9}, {
  3.6566772601175547`*^9, 3.6566772993097963`*^9}, {3.656677338256024*^9, 
  3.6566773951992807`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        AbsoluteThickness[1.6], 
        Thickness[0.015], 
        RGBColor[1, 0, 0]], 
       LineBox[CompressedData["
1:eJwVkGs0lAkYgIeRwrh8LjWlzU5rKHKpD9ks79tpd7asFIXdQe6Mciq0R4gI
KXvJrbG0uiERSm4lkdKKMVMRTS41MmiGsQ1hbFnb/njOc56/DyPwiHuIMoVC
8fvM/04KeafnXUSFQa2NA/FELDSpYWSmXTi0POUsZIdVwO8HkVFqew6uhxRd
3FzQAp7hdL1erT+hO/m+/hrrx1Dj+sT50PZiSJrdms79uQMaOSq0iPhysNu3
SHdby4eA7ZdD69m3oMHyt0JDi2cQ4urUXh9TAw/6REcMrz2HcO9B04bcetg0
wNj0SakHIjhxZxqq7wKaVhTks17A0Z/pkgZBE+Qmyr30jvdC0/dmHj6prdDo
IA2nVr4EJ9fYtEHdRxD1R+R33FohPNj/pM7nShvYGJScuFD9CtoCQlf6NreD
bbRPdXzmALA4dawhlw44n2crMzo2CE8Oq8T4DnRCo8cl16G9Q9AVf/Wlr4IP
sVcr3WTzr0HqfMTFanU3zGR1yd1UhsFcwA0+IuqG4ajjZ5QChiHCrfnEzdIe
mOWp87ruDcOUl2allV0vDPYJipgRb0EefEPTep8Q3HbcmAxtHAFLDbrzj+av
wKi3VHUPIYaD1amnk6j9oMcsV7SFikG86Lv0rGYA5vxq0i9rjoKQqyOP1H8D
23QsxxpdxsBfvE36SvoWMliTmy8VvIPErZErpjxH4GtBdWqq6B0UZpSaKD8a
gZlLu3JLmRLot9YPMrsgBvfutb4tlRLYnyAbiPthDHRHD008rZPCzpWX+YYV
EnD7cV3xibJJCA3vm7CiS0GPtfA0e3QS0ppo6t+mSqE5Nl3DgiGDh4GxrAif
CZg/ecxvgSuDb266tzTRZNBKzV/nmDAF9OJTwiq792CwGLgVDd8DzdG2c0/e
DIga3u3i1Mohw3tD1f2OGdhmyzb6iieH5XGG2eafZuABP0mndVgOyg1K7OUB
H6DC8ep8qdY0KKwFkmazWVDEeTMtwqZBbBymZtk8B41o3xmmNwP3aPk7aaML
gPXVHs/YH8D2cGJQ8GoKijyT2365PQcvrlDYd2woKHabhPbHcxDVe2ovbS8F
h3IlGdPCOaj6Jt2x9jQFk29xNq9emgMTjcxVKh8oeEimrHbDeR7o16/wigRK
2FRUb6n0Zh4+DbeRIylUtPuCoXtgUQFtHhoqgVOq6MQOYtWt/Ahf/fRPa2SR
Ji7f4Tgj4/0LzMVozcRpAun16imrpil4/aelzhFPA3S2MevaF6eM2svU+04n
0zHh6MaUDXwqHmh+/PeWPw1RT2hiUaKyDAup3IKT/6xDV/8nyw7uUEURL6oj
VZuBJU/V3qf7LkfpgLFWwaP1yL/f06aRvAJDc7gLfLYxarpblaWlqWHfc/8I
VSkTD0WlSSzj1dHJs85U+4Ip/jCmPz4br4GrTnWctbPaiOs2Xi08HERDyUyY
jeWoGcbSre3tPTWxavJAqFnOJmQlsrIsHLVw9FcD+M7YErt9xZM5WtqoH+3p
b/3SCnm/xZRnTWijd5K5fmG9NUb/sbVsD1sHr6kLHYoTNuOgH9Mzu1EHZQ0d
6TkeW7Bv8N/8i18SOGlvaKprRCJTpVy5JYHAa9Sdr8+vJ9FF0yqSfZJAf8Gx
86tNSDR2kt2dTSKwN0hAZViQqChz6jdPJbD592SRlQOJ+0u8vLgZBGaKx/N3
e5FYeDbQJTiPQJvMWtrZcyR+XD/BEd8icIo9/IiWQ+LrOb8t8bcJvM7Uis/k
kphZ5faSqCXwi3thkrxCEvOInhqnBgJVx9b8de0GiffK/O5w7xModEg+2db+
ueUMBXQSmK1aZbeTRyL/8FzCCx6BLs/7ZTwBiQ/n377h8AlsDbXx6eklUSnA
zD7rGYHlWeP2b0dI1NVKcBD1ERjso/8+ZJxEh7S1RdFCAo1Mt5dKpCQaKX85
rtpPYG5TgYFcTmJi43EViyECXdPbu47Nkrj7oWio5TWBK9w/pCgUJKZwunPc
RQQ+XMtwOPHp858VXiajwwQmjO+eXloiMehjzPmYEQL/A1k7wz8=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVkHs01HkchoefJjGqLWqkNkRTo2amftg28v3YylpJklQMUXIpG7roRC5F
tVq7WTQyZTcRNtKFkly+REKaXVnjWqsxkWEwDWMwWPvHe97z/PM+57xGR4Jd
jqlTKJTDc/m/Y459XuqRSSCZ0CRuqHcWly2A0ETLQHSpxDygeuUs/vU4GOVY
XEfZ9Xq9XOoMdgukL21ZeBvV7gkoVx2axoVOdQ4nbLOQs5o+e3eTCr8I0KAF
RdxHafu7u85yVdjH9o7fM/dHyKXoNr1kdAofc7J5/excIXJumG9ynjeFAz26
GMUpz5BF/PhoDJrCQQHhPxU/LkEchWvaoaFJHHKW3l8sKEMedwjmVMYkLvue
uZ8bV4WWhF42xbqT2Mbp/OWuJdVInJZ5suPdBK50rXvKzahBhS+EhmnJE7jG
x2+ZZ8VrRPbkLv1oMIHtAp7avXesRwb8JxpKkRLXndQ459nZgJKYB/Pr8pS4
MeJuq6fyLTqSmpKn8Z0SSxyCHdn67xC1WH9+a+Q4NhPwfIO736HE2mqr6D3j
OGhvxYWHOc2Iyg/n6xuP46EDOg/Yli0oKYXOktYrsMw3T4ezrw0d9Lof32is
wCxtusNBs3YUopd/4eD4GD7+OO5KDNGBwqT3Y9Mbx7B42nP278JONM95bRn7
/Bhu4y2Wher+i3rGPyfcbR/F3uKtknaJCJV2LfB/9ESOo74J1Rxy60Fiek55
+XU5Tr+Ws1a9ugdROZ0WG36U4w6O7lHmLTFq5YXuNVwvx66R0s7wXb3onI6D
Fv3eF2y/7M5bg/x+1NY88sA2T4b9AoUDbLoEKbjETctfZPhyGU1rR5wEGW23
Dg8MluGXR87bBXEHkEblTudYcxm2fuiCy2hSZBhVGOJTNYLpWZfaCixHkHDe
1t+i64cxbZtFw55UOYJEVhA7dRBf81hXUF4vRwk3dlWVBA7i+eEGSWYqOYrx
nfkQaT2I1YvV3Of7jKLcuNLFj0QDWMkR9Fcwx9BirR+e3ts0gMUm/gtYFQqU
EHX9BKe9H5fS0uxpnyZQTPJt18MOfdjiZNRRX30KgMt02Ge+CP+TQXF/bk6B
LVxGTOgZET7VcsmZ5kwBO+EGyQonES6wvrqt6AoFZn5npb9VE+G12onLNUYp
wDSdlP55/COm52a8yRSowU/Pk+5O23Zj1ccasieWgHU/RxRf1erCNfu1NY4M
UUEz9VQv814zXnNosio0UwcS/zJrNLQtxKbTp3WivnwFlGo3n5HvKlDuodmG
Hjc9cL671+f3d81o0Twt4ZWLdPgcu0t/R+AH5FXxanjzbQNw9L5VlLJEjNIJ
Hj968mvYctFoea5OP+p+c6o+bpERpNgwKleHSZGk02Qhv9oY+BE58cvVZcgv
mTfx1t0EVmR5uWhry5GwyTuIKjEFoVir2VMximzcnjIW3WIAr3G9YGBcgZZf
qo+3ZK8Ha5cdVu9rlahf7m/O+sSELxzvkJD8SVQw6OXHTN4ACaoEY49wFfqU
oId2mrAgq7SunbFqBumedvPmtLKBZzDsuqZ1FnnEmOmmP+NALyfY5Y8iCmRr
tVllRW6C59gh3+SsGkiL668m798M+SXT5DZbdRjcYsBYspoEB03XeVFT6pBN
2H+4YUzCzRVeoqIZdfAWnLmhv5YE+wsdpwfUCGg5KiCMNpIwsi+y6IAmARW/
XuxmW5GQ6/CwYIMeAYnivrTdB0jYuvTVzToWAeaJRbT46yQodgqb6nwIGHL/
WE1LJqFMin0VvgTkmi6MSOSRYOiZWbAmgIBVpf79qekksNZk+0eeJIDau6I2
O4+EsH04ZGMEAW1WF6NrXs9xz/aR6BQCkqgFlvZvSOC/H5zKTSXAsalD+kZA
QtzwK9zEJ6DKz5zb3EKC+kvXEOMMAu7/1rdF1EOCycrJsMoHBPhydUeO9c3t
aX1r1/eIgNUM25x+CQk2GiDQKSIgpYyvJ5ORoDoj03R/QYDT1deNZ8bmfHFV
pdHlBGi6jMYqlSRQm7IY9yoJeLnSyOqCau6frwocG6oJiOzb/WV2loRaxTBz
uJaA/wCGtOl1
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVin0w1HkAh392vWRZ+1OUohdanLfs+S1p0PdTe0oldSqxOjlhu1NdIU0n
JC63vTjOa2SaKG0ymK7oSuawaPPSi9cyeQk5Eq2XRMl1fzzzzDPzGAf84hnE
oijK4yv/+0NX/DEbioLelO7fxrpxxP5I9IHApRQe6QaJ9saWk5arlPiekAIr
5CL3sFROQlvP7NTeSeG5WHx5q4eC0Jpqm/1DKJw4WFFD72gkRc4JLnfOUhCb
Sg8O/PSUuB/VFC7IpdDSXnoznHpOhvPOW+57SOF7mThi/HgzMdNKWqI6ScHL
4P7swSVtRL5+oY43TwXL1XwySra1k4DQVNVCSxXMzXiHNRztIFdeZCp3/aiC
6lR+IEl7SQxkV+vzmlQQqad4YxTSRUo7V1dND6nA12//cOP2brKbl39vmxoL
+d7OY6v0e0hyRMH1CScW5AWtKVZDPYTj+leM6CYLE4ZGRx+Hvyafe+VMXxwb
wrHwHBeHAZKlv9ly7RU22Dcrniz6fYA4blGsOn+fjUe3QyPLOgbI8ZJGLqNk
42RJY25WxBsyGt02eMZPFdLvWE808wdJj+G/2Sbr1DAoOvXFo3OIyPdoqQaM
qsNMvyfGXPGOPNdlixw0NcDKrKtLY42S7sbZWA5fAzKtO9PpTqNk1nV4/raP
Bmr4Khd8C0eJwEHxiV2jgU0FGbutpGPk8uKEievZC7Dl15U+DZnvSXg7q2/I
jYP+ipBb6/jjZLXPbOWxPC4E19d6L+qfJDKe39sT5VyIbxyeFE5PEuvaSr3o
Vi4uBQVYuXKmiAMjlZzT0IFSzcbUTjBF3LgG3LwQHeSOlDiLIqfIoUp77xaG
h2yjpdYSnQ+kM9XxhGEAjd0dJokPLaaJ6VwYN3pcF7Wi4VBnpxki85l/3Oel
jxWPzaXKtXOEp8ZpOxtrgIywaf+NoOBXUTNmd9kQwdcSo3JKVZDDTs+KmV2B
h6ebZ3Ot2eipD1XE84wRsL9lQ+IxVQx38nWyqk3wYMZ3Y1C5GoJT0mcaxXyY
yu8WnexRR9sz/0Pqw6bwFAlN9ig1sN7rrjkv2xwu8kMlttqaWHJGIXWwtYAk
s3hSrMnB0IREuGbAEnxZichVVwtFI37BlinWsPepiFdytDFwQZ+48tegN/Sb
ho0j2tAL8/IXtNsisGxntu4LLnxPW+nllApQXOyuVVqsg3xOh9O1qG8hGesK
Tj/Fw7syRULKHju4CHbxky1pjDgami9cySDofmHXsos08tluXWkmDGbT/5E1
JtLwbwpPW2rGYGaSbDqdRKP1QBPb2IZB0+eyT/0pNCoSY3tsnRhYWGh5FmbR
SOofvLR9L4MNVxffs5PRECbd0Zb+wSC0yrhuRTWNUXFvtXYKg+DiQoMGOQ2Z
qU5kUjqDKrE7OVlLY/kDyVBGztf2ntNqVtBQf7OsNv8Wg9sxF67FP6XR4RQb
I69jEKkf86r7FY0/1Ysc3OoZvJfsOHuum4b7s5fv6psYLN46r2rfS6MyWLiv
uZWBc4ZtvLSfRkHyoOPrPgbLxm3OC97SCNyn9z5okEH8Oa/+FyM0VppvuDE0
zMC9rnJR3CiN1PIsfaWSgaZr8lSLkoZHQl1D+BSDWJaOLGqCxgLPybiPHxlI
fvgiMJuiUWVk7HTq89f/tyNJTR9oRA1uH5+fZ1Cd+3NtxEca/wE3SyUK
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.922526, 0.385626, 0.209179], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVkHs402sAgMekMJefS61UWhlFLvVDTuL7ejrtlKQo1JA7U54K9QgRIeWc
yq2J0k0lKiW3knyf0hGzVUTLpSZDG3MaYSrH6fzxPu/z/vsyAg+5hyhTKBS/
X/zvpJAvet5FVNCjtao7nohFdWowMtMuHKDXnOnssHvo3H7IKLY9D+6EFF1Z
U4CQZzhdr0PrMmhLfqa/yPolqnB95Xxg402QNLEunXu0GdVyVGgR8aXAbtcM
3W0xHwVsvBZazX4IaizPFhpavEEhrk5N1TEVAHeKDhnefovCvXtMa3Krwepu
xuqfSu0oghN3uqb8CYCm9wryWe/Q4aN0SY2gDuQmyr30jnWguj/MPHxSG0Ct
gzScev89cnKNTevRfQGiLkZu5lYKEd79qsrneiOwMbh1/FL5B9QYEDrft74J
2Eb7lMdndiMWp4rV69IMLuTZyoyO9KBXB1VifLtbQK3HVdfenb2oNf7Ge18F
H8TeuO8mm/qIpM6HXKwWtoHxrFa5m0ofMhdwgw+J2kBf1LHTSgF9KMKt/viD
4nYwwVPntT7tQ6Nemvet7DpAT6egiBnxGcmD72pa7xICt013R0Jr+5GlBt15
j/kHYNRRrLqDEKP95amnkqhdQI9ZqmgMFSPxjO/sm4puMOlXkX5NcwAJuTry
SP1PYL2O5WCtyyDyF6+XfpB+BhmskTVXC76gxHWR80Y9+8FvgvLUVNEXVJhR
bKL8oh+MX92aW8yUoC5r/SCzS2Lg3rbYF92XoN0Jsu64bYNAd+DA8OsqKdoy
/xrf8J4EuO1ZevN4yQgKDe8ctqJLgR5r+nX2wAhKq6Op/54qBfWx6RoWDBl6
HhjLivAZBlMnjvhNc2VowwN3VEeTgQZq/lLHhFFEv3lSWGb3FRjMBK6Dhl8R
zdG2ZUfeOBDVfNnKqZSjDO+VZc+ax8F6W7bRCp4czY0zzDb/OQ4wP0mnoU+O
lGuU2HMDvoF7jjemirXGkMJaIKk3mwCKOG+mRdgYEhuHqVnWT4JaaN8SpjeO
ntLyt9AGpgGsLvd4w/6GbA8mBgUvpECRZ3Ljn48m0bvrFPZjGwoUu42AppeT
KKrj5E7aTgrszZVkjAknUdmGdMfKUxSY/JCzZuHsJDLRyFyg8o0CD8iU1e46
TyH6neu8IoESrCuqtlT6NIV+9jWS/SlUaLeEobtvRoEaPTRUAkdVoRM7iFU1
/wdasfd7Q2SRJpy7yXFcxvsXMWeiNRPHCEivVk9ZMEbBd/bOtvR7GkBnG7PW
XXHKWHuOeuepZDpMOLwqZSWfivfVv/xn7WVDqCc0sbilMgcXUrkFJ74vha7+
r+bs36SKRbyo5lRtBrz1Wu1ruu9cLO021ip4sRzyn7U3aiTPw6E53Gk+2xhq
uluVpKWp4c63/hGqUiY8EJUmsYxXx06eVabal0zhtkH9oYl4DbzgZPMZO6tV
cOmqG4UHg2hYMh5mYzlgBmPp1vb2npq4bGRfqFnOashKZGVZOGrhgb8MwGZj
S9jmKx7J0dLG+tGe/tbvrSDvbExp1rA29k4y1y+stobRF9eV7GDr4NvqQoeb
CWtgjx/TM7tWB8tqmtNzPNbCzp5/868sI/CIvaGprhEJmSqlyiiBwLepWz5e
WE5CF02rSPYJAvsLjlxYaEJCYyfZk4kkAncECagMCxIqSpy6zFMJXH8uWWTl
QMLdt7y8uBkEzhQP5W/3ImHhmUCX4DwC22RW0s6cJ+GP5cMc8UMCj7L7XtBy
SPhx0m9t/CMC32FqxWdySZhZ5vaeqCTwkqdhkrxCEuYR7RVONQRWHVz09+27
JHxa4veY+4zAQofkE41Nv1rOUIAWAmerltlt4ZGQf3Ay4R2PwC5vu2Q8AQmf
T33+xOETuCHUxqe9g4RKAWb2WW8IXJo1ZP+5n4S6WgkOok4CB/vofw0ZIqFD
2uKiaCGBjUw3FkukJDRSXjak2kXg3LoCA7mchIm1x1Qsegnsmt7UemSChNuf
i3rRRwLPc/+WolCQMIXTluMuIvDzxQyH4z9//ZnnZTLQR+CEoe1js7MkDPoR
cyGmn8D/ARjv8r8=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.528488, 0.470624, 0.701351], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVzHk4FGgcwPFBUUkMZUyHnCEdzHRt1++VkDSUHE+61Cy2y5FUNFoW1Zas
KZJOx1RWSU0HG9v7Rsq6CiMKmRnSWNOMY2aYqdj2j+/z+e9ruTfCN0SbQqEE
/eh/4z+zhsbHmYT99VjmsW4qOpJnpmz/xiT0yd5qQzEVHdzZPVKiZpLUODEq
EFLRjubj3yOGmcS70/FEWycVrcb5k4S9THJ+d8rV5W1UpLmkNif1TOJ0MTJl
oI6Kjrvf8kq4yiRvBMkNm57++N/6xqMsZ5KmU0nFRWeoKAKFMuk7GUSRmsG3
tKGih3qR4XlcZ2JXmr9i7ksjFHuuPsShxonwflpk0Mk2QmfbaqPSuxeTg/a9
06oGDdGDodVRxT6LSG7jsvI+G0P08ZW1/Vj2AjJy0XNuDZqG6NP5gRuk88ky
L2UaLcgAif9KEEZvdyAsA6NqX85U9IheZfGmwI4EX/r6SZmkj4ybPJ/pm8wj
8ardbtKLU1C8ztE61xQb8jTGIcg0ZzIakNEu3W2xIhxK9OKW1ElokKEpVayz
JH0tm6/dTtBDyj28ee2z5xL3rgn22EcXWWzOr6usnEW8KL7Ti00mojC5lW0E
z4zcaFQI17TroOfaadJYlxkE91iaTo3SRozXsaEeZsYko3h5f4+OFjownntD
EmBAtqfzq4x4Y5DnJ/N1uq5LXLNM9mf2aiDh3NbTtGRdkvGI/iW/VQO7KkrL
xvbrktHz9fTCag3QnZJs6lfoEttpeiuuF2ogXd9MtU8wkaxRxSpnh2vgZIVL
dr7+ROKjNxwYM6yGIKfMLtM4HWL9KG8jbWQUjKeuPvg9gEICUcrphk4VpN8w
u/Z6FYVUceziy2tUMM1ZWcu1oJCPfscjr5SowPTejsBNgnG8nGtdZMtVwSTk
8u66Zgw375CIj7iqQBo2RYA8vmOfoMSBBp4SHpdce3NKqMYMf8+AydsU8KDD
f/GsQjVemJbIu+yqgCItwz+Ko9V4eKW3I3WRAm57JXq36arxnREoL9dWwOWu
kHqHhaPYXng9RVk4DBy9xbV1sSrMZh96yVMNgWvgi1fGJsPY0d9vr8vxQfA9
nbfFVTiEbQTctV+CByG4JKkjumgIs8Mu3Iz1HAQOzX1I4DGE9Vrs+pxnDsKT
1po5WZxBHN4syqU+GwDvBwV9y+rkeJMiY8ioVw77jQ6MZ4XKsQlnPVPOl8Pp
yIUz1BQ5Xg+s6Lhf5UCc+KhsqQwvk4Wf5NLkwHhYlgU3pTj1flka11UGpvwG
tw2H+7Be54EbVr9LgWHM3f7n1D5sbSC9L/ORgs/hrVFT7kjwL1+MkbupFM4w
2q7VtX/GLhPCY1Nz+0HDFw1vduvF5l/vHzXn/wsfHylyt5l142j3GG2bUglo
TEpKnvHF+PlH9siEoxKgHYmtn8USY45ov5szUwKbl4yNdiaK8CFzmmLr3c+Q
vM8w5+W7LkxldNZPvNALmw4s/dbCeY9lDhExD517QF9i0JP5pA2L7jKKbMXd
UPNzb62/rBVX0T24Adxu2LAr62rL7nf4vWg2u6hfDOu3qFe2rGvG/Vqf7hmn
iUCnodEq80QTdvxwUieAIYKKjYVT/B834kb391G3BEJA67d/ENi+xZF0sVeX
sRDiwuOGC6g1eFflh2ClqANGwxwr7ZOqcZGMQ2vQ6oCjezouFChe4UUvmAP7
ZrbDYb+1jILWSpwxPybiNeM9DLDkWvaeFdjWLn5BhlMbhHvkNN55RrAiuMrF
yroVWo5MEHuvKsOXTcqz8rsE0BgWmuhtXopdG2kZfbxmqA+qtvDWeoLjrCzP
Wvg3wT+s+YTV8xCHnbVgs/vfwrlEM3wlrQhXJtSwzF40QHJYx/dsvzvYx7bj
7ybfWuCwclZnz8zFVyqWTJ4T8hokodUqpxeZWC/lNsWyoAIehORIdl35DT9+
fEZiFFoKK5mSlGz+Otw6qx/JYy7Df3kK5js=
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"x\"", TraditionalForm], 
       FormBox["\"y\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None}, 
     PlotRange -> {{-20, 20}, {-4.472135863731498, 4.472135863731498}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SqrtBox[\\(x\\)]\\)\"", 
       "\"\\!\\(\\*SqrtBox[\\(x\\)]\\)-2\"", 
       "\"\\!\\(\\*SqrtBox[\\(x - 2\\)]\\)\"", 
       "\"-\\!\\(\\*SqrtBox[\\(x\\)]\\)\"", 
       "\"\\!\\(\\*SqrtBox[\\(-x\\)]\\)\""}, "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], 
                    Thickness[0.27], 
                    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], 
                    Thickness[0.27], 
                    RGBColor[1, 0, 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.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.015`", "]"}], ",", 
                   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[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.656677055809869*^9, 3.6566771041836357`*^9}, {
  3.6566771653961368`*^9, 3.6566772251875563`*^9}, {3.6566772716372137`*^9, 
  3.656677300001836*^9}, {3.656677340914176*^9, 3.656677395727311*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Exercise 3: A variable star is one whose brightness alternately increases and \
decreases. For the most visible variable star, Delta Cephei, the time between \
periods of maximum brightness
is 5.4 days, the average brightness of the star is 4.0, and its brightness \
varies by \[PlusMinus]0.35 magnitude. Find a function that models the \
brightness of Delta Cephei as a function of time.\
\>", "Subsubsection",
 CellChangeTimes->{{3.6566777122214136`*^9, 3.656677782676443*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"B", "[", "t_", "]"}], ":=", 
  RowBox[{"4", "+", 
   RowBox[{"0.35", 
    RowBox[{"Sin", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"2", "Pi"}], "5.4"], "t"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"B", "[", "t", "]"}], ",", "4", ",", "4.35", ",", "3.65"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", " ", "Dashed"}], "]"}], ",", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", " ", "Dashed"}], "]"}], ",", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", " ", "Dashed"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\!\(\*
StyleBox[\"t\",
FontSize->18]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"B\",
FontSize->18]\)\!\(\*
StyleBox[\"(\",
FontSize->18]\)\!\(\*
StyleBox[\"t\",
FontSize->18]\)\!\(\*
StyleBox[\")\",
FontSize->18]\)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\*
StyleBox[\"Delta\",
FontSize->24]\)\!\(\*
StyleBox[\" \",
FontSize->24]\)\!\(\*
StyleBox[\"Cephei\",
FontSize->24]\)\!\(\*
StyleBox[\" \",
FontSize->24]\)\!\(\*
StyleBox[\"Brightness\",
FontSize->24]\)\>\""}]}], "]"}]}], "Code",
 CellChangeTimes->{{3.656677805501749*^9, 3.6566780242362595`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
    LineBox[CompressedData["
1:eJwVm3c8VW8YwI2S6Nx7rplVtmtcuS4R5TwhCmVklL2TvUlGIaKisiqR/KRU
iFAkJGVkVJTdpGSUnVX9Xn/1+X7uvefe8z7jfb5vh5izn5kbCxMT02dWJqb1
f3OindnortlaNvdkOJmYcMi1ntSwEj1BKCj5fEphwaH/YHKgqGgSceA0tVhk
Iw5h+kdJG0WvEheX+zg0OXDQawLb39uLiADy9rEgHhyKY1XiprdXE9Y/Aire
U3H47FTCN7W9ldC13K4oZYrD+H//XCbHWon/fF9E5B/GYXbUpGyirI0oZ1d/
sM0Shw2ec4bjOu3E3hXLCm4bHKQD1U9/P9ZFXLIR0/jlisPOvZ8XpnvfEm6c
wyS3cBxOmno5TmzvJ+byq4K4c3H4G7dT4OP5fiLuhIRDah4Op6qY375d7idq
L1/pYf8Ph3ihKzo13QPEwQddO+dv45Ay2iSdlDhEPBvkfHWvDIe8E9umpH99
JEh3639kNOHw9fXYbrrDV+I6/nUz3xgOkp6HBO5lfCW2MW/fRR/HwZ21YkGy
/SsRnBX5Zv8kDmOqMSVbd40QXNLvhH2mcZi8xivKxD1KvDhbpJm0hMOiqzZr
18tvRMJC7iN2dgpsXs5u9VYcJ6r+0hqnJSigntgfYeA0TlAYpaZ+UhTw4OVX
oKaPE5duHV/4IU2Bl/TLKV+XxwlSs7VbtywF4j3PHrZ+MUG8V+izDd1BAaah
4GF92ynissHD+KVdFFDyLE+RSp0i5n9m8u3UpIDD0i+CtXGKKGxQDfTbTYE6
Hq/8OpmfRO29uZB3WhQ4edDpmOrcT0JhummPrw7ij4XhlH3TRFrW5YAuQwpc
Ltxnesp+mrhbWdXSbESBuz4jsr/CpolJ+8jiJwcpMLAqNth+d5rYZD3LlWmM
7mdrzp6z+AyBt3Eu8hymgMlHTb7fsjNE2ldz5x+IPQoHfrrpzBCNFwZ0qs0p
kKWyNU8ndIZQL0uxMbSkwKJJGsu/wRlijnY3Tf0oBUhblQd9FmYIhT0nHcYQ
S398/XCINEvkM7GdT7OmgIUPya1m7yzx/oDy30EbCnirFO+RtZklhnX9iRO2
aL1WDfmuBM8S5VN5fRQ7ClQkJTWH3J4lbqg1cqjaU6DdhJo30jBLVNV03qhH
/JW/OfzwwCwxXrvxzD4HCnAVbpCjY3NENX1QXceRAnI+/7HkSc8RTC28G54g
1lbRHiTBHGGq9HCrohMFAhpjzk8GzhH/zf7jZ3OmwBIlvXjw3BzxjbcWP444
2ulOZ1sBul6ZSmQz4vNMb/Ci93PEsaSLhaEuFOA2GaVf+TVHWPUxXJoRX7ux
bJbIPk94dnCncLtS4I6WeIabxjxhsVIil4t4R8rOKvPD80RqcP61IcRVwwa9
Ot7zxLntOiF8bhTYQ3NYUj4zT8Q/f1ttiLgpMkhAPHeeGN+dfywSsWF7ogbl
0TyRF02JvoP4rdB1G6bX8wQpPXWtC/FRrweRv8bmieX8a19mEX+qacr5wLxA
MKbqd1DcKXCMo7+uQ3CBwN9mf5VD/PPo1MdaxgJR2tX/h0AcUsTMfN8IvR6v
Em2CeG2JVzzbbYFYKQ5xtUUct19OJzl6gSiihT5wQcxxRcv1RNYCYbZxm7M7
4kvfzc54PFggAo+6nnBFvFXtWKFV6wIx7m+8aIf4RsLJZr0vC8SPivk+M8TS
71PHVFcXiDsPwsV0EBdLFWyW4lkkZnDya0XEKiGP5Xhoi0TofysjvIifNLUb
suotEnMWFxyX0P1p83z2nrVfJCRUqTrvEbe6LFz4HLZInPLSvFCK2OTh5tLX
FxeJN4QeEY+4l2Xb6/qiRSKZu/eoOWJ7M+WZksZFYtHx3PB2xKM39bhyBxcJ
5Wryq28oPt4z1owL84vE/LPtEkWI58DPPBL7TVAZCd/cEUdcjAvxkv5NGPQI
84kiPrvj/qMDR34TVswXnsajfCDHNPSpB/wmcBM3NSXEmZ09yzLJv4mXB73E
elE+Ffj80WSr/U1kTecb8COWf0qxW+j5TdSaG55/gPKzfIt09MjUb6J3mKSz
D3H9vUMNjduXiH+6J3idUD7rrTp/LlNfIiptSSpjKP/bDcJYbpouERTW7A5P
xAM/bujGxC0R3uxC4c6oXhZlZlo0vy8RTVuDB4VQvUWFbRyXY1omdDOFWGJQ
PW5oFuAUFFgm+g9plg+jeuVy1z64ZLBMtFzRfHQB1bNiQdqbipJlosxy8NJj
VP88V5R+N7QuEyGL0w3fLSiweq5DuGNkmaAqar2gIG4J2uQxKrhCfH0Ta22J
+omzzsm/vIkrxNN2af581H/2q22VFM9fIXbWfDh05xCqD/nKA4pPV4i/D/vC
ilC/WuP6la43t0KU46Ti66i/ZXxxlg9zWCX0/Lfx6utTIPL9P5O4iFViyfyP
npQeun7b9dDUjFViU/6Wc3910e8tf//s9qtVgulqnk2+Nvo9pw2O9KmtEa6q
/26U7kHXF1U+swv/Qyh8ZPo7okyBLzxdd/fJ/yEKaOGXQ+kon9i9X5vq/SEU
rSWTWJVQ/KZvCXlG/iGesmU/JNNQ/24QKL829odQsrDPnUH938WB+eNqw18i
uVWL/FkA5dMhD+GP6kygf7VkJnsNB56X3pLR+5ggJncgrXkFB+09AQoiZkyg
cGFp7Bfaf/LkI3bbeDHByZrxpp0LONiyn7ftzWGCEm7l+ZwpHN4+K73excIM
toqlvb3DONSp/BZuaGcGhnkyi2wtDlmCCSI3HVlByyLnT18ADrsCH5eytrPB
0IYvPH1xZHj9T9M+oJ8N1PbOqoRGk8H9Qv2Wj9/YYKuBhA7fCTJcvvPyeA3z
Jtjt/+WkrS8Zxj/0SASobYI2q5lrrEfJcN1wJutD/iaQwwbMOhXJ8FdS7lT1
CXZ4Pnc95fMQCdLLixVlEtnBPX3Ce6SXBHJAH05PZ4eb555WTLwlgaWNuoZ/
KTv8q6hs39RKgtJLevPSo+ywxe2BQnglCRz/Onukm2yGM87Xvh1IJcHz3mwT
PxkO+FFd/1tRH13f2WJ+gcEBX6yj+BR0SOA+RboSCRxgq5y3rEiQgIM19mPS
UQ6oy17cq6dGAhNFD9+CcxxQ/6Ntf60MCT7Eq5zv/8UBsufibd9sJsED8s8d
jmscoCDR0qbERoLYa7e7v7FzAmVvb3MmCwmkHggKzYtxwvYhrtzQVQy8B5nu
ksw5oWOL/obEKQxW6B3NOo/R+1sHH82/xaC9NsGrrYkT1Ef0Ihu7MMjVB7Lp
G04YHpSKz2rHYK/dQ0v7cU5Yu6V61uolBmfPXh0NF94CXEdZY5VqMOD76MZa
cmoLPK5S+HnoPwzGjm+/rXJhCwyvpt7MyMOgZr7P4MnVLbAYv6IykoOBHYfR
5ZbyLXCD6fz2q1cwKFBVFvs6sgV6jnj+dk7BgH7+r9bWAxgkeT9cijqJgfLx
NddiSwz+a/tC5T+BgYreSrK2KwYRnI9Ua0Ix2Mm0+N47BoMQKU6ObYEY7A6e
8n1WiUF8MCXT7jgGWqYT6ZbPMYijSt7SO4YBofijZuI1BqceOb3f5YaB9tgI
G98kBmW7d9ZrOWGw33Yo11OcBCqF0aeeH8XAYNdA078dKK6bdob/tcLAkK9v
PH0PCbxZazt00O869Lp7Z/0REqSGbC6eMsPAXPdVJzfKg3aRnF91RhhYirXO
37mOrlf7PumgIQZWf18Kat0lga6x+8Nv6D6tHze6e7wgQVcR0aauj4GjQs3f
2lWUF5l9GbbaGDhvfixptpkMo1ofNWAvBi7fKg2+85EhMy40UxEwcM8ry6Qo
kyG7bOi0vBYGHlGltYUEGagvzgho7MHguHXxF82DZLC5GxR2eDfKB54iRXcP
MuwX2pBeqIGB70yh+WoIGXYGKB39tAsDv84CtEWQoZS7ckYSsf+9/DypS6iu
HH0cg9UxCDyb97Imlwzh3hx3OtUwCHLLnTS+T4baea5XDMTB2te5RqvJwHP0
66v/dmIQuv2aekQzGXIuFt/fhjhsLcue/I4MRWIn/ApUMQjvz4gv+EKGDgEJ
PlXEEVVpd3dNkyGXzT7/tQoGJ9Muve78Qwb8VxlvGGKtx/qrZcgbTh2MDKAi
ri/US4ncgoM1x3TVCAMDyNgnps+Ng38Y7/d7iBvidCsogjj8MmxjiUa8N1BH
f0gUB+abzzhsEDc6ag8UyuDo+nH/tBFrG+/1CVDEoYzT77Mq4ud7gGm3Kg4a
1KoHDMS6CkQa227kGa+dfHYjfiGoJf1GG4flSWN+E8R6m/dUZx/A4WUdo8QX
8cvfmkbuJjhYjmbQryDW/6bxUckKhz92PXntiN27eyYT7XCQ/fnWdxO6n/gG
35UPLqiPTvyrN0ScX8zOvtMTh9GlwLSriJ9dy+e94I/DBWeJsWnEnxJ3S4yE
4iAgOlZritbvb/B7Jc0oHPb2h+G1iDWNOYx+JOFQeIyuWIzW33p3wVG4iD4v
JbOwHq9wWa1jWZk4HHgSo9KEuJI1MHYf8hr3Fyk8zCj+PdOcF68X4fAhhFxW
jHh2+FbOXCkORfGJT11Q/ux43P/4JurjeuMXhSc1UT3cCnq51IhDReXE8br1
fLuM9Ri34uA28Fr4GsrHIu+9v/68w+G1vs9tHwKDlqODa+ZDOFgd/RnuhvL5
m14Ix/0vOAx6XvjPHeW7hFiRlPUvHDy5bRbjdVB8SDqMMrTPhApY8OfronpZ
HQJ2tE9x8G2Ia9mHQc473LYKeRB3zxM5+n4M+JPDL3OJo7mnwkAv4CDqF2Fc
ecepaG4+Fru/7xCqV9f7xQ2KyEOuPQzcb4LBJa1PLb7Ia4xTzeR1D2PAOaf/
rw15hMPd8et3UD+Q+/R5iziaO4o6lYyP2KB+0XFS8ASacxy8J//idhicuV2q
KuOL5ipuDSLHEYN/NvzecYkU2HfpWZaoBwbbDpSdGLhAAaM7wuf4PVG/2mmY
SE+nwJbWpgP83hicwGPyP+ahfZ7vPkb3x2Cu6VufZg0F+O5LjbeHY/CdVrVv
fpICp6PLjt04h4F4lI+b/Byay6h3ZrlQ/7RtlzzjvEyBkq6rJ1MuYvDaM63p
9UYu8Dv1wT0nA/Xj2/46xdu4QFPKoloA9efzYvJ73U24QH3NuDi+CuWr/xfH
HEsuYH3PzhVcjQFTw9VTPbZcMME1882zFvVZe/YG7eNcMPohpMa3EQP77FGt
7bFcwKK7da6jE/Vv3rzdfQ+5gOeJ/cPPYyj+rla25BouWIi3ttVBfbbwISlS
r4ELFn38u+79wkDQLOpJRTsXDNrv+35xEYMNqdYal0a5wJLQzbu7gQTv2XnV
Dfi54aP/MzYu1JdPriUxaiO4Icx0YdzaiQSdwS7pEae54XSk878+NxKITu1e
UD/LDTecBbXsPEnQNPyrqjKDG3QedsyHBZFgS72FRukDbuiK+WY9f4YEuafF
9uZ/44Y9McV2y/dI8Iyt+tBZMx6gu6bcKEd9eBNl7Li5HC+8Zzafu36LDBs7
NupzPuUDOvuN5cRgHLb4XHcZfs4Hqf5CiTJhaF7CGKdK2/jA42YS8eIE8vuD
jtWH+/gA1Cnsq9E46HbUyF+f44PxPsP+Q6guYzv8cJocP5wWf5qfkoMDU2d/
/6EsfuANejgo24QDu6//omguPzjNsYeffIn6FGkT91wBP+w/tHlTWwsOoodU
jLLK+SG06nmfXQcORGdK3ccOfnh8+6Oxw3scojt1/vPfsBUO1EcOPfuOw2pn
sfflgK1wZoNEZdsmCmx745StG74VCiVPmN3cjPykm7dtMXoraP3bzBTMSYHk
3igZm/NboeYd+GNk5EefDn6RuL0VKo7zfifzUWDnzJRV5dBWqLxcEHBQggLW
czcTjn3dCi/umS5+lkTz+oJFpcD4VvCc6JEIRPNm0/JTrujfW0EittLpjCwF
DrOkdOhxCUB5yNjL9fMGf25FnT59AVg59sH+lAYF0nm/BCQfEoAJE+7OdlSX
j/gz83ZbCICBlkIqD5qH/wr9/ZPnjD4vWjKXQVDggmTn4+NRArBZ7kijA5qn
H0jHfheKF4C7iVm7E/ZRoIe6k68zWQB+GLz/ehvN38K03CDlKwIQXqN+Z2g/
Be6q+iqulguApvZYOiea5zvVxO2KqwUgWGCFhRPN+7O73p9zaBCAkurqqI3I
B3Zpaf143oGYOTJ5wgTN63qkgvNjAhC9pzHnJOobk/sb32r9EoDSlmDsMPIL
smEo88yCADjIqPpKIR+xNP5gb8EqCN4sEYs1Vmj+tioR2LZNEAK9ErruIJ8p
PPKn0VZSEEbr5vsMUd/xOGrknS0nCLebXTzGEY9bj9dtVRMEnkkpiqAdBe7b
7PKw2iMIoWyp0vcQ+9iepWTqCEL0J8kaNeRT03bSrtwmgrBVq9BcB/lWuX0I
ZmYpCFw129CCUSDIoanqoq0gfJsZfrsb+dqio/Nm0nFBGJz9KSOJ+txjp7Jy
Iz9BVB/7/l1EfMKZyfZciCDcnJjQX0a85pJbwh4rCBv6emVqkR/WuU5Z6Z8V
BBfla7V8yCdj3HYzJ6QIwp+MwqfeiMH93N2mdEG4r/ZZtg4xy7GBw6zZgnDI
cw8TJ/LTpmOyf/beFASd/KfEYcRnPMILT90WhOLwoO+ZiNk9+Zb/PBSEsB1c
3jjy4TZPt/zdNYKQzeOpr4f4nFeF4ckGdD+F7xLDEBt5sy5UvxSEk07lCgWI
ST5muUvtgvBszlu1HXGXz019tW5BMNA5ffMX4ou+09Mh/YKQ4BPhT0I+b+ZH
XKv4KAj6rbM3qYi5/VN05kYFARtLU9VC3OM/PEmfFASpLD55Y8SZAQqZ/rOC
kPlJO9YGsVXgSaJ0SRDecU5rrJ9HbA1qG5v6KwjGuRss1s8jBoIELitsFIJa
m9DX6+cR2cEeml6cQqCtZ1Bsj9g25NFIEUUInHLTJw4j3hbKljLGLwQPv4Sf
00X8KdRCTWabEIR3yV5QQnwzrOCTm6QQTNr9mOZH7Bw+l1QgJwTez9kfraD7
kzyhzfiqJAR+/mMf+xB/O3FpSExNCPaRl7zKEd+O+HTGcY8QFMRW2SQi9ji5
Y8cNHSHgHCkrtUIsFxndN3xACL6fTvSQQDwZ2XFa2EQILg1/TRhH8SmOEpa3
sRQCrqJYzmLEvtFePVdtheBxk+JvT8RKMTVRfc5CcGJ3o4Ek4tmYzTL8x4VA
cp/0pn6UDw9PHXlt4ScEtrsO05IQ74xdFO8+KQT9SypPBtfPv2L3tVNihaBr
q7RUNOLquPQQk7NCYP3yyB8hxLvPKLd0pAtB2vGbfw6g/Nx71tenpVgI/tz8
5OqH8l2w/KNVSoUQvH7OwviC6mN+0ETb/IkQdMgLlRojLtzB4P/UIgT8ttI1
6/W1pfd3w++vQpDbNmEfgOpzlOn4vafjQhDdFfyx+ijKd7mBjLgZIbiusyz2
5wgFAqJrPcn/hGDW8uRSEKrv91KneWQEheFbRyxIoP5Qajz7d1JUGBwkw6S0
D6O54YTLj3IZYbjCEjtqY0YBzY59dVqqwnDG/NuGU6i/5AVzeFiaCENiSIrM
OSMKeD1Pe3ImQRjiSfyBD3QooDu1odDwgjBch0vvo7VRfvCHXqSkC0NPJcNq
/14KmgeOuOXcFAaOY/317VpoPblEyJW1wpBVue1R9i4KMDkVOo/MCkM7i1Gd
JZqL+pP5D95dFgamZn6dfgXULyrOqvkzicC3ei51K3kKuLF7bVnDRMCdiSt5
H5qr2kp3VHHLisCkrE/opBgFMv4+3qzjIAI8TUPjHjxo/WRe+Ga4iUBwklLK
cy4KxBu/6f7uJQJvyy0vClIoEJj3I+d8uAiwaWQ3P8UocEhbUPn9JREosmTk
97NRgC3hpPXxJhFo1caUvJdwCMe07qXKbgPalxv61H4056sa4F92bIOaqN2J
gr1ojrW3DFHZuQ2627x/bUZzp3mpL9GvvQ2WNU9ZfHqNA930Rre47TbwOrtf
yxvtp+PpTGuVKdtApPhvJ9sjHGyEnxsNzW2DnrrLlJOX0es+M7OVK9vAtnhM
6mcq+v767VdTmbfDx5hnf+0v4JDpHDmqTd4OqWNF0hpncXh7RzW6SG47zAn/
9ulFc7mB6p3SUKftQCGmflR5IK84dIGL0rUdtpwdjju8B80TDfKT4haiQCqM
mXvRQoYvV01bYo6IwvRDLQ2T52R4FBRWMGQjCu92aB8ffEoGZ5nntpnOolD8
81r3fDl6PcW6Y7O/KKicOyi2Mwe9bpdUMp0sCt8i3nRsCCTD45Vv/nUNoiBC
obg6i5AhpWfLQaEmUaDMhlfQt5LBpURZNrxZFPL+ckVu4CYDyTn6M71TFA5o
4g0V7Oj1Vl6zW4OikPg8SVt7ngSkK7qM84uiEHutUVO8nQRuqvkLRxXEIJ/g
m4iIIUFyCi85aocYJOt42tFOkqDk+1lqnrIYsGiOfhgJJcHiVT+bb+pikHDS
ZL+LLwnO/t39LHCfGIzyasINOxLcbe49f85eDHKyxr9uR97dKWpYWOIkBi6h
sm9ld5Fg9kRd/RtXMRiaCby3S5UEmgq3Zvm9xIDdKPmwFw15+MXAIwVhYiAX
JDPCv40EP49ikk8vigFbQQjfTSYScD08tedTmhho0dtLyH+QH2yZt2TNEgP6
lMNK/DIGMXUDSQdy0OtwdCBuFgNc4s6vd0ViYJxxhKVnBAPlSe0nPxvFwMj8
e3tzG/L9fVU9lJdiwL+a+rOwGflsruxPlVYxcJCzC7nQhHzSBBc72SUGPeFX
Bv3rkH9UDidsGhID1e5EqcvlyI+jw81EF8SgU+8zQ/86BtTJyC2JS2i9Jt6m
eFzFoO/o6ZdTq2JwoHW3SVomBuqqyRpPWMTBiPZQeeMlDJYmssUtcXFgssv7
zyYBgztH84ZqucVBRa7NsTUOgyPNBZkS/OLgFs/bD6cxqM4v5pgREYf92BXx
g5Ho9x6tnz0nLw6eslekhgKR7zQ/vz+rKA6f3ku0XkE+MqDS4n5UWRz4cuYD
HXyRX+JvBqR3iQNVhnuNA/nM2ssvjc/0xOGfoUPnoBMG91W+R1INxOHvS0j9
4YD8JH9iZ+pBcWjNepLFbI/B06j5u7bm4uAVvyPHxBqDaBW2tN9O4qD5k3ev
F/IvxXyOg/Zu4nA7+RNbuykGH8jkTS88xJH3JBmqIV8jJvhPXvYThzoV3JOG
/G76iLDqcqA4+LzuNn5siEHeS9FfDqHiUAZ72w8aIJ/Jl3WhRYnD6oDIjSv6
GDwgK4qknxIHHboM0yE95JNRyr0rceKw7RwJIyGffHZE07AlWRymLnzaU6KN
QSz5IMPlijjwZ+pF+Gmh+EeZTrVmi0Pk5601Echvv4xb3Fa6IQ66sVYtF5H/
6ry0F/p7C91fFGE/jHx5nuHyzrVIHD48uTTJjbjg5rHUV/fF4dWfm5YWyK83
RPmzXn0oDrOrEa1LyMcrxoOf/qsSB3r0lV5rxK5HToS516D1PynS3ox8nudl
FL3jqTh8qzxQRCBuYsROMJ6Jg7CmckAj8v/gmwm3rjWJg9aRZ1ImiCXJ5xyY
W8TBLr2qZUwF+X1kqoDHK3EgigptziM+M57W3dkpDjuiVj9qrJ9H9I62rb5B
+ZS2VLzEQNyk1kh9Jw4vSWubGhDHlSVVW/SJg7pR88+LiGNzBx/EDorDAdKq
sxfi0+dod0o/iMNKJL+bMeJT4TE3hj6Lw32JyIX185MYtzeZm0fF4f2vYzwq
iKPNJFJ2jokDTWn52TpHESFnXCZQfNJpf7UQRyo0R178KQ6JCl9azBCfFBAI
fjojDs88u8X8EUeweXmNz4vDsngOexbiE3O1zvxL4tByviayGXH4J5K17qo4
mi8SopjR/YV1OJoG/BWHiyYaHPsQh9aU789lloB6kWmxy4hDbm+AVxsk4N7Z
vOfr6xWcbqm2tEkCeD5I/NyP1jPo9B1FKU4JCPpIzytHHOi7ImVGkgCbZqc+
KRSPABsjkRiKBOgcksvIR+y/P5fnPo8EdJR+7qGiePqJa7OyCUnA2f+635mq
Y+BLTl9R3iYBKwFb0+bXeW10xkFMAgRuOr7KQ/nh/T7pU7WMBLQE3PuPVxND
+/9g7zc5CeANqNT6gNjzAa2LW1ECInPeGDxA+eeR/Oapj4oEqEZM3vVH+Xos
TKLympoEqFRPL9kTGLi7htxv1pAALiuu+5aA8ktLIFtsrwS0N1qpOKN8d5p1
DH93UALcpdM8fqzXx8dyPxZTCSCxckaK70fcvuHYDnMJ2BNU9d71AAb2hXcs
kqwl4JeulclGIwysraeV9xyTAHGdgp4KVL9H9bXlPD0lYDg8Il8N1fcRlXSx
LB8JICs/uPTcHPVPkjo+EyQBiYf+1C1aYXC4MWaq4BRaj7671a2oXxjJke9s
uSYB52Oe/BRG/edoi98d2RwJ6B59kymJ+pO7++s7enkSoGUZVaiC+tep/EtF
pwol4EGU+2efUFRPgjz35sslwL7jALNuDAbCnAIlQ68kYGLXLd/wyxjIFp0o
We6UAA3BZCprBtoP9AdK+N5KgIgC/iYjCwOTuOxSkz4J8BgRb3+L+nP8qkhZ
04gEKBSUh929jcHkhHjF/T8ScCc/5kkL6u/LSXEVrUySsEHwsXLnMwzYqCMV
31glId75xsZBtB+Iut6qFOWQhH1qtpkcr9B+MCTzKJ1PEljMYvc19GJQ265Q
E7lDEt5hkjmRaP+5ULyzwchJEpIFLxaMK5BA2pHqVOwqCQkfHiYK0klQxyXI
QvKQBLNvHO6maD+cDvuj0+UrCYLu4t3daP80125qNo2UhJ99A3myxiQQ7jXt
ssyShCej9vs4gkhwn8nng2OHJGz0dsyWrCdB2+H/1oJ3SUFkd9zPPFcyNHT4
nVdglYaXxn5xchY4qPAAZxabNAikHa8atsLhjjWezMwhDYcP2qakWuOQ+v1B
4ntcGh4F5LL8csDBnnk29tQ2abB9tNKd7YnDmkrwiZ5d0sD7JOvHfzE47Loe
7h7pLw0aqgnvpe7gcP/L/tFvQdLQjNueu3oXB1FZAVfTMGlwInvkchTjwF5V
7SQdLQ0nWK49HinDoa9rxfb1OWmotGAuD3uCQyhr1GHJ29JA+nIkFu/Eodzz
NLQPSwMPr71d5zT6/c6OLdKfpWEhRDbi7SwOVUcJk9Mj0jCXk7vydh6H6v1/
HHZOSMO7iK3srWjebJA+EZO3JA2BxJG4s0wU6PjiXxfMLQOVW0KvHSKjeXXA
WK+LTwaStCOiedE8+/qNYqesoAwoSSya9aF5t6dhcviDqAxIDKWVm/Ih38v1
+LNfUQaCCs6nc4lQYMzacbfIARm4+IXpaLMsBTzNiKYwIxkQffNC2wDN25MH
thm9NZaBlfNQ3YLm8V/qQzaJljLwe+CO6uMdyNf5jpyccZGBr2O73ziqUiCc
pMZqdEwGrE2Vz9TvpMDyRr5zhZ4ycKOIuCagjnx9vvuaTYAMBO/Y1l2vQQHW
buOaF9EyUKOmNN9NoPm8TVFbNFYG3kg8kMSQP7A1Ym0RZ2RgKY6cuhf5BUfZ
q/4d59H1G6X/ZetSAE/VX756VQacbbte8x1A/mFIqPtWyMBN9aQsUVMK/Hzm
9SflkQzYnhJsWkVcr36lsbRGBo6IOV96i3zHUXrGaKZBBj4mb2QNQn6Uz/yf
U3CHDMhecFmKRv4UGN4lnfFaBkKxzZ92Ir/S+bU6UdktA2/9Gg+PIx4ZMg/9
3S8D5VE73+sgP5N5zHYu4psMUA1aNj+zRb6oyDDJ/iEDUTYGPBbI51puOfDW
TsqAtPXU1RHEnmmPb/yZlYGpSTXyIvI/DY5R122LMrD5u8VqGPJFztMUOWJZ
BuQLT9ssIL7v61lx6p8MxD5OD/jiSIHI0cwTN1moYD7qKWmGfPOg7XOtxo1U
uJCusO8p4p8HhFtZt1DB7txi25n185GG/SmSZCo8aHSnfUWcqhZyeB8XFU64
Xl7SRL6rJNU5nLCVCobfLzd9RMx0fSX/thAVblodeC6HfPkNl4xHyzYqsB2J
lg5AnJ90mPZDjAoTnfunyhEHMp2a3SxFhdHvnXzTiHXC7j+So1Ihik8vn4p8
nednX6ShPBXebp1LsUU84rpR21uRChtXZIfOIa4cpG+6QKeCD8+hpCrECWb2
7cUqVCjkfpsxhNiyNflSpxoVHBbVmP8iloFHlr80qLBGprwSdEfrXfVVCNei
AjvH31llxC00/LPSXip4j5aE6yG+WrC70FSXCtGrX2wsEHsKHfcK1KdC11+P
6w6INS5nKKUZUOHd6jYNt/XnNzY3Ljw8SIWjR2dV1s9LBmN+1vSYUKGi7+N5
Z8T3FwVPLRymwnDG3F5rxJE++vv4rKigsemA+UHERiNBHGrWVDD6w9GkiVjE
Jq/Lyo4KovlBl6TWny95054e7kiF5PD2Wg7EdfuXj151oYKaja/eBLq/lHqp
7TXuVIg9+UyxGbHDTrORgeNU2O64JzQXsVJxdNGqN4r3Vw+RAMRMkvd8hf2p
YKU8IEkgfnOtl7EniArSrTsvsCPOp2xYtgulQlYgw6pjPT7/bONuRFIh7IYC
9wHEecmCP1hPUYHFLf3WMor/Gm/fIY84KhwXyOooQFylcFiQnkwFy+33v46j
/OF6jJ/KuIDW//TlnvX88tPpHF2+SIXq8SeO6+chVOsDZY1ZVBiXPWa6E+Vj
/Cgbv0w2FdyE3KrXnzf67N8UeS6XCr6auc81EV9LJPab36LCS/O8l/Io37dU
qn4cLadCLkti4ytUTx4wp2tQRYWxX75h0ohfvHpwt6SaCkshXp9O2lAg+ot8
aFgDFUJ9t/bzoXqcJotjmzupEFy4Wo6hejbK/hjo84YKs6plFlqWFCiSzul7
00MFg7TI58ctKOC8Z2vBtUEqqMccwcoOo/7pSdJU+IHyL6momtkErffiq7yL
k1TYkMvKs9mYAhdOJ7Et/KLCR6EEi/XzWr0rG94+XaSCPV9SDpMRBR6/WPEw
3iALuodPlJfoU+C66PfMwO2yYPv07iNhLZSv9wrW3ovLAmVzfnTPbgpYqDk7
a0rLQhh7UVCiJgVIh4ZpG2iywEzds/YB9c9TJ7ubMjRkwe/qjIAFgwKu7+tn
H1vIgl2hq5WzDOqHn9syvh6RhbOSsqHjUhR4MvFOnWQrC/ezAkp9JVG8mCej
XZxlwWtj/RkvMdQP5bdykvxkoSYrylRNiAKCp/0lXM7KgqWkMUWYhPJHXswc
eyIL9lqmwtozOETuVPitVicLimXle4/8woG6V+2a8zNZkO99peE1hUO05cFP
j5plIanLvDHxBw4Kp094O/fIQkutw6fszzicff8m/tGULIy8FNXf+QYHrdOx
lU6icjDbw6vqVoLD793XnSIl5EDhDfWW4n0cHixVYlnSciDy4f7XhSIcJPx/
uLUryEH3Js4fUbfQfuxgwqe2Sw7aflZ/Dr6OQ/fubWFbzOTghHzWxo3JOHgs
Vas/ipODDY0iCl9dcLjsN/Nky3c5mIltSTHmwaGXuM7uNS4HxfcvqV6m4CCM
61u0TqH3C3++0kPC4faD6z/PzMtBeatC/ZHNONTO6Iv9Y5aHQ4V3nOvXyPAt
KDdhRlgevg/1vvzymgwa4Yam783kQeobXWLwBBli9i/mqFjKw0bMxzg8mAxN
W2+OXz4qD/euh6fx+5HBuHoxzthRHjb8Tau0RfOO68rNqhYfefi5Z+0mqzEZ
UiKXhJ6clQfNqLm1d5Jk+HLq1rcbdfLgfUvpuEA3CUJf5/g3PZOHnqNln0I6
ScAhmrky1iQPdZKZFu9bSaBcn0BSfiUPt+1MQv5rIEHcn2M7m3rlYebMyC7/
EhJIRsgljE3LQ1SbPvfnZBK4B5VK0SUU4Pnn0+UJ+iRYabxdaiGtAEq8qoUx
OiRI4crbFSGrALZt745FEySoKrt48PkOBThpcTT5ghoJNk0HhFjsVoAcPs+6
ORkS3PFWeXHCQgHuiIkqTWwmwYRbtWtjogKkx9buG3qLwZY27VS5cwrAVaZ1
x7kLAwXF9urLKQpQKyZxawbNp96LH0guGQrQh28skH2B5t2EDdWs/ylApbMp
lfUx4tvG2L46Bei623P82A10vS39asXPFKB1jTMqCs3LCv7OzrwvFID7Y+bs
9avoeuohj0ZfKUCv1WP6UhoGUy3XnBL6FUDqZBRDLAmDnz9GK5vnFaCtoddF
LwRD9ef3aceSApD+Hs/8jeZ7xfIljiurCpCY5NdZjuZ/3whORw8WGjwKPxyo
740+z0Hn2IzT4EqA4YlxF/R5vxqVAG4ahKdZtUw6oc936zj089Hgsl2bw7ID
+ny2ZUWRCA0iJVwS6LYY/JKPtDeQp8HQ8FL0NgsM8Isbk8oV0furJj4EIX9R
mk95KKhMAwabaEM38hv/2pvsE+o08Mkp2f7wEAYXReUZh3fTIFHe7K7yQQwe
xFfYPSFooH2htbPWEINpo+byc3o0OPBlbXUa+RReZjI8d4AGrgsV5Gx9dH3e
gU22B9H3Tat3GyP/8h+etFUwp4Hsza6ofh30eR+uTR1ONMA8aKPr/5/uYPrD
d9WVBuMKblejke91qjS8l/WgAclwb92VPRjcX/UpTPClwb8r3O4/kC8KfdQl
VQbQwMqk6+d2xMmNQqFfg9Hvs62Zc9BA/pjUug9O0oBqrxu5hny01zuv2Dea
BlKzBRuOItYzCePNOU2DALbHXPXrzw8wDkW9ikfXnzp/RxGxJL/U6HIiDXIt
uVpuI/9NW1k1op6jwWFtviA5xCwf3lZYptBAiVnvXhXy54BnRcJnLtEgTV4x
0Ajxp4JT8Q/TadB7XaN1Avm38Vmryc9ZNAjzrSpLR1znpWiOZ9PgxtwrBX3E
NOONtVq56HqV8ZqsiK8rD0n43ETs2/qhBfk/J9/Dc9kFNLjP7sy//jxGxHLS
XOttGuDZC6Pr5wc/hhxtlu7S4Jsbh+FhxEca1J5Ll9CA8+1GfQJx838keYsy
Glj6KQysn0/sTBy9HFdBg7tzNzes8y3P2pWyRzSI1jj+cv18g+dQmvOnGhq8
1XXdvn7+EUf3bCPV0SBrlzl5/Xxklmev8p5nNIh3789YPz9xXOK/5tVEA6e9
QeX1iLsGfzJfa6ZB7fFTruvnL1r1L463tNGA557WvfXzmfv5198sdtDA/1/b
mQTEQglBu6Te0MD3stjcIOLk4wY3D/fQoKpJZFYDreeykdjm2F50fzsiTv+H
2ENpyf/BAA3m776+wYvioff7FmCfaaARuSOObz2eA5F3NEdooPupWffWejzr
DuOe32mQfjIiZQ+KP8sZ5k8vp2gQKva9LHkXip9Hn/7CNA0aNyskEih/PhmW
lkrM04A8nzf4B3Edl13MqRUaXD3Z9jtzN4rXIuN7yR8aPK/ZWBOA8vN6P4fx
MJMiJJlFT1ug/I3Ie7xNY5MiXDB9XawBKD5xqQkeHIrww4CmqLkXxeeY+89M
TBEsejt592mjeCjy1M1xKwKHQvyWEF0UD8qElDi/IvANCPBk70PxWHh2wURQ
EVyZloLaUD3NPvGzKxZVBCN2usK+AxiUHHi15k5TBINZro13Uf3Kf3jgc0ZJ
EVKtjDZxm2BwJzDzw38MRbhfGPYlHtV7frZTw6ddiqDLeQqPM8cgY+p3nLWe
IjCPsNaPWWPAFTs8H35AEc7O6f7JQv0khe+5W5aRIsR0ExPG9hicJVL0e8wU
waO+oL4f9aPIS5KchxwUQZ23rsD8OIqXFEekt7MiOGrI1u73Wj+f+jWZ7KYI
W1Snzfb5oH7wtaaz2UsRwjoNR6wCMHBRNb28N1wRgo5o9n0+gYFBf5SA6iVF
uDL7pCb2PMpfH5fkw+mKsDSSGbGagoEuy4HVgCxFiNi0TzfyEsoveZ7hkhxF
eBe3uScjEwN61N086l1FOP969bfMTQy2ivXKCD9H69nUdbnhEQbfPJR2si4o
gpyY2kLMOOqXlNv6bkuK8ODZi53KPzFYqhE52ryqCFM59yInZzDYjHFGnmPZ
AcK3sgfDl9F+UDb6jBvfAfwlSga/2EkQtHztoKT8DoiWVSnaJ0sCpuSNbvuc
dsAHLPkS1Y8EgvcG0hI7dsDBgYmNC5xkCOzO/VL6egeMVxTda8fJ0LrqTO/r
3gFU5uTw27xkCDea6KQO7IB3NDE99+1k6J1a3dz2bQdYsZ/4ysYgg8EVErAx
KUFsLk/uC2sysA/uqNovoAQwlyf2/B4Z4hwD8zsMlaDo0qOcvzI4zP8VvhZ3
UAkslcb1n8vh4J7TfGmXsRLqm0X7E2k4GAwIn75lpgTMmWtiGAMHLvNmh6ij
SkApfM1M1sIhT19YhHZMCQK/Fk9/PozDU8WXWedjlcAo/PzBE9E4KHb4p2rH
K8GHwJBB7tPo/V5CiUtnlOBI28jx+3E4xN/xD3VNUoL/jHc59J7FwUhcyGL3
RSXQ5K25wJ2GwwCvP9dkjhLIVrVKC99G89uawAXDaiUYepN7T7YDh+k5w6Tl
GiX4HDwX5N6Fw9h41JnbtUqwWUtcMg/NfwN9n6NYG5RgtlxQkOM9DnUVRb5P
XipBOiMw4NEH9P3eu0zke5TALTkq1x/Nm1EuXkb975RAVCyRNRzNo6HWOfsT
e5VAJMuw8+QcDsf2M+/9OqAEe74bhIb/Rusj2UrP/qwETsOCu/f9wwEfOsLN
+UsJnv59TZNG8+3m7mRy9bQSyGlrBk6TKcDSVst5bBbdv8G/21UUCsw9Et3w
fEEJ3q6dbd/JS4H3aWPzEWtKkKDVQGwURvO8Yfj78c10COelq7yjUiBD++7b
K5x0yHB4H2cjh/xt11CnHkaHl0E/HYblKRAjA835OB3sNp0u7FZEvsHK/tia
nw5MvWqvk1SQLz3JutomSYeqo07f+QnkrwH+FTbSdIjT/mFOAPIf6oGuSRk6
FIxwXXPei/wlY2UDWZ4OXgvq16/rUEDO387/MJ0OpFlrgQ/IN9qkd54bUabD
/hHB4a/7ke8OkwpDVOggyP7cZvQABe4aNAxmqdEhcSwictCQAvJSEvpDe+gQ
cz9gJg35TfvgqpMPQYcLNUv0MOQ/3pd7Iv8CHWKDNHgsTZH//jtTLqpLB1u7
4+VsyJcUBsZE3AzoMB/Fxs5AftV+8Zn6oiEdOCZS2OcQe+tfO5x4kA7xx/Zl
lCAfK64wTCoyoYMrR8qBrevPz6eWzE9Z0kEsnn24Evlc575EcswROqin8fw1
Rb7nu+Ygh1vT4dP34Ks/EJcepzgq29FhcdJJjdOeAiai4xHP7elwf4vCzoz1
50/eN2aYO9JhzfbFbUHkk0q6wa9CXejgdjdhiB/55usVo2+b3OjgK+h2PRWx
f5kU81V3Oozci2lhQb5atq1355PjdNhtGOUwiNjsXampkRcdzkZfbAbkt7Pn
znoPe9PBRwYybyJWXt6V/8+PDhpyUc4WyJfflnI9vRhAh6SZCrs7iAPdJ3rF
gujAQvlQs4iYS6RptjyYDnW88+GA/Pth93VMN5QOn8eYs84gNk8Oob4Lo8Or
t2I8LxHPwyEd9xN0oERH/WJGPp/+W9r+dwQddFcOUnchVin5F342kg7JdYNP
vRD3uPalCUTT4d+96NKriIOFykruxqD1I+euNa6fx7xNatU8TYdztx4UfEdc
cdZ5pD2Wjjx29+1N7uj7Cc1/dvF0eBvfyyqBeH6BW/DXGTq8jpCu2YU4/f6k
yqlEOkz8GW41RKzq8sKYkkSHXrZG5aOIhQu+aTQl04GIVjm5fl7CMrpJOuw8
HTwm9xiun6eMSclS5FLo4O7Vlb/+/Emnu8HaUCodHoX8Or3+9zAVt72+p16i
g/y36rH1v7e5Nnb+rXYaHUJ+O/SuP/9ySrbk6UI6Hfx0qIdkELt7dt25k4nq
qdH34Pp5itG96TSbK3SobS54t35/ypOUGNI1lF8bTL/XI95KY3g+y6bDxRhy
3GXE/3zMLYJz6PDtyqUih/XnU0pCQOYGWn+WXBsZxO2/MuUH8uhQ2IBf+4Hi
cSWgnxkK6EB9wdpghzi6fGVy9haqp4TCIjJi1zmhvlu3UX6enZeoXT9fC7Ev
4bxHh5/Mz7o2IOarirlad5+O8pRzw3r+rC3mxQeU0GHDjWudaohbw79a95bR
weTqRpoFyr8H1Rv0kh+i9be3ahpE+Zq5IkXfU4nuX6lvyRaxc6THpv8e00Hz
7a69xijfV2KmHvrW06FJuS95DtXLpwbSDbFndBj7dlzPGPFLZqXknkY6CKxM
P7iF6i0tLtBR4yUdaDmHcrStUT0n/t7C1oHW33hAdA+qV66WrUuPO1F+VPDf
9EX1vMSu8dXrNR0ifu/9fs2CAk3JkdVvuulAb7d/+xX1A7sUZvecAfR7a9Xi
1FD/0O0SNzUZQuvb2HaJQP1FDtfdzfoB1eOIbaz2IQosXkrgOv6ZDp6dGwV2
GaH+mcFZrzKG4ncj9MIP1M8arvNubV+gQyPbCxsbLQocyhkWc/6N+uXHGH/Z
PRQYzLklv7REh7xPbAfnNNH1clUJyTU6GLaz+0bsogDtpoV7JIvy+nMJLy1R
v712K6NCgawMyj8u1RjKov5baFfXiCuD3yMB6z4ZClQWSrUc4VKGroJNHE7S
qF/crhyM51WGP+rCpe4SFNh09x3LsJAy2K9p5uiIoPoq4TW9QFWGRzIv7+/H
Ub6XDltLyClDCG/qyytov0ktveVaLa8MvBy1eqNbUP99oBo+qqgMT2gnLwVt
psDncosbe1SVQdWqacGNBd3fo4ypqb3K8OYer8FttL9RG3iTD9kow1DFneWW
bhx2C7hdGbJVBg/m1jO1aD81Dawo9LRXBrtIV5ditN9GSB5+nuCkDAEBnIqJ
r3BoP3txre6YMhAu0/VCz3EIMOX02xGsDBOs28c6y3Co+cJkjl9QhiMCfIGp
F3A4uHFS5G2dMtA8fh0RBbSfD448b5VjwFarL4vPJckwGy3xzFaBAV713zy+
onlnXsy57heNAR9CWts2CpFh6djHx7x0BgRYet04TCED03x/sZMaA/wX7pnx
/iUBvqUra1mHAWZTcTNafSRQ2l3tJWvHgPlFO/xqKgmUP/72qLVnQJOfmpbq
ORKoxO50N3ZkQKbJ00PvE0ig3vLQMcSFgeZ+NzOZaBKAeYnFs+MMgLHsCDYf
Eph4/0ccDWXArr1GrS8MSeB3/QJ3UioD5DqrPe5gJGhnlvxlcIkBX/cIbErd
TAK5YzVtW9IYUBG21h+1kQQj9O+nL2YyoLRO0Sn4z/rzDDCdlcOAS7MvWl5O
YaA9O9deeI8BUhm3JcivMbhhlXzHo5gB7+1JlafaMVirFY2XK2WAvOWuiNUW
DB4lHtQsKWfAkc9pA1sa0TwqcruospqBvPTDmbwKDPj2Wyc0NTOA363kSlY2
BkHF004JrQxwctu+mH8Fg9dciXv2v2LAYr2s4+MMDM4NP5x/1cmAv+RbycwX
MWAKwly63zHgFV02nnQGA7u+/7QyehngOBZ52SsWg5o9GoJW/QyIfWHA0b3+
dyzsx94MDDEgfuiS07MIDMZzGogvXxlwseBDtzCa7/VZrYQKRhlw00DXvNMX
gwKPqUW37wy4vCZxMdkb+T9DsOTHOANsc1gdJTww6GkJEp6ZYcB0L9j3OqB5
XpFjqXyOAYf/3a/+aId8JC2vO3iBAcnxtvxzNhgcsO9IXlpiQETqmWWNIxgU
Pndxr1lB6xt/7oKfJQYbZFf2Rq4xgBEypV2KfMcp5aKI1l8G/I77I7pihvxu
Tnr53z8GvFD4qGiC/Oh/bP/HIA==
     "]]}, 
   {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
    Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbYdAxgIODxMXCf2Vv6kPYxfHZid8Fr+
JpzP+XP2yRy9V3B+4aH6njdFn+F8vSWTL25Z9xPOf+qXIXPfgsEBxp8u1Sa7
MIEZzrcs2rGe+QwbnH/4+uyAfHUuON+w55+dhCcvnO/+zOq+QbgAnP9cd5vr
lzeCcH71n07jPVXCcD674IvMEC1ROJ/1LKs7914xOP/3ubU5kwol4Pyn4esk
5eSk4HzHjrzcE2ul4fyp/3ZwOsfLwvnRMod97nyWg/N5Dmi/UQpVgPNTTRd9
jdRRhPPL6yqCFL4i+K2vJl8+d04JzvfR4l/BM0sZzu9da3bAJ1EFzj8VvPhP
iaUqnH/gbH6PDrManL8pq9HhzF0EX87b3iJvizqc7/w/pnl+jQacn3Jt/6cd
oZpwvl1j09ZEBS04f1L+x908zxH8Rw1Ln83fpw3nv07dmXKoXQfO/5ArxH42
URfOX+d5+k+arh6c/yzDwIz5K4IvtfrW5Paz+nB+c0LRorPeBnD+9z+Svd47
EXyN3dNnnlIxhPNNk4/6C3Yi+AfmiEqc+YrgaxwQ7fKLNoLzfVnfyF7ah+B/
uP3k8EktYzg/f06vcGc/gi/mEdV25DiCv++z2s///xF8ANrvyJc=
     "]]}, 
   {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
    Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbZdGhgIOjxMXCf2Vv6kPYxfHZid8Fr+
JpzP+XP2yRy9V3B+4aH6njdFn+F8vSWTL25Z9xPOf+qXIXPfgsEBxp8u1Sa7
MIEZzrcs2rGe+QwbnH/4+uyAfHUuON+w55+dhCcvnO/+zOq+QbgAnP9cd5vr
lzeCcH71n07jPVXCcD674IvMEC1ROJ/1LKs7914xOP/3ubU5kwol4Pyn4esk
5eSk4HzHjrzcE2ul4fyp/3ZwOsfLwvnRMod97nyWg/N5Dmi/UQpVgPNTTRd9
jdRRhPPL6yqCFL4i+K2vJl8+d04JzvfR4l/BM0sZzu9da3bAJ1EFzj8VvPhP
iaUqnH/gbH6PDrManL8pq9HhzF0EX87b3iJvizqc7/w/pnl+jQacn3Jt/6cd
oZpwvl1j09ZEBS04f1L+x908zxH8Rw1Ln83fpw3nv07dmXKoXQfO/5ArxH42
URfOX+d5+k+arh6c/yzDwIz5K4IvtfrW5Paz+nB+c0LRorPeBnD+9z+Svd47
EXyN3dNnnlIxhPNNk4/6C3Yi+AfmiEqc+YrgaxwQ7fKLNoLzfVnfyF7ah+B/
uP3k8EktYzg/f06vcGc/gi/mEdV25DiCv++z2s///xF8AAVFRSo=
     "]]}, 
   {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
    Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbadMRjwOjxMXCf2Vv6kPYxfHZid8Fr+
JpzP+XP2yRy9V3B+4aH6njdFn+F8vSWTL25Z9xPOf+qXIXPfgsEBxp8u1Sa7
MIEZzrcs2rGe+QwbnH/4+uyAfHUuON+w55+dhCcvnO/+zOq+QbgAnP9cd5vr
lzeCcH71n07jPVXCcD674IvMEC1ROJ/1LKs7914xOP/3ubU5kwol4Pyn4esk
5eSk4HzHjrzcE2ul4fyp/3ZwOsfLwvnRMod97nyWg/N5Dmi/UQpVgPNTTRd9
jdRRhPPL6yqCFL4i+K2vJl8+d04JzvfR4l/BM0sZzu9da3bAJ1EFzj8VvPhP
iaUqnH/gbH6PDrManL8pq9HhzF0EX87b3iJvizqc7/w/pnl+jQacn3Jt/6cd
oZpwvl1j09ZEBS04f1L+x908zxH8Rw1Ln83fpw3nv07dmXKoXQfO/5ArxH42
URfOX+d5+k+arh6c/yzDwIz5K4IvtfrW5Paz+nB+c0LRorPeBnD+9z+Svd47
EXyN3dNnnlIxhPNNk4/6C3Yi+AfmiEqc+YrgaxwQ7fKLNoLzfVnfyF7ah+B/
uP3k8EktYzg/f06vcGc/gi/mEdV25DiCv++z2s///xF8AEyPBjI=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSize->18]\\)\"", 
     TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"B\\\",\\nFontSize->18]\\)\\!\\(\\*\\nStyleBox[\
\\\"(\\\",\\nFontSize->18]\\)\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSize->18]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSize->18]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 3.62},
  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},
  PlotLabel->FormBox[
   "\"\\!\\(\\*\\nStyleBox[\\\"Delta\\\",\\nFontSize->24]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSize->24]\\)\\!\\(\\*\\nStyleBox[\\\"Cephei\\\",\\nFontSize->24]\\\
)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSize->24]\\)\\!\\(\\*\\nStyleBox[\\\"Brightness\\\",\\nFontSize->\
24]\\)\"", TraditionalForm],
  PlotRange->{{0, 20}, {3.65, 4.35}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.656677892852745*^9, {3.6566779473268604`*^9, 3.6566779742103987`*^9}, {
   3.656678024714287*^9, 3.656678078699375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Exercise 4: The curves with equations\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    FractionBox[
     RowBox[{"|", "x", "|"}], 
     SqrtBox[
      RowBox[{"c", "-", 
       SuperscriptBox["x", "2"]}]]]}], TraditionalForm]]],
 "\nare called bullet-nose curves. \n(a) Graph some of these curves to see \
why. \n(b) Use the Manipulate function to study what happens with the \
function as c increases."
}], "Subsubsection",
 CellChangeTimes->{{3.6566785542295732`*^9, 3.656678586828438*^9}, {
  3.6566787075583434`*^9, 3.6566787479796553`*^9}, {3.6566829101577187`*^9, 
  3.6566829205633135`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "c_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{"Abs", "[", "x", "]"}], 
   SqrtBox[
    RowBox[{"c", "-", 
     SuperscriptBox["x", "2"]}]]]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "c"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "1", ",", "100", ",", "0.5"}], "}"}]}], "]"}]}], "Code",
 CellChangeTimes->{{3.656678309451573*^9, 3.656678505263773*^9}, {
  3.6566785978630695`*^9, 3.6566786952376385`*^9}, {3.6567352952378097`*^9, 
  3.6567353075778265`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 1., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 1, 100, 0.5}}, Typeset`size$$ = {
    224., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$3525$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$3525$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`f[$CellContext`x, $CellContext`c$$], {$CellContext`x, -2,
          2}, AspectRatio -> Automatic, PlotRange -> {0, 4}], 
      "Specifications" :> {{$CellContext`c$$, 1, 100, 0.5}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{275., {259., 266.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6566784105023527`*^9, 3.6566785058258047`*^9}, {
   3.656678624926617*^9, 3.656678695593659*^9}, 3.656678780847535*^9, {
   3.6567352861187963`*^9, 3.6567353084078283`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Derivatives", "Section",
 CellChangeTimes->{{3.6566793476699553`*^9, 3.6566793503071065`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Exercise 5 : Let us consider the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["x", "4"]}], "+", 
     RowBox[{"2", "x"}]}]}], TraditionalForm]]],
 ". Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "0"], "=", "1.", " "}], TraditionalForm]]],
 "Using the Manipulate function show that the secant line\nthrough the points \
",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["x", "0"], ",", " ", 
     RowBox[{"f", "(", 
      SubscriptBox["x", "0"], ")"}]}]}], TraditionalForm]]],
 "), (",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["x", "0"], "+", "\[CapitalDelta]x"}], ",", " ", 
     RowBox[{"f", "(", 
      RowBox[{
       SubscriptBox["x", "0"], "+", "\[CapitalDelta]x"}], ")"}]}]}], 
   TraditionalForm]]],
 ")) tends to the line, tangent to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "x"}], TraditionalForm]]],
 ") at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["x", "0"], ",", " ", 
     RowBox[{"f", "(", 
      SubscriptBox["x", "0"], ")"}]}]}], TraditionalForm]]],
 ") as \[CapitalDelta]x\[RightArrow]0."
}], "Subsubsection",
 CellChangeTimes->{{3.656682335529852*^9, 3.6566825495430927`*^9}, {
  3.6566825999499755`*^9, 3.6566826029121447`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"x", "^", "4"}]}], "+", 
   RowBox[{"2", "x"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x0", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"f", "'"}], "[", "x0", "]"}], "x"}], "+", 
        RowBox[{"f", "[", "x0", "]"}], "-", 
        RowBox[{
         RowBox[{"f", "'"}], "[", "x0", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"x0", "+", "\[CapitalDelta]x"}], "]"}], "-", 
           RowBox[{"f", "[", "x0", "]"}]}], "\[CapitalDelta]x"], 
         RowBox[{"(", 
          RowBox[{"x", "-", "x0"}], ")"}]}], "+", 
        RowBox[{"f", "[", "x0", "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "10"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<f(x)\>\"", ",", "\"\<Tangent\>\"", ",", "\"\<Secant\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", " ", "Automatic", ",", 
        " ", "Automatic"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[CapitalDelta]x", ",", "1", ",", "0.0001"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.656680434485118*^9, 3.656680436599239*^9}, {
  3.6566807436057987`*^9, 3.6566811139399805`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[CapitalDelta]x$$ = 1, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[CapitalDelta]x$$], 1, 0.0001}}, Typeset`size$$ = {
    453., {115., 118.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[CapitalDelta]x$729$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[CapitalDelta]x$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[CapitalDelta]x$$, \
$CellContext`\[CapitalDelta]x$729$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         $CellContext`f[$CellContext`x], 
         Derivative[
           1][$CellContext`f][$CellContext`x0] $CellContext`x + \
$CellContext`f[$CellContext`x0] - Derivative[
         1][$CellContext`f][$CellContext`x0], \
(($CellContext`f[$CellContext`x0 + $CellContext`\[CapitalDelta]x$$] - \
$CellContext`f[$CellContext`x0])/$CellContext`\[CapitalDelta]x$$) \
($CellContext`x - $CellContext`x0) + $CellContext`f[$CellContext`x0]}, \
{$CellContext`x, -1, 2}, PlotRange -> {-15, 10}, 
        PlotLegends -> {"f(x)", "Tangent", "Secant"}, PlotStyle -> {
          Thickness[0.01], Automatic, Automatic}], 
      "Specifications" :> {{$CellContext`\[CapitalDelta]x$$, 1, 0.0001}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{504., {160., 167.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.65668081670498*^9, 3.65668092616024*^9, 3.656680957988061*^9, {
   3.656680997771336*^9, 3.656681052144446*^9}, {3.6566810931197896`*^9, 
   3.6566811147600274`*^9}, 3.6566812428973565`*^9, 3.657304894596667*^9, 
   3.658033719576187*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Exercise 6 : Let us consider the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], ":=", 
    RowBox[{"sin", " ", "x"}]}], TraditionalForm]]],
 ". Using the Manipulate function show that the difference quotient\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "(", "x", ")"}], ":=", 
    FractionBox[
     RowBox[{
      RowBox[{"f", "(", 
       RowBox[{"x", "+", "\[CapitalDelta]x"}], ")"}], "-", 
      RowBox[{"f", "(", "x", ")"}]}], "\[CapitalDelta]x"], " "}], 
   TraditionalForm]]],
 "tends to ",
 Cell[BoxData[
  FormBox[
   FractionBox["df", "dx"], TraditionalForm]]],
 "as \[CapitalDelta]x\[RightArrow]0. \nPlot f(x) and g(x) in one coordinate \
system alongside with the absolute error ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{
     RowBox[{"f", 
      RowBox[{"(", "x", ")"}]}], "-", 
     RowBox[{"g", "(", "x"}]}]}], TraditionalForm]]],
 ")|."
}], "Subsubsection",
 CellChangeTimes->{{3.6566825637959075`*^9, 3.65668275212768*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"Sin", "[", "x", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fDiffQuot", "[", 
   RowBox[{"x_", ",", "\[CapitalDelta]x_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", "+", "\[CapitalDelta]x"}], "]"}], "-", 
    RowBox[{"f", "[", "x", "]"}]}], 
   "\[CapitalDelta]x"]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"GraphicsRow", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"fDiffQuot", "[", 
           RowBox[{"x", ",", "\[CapitalDelta]x"}], "]"}], ",", 
          RowBox[{
           RowBox[{"f", "'"}], "[", "x", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{
           RowBox[{"-", "2"}], "Pi"}], ",", 
          RowBox[{"2", "Pi"}]}], "}"}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*FractionBox[\(f \((x + \[CapitalDelta]x)\) - f \
\((x)\)\), \(\[CapitalDelta]x\)]\)\>\"", ",", "\"\<f'(x)\>\""}], "}"}]}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"fDiffQuot", "[", 
            RowBox[{"x", ",", "\[CapitalDelta]x"}], "]"}], "-", 
           RowBox[{
            RowBox[{"f", "'"}], "[", "x", "]"}]}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{
           RowBox[{"-", "2"}], "Pi"}], ",", 
          RowBox[{"2", "Pi"}]}], "}"}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", "\"\<AbsoluteError\>\""}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.4"}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[CapitalDelta]x", ",", "1", ",", "0.0001"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.656679390565409*^9, 3.656679526510185*^9}, {
  3.656680487269137*^9, 3.6566806228878937`*^9}, {3.6566806536296525`*^9, 
  3.6566806735957947`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[CapitalDelta]x$$ = 1, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[CapitalDelta]x$$], 1, 0.0001}}, Typeset`size$$ = {
    360., {75., 78.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[CapitalDelta]x$2188$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[CapitalDelta]x$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[CapitalDelta]x$$, \
$CellContext`\[CapitalDelta]x$2188$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> GraphicsRow[{
         Plot[{
           $CellContext`fDiffQuot[$CellContext`x, \
$CellContext`\[CapitalDelta]x$$], 
           Derivative[
           1][$CellContext`f][$CellContext`x]}, {$CellContext`x, (-2) Pi, 2 
           Pi}, PlotLegends -> {
           "\!\(\*FractionBox[\(f \((x + \[CapitalDelta]x)\) - f \((x)\)\), \
\(\[CapitalDelta]x\)]\)", "f'(x)"}], 
         Plot[{
           
           Abs[$CellContext`fDiffQuot[$CellContext`x, $CellContext`\
\[CapitalDelta]x$$] - Derivative[
            1][$CellContext`f][$CellContext`x]]}, {$CellContext`x, (-2) Pi, 2 
           Pi}, PlotLabel -> "AbsoluteError", PlotRange -> {0, 0.4}]}], 
      "Specifications" :> {{$CellContext`\[CapitalDelta]x$$, 1, 0.0001}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {120., 127.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.6580337269861975`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Exercise 7: A cardiac monitor is used to measure the heart rate of a \
patient after surgery.\nIt compiles the number of heartbeats after t minutes. \
\n",
 Cell[BoxData[GridBox[{
    {
     RowBox[{"t", ",", " ", "min"}], "36", "38", "40", "42", "44"},
    {"Heartbeats", "2530", "2661", "2806", "2948", "3080"}
   },
   GridBoxDividers->{
    "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
     "RowsIndexed" -> {}}]]],
 "\nEstimate the heart rate of the patient."
}], "Subsubsection",
 CellChangeTimes->{{3.656682266021876*^9, 3.6566823208750134`*^9}, {
  3.656682762959299*^9, 3.6566828571316853`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"36", ",", "2530"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"38", ",", "2661"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"40", ",", "2806"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"42", ",", "2948"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"44", ",", "3080"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plot1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"data", ",", 
    RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], 
   "]"}]}], "\[IndentingNewLine]"}], "Code",
 CellChangeTimes->{{3.6566815771284733`*^9, 3.6566816660275583`*^9}, {
  3.6566817444140415`*^9, 3.6566817453780966`*^9}, {3.656681858803584*^9, 
  3.6566818605706854`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], 
     AbsoluteThickness[1.6], 
     GeometricTransformationBox[InsetBox["\[FilledCircle]", {0., 0.}], {{{36.,
       2530.}}, {{38., 2661.}}, {{40., 2806.}}, {{42., 2948.}}, {{44., 
      3080.}}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{35.875, 2502.5},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{36., 44.}, {2530., 3080.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6566816578690915`*^9, 3.6566816664695835`*^9}, 
   3.6566817457081156`*^9, 3.65668187061726*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p", "[", "x_", "]"}], "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"data", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"p", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "36", ",", "44"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*
StyleBox[\"t\",
FontSize->14]\)\!\(\*
StyleBox[\",\",
FontSize->14]\)\!\(\*
StyleBox[\"min\",
FontSize->14]\)\>\"", ",", " ", "\"\<\!\(\*
StyleBox[\"Heartbeats\",
FontSize->14]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\*
StyleBox[\"Cardiac\",
FontSize->18,
FontSlant->\"Italic\",
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",
FontSize->18,
FontSlant->\"Italic\",
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"Monitor\",
FontSize->18,
FontSlant->\"Italic\",
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\" \",
FontSize->18,
FontSlant->\"Italic\",
FontColor->GrayLevel[0.5]]\)\!\(\*
StyleBox[\"Data\",
FontSize->18,
FontSlant->\"Italic\",
FontColor->GrayLevel[0.5]]\)\>\""}]}], "]"}], ",", "\[IndentingNewLine]", 
   "plot1"}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<\!\(\*
StyleBox[\"The\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"average\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"heart\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"rate\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"of\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"the\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"patient\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"is\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\>\"", ",", " ", 
   RowBox[{
    RowBox[{"p", "'"}], "[", "x", "]"}], ",", " ", "\"\< \!\(\*
StyleBox[\"bpm\",
FontSlant->\"Italic\"]\)\>\""}], "]"}]}], "Code",
 CellChangeTimes->{{3.656681686454726*^9, 3.656681749567336*^9}, {
  3.656681806196575*^9, 3.656681842354644*^9}, {3.656681904867219*^9, 
  3.65668192393931*^9}, {3.6566820106192675`*^9, 3.6566820218279085`*^9}, {
  3.6566820650243797`*^9, 3.6566820822243633`*^9}, {3.6566821467470536`*^9, 
  3.656682221578334*^9}}],

Cell[BoxData[
 RowBox[{"31.00000000000039`", "\[VeryThinSpace]", "+", 
  RowBox[{"69.35`", " ", "x"}]}]], "Output",
 CellChangeTimes->{
  3.656682084019466*^9, {3.65668217797184*^9, 3.6566822222283707`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVzHtUTAkABvBpTOidtijPE1vKnqVJpSg+97E2qa2Qlt6xHRKrOtXUtujh
MYr0UGiszMy9N48TKs5kaUS2zZrarNjWpiGt2iHbU62mvfvHd77zO+c7n33M
3uAdQoFA4M/n/zYrjzAQCAhsmF/ltrxejq1HM+MCeXvv2bJRyptLKX90nvfn
dyb3aXlTQR2n1xoQsIwIrDqhliN9aohrtpBAm+wfZ91dOXq+9Y+dakhgyzy3
Bcr7cqhp70ZTYwIxc1VGs5rlSO63O2pnTUAy+17n+G9yOBUR2lfOBAhp5uFS
nRwVO44f915NoM5Ock4uVMAsMd5iWTABl5VZetgq0KipjWqL4/cacXj1MgXI
rYumib4jIMxauKSE5vce+syekwQiK1XDfuEKNPvtaoph+b/oCOPiZAX8C8bi
Em4RuO9F5ftJFZjrMPLU6VcCu3JbzZ9VKHDtjY0s8TWB+vcy/eObCnj2PHAP
GSMw423aiuhHCpi6vT7XZ05CED6+5163AsqrjuFmi0jIdD9al4wrcCzzyd9d
niSe9juoVlkpEZtjExAQQMI8p5xJclbCoC7NcH0MiaEVm4Rz1iihW+ObP5JK
Ii3yelhpiBLlQ967xHkkKpkgh+zdSpwek82ad4FEanSpjsxR4ohnQdmFmySI
K30fS84q4cMo99x4SOK27f6MLdeUWL3dySZDS+LxqOrD2yYlDIM0lpphEmUj
7t2DnUrUpxp21RlRCDtUb3tsSInGd5X7QxdQuHW032/UhMHJ4n3JOcspNF+O
ettmz6BSynhF+1JIJtPys70Y1NTtbnsaQWFevCylMZBBjl2I+nkihaTrUzQp
3zCoaLr8feERCnEJlp9OZDLIZhwL28spTP8y4s1AEYPQO2JJzVUKXLVqWFLJ
QOJ40YV8QKG78JZBu5pB1G3aJ6qDQstJfUZFO4NiRcDspe8phIjeDK19xyC/
Ln2DVEQj75TV8yARC4mxZ/ABWxpq1XrTQTsW1y7GOC1eSqMg0HnVTjGLKsnV
jWEEDYtpvs8C1rEYK4v/igil4Sy2SDaKZOExcHN+QwINUvcydHMKC6/0xWTr
QRomP41essxjcSRY5HmilMZem+qJ83IWsq9FWc8v0cjKrrp9XsVCcabkh3v1
NAqzVA/ELSw+fFacv+0JjTXDOzWlPSxm6GpbD/bSOHN4G5XwkcX70wk//8Fb
GJ7aoOHdus6hwb2PRrxrEVwmWBTIi6t7efv82ew9yNt8W9KpIB2NTteV7pJJ
FsbNLmH2/TTsO20dc4UchNylv9RDNFi39mmy6Rxebo7tmj1Mw9J4IFfP++6U
Ob8n8057YSaKMuJwIFLa7DRCw1dKCxYZc9DP3HmlYJRG34uaD5wJh/Fcx6So
cRpLjxX11phz6FjeGV/H+1RUVdxMCw4qbcl2639p6N0fvk7lneZjGNLEu6VL
+HKlJYeRoVeeLhM09nkkdqhncGi/cFYs5d1hcjx0oRWH2sCNS7p5r9VWtmfz
Tr7cMKdMT8MqT9v2xSccNm1Ntx7gnRE9EcjxdpvuarZhkka3h12LkTUH6xu9
hgxvf1N3/3jeg7EV+knetdrAh7/w/g/iUjnT
      "]]}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], 
      GeometricTransformationBox[InsetBox["\[FilledCircle]", {0., 0.}], {{{
       36., 2530.}}, {{38., 2661.}}, {{40., 2806.}}, {{42., 2948.}}, {{44., 
       3080.}}}]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSize->14]\\)\\!\\(\\*\\nStyleBox[\
\\\",\\\",\\nFontSize->14]\\)\\!\\(\\*\\nStyleBox[\\\"min\\\",\\nFontSize->14]\
\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"Heartbeats\\\",\\nFontSize->14]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{36., 2500.},
  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},
  PlotLabel->FormBox[
   "\"\\!\\(\\*\\nStyleBox[\\\"Cardiac\\\",\\nFontSize->18,\\nFontSlant->\\\"\
Italic\\\",\\nFontColor->GrayLevel[0.5]]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSize->18,\\nFontSlant->\\\"Italic\\\",\\nFontColor->GrayLevel[0.5]\
]\\)\\!\\(\\*\\nStyleBox[\\\"Monitor\\\",\\nFontSize->18,\\nFontSlant->\\\"\
Italic\\\",\\nFontColor->GrayLevel[0.5]]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSize->18,\\nFontSlant->\\\"Italic\\\",\\nFontColor->GrayLevel[0.5]\
]\\)\\!\\(\\*\\nStyleBox[\\\"Data\\\",\\nFontSize->18,\\nFontSlant->\\\"\
Italic\\\",\\nFontColor->GrayLevel[0.5]]\\)\"", TraditionalForm],
  PlotRange->{{36, 44}, {2527.600011322449, 3082.3999886775514`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.656682084019466*^9, {3.65668217797184*^9, 3.656682222260373*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*\\nStyleBox[\\\"The\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"average\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"heart\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"rate\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"of\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"the\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"patient\\\",\\nFontSlant->\\\"Italic\
\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*\\nStyleBox[\\\"is\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\"\>", 
   "\[InvisibleSpace]", "69.35`", 
   "\[InvisibleSpace]", "\<\" \\!\\(\\*\\nStyleBox[\\\"bpm\\\",\\nFontSlant->\
\\\"Italic\\\"]\\)\"\>"}],
  SequenceForm[
  "\!\(\*\nStyleBox[\"The\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\
\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"average\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"heart\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"rate\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"of\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"the\",\nFontSlant->\"Italic\"]\)\!\
\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"patient\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"is\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)", 69.35, 
   " \!\(\*\nStyleBox[\"bpm\",\nFontSlant->\"Italic\"]\)"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.656682178035843*^9, 3.656682222266373*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Exercise 8: Define a function taylorPoly[f_,n_,x0_] that finds the Taylor \
polynomial of degree n for the function f around x0.\
\>", "Subsubsection",
 CellChangeTimes->{{3.657303215102522*^9, 3.6573033908197827`*^9}, {
  3.6573034950283194`*^9, 3.6573035027758064`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"taylorPoly", "[", 
   RowBox[{"f_", ",", "n_", ",", "x0_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"i", "=", "0"}], "n"], 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "i"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"x", "\[Rule]", "x0"}], "}"}]}], 
     RowBox[{"i", "!"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "x0"}], ")"}], "i"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  SuperscriptBox["E", "x"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p2", "[", "x_", "]"}], "=", 
   RowBox[{"taylorPoly", "[", 
    RowBox[{"f", ",", "2", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p3", "[", "x_", "]"}], "=", 
   RowBox[{"taylorPoly", "[", 
    RowBox[{"f", ",", "3", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p4", "[", "x_", "]"}], "=", 
   RowBox[{"taylorPoly", "[", 
    RowBox[{"f", ",", "4", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p5", "[", "x_", "]"}], "=", 
   RowBox[{"taylorPoly", "[", 
    RowBox[{"f", ",", "5", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p6", "[", "x_", "]"}], "=", 
   RowBox[{"taylorPoly", "[", 
    RowBox[{"f", ",", "6", ",", "0"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6573033723957767`*^9, 3.657303605929399*^9}, 
   3.6573037311527634`*^9, {3.657303811976797*^9, 3.657303854744976*^9}, {
   3.6573039241079144`*^9, 3.6573039325498714`*^9}, {3.6573040072856193`*^9, 
   3.6573040106449866`*^9}, {3.657304057849288*^9, 3.6573040842939777`*^9}, {
   3.6573043719993467`*^9, 3.65730438454319*^9}, {3.657304428804427*^9, 
   3.657304477663907*^9}, {3.65730452281756*^9, 3.6573045237562227`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"p2", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"p3", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"p4", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"p5", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"p6", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6573036149257483`*^9, 3.6573036711153984`*^9}, {
  3.657303716315287*^9, 3.6573038054261956`*^9}, {3.6573038710655146`*^9, 
  3.657303901249812*^9}, {3.6573039409938326`*^9, 3.657304080279115*^9}, {
  3.6573043006970253`*^9, 3.6573043284035816`*^9}, {3.6573043949425564`*^9, 
  3.6573044082999544`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAY6+Q7///B8BQwywBsX2pPxT7GiY7
/AfA4Z12AbaJqT/ERqVcdvgHwDhtn6zAlak/Jt65yezwB8DDoz8O562pP+oM
46PZ4QfAIjXdSXjeqT9wajVYs8MHwI66zf+uQKo/fiXawGaHB8BF2/mTgAmr
P5qbI5LNDgfAsGUeGVKtrD+f34hvUQkGwDvTOMGOSrA/FtBTTykVBcD1Zc5j
nFqyP8hQU0TLJQTAC1oemSihtD9IKSV0IyIDwMYhnB0Ha7c/Oq5cps8vAsBQ
AUUbDly6P/qKZhMyKQHALce2zUn3vT/196SVXicAwJsIjkE7/sA/xCKSNL5t
/r8ASGhASRzDPzsFf7MrZPy/8LEXOai0xT+UQDc3QX36v+jePj4Tcsg/Y5xY
5eqf+L+f2+UAknfLP8+nHgkBmva/QGJtIFMrzz8eDLAxv7b0v5YoPDdEidE/
CiDmz+mq8r/xSqEiue3TP2xUhZioqPC/rTQ1YzGY1j9gw9/LHpLtvyyK+ZG0
Ztk/Ij3+UcWB6b8IRDRRQNfcP6los+G7tuW/qU3ntzM84D9q87Fci5rhv943
4fjTdeI/Ln4FWQYj278zLuTc+PDkPxN51AuWm9O/VTk1fj2O5z/XZGwqr+PG
v0zu2uSWwuo/d3oqjsmVrr/UI0HK9yTuP6qPOECkMK0/xvrzGE7w8D+OaYHW
YILHPxp2FnTQOfM/DfRMO6xR0z95b0+SUKP1P+B0xjR2hNs/HDuClVqY+D/u
uU3Cd8jhPw2qcz0j5Ps/poehYGSJ5T9yddhDx1z/PyX2qxN4m+k/AnlvpvLO
AUDesh+9O2jtP83/f3jBDQRAVZfgiOuQ8D/yHYyqiIcGQJ6ljL1MlvI/xazM
uQ+QCUAEW23tBXn0P+xM/2eUwgxAzmCpp1KE9j9RkQ2++FYQQLUNGl33bPg/
okqO7vloEkAmmiHoB0z6P29gC1O7sRRA+naE/atT/D82LaZZU34XQOv6Gw6o
OP4/h/m/eFJyGkCgZ4fUGyMAQOAKs8Q4ER5AkEHMjBklAUA1LIAVSg0hQA5v
q0LDFQJANr5pop0tI0C+RLi9thoDQPM1Ag3KyCVA/W1fNlYOBEBzFn0mQYko
QIjmw98QKARAbgogpfPcKECVEZ2Y
         "]]}, 
       {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk8FP//APB1rlwVEgqLKKREOoj3VErRQSSilKNDjhLSlrOUJCS5y1E5
UpQriV7bJVLukiNmd62bXetYR/Sdz+/x+2sez8dj5j3zfl0zj1Fx9j7ixk8i
kVbykUj/HV0KY9n//pFpbSdVev79E8Bk5hU0jP6SaeJxgRuvzAhgn/c+c/Sf
IdPwEPu9HI4AptH9tnaEQ6a534/92k8XwIbEmU/a6WQaKWh+5cgnAeyiu4Fd
8ScyTSP8M2d/hAAWpN5BO3ObTPO3UAs7LiWApaSqxf2QJNPkyqXXNGjzY+k9
Ed5WS4RpzwIvcKwtSZhso/VhzRVCNOr6W0aLrguoxtLatE5dkNaYddJexmcO
7dNU91VTFaBhUSd1LgfxkGGBY3bDRn6a5e7fXU9nJtFc5BlpPU0+mq/w2vqb
gVw0xXv68ORaEo2DOgeDDnPQZ9W4ze89F2G9+un4Bf5RZCQUXKzt+hd2Jc0W
liQNonV995bEOv4FKbeWu+yoQST7Nc1p0uYvbA4efrIpdBBxIirEqvb8BdfU
XxF15wdRtvi0y6G1f+HW5SR1W6NBJCXjKXNpaB4+Zn17Xt0zgAZUHfzKLs6D
0sIAU2bDAIrHtm7dGTgH7pkSy8/gfUigmv2nzm8OutWVV2T96kM+Frk3bb3m
oNxkrwTrex+yspVvvuA0Bxk6P9uD3/YhSY95j4Sdc6BLmmaKPOhDEYmQNSw0
B44BuyvPmfWh62NmkgnRs9BXIhHoVMpCw5dJpZTbsyBZ3SRAfcFCx2fLHfKD
ZyHtQn5Q6hMW2i6olUe7OAsDl9MtJ+6z0LS8uOnwkVkwvRrpNu3FQhf3NF7F
Vs6CyDEPa3MtFnJJs2MNpc/A+5NOSDO7F8WW9Bu3JM5AwaqF4cuPetH77/4J
72JmYOj5xprq+F6ksBBvFhU8Azsw66XhN3pR44mmPB2nGTi0N/63y+leZKJs
7nVRaQYMaQu2z5V6kXyWEW8qjQdKF7wEHNKZaG/Ft8Pd8TwwvJSdlZ/IRL7N
9rnVUTzI2n/5kmAsEzXyB9gnXueB5aW6R/UhTHTLpeTdNkceyKb5bfrizEST
a3RCrq3igYfTa1OjdUzUkKO0hC9lGtQeVStYvGWgU6M0Pt+4aXD+/vaOdDED
cfVc5voip+GYgK488wUDybzPGf5+bRpORjxLTsxgILtW3fqkE9PQP1ZCsY1g
IAZp9wNdlWkY1nEz07RnoGn7s4qncqcg77IYby2JgW6nL5FtyZiC28lO/q1z
dCTHypfcmzwFCl+3yEZM0ZHRRc4/7cgpcNru9UZwmI5Cbl1l8C5MgRuVL8T6
Fx2JFt/Nidk4BSe93mqaFdCRkvirTVA2CSJK3j23XOjIq3ddV0zBJDSekfUo
P0lH7yszb53KngTP+hA7rj0dnfB80MmXMAmac48tgy3pKK3eP9zUbxJyPpHe
LxjTkfx94/Za/UmoUDp+L0qBjs6dL7uRoj0J3Tb6sqaydFS+c+OGC2qT0J7X
sCggRUd2XMoNcelJsHxlxU5bQkcJ1oI6h7kTsGvjtYP6sziSka0LaX01AdiU
y+J4O45cx3ZrP8udgI9y3jc2/sJRSXXlT7+MCVBwMD7n14wj6ysFWitjJ8B8
h5qVQh2O4n7fb7X3noCiizIZNZU4Wppqt65HZwKSM6P03mTi6OTlpuZC9QkI
KKotpj7GUYGFeWCI4gToMGrj96bi6NBfo2YViQmQfyztz4vHUdQJ5euuI1yY
vv29tCoCR6KUvobB51z4qtaq2XUJR11pInV4FhcyW9ea6Xnj6KW8dnVbChf8
L8T4x3rgyFL6YuWXSC7IWKSIuZ3FUYLwXG6mOxcUmx9Lep/A0bkbq58mOXPh
Z9H9SiEHHG0nofSY41yIuJp0/akdsf7sjYeB5lxglNP15qxxpDoqEWavxQXn
f84BwhY4mjyvG2ipygXe0qmyP/tw9KXvSICZAnG9cCq5ai+xPp7oZSDKhUfP
VHse7CL226LisHxoHOLzKWezDHFkVGGwuTZvHMp+tXXsWo8j8a12G2mZ40A2
yzVM1cJRdzFV603yOFg/inoxvw5HYS+B8uzOOODzsdWt6jiqydgvEXp+HKpD
Ilr6lXGUoughEnB6HCYpM59ClHB0ISVawNt+HJRzrlWrKOJIMr5l1nH/OJx1
e893XQFHNrdP9G3THIfPeXpW91fgSEMwhL5RZRwar+5sdpfBES8kq0tDfhx+
b3R1OyBNrE/tb5ZZMg5dB1kf1i7HkQdvSb0Y3zi0le6+q7IMR8a+62v5ZzlQ
L1B2Rm0pjnDPS8AZ4MArq1/WSAJHRUMPKvpxDqRY3XSzF8fRjbNlpd2/ORCy
de+da2LE/U/P53+v4QAqFSL/XoKjmT+KOZ9oHJA/KHBainDtcSyropwDY99k
ftiIEPe3CU/KzeXA3YDLnePCOMpcrNDXyuRAqAvt9DHCv3I59fnJHHBPEx39
JIQjbMFBqDCSA0tnEqSKBHHkl3M/Q/cGB+oU2l/oE35u9dWo6BoHqHflDlQK
EP2QredT6sGBfNuYZAY/jvZbnpPY6saBDa+rzUIIB809yi0/wYEs+/m5NYSL
n7bsNrTlgIilTnEjH44GDi3peXeIA6fiHS/eIKw4a0I1NuNAnsYdPWPCR574
rgDEgV7h4tkFEo4iDj5/hW3jwDKDji9fCFfxeiw+6nJA5/ViQjxhbuaK/t2a
HDC+RvF0J7z2gEXYFxXCD9A+M8KO0yGKZgoc0J11WKdN+H5GWXmNFAekX/pJ
yBKuNh+xNhfjwGBBFI9MeH5ShV0nQORnMaOPRPiUSaFM6gwbzqUVdfznujgF
i8eDbJCK+NDy3/lb+sNDMzvYUPDhR9MKwhlG42+e1rHBcH9bqxZh0VjHsZxK
NpQrdXftJezb+3VN/ks2aO5iDJ4n3L1N36HgMRsii5nzDwjvu/f4/usYNnT7
MKT+228RfUlNSQgbVEO6N/wXj9Vb/BbfXGKDXWfb4R1EvG5F4pvfObMh5Ga9
XxhhTrfFhffWbEi+9jGjgfBx/TeZH0zZ8JRW3KhG5OPzbdXfnw3YkGGdJRRM
eEPXPckaDTZEb45GdMJJurOmdSvZ4OVyJcicyLdne8PrptkxIOXvFNMj6uG3
jtFA69AYlHxStX9FeFdYttLvzjE4rsX3woCoJ1ntwLvdVWNApZeeOkrUW0jw
wAd6wRhMbor6yCY81GI905s+Bk6NTpr3yTh6f13LbTh0DMR4i0KDRP2ua3qY
OuYzBhbB366lE/Udp87XPO4yBoFHH0w7iuLoTH2bycyeMSgdXj0/QvTHUkq4
nJDoGATAUuw00V9UX84hkflRMH3z5c9hov96axzCxUZGgX8hIGQP0Z/ll/S4
y+tH4YhPW+seon9PfeqpU4obhb2Cvm9TVuLIzHjG7U/oKPwsHP/QIUfE580y
UtqlUVg/dFxcjZgPf5/v3CxvNQobxThnvq8m4hX3JE162ShELa7RD1PFUbB4
5ZbmfyNgQ/lnLriGeN5brY2x7BFgNX5+Gk3Mp81UISHJhhFw6JZSqiTmV+Pp
s54i0SPw6PnbtdSNOHrTGUz+GjgCGbs4h0w24ejx0aTMcM8ROH9eqlxUn+jv
/bU/+Q+OwBEXecvKLTgS2aRtsiA2AlQRvcQwExztJLEluXeGQVUuOjT1MBFP
Kjnv1dVhSEwL/Mq0wtGySeXd3ueHobXQ7vBmG6L++i2vjOwbhqywpjVjxHyn
NhT19JGHIaH9R99nZ6L+Hvu/6gwfgtYD49WLV3CULBdjnuI3BFVVydp1VCK/
cTm9dm5D4FGl05weSLyvbv2W+2U6BJTzcqzTN4h8exqGNgoMQc+lGZX9McT7
wnjR6kvoIJTuY/Ke5BL7X268PtlnEA789Hr9Lp+YH33XhD1dBuFvQUpaRwGO
OmJmK2T2DMLT/S3kDaU4esCYVHMVGQSF1TWbtD/iSDBieIo/ZgASDGgtQX9w
1Nf8OxlL64c2w6HDd+XpKD5npa/MvX6gugcb31Gko13XbQ8NBPbDlv4Sx2gV
Onqs3sof69QP019JugWadHQsoOFCj2o/pGqs1jI1pKMaxWrjoLw+8Lc77VHr
SEd554rp78pY4B+trrk9h45andOVLbJZIOSts/vWCzoinbh7ouMhC6DsZkPn
azqytXJpn/FlQdk1FZRRSUf8htJNBvosyO6UpkY309Fxscu0wsJeSJvoPEki
vq9EC/TSn+QyofXGLHP7aQYyyFX6o5fEhC/7x8weniW+77JEV328zQSGv57S
rCcDlSUwEvAzTEgTzlPpoDKQc3BctKI6E2T/HrrJ95CBKiy5gYmZDFiNgspZ
3xjIfeK1490UOvipu3cJGDNR8pZxo7ORdPg+AYPmpkxUc1V31W4qHUoOOK1K
sWAidVJh+5w9HfQfU4ctjzMRLv7C1l2eDhxQQ5QAJjqqkW25PwkHj0VUsqeU
iUKLNt+RXN8DrmczfuYb9KINQUL2wmqdcGSQNNV7iIUUKhoTBwQ7AVUadMUf
YyGh6dRf3/o6IFHUtd3iFAt1eerZxDzvgDvyL1c0XGKhyBNOh+X0OsCfNP5Q
6yEL9e94u0drZzv4c1GpwR8Wypj30Dvk1AaSZ+e80nz6kPTVVrGE1BZIjKPX
5xf1o5l/s8vZ1Bb4E+L+l/99P+q+pSy373gLHN1gHuRc249y493XzMm1QHe1
RLAh3o9MXpGMTyY0g/XYM99DkgPofP96L437TVAnq6Ar7DGAgvJFMz0lGmDo
x/KBEp1B1ObqoVXIrAZOq4nj0m9D6ApVK7r2YQH0Jj3R26k+hp7HbMOe6r5E
EvQhEx0OB0WfD/11KuwrGne9JONsMIEkJg8YvbBqQXbZPt3kmCmE+1Zv9r/Z
ibaLN+0vd5hBY28PfrxSQ0eFH3xySh3nUfbtzFOud1jo9FH95OOui0h9Ol86
IHUQWZQ7M5OnSVh3kXKV0blRVF5aPvCrgh87mohHDMdykI2j9iv9OEHs8bOo
qgMJXJTBuxoq9VoYE3TwHBW6Oom87MLDxWpFsPpTeTlHbk6jhetXKvU3iGGl
EgoneB4zaFvXdMVYhASmkaIyQD4wh/RcfYvXTC7F5vxvLuRb/0VDXBNOpf1y
bHhulWTutkWEy0t0N72SwjLO3m5dpUbCvm39vLtxswwWu/N7lLw6H7ZZXZOt
+nEFJumdv+vTCn7sXuQeeY/dK7H3puVVZQoCGKtpw0utKTlswdNpi62kIJb0
O8hCMVkB4yM3J2svEDbu3NuzazW2ZZ/PR3OSMGbDNtWJoihhc10vBlZwhTGG
TVHwslFlzNSjJvbgtDDW2vZl2/YpZezePHNb+JwwpivgLemyoIxRFFbdmeQn
Yw81P5D/CFMws2N3NFukydgKD9sSw5UULL7JzT3WgIxpvIt4t2wbBdtQrTQi
epWMRYaKh62lUrCAo4bxuwLJWEUtJ+dgEAX70Ht0BzWUjCn2KTv6hlEwG4F7
UYN3yNjt1JPenyIp2DVsfn1NChnrmTmx81wqBaupaPMMryRjGYGuD75XUjAp
84kVVTQyprVk+tE8jYI5tku+n/xMxobONW/R/kLB2Lw9kq4/yJjoswvSUT8o
mKxBScGubjJWv5QSYNNNwU59brClMsiYsLHI1G0GBcuzHl583UfGfEyMSJV9
FGyHj+phFTYZG6kK/aDOpmC3+Ex4dhNkbN7o4RWHCQrWGGufHssjYyh64t19
HgVToPiZ1cyTsbcladE18xTs//+vYGf/70jB/gfW9g+o
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      Method->{},
      PlotRange->{{-3, 3}, {0., 12.431546363984321`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], {195., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8BQwywBsX2pPxT7GiY7
/AfA4Z12AbaJqT/ERqVcdvgHwDhtn6zAlak/Jt65yezwB8DDoz8O562pP+oM
46PZ4QfAIjXdSXjeqT9wajVYs8MHwI66zf+uQKo/fiXawGaHB8BF2/mTgAmr
P5qbI5LNDgfAsGUeGVKtrD+f34hvUQkGwDvTOMGOSrA/FtBTTykVBcD1Zc5j
nFqyP8hQU0TLJQTAC1oemSihtD9IKSV0IyIDwMYhnB0Ha7c/Oq5cps8vAsBQ
AUUbDly6P/qKZhMyKQHALce2zUn3vT/196SVXicAwJsIjkE7/sA/xCKSNL5t
/r8ASGhASRzDPzsFf7MrZPy/8LEXOai0xT+UQDc3QX36v+jePj4Tcsg/Y5xY
5eqf+L+f2+UAknfLP8+nHgkBmva/QGJtIFMrzz8eDLAxv7b0v5YoPDdEidE/
CiDmz+mq8r/xSqEiue3TP2xUhZioqPC/rTQ1YzGY1j9gw9/LHpLtvyyK+ZG0
Ztk/Ij3+UcWB6b8IRDRRQNfcP6los+G7tuW/qU3ntzM84D9q87Fci5rhv943
4fjTdeI/Ln4FWQYj278zLuTc+PDkPxN51AuWm9O/VTk1fj2O5z/XZGwqr+PG
v0zu2uSWwuo/d3oqjsmVrr/UI0HK9yTuP6qPOECkMK0/xvrzGE7w8D+OaYHW
YILHPxp2FnTQOfM/DfRMO6xR0z95b0+SUKP1P+B0xjR2hNs/HDuClVqY+D/u
uU3Cd8jhPw2qcz0j5Ps/poehYGSJ5T9yddhDx1z/PyX2qxN4m+k/AnlvpvLO
AUDesh+9O2jtP83/f3jBDQRAVZfgiOuQ8D/yHYyqiIcGQJ6ljL1MlvI/xazM
uQ+QCUAEW23tBXn0P+xM/2eUwgxAzmCpp1KE9j9RkQ2++FYQQLUNGl33bPg/
okqO7vloEkAmmiHoB0z6P29gC1O7sRRA+naE/atT/D82LaZZU34XQOv6Gw6o
OP4/h/m/eFJyGkCgZ4fUGyMAQOAKs8Q4ER5AkEHMjBklAUA1LIAVSg0hQA5v
q0LDFQJANr5pop0tI0C+RLi9thoDQPM1Ag3KyCVA/W1fNlYOBEBzFn0mQYko
QAEH0pkr/QRApXBd3i6SK0A2SHLCSgAGQFkHHW0rSi9A+tys6BXyBkBQbumy
+5oxQERsyJBN9gZAtfntHkakMUCN++M4hfoGQL8iFnKVrTFAIBobifQCB0Ad
HSzYQsAxQEdXiSnTEwdA7vw27NjlMUCU0WVqkDUHQC6gj370MTJALsYe7Ap5
B0A1GsPr+80yQHhVOpRCfQdAqDZpWujXMkDB5FU8eoEHQC3nsQXa4TJAVAON
jOmJB0BLZDodzfUyQHtA+yzImgdAWkTlnfIdM0DIutdthbwHQJP9YVg9bzNA
EkrzFb3AB0BrCQngfnkzQFzZDr70xAdAKwc70cWDM0Dv90UOZM0HQCMQrvtj
mDNAFjW0rkLeB0DMcijB4cEzQGDEz1Z64gdA5aZ05U7MM0CpU+v+seYHQFOZ
T4rB1jNAPHIiTyHvB0A2jFBht+szQIYBPvdY8wdAqctJmTr2M0DQkFmfkPcH
QAdJeF3DADRAGiB1R8j7B0DtfMmwUQs0QGOvkO///wdAeWssluUVNEAwC0VJ

         "]]}, 
       {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8AybdOt////vxT7GiY7
/AfAsPRdSyvt/7/ERqVcdvgHwLgrOwFe2v+/Jt65yezwB8DAyTyv2LT/v+oM
46PZ4QfAAK+G5SJq/79wajVYs8MHwAxphEQJ1v6/fiXawGaHB8Bc8qEWErP9
v5qbI5LNDgfAyhA4X7aB+7+f34hvUQkGwJ4A+ixDG/e/FtBTTykVBcDgXu+L
ZWnzv8hQU0TLJQTARMp7NIwm8L9IKSV0IyIDwJAi/d6Z+em/Oq5cps8vAsBY
3Gj/1rfkv/qKZhMyKQHA4Dg+xsBT37/196SVXicAwPQ5B/RVk9a/xCKSNL5t
/r8Ya228dLHOvzsFf7MrZPy/nLRtUtTOwL+UQDc3QX36v6Bs8RqDNKW/Y5xY
5eqf+L8wkV1zZk6jP8+nHgkBmva/kIXkRhiGvT8eDLAxv7b0v7japVAFRMc/
CiDmz+mq8r++HUy1s+XPP2xUhZioqPC/smGBVtMD1D9gw9/LHpLtv2DG81lo
xNc/Ij3+UcWB6b9Yr+f+X+rbP6los+G7tuW/eB+/W0v53z9q87Fci5rhv6dL
bQK3WeI/Ln4FWQYj27+WmEv6z+bkPxN51AuWm9O/YWwagGiL5z/XZGwqr+PG
v6ZzeKRAwuo/d3oqjsmVrr/7usWw9iTuP6qPOECkMK0/tr5toU3w8D+OaYHW
YILHP3elQdqcOfM/DfRMO6xR0z/+IIzEzqH1P+B0xjR2hNs/8k/QP/uR+D/u
uU3Cd8jhP/AO75/e0fs/poehYGSJ5T/EwW8SdzT/PyX2qxN4m+k/GkyCa4Ol
AUDesh+9O2jtP4A6LkS+wwNAVZfgiOuQ8D9EusPtDw0GQJ6ljL1MlvI/xyDG
MTLICEAEW23tBXn0P6J69tIclAtAzmCpp1KE9j8ge59Cj+UOQLUNGl33bPg/
5+4w56gjEUAmmiHoB0z6P4BU+vXJ7xJA+naE/atT/D+gzbiIzwwVQOv6Gw6o
OP4/N/Mu2+YuF0CgZ4fUGyMAQBxu7K+OrRlAkEHMjBklAUD0+PwaC1IcQA5v
q0LDFQJAF+grlBj3HkC+RLi9thoDQLoi6WGwBCFA/W1fNlYOBEC3QOheH40i
QAEH0pkr/QRASl16BYAmJEA2SHLCSgAGQI9SDW43/yVA+tys6BXyBkBKAdvo
BdQnQERsyJBN9gZAHY2VTnHcJ0CN++M4hfoGQFOVBdve5CdAIBobifQCB0Be
KDJpwPUnQEdXiSnTEwdA1rbxYp0XKECU0WVqkDUHQH1krQ2/WyhALsYe7Ap5
B0D+fC5No+UoQHhVOpRCfQdAJBXvGlTuKEDB5FU8eoEHQACVxRgH9yhAVAON
jOmJB0BVWeClcwgpQHtA+yzImgdARVIBDmcrKUDIutdthbwHQIL0k1e3cSlA
EkrzFb3AB0C8mtxJi3opQFzZDr70xAdAV17rcGGDKUDv90UOZM0HQCFLh14U
lSlAFjW0rkLeB0DyGO2/lLgpQGDEz1Z64gdALgibYHrBKUCpU+v+seYHQKAv
ZzhiyilAPHIiTyHvB0CZNIaOONwpQIYBPvdY8wdA1hhvDSflKUDQkFmfkPcH
QLRCosQX7ilAGiB1R8j7B0CStWq0CvcpQGOvkO///wdAw3QT3f//KUDcmVw5

         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      Method->{},
      PlotRange->{{-3, 3}, {-1.9999996938775664`, 20.085534463734323`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], {585., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8BQwywBsX2pPxT7GiY7
/AfA4Z12AbaJqT/ERqVcdvgHwDhtn6zAlak/Jt65yezwB8DDoz8O562pP+oM
46PZ4QfAIjXdSXjeqT9wajVYs8MHwI66zf+uQKo/fiXawGaHB8BF2/mTgAmr
P5qbI5LNDgfAsGUeGVKtrD+f34hvUQkGwDvTOMGOSrA/FtBTTykVBcD1Zc5j
nFqyP8hQU0TLJQTAC1oemSihtD9IKSV0IyIDwMYhnB0Ha7c/Oq5cps8vAsBQ
AUUbDly6P/qKZhMyKQHALce2zUn3vT/196SVXicAwJsIjkE7/sA/xCKSNL5t
/r8ASGhASRzDPzsFf7MrZPy/8LEXOai0xT+UQDc3QX36v+jePj4Tcsg/Y5xY
5eqf+L+f2+UAknfLP8+nHgkBmva/QGJtIFMrzz8eDLAxv7b0v5YoPDdEidE/
CiDmz+mq8r/xSqEiue3TP2xUhZioqPC/rTQ1YzGY1j9gw9/LHpLtvyyK+ZG0
Ztk/Ij3+UcWB6b8IRDRRQNfcP6los+G7tuW/qU3ntzM84D9q87Fci5rhv943
4fjTdeI/Ln4FWQYj278zLuTc+PDkPxN51AuWm9O/VTk1fj2O5z/XZGwqr+PG
v0zu2uSWwuo/d3oqjsmVrr/UI0HK9yTuP6qPOECkMK0/xvrzGE7w8D+OaYHW
YILHPxp2FnTQOfM/DfRMO6xR0z95b0+SUKP1P+B0xjR2hNs/HDuClVqY+D/u
uU3Cd8jhPw2qcz0j5Ps/poehYGSJ5T9yddhDx1z/PyX2qxN4m+k/AnlvpvLO
AUDesh+9O2jtP83/f3jBDQRAVZfgiOuQ8D/yHYyqiIcGQJ6ljL1MlvI/xazM
uQ+QCUAEW23tBXn0P+xM/2eUwgxAzmCpp1KE9j9RkQ2++FYQQLUNGl33bPg/
okqO7vloEkAmmiHoB0z6P29gC1O7sRRA+naE/atT/D82LaZZU34XQOv6Gw6o
OP4/h/m/eFJyGkCgZ4fUGyMAQOAKs8Q4ER5AkEHMjBklAUA1LIAVSg0hQA5v
q0LDFQJANr5pop0tI0C+RLi9thoDQPM1Ag3KyCVA/W1fNlYOBEBzFn0mQYko
QAEH0pkr/QRApXBd3i6SK0A2SHLCSgAGQFkHHW0rSi9A+tys6BXyBkBQbumy
+5oxQERsyJBN9gZAtfntHkakMUCN++M4hfoGQL8iFnKVrTFAIBobifQCB0Ad
HSzYQsAxQEdXiSnTEwdA7vw27NjlMUCU0WVqkDUHQC6gj370MTJALsYe7Ap5
B0A1GsPr+80yQHhVOpRCfQdAqDZpWujXMkDB5FU8eoEHQC3nsQXa4TJAVAON
jOmJB0BLZDodzfUyQHtA+yzImgdAWkTlnfIdM0DIutdthbwHQJP9YVg9bzNA
EkrzFb3AB0BrCQngfnkzQFzZDr70xAdAKwc70cWDM0Dv90UOZM0HQCMQrvtj
mDNAFjW0rkLeB0DMcijB4cEzQGDEz1Z64gdA5aZ05U7MM0CpU+v+seYHQFOZ
T4rB1jNAPHIiTyHvB0A2jFBht+szQIYBPvdY8wdAqctJmTr2M0DQkFmfkPcH
QAdJeF3DADRAGiB1R8j7B0DtfMmwUQs0QGOvkO///wdAeWssluUVNEAwC0VJ

         "]]}, 
       {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk4VN//APCxjhZayFZZkz0TWlR630QqJaVEm6lQSaIPUioSEZJKFCUk
IeQTabGca8lHKN2Zse+h7CaGMTOG7/09z++v+7yee573ufe83+d97nPVz1w+
5CpKoVA0RSiU/7uefRczPj9PxbtLLErn56dATqC8dussFc/aulPqL3sKKne9
PuE3Q8UPHXc3Gu6ZgrWdn7+NsKm4gfVPKr9iCoYW975q6aHiLqdT7twOnwIv
9w2O+RVUfN8STWQqOwW3tFpxtzAqbnrHwXCFEQcSEjUffZeh4g7F/M/UoAl4
2RV++eACSTw2crXZoagxoC+Sqg+SkMQ/SRyRsvMbA41NYevyRCRx3MYu4wR9
DNKjQ0dl+BL4Pv2dFqmmY5BrHnyxbkgCl/Lab9rZMQrFiQHnrOsk8PPNgv9k
TUah9ains/kDCZzW31lsMzAM8j/tD+iukMCffiqqSLsxCEo/tJsuLpPAD58x
zwhxH4RVdYJTudISuH9wF93bcRDUq195mkhK4N3qBmbepoNggE/eN+eK4yqn
vrMXjA6ARd7juoMt4vjhiXPNCfQBuBzD3HP9hTg+8pNStOLgH6i2s7es1RLH
24Wzp20d+kHv6fLXxerieK6LyNNJq36I6iIkcleL4wnPFM6kb+gHO0+7/2JW
kPHc1j0zXdEPzZH79zpIiOOsLs9fE6w+GKiytuvpE8NbKf5n/zr0gZT5thPc
V2I4PpqXXOPSC7t1tXw0NcTw6wenRJ6l98AJ6tiaYypieFXM4YX2CT3g1V/Y
EKMshtNNYmIVonsgPmX3prnlYvhuia8rcd8e+K3kwW8WIx3wzDvaqgdCFuYH
RfeL4jrBTZqr/nRD2TB2n5chimMjO7e3re8G1rcF22mvRXG/Drmg9rXdMPCG
MeaWIorr9cnl/VnZDUtdXOxYz0TxLSpPq1dKdgO9PUz2XYQo7rP/ZhHnQxfM
1f145uJBuqXphLJ0F2zJPZFeb0TGj9NuYX3rgJyGpbQP+qK4y65AXlJBB6gJ
Kz8naIviBvh9tcCXHSC5z/C7q6ooXr3kr8Nt3w5gDAonBTKiOF3vo3GURge4
a73coTMmgqdl8jXfB7VDwvOe9qBsEdy993PF5L42kK584uaWIYJHlS2tv7Cl
DYKG97Bt0kTww6uTIzjabeC25b2YwnMRfKld2YC1WBsYNwfr5USK4MfKfFT6
v7RCjewa/xZ3EZxGnL7ANmwFfoSbrLGuCO5TwTER02yB3JDLX/W0RPC8vGWK
u2Rb4Mwt/6ua6iK4YptqQaJYC9R4R7TJKYng9NKSsVt9zZDgmPuKK0XeV3hz
Yc2bZjBbO21SMkDBDT4O03uNmsG/LPTw7gwKXnlU585f2yYwKIqW3JFGwRtF
nV9e29EE3QXxn8ySKbgi+7udrGkT7M7IXKX/lIKfMVhmF6DUBAoPvvdJh1Nw
vHtrzar+Rig8scKXeY6C7/pPcVFSYCNMcdOenNKm4Oc98++eLGuAY+Ef459r
UvBkxTapmsIGwBVrnrWqUvDsdc6DltkNEGU2/sJBkYKnlYVlucY3gEaAWbrt
Agp+iuPgfcizAZJnEy/dbJxHA2YLtzJVGuDogrF35qfm0cKirfk7I1igoSdb
8NlhHu0yXW94+TYLxvZu/rThwDwaSqkzyfBnQUhUMG6IzaMvex98tzjHgvdL
FIjVGvMoq1M7WMmKBTLy2ISwfw61P5z3shZjQaXGI9PSS3Modtcb2ev3mGDb
eH8o3nUOib/bF5x3mwnN9+4le5+cQ2q/edNT15gwwg5arLWfvG8txcpxZ4Is
utwXaTCHRooN7/3cx4Qzx/fHOg0LUYx+6IE2WXK8zJ69Jr1C5GE/FD+3mAl+
5ZYU6TYhWiNX4kmTZEKE7jYPvEaItsUfz0IzDPiXq2epnSVExqfgfmQnAyix
UhzOeSEK0W/NYWQzIMJaPOsHXYg+Hc/ya0tnkP133jnDUYhK3z0/NpHMAJ0z
3Nrju4XILuvt0b1PGHCA9vtVubYQ7fZFp1NvMSCprsI+5vcswnSskkbsyfFB
aIF75yyqLlBgMm0Z8N6kCO1snEXFeUsKqvcw4GvCe33u11lkGm3t3AYMGDmf
Inbq9Szati3nxSsDBmyVCMzXd5lFMgVaXZ+lyHi/7y+IOTGLXD7bpePiDJD/
77kz5/Aseko4ChgUBrDDvywqsZpF3YeqzJR5BKQvnj5rqz2LfG5s9jEeImC5
3CU57yEBevTH0ib0BwGUqQD3hl8C1Lxw+3WLWgJGGyJwszYBeqGf0buwmoDq
+AwP0ToB2t/ndrCkjICbK/sqH+cI0NpfFxZmfCBgQOO4b6GXAF0ZU42KeUlA
o5h7rfIFAZJtfic+/5yAij5/9cDTAmS4M+KcfwIBSelx360PCRArOKw58gkB
9noMrRYTATJdY9ZlGkUAtqgnwNxAgNpzE9X59whYNzJOpKwRoLC4y9o1YQRI
5Urfcl8hQGNy5u4RdwgoXb+nUTDNR29oPbsiAwjIXu5oQB/no1AVPdX0awQ8
m3QLrvzDR5vftsfWXiXA50PIuvvNfOQ28slqow8Bumb4XZUvfBTi8GJLxCUC
5JXr24Pf89GV5xcDeBcJEBd0GP/J4iO67iXTf9wJ6CwWdL5L5KMP8jmzoecI
iMU2bdpxk49EPfe56ZwhQKxqvKPWl48U9Uxk/tIJuGKTEeLgyUfNvXOpFc4E
HHRQYlx05iMi4ljw3ZME4G2E//RRPrJ4daPS7wQBtNMRqrft+Kh1ScYvr+ME
yHgIPOJ28FHyNXpqsBO5/n/zZdW38NHIj/itCY4EjPh5fHlrzEfROobJRUcJ
qL3dQS3TJOM3/vmy0oGALdS4XJtVfOSSV3/+2BECsqJsjzTKkfM9TSBSDxMQ
Ho9ShyX4KKg1sMLOngDuKv89fnM8VPTbx7LwEAFuqTQ2hctDIy6iXlqkG7UH
4yLHeWjBttUWSQcJsMpJMZcf4KE4x5JCNdIFxsf6krt5qCq741u2HQFrPi2P
1G/hITvajasWpB+b164vJHgotftZUc8BAkQr7jRjNTyUi295FEHae/e2wNpy
Hlra4srdRrr7O0fLoYiHuJu0/szYEmBnn1PXnc9Dpn9DT5aSRs2u/1zM5iFj
lacO90mvO6WiPJ3GQ387PH+4kk7qbcSDXvCQxhG1MmvS0hcenFsUx0PsnK96
JqRvjFnLxEXzkIViAFWH9PA/lA9qYTx095uz/VrSx3ifjr8N5CHm7JOF60jX
3PIW3ejPQ4wJC10gbSaul4l78VDN3+i3TqQz7v06YHOBh5KtXt+/SVpxSeJ0
w2keaoaC2izSYbH2L+jHeCh80+jpHtLTSosthw/xkNe9kH3q5Pu6vqwc8rXh
obb4f8PcSbPW3HxIseShzzW5S0pIW2Zt2By5jYcSH3zuViTXM99orHPFBnI+
p+Xcm6Q1PqSHJhvyUEzKrO0I6UdbnA3015L56C/tO0vmx8vq5zVMgYci/Dlf
PMl8dtWEq9Uu4aH2LjGOCJl/W7sd/x2R4iEpX80TSaQNj7+Xu8ibQYpPR7Im
yHp53u1eNPV3BiVf3BuRRdbTYjfNM0FDM8h2Ri3iIllvQ16x7560zaAZifJ2
KbI+nab3OaixZtANnqNOP+nqAAlhVt0MWhspcreGrOf0u3578ZIZlPR2x4U8
st7PPnfsH3o5g8xltnsMkPslpuCPOTOenF/lpv7a0+R+r/OLK3owgzaUVfp5
kvtNWRhrHRU4g/x88l6quBLw8ySRaeg8g4TCQjRL7tc5X7qo/NEZlPa19Wy0
BwEG0ePH5mxnUJ47z0vPk8xHqfTi+u0zKEacXXDbm4Dtqns9vVRmkIW4nke2
PwEem1qqHOVn0NCEZ3fMdQISDpxX3SEzg7KW5SQG3iBgKvDuz2VzXOSZeLYx
IIjsP93lxvkdXPQzonZgLJwApdSt3KnnXJSkxhgvSiRg15eaA52xXORS8uCP
RRLZjxhOGVVRXOS/51w/M5l8flF/p/gbXLSYU9orm07A3bMFRZtPcFHeNb9b
i/4lgLPGMChgJRdtuTzJaiD7s4Z5cfNZWS6Ky006LSD7t90Rm/X7FnHR19KC
j3r1BLwNvfBrlWAaZauE/5veQMCZ368tS1unUeB8qJ9sLwH1b1QWiCRMo5n9
l3RL5gmgj+IiPo+mUUwURcZcjAETxmf5vyOm0fn+4V1fJcnzsPTNcF3ANDo5
X5U1Js0ARxbtx9OT0+iYrdZY2ioG/KLsfExTn0YqrckLX2xlwLTTudX0jClU
UmF8PTOQAWEvF8gzk6dQhl5n/boQBij2v5XZ9WwKOeXVaxeHk+edF3teP2IK
/YpUaBh7yICgu9d+cS9OoU1+o735aQxYmB/55oHRFNp5soDxpZYBKovz1qNC
DlLPu5iYrcoEzz6d9ge5HFS03+FxmhYTSotT7tLTOajs8+PU1/pMOHnpcZtI
HAeVjy0Wlm9iwvMffqGWvhyk16xw0t2OCUoPzVu+mXDQ9bjBvAt3mCAnXxvE
yptEFttdq5XZTHAZ26n/OmMSPRdz0FnPZUJBVXGDb/IkUpvSdLSbY4L91Vw9
hZhJ5GEbrZq5mAWPmh+ynC5PooLfyxUrdVmwJNFRp8twEtFfjS5LcmXBQrXf
9YNZE2hU8pFqYy8L2p9L1XanTqBhs4B37cMsyFHSr2pKmEAGXg/uDU+ywE7W
q/hrxATSvzIqryHeAHGS/IwU9wnUGWd/ZWIN+b03Kh3spDeBwvaXK6ieb4Ct
XzaYfsv8i/6Ren8omdMAHodDn2ZksFFndX7MsrVNkDL3xUQvhY0m1jp2+Bg1
QWMG+8fbZ2yUvad8fdfmJsCExyXeRbCRheEAu9qmCeTSja988GAjA1ndcrZ3
E5Rwu2zKaWwk4bIk/CFqglUbfec+eo+jhvHEeXl6M9ArumpVHo0isVJB5sbC
FrJe5w5+vT2I3GoijkwK2yHzfH5PUWE/spkebxO16gb3yX9PRCb0INz04Bue
/y9Yd0vCSVKzDdnkGnk2/+0D2WusRXGJTOSp/fG4e/QfaHLx0HvXW4U+7KDN
PysfgqvX9aK/PclFw+Uvv3PXjEHWg81YGi0HlpfFK9iy2RB94XYjPfg/mA7p
ePjDbBKkOfu2Zh9kwvZ6WqjZqyno9qky9Qtpgwq1o2d/xs/A2Of95VereyC7
4mG01i8BpIel0F3u9cNQNUUt4Og8aE2/lfVPHITrKrzrt6tFsM73qiVbz4+C
94Y7bgkUcexIfHf4cAwbLOnznWqXJbGk11El++ImoHqHdX3i2QWY+PFLoxLX
OKBzXNm91X8x9oOe+eZQyDSUFK9o0VBein2QVj7J9ZgBlfade1wXLcfWJqgP
UPfxQctG+YOathzG9wsRvrWfhauKmc3Cd/LYMH+lTMbmOYid0PnJ36+EJZ8L
Y63UpGC6T259Gru8CovZURelpCWCbVwkIafcqIrJXH5rUbFCFCu4U4jlZ6hj
pZafSgqVxbBzgXOPrn/RxISXnDc6yIhjAw4um1lNWpgIlfFMXyiOlVhRg/Yq
6WAbd18p30uRxDaZN0bdr9DD+O3ZAysmJLF3Wv0f6q4aYpYe1TH7pyUxo8yd
H0+FGGL3Bb2bQ/mSmMfVa7pTMYaYmvLKexxRKrY0n+NilGWIWR+9p8uUpWLC
0OmjLe2GWCzh6h6zgYqx7Zcaiu9ch62rUhlZeI2KxQbMPSpZboT5H9kSa3GT
ilm2DPZ1qRphZX1Htl2/TcWk26zqJA2NsMNi96MG71GxwgOjzmesjbAATGBQ
nUDF8iwPFtndMMKqvzRdCi2mYtuOZVot+mOELd87uaIEp2Jprm7XrnKMsBMt
MqWcSioWvyBaj0OhYeNcKxmX71RM5VSUuIcMDZPfUJBr0UnFON28squ6NIxe
We9w/Rc5PlUqCqPRsEz74bl/f1OxKZWS3EWbaNi2KxoH1Mep2AWfS5RMSxp2
V2Q713GSihk/iaUF2NCwnzFOL2O4VEye8qnowCEapqzma10toGKnIi6lrnWi
Yf//fwhbvtqmf96Zhv0Ppglucw==
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      Method->{},
      PlotRange->{{-3, 3}, {0., 20.085534463734323`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], {975., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8BQwywBsX2pPxT7GiY7
/AfA4Z12AbaJqT/ERqVcdvgHwDhtn6zAlak/Jt65yezwB8DDoz8O562pP+oM
46PZ4QfAIjXdSXjeqT9wajVYs8MHwI66zf+uQKo/fiXawGaHB8BF2/mTgAmr
P5qbI5LNDgfAsGUeGVKtrD+f34hvUQkGwDvTOMGOSrA/FtBTTykVBcD1Zc5j
nFqyP8hQU0TLJQTAC1oemSihtD9IKSV0IyIDwMYhnB0Ha7c/Oq5cps8vAsBQ
AUUbDly6P/qKZhMyKQHALce2zUn3vT/196SVXicAwJsIjkE7/sA/xCKSNL5t
/r8ASGhASRzDPzsFf7MrZPy/8LEXOai0xT+UQDc3QX36v+jePj4Tcsg/Y5xY
5eqf+L+f2+UAknfLP8+nHgkBmva/QGJtIFMrzz8eDLAxv7b0v5YoPDdEidE/
CiDmz+mq8r/xSqEiue3TP2xUhZioqPC/rTQ1YzGY1j9gw9/LHpLtvyyK+ZG0
Ztk/Ij3+UcWB6b8IRDRRQNfcP6los+G7tuW/qU3ntzM84D9q87Fci5rhv943
4fjTdeI/Ln4FWQYj278zLuTc+PDkPxN51AuWm9O/VTk1fj2O5z/XZGwqr+PG
v0zu2uSWwuo/d3oqjsmVrr/UI0HK9yTuP6qPOECkMK0/xvrzGE7w8D+OaYHW
YILHPxp2FnTQOfM/DfRMO6xR0z95b0+SUKP1P+B0xjR2hNs/HDuClVqY+D/u
uU3Cd8jhPw2qcz0j5Ps/poehYGSJ5T9yddhDx1z/PyX2qxN4m+k/AnlvpvLO
AUDesh+9O2jtP83/f3jBDQRAVZfgiOuQ8D/yHYyqiIcGQJ6ljL1MlvI/xazM
uQ+QCUAEW23tBXn0P+xM/2eUwgxAzmCpp1KE9j9RkQ2++FYQQLUNGl33bPg/
okqO7vloEkAmmiHoB0z6P29gC1O7sRRA+naE/atT/D82LaZZU34XQOv6Gw6o
OP4/h/m/eFJyGkCgZ4fUGyMAQOAKs8Q4ER5AkEHMjBklAUA1LIAVSg0hQA5v
q0LDFQJANr5pop0tI0C+RLi9thoDQPM1Ag3KyCVA/W1fNlYOBEBzFn0mQYko
QAEH0pkr/QRApXBd3i6SK0A2SHLCSgAGQFkHHW0rSi9A+tys6BXyBkBQbumy
+5oxQERsyJBN9gZAtfntHkakMUCN++M4hfoGQL8iFnKVrTFAIBobifQCB0Ad
HSzYQsAxQEdXiSnTEwdA7vw27NjlMUCU0WVqkDUHQC6gj370MTJALsYe7Ap5
B0A1GsPr+80yQHhVOpRCfQdAqDZpWujXMkDB5FU8eoEHQC3nsQXa4TJAVAON
jOmJB0BLZDodzfUyQHtA+yzImgdAWkTlnfIdM0DIutdthbwHQJP9YVg9bzNA
EkrzFb3AB0BrCQngfnkzQFzZDr70xAdAKwc70cWDM0Dv90UOZM0HQCMQrvtj
mDNAFjW0rkLeB0DMcijB4cEzQGDEz1Z64gdA5aZ05U7MM0CpU+v+seYHQFOZ
T4rB1jNAPHIiTyHvB0A2jFBht+szQIYBPvdY8wdAqctJmTr2M0DQkFmfkPcH
QAdJeF3DADRAGiB1R8j7B0DtfMmwUQs0QGOvkO///wdAeWssluUVNEAwC0VJ

         "]]}, 
       {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlXs01HkDxl1m5ldkXutS4WVdQkhmJkUr+/1WyiVtiKjYVKhk6LSpaJNr
WIZJtoRNcmmiELuY0PfrNsZGRtOSFCND7uNFruH1nvP+8ZznPOfzPH8/OmeC
XHxlpKSkLq7pf362mC1ZXSXwzJ3zl1taxEhlSd3A6huBt9nutlCrFKOGg3me
V+fXcvAzwys5YmTQw20emyQwe1zD3zVUjEY29Od09RGYY26VWLNVjC757/Qo
qyfw1o7H60zi+lGY/gfsF7vGuaMPdzt/RukZeimt1LX9S+f9vnIiVEB7kF0h
t8aT57sVJL3oZSP1RTaFwNg+T8Bs7kUfJAttwSsUPNnT7BAV1ovUbQQKWhMU
/Oid3zmZkR6UMfZrfGArBQvEohjI+4QyrTvC/5VIwXDd1+8t73ajrN64IOf1
FMyRz7BUuNGJvOXXtYWTKXiztz/tq1cn0rWI3V4iTcHzpqVaU7AT5SfFjFMX
yRj6WuQbE52oyDryYssIGYsq6J2pqR2oOuPGOdsWMh6yyoreW/YP+uAeeMo6
mYxLPkh5ZKwK0UbB0SNGqmR8vdyh3qtdgNTeGHZe/I6Mww+NRd7hCtC/W5Z+
LlIgY0UXmllHtgDp8HMCd1DIeHNBmWbKZQHahqdZ1nMkrOjsQBKqCNC+krst
zl0kHM6kG3+qfIOC2EL70D9I+P3WvX7BkteI73TU5rU+CXs/YsY6VvKQcZpS
XrUOCfO3+USrsHgosbedXKRJwiWl3EfLp3nIKdCpia261o8KbWZs4KH3CYcd
jpFJeMh+olv/TCMa4tk69Yllccn6Izs2qTSgddZ7POdyZPE89TbXP7kW2Rnp
X9HTlcXapOKGPdVc5ElMbDmhJYuh9PRMWAgXXRoo/4etvpafTMdLdnHR/Ww7
ixWltf4B6/0nSyvRoFrA4ntZWSxwcX/oUViBouXKwpMGZPCl01KJ/Ly/UO0o
ZC1wZLBiLTWBWfUC/VDkmd9mJoOx+JQstT4XLf7mp8wwksbhZ/ZHVTNY4Otc
7u8/G0phPNzUSn5bBBp0U8xfMVeQYsTxAzRlLrAi3yoz8fmGtNNMihMO14JU
aGGx9+YiOp8ZcGf4ViM4m+kxMJI1j2Y+D1ZL4ptB2xOt9dLps2iru65l6mor
0NpQQkflM2j3e904fbN2IKc92DZcMIWa79oyOdVCEOAak8bhTCIN17Jzsrc6
gHd972utlHEUflCqa+eJLqBrveLcGDGMRsmeraS3H8HT82V9VeUDqJ55m0+z
EgH/6ReeCel9yF6UZRof/BlsDyMfp+h1I3O3T0NDk2KgHPJO/l6GEJmL2WZW
SV9Ap0+AcXE/D335otJ6r24EXAs1Tmr+vQhp/Gb599yWCVCQbAlzac9Bz7PJ
zT9NToKkCxEd3pFN4OMxH1/B7mmgMONo9cxZCORXMi8eyfkKRFd45leju0Gi
065mp7R5MME9XHeN3wc43y0Uz/QvgfzYbG+f+AEwoJnFpXuuAv3ZQuXrGcMg
MKrRVOONNOwp/b7G6vw4qMhJmGqWJ0G3+6K4UfYkmLctiAiKosCHeYk1jvem
gKOvkFURux6STjLHySEzQE+O3nW2bAN84/30iUv0LODmdyZY2yvCvxTUveYC
5kEEx/1HAxclaJCuM0Q4LgLXx6vL11gqcPFq9HLh0W8gtfSgyN9mExxd1KBy
LFcARSloSFdDHT46F/tOQ08K+hyyiPuSqAnZe1sS1fSloWh+6OF/CrUhNahw
X72qDIwklzql5+rCVzaVNeXqsvDX2di6DrI+XGae2nWMSoIKHWPFnmGGUJp4
+8BkmQQXxusPPTcxhrvsLtc5SFGgSNNL2HjGFC5+fDakOkWBPNcyuvQJGrQJ
4LMPz1LgRw/nn5pO0yBrqd8yZpECW0JQFfsCDWqra8TPyBDw5IMqlmkIDdq6
xxsJlQmoVa9olpxGg6ntvv7snQRUMdkYNN1Jg9t5WmNyIQS0TEjZYXecDq+7
/ZC67yYByRUDf4aepsNasdue0AgC1s1uel5ygQ5dZVmJw/EELBdKKIahdHgD
Lm3jpxNwcMEj0jqDDvkvO5kx1QTMrLrEUeqhQyWHadUaTED1tECjm4N06NlF
fTXTQMD8wCbz0Qk6lMwdoPq0EtCl4hdJ+yodbtz5Z9G+HgIG5pps+luHAb0b
2o6FfiZgidoVBWdjBnx6dHTlxSAB83qn7nczGHDPZd0jOhICFopuBy7tZ8Db
0j/OeUwT0Pvxxhq2IwMK2Mez2HME3FLXnmvkxoDq2sG2/CUCPrabNeB5MeD/
/wmGs+ps/PwY8L/RZ0sF
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      Method->{},
      PlotRange->{{-3, 3}, {-0.6499998316326683, 20.085534463734323`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], {1365., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8BQwywBsX2pPxT7GiY7
/AfA4Z12AbaJqT/ERqVcdvgHwDhtn6zAlak/Jt65yezwB8DDoz8O562pP+oM
46PZ4QfAIjXdSXjeqT9wajVYs8MHwI66zf+uQKo/fiXawGaHB8BF2/mTgAmr
P5qbI5LNDgfAsGUeGVKtrD+f34hvUQkGwDvTOMGOSrA/FtBTTykVBcD1Zc5j
nFqyP8hQU0TLJQTAC1oemSihtD9IKSV0IyIDwMYhnB0Ha7c/Oq5cps8vAsBQ
AUUbDly6P/qKZhMyKQHALce2zUn3vT/196SVXicAwJsIjkE7/sA/xCKSNL5t
/r8ASGhASRzDPzsFf7MrZPy/8LEXOai0xT+UQDc3QX36v+jePj4Tcsg/Y5xY
5eqf+L+f2+UAknfLP8+nHgkBmva/QGJtIFMrzz8eDLAxv7b0v5YoPDdEidE/
CiDmz+mq8r/xSqEiue3TP2xUhZioqPC/rTQ1YzGY1j9gw9/LHpLtvyyK+ZG0
Ztk/Ij3+UcWB6b8IRDRRQNfcP6los+G7tuW/qU3ntzM84D9q87Fci5rhv943
4fjTdeI/Ln4FWQYj278zLuTc+PDkPxN51AuWm9O/VTk1fj2O5z/XZGwqr+PG
v0zu2uSWwuo/d3oqjsmVrr/UI0HK9yTuP6qPOECkMK0/xvrzGE7w8D+OaYHW
YILHPxp2FnTQOfM/DfRMO6xR0z95b0+SUKP1P+B0xjR2hNs/HDuClVqY+D/u
uU3Cd8jhPw2qcz0j5Ps/poehYGSJ5T9yddhDx1z/PyX2qxN4m+k/AnlvpvLO
AUDesh+9O2jtP83/f3jBDQRAVZfgiOuQ8D/yHYyqiIcGQJ6ljL1MlvI/xazM
uQ+QCUAEW23tBXn0P+xM/2eUwgxAzmCpp1KE9j9RkQ2++FYQQLUNGl33bPg/
okqO7vloEkAmmiHoB0z6P29gC1O7sRRA+naE/atT/D82LaZZU34XQOv6Gw6o
OP4/h/m/eFJyGkCgZ4fUGyMAQOAKs8Q4ER5AkEHMjBklAUA1LIAVSg0hQA5v
q0LDFQJANr5pop0tI0C+RLi9thoDQPM1Ag3KyCVA/W1fNlYOBEBzFn0mQYko
QAEH0pkr/QRApXBd3i6SK0A2SHLCSgAGQFkHHW0rSi9A+tys6BXyBkBQbumy
+5oxQERsyJBN9gZAtfntHkakMUCN++M4hfoGQL8iFnKVrTFAIBobifQCB0Ad
HSzYQsAxQEdXiSnTEwdA7vw27NjlMUCU0WVqkDUHQC6gj370MTJALsYe7Ap5
B0A1GsPr+80yQHhVOpRCfQdAqDZpWujXMkDB5FU8eoEHQC3nsQXa4TJAVAON
jOmJB0BLZDodzfUyQHtA+yzImgdAWkTlnfIdM0DIutdthbwHQJP9YVg9bzNA
EkrzFb3AB0BrCQngfnkzQFzZDr70xAdAKwc70cWDM0Dv90UOZM0HQCMQrvtj
mDNAFjW0rkLeB0DMcijB4cEzQGDEz1Z64gdA5aZ05U7MM0CpU+v+seYHQFOZ
T4rB1jNAPHIiTyHvB0A2jFBht+szQIYBPvdY8wdAqctJmTr2M0DQkFmfkPcH
QAdJeF3DADRAGiB1R8j7B0DtfMmwUQs0QGOvkO///wdAeWssluUVNEAwC0VJ

         "]]}, 
       {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmHk4Vd/3x++5o/oghYqEyJAGU4qidUKRjyQZM1aSIjSIqCjKEPJpMBdF
UUlCUtHZde41RDIlRJkzpRsyD9/ze57fX+d5Pfvsvdd6r/c6ez9nzWFvi6N0
Go22GKPR/u955Hns74UFDrJVKWnT0PwKYjOSittnOchHWONtusxX4O5+6HBu
koPKH5QuUxb8CorfX1cM8Tmob2Z++kRPIwwIdqU3d3CQ2v3Nuk0JjeBzQss2
n+Qg7W23FwwZjXBJoQW5hXGQANN+iVBvA6iecp24H8JBwU87+fUNDdBePLyx
LYiDaBJVudlkA+hbMpIP+HNQzahJ0q37DcAK2eCLH+egXAuTt1pODRDVfmmd
5L8cxA83CUct9ZCULH/zkzAHKfOdjqe018ETtcT7rxZT8SxZ8sygpg7e8IRf
3GdzUEKovuo8UQctv6c++86zUaxzU0F2ah1IGtYISQ+z0eSR45uGnesgeehC
hNcnNioOuW483lULKXqNwUui2Mj49cfgoqkayK77N3YqjI02PHspkD1YA8XH
3qd2hbDRyr3URm010Ppf9rtXgWxUkMV1/v2+Blb3Xpl19mAj1wbPtO3Xa+Be
jKp/rgkboVNSYpw1NZD6I9x7/yI2Us4Kr5DOqwaXfwQ+B7PYKFxMqaAsuRrk
toZtysXYqD1I1zLqajU8irn6S3iahcz7Z1zd7aohR++KR9UACyG7xXeP06uh
ODnwmFEVC4m4qmgF2X2CFhsvZ70bLESzM1LxWVUFKSG/3nleZyG1hinxEwJV
4PTcUzoljFov/9v+i38roZPt0TYdxELtLkM+vz9XQv/LY/ZFPixUs8LAjHat
EiZFD9loWlDzVX0J7vhHWF5zYN86cRbKqq5pdRioAIlqpa8eS1nIX2HrwZyW
CpCqmnHKEWIhZYk1IssrK2BNebqXJpuF8J+WvUrZFbABjUbrTTBRWtrl0APe
FaCfe6tqfzMTqZ1MHC6eKgfv2Po9AXeZSOTYkj8npcvhdExmbXEiE8mukXzl
vrQczkYF2i3cYSL/z/tq/ZjlEBAufzw0honwFdfK6wbK4FrwmfCYICaKfXVO
LaCoDFJ8RMseHGIi24iPgVdsyqDc/IBhpQIT8ePjP6/IKAWVhGUPi9cwEU3M
S+JuQilE/ahl5axmImWVtl3a0aVg7mVeFivORJOSlxi550qh6fpeE2sWEwVr
PYR0k1LoKzUy7+hmIH45sokc54GJMOdFXTsD+ZTNCboN8SDbqnQpt5WBgkOn
71l38sCn27D+UQMDxYqkSJyr5sEkpm/tyWWgvs0Wz7MzeSCgp+swkc5ARUra
rwYceXAidKa4L5WBbEfutAta8aCq8s3qlmQGmvzgMaxvyoPYgzo/im8xEJ63
I3BgGw9W+m85fCWEGjdPLlSQ4IFyvpq70BEGEjH7WAbNXDBep3BWXo6Kz7nv
zt1jXHDgDK89KM1AK6P+uMYc4oJPT+GXWEkGQteqp2LsuRB/33jr/DJq/Xyt
PcQ+LvRKeE43MRhItl/O7Js2F0IX5wfH9NCRVPDRyAkhLiT0BarzOugo7XtT
5g8BLmSXGnbOtNERMpJtb2Rwof5Ko8HxRjoydM/xG5kiQW5mim1YRke3Rxzk
2npJeD+IR09l0VGBn1ewH0lCQ8WiHWoPqfdj9l02JUjoy6wbdrtPR01OG2ZU
35Ig4upq3pBIR7Zb72rI5ZPg0hom+jySjhKislLz0kk4+8ac23ONjrIafG2m
U0kIT5DwlQqheCJ7m3kKCc8tnzZGBNJRlepWR8U7JMxXVSe6etKR683XiwLD
SFj2NN4k2Z2O+mziRDVDSVCMcJmpdaWjzeEX5iaDSdi7a8QBHOmopsvONCeA
hJQScVlJMzpy2DTUUOJFQm7y9xpzEyqfvR5tXR4kcM9nXg7bTUfGncUXVhwn
YVBLp2tsBxVP5Hf7zCMkbMtxePRZlY58Tqx74G5HwrMvImov19MRf/Ht/lJr
EmTnuK+TlOhI5KVj3WZLEtimGz8dlaGj8Mp0e9hHQl3/3OiMMB3lshNXCu8m
YdfSvIsdiyn9c4239BmQUKTtxiljU/qtz7lbu5OEe2HVkjfnMVSTkypdp0fC
CYXUncrDGDKUKHkXvoWENtMDlUIDGMr29Vj4tpkE87Mcq9EeDFk+p2nt0CRh
C+nt/q4NQ7pxZlaqaiQ8HpAfSW/G0FjewfXvNpEgtawpMOILhvyDx6rsN5JA
P4TfsPyEoapPI3tIFRJ8w8dWbqvAUF8vY2n0Oqq+z7MeyPAw5NI0E3BUmYTq
eZHCgWIqHv0zS/QVSdipyIOaIgy5Vk4o7FYgoWDv+YqXBRgyNTj5ynYtCUkp
Ha3B2RjSnnwm/1iOBCHuHTe3LAytFWwc6F1DQvDgHv6/GRhKeJHF0qR4dNn8
efU0DDHjvE9Ey5Lgti2PsSIFQ00GQUvGZUhoPuQWPRuPodDVWwc9KTaNkFzR
eYuab4ON/ZEmgcitTiu7gaHyUQvZqxRrNF1ReXYdQ91vnropUvxwYUvBzTAM
CWjHlXxZTcJKpUE9/xAMZeRlrrpF8XWz1DLHIAydXRfs50TxvO+B/QaB1P6m
H8u2UnzqLuebsh+13/ntDBmKu7lvXYXPUHrm35IVo9hmyHt41AtDKal3l6+g
+KPoWv/mExQHbWpVolhvexNGuGGoeL2i+26Kcw9HXc84TOkv5P3iNMXykbh4
pBOGslbN52RTHPdi7J73QQxJ1dXZjFG8qDlL2cqaqq/qxIM9VD4XaI552yww
dOFZUFg2xb+VlurKmmFoVu/6rBSlz+F9PB7LhIrPwGAqieIv587vG9yFIVr0
t7OKlL7G9zY21+zEUJT5TTeC4re8jsOFepS/FHJ5R6l6bPp1ZyhZh8qXFh4h
QdXvvpjJuctaGIrd4Pe4hWIx3fkFN3VKn909Uo/lSZiOdBPVWIehcC2R1pOU
H3JCvXkqCtR+PRMBzpRfDl/y95NfQ+Vf4FfrqETpcyrym5gE5aeYy1eDKb9d
8rgVLSSOIUE1w/oMyo8aR1OAvRRDxitFXn9ZT/nJNid9QgBDwU9SNjpSfjaz
eGXFZ1Js1JGdr0r52RRx+mkYyuVsfbhcneofqPNomaShhLLQTozqFx3Fcc2S
Phry8Xvz1nMbCUMyCz0vu2nIv95GVVGXhDQJgYScdhqaDf7yY5DqPwEhydnU
JhoSmBRoSab6s2lUj3ulnBp/euZY9B4Son7tPhfIpaHwQ+N/M/8lAf+5T/ks
oiHzAN+w6r0kZLUcijpaREOtBfLxYEGC//urlsZZNNSdY/Uw156EDW9j2Dsz
aIhm+1+YihMJ7QXxRTppNGSouU4r14WqT9ZjqfUJNJQVbfT1+1ESVtz41C0U
TkNpSYqB5T4kFDqI+9Yfo6H2kQcXy8KpfK2llaqO0BA//cLU9HUSpM2VmrnO
VH7HJZp0bpBwzUBHr9CGhowNMjOaqe+rtYojK9GIhgTzDarTqO/z34mMO05K
NFRcKChh/J6Eg+Gv4lPkaYg73es5yCUBrfyY2CJDjR9+a5VQTuWv8/uu9Upq
/u6yeuEa6vwI1HlktoiGCvPnaF4/KD1nk09ebFwgBENF1f8sUP2xaPi5ntMC
sTbL6tWQERfkVEQLXlsvEEVWP9e+MeXCsIl2kda+BcJChn8vdj91nkVdQRvx
BSK3bjjLljr/8pasqF0tt0Bc6894bOnNBeHl+MhczzyRIR8qMZXABa7czc3v
Ts4TBRfnPrSMcMGsMXog/ug80Xv2TZr+FBeaIiLSTjnOE9kQdbdggQtD/GBB
hb3zhFimR3ehIA9ECe/u6xvmCX/+a+3NSjw4bL/3tt3gHBEp//O+sBMPaLcF
xsbc5wjPszt11tXzINKI+aTaZY64l7O24lMLj7q/Lzhn2c4RTqz/2Beo+4Xy
4YlKe+M5Iq237OLfPzzYp9ab/kFpjpCqTVrksLQU7lWRB2J7Zwl/5rzQ3/2l
sJ0VlL/edZbAmTXTBi2loNwbvSjWYZZoGrpgcaWzFJaXpTiPWc4SSRHLa8oH
SoEf/uafkl2zRBRtWstrphQeCY4fMVOaJXStBS9Iri6DZWInxU4NzBB5h3Iu
TRwqgz45e99CnxmCb7ThS9GfMriNb9268+I0oecYwBdbVwGM0t9tlb7TxKfw
XgdpzQo4/W9WqLXXNLFFv9JaVa8C9ltL1Hk4TxPFeeP8Y/srQNhzxjNu5zQR
Ex/7QjOgAsLjiQeDrGliB/0FR+tTBVwYNhKOi5kiquu6mG3+H+FIim3PQOok
4Zk0UUH0VsLnTOlFWNI4oVQ8qrrp+GeQFsxVJwrHiKBHFZrGSbWwWLb3c/+T
EUJYrDNEeLwePC2vJmRl8QltO8d4WkojuJA/KqVv/iI2HkixOOTeDHJ68/t5
l/sJmfL1XS1fW+Gxe37H28Ie4slV11V7ddvhxOgLh+tJHUQIv/Rns28nbLrE
smPLfyPu9Io3TvG7QfR8wz9xyfUE3VkjQS/mJ3x19VR53lVKKPWc64n7MAB+
ASoxFXdyiIwtOz9OrB2GJze08Qy1Z9A1OrrSjM+HmOOXG12ulMFOsYIzNTqj
IDRmuj17fz1Irsq+ap7+F9rPlm4+F/oN+qOezNolTMLw670f/Mo7YJu20h2Z
7hl4FHbfxTWiB059a1r62mEBFMafivon94OOzwPXlmoM/54nU7Ld/Rfccx0O
DxZi4lbx7eGDsXw43NGZyL/Gxu89jCoxjRsB08fcPS9jFuFM+5O/WOfHYLfg
1+QfhCBe7fI40yJ0HKLvlQztsRTBXwpJOk54ToLuUlqlousyXDFpTR/HdBr6
jHc9D34shk+fC517emAWGpbbvtziswIfnF4lnKU9D+2ynSFF9pJ42rGwhlXy
NHytUOnNl0Or8didVVESChj+rif0yVe+LC7s/VSfFKfjkb1BG0IY8vg7w6KS
QkkGvjjPf6EoQgGfO+m8xVqYifc5l4r3b1LGMU5d4vo5Jm5yKxhPFF2PbzE+
/cGExsZPl/s4ecVtwqdbs/vER9h4QJU0Y1xGHTf0LI/dO87Gz7Vdq4tTVsej
Z7q0r06z8VrTkbfb1dVxWclVEWN0Di7Fru/6T18dN7KJWFcvysFtidYi76Pq
+O3aoyditTi4mM4axuhTdXxTqfTQ4vMc/FzHi//W6mrg/lbbbutf5ODsdqWl
prs08PfdVroBlzm4+evPXX5mGrglIzqqP4KDd//Dimx10cAD8ZkN5Ukc/LTD
QaGWqxp4+ZuvJ68Wc/A/VSeiMms08GUmo+IliIPPOuavEm/RwB2ahd+NcTm4
uG3RqrAuDfz3xC5h108cfLjAx9d/XANfrlWQo/+dg+veXcKNldLEXbifrQM6
Obj7hadCcoqa+OMDg/Mvejm4xQL76ytVTVz3tNy+Nb85ODkQyefra+LXsB0T
tqMc3GEk0PC2qSZeE2uXGjvBwZVbS2R0rTVxSVlfo/IZDn4gaUton7Mm/v//
I/DXpVVnEo9r4v8DNhEkrw==
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      Method->{},
      PlotRange->{{-3, 3}, {0., 20.085534463734323`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], {1755., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->{880., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.65730367226521*^9, {3.65730372031614*^9, 3.6573037351776257`*^9}, 
   3.6573037854981055`*^9, {3.657303836695239*^9, 3.657303902192477*^9}, {
   3.657303936954007*^9, 3.6573040407041903`*^9}, {3.657304075719905*^9, 
   3.657304089484618*^9}, {3.6573043036431046`*^9, 3.657304329577405*^9}, {
   3.6573043886981297`*^9, 3.6573044807320733`*^9}, 3.657304525940765*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1765, 729},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, 
  FrontEndVersion -> "10.1 for Microsoft Windows (64-bit) (March 23, 2015)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 275, 6, 166, "Title"],
Cell[CellGroupData[{
Cell[880, 32, 125, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[1030, 37, 534, 15, 93, "Code"],
Cell[1567, 54, 6816, 123, 242, "Output"],
Cell[8386, 179, 2631, 54, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11054, 238, 97, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[11176, 243, 2043, 58, 103, "Code"],
Cell[13222, 303, 3109, 65, 243, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16368, 373, 1915, 54, 103, "Code"],
Cell[18286, 429, 3107, 65, 243, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21442, 500, 102, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[21569, 505, 702, 22, 123, "Code"],
Cell[22274, 529, 10085, 177, 238, "Output"],
Cell[32362, 708, 12378, 215, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44777, 928, 407, 11, 52, "Code"],
Cell[45187, 941, 10629, 186, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55853, 1132, 1827, 50, 63, "Code"],
Cell[57683, 1184, 1998, 46, 238, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59742, 1237, 99, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[59866, 1242, 97, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[59988, 1247, 1357, 38, 119, "Code"],
Cell[61348, 1287, 43737, 748, 252, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[105134, 2041, 101, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[105260, 2046, 1312, 38, 98, "Code"],
Cell[106575, 2086, 20079, 359, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126691, 2450, 347, 10, 52, "Code"],
Cell[127041, 2462, 6430, 118, 447, 4189, 79, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133520, 2586, 100, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[133645, 2591, 492, 14, 49, "Code"],
Cell[134140, 2607, 6477, 118, 236, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140666, 2731, 92, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[140783, 2736, 2375, 68, 143, "Input"],
Cell[143161, 2806, 33491, 597, 164, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176689, 3408, 708, 13, 179, "Subsubsection"],
Cell[CellGroupData[{
Cell[177422, 3425, 3875, 116, 146, "Code"],
Cell[181300, 3543, 7019, 148, 339, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[188368, 3697, 987, 30, 71, "Subsubsection"],
Cell[CellGroupData[{
Cell[189380, 3731, 1356, 39, 88, "Code"],
Cell[190739, 3772, 31575, 621, 250, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[222363, 4399, 489, 8, 67, "Subsubsection"],
Cell[CellGroupData[{
Cell[222877, 4411, 1495, 50, 97, "Code"],
Cell[224375, 4463, 24036, 413, 286, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[248460, 4882, 623, 16, 168, "Subsubsection"],
Cell[CellGroupData[{
Cell[249108, 4902, 925, 26, 96, "Code"],
Cell[250036, 4930, 1839, 36, 542, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[251948, 4974, 100, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[252073, 4979, 1405, 50, 67, "Subsubsection"],
Cell[CellGroupData[{
Cell[253503, 5033, 1826, 54, 115, "Input"],
Cell[255332, 5089, 2472, 48, 344, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[257853, 5143, 1024, 33, 101, "Subsubsection"],
Cell[CellGroupData[{
Cell[258902, 5180, 2182, 60, 131, "Input"],
Cell[261087, 5242, 2288, 47, 264, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[263424, 5295, 645, 15, 150, "Subsubsection"],
Cell[CellGroupData[{
Cell[264094, 5314, 810, 23, 93, "Code"],
Cell[264907, 5339, 1068, 28, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266012, 5372, 2557, 90, 118, "Code"],
Cell[268572, 5464, 207, 4, 31, "Output"],
Cell[268782, 5470, 3860, 76, 250, "Output"],
Cell[272645, 5548, 2277, 36, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[274971, 5590, 282, 5, 39, "Subsubsection"],
Cell[275256, 5597, 2004, 54, 178, "Input"],
Cell[CellGroupData[{
Cell[277285, 5655, 1942, 58, 112, "Input"],
Cell[279230, 5715, 33197, 583, 128, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)