(* 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[ 84433, 1985] NotebookOptionsPosition[ 25274, 731] NotebookOutlinePosition[ 76292, 1796] CellTagsIndexPosition[ 75652, 1774] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ArcSinDegree", "Title", CellChangeTimes->{{3.7499920518760633`*^9, 3.749992055790455*^9}}, CellTags->{"Title", "TabNext"}, CellID->18217985], Cell["\<\ Computes the inverse sine of a number and returns a result in degrees\ \>", "Text", CellChangeTimes->{{3.7499920473316092`*^9, 3.7499920497838545`*^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[{"ArcSinDegree", ",", " ", "iArcSinDegree"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetAttributes", "[", RowBox[{"ArcSinDegree", ",", RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ArcSinDegree", "::", "argx"}], " ", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ArcSinDegree", "[", "args___", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"iArcSinDegree", "[", "args", "]"}], ",", "$tag"}], "]"}]}], "}"}], ",", RowBox[{"res", "/;", RowBox[{"res", "=!=", "$Failed"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iArcSinDegree", "[", "x_", "]"}], ":=", " ", RowBox[{ RowBox[{"180", "/", "Pi"}], " ", "*", " ", RowBox[{"ArcSin", "[", "x", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iArcSinDegree", "[", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"ArcSinDegree", "::", "argx"}], "]"}], ";", "$Failed"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iArcSinDegree", "[", RowBox[{"first_", ",", " ", "rest__"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"ArcSinDegree", "::", "argx"}], "]"}], ";", "$Failed"}], ")"}]}]}], "Code", CellChangeTimes->{3.7499920743373094`*^9}, CellTags->"TabNext", CellLabel->"In[10]:=", CellID->206237809] }, 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[{"ArcSinDegree", "[", StyleBox["x", "TI"], "]"}]], "UsageInputs", CellChangeTimes->{ 3.70999648737139*^9, 3.743521182229313*^9, {3.7435262223922787`*^9, 3.743526225184558*^9}, 3.74377690230016*^9, 3.7437776260295258`*^9}, CellTags->"ResourceUsageInputs", CellLabel->"In[207]:=", CellID->447856995], Cell["computes the inverse sine of x in degrees", "UsageDescription", CellChangeTimes->{{3.7435211937484646`*^9, 3.743521200926182*^9}, 3.7437769389908285`*^9, 3.743777654266349*^9}, CellTags->"ResourceUsageDescription", CellID->716057118] }, 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["ArcSinDegree[x] is undefined for x = 0.", "Notes", CellChangeTimes->{{3.7429192805252075`*^9, 3.742919304083563*^9}, { 3.7429246759589834`*^9, 3.7429246772189837`*^9}, {3.7435212519132805`*^9, 3.7435212522503138`*^9}, {3.743525820322076*^9, 3.7435258252045636`*^9}, 3.743776903435273*^9, 3.7437776270496273`*^9}, CellID->56823703], Cell["ArcCSinDegree[x] is undefined outside the range -1 to 1.", "Notes", CellChangeTimes->{{3.7429192805252075`*^9, 3.742919304083563*^9}, 3.742922675007622*^9, {3.7429246156172094`*^9, 3.742924625808984*^9}, { 3.743778004831402*^9, 3.7437780069456134`*^9}}, CellID->172316334], Cell["\<\ ArcSinDegree[x] always returns a value in the range -90 to 90. \ \>", "Notes", CellChangeTimes->{{3.7429193067618313`*^9, 3.7429193529114456`*^9}, 3.7429226757706985`*^9, {3.7429247080649834`*^9, 3.742924713306984*^9}, { 3.7429247766639833`*^9, 3.7429248187599835`*^9}, {3.743777985728492*^9, 3.743777998148734*^9}}, CellID->188507433], Cell["\<\ For certain special arguments, ArcSinDegree automatically evaluates to exact \ values.\ \>", "Notes", CellChangeTimes->{{3.7425673416315823`*^9, 3.742567343206582*^9}, 3.7429112898432198`*^9, 3.7429154706622596`*^9, 3.7429159276109495`*^9, { 3.7429193575469093`*^9, 3.7429193578609405`*^9}, {3.7435212629163804`*^9, 3.7435212632544146`*^9}, 3.7437769042263527`*^9, 3.74377762916984*^9}, CellID->740632055], Cell["\<\ ArcSinDegree can be evaluated to arbitrary numerical precision.\ \>", "Notes", CellChangeTimes->{{3.7429104076080046`*^9, 3.742910408530097*^9}, 3.7429112906453*^9, 3.7429154709142847`*^9, 3.7429159283010187`*^9, { 3.7429193608992443`*^9, 3.7429193613052845`*^9}, {3.743521266471736*^9, 3.743521266741763*^9}, 3.743776904754405*^9, 3.743777629926915*^9}, CellID->146496866], Cell["ArcSinDegree automatically threads over lists.", "Notes", CellChangeTimes->{{3.7429104109383373`*^9, 3.742910413908635*^9}, 3.742911291241359*^9, 3.742915471379331*^9, 3.742915928722061*^9, { 3.742919363981552*^9, 3.7429193651966743`*^9}, {3.74352126950904*^9, 3.7435212706351523`*^9}, {3.743521353888477*^9, 3.7435213604361315`*^9}, 3.7437769051294427`*^9, 3.7437776305049734`*^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 inverse sine of a number:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, 3.742911636991931*^9, 3.7429155081990128`*^9, 3.7429160666908565`*^9, { 3.7429193893630905`*^9, 3.7429193954837027`*^9}, {3.743777665038426*^9, 3.743777668598782*^9}}, CellID->25463679], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArcSinDegree", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.749992324096283*^9, 3.74999232836871*^9}}, CellLabel->"In[208]:=", CellID->91634542], Cell[BoxData["90"], "Output", CellChangeTimes->{3.7499923289857717`*^9, 3.749997337631586*^9}, CellLabel->"Out[208]=", CellID->701294297] }, Open ]], Cell["Plot over a given range of values:", "Text", CellChangeTimes->{{3.742566273615699*^9, 3.7425663407516985`*^9}, { 3.7425674491305823`*^9, 3.742567494534582*^9}, {3.742919417781932*^9, 3.7429194205042043`*^9}}, CellID->113296902], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"ArcSinDegree", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7425674263225822`*^9, 3.7425674332075825`*^9}, { 3.7425674665905824`*^9, 3.7425674767165823`*^9}, 3.742911294582693*^9, 3.742915474648658*^9, 3.7429159303652253`*^9, {3.7429194071628704`*^9, 3.7429194138005342`*^9}, {3.743525927022744*^9, 3.7435259272917714`*^9}, { 3.743526251690208*^9, 3.7435262822242613`*^9}, {3.7435265863266687`*^9, 3.7435265884618816`*^9}, 3.7437769066805983`*^9, 3.7437776322791505`*^9, { 3.743777915077428*^9, 3.743777924120332*^9}}, CellLabel->"In[209]:=", CellID->146714838], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVzXlYzGsbB/CSZY7TJiIkoqgoWdJ6PM+p5tKo2X/TQiJlUDlHvZ20UrKE 99WmECdRKaUsdbTheWiVURrSokEqTTPT75dINaQz7x/3dV/f6/u57tt475+8 fTPU1NSOqOb/e1b6l1MZ0xRq1Bm/qLnTE18soi08NEWh6P2esfNNPLHFirDe G6MUMq3vrDhRKsAPM97e7hykELOM88pLKMCsX+mR2hIKXdo/0LneUoA/xJe6 uIopRBT//M3nB4HDvi3SiW6kkHB4Z93USwLPDEnovvNQlS98abl0i8DmXkTo 0gIK/WwamcEOIPBD0SMn7lUKtetktPq5EJjlvIZ2OpVCRpKSl0tNVfcsldmj MRSKNBwxLlfw8czcgCCzUAoNTV0qsxPzcabBCxs/IYVSdN2KH1TycY1GjugZ h0K+wrytjkkq301X5phSaFqjY/ah9SrPvlP/ZgmFpB5OG7OX8LFZvUGqpq7q X3v/NcZsPmbela+JVJKoeKyIoN7xcOapVAG7lUQvojSsn1zgYbMfyhUn60iU YbJhFS2Rh6tDAxXVVSSadUzrTFYoD7/3tU1cnUeiFpchjXS2ym+S3J2KJJFT fJRujLbKvzfTvL2SRAcdrNy0Mrk41km9JMuARN27dzyqTOLi3y53Mc9ok4gT 92HDqRguxryzyULlMIreJPx53J+LG+vlesbiYVQovrVUZsXFr4tLF2cmDCNa 7G/Sxy0cTB7ZvCb+gwINh/vjCCMOvvtas+mPNwp01GfQ4ZcFHBy6YeDALpEC Je+3Fxb/wsFfZRlFDpUKFNLs5eYoY+Pvu8Ytx5IVSNMFLQi8zMY01+rNQUCB 5lvUhTb8YOFVutCZyJYjE2ffwcnXTHzeujc6KF2O9sIT07efMPEE53hZfJIc 1cquLYgoZWJRap1JSZgcTfyaKXdLYuLw+Yw5s7fJkavp/LtSJyZuWMgTVVAy ZJ/A4bTd8sBBywI9l/4uQ7Rpu4yLKe74vkVS0Mc+KRrz4cx4c5qB39ffW7Fl yydULrJaEaek44F1GRvRgz70ZtnnjrsaLnje0VtbrNR70Qn+7L6nmhCv20Kt y//Sg9I6S9t9Bhxwouvwy6rIDqQffbOvLdEG6xOlKT6LxMjX+mhBfLA1vv+t XqfJpBk5OAmurU5bg/PfDvxv6MRj1K9vv8csYCnexTUsfxuQh0a1sl+5O8/A VXNj2p/+lQtYff1ZyhB1aPNR3SjBG4Hdrt/zvhsbwlUjNZMOT5+ByAwDTy27 NZCR2/WC5S0GO5VjBy0KrSGdqacx9k8HSJseXNT82AYm7+6It67oAffMNhhU FzrARtYyLY5eL/jkve1IrxGEw8b6R8VZfaD7WeRz9X5n+Ff4Wv/khZ/A35NM E4dXdNjRo8sTNknBlBfh83IPA24/t68zXCwF0kazGbp/MuBD+2q/xB4pqIne IPSOY8CczIDgnBEpiMz6VqqRxYAHOA9OdBsMAemx07ENrxhQWbuzgnVwCIy1 PGrWYWyHhsU3DW3nyoAk/OpMH0d3eN7n+w36AhmwKf8W1LPdHarROOaEkQx4 FrQVBe9wh/2BkzahG2Xg+Rk/29Iod1hi5MEu3qHK3dqmjZXucGva54TlxTIQ xqzk7rf3gHuinAbneMhB1/zx63F0JrQIbGonPeWgb3VatKM3E35hEXXt/nIQ 4WabqhXMhKdMQq7nHpED0YQkl0phwtutV3aCXFVvP/W5TMKEk6bfWyOUcmDZ ZL8nKYYF08RVlQOFCiBdexVsfc6Gvo/oBaIyBWh1tIOwlw1NC9syyh4rwLBo fW3gOBtWxg2FJbxWgNn9Fdqaehz4zmyx5TK1YSD5R+N8NuBAi2OR1wmvYVCV FzV2LZsDa9fanq2dRYImud1W48Nc6LeeyP2sQ4L+hpgk3zgunNgY+nD5EhIE W8YXVZ3lwnUOxWSMFQnERFGnJJ8LL7gt52/2IsGsfrB4RMKFVh5OIXv9STAi iqL5Kriwie1zMiWYBBN/1Oz9quTCKc/0CsUxEqQ2D9LvGfCgcN8cw/xCEujn +C9J9+RBtYMmNq/uk8COObXsspAHs0J+Z6k/IsGoYcdETwQPtvwnJn5XGwmu fKURFpd40PY41a+vJIHx5y45eMeD4pOaP11mUuBJ1rkXF0d4MOSM+aIwbQoE L+EsZ2nwYU5KAKNlJQXerIygUeZ8SLvWUXLKnQKHR0Vhklg+vHHja0O5gAIB c11+qKfzodPNeR8+7qZA5nRly8tbfHi4xF0PhFMgPKEj8X4XH869d2DtoaMU SBLMI6lRPswrP+l6JUnlJ/PDrbQI2FWDIsavUiDCCalvpRMwHPUkmxZQ4MdU ZuehAAJq104W8u9RoN9Yf25gIgELGxY+TaihQJe5hl9sPgGdmze9vVOv6mO3 +W5pJmDPC85XSSsF+hi7Yz1GCRjRdkhLs5sCypJqmz4jAdRtP7vaoZ8CdW0s wThXAIs6C8ABkgL7/Fr1cpMFkN5T5505QQG1S5sdf/YJoMjvv38/mKbAOfPz LTx/T/gvm5bTfw== "]]}, Annotation[#, "Charting`Private`Tag$25417#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->{{-2, 2}, {-89.42264365317452, 89.52067912943873}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7425674984935827`*^9, 3.742912370679292*^9, 3.74291574919711*^9, 3.742916134853672*^9, 3.742919423492503*^9, 3.7435259283618784`*^9, { 3.7435262469347324`*^9, 3.7435262826893077`*^9}, {3.743526583733409*^9, 3.7435265889489307`*^9}, 3.7437772821041365`*^9, {3.7437779064635663`*^9, 3.743777924696389*^9}, 3.7499921810079756`*^9, 3.749997337707594*^9}, CellLabel->"Out[209]=", CellID->798691490] }, 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[{"ArcSinDegree", "[", "0.56", "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7425675450285826`*^9, 3.7425675450305824`*^9}, { 3.7425676155775824`*^9, 3.7425676268715825`*^9}, 3.742911295941829*^9, 3.742915475307724*^9, 3.7429159312163105`*^9, {3.7429194410042543`*^9, 3.7429194421293664`*^9}, {3.7435266231143465`*^9, 3.7435266234963846`*^9}, 3.743776907712701*^9, 3.743777632804203*^9, {3.7437780604779663`*^9, 3.7437780666425824`*^9}}, CellLabel->"In[210]:=", CellID->245535023], Cell[BoxData["34.05579774256791`"], "Output", CellChangeTimes->{3.7425676284245825`*^9, 3.7429123831415386`*^9, 3.742915737251916*^9, 3.7429161436915555`*^9, 3.742919451542308*^9, 3.743526624365472*^9, 3.7437772952144475`*^9, 3.74377803191211*^9, 3.7437780673936577`*^9, 3.749992176733548*^9, 3.7499973377215953`*^9}, CellLabel->"Out[210]=", CellID->62159920] }, 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[{"ArcSinDegree", "[", RowBox[{ RowBox[{"-", "2"}], "/", "10"}], "]"}], ",", " ", "50"}], "]"}]], "Input",\ CellChangeTimes->{ 3.70999648737139*^9, {3.7425675450285826`*^9, 3.7425675450305824`*^9}, { 3.7425676155775824`*^9, 3.742567691536065*^9}, {3.742567749251836*^9, 3.742567763337244*^9}, 3.742911296913926*^9, 3.742915475918785*^9, 3.7429159320843973`*^9, {3.742919445391693*^9, 3.7429194481359673`*^9}, { 3.7435266272547607`*^9, 3.7435266276137967`*^9}, 3.7437769084447746`*^9, 3.7437776335522776`*^9, {3.743778076408559*^9, 3.743778077172635*^9}, { 3.7528575279781265`*^9, 3.7528575306763964`*^9}}, CellLabel->"In[17]:=", CellID->140238344], Cell[BoxData[ RowBox[{"-", "11.536959032815487690137371510512688441443239227523872317713378005271735282\ 97605`50."}]], "Output", CellChangeTimes->{3.742567764525363*^9, 3.7429123854577703`*^9, 3.7429157293371243`*^9, 3.7429161437405605`*^9, 3.7429194540165553`*^9, 3.7435266280078363`*^9, 3.7437772982437506`*^9, 3.74377803501342*^9, 3.743778079409859*^9, 3.7499921768015547`*^9, 3.7499973377355967`*^9, 3.7528575316774964`*^9}, CellLabel->"Out[17]=", CellID->162207454] }, Open ]] }, Closed]], 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.7499922092027946`*^9, 3.749992217844659*^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.749992263116185*^9, 3.749992265256399*^9}}, CellTags->"TabNext", CellID->286151546], Cell["inverse sin", "Item", CellChangeTimes->{{3.749992263116185*^9, 3.7499922661564894`*^9}}, CellTags->"TabNext", CellID->169466631], Cell["inverse sine", "Item", CellChangeTimes->{{3.749992263116185*^9, 3.7499922682276964`*^9}}, CellTags->"TabNext", CellID->374302236], Cell["arc sin", "Item", CellChangeTimes->{{3.749992263116185*^9, 3.7499922685187254`*^9}}, CellTags->"TabNext", CellID->221811466], Cell["arc sine", "Item", CellChangeTimes->{{3.749992263116185*^9, 3.7499922687667503`*^9}}, CellTags->"TabNext", CellID->8768066], Cell["arc sin in degrees", "Item", CellChangeTimes->{{3.749992263116185*^9, 3.749992269397814*^9}}, CellTags->"TabNext", CellID->540442610], Cell["inverse sine in degrees", "Item", CellChangeTimes->{3.749992263116185*^9}, CellTags->"TabNext", CellID->151207994] }, 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.749992244981372*^9, 3.749992244981372*^9}}, CellID->145433211], Cell["http://mathworld.wolfram.com/InverseSine.html", "Item", CellID->40177575], Cell["http://reference.wolfram.com/language/ref/ArcSin.html", "Item", CellChangeTimes->{{3.7499922324031143`*^9, 3.7499922341832924`*^9}}, CellTags->"TabNext", CellID->70093026], Cell["http://reference.wolfram.com/language/ref/Degree.html", "Item", CellChangeTimes->{3.7499922324031143`*^9}, CellTags->"TabNext", CellID->350615157] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->349784570], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[212]:=", CellID->152812409], Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Output", CellChangeTimes->{3.749997337748598*^9}, CellLabel->"Out[212]=", CellID->152300754] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Notes", "Section", DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->359397282], Cell["Used in Wolfram|AlphaNotebooks", "Text", CellChangeTimes->{{3.7499922743453083`*^9, 3.749992287978671*^9}}, CellID->57581048] }, 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, 149, 3, 70, "Title",ExpressionUUID->"a53944a8-527a-4c65-ba64-23e438fae84c", CellTags->{"Title", "TabNext"}, CellID->18217985]}, "TabNext"->{ Cell[580, 22, 149, 3, 70, "Title",ExpressionUUID->"a53944a8-527a-4c65-ba64-23e438fae84c", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[732, 27, 221, 5, 70, "Text",ExpressionUUID->"59f69123-a26a-4331-a2bd-9ef40d07d4a7", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[1813, 57, 1697, 50, 70, "Code",ExpressionUUID->"ef652adb-a52c-4711-b8f3-e53c133612e6", CellTags->"TabNext", CellID->206237809], Cell[19516, 534, 154, 3, 70, "Text",ExpressionUUID->"710ad0bf-f20e-41c8-bcde-33ea555dccd3", CellTags->"TabNext", CellID->268773406], Cell[20312, 562, 136, 3, 70, "Item",ExpressionUUID->"b37c1809-6d79-46b7-8b1e-9b52fc827fd9", CellTags->"TabNext", CellID->286151546], Cell[20451, 567, 137, 3, 70, "Item",ExpressionUUID->"bf35335a-70ba-473f-8ade-a860b0fea26d", CellTags->"TabNext", CellID->169466631], Cell[20591, 572, 138, 3, 70, "Item",ExpressionUUID->"6f95f77c-f648-48a7-8bd7-81b5bf81551f", CellTags->"TabNext", CellID->374302236], Cell[20732, 577, 133, 3, 70, "Item",ExpressionUUID->"6c974094-498d-412e-a49a-5c43b8663d13", CellTags->"TabNext", CellID->221811466], Cell[20868, 582, 132, 3, 70, "Item",ExpressionUUID->"fcb25a33-dc1b-4ed7-9515-d19ae8c1e329", CellTags->"TabNext", CellID->8768066], Cell[21003, 587, 142, 3, 70, "Item",ExpressionUUID->"3d5017bf-fd49-49bc-ac44-be8ced20d333", CellTags->"TabNext", CellID->540442610], Cell[21148, 592, 123, 3, 70, "Item",ExpressionUUID->"7539de78-fafe-4843-9e00-e9df50316659", CellTags->"TabNext", CellID->151207994], Cell[23511, 666, 180, 3, 70, "Item",ExpressionUUID->"f518b8c3-8f7f-4c91-abee-63052adc66e2", CellTags->"TabNext", CellID->70093026], Cell[23694, 671, 155, 3, 70, "Item",ExpressionUUID->"aaf8be15-6767-4464-a481-bc44213943b7", CellTags->"TabNext", CellID->350615157]}, "Description"->{ Cell[732, 27, 221, 5, 70, "Text",ExpressionUUID->"59f69123-a26a-4331-a2bd-9ef40d07d4a7", CellTags->{"Description", "TabNext"}, CellID->27787318]}, "Definition"->{ Cell[978, 36, 832, 19, 70, "Section",ExpressionUUID->"78b6f629-74c0-4f03-b6be-4b9ac9a390d8", CellTags->"Definition", CellID->40452676]}, "Documentation"->{ Cell[3547, 112, 80, 2, 70, "Section",ExpressionUUID->"0fc95b97-9576-4fa8-8d26-4c7c44af263b", CellTags->"Documentation", CellID->491847979]}, "Usage"->{ Cell[3652, 118, 745, 19, 70, "Subsection",ExpressionUUID->"ddf2c1af-cac0-4e14-a39a-5a3eb2f7f555", CellTags->"Usage", CellID->253280348]}, "ResourceUsageInputs"->{ Cell[4422, 141, 332, 8, 70, "UsageInputs",ExpressionUUID->"db4ebf67-1f55-41e8-af91-fd250dfa955c", CellTags->"ResourceUsageInputs", CellID->447856995]}, "ResourceUsageDescription"->{ Cell[4757, 151, 246, 4, 70, "UsageDescription",ExpressionUUID->"f25ca0f6-1b6f-4227-89c6-3b3483b13740", CellTags->"ResourceUsageDescription", CellID->716057118]}, "Details & Options"->{ Cell[5052, 161, 771, 18, 70, "Subsection",ExpressionUUID->"0148bea2-4ba9-4443-8d40-d924e838fa1b", CellTags->"Details & Options", CellID->123126086]}, "Examples"->{ Cell[8293, 243, 740, 18, 70, "Section",ExpressionUUID->"5aab7f29-5eb9-40eb-bd2d-b2a43fc641e9", CellTags->"Examples", CellID->163631071]}, "Source & Additional Information"->{ Cell[18738, 509, 116, 2, 70, "Section",ExpressionUUID->"19049a69-a728-4339-890d-25b362cb7e86", CellTags->"Source & Additional Information", CellID->127601628]}, "Contributed By"->{ Cell[18879, 515, 634, 17, 70, "Subsection",ExpressionUUID->"bd5dc682-7e60-4962-a5f3-8ce93945790e", CellTags->"Contributed By", CellID->193619321]}, "Keywords"->{ Cell[19707, 542, 580, 16, 70, "Subsection",ExpressionUUID->"dc08c219-5ab6-4ddf-bc67-2b5c00c43aee", CellTags->"Keywords", CellID->56929831]}, "Related Resource Objects"->{ Cell[21298, 599, 664, 17, 70, "Subsection",ExpressionUUID->"f4e40ff4-ed02-432f-a4af-518ba7b330fa", CellTags->"Related Resource Objects", CellID->234336100]}, "Source/Reference Citation"->{ Cell[21965, 618, 709, 17, 70, "Subsection",ExpressionUUID->"62427ee4-8e16-49fb-91d2-7e4021473ee8", CellTags->"Source/Reference Citation", CellID->4373816]}, "Links"->{ Cell[22699, 639, 559, 16, 70, "Subsection",ExpressionUUID->"596b5ea8-96cf-459a-8187-6dd9a3fadb18", CellTags->"Links", CellID->443077927]}, "Tests"->{ Cell[23898, 680, 724, 18, 70, "Subsection",ExpressionUUID->"d0d6384d-6bc7-4a90-86da-47641b3b101e", CellTags->"Tests", CellID->349784570]}, "Notes"->{ Cell[25016, 720, 94, 3, 70, "Section",ExpressionUUID->"a3b0553e-097a-42e4-9f2c-4a2f0020c640", CellTags->"Notes", CellID->359397282]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 70807, 1663}, {"TabNext", 70971, 1667}, {"Description", 72841, 1707}, {"Definition", 73013, 1711}, {"Documentation", 73178, 1715}, {"Usage", 73339, 1719}, {"ResourceUsageInputs", 73511, 1723}, {"ResourceUsageDescription", 73702, 1727}, {"Details & Options", 73896, 1731}, {"Examples", 74069, 1735}, {"Source & Additional Information", 74253, 1739}, {"Contributed By", 74443, 1743}, {"Keywords", 74614, 1747}, {"Related Resource Objects", 74794, 1751}, {"Source/Reference Citation", 74992, 1755}, {"Links", 75169, 1759}, {"Tests", 75328, 1763}, {"Notes", 75487, 1767} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 149, 3, 70, "Title",ExpressionUUID->"a53944a8-527a-4c65-ba64-23e438fae84c", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[732, 27, 221, 5, 70, "Text",ExpressionUUID->"59f69123-a26a-4331-a2bd-9ef40d07d4a7", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[978, 36, 832, 19, 70, "Section",ExpressionUUID->"78b6f629-74c0-4f03-b6be-4b9ac9a390d8", CellTags->"Definition", CellID->40452676], Cell[1813, 57, 1697, 50, 70, "Code",ExpressionUUID->"ef652adb-a52c-4711-b8f3-e53c133612e6", CellTags->"TabNext", CellID->206237809] }, Closed]], Cell[CellGroupData[{ Cell[3547, 112, 80, 2, 70, "Section",ExpressionUUID->"0fc95b97-9576-4fa8-8d26-4c7c44af263b", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[3652, 118, 745, 19, 70, "Subsection",ExpressionUUID->"ddf2c1af-cac0-4e14-a39a-5a3eb2f7f555", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[4422, 141, 332, 8, 70, "UsageInputs",ExpressionUUID->"db4ebf67-1f55-41e8-af91-fd250dfa955c", CellTags->"ResourceUsageInputs", CellID->447856995], Cell[4757, 151, 246, 4, 70, "UsageDescription",ExpressionUUID->"f25ca0f6-1b6f-4227-89c6-3b3483b13740", CellTags->"ResourceUsageDescription", CellID->716057118] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5052, 161, 771, 18, 70, "Subsection",ExpressionUUID->"0148bea2-4ba9-4443-8d40-d924e838fa1b", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell[5848, 183, 124, 4, 70, "Notes",ExpressionUUID->"3dc6a659-b26b-4d32-b056-1d74b3cd61dd", CellID->469378182], Cell[5975, 189, 349, 5, 70, "Notes",ExpressionUUID->"8ba07955-137e-43ec-a9fc-626b5bbbe598", CellID->56823703], Cell[6327, 196, 287, 4, 70, "Notes",ExpressionUUID->"71f59c3f-d862-4fe6-9b42-a209b6232d94", CellID->172316334], Cell[6617, 202, 358, 7, 70, "Notes",ExpressionUUID->"f300a187-4d7f-403b-843e-32fd37774df2", CellID->188507433], Cell[6978, 211, 428, 8, 70, "Notes",ExpressionUUID->"cc936c33-bfaf-41e6-9cb8-863017715679", CellID->740632055], Cell[7409, 221, 396, 7, 70, "Notes",ExpressionUUID->"e5b2b558-5b86-42d6-9325-419e856879c6", CellID->146496866], Cell[7808, 230, 424, 6, 70, "Notes",ExpressionUUID->"b5da2963-0863-4e7f-b1c2-94a4c5161b37", CellID->546259384] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[8293, 243, 740, 18, 70, "Section",ExpressionUUID->"5aab7f29-5eb9-40eb-bd2d-b2a43fc641e9", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell[9058, 265, 56, 1, 70, "Subsection",ExpressionUUID->"377c85a4-7ee5-422b-a81f-05fdb0fdb113", CellID->285421464], Cell[9117, 268, 318, 5, 70, "Text",ExpressionUUID->"7194e704-4893-4db3-a230-69c2b7d63526", CellID->25463679], Cell[CellGroupData[{ Cell[9460, 277, 174, 4, 70, "Input",ExpressionUUID->"c4eff362-a28b-43b6-83c3-456424056ecb", CellID->91634542], Cell[9637, 283, 140, 3, 70, "Output",ExpressionUUID->"4048b11c-7c57-4c2f-b18d-8cd5e5e4e903", CellID->701294297] }, Open ]], Cell[9792, 289, 240, 4, 70, "Text",ExpressionUUID->"43521b04-b6d5-4470-9952-bcaaeb71f9ce", CellID->113296902], Cell[CellGroupData[{ Cell[10057, 297, 771, 16, 70, "Input",ExpressionUUID->"a72c071b-2858-43e1-9a2e-3dc705bbb946", CellID->146714838], Cell[10831, 315, 4737, 98, 70, "Output",ExpressionUUID->"232dd3c7-5446-4ff6-b0e6-e962b993a6ae", CellID->798691490] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15617, 419, 47, 1, 70, "Subsection",ExpressionUUID->"f510ddde-ae35-4d60-884b-2b204e1a812b", CellID->267254639], Cell[15667, 422, 228, 4, 70, "Text",ExpressionUUID->"dd89812c-fe4c-4d09-ad6c-301e556aecd9", CellID->20808793], Cell[CellGroupData[{ Cell[15920, 430, 539, 10, 70, "Input",ExpressionUUID->"d61c9ff2-e23c-47bd-8f58-9455756add97", CellID->245535023], Cell[16462, 442, 371, 6, 70, "Output",ExpressionUUID->"d500ac88-7f5a-4878-a162-7f6107f84938", CellID->62159920] }, Open ]], Cell[16848, 451, 283, 4, 70, "Text",ExpressionUUID->"ae4facf7-db56-46ff-afe6-861c8507a0d7", CellID->485732157], Cell[CellGroupData[{ Cell[17156, 459, 738, 16, 70, "Input",ExpressionUUID->"8d16e833-a41e-40a6-8ec2-7cdeb639728b", CellID->140238344], Cell[17897, 477, 490, 10, 70, "Output",ExpressionUUID->"cc13e3f5-464b-4cb7-936b-f21b4c1d0bec", CellID->162207454] }, Open ]] }, Closed]], Cell[18414, 491, 47, 1, 70, "Subsection",ExpressionUUID->"2a30f0e4-78a8-4861-a931-8b1bd0c64e75", CellID->1575259], Cell[18464, 494, 53, 1, 70, "Subsection",ExpressionUUID->"779434d6-2cb4-4d2c-96bc-cc43c3d5aab7", CellID->20767984], Cell[18520, 497, 66, 1, 70, "Subsection",ExpressionUUID->"a7faa186-ccc2-445a-9a03-5c34fac38915", CellID->461307998], Cell[18589, 500, 56, 1, 70, "Subsection",ExpressionUUID->"f77d90a9-0e94-4546-a351-0d81b26f9540", CellID->95944414], Cell[18648, 503, 53, 1, 70, "Subsection",ExpressionUUID->"267e5ea9-7b9c-4ace-821b-8e5110838839", CellID->5316679] }, Closed]], Cell[CellGroupData[{ Cell[18738, 509, 116, 2, 70, "Section",ExpressionUUID->"19049a69-a728-4339-890d-25b362cb7e86", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[18879, 515, 634, 17, 70, "Subsection",ExpressionUUID->"bd5dc682-7e60-4962-a5f3-8ce93945790e", CellTags->"Contributed By", CellID->193619321], Cell[19516, 534, 154, 3, 70, "Text",ExpressionUUID->"710ad0bf-f20e-41c8-bcde-33ea555dccd3", CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[19707, 542, 580, 16, 70, "Subsection",ExpressionUUID->"dc08c219-5ab6-4ddf-bc67-2b5c00c43aee", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell[20312, 562, 136, 3, 70, "Item",ExpressionUUID->"b37c1809-6d79-46b7-8b1e-9b52fc827fd9", CellTags->"TabNext", CellID->286151546], Cell[20451, 567, 137, 3, 70, "Item",ExpressionUUID->"bf35335a-70ba-473f-8ade-a860b0fea26d", CellTags->"TabNext", CellID->169466631], Cell[20591, 572, 138, 3, 70, "Item",ExpressionUUID->"6f95f77c-f648-48a7-8bd7-81b5bf81551f", CellTags->"TabNext", CellID->374302236], Cell[20732, 577, 133, 3, 70, "Item",ExpressionUUID->"6c974094-498d-412e-a49a-5c43b8663d13", CellTags->"TabNext", CellID->221811466], Cell[20868, 582, 132, 3, 70, "Item",ExpressionUUID->"fcb25a33-dc1b-4ed7-9515-d19ae8c1e329", CellTags->"TabNext", CellID->8768066], Cell[21003, 587, 142, 3, 70, "Item",ExpressionUUID->"3d5017bf-fd49-49bc-ac44-be8ced20d333", CellTags->"TabNext", CellID->540442610], Cell[21148, 592, 123, 3, 70, "Item",ExpressionUUID->"7539de78-fafe-4843-9e00-e9df50316659", CellTags->"TabNext", CellID->151207994] }, Open ]] }, Open ]], Cell[21298, 599, 664, 17, 70, "Subsection",ExpressionUUID->"f4e40ff4-ed02-432f-a4af-518ba7b330fa", CellTags->"Related Resource Objects", CellID->234336100], Cell[21965, 618, 709, 17, 70, "Subsection",ExpressionUUID->"62427ee4-8e16-49fb-91d2-7e4021473ee8", CellTags->"Source/Reference Citation", CellID->4373816], Cell[CellGroupData[{ Cell[22699, 639, 559, 16, 70, "Subsection",ExpressionUUID->"596b5ea8-96cf-459a-8187-6dd9a3fadb18", CellTags->"Links", CellID->443077927], Cell[CellGroupData[{ Cell[23283, 659, 142, 2, 70, "Item",ExpressionUUID->"a42bb442-06d9-4573-ad09-904b6a51fcd6", CellID->145433211], Cell[23428, 663, 80, 1, 70, "Item",ExpressionUUID->"bdd21960-9505-4a60-ac18-9e22f78a2b01", CellID->40177575], Cell[23511, 666, 180, 3, 70, "Item",ExpressionUUID->"f518b8c3-8f7f-4c91-abee-63052adc66e2", CellTags->"TabNext", CellID->70093026], Cell[23694, 671, 155, 3, 70, "Item",ExpressionUUID->"aaf8be15-6767-4464-a481-bc44213943b7", CellTags->"TabNext", CellID->350615157] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23898, 680, 724, 18, 70, "Subsection",ExpressionUUID->"d0d6384d-6bc7-4a90-86da-47641b3b101e", CellTags->"Tests", CellID->349784570], Cell[CellGroupData[{ Cell[24647, 702, 131, 4, 70, "Input",ExpressionUUID->"5c4b6682-a8b0-46fd-ae6f-009ec0f4586b", CellID->152812409], Cell[24781, 708, 174, 5, 70, "Output",ExpressionUUID->"f51b85e3-2a7a-46c0-90a7-8ee113e580d1", CellID->152300754] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[25016, 720, 94, 3, 70, "Section",ExpressionUUID->"a3b0553e-097a-42e4-9f2c-4a2f0020c640", CellTags->"Notes", CellID->359397282], Cell[25113, 725, 133, 2, 70, "Text",ExpressionUUID->"7dcb2b88-a395-4b68-828d-646698981a03", CellID->57581048] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)