(* 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[ 35718, 1038] NotebookOptionsPosition[ 29936, 903] NotebookOutlinePosition[ 30260, 919] CellTagsIndexPosition[ 30217, 916] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ 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[{ 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["\<\"ResourceFunctionMessage\"\>", 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["ResourceFunctionMessage"], BoxID -> "ResourceFunctionMessage", Selectable->False], "[", 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[{ 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["\<\"ResourceFunctionMessage\"\>", 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["ResourceFunctionMessage"], BoxID -> "ResourceFunctionMessage", Selectable->False], "[", 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[ StyleBox["ResourceFunctionMessage", "InlineResourceFunction"]], "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[{ 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["\<\"ResourceFunctionMessage\"\>", 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["ResourceFunctionMessage"], BoxID -> "ResourceFunctionMessage", Selectable->False], "[", 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[ StyleBox["ResourceFunctionMessage", "InlineResourceFunction"]], "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[{ 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["\<\"ResourceFunctionMessage\"\>", 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["ResourceFunctionMessage"], BoxID -> "ResourceFunctionMessage", Selectable->False], "[", 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[{ 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["\<\"ResourceFunctionMessage\"\>", 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["ResourceFunctionMessage"], BoxID -> "ResourceFunctionMessage", Selectable->False], "[", RowBox[{ StyleBox[ RowBox[{"Power", "::", "infy"}], "MessageName"], ",", "\[Infinity]"}], "]"}], ";", RowBox[{ 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["\<\"ResourceFunctionMessage\"\>", 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["ResourceFunctionMessage"], BoxID -> "ResourceFunctionMessage", Selectable->False], "[", 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 ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 79, 2, 70, "Subsection",ExpressionUUID->"9ab7eb30-4eaa-4747-bef7-623e9041a26d", CellID->462042388], Cell[662, 26, 121, 2, 70, "Text",ExpressionUUID->"289a84d6-b8b3-41fd-901d-b241c3e845fb", CellID->13078159], Cell[CellGroupData[{ Cell[808, 32, 1774, 49, 70, "Input",ExpressionUUID->"b2e45d83-a5c4-4640-b4e9-1577187dd771", CellID->443871870], Cell[2585, 83, 810, 15, 70, "Message",ExpressionUUID->"4a3d9f44-7a78-41e4-aaa9-227bdd1c6a58", CellID->275001298] }, Open ]], Cell[CellGroupData[{ Cell[3432, 103, 63, 2, 70, "PageBreak",ExpressionUUID->"14eef9c3-0300-4624-a0c7-36bb2e6aff66", PageBreakBelow->True, CellID->42707498], Cell[3498, 107, 160, 4, 70, "Text",ExpressionUUID->"95bb9f57-76cf-4355-bd88-fa72f68c1f78", CellID->4425302], Cell[3661, 113, 2365, 64, 70, "Input",ExpressionUUID->"d86e18d2-6bc1-4c81-b157-0d505ec5e2cf", CellID->578546949], Cell[6029, 179, 98, 2, 70, "Text",ExpressionUUID->"bd9ee600-38ad-4b91-add6-9bfdc1412f37", CellID->17953048], Cell[6130, 183, 211, 7, 70, "Input",ExpressionUUID->"d08d665d-ccfa-49c8-8aed-2cb3113efce0", CellID->143877908], Cell[CellGroupData[{ Cell[6366, 194, 104, 3, 70, "Input",ExpressionUUID->"6aec69c0-f137-479f-98c9-4da711d5e5ce", CellID->221664925], Cell[6473, 199, 266, 5, 70, "Output",ExpressionUUID->"536ed3e4-38b9-4706-b11d-0c1a89560223", CellID->285644492] }, Open ]], Cell[CellGroupData[{ Cell[6776, 209, 121, 4, 70, "Input",ExpressionUUID->"4d45e38e-2b53-4044-8557-4ef0c90cbcd6", CellID->14701213], Cell[6900, 215, 782, 15, 70, "Message",ExpressionUUID->"6700755c-74c3-45b4-984f-d17173282d14", CellID->418264772], Cell[7685, 232, 319, 7, 70, "Output",ExpressionUUID->"cd66555f-3d65-4682-b820-82e3ce08e75e", CellID->48448369] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8065, 246, 77, 2, 70, "Subsection",ExpressionUUID->"7d875091-037d-49ee-a880-2a075d9e7e3e", CellID->568056528], Cell[8145, 250, 180, 3, 70, "Text",ExpressionUUID->"381a9e96-6b1d-4fbb-9cd1-73551f58631f", CellID->432212936], Cell[8328, 255, 843, 27, 70, "Input",ExpressionUUID->"3a408c1b-1293-49d3-b2f1-6e07f5b658c1", CellID->77544037], Cell[CellGroupData[{ Cell[9196, 286, 172, 4, 70, "Input",ExpressionUUID->"31ce1414-7361-44c1-bf5a-0c0bff201924", CellID->60000440], Cell[9371, 292, 239, 5, 70, "Output",ExpressionUUID->"8dabdc17-2d3a-4921-815c-c76648fc3317", CellID->163043873] }, Open ]], Cell[CellGroupData[{ Cell[9647, 302, 195, 5, 70, "Input",ExpressionUUID->"74449bce-78f2-4df2-886a-c2943ab82428", CellID->106520339], Cell[9845, 309, 479, 10, 70, "Message",ExpressionUUID->"3e50692d-5283-45b2-baa4-5570a50ba9d4", CellID->252585348], Cell[10327, 321, 235, 5, 70, "Output",ExpressionUUID->"ea1ded50-5b07-4f90-bdb7-bf0145b8ebcc", CellID->87371] }, Open ]], Cell[10577, 329, 689, 20, 70, "Text",ExpressionUUID->"068c7ad8-4a4c-40c7-a3ab-d8c25945b772", CellID->49981850], Cell[CellGroupData[{ Cell[11291, 353, 272, 7, 70, "Input",ExpressionUUID->"d9c64891-c4f5-4549-99ec-89ab95723d4c", CellID->92171733], Cell[11566, 362, 1992, 53, 70, "Output",ExpressionUUID->"eeae0f49-d157-484c-9ec8-230d3046686f", CellID->85658731] }, Open ]], Cell[CellGroupData[{ Cell[13595, 420, 183, 5, 70, "Input",ExpressionUUID->"b3b1b7fd-99a7-4109-9ad7-5fab5f4a2fee", CellID->120517745], Cell[13781, 427, 607, 13, 70, "Message",ExpressionUUID->"67a98566-d038-4cc9-8e74-823d689b6c75", CellID->856964973], Cell[14391, 442, 237, 5, 70, "Output",ExpressionUUID->"8f341a01-a7d9-433c-9eb2-7c98c5a822d4", CellID->78743797] }, Open ]], Cell[14643, 450, 1307, 40, 70, "Text",ExpressionUUID->"8c78d6d9-0512-4efc-9cd7-08aa8e139336", CellID->306784196], Cell[15953, 492, 2169, 60, 70, "Input",ExpressionUUID->"caccd9b1-0bec-4323-b1ba-f8799655674d", CellID->830459108], Cell[CellGroupData[{ Cell[18147, 556, 153, 4, 70, "Input",ExpressionUUID->"daab37bd-fb75-4cd1-8fc7-84c2f25d87e2", CellID->511850086], Cell[18303, 562, 1990, 53, 70, "Output",ExpressionUUID->"b70fa1e7-5bca-46df-87bf-8d8f6a3d5223", CellID->177858101] }, Open ]], Cell[CellGroupData[{ Cell[20330, 620, 117, 4, 70, "Input",ExpressionUUID->"98cdb76f-90ef-4d40-beec-d3e50ca53ecc", CellID->150937357], Cell[20450, 626, 743, 14, 70, "Message",ExpressionUUID->"b24333ba-0bc8-4274-a02e-0db119852068", CellID->124777921], Cell[21196, 642, 243, 5, 70, "Output",ExpressionUUID->"fecdacb4-f3ec-439f-b19e-b0985c742282", CellID->41849165] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21488, 653, 90, 2, 70, "Subsection",ExpressionUUID->"e8ec84f7-9a37-4747-a8e4-a315148eb095", CellID->754506620], Cell[21581, 657, 793, 25, 70, "Text",ExpressionUUID->"21d19b78-f6cc-45ef-b6af-f9cf58fbc443", CellID->19990569], Cell[CellGroupData[{ Cell[22399, 686, 1957, 53, 70, "Input",ExpressionUUID->"fd203f5c-2ee3-4cc7-9bb8-5bd78fc639b3", CellID->378057303], Cell[24359, 741, 233, 5, 70, "Output",ExpressionUUID->"97024fe4-440f-4920-bca2-9e3cc960ab02", CellID->403894831] }, Open ]], Cell[CellGroupData[{ Cell[24629, 751, 64, 2, 70, "PageBreak",ExpressionUUID->"050a6259-6550-4263-9478-a0ff0acbbacc", PageBreakBelow->True, CellID->545192718], Cell[24696, 755, 131, 2, 70, "Text",ExpressionUUID->"2ac528bb-06d0-4cf2-9783-03c26f44f1fc", CellID->549915831], Cell[CellGroupData[{ Cell[24852, 761, 4021, 113, 70, "Input",ExpressionUUID->"2b88b5a6-ac5d-4949-91e3-adadb79e5700", CellID->146209657], Cell[28876, 876, 785, 15, 70, "Message",ExpressionUUID->"64ab3a51-b019-4399-be2f-3e6b74f64650", CellID->719756882], Cell[29664, 893, 232, 5, 70, "Output",ExpressionUUID->"5c4203b7-fc65-4d5b-b39f-dd5f7f0c4cd7", CellID->78863265] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)