(* 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[ 169654, 3484] NotebookOptionsPosition[ 103914, 2128] NotebookOutlinePosition[ 162551, 3313] CellTagsIndexPosition[ 161942, 3292] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["DragZoomPlot", "Title", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["\<\ A version of Plot which allows you to zoom into the plot using the mouse.\ \>", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"DragZoomPlot", "[", RowBox[{"expr_", ",", RowBox[{"{", RowBox[{"var_", ",", "lo_", ",", "hi_"}], "}"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"image", "=", RowBox[{"Plot", "[", RowBox[{"expr", ",", RowBox[{"{", RowBox[{"var", ",", "lo", ",", "hi"}], "}"}], ",", "opts"}], "]"}]}], ",", "start", ",", "end", ",", "xrange", ",", "yrange"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"EventHandler", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"Show", "[", RowBox[{ RowBox[{"start", ";", "image"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ValueQ", "[", "start", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Dashed"}], "]"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{"start", ",", RowBox[{"MousePosition", "[", "\"\\"", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[RuleDelayed]", RowBox[{"(", RowBox[{"start", "=", RowBox[{"MousePosition", "[", "\"\\"", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", ":>", RowBox[{"(", RowBox[{ RowBox[{"end", "=", RowBox[{"MousePosition", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"start", ",", RowBox[{"{", RowBox[{"_Real", ",", "_Real"}], "}"}]}], "]"}], "&&", RowBox[{"MatchQ", "[", RowBox[{"end", ",", RowBox[{"{", RowBox[{"_Real", ",", "_Real"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"xrange", "=", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ RowBox[{"start", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"end", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", "var"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"yrange", "=", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ RowBox[{"start", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"end", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"image", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"start", "[", RowBox[{"[", "1", "]"}], "]"}], "===", RowBox[{"end", "[", RowBox[{"[", "1", "]"}], "]"}]}], "||", RowBox[{ RowBox[{"start", "[", RowBox[{"[", "2", "]"}], "]"}], "===", RowBox[{"end", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"Plot", "[", RowBox[{"expr", ",", RowBox[{"{", RowBox[{"var", ",", "lo", ",", "hi"}], "}"}], ",", "opts"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{"expr", ",", RowBox[{"Evaluate", "[", "xrange", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"Evaluate", "[", "yrange", "]"}]}], ",", "opts"}], "]"}]}], "]"}]}]}]}], "]"}], ";", RowBox[{"start", "=."}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellLabel->"In[26]:=", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DragZoomPlot", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", "xmin", ",", "xmax"}], "}"}]}], "]"}], " "}]], "UsageInputs", CellTags->"TabNext", CellID->157543866], Cell["\<\ generates a plot of f as a function of x from xmin to xmax which can be \ zoomed into using the mouse.\ \>", "UsageDescription", CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell["\<\ Click and drag within the resulting plot to cause it change the PlotRange.\ \>", "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->521904482], Cell["Click in the plot to reset to the original PlotRange.", "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellID->467790972] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], 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[{"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["Scope", "Subsection", CellID->964056545], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->776923543], Cell["All options for Plot are supported.", "Text", CellID->1648349020], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"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["Applications", "Subsection", CellID->568056528], Cell["Properties and Relations", "Subsection", CellID->754506620], 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[{"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 ]], Cell["Neat Examples", "Subsection", CellID->540091361] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Jon McLoone", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["Plot", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->123227828], Cell["Zoom", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellID->1244322308], Cell["Interactive", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellID->916940297] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell["Plot", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "[", RowBox[{"DragZoomPlot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], " ", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}], "]"}]], "Input", CellLabel->"In[30]:=", CellID->667877521], Cell[BoxData["DynamicModule"], "Output", CellLabel->"Out[30]=", CellID->1974850839] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Rasterize", "[", RowBox[{"DragZoomPlot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], " ", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}], "]"}], "===", RowBox[{"Rasterize", "[", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], " ", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}], "]"}]}]], "Input", CellLabel->"In[31]:=", CellID->589991294], Cell[BoxData["True"], "Output", CellLabel->"Out[31]=", CellID->862531959] }, Open ]] }, Open ]] }, Open ]], Cell["Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->694045252] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{"ResourceType" -> "Function", "ResourceCreateNotebook" -> True}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TemplateBox[{ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Coming soon\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon."]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], ActionMenuBox[ ButtonBox[ StyleBox[ "\"Preview \[DownPointer]\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ "\"Deploy \[DownPointer]\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TemplateBox[{ StyleBox[ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> Automatic], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[ Rational[2, 45], 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, Rational[2, 3], 0], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm]], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> Automatic], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ExampleGroupOpenerTemplate"], TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[ ToBoxes[ If[ MatchQ[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "Openers", #, #2}, Closed], Alternatives[True, Open]], Style[ Graphics[{ Thickness[0.18], RGBColor[0.8509803921568627, 0.396078431372549, 0], Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 0.68 Inherited], Rotate[ Style[ Graphics[{ Thickness[0.18], RGBColor[0.8509803921568627, 0.396078431372549, 0], Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]], StandardForm]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {-5, 0}}, CellGroupingRules -> {"SectionGrouping", 58}, ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {76}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 9, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 479, 8, 70, "Title",ExpressionUUID->"0528b250-f75c-4854-95ce-8ca239f281aa", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 479, 8, 70, "Title",ExpressionUUID->"0528b250-f75c-4854-95ce-8ca239f281aa", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1062, 32, 553, 10, 70, "Text",ExpressionUUID->"459791d4-2c39-4312-b482-8468a41c894d", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[2520, 69, 5073, 122, 70, "Input",ExpressionUUID->"f78c42b9-7726-49b0-ba6d-605a9ce7a5cd", CellTags->"TabNext", CellID->778396829], Cell[8562, 227, 225, 8, 70, "UsageInputs",ExpressionUUID->"caa29fa2-32b8-4468-affa-b40493c18d18", CellTags->"TabNext", CellID->157543866], Cell[8790, 237, 180, 5, 70, "UsageDescription",ExpressionUUID->"83f0b385-369b-4bc8-8be8-6bf9bf6d0bd0", CellTags->"TabNext", CellID->231889230], Cell[9858, 272, 538, 10, 70, "Notes",ExpressionUUID->"669e02da-508b-4c98-996a-8a044c6cd11b", CellTags->"TabNext", CellID->521904482], Cell[94398, 1848, 466, 8, 70, "Text",ExpressionUUID->"880bb0b1-531e-4111-b885-dd83d1fade1a", CellTags->"TabNext", CellID->832483124], Cell[95551, 1883, 459, 8, 70, "Item",ExpressionUUID->"1bfd64a4-50bc-42dd-8c5f-88e63d593564", CellTags->"TabNext", CellID->123227828], Cell[97612, 1935, 458, 8, 70, "Item",ExpressionUUID->"190ceb91-cf10-478d-b097-dd41f09d6601", CellTags->"TabNext", CellID->79477165], Cell[98812, 1968, 508, 8, 70, "Item",ExpressionUUID->"7a77d24e-c76b-4aae-b9f9-5063bac00b4d", CellTags->"TabNext", CellID->960273585], Cell[100115, 2002, 496, 8, 70, "Text",ExpressionUUID->"121dae98-bd24-4969-8c79-030694ee4401", CellTags->"TabNext", CellID->343081869], Cell[101248, 2034, 485, 8, 70, "Item",ExpressionUUID->"dd3619b8-843d-4910-aace-8b74acacb7c9", CellTags->"TabNext", CellID->485448166]}, "Description"->{ Cell[1062, 32, 553, 10, 70, "Text",ExpressionUUID->"459791d4-2c39-4312-b482-8468a41c894d", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1640, 46, 877, 21, 70, "Section",ExpressionUUID->"052ecfbe-7cc2-4e57-a43a-2d07df019483", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[7630, 196, 99, 3, 70, "Section",ExpressionUUID->"a97c21f3-0d65-49a7-a1d7-7644fdefe4ff", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[7754, 203, 783, 20, 70, "Subsection",ExpressionUUID->"6b6bc3d6-1423-47c8-830b-65626b117744", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[9019, 248, 814, 20, 70, "Subsection",ExpressionUUID->"98b2844f-5cf6-4914-b7f0-a5747727406a", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[10947, 298, 913, 21, 70, "Section",ExpressionUUID->"1d03a5ee-3031-4268-aff6-39e5c6158ac3", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[93563, 1821, 135, 3, 70, "Section",ExpressionUUID->"1dd3f69a-86a4-4cef-8c56-f655459b595c", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[93723, 1828, 672, 18, 70, "Subsection",ExpressionUUID->"d9c9cb5f-fa76-424f-a464-cf80edd3e511", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[94901, 1861, 625, 18, 70, "Subsection",ExpressionUUID->"bc463286-0d5b-433e-b47c-c2b091b4d240", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[96947, 1915, 662, 18, 70, "Subsection",ExpressionUUID->"6ae85c21-9a46-4b47-b577-f38e941ee655", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[98107, 1948, 702, 18, 70, "Subsection",ExpressionUUID->"89c2a432-7bc0-4d2c-b569-93a496ad812d", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[99357, 1981, 755, 19, 70, "Subsection",ExpressionUUID->"f29598cc-b458-47b1-ab75-5f42a4a85cfd", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[100648, 2015, 597, 17, 70, "Subsection",ExpressionUUID->"8542c190-1957-46ad-a8e3-19e8def2b008", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[101770, 2047, 767, 20, 70, "Subsection",ExpressionUUID->"8ea8666b-d48d-472e-b6f3-9aabef8bb78d", CellTags->"Tests", CellID->16051757]}, "Notes"->{ Cell[103785, 2121, 113, 4, 70, "Section",ExpressionUUID->"6a72d84a-e1bc-412e-8395-a7afd83e85ef", CellTags->"Notes", CellID->694045252]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 157391, 3188}, {"TabNext", 157556, 3192}, {"Description", 159319, 3229}, {"Definition", 159494, 3233}, {"Documentation", 159661, 3237}, {"Usage", 159822, 3241}, {"Details & Options", 159992, 3245}, {"Examples", 160164, 3249}, {"Source & Additional Information", 160349, 3253}, {"Contributed By", 160540, 3257}, {"Keywords", 160712, 3261}, {"Related Symbols", 160885, 3265}, {"Related Resource Objects", 161074, 3269}, {"Source/Reference Citation", 161273, 3273}, {"Links", 161453, 3277}, {"Tests", 161614, 3281}, {"Notes", 161774, 3285} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 479, 8, 70, "Title",ExpressionUUID->"0528b250-f75c-4854-95ce-8ca239f281aa", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1062, 32, 553, 10, 70, "Text",ExpressionUUID->"459791d4-2c39-4312-b482-8468a41c894d", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1640, 46, 877, 21, 70, "Section",ExpressionUUID->"052ecfbe-7cc2-4e57-a43a-2d07df019483", CellTags->"Definition", CellID->608264297], Cell[2520, 69, 5073, 122, 70, "Input",ExpressionUUID->"f78c42b9-7726-49b0-ba6d-605a9ce7a5cd", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell[7630, 196, 99, 3, 70, "Section",ExpressionUUID->"a97c21f3-0d65-49a7-a1d7-7644fdefe4ff", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[7754, 203, 783, 20, 70, "Subsection",ExpressionUUID->"6b6bc3d6-1423-47c8-830b-65626b117744", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[8562, 227, 225, 8, 70, "UsageInputs",ExpressionUUID->"caa29fa2-32b8-4468-affa-b40493c18d18", CellTags->"TabNext", CellID->157543866], Cell[8790, 237, 180, 5, 70, "UsageDescription",ExpressionUUID->"83f0b385-369b-4bc8-8be8-6bf9bf6d0bd0", CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9019, 248, 814, 20, 70, "Subsection",ExpressionUUID->"98b2844f-5cf6-4914-b7f0-a5747727406a", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[9858, 272, 538, 10, 70, "Notes",ExpressionUUID->"669e02da-508b-4c98-996a-8a044c6cd11b", CellTags->"TabNext", CellID->521904482], Cell[10399, 284, 487, 7, 70, "Notes",ExpressionUUID->"3b442b4d-db55-4ffc-82d0-4312022ede45", CellID->467790972] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10947, 298, 913, 21, 70, "Section",ExpressionUUID->"1d03a5ee-3031-4268-aff6-39e5c6158ac3", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[11885, 323, 56, 1, 70, "Subsection",ExpressionUUID->"1a126f5f-c5e3-4d4b-94e7-e6eef16f2a51", CellID->462042388], Cell[11944, 326, 117, 3, 70, "Text",ExpressionUUID->"f27886f1-6f63-4093-9a37-0f2cd8491e59", CellID->13078159], Cell[CellGroupData[{ Cell[12086, 333, 349, 11, 70, "Input",ExpressionUUID->"b665b298-c7af-4683-8194-59e1d2f9c6d2", CellID->443871870], Cell[12438, 346, 26512, 466, 70, "Output",ExpressionUUID->"54b15d22-2cce-4b91-ab37-4c13b2b64386", CellID->1309160503] }, Open ]] }, Open ]], Cell[38977, 816, 47, 1, 70, "Subsection",ExpressionUUID->"87b25cab-b7d6-4d4e-8ded-a243abe6fb74", CellID->964056545], Cell[CellGroupData[{ Cell[39049, 821, 49, 1, 70, "Subsection",ExpressionUUID->"3d6aae8e-8fd2-4aba-8802-2894d25e3595", CellID->776923543], Cell[39101, 824, 72, 1, 70, "Text",ExpressionUUID->"9130259a-4588-43f3-b46c-72d4f923e2e5", CellID->1648349020], Cell[CellGroupData[{ Cell[39198, 829, 353, 11, 70, "Input",ExpressionUUID->"eccc6a34-efd3-4c1c-88a2-529b5945e454", CellID->1654789190], Cell[39554, 842, 26584, 467, 70, "Output",ExpressionUUID->"5ef0f35f-78cf-442d-b3b9-e93d0924af39", CellID->750545919] }, Open ]] }, Open ]], Cell[66165, 1313, 54, 1, 70, "Subsection",ExpressionUUID->"68439353-d677-4eb0-9268-5182c0cab53d", CellID->568056528], Cell[66222, 1316, 66, 1, 70, "Subsection",ExpressionUUID->"ea447166-03af-4f71-a816-4fb854798d59", CellID->754506620], Cell[CellGroupData[{ Cell[66313, 1321, 56, 1, 70, "Subsection",ExpressionUUID->"fda8c680-d69f-432a-ac9b-0589efea3cf6", CellID->92483860], Cell[66372, 1324, 169, 4, 70, "Text",ExpressionUUID->"015a5249-4cd3-49f9-9139-78530c3ebc8f", CellID->1202170188], Cell[CellGroupData[{ Cell[66566, 1332, 349, 11, 70, "Input",ExpressionUUID->"13a59401-e984-4caf-95ad-9bc5ce78fbc4", CellID->1073458783], Cell[66918, 1345, 26526, 466, 70, "Output",ExpressionUUID->"63bd9d67-30ac-424e-80d4-c5d7a2ac7d79", CellID->106810430] }, Open ]] }, Open ]], Cell[93471, 1815, 55, 1, 70, "Subsection",ExpressionUUID->"efa37d6e-eab9-44e5-bea7-f4f5d743c5fb", CellID->540091361] }, Open ]], Cell[CellGroupData[{ Cell[93563, 1821, 135, 3, 70, "Section",ExpressionUUID->"1dd3f69a-86a4-4cef-8c56-f655459b595c", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[93723, 1828, 672, 18, 70, "Subsection",ExpressionUUID->"d9c9cb5f-fa76-424f-a464-cf80edd3e511", CellTags->"Contributed By", CellID->757508554], Cell[94398, 1848, 466, 8, 70, "Text",ExpressionUUID->"880bb0b1-531e-4111-b885-dd83d1fade1a", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[94901, 1861, 625, 18, 70, "Subsection",ExpressionUUID->"bc463286-0d5b-433e-b47c-c2b091b4d240", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[95551, 1883, 459, 8, 70, "Item",ExpressionUUID->"1bfd64a4-50bc-42dd-8c5f-88e63d593564", CellTags->"TabNext", CellID->123227828], Cell[96013, 1893, 438, 7, 70, "Item",ExpressionUUID->"9bd0a2f1-36e6-4cd8-94c4-c01e36c5c176", CellID->1244322308], Cell[96454, 1902, 444, 7, 70, "Item",ExpressionUUID->"0fa9b048-f164-4652-9883-068853d2ddf8", CellID->916940297] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[96947, 1915, 662, 18, 70, "Subsection",ExpressionUUID->"6ae85c21-9a46-4b47-b577-f38e941ee655", CellTags->"Related Symbols", CellID->911170439], Cell[97612, 1935, 458, 8, 70, "Item",ExpressionUUID->"190ceb91-cf10-478d-b097-dd41f09d6601", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[98107, 1948, 702, 18, 70, "Subsection",ExpressionUUID->"89c2a432-7bc0-4d2c-b569-93a496ad812d", CellTags->"Related Resource Objects", CellID->217060377], Cell[98812, 1968, 508, 8, 70, "Item",ExpressionUUID->"7a77d24e-c76b-4aae-b9f9-5063bac00b4d", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[99357, 1981, 755, 19, 70, "Subsection",ExpressionUUID->"f29598cc-b458-47b1-ab75-5f42a4a85cfd", CellTags->"Source/Reference Citation", CellID->967310595], Cell[100115, 2002, 496, 8, 70, "Text",ExpressionUUID->"121dae98-bd24-4969-8c79-030694ee4401", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[100648, 2015, 597, 17, 70, "Subsection",ExpressionUUID->"8542c190-1957-46ad-a8e3-19e8def2b008", CellTags->"Links", CellID->593846556], Cell[101248, 2034, 485, 8, 70, "Item",ExpressionUUID->"dd3619b8-843d-4910-aace-8b74acacb7c9", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[101770, 2047, 767, 20, 70, "Subsection",ExpressionUUID->"8ea8666b-d48d-472e-b6f3-9aabef8bb78d", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[102562, 2071, 336, 11, 70, "Input",ExpressionUUID->"c069647d-c80d-471e-b86e-efa98ceba9c0", CellID->667877521], Cell[102901, 2084, 85, 2, 70, "Output",ExpressionUUID->"cf87e916-7fde-4651-a680-5b9d3ee395cc", CellID->1974850839] }, Open ]], Cell[CellGroupData[{ Cell[103023, 2091, 645, 21, 70, "Input",ExpressionUUID->"f985c6b5-db54-47bb-b504-46a36d78bee0", CellID->589991294], Cell[103671, 2114, 75, 2, 70, "Output",ExpressionUUID->"6e37be2c-3245-4f6a-8822-f2e8e12ae4ec", CellID->862531959] }, Open ]] }, Open ]] }, Open ]], Cell[103785, 2121, 113, 4, 70, "Section",ExpressionUUID->"6a72d84a-e1bc-412e-8395-a7afd83e85ef", CellTags->"Notes", CellID->694045252] }, Open ]] } ] *) (* End of internal cache information *)