(* 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[ 83603, 1954] NotebookOptionsPosition[ 25953, 734] NotebookOutlinePosition[ 75959, 1777] CellTagsIndexPosition[ 75402, 1757] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ArcCotDegree", "Title", CellChangeTimes->{{3.7480905478009543`*^9, 3.7480905502079544`*^9}, { 3.7480906127549543`*^9, 3.7480906258709545`*^9}, {3.749997229716796*^9, 3.749997231043928*^9}}, CellTags->{"Title", "TabNext"}, CellID->581752785], Cell["\<\ Computes the inverse cotangent of a number and returns a result in degrees\ \>", "Text", CellChangeTimes->{ 3.7480904671439543`*^9, {3.749921997029969*^9, 3.7499220150267687`*^9}}, CellTags->{"Description", "TabNext"}, CellID->67126818], 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->124152149], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"ArcCotDegree", ",", " ", "iArcCotDegree"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetAttributes", "[", RowBox[{"ArcCotDegree", ",", RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ArcCotDegree", "::", "argx"}], " ", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ArcCotDegree", "[", "args___", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"iArcCotDegree", "[", "args", "]"}], ",", "$tag"}], "]"}]}], "}"}], ",", RowBox[{"res", "/;", RowBox[{"res", "=!=", "$Failed"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iArcCotDegree", "[", "x_", "]"}], ":=", " ", RowBox[{ RowBox[{"180", "/", "Pi"}], " ", "*", " ", RowBox[{"ArcCot", "[", "x", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iArcCotDegree", "[", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"ArcCotDegree", "::", "argx"}], "]"}], ";", "$Failed"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iArcCotDegree", "[", RowBox[{"first_", ",", " ", "rest__"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"ArcCotDegree", "::", "argx"}], "]"}], ";", "$Failed"}], ")"}]}]}], "Code", CellChangeTimes->{3.7480905166919546`*^9, 3.749922054301696*^9}, CellTags->"TabNext", CellLabel->"In[164]:=", CellID->754283641] }, Closed]], Cell[CellGroupData[{ Cell["Documentation", "Section", CellTags->"Documentation", CellID->59145861], 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->115264576], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArcCotDegree", "[", StyleBox["x", FontSlant->"Italic"], "]"}]], "UsageInputs", CellChangeTimes->{{3.7480906457399545`*^9, 3.7480906584499545`*^9}, { 3.749922087097975*^9, 3.7499220872099857`*^9}}, CellTags->"TabNext", CellLabel->"In[171]:=", CellID->287942899], Cell["computes the inverse cotangent of x in degrees.", "UsageDescription", CellChangeTimes->{ 3.748090604678954*^9, {3.7480906619819546`*^9, 3.7480906943799543`*^9}, { 3.749922079673232*^9, 3.7499220893251977`*^9}}, CellTags->"TabNext", CellID->377542939] }, 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->380568768], Cell[CellGroupData[{ Cell["\<\ Mathematical function, suitable for both symbolic and numerical manipulation.\ \ \>", "Notes", CellID->35513645], Cell["ArcCotDegree[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}}, CellID->70118268], Cell["\<\ For certain special arguments, ArcCotDegree 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}}, CellID->314865882], Cell["\<\ ArcCotDegree 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}}, CellID->12991584], Cell["ArcCotDegree 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}}, CellID->738033007] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "{{ Demonstrate how to use the function. Examples should start with \ the most basic use case. Each example should be described using text cells. \ Use \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\ \nSee 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->181136009], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->23322668], Cell["Compute the inverse cotangent 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.7437777725541763`*^9, 3.7437777764695683`*^9}}, CellID->25463679], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArcCotDegree", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.7499924352043924`*^9, 3.7499924389837704`*^9}}, CellLabel->"In[172]:=", CellID->43653859], Cell[BoxData["45"], "Output", CellChangeTimes->{3.7499924396478367`*^9, 3.7499972493457584`*^9}, CellLabel->"Out[172]=", CellID->146690053] }, 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[{"ArcCotDegree", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "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}}, CellLabel->"In[173]:=", CellID->146714838], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVxX040wkcAHAkSR7SUlGRaGxZnJcUYcaMZ156xn6Kq7wlySFvKfTiJSp3 JasmqVBCajrPqVz6fsv7S+el1uVQurJkOVmb1lbt7v74PB+zyETObg01NbWd //n/7Hf+EpWKhLozGwsEl8koylwmG/lKQkVFjnhdJRkDFr/6fPcLCXPLu8PK r5Nxzeakb4mfSHifT4k8XU/GxyfPao+LSBjnE0k62kxG7Q1/muATEv6RRE7m PScjLzWcfbSMhIzp3blF+pZ4Uz3lmpoTCX2Y5SphniXO382yM9qxBNme0/xL JVZIetEeX1lsgJf1C4Y1blCQ03oxitKzGHvWOq/SfELFzBnX+DNv9BGeTnnx qdZ478DFOEGgHnZaNzUIi2kYcJa75nupLob6KKX9dBtklbcE+HzQwfvzMyxO FdlidefB5ylhC3GpNtOqJOcH3JnHM+yvWYDpbcrG0tt2eDh83u1FJC0sXnDn aY/YHtVopuCZr4m/2PcYxfo54l+nSgtuCjVQ3vvT+dh5TrhKJ7ZWylBHYf5F tYqxTbjPkTp/ZJUKAvWFDE0nF4xyelnT2qoE9ptNj02lrhhT40R431VCQnjE hK/KFeOMiud11ynBiG92IVPHDZOUnjv/KFbCyicPHsnWuGEW1JKGdynBZdpa ygxwQx4r7fA/SgW8XpstDqtzw44Q3WAjBwVk0tgnzsS6IzXDWZVwTQ5LaTMr o4/QEccCqG/OyyHj1HZ3/nE6Ep5R3JATchA2xMgHf6Zjjl7RTfcEOZiHP/Ig LtFx+NpYyOJNcrBKJ/dX3qdj4eDRhju9n2GHTphwq4yOImpnhFQyB6lthX2U /R5YMRbUdtBDBv6nu+xoWQy0e2uneOYgg7/FJnvD8xjYNmVga2slA4crX0ZL ixgo+txfJtKTwYnkEJ5pOQOpS/xSgkalgLcy3qY/ZOCv3l5raQek8Hgj3yZU wxPbBA5Hx+s/wYP0+pOrT3viu2OGW1grJGA6/i5+rsULdbIFMyU6EogOYOc+ 7PLCDRm+VeNfZ2Hf3oVdp596YXpCts6h17NwedJG5f/eC7XCJl7U182Ct5/n cmdDJlo4/Ja2xHUWjnM0eS8SmBgpChaMRXyEHMfGC/EUb2w+Z8WcJKbheeK9 mxMtLNQOexelvmUaZjYL+tR6WUisqc4xNpsGwZUfxeQXLJTUmaOf+AM8vzvH 4ElYSEETlztHPoCR9oCH1NIH+VNLfzhUI4bRdbyrAzwfTHNXX62reA+B9tVZ dgd80fb9sNSmXATPzPaPOYSzMfUjjbI8TwSiUOekjYlsvPf52I7vcSKIuSYx 9jzMRg8takffJhFEa2h1ZV9iI8f80IW9zyZAKy9SnDHMxrQdxs5ViybAX1AY d4Lrh82DoUeWHXoDhdZheywJf/RqHln4jRiHhIjJjVUHAzGpViA3ID2FMkZL 9PB2DtrqJeQyxofgC1s/wj+ag7PJ1nopt4ZgqtXtVXsCB5O31Jo/Yw1BpPGk e1suB9P6KwPOZw0CQ5RfJbvFwU9T630d+/qhqbDM0nxeEGrlyq96J3fDN7HF yd0NQVjgl9Z0Q7cbHNpzfw/5PQi1l0l6tW90QZnLd3v/jiDUqRXP9Yx0ghav vs9jNAj1+1/6BTI7QDGs2rZVOxhXrGyXh6xoBb5d5kF5eDASMeYVQ1n3Qd/K pmv1Ui6e3J9SePa3e2Dm/6TGypSLLVmtiZx/7sIANXSDI5WLFiVRbkO7mkCt c6GMQ+eiBKpGBhmNINr8asHVeC6a2PtYVxrUwf4mrdHUdi7m+04qzHJrQMhk zpUMcPHDrsLuCmk1LApxfds4wsXmoq6Yij+r4PZP3+fPzXLxVl8xw8OlDCh9 JlPHTAjM/DL4im7CB3BrWF9NIdCXvCSbrn4OxlM6hT0OBPaqLBKP/PIz0A5c pxmyCYzdfr32cHABGISloTNBoGbjurfZxscg7uNYfngEgXQjP1cFpoHFnl1J x+MJLOxQDGwzjYPbXw1LA1IJ/BcTchOk "]], LineBox[CompressedData[" 1:eJwVkH881Hccx8+PTTihb4ZK+nH7Hpn5TX6sz/v86OTXXbhLRNs5ZmhKEisK 5/youBISFmU8utCoDNn8ViNX5ndMmrhx3HJcO2zd2h+vx/PxfDyef712s2J8 wxQJBEL4h/3PzJ71FwGGkaj2H50inzgmTOnXidU1zyOawuOLr8OZ4Gc11sKl cJBnz+Gqx0FMaBg/kppxLhu9dxpdy6czQaNNtLcrkIcKMnrTT7ox4VR41HzX 9QKkWyS+gJsx4ba9iVd3XRFqe4epKpKYMEQU1XYLSlDKtVyFKT0mlBy1cQjl lCNKpW98oSITCIRH8tBfqpCdRs2c9ggDiua3WrzxuouuVDixJL0MsByMY7En +Eit0aVxsJUB7ErrbrasBvk5zBgV3f3geGC3pX49ur+unWuexIAnz8azrfwa kdarTxZKSAyISHj5JMikCRkFvw8q12PAJtKEMkepGZk5mPRUERngcW4yeejB YzRYY9vVvOoPz4xfxZ7Z2op27o0z3ujyhwiX2JqJhQ5E/eP7Eyth/hBddjbf oPpXFJl/TPczvh84mLbX0wsHkSbbdLHpgC8oxutMsvWnkWxlhJr6Aw0Cv+T/ 1mg9jXqgRaR4jQb1HuhXIn0aOa18/jcvmQYsw28aHnKnUa/Dff/hIzToeNrC U16dRmq8qStyNRqkbWe7VQheI5/ZTyMnT/uAcnt97UzaDOo0khm107xBhUhP YYnnUKh7XN+KmScEkAPbbFWF6N9PrNK27/IEvjNbrkYSoup3GwKalif4JCYk PTgqROYdChpTbz2gYK4sUblbiGbkGVxevQfg7cunKov/RMzW6x7u+z3ALT6P teC+gHJTzlJGvA5B2vSIS+ydJdTvSekcvUGFqSbPEwktS4jEGkjpv0wFh7y2 guThJTQkzit7dpEKb93489kqYlRV1jgzF0GFkHtJuXeixCjxjEVntv2HPp40 MWT1F5In9kizJg/C2kf2TdtZb5Fjc26wrfFB+LGYS0+WLKPyiOWJpxOu0Idx hZoECerALyL1AVeYu5SeXK4hQXvzpXxmjyvsOM+p7jKSoPFtSgmb6lwh81jq JvXjEiSvukEY5brClwbJbYV9EiSuz8nSs3YFrVtnzOsqVlDU+EPW6nUXiLnN 1nrDlKKHL7VHj3zrDDmJRSU5oVLkejS+zCLcGWrpAiP7k1KkM/q8UDvEGcTv 7Sg5WVLE98hcm/F2hugg9dj9LVLUm01aGDB1hsit9YOXd79DPlv23+gXUyCc Ky+wWXyH0jn1rw3OUCAk8qZBRooMXYOUaPlVgI1xVcHyFRni+19vO3YJ4Mah xORjN2Uo7LTo6S8cgAGjgFcWD2SoOubALO8sgKtQp3zyjQxpT1OHo4MBjNlX SZbua2j/1I9zcmOA1eBMk983r6PIbZTzi5cRZB2Ot7cq2UCbbKseFeoeAOWt +XMX1t8jAYGoMkJ3hNG+9LccTQU4W16nHmZoD4xzLNubnYqQv7CvFunaQbS6 aI8gUBl2etFDnsfZgOG9noKPFz6CR0uGJ3ZutoZzjS5+msUqULbEjW5qtIST ldENtmaqcDHFPyrmlgUQFe1Yn8+qgTepNb6aZw5uJ/zz9+URIUeb3jtPNQO9 JoMYN9Jm0F5cY1xqNoVrsZlXzUc1YUZvz8A2m8/Al0szLW3QgkBR12F70T7Y F8RhVCRpA/PWqHtQpzGMzKnezmNsAXXCUXJoqREIWLOULYYYjGg+l58qJ8Nr 5SpZ/h4MBjGlHQ6lZFitjLivj2PwnKLyUKmIDPoi0Y7dphi0ekf5F/PIwD4t +dvMEYPZMVPK5AUyrKfJa7yPYJDaXbOrIoQM+A/627JyMRjb1d9x0IAM9tSJ F8Q8DNQv3XnjpE8Gr/mSDF4BBt+NFUda65DhlOkuaWEpBtFfGJSRNcjQ8gh/ UXkPgyup90p3/ouDb48Vt+sJBrb67Qd9fschLELq5N6HgW7fY2bgOA4Jaj+t 9AkwCNtobv16GIdSH4evBocxkGZp3uT24/DnCDj9MYOB/Dg5eOhnHNYTFFfC hBgsvgzYI2rCQWN71935BQxsxkwclRpwsDxO1V1exgCjaoTZ1eLgpqAqiJNi UE59GufHxyHgTi9HJsPghTBp+GQlDpFulx3P//Phj/R0bu5tHJKE3hK5HAPi X7YZ97/H4T9klOw/ "]]}, Annotation[#, "Charting`Private`Tag$21772#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->{{-5, 5}, {-89.81729724070712, 89.81729724070712}}, 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.749997249413765*^9}, CellLabel->"Out[173]=", CellID->346943964] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->639546565], 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[{"ArcCotDegree", "[", "43.1", "]"}]], "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}}, CellLabel->"In[174]:=", CellID->245535023], Cell[BoxData["1.3291299666098892`"], "Output", CellChangeTimes->{3.7425676284245825`*^9, 3.7429123831415386`*^9, 3.742915737251916*^9, 3.7429161436915555`*^9, 3.742919451542308*^9, 3.743526624365472*^9, 3.7499972494267664`*^9}, CellLabel->"Out[174]=", CellID->171909556] }, 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[{"ArcCotDegree", "[", "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}, 3.742911296913926*^9, 3.742915475918785*^9, 3.7429159320843973`*^9, {3.742919445391693*^9, 3.7429194481359673`*^9}, { 3.7435266272547607`*^9, 3.7435266276137967`*^9}}, CellLabel->"In[175]:=", CellID->140238344], Cell[BoxData["2.\ 20259816176580525152037951635060410604060967808205161850198215231553287829348`\ 50."], "Output", CellChangeTimes->{3.742567764525363*^9, 3.7429123854577703`*^9, 3.7429157293371243`*^9, 3.7429161437405605`*^9, 3.7429194540165553`*^9, 3.7435266280078363`*^9, 3.749997249442768*^9}, CellLabel->"Out[175]=", CellID->151897884] }, Open ]] }, Closed]], Cell["Options", "Subsection", CellID->50794566], Cell["Applications", "Subsection", CellID->685140369], Cell["Properties and Relations", "Subsection", CellID->442020371], Cell["Possible Issues", "Subsection", CellID->119984559], Cell["Neat Examples", "Subsection", CellID->690644752] }, Closed]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->119443399], 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->51426266], Cell["Paco Jain (Wolfram Research)", "Text", CellChangeTimes->{{3.7480908746189547`*^9, 3.7480908766419544`*^9}, { 3.7480910922939544`*^9, 3.7480910979859543`*^9}}, CellTags->"TabNext", CellID->868247810] }, 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->191738208], Cell[CellGroupData[{ Cell["trigonometry", "Item", CellChangeTimes->{{3.7480908864299545`*^9, 3.7480908888169546`*^9}}, CellTags->"TabNext", CellID->251659232], Cell["inverse cot", "Item", CellChangeTimes->{{3.7480908864299545`*^9, 3.7480908985789547`*^9}, { 3.749922237991063*^9, 3.749922238124076*^9}}, CellID->392439920], Cell["inverse cotangent", "Item", CellChangeTimes->{{3.7480908864299545`*^9, 3.7480909034839544`*^9}, { 3.749922240554319*^9, 3.7499222423995037`*^9}}, CellID->303636954], Cell["arc cot", "Item", CellChangeTimes->{{3.7480908864299545`*^9, 3.748090908185954*^9}, { 3.749922244334697*^9, 3.7499222444917126`*^9}}, CellID->155598832], Cell["arc cotangent", "Item", CellChangeTimes->{{3.7480908864299545`*^9, 3.7480909129339542`*^9}, { 3.7499222455498185`*^9, 3.7499222480700703`*^9}}, CellID->917384003], Cell["arc cot in degrees", "Item", CellChangeTimes->{{3.7480908864299545`*^9, 3.7480909171399546`*^9}, { 3.7499222497802415`*^9, 3.7499222507473383`*^9}}, CellID->140459450], Cell["inverse cotangent in degrees", "Item", CellChangeTimes->{ 3.7480908864299545`*^9, 3.7480909191429543`*^9, {3.749922252975561*^9, 3.7499222548207455`*^9}}, CellID->23806392] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "{{ Names of published resource objects from any Wolfram repository \ that are related to this resource. }}", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->154392318], Cell["CotDegree", "Item", CellChangeTimes->{{3.7480909555009546`*^9, 3.7480909569859543`*^9}, { 3.74992226096336*^9, 3.749922261907454*^9}}, CellTags->"TabNext", CellID->158088600] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "{{ Citation for original source of the function or its components. \ For example, original publication of an algorithm or public code repository. \ }}", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->259228208], Cell["Source, reference or citation information", "Text", CellTags->"TabNext", CellID->5726719] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "{{ URLs or hyperlinks for external information related to the \ function. }}", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Links", CellID->640424809], Cell[CellGroupData[{ Cell["http://mathworld.wolfram.com/InverseCotangent.html", "Item", CellChangeTimes->{{3.748091150770954*^9, 3.7480911799279547`*^9}, { 3.7499223754028025`*^9, 3.7499223780800705`*^9}}, CellID->457662575], Cell["http://reference.wolfram.com/language/ref/ArcCot.html", "Item", CellChangeTimes->{{3.748091150770954*^9, 3.7480911893989544`*^9}, { 3.7499223828735495`*^9, 3.749922385437806*^9}}, CellID->312844182], Cell["http://reference.wolfram.com/language/ref/Degree.html", "Item", CellChangeTimes->{{3.748091150770954*^9, 3.748091195001954*^9}}, CellID->282721516] }, 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->169780213] }, Closed]], Cell[CellGroupData[{ Cell["Notes", "Section", DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->142734981], Cell["Used in Wolfram|AlphaNotebooks", "Text", CellChangeTimes->{{3.7499217112273912`*^9, 3.7499217344177103`*^9}}, CellID->36009716] }, 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, 254, 5, 70, "Title",ExpressionUUID->"9fa92b59-3f38-46b3-8fb8-add43efb98e4", CellTags->{"Title", "TabNext"}, CellID->581752785]}, "TabNext"->{ Cell[580, 22, 254, 5, 70, "Title",ExpressionUUID->"9fa92b59-3f38-46b3-8fb8-add43efb98e4", CellTags->{"Title", "TabNext"}, CellID->581752785], Cell[837, 29, 251, 6, 70, "Text",ExpressionUUID->"2389a672-6e3d-478d-ada6-d724257e9062", CellTags->{"Description", "TabNext"}, CellID->67126818], Cell[1961, 61, 1720, 50, 70, "Code",ExpressionUUID->"782cf93b-1e7a-42d2-a105-ac392b9417cb", CellTags->"TabNext", CellID->754283641], Cell[4598, 145, 296, 8, 70, "UsageInputs",ExpressionUUID->"f9647291-f698-4e4f-822e-431938f4d9d6", CellTags->"TabNext", CellID->287942899], Cell[4897, 155, 264, 5, 70, "UsageDescription",ExpressionUUID->"affc1e2d-e57e-4452-8a2e-c76eb4ea1947", CellTags->"TabNext", CellID->377542939], Cell[19896, 541, 209, 4, 70, "Text",ExpressionUUID->"b934bbea-d55d-4994-b7e5-8cc8ee7f6e89", CellTags->"TabNext", CellID->868247810], Cell[20754, 570, 140, 3, 70, "Item",ExpressionUUID->"459b7e7b-5737-4c6a-8c3a-3a52c36dacf4", CellTags->"TabNext", CellID->251659232], Cell[22671, 629, 185, 4, 70, "Item",ExpressionUUID->"30e33fda-89a5-4955-8a41-f784f866e8c4", CellTags->"TabNext", CellID->158088600], Cell[23606, 657, 97, 2, 70, "Text",ExpressionUUID->"c030cb4e-1ee7-40cb-bfb4-bc7b01f1e9e8", CellTags->"TabNext", CellID->5726719]}, "Description"->{ Cell[837, 29, 251, 6, 70, "Text",ExpressionUUID->"2389a672-6e3d-478d-ada6-d724257e9062", CellTags->{"Description", "TabNext"}, CellID->67126818]}, "Definition"->{ Cell[1113, 39, 845, 20, 70, "Section",ExpressionUUID->"67bc6295-fa05-41ba-8775-587529ffb8dd", CellTags->"Definition", CellID->124152149]}, "Documentation"->{ Cell[3718, 116, 79, 2, 70, "Section",ExpressionUUID->"3390b22f-c7ed-4ef6-8baa-2875065616c1", CellTags->"Documentation", CellID->59145861]}, "Usage"->{ Cell[3822, 122, 751, 19, 70, "Subsection",ExpressionUUID->"f341b386-6bcc-400e-87c2-de2dc95210b4", CellTags->"Usage", CellID->115264576]}, "Details & Options"->{ Cell[5210, 166, 777, 18, 70, "Subsection",ExpressionUUID->"4d7204e5-34e9-429f-8d6f-cede5289c9b7", CellTags->"Details & Options", CellID->380568768]}, "Examples"->{ Cell[7611, 231, 746, 18, 70, "Section",ExpressionUUID->"aece7a49-7a9f-4c0e-a423-2c272e527cc1", CellTags->"Examples", CellID->181136009]}, "Source & Additional Information"->{ Cell[19113, 516, 116, 2, 70, "Section",ExpressionUUID->"c0153958-d828-4fbb-9d88-6fd0b8be2bde", CellTags->"Source & Additional Information", CellID->119443399]}, "Contributed By"->{ Cell[19254, 522, 639, 17, 70, "Subsection",ExpressionUUID->"accf04a0-09af-4edf-acc7-dc2f8c5c06be", CellTags->"Contributed By", CellID->51426266]}, "Keywords"->{ Cell[20142, 550, 587, 16, 70, "Subsection",ExpressionUUID->"cae625d5-f39a-4ca4-b727-16f989b87752", CellTags->"Keywords", CellID->191738208]}, "Related Resource Objects"->{ Cell[21998, 610, 670, 17, 70, "Subsection",ExpressionUUID->"1586797e-e459-4098-b411-ce148e291576", CellTags->"Related Resource Objects", CellID->154392318]}, "Source/Reference Citation"->{ Cell[22893, 638, 710, 17, 70, "Subsection",ExpressionUUID->"a0ef4684-1ebf-4914-9eab-d575877c5d65", CellTags->"Source/Reference Citation", CellID->259228208]}, "Links"->{ Cell[23740, 664, 558, 16, 70, "Subsection",ExpressionUUID->"96f606c1-9bab-45e4-82b6-1cbc53edd983", CellTags->"Links", CellID->640424809]}, "Tests"->{ Cell[24926, 700, 730, 18, 70, "Subsection",ExpressionUUID->"ada30c88-ed0f-42b5-b71e-25a55178f802", CellTags->"Tests", CellID->169780213]}, "Notes"->{ Cell[25693, 723, 94, 3, 70, "Section",ExpressionUUID->"27833de8-b422-4f7a-bb39-9fe99716a57f", CellTags->"Notes", CellID->142734981]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 71486, 1666}, {"TabNext", 71651, 1670}, {"Description", 72975, 1698}, {"Definition", 73147, 1702}, {"Documentation", 73314, 1706}, {"Usage", 73474, 1710}, {"Details & Options", 73644, 1714}, {"Examples", 73817, 1718}, {"Source & Additional Information", 74001, 1722}, {"Contributed By", 74191, 1726}, {"Keywords", 74361, 1730}, {"Related Resource Objects", 74542, 1734}, {"Source/Reference Citation", 74740, 1738}, {"Links", 74919, 1742}, {"Tests", 75078, 1746}, {"Notes", 75237, 1750} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 254, 5, 70, "Title",ExpressionUUID->"9fa92b59-3f38-46b3-8fb8-add43efb98e4", CellTags->{"Title", "TabNext"}, CellID->581752785], Cell[837, 29, 251, 6, 70, "Text",ExpressionUUID->"2389a672-6e3d-478d-ada6-d724257e9062", CellTags->{"Description", "TabNext"}, CellID->67126818], Cell[CellGroupData[{ Cell[1113, 39, 845, 20, 70, "Section",ExpressionUUID->"67bc6295-fa05-41ba-8775-587529ffb8dd", CellTags->"Definition", CellID->124152149], Cell[1961, 61, 1720, 50, 70, "Code",ExpressionUUID->"782cf93b-1e7a-42d2-a105-ac392b9417cb", CellTags->"TabNext", CellID->754283641] }, Closed]], Cell[CellGroupData[{ Cell[3718, 116, 79, 2, 70, "Section",ExpressionUUID->"3390b22f-c7ed-4ef6-8baa-2875065616c1", CellTags->"Documentation", CellID->59145861], Cell[CellGroupData[{ Cell[3822, 122, 751, 19, 70, "Subsection",ExpressionUUID->"f341b386-6bcc-400e-87c2-de2dc95210b4", CellTags->"Usage", CellID->115264576], Cell[CellGroupData[{ Cell[4598, 145, 296, 8, 70, "UsageInputs",ExpressionUUID->"f9647291-f698-4e4f-822e-431938f4d9d6", CellTags->"TabNext", CellID->287942899], Cell[4897, 155, 264, 5, 70, "UsageDescription",ExpressionUUID->"affc1e2d-e57e-4452-8a2e-c76eb4ea1947", CellTags->"TabNext", CellID->377542939] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5210, 166, 777, 18, 70, "Subsection",ExpressionUUID->"4d7204e5-34e9-429f-8d6f-cede5289c9b7", CellTags->"Details & Options", CellID->380568768], Cell[CellGroupData[{ Cell[6012, 188, 123, 4, 70, "Notes",ExpressionUUID->"b9376d7b-7c94-4cd5-bc44-971185176db1", CellID->35513645], Cell[6138, 194, 297, 4, 70, "Notes",ExpressionUUID->"f1b65df6-d0ef-4106-b123-c6ff21dc4864", CellID->70118268], Cell[6438, 200, 383, 8, 70, "Notes",ExpressionUUID->"deb6f711-4349-4488-95aa-9812a5be5003", CellID->314865882], Cell[6824, 210, 351, 7, 70, "Notes",ExpressionUUID->"165906c9-1cea-4db6-a568-21acc50866c5", CellID->12991584], Cell[7178, 219, 372, 5, 70, "Notes",ExpressionUUID->"c76de1a5-41f4-4c0f-9f8f-1c516890a85d", CellID->738033007] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7611, 231, 746, 18, 70, "Section",ExpressionUUID->"aece7a49-7a9f-4c0e-a423-2c272e527cc1", CellTags->"Examples", CellID->181136009], Cell[CellGroupData[{ Cell[8382, 253, 55, 1, 70, "Subsection",ExpressionUUID->"d9dc8dd3-c55e-484a-b120-524c44466c1f", CellID->23322668], Cell[8440, 256, 327, 5, 70, "Text",ExpressionUUID->"fb273926-8b84-4d0b-8f8e-fdbfd7b24a05", CellID->25463679], Cell[CellGroupData[{ Cell[8792, 265, 179, 4, 70, "Input",ExpressionUUID->"71657ef7-f858-48d0-9606-edfdcd0bb553", CellID->43653859], Cell[8974, 271, 142, 3, 70, "Output",ExpressionUUID->"b3eff375-7492-4016-aa0b-50b3baede3cf", CellID->146690053] }, Open ]], Cell[9131, 277, 240, 4, 70, "Text",ExpressionUUID->"34dc3106-1b03-441e-b2af-c4a96d397d2c", CellID->113296902], Cell[CellGroupData[{ Cell[9396, 285, 673, 15, 70, "Input",ExpressionUUID->"cd934bc9-cde1-42c8-ba38-4ba9185d39ef", CellID->146714838], Cell[10072, 302, 6396, 127, 70, "Output",ExpressionUUID->"25ca2816-12e5-4ac1-8c65-c176f6a3ce4f", CellID->346943964] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16517, 435, 47, 1, 70, "Subsection",ExpressionUUID->"e09646d1-5a16-4b90-af19-bf34fcae2734", CellID->639546565], Cell[16567, 438, 228, 4, 70, "Text",ExpressionUUID->"7b87cbcb-fa6c-4d6c-903e-834f5a984c90", CellID->20808793], Cell[CellGroupData[{ Cell[16820, 446, 439, 9, 70, "Input",ExpressionUUID->"e67ed0ff-e0c1-46f2-8711-88a2c5c77b6a", CellID->245535023], Cell[17262, 457, 279, 5, 70, "Output",ExpressionUUID->"ed0e8e19-97a3-46d7-945e-3484ddc50e11", CellID->171909556] }, Open ]], Cell[17556, 465, 283, 4, 70, "Text",ExpressionUUID->"e7e3a1ef-3da4-4ae4-b100-d388eab367e1", CellID->485732157], Cell[CellGroupData[{ Cell[17864, 473, 541, 12, 70, "Input",ExpressionUUID->"27b42864-eedb-4cf6-a367-160da05abbd0", CellID->140238344], Cell[18408, 487, 349, 7, 70, "Output",ExpressionUUID->"fbfe67d1-2370-40c5-aff2-9f991a65b5e4", CellID->151897884] }, Open ]] }, Closed]], Cell[18784, 498, 48, 1, 70, "Subsection",ExpressionUUID->"a5614266-e201-4685-a551-22748e99c57d", CellID->50794566], Cell[18835, 501, 54, 1, 70, "Subsection",ExpressionUUID->"6eb60a73-b835-4476-9867-6e2dad4554f5", CellID->685140369], Cell[18892, 504, 66, 1, 70, "Subsection",ExpressionUUID->"29b87ecc-9d74-4b96-b2ee-e9e8fa886db5", CellID->442020371], Cell[18961, 507, 57, 1, 70, "Subsection",ExpressionUUID->"7749426f-0f92-481a-be34-5cbb49a64b73", CellID->119984559], Cell[19021, 510, 55, 1, 70, "Subsection",ExpressionUUID->"7bbb8b8f-78cd-46cf-af56-2237070b8f72", CellID->690644752] }, Closed]], Cell[CellGroupData[{ Cell[19113, 516, 116, 2, 70, "Section",ExpressionUUID->"c0153958-d828-4fbb-9d88-6fd0b8be2bde", CellTags->"Source & Additional Information", CellID->119443399], Cell[CellGroupData[{ Cell[19254, 522, 639, 17, 70, "Subsection",ExpressionUUID->"accf04a0-09af-4edf-acc7-dc2f8c5c06be", CellTags->"Contributed By", CellID->51426266], Cell[19896, 541, 209, 4, 70, "Text",ExpressionUUID->"b934bbea-d55d-4994-b7e5-8cc8ee7f6e89", CellTags->"TabNext", CellID->868247810] }, Open ]], Cell[CellGroupData[{ Cell[20142, 550, 587, 16, 70, "Subsection",ExpressionUUID->"cae625d5-f39a-4ca4-b727-16f989b87752", CellTags->"Keywords", CellID->191738208], Cell[CellGroupData[{ Cell[20754, 570, 140, 3, 70, "Item",ExpressionUUID->"459b7e7b-5737-4c6a-8c3a-3a52c36dacf4", CellTags->"TabNext", CellID->251659232], Cell[20897, 575, 166, 3, 70, "Item",ExpressionUUID->"698d7397-aad1-49ac-a77c-611128023e83", CellID->392439920], Cell[21066, 580, 174, 3, 70, "Item",ExpressionUUID->"8b411db7-111b-4959-ba0d-a2621d8daef1", CellID->303636954], Cell[21243, 585, 162, 3, 70, "Item",ExpressionUUID->"834b7a3c-9c8e-45ff-8f58-ab33a3210963", CellID->155598832], Cell[21408, 590, 172, 3, 70, "Item",ExpressionUUID->"80669e59-8a52-41cc-9842-67ec2e90cd82", CellID->917384003], Cell[21583, 595, 177, 3, 70, "Item",ExpressionUUID->"7afb2625-71ac-4b59-8a1d-9d13c4f14e57", CellID->140459450], Cell[21763, 600, 186, 4, 70, "Item",ExpressionUUID->"85090b22-dc64-495a-a7fa-c4cda7804e43", CellID->23806392] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21998, 610, 670, 17, 70, "Subsection",ExpressionUUID->"1586797e-e459-4098-b411-ce148e291576", CellTags->"Related Resource Objects", CellID->154392318], Cell[22671, 629, 185, 4, 70, "Item",ExpressionUUID->"30e33fda-89a5-4955-8a41-f784f866e8c4", CellTags->"TabNext", CellID->158088600] }, Open ]], Cell[CellGroupData[{ Cell[22893, 638, 710, 17, 70, "Subsection",ExpressionUUID->"a0ef4684-1ebf-4914-9eab-d575877c5d65", CellTags->"Source/Reference Citation", CellID->259228208], Cell[23606, 657, 97, 2, 70, "Text",ExpressionUUID->"c030cb4e-1ee7-40cb-bfb4-bc7b01f1e9e8", CellTags->"TabNext", CellID->5726719] }, Open ]], Cell[CellGroupData[{ Cell[23740, 664, 558, 16, 70, "Subsection",ExpressionUUID->"96f606c1-9bab-45e4-82b6-1cbc53edd983", CellTags->"Links", CellID->640424809], Cell[CellGroupData[{ Cell[24323, 684, 207, 3, 70, "Item",ExpressionUUID->"9efcc0c3-dbda-48b1-8014-acce67adc9dc", CellID->457662575], Cell[24533, 689, 208, 3, 70, "Item",ExpressionUUID->"c7c55fca-7272-4d15-a269-edfe98945868", CellID->312844182], Cell[24744, 694, 155, 2, 70, "Item",ExpressionUUID->"57768369-5d0e-4186-888b-c1ee67ad472a", CellID->282721516] }, Open ]] }, Open ]], Cell[24926, 700, 730, 18, 70, "Subsection",ExpressionUUID->"ada30c88-ed0f-42b5-b71e-25a55178f802", CellTags->"Tests", CellID->169780213] }, Closed]], Cell[CellGroupData[{ Cell[25693, 723, 94, 3, 70, "Section",ExpressionUUID->"27833de8-b422-4f7a-bb39-9fe99716a57f", CellTags->"Notes", CellID->142734981], Cell[25790, 728, 135, 2, 70, "Text",ExpressionUUID->"2517f93d-4e77-4734-9eea-4631c0b66741", CellID->36009716] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)