(* 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[ 199855, 4833] NotebookOptionsPosition[ 123347, 3250] NotebookOutlinePosition[ 183328, 4468] CellTagsIndexPosition[ 182675, 4446] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ResourceFunctionMessage", "Title", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{3.7529563687824373`*^9}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["\<\ Similar to Message, except prints as a labeled message from ResourceFunction \ with contexts hidden\ \>", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529564152039633`*^9, 3.752956460947528*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunctionMessage", " ", "//", " ", "ClearAll"}], ";"}]], "Code", CellChangeTimes->{{3.756125724474758*^9, 3.7561257299051723`*^9}}, CellLabel->"In[141]:=", CellID->89242416], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{ RowBox[{"ResourceFunctionMessage", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldFirst", " ", "}"}]}], "Code"], ";"}]], "Code", CellChangeTimes->{ 3.7561257568523645`*^9, {3.756652278717107*^9, 3.7566522797805595`*^9}}, CellID->80784169], Cell["Main definition:", "Text", CellChangeTimes->{{3.7561257828405046`*^9, 3.756125784703001*^9}}, CellID->745809274], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ResourceFunctionMessage", "[", "\n", " ", RowBox[{ RowBox[{"msg", ":", " ", RowBox[{"HoldPattern", " ", "@", " ", RowBox[{"MessageName", "[", " ", RowBox[{"symbol_Symbol", ",", " ", RowBox[{"tag", ":", " ", RowBox[{"Repeated", "[", " ", RowBox[{"_String", ",", " ", RowBox[{"{", " ", RowBox[{"1", ",", " ", "2"}], " ", "}"}]}], " ", "]"}]}]}], " ", "]"}]}]}], ",", "\n", " ", "args___"}], "\n", "]"}], " ", ":=", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"TrueQ", "[", " ", RowBox[{"!", " ", RowBox[{"GeneralUtilities`MessageQuietedQ", " ", "@", " ", "msg"}]}], " ", "]"}], ",", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"label", ",", " ", "template", ",", " ", "messageString"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"!", " ", RowBox[{"StringQ", "[", " ", RowBox[{"ResourceFunction", "::", "usermessage"}], " ", "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", "\n", " ", RowBox[{ RowBox[{"{", " ", "ResourceFunction", " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "::", "usermessage"}], " ", "=", " ", "\"\<`1`\>\""}], ";"}]}], "\n", " ", "]"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"label", " ", "=", " ", RowBox[{"messageLabelBox", "[", " ", RowBox[{"symbol", ",", " ", "tag"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"template", " ", "=", " ", RowBox[{"messageTemplate", "[", " ", RowBox[{"symbol", ",", " ", "tag"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"messageString", " ", "=", " ", RowBox[{"padTemplate", "[", " ", RowBox[{"template", ",", " ", "args"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"Message", "[", "\n", " ", RowBox[{ RowBox[{"ResourceFunction", "::", "usermessage"}], ",", "\n", " ", RowBox[{"Row", " ", "@", " ", RowBox[{"{", " ", RowBox[{ "label", ",", " ", "\"\<: \>\"", ",", " ", "messageString"}], " ", "}"}]}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}], ",", "\n", " ", "Null"}], "\n", " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.75612579158712*^9, 3.756125899167104*^9}, { 3.7566522024550476`*^9, 3.7566522048367996`*^9}}, CellLabel->"In[143]:=", CellID->2282712], Cell[CellGroupData[{ Cell["Dependencies", "Subsection", CellChangeTimes->{{3.756125922053684*^9, 3.756125923813736*^9}}, CellLabel->"In[144]:=", CellID->197155578], Cell["\<\ Only insert the symbol name into the message instead of the full context & \ name:\ \>", "Text", CellChangeTimes->{{3.7561267795895557`*^9, 3.756126795877901*^9}}, CellID->1656028], Cell[BoxData[{ RowBox[{ RowBox[{"messageLabelBox", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"messageLabelBox", "[", " ", RowBox[{"symbol_Symbol", ",", " ", "tag__String"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"symName", " ", "=", " ", RowBox[{"SymbolName", " ", "@", " ", RowBox[{"Unevaluated", " ", "@", " ", "symbol"}]}]}], " ", "}"}], ",", "\n", " ", RowBox[{"RawBoxes", " ", "@", " ", RowBox[{"StyleBox", "[", " ", RowBox[{ RowBox[{"RowBox", " ", "@", " ", RowBox[{"{", " ", RowBox[{"symName", ",", " ", "\"\<::\>\"", ",", " ", "tag"}], " ", "}"}]}], ",", " ", "\"\\""}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7561259374961195`*^9, 3.7561259668385086`*^9}, { 3.756126117669614*^9, 3.7561261210950933`*^9}}, CellLabel->"In[1]:=", CellID->101356507], Cell[TextData[{ "Check ", Cell[BoxData[ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " first, otherwise look for ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["General", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/General"], MouseAppearanceTag["LinkHand"]], "::", StyleBox["tag", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " to find the message template:" }], "Text", CellChangeTimes->{{3.756126667565529*^9, 3.7561267044535236`*^9}}, CellID->354503367], Cell[BoxData[{ RowBox[{ RowBox[{"messageTemplate", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"messageTemplate", "[", " ", RowBox[{"symbol_Symbol", ",", " ", "tag__String"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"MessageName", "[", " ", RowBox[{"symbol", ",", " ", "tag"}], " ", "]"}], ",", "\n", " ", RowBox[{ RowBox[{"Except", "[", " ", RowBox[{"_String", "?", " ", "StringQ"}], " ", "]"}], " ", ":>", " ", "\n", " ", RowBox[{"Replace", "[", " ", RowBox[{ RowBox[{"MessageName", "[", " ", RowBox[{"General", ",", " ", "tag"}], " ", "]"}], ",", " ", "\n", " ", RowBox[{ RowBox[{"Except", "[", " ", RowBox[{"_String", "?", " ", "StringQ"}], " ", "]"}], " ", ":>", " ", "\"\<`1`\>\""}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.756125978769619*^9, 3.75612603014295*^9}, { 3.756126124076646*^9, 3.7561261269840555`*^9}}, CellLabel->"In[3]:=", CellID->378062137], Cell["\<\ Add extra arguments if the template has more slots than arguments:\ \>", "Text", CellChangeTimes->{{3.7561267365091705`*^9, 3.756126758717676*^9}}, CellID->604677736], Cell[BoxData[{ RowBox[{ RowBox[{"padTemplate", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"padTemplate", "[", " ", RowBox[{"template_String", ",", " ", "args___"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"sc", " ", "=", " ", RowBox[{"slotCount", " ", "@", " ", "template"}]}], ",", " ", RowBox[{"ac", " ", "=", " ", RowBox[{"Length", " ", "@", " ", RowBox[{"HoldComplete", " ", "@", " ", "args"}]}]}]}], " ", "}"}], ",", "\n", " ", RowBox[{"StringForm", "[", " ", RowBox[{"template", ",", " ", "args", ",", " ", RowBox[{"Sequence", " ", "@@", " ", RowBox[{"ConstantArray", "[", " ", RowBox[{"\"\<\>\"", ",", " ", RowBox[{"sc", " ", "-", " ", "ac"}]}], " ", "]"}]}]}], " ", "]"}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.756126044566819*^9, 3.7561260679987774`*^9}, { 3.756126130078786*^9, 3.756126132957902*^9}}, CellLabel->"In[5]:=", CellID->250828583], Cell[BoxData[{ RowBox[{ RowBox[{"slotCount", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"slotCount", "[", " ", "template_String", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Count", "[", " ", RowBox[{ RowBox[{"StringTemplate", " ", "@", " ", "template"}], ",", " ", RowBox[{"TemplateSlot", "[", " ", "_Integer", " ", "]"}], ",", " ", RowBox[{"{", " ", "2", " ", "}"}]}], " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7561260812158012`*^9, 3.756126094798648*^9}, { 3.7561261358779936`*^9, 3.756126138639058*^9}}, CellLabel->"In[7]:=", CellID->85200158] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellLabel->"In[9]:=", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.75295650151624*^9, 3.7529565135418596`*^9}}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "prints the message ", Cell[BoxData[ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " unless it has been switched off." }], "UsageDescription", CellChangeTimes->{{3.7529565204756374`*^9, 3.752956531763281*^9}, 3.7529567925930076`*^9}, CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7529567965798745`*^9, 3.7529568236050205`*^9}}, CellID->53423914], Cell[TextData[{ "prints a message, inserting the values of the ", Cell[BoxData[ SubscriptBox[ StyleBox["e", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " as needed." }], "UsageDescription", CellChangeTimes->{{3.7529568103314214`*^9, 3.7529568268789167`*^9}}, CellID->164905720] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellLabel->"In[1]:=", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData["ResourceFunctionMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " works like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Message", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Message"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", except it attaches the message to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ResourceFunction"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and formats the original symbol without contexts." }], "Notes", CellChangeTimes->{{3.752958225954483*^9, 3.752958274727931*^9}}, CellID->6561465], Cell[TextData[{ Cell[BoxData["ResourceFunctionMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " generates output on the channel ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$Messages", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$Messages"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529568565479755`*^9, 3.7529568580749254`*^9}, 3.752956946737102*^9, {3.7529569890757666`*^9, 3.7529569921686616`*^9}}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "You can switch off a message using ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Off", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Off"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". You can switch on a message using ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["On", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/On"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{{3.752956855295989*^9, 3.752956876495316*^9}, { 3.7529569991204395`*^9, 3.7529570042722764`*^9}}, CellID->86477768], Cell[TextData[{ "Between any two successive input lines, the Wolfram Language prints a \ message with a particular name at most three times. On the last occurrence, \ it prints the message ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["General", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/General"], MouseAppearanceTag["LinkHand"]], "::", "stop"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{3.7529570153579316`*^9}, CellID->64134912], Cell[TextData[{ Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Off", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Off"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["General", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/General"], MouseAppearanceTag["LinkHand"]], "::", "stop"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " makes the Wolfram Language not stop repeating messages." }], "Notes", CellChangeTimes->{3.7529568959076996`*^9, 3.7529570201507816`*^9}, CellID->265570345], Cell[TextData[{ "During the evaluation of a particular input line, names of messages \ associated with that input line are appended to the list ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$MessageList", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$MessageList"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", wrapped with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HoldForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/HoldForm"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". At the end of the evaluation of the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Null]", "th"], TraditionalForm]]], " input line, the value of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$MessageList", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$MessageList"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is assigned to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["MessageList", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MessageList"], MouseAppearanceTag["LinkHand"]], "[", StyleBox["n", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{{3.752957028609501*^9, 3.7529570619234533`*^9}}, CellID->88387014], Cell[TextData[{ Cell[BoxData[ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ StyleBox["mname", "TI"], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is printed as ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["StringForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/StringForm"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ StyleBox["mess", "TI"], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " where ", Cell[BoxData[ StyleBox["mess", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the value of the message ", Cell[BoxData[ StyleBox["mname", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". Entries of the form ", Cell[BoxData[ StyleBox[ RowBox[{"`", StyleBox["i", "TI"], "`"}]]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the string ", Cell[BoxData[ StyleBox["mess", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " are replaced by the corresponding ", Cell[BoxData[ SubscriptBox[ StyleBox["e", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{ 3.752956957156754*^9, {3.7529570720271263`*^9, 3.7529571460337615`*^9}}, CellID->272090959], Cell[TextData[{ "Given a message specified as ", Cell[BoxData[ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["ResourceFunctionMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " first searches for messages ", Cell[BoxData[ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"], "::", SubscriptBox[ StyleBox["lang", "TI"], StyleBox["i", "TI"]]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " for each of the languages in the list ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$Language", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$Language"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". If it finds none of these, it then searches for the actual message ", Cell[BoxData[ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". If it does not find this, it then performs the same search procedure for ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["General", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/General"], MouseAppearanceTag["LinkHand"]], "::", StyleBox["tag", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". If it still finds no message, it applies any value given for the global \ variable ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$NewMessage", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$NewMessage"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to ", Cell[BoxData[ StyleBox["symbol", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData["\"\<\!\(\*StyleBox[\"tag\", \"TI\"]\)\>\""], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{ 3.7529569621406126`*^9, {3.752957626698495*^9, 3.752957628740454*^9}, { 3.752958130986497*^9, 3.7529581862077427`*^9}}, CellID->222027155], Cell[TextData[{ "If you specify a message as ", Cell[BoxData[ RowBox[{ StyleBox["symbol", "TI"], "::", StyleBox["tag", "TI"], "::", StyleBox["lang", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", then ", Cell[BoxData["ResourceFunctionMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " will search only for messages with the particular language ", Cell[BoxData[ StyleBox["lang", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{{3.752956855295989*^9, 3.7529569362904177`*^9}, 3.7529569811490192`*^9, {3.7529581917415795`*^9, 3.7529582009482765`*^9}}, CellID->580402915] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[1]:=", CellID->462042388], Cell["Issue a message:", "Text", CellChangeTimes->{{3.7529583114897637`*^9, 3.7529583135377045`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"f", "::", "argx"}], ",", "1", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7529583181005383`*^9, 3.7529583220044327`*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"f\\\", \\\"::\\\", \ \\\"argx\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\\\", \ \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"1\\\\\\\\\\\\\\\ \"}]\\\\\\\\) called with \ \\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"2\\\\\\\\\\\\\\\"}]\\\\\\\\\ ) arguments; 1 argument is expected.\\\\\\\"\\\"], \\\"RowDefault\\\"]\\)\"", 2,1,59,31127369278172669751,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.752958363836113*^9, 3.752959231591563*^9, 3.7529600541462765`*^9, 3.7561263039067183`*^9, 3.756126334866717*^9, 3.7561268080665503`*^9, 3.7566522435280266`*^9}, CellLabel->"During evaluation of In[1]:=", CellID->275001298] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->42707498], Cell["\<\ Define a function to issue a message and return unevaluated upon an error:\ \>", "Text", CellChangeTimes->{3.7529583804665585`*^9}, CellID->4425302], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rsqrt", "[", "x_", "]"}], "/;", RowBox[{"If", "[", RowBox[{ RowBox[{"TrueQ", "[", RowBox[{"x", "\[GreaterEqual]", "0"}], "]"}], ",", "True", ",", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"rsqrt", "::", "nnarg"}], ",", "x"}], "]"}], ";", " ", "False"}]}], "]"}]}], " ", ":=", RowBox[{"Sqrt", "[", "x", "]"}]}]], "Input", CellChangeTimes->{3.752958415222473*^9, 3.752960031122024*^9}, CellLabel->"In[1]:=", CellID->578546949], Cell["Define the message:", "Text", CellChangeTimes->{3.7529583941301403`*^9}, CellID->17953048], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rsqrt", "::", "nnarg"}], "=", "\"\\""}], ";"}]], "Input", CellLabel->"In[2]:=", CellID->143877908], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rsqrt", "[", "2.25", "]"}]], "Input", CellLabel->"In[3]:=", CellID->221664925], Cell[BoxData["1.5`"], "Output", CellChangeTimes->{{3.7529584056457577`*^9, 3.752958433962875*^9}, 3.752959231738545*^9, 3.7529600542872744`*^9, 3.7561263354423447`*^9, 3.7561268085280285`*^9, 3.756652244074644*^9}, CellLabel->"Out[3]=", CellID->285644492] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rsqrt", "[", RowBox[{"-", "2.25"}], "]"}]], "Input", CellLabel->"In[4]:=", CellID->14701213], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"rsqrt\\\", \ \\\"::\\\", \\\"nnarg\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \ \\\\\\\"\\\", \\\"\\\\\\\"The argument \ \\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"-\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"2.25`\\\\\\\\\\\\\\\"}]\\\\\\\\) is not greater than or equal \ to zero.\\\\\\\"\\\"], \\\"RowDefault\\\"]\\)\"",2,4,60,31127369278172669751, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.7529584101996307`*^9, 3.7529584351058445`*^9}, 3.752959231758527*^9, 3.752960054321272*^9, 3.756126335537957*^9, 3.7561268086294947`*^9, 3.7566522441760955`*^9}, CellLabel->"During evaluation of In[4]:=", CellID->418264772], Cell[BoxData[ RowBox[{"rsqrt", "[", RowBox[{"-", "2.25`"}], "]"}]], "Output", CellChangeTimes->{{3.752958410202631*^9, 3.7529584351328373`*^9}, 3.7529592317765446`*^9, 3.7529600543392887`*^9, 3.7561263355574703`*^9, 3.7561268086392517`*^9, 3.7566522441878033`*^9}, CellLabel->"Out[4]=", CellID->48448369] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellLabel->"In[5]:=", CellID->568056528], Cell["Here\[CloseCurlyQuote]s a function that prints a message for invalid \ inputs:", "Text", CellChangeTimes->{{3.752958543153411*^9, 3.752958560961846*^9}}, CellID->432212936], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MyFactorial", "::", "positive"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MyFactorial", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MyFactorial", "[", RowBox[{"n_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{"n", "*", RowBox[{"MyFactorial", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MyFactorial", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"MyFactorial", "::", "positive"}], ",", "n"}], "]"}], ";", " ", "$Failed"}], ")"}]}], ";"}]}], "Input", CellLabel->"In[1]:=", CellID->77544037], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFactorial", "[", "5", "]"}]], "Input", CellChangeTimes->{{3.752958572071493*^9, 3.752958576442354*^9}}, CellLabel->"In[5]:=", CellID->60000440], Cell[BoxData["120"], "Output", CellChangeTimes->{3.7529585772673087`*^9, 3.752959231906522*^9, 3.7529600545072913`*^9, 3.756126340183958*^9, 3.7561268089504814`*^9, 3.7566522444736834`*^9}, CellLabel->"Out[5]=", CellID->163043873] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFactorial", "[", RowBox[{"-", "5"}], "]"}]], "Input", CellChangeTimes->{{3.7529585780623016`*^9, 3.7529585803382287`*^9}}, CellLabel->"In[6]:=", CellID->106520339], Cell[BoxData[ TemplateBox[{ "MyFactorial","positive", "\"The argument \\!\\(\\*RowBox[{\\\"-\\\", \\\"5\\\"}]\\) is not a \ positive integer.\"",2,6,61,31127369278172669751,"Local","Global`MyFactorial"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.7529585809991913`*^9, 3.752959231928546*^9, 3.752960054530265*^9, 3.7561263402912784`*^9, 3.756126809038289*^9, 3.7566522445683203`*^9}, CellLabel->"During evaluation of In[6]:=", CellID->252585348], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.75295858100419*^9, 3.7529592319455395`*^9, 3.75296005454828*^9, 3.7561263403137183`*^9, 3.7561268090470695`*^9, 3.756652244578076*^9}, CellLabel->"Out[6]=", CellID->87371] }, Open ]], Cell[TextData[{ "When printing messages from a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ResourceFunction"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", symbols can appear with lengthy contexts:" }], "Text", CellChangeTimes->{{3.7529585020577154`*^9, 3.7529585237700243`*^9}, 3.752960129744894*^9}, CellID->49981850], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rf", "=", RowBox[{"DefineResourceFunction", "[", "MyFactorial", "]"}]}]], "Input", CellChangeTimes->{ 3.752958476338535*^9, 3.752958539419527*^9, {3.7529585878889756`*^9, 3.7529585978816833`*^9}}, CellLabel->"In[7]:=", CellID->92171733], Cell[BoxData[ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"MyFactorial\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction[ ResourceObject[ Association[ "Name" -> "MyFactorial", "ShortName" -> "MyFactorial", "SymbolName" -> "FunctionRepository`$75fce158cca840ae9363d698721a8659`Global`\ MyFactorial", "ResourceType" -> "Function", "UUID" -> "75fce158-cca8-40ae-9363-d698721a8659", "FunctionLocation" -> None, "Version" -> None]]], Selectable->False]], "Output", CellChangeTimes->{3.7529585994016075`*^9, 3.7529592326045012`*^9, 3.7529600546512613`*^9, 3.7561263453509502`*^9, 3.756126809483182*^9, 3.7566522457361727`*^9}, CellLabel->"Out[7]=", CellID->85658731] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rf", "[", RowBox[{"-", "5"}], "]"}]], "Input", CellChangeTimes->{{3.7529586008555603`*^9, 3.75295860323351*^9}}, CellLabel->"In[8]:=", CellID->120517745], Cell[BoxData[ TemplateBox[{ "FunctionRepository`$75fce158cca840ae9363d698721a8659`Global`MyFactorial", "positive", "\"The argument \\!\\(\\*RowBox[{\\\"-\\\", \\\"5\\\"}]\\) is not a \ positive integer.\"",2,8,62,31127369278172669751,"Local", "FunctionRepository`$75fce158cca840ae9363d698721a8659`Global`MyFactorial"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.7529586038984823`*^9, 3.752959232706498*^9, 3.7529600546792603`*^9, 3.7561263456582775`*^9, 3.7561268098217297`*^9, 3.7566522459542284`*^9}, CellLabel->"During evaluation of In[8]:=", CellID->856964973], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.75295860390149*^9, 3.7529592327245207`*^9, 3.7529600546962757`*^9, 3.756126345669009*^9, 3.756126809843192*^9, 3.756652245964961*^9}, CellLabel->"Out[8]=", CellID->78743797] }, Open ]], Cell[TextData[{ "Using ", Cell[BoxData["ResourceFunctionMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " instead of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Message", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Message"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " will attach the message to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ResourceFunction"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and add a formatted label:" }], "Text", CellChangeTimes->{{3.7529586300896587`*^9, 3.752958654008876*^9}, { 3.7529586884788017`*^9, 3.7529587080981703`*^9}}, CellID->306784196], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MyFactorial", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"MyFactorial", "::", "positive"}], ",", "n"}], "]"}], ";", " ", "$Failed"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.752958656657815*^9, 3.752958659129736*^9}}, CellLabel->"In[9]:=", CellID->830459108], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rf", "=", RowBox[{"DefineResourceFunction", "[", "MyFactorial", "]"}]}]], "Input", CellLabel->"In[10]:=", CellID->511850086], Cell[BoxData[ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"MyFactorial\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction[ ResourceObject[ Association[ "Name" -> "MyFactorial", "ShortName" -> "MyFactorial", "SymbolName" -> "FunctionRepository`$7a9f51bbd81e408eb5deca3631d8d445`Global`\ MyFactorial", "ResourceType" -> "Function", "UUID" -> "7a9f51bb-d81e-408e-b5de-ca3631d8d445", "FunctionLocation" -> None, "Version" -> None]]], Selectable->False]], "Output", CellChangeTimes->{3.752958675818206*^9, 3.7529592328985167`*^9, 3.752960054867281*^9, 3.7561263510701585`*^9, 3.756126810099787*^9, 3.7566522463713284`*^9}, CellLabel->"Out[10]=", CellID->177858101] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rf", "[", RowBox[{"-", "5"}], "]"}]], "Input", CellLabel->"In[11]:=", CellID->150937357], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"MyFactorial\\\", \ \\\"::\\\", \\\"positive\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \ \\\\\\\"\\\", \\\"\\\\\\\"The argument \ \\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"-\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"5\\\\\\\\\\\\\\\"}]\\\\\\\\) is not a positive integer.\\\\\\\ \"\\\"], \\\"RowDefault\\\"]\\)\"",2,11,63,31127369278172669751,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.75295868066805*^9, 3.7529592329165144`*^9, 3.752960054894257*^9, 3.7561263512262583`*^9, 3.756126810211986*^9, 3.756652246468876*^9}, CellLabel->"During evaluation of In[11]:=", CellID->124777921], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.752958680671026*^9, 3.7529592329355164`*^9, 3.7529600549142537`*^9, 3.7561263512350388`*^9, 3.756126810234424*^9, 3.7566522464776573`*^9}, CellLabel->"Out[11]=", CellID->41849165] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellLabel->"In[12]:=", CellID->754506620], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quiet", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Quiet"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to prevent ", Cell[BoxData["ResourceFunctionMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " from printing messages:" }], "Text", CellChangeTimes->{{3.752958799625264*^9, 3.752958827468383*^9}, { 3.752959025809085*^9, 3.752959025961083*^9}}, CellID->19990569], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quiet", "[", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"f", "::", "argx"}], ",", "1", ",", "2"}], "]"}], ";", " ", RowBox[{"1", "+", "1"}]}], "]"}]], "Input", CellChangeTimes->{{3.7529590277970033`*^9, 3.7529590620409327`*^9}}, CellLabel->"In[1]:=", CellID->378057303], Cell[BoxData["2"], "Output", CellChangeTimes->{3.752959062373905*^9, 3.7529592330295024`*^9, 3.752960055017265*^9, 3.756126355298582*^9, 3.7561268103973565`*^9, 3.756652246726446*^9}, CellLabel->"Out[1]=", CellID->403894831] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->545192718], Cell["Suppress specific messages:", "Text", CellChangeTimes->{{3.7529591323447027`*^9, 3.752959144441317*^9}}, CellID->549915831], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quiet", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ StyleBox[ RowBox[{"Power", "::", "infy"}], "MessageName"], ",", "\[Infinity]"}], "]"}], ";", RowBox[{"ResourceFunctionMessage", "[", RowBox[{ StyleBox[ RowBox[{"f", "::", "argx"}], "MessageName"], ",", "1", ",", "2"}], "]"}], ";", RowBox[{"1", "+", "1"}]}], ",", RowBox[{"{", StyleBox[ RowBox[{"Power", "::", "infy"}], "MessageName"], "}"}]}], "]"}]], "Input",\ CellChangeTimes->{3.7529591477381954`*^9}, CellLabel->"In[1]:=", CellID->146209657], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"f\\\", \\\"::\\\", \ \\\"argx\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\\\", \ \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"1\\\\\\\\\\\\\\\ \"}]\\\\\\\\) called with \ \\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"2\\\\\\\\\\\\\\\"}]\\\\\\\\\ ) arguments; 1 argument is expected.\\\\\\\"\\\"], \\\"RowDefault\\\"]\\)\"", 2,1,64,31127369278172669751,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7529591489201574`*^9, 3.7529592330665035`*^9, 3.752960055114273*^9, 3.7561263590147963`*^9, 3.756126810827615*^9, 3.75665224713575*^9}, CellLabel->"During evaluation of In[1]:=", CellID->719756882], Cell[BoxData["2"], "Output", CellChangeTimes->{3.752959148924156*^9, 3.752959233083502*^9, 3.752960055132273*^9, 3.7561263590245533`*^9, 3.7561268108500547`*^9, 3.756652247145507*^9}, CellLabel->"Out[1]=", CellID->78863265] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellLabel->"In[2]:=", CellID->757508554], Cell["Richard Hennigan (Wolfram Research)", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529592752001476`*^9, 3.7529592801130095`*^9}}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellLabel->"In[1]:=", CellID->246422893], Cell[CellGroupData[{ Cell["display of messages", "Item", CellID->366763090], Cell["printing of messages", "Item", CellID->320942166], Cell["error message", "Item", CellID->203806426], Cell["warnings", "Item", CellID->354272387], Cell["errors", "Item", CellID->87624364], Cell["diagnostics", "Item", CellID->375646348], Cell["message handling", "Item", CellID->37653464], Cell["error", "Item", CellID->552806936], Cell["warning", "Item", CellID->42898892] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellLabel->"In[1]:=", CellID->911170439], Cell[CellGroupData[{ Cell["Message", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.752959382533759*^9}}, CellTags->"TabNext", CellID->79477165], Cell["Quiet", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.7529593839257154`*^9}}, CellID->5194164], Cell["Check", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.7529593854536667`*^9}}, CellID->113387815], Cell["Print", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.752959388308573*^9}}, CellID->69290133], Cell["Echo", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.752959392861412*^9}}, CellID->54066592], Cell["On", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.7529593936933856`*^9}}, CellID->8183956], Cell["Off", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.752959400262176*^9}}, CellID->71276633], Cell["MessageList", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.752959403085106*^9}}, CellID->926120744], Cell["MessageName", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.7529594058290157`*^9}}, CellID->126095330], Cell["Messages", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.752959381088811*^9, 3.752959407288965*^9}}, CellID->42384598] }, 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", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellLabel->"In[1]:=", CellID->217060377], Cell[CellGroupData[{ Cell["AbortOnMessage", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529594194156156`*^9, 3.7529594217965093`*^9}}, CellTags->"TabNext", CellID->960273585], Cell["CheckMatch", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529594194156156`*^9, 3.7529594310762157`*^9}}, CellID->8923710], Cell["FailOnMessage", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529594194156156`*^9, 3.7529594513725705`*^9}}, CellID->145517572], Cell["OnceUnlessFailed", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7529594194156156`*^9, 3.752959464736167*^9}}, CellID->246730503] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellLabel->"In[1]:=", CellID->967310595], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellLabel->"In[1]:=", CellID->593846556], Cell[CellGroupData[{ Cell[TextData[ButtonBox["Tutorial: Messages", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/tutorial/Messages.html"], None}, ButtonNote-> "https://reference.wolfram.com/language/tutorial/Messages.html"]], "Item", CellChangeTimes->{{3.7529597979234324`*^9, 3.752959809784037*^9}}, CellID->869462978], Cell[TextData[ButtonBox["Guide: Messages", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/Messages.html"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/Messages.html"]], "Item", CellChangeTimes->{{3.7529597979234324`*^9, 3.7529598253045435`*^9}}, CellID->240485029] }, 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", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellLabel->"In[1]:=", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"f", "::", "argx"}], ",", "1", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", "Null", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ResourceFunction", "::", "usermessage"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.756126368581929*^9, 3.7561263868859205`*^9}}, CellLabel->"In[1]:=", CellID->399290231], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"ResourceFunctionMessage", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["Null", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["Null", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"ResourceFunction", "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{ RowBox[{"\[LeftSkeleton]", "16", "\[RightSkeleton]"}], "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0009768`4.140320648768813", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 1, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`ResourceFunctionMessage[ MessageName[$CellContext`f, "argx"], 1, 2]], "ExpectedOutput" -> HoldForm[Null], "ActualOutput" -> HoldForm[Null], "ExpectedMessages" -> { HoldForm[ MessageName[ResourceFunction, "usermessage"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[ResourceFunction, "usermessage"], Row[{ RawBoxes[ StyleBox[ RowBox[{"f", "::", "argx"}], "MessageName"]], ": ", StringForm[ "`1` called with `2` arguments; 1 argument is expected.", 1, 2]}]]]}, "AbsoluteTimeUsed" -> Quantity[0.0009768`4.140320648768813, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[3416, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.756126390322127*^9, 3.7561268113027506`*^9, 3.7566522478578787`*^9}, CellLabel->"Out[1]=", CellID->464309546] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "rsqrt", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"rsqrt", "[", "x_", "]"}], "/;", RowBox[{"If", "[", RowBox[{ RowBox[{"TrueQ", "[", RowBox[{"x", "\[GreaterEqual]", "0"}], "]"}], ",", "True", ",", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"rsqrt", "::", "nnarg"}], ",", "x"}], "]"}], ";", " ", "False"}]}], "]"}]}], " ", ":=", RowBox[{"Sqrt", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"rsqrt", "::", "nnarg"}], "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"ToString", "[", RowBox[{"rsqrt", "[", RowBox[{"-", "2.25"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ResourceFunction", "::", "usermessage"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.756126400220978*^9, 3.7561265000114727`*^9}}, CellLabel->"In[2]:=", CellID->501785651], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "rsqrt", "}"}], ",", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ";", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ";", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["\"rsqrt[-2.25]\"", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["\"rsqrt[-2.25]\"", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"ResourceFunction", "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{ RowBox[{"\[LeftSkeleton]", "16", "\[RightSkeleton]"}], "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 2, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Block[{$CellContext`rsqrt}, Condition[ $CellContext`rsqrt[ Pattern[$CellContext`x, Blank[]]], If[ TrueQ[$CellContext`x >= 0], True, $CellContext`ResourceFunctionMessage[ MessageName[$CellContext`rsqrt, "nnarg"], $CellContext`x]; False]] := Sqrt[$CellContext`x]; MessageName[$CellContext`rsqrt, "nnarg"] = "The argument `1` is not greater than or equal to zero."; ToString[ $CellContext`rsqrt[-2.25]]]], "ExpectedOutput" -> HoldForm["rsqrt[-2.25]"], "ActualOutput" -> HoldForm["rsqrt[-2.25]"], "ExpectedMessages" -> { HoldForm[ MessageName[ResourceFunction, "usermessage"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[ResourceFunction, "usermessage"], Row[{ RawBoxes[ StyleBox[ RowBox[{"rsqrt", "::", "nnarg"}], "MessageName"]], ": ", StringForm[ "The argument `1` is not greater than or equal to zero.", \ -2.25]}]]]}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[904, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7561264629166145`*^9, 3.756126501894431*^9, 3.7561268114520235`*^9, 3.7566522481974196`*^9}, CellLabel->"Out[2]=", CellID->330511634] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"MyFactorial", ",", "rf"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MyFactorial", "::", "positive"}], "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MyFactorial", "[", "0", "]"}], "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MyFactorial", "[", RowBox[{"n_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{"n", "*", RowBox[{"MyFactorial", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MyFactorial", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"MyFactorial", "::", "positive"}], ",", "n"}], "]"}], ";", " ", "$Failed"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"rf", "=", RowBox[{"DefineResourceFunction", "[", "MyFactorial", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rf", "[", RowBox[{"-", "5"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "$Failed", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ResourceFunction", "::", "usermessage"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7561265301333723`*^9, 3.7561265840828924`*^9}}, CellLabel->"In[3]:=", CellID->291565782], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"MyFactorial", ",", "rf"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"ResourceFunction", "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{ RowBox[{"\[LeftSkeleton]", "16", "\[RightSkeleton]"}], "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.229276`6.510873594153396", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 3, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Block[{$CellContext`MyFactorial, $CellContext`rf}, MessageName[$CellContext`MyFactorial, "positive"] = "The argument `1` is not a positive integer."; \ $CellContext`MyFactorial[0] = 1; $CellContext`MyFactorial[ PatternTest[ Pattern[$CellContext`n, Blank[Integer]], Positive]] := $CellContext`n \ $CellContext`MyFactorial[$CellContext`n - 1]; $CellContext`MyFactorial[ Pattern[$CellContext`n, Blank[]]] := ($CellContext`ResourceFunctionMessage[ MessageName[$CellContext`MyFactorial, "positive"], $CellContext`n]; $Failed); $CellContext`rf = DefineResourceFunction[$CellContext`MyFactorial]; \ $CellContext`rf[-5]]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[ResourceFunction, "usermessage"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[ResourceFunction, "usermessage"], Row[{ RawBoxes[ StyleBox[ RowBox[{"MyFactorial", "::", "positive"}], "MessageName"]], ": ", StringForm["The argument `1` is not a positive integer.", -5]}]]]}, "AbsoluteTimeUsed" -> Quantity[0.229276`6.510873594153396, "Seconds"], "CPUTimeUsed" -> Quantity[0.14100000000000534`, "Seconds"], "MemoryUsed" -> Quantity[57496, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7561265861122246`*^9, 3.756126811803254*^9, 3.756652248533039*^9}, CellLabel->"Out[3]=", CellID->77435143] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Quiet", "[", RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"f", "::", "argx"}], ",", "1", ",", "2"}], "]"}], ";", " ", RowBox[{"1", "+", "1"}]}], "]"}], ",", "\[IndentingNewLine]", "2"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7561265948949404`*^9, 3.7561265961583953`*^9}}, CellLabel->"In[4]:=", CellID->241529214], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Quiet", "[", RowBox[{ RowBox[{ RowBox[{"\[LeftSkeleton]", "23", "\[RightSkeleton]"}], "[", RowBox[{ StyleBox[ RowBox[{"f", "::", "argx"}], "MessageName"], ",", "1", ",", "2"}], "]"}], ";", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["2", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["2", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 4, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Quiet[$CellContext`ResourceFunctionMessage[ MessageName[$CellContext`f, "argx"], 1, 2]; 1 + 1]], "ExpectedOutput" -> HoldForm[2], "ActualOutput" -> HoldForm[2], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.756126597696005*^9, 3.7561268121203375`*^9, 3.7566522486325397`*^9}, CellLabel->"Out[4]=", CellID->22257688] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Quiet", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"Power", "::", "infy"}], ",", " ", "Infinity"}], "]"}], ";", " ", RowBox[{"ResourceFunctionMessage", "[", RowBox[{ RowBox[{"f", "::", "argx"}], ",", " ", "1", ",", " ", "2"}], "]"}], ";", " ", RowBox[{"1", " ", "+", " ", "1"}]}], ",", " ", RowBox[{"{", RowBox[{"Power", "::", "infy"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "2", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ResourceFunction", "::", "usermessage"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellLabel->"In[5]:=", CellID->51276875], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["2", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["2", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"ResourceFunction", "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{ RowBox[{"\[LeftSkeleton]", "16", "\[RightSkeleton]"}], "::", RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}]}], "MessageName"], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0009932`4.147551708714514", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 5, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Quiet[$CellContext`ResourceFunctionMessage[ MessageName[Power, "infy"], Infinity]; $CellContext`ResourceFunctionMessage[ MessageName[$CellContext`f, "argx"], 1, 2]; 1 + 1, { MessageName[Power, "infy"]}]], "ExpectedOutput" -> HoldForm[2], "ActualOutput" -> HoldForm[2], "ExpectedMessages" -> { HoldForm[ MessageName[ResourceFunction, "usermessage"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[ResourceFunction, "usermessage"], Row[{ RawBoxes[ StyleBox[ RowBox[{"f", "::", "argx"}], "MessageName"]], ": ", StringForm[ "`1` called with `2` arguments; 1 argument is expected.", 1, 2]}]]]}, "AbsoluteTimeUsed" -> Quantity[0.0009932`4.147551708714514, "Seconds"], "CPUTimeUsed" -> Quantity[0.014999999999986358`, "Seconds"], "MemoryUsed" -> Quantity[472, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.756126610556898*^9, 3.756126812272537*^9, 3.756652248738903*^9}, CellLabel->"Out[5]=", CellID->369483569] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell[TextData[{ "Submission for ", ButtonBox["FUNCREPO-235", BaseStyle->"Hyperlink", ButtonData->{ URL["https://jira.wolfram.com/jira/browse/FUNCREPO-235"], None}, ButtonNote->"https://jira.wolfram.com/jira/browse/FUNCREPO-235"], "." }], "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.75295961165648*^9, 3.752959639944584*^9}}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{"ResourceType" -> "Function", "ResourceCreateNotebook" -> True}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TemplateBox[{ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Coming soon\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon."]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], ActionMenuBox[ ButtonBox[ StyleBox[ "\"Preview \[DownPointer]\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ "\"Deploy \[DownPointer]\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TemplateBox[{ StyleBox[ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> Automatic], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]}], Cell[ StyleData["Notebook"], ComponentwiseContextMenu -> {"CellInsertionPoint" -> { MenuItem["Insert Example Group", FrontEndExecute[{ FrontEnd`NotebookWrite[ FrontEnd`InputNotebook[], Cell[ CellGroupData[{ Cell["", "PageBreak", PageBreakBelow -> True], Cell["XXXX", "Text"], Cell[ BoxData["XXXX"], "Input"]}, Open]]]}]], MenuItem["Insert Example Delimiter", FrontEndExecute[{ FrontEnd`NotebookWrite[ FrontEnd`InputNotebook[], Cell["", "PageBreak", PageBreakBelow -> True], After]}]], Delimiter, MenuItem["&Paste", FrontEnd`Paste[After]], Menu["&Insert New Cell", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Copy Notebook Ob&ject", FrontEnd`CopySpecial["NotebookObject"]], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[ Rational[2, 45], 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, Rational[2, 3], 0], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm]], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> Automatic], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ExampleGroupOpenerTemplate"], TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[ ToBoxes[ If[ MatchQ[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "Openers", #, #2}, Closed], Alternatives[True, Open]], Style[ Graphics[{ Thickness[0.18], RGBColor[0.8509803921568627, 0.396078431372549, 0], Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 0.68 Inherited], Rotate[ Style[ Graphics[{ Thickness[0.18], RGBColor[0.8509803921568627, 0.396078431372549, 0], Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]], StandardForm]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {-5, 0}}, CellGroupingRules -> {"SectionGrouping", 58}, ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {76}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 9, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 534, 9, 70, "Title",ExpressionUUID->"ccf3d146-1de9-4b5e-bd50-a18da29b0549", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 534, 9, 70, "Title",ExpressionUUID->"ccf3d146-1de9-4b5e-bd50-a18da29b0549", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1117, 33, 647, 12, 70, "Text",ExpressionUUID->"94803df6-d0c0-4de6-a58e-559dd499d8b0", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[12810, 361, 262, 7, 70, "UsageInputs",ExpressionUUID->"e99275a5-b9d2-47eb-96c8-c8e487deae9e", CellTags->"TabNext", CellID->157543866], Cell[13075, 370, 380, 12, 70, "UsageDescription",ExpressionUUID->"d71e5b28-b517-4cb2-8a0b-05d1fdee2825", CellTags->"TabNext", CellID->231889230], Cell[16414, 482, 1200, 29, 70, "Notes",ExpressionUUID->"ef7383b6-3ed6-43ad-afb9-26e2897f5bb4", CellTags->"TabNext", CellID->521904482], Cell[49715, 1532, 560, 9, 70, "Text",ExpressionUUID->"ecc06444-a6d6-4e24-a33d-c1f6d850f45b", CellTags->"TabNext", CellID->832483124], Cell[52194, 1623, 527, 9, 70, "Item",ExpressionUUID->"02a8128e-e5db-48b9-a169-63a5b065ded4", CellTags->"TabNext", CellID->79477165], Cell[58092, 1751, 539, 9, 70, "Item",ExpressionUUID->"9f5c5f12-c74e-4c71-a7bb-606cf97f1839", CellTags->"TabNext", CellID->960273585], Cell[61014, 1818, 496, 8, 70, "Text",ExpressionUUID->"35fa4569-370a-4392-a9f8-1a1ae418293b", CellTags->"TabNext", CellID->343081869], Cell[121288, 3195, 509, 8, 70, "Text",ExpressionUUID->"703c0bc2-9c9d-4e48-bd7d-3bee6a779124", CellTags->"TabNext", CellID->567921317], Cell[122557, 3229, 762, 17, 70, "Text",ExpressionUUID->"07e6e13a-8757-44b3-995c-451201160b6f", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1117, 33, 647, 12, 70, "Text",ExpressionUUID->"94803df6-d0c0-4de6-a58e-559dd499d8b0", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1789, 49, 877, 21, 70, "Section",ExpressionUUID->"6d19e48b-c485-4512-b105-59f9ad2ecf2a", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[11855, 329, 99, 3, 70, "Section",ExpressionUUID->"59a955a1-778a-4d25-95f8-fa0e4078ed9e", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[11979, 336, 806, 21, 70, "Subsection",ExpressionUUID->"ef77e795-212f-4302-ac0d-0bd84823f391", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[14320, 419, 837, 21, 70, "Subsection",ExpressionUUID->"17f89a96-6fe3-4546-9626-ce4a4694bef0", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[28708, 874, 913, 21, 70, "Section",ExpressionUUID->"abb60bd0-e2e6-4b12-a721-26296d04037e", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[48857, 1504, 135, 3, 70, "Section",ExpressionUUID->"9da71e42-725e-46c9-bf53-5b78e0cb53bb", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[49017, 1511, 695, 19, 70, "Subsection",ExpressionUUID->"f145eaf0-2a19-4b72-a1b4-b46c1001799a", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[50312, 1546, 648, 19, 70, "Subsection",ExpressionUUID->"e1fb55a7-7360-4d00-92b9-0af6e8b0a90e", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[51484, 1600, 685, 19, 70, "Subsection",ExpressionUUID->"51fcc9d3-49ec-4078-a6e7-f2502c09eeb3", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[57342, 1728, 725, 19, 70, "Subsection",ExpressionUUID->"7d30d774-9663-4c48-88be-1e9c2eef9e3d", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[60233, 1796, 778, 20, 70, "Subsection",ExpressionUUID->"8dbffac4-0d34-4e2b-ac99-76c9eede5850", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[61547, 1831, 620, 18, 70, "Subsection",ExpressionUUID->"a26f8275-3e1f-492d-a31c-0f3d2963f1bc", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[62925, 1875, 790, 21, 70, "Subsection",ExpressionUUID->"5f2aa7da-9c33-4e8a-992a-dc72a07c2a2f", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[121158, 3189, 127, 4, 70, "Section",ExpressionUUID->"ae6ff80c-e346-4211-9952-74c74defba2a", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[121834, 3208, 720, 19, 70, "Section",ExpressionUUID->"47a8569b-48b3-4056-9ec7-07a0356111d4", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 178066, 4341}, {"TabNext", 178231, 4345}, {"Description", 179857, 4379}, {"Definition", 180032, 4383}, {"Documentation", 180199, 4387}, {"Usage", 180361, 4391}, {"Details & Options", 180532, 4395}, {"Examples", 180705, 4399}, {"Source & Additional Information", 180890, 4403}, {"Contributed By", 181081, 4407}, {"Keywords", 181253, 4411}, {"Related Symbols", 181426, 4415}, {"Related Resource Objects", 181615, 4419}, {"Source/Reference Citation", 181814, 4423}, {"Links", 181994, 4427}, {"Tests", 182154, 4431}, {"Author Notes", 182320, 4435}, {"Submission Notes", 182495, 4439} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 534, 9, 70, "Title",ExpressionUUID->"ccf3d146-1de9-4b5e-bd50-a18da29b0549", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1117, 33, 647, 12, 70, "Text",ExpressionUUID->"94803df6-d0c0-4de6-a58e-559dd499d8b0", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1789, 49, 877, 21, 70, "Section",ExpressionUUID->"6d19e48b-c485-4512-b105-59f9ad2ecf2a", CellTags->"Definition", CellID->608264297], Cell[2669, 72, 221, 6, 70, "Code",ExpressionUUID->"ca19db57-9379-4f5a-8f63-a8129a6d3b55", CellID->89242416], Cell[2893, 80, 327, 9, 70, "Code",ExpressionUUID->"66e69746-6adf-4db1-bb8a-7e51f189974d", CellID->80784169], Cell[3223, 91, 120, 2, 70, "Text",ExpressionUUID->"6bb8a5d4-2de2-4b75-9fdd-819a9739ccb5", CellID->745809274], Cell[3346, 95, 3073, 72, 70, "Code",ExpressionUUID->"8172ec98-7177-40cd-9217-8dd2fe7c85a5", CellID->2282712], Cell[CellGroupData[{ Cell[6444, 171, 145, 3, 70, "Subsection",ExpressionUUID->"621646f3-9937-40ee-9e40-02b311a8e6a7", CellID->197155578], Cell[6592, 176, 192, 5, 70, "Text",ExpressionUUID->"bfbdd645-ce6f-4a88-8768-bc9eec17e3ec", CellID->1656028], Cell[6787, 183, 1035, 26, 70, "Code",ExpressionUUID->"2a2e0dcb-0aae-446d-b7b1-36b2fe6ee1f9", CellID->101356507], Cell[7825, 211, 839, 27, 70, "Text",ExpressionUUID->"3cc26d09-e3ec-474a-8a1c-286cf84e7fe1", CellID->354503367], Cell[8667, 240, 1195, 30, 70, "Code",ExpressionUUID->"961cac23-16dd-4317-a4b9-54b4f7b0517e", CellID->378062137], Cell[9865, 272, 178, 4, 70, "Text",ExpressionUUID->"b54261ca-de39-479c-bff7-5052c2c5777e", CellID->604677736], Cell[10046, 278, 1127, 28, 70, "Code",ExpressionUUID->"d28942b7-d5b1-4be6-8973-cc574714a520", CellID->250828583], Cell[11176, 308, 630, 15, 70, "Code",ExpressionUUID->"790ee5a5-55bf-40f8-ba5c-1c6a071f9c55", CellID->85200158] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11855, 329, 99, 3, 70, "Section",ExpressionUUID->"59a955a1-778a-4d25-95f8-fa0e4078ed9e", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[11979, 336, 806, 21, 70, "Subsection",ExpressionUUID->"ef77e795-212f-4302-ac0d-0bd84823f391", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[12810, 361, 262, 7, 70, "UsageInputs",ExpressionUUID->"e99275a5-b9d2-47eb-96c8-c8e487deae9e", CellTags->"TabNext", CellID->157543866], Cell[13075, 370, 380, 12, 70, "UsageDescription",ExpressionUUID->"d71e5b28-b517-4cb2-8a0b-05d1fdee2825", CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[13492, 387, 448, 14, 70, "UsageInputs",ExpressionUUID->"dfad3f02-f213-49b8-aa85-38be7a7c5d4e", CellID->53423914], Cell[13943, 403, 328, 10, 70, "UsageDescription",ExpressionUUID->"decda52e-aa04-4abb-ab4b-b1470ae66875", CellID->164905720] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14320, 419, 837, 21, 70, "Subsection",ExpressionUUID->"17f89a96-6fe3-4546-9626-ce4a4694bef0", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[15182, 444, 1229, 36, 70, "Notes",ExpressionUUID->"24de3b7e-adfd-4ed0-9798-137add60ba2d", CellID->6561465], Cell[16414, 482, 1200, 29, 70, "Notes",ExpressionUUID->"ef7383b6-3ed6-43ad-afb9-26e2897f5bb4", CellTags->"TabNext", CellID->521904482], Cell[17617, 513, 1356, 43, 70, "Notes",ExpressionUUID->"96a4334f-073d-42bb-96ea-be0ee664f5dc", CellID->86477768], Cell[18976, 558, 759, 22, 70, "Notes",ExpressionUUID->"b608f652-24f0-4066-83c1-e715f7f75bd0", CellID->64134912], Cell[19738, 582, 1086, 33, 70, "Notes",ExpressionUUID->"f68ac4f5-68d4-4f96-a1a3-61dda2071139", CellID->265570345], Cell[20827, 617, 2417, 74, 70, "Notes",ExpressionUUID->"94aca65e-76d0-4a19-ad26-82b25122215a", CellID->88387014], Cell[23247, 693, 1928, 66, 70, "Notes",ExpressionUUID->"7c22f732-8e28-4fc7-80f3-163f3bfbe0ac", CellID->272090959], Cell[25178, 761, 2795, 85, 70, "Notes",ExpressionUUID->"109db122-008e-4f77-acda-cd1aca591c0c", CellID->222027155], Cell[27976, 848, 671, 19, 70, "Notes",ExpressionUUID->"94a208de-111d-4df0-8a80-55b1e39f5716", CellID->580402915] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28708, 874, 913, 21, 70, "Section",ExpressionUUID->"abb60bd0-e2e6-4b12-a721-26296d04037e", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[29646, 899, 79, 2, 70, "Subsection",ExpressionUUID->"d9d87ec6-6b46-407f-a238-10e8ffa86d3c", CellID->462042388], Cell[29728, 903, 121, 2, 70, "Text",ExpressionUUID->"fa13e866-f983-4c4c-ae60-c0a83c427b7b", CellID->13078159], Cell[CellGroupData[{ Cell[29874, 909, 250, 6, 70, "Input",ExpressionUUID->"637c1088-7a71-4bed-b654-2b17f6e5f3f9", CellID->443871870], Cell[30127, 917, 810, 15, 70, "Message",ExpressionUUID->"27ce1905-7759-4953-b1b2-b7979ba92fee", CellID->275001298] }, Open ]], Cell[CellGroupData[{ Cell[30974, 937, 63, 2, 70, "PageBreak",ExpressionUUID->"cbd735f2-99ef-4418-af1a-6da7806d2969", PageBreakBelow->True, CellID->42707498], Cell[31040, 941, 160, 4, 70, "Text",ExpressionUUID->"e9c7e6b6-8d40-4285-a538-be4ec05bd78b", CellID->4425302], Cell[31203, 947, 557, 16, 70, "Input",ExpressionUUID->"8748e0cb-8945-4040-9734-2cad333ee5ac", CellID->578546949], Cell[31763, 965, 98, 2, 70, "Text",ExpressionUUID->"c0f6cda9-0f7f-4a4b-9c99-3d8f21dd1e2a", CellID->17953048], Cell[31864, 969, 211, 7, 70, "Input",ExpressionUUID->"382ee244-45d6-44fa-8db2-5d0d8283c798", CellID->143877908], Cell[CellGroupData[{ Cell[32100, 980, 104, 3, 70, "Input",ExpressionUUID->"39ef4069-49ce-40de-9dc8-f315b8436ac1", CellID->221664925], Cell[32207, 985, 266, 5, 70, "Output",ExpressionUUID->"aa9a8c69-638c-4922-b0aa-a9a6910c1254", CellID->285644492] }, Open ]], Cell[CellGroupData[{ Cell[32510, 995, 121, 4, 70, "Input",ExpressionUUID->"3b950977-525b-49eb-a22a-654077344b0c", CellID->14701213], Cell[32634, 1001, 782, 15, 70, "Message",ExpressionUUID->"caa0c369-698b-4a7a-b732-bda3d8627fcd", CellID->418264772], Cell[33419, 1018, 319, 7, 70, "Output",ExpressionUUID->"593f26c7-ccc2-44ae-8aff-bf9d650d9772", CellID->48448369] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33799, 1032, 77, 2, 70, "Subsection",ExpressionUUID->"4586c19d-60e2-4426-b67f-b5e948f3bc72", CellID->568056528], Cell[33879, 1036, 180, 3, 70, "Text",ExpressionUUID->"f1ceec6a-7ffd-4169-b597-bf98677fc194", CellID->432212936], Cell[34062, 1041, 843, 27, 70, "Input",ExpressionUUID->"fea6d95c-310f-4634-8aaf-a5b2e77b3ef4", CellID->77544037], Cell[CellGroupData[{ Cell[34930, 1072, 172, 4, 70, "Input",ExpressionUUID->"188b9fd8-214a-4207-86a2-9af8fbe1dc56", CellID->60000440], Cell[35105, 1078, 239, 5, 70, "Output",ExpressionUUID->"fc766e02-3418-4783-935e-d27c41b1906a", CellID->163043873] }, Open ]], Cell[CellGroupData[{ Cell[35381, 1088, 195, 5, 70, "Input",ExpressionUUID->"8bfef6d1-6e6b-4006-9d8e-4f0c59480696", CellID->106520339], Cell[35579, 1095, 479, 10, 70, "Message",ExpressionUUID->"c2af5538-9333-48be-9924-4bc2cdd7a725", CellID->252585348], Cell[36061, 1107, 235, 5, 70, "Output",ExpressionUUID->"13be194b-503d-477c-96a2-006ae92e6053", CellID->87371] }, Open ]], Cell[36311, 1115, 689, 20, 70, "Text",ExpressionUUID->"ad765a31-2bdb-4029-bf15-11ed6a7878f0", CellID->49981850], Cell[CellGroupData[{ Cell[37025, 1139, 272, 7, 70, "Input",ExpressionUUID->"fd5e3741-915f-4509-909e-1bc94c19972d", CellID->92171733], Cell[37300, 1148, 1992, 53, 70, "Output",ExpressionUUID->"c83638d1-7e05-4453-af78-9ead200bfeb7", CellID->85658731] }, Open ]], Cell[CellGroupData[{ Cell[39329, 1206, 183, 5, 70, "Input",ExpressionUUID->"93907bfc-e8e9-4a64-b3cf-0fb627c6fbb3", CellID->120517745], Cell[39515, 1213, 607, 13, 70, "Message",ExpressionUUID->"ba00b19d-4815-4b6a-ba8d-1f4060639063", CellID->856964973], Cell[40125, 1228, 237, 5, 70, "Output",ExpressionUUID->"d26b6572-334e-46a6-bb51-be2fa90dcc31", CellID->78743797] }, Open ]], Cell[40377, 1236, 1265, 38, 70, "Text",ExpressionUUID->"2c73e57b-ef2b-403e-adaf-2806308abf01", CellID->306784196], Cell[41645, 1276, 409, 12, 70, "Input",ExpressionUUID->"676fce24-a5a8-4cdb-bc0d-8b9d01182205", CellID->830459108], Cell[CellGroupData[{ Cell[42079, 1292, 153, 4, 70, "Input",ExpressionUUID->"39d02df4-1737-4244-b939-a0daf3e72657", CellID->511850086], Cell[42235, 1298, 1990, 53, 70, "Output",ExpressionUUID->"181d2a53-ccec-4c7c-9f24-797aa4090e93", CellID->177858101] }, Open ]], Cell[CellGroupData[{ Cell[44262, 1356, 117, 4, 70, "Input",ExpressionUUID->"f03faf96-86ff-443f-b9d4-29facdf653eb", CellID->150937357], Cell[44382, 1362, 743, 14, 70, "Message",ExpressionUUID->"9b032cc7-9235-4da6-b12b-36e6d78ab133", CellID->124777921], Cell[45128, 1378, 243, 5, 70, "Output",ExpressionUUID->"908da00e-19a8-47e4-94e8-e148ebc99acc", CellID->41849165] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45420, 1389, 90, 2, 70, "Subsection",ExpressionUUID->"e3aa7c2e-70a6-4df9-9030-1312d9ea0ffa", CellID->754506620], Cell[45513, 1393, 751, 23, 70, "Text",ExpressionUUID->"829c4572-6c49-4a7d-9eb6-d661d61a65b7", CellID->19990569], Cell[CellGroupData[{ Cell[46289, 1420, 339, 9, 70, "Input",ExpressionUUID->"07386a5d-f4a3-488a-b329-d7fb1084845b", CellID->378057303], Cell[46631, 1431, 233, 5, 70, "Output",ExpressionUUID->"910a2fbf-03ae-4e59-8033-3ed7f6bf61c4", CellID->403894831] }, Open ]], Cell[CellGroupData[{ Cell[46901, 1441, 64, 2, 70, "PageBreak",ExpressionUUID->"bea3ab8a-06b2-48d0-b15c-1316998c7ab8", PageBreakBelow->True, CellID->545192718], Cell[46968, 1445, 131, 2, 70, "Text",ExpressionUUID->"cccbaea6-27ce-4be0-80fa-aa0d800a48c3", CellID->549915831], Cell[CellGroupData[{ Cell[47124, 1451, 637, 21, 70, "Input",ExpressionUUID->"ec751608-1f20-4fbe-947e-d2075b29b0c7", CellID->146209657], Cell[47764, 1474, 785, 15, 70, "Message",ExpressionUUID->"bf1fd302-3371-4606-be36-cd88b2229fe0", CellID->719756882], Cell[48552, 1491, 232, 5, 70, "Output",ExpressionUUID->"e1a92631-847f-4d38-bed0-f8fba1c28326", CellID->78863265] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48857, 1504, 135, 3, 70, "Section",ExpressionUUID->"9da71e42-725e-46c9-bf53-5b78e0cb53bb", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[49017, 1511, 695, 19, 70, "Subsection",ExpressionUUID->"f145eaf0-2a19-4b72-a1b4-b46c1001799a", CellTags->"Contributed By", CellID->757508554], Cell[49715, 1532, 560, 9, 70, "Text",ExpressionUUID->"ecc06444-a6d6-4e24-a33d-c1f6d850f45b", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[50312, 1546, 648, 19, 70, "Subsection",ExpressionUUID->"e1fb55a7-7360-4d00-92b9-0af6e8b0a90e", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[50985, 1569, 55, 1, 70, "Item",ExpressionUUID->"c93d0fce-68ad-48ed-951b-75232937cca9", CellID->366763090], Cell[51043, 1572, 56, 1, 70, "Item",ExpressionUUID->"fce1ffaa-5f58-4d4a-8b51-cd41652bd580", CellID->320942166], Cell[51102, 1575, 49, 1, 70, "Item",ExpressionUUID->"ae1792ea-c217-406e-a54c-22f7fdbac2fb", CellID->203806426], Cell[51154, 1578, 44, 1, 70, "Item",ExpressionUUID->"6faacb35-4464-4d45-bdf1-52ba593543ea", CellID->354272387], Cell[51201, 1581, 41, 1, 70, "Item",ExpressionUUID->"c4cc9240-4859-4197-b4ff-50f6d222d4ad", CellID->87624364], Cell[51245, 1584, 47, 1, 70, "Item",ExpressionUUID->"7828c63f-cfeb-4b11-a4e0-9254b94efadf", CellID->375646348], Cell[51295, 1587, 51, 1, 70, "Item",ExpressionUUID->"2abd1469-59ec-473e-ab0d-8dba0b445c2a", CellID->37653464], Cell[51349, 1590, 41, 1, 70, "Item",ExpressionUUID->"dc07a138-2a7b-4285-b215-a6f8bd880707", CellID->552806936], Cell[51393, 1593, 42, 1, 70, "Item",ExpressionUUID->"4e3217ee-b2d3-4530-86ba-1b9c393c6a26", CellID->42898892] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51484, 1600, 685, 19, 70, "Subsection",ExpressionUUID->"51fcc9d3-49ec-4078-a6e7-f2502c09eeb3", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[52194, 1623, 527, 9, 70, "Item",ExpressionUUID->"02a8128e-e5db-48b9-a169-63a5b065ded4", CellTags->"TabNext", CellID->79477165], Cell[52724, 1634, 504, 8, 70, "Item",ExpressionUUID->"e622a950-ab8b-4c0e-9e57-da7b402b2aa4", CellID->5194164], Cell[53231, 1644, 506, 8, 70, "Item",ExpressionUUID->"61a84aa7-fa7d-4c80-ace2-592d74dadb14", CellID->113387815], Cell[53740, 1654, 503, 8, 70, "Item",ExpressionUUID->"f2f9e8dd-1329-4265-ad76-57fa111ab120", CellID->69290133], Cell[54246, 1664, 502, 8, 70, "Item",ExpressionUUID->"23a7891a-740a-402e-8da7-43aadb8580e2", CellID->54066592], Cell[54751, 1674, 501, 8, 70, "Item",ExpressionUUID->"ce857e2e-cfed-4f22-a844-36581932c5ee", CellID->8183956], Cell[55255, 1684, 501, 8, 70, "Item",ExpressionUUID->"cda14fb8-dd0f-4c18-b44c-7177127424e4", CellID->71276633], Cell[55759, 1694, 510, 8, 70, "Item",ExpressionUUID->"9c27ea14-22b9-4629-b027-e7a43e8bb455", CellID->926120744], Cell[56272, 1704, 512, 8, 70, "Item",ExpressionUUID->"3a84f5cd-1849-426e-a020-c3a1082929e9", CellID->126095330], Cell[56787, 1714, 506, 8, 70, "Item",ExpressionUUID->"9f367fe0-cfb2-4adb-a877-2ac7648f6ab1", CellID->42384598] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57342, 1728, 725, 19, 70, "Subsection",ExpressionUUID->"7d30d774-9663-4c48-88be-1e9c2eef9e3d", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[58092, 1751, 539, 9, 70, "Item",ExpressionUUID->"9f5c5f12-c74e-4c71-a7bb-606cf97f1839", CellTags->"TabNext", CellID->960273585], Cell[58634, 1762, 511, 8, 70, "Item",ExpressionUUID->"d5249913-e6ee-4bcf-beed-0c4622b48589", CellID->8923710], Cell[59148, 1772, 516, 8, 70, "Item",ExpressionUUID->"82666611-f7fe-42a3-bbfb-f3f12b5793f4", CellID->145517572], Cell[59667, 1782, 517, 8, 70, "Item",ExpressionUUID->"ed5e0fbb-885d-4e4c-846c-465616a5268b", CellID->246730503] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60233, 1796, 778, 20, 70, "Subsection",ExpressionUUID->"8dbffac4-0d34-4e2b-ac99-76c9eede5850", CellTags->"Source/Reference Citation", CellID->967310595], Cell[61014, 1818, 496, 8, 70, "Text",ExpressionUUID->"35fa4569-370a-4392-a9f8-1a1ae418293b", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[61547, 1831, 620, 18, 70, "Subsection",ExpressionUUID->"a26f8275-3e1f-492d-a31c-0f3d2963f1bc", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[62192, 1853, 344, 7, 70, "Item",ExpressionUUID->"5058e4bf-11c5-45da-ac1b-22f0345eff52", CellID->869462978], Cell[62539, 1862, 337, 7, 70, "Item",ExpressionUUID->"40b8d835-5244-47ca-b005-3d4d3cae7969", CellID->240485029] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62925, 1875, 790, 21, 70, "Subsection",ExpressionUUID->"5f2aa7da-9c33-4e8a-992a-dc72a07c2a2f", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[63740, 1900, 506, 12, 70, "Input",ExpressionUUID->"82ab4b04-0d95-4428-a7f6-a9f787ed0fa3", CellID->399290231], Cell[64249, 1914, 10514, 227, 70, "Output",ExpressionUUID->"0f6e00b9-a899-44a7-ac70-f770b3bb891c", CellID->464309546] }, Open ]], Cell[CellGroupData[{ Cell[74800, 2146, 1357, 34, 70, "Input",ExpressionUUID->"3f13034a-74bf-42bf-b0ed-d4e447cf8f46", CellID->501785651], Cell[76160, 2182, 11259, 243, 70, "Output",ExpressionUUID->"6cf0c969-e428-42ed-9b08-9fd826ebca6e", CellID->330511634] }, Open ]], Cell[CellGroupData[{ Cell[87456, 2430, 1619, 40, 70, "Input",ExpressionUUID->"47973e89-f87c-476a-af41-df38801aa391", CellID->291565782], Cell[89078, 2472, 11305, 244, 70, "Output",ExpressionUUID->"2b02c9bc-84b8-4336-a6b9-43872188a2f1", CellID->77435143] }, Open ]], Cell[CellGroupData[{ Cell[100420, 2721, 488, 12, 70, "Input",ExpressionUUID->"9f361214-739a-4ff9-b495-854f92b9ddbe", CellID->241529214], Cell[100911, 2735, 8737, 188, 70, "Output",ExpressionUUID->"db961529-1d65-4c20-b620-a2f13576dd47", CellID->22257688] }, Open ]], Cell[CellGroupData[{ Cell[109685, 2928, 805, 22, 70, "Input",ExpressionUUID->"d923bfbd-facc-45fa-951e-32dc34bd5a70", CellID->51276875], Cell[110493, 2952, 10604, 230, 70, "Output",ExpressionUUID->"8e7b853b-44eb-4dad-8953-b1ec13fa9f39", CellID->369483569] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[121158, 3189, 127, 4, 70, "Section",ExpressionUUID->"ae6ff80c-e346-4211-9952-74c74defba2a", CellTags->"Author Notes", CellID->795110225], Cell[121288, 3195, 509, 8, 70, "Text",ExpressionUUID->"703c0bc2-9c9d-4e48-bd7d-3bee6a779124", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[121834, 3208, 720, 19, 70, "Section",ExpressionUUID->"47a8569b-48b3-4056-9ec7-07a0356111d4", CellTags->"Submission Notes", CellID->843283583], Cell[122557, 3229, 762, 17, 70, "Text",ExpressionUUID->"07e6e13a-8757-44b3-995c-451201160b6f", CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)