(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 200657, 4634] NotebookOptionsPosition[ 111136, 2873] NotebookOutlinePosition[ 186418, 4347] CellTagsIndexPosition[ 185734, 4324] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["AbortOnMessage", "Title", CellTags->"Title"], Cell["Abort an evaluation as soon as a message is generated", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ 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->474513213], Cell[BoxData[{ RowBox[{ RowBox[{"AbortOnMessage", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "::", "invarg"}], " ", "=", " ", "\"\\""}], ";"}], "\n", "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "[", " ", "eval_", " ", "]"}], " ", ":=", " ", RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval", ",", " ", "None"}], " ", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval_", ",", " ", "quiet_"}], " ", "]"}], " ", ":=", " ", RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval", ",", " ", "quiet", ",", " ", "None"}], " ", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval_", ",", " ", "quiet_", ",", " ", "All"}], " ", "]"}], " ", ":=", " ", RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval", ",", " ", "quiet", ",", " ", "_"}], " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval_", ",", " ", "quiet_", ",", " ", RowBox[{"{", " ", "listen___", " ", "}"}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval", ",", " ", "quiet", ",", " ", RowBox[{"Alternatives", " ", "@", " ", "listen"}]}], " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "[", " ", RowBox[{"eval_", ",", " ", "quiet_", ",", " ", "listen_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"FreeQ", "[", " ", RowBox[{ RowBox[{"Internal`Handlers", "[", " ", "\"\\"", " ", "]"}], ",", " ", "_msgAbort"}], " ", "]"}], ",", "\n", " ", RowBox[{"Internal`HandlerBlock", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{"msgAbort", "[", " ", RowBox[{"listen", ",", " ", "##"}], " ", "]"}], " ", "&"}]}], " ", "}"}], ",", "\n", " ", RowBox[{"Quiet", "[", " ", RowBox[{"eval", ",", " ", "quiet"}], " ", "]"}]}], "\n", " ", "]"}], ",", "\n", " ", "eval"}], "\n", " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"AbortOnMessage", "[", " ", "___", " ", "]"}], " ", ":=", " ", RowBox[{"Null", " ", "/;", " ", RowBox[{"(", RowBox[{ RowBox[{"Message", "[", RowBox[{"AbortOnMessage", "::", "invarg"}], "]"}], ";", " ", "False"}], ")"}]}]}], ";"}]}], "Code", CellChangeTimes->{{3.773423186004115*^9, 3.7734231986147137`*^9}}, CellLabel->"In[1]:=", CellID->128875146], Cell[BoxData[{ RowBox[{ RowBox[{"msgAbort", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"msgAbort", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"msgAbort", "[", " ", RowBox[{"listen_", ",", " ", RowBox[{"Hold", "[", " ", RowBox[{ RowBox[{"m", " ", ":", " ", RowBox[{"Message", "[", " ", RowBox[{"msg_", ",", " ", "___"}], " ", "]"}]}], ",", " ", "False"}], " ", "]"}]}], " ", "]"}], " ", "/;", "\n", " ", RowBox[{"MatchQ", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "msg"}], ",", " ", "listen"}], " ", "]"}]}], " ", ":=", " ", "\n", " ", RowBox[{"Abort", "[", " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"msgAbort", "[", " ", RowBox[{"_", ",", " ", RowBox[{"Hold", "[", " ", RowBox[{"msg_", ",", " ", "True"}], " ", "]"}]}], " ", "]"}], " ", ":=", " ", RowBox[{"Abort", "[", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7734231768994036`*^9, 3.7734232052815046`*^9}}, CellLabel->"In[10]:=", CellID->71707868] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\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", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", StyleBox["eval", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "aborts evaluation of ", Cell[BoxData[ StyleBox["eval", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " if a message occurs." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{ StyleBox["eval", "TI"], ",", StyleBox["quiet", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "aborts on message but disregards messages in ", Cell[BoxData[ StyleBox["quiet", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{ StyleBox["eval", "TI"], ",", StyleBox["quiet", "TI"], ",", StyleBox["listen", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "forces an abort for any message in ", Cell[BoxData[ StyleBox["listen", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", even if it is quieted." }], "UsageDescription"] }, 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 and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "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", CellID->66019318], Cell[TextData[{ "You can call ", Cell[BoxData["AbortOnMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " anywhere within a computation. If it generates an abort, it has the same \ effect as an interactive interrupt in which you select the abort option. " }], "Notes", CellChangeTimes->{{3.77342427450455*^9, 3.7734242789174285`*^9}}, CellID->24393], Cell[TextData[{ "You can use ", Cell[BoxData["AbortOnMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " as an \"emergency stop\" in a computation as soon as the first message is \ printed." }], "Notes", CellChangeTimes->{{3.773424229729972*^9, 3.7734242509232984`*^9}}, CellID->3548], Cell[TextData[{ "Once ", Cell[BoxData["AbortOnMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " has been called, ", "Wolfram Language", " functions currently being evaluated return as quickly as possible. " }], "Notes", CellID->19629], Cell[TextData[{ "In an interactive session, the final result from an aborted computation is ", Cell[BoxData[ TemplateBox[{"$Aborted","paclet:ref/$Aborted"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellID->12623], Cell[TextData[{ "You can use ", Cell[BoxData[ TemplateBox[{"CheckAbort","paclet:ref/CheckAbort"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " to \"catch\" returns from an abort. " }], "Notes", CellID->24084] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "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->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[15]:=", CellID->274638017], Cell["Abort an evaluation as soon as a message occurs:", "Text", CellChangeTimes->{{3.7734232713424234`*^9, 3.7734232790101776`*^9}}, CellID->83704793], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.773423306091302*^9, 3.7734233122441053`*^9}}, CellLabel->"In[1]:=", CellID->192125949], Cell[BoxData[ TemplateBox[{ "First","normal", "\"Nonatomic expression expected at position \ \\!\\(\\*RowBox[{\\\"1\\\"}]\\) in \\!\\(\\*RowBox[{\\\"First\\\", \\\"[\\\", \ \\\"1\\\", \\\"]\\\"}]\\).\"",2,1,2,31237323291107901719,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.773423312647109*^9, 3.773423351542858*^9}, CellLabel->"During evaluation of In[1]:=", CellID->89669049], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.7734233126580925`*^9, 3.7734233515528574`*^9}, CellLabel->"Out[1]=", CellID->742289321] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->192191639], Cell["Ignore some messages:", "Text", CellChangeTimes->{{3.773423334627395*^9, 3.773423337213313*^9}}, CellID->627442298], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.773423342310151*^9}, CellLabel->"In[1]:=", CellID->28876246], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "2", "]"}], ",", RowBox[{"First", "[", "3", "]"}], ",", RowBox[{"First", "[", "4", "]"}], ",", RowBox[{"First", "[", "5", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.773423351633855*^9}, CellLabel->"Out[1]=", CellID->279866291] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->138920703], Cell[TextData[{ "Trigger an abort even if a message is suppressed with ", 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"], ":" }], "Text", CellChangeTimes->{ 3.773423376839055*^9, {3.773423422111617*^9, 3.773423428221423*^9}}, CellID->63269893], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Quiet", "[", RowBox[{ RowBox[{"1", "/", "0"}], ",", RowBox[{"{", RowBox[{"Power", "::", "infy"}], "}"}]}], "]"}], ",", "None", ",", RowBox[{"{", RowBox[{"Power", "::", "infy"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7734233841508217`*^9, 3.773423393870531*^9}}, CellLabel->"In[1]:=", CellID->140576983], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.7734234100390186`*^9}, CellLabel->"Out[1]=", CellID->112498900] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellLabel->"In[2]:=", CellID->79698875], Cell[TextData[{ Cell[BoxData["AbortOnMessage"], "InlineFormula", FontFamily->"Source Sans Pro"], " will stop an evaluation rather than just suppress additional messages:" }], "Text", CellChangeTimes->{3.7734234550885706`*^9}, CellID->780211526], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"Last", "[", RowBox[{"Range", "[", RowBox[{"-", "n"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "]"}]], "Input", CellLabel->"In[1]:=", CellID->27696219], Cell[CellGroupData[{ Cell[BoxData["2"], "Print", CellChangeTimes->{3.7734234645602846`*^9}, CellLabel->"During evaluation of In[1]:=", CellID->149558548], Cell[BoxData["1"], "Print", CellChangeTimes->{3.773423464563269*^9}, CellLabel->"During evaluation of In[1]:=", CellID->257004626] }, Open ]], Cell[BoxData[ TemplateBox[{ "Last","nolast", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"}\\\"}]\\) has zero length and no last \ element.\"",2,1,4,31237323291107901719,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.773423464571287*^9}, CellLabel->"During evaluation of In[1]:=", CellID->42154168], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.7734234645872846`*^9}, CellLabel->"Out[1]=", CellID->124672422] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->648054140], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CheckAbort", "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/CheckAbort"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to \[OpenCurlyDoubleQuote]catch\[CloseCurlyDoubleQuote] aborts and replace \ with some other expression rather than aborting an entire evaluation:" }], "Text", CellChangeTimes->{{3.7734237910089035`*^9, 3.77342382186094*^9}, { 3.7734238523879695`*^9, 3.77342386656052*^9}}, CellID->568527425], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{"1", "/", "n"}], "]"}], ",", "$Failed"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.77342371582629*^9, 3.7734237717475147`*^9}, { 3.7734238924197016`*^9, 3.773423896416571*^9}}, CellLabel->"In[1]:=", CellID->163492932], Cell[BoxData[ TemplateBox[{ "Power","infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \ encountered.\"",2,1,12,31237323291107901719,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7734237729614763`*^9, {3.773423873664294*^9, 3.773423916981902*^9}}, CellLabel->"During evaluation of In[1]:=", CellID->66134717], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", "1"}], ",", "$Failed", ",", "1", ",", FractionBox["1", "2"], ",", FractionBox["1", "3"]}], "}"}]], "Output", CellChangeTimes->{ 3.7734237729734755`*^9, {3.773423873673295*^9, 3.7734239169919186`*^9}}, CellLabel->"Out[1]=", CellID->500667324] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellLabel->"In[2]:=", CellID->450322173], Cell["\<\ Any messages given in the third argument will take precedence over the second \ argument:\ \>", "Text", CellID->64576445], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]], "Input", CellLabel->"In[1]:=", CellID->3889217], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7734234975902205`*^9}, CellLabel->"Out[1]=", CellID->339147203] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}], ",", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}]}], "]"}]], "Input", CellLabel->"In[2]:=", CellID->13991076], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.773423497659218*^9}, CellLabel->"Out[2]=", CellID->110933909] }, 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[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this 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", CellID->127820888], Cell["Richard Hennigan (Wolfram Research)", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function 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", CellID->547400482], Cell["debugging", "Item"], Cell["messages", "Item"], Cell["evaluation control", "Item"], Cell["abort", "Item"], Cell["interrupt", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Core Language & Structure", "Item"], Cell["Programming Utilities", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "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", CellID->161079978], Cell["Interrupt", "Item"], Cell["Message", "Item"], Cell["Quiet", "Item"], Cell["Check", "Item"], Cell["Throw", "Item"], Cell["TimeConstrained", "Item"], Cell["MemoryConstrained", "Item"], Cell["Return", "Item"], Cell["$Aborted", "Item"], Cell["AbortProtect", "Item"], Cell["CheckAbort", "Item"], Cell["AbortKernels", "Item"], Cell["LinkInterrupt", "Item"], Cell["Assert", "Item"], Cell["TaskAbort", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "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", CellID->588449267], Cell["CatchAll", "Item"], Cell["CheckMatch", "Item"], Cell["FailOnMessage", "Item"], Cell["ResourceFunctionMessage", "Item"], Cell["WithMessageHandler", "Item"], Cell["MessagedQ", "Item"], Cell["ChannelMessages", "Item"], Cell["OnceUnlessFailed", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or 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", CellID->642091068], 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[ "List additional 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", CellID->521525586], Cell[TextData[ButtonBox["Tutorial: Interrupts and Aborts", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/tutorial/InterruptsAndAborts"], None}, ButtonNote-> "https://reference.wolfram.com/language/tutorial/InterruptsAndAborts"]], \ "Item"], Cell[TextData[ButtonBox["Tutorial: Evaluation", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/tutorial/Evaluation"], None}, ButtonNote-> "https://reference.wolfram.com/language/tutorial/Evaluation"]], "Item"], Cell[TextData[ButtonBox["Guide: Flow Control", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/FlowControl"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/FlowControl"]], "Item"], Cell[TextData[ButtonBox["Guide: Looping Constructs", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/guide/LoopingConstructs"], None}, ButtonNote-> "https://reference.wolfram.com/language/guide/LoopingConstructs"]], "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional 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", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "5"}], "}"}]}], "]"}], "]"}], ",", "$Aborted"}], "]"}], ",", "\n", " ", "$Aborted", ",", "\n", " ", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7734240981121683`*^9, 3.773424106079898*^9}}, CellLabel->"In[19]:=", CellID->379030203], 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[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "i", "]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], "]"}], ",", RowBox[{"\[LeftSkeleton]", "8", "\[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["$Aborted", 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["$Aborted", 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[{"First", "::", "normal"}], "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[{"First", "::", "normal"}], "MessageName"], ",", "1", ",", RowBox[{"First", "[", "1", "]"}]}], "]"}], "}"}], 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.0009997`4.150384689940255", "\"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" -> 15, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ CheckAbort[ $CellContext`AbortOnMessage[ Table[ First[$CellContext`i], {$CellContext`i, 5}]], $Aborted]], "ExpectedOutput" -> HoldForm[$Aborted], "ActualOutput" -> HoldForm[$Aborted], "ExpectedMessages" -> { HoldForm[ MessageName[First, "normal"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[First, "normal"], HoldForm[1], HoldForm[ First[1]]]]}, "AbsoluteTimeUsed" -> Quantity[0.0009997`4.150384689940255, "Seconds"], "CPUTimeUsed" -> Quantity[0.016000000000000014`, "Seconds"], "MemoryUsed" -> Quantity[1560, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.773424080109724*^9, 3.7734241084688387`*^9}, 3.7734241876843233`*^9}, CellLabel->"Out[19]=", CellID->216253296] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "5"}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}]}], "]"}], ",", "$Aborted"}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", " ", RowBox[{"First", "[", "2", "]"}], ",", " ", RowBox[{"First", "[", "3", "]"}], ",", " ", RowBox[{"First", "[", "4", "]"}], ",", " ", RowBox[{"First", "[", "5", "]"}]}], "}"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7734241108727627`*^9, 3.7734241184455214`*^9}}, CellLabel->"In[20]:=", CellID->18067305], 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[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], "]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], ",", RowBox[{"\[LeftSkeleton]", "8", "\[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[ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "2", "]"}], ",", RowBox[{"First", "[", "3", "]"}], ",", RowBox[{"First", "[", "4", "]"}], ",", RowBox[{"First", "[", "5", "]"}]}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "2", "]"}], ",", RowBox[{"First", "[", "3", "]"}], ",", RowBox[{"First", "[", "4", "]"}], ",", RowBox[{"First", "[", "5", "]"}]}], "}"}], 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" -> 16, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ CheckAbort[ $CellContext`AbortOnMessage[ Table[ First[$CellContext`i], {$CellContext`i, 5}], { MessageName[First, "normal"]}], $Aborted]], "ExpectedOutput" -> HoldForm[{ First[1], First[2], First[3], First[4], First[5]}], "ActualOutput" -> HoldForm[{ First[1], First[2], First[3], First[4], First[5]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[432, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7734240804487286`*^9, 3.7734241202164726`*^9, 3.7734241878983173`*^9}, CellLabel->"Out[20]=", CellID->93550965] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Quiet", "[", RowBox[{ RowBox[{"1", "/", "0"}], ",", " ", RowBox[{"{", RowBox[{"Power", "::", "infy"}], "}"}]}], "]"}], ",", " ", "None", ",", " ", RowBox[{"{", RowBox[{"Power", "::", "infy"}], "}"}]}], "]"}], ",", "$Aborted"}], "]"}], ",", "\n", " ", "$Aborted"}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7734241226213894`*^9, 3.7734241293001776`*^9}}, CellLabel->"In[21]:=", CellID->883231698], 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[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], ",", "$Aborted"}], "]"}], 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["$Aborted", 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["$Aborted", 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" -> 17, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ CheckAbort[ $CellContext`AbortOnMessage[ Quiet[1/0, { MessageName[Power, "infy"]}], None, { MessageName[Power, "infy"]}], $Aborted]], "ExpectedOutput" -> HoldForm[$Aborted], "ActualOutput" -> HoldForm[$Aborted], "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.7734240806087236`*^9, 3.773424130488123*^9, 3.7734241880243125`*^9}, CellLabel->"Out[21]=", CellID->250179077] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"Last", "[", RowBox[{"Range", "[", RowBox[{"-", "n"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "]"}], "]"}], ",", "$Aborted"}], "]"}], ",", "\n", " ", "$Aborted", ",", "\n", " ", RowBox[{"{", RowBox[{"Last", "::", "nolast"}], "}"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7734241331960535`*^9, 3.7734241400628386`*^9}}, CellLabel->"In[22]:=", CellID->278866645], Cell[CellGroupData[{ Cell[BoxData["2"], "Print", CellChangeTimes->{3.773424080709721*^9, 3.773424147260606*^9, 3.773424188164308*^9}, CellLabel->"During evaluation of In[22]:=", CellID->917439266], Cell[BoxData["1"], "Print", CellChangeTimes->{3.773424080709721*^9, 3.773424147260606*^9, 3.7734241881683083`*^9}, CellLabel->"During evaluation of In[22]:=", CellID->359985646] }, Open ]], 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["$Aborted", 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["$Aborted", 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[{"Last", "::", "nolast"}], "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[{"Last", "::", "nolast"}], "MessageName"], ",", RowBox[{"{", "}"}]}], "]"}], "}"}], 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.0010001`4.15055842510885", "\"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" -> 18, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ CheckAbort[ $CellContext`AbortOnMessage[ Table[ Print[ Last[ Range[-$CellContext`n]]], {$CellContext`n, -2, 2}]], $Aborted]], "ExpectedOutput" -> HoldForm[$Aborted], "ActualOutput" -> HoldForm[$Aborted], "ExpectedMessages" -> { HoldForm[ MessageName[Last, "nolast"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Last, "nolast"], HoldForm[{}]]]}, "AbsoluteTimeUsed" -> Quantity[0.0010001`4.15055842510885, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[1536, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7734240808067007`*^9, 3.7734241473746047`*^9, 3.7734241882783046`*^9}, CellLabel->"Out[22]=", CellID->113171648] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{"1", "/", "n"}], "]"}], ",", " ", "$Failed"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"-", "3"}], ",", " ", "3"}], "}"}]}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], ",", " ", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], ",", " ", RowBox[{"-", "1"}], ",", " ", "$Failed", ",", " ", "1", ",", " ", RowBox[{"1", "/", "2"}], ",", " ", RowBox[{"1", "/", "3"}]}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"Power", "::", "infy"}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[23]:=", CellID->64768637], 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[{"Table", "[", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", FractionBox["1", "n"], "]"}], ",", "$Failed"}], "]"}], ",", 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[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", "1"}], ",", "$Failed", ",", "1", ",", FractionBox["1", "2"], ",", FractionBox["1", "3"]}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", "1"}], ",", "$Failed", ",", "1", ",", FractionBox["1", "2"], ",", FractionBox["1", "3"]}], "}"}], 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[{"Power", "::", "infy"}], "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[{"Power", "::", "infy"}], "MessageName"], ",", FractionBox["1", "0"]}], "]"}], "}"}], 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" -> 19, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ Table[ CheckAbort[ $CellContext`AbortOnMessage[ 1/$CellContext`n], $Failed], {$CellContext`n, -3, 3}]], "ExpectedOutput" -> HoldForm[{ Rational[-1, 3], Rational[-1, 2], -1, $Failed, 1, Rational[1, 2], Rational[1, 3]}], "ActualOutput" -> HoldForm[{ Rational[-1, 3], Rational[-1, 2], -1, $Failed, 1, Rational[1, 2], Rational[1, 3]}], "ExpectedMessages" -> { HoldForm[ MessageName[Power, "infy"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Power, "infy"], HoldForm[0^(-1)]]]}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[1808, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.773424080917713*^9, {3.7734241734347596`*^9, 3.7734241884072843`*^9}}, CellLabel->"Out[23]=", CellID->695609984] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", " ", "5"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}], ",", " ", RowBox[{"{", "}"}]}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", " ", RowBox[{"First", "[", "1", "]"}], ",", " ", RowBox[{"First", "[", "1", "]"}], ",", " ", RowBox[{"First", "[", "1", "]"}], ",", " ", RowBox[{"First", "[", "1", "]"}]}], "}"}]}], "\n", "]"}]], "Input", CellLabel->"In[24]:=", CellID->311400903], 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[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", "5"}], "]"}], ",", RowBox[{"{", StyleBox[ RowBox[{"First", "::", RowBox[{"\[LeftSkeleton]", "6", "\[RightSkeleton]"}]}], "MessageName"], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}]}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}], ",", RowBox[{"First", "[", "1", "]"}]}], "}"}], 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" -> 20, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`AbortOnMessage[ Table[ First[1], 5], { MessageName[First, "normal"]}, {}]], "ExpectedOutput" -> HoldForm[{ First[1], First[1], First[1], First[1], First[1]}], "ActualOutput" -> HoldForm[{ First[1], First[1], First[1], First[1], First[1]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[128, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7734240810387096`*^9, {3.773424174876729*^9, 3.7734241885352798`*^9}}, CellLabel->"Out[24]=", CellID->104474818] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"CheckAbort", "[", RowBox[{ RowBox[{"AbortOnMessage", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", " ", "5"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"First", "::", "normal"}], "}"}]}], "]"}], ",", "$Aborted"}], "]"}], ",", "\n", " ", "$Aborted"}], "\n", "]"}]], "Input", CellChangeTimes->{{3.7734241787485905`*^9, 3.7734241842884145`*^9}}, CellLabel->"In[25]:=", CellID->74408847], 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[{"CheckAbort", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", "$Aborted"}], "]"}], 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["$Aborted", 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["$Aborted", 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" -> 21, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ CheckAbort[ $CellContext`AbortOnMessage[ Table[ First[1], 5], { MessageName[First, "normal"]}, { MessageName[First, "normal"]}], $Aborted]], "ExpectedOutput" -> HoldForm[$Aborted], "ActualOutput" -> HoldForm[$Aborted], "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.7734240811587057`*^9, {3.77342418497241*^9, 3.773424188663291*^9}}, CellLabel->"Out[25]=", CellID->9608790] }, Open ]] }, Open ]] }, Closed]], 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["Additional information for the reviewer.", "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->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.22"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], 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}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], 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 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "]]}, 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 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, 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[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[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[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, 2/3, 0], Thickness[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], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], 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", FontTracking -> "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", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (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`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> If[ Not[$CloudEvaluation], CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = ""]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ 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 -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ 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 -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, 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}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ 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`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], 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:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], 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]]}, 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]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 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"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, 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], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 51, 1, 70, "Title",ExpressionUUID->"a03a0d94-b3b6-4326-a260-89e688d0a5d2", CellTags->"Title"]}, "Description"->{ Cell[612, 23, 95, 1, 70, "Text",ExpressionUUID->"b710e780-fbb8-4ee5-9745-2eac3d67edcd", CellTags->"Description"]}, "Definition"->{ Cell[732, 28, 887, 21, 70, "Section",ExpressionUUID->"9018ece6-89e0-4230-aa70-c2e9bfb8c6bf", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[5936, 171, 99, 3, 70, "Section",ExpressionUUID->"cfec3ff7-40b3-4f0d-9610-6c620d702f95", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[6060, 178, 1615, 42, 70, "Subsection",ExpressionUUID->"db13dfeb-a766-42c1-bbde-11593610c811", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[8821, 275, 1131, 24, 70, "Subsection",ExpressionUUID->"2160e6eb-5db3-473b-9108-0764749d28ad", CellTags->"Details & Options", CellID->66019318]}, "Examples"->{ Cell[11491, 356, 6400, 143, 70, "Section",ExpressionUUID->"6f3d2c2a-b275-46e1-8876-1629470bac91", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[26820, 834, 135, 3, 70, "Section",ExpressionUUID->"91d36e85-ba3d-4a30-9a20-389e8e8d2eed", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[26980, 841, 683, 18, 70, "Subsection",ExpressionUUID->"5422b8cc-628e-4c5a-a2ce-21c04a7da0d0", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[27754, 866, 684, 18, 70, "Subsection",ExpressionUUID->"55f46234-c7b9-4c5d-9c92-199deb6ab641", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[28619, 899, 126, 4, 70, "Subsection",ExpressionUUID->"04530381-f52a-4056-a1b1-9ad3674a7b0a", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[28866, 912, 661, 18, 70, "Subsection",ExpressionUUID->"1ba376af-162e-420e-9657-eb7480625324", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[29988, 965, 711, 18, 70, "Subsection",ExpressionUUID->"82946609-6c19-4604-91f7-7267a90a0e2a", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[31000, 1004, 762, 19, 70, "Subsection",ExpressionUUID->"0a59f26f-f23f-41d2-ad2d-b8c2a0db613a", CellTags->"Source/Reference Citation", CellID->642091068]}, "TabNext"->{ Cell[31765, 1025, 496, 8, 70, "Text",ExpressionUUID->"f88da1bc-cdd4-4e03-90ef-7b83cc7ce56a", CellTags->"TabNext", CellID->343081869], Cell[109356, 2828, 509, 8, 70, "Text",ExpressionUUID->"1b98b3f8-9ddc-43be-901a-8db0edfe66a2", CellTags->"TabNext", CellID->567921317], Cell[110625, 2862, 495, 8, 70, "Text",ExpressionUUID->"5bc4fa85-22a1-4a5b-b244-9737914a6a46", CellTags->"TabNext", CellID->920818074]}, "Links"->{ Cell[32298, 1038, 614, 18, 70, "Subsection",ExpressionUUID->"13c6c6eb-c0bb-453f-8cb0-63a505825e38", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[34016, 1092, 767, 20, 70, "Subsection",ExpressionUUID->"5c651f65-3c95-4448-9b7f-cf20b585e073", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[109226, 2822, 127, 4, 70, "Section",ExpressionUUID->"73c1e003-7b60-4b70-ac3d-a662828dc059", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[109902, 2841, 720, 19, 70, "Section",ExpressionUUID->"f82b70f9-24e9-4171-8f32-2dbfca73965b", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 182215, 4241}, {"Description", 182348, 4244}, {"Definition", 182485, 4247}, {"Documentation", 182651, 4251}, {"Usage", 182812, 4255}, {"Details & Options", 182983, 4259}, {"Examples", 183156, 4263}, {"Source & Additional Information", 183343, 4267}, {"Contributed By", 183533, 4271}, {"Keywords", 183704, 4275}, {"Categories", 183871, 4279}, {"Related Symbols", 184044, 4283}, {"Related Resource Objects", 184232, 4287}, {"Source/Reference Citation", 184430, 4291}, {"TabNext", 184612, 4295}, {"Links", 185053, 4305}, {"Tests", 185213, 4309}, {"Author Notes", 185379, 4313}, {"Submission Notes", 185554, 4317} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 51, 1, 70, "Title",ExpressionUUID->"a03a0d94-b3b6-4326-a260-89e688d0a5d2", CellTags->"Title"], Cell[612, 23, 95, 1, 70, "Text",ExpressionUUID->"b710e780-fbb8-4ee5-9745-2eac3d67edcd", CellTags->"Description"], Cell[CellGroupData[{ Cell[732, 28, 887, 21, 70, "Section",ExpressionUUID->"9018ece6-89e0-4230-aa70-c2e9bfb8c6bf", CellTags->"Definition", CellID->474513213], Cell[1622, 51, 3024, 80, 70, "Code",ExpressionUUID->"f62df6cc-f27c-4d1b-81d4-c4a5a0347f88", CellID->128875146], Cell[4649, 133, 1272, 35, 70, "Code",ExpressionUUID->"99bb3f39-9f23-4ea7-a050-7dd8b9364cc3", CellID->71707868] }, Open ]], Cell[5936, 171, 99, 3, 70, "Section",ExpressionUUID->"cfec3ff7-40b3-4f0d-9610-6c620d702f95", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[6060, 178, 1615, 42, 70, "Subsection",ExpressionUUID->"db13dfeb-a766-42c1-bbde-11593610c811", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[7700, 224, 95, 2, 70, "UsageInputs",ExpressionUUID->"628a8e8e-f63c-4dc7-9ef9-fa7eb32df2d1"], Cell[7798, 228, 183, 6, 70, "UsageDescription",ExpressionUUID->"660b6515-db92-4d76-86a5-141869a4e25a"] }, Open ]], Cell[CellGroupData[{ Cell[8018, 239, 143, 4, 70, "UsageInputs",ExpressionUUID->"3cd00bde-5298-4337-b2e5-10a2ac40d23d"], Cell[8164, 245, 188, 6, 70, "UsageDescription",ExpressionUUID->"991277d6-73cc-4f66-92a0-f3d804d5046d"] }, Open ]], Cell[CellGroupData[{ Cell[8389, 256, 178, 5, 70, "UsageInputs",ExpressionUUID->"607cf439-0be8-489f-932b-4a42946dc2ff"], Cell[8570, 263, 202, 6, 70, "UsageDescription",ExpressionUUID->"33c470b3-8287-4c1e-823e-35f33eaa3fa9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8821, 275, 1131, 24, 70, "Subsection",ExpressionUUID->"2160e6eb-5db3-473b-9108-0764749d28ad", CellTags->"Details & Options", CellID->66019318], Cell[9955, 301, 366, 8, 70, "Notes",ExpressionUUID->"94e089a3-918b-4b67-b576-a5d2135414d6", CellID->24393], Cell[10324, 311, 301, 8, 70, "Notes",ExpressionUUID->"73287cf6-92a4-4282-9ee1-77917db5b7b7", CellID->3548], Cell[10628, 321, 254, 8, 70, "Notes",ExpressionUUID->"2a74be3c-5d2d-4934-a8c5-742b8cf605bf", CellID->19629], Cell[10885, 331, 295, 9, 70, "Notes",ExpressionUUID->"8d248fe8-8800-4fe8-9921-4d3f8373a1b9", CellID->12623], Cell[11183, 342, 271, 9, 70, "Notes",ExpressionUUID->"959060f0-24e1-4339-a5be-1276ed533719", CellID->24084] }, Open ]], Cell[CellGroupData[{ Cell[11491, 356, 6400, 143, 70, "Section",ExpressionUUID->"6f3d2c2a-b275-46e1-8876-1629470bac91", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[17916, 503, 80, 2, 70, "Subsection",ExpressionUUID->"15345106-70f8-4847-b288-5ac958c8ed6e", CellID->274638017], Cell[17999, 507, 153, 2, 70, "Text",ExpressionUUID->"e9bd52f5-a4d5-4641-beb6-4af03804afde", CellID->83704793], Cell[CellGroupData[{ Cell[18177, 513, 319, 9, 70, "Input",ExpressionUUID->"2a5cadc8-8551-4506-a62c-73d4b0a9faeb", CellID->192125949], Cell[18499, 524, 413, 9, 70, "Message",ExpressionUUID->"0fab457d-befb-4cda-9610-019dfff50197", CellID->89669049], Cell[18915, 535, 146, 3, 70, "Output",ExpressionUUID->"6ce35221-3a46-49fe-83d1-b8caacc63c66", CellID->742289321] }, Open ]], Cell[CellGroupData[{ Cell[19098, 543, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"bb882580-2657-4fa0-af78-f2b68de3af68", CellID->192191639], Cell[19226, 548, 123, 2, 70, "Text",ExpressionUUID->"7b369a00-a6e1-417e-8356-cfdd01916d26", CellID->627442298], Cell[CellGroupData[{ Cell[19374, 554, 379, 12, 70, "Input",ExpressionUUID->"007a1bb9-4b4a-4786-adfa-b0df235ce079", CellID->28876246], Cell[19756, 568, 353, 10, 70, "Output",ExpressionUUID->"53a7ae0f-f9ba-4bc6-bf9c-95eb8901cae3", CellID->279866291] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20158, 584, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"2beff2b9-0d17-4638-9b66-49b8f594ac17", CellID->138920703], Cell[20286, 589, 644, 20, 70, "Text",ExpressionUUID->"9faa4c61-3905-44ae-80c3-e32d27907a5a", CellID->63269893], Cell[CellGroupData[{ Cell[20955, 613, 416, 12, 70, "Input",ExpressionUUID->"d111b45e-a4a7-457c-9026-5e16514bd924", CellID->140576983], Cell[21374, 627, 122, 3, 70, "Output",ExpressionUUID->"4f3b84eb-efc4-4e26-a2ad-ec79f99ff511", CellID->112498900] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21557, 637, 88, 2, 70, "Subsection",ExpressionUUID->"912d0796-63ef-49e1-b871-e5b2e950d3b6", CellID->79698875], Cell[21648, 641, 250, 6, 70, "Text",ExpressionUUID->"a726b50b-64dd-4709-8136-6194728ccebc", CellID->780211526], Cell[CellGroupData[{ Cell[21923, 651, 375, 12, 70, "Input",ExpressionUUID->"ca24141f-56ec-4994-a803-e9592210135d", CellID->27696219], Cell[CellGroupData[{ Cell[22323, 667, 135, 3, 70, "Print",ExpressionUUID->"777c3ca1-94c3-4d76-b691-f025d3c94c60", CellID->149558548], Cell[22461, 672, 133, 3, 70, "Print",ExpressionUUID->"8b12d2ea-88e4-4065-afcc-aafc034cdda6", CellID->257004626] }, Open ]], Cell[22609, 678, 321, 8, 70, "Message",ExpressionUUID->"5927d71f-19bd-4ef8-868e-f12c1475d573", CellID->42154168], Cell[22933, 688, 122, 3, 70, "Output",ExpressionUUID->"156391ae-db71-418a-9603-49173e6d5dfd", CellID->124672422] }, Open ]], Cell[CellGroupData[{ Cell[23092, 696, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"1b15dafe-2a42-433f-a696-261af182edb8", CellID->648054140], Cell[23220, 701, 777, 21, 70, "Text",ExpressionUUID->"cf741a29-5fb6-4c59-8389-dba9ae51ee47", CellID->568527425], Cell[CellGroupData[{ Cell[24022, 726, 462, 13, 70, "Input",ExpressionUUID->"a1450469-0bcd-4b14-9e0e-5aaea8d34590", CellID->163492932], Cell[24487, 741, 371, 9, 70, "Message",ExpressionUUID->"41129a61-53d7-451e-a7d1-f3a4cac59b76", CellID->66134717], Cell[24861, 752, 414, 13, 70, "Output",ExpressionUUID->"f319c600-f3ba-4ba7-a166-28cb26246e71", CellID->500667324] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25336, 772, 80, 2, 70, "Subsection",ExpressionUUID->"45779200-cbcb-4e41-ba98-ad3e4c2663e4", CellID->450322173], Cell[25419, 776, 132, 4, 70, "Text",ExpressionUUID->"381a351a-5087-41ac-81e9-e99a2394b0ba", CellID->64576445], Cell[CellGroupData[{ Cell[25576, 784, 312, 10, 70, "Input",ExpressionUUID->"a5b983d7-5584-4de2-861b-e7bce3468907", CellID->3889217], Cell[25891, 796, 355, 10, 70, "Output",ExpressionUUID->"1ba9cae8-36e5-4640-9669-ffe4f07a7d62", CellID->339147203] }, Open ]], Cell[CellGroupData[{ Cell[26283, 811, 353, 11, 70, "Input",ExpressionUUID->"ba2caa77-0543-4668-aebe-d1d96f36c8c9", CellID->13991076], Cell[26639, 824, 120, 3, 70, "Output",ExpressionUUID->"13c9b836-d7bc-4bcb-9384-32b295d89fb3", CellID->110933909] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26820, 834, 135, 3, 70, "Section",ExpressionUUID->"91d36e85-ba3d-4a30-9a20-389e8e8d2eed", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[26980, 841, 683, 18, 70, "Subsection",ExpressionUUID->"5422b8cc-628e-4c5a-a2ce-21c04a7da0d0", CellTags->"Contributed By", CellID->127820888], Cell[27666, 861, 51, 0, 70, "Text",ExpressionUUID->"8954b4ff-1af3-41f9-8aae-858939ba12f2"] }, Open ]], Cell[CellGroupData[{ Cell[27754, 866, 684, 18, 70, "Subsection",ExpressionUUID->"55f46234-c7b9-4c5d-9c92-199deb6ab641", CellTags->"Keywords", CellID->547400482], Cell[28441, 886, 25, 0, 70, "Item",ExpressionUUID->"8ed4d002-5a35-45bb-b78f-84e039f575ac"], Cell[28469, 888, 24, 0, 70, "Item",ExpressionUUID->"5ffe6b28-4cdc-4644-b750-98d137c24886"], Cell[28496, 890, 34, 0, 70, "Item",ExpressionUUID->"5e2f704f-f7ca-43de-85b8-e656d1eb5e86"], Cell[28533, 892, 21, 0, 70, "Item",ExpressionUUID->"2f37647d-6469-48e7-93f8-28a0a3e31dde"], Cell[28557, 894, 25, 0, 70, "Item",ExpressionUUID->"7758cd16-6232-499f-ac5d-d614b2949de2"] }, Open ]], Cell[CellGroupData[{ Cell[28619, 899, 126, 4, 70, "Subsection",ExpressionUUID->"04530381-f52a-4056-a1b1-9ad3674a7b0a", CellTags->"Categories", CellID->749076926], Cell[28748, 905, 41, 0, 70, "Item",ExpressionUUID->"f6b2290f-221c-49e4-b064-13dc96523a39"], Cell[28792, 907, 37, 0, 70, "Item",ExpressionUUID->"d65aded7-3568-4589-bdb1-537b907fa233"] }, Open ]], Cell[CellGroupData[{ Cell[28866, 912, 661, 18, 70, "Subsection",ExpressionUUID->"1ba376af-162e-420e-9657-eb7480625324", CellTags->"Related Symbols", CellID->161079978], Cell[29530, 932, 25, 0, 70, "Item",ExpressionUUID->"d656a519-2147-4bf9-9339-e31e26833e8a"], Cell[29558, 934, 23, 0, 70, "Item",ExpressionUUID->"b31c36cb-738b-4d12-8bd7-e8c71053e801"], Cell[29584, 936, 21, 0, 70, "Item",ExpressionUUID->"0ee94051-63d5-4c3c-87a5-cc97735895d7"], Cell[29608, 938, 21, 0, 70, "Item",ExpressionUUID->"5f0b15f8-8e61-4ec4-8485-a0717ac65753"], Cell[29632, 940, 21, 0, 70, "Item",ExpressionUUID->"a7d51e33-65cb-40c1-9278-a720358f3229"], Cell[29656, 942, 31, 0, 70, "Item",ExpressionUUID->"9965d423-e720-4c4e-b9d9-62c26a8abda8"], Cell[29690, 944, 33, 0, 70, "Item",ExpressionUUID->"9037e670-aaa2-4d3c-981d-7f87e18299c9"], Cell[29726, 946, 22, 0, 70, "Item",ExpressionUUID->"075c278f-8f55-4190-80d0-09b5252b9ca2"], Cell[29751, 948, 24, 0, 70, "Item",ExpressionUUID->"0fcfef34-f40f-4639-847b-2762fc80bef3"], Cell[29778, 950, 28, 0, 70, "Item",ExpressionUUID->"13676764-f443-4a72-8284-ced713657c71"], Cell[29809, 952, 26, 0, 70, "Item",ExpressionUUID->"1a45755e-b156-4af5-a095-840a4abfc869"], Cell[29838, 954, 28, 0, 70, "Item",ExpressionUUID->"a38cf169-8d95-4af4-9119-5e181fd9152f"], Cell[29869, 956, 29, 0, 70, "Item",ExpressionUUID->"c0060871-6aff-424e-9baa-1e1397ba9bbf"], Cell[29901, 958, 22, 0, 70, "Item",ExpressionUUID->"72d7c88f-bd86-4046-b741-a36a1e5cd7b8"], Cell[29926, 960, 25, 0, 70, "Item",ExpressionUUID->"9e888860-fed8-4acd-8359-231aff85b6df"] }, Open ]], Cell[CellGroupData[{ Cell[29988, 965, 711, 18, 70, "Subsection",ExpressionUUID->"82946609-6c19-4604-91f7-7267a90a0e2a", CellTags->"Related Resource Objects", CellID->588449267], Cell[30702, 985, 24, 0, 70, "Item",ExpressionUUID->"017ee839-03d7-4526-a166-c2018860a7e0"], Cell[30729, 987, 26, 0, 70, "Item",ExpressionUUID->"daaddb92-0ad3-4612-b1f3-068edc7509c6"], Cell[30758, 989, 29, 0, 70, "Item",ExpressionUUID->"dd9afd53-f4c4-421e-8520-a259a66f074c"], Cell[30790, 991, 39, 0, 70, "Item",ExpressionUUID->"6fda2d5c-5c1e-4013-954d-ca7c3d0ee724"], Cell[30832, 993, 34, 0, 70, "Item",ExpressionUUID->"ab395245-9b35-4048-8feb-19ffe6b610e9"], Cell[30869, 995, 25, 0, 70, "Item",ExpressionUUID->"f00e3d5f-28e1-4d04-93ce-472e9d9a5cb9"], Cell[30897, 997, 31, 0, 70, "Item",ExpressionUUID->"135619b8-f179-44de-8d28-38ac5cae1b1a"], Cell[30931, 999, 32, 0, 70, "Item",ExpressionUUID->"4ccc05a9-cfd0-4808-9d98-36cc2f03d9f9"] }, Open ]], Cell[CellGroupData[{ Cell[31000, 1004, 762, 19, 70, "Subsection",ExpressionUUID->"0a59f26f-f23f-41d2-ad2d-b8c2a0db613a", CellTags->"Source/Reference Citation", CellID->642091068], Cell[31765, 1025, 496, 8, 70, "Text",ExpressionUUID->"f88da1bc-cdd4-4e03-90ef-7b83cc7ce56a", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[32298, 1038, 614, 18, 70, "Subsection",ExpressionUUID->"13c6c6eb-c0bb-453f-8cb0-63a505825e38", CellTags->"Links", CellID->521525586], Cell[32915, 1058, 287, 7, 70, "Item",ExpressionUUID->"7600b712-e782-4484-8790-01edefbb385a"], Cell[33205, 1067, 252, 5, 70, "Item",ExpressionUUID->"78410afe-e3f6-4c4e-a466-2ad94cd74b86"], Cell[33460, 1074, 247, 5, 70, "Item",ExpressionUUID->"ae463e3c-f623-4867-a99f-340f821b223d"], Cell[33710, 1081, 269, 6, 70, "Item",ExpressionUUID->"17d664cf-1829-4e0d-b0d2-0951e15db748"] }, Open ]], Cell[CellGroupData[{ Cell[34016, 1092, 767, 20, 70, "Subsection",ExpressionUUID->"5c651f65-3c95-4448-9b7f-cf20b585e073", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[34808, 1116, 619, 16, 70, "Input",ExpressionUUID->"d2452ca4-99ba-4f15-9217-ab8170fbd536", CellID->379030203], Cell[35430, 1134, 10458, 229, 70, "Output",ExpressionUUID->"fcfa00bd-d2eb-40dd-bec4-35e90a984a61", CellID->216253296] }, Open ]], Cell[CellGroupData[{ Cell[45925, 1368, 907, 24, 70, "Input",ExpressionUUID->"3afeaa5b-934c-4206-8c59-fb86abf3ea0f", CellID->18067305], Cell[46835, 1394, 9898, 218, 70, "Output",ExpressionUUID->"71f37ef6-23d4-489f-ad30-617d07e5c6fb", CellID->93550965] }, Open ]], Cell[CellGroupData[{ Cell[56770, 1617, 659, 18, 70, "Input",ExpressionUUID->"7344d34b-53eb-44fd-a44c-0ec523fa8f16", CellID->883231698], Cell[57432, 1637, 8600, 185, 70, "Output",ExpressionUUID->"b32d76e0-fb78-4c39-891f-ffa754ec25e9", CellID->250179077] }, Open ]], Cell[CellGroupData[{ Cell[66069, 1827, 766, 20, 70, "Input",ExpressionUUID->"cf738b2e-6f5a-4298-9cbb-83a62c9bf677", CellID->278866645], Cell[CellGroupData[{ Cell[66860, 1851, 181, 4, 70, "Print",ExpressionUUID->"067c13b1-063c-4ffb-a58f-230c0d1a9845", CellID->917439266], Cell[67044, 1857, 183, 4, 70, "Print",ExpressionUUID->"5a24cc8f-2a87-427b-a53c-1e827d035488", CellID->359985646] }, Open ]], Cell[67242, 1864, 9998, 219, 70, "Output",ExpressionUUID->"2227a034-ae94-484d-ab6c-de6f6ea6cf3d", CellID->113171648] }, Open ]], Cell[CellGroupData[{ Cell[77277, 2088, 928, 27, 70, "Input",ExpressionUUID->"f8861c2b-466d-437b-9a4a-16dc41db4a90", CellID->64768637], Cell[78208, 2117, 11254, 249, 70, "Output",ExpressionUUID->"7e5806e5-19b6-436b-9871-ed22e53bc322", CellID->695609984] }, Open ]], Cell[CellGroupData[{ Cell[89499, 2371, 719, 19, 70, "Input",ExpressionUUID->"c21325e3-6020-41b5-a893-6c805731444b", CellID->311400903], Cell[90221, 2392, 9695, 214, 70, "Output",ExpressionUUID->"f2c7d153-b3c5-493f-898a-0bcc47a6b35b", CellID->104474818] }, Open ]], Cell[CellGroupData[{ Cell[99953, 2611, 656, 17, 70, "Input",ExpressionUUID->"c16d844f-db51-4698-bfe4-ec19fc31f4e2", CellID->74408847], Cell[100612, 2630, 8553, 185, 70, "Output",ExpressionUUID->"3d983f77-a9a3-447c-8f3d-7a2fa40c4fb8", CellID->9608790] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[109226, 2822, 127, 4, 70, "Section",ExpressionUUID->"73c1e003-7b60-4b70-ac3d-a662828dc059", CellTags->"Author Notes", CellID->795110225], Cell[109356, 2828, 509, 8, 70, "Text",ExpressionUUID->"1b98b3f8-9ddc-43be-901a-8db0edfe66a2", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[109902, 2841, 720, 19, 70, "Section",ExpressionUUID->"f82b70f9-24e9-4171-8f32-2dbfca73965b", CellTags->"Submission Notes", CellID->843283583], Cell[110625, 2862, 495, 8, 70, "Text",ExpressionUUID->"5bc4fa85-22a1-4a5b-b244-9737914a6a46", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)