(* 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[ 105297, 2331] NotebookOptionsPosition[ 47013, 1097] NotebookOutlinePosition[ 97557, 2152] CellTagsIndexPosition[ 96875, 2129] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["CosDegree", "Title", CellChangeTimes->{{3.749995467933635*^9, 3.7499954705879*^9}}, CellTags->{"Title", "TabNext"}, CellID->18217985], Cell["Computes the cosine of an angle given in degrees", "Text", CellChangeTimes->{3.7499954845853*^9}, CellTags->{"Description", "TabNext"}, CellID->27787318], 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", CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->40452676], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"CosDegree", ",", " ", "iCosDegree"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetAttributes", "[", RowBox[{"CosDegree", ",", RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CosDegree", "::", "argx"}], " ", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CosDegree", "[", "args___", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"iCosDegree", "[", "args", "]"}], ",", "$tag"}], "]"}]}], "}"}], ",", RowBox[{"res", "/;", RowBox[{"res", "=!=", "$Failed"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iCosDegree", "[", "theta_", "]"}], ":=", " ", RowBox[{"Cos", "[", RowBox[{"theta", " ", RowBox[{"Pi", "/", "180"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iCosDegree", "[", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"CosDegree", "::", "argx"}], "]"}], ";", "$Failed"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iCosDegree", "[", RowBox[{"first_", ",", " ", "rest__"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"CosDegree", "::", "argx"}], "]"}], ";", "$Failed"}], ")"}]}]}], "Code", CellChangeTimes->{ 3.70999648737139*^9, {3.741448321619862*^9, 3.741448339095759*^9}, { 3.741448387915495*^9, 3.7414483947020874`*^9}, {3.7425600170915985`*^9, 3.742560093218272*^9}, {3.742560367664676*^9, 3.742560458653475*^9}, { 3.742560540879516*^9, 3.742560619691516*^9}, {3.742560671349516*^9, 3.742560683363516*^9}, {3.7425607133765163`*^9, 3.7425607634355164`*^9}, { 3.7425608993515162`*^9, 3.742560913863516*^9}, {3.742560949794516*^9, 3.742560955913516*^9}, {3.742566161663699*^9, 3.742566240385699*^9}, { 3.7425671592365828`*^9, 3.7425671670425825`*^9}, {3.7425672724265823`*^9, 3.7425673083345823`*^9}}, CellTags->"ResourceInitialization", CellLabel->"In[85]:=", CellID->612122634] }, Closed]], Cell[CellGroupData[{ Cell["Documentation", "Section", CellTags->"Documentation", CellID->491847979], 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", CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CosDegree", "[", StyleBox["x", "TI"], "]"}]], "UsageInputs", CellChangeTimes->{ 3.70999648737139*^9, {3.741448417959277*^9, 3.7414484503950815`*^9}, { 3.7425601087324047`*^9, 3.7425601209398537`*^9}}, CellTags->"ResourceUsageInputs", CellID->42127849], Cell["computes the cosine of an angle x, measured in degrees", \ "UsageDescription", CellChangeTimes->{{3.741448456691517*^9, 3.741448476767528*^9}, { 3.7425601296627436`*^9, 3.74256015709153*^9}}, CellTags->"ResourceUsageDescription", CellID->37697846] }, 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", CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell["\<\ Mathematical function, suitable for both symbolic and numerical manipulation.\ \ \>", "Notes", CellID->469378182], Cell["\<\ For certain special arguments, CosDegree automatically evaluates to exact \ values.\ \>", "Notes", CellChangeTimes->{{3.7425673416315823`*^9, 3.742567343206582*^9}}, CellID->740632055], Cell["CosDegree can be evaluated to arbitrary numerical precision.", "Notes", CellChangeTimes->{{3.7429104076080046`*^9, 3.742910408530097*^9}}, CellID->146496866], Cell["CosDegree automatically threads over lists.", "Notes", CellChangeTimes->{{3.7429104109383373`*^9, 3.742910413908635*^9}}, CellID->546259384] }, Open ]] }, Open ]] }, Closed]], 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\ See existing documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Compute the cosine of an angle:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}}, CellID->25463679], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CosDegree", "[", "60", "]"}]], "Input", CellChangeTimes->{{3.749995718685708*^9, 3.7499957246253014`*^9}}, CellLabel->"In[93]:=", CellID->455651323], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.7499957256514044`*^9}, CellLabel->"Out[93]=", CellID->18873240] }, Open ]], Cell["Plot over a given range of angles:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}}, CellID->113296902], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"CosDegree", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "360"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7425674263225822`*^9, 3.7425674332075825`*^9}, { 3.7425674665905824`*^9, 3.7425674767165823`*^9}}, CellLabel->"In[92]:=", CellID->146714838], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw12Xk81Nv7AHDSZk0kRUmFSsK1lZTzCJWttCFLssxnkC1m5kpSumhVJG23 UCFcEYksdYRbrpCsLcieZWaOfU1+n+8fv/lnXu/Xmdf5PPOc5zxzzmvWu/od ZiwQEBC4JCgg8L/30zXqm/Jr2wzz5v/3IsiQn6TralKMFuqJyP+i3Z6gd1vJ pArl5/t4D9G2dq9eLKbdiB45bhtroZ0ddL5skUkLet1hlfOO9pX3q0rOp3cg 7f7GlHjaBbWn439p9SCvmerPgbQHvlWGnCnqQ+1hoG1EW65no8OEMRcZfdb/ uJi2BQnRD6wiyHldxf3y3wS9/TUgGpQ+jLZeno0Ppt0UJns2z3cUvRLr/baZ Nn+xycCY1jhSif3b6tMcQYuv+x/XnpxAhb1/TPrQVlj+qOJ00RTC+SXNC2kf kJ9I4Rv/Qr5imobyvwiiEjes3Lb0Nyr3NCt/MEvQeeWDEaeq5lHjZFWYFO0v sg1/sNIFoUfj/tOBaYLc7b08Y68vgOlvW5Za0B56KPA4x1cI2l/nJj2dImjp hm2Sw1qLwKTbKXL3JEG33cv2Scoshk3H6z+GThCk+Oz4eY3JxXD74LDZ63GC dqhF8n2KloJgV/+Q9BhBHno/qgaMxSDvZhTxGSJoLIi9UERFHJKKpuf9CUEX ikR3bVkqAdYd/5p78wm6Bzv+YVYtA92Kc9EWXDq+5AqTgPTloPG8vivjJ0Hp 72Pbw+SlYIXUg5rTvXS8P0+ExFyXgjvjQ+PqPQSFqI6/fOErDdfdrs/GdNLx Zq3fSLRkwL7m8uBMC0Hfarlvfz+Vgd72hrKw73T8I/n2EjIrIbjD/rvAN4Iy dA7c2ja5EryMov772URQeUGwoHfRKrimZvTcrpag8bL6H33Ga8AwspT3/h1B UpZikmffrgH7s9NezzBBmg0mIK6/FsxtTteHviHIq/tV4h/qCrAjJt5DqoAg /wVVmrvFFMHatOVVVRZBPRsyhyMm1kNbRm3gjb/p/FCVwp+0N8C7t1/HWu8R tOCf3vWrTm8A9QYDb6U7dLza6w6nD26AmMytRneiCbI3js6pad8IvVYaD8Qj CPrkFhAo+1EZ1q39WW7hTVDbsxvXTi5VgYcv/pEQ9SSIO5j+NM1UBQ7I/+n4 jkGQCKur3qBEBe4u6Vsi7UyQSfhRnZOvNoHN780F5ocIKkzSG09N2ALRjvsY YjoEJfXMcHaytsHaVu1T7SN8tP/YpbbA59ugyLHsfhWfj7jl0nuf926DvcXR y7MH+EgnSU1G8bg6xJP5dtdOPip3PfFykaEGsGNt13h95qMR0v5n31+a8Fdi wNiSTD6S9jHJfWmlBQ4vuCJXXPioN0nEw9pLC3addbt4wZGPXrfUyvMitYBf Fcv0t+UjR0unv1RKtMDzvcYFfSs+StrKOXxfSxsmxpUlTu+gnz/wbChUVgeo 2bfvOOJ8dJQpus28QxfkLsUv683mIcQ5pmU7pwtx/FMdohk8pBqRsN19tR6c 2Hr1jmoKDwk81d4TekgPrMRPvDj8gIeetznY5rzTA0EF00qrizy02CYjTO7J dpjuyfo+ZM1Dr02smgZc9WHHzScjY31cJL/h5vlr3btAodPQ/sBCLiq+OrZl esFuuBZXeHTFr0HkOHq8gVq/G+40JHvVjQ6i+HKlLXtO7AanxQojel2DaAOz sG6qeTeAhG3243eDSDWjR5n6aAieU7sWC5wbRGvlFSjF4wAMm6xNw7wBpJbM EptFe6Cjcpm1bkE/ehygZP2qyhReCJnfDFH7iWo5aHt4shk4zeaJly7oRutP NB5w8rYC7RzjDTNR7Ygxn5e59ow1eMf2nlmm9A3JDr5eIut6GFT6L3rYK9Uh lvaulluqR0F9Um9YsqwcufJ+VUgPHIO22BkGg5eEnu8JXJLwyRZUHXUe9DHy cdKY17uM28dBv9M3k3XoI54yWlVdft4BhAwSerM6G3GrgNBwh4sT9NQMNODb rdh3jV902EZnCLDtGglU6cSZnhUlcREn4dKu6z7CIT04eHT15FZPF+joLua4 GfXhL0l33Bf7uMCmjODKB5Z9WM9Guq7d3wW4tvEyH2378MhrsedxQS6wUVg5 YqVvH/YKnXedv+QCSSOCfnYP+vBx4Z6auhQXuD29/2nEcB/ese5FypluF5Bc F53s96Afj5vvtfng7AqzH5RKvzYOYL0/R6tvurnChKK6puiPARz0NNHUjukK 8qwfCrp9A3hmdkan39cVeMOCrICZAfw7I0taNNQVDipq591SGMSLl63+fOCh Kzhuu+PBZAxi2fpBi6YvrlBZeoRpzRvEdvP3yuJbXIGhrrwuanwQP9i614DZ 7goS4f3CpXODeE14ourUT3rcWclvhQQXK+oeE5abdAVdhU87HNS5ePPdt++d ZNwAy1+t9/XhYn2HGKOeQ24gPv2dH9/DxTpXdd96H3ODtuiJ6y5cLlYv+Lpz zM4NRrulldeOcvEG2Q06Qifd4Oqhml3nBXhYrD5HZb2vGzxs7m3hy/Fwu3mD qNNVN9j81is4+AAPR+6UbWoodQPTYGuHHS94+IJn0WHH924Qe2+9pmweD5+9 5/yp6z83+MSYqeYX8bD/xLOKkVo38Fi1yvnyBx4+nrOjSPIHHa9fQZZ7Gw+r qdonWs66QXPnoqYSET6uW/3Iq1zbHR61yZI5Jz4Wyu2evbvdHXL+TmtwcuNj nQNqUacM3OGMbbL4Kw8+vnOxKEvK2B1MtMsDzQL52GHw69jJw+6Qt+16r/Bl Pu4uXnl+zt8dhjs+r+3L4mMZ2xOSn1nugMbDLhfn8vHe4eTHSUH0+G8XjcsF fJyqrFtuccEdzEp2qi0q42OfG0eEH9x0h9XV94rjGvl4wjk6Vi/THVL/jZGS nObjTTPNSiI57hBzJfix7Rwf291el9f6yh34qV9t7wgSXFiR+SX8jTu8zVPS mxYm+Pwf1Wvrq9xhrDzh7lE5gpcKiaT6DboDUVnMPalPsFzKX8WpmxlgU1J1 oMKf4IXGpYcN1BhwQS1N9U0gweSHQH+1BgOCP8xrpXMILl8dKjOqx4DvY9rv vUMI9o0K8t1tygCXXbWdsZcILmX5KNa5MGC+et7B8yHBGcsz8twZDPjqx8ho jyf4buaA5aQHA5r3X1Gwfkywdx/zzBp/BhSKP2bIphC80tG1jgplwEzcbd99 WQR7GtuGzz5gQJnlKr5aCcFH2+PkbsQzQFx3VEallGDDcw0vFJ8wYMPlf21k ywmWyj/UaprGgNtBbus7PxBcrGqpF53PAIvRP6tXfSI45cPVqg1FDHj4YzSr rpbgGPf/XF+9peNnlTwLryOYit9789u/DDie8KixtpFgSSmjPqUGBkzcXLFO pIXgmczzofnNDDh1LTcxvJXgHou3K8y/MyDrfIjOZBud/wgDI79Oev5AmZjy DoLdp3UfFAwxIGfi8wqBnwQfuMPStBxjgIatiIJBH8H62i/ft00yoNG0RM+3 n2AJH81RoXkGHFZgxxUPEvy6XdXygDgFhn9vFJghBEdO3efWSFLQN/cscWiI 4COSwlEHV1Ag/Cbh0Y9hgvnoZ7W1PAX/RCzOSBmlv7+tje9nBQokipa+CR0j +KrfvxKHN1BQmpS05eA4wcoJTw8e2UKB/pLuFV8nCB7JkxqqV6Og13xL7K1J gktqwqKPalJQ+8XC22SKYMffzp+PbacgIuKCesw0waorP51u2klBxjJjWbUZ gie3GUrZGlLQWmhsj2nfclpzxM6UAjlPFr9mluCT7GujX/ZToHzGDVn8Inhb 1EzscUsKzMslBjDtmSRPnW8HKah0s+erzRFcUfylwf4IBcamapa3aN9p2Mf+ bkNBjqq30BBtN26ejKM9BefShVbs/U2w5kKVvBYnClgabedu0/4tH2fj5ELB l6k++E67SnvhZKs7BSfkpJ3k5gm+bxF494QHBdtDrOoO0abcOrf/OEXn6/vV xDDaOmcPfXH2o0CqAn9Io70gtiSoPYACktq5r5J2bbrGahcOBS35g4pdtONL 4ws6zlAQK9R4eIz2qW/i9q7nKDju96B1jvaOkZCZzgsUTOfov6PvD3ixCPeB WzgFVfY5c9O0G9Y7GHRfor/fh0WxXNpP9Cu/u1+jYKXG9rBm2v6H9EN6blAw +MCiopD2bs/UNdQtCp73m3ncoS0SJvumN44Cx5qdLl60v9yLdGLep+BC7eaX erRTXozP/XxIwVpLxROzdD4CK9zjPRIpKDyt4fqaNrTXG/Y/pcB2L4V9aEtM 7fnh+YwC76dNbHnaLctyzg+kU9CldzviHZ3/tE3rFU9l0vH9lct3pm1iO3/S +xW93uyQ6gh6PaX8fAV5rymIM7UzFqf9I7L1sU8xnU+leakouh6C84o6fcso WHBBtYRN18v+GtW/yHsKEiqHH7XR9bWy9/5G/0oKQt8INyHa2TJB7qc/U/D4 6L/HBun6DN32c+FIAwVRzMJHurQtTW2SA75QMDn/BILoeu5j6fQG/qBgT9Gi e710/Ss0DDE5PArqbgTdYtL7ZYOt0FrjYQreKYuWOtP7SeWbTN2ycQpyFfaP HaD3m0b7zl1pv+j1bZ9wkeLR+eGGS7aIMuHguNqpbfT+NfG7+2/qMibc1Vlc 0NpLsNlIWjBbmgnaXD2xiB6CD0/VdEvIM+GEnXL56066XheuLjBSZUJ/+umI XLqfeFza6iuhzoSYME3htd/pfihiuPH7H0wYSIqLC/lKMEvSLYqlz4QGbdVK xSZ6/6957vJsPxOWULysuRqCU3WMRMSZTNi3J61DGNP9Nv8I/urFBF7GHrWu YjpfOylWii8TbK0WXn5ZSPcnuNaGOPR4eRBbP4/gj5aNOQERTLh5Yl7/Wwbd P9w9Hb48ZcKC5EgB/3t0P/h5VjL5GROCvk1mFMYRPOF149/T/zBhd8Ud9q9b BM/7v9QQfckE3y7OCUYU3S/PzQkZljJB+O1sUlUYwdpxMRlP25lgqLkJD3sQ PCT3N6XRzYQr/2k96WUQnJmYpFj0kwntvhL19a50P8nIv13Hp5+3zWD9XUeC FctaQwTnmGCzfTr83UG6Hoe3WDmv9oCDb9LXpOjQ62tZypM77AEhyTHhuVN8 nFL38VnKMQ9I6M0tyh3jYze7Rhet4x7wWZjp+HyIj9vc+hrNTnqA6xKftkt9 fNwYLPE2yNcDbrrIC3Y283Fpqv2NpqsecDp79NnWV3z8aOGo+q0yD9CL0Fyx xouPb40nzHl+8AD7/Jzt79z5OLLXssroowf9+z72wMmZj30rUjyH6zygZGZI JeQoH8N1+yTrTg9Ia2++YG1Inw+kS1cvE/SEM34bk20l+Vh1Y8zC64aeoLdm ImjwOQ8rrDCsd9vjCd3O8e/PPuNh6UWDjw32eoJ8aMRVocc8/KvXBA1aeYKY XmTIdCwPV6dPnTF38gQh9grD82fo84/WSbI0xBMSuBd7RvfwcJ6RxreIAk9Y 6Oiad/MTF994LvbS4o0nnFJ+n6ZbwcWM1QPXlr/zBKmtAYn1JVy8Yjhp96MK T9BY25wwmc3FAYlyj3ObPcH32xvF9lj6PDe/yKNr3BO8csIFdW24+Flxyzho eYHkns3UXMMgvrf96vJf6V6QKWotdqVoAG9JOUEuZHrB7Xt5zI6cAVy4Qrt6 UY4XnNq95JB2+gBuGf5+eVmBF5hpVzaW3RvA6zK2CWz84AWiwT2dd9kDOEXx M9+sywsM9Kb7xNUHcK7wqqq78qfA6fGhDqDPz5++J0dqXz8FY6qf7I1O9uFX Vg+V/C94g3T6GU1Jjx487HNEwNfdh97vUkJ/mXfi8b1bPPjGviB4jWP2H7cV p/K+TgXq+YFh6YNmrN2E7R4nuzmJ+YNY9dOat2bV+GWOhbPQJX8wmipuiv70 GuvL101fmfaH/3SzGKKRD9HGdua3z56nwUr62J9vtpahbtFTBx92nYYEQz17 4c7PqPbGAbd9xwLg7zevZIPtvqLbQQmi7NoAeDcfcyk7tB0Vv52fdjMLhIcH PT47jHehZY5wSbswEMRePOnMb+9F+if5qRE6LJAqc6LSUvpRyv2hwAN6LGjZ A8/VX/SjFfUjhrI7WBB20iH2OX0f45tONqQasKC1ukb7XlU/fV8VEKzaw4K5 KpFwxZF+JDG5/LjUIRaEO620nzUYQN1RusIJPix48ZOM/Fc5gG4UhXi+TmHB kMHTfuuGQeSjdVc/KJUFY/WlMwtbBpFlWrbwjnQWGLwRpnLo+6PI3d60/Ocs mFUqMp4eGUQRAdYDebksMCko79NbzkUhW5ROvSplQad9wD5/Sy7yuvvRO6eN BVPDwfKf3nCRmUTvroB2FkhGfxP6p5yLNkcIiGt10uMFrRIXPnJRb4Du8+we FhT3mkfKfOUilwMJvBdcFkQJXqzmjXKR3aJA36wZFnhnN9gd3sxD+wLl/DNW skHYLTiu/RoPlSZEmt9axYaaDplc51s8tKtqRClIjg2KMQfCm+7xkKbyx6/G Cmx487eN1j/JPLS6+azxd2U2PJ48d2voLQ8N7mxdKaLLhrC2t1/6CQ/dXJD4 hnmEDekONslXLfhIREPsntUxNiz742riL2s+CncICtC2ZcPDBZ9lKRs+Csq1 3jRvzwYR1wjWOhc+cqEEY+64sqE47WbxVg4faVe6uv97mg1OrgilxfNRc4yy 6MZoNlyMNTig3s9HmUjcoy+GDeHZX8/t4dHz88bKn8eyoa5Xce3BYT7SMisP 3XGXDY1H8lIOTfPRDQG3Eat4Njxanl85u5SgvX6JX4My2JDfOxbWpULQ2rWX 9Qwz2XBHw0E/VJWgsUq/WKEXbEjL9z+0XJ2gJyrI6sZLNhhvUUtU1CVorrW1 5GkhnY8rPxK69hCUaymfWlPBBoOQP3xnHAm6NrNg0e1KNjS1vP4od5Ig19QB l+NVbLjSXBei7UaQ5MJC+e5PbKgVKGiy8iTIu8ju5nQTG5iy0UdV2ARtVL3D Ueqhn38x6QvjGkEzzefq+3vZkIRjVoneIKg2gqGZ1ccG1vHGxNRogkI7dAb0 uWzYdrnuUlUcQd/u1TsdHGWDbJNWfH4CQbeWLDcNFuTAvLsGUy6HoOKRVgeW EAcGzg+++yuXoJ+t6QG+i2ifFgzsyiNoV65JoqswB1Jn7RojigjqPRk0a76c A+bX1S/ZlNPxW5pKmUrT86WtCQt4T5DBdqktSIYDiRd5H8MrCIoWz7DRXs2B yo6Xh65X0eOFP7Ll13PAQrFdbFMDQVRyRoXMRg6s02sJGW+kPx995scyZQ6Q KgH9wmb6eZS0+MItHDh+OT5W5Ts9Lr3Pg6vJgYqtn8qudhBU+Fv6fK8WB0Sj HkWKdhHU098e167DgerAuzEXuwnaWRJc1rCDAzK394Ue+UlQt3emwhvggL19 fcoFLkESdmd18/dw4CZzY8JLHkH6xvsts0048Puqc0sLn6AbqzvPJO/nQMcL HSWpYYJeL8yKTjDnQOep9eoKIwR1kbPP7ltywCvz8VnFUYJ2vJdpjLLmgEab UvuScXq9szsHLx3mQD3ETnBpRz3MWnDxKAdmZbwPVkwQ1Blgpsmx48A/aUc/ uEwRJH5i5T5/ew6YPfrZs26ans+sy8nLkQPYZ9C0gXbUunPXTpzkQFmB93/r Zul4RMyf2Lly4E+1CG4e7c7xlQWH3Tng72VibfKLnq+j65MlxQHK8fzYB9o7 ql707vXgwMMu8a9Gc3R8+efmwIsDI18r57JpRz0xX2HgTa//8tuuq37T80fJ btX15cBrG/MlbNqdQd1GGv4c2Ov9efADbTH3bLstARwwWiYpuXyeoO0HQ/02 suj1HCeB1rRdd1pEruVwYFOVk2wk7evKqx7JBnEg0MBsJpt2nmTPy+XBHJjp TFrTQLtjNrtSNIQDtxyoUPp8j8R+hnYsCqXj04tcN0tbr85iav48B/7//4X/ AyyxuzU= "]]}, Annotation[#, "Charting`Private`Tag$20788#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, 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, 360}, {-0.9999998830731719, 0.9999999999999918}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7425674984935827`*^9, 3.7499957172025595`*^9}, CellLabel->"Out[92]=", CellID->71758026] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["Evaluate numerically:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}, {3.7425676017175827`*^9, 3.7425676115715823`*^9}}, CellID->20808793], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CosDegree", "[", "43.1", "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7425675450285826`*^9, 3.7425675450305824`*^9}, { 3.7425676155775824`*^9, 3.7425676268715825`*^9}}, CellLabel->"In[94]:=", CellID->245535023], Cell[BoxData["0.7301622766207523`"], "Output", CellChangeTimes->{3.7425676284245825`*^9, 3.7499957346273017`*^9}, CellLabel->"Out[94]=", CellID->417852284] }, Open ]], Cell["Evaluate to high precision:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}, {3.7425676017175827`*^9, 3.7425676115715823`*^9}, {3.742567725781489*^9, 3.7425677335892696`*^9}}, CellID->485732157], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"CosDegree", "[", "26", "]"}], ",", " ", "50"}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7425675450285826`*^9, 3.7425675450305824`*^9}, { 3.7425676155775824`*^9, 3.742567691536065*^9}, {3.742567749251836*^9, 3.742567763337244*^9}}, CellLabel->"In[95]:=", CellID->140238344], Cell[BoxData["0.\ 89879404629916699278229567669578535492997341381842186993819696446104302674423`\ 50."], "Output", CellChangeTimes->{3.742567764525363*^9, 3.7499957347233114`*^9}, CellLabel->"Out[95]=", CellID->251803357] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->17609906], Cell["Draw a circle:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}, {3.7425676017175827`*^9, 3.7425676115715823`*^9}, {3.742567725781489*^9, 3.7425677335892696`*^9}, { 3.742567884256335*^9, 3.7425678915240617`*^9}}, CellID->104526767], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"CosDegree", "[", "t", "]"}], ",", RowBox[{"Sin", "[", RowBox[{"t", " ", "Degree"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "360"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.742567868943804*^9, 3.742567868945804*^9}, { 3.7425679010210114`*^9, 3.7425679343903475`*^9}}, CellLabel->"In[96]:=", CellID->470346559], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJw1m3dYzf/7xxso0iCEjKwyEopsNypp0KJImqKSJkXSREloD22lnaa27vbe e6/TOqdzzrsoouL3/ly/69s/9bhO51Sv1z2ej+s67dI3VzVkY2FheczOwvLf 5///mIH/faUvKiq49I+Al6tqpX19dEAoJt10hmTnoSuPPviYAyv4zvWT7PnF u3wixRaW8zoySkh+ve48r5OPI5zJcYwLJznK2LrDvcAVOIuCW61JdlhF7ahP cYOxM2LHL5EsKrCbnyvyLVg6ytWvItkp/3LgZZ8P8Kz098fyvwRsvn1K8nSp N4ztVIq0I1mxybhRscAXCoLu9O8nWTVMPvhOlj/s4JdQalomoLpuRtAwJRAu a04vPCLZMNm6zyg2GEx2hPasIHnw17TW/YgQWNJQuii4RECqkUi+oncEsMd5 VH5cJKCFY73y1opIkBQ++nI9yWfSpMU8SqKg8sLFWNpvAgpWvs3Wyo8G4Z7v axRILjMsGy/KjoHkzxFx0QsEOIY/W7Mt8zPsSfZ8c/4XATybsi9UJsXBQ+69 TQ4/CbjRbdK2Pj4eHhEG13LnCdgR9OfB7ZgEsNOInOOfI6CzSCCkLTQJbnyq +/FohoAaDLZ68i4V5DNvr7AkCNDszY6rkE4DolBWyZRJQIq+V2R9aRpYGUn5 K9AJ4Lg0JtlYlA621ULU5EkC3pi4hYRmZ8IfztXtlhME2DoOubw8ngVVlc6L YuMElPbdd3yQkQVnxnVZfUYJ2Nj69PyOL1+hIGJs9k8/AQst+x4rfM4BExfV Wuc+AorXmSZx7smFdyp/Rlh6CQieYrAVR+ZCoZxF82QnAdeeSwdtC82DJeWk rFvNBOwymGX38CkAaY8zPytLCPB1ENwt6IDwnSPAOg4JWPyE/ItsxbBsJN7v 8I0AjzF2trErxRAQH2+5Po+8H0uftrjGYoi/8hTrUwmY4Dt3aH6gBCIXPzi8 DyHAXI/3q/9iGdQYf/s3EETA33d8PUehHLS7pWz3BhCANq/FK13K4cMde8UA LwKM7zueGlpdARr71sVyvyJAQanBulqgEr5F01oUTAnIf06pvC9eDfVabYJc xuT9PFSWDH1SDdeopcYlhgSwPC2Mrc2thhJu+438OgQ0ULPPr4camJK5ViWv QsC7qMSD8gq1IKn/9vHa4wS8/yhyVlG/HjatyLIf/s4E6ju/4tUyzSBaci+p nsmEAGpn5oxBM9TcVtuTTmMCp2GBV5tLM/yYXfFDf5QJsVGhU57FzXDxwIiY SQsTHE00TjecbQHpFys4Ob8wQYoYjn1xrBVi9d4KvdFjQqd752GjLe2g0bA7 yEmLCSuof158O9kOpvnWLyw0mCBZaFLGrd4OV3uVA05fY0Ld5lneCJ922L6h Zq/lKSZoW13od+XqAKHthj023ExQ3iufpLTUAVESVw5MpDPg0c1/WQU9XRA3 KL7IlcwARrqZSv3PLmi4ZZF2MJYBKqaPjnTxd0PTJ5da1Y8MOL7/sl/ftW64 cGpi7JoLA043Zl8IL+kG846rv2aUGXBJanDVyvgeuLtXmG9+ig6a4b1H91v0 gc631fvPjNLhs7p4uLVnH7zoDlN72keHI3/3WebG98HTXDX6UAMdWO5Wi4qN 9EFDd46KVgYdMh0+n69R6YfpgF4dLjs6VPmZD+ccG4Cjm1yeX19Bh9NUH/Wr 9EHQrNpus2FpGhTXiHGtWjME2X/2e7b+mAZ9gy9/80WGoGBhmP8kZRr4Awac 1hgMwTvh4LaokmloPPGbA3qGwM/j+QGWF9MgmlJsuqg3DMLqQ4qzDBrk909R JeRGIIUiZ4BjNDjip5TioDECBpZ0yqs+GrQkBHqWG46AcbeU2FI1DdaLZL6/ 5DJC1lvI0ffRNPiVnHOUpWAEHCkj5+U1aCC+0feR56FR2BPL9uxEHhUIbtfd FZwU4Om5cLwslQqVU0ufXTZSYMvPnZHysVTg6lV9dnY3BW5MCPle8aXCjXl+ 9oizFDD9ES3yw5QKKUEZCofNKDAVxhDctZMK7NesFg1aKeAe9pZrxGEK2sKK DPYGjoF2xdrnCY+ngKXMdFomegxkwz9OPTSZgq6Wi3r6qWNg2cOoGrw5BSY6 T7g8q8ZgjBcG7UWngENsHcenX2MQo1cUE9o9CToV5zk61cch+UFZkb3oJHwy aGqSWzcBq9adZI0QmgQ5f+aevO0TICr0KjB/wyRoDQVv2n1wAoy/PmwYWJqA E1ela4YvT8BBVkZRe/0ELFduY1n3eAJot1XL3B5OgMTBkJDTHRMQY/udUzBm HHr46g76+kxCqZ6wt1ngODxfHnh5JHwStlNiBgs8xkFXy5unImEStIcOdktZ jkPMxhfRfcWTIK6hk7z6wjikPlO2yWZOQk2AvoBF5xjUdyYO7JSbAucwc6lS tjG4Vpe/JmlhCvYIjhj7zVPgt0j1wnF2KvQrWrHrTVFAO+j09xxuKsyrxoRT GyjgZBS8GL+bClk+Fv25QRTo02ZuOqlIhex9PzNVD1PgDVV3miWcCuiRzf9e dRR+/jW9fvIcWSe2e7q/So/CddPt+wZkaHDYmde9W3IUtj94mvJciQYbr7Xm 8QiOAi/dvvqTPg3wkFLLBcoINIVqDgS500BUZ8vJdKsR6Nv448TuNhpEpBy+ ++fdMIwNyicF6k9D+0euKUenYfhV2beYazINOnmlj1mth+GhxNHENqtpoLXX Ry5oDIO51LXN8y7TYKG8EJ6zaxjclzvYpz5Ng9Stdft/Gg2BK7+WsefINETf Djmg/WUAhDQfXCu9TQeOk0wnG58BqH8jkcClRweBba/S3GwGQCbtgMh1Izo8 cHqT6XdhALg637sU2dChxzVglWZjPzg9snmt6EuHNOVPbYH0PrDuXHF5Wx35 fGvfX7x7e+HI78hehxMM8DU2sKSs6AWT3SJm1ucYoHv0wMvU8R7IGryRpiPF gPMRW4OOxfVAqn/1qZ0qDLg3FW81eKAHRA2d9pwxZcDRc80lo4e7oZPDLnMg kgHRuW1J7Uc74UvdnY5GdiYIXcoNr+frBNM8wZCvq5nw6ZurfNFMB1Rnbe/w 5WWSz1ecfZ/WAbHZ5yIkBZnQ2Gb2fOJIBxhbl9zdKM6EQNtVr20Ot8Ntp8Kt ktpMULvgSdfc2wpaVeN1v1OZ8O4ry0L1ylbo78lTsstiwncX27fiky1wTeat 5I9cJtQ+KTNaSGgBvde5+xtLmGB/7UmL0pEWmN8V57S/jQlR9Cr246ebwd9b m89sjgm0yq6d2luboer2VqnHC0w4nPvqOeevJuiKW6iyWmLCmZQ3Z988b4Lj H/eX31pBQAln3ZvDLxtBdG79w2p+AszM5ep5/Orh9+j5iBPHCFhnNGFOu1kP weY2zsXkHntlO7EWBephccNgrNQpAp445VuohdTBWGNxjjiQuSem8MPBT7Xg 8IbWk6lIwAmv72kRX6rhSWDr/Uv3CZB+e2r/eotq6CpPFVAm96qzqKKXw7Fq qMzN/KtO7t2De5kWMllVwK5+zPSaFZlrUqaF3+VVQqPCs7T+F2TuSyFY1peV g3ig9MWXvgQE2SrHPHhVDrv7g4RWk3t+Rq/XIFe2HB4nbbZ7TeYANJS0Uqgv g47j5wNMwgjodp96cLqjFNxcmfrdsQTkWBm4GweWgunOB0tCCQR4Xyk643+7 FHg9HNboJxEwl8ruNUTmjK9ehi4NZO4YlgwMvjRRDJ4uz1vlcgmQ/9Q2rhRf DMk7ZNjU8wm4q0I7rWlSDJv7fT9pFhJgr2tqXNmPcGhrp/i1YvI8k1v3etG/ wR+xqZddVQQIFF4rbF+TD6oqbO+cOggAvweHnN7ngcXqOx/4uwhwe2rvum99 HlR91lkM7ybgyjMhQ+0tubDDep4ngsxhRfw6op4i2SDBartVeoSAP4k3dq1J +gp27TK6H8kcx8G0o7uIfYXae6zcVAoBH2vW2hueyAJBT9aP5mQO3DRmhrOX M+AWz9CzXdMEpG1e81muMh3KJYuZZ8gc2a6ueT1MLh22tF+uVmQQUP9oRv+U chq4nDwQf5vMoSXjsvwscalAp/F+uUHm1MeBTR1uKV9gFTNM4OosAfx1XPHO +cnglVazYfMP8r5XJYrNFSeB69BC3BzJuy+e26xblQjS57+H1ZC590rPLrZ9 7fEgfNsuXYvMye7vHj5z6I2DsDUJjVvJHP2ywf9S63AsfG4ZudZC8syoW4Yx IwZWOlRYipA5vIrtFKf1YDQ5Z05cbyd5ppijzqbpE/w7oiz+9A8BsuWLV54U R8E/nNrOT+b6W2Jbq83SI8FfvY3vM8mjazuOV0lHwCu2yTVipBfcvDrNHy8c BuPqy1xfSC64WDeiQguC/X0xu31Jj+D7V8ayrT4AjlXNn1wgeePPD/lDKX6w sr1a7QbpJfa2CnFhH3yAdnCFTdx/nmK7QUfd0guSn3mFz5K8M3/D3IZYT4j7 fqtBnPSeO/khQk+M3aFeUYHtIcnfg1gfN4q+hM9lGuc/kuzVLnBeetgRNAUs HYpJvp/JHjV63xayPT0rBkh+ej11aq73EexnRK3/TrKpc7D2qebbUPk6yXCZ 5KYto9Eshy6ismhs0T+S/zT+0g5ZvodHTnhv/02ykFr5rVMLVmjzwsyFSrLM vtLUMMvnOGx4mdFM8seC2YQX887Y1savnfqf98kqWomIv8bbx+jtL0m+fSmR pc7MA3c96lJRIfnNXOXeB0nv8dkfSvsGkn2Hj2gsW3ujQstu7Sby7687+VHy so8vbjWLYziRfKbcNcg5zR//tLi5HiD55M2msfzGQHzr0r+zhjxfj0d6rgx6 MM6+KS7VITnEQqh/M1coNtmomDLI+wmtm1M/dyAcz2qlbrMi+bfXWErSnkjM a1lqY5D3q3xGJiFLPAoP/9D20SW5V8SvJffSJ+zSXdaoJeujza62N0c5Gi8A 275DJG/c1KPz2ewzJj6Z62ghve7S3iQp3xex2J50OV+AZOlrt7rtPEmD4cmL vUHWY5uW/NiJxATcUrEYlEl6XeyY8Em18RRMSbamrvxO1o+JjuqquS/IMPLc uILsj886mjq3WNPwtHsNqZEEVFQ4HZ7nTUeF5sGuarLfBvMMDs6JZqKZvpTt 0hTpmX2FHcJZmchtd3Y5g/S6D0f5/6idzcJpzvkPumQ/939csylM7iuWNB4c iCT7XYKt8smEYQ4+vx21K3uAALZbo6eHKTnowj904iLpdXmWUvvb9XKRdzOX SynpcYF+1ZyJd/PwX2NMWSo5f7r2jj5fc7MA9yy5/xRtIe/XYMeJ1tYCbCrr aH/aRHrOrrTdvsqFyNlxhFnYQPZ/85+dLIrf0NYQ2w7XkvUiECrrehnR1DzC JqOUgD1rpmTXFSPefxh6upich1qnXMrqdhTjll1wtrKIgB4ztz1XQovR7ofh Uj45T6vSz+WvDizB3objL2UzCDgVQBsoeluG/3ZTdzIiCEjSU467WFuG12XU uBzJ+S4Zrx7yjbMcp0z/nV9NeqGt9+nK+FfleHDh9fNV5H549Pe6/WXHCpQo DjWKeUtAZZn7RhvLKrTM1Q4xe0Luv26jKGuVOuxr+iZ3SYqAZtfyjY/86nCb kfxxP3K/vd/1M0K7qw7X+x4QGTxLernayoQDd+sRy/Ye1CD3Ywyv/eO7Rg24 bO9SNrCXrN+o4cOHXjThHb5JuEDu26PvLNnDsAlrCY4TbCwEUGwUBtlYm5E1 NE/62yITRq9mVt6VakaVF7m5m3+Q+910nXxfVTN67OPfZDhC7veLsXX0phbM c1pbeaOQCSsFvbW7Z1owhr11ySOHCW0bHtcVrWvFep45/dwMJpyr1+G2V2tF H9ue0oV4Ml/8ajqQ09mK3HvfLPD6M+HGdxEPkf42zHlW5BD8kAmb2M8bpo52 4GCAqd+e9UwoPCapfo2tE39tmBfTXssE67mho+O7OnFMcuGZ1yom8CioObHp daKCer9I/x8GZOx77vt9sBOVtoTz8VEYsPrIe2ZkTxcmWIW8mSa90W5b3o/f NT2Yzsw6/EKOARtWjV0vn+rB5xVzO9MvM6BkKMjRjaMXVwXY/Ok/y4B/qz/C gnQvKtxpNt8mxoCYuvOKLtiLNH4F7zPrGXDStPnoscw+lLmyS3++mw6iga2a 6DeAtSXpMta6dPCPZnzxThtAFgXPajEyj2YlpA5q1Q+g68H4ZxQVOuizm2YP sA/iZpXER6ek6PD26d+37laDKJeo2+i1jw5x17n/2V8fQvsEiRXLU9NgdM/U /LbTMP745rSnmczLfJZztJp3w+i/X2Mui8zTVxLXPZQMGcax23livprToDGz y5Q9exgPlM1PnpWfBraphwKPpodxQPBp9IUDpGfKGUnb3xzBTuUty2smaDDU ezTfWngUXzn7OTVo0sC9UvuwzfFRFFpmcO9WoUHQ44Jn1pdHcdeRxv3msjTg ahZ9r609ipcu7Vz/Q4IGeSnWJ3/6j+J8gB7Lp7U0oFLfb9u/goI/ko98Cy+k wu+1Kzif91PQeJQlU0SAChOmVutbqBTkYXaY+K6lgsQ1Rbtdvyi45LF67QIr FXS3i6ulrxtDGR6vTcn0KRiNSS72vDKGfleiI7FkChrEhq8cSR3DRcl0iUDS CzW03M6sth/H+JeH+HfkTMKpc/J/693G8S2hJG+RPAnOK85av/Udx4Yx3aTC qEnoGF9vuJA4jr6Pu+alPCfBJW5AwKdnHNeHK/9cqzcJ+jelT5WemEDzI/RF j9WT8PN6TxgrbQLzZbwE5NUnYJum4MpN8xO4tEW1fEJ+AhhBL8r2skwifNv/ /QVMgPnnwjPHNk1iPJ96f8j+CeBbf6Bq5eVJnO6rOh3wZxwWHz5f+hg0iVi0 L8AtbBxk7DrkDC5NIe81SXbLoTH4p5ka9lFxCgveu0jptY6B+GFiqlZjCs8/ oNgrVIzBCtUvtzaZTeErfi4ad9IY0AuXLt/6OIVb+R5tVrAZA4n9B56+mp3C 1T9/7UjkGgNRfWl7849UfH9g7cJGcQoUFLwMxxgqDnEltirupcBfl3c3OFOp ODvTs9thEwXiZNZbuJZR0YbJkGj+Mwq38zetF6JTsVVC4o142Sg4FgZazZyl YdqRSrcfpDc6vowJ7emg4bXXQgauZiOgqle/hmuIhrNS/kdu6I5A8eXQ38en aOj8YXy3kOoIXFtavG71h4buR+beJZwgvXF7vLfPjmncbblh3GVpGPQX2GQe GE7jW+mNm9TeDIPQmxwZZcY0PqTL2nHBEIR/jV/2nJ9GSU2VW693DYFjh+dU yfI0bvpQ/HqBfQhE9Tiub+ChY7hP43xp9SBcJo5tviNGxz1+e1bMqgzC0Hlm ptkjOjrZqe7L0x8A56tyLeHjdMxnD+M77tAHZ167mOvR6dgpfObfV70+0HMr 4tj+g47bpdJkj8n0gaVB9k5HFgaKy/azbljbB/+2yRcztzIQFRwHPIJ7QSi7 QtvuOgPnJBzlpDN7YFdLxKVTaQysHfrMKjDaBXEPvTYJZDNwlY5lVkt5F6gU uGcxCxj4JD856nVcF8i8Gpdxr2Jg3e0p2SHTLnh9Y2XgvUEGfrj400PxVydY dSgVFa9hYksUi+h2rk7oEtPvWb7LRE/7+T01Yu2g1rkJ7xow8Zun6CM1nnaI czmxkGXExGGnlqUuRhtQVD5qy1kzMVboxYbm5DbQec5sWe3ORG/a3QMvDrZB 4udra6ZSmbj83IOnjfTG46y7nhRmMTFrOn/rqhWtkHRr7zb3PCbKLZmzHae0 wN8KqS0ry5h4rXX0jVNUCxg+PJLo38HEY1uDHAe2t8DYe2lWvt/k7/NV/mLq xmZoYip7aSwzsdVRsns/tQn4U9uuBLASeKppmZ8W2wTnue/v+72awJ/TMa4q u5vg6Ly5242tBB6YN72ZvbkRBsbn+nVPE5jc03hnir0eJkoWL1VbELimf9VJ 6/Yq2M74vf2bNYGib3boZPlXwTV5K+FEGwI1xrviCfUqMF9JyzO1J/BfWuLQ jZ5KmPDk7vJ1I/Bu2wuvvoEKKNuvqGIcSuDQ0/q0yfEyOJ3bFjUcTuDptYpX W2PL4LHzlg3KUQReebWwmPOgDPzFntwRiCVwZmf8z8fUUjD+PHNPNpXAp/tv zGbTS8Ag8eW4aDGBUd23HFrGEB7EOnMLlxJomPB4ZvN9BCVem+sC5QSGfjL3 uTVZBH7Hbm0ZrSLwSNjhsWLqN0gXma/Y3ESgCM9d8dPMAgg76Rvf2kxgWMKv ABnzAmibdY582Uo+7vdTRGEmH9Y+im5s7iCQavXq2uXveVC0Pnrzmn4Cn9X8 ExybzwEvMPz4coDAR5I1t77Z5EDpfSWxX4MEVjdNFXn9ygahCtG35SME9qoV vxL+/RWeilnxskwSGLv95ON1S5nwo65+89kpAk9y8lihfSaML8QcM6MS2PLz TYDRcgagSrhX4TSBFvZHW5P/pkPgQMcimTOR1+PrWxbWNHjU+zx0ZobAjxYj 7Js5UyHvuH/w0CyBE012L0V4voC3JMTH/iDw0Pejx45tTQbGaoM8hzkCS4SG 2g8JJYGdj5Cw0jyBstxtizuFE0HoRPS6np8Etj4sLp0/Fg/8W9d4+fwi8F2m Rm/XyThgl79uLL1AoNwVi3tZ52Nh+FzlIe/fBPovmONduRjY+jBxg+gf8vU9 /3EcUoqGpfx6DSS54rRexo8bn+B21kV64yKBpioLgk91I6HMROW8whKBlLVF n43qw6Fca8cUkvzg49zXnq5QCIx+SxddJlD4hPywFOUjtIk6yvuQLG5uExrH DIKH+cOsMyQrGYjrr/wTAEWjweuv/CWw7uOphLsr/cGXL8Dej2R9pjQ1jc8X 9riWQh/JW403fPwn6A3brvNobf1H4Bmd2vt+199D7G2TFtJ78Hgp/fZuQw+4 r18T4UzyhRne5YTnr8Hx986qBJKZBl9B1McFgl/ek60lWaASd99QeQHD5z8I UUj+4CBcdtXhCXAc/6g6R3LHB2VHC/WHoCDvPEB6HPJ0Xhjw1tUAi1OXS0iP Q38rh0dcqYAVHv3LpMfh1tJXXWtCDXDvJxVfOsmbYgyrBaIskZEZ49xFcoXE V8a+x8+Qt7a3Op/kviq1vwHRTvin9I9RAMnbN27lEnj3EhNVuPVNSLaUSDzs Y+OOH5e3ZUmS/Oqvsw2HrifW7pbUWSTPY/sdvsX8vV6YO3vfIJdk63BXbbMt PqhpjsWPSG7a1/9oO48f7n6iYitIcuEtrfQqtgD8nnbUrYQ8/+kS2XTTX4Eo +NlqhvQ6VBejzHORnlc2/qLpFXmfVtLSZic7wrBf67kMN8linR8zSmsi0HpE auM7sh6wQE9sz1AkzrpllD4h6+XA7yHnj22fcMYmJHKQrC/zyGD3poZofM/d 0Q0kxw73tf6rikFhWtutabI+tdM/X1YpjMWccFrkCZJ3rH09Y5kdhyu656Se kvVsmBb53TMtHpNaP4ZMkPW/dlZ6RXpMIhpv9Qt4QPZLx6X+1kTPL0jfp1Cp Q/bT3yY74fqQVLzok7xwney3U/Sr8lY30/DhyZj76xkEzg3YVdnfS8cKVlOL w2T/Hg3Ubb3pkolEonHRwASB/A4784tWZyGttmjdq3ECG1Zw/d3lnYXb2H/W 5I4SeNF3ibUr4it+62l7m0XOE+minKafhTnIwZ3Du72P7NeeC2Zi0rl48O3F UPse8vzfXT2lU5eLLLXbW4Q6yXnjnZ6d1JOH56WtcpYbCawhaBL0+QI0vapM W40Eev0o+/V4UzG+ZnCfoBSS9dp7+0zL7WKcrvjhlZlP3rdc7ej+sGIc+pzm cDqb/PldJltq95Rg3UyVVG8ygfkPr3C1Hi1FAX4LLosgAiVYh60m5coxUn1l br4/gW/koiRmPctRW6naacmHnG9jUYfmm8qRxXbG2PAdef7FxJPpmxVoLLUy vd6ZnO+n2O590KvETXNK9bNG5HzO7jgcY1uNAiwvUicMCWzu2M/f8bUaRzfY DbfpE5gp+J3670c12sVTxQK1yH1DnxOTsqjBHonDviVKBN7ZbmnqYFSLafzU Q7HHyX69w2OUr1GPrTyh8kLHCDR7Gijl6l+PIZ94yn0OE7iR7+V2mbZ6nD6W VqsrTOBw4tKHzOsNmLblG0QJEEg/x1J9WqYRf7eM+GctMHGR01TEfHMzlnML N2TNMTH36r9lgZPNqCHy+1HKDBPfFm7qK7zZjNkrLs24TTHxDlZ5/PFpxmaq Ff9oFxNtVwoxpblbsPCJSsGhr0w8OGV8kpe1FY/vDjywzYSJS486omTG2/DM o3PXSu4x8UX+qw8TK9ux8VtU2l0dJtI2aeY5C7cjtYNyzv4GE0c1KCGxD9px 1E89UPkCE7e4rwhIoLajcWhuoQYfExn3Xx/1pHcgJ2+mz3QKAzWXt9NdGF2Y 6/1i+HkcA2/JZyrd5u5Gl8nXMexRDKyKs6rcf7gbBRbqAn77MrCwt7E6w7Qb L70bveX4jIEDI5y7rKa7UfecLuvcZQbSIFg4YLIHN7Dfav/QRMcLTgmHj/f2 IdOsv+pENR1jX7mtfLvQh2k8CUVtxXT8mHF9a++mfmwXVCr6lU7HYsZ8t65a P95PyIFhXzq62qYib30/Crs67TqhTse796VHpwsG0FFrl/ty+zSe0d5rZuA/ hAZvbDji66cx9dmb0vSMITwYPdokX04+7sqr8KtpCBc85WWeZU7jr4esdImV w8iiO8Bu5z2NRt80/pnBMEYZH6KsVZzGD+5Xc7kyh/HfhLD4mwIapoymPC8L GMET6QnvRjJo+Ckoc5ISPYLHPTbZSiTSkEF7sY4lfQTr69ctlQXRUPZRrveh uhGcOB+2OugJDW15H9Cv/xtBY88PfDxiNDwRuV+h/P4oLlDC1lwi/WBd8jRV TZyCbx0+Kjd5UTF4Dw/rxAUKpiW7m2i4UfHYjQIrawUKJv/W2XPzMRU/twXe drpHQd4Vt6mrrlPxN3/lsF4ABW/bSDfKsFBR0HPz8Uu/KRjw08jtku4UGreI 79UqGMOVChs2id+cQnqrhLR69Rh6zQkXCspPYYxa3Av5jjGUzBS80ysxhdpq x8R2EWN4V3b03EqOKTwncHGn2+5xbNWGOxuSJ9GVQ3m9uPs4GvvMlorNTmCA ZeuO6esTuPnyzRdXxyfw1i4Ws113JjDX0T/nTs8EsjRK3VN5MIGDNqfyzEom 8FH0yVPhjhP4gU1OWdZ7Ak9d0N0+nTqBZzsDGyqOTGBNrMjQdd5JtFH/bMBn NI5ZJ1d8Fa6ZxASjyb+ntMZRpqzJs6ZtEg9lX1XRUh7H4KBnjvcHJ9HeSUTE 99Q4KrVMJb7/MYl8wu3UEs5xdJJZ2xK4fQr37t9qIBw/hqkZsxvfWkzhOLXm gBCFgpfYQpMp66gYfsDG8nMnBXNrnk2UC1JRdC66eV8tBfWz+WgR+6iY20IZ EUin4N20RGmp01R0mu2ILXGgIKdqIjvoUnGpyv6J2BYKpgxWvudMoeKE0oez rvKjuOLcsmbbJRryb5G0zTw/iivzKqwK5GnId/ij1tDRUdxhJy0fpkbDz26N Rw8KjGJyxY8j1w1pKJ/14YYnZQRThm+G3HOnoRo/x5lXz0fQl3dOSL+BhlfU m0/oxA9jrJ5wirfqNG5wdvi8JmQYpyS1SlI0pzFe+PHujHfDePxPxI0y/Wm8 uXpKed5qGJkfP830Wk1j1/OVPYrnh5Hn4t6aAp9p9LhuVfb60xAe88u8ebll Gu8oHSqroQ9g4Rjf0k05sk/7O2s7GwfIx+tSz6nQUfqcrF1f2gA679tpI3ib jl+cuL7XPR7AZxxlx0qM6Jgin3NUfqkf3Tl7RFLc6Phbt+p62ep+nPM2Obyy nI60hssxlB296HPOemWcJAOTKQb8P//1oM9w7/e35xk43S5xlnWkB18xMtOM pBk4ZuPZxRrdg590uANWqzLwD4usZIpwD3ax7W2dMmWg0ZvgQ1mi3Vh2POqR IDm33v8tvFUs0YmquibB0uxMlM5+1iK4qRNv97X2FXAyUb5CacpyoQNZgh3q D/GQc7pAgpvnWwc+rLmROb+ZiRU2AX9XXelALldVq2NiTNyh0NrDqtGOOmdE AmQ1mHh1XNL1+pNWVG053j0eTXpb1coeLo1WfGrm+dginokLf2Ozy0+14rPy s0E/kpmYIzMufGCpBZn3z1tSyDnvZXYk8ZtLC/qJPlEwrmLiyD7dbMEPzbhm 5HfmWioTtXsze1GuAfl3f1JKIveQYQvH3FqOBtTZ7/fT+yC5N5MPf1Mpr8db RzzSzMXIXCRtkFR6oR6N2QVu80mSuf65MK+0RB06G9/QnpAmsPMYe17H1hoU Hqm7PqZL4D23pprYrmps98qPPXuPQPab0t8s/KqxP/YAq8cDAj1mRIIJ7mqs WFuax2VG7t0l+YshLFXIcn5xZ7Qdgdx2M4cLxspR6zbbHyFyr6eo3rHeE1WO sbDMPeVH4M6a682v7pbjFzb3TbGBZM54emXH6c4yfPniEBtHGJn7gzYe0Koq xRB2ZTGtOAKdN6nLBbqWYpPp3ZbeBAJXnju5rQFK8W/vH31lMmf0XXolciC3 BLMPCCgJpRNoIiw7FxNfjLMNxSfVyJyCq5/V5NwrxjRzkXNvyBzzvaGcXiFU jKesyw9kF5EetoatK/4You1Z4aI50gPHa0w7nq77hl+m8/NX1JG5pGDkj09T Ll7ZIPvKnMxRl9YHDp9TzsX7UuvkF3rJnGe0Kmu4OQe3mD7e+ozMYevUFKI3 tWbja1m3fv0hAncdldsB7VlYmd/T1zlG5orqcHrBjSysMLj1YyeZ897lScVJ dGRiPSOWX4/0Ou20Id0NnRl4dfjxozrS4ypSdfTCu9KwTt7zxUUm+foFwjw/ NdKwW/B4mxyZKwdOyCr6pqWiPJv+EQUyd5548k6sNj0Fw5eU/5z4TmBj9n1d zYxkbHcONNpJepzoqooHlIwkPPLPrJ+FzLFfzS/8HM5MwKYvs21JpMcJhs0t 3cyKR+/L4hpPyNw7MGDYXZ4Vh2+9xYYkyVw8L1Sy1vvrZ1TjC1mKIj2O6a46 zvwag1a+ad4K/+XqVIa3bHY0ujytP8gg2TA+/D4tOwoVl22NNpM5nTh+n+dE TiQGUArXfiI5K+kE/y+zCHL+WWXtIXN9lczRo/bmYSix/ZlOGMm37j758ds8 BK99SefmJb3Acwb7LSyCUWg1Cz4l+WVq/cMRC9IbauSse0m2H7stpGjpj5ru NgePk54xqCBil27pi/FD5mOvSDb4M7+wzsob3e7vimoi+Zo93+n+sfd4MvOp 7jrSa5ynL9d4jnvgV03D3QokF//k+iQ58RorZron7Eku+z1f2jvhgrMcVSmx JEc+36Ix1/gCvY/ts60mudkxP/tQ8xOsXKZdHiV59G2HbMGnh/h6cd26/zxO nmWH7VF5DfTP9R/5z+MuPPMYk9S/BJ4l1ln/eZySF1uQuPo9aItKevOfx3Hs NjlGPWAFSZQLetMki1/58i5rvx3s4Tt2toPkFUHdaYX8zrAz1U0gh+SLK0S7 tvK/AlVZ+Z9e//7zYpl86/Vv4IK2S5c+yWZRQZqV696BxNOzBaIkN8Vc73d3 94Krm12jmOR5RCQamhx09wGtYiOPeJJ/+jVqVLn5Ae/s8hNNkl8UVe3VcQsA PKB+bwXJvpVeKrOvg+Dl1OubseT5r9odVMf2OhREaC0XW8n7yz9zRN3ueTi8 YuGO0CaZy25c9smpSPixZVqJQt6/7FO1wJ7Dn+C1F2diB+lt7gkhKq/2R8O+ WHc1KZL1H2Rbie6Jgbwjh5UTyHpKMsKFh5tjwUPtmZQ2WX/C3trj7PxxsN7A 4kwKWZ/ph8SvBnDHA0/LwVdzZP3KFUw4JrAlwrn50E2mZH3Tdk7scaWnADOr TOwf6W1ldU5iUxNfgP/gpho+kj12ajTKjKTCmxOluVvJfvpCJDPnaGnQvGdj sADZfw61CmoPhjJA9/uHe1/J/jwTYzn2VCsTkuvfpr0hPa50bLbpVU8mnD/N UFMn+1mL/uO8d1sWDGev/tRN9n/+z6HDD6uyISFZ7J4zOR8YcplyN6RzgCW6 yXrzIHkfv8aaTpbkwJl6jYE4cp5opr6IZuTnwjNTZ0wl58/5Bg+hdV/yISFM s9agjUA7zutXaw8WAO8aucxvLQQu3qmh2ccVwNbqjb95mwnkLTq2vzGyEB5E ToWG1RO46YEwbPctguajR1TuVhCY7b/0M5wXIausSNSujECd0qtntngihAsE G30oIe/bcuTJ88vFwMnOwR79jcCiLev7DpwtAbVb25vNvhLY/3vdg8JDZTAQ MXg2OJqc92tXhPwxK4O3MwdKOaPI+RPPoSqRUQY/NvbfNg8n94mQ+rLvqXJY v/pB8a5ggsyz0yf4ZCqAOizlKPienLfPZUMoWlXwkg2fGNgQuHl2cntJRBW0 Pea1kLYmve1h7FzgaBVkm2S6b7MgeeGv6jGjarjy131zhjF5n2s2lvFZ18DD qaU6K9L73I/z/7J0q4MTN5rUFS6Snm7bM9FXUwfbbpXHhp8j56lj8vL5tfUw 7/d8L/UUgcpBDjdpXvWwr8ogxYD0wCcRz6JGghvgcj0XP7GLQMUVkUpnEpvA JfXBPl1WAtv42Ds5R1ugS7zqc2YeE6eiTsw7sbTCqgEO/4vkPr9cXBE7t6MV Dmu6/qxIY6LewdXRjXdaYe+w34b8ODJfHIwRU+xohbZ3Fv2y/qTXzW5e86Cq DT4c8iHPkYnq96iNk3Ed0Mseda5iGxNXdoTXl1V0QPwljzx9ASYWhF00/0jp AIx0bVpYx0RlZ+arkzs74cLFpToeDtIj95UdOhrQCUdlSkRHZxjYS5yf2+Da BcYXLUpEyhjIY3E1+NmtHlCTHTx+Sp+B/LZbWrme9sC/PVsU7t1hYL62bWpA YA+ES2hOuN1goKC/sURAJ8k9g5lfrzDQ5Mh7vbM3emFH+hpK0kEGGieLG2+6 3gcr51I1V8zSkeFvLtZ8dgCSCt0eP7alo7aOrL2h5gA4qSYc8zen46pfZkrf nw7ALgMiJ+UBHU9KGOh//zoAX024D1Rq0DE7QE/67ZFBWKRsGPQ7SUeOuAXF zbuGgKP/cETSPOlxR/0U0x2G4dFXY42mh9Moe7FSWOTdMJgWbLwpYEB6W/dR w6CQYWh9EZqhQeZf5s6Qv6a5w1CY9yeg5Oo0unXaSwzODsPpE1lyZ/ZNo/qx lyIDBiOgqtTtWtJPw/s/+T8ckx6FnZVxO05foSFvqTqsVR2FENagBe9zNLzR mtMxojMKcjr3XlLEafi26NHnF89HQXLqTqHFThruzBMxtM0YBXG/4t8SC1Tk 2+3GY7GTAtEibXy68VQ8FRkUcmeeAkGnshT12amo6F++M4F1DLamsil4/p5C ix3sdbPcY/BL+fS5NGIKpU1aPB4Lj8HvcibLRN8UZpnEaYHGGDivyVdfnTWF rj/KsiZzxkDknZ/qMYMpHE01aTV7Mg6pE6saBL5NIsOc8lbQeRy2dsqOv8yY xOql17xlnuNgq5IC9LhJ7IcVJmwx41CjKFqR4DOJnLhp++XWcbgQdvzO8INJ DLxSubrs8AQcLK38fX7dJNYZOGXkDE+A4tSl5w06Exjzzc7lM30CaFcOP/RT m8CvApm1ngsT8JF99u8N2QkcNlfKluWbBH2ehZ1lYhOYXJQfYgaT8CdDOFFt eRxXyMWlvwidhNxrv+evBo9jU60Ai4fKFOgQTY5h9WMYrhJsEqk1BcJ7S5si cAw9f74aS30wBb2bIyRDM8bwyGXOP3kvpqBGiNBwDRrDJc95NbuEKSD8dqhw 3RvDB7v2rk34NwVBHyburfxDwUPiJ84nxFLBIVUrqnAXBRUkJV6KpVHhVvlh 8e8bKGgzamySkkeF8WahVXs4SZ9+u4ErqJ4KmWnCL22Yoxhnh3eEvlPBRIxT fDx/FFfVJoovnqUBa+fnPWOqo8gmqNBQU0uDunfXeRwdR9BxLfsbhzYa3EwS ktpjNYLvjCNCRPtpoFHPt6fs3ggunpgqfMygAX+73+y83AheDavNzOKdBv1f D4X3bxjBCNaGoFnVaXhS2NRfEjeM+3zjqpTbp8Eh1/Z8eeAQCpiNda/onwZc PHrUy34IdT9dlc6gTMNyoWPEDb0hlMk9vvv392ngwQHuqoNDmMSZVSW5jg4e kf+GVL8NoknIdRELRTpckC1Zv3ZkANmrJJcbv9FBSoPaJr6nHxdCs8YTy+nw z//MekGOfmSu7JxxrKPD3b0PI5dofShb6Wi0sYcOZ7wuVyVl9KHG3aNpjB90 yPzBvZh/qQ/T1WzPqe5nQMsb1dFP2r24LXDN8+G3DBi89OR0tW83htZUBev4 MEBeYJWK9eNu3HB8t0lnEAOe6u3xELjZjQu1jzYnfWaAT8bFlwqbutE6YNuz mSIGOLfv+KAf1IU30h4VUwkGuPRpFN0I6cTwiIMfPBSYcDMipccttB0z2Jw9 lpSZ8FLkkYaRfTsKGtFY76szITdu2wYprXZMYR3T3qnHhPC/JmaTgu14cdWz uEM2TGi1+hNN/9iGb1ThUEI4Ex7szWCdDWzFsQbTc2JUJuxQ71bc9b4ZV7Qc Mr3MYAJDhtfO07wZqwhfLqVZJrzqOv3ph3Izepx76K/ymwm8kbdZs/mbUYVO 5C1yEvD1A1+wgHgT3jaStKIIE1DJXaK04koDfuv6dsDhIAGxoeV8epwNeNBj 7tI6MfL7Ozhys2vrsebOdy+hEwR4+n+aV1Sqx7D4g96UywTs3z7YJnyrDit2 uOn+0SIg09NNI8yoBsWHjhRt1SXgku+i94eDNchx/qG5hAEBdyXKY57Tq1Fb 0q/mmjEBreG8XpcsqvE+/6ys8BMCePU4RV7bVmFs2LoGw7cEOAcvxf57WYEB D4W4ud6Tz5+vdgu4UoH7gl/5x3sRIH3U6fh+zgr89KvCvt6fgMPtZWLn3pbj hYpk35wIAuRsnqju9y5Djobsu1szCGjW25a3I7QE4/dRcl2zCNi99ovkDvUS /LR834SSTYCsZezDzXwluCDv2/CqgIDl4QMqy67F+O/UTyf1cgJsvzYVb+oq Qp3GS8+tKgkQ6RMarJAvwk/ljypfVhOwtZez+GHRN1xUoih61hOwOjLPPvRz IZpHq6wWaScgp2PRLcA6HwtvBz2b7yCAuHDtKctkHq47sVIyv4sA2nyGq75m HpbeE/UW7iPgRseBQN5LubgmSK3UY4SAxxsU9dbzZKNq1u1XXBQCfB5/7b3k /BXfL7h7uYwRkOwlX2kyl4XP80NfqE2S54FJEQm9maip2RbrRCdgnVk493Bs OhYduxqRySBgoD6pdmhLOgYWx/b3MwmwOGSv0uuZhq8j8/aunyWAGhXd7DT+ BacTSsR2fCfvPyUq9FZdCob2adoL/SCgy2ntDZH0ZPSq4xzhmCfAIEZsINE+ Edf+c/9FJ9nNn9DU1U/ARzKWytU/CfiifXQbz9V4vBtqWa23QMCgtk6JGn8s Do6sndz5m/z+jSYq9IUYvB6zSfa/91U6mR5+4TAYjXJZobU7Fwm4JniYxTsh CkcXMhnZJBe4+bOv/xCJn+LNVaSXCHjEt/2nIDUcJZNj5qtIvmh479marFDs GzvYe2mZrGfBU+dnHD6isejA33SS+ektjAa5INS5GWyw+S8BiaxmJ2M2BCDt 4EXOJyQrNchXWg/54k+Lr/Qqksdq4q+cT/RG0bEhPtLjIMnfr4aN9h5Xnkl4 rEyyuP9EsLOjB1YL/RV4TbK+dqv6wobX6AeNf9JJVj07fsso0RkNJddubydZ 7afW7GdHOxQIT3Gg//c+SDGH7daJlmjMmbRzkeR/3J8bnyTq4f/+X45Da4OE cGx64f8Bzrx5SQ== "]]}, Annotation[#, "Charting`Private`Tag$20868#1"]& ]}, {}}, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-0.9999998831351729, 1.}, {-0.9999998592812047, 0.9999998782744886}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7425679171676254`*^9, 3.7425679350844173`*^9}, 3.749995738623701*^9}, CellLabel->"Out[96]=", CellID->408482817] }, Open ]] }, Open ]], Cell["Options", "Subsection", CellID->1575259], Cell["Applications", "Subsection", CellID->20767984], Cell["Properties and Relations", "Subsection", CellID->461307998], Cell["Possible Issues", "Subsection", CellID->95944414], Cell["Neat Examples", "Subsection", CellID->5316679] }, Closed]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->127601628], 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", CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->193619321], Cell["Paco Jain (Wolfram Research)", "Text", CellChangeTimes->{{3.7499956182626667`*^9, 3.749995627826623*^9}}, CellTags->"TabNext", CellID->268773406] }, 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", CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell["trigonometry", "Item", CellChangeTimes->{{3.749995645421382*^9, 3.749995648508691*^9}}, CellTags->"TabNext", CellID->286151546], Cell["cos ", "Item", CellChangeTimes->{{3.749995645421382*^9, 3.7499956498358235`*^9}}, CellTags->"TabNext", CellID->193552235], Cell["cosine", "Item", CellChangeTimes->{{3.749995645421382*^9, 3.749995650150855*^9}}, CellTags->"TabNext", CellID->460933472], Cell["cos in degrees", "Item", CellChangeTimes->{{3.749995645421382*^9, 3.7499956503978796`*^9}}, CellTags->"TabNext", CellID->191282873], Cell["cosine in degrees", "Item", CellChangeTimes->{3.749995645421382*^9}, CellTags->"TabNext", CellID->7599696] }, Open ]] }, Open ]], 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", CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->234336100], 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", CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->4373816], 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", CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Links", CellID->443077927], Cell[CellGroupData[{ Cell["http://mathworld.wolfram.com/Degree.html", "Item", CellChangeTimes->{{3.74999567399924*^9, 3.74999567399924*^9}}, CellID->57676154], Cell["http://mathworld.wolfram.com/Cosine.html", "Item", CellID->279352017], Cell["http://reference.wolfram.com/language/ref/Cos.html", "Item", CellChangeTimes->{{3.749995686285468*^9, 3.749995686285468*^9}}, CellID->300743235], Cell["http://reference.wolfram.com/language/ref/Degree.html", "Item", CellID->6899397] }, Open ]] }, Open ]], 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", CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->349784570] }, Closed]], Cell[CellGroupData[{ Cell["Notes", "Section", DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->359397282], Cell["Used for WolframAlpha|Notebooks", "Text", CellChangeTimes->{{3.749995689119752*^9, 3.7499956981646557`*^9}}, CellID->35263187] }, Closed]] }, 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.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[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[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, 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.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, 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[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, 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"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], 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[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], 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["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, 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 -> {}, 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]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 142, 3, 70, "Title",ExpressionUUID->"18ae1fc1-dcd8-41d1-be0a-fb7a8835f478", CellTags->{"Title", "TabNext"}, CellID->18217985]}, "TabNext"->{ Cell[580, 22, 142, 3, 70, "Title",ExpressionUUID->"18ae1fc1-dcd8-41d1-be0a-fb7a8835f478", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[725, 27, 162, 3, 70, "Text",ExpressionUUID->"03742ed7-1eea-4f7d-91d1-d1cff3c1bf4b", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[42032, 932, 154, 3, 70, "Text",ExpressionUUID->"82655d2e-7c3d-44e5-b50c-5a15237b8b75", CellTags->"TabNext", CellID->268773406], Cell[42828, 960, 136, 3, 70, "Item",ExpressionUUID->"8932afdb-265a-4c7f-bb14-37e6eb84b96b", CellTags->"TabNext", CellID->286151546], Cell[42967, 965, 130, 3, 70, "Item",ExpressionUUID->"eb1dbe07-2907-4f5a-83c5-c4ac22bdb7f1", CellTags->"TabNext", CellID->193552235], Cell[43100, 970, 130, 3, 70, "Item",ExpressionUUID->"cbd6ed90-4e8d-41dc-9835-026d9b246be2", CellTags->"TabNext", CellID->460933472], Cell[43233, 975, 140, 3, 70, "Item",ExpressionUUID->"91919938-d215-4383-9f0c-2a176604cbda", CellTags->"TabNext", CellID->191282873], Cell[43376, 980, 115, 3, 70, "Item",ExpressionUUID->"5432149c-4c66-4322-9df4-000706879009", CellTags->"TabNext", CellID->7599696]}, "Description"->{ Cell[725, 27, 162, 3, 70, "Text",ExpressionUUID->"03742ed7-1eea-4f7d-91d1-d1cff3c1bf4b", CellTags->{"Description", "TabNext"}, CellID->27787318]}, "Definition"->{ Cell[912, 34, 832, 19, 70, "Section",ExpressionUUID->"fc360425-12d9-44e0-aac3-5cfae008bd48", CellTags->"Definition", CellID->40452676]}, "ResourceInitialization"->{ Cell[1747, 55, 2271, 58, 70, "Code",ExpressionUUID->"64500ffd-45d4-46b2-9ec7-6b7b80811eec", CellTags->"ResourceInitialization", CellID->612122634]}, "Documentation"->{ Cell[4055, 118, 80, 2, 70, "Section",ExpressionUUID->"8457c31b-395b-4af0-9fd4-8736ef5e4a3e", CellTags->"Documentation", CellID->491847979]}, "Usage"->{ Cell[4160, 124, 745, 19, 70, "Subsection",ExpressionUUID->"134cdfb5-f922-4319-98f7-798a41333188", CellTags->"Usage", CellID->253280348]}, "ResourceUsageInputs"->{ Cell[4930, 147, 286, 7, 70, "UsageInputs",ExpressionUUID->"28829420-19e7-4bc6-9dd2-30de027ddd85", CellTags->"ResourceUsageInputs", CellID->42127849]}, "ResourceUsageDescription"->{ Cell[5219, 156, 258, 5, 70, "UsageDescription",ExpressionUUID->"37e2b3e3-4879-49b1-8656-09516d0b8cb4", CellTags->"ResourceUsageDescription", CellID->37697846]}, "Details & Options"->{ Cell[5526, 167, 771, 18, 70, "Subsection",ExpressionUUID->"a61f8ecb-de15-4179-9a71-f5a8cf2eb57e", CellTags->"Details & Options", CellID->123126086]}, "Examples"->{ Cell[7025, 215, 740, 18, 70, "Section",ExpressionUUID->"9f534206-03ca-440c-a506-3ce524d14417", CellTags->"Examples", CellID->163631071]}, "Source & Additional Information"->{ Cell[41254, 907, 116, 2, 70, "Section",ExpressionUUID->"09184182-1362-422c-9279-92c75b1b091f", CellTags->"Source & Additional Information", CellID->127601628]}, "Contributed By"->{ Cell[41395, 913, 634, 17, 70, "Subsection",ExpressionUUID->"7e747f5e-50fa-4361-b74b-433d709f9c46", CellTags->"Contributed By", CellID->193619321]}, "Keywords"->{ Cell[42223, 940, 580, 16, 70, "Subsection",ExpressionUUID->"15beaa80-8485-40b9-97b8-1420c8760160", CellTags->"Keywords", CellID->56929831]}, "Related Resource Objects"->{ Cell[43518, 987, 664, 17, 70, "Subsection",ExpressionUUID->"fb557f63-527a-4d27-80df-76157be53314", CellTags->"Related Resource Objects", CellID->234336100]}, "Source/Reference Citation"->{ Cell[44185, 1006, 709, 17, 70, "Subsection",ExpressionUUID->"ce3fcaa0-3b19-4ea8-8eb9-94471126b9aa", CellTags->"Source/Reference Citation", CellID->4373816]}, "Links"->{ Cell[44919, 1027, 559, 16, 70, "Subsection",ExpressionUUID->"393c3743-78b4-4cfc-95bb-cd860493edc0", CellTags->"Links", CellID->443077927]}, "Tests"->{ Cell[45993, 1063, 724, 18, 70, "Subsection",ExpressionUUID->"bac809b2-8333-4cb6-9f7a-54c0d92b6f76", CellTags->"Tests", CellID->349784570]}, "Notes"->{ Cell[46754, 1086, 94, 3, 70, "Section",ExpressionUUID->"c07fd5cd-a335-4e12-a0ab-51a2973b51be", CellTags->"Notes", CellID->359397282]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 92546, 2029}, {"TabNext", 92710, 2033}, {"Description", 93876, 2058}, {"Definition", 94048, 2062}, {"ResourceInitialization", 94222, 2066}, {"Documentation", 94399, 2070}, {"Usage", 94560, 2074}, {"ResourceUsageInputs", 94732, 2078}, {"ResourceUsageDescription", 94922, 2082}, {"Details & Options", 95115, 2086}, {"Examples", 95288, 2090}, {"Source & Additional Information", 95472, 2094}, {"Contributed By", 95662, 2098}, {"Keywords", 95833, 2102}, {"Related Resource Objects", 96013, 2106}, {"Source/Reference Citation", 96211, 2110}, {"Links", 96389, 2114}, {"Tests", 96549, 2118}, {"Notes", 96709, 2122} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 142, 3, 70, "Title",ExpressionUUID->"18ae1fc1-dcd8-41d1-be0a-fb7a8835f478", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[725, 27, 162, 3, 70, "Text",ExpressionUUID->"03742ed7-1eea-4f7d-91d1-d1cff3c1bf4b", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[912, 34, 832, 19, 70, "Section",ExpressionUUID->"fc360425-12d9-44e0-aac3-5cfae008bd48", CellTags->"Definition", CellID->40452676], Cell[1747, 55, 2271, 58, 70, "Code",ExpressionUUID->"64500ffd-45d4-46b2-9ec7-6b7b80811eec", CellTags->"ResourceInitialization", CellID->612122634] }, Closed]], Cell[CellGroupData[{ Cell[4055, 118, 80, 2, 70, "Section",ExpressionUUID->"8457c31b-395b-4af0-9fd4-8736ef5e4a3e", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[4160, 124, 745, 19, 70, "Subsection",ExpressionUUID->"134cdfb5-f922-4319-98f7-798a41333188", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[4930, 147, 286, 7, 70, "UsageInputs",ExpressionUUID->"28829420-19e7-4bc6-9dd2-30de027ddd85", CellTags->"ResourceUsageInputs", CellID->42127849], Cell[5219, 156, 258, 5, 70, "UsageDescription",ExpressionUUID->"37e2b3e3-4879-49b1-8656-09516d0b8cb4", CellTags->"ResourceUsageDescription", CellID->37697846] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5526, 167, 771, 18, 70, "Subsection",ExpressionUUID->"a61f8ecb-de15-4179-9a71-f5a8cf2eb57e", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell[6322, 189, 124, 4, 70, "Notes",ExpressionUUID->"99c9b38a-b5b4-4622-9ea7-4473592c0e3b", CellID->469378182], Cell[6449, 195, 196, 5, 70, "Notes",ExpressionUUID->"cefb3630-923d-408e-a6f3-6691d3efcac0", CellID->740632055], Cell[6648, 202, 165, 2, 70, "Notes",ExpressionUUID->"11f73921-0798-458e-8bb8-84b15d4a944b", CellID->146496866], Cell[6816, 206, 148, 2, 70, "Notes",ExpressionUUID->"726e35ae-9b5a-4aac-ad6c-77d2c68b0815", CellID->546259384] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7025, 215, 740, 18, 70, "Section",ExpressionUUID->"9f534206-03ca-440c-a506-3ce524d14417", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell[7790, 237, 56, 1, 70, "Subsection",ExpressionUUID->"f241b48c-e216-4f0e-a6c0-c2b3bdd71ba0", CellID->285421464], Cell[7849, 240, 134, 2, 70, "Text",ExpressionUUID->"ffe6a96d-01bd-4232-b17a-9aba7a93df72", CellID->25463679], Cell[CellGroupData[{ Cell[8008, 246, 175, 4, 70, "Input",ExpressionUUID->"39fb89b3-0c35-424b-9c9f-d45ae0306b6b", CellID->455651323], Cell[8186, 252, 135, 4, 70, "Output",ExpressionUUID->"923a870d-4998-4e94-a4f9-42cc489afc63", CellID->18873240] }, Open ]], Cell[8336, 259, 189, 3, 70, "Text",ExpressionUUID->"05c852d4-3367-47c8-a35e-09def2a0b9db", CellID->113296902], Cell[CellGroupData[{ Cell[8550, 266, 370, 10, 70, "Input",ExpressionUUID->"3396d0a0-760c-45ca-94d3-75f6e70e370b", CellID->146714838], Cell[8923, 278, 9898, 183, 70, "Output",ExpressionUUID->"b3939bd6-144d-41e8-953d-a0d5822a2c9d", CellID->71758026] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18870, 467, 47, 1, 70, "Subsection",ExpressionUUID->"b13927f0-1772-4190-b4f2-9fe5bbb85aa1", CellID->267254639], Cell[18920, 470, 228, 4, 70, "Text",ExpressionUUID->"d93c0e18-daa2-40a7-88ef-e8f8d078db92", CellID->20808793], Cell[CellGroupData[{ Cell[19173, 478, 257, 6, 70, "Input",ExpressionUUID->"b6d8701e-97a2-483c-8ad7-9f97c7c0f997", CellID->245535023], Cell[19433, 486, 158, 3, 70, "Output",ExpressionUUID->"4a1a9da3-c8d7-405e-888d-8f1cf176cdb8", CellID->417852284] }, Open ]], Cell[19606, 492, 283, 4, 70, "Text",ExpressionUUID->"2f2e4ecc-79c6-4628-b3de-156a1fb51926", CellID->485732157], Cell[CellGroupData[{ Cell[19914, 500, 361, 9, 70, "Input",ExpressionUUID->"462a3094-f9a5-42b2-ba78-e0689d456ddc", CellID->140238344], Cell[20278, 511, 224, 5, 70, "Output",ExpressionUUID->"e310d854-821a-43fb-84f4-641bb16a9eb9", CellID->251803357] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20551, 522, 53, 1, 70, "Subsection",ExpressionUUID->"7bbfb482-2a69-422c-bdb0-0f5feda84b41", CellID->17609906], Cell[20607, 525, 321, 5, 70, "Text",ExpressionUUID->"8a276780-47a1-4c23-a907-2fce69ac6772", CellID->104526767], Cell[CellGroupData[{ Cell[20953, 534, 492, 14, 70, "Input",ExpressionUUID->"ceba4d9b-0070-4d7e-af30-aac8f4bcc11b", CellID->470346559], Cell[21448, 550, 19455, 335, 70, "Output",ExpressionUUID->"4227db2a-fbe1-4fea-97e0-f9bba121f844", CellID->408482817] }, Open ]] }, Open ]], Cell[40930, 889, 47, 1, 70, "Subsection",ExpressionUUID->"a05991a9-31e3-4240-9d9c-f9cf483b9c4a", CellID->1575259], Cell[40980, 892, 53, 1, 70, "Subsection",ExpressionUUID->"a3b761f1-c785-4778-aed2-c1bf2900eb40", CellID->20767984], Cell[41036, 895, 66, 1, 70, "Subsection",ExpressionUUID->"4a790c7f-c5cd-4921-a582-29ea7d594135", CellID->461307998], Cell[41105, 898, 56, 1, 70, "Subsection",ExpressionUUID->"fd36af9e-7554-4d61-9f1c-27726d438941", CellID->95944414], Cell[41164, 901, 53, 1, 70, "Subsection",ExpressionUUID->"aa6a5ab3-d3f4-4d3f-9088-249517c26a95", CellID->5316679] }, Closed]], Cell[CellGroupData[{ Cell[41254, 907, 116, 2, 70, "Section",ExpressionUUID->"09184182-1362-422c-9279-92c75b1b091f", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[41395, 913, 634, 17, 70, "Subsection",ExpressionUUID->"7e747f5e-50fa-4361-b74b-433d709f9c46", CellTags->"Contributed By", CellID->193619321], Cell[42032, 932, 154, 3, 70, "Text",ExpressionUUID->"82655d2e-7c3d-44e5-b50c-5a15237b8b75", CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[42223, 940, 580, 16, 70, "Subsection",ExpressionUUID->"15beaa80-8485-40b9-97b8-1420c8760160", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell[42828, 960, 136, 3, 70, "Item",ExpressionUUID->"8932afdb-265a-4c7f-bb14-37e6eb84b96b", CellTags->"TabNext", CellID->286151546], Cell[42967, 965, 130, 3, 70, "Item",ExpressionUUID->"eb1dbe07-2907-4f5a-83c5-c4ac22bdb7f1", CellTags->"TabNext", CellID->193552235], Cell[43100, 970, 130, 3, 70, "Item",ExpressionUUID->"cbd6ed90-4e8d-41dc-9835-026d9b246be2", CellTags->"TabNext", CellID->460933472], Cell[43233, 975, 140, 3, 70, "Item",ExpressionUUID->"91919938-d215-4383-9f0c-2a176604cbda", CellTags->"TabNext", CellID->191282873], Cell[43376, 980, 115, 3, 70, "Item",ExpressionUUID->"5432149c-4c66-4322-9df4-000706879009", CellTags->"TabNext", CellID->7599696] }, Open ]] }, Open ]], Cell[43518, 987, 664, 17, 70, "Subsection",ExpressionUUID->"fb557f63-527a-4d27-80df-76157be53314", CellTags->"Related Resource Objects", CellID->234336100], Cell[44185, 1006, 709, 17, 70, "Subsection",ExpressionUUID->"ce3fcaa0-3b19-4ea8-8eb9-94471126b9aa", CellTags->"Source/Reference Citation", CellID->4373816], Cell[CellGroupData[{ Cell[44919, 1027, 559, 16, 70, "Subsection",ExpressionUUID->"393c3743-78b4-4cfc-95bb-cd860493edc0", CellTags->"Links", CellID->443077927], Cell[CellGroupData[{ Cell[45503, 1047, 139, 2, 70, "Item",ExpressionUUID->"a6de572d-6fa2-4601-809d-57c97f30f492", CellID->57676154], Cell[45645, 1051, 76, 1, 70, "Item",ExpressionUUID->"9ca4eb16-08f7-49ea-895c-8e65212f3368", CellID->279352017], Cell[45724, 1054, 152, 2, 70, "Item",ExpressionUUID->"15d88b73-d5ef-47a9-90ef-37a555f802f5", CellID->300743235], Cell[45879, 1058, 87, 1, 70, "Item",ExpressionUUID->"d29d702d-3dd0-462f-bbef-3371fa694a69", CellID->6899397] }, Open ]] }, Open ]], Cell[45993, 1063, 724, 18, 70, "Subsection",ExpressionUUID->"bac809b2-8333-4cb6-9f7a-54c0d92b6f76", CellTags->"Tests", CellID->349784570] }, Closed]], Cell[CellGroupData[{ Cell[46754, 1086, 94, 3, 70, "Section",ExpressionUUID->"c07fd5cd-a335-4e12-a0ab-51a2973b51be", CellTags->"Notes", CellID->359397282], Cell[46851, 1091, 134, 2, 70, "Text",ExpressionUUID->"fb630a8e-62e3-4735-bf54-3e93c4c16981", CellID->35263187] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)