(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 88490, 1668] NotebookOptionsPosition[ 86716, 1619] NotebookOutlinePosition[ 87040, 1635] CellTagsIndexPosition[ 86997, 1632] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["\<\ Click and drag to select regions of a plot which you wish to see enlarged.\ \>", "Text", CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"DragZoomPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["DragZoomPlot"], BoxID -> "DragZoomPlot"], "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], " ", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}]}], "]"}]], "Input", CellLabel->"In[15]:=", CellID->443871870], Cell[BoxData[ DynamicModuleBox[{$CellContext`image$$ = Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJwVV3c8Vf8fVkmUJA1EKjIKZZWofFSKpCQRoggpRYUoO0VCQvbee91rz+ea 4dqJkE1DwrdSofG7v3/O83o+53nP1/uc8z67rt25YL6SiYmJj3H5P+4jW6f/ /RtBWXta/Q+eIXJnUch7cWkEg2qDS3KcQyS/QFrk28IIUtRuaN1dM0RkxM5e e/95BAOOrZeHF94R+Y1PBlr7RmD9ypIe1v2OKE/81xKRNwKd0DMn3HzfkQtP 27Jkr45A8Nmaf7zLg8Sh44mVRfUwcspC/pzuGiA9Peuma0yGUFFZ6aix8y3Z TruzWZ7/HWJK3tkfN3tDim7Vr94wNICawJn76S7dxNhPer7fox+/dXrEUiTb ya8gJ2+Qt+BUKbxrr/+KJHEM84aP9UK+7VDHl0/VJFpd2ub1szeIK3zlZi6Z QzxumzzYc7oHst4F+lSNe3Balelg86UbY+9Uq+YXKTBx79jdm94FZUu3KEtT GnT745SGkrogkz2XQXGlQV3mrt5kbBcGZngefIigQW6S0+9rcBcMFL4FCXTS wKp24RvHoy6Y/dhqXXS4Brkb3tSo6ndhUfaKgMGGWizHDlwpY+vCmOPjDq60 Osz/zHxAY+4C24tnM+2ow+R5p6BX/zrhJSYrY/u2Du0r+RvfLHSiqKxL05at HonXjSS/jnXik93X22cs66G2b3R5b3knLD2Mp0REGxBSNRUebdkJ2gd3gz7f Rlx5EOkqb94JJe2w7fOJjRCT1TTrvtqJSr/upxNljShPL93PqtOJDit80/vQ iOGXvo22pBMf1/u72Cm/gqil9Hf1zZ0ojBm5t+PzK8zvft8/xdEJjbmF7NJ/ r1A2Egl3tk6oJR4YE9nchLBM1q1WfzpQ6GJe5n6kCaPuuSdUujvwR541e4dv E2wkl2K/OnVg+yGqbNGOZjAnmVqK3euAtNRh37vSzQjlaTtw5XoHbNlsSpaO N6NiVXxr8/kOsHnPfH9oztAPnFyKF+5AkYlhJU86Q6+Z19C7rQM0D5odKW2G WANPIDtnBzg+mdZLNzXjbP5n0QdL7bg/b+Xh8IGh9wrU0exoRznbdKeTUAvE fi/t9Kxvx/6UrJhv0i0ov2c2U17Wjh+ratJllVswYij/WCS5HQKcIQ1rDRl6 2aH8Pw/acY3ryBa2QIZ+RIw9W7Adyv22CZNzLXA+siInkqcdOTefZC0stuBo RP/ZZxzt2Fzps61zFR20Cz4vri+1oTeMThnZSserhs9cu7rb8Er0odtVRTq8 BesLNjS1YVD9uhXlOB3qbtEX/1a1wSg/or1ZnY72Q2dDBzPa4H77pZWGAR09 Wbm8oY/a4HdQIsXfno5Q1qflTxzaYM17tJjNhY5L5lcv21q1QbejUFHtMR0D Apwx5/XbcPGx8jaOF3REO308SjTbINnPWxAcTMeVt7RhyZNtEKj8oDgUQcdY 4L2d66Tb8ClKJJCaREfi7OmaRZE2/LPli1ZKp8PsjOC1j/xtcB7fsME3mw6R 9KWVfVxtKHo0+zQsn46PzK+TGljbUMnvkWxaSEemSZZK4d9WiDg6rJwroeNW 9eOpxO+teC11lShU0CHBZ+gVON2KWK+8X8eq6Zh1kBN1H22Fmn4jnbWGjvwe 9ibr3lbUb/ys87yOjnvSUzeMWlsxknBerqOBDhn/KjaN2lak+XEzt7+i4/t0 SKZiaSueLmpee9ZMR7Gq9Zk9ua243b38mYlOx4PkUzPcya1YnOFUkmulQ3HF jucskQyu5LQg2EbHstFPyYUXrTAU2JHXyuCV5R3tE56tyPQbXCPdTocrd/qd bqdWmPj7RWsyuLKdO2fNvVbs8F+/VozBV3bpUfIsWrGu9fCXMoZ9vaT0hVij Vtzq/zXOzOCePmzf/LRbUblT0puVEf/Uh7GXTqdbYePY8rC+hQ5WlXI5S9IK h/b2i4cY+bfEB73RO9AK1J4qNmXU5/fH0l5VvBW/7M8fPsWo/5zBCe6Du1oR d1bg0UgtHRtK+Ep3czN47eLu/TQ6Ojd919u0vhVUzVP1clV0BN1tXVyxqhUJ V578niujY+tel8Mjs3T4Wz7M9aTS8dZL513bJB3r5IdMr+bSETEh6VI5QEew VdCeLxl08McMV0c0MvKY2X5VKJ6O4cXiq96VdIg9XM1Oj6QjXvcFkwPDj2K5 xQnhEDqEOJWPX4ylo4RPuH3OmxFHaszR8iUdGn+kKe2P6Ph13qPAnXF+LL6i 5rwjHa2B9btzbBhzUHnz8RFLOg5SzY3qLBjny3nHUkwY/rtZQvsNGXUfqlXN 06PDbtPpNSyqjL6rlaqnnGTkIztN+I/QUWcdqxdwmA61i74PZKQZcbpNOrcx cHtI26crfHTMr6wRZmdg49YLrSWM5zjHUS5Fe7oFUvLfmNsnW+DI7nBYcqgF kZeCj072t6Bn2jImsaMFd8J7cznrW5Dw0WzV1YIW8Gy7HHgzvAVvt08oc9m3 wEPxd7Pb8xZ0uPrzVJu3YMYgZmWoRws2h6tordRpQU3UiG3t7RZMG8icuCDT AsvtZrp8x1qQcixvgfljM3qOrn4hfZDx3rkjEXWjpxlKV1JfqYq3oEygztGE 1oxNcR8P2W1pwRit8fbGsGbGHFnxtX1qxm37yHXGpBkixzguTgw34/UfxRum Ys0IMMnzW3zdDN9y5X2LnM0wT/zvj3B1M7IfSWUPjDaBY7f9qGtQM+r4z7bc dmrCAxVu3pCnzRitv1azZNyEcbNSrSznZrR/dq/kOdWEkpSl2r7rzZj12ExZ taEJxqJuKVKHm3Eh42WWf9QrUPd6W45PNGGV2yw5HdeIHV3GZeL9TZDV80sz cG2En4MC6/32JqwpaOL9Y9gI8/rplDVlTbi+nq3kO08jeK6cHZPwbwIlwCEx 27cBLoFceg6HmqDDq5Ukb1iPafnPqTTJJuQVFXRry9VDd7hugU2oCSukYt8w sddDSvz+y+j1TTjT8Qvry+swXt/XXjP+Cn9rUqZ+cNZB7Vf0Sfbnr3Awv3dG OrMGRbH3g3U8XgF7MkXuOtVA8OS5iViHV8iO/lJ9XKMGy4H/3KWvvUK0S8bz 1BkacsWvVerKv0Jb1PVLdmI0bL4qKpsw1oiAcaH3+3mrMNJA2XnwYCOsf2qf u85dDGftRZVDEo2YCDDIPJFRBJ4x5ZuKgo2M/WX4rr9iEc7/7qAocTTirDDr rO3lQtBkZo+rvm+AwBlumZJQKuLj9prrhTYghnM2dNt0Dq49TMpw/FGP3Mc7 Ly74xeAvy+c255l6vFpOjP0eE4XIYJmvruP1SCh/fJw1NwLdeTWKj9vrQQap Fun0EJx4P0L3Ta3HBZ3bN5Z/+2K3Nv9stG49QvKMdI7+Z0CmJEJkUFwHBwot 0M4ynux1TZn9mMXoW3rBGw27BGLdUZTJlVCHk2nb21VcEsmve72C130ZfVaw Oazrl0zWlnBvWm9cBwsz1h0qMelE6ljkNwO2OpRVKoxMHs0n94My8578rUXQ zpF9v0vySflE+a3cb7U44iBziV+aQk54DU6sGK7FrdNbVl3YSSW6dP6edGot xmM6jJ/9V0CcdOIKf1yuxR2jmNPBuiWElpp3d6dWLZo1Vh/OqywhzL8goX6q FsezmG7L7Sol/pGjyTFSteCczzurPVVK4kd2haisroWx/Kl9pXrlZEpKRst6 qQbzk/GUpfxystfj+PrwuRpYHJWK0FpTQQp2m3p+7q9BHC9zH2duBWm8mXw/ KLcGJ1+YWSSMV5J1FYXSlUk1SPyEHO29VeQ8e8OXqfAaXD7oqV17p4r0506Z KzyuAZfww7D0b1VEgOnHLtMHNci7fHHvWplqck2LZdjPqga68f9Yf1tVk5lv Irqjl2oQI8/RazZcTaROynOtPVuDS8kSXxu4QO6HqrbLHq+B4uP1Zb4qIOUf LvkYyddg4e5WkyxbkL+Hbpx6KlEDVtl4qW3xICd8Hqyk7KqBU+NHt7ZmEO9B 7+qBrTXw6ttcUT4PstE14+C+FTV4tLHLh52PRryKxZo4f9KQGe/pcGIPjSzN pul/Y8x93omOy7IHacRaVPTzm3EaOl/+FXh7jEbGr6Y6l76lQZ5polBSg0Z0 w4U5otppkBVKF5DSoZGWzuQ4l3oaxGiltwYNaUSJbbe0cTkN1Q/SysVNaYR6 LKn2eD4NR1W3K26/QSMijoIXhVNp2Ehv25N9i0YiqQlTa6JpiLe9N9hjRSMc n3c6TAfSkB3cUPDSmkY8hOJZ257SYGkdJD7FuP/j8o7IPBcabsqUdDYw7C2D Y8WDbGmQWn9EVYbhf7h1e5XdTRo0DluqizLiX1gdc+7SVRp27p/OSWDk13iU f1RBh2FP/3Al9iKNKNpH3eM/Q8NY4RHzbWdoJDd326p/yjS8r4if5FKmEcEP EcFjBxn5G41u95SlkdAdvCL1EjRoX+K9ay1MI2v1wktSBWm4p/lHv3ULjbgG cJ9+xkODvvs2p2hmGvnWFDpwi4MGvdcX95ZNgFis2Hr7HDMNJ6Zbt22pACm2 3bts8h2YZm0YVHsBEjspJiA6ChjnD7SdNwbx0hE9NkMHiOOX+D37QKwbhc0o JUBU7w/dzl/VRFd+91P7JMDgz8yp47RqIsq7q43JCShpZvnserKacPrsmG+4 DpzJieA8taqa/Fravsn3ArDrBqt+V1UVaXq3TX/LXiDg89nb0nuqSP5ZXueB LQCFR7R59UAlCa/mjotbATyOPWob87SS3IjfPLWnvxoChewh2/oryPmNm1jn 6qtxTGmL8CqXCnLIY6N4YX419iiHKhRtryBsZhz3lLyrYZTHbPtIp5xkirL+ uSBfjevUPQ2icaUkKJxlJ49QNUZ5Zisb95QSR7bVJ4Y4qmFxav/Oi5QSov55 xTOL91WI3hRx51JJMfmcu7zZOaQK5iEegvNxhUTi4JxEyrdK+Fx1TJQdyCPX 97m5lQ1VIo1rjXOYUy6JE9nQ3faqErXJnV+DuXMIF/d+hx9RlTD+8WEPv3Im +fnTukZVpRIy/BlHtuonk9qyWZ3p4Ao4W2S86XZ/QX5TXNP/ulagZ/lZRjbv M3Igk2OZ62YFrpe6W+3M8SDpkfviDx+tAM+DhuK23RbkuZP1tN9UOY4sJbWf X/kEekdnXfcfLIfIrvfugi8TEHTAtevEznK4533Rf7glCXRJjt16a8vh97lS rDEoGUoC+5rdh8vgklK3aOqcBqF/Vpu6vcrwhvlBgvbfbBj+/GP+/m4ZVruG F7GdyUXo3PPSJYMyqO8rDx/wzwPraI6R0P4yLAy/zvvwOx/H3x7Nl+ctQ0bU icXFFxQ4dbat1FhVBpVVpr6R26mYpX1Js+srRcbrYE5v0QKIlrksedeUQqRD 9aluUgGMKevPxmSVQtaY3beYpxCRGTFxlJBSSC1M77F8WojXCZJfG9xKQfzf ysjNFYI9skpl4GYpRia19d9qFuFU0NmwWe1SfBJ6aMDH+D66+Qx9WqlUCuZY P6G6pSKUelgd4RYrRQd9eTFUpRhfHf/4i3OVgiW2O/mqVzHEbZ+Pkd8leP4m IewDimF2a7vcxfcl2B3bJbA8X4xY0xyvG50l+LbZ4PkN3hL0XT7a71xegrn8 /ltMCiXgvNgmHphcgmf5/9JDNEugrmHkmuJfApEKJfofwxI8VvnSWfagBJ5t ZUIbTUpQqzajKWdagtivMhwDl0vAdPZze+7ZEgiu1D9twkAlremzew6VQL7s uZrPgRI463xqTRIsgeKZ8neHN5egXP/jGYH1Jfh74IyF8adiLBp9aAn/WYyQ grb17wuLceja+9ObxotBk+WarbYvhv31qabnrcVguV14YWxfMQotJ1VZS4oR 5P/+g+pQEb5aTzR6JBTDZIvB/H+PiiBlO37yj28xok9vd5zgL8Idh7F6B4af /pPHXgrnFiLXafTEV+Ni3EnlcW08UIgZt5Ha22eKcct6cLK/oAA3vIdoJjsZ +pnLLHUvqUj1e0ferS3GDdeJ0XcLFEwGDFbrLhQh3lK9979zFJhE9FeeaSlC TKpRfUFbHuJj3h5uLCwC//Y1qaoauRhO6CtXjitCRohgXU55Ngwy35QesCvC 3EtnEdObGQjP7ZHPv1LE2O9pyhuy0tBLfV2893QRVuUUJqqOpEC7oqtwh0AR RhXa9EoEE6HR2pbP1lQIlbmbo/7GwfDpbN3/hFoIxUCxXSePBaCph577N7oQ P9rvfl7c542TQ83Z3+4V4kWTUdoVeysozTakD/EVQu0cp26alg9x/lovqsdS iFHjvYFR5wJJ+Y+61O75AjAW/rpYixAi/68m+VVDAVoquN12XI8hUpzV8ZQ7 BbC2Hqa2b0sl1purdkgYFKDP5uuULD2NZPNUxqaqFID/nHqvk0UGmeav2L5r fwFilIT8P33JJHt2lUdH8Rag5++r0nrDbHJDuIxvK3MBTmtLlFym5pDUPaWR AbNUGLNVda3+kksmJUt41/VTYXrkSl3Q6nwiKFMc7llHRWDVTscQz3xifLCI mymXCmkN7X30hXwSp1gY6hhOhbfOdxMXHQoZVirYsuBBRX/2hgtMyRTCf4Ia fMeKCkGJO5cLRynEQJWyafoSFYcP2N9Ys45Kws/kB5kdp6JcI/O6vSCV9Grm bRyRoELcV7bWX4RKtlzMDdDnpuLnP7Opua1UQhXxLT+5igrHj4VOF35QyPlF i0npOQpG4q//3VZPIV/oKhwCgxQEnW88KuFOIT6xuw6tfUXB7wnmtU57KUT0 3l+TH1QKei9sld9Ql0/qTwz6jsdScDbFOZxZPZ+YbC0tavehoOuF+RS3Wx75 +zF4pNyeggZtd/Sp5pKointsadcokAxPV1s1l00O+Z+TfcmYy9ePlKce388i b4zFjdwUKRDW/LXf9l0GsZFlfXpLhAKlz+67+YXTyQaWqfxLXBTs4d636ff5 VJL9tmbgxN98xEW269aZJJP3Lk77+HvzcajpTF+LQjx5fF5Pj7U2Hy5VI9MD a6PJTqEDHt9z8qEpefGTvUsYMWiafdPqmY/Vr0fPi2zxI+1c11xcDuRj8P1/ FtcO2ePWlFLazV35UNNXMNo48QSspXxdOusZ9lfGHnP5+MOzPPO0YUsejqpU 8r2JDgftqlmMXGIeplKmUzdvjMESs8B/7I55+CcXZluQGQ9rzcDwqj15OAuJ DVOhyUj/rj4TsiIPEX9VAz7rpWI8glnZuj8XT5gjfrN+SwM/qX55ipIL8mE1 5yOTDOhOOnwQeJYLJ+PTQfXxmQh4Jn34p3EuPvGZNjrlZKFl32f/jkO5eE4V lw18kg3mnuTxNM5cvLctyz8ilAPy8MpB9485sDScSuR4mgNHAR4fPVoOtjGX n1zOyUFhXdeQVHgOXDPmZ8xDczB7w1ea7W4Oxm0mN0mQHIhxnPQcU81Bg0cM d35aNq4V/H1btiMH2sPddyc6shCtVyoR9DMbiXqblc+XZqL3zz13y45sxD9o Wtp1LQOcSeI9xxl28zpmzJIdaVBXmxLlc8vGSmfd399XpOLJl1inb7rZYPmV 6kX5k4TqIL0O+r5stM5ZaWs1JuCXPJdQMks2MiMOnP9Bi4XMEN3eeTgLLHA2 4E2KwG0Pz5aLxVlYPRHqLUmCMdb6697q61lo8m5qrSx9BH4basPQ0Swct14p bj9mAV3u27zFW7Lw7J9DxioLC9JiMkK73pCJd/p0BWfB54R5TcRmEpOJoVGu gQqRYKKUfeEG9/1M3HFL8fvwMII80GKvnNPIxCJvfyxxiCXUHw0bmnZnwr0o +QPNM4H4ZybWKi1moHyYy311RRK5dcXtflFbBgJeiJ8/FJ1C1LgMxSQSMyD2 RmfqvUAa2d14aDDRPgNB2/dm1imkEybHLf68ZzJAK3yYMDOZToYkvyoH7MiA 6WLPGpltGaR8rP0by/d0uJW47rr8Jp2EhmSlujSl49iu90ctNqcTm9Pe+t+j 09FV5EZr6kslmn/M2G/dSwdr3ww9TDCFSFCOYexkOqwW2VaVLyUSVnMBG71t 6ci6aljy+0Y8meRZ3t0xm4bAoyuSjn6NJDWtfX0n69IQdo8v9IVtMHGUCzwq ezsNW8ILslXSHxDdj1bzGcppkImsFl5XexGy0epJO7ekIXkLk+svm0fgPC+q G/YpFdaD/zqFe19gZhUzG0d1Kvg2jGsGZIeiqWS04klQKnp+FWvnNUcj5VaV 9fL1VASUbrs/uyYBHjsid9kcToVhmKQ6k1gSrry27/m4IRUOAePP9+cnQ/Gp 9tOrkylYnfjhicqLFHAfllLsLU3BgNhLpwQGfp9l/6LxPAVJrEfO7xFOQWfi p7g6kxTY7bA0Z+9JQrZu4wXFgynwr5bts6Yn4NnapNWUtSlIeDG/o1A6Fter 3UpFR5LR9pBJry8xDMdtDG/FFiTjoaHApRtCARAQURDY4p2M/A2CWvRPblju 39Lla5iMNWM+6/dGKZO3z78+XimdDCv9BRPf5Uek8FjHwYerk3G1/U2l7/pA ErCQ9WmuPwl9oiGT4ZrhxCrDO/p6bhLY2ARKva7FEnUjc80hjyTIafNvaLdP ICIbj6+8eCkJ6af0lM6+TiQrGwSKWsST8JKDxatOPImMPFi2OMaUBNH9Bt5r bBJJpcTbbaU9iRCwPOGzLi2ehI8Wtu3LSMSWvtjY5dIoYhcc6J7ikgiVsoCc NbeCiZaatSz/hURM3L1box/xlOz7rf4+SCQRxcqbTn0SMyVr80Uj2JYTwKm3 vHk0zxnvTZk13DsSsDxu8ChQPgB13GN/fyQloD/Tg//ounDE06soVg8SMF9T ySr+LwbObpFmkxoJEKxit2urjYeerAP35V0JoJ6mSx3anoADH7RbuhYYP8ae g323/osDV5SUi1pLPKg2bSyqNZGYPbdeCrHxkPtRQR1ke4mWldPjB2zjwWzS OSz6wQNpxY0h2arxmJg7y8QbrEWeWCapCfHHI/mf9565dU8J7QjTT9mxOOjm HWbJSgsmD5PLDHf5xCHr7AruCOMoIsNuW8shG4ccpS3ytQ2xZMZWQuz3YCxk 07VnvFViScrg1PNPT2Lx/ot7fX1tBBlw3hoXIxsLlsdbN5ZpBxEOAdV8rfEY Rh+eZLBKPyLH4VCzOjAGG4x6vSxYrsHeOL27jMQgt7ZbaTbgGTJX9E9YzUbD tKAjX9UxBMOJbAu7YqLxuvBN7I0fkeBSUWTpPRON0LDJaopSNE5NWXL7LEVh MOslW+ZsOBy9osSUMqIgXFEu/vxaIHJFWxW+XorClSD5U1EsThhv+q2eyhKF a1ba++3t7Ai3paShQVEkPouph6yZf0E01l2x4jCLxP5vbDl9vmHEPdvftZYr Etk/dpQVckWSwrN4YV8TAYUzo99ZEEo+zs7F770bgerPMae2C/sR/oCd1GGB CBywtAyWZr9Kzktr1QW1heOnu+hIlY4nnnQ/6jnlHI6pDOuMLzrBKLWlTi3t DUe/w6eUUuFwzGye+JHbH4aRhWW1qoxg7CzexGrqHYb/NO5GeSh74uIlFV5u +TAIrF41Qn9oQZ79sttLnwqFmZmCzffX/qQ6IuWwW3AoLHYF5JtsDyVfFXs1 ZE+EQoHXvAh8wUTkHcuVD/+F4JOi3/Fsv8fEwEX+TlR8CPIFVymulrSFv8AN d03NEOgfdGkQ4wpELcIDV/0NRv2G4Uz36WD8MG5OLMkORnvHDr3Iel/sXblU cOtyMF4re1jJZ6uSK0l7G3asDUbLXZ7717KekyCVy72vS18iWtWxyiz1JWmc 8v3w1OIlFuTm4/5je0qWvCp/Hd76En087Pnt2jbYJ/aFbb4+CIG/01LXCgbi WvN2vmTbINSa75YjawIQanlOQk8wCN/JHY2Wq5dAX+d2lL0rEH926K+oeOhH mHLyztHcAuE5p7jVaVcAkTs3etVuXyBGNf3Hn6zWJzfmOO+JDQUgTES8x3jO D9EBxzze+Qbg2ollrvvdPuiUtnkZoBiASzldmpyc9whr6snTz7pfIM6QJ4a/ 5QW5+zH11n/7X2DcQOr5m3ob8nYvq7/+c394m0aNsaT4QNnqZn7N9HOE7Txm Wa/lgfS8lu49as9RoNK3xczLk3B+FV8ITPHD5Rc3dG72PSYP5Z5zL630A13U K5RT1BPj9rMK14x9cW6N+Nj3u65QL9M0bKnygez8ibHLrd6EupzvKsPng1eH AqxnV2iTbUpcCZEPnqFPh7rfytgbHu62dSt7vVF8qHZVxv1H5HNtz5SlrDe2 RnwsKF1jSi6uPsj6OuApfpM7Ql98nqBSNWzv4VkvmO+3Gck28iK7fX5pJJ3x gtOiHGWLtSv8WvXvrMvwRN98sxpv/03ynaMi0JbFE1EPnfxMo0RhpMVfOGj6 BOG+FR9WaZzFzLcFhfv1j2FbpGOXYn6SOId2gEP4MT4umtjl2OgRdoWMk+me Hlh/4l6K75X7iB70oB97/wj/1p3NcNV9RCRcDbUGTz1CpeTWRr/yh6jYebDP Ls0dUwu9x4WZrKBet8GIg9Udaxc7g59NO5FCeneDZpcrrncevq6g9ZD0cHp1 eQS5wFOtRtJKwZh801EYKtJ2hu9BPruCn8cJV9TMx4+bnaCw9aB1mK8FkRmN +87X+xClNr09rFkPiZawNpNm2AMYCjU4LlDkcdeShd1DzwFVr4Ul9/maIyCv jLuI1x7zsSMxW+N5Sd7320IfB+zw6+97B/3XdqRdYed+vmhbPDFojlwIsyWz rq8VzxnZQFs35H6EOCdZX+916pHAPUiuL5BzemRM9Ljskm/gDrRUI7TlBAxI WPRARfsxK6hmxe7fUqmLXpFjr+XqLWHlJcJUOHsTmylp05GnboDnJKm7eNsC 2oc5Vq5oNoeBP7OBSosJghrseC3OmOKNO9vX4r1a6NQclGprM4bRwoUs/U4t CBQ+Drgeb4ijbG458XnnSFTTecikXAJtrH7HxJFLhGdo++zfjAugUoU2Vghd gPjEG4VQozNoLjIxjW45BBH2u2H7LI6BT2vPn2fhSlBYvT9tdEoOK81MGiXj 9pL/AUT+Ic4= "]], Line[CompressedData[" 1:eJwVV3c4Fd4bV4jIyFcpUSiysxvoLUkissmKjBDKLHvL3nvvvce95j3X5t5L NplRqVRGJZT4+f1z3ud93nPe8Xk+57zn5XzyXMPiKBkZ2ZnD5f/yOuWV4ncf JeCouWmvUDY/eMQrEJ5JqAEhI6lCyPkW2vd2S8++og12zzzj6jPkwdemwnaM Xx9Sbokua8ppI3KdRVkqnsdg7MuBmTQzRl0coa8zGZ+AwGutTMk/jyEwievF 1ShzuCQ6ld26pQ4KJ9r0RmifAlmxolGzhxai8te+/SzUGiLblK/oe6tD//Ya HyWVLbwyD32XeeUGCrMLYcoOtAcDox9yTnT2qGgzxovN7wX4sPzXUqZ/FIIr 5h2+IAfo8aGs4otzQE+f8lti9h3B379geFnSARS5XuoHyDpDa34lbiPUCXjn u1TVPF3A1yJDfZ3OEY6nMN5hb3WFi5eol9p8ndGqhtHV1d2X8Oph6urabVcg 0JUJYK+5AeHNW+HMGmdU3v/7QuBLd8gp+j7/18QJRQTcYVbHeMDlS0GiPUlq yPZmDPX5LU8QYg/aezhxG6nszu2tinuDDVbZMv25PRJu4NvEOvpAmqzRhy1h HxRytdWxU88XtFWvnLgtYIV2Epa+8e74wkuVByeeP/EFqx9UT6OT/eD0qHzF y0k9NP1QeGlLyh9qWNjGTfVdkWKlloHhpD/E/Bte/TDgB800HhOdLgHQ/MEn H+8SgHKETo1VcwWC93K9yb9MfwhWqx7OeBMIIfEMvtfa/JCd0/2hUM8gcGaa zW0b8wetpPdEV75goP2X1vHANAhJN3sNmE0Gw5nXXgLV6cHANcfSpxbwGniG 16Jp3vmh4we13bIiIVD238GFiB4j2OB80Mk/HwI0ArLPBkJ8YEp+BbGEhYI4 TcdCrksowj31bae4GgbRDznz5SRcoCCMtXXzfRi0KrAoKST4Q3hlQ9NCTDgI q5oHmWeEIMdhVQxRNgIU63RfDl+2Q3o/P9c3rUbAV4OGDp+CCIDTAbWFyZEg uPgjbROnDTzX2avj5KOgDHN02Z4+Cp0wxFb4bEbBjx2O2iBaG/TTW73MNisa Oi2oMyi8I+H78NZYBXcMxHXiKdnH/cBkuVPjomcMMJoJZrOmBaHxn9EjqaMx 4NLP+WXpXDS6R2mkxsgXC7tYzKR8nzi0nOZ/E+wTC2L7T+X42GJAmHdb5d9E LOzNcg7eOh8Oede7SU6CcXAxoujHsIEdOqUcq7zqHwflNya3QpxjUYihMcHk bRzEu7Uaee5Eoj07gftTV+LhtG3MXsg7BXjus9OnEhwPx447Pvp8EA3LMT0K 3XPxUKyWFZDNHA86eXE9N8QTgGH9SQsNzhcG6h/L14YmwIkBDxoFGV8k0yPY dfldAgRMcEbgIuNRzeTu7SypRNAIPhEQpBuPLn7uxTNHJoJoyDeSiL0vStqN h/D3iXC1q6PGx9gLaGhNcUduJEH12mLCr4fx4MUmLPsqJgl4J+fkvKSTYEPo b+vaShLILqXrzYVGgTn037CQTQaK8rsD+RgjmFZLbJ6NT4baSSGJf7UhSPnJ k2saq8mQRfJ2pdpJRDinK9j+WynwaVc/j2IkGYkF7UlCcgrQcT9JxhfHosKk gYbG7ylgG7nuUWT6Ep0pSRIXlE+FOyofGZgYfSCi2awuLy0VDKtXT7kd4nZA EBE9u5kKSv0zNdlWqeA49686+l4a9NrsHMtmSoWV7wThY1lpkGPJ6/olNg4e HSRXev5Kg0CNuRjZKW8gMVoI/lRKB6neNhWWCCd0i0us3Do3HTIJ4k6+r2JQ vfgB37vtdLiDiSZzRSmI5y6pREc1A8oOPj5nVshAaTqplwcLMqCddLJ1PSMN 0VtZFt35mwGOvwXEH95PQH5u4twt6pnQ/uU0hSh7EPoVRlYgUpIJdPa9Jsc+ KYNVxiBX8X4mZCkWSo0YhsBsZVouu3YWqFHaJ6o3J4IqesqRUJ4FXqvXknJl M6BzWCKb5mg2yGT79KTsZYHk8pHzfnrZQBVzvkG8OxOEW3Q3RUqzQVsmULxD PRV44iq73+1mAxMVzSaVfBwwNB55oMidA5bDTnPlg/5Am1shmaOSA4VzxUfY +K4i6kjdCzsuOdBLv85wTywQUbgdPa6WlQPjvm2OVj/jEJlF5Y/i3hygrtP7 Ei2ehvbU9OYO1nIgu8StbFktG+3IkPfqsuQC15XX5kf3ctAv3qrqasiFtkn6 9W3KXLTB/CiVyioXJqVvuvvnZaNvZBQBj2NywfI/yeiif2no87cqW2xTLtQY W/hx+yegD9OPdBiWcuF5daiHk34oetdNcevp8TzweF3cef/yCzRfU82HRPPA NMPqX6mlE8xk6P/Hop8H0oZkBce+hMFkCOU/e/88wN17R6GgnAijzjUrvWV5 oBquWZy1lQ5DJgbD58fywDr8ZwZfbA4QHhxrcf2bB8yuuWNND/Kg91pt/tDF fFiM1Ljy7Hw+dF4yjOR5kA9fYxv58sjzAcdI9dLbOR9YqJLP8FHmQcterclk Rj54/papbJHMAcxnQyXhnnwwKr72wdEkHerGqSSCv+dDPD2dkbtAIlTh69gX ThUAk+yXZRXhCCirMKKSulkAK109GGuCGxSlUG9GWhbAaDRn310uXZT9wrhb FlsAD1oLzhUSYlCG4fGqxMUCKDpi7VfdkIxSFBuSv1MVgrbNqJjrm0yUIPHY 765IIbCd4Hme4pqLYjhonmXqFcK5ANrg1y75KOJEo9aWbyEEnkWhTdMFKGTn 8U2V0kLIC0pJn0stRIEfaHgLRwrhZKu10jK2EPkON578t1sIa1cLrkRJFSLP NpO/WlxFEJO1tbbNXoBeldB+rFAqgruWOsE/3fKQcwJmiMKpCPpyKdTsH+Wg F76mTYbpRZAixI0i0tORre2JvIauIphj1GCXH09EVnrY8BPfikD37pVyMdpo ZCpC97hNphjeP4wd8Yt4jIzZmhSZLYoP+2dB6COSE+hTm4nZRhaDf+jCgMLr 16Dzi46tu7EYboQQXdq14kDjXRMl20Ix7PpwCLoHpYAqyWzd6VgJLF7h+J5x LQuUmujfEoVLgArzzdC1LBcUCpo7L+qWwKg0zqdxOR/kYswrPHxKgE4Os4Fp K4SbngxJY8Ul4L+c+1RN7DCOVYuPwHAJlGRzXH8JJSClZWEdsFMC6RPvIgSW S0DsFqPmLEcpzMW8tzJgLQVhwVYZ8ful8H0Dex59KQH+M5Y84Q6lMIAGk2o0 S4CH4iTj+9RSkPpNWtg3LIaLG627NzpLIStu7w6iLQLPwTuBv76Xwg7D1I76 rQKYLCPSV50tAwGzx0by7HkgEqKZ+vRuGaQJjG81GGRDmMXsRU6HMqDm1ug9 uZcKH+TMqmYyyqAo0cTWUiIBZDm+XkvoL4MdmRjWNukI2Jj5o0LFUQ7Phde5 KQN1DvHxn8Yrl0M/89QS81lnVJBIY+b+shzw2t+ZH/cGo33HuO/i+eVQdal5 niE1Fumqsb76PlQOw33SQdQJyahGKO9o8Z9y+F5URrNzOxPR0PJHmvBUQNGl E2MP7uci88+1LKwaFUCeKL8w2JqPcD3X88a8KiDW51SCzo9CdCa/QzCytALW c6jpOz4VI0ff+1iFiQqgYmRBn5NLEclo5DbZkUoYVftEKDwoQ9zSj0jNgpUg I73t0sNWgbzPLOk46VUC2j1yjmytAk1vWS0JBlZCwCIj/XfHSiQ2tvFspboS mC2ihn+VV6KImle/s2cr4ROx6ufttEq0Eknm94iqChhExw5qoBLdehZC+594 FSiWPqtBWRUoTZExiWRcBW70XiSPlnL0kzuFIzisCmjG3eYcksrQA/JDMDFV UHUc8ztdqhQVvSuW3F2qAr81/3G17GJEhruCr6Orhv1YSgPxiUKkn45Vsr1e DRUW19q45vNRwyuY4Laohm62e6oCbbmIXqfv8WJMNaQI3jbbWMtCHYxTzhqf q+EWh+BB2ZVExHzH42GGcg1oTNw33tvjQB2iiNnNtAaO514ko/jiDPYc5DPa L2sgM2zm691zQdD/L8ycIb8GLKxq7TO3E8Dl2xDft6YaMDdSoVHeTwWuWab1 /qEaoAp6vKY7lwUeTWlu/n9q4MKN9EKFowXAW7xw8zFjLZyyvng1krMIxhO5 KGR4auHM6g2vLxwl4BdoOXBGphYYPEsr+fYP+e9UFrWlXgtrnTeRGbYcZk3X NEef1oK+p67aL6VKCFETO1vtVQthagqXvbBVIAmuC+HxteBg3Kv3/m81LAu1 5FuV1oIuJV1MUXgNRLPtW91FtUAj9as5mqIWZGjlhLkmamGUjq/Wy6oWvuwG /dxfrYUYStpsI2wtJH0eaJolqwNy63+jVzdr4c4UnXfT6TootAq6KnwoN3rU 7yQK1sF6Z0+bO08dZDQkUjvK1UEn2Z9WO646uJ//dlBVrw7YE+V0bWkO9wdV WfbY1YHqTMmRlcVaSLEKOJAOqIMuCSY51vxauKWsl1KXUgdu8pfF07Rq4bOQ kChfVR044E5oUmzVQAzjUUJ2Vx1k6kWwkgfVwLWfk09Ov62DCkOFTGXKGng3 Uf43Yq0OPgcbWV37XgUhTb4J5BT1EJozYulaXwki6dpC7mfrYXNmSO+rcQVM e/H3bgjXwyLleXeZzTLgvTO+Pf+oHpi86QTERophmLs0Rut5PdTiSHj5w3f7 FbU3HzGwHp4z98fTmhZA/+Blg6bqeig7MqBeUpUDL2r2fgr31IPMOEnpk18m nIkfiSicqYc3dqdXGqNTwUrPAxdH2QB6dNOaz51jgfr9EKedQQMs3DW/6VVw D+7tuHzmpGqEO9cZ1uNP5qC1GSW/FLZGSDjKmLV6kIuS2i+wMog1grgg+17c +3y04j+gvGfYCJglZXa+18UoyiLrg6NjI8xLPm0yu1uKpBSdvL68bjych6LC Q7fKUDAde/VkXSPwnp4ivuGtQsIbm/dU+htBhsWNvqasGk2O9r7rmm+Er1cV TP9F1iCelBdMtdQYqFZnH3P8WIuG3O+WXz6PgYbGY1PTAXXI1YhVPkscA+tL TGkXztajXq5ul3BjDJAbGOHR5QZkT5lKf9QZA+jsd7J3OQ3o9Ge74lehGIjW ztG3Z2xEOILcrfUsDLy4lHjC0LURWVayvLVowIA43ahf9mgjoo/55jA3gIGP KQR2CW4Mwjh20GguYuDh41fUrPYYZKydlD/wCwO576/+0a7EoGPXnsncosEC FWsi1eYyBlWx3prAXMDCfWYRux16LNL5x2wvJImFJ+cWDbxEsWh/8cuxAiUs 0FiK9CQoYVFRJy6b1QQLSqU2vLr6WKRaGH8t1gULfeu8Ju9MsOj3a6sRqvBD /y/LXzw0xqIsG1kb7xwsXOv9pdOrgUV3VZjItxqx0NnfN219E4uiTI9v7g5g 4VjHY4m0i1g07UK2uD+PBVO+OBrTI1jEGbZNIv+BhQq+4NWlKQyyyVproT7W BOqbYbu3izGovu5jCR1rEyjSjowXP8egvd65JCbhJvCU+OYkLYpBd2fHAlnk mmDbgesEz7dGFLVOcGTTaYLq+xG/YnMa0RR5pwmnTRNYih8PL1NtRBxnmlV5 vJsgIYWGNeN3A6q/VcwvUtQEX5NWNJBEA9rTyjoj2dIET9+/UlMh1iMF68Rj N4aaoMIlENka1qPp2IDlO7+bIKLTU+n88zrEWeQ+rEjTDD9PXXZg3KxFNi0O OJXzzZAUSLmtaV+L9pYfp+kqNMMNeoJ5rEEN4pSQ0XiW1AyWfK78dicqkM3k r444qRb4GicoIBeRi+pXv1YnK7WAQYl3hN7lHLS3v5yZYdwCFLTkLd+9MlHU 5RG3ouAWCH0zk6pMSEb1rypFWyZbQJJHje3boxC0x2qZu+TaCu/5HSXDm4Ph 7hWj6JWwVrg9Xn6zMSECou5oeX3NagW9EKUaM8lY4LSVe7TV2woZZpvHPxxJ BoX28yePs7SBXLD2l2/iuRD9eMpXBNsGPoynVe4cq4DgbzKwQmqDfT/XqSGb SvB2y/uXvtwG6cGWs6KEKrCPt3Onom+H71JqihZtNaDaR+68YN4ONdq/bKwU 60FBy1oswb0dkFVU5MD7eri5NLRxP6YdQgrEpP55NIDw31S7xtZ2cKPcosrL awT6KyJPI5hw4LacgPXqO+RRWyK3HC8O9meETKgVm2Bf8e/7bVkcsB7YqVP3 NMHak14TM2scFHRKSN5vaIaVdYELZ31wsCfrle/J0wILnrHzQwk4iLC+okiT 2AJDSYb6N/A4oKxu4+F82gq9FzvPbEzgYEaBMTaP0Aq4mstThV9xkOPOGWrP 3wZVhB+aJ1kQxGUTSucX2qBIV4+pTxBBQNI6u7d4O2R9aB/2lENQupxSaRbY DlH7ISqf7RDoLDXTH7DiIDh8jTYrAEEhZ0ctxgQH3me0CJqpCKyfe9Ng83Dg WtgccrwawdWa8ntHl3BgL3bhHupGEOoWxZR+DoElCqR0mUFA0sOEBWogMH6w 2sW/geC8MfF2ZxCCy/X6HEQ6PEh+vjihtIQg3y3yoPAMHmyFRVzeUODhwi38 gu9FPJTeVxwXZMFD+rGf7QbCePA6mfcQfxkPLIPcmVLX8RDSIDoXIYWH+Hg9 z5PyeLhuI5OWeAcPDPrhBt9U8SCrEDw2fyjDOXA3+h7h4ei90F0rPTxQfdo4 m2d+GL+0Mf+GCR4CKi/uej7Hg39wa6SOJR4OnHSmdd3x0N45n4i3wYPHjVCs WBAe3O+ptnra4WGbrC2JLgYPt8Pj2aLt8eDUt+byOQ0PGOPtrb+H9vVITu2u Qjyg7f3svmd4eKalJZFVgwcakW+Rv5/i4RPr6//cWvFgtHrvQeQTPJgtNf/Q 7MXDbLSLT4wBHhaLv40Ij+AhO+HhMoUmHgzsL9Qen8MD6yZJfl0RD1MSGjEf VvAg4lkdpiWLB82/gc/R5qFklC67LoKHNx1Y1bS9Q1zMt8ryOfGgHLIq5ELV AbJ+9gXJJ/HQp8pOp8bUAZ6Yk+2sZHhgFl467cjWAe68ntn7cwhM6Ao5Eng6 QOONva8OFsEfoqDE9I0OkLhTvz1ujkChfEP2j/yhferY7xPXEMSHNdxje9gB IvosXr+pEQjelzEwMesA33cSfkcKcPCKl8zC364DNoCmR8IeBz1U3fYFLztA 6FUmm6wUDox7lf0/h3eAstTsygZqh5g7BqUvGjpg1Sz777uWNpjjulAfh+uA Mb3C1ibnNuA7+r6tob8DWOZVcioF26ATbzO8M9cB0+G3V5iSW2FL1n3bl7IT GFX/HenTaQH9a6l3Y3U6wc666UJWKBaKWIwe1pt0Qmr5tJMrHxZ+/uZ4NGHT CTfrF0R2+zAQ0Vhie9anE/Sffh29cOSwL4o1xecWd0LydBT3nHkDXBKaWqrd 6YTHU3JqYrs18J3zlPdoWhe8YwrrqjyVD9c8ch06CrrgVxtbpubFPPAfF7Ko qeqC/UmxQAmRXDj9WuFBVGcXuPEyrVREZ8HNby9ZlVa74EtUxypmMQmiMTOY juvdkO71Kq7EzAtElXPWa6a7gZdw7UxEbzLyLBB8n73cDYTj5+ttG1JR77+m yahv3TBbUL/qmJuO9GtG2m3JeiAoqmmt8VU28j9FHsHL2wPfteS0FCLz0dii BW/Oyx4Qs9FXOWAoRy7OAqbRp3tBbTRqO6rpsP/TrLfpcPZCoHZ/d4VII2rK rjtzXrAXpixOW3GVNKI9wvXhitu90Bx5oog2EYP8ORWBYNsLVza3WpIsm1DU kDk7ZVcv5N5fXO5baUUi5rxupMFe8Iwbv2Sh2YZGdr+Ox0/3wkaaCoU0akPM 3E4RXGu9MEwYRWEJ7SjNw+8vnO2DxD9dW/GSCBXxZr11f94HH3cX/nDydiBF nKmknHsf7GeHu6/qdqAvmtyxx4P6YOL0JXWF1x1I0KdCMSWtDxwCjUMwHzpQ 3UQLtrGnD3TfRs88T+tEOP+pxI1z/RBFWDah3exCJmfSN7E8/aBZwDSycrYb HakyVvER7YdKfTOCulw3kn/7kYL+Xj/8fvF6dyK2GxGu/HIScOyHmYA//okC PWjqcNC37O+HmwoOiWv3e5FSuMW082g/kGMvhHtb96K26y3GAXP9wPmUtrIi pBflJJk9y9noB+scs9H3Pb3ISg0TOHNmAKgUpXPw0n1oZp+G9gvXAIQ1l32U 1+tDDyofx24LDsDCtuVdK+c+JEpzPIv59gBE9fOsR5T3oT9dBlhV6wFg/9EY qXGqH9k61sgaOQ0ATaPDjXHhfrTAQdn9zGsAvJ8RzH/f60edXlXDIbED8FWo 9Si7Wz8Kv3pktbN5ACQ/XLbenexHbOVFbFdpCMBYwhZ90W8ART36m3eXmQBq melP+xMGEBm1Gp/WeQLIpjdknCwZQB/MdyUdxAjQZ6JxM25wAFWef/CwXJ8A 9z5O+GsxExDHYM5EszkBsvn5DS9xE1Ccx5ZBvz0BHkzXrKVJEpDrdJbVR38C VPxc8vbSJqCbcZt+F8oJsJ3ySZIzloBqbilQCzcS4Kt0R9uVbALiWk+LkkEE uPD2WsynCgI69kA+/dEYAU7/99xZq4+A3lAmN8T/JcA8o22z4A4ByTV8vZFH SYQl/NDlaHIianhyq6OGgQiBkiG5mfRElIK+DA5eJMKP0V8c+ItEZOIm84nq ARFeUj1Q41YiIn7z/ok1HSKQxt6gck0i+qmq1T1hSoSMrJz1UUMiCr5km5v/ kgg9Y0LPKe2JSI1hJzrMnwixr/KrT7oS0dk/Ad4OkUR4l0SKxXsRUcWbdAPI JwJ5SgAndQQRubZcVuKpIoKJlHhXbhzxsPHWX6NrJsKp0qG1xRQioo6By7+6 iFAWoXShK4uIRt2Jp2aHiDD989sb5QIiyrDQpeh8SwR7SUVP91IislR7/6Pk AxHKxyRzHlYR0S733zeuf4jgdtEZ1jFE1Mn4GmdESYIW0er6lhYiivjLVCnP SILjI/dihXFEpLOSlS5wjgTXH4hpK3cQEccIfxgTDwlmX0d6nuwmotVWzKtd ERLUx2YF+vUSUX2R3NN30qTD/whpNb2fiDxjh7T7FEggwpguaEogIgVPffkq dRJ0NpT0jRCJiPHpiliiIQnmbpdcXyMR0Vt1R07PpySwpjYmww4SUZ7MPoOZ IwkMq9NTBYeIyPZy2P59LxJ06MsEPDzUpZhOfxcJIYHkJw5pjkP9YC93liWe BC+uC0L24fn+T0KE/UwSROUC3eCh/7jR5qaPJYf5qV+9WHYY37D9bjGpngRF n1f2pQ7z4y4ZSazHkUCM7vR558P81+KMAtMGSPDzvNe+6WF9TV5fHP3GSaC4 3cF+5LB+fysXU6tFEvC2O++qH+KjrHlE7eEqCfwIJxi0D/Fjvhl5U2qLBHT5 H2dpWologfesEDvZIDzZk553whJRyX+F5yhoB2Fskj8mpp6IHPZFaL6eGgSK 4hIH02oiohhX/NQkMAgeFWb1nEVENIQbn8iWGoQ7NrgTTLlElFxq0h18exCk f8wHN6Uf8tPnVa6W7iCYxycM8sUQ0S9rihjpJ4PwXbw1diuUiNq1Yry57AYh /Avewi3gkJ/8JQYb/oPg/+AEf7kLEbGeklCaihyEUzeoGPUP+fv+AF3DpQxC lM29zU7LQ35OTJ2KqDrM7xx3VLcOEd3Cm1E4NQ/CLVM9WWNVIjpevv7jUfcg SETtDNXfPeSjL9Xw5ZlBsMe5eiWIE1GXwNWwLsoh4O8cEr1+goiMr2jlbzIM Ae8bI+R4lIh2xBzaLrAOQTKLE4/z4X0VvFG+5iE8BHpkI0eH3xNQguIFTQnd IfCK8HjxG0tAlhZUbIUlQyAbWnpSXYeAyKwvSY7VDUF2jdyYxH0CSrO9rXqk fQhSLas1V6QJaMjJw9doZAgm/2s8qOcgoKv+6x9O/RkChXHxXfLPA4g6e6oy WPkNwBuPoz12Aygv71dvg/Yb4Ov98bfKaADJFJ18t/z4DWRNRCnaqgygF5XK TOD8BmapNCWeCA6gt63IdTvjDRiLn6yT/9yPyqaLwWrtUJ+a/SOk1494jrd9 LlAcBk+hDGMSax/60Sdsk6cyDJHrf08IHOtDuODcr9kaw7Bw8NDLarMX6VC8 XkszHIbbXznafft6UdCB+q+YF8MwdElfV9ixF33Y+nTgmTIMTq/d+5o7elDe 8n8s2p+HgXI7XcdYuRuxtz27SxkyAk/T26SETncg5rN//thHjoDs7zM3Vnbw 6IRrSM103Ai8p//cFzqLR3tXCs9VZI4AH27QJzYHj2byFzY16keg+YiDRBkf HiWFq2flLIxAgsi1P89e4BC9wdVtaclRYHcbbEqNaUFkf46WOi6PwqPA6I4F nzq0rd5u3MM9DgcjWrqc4cFoVuLxOe7ACdjRNngbm1MBL3QZT3LNTYLRi84p 8lIcnE34oEfBPg0DVTvp1Um9UGWQU/zz1Vv4pXrxv/HdQdCV9VHsb58BtZCj rSTRUag1tuO6sTcL5tZcYmZsh35p7pA3a89D/DnvaRuqadAYkZZiT1kAdFxV PDpkBmikaTvaMhcAJ9n/XjF+BjoKZpQN8xfgNzIr3c+cAZFXbqbpVQvgQCbq Zlw/A/QXsBFnexaAQTbm4fr8DAzYir0/9WMB5iY9/uqIzcItar4Y+geLcFbd 2v3e9CzsOOywVqkvwrFKNt3g5Vmonu0rVNFdhFSyOceOb7NwvtqyNeLJIkQc 7bYVPDIHe9oFKzRui2BRxhU9wTcH2PwLslRFi2DcGtjo4j4H9nTrfUXlixBV JMrpFjgHPC9xGgq1i6DiSbH0KmoOEpSMrILaFiEX9+SJXd4cOG6mxZOPLcKc 2kYMP2EO+A1szudPL4KQemsn4/gcLHVfL5VbWASi9HXNn/NzoJYyjfP7sgin U+ITKzfngPpoyX3O9UU4RWJSCvo7B+jZy3H8r0X4ZBv25BHlPLhOKDw2+bMI So3K7/gY5kEYTq8eHCxC81Bx9+8z8/A/EQv92A== "]]}, "Charting`Private`Tag$9000#1"], {}}, {{}, {}}, {{}, {}}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-0.5, 0.5}, {-0.2172336115264555, 0.4546486778701638}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> { Automatic, Automatic}}], $CellContext`start$$, $CellContext`end$$, \ $CellContext`xrange$$, $CellContext`yrange$$}, TagBox[ DynamicBox[ToBoxes[ Show[$CellContext`start$$; $CellContext`image$$, Epilog -> If[ ValueQ[$CellContext`start$$], { Opacity[0], EdgeForm[ Directive[Black, Dashed]], Rectangle[$CellContext`start$$, MousePosition["Graphics"]]}, {}]], StandardForm], ImageSizeCache->{360., {109., 114.}}], EventHandlerTag[{ "MouseDown" :> ($CellContext`start$$ = MousePosition["Graphics"]), "MouseUp" :> ($CellContext`end$$ = MousePosition["Graphics"]; If[ And[ MatchQ[$CellContext`start$$, { Blank[Real], Blank[Real]}], MatchQ[$CellContext`end$$, { Blank[Real], Blank[Real]}]], $CellContext`xrange$$ = Prepend[ Sort[{ Part[$CellContext`start$$, 1], Part[$CellContext`end$$, 1]}], $CellContext`x]; $CellContext`yrange$$ = Sort[{ Part[$CellContext`start$$, 2], Part[$CellContext`end$$, 2]}]; $CellContext`image$$ = If[ Or[ Part[$CellContext`start$$, 1] === Part[$CellContext`end$$, 1], Part[$CellContext`start$$, 2] === Part[$CellContext`end$$, 2]], Plot[$CellContext`x Sin[$CellContext`x^(-1)], {$CellContext`x, -0.5, 0.5}, PlotPoints -> 100], Plot[$CellContext`x Sin[$CellContext`x^(-1)], Evaluate[$CellContext`xrange$$], PlotRange -> Evaluate[$CellContext`yrange$$], PlotPoints -> 100]]]; Unset[$CellContext`start$$]), Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]], "Output", CellLabel->"Out[15]=", CellID->1309160503] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->776923543], Cell["All options for Plot are supported.", "Text", CellID->1648349020], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"DragZoomPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["DragZoomPlot"], BoxID -> "DragZoomPlot"], "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], " ", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "Yellow"}]}], "]"}]], "Input", CellLabel->"In[32]:=", CellID->1654789190], Cell[BoxData[ DynamicModuleBox[{$CellContext`image$$ = Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJwVV3c8Vf8fVkmUJA1EKjIKZZWofFSKpCQRoggpRYUoO0VCQvbee91rz+ea 4dqJkE1DwrdSofG7v3/O83o+53nP1/uc8z67rt25YL6SiYmJj3H5P+4jW6f/ /RtBWXta/Q+eIXJnUch7cWkEg2qDS3KcQyS/QFrk28IIUtRuaN1dM0RkxM5e e/95BAOOrZeHF94R+Y1PBlr7RmD9ypIe1v2OKE/81xKRNwKd0DMn3HzfkQtP 27Jkr45A8Nmaf7zLg8Sh44mVRfUwcspC/pzuGiA9Peuma0yGUFFZ6aix8y3Z TruzWZ7/HWJK3tkfN3tDim7Vr94wNICawJn76S7dxNhPer7fox+/dXrEUiTb ya8gJ2+Qt+BUKbxrr/+KJHEM84aP9UK+7VDHl0/VJFpd2ub1szeIK3zlZi6Z QzxumzzYc7oHst4F+lSNe3Balelg86UbY+9Uq+YXKTBx79jdm94FZUu3KEtT GnT745SGkrogkz2XQXGlQV3mrt5kbBcGZngefIigQW6S0+9rcBcMFL4FCXTS wKp24RvHoy6Y/dhqXXS4Brkb3tSo6ndhUfaKgMGGWizHDlwpY+vCmOPjDq60 Osz/zHxAY+4C24tnM+2ow+R5p6BX/zrhJSYrY/u2Du0r+RvfLHSiqKxL05at HonXjSS/jnXik93X22cs66G2b3R5b3knLD2Mp0REGxBSNRUebdkJ2gd3gz7f Rlx5EOkqb94JJe2w7fOJjRCT1TTrvtqJSr/upxNljShPL93PqtOJDit80/vQ iOGXvo22pBMf1/u72Cm/gqil9Hf1zZ0ojBm5t+PzK8zvft8/xdEJjbmF7NJ/ r1A2Egl3tk6oJR4YE9nchLBM1q1WfzpQ6GJe5n6kCaPuuSdUujvwR541e4dv E2wkl2K/OnVg+yGqbNGOZjAnmVqK3euAtNRh37vSzQjlaTtw5XoHbNlsSpaO N6NiVXxr8/kOsHnPfH9oztAPnFyKF+5AkYlhJU86Q6+Z19C7rQM0D5odKW2G WANPIDtnBzg+mdZLNzXjbP5n0QdL7bg/b+Xh8IGh9wrU0exoRznbdKeTUAvE fi/t9Kxvx/6UrJhv0i0ov2c2U17Wjh+ratJllVswYij/WCS5HQKcIQ1rDRl6 2aH8Pw/acY3ryBa2QIZ+RIw9W7Adyv22CZNzLXA+siInkqcdOTefZC0stuBo RP/ZZxzt2Fzps61zFR20Cz4vri+1oTeMThnZSserhs9cu7rb8Er0odtVRTq8 BesLNjS1YVD9uhXlOB3qbtEX/1a1wSg/or1ZnY72Q2dDBzPa4H77pZWGAR09 Wbm8oY/a4HdQIsXfno5Q1qflTxzaYM17tJjNhY5L5lcv21q1QbejUFHtMR0D Apwx5/XbcPGx8jaOF3REO308SjTbINnPWxAcTMeVt7RhyZNtEKj8oDgUQcdY 4L2d66Tb8ClKJJCaREfi7OmaRZE2/LPli1ZKp8PsjOC1j/xtcB7fsME3mw6R 9KWVfVxtKHo0+zQsn46PzK+TGljbUMnvkWxaSEemSZZK4d9WiDg6rJwroeNW 9eOpxO+teC11lShU0CHBZ+gVON2KWK+8X8eq6Zh1kBN1H22Fmn4jnbWGjvwe 9ibr3lbUb/ys87yOjnvSUzeMWlsxknBerqOBDhn/KjaN2lak+XEzt7+i4/t0 SKZiaSueLmpee9ZMR7Gq9Zk9ua243b38mYlOx4PkUzPcya1YnOFUkmulQ3HF jucskQyu5LQg2EbHstFPyYUXrTAU2JHXyuCV5R3tE56tyPQbXCPdTocrd/qd bqdWmPj7RWsyuLKdO2fNvVbs8F+/VozBV3bpUfIsWrGu9fCXMoZ9vaT0hVij Vtzq/zXOzOCePmzf/LRbUblT0puVEf/Uh7GXTqdbYePY8rC+hQ5WlXI5S9IK h/b2i4cY+bfEB73RO9AK1J4qNmXU5/fH0l5VvBW/7M8fPsWo/5zBCe6Du1oR d1bg0UgtHRtK+Ep3czN47eLu/TQ6Ojd919u0vhVUzVP1clV0BN1tXVyxqhUJ V578niujY+tel8Mjs3T4Wz7M9aTS8dZL513bJB3r5IdMr+bSETEh6VI5QEew VdCeLxl08McMV0c0MvKY2X5VKJ6O4cXiq96VdIg9XM1Oj6QjXvcFkwPDj2K5 xQnhEDqEOJWPX4ylo4RPuH3OmxFHaszR8iUdGn+kKe2P6Ph13qPAnXF+LL6i 5rwjHa2B9btzbBhzUHnz8RFLOg5SzY3qLBjny3nHUkwY/rtZQvsNGXUfqlXN 06PDbtPpNSyqjL6rlaqnnGTkIztN+I/QUWcdqxdwmA61i74PZKQZcbpNOrcx cHtI26crfHTMr6wRZmdg49YLrSWM5zjHUS5Fe7oFUvLfmNsnW+DI7nBYcqgF kZeCj072t6Bn2jImsaMFd8J7cznrW5Dw0WzV1YIW8Gy7HHgzvAVvt08oc9m3 wEPxd7Pb8xZ0uPrzVJu3YMYgZmWoRws2h6tordRpQU3UiG3t7RZMG8icuCDT AsvtZrp8x1qQcixvgfljM3qOrn4hfZDx3rkjEXWjpxlKV1JfqYq3oEygztGE 1oxNcR8P2W1pwRit8fbGsGbGHFnxtX1qxm37yHXGpBkixzguTgw34/UfxRum Ys0IMMnzW3zdDN9y5X2LnM0wT/zvj3B1M7IfSWUPjDaBY7f9qGtQM+r4z7bc dmrCAxVu3pCnzRitv1azZNyEcbNSrSznZrR/dq/kOdWEkpSl2r7rzZj12ExZ taEJxqJuKVKHm3Eh42WWf9QrUPd6W45PNGGV2yw5HdeIHV3GZeL9TZDV80sz cG2En4MC6/32JqwpaOL9Y9gI8/rplDVlTbi+nq3kO08jeK6cHZPwbwIlwCEx 27cBLoFceg6HmqDDq5Ukb1iPafnPqTTJJuQVFXRry9VDd7hugU2oCSukYt8w sddDSvz+y+j1TTjT8Qvry+swXt/XXjP+Cn9rUqZ+cNZB7Vf0Sfbnr3Awv3dG OrMGRbH3g3U8XgF7MkXuOtVA8OS5iViHV8iO/lJ9XKMGy4H/3KWvvUK0S8bz 1BkacsWvVerKv0Jb1PVLdmI0bL4qKpsw1oiAcaH3+3mrMNJA2XnwYCOsf2qf u85dDGftRZVDEo2YCDDIPJFRBJ4x5ZuKgo2M/WX4rr9iEc7/7qAocTTirDDr rO3lQtBkZo+rvm+AwBlumZJQKuLj9prrhTYghnM2dNt0Dq49TMpw/FGP3Mc7 Ly74xeAvy+c255l6vFpOjP0eE4XIYJmvruP1SCh/fJw1NwLdeTWKj9vrQQap Fun0EJx4P0L3Ta3HBZ3bN5Z/+2K3Nv9stG49QvKMdI7+Z0CmJEJkUFwHBwot 0M4ynux1TZn9mMXoW3rBGw27BGLdUZTJlVCHk2nb21VcEsmve72C130ZfVaw Oazrl0zWlnBvWm9cBwsz1h0qMelE6ljkNwO2OpRVKoxMHs0n94My8578rUXQ zpF9v0vySflE+a3cb7U44iBziV+aQk54DU6sGK7FrdNbVl3YSSW6dP6edGot xmM6jJ/9V0CcdOIKf1yuxR2jmNPBuiWElpp3d6dWLZo1Vh/OqywhzL8goX6q FsezmG7L7Sol/pGjyTFSteCczzurPVVK4kd2haisroWx/Kl9pXrlZEpKRst6 qQbzk/GUpfxystfj+PrwuRpYHJWK0FpTQQp2m3p+7q9BHC9zH2duBWm8mXw/ KLcGJ1+YWSSMV5J1FYXSlUk1SPyEHO29VeQ8e8OXqfAaXD7oqV17p4r0506Z KzyuAZfww7D0b1VEgOnHLtMHNci7fHHvWplqck2LZdjPqga68f9Yf1tVk5lv Irqjl2oQI8/RazZcTaROynOtPVuDS8kSXxu4QO6HqrbLHq+B4uP1Zb4qIOUf LvkYyddg4e5WkyxbkL+Hbpx6KlEDVtl4qW3xICd8Hqyk7KqBU+NHt7ZmEO9B 7+qBrTXw6ttcUT4PstE14+C+FTV4tLHLh52PRryKxZo4f9KQGe/pcGIPjSzN pul/Y8x93omOy7IHacRaVPTzm3EaOl/+FXh7jEbGr6Y6l76lQZ5polBSg0Z0 w4U5otppkBVKF5DSoZGWzuQ4l3oaxGiltwYNaUSJbbe0cTkN1Q/SysVNaYR6 LKn2eD4NR1W3K26/QSMijoIXhVNp2Ehv25N9i0YiqQlTa6JpiLe9N9hjRSMc n3c6TAfSkB3cUPDSmkY8hOJZ257SYGkdJD7FuP/j8o7IPBcabsqUdDYw7C2D Y8WDbGmQWn9EVYbhf7h1e5XdTRo0DluqizLiX1gdc+7SVRp27p/OSWDk13iU f1RBh2FP/3Al9iKNKNpH3eM/Q8NY4RHzbWdoJDd326p/yjS8r4if5FKmEcEP EcFjBxn5G41u95SlkdAdvCL1EjRoX+K9ay1MI2v1wktSBWm4p/lHv3ULjbgG cJ9+xkODvvs2p2hmGvnWFDpwi4MGvdcX95ZNgFis2Hr7HDMNJ6Zbt22pACm2 3bts8h2YZm0YVHsBEjspJiA6ChjnD7SdNwbx0hE9NkMHiOOX+D37QKwbhc0o JUBU7w/dzl/VRFd+91P7JMDgz8yp47RqIsq7q43JCShpZvnserKacPrsmG+4 DpzJieA8taqa/Fravsn3ArDrBqt+V1UVaXq3TX/LXiDg89nb0nuqSP5ZXueB LQCFR7R59UAlCa/mjotbATyOPWob87SS3IjfPLWnvxoChewh2/oryPmNm1jn 6qtxTGmL8CqXCnLIY6N4YX419iiHKhRtryBsZhz3lLyrYZTHbPtIp5xkirL+ uSBfjevUPQ2icaUkKJxlJ49QNUZ5Zisb95QSR7bVJ4Y4qmFxav/Oi5QSov55 xTOL91WI3hRx51JJMfmcu7zZOaQK5iEegvNxhUTi4JxEyrdK+Fx1TJQdyCPX 97m5lQ1VIo1rjXOYUy6JE9nQ3faqErXJnV+DuXMIF/d+hx9RlTD+8WEPv3Im +fnTukZVpRIy/BlHtuonk9qyWZ3p4Ao4W2S86XZ/QX5TXNP/ulagZ/lZRjbv M3Igk2OZ62YFrpe6W+3M8SDpkfviDx+tAM+DhuK23RbkuZP1tN9UOY4sJbWf X/kEekdnXfcfLIfIrvfugi8TEHTAtevEznK4533Rf7glCXRJjt16a8vh97lS rDEoGUoC+5rdh8vgklK3aOqcBqF/Vpu6vcrwhvlBgvbfbBj+/GP+/m4ZVruG F7GdyUXo3PPSJYMyqO8rDx/wzwPraI6R0P4yLAy/zvvwOx/H3x7Nl+ctQ0bU icXFFxQ4dbat1FhVBpVVpr6R26mYpX1Js+srRcbrYE5v0QKIlrksedeUQqRD 9aluUgGMKevPxmSVQtaY3beYpxCRGTFxlJBSSC1M77F8WojXCZJfG9xKQfzf ysjNFYI9skpl4GYpRia19d9qFuFU0NmwWe1SfBJ6aMDH+D66+Qx9WqlUCuZY P6G6pSKUelgd4RYrRQd9eTFUpRhfHf/4i3OVgiW2O/mqVzHEbZ+Pkd8leP4m IewDimF2a7vcxfcl2B3bJbA8X4xY0xyvG50l+LbZ4PkN3hL0XT7a71xegrn8 /ltMCiXgvNgmHphcgmf5/9JDNEugrmHkmuJfApEKJfofwxI8VvnSWfagBJ5t ZUIbTUpQqzajKWdagtivMhwDl0vAdPZze+7ZEgiu1D9twkAlremzew6VQL7s uZrPgRI463xqTRIsgeKZ8neHN5egXP/jGYH1Jfh74IyF8adiLBp9aAn/WYyQ grb17wuLceja+9ObxotBk+WarbYvhv31qabnrcVguV14YWxfMQotJ1VZS4oR 5P/+g+pQEb5aTzR6JBTDZIvB/H+PiiBlO37yj28xok9vd5zgL8Idh7F6B4af /pPHXgrnFiLXafTEV+Ni3EnlcW08UIgZt5Ha22eKcct6cLK/oAA3vIdoJjsZ +pnLLHUvqUj1e0ferS3GDdeJ0XcLFEwGDFbrLhQh3lK9979zFJhE9FeeaSlC TKpRfUFbHuJj3h5uLCwC//Y1qaoauRhO6CtXjitCRohgXU55Ngwy35QesCvC 3EtnEdObGQjP7ZHPv1LE2O9pyhuy0tBLfV2893QRVuUUJqqOpEC7oqtwh0AR RhXa9EoEE6HR2pbP1lQIlbmbo/7GwfDpbN3/hFoIxUCxXSePBaCph577N7oQ P9rvfl7c542TQ83Z3+4V4kWTUdoVeysozTakD/EVQu0cp26alg9x/lovqsdS iFHjvYFR5wJJ+Y+61O75AjAW/rpYixAi/68m+VVDAVoquN12XI8hUpzV8ZQ7 BbC2Hqa2b0sl1purdkgYFKDP5uuULD2NZPNUxqaqFID/nHqvk0UGmeav2L5r fwFilIT8P33JJHt2lUdH8Rag5++r0nrDbHJDuIxvK3MBTmtLlFym5pDUPaWR AbNUGLNVda3+kksmJUt41/VTYXrkSl3Q6nwiKFMc7llHRWDVTscQz3xifLCI mymXCmkN7X30hXwSp1gY6hhOhbfOdxMXHQoZVirYsuBBRX/2hgtMyRTCf4Ia fMeKCkGJO5cLRynEQJWyafoSFYcP2N9Ys45Kws/kB5kdp6JcI/O6vSCV9Grm bRyRoELcV7bWX4RKtlzMDdDnpuLnP7Opua1UQhXxLT+5igrHj4VOF35QyPlF i0npOQpG4q//3VZPIV/oKhwCgxQEnW88KuFOIT6xuw6tfUXB7wnmtU57KUT0 3l+TH1QKei9sld9Ql0/qTwz6jsdScDbFOZxZPZ+YbC0tavehoOuF+RS3Wx75 +zF4pNyeggZtd/Sp5pKointsadcokAxPV1s1l00O+Z+TfcmYy9ePlKce388i b4zFjdwUKRDW/LXf9l0GsZFlfXpLhAKlz+67+YXTyQaWqfxLXBTs4d636ff5 VJL9tmbgxN98xEW269aZJJP3Lk77+HvzcajpTF+LQjx5fF5Pj7U2Hy5VI9MD a6PJTqEDHt9z8qEpefGTvUsYMWiafdPqmY/Vr0fPi2zxI+1c11xcDuRj8P1/ FtcO2ePWlFLazV35UNNXMNo48QSspXxdOusZ9lfGHnP5+MOzPPO0YUsejqpU 8r2JDgftqlmMXGIeplKmUzdvjMESs8B/7I55+CcXZluQGQ9rzcDwqj15OAuJ DVOhyUj/rj4TsiIPEX9VAz7rpWI8glnZuj8XT5gjfrN+SwM/qX55ipIL8mE1 5yOTDOhOOnwQeJYLJ+PTQfXxmQh4Jn34p3EuPvGZNjrlZKFl32f/jkO5eE4V lw18kg3mnuTxNM5cvLctyz8ilAPy8MpB9485sDScSuR4mgNHAR4fPVoOtjGX n1zOyUFhXdeQVHgOXDPmZ8xDczB7w1ea7W4Oxm0mN0mQHIhxnPQcU81Bg0cM d35aNq4V/H1btiMH2sPddyc6shCtVyoR9DMbiXqblc+XZqL3zz13y45sxD9o Wtp1LQOcSeI9xxl28zpmzJIdaVBXmxLlc8vGSmfd399XpOLJl1inb7rZYPmV 6kX5k4TqIL0O+r5stM5ZaWs1JuCXPJdQMks2MiMOnP9Bi4XMEN3eeTgLLHA2 4E2KwG0Pz5aLxVlYPRHqLUmCMdb6697q61lo8m5qrSx9BH4basPQ0Swct14p bj9mAV3u27zFW7Lw7J9DxioLC9JiMkK73pCJd/p0BWfB54R5TcRmEpOJoVGu gQqRYKKUfeEG9/1M3HFL8fvwMII80GKvnNPIxCJvfyxxiCXUHw0bmnZnwr0o +QPNM4H4ZybWKi1moHyYy311RRK5dcXtflFbBgJeiJ8/FJ1C1LgMxSQSMyD2 RmfqvUAa2d14aDDRPgNB2/dm1imkEybHLf68ZzJAK3yYMDOZToYkvyoH7MiA 6WLPGpltGaR8rP0by/d0uJW47rr8Jp2EhmSlujSl49iu90ctNqcTm9Pe+t+j 09FV5EZr6kslmn/M2G/dSwdr3ww9TDCFSFCOYexkOqwW2VaVLyUSVnMBG71t 6ci6aljy+0Y8meRZ3t0xm4bAoyuSjn6NJDWtfX0n69IQdo8v9IVtMHGUCzwq ezsNW8ILslXSHxDdj1bzGcppkImsFl5XexGy0epJO7ekIXkLk+svm0fgPC+q G/YpFdaD/zqFe19gZhUzG0d1Kvg2jGsGZIeiqWS04klQKnp+FWvnNUcj5VaV 9fL1VASUbrs/uyYBHjsid9kcToVhmKQ6k1gSrry27/m4IRUOAePP9+cnQ/Gp 9tOrkylYnfjhicqLFHAfllLsLU3BgNhLpwQGfp9l/6LxPAVJrEfO7xFOQWfi p7g6kxTY7bA0Z+9JQrZu4wXFgynwr5bts6Yn4NnapNWUtSlIeDG/o1A6Fter 3UpFR5LR9pBJry8xDMdtDG/FFiTjoaHApRtCARAQURDY4p2M/A2CWvRPblju 39Lla5iMNWM+6/dGKZO3z78+XimdDCv9BRPf5Uek8FjHwYerk3G1/U2l7/pA ErCQ9WmuPwl9oiGT4ZrhxCrDO/p6bhLY2ARKva7FEnUjc80hjyTIafNvaLdP ICIbj6+8eCkJ6af0lM6+TiQrGwSKWsST8JKDxatOPImMPFi2OMaUBNH9Bt5r bBJJpcTbbaU9iRCwPOGzLi2ehI8Wtu3LSMSWvtjY5dIoYhcc6J7ikgiVsoCc NbeCiZaatSz/hURM3L1box/xlOz7rf4+SCQRxcqbTn0SMyVr80Uj2JYTwKm3 vHk0zxnvTZk13DsSsDxu8ChQPgB13GN/fyQloD/Tg//ounDE06soVg8SMF9T ySr+LwbObpFmkxoJEKxit2urjYeerAP35V0JoJ6mSx3anoADH7RbuhYYP8ae g323/osDV5SUi1pLPKg2bSyqNZGYPbdeCrHxkPtRQR1ke4mWldPjB2zjwWzS OSz6wQNpxY0h2arxmJg7y8QbrEWeWCapCfHHI/mf9565dU8J7QjTT9mxOOjm HWbJSgsmD5PLDHf5xCHr7AruCOMoIsNuW8shG4ccpS3ytQ2xZMZWQuz3YCxk 07VnvFViScrg1PNPT2Lx/ot7fX1tBBlw3hoXIxsLlsdbN5ZpBxEOAdV8rfEY Rh+eZLBKPyLH4VCzOjAGG4x6vSxYrsHeOL27jMQgt7ZbaTbgGTJX9E9YzUbD tKAjX9UxBMOJbAu7YqLxuvBN7I0fkeBSUWTpPRON0LDJaopSNE5NWXL7LEVh MOslW+ZsOBy9osSUMqIgXFEu/vxaIHJFWxW+XorClSD5U1EsThhv+q2eyhKF a1ba++3t7Ai3paShQVEkPouph6yZf0E01l2x4jCLxP5vbDl9vmHEPdvftZYr Etk/dpQVckWSwrN4YV8TAYUzo99ZEEo+zs7F770bgerPMae2C/sR/oCd1GGB CBywtAyWZr9Kzktr1QW1heOnu+hIlY4nnnQ/6jnlHI6pDOuMLzrBKLWlTi3t DUe/w6eUUuFwzGye+JHbH4aRhWW1qoxg7CzexGrqHYb/NO5GeSh74uIlFV5u +TAIrF41Qn9oQZ79sttLnwqFmZmCzffX/qQ6IuWwW3AoLHYF5JtsDyVfFXs1 ZE+EQoHXvAh8wUTkHcuVD/+F4JOi3/Fsv8fEwEX+TlR8CPIFVymulrSFv8AN d03NEOgfdGkQ4wpELcIDV/0NRv2G4Uz36WD8MG5OLMkORnvHDr3Iel/sXblU cOtyMF4re1jJZ6uSK0l7G3asDUbLXZ7717KekyCVy72vS18iWtWxyiz1JWmc 8v3w1OIlFuTm4/5je0qWvCp/Hd76En087Pnt2jbYJ/aFbb4+CIG/01LXCgbi WvN2vmTbINSa75YjawIQanlOQk8wCN/JHY2Wq5dAX+d2lL0rEH926K+oeOhH mHLyztHcAuE5p7jVaVcAkTs3etVuXyBGNf3Hn6zWJzfmOO+JDQUgTES8x3jO D9EBxzze+Qbg2ollrvvdPuiUtnkZoBiASzldmpyc9whr6snTz7pfIM6QJ4a/ 5QW5+zH11n/7X2DcQOr5m3ob8nYvq7/+c394m0aNsaT4QNnqZn7N9HOE7Txm Wa/lgfS8lu49as9RoNK3xczLk3B+FV8ITPHD5Rc3dG72PSYP5Z5zL630A13U K5RT1BPj9rMK14x9cW6N+Nj3u65QL9M0bKnygez8ibHLrd6EupzvKsPng1eH AqxnV2iTbUpcCZEPnqFPh7rfytgbHu62dSt7vVF8qHZVxv1H5HNtz5SlrDe2 RnwsKF1jSi6uPsj6OuApfpM7Ql98nqBSNWzv4VkvmO+3Gck28iK7fX5pJJ3x gtOiHGWLtSv8WvXvrMvwRN98sxpv/03ynaMi0JbFE1EPnfxMo0RhpMVfOGj6 BOG+FR9WaZzFzLcFhfv1j2FbpGOXYn6SOId2gEP4MT4umtjl2OgRdoWMk+me Hlh/4l6K75X7iB70oB97/wj/1p3NcNV9RCRcDbUGTz1CpeTWRr/yh6jYebDP Ls0dUwu9x4WZrKBet8GIg9Udaxc7g59NO5FCeneDZpcrrncevq6g9ZD0cHp1 eQS5wFOtRtJKwZh801EYKtJ2hu9BPruCn8cJV9TMx4+bnaCw9aB1mK8FkRmN +87X+xClNr09rFkPiZawNpNm2AMYCjU4LlDkcdeShd1DzwFVr4Ul9/maIyCv jLuI1x7zsSMxW+N5Sd7320IfB+zw6+97B/3XdqRdYed+vmhbPDFojlwIsyWz rq8VzxnZQFs35H6EOCdZX+916pHAPUiuL5BzemRM9Ljskm/gDrRUI7TlBAxI WPRARfsxK6hmxe7fUqmLXpFjr+XqLWHlJcJUOHsTmylp05GnboDnJKm7eNsC 2oc5Vq5oNoeBP7OBSosJghrseC3OmOKNO9vX4r1a6NQclGprM4bRwoUs/U4t CBQ+Drgeb4ijbG458XnnSFTTecikXAJtrH7HxJFLhGdo++zfjAugUoU2Vghd gPjEG4VQozNoLjIxjW45BBH2u2H7LI6BT2vPn2fhSlBYvT9tdEoOK81MGiXj 9pL/AUT+Ic4= "]], Line[CompressedData[" 1:eJwVV3c4Fd4bV4jIyFcpUSiysxvoLUkissmKjBDKLHvL3nvvvce95j3X5t5L NplRqVRGJZT4+f1z3ud93nPe8Xk+57zn5XzyXMPiKBkZ2ZnD5f/yOuWV4ncf JeCouWmvUDY/eMQrEJ5JqAEhI6lCyPkW2vd2S8++og12zzzj6jPkwdemwnaM Xx9Sbokua8ppI3KdRVkqnsdg7MuBmTQzRl0coa8zGZ+AwGutTMk/jyEwievF 1ShzuCQ6ld26pQ4KJ9r0RmifAlmxolGzhxai8te+/SzUGiLblK/oe6tD//Ya HyWVLbwyD32XeeUGCrMLYcoOtAcDox9yTnT2qGgzxovN7wX4sPzXUqZ/FIIr 5h2+IAfo8aGs4otzQE+f8lti9h3B379geFnSARS5XuoHyDpDa34lbiPUCXjn u1TVPF3A1yJDfZ3OEY6nMN5hb3WFi5eol9p8ndGqhtHV1d2X8Oph6urabVcg 0JUJYK+5AeHNW+HMGmdU3v/7QuBLd8gp+j7/18QJRQTcYVbHeMDlS0GiPUlq yPZmDPX5LU8QYg/aezhxG6nszu2tinuDDVbZMv25PRJu4NvEOvpAmqzRhy1h HxRytdWxU88XtFWvnLgtYIV2Epa+8e74wkuVByeeP/EFqx9UT6OT/eD0qHzF y0k9NP1QeGlLyh9qWNjGTfVdkWKlloHhpD/E/Bte/TDgB800HhOdLgHQ/MEn H+8SgHKETo1VcwWC93K9yb9MfwhWqx7OeBMIIfEMvtfa/JCd0/2hUM8gcGaa zW0b8wetpPdEV75goP2X1vHANAhJN3sNmE0Gw5nXXgLV6cHANcfSpxbwGniG 16Jp3vmh4we13bIiIVD238GFiB4j2OB80Mk/HwI0ArLPBkJ8YEp+BbGEhYI4 TcdCrksowj31bae4GgbRDznz5SRcoCCMtXXzfRi0KrAoKST4Q3hlQ9NCTDgI q5oHmWeEIMdhVQxRNgIU63RfDl+2Q3o/P9c3rUbAV4OGDp+CCIDTAbWFyZEg uPgjbROnDTzX2avj5KOgDHN02Z4+Cp0wxFb4bEbBjx2O2iBaG/TTW73MNisa Oi2oMyi8I+H78NZYBXcMxHXiKdnH/cBkuVPjomcMMJoJZrOmBaHxn9EjqaMx 4NLP+WXpXDS6R2mkxsgXC7tYzKR8nzi0nOZ/E+wTC2L7T+X42GJAmHdb5d9E LOzNcg7eOh8Oede7SU6CcXAxoujHsIEdOqUcq7zqHwflNya3QpxjUYihMcHk bRzEu7Uaee5Eoj07gftTV+LhtG3MXsg7BXjus9OnEhwPx447Pvp8EA3LMT0K 3XPxUKyWFZDNHA86eXE9N8QTgGH9SQsNzhcG6h/L14YmwIkBDxoFGV8k0yPY dfldAgRMcEbgIuNRzeTu7SypRNAIPhEQpBuPLn7uxTNHJoJoyDeSiL0vStqN h/D3iXC1q6PGx9gLaGhNcUduJEH12mLCr4fx4MUmLPsqJgl4J+fkvKSTYEPo b+vaShLILqXrzYVGgTn037CQTQaK8rsD+RgjmFZLbJ6NT4baSSGJf7UhSPnJ k2saq8mQRfJ2pdpJRDinK9j+WynwaVc/j2IkGYkF7UlCcgrQcT9JxhfHosKk gYbG7ylgG7nuUWT6Ep0pSRIXlE+FOyofGZgYfSCi2awuLy0VDKtXT7kd4nZA EBE9u5kKSv0zNdlWqeA49686+l4a9NrsHMtmSoWV7wThY1lpkGPJ6/olNg4e HSRXev5Kg0CNuRjZKW8gMVoI/lRKB6neNhWWCCd0i0us3Do3HTIJ4k6+r2JQ vfgB37vtdLiDiSZzRSmI5y6pREc1A8oOPj5nVshAaTqplwcLMqCddLJ1PSMN 0VtZFt35mwGOvwXEH95PQH5u4twt6pnQ/uU0hSh7EPoVRlYgUpIJdPa9Jsc+ KYNVxiBX8X4mZCkWSo0YhsBsZVouu3YWqFHaJ6o3J4IqesqRUJ4FXqvXknJl M6BzWCKb5mg2yGT79KTsZYHk8pHzfnrZQBVzvkG8OxOEW3Q3RUqzQVsmULxD PRV44iq73+1mAxMVzSaVfBwwNB55oMidA5bDTnPlg/5Am1shmaOSA4VzxUfY +K4i6kjdCzsuOdBLv85wTywQUbgdPa6WlQPjvm2OVj/jEJlF5Y/i3hygrtP7 Ei2ehvbU9OYO1nIgu8StbFktG+3IkPfqsuQC15XX5kf3ctAv3qrqasiFtkn6 9W3KXLTB/CiVyioXJqVvuvvnZaNvZBQBj2NywfI/yeiif2no87cqW2xTLtQY W/hx+yegD9OPdBiWcuF5daiHk34oetdNcevp8TzweF3cef/yCzRfU82HRPPA NMPqX6mlE8xk6P/Hop8H0oZkBce+hMFkCOU/e/88wN17R6GgnAijzjUrvWV5 oBquWZy1lQ5DJgbD58fywDr8ZwZfbA4QHhxrcf2bB8yuuWNND/Kg91pt/tDF fFiM1Ljy7Hw+dF4yjOR5kA9fYxv58sjzAcdI9dLbOR9YqJLP8FHmQcterclk Rj54/papbJHMAcxnQyXhnnwwKr72wdEkHerGqSSCv+dDPD2dkbtAIlTh69gX ThUAk+yXZRXhCCirMKKSulkAK109GGuCGxSlUG9GWhbAaDRn310uXZT9wrhb FlsAD1oLzhUSYlCG4fGqxMUCKDpi7VfdkIxSFBuSv1MVgrbNqJjrm0yUIPHY 765IIbCd4Hme4pqLYjhonmXqFcK5ANrg1y75KOJEo9aWbyEEnkWhTdMFKGTn 8U2V0kLIC0pJn0stRIEfaHgLRwrhZKu10jK2EPkON578t1sIa1cLrkRJFSLP NpO/WlxFEJO1tbbNXoBeldB+rFAqgruWOsE/3fKQcwJmiMKpCPpyKdTsH+Wg F76mTYbpRZAixI0i0tORre2JvIauIphj1GCXH09EVnrY8BPfikD37pVyMdpo ZCpC97hNphjeP4wd8Yt4jIzZmhSZLYoP+2dB6COSE+hTm4nZRhaDf+jCgMLr 16Dzi46tu7EYboQQXdq14kDjXRMl20Ix7PpwCLoHpYAqyWzd6VgJLF7h+J5x LQuUmujfEoVLgArzzdC1LBcUCpo7L+qWwKg0zqdxOR/kYswrPHxKgE4Os4Fp K4SbngxJY8Ul4L+c+1RN7DCOVYuPwHAJlGRzXH8JJSClZWEdsFMC6RPvIgSW S0DsFqPmLEcpzMW8tzJgLQVhwVYZ8ful8H0Dex59KQH+M5Y84Q6lMIAGk2o0 S4CH4iTj+9RSkPpNWtg3LIaLG627NzpLIStu7w6iLQLPwTuBv76Xwg7D1I76 rQKYLCPSV50tAwGzx0by7HkgEqKZ+vRuGaQJjG81GGRDmMXsRU6HMqDm1ug9 uZcKH+TMqmYyyqAo0cTWUiIBZDm+XkvoL4MdmRjWNukI2Jj5o0LFUQ7Phde5 KQN1DvHxn8Yrl0M/89QS81lnVJBIY+b+shzw2t+ZH/cGo33HuO/i+eVQdal5 niE1Fumqsb76PlQOw33SQdQJyahGKO9o8Z9y+F5URrNzOxPR0PJHmvBUQNGl E2MP7uci88+1LKwaFUCeKL8w2JqPcD3X88a8KiDW51SCzo9CdCa/QzCytALW c6jpOz4VI0ff+1iFiQqgYmRBn5NLEclo5DbZkUoYVftEKDwoQ9zSj0jNgpUg I73t0sNWgbzPLOk46VUC2j1yjmytAk1vWS0JBlZCwCIj/XfHSiQ2tvFspboS mC2ihn+VV6KImle/s2cr4ROx6ufttEq0Eknm94iqChhExw5qoBLdehZC+594 FSiWPqtBWRUoTZExiWRcBW70XiSPlnL0kzuFIzisCmjG3eYcksrQA/JDMDFV UHUc8ztdqhQVvSuW3F2qAr81/3G17GJEhruCr6Orhv1YSgPxiUKkn45Vsr1e DRUW19q45vNRwyuY4Laohm62e6oCbbmIXqfv8WJMNaQI3jbbWMtCHYxTzhqf q+EWh+BB2ZVExHzH42GGcg1oTNw33tvjQB2iiNnNtAaO514ko/jiDPYc5DPa L2sgM2zm691zQdD/L8ycIb8GLKxq7TO3E8Dl2xDft6YaMDdSoVHeTwWuWab1 /qEaoAp6vKY7lwUeTWlu/n9q4MKN9EKFowXAW7xw8zFjLZyyvng1krMIxhO5 KGR4auHM6g2vLxwl4BdoOXBGphYYPEsr+fYP+e9UFrWlXgtrnTeRGbYcZk3X NEef1oK+p67aL6VKCFETO1vtVQthagqXvbBVIAmuC+HxteBg3Kv3/m81LAu1 5FuV1oIuJV1MUXgNRLPtW91FtUAj9as5mqIWZGjlhLkmamGUjq/Wy6oWvuwG /dxfrYUYStpsI2wtJH0eaJolqwNy63+jVzdr4c4UnXfT6TootAq6KnwoN3rU 7yQK1sF6Z0+bO08dZDQkUjvK1UEn2Z9WO646uJ//dlBVrw7YE+V0bWkO9wdV WfbY1YHqTMmRlcVaSLEKOJAOqIMuCSY51vxauKWsl1KXUgdu8pfF07Rq4bOQ kChfVR044E5oUmzVQAzjUUJ2Vx1k6kWwkgfVwLWfk09Ov62DCkOFTGXKGng3 Uf43Yq0OPgcbWV37XgUhTb4J5BT1EJozYulaXwki6dpC7mfrYXNmSO+rcQVM e/H3bgjXwyLleXeZzTLgvTO+Pf+oHpi86QTERophmLs0Rut5PdTiSHj5w3f7 FbU3HzGwHp4z98fTmhZA/+Blg6bqeig7MqBeUpUDL2r2fgr31IPMOEnpk18m nIkfiSicqYc3dqdXGqNTwUrPAxdH2QB6dNOaz51jgfr9EKedQQMs3DW/6VVw D+7tuHzmpGqEO9cZ1uNP5qC1GSW/FLZGSDjKmLV6kIuS2i+wMog1grgg+17c +3y04j+gvGfYCJglZXa+18UoyiLrg6NjI8xLPm0yu1uKpBSdvL68bjych6LC Q7fKUDAde/VkXSPwnp4ivuGtQsIbm/dU+htBhsWNvqasGk2O9r7rmm+Er1cV TP9F1iCelBdMtdQYqFZnH3P8WIuG3O+WXz6PgYbGY1PTAXXI1YhVPkscA+tL TGkXztajXq5ul3BjDJAbGOHR5QZkT5lKf9QZA+jsd7J3OQ3o9Ge74lehGIjW ztG3Z2xEOILcrfUsDLy4lHjC0LURWVayvLVowIA43ahf9mgjoo/55jA3gIGP KQR2CW4Mwjh20GguYuDh41fUrPYYZKydlD/wCwO576/+0a7EoGPXnsncosEC FWsi1eYyBlWx3prAXMDCfWYRux16LNL5x2wvJImFJ+cWDbxEsWh/8cuxAiUs 0FiK9CQoYVFRJy6b1QQLSqU2vLr6WKRaGH8t1gULfeu8Ju9MsOj3a6sRqvBD /y/LXzw0xqIsG1kb7xwsXOv9pdOrgUV3VZjItxqx0NnfN219E4uiTI9v7g5g 4VjHY4m0i1g07UK2uD+PBVO+OBrTI1jEGbZNIv+BhQq+4NWlKQyyyVproT7W BOqbYbu3izGovu5jCR1rEyjSjowXP8egvd65JCbhJvCU+OYkLYpBd2fHAlnk mmDbgesEz7dGFLVOcGTTaYLq+xG/YnMa0RR5pwmnTRNYih8PL1NtRBxnmlV5 vJsgIYWGNeN3A6q/VcwvUtQEX5NWNJBEA9rTyjoj2dIET9+/UlMh1iMF68Rj N4aaoMIlENka1qPp2IDlO7+bIKLTU+n88zrEWeQ+rEjTDD9PXXZg3KxFNi0O OJXzzZAUSLmtaV+L9pYfp+kqNMMNeoJ5rEEN4pSQ0XiW1AyWfK78dicqkM3k r444qRb4GicoIBeRi+pXv1YnK7WAQYl3hN7lHLS3v5yZYdwCFLTkLd+9MlHU 5RG3ouAWCH0zk6pMSEb1rypFWyZbQJJHje3boxC0x2qZu+TaCu/5HSXDm4Ph 7hWj6JWwVrg9Xn6zMSECou5oeX3NagW9EKUaM8lY4LSVe7TV2woZZpvHPxxJ BoX28yePs7SBXLD2l2/iuRD9eMpXBNsGPoynVe4cq4DgbzKwQmqDfT/XqSGb SvB2y/uXvtwG6cGWs6KEKrCPt3Onom+H71JqihZtNaDaR+68YN4ONdq/bKwU 60FBy1oswb0dkFVU5MD7eri5NLRxP6YdQgrEpP55NIDw31S7xtZ2cKPcosrL awT6KyJPI5hw4LacgPXqO+RRWyK3HC8O9meETKgVm2Bf8e/7bVkcsB7YqVP3 NMHak14TM2scFHRKSN5vaIaVdYELZ31wsCfrle/J0wILnrHzQwk4iLC+okiT 2AJDSYb6N/A4oKxu4+F82gq9FzvPbEzgYEaBMTaP0Aq4mstThV9xkOPOGWrP 3wZVhB+aJ1kQxGUTSucX2qBIV4+pTxBBQNI6u7d4O2R9aB/2lENQupxSaRbY DlH7ISqf7RDoLDXTH7DiIDh8jTYrAEEhZ0ctxgQH3me0CJqpCKyfe9Ng83Dg WtgccrwawdWa8ntHl3BgL3bhHupGEOoWxZR+DoElCqR0mUFA0sOEBWogMH6w 2sW/geC8MfF2ZxCCy/X6HEQ6PEh+vjihtIQg3y3yoPAMHmyFRVzeUODhwi38 gu9FPJTeVxwXZMFD+rGf7QbCePA6mfcQfxkPLIPcmVLX8RDSIDoXIYWH+Hg9 z5PyeLhuI5OWeAcPDPrhBt9U8SCrEDw2fyjDOXA3+h7h4ei90F0rPTxQfdo4 m2d+GL+0Mf+GCR4CKi/uej7Hg39wa6SOJR4OnHSmdd3x0N45n4i3wYPHjVCs WBAe3O+ptnra4WGbrC2JLgYPt8Pj2aLt8eDUt+byOQ0PGOPtrb+H9vVITu2u Qjyg7f3svmd4eKalJZFVgwcakW+Rv5/i4RPr6//cWvFgtHrvQeQTPJgtNf/Q 7MXDbLSLT4wBHhaLv40Ij+AhO+HhMoUmHgzsL9Qen8MD6yZJfl0RD1MSGjEf VvAg4lkdpiWLB82/gc/R5qFklC67LoKHNx1Y1bS9Q1zMt8ryOfGgHLIq5ELV AbJ+9gXJJ/HQp8pOp8bUAZ6Yk+2sZHhgFl467cjWAe68ntn7cwhM6Ao5Eng6 QOONva8OFsEfoqDE9I0OkLhTvz1ujkChfEP2j/yhferY7xPXEMSHNdxje9gB IvosXr+pEQjelzEwMesA33cSfkcKcPCKl8zC364DNoCmR8IeBz1U3fYFLztA 6FUmm6wUDox7lf0/h3eAstTsygZqh5g7BqUvGjpg1Sz777uWNpjjulAfh+uA Mb3C1ibnNuA7+r6tob8DWOZVcioF26ATbzO8M9cB0+G3V5iSW2FL1n3bl7IT GFX/HenTaQH9a6l3Y3U6wc666UJWKBaKWIwe1pt0Qmr5tJMrHxZ+/uZ4NGHT CTfrF0R2+zAQ0Vhie9anE/Sffh29cOSwL4o1xecWd0LydBT3nHkDXBKaWqrd 6YTHU3JqYrs18J3zlPdoWhe8YwrrqjyVD9c8ch06CrrgVxtbpubFPPAfF7Ko qeqC/UmxQAmRXDj9WuFBVGcXuPEyrVREZ8HNby9ZlVa74EtUxypmMQmiMTOY juvdkO71Kq7EzAtElXPWa6a7gZdw7UxEbzLyLBB8n73cDYTj5+ttG1JR77+m yahv3TBbUL/qmJuO9GtG2m3JeiAoqmmt8VU28j9FHsHL2wPfteS0FCLz0dii BW/Oyx4Qs9FXOWAoRy7OAqbRp3tBbTRqO6rpsP/TrLfpcPZCoHZ/d4VII2rK rjtzXrAXpixOW3GVNKI9wvXhitu90Bx5oog2EYP8ORWBYNsLVza3WpIsm1DU kDk7ZVcv5N5fXO5baUUi5rxupMFe8Iwbv2Sh2YZGdr+Ox0/3wkaaCoU0akPM 3E4RXGu9MEwYRWEJ7SjNw+8vnO2DxD9dW/GSCBXxZr11f94HH3cX/nDydiBF nKmknHsf7GeHu6/qdqAvmtyxx4P6YOL0JXWF1x1I0KdCMSWtDxwCjUMwHzpQ 3UQLtrGnD3TfRs88T+tEOP+pxI1z/RBFWDah3exCJmfSN7E8/aBZwDSycrYb HakyVvER7YdKfTOCulw3kn/7kYL+Xj/8fvF6dyK2GxGu/HIScOyHmYA//okC PWjqcNC37O+HmwoOiWv3e5FSuMW082g/kGMvhHtb96K26y3GAXP9wPmUtrIi pBflJJk9y9noB+scs9H3Pb3ISg0TOHNmAKgUpXPw0n1oZp+G9gvXAIQ1l32U 1+tDDyofx24LDsDCtuVdK+c+JEpzPIv59gBE9fOsR5T3oT9dBlhV6wFg/9EY qXGqH9k61sgaOQ0ATaPDjXHhfrTAQdn9zGsAvJ8RzH/f60edXlXDIbED8FWo 9Si7Wz8Kv3pktbN5ACQ/XLbenexHbOVFbFdpCMBYwhZ90W8ART36m3eXmQBq melP+xMGEBm1Gp/WeQLIpjdknCwZQB/MdyUdxAjQZ6JxM25wAFWef/CwXJ8A 9z5O+GsxExDHYM5EszkBsvn5DS9xE1Ccx5ZBvz0BHkzXrKVJEpDrdJbVR38C VPxc8vbSJqCbcZt+F8oJsJ3ySZIzloBqbilQCzcS4Kt0R9uVbALiWk+LkkEE uPD2WsynCgI69kA+/dEYAU7/99xZq4+A3lAmN8T/JcA8o22z4A4ByTV8vZFH SYQl/NDlaHIianhyq6OGgQiBkiG5mfRElIK+DA5eJMKP0V8c+ItEZOIm84nq ARFeUj1Q41YiIn7z/ok1HSKQxt6gck0i+qmq1T1hSoSMrJz1UUMiCr5km5v/ kgg9Y0LPKe2JSI1hJzrMnwixr/KrT7oS0dk/Ad4OkUR4l0SKxXsRUcWbdAPI JwJ5SgAndQQRubZcVuKpIoKJlHhXbhzxsPHWX6NrJsKp0qG1xRQioo6By7+6 iFAWoXShK4uIRt2Jp2aHiDD989sb5QIiyrDQpeh8SwR7SUVP91IislR7/6Pk AxHKxyRzHlYR0S733zeuf4jgdtEZ1jFE1Mn4GmdESYIW0er6lhYiivjLVCnP SILjI/dihXFEpLOSlS5wjgTXH4hpK3cQEccIfxgTDwlmX0d6nuwmotVWzKtd ERLUx2YF+vUSUX2R3NN30qTD/whpNb2fiDxjh7T7FEggwpguaEogIgVPffkq dRJ0NpT0jRCJiPHpiliiIQnmbpdcXyMR0Vt1R07PpySwpjYmww4SUZ7MPoOZ IwkMq9NTBYeIyPZy2P59LxJ06MsEPDzUpZhOfxcJIYHkJw5pjkP9YC93liWe BC+uC0L24fn+T0KE/UwSROUC3eCh/7jR5qaPJYf5qV+9WHYY37D9bjGpngRF n1f2pQ7z4y4ZSazHkUCM7vR558P81+KMAtMGSPDzvNe+6WF9TV5fHP3GSaC4 3cF+5LB+fysXU6tFEvC2O++qH+KjrHlE7eEqCfwIJxi0D/Fjvhl5U2qLBHT5 H2dpWologfesEDvZIDzZk553whJRyX+F5yhoB2Fskj8mpp6IHPZFaL6eGgSK 4hIH02oiohhX/NQkMAgeFWb1nEVENIQbn8iWGoQ7NrgTTLlElFxq0h18exCk f8wHN6Uf8tPnVa6W7iCYxycM8sUQ0S9rihjpJ4PwXbw1diuUiNq1Yry57AYh /Avewi3gkJ/8JQYb/oPg/+AEf7kLEbGeklCaihyEUzeoGPUP+fv+AF3DpQxC lM29zU7LQ35OTJ2KqDrM7xx3VLcOEd3Cm1E4NQ/CLVM9WWNVIjpevv7jUfcg SETtDNXfPeSjL9Xw5ZlBsMe5eiWIE1GXwNWwLsoh4O8cEr1+goiMr2jlbzIM Ae8bI+R4lIh2xBzaLrAOQTKLE4/z4X0VvFG+5iE8BHpkI0eH3xNQguIFTQnd IfCK8HjxG0tAlhZUbIUlQyAbWnpSXYeAyKwvSY7VDUF2jdyYxH0CSrO9rXqk fQhSLas1V6QJaMjJw9doZAgm/2s8qOcgoKv+6x9O/RkChXHxXfLPA4g6e6oy WPkNwBuPoz12Aygv71dvg/Yb4Ov98bfKaADJFJ18t/z4DWRNRCnaqgygF5XK TOD8BmapNCWeCA6gt63IdTvjDRiLn6yT/9yPyqaLwWrtUJ+a/SOk1494jrd9 LlAcBk+hDGMSax/60Sdsk6cyDJHrf08IHOtDuODcr9kaw7Bw8NDLarMX6VC8 XkszHIbbXznafft6UdCB+q+YF8MwdElfV9ixF33Y+nTgmTIMTq/d+5o7elDe 8n8s2p+HgXI7XcdYuRuxtz27SxkyAk/T26SETncg5rN//thHjoDs7zM3Vnbw 6IRrSM103Ai8p//cFzqLR3tXCs9VZI4AH27QJzYHj2byFzY16keg+YiDRBkf HiWFq2flLIxAgsi1P89e4BC9wdVtaclRYHcbbEqNaUFkf46WOi6PwqPA6I4F nzq0rd5u3MM9DgcjWrqc4cFoVuLxOe7ACdjRNngbm1MBL3QZT3LNTYLRi84p 8lIcnE34oEfBPg0DVTvp1Um9UGWQU/zz1Vv4pXrxv/HdQdCV9VHsb58BtZCj rSTRUag1tuO6sTcL5tZcYmZsh35p7pA3a89D/DnvaRuqadAYkZZiT1kAdFxV PDpkBmikaTvaMhcAJ9n/XjF+BjoKZpQN8xfgNzIr3c+cAZFXbqbpVQvgQCbq Zlw/A/QXsBFnexaAQTbm4fr8DAzYir0/9WMB5iY9/uqIzcItar4Y+geLcFbd 2v3e9CzsOOywVqkvwrFKNt3g5Vmonu0rVNFdhFSyOceOb7NwvtqyNeLJIkQc 7bYVPDIHe9oFKzRui2BRxhU9wTcH2PwLslRFi2DcGtjo4j4H9nTrfUXlixBV JMrpFjgHPC9xGgq1i6DiSbH0KmoOEpSMrILaFiEX9+SJXd4cOG6mxZOPLcKc 2kYMP2EO+A1szudPL4KQemsn4/gcLHVfL5VbWASi9HXNn/NzoJYyjfP7sgin U+ITKzfngPpoyX3O9UU4RWJSCvo7B+jZy3H8r0X4ZBv25BHlPLhOKDw2+bMI So3K7/gY5kEYTq8eHCxC81Bx9+8z8/A/EQv92A== "]]}, "Charting`Private`Tag$16059#1"], {}}, {{}, {}}, {{}, {}}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> RGBColor[1, 1, 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, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-0.5, 0.5}, {-0.2172336115264555, 0.4546486778701638}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> { Automatic, Automatic}}], $CellContext`start$$, $CellContext`end$$, \ $CellContext`xrange$$, $CellContext`yrange$$}, TagBox[ DynamicBox[ToBoxes[ Show[$CellContext`start$$; $CellContext`image$$, Epilog -> If[ ValueQ[$CellContext`start$$], { Opacity[0], EdgeForm[ Directive[Black, Dashed]], Rectangle[$CellContext`start$$, MousePosition["Graphics"]]}, {}]], StandardForm], ImageSizeCache->{360., {109., 114.}}], EventHandlerTag[{ "MouseDown" :> ($CellContext`start$$ = MousePosition["Graphics"]), "MouseUp" :> ($CellContext`end$$ = MousePosition["Graphics"]; If[ And[ MatchQ[$CellContext`start$$, { Blank[Real], Blank[Real]}], MatchQ[$CellContext`end$$, { Blank[Real], Blank[Real]}]], $CellContext`xrange$$ = Prepend[ Sort[{ Part[$CellContext`start$$, 1], Part[$CellContext`end$$, 1]}], $CellContext`x]; $CellContext`yrange$$ = Sort[{ Part[$CellContext`start$$, 2], Part[$CellContext`end$$, 2]}]; $CellContext`image$$ = If[ Or[ Part[$CellContext`start$$, 1] === Part[$CellContext`end$$, 1], Part[$CellContext`start$$, 2] === Part[$CellContext`end$$, 2]], Plot[$CellContext`x Sin[$CellContext`x^(-1)], {$CellContext`x, -0.5, 0.5}, Background -> RGBColor[1, 1, 0]], Plot[$CellContext`x Sin[$CellContext`x^(-1)], Evaluate[$CellContext`xrange$$], PlotRange -> Evaluate[$CellContext`yrange$$], Background -> RGBColor[1, 1, 0]]]]; Unset[$CellContext`start$$]), Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]], "Output", CellLabel->"Out[32]=", CellID->750545919] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell["\<\ You cannot use the mouse to resize the result of DragZoomPlot, so it is is \ necessary to use ImageSize to control the size.\ \>", "Text", CellID->1202170188], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"DragZoomPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["DragZoomPlot"], BoxID -> "DragZoomPlot"], "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], " ", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}]], "Input", CellLabel->"In[28]:=", CellID->1073458783], Cell[BoxData[ DynamicModuleBox[{$CellContext`image$$ = Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJwVV3c8Vf8fVkmUJA1EKjIKZZWofFSKpCQRoggpRYUoO0VCQvbee91rz+ea 4dqJkE1DwrdSofG7v3/O83o+53nP1/uc8z67rt25YL6SiYmJj3H5P+4jW6f/ /RtBWXta/Q+eIXJnUch7cWkEg2qDS3KcQyS/QFrk28IIUtRuaN1dM0RkxM5e e/95BAOOrZeHF94R+Y1PBlr7RmD9ypIe1v2OKE/81xKRNwKd0DMn3HzfkQtP 27Jkr45A8Nmaf7zLg8Sh44mVRfUwcspC/pzuGiA9Peuma0yGUFFZ6aix8y3Z TruzWZ7/HWJK3tkfN3tDim7Vr94wNICawJn76S7dxNhPer7fox+/dXrEUiTb ya8gJ2+Qt+BUKbxrr/+KJHEM84aP9UK+7VDHl0/VJFpd2ub1szeIK3zlZi6Z QzxumzzYc7oHst4F+lSNe3Balelg86UbY+9Uq+YXKTBx79jdm94FZUu3KEtT GnT745SGkrogkz2XQXGlQV3mrt5kbBcGZngefIigQW6S0+9rcBcMFL4FCXTS wKp24RvHoy6Y/dhqXXS4Brkb3tSo6ndhUfaKgMGGWizHDlwpY+vCmOPjDq60 Osz/zHxAY+4C24tnM+2ow+R5p6BX/zrhJSYrY/u2Du0r+RvfLHSiqKxL05at HonXjSS/jnXik93X22cs66G2b3R5b3knLD2Mp0REGxBSNRUebdkJ2gd3gz7f Rlx5EOkqb94JJe2w7fOJjRCT1TTrvtqJSr/upxNljShPL93PqtOJDit80/vQ iOGXvo22pBMf1/u72Cm/gqil9Hf1zZ0ojBm5t+PzK8zvft8/xdEJjbmF7NJ/ r1A2Egl3tk6oJR4YE9nchLBM1q1WfzpQ6GJe5n6kCaPuuSdUujvwR541e4dv E2wkl2K/OnVg+yGqbNGOZjAnmVqK3euAtNRh37vSzQjlaTtw5XoHbNlsSpaO N6NiVXxr8/kOsHnPfH9oztAPnFyKF+5AkYlhJU86Q6+Z19C7rQM0D5odKW2G WANPIDtnBzg+mdZLNzXjbP5n0QdL7bg/b+Xh8IGh9wrU0exoRznbdKeTUAvE fi/t9Kxvx/6UrJhv0i0ov2c2U17Wjh+ratJllVswYij/WCS5HQKcIQ1rDRl6 2aH8Pw/acY3ryBa2QIZ+RIw9W7Adyv22CZNzLXA+siInkqcdOTefZC0stuBo RP/ZZxzt2Fzps61zFR20Cz4vri+1oTeMThnZSserhs9cu7rb8Er0odtVRTq8 BesLNjS1YVD9uhXlOB3qbtEX/1a1wSg/or1ZnY72Q2dDBzPa4H77pZWGAR09 Wbm8oY/a4HdQIsXfno5Q1qflTxzaYM17tJjNhY5L5lcv21q1QbejUFHtMR0D Apwx5/XbcPGx8jaOF3REO308SjTbINnPWxAcTMeVt7RhyZNtEKj8oDgUQcdY 4L2d66Tb8ClKJJCaREfi7OmaRZE2/LPli1ZKp8PsjOC1j/xtcB7fsME3mw6R 9KWVfVxtKHo0+zQsn46PzK+TGljbUMnvkWxaSEemSZZK4d9WiDg6rJwroeNW 9eOpxO+teC11lShU0CHBZ+gVON2KWK+8X8eq6Zh1kBN1H22Fmn4jnbWGjvwe 9ibr3lbUb/ys87yOjnvSUzeMWlsxknBerqOBDhn/KjaN2lak+XEzt7+i4/t0 SKZiaSueLmpee9ZMR7Gq9Zk9ua243b38mYlOx4PkUzPcya1YnOFUkmulQ3HF jucskQyu5LQg2EbHstFPyYUXrTAU2JHXyuCV5R3tE56tyPQbXCPdTocrd/qd bqdWmPj7RWsyuLKdO2fNvVbs8F+/VozBV3bpUfIsWrGu9fCXMoZ9vaT0hVij Vtzq/zXOzOCePmzf/LRbUblT0puVEf/Uh7GXTqdbYePY8rC+hQ5WlXI5S9IK h/b2i4cY+bfEB73RO9AK1J4qNmXU5/fH0l5VvBW/7M8fPsWo/5zBCe6Du1oR d1bg0UgtHRtK+Ep3czN47eLu/TQ6Ojd919u0vhVUzVP1clV0BN1tXVyxqhUJ V578niujY+tel8Mjs3T4Wz7M9aTS8dZL513bJB3r5IdMr+bSETEh6VI5QEew VdCeLxl08McMV0c0MvKY2X5VKJ6O4cXiq96VdIg9XM1Oj6QjXvcFkwPDj2K5 xQnhEDqEOJWPX4ylo4RPuH3OmxFHaszR8iUdGn+kKe2P6Ph13qPAnXF+LL6i 5rwjHa2B9btzbBhzUHnz8RFLOg5SzY3qLBjny3nHUkwY/rtZQvsNGXUfqlXN 06PDbtPpNSyqjL6rlaqnnGTkIztN+I/QUWcdqxdwmA61i74PZKQZcbpNOrcx cHtI26crfHTMr6wRZmdg49YLrSWM5zjHUS5Fe7oFUvLfmNsnW+DI7nBYcqgF kZeCj072t6Bn2jImsaMFd8J7cznrW5Dw0WzV1YIW8Gy7HHgzvAVvt08oc9m3 wEPxd7Pb8xZ0uPrzVJu3YMYgZmWoRws2h6tordRpQU3UiG3t7RZMG8icuCDT AsvtZrp8x1qQcixvgfljM3qOrn4hfZDx3rkjEXWjpxlKV1JfqYq3oEygztGE 1oxNcR8P2W1pwRit8fbGsGbGHFnxtX1qxm37yHXGpBkixzguTgw34/UfxRum Ys0IMMnzW3zdDN9y5X2LnM0wT/zvj3B1M7IfSWUPjDaBY7f9qGtQM+r4z7bc dmrCAxVu3pCnzRitv1azZNyEcbNSrSznZrR/dq/kOdWEkpSl2r7rzZj12ExZ taEJxqJuKVKHm3Eh42WWf9QrUPd6W45PNGGV2yw5HdeIHV3GZeL9TZDV80sz cG2En4MC6/32JqwpaOL9Y9gI8/rplDVlTbi+nq3kO08jeK6cHZPwbwIlwCEx 27cBLoFceg6HmqDDq5Ukb1iPafnPqTTJJuQVFXRry9VDd7hugU2oCSukYt8w sddDSvz+y+j1TTjT8Qvry+swXt/XXjP+Cn9rUqZ+cNZB7Vf0Sfbnr3Awv3dG OrMGRbH3g3U8XgF7MkXuOtVA8OS5iViHV8iO/lJ9XKMGy4H/3KWvvUK0S8bz 1BkacsWvVerKv0Jb1PVLdmI0bL4qKpsw1oiAcaH3+3mrMNJA2XnwYCOsf2qf u85dDGftRZVDEo2YCDDIPJFRBJ4x5ZuKgo2M/WX4rr9iEc7/7qAocTTirDDr rO3lQtBkZo+rvm+AwBlumZJQKuLj9prrhTYghnM2dNt0Dq49TMpw/FGP3Mc7 Ly74xeAvy+c255l6vFpOjP0eE4XIYJmvruP1SCh/fJw1NwLdeTWKj9vrQQap Fun0EJx4P0L3Ta3HBZ3bN5Z/+2K3Nv9stG49QvKMdI7+Z0CmJEJkUFwHBwot 0M4ynux1TZn9mMXoW3rBGw27BGLdUZTJlVCHk2nb21VcEsmve72C130ZfVaw Oazrl0zWlnBvWm9cBwsz1h0qMelE6ljkNwO2OpRVKoxMHs0n94My8578rUXQ zpF9v0vySflE+a3cb7U44iBziV+aQk54DU6sGK7FrdNbVl3YSSW6dP6edGot xmM6jJ/9V0CcdOIKf1yuxR2jmNPBuiWElpp3d6dWLZo1Vh/OqywhzL8goX6q FsezmG7L7Sol/pGjyTFSteCczzurPVVK4kd2haisroWx/Kl9pXrlZEpKRst6 qQbzk/GUpfxystfj+PrwuRpYHJWK0FpTQQp2m3p+7q9BHC9zH2duBWm8mXw/ KLcGJ1+YWSSMV5J1FYXSlUk1SPyEHO29VeQ8e8OXqfAaXD7oqV17p4r0506Z KzyuAZfww7D0b1VEgOnHLtMHNci7fHHvWplqck2LZdjPqga68f9Yf1tVk5lv Irqjl2oQI8/RazZcTaROynOtPVuDS8kSXxu4QO6HqrbLHq+B4uP1Zb4qIOUf LvkYyddg4e5WkyxbkL+Hbpx6KlEDVtl4qW3xICd8Hqyk7KqBU+NHt7ZmEO9B 7+qBrTXw6ttcUT4PstE14+C+FTV4tLHLh52PRryKxZo4f9KQGe/pcGIPjSzN pul/Y8x93omOy7IHacRaVPTzm3EaOl/+FXh7jEbGr6Y6l76lQZ5polBSg0Z0 w4U5otppkBVKF5DSoZGWzuQ4l3oaxGiltwYNaUSJbbe0cTkN1Q/SysVNaYR6 LKn2eD4NR1W3K26/QSMijoIXhVNp2Ehv25N9i0YiqQlTa6JpiLe9N9hjRSMc n3c6TAfSkB3cUPDSmkY8hOJZ257SYGkdJD7FuP/j8o7IPBcabsqUdDYw7C2D Y8WDbGmQWn9EVYbhf7h1e5XdTRo0DluqizLiX1gdc+7SVRp27p/OSWDk13iU f1RBh2FP/3Al9iKNKNpH3eM/Q8NY4RHzbWdoJDd326p/yjS8r4if5FKmEcEP EcFjBxn5G41u95SlkdAdvCL1EjRoX+K9ay1MI2v1wktSBWm4p/lHv3ULjbgG cJ9+xkODvvs2p2hmGvnWFDpwi4MGvdcX95ZNgFis2Hr7HDMNJ6Zbt22pACm2 3bts8h2YZm0YVHsBEjspJiA6ChjnD7SdNwbx0hE9NkMHiOOX+D37QKwbhc0o JUBU7w/dzl/VRFd+91P7JMDgz8yp47RqIsq7q43JCShpZvnserKacPrsmG+4 DpzJieA8taqa/Fravsn3ArDrBqt+V1UVaXq3TX/LXiDg89nb0nuqSP5ZXueB LQCFR7R59UAlCa/mjotbATyOPWob87SS3IjfPLWnvxoChewh2/oryPmNm1jn 6qtxTGmL8CqXCnLIY6N4YX419iiHKhRtryBsZhz3lLyrYZTHbPtIp5xkirL+ uSBfjevUPQ2icaUkKJxlJ49QNUZ5Zisb95QSR7bVJ4Y4qmFxav/Oi5QSov55 xTOL91WI3hRx51JJMfmcu7zZOaQK5iEegvNxhUTi4JxEyrdK+Fx1TJQdyCPX 97m5lQ1VIo1rjXOYUy6JE9nQ3faqErXJnV+DuXMIF/d+hx9RlTD+8WEPv3Im +fnTukZVpRIy/BlHtuonk9qyWZ3p4Ao4W2S86XZ/QX5TXNP/ulagZ/lZRjbv M3Igk2OZ62YFrpe6W+3M8SDpkfviDx+tAM+DhuK23RbkuZP1tN9UOY4sJbWf X/kEekdnXfcfLIfIrvfugi8TEHTAtevEznK4533Rf7glCXRJjt16a8vh97lS rDEoGUoC+5rdh8vgklK3aOqcBqF/Vpu6vcrwhvlBgvbfbBj+/GP+/m4ZVruG F7GdyUXo3PPSJYMyqO8rDx/wzwPraI6R0P4yLAy/zvvwOx/H3x7Nl+ctQ0bU icXFFxQ4dbat1FhVBpVVpr6R26mYpX1Js+srRcbrYE5v0QKIlrksedeUQqRD 9aluUgGMKevPxmSVQtaY3beYpxCRGTFxlJBSSC1M77F8WojXCZJfG9xKQfzf ysjNFYI9skpl4GYpRia19d9qFuFU0NmwWe1SfBJ6aMDH+D66+Qx9WqlUCuZY P6G6pSKUelgd4RYrRQd9eTFUpRhfHf/4i3OVgiW2O/mqVzHEbZ+Pkd8leP4m IewDimF2a7vcxfcl2B3bJbA8X4xY0xyvG50l+LbZ4PkN3hL0XT7a71xegrn8 /ltMCiXgvNgmHphcgmf5/9JDNEugrmHkmuJfApEKJfofwxI8VvnSWfagBJ5t ZUIbTUpQqzajKWdagtivMhwDl0vAdPZze+7ZEgiu1D9twkAlremzew6VQL7s uZrPgRI463xqTRIsgeKZ8neHN5egXP/jGYH1Jfh74IyF8adiLBp9aAn/WYyQ grb17wuLceja+9ObxotBk+WarbYvhv31qabnrcVguV14YWxfMQotJ1VZS4oR 5P/+g+pQEb5aTzR6JBTDZIvB/H+PiiBlO37yj28xok9vd5zgL8Idh7F6B4af /pPHXgrnFiLXafTEV+Ni3EnlcW08UIgZt5Ha22eKcct6cLK/oAA3vIdoJjsZ +pnLLHUvqUj1e0ferS3GDdeJ0XcLFEwGDFbrLhQh3lK9979zFJhE9FeeaSlC TKpRfUFbHuJj3h5uLCwC//Y1qaoauRhO6CtXjitCRohgXU55Ngwy35QesCvC 3EtnEdObGQjP7ZHPv1LE2O9pyhuy0tBLfV2893QRVuUUJqqOpEC7oqtwh0AR RhXa9EoEE6HR2pbP1lQIlbmbo/7GwfDpbN3/hFoIxUCxXSePBaCph577N7oQ P9rvfl7c542TQ83Z3+4V4kWTUdoVeysozTakD/EVQu0cp26alg9x/lovqsdS iFHjvYFR5wJJ+Y+61O75AjAW/rpYixAi/68m+VVDAVoquN12XI8hUpzV8ZQ7 BbC2Hqa2b0sl1purdkgYFKDP5uuULD2NZPNUxqaqFID/nHqvk0UGmeav2L5r fwFilIT8P33JJHt2lUdH8Rag5++r0nrDbHJDuIxvK3MBTmtLlFym5pDUPaWR AbNUGLNVda3+kksmJUt41/VTYXrkSl3Q6nwiKFMc7llHRWDVTscQz3xifLCI mymXCmkN7X30hXwSp1gY6hhOhbfOdxMXHQoZVirYsuBBRX/2hgtMyRTCf4Ia fMeKCkGJO5cLRynEQJWyafoSFYcP2N9Ys45Kws/kB5kdp6JcI/O6vSCV9Grm bRyRoELcV7bWX4RKtlzMDdDnpuLnP7Opua1UQhXxLT+5igrHj4VOF35QyPlF i0npOQpG4q//3VZPIV/oKhwCgxQEnW88KuFOIT6xuw6tfUXB7wnmtU57KUT0 3l+TH1QKei9sld9Ql0/qTwz6jsdScDbFOZxZPZ+YbC0tavehoOuF+RS3Wx75 +zF4pNyeggZtd/Sp5pKointsadcokAxPV1s1l00O+Z+TfcmYy9ePlKce388i b4zFjdwUKRDW/LXf9l0GsZFlfXpLhAKlz+67+YXTyQaWqfxLXBTs4d636ff5 VJL9tmbgxN98xEW269aZJJP3Lk77+HvzcajpTF+LQjx5fF5Pj7U2Hy5VI9MD a6PJTqEDHt9z8qEpefGTvUsYMWiafdPqmY/Vr0fPi2zxI+1c11xcDuRj8P1/ FtcO2ePWlFLazV35UNNXMNo48QSspXxdOusZ9lfGHnP5+MOzPPO0YUsejqpU 8r2JDgftqlmMXGIeplKmUzdvjMESs8B/7I55+CcXZluQGQ9rzcDwqj15OAuJ DVOhyUj/rj4TsiIPEX9VAz7rpWI8glnZuj8XT5gjfrN+SwM/qX55ipIL8mE1 5yOTDOhOOnwQeJYLJ+PTQfXxmQh4Jn34p3EuPvGZNjrlZKFl32f/jkO5eE4V lw18kg3mnuTxNM5cvLctyz8ilAPy8MpB9485sDScSuR4mgNHAR4fPVoOtjGX n1zOyUFhXdeQVHgOXDPmZ8xDczB7w1ea7W4Oxm0mN0mQHIhxnPQcU81Bg0cM d35aNq4V/H1btiMH2sPddyc6shCtVyoR9DMbiXqblc+XZqL3zz13y45sxD9o Wtp1LQOcSeI9xxl28zpmzJIdaVBXmxLlc8vGSmfd399XpOLJl1inb7rZYPmV 6kX5k4TqIL0O+r5stM5ZaWs1JuCXPJdQMks2MiMOnP9Bi4XMEN3eeTgLLHA2 4E2KwG0Pz5aLxVlYPRHqLUmCMdb6697q61lo8m5qrSx9BH4basPQ0Swct14p bj9mAV3u27zFW7Lw7J9DxioLC9JiMkK73pCJd/p0BWfB54R5TcRmEpOJoVGu gQqRYKKUfeEG9/1M3HFL8fvwMII80GKvnNPIxCJvfyxxiCXUHw0bmnZnwr0o +QPNM4H4ZybWKi1moHyYy311RRK5dcXtflFbBgJeiJ8/FJ1C1LgMxSQSMyD2 RmfqvUAa2d14aDDRPgNB2/dm1imkEybHLf68ZzJAK3yYMDOZToYkvyoH7MiA 6WLPGpltGaR8rP0by/d0uJW47rr8Jp2EhmSlujSl49iu90ctNqcTm9Pe+t+j 09FV5EZr6kslmn/M2G/dSwdr3ww9TDCFSFCOYexkOqwW2VaVLyUSVnMBG71t 6ci6aljy+0Y8meRZ3t0xm4bAoyuSjn6NJDWtfX0n69IQdo8v9IVtMHGUCzwq ezsNW8ILslXSHxDdj1bzGcppkImsFl5XexGy0epJO7ekIXkLk+svm0fgPC+q G/YpFdaD/zqFe19gZhUzG0d1Kvg2jGsGZIeiqWS04klQKnp+FWvnNUcj5VaV 9fL1VASUbrs/uyYBHjsid9kcToVhmKQ6k1gSrry27/m4IRUOAePP9+cnQ/Gp 9tOrkylYnfjhicqLFHAfllLsLU3BgNhLpwQGfp9l/6LxPAVJrEfO7xFOQWfi p7g6kxTY7bA0Z+9JQrZu4wXFgynwr5bts6Yn4NnapNWUtSlIeDG/o1A6Fter 3UpFR5LR9pBJry8xDMdtDG/FFiTjoaHApRtCARAQURDY4p2M/A2CWvRPblju 39Lla5iMNWM+6/dGKZO3z78+XimdDCv9BRPf5Uek8FjHwYerk3G1/U2l7/pA ErCQ9WmuPwl9oiGT4ZrhxCrDO/p6bhLY2ARKva7FEnUjc80hjyTIafNvaLdP ICIbj6+8eCkJ6af0lM6+TiQrGwSKWsST8JKDxatOPImMPFi2OMaUBNH9Bt5r bBJJpcTbbaU9iRCwPOGzLi2ehI8Wtu3LSMSWvtjY5dIoYhcc6J7ikgiVsoCc NbeCiZaatSz/hURM3L1box/xlOz7rf4+SCQRxcqbTn0SMyVr80Uj2JYTwKm3 vHk0zxnvTZk13DsSsDxu8ChQPgB13GN/fyQloD/Tg//ounDE06soVg8SMF9T ySr+LwbObpFmkxoJEKxit2urjYeerAP35V0JoJ6mSx3anoADH7RbuhYYP8ae g323/osDV5SUi1pLPKg2bSyqNZGYPbdeCrHxkPtRQR1ke4mWldPjB2zjwWzS OSz6wQNpxY0h2arxmJg7y8QbrEWeWCapCfHHI/mf9565dU8J7QjTT9mxOOjm HWbJSgsmD5PLDHf5xCHr7AruCOMoIsNuW8shG4ccpS3ytQ2xZMZWQuz3YCxk 07VnvFViScrg1PNPT2Lx/ot7fX1tBBlw3hoXIxsLlsdbN5ZpBxEOAdV8rfEY Rh+eZLBKPyLH4VCzOjAGG4x6vSxYrsHeOL27jMQgt7ZbaTbgGTJX9E9YzUbD tKAjX9UxBMOJbAu7YqLxuvBN7I0fkeBSUWTpPRON0LDJaopSNE5NWXL7LEVh MOslW+ZsOBy9osSUMqIgXFEu/vxaIHJFWxW+XorClSD5U1EsThhv+q2eyhKF a1ba++3t7Ai3paShQVEkPouph6yZf0E01l2x4jCLxP5vbDl9vmHEPdvftZYr Etk/dpQVckWSwrN4YV8TAYUzo99ZEEo+zs7F770bgerPMae2C/sR/oCd1GGB CBywtAyWZr9Kzktr1QW1heOnu+hIlY4nnnQ/6jnlHI6pDOuMLzrBKLWlTi3t DUe/w6eUUuFwzGye+JHbH4aRhWW1qoxg7CzexGrqHYb/NO5GeSh74uIlFV5u +TAIrF41Qn9oQZ79sttLnwqFmZmCzffX/qQ6IuWwW3AoLHYF5JtsDyVfFXs1 ZE+EQoHXvAh8wUTkHcuVD/+F4JOi3/Fsv8fEwEX+TlR8CPIFVymulrSFv8AN d03NEOgfdGkQ4wpELcIDV/0NRv2G4Uz36WD8MG5OLMkORnvHDr3Iel/sXblU cOtyMF4re1jJZ6uSK0l7G3asDUbLXZ7717KekyCVy72vS18iWtWxyiz1JWmc 8v3w1OIlFuTm4/5je0qWvCp/Hd76En087Pnt2jbYJ/aFbb4+CIG/01LXCgbi WvN2vmTbINSa75YjawIQanlOQk8wCN/JHY2Wq5dAX+d2lL0rEH926K+oeOhH mHLyztHcAuE5p7jVaVcAkTs3etVuXyBGNf3Hn6zWJzfmOO+JDQUgTES8x3jO D9EBxzze+Qbg2ollrvvdPuiUtnkZoBiASzldmpyc9whr6snTz7pfIM6QJ4a/ 5QW5+zH11n/7X2DcQOr5m3ob8nYvq7/+c394m0aNsaT4QNnqZn7N9HOE7Txm Wa/lgfS8lu49as9RoNK3xczLk3B+FV8ITPHD5Rc3dG72PSYP5Z5zL630A13U K5RT1BPj9rMK14x9cW6N+Nj3u65QL9M0bKnygez8ibHLrd6EupzvKsPng1eH AqxnV2iTbUpcCZEPnqFPh7rfytgbHu62dSt7vVF8qHZVxv1H5HNtz5SlrDe2 RnwsKF1jSi6uPsj6OuApfpM7Ql98nqBSNWzv4VkvmO+3Gck28iK7fX5pJJ3x gtOiHGWLtSv8WvXvrMvwRN98sxpv/03ynaMi0JbFE1EPnfxMo0RhpMVfOGj6 BOG+FR9WaZzFzLcFhfv1j2FbpGOXYn6SOId2gEP4MT4umtjl2OgRdoWMk+me Hlh/4l6K75X7iB70oB97/wj/1p3NcNV9RCRcDbUGTz1CpeTWRr/yh6jYebDP Ls0dUwu9x4WZrKBet8GIg9Udaxc7g59NO5FCeneDZpcrrncevq6g9ZD0cHp1 eQS5wFOtRtJKwZh801EYKtJ2hu9BPruCn8cJV9TMx4+bnaCw9aB1mK8FkRmN +87X+xClNr09rFkPiZawNpNm2AMYCjU4LlDkcdeShd1DzwFVr4Ul9/maIyCv jLuI1x7zsSMxW+N5Sd7320IfB+zw6+97B/3XdqRdYed+vmhbPDFojlwIsyWz rq8VzxnZQFs35H6EOCdZX+916pHAPUiuL5BzemRM9Ljskm/gDrRUI7TlBAxI WPRARfsxK6hmxe7fUqmLXpFjr+XqLWHlJcJUOHsTmylp05GnboDnJKm7eNsC 2oc5Vq5oNoeBP7OBSosJghrseC3OmOKNO9vX4r1a6NQclGprM4bRwoUs/U4t CBQ+Drgeb4ijbG458XnnSFTTecikXAJtrH7HxJFLhGdo++zfjAugUoU2Vghd gPjEG4VQozNoLjIxjW45BBH2u2H7LI6BT2vPn2fhSlBYvT9tdEoOK81MGiXj 9pL/AUT+Ic4= "]], Line[CompressedData[" 1:eJwVV3c4Fd4bV4jIyFcpUSiysxvoLUkissmKjBDKLHvL3nvvvce95j3X5t5L NplRqVRGJZT4+f1z3ud93nPe8Xk+57zn5XzyXMPiKBkZ2ZnD5f/yOuWV4ncf JeCouWmvUDY/eMQrEJ5JqAEhI6lCyPkW2vd2S8++og12zzzj6jPkwdemwnaM Xx9Sbokua8ppI3KdRVkqnsdg7MuBmTQzRl0coa8zGZ+AwGutTMk/jyEwievF 1ShzuCQ6ld26pQ4KJ9r0RmifAlmxolGzhxai8te+/SzUGiLblK/oe6tD//Ya HyWVLbwyD32XeeUGCrMLYcoOtAcDox9yTnT2qGgzxovN7wX4sPzXUqZ/FIIr 5h2+IAfo8aGs4otzQE+f8lti9h3B379geFnSARS5XuoHyDpDa34lbiPUCXjn u1TVPF3A1yJDfZ3OEY6nMN5hb3WFi5eol9p8ndGqhtHV1d2X8Oph6urabVcg 0JUJYK+5AeHNW+HMGmdU3v/7QuBLd8gp+j7/18QJRQTcYVbHeMDlS0GiPUlq yPZmDPX5LU8QYg/aezhxG6nszu2tinuDDVbZMv25PRJu4NvEOvpAmqzRhy1h HxRytdWxU88XtFWvnLgtYIV2Epa+8e74wkuVByeeP/EFqx9UT6OT/eD0qHzF y0k9NP1QeGlLyh9qWNjGTfVdkWKlloHhpD/E/Bte/TDgB800HhOdLgHQ/MEn H+8SgHKETo1VcwWC93K9yb9MfwhWqx7OeBMIIfEMvtfa/JCd0/2hUM8gcGaa zW0b8wetpPdEV75goP2X1vHANAhJN3sNmE0Gw5nXXgLV6cHANcfSpxbwGniG 16Jp3vmh4we13bIiIVD238GFiB4j2OB80Mk/HwI0ArLPBkJ8YEp+BbGEhYI4 TcdCrksowj31bae4GgbRDznz5SRcoCCMtXXzfRi0KrAoKST4Q3hlQ9NCTDgI q5oHmWeEIMdhVQxRNgIU63RfDl+2Q3o/P9c3rUbAV4OGDp+CCIDTAbWFyZEg uPgjbROnDTzX2avj5KOgDHN02Z4+Cp0wxFb4bEbBjx2O2iBaG/TTW73MNisa Oi2oMyi8I+H78NZYBXcMxHXiKdnH/cBkuVPjomcMMJoJZrOmBaHxn9EjqaMx 4NLP+WXpXDS6R2mkxsgXC7tYzKR8nzi0nOZ/E+wTC2L7T+X42GJAmHdb5d9E LOzNcg7eOh8Oede7SU6CcXAxoujHsIEdOqUcq7zqHwflNya3QpxjUYihMcHk bRzEu7Uaee5Eoj07gftTV+LhtG3MXsg7BXjus9OnEhwPx447Pvp8EA3LMT0K 3XPxUKyWFZDNHA86eXE9N8QTgGH9SQsNzhcG6h/L14YmwIkBDxoFGV8k0yPY dfldAgRMcEbgIuNRzeTu7SypRNAIPhEQpBuPLn7uxTNHJoJoyDeSiL0vStqN h/D3iXC1q6PGx9gLaGhNcUduJEH12mLCr4fx4MUmLPsqJgl4J+fkvKSTYEPo b+vaShLILqXrzYVGgTn037CQTQaK8rsD+RgjmFZLbJ6NT4baSSGJf7UhSPnJ k2saq8mQRfJ2pdpJRDinK9j+WynwaVc/j2IkGYkF7UlCcgrQcT9JxhfHosKk gYbG7ylgG7nuUWT6Ep0pSRIXlE+FOyofGZgYfSCi2awuLy0VDKtXT7kd4nZA EBE9u5kKSv0zNdlWqeA49686+l4a9NrsHMtmSoWV7wThY1lpkGPJ6/olNg4e HSRXev5Kg0CNuRjZKW8gMVoI/lRKB6neNhWWCCd0i0us3Do3HTIJ4k6+r2JQ vfgB37vtdLiDiSZzRSmI5y6pREc1A8oOPj5nVshAaTqplwcLMqCddLJ1PSMN 0VtZFt35mwGOvwXEH95PQH5u4twt6pnQ/uU0hSh7EPoVRlYgUpIJdPa9Jsc+ KYNVxiBX8X4mZCkWSo0YhsBsZVouu3YWqFHaJ6o3J4IqesqRUJ4FXqvXknJl M6BzWCKb5mg2yGT79KTsZYHk8pHzfnrZQBVzvkG8OxOEW3Q3RUqzQVsmULxD PRV44iq73+1mAxMVzSaVfBwwNB55oMidA5bDTnPlg/5Am1shmaOSA4VzxUfY +K4i6kjdCzsuOdBLv85wTywQUbgdPa6WlQPjvm2OVj/jEJlF5Y/i3hygrtP7 Ei2ehvbU9OYO1nIgu8StbFktG+3IkPfqsuQC15XX5kf3ctAv3qrqasiFtkn6 9W3KXLTB/CiVyioXJqVvuvvnZaNvZBQBj2NywfI/yeiif2no87cqW2xTLtQY W/hx+yegD9OPdBiWcuF5daiHk34oetdNcevp8TzweF3cef/yCzRfU82HRPPA NMPqX6mlE8xk6P/Hop8H0oZkBce+hMFkCOU/e/88wN17R6GgnAijzjUrvWV5 oBquWZy1lQ5DJgbD58fywDr8ZwZfbA4QHhxrcf2bB8yuuWNND/Kg91pt/tDF fFiM1Ljy7Hw+dF4yjOR5kA9fYxv58sjzAcdI9dLbOR9YqJLP8FHmQcterclk Rj54/papbJHMAcxnQyXhnnwwKr72wdEkHerGqSSCv+dDPD2dkbtAIlTh69gX ThUAk+yXZRXhCCirMKKSulkAK109GGuCGxSlUG9GWhbAaDRn310uXZT9wrhb FlsAD1oLzhUSYlCG4fGqxMUCKDpi7VfdkIxSFBuSv1MVgrbNqJjrm0yUIPHY 765IIbCd4Hme4pqLYjhonmXqFcK5ANrg1y75KOJEo9aWbyEEnkWhTdMFKGTn 8U2V0kLIC0pJn0stRIEfaHgLRwrhZKu10jK2EPkON578t1sIa1cLrkRJFSLP NpO/WlxFEJO1tbbNXoBeldB+rFAqgruWOsE/3fKQcwJmiMKpCPpyKdTsH+Wg F76mTYbpRZAixI0i0tORre2JvIauIphj1GCXH09EVnrY8BPfikD37pVyMdpo ZCpC97hNphjeP4wd8Yt4jIzZmhSZLYoP+2dB6COSE+hTm4nZRhaDf+jCgMLr 16Dzi46tu7EYboQQXdq14kDjXRMl20Ix7PpwCLoHpYAqyWzd6VgJLF7h+J5x LQuUmujfEoVLgArzzdC1LBcUCpo7L+qWwKg0zqdxOR/kYswrPHxKgE4Os4Fp K4SbngxJY8Ul4L+c+1RN7DCOVYuPwHAJlGRzXH8JJSClZWEdsFMC6RPvIgSW S0DsFqPmLEcpzMW8tzJgLQVhwVYZ8ful8H0Dex59KQH+M5Y84Q6lMIAGk2o0 S4CH4iTj+9RSkPpNWtg3LIaLG627NzpLIStu7w6iLQLPwTuBv76Xwg7D1I76 rQKYLCPSV50tAwGzx0by7HkgEqKZ+vRuGaQJjG81GGRDmMXsRU6HMqDm1ug9 uZcKH+TMqmYyyqAo0cTWUiIBZDm+XkvoL4MdmRjWNukI2Jj5o0LFUQ7Phde5 KQN1DvHxn8Yrl0M/89QS81lnVJBIY+b+shzw2t+ZH/cGo33HuO/i+eVQdal5 niE1Fumqsb76PlQOw33SQdQJyahGKO9o8Z9y+F5URrNzOxPR0PJHmvBUQNGl E2MP7uci88+1LKwaFUCeKL8w2JqPcD3X88a8KiDW51SCzo9CdCa/QzCytALW c6jpOz4VI0ff+1iFiQqgYmRBn5NLEclo5DbZkUoYVftEKDwoQ9zSj0jNgpUg I73t0sNWgbzPLOk46VUC2j1yjmytAk1vWS0JBlZCwCIj/XfHSiQ2tvFspboS mC2ihn+VV6KImle/s2cr4ROx6ufttEq0Eknm94iqChhExw5qoBLdehZC+594 FSiWPqtBWRUoTZExiWRcBW70XiSPlnL0kzuFIzisCmjG3eYcksrQA/JDMDFV UHUc8ztdqhQVvSuW3F2qAr81/3G17GJEhruCr6Orhv1YSgPxiUKkn45Vsr1e DRUW19q45vNRwyuY4Laohm62e6oCbbmIXqfv8WJMNaQI3jbbWMtCHYxTzhqf q+EWh+BB2ZVExHzH42GGcg1oTNw33tvjQB2iiNnNtAaO514ko/jiDPYc5DPa L2sgM2zm691zQdD/L8ycIb8GLKxq7TO3E8Dl2xDft6YaMDdSoVHeTwWuWab1 /qEaoAp6vKY7lwUeTWlu/n9q4MKN9EKFowXAW7xw8zFjLZyyvng1krMIxhO5 KGR4auHM6g2vLxwl4BdoOXBGphYYPEsr+fYP+e9UFrWlXgtrnTeRGbYcZk3X NEef1oK+p67aL6VKCFETO1vtVQthagqXvbBVIAmuC+HxteBg3Kv3/m81LAu1 5FuV1oIuJV1MUXgNRLPtW91FtUAj9as5mqIWZGjlhLkmamGUjq/Wy6oWvuwG /dxfrYUYStpsI2wtJH0eaJolqwNy63+jVzdr4c4UnXfT6TootAq6KnwoN3rU 7yQK1sF6Z0+bO08dZDQkUjvK1UEn2Z9WO646uJ//dlBVrw7YE+V0bWkO9wdV WfbY1YHqTMmRlcVaSLEKOJAOqIMuCSY51vxauKWsl1KXUgdu8pfF07Rq4bOQ kChfVR044E5oUmzVQAzjUUJ2Vx1k6kWwkgfVwLWfk09Ov62DCkOFTGXKGng3 Uf43Yq0OPgcbWV37XgUhTb4J5BT1EJozYulaXwki6dpC7mfrYXNmSO+rcQVM e/H3bgjXwyLleXeZzTLgvTO+Pf+oHpi86QTERophmLs0Rut5PdTiSHj5w3f7 FbU3HzGwHp4z98fTmhZA/+Blg6bqeig7MqBeUpUDL2r2fgr31IPMOEnpk18m nIkfiSicqYc3dqdXGqNTwUrPAxdH2QB6dNOaz51jgfr9EKedQQMs3DW/6VVw D+7tuHzmpGqEO9cZ1uNP5qC1GSW/FLZGSDjKmLV6kIuS2i+wMog1grgg+17c +3y04j+gvGfYCJglZXa+18UoyiLrg6NjI8xLPm0yu1uKpBSdvL68bjych6LC Q7fKUDAde/VkXSPwnp4ivuGtQsIbm/dU+htBhsWNvqasGk2O9r7rmm+Er1cV TP9F1iCelBdMtdQYqFZnH3P8WIuG3O+WXz6PgYbGY1PTAXXI1YhVPkscA+tL TGkXztajXq5ul3BjDJAbGOHR5QZkT5lKf9QZA+jsd7J3OQ3o9Ge74lehGIjW ztG3Z2xEOILcrfUsDLy4lHjC0LURWVayvLVowIA43ahf9mgjoo/55jA3gIGP KQR2CW4Mwjh20GguYuDh41fUrPYYZKydlD/wCwO576/+0a7EoGPXnsncosEC FWsi1eYyBlWx3prAXMDCfWYRux16LNL5x2wvJImFJ+cWDbxEsWh/8cuxAiUs 0FiK9CQoYVFRJy6b1QQLSqU2vLr6WKRaGH8t1gULfeu8Ju9MsOj3a6sRqvBD /y/LXzw0xqIsG1kb7xwsXOv9pdOrgUV3VZjItxqx0NnfN219E4uiTI9v7g5g 4VjHY4m0i1g07UK2uD+PBVO+OBrTI1jEGbZNIv+BhQq+4NWlKQyyyVproT7W BOqbYbu3izGovu5jCR1rEyjSjowXP8egvd65JCbhJvCU+OYkLYpBd2fHAlnk mmDbgesEz7dGFLVOcGTTaYLq+xG/YnMa0RR5pwmnTRNYih8PL1NtRBxnmlV5 vJsgIYWGNeN3A6q/VcwvUtQEX5NWNJBEA9rTyjoj2dIET9+/UlMh1iMF68Rj N4aaoMIlENka1qPp2IDlO7+bIKLTU+n88zrEWeQ+rEjTDD9PXXZg3KxFNi0O OJXzzZAUSLmtaV+L9pYfp+kqNMMNeoJ5rEEN4pSQ0XiW1AyWfK78dicqkM3k r444qRb4GicoIBeRi+pXv1YnK7WAQYl3hN7lHLS3v5yZYdwCFLTkLd+9MlHU 5RG3ouAWCH0zk6pMSEb1rypFWyZbQJJHje3boxC0x2qZu+TaCu/5HSXDm4Ph 7hWj6JWwVrg9Xn6zMSECou5oeX3NagW9EKUaM8lY4LSVe7TV2woZZpvHPxxJ BoX28yePs7SBXLD2l2/iuRD9eMpXBNsGPoynVe4cq4DgbzKwQmqDfT/XqSGb SvB2y/uXvtwG6cGWs6KEKrCPt3Onom+H71JqihZtNaDaR+68YN4ONdq/bKwU 60FBy1oswb0dkFVU5MD7eri5NLRxP6YdQgrEpP55NIDw31S7xtZ2cKPcosrL awT6KyJPI5hw4LacgPXqO+RRWyK3HC8O9meETKgVm2Bf8e/7bVkcsB7YqVP3 NMHak14TM2scFHRKSN5vaIaVdYELZ31wsCfrle/J0wILnrHzQwk4iLC+okiT 2AJDSYb6N/A4oKxu4+F82gq9FzvPbEzgYEaBMTaP0Aq4mstThV9xkOPOGWrP 3wZVhB+aJ1kQxGUTSucX2qBIV4+pTxBBQNI6u7d4O2R9aB/2lENQupxSaRbY DlH7ISqf7RDoLDXTH7DiIDh8jTYrAEEhZ0ctxgQH3me0CJqpCKyfe9Ng83Dg WtgccrwawdWa8ntHl3BgL3bhHupGEOoWxZR+DoElCqR0mUFA0sOEBWogMH6w 2sW/geC8MfF2ZxCCy/X6HEQ6PEh+vjihtIQg3y3yoPAMHmyFRVzeUODhwi38 gu9FPJTeVxwXZMFD+rGf7QbCePA6mfcQfxkPLIPcmVLX8RDSIDoXIYWH+Hg9 z5PyeLhuI5OWeAcPDPrhBt9U8SCrEDw2fyjDOXA3+h7h4ei90F0rPTxQfdo4 m2d+GL+0Mf+GCR4CKi/uej7Hg39wa6SOJR4OnHSmdd3x0N45n4i3wYPHjVCs WBAe3O+ptnra4WGbrC2JLgYPt8Pj2aLt8eDUt+byOQ0PGOPtrb+H9vVITu2u Qjyg7f3svmd4eKalJZFVgwcakW+Rv5/i4RPr6//cWvFgtHrvQeQTPJgtNf/Q 7MXDbLSLT4wBHhaLv40Ij+AhO+HhMoUmHgzsL9Qen8MD6yZJfl0RD1MSGjEf VvAg4lkdpiWLB82/gc/R5qFklC67LoKHNx1Y1bS9Q1zMt8ryOfGgHLIq5ELV AbJ+9gXJJ/HQp8pOp8bUAZ6Yk+2sZHhgFl467cjWAe68ntn7cwhM6Ao5Eng6 QOONva8OFsEfoqDE9I0OkLhTvz1ujkChfEP2j/yhferY7xPXEMSHNdxje9gB IvosXr+pEQjelzEwMesA33cSfkcKcPCKl8zC364DNoCmR8IeBz1U3fYFLztA 6FUmm6wUDox7lf0/h3eAstTsygZqh5g7BqUvGjpg1Sz777uWNpjjulAfh+uA Mb3C1ibnNuA7+r6tob8DWOZVcioF26ATbzO8M9cB0+G3V5iSW2FL1n3bl7IT GFX/HenTaQH9a6l3Y3U6wc666UJWKBaKWIwe1pt0Qmr5tJMrHxZ+/uZ4NGHT CTfrF0R2+zAQ0Vhie9anE/Sffh29cOSwL4o1xecWd0LydBT3nHkDXBKaWqrd 6YTHU3JqYrs18J3zlPdoWhe8YwrrqjyVD9c8ch06CrrgVxtbpubFPPAfF7Ko qeqC/UmxQAmRXDj9WuFBVGcXuPEyrVREZ8HNby9ZlVa74EtUxypmMQmiMTOY juvdkO71Kq7EzAtElXPWa6a7gZdw7UxEbzLyLBB8n73cDYTj5+ttG1JR77+m yahv3TBbUL/qmJuO9GtG2m3JeiAoqmmt8VU28j9FHsHL2wPfteS0FCLz0dii BW/Oyx4Qs9FXOWAoRy7OAqbRp3tBbTRqO6rpsP/TrLfpcPZCoHZ/d4VII2rK rjtzXrAXpixOW3GVNKI9wvXhitu90Bx5oog2EYP8ORWBYNsLVza3WpIsm1DU kDk7ZVcv5N5fXO5baUUi5rxupMFe8Iwbv2Sh2YZGdr+Ox0/3wkaaCoU0akPM 3E4RXGu9MEwYRWEJ7SjNw+8vnO2DxD9dW/GSCBXxZr11f94HH3cX/nDydiBF nKmknHsf7GeHu6/qdqAvmtyxx4P6YOL0JXWF1x1I0KdCMSWtDxwCjUMwHzpQ 3UQLtrGnD3TfRs88T+tEOP+pxI1z/RBFWDah3exCJmfSN7E8/aBZwDSycrYb HakyVvER7YdKfTOCulw3kn/7kYL+Xj/8fvF6dyK2GxGu/HIScOyHmYA//okC PWjqcNC37O+HmwoOiWv3e5FSuMW082g/kGMvhHtb96K26y3GAXP9wPmUtrIi pBflJJk9y9noB+scs9H3Pb3ISg0TOHNmAKgUpXPw0n1oZp+G9gvXAIQ1l32U 1+tDDyofx24LDsDCtuVdK+c+JEpzPIv59gBE9fOsR5T3oT9dBlhV6wFg/9EY qXGqH9k61sgaOQ0ATaPDjXHhfrTAQdn9zGsAvJ8RzH/f60edXlXDIbED8FWo 9Si7Wz8Kv3pktbN5ACQ/XLbenexHbOVFbFdpCMBYwhZ90W8ART36m3eXmQBq melP+xMGEBm1Gp/WeQLIpjdknCwZQB/MdyUdxAjQZ6JxM25wAFWef/CwXJ8A 9z5O+GsxExDHYM5EszkBsvn5DS9xE1Ccx5ZBvz0BHkzXrKVJEpDrdJbVR38C VPxc8vbSJqCbcZt+F8oJsJ3ySZIzloBqbilQCzcS4Kt0R9uVbALiWk+LkkEE uPD2WsynCgI69kA+/dEYAU7/99xZq4+A3lAmN8T/JcA8o22z4A4ByTV8vZFH SYQl/NDlaHIianhyq6OGgQiBkiG5mfRElIK+DA5eJMKP0V8c+ItEZOIm84nq ARFeUj1Q41YiIn7z/ok1HSKQxt6gck0i+qmq1T1hSoSMrJz1UUMiCr5km5v/ kgg9Y0LPKe2JSI1hJzrMnwixr/KrT7oS0dk/Ad4OkUR4l0SKxXsRUcWbdAPI JwJ5SgAndQQRubZcVuKpIoKJlHhXbhzxsPHWX6NrJsKp0qG1xRQioo6By7+6 iFAWoXShK4uIRt2Jp2aHiDD989sb5QIiyrDQpeh8SwR7SUVP91IislR7/6Pk AxHKxyRzHlYR0S733zeuf4jgdtEZ1jFE1Mn4GmdESYIW0er6lhYiivjLVCnP SILjI/dihXFEpLOSlS5wjgTXH4hpK3cQEccIfxgTDwlmX0d6nuwmotVWzKtd ERLUx2YF+vUSUX2R3NN30qTD/whpNb2fiDxjh7T7FEggwpguaEogIgVPffkq dRJ0NpT0jRCJiPHpiliiIQnmbpdcXyMR0Vt1R07PpySwpjYmww4SUZ7MPoOZ IwkMq9NTBYeIyPZy2P59LxJ06MsEPDzUpZhOfxcJIYHkJw5pjkP9YC93liWe BC+uC0L24fn+T0KE/UwSROUC3eCh/7jR5qaPJYf5qV+9WHYY37D9bjGpngRF n1f2pQ7z4y4ZSazHkUCM7vR558P81+KMAtMGSPDzvNe+6WF9TV5fHP3GSaC4 3cF+5LB+fysXU6tFEvC2O++qH+KjrHlE7eEqCfwIJxi0D/Fjvhl5U2qLBHT5 H2dpWologfesEDvZIDzZk553whJRyX+F5yhoB2Fskj8mpp6IHPZFaL6eGgSK 4hIH02oiohhX/NQkMAgeFWb1nEVENIQbn8iWGoQ7NrgTTLlElFxq0h18exCk f8wHN6Uf8tPnVa6W7iCYxycM8sUQ0S9rihjpJ4PwXbw1diuUiNq1Yry57AYh /Avewi3gkJ/8JQYb/oPg/+AEf7kLEbGeklCaihyEUzeoGPUP+fv+AF3DpQxC lM29zU7LQ35OTJ2KqDrM7xx3VLcOEd3Cm1E4NQ/CLVM9WWNVIjpevv7jUfcg SETtDNXfPeSjL9Xw5ZlBsMe5eiWIE1GXwNWwLsoh4O8cEr1+goiMr2jlbzIM Ae8bI+R4lIh2xBzaLrAOQTKLE4/z4X0VvFG+5iE8BHpkI0eH3xNQguIFTQnd IfCK8HjxG0tAlhZUbIUlQyAbWnpSXYeAyKwvSY7VDUF2jdyYxH0CSrO9rXqk fQhSLas1V6QJaMjJw9doZAgm/2s8qOcgoKv+6x9O/RkChXHxXfLPA4g6e6oy WPkNwBuPoz12Aygv71dvg/Yb4Ov98bfKaADJFJ18t/z4DWRNRCnaqgygF5XK TOD8BmapNCWeCA6gt63IdTvjDRiLn6yT/9yPyqaLwWrtUJ+a/SOk1494jrd9 LlAcBk+hDGMSax/60Sdsk6cyDJHrf08IHOtDuODcr9kaw7Bw8NDLarMX6VC8 XkszHIbbXznafft6UdCB+q+YF8MwdElfV9ixF33Y+nTgmTIMTq/d+5o7elDe 8n8s2p+HgXI7XcdYuRuxtz27SxkyAk/T26SETncg5rN//thHjoDs7zM3Vnbw 6IRrSM103Ai8p//cFzqLR3tXCs9VZI4AH27QJzYHj2byFzY16keg+YiDRBkf HiWFq2flLIxAgsi1P89e4BC9wdVtaclRYHcbbEqNaUFkf46WOi6PwqPA6I4F nzq0rd5u3MM9DgcjWrqc4cFoVuLxOe7ACdjRNngbm1MBL3QZT3LNTYLRi84p 8lIcnE34oEfBPg0DVTvp1Um9UGWQU/zz1Vv4pXrxv/HdQdCV9VHsb58BtZCj rSTRUag1tuO6sTcL5tZcYmZsh35p7pA3a89D/DnvaRuqadAYkZZiT1kAdFxV PDpkBmikaTvaMhcAJ9n/XjF+BjoKZpQN8xfgNzIr3c+cAZFXbqbpVQvgQCbq Zlw/A/QXsBFnexaAQTbm4fr8DAzYir0/9WMB5iY9/uqIzcItar4Y+geLcFbd 2v3e9CzsOOywVqkvwrFKNt3g5Vmonu0rVNFdhFSyOceOb7NwvtqyNeLJIkQc 7bYVPDIHe9oFKzRui2BRxhU9wTcH2PwLslRFi2DcGtjo4j4H9nTrfUXlixBV JMrpFjgHPC9xGgq1i6DiSbH0KmoOEpSMrILaFiEX9+SJXd4cOG6mxZOPLcKc 2kYMP2EO+A1szudPL4KQemsn4/gcLHVfL5VbWASi9HXNn/NzoJYyjfP7sgin U+ITKzfngPpoyX3O9UU4RWJSCvo7B+jZy3H8r0X4ZBv25BHlPLhOKDw2+bMI So3K7/gY5kEYTq8eHCxC81Bx9+8z8/A/EQv92A== "]]}, "Charting`Private`Tag$11915#1"], {}}, {{}, {}}, {{}, {}}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 100, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-0.5, 0.5}, {-0.2172336115264555, 0.4546486778701638}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> { Automatic, Automatic}}], $CellContext`start$$, $CellContext`end$$, \ $CellContext`xrange$$, $CellContext`yrange$$}, TagBox[ DynamicBox[ToBoxes[ Show[$CellContext`start$$; $CellContext`image$$, Epilog -> If[ ValueQ[$CellContext`start$$], { Opacity[0], EdgeForm[ Directive[Black, Dashed]], Rectangle[$CellContext`start$$, MousePosition["Graphics"]]}, {}]], StandardForm], ImageSizeCache->{100., {29., 35.}}], EventHandlerTag[{ "MouseDown" :> ($CellContext`start$$ = MousePosition["Graphics"]), "MouseUp" :> ($CellContext`end$$ = MousePosition["Graphics"]; If[ And[ MatchQ[$CellContext`start$$, { Blank[Real], Blank[Real]}], MatchQ[$CellContext`end$$, { Blank[Real], Blank[Real]}]], $CellContext`xrange$$ = Prepend[ Sort[{ Part[$CellContext`start$$, 1], Part[$CellContext`end$$, 1]}], $CellContext`x]; $CellContext`yrange$$ = Sort[{ Part[$CellContext`start$$, 2], Part[$CellContext`end$$, 2]}]; $CellContext`image$$ = If[ Or[ Part[$CellContext`start$$, 1] === Part[$CellContext`end$$, 1], Part[$CellContext`start$$, 2] === Part[$CellContext`end$$, 2]], Plot[$CellContext`x Sin[$CellContext`x^(-1)], {$CellContext`x, -0.5, 0.5}, ImageSize -> 100], Plot[$CellContext`x Sin[$CellContext`x^(-1)], Evaluate[$CellContext`xrange$$], PlotRange -> Evaluate[$CellContext`yrange$$], ImageSize -> 100]]]; Unset[$CellContext`start$$]), Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]], "Output", CellLabel->"Out[28]=", CellID->106810430] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"923c0d3b-e86e-4bc4-9a02-a986ef620eea", CellID->462042388], Cell[639, 25, 117, 3, 70, "Text",ExpressionUUID->"c4e924e7-7458-45f8-b3f7-4f4db2093d23", CellID->13078159], Cell[CellGroupData[{ Cell[781, 32, 1924, 49, 70, "Input",ExpressionUUID->"08d02457-3224-4e00-b412-a8b33920c26d", CellID->443871870], Cell[2708, 83, 26512, 466, 70, "Output",ExpressionUUID->"57e8b858-5344-4c55-89f2-9fbe2f29ee16", CellID->1309160503] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29269, 555, 49, 1, 70, "Subsection",ExpressionUUID->"dea3f271-8e5f-4753-9b46-baf984483012", CellID->776923543], Cell[29321, 558, 72, 1, 70, "Text",ExpressionUUID->"9c3bbd55-3ac4-430a-9cd2-034fd7de1fc0", CellID->1648349020], Cell[CellGroupData[{ Cell[29418, 563, 1928, 49, 70, "Input",ExpressionUUID->"0c21bdd7-b6d8-4262-b757-e59fecefc5f2", CellID->1654789190], Cell[31349, 614, 26584, 467, 70, "Output",ExpressionUUID->"82893144-b920-4c33-ad6d-014475a4dd36", CellID->750545919] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57982, 1087, 56, 1, 70, "Subsection",ExpressionUUID->"f9c667a8-cd7d-434a-a3c1-c08c082cdc57", CellID->92483860], Cell[58041, 1090, 169, 4, 70, "Text",ExpressionUUID->"021f1aac-a5a7-4ad3-804b-2f4f7025101d", CellID->1202170188], Cell[CellGroupData[{ Cell[58235, 1098, 1924, 49, 70, "Input",ExpressionUUID->"f88c5fcf-89c5-427b-8207-78fbfd624b37", CellID->1073458783], Cell[60162, 1149, 26526, 466, 70, "Output",ExpressionUUID->"9e13adf2-31d3-46c5-912f-51c4e2e85b7f", CellID->106810430] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)