(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 177572, 4404] NotebookOptionsPosition[ 69432, 2276] NotebookOutlinePosition[ 165222, 4145] CellTagsIndexPosition[ 164271, 4114] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["HighlightCases", "Title", CellTags->{"Name", "TemplateCell", "Title"}], Cell["Visualize cases of matched patterns in any expression", "Text", CellTags->{"Description", "TemplateCell"}], 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", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"HighlightCases", " ", "//", " ", "ClearAll"}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "HighlightCases", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"Heads", "\[Rule]", "True"}], "}"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"HighlightCases", "[", RowBox[{"expr_", ",", " ", "patterns_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"HighlightCases", "[", RowBox[{ "expr", ",", " ", "patterns", ",", " ", "Infinity", ",", " ", "opts"}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HighlightCases", "[", RowBox[{"expr_", ",", " ", "patterns2_", ",", " ", "level2_", ",", " ", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{ "patterns", ",", "positions", ",", "colors", ",", "rules", ",", "order", ",", "level", ",", " ", "\n", "\t", "$colors", ",", " ", "$framerules", ",", " ", "$framerules2", ",", " ", "$colorinc", ",", " ", "toCol", ",", " ", "getPattern", ",", " ", "toRule", ",", " ", "MyReplacePart", ",", " ", "MyExtract", ",", " ", "ToList", ",", "\n", "\t", "framed", ",", "bigframed", ",", " ", "smallframed"}], "}"}], ",", "\n", "\t", "\n", "\t", RowBox[{ RowBox[{"$colors", "=", RowBox[{ RowBox[{ RowBox[{"Hue", "[", RowBox[{"#", ",", "0.9"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ "0", ",", "0.12", ",", "0.28", ",", "0.58", ",", "0.7", ",", "0.8"}], "}"}]}]}], ";", "\n", "\t", RowBox[{"$framerules", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"framed", "[", RowBox[{"f_framed", ",", "col_"}], "]"}], "\[RuleDelayed]", RowBox[{"bigframed", "[", RowBox[{ RowBox[{"smallframed", "@@", "f"}], ",", "col"}], "]"}]}], ",", RowBox[{ RowBox[{"smallframed", "[", RowBox[{"f_framed", ",", "col_"}], "]"}], "\[RuleDelayed]", RowBox[{"bigframed", "[", RowBox[{ RowBox[{"smallframed", "@@", "f"}], ",", "col"}], "]"}]}]}], "}"}]}], ";", "\n", "\t", RowBox[{"$framerules2", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"smallframed", "[", RowBox[{"a_", ",", RowBox[{"{", RowBox[{"col_", ",", RowBox[{"Tooltip", "\[Rule]", "value_"}]}], "}"}]}], "]"}], "\[RuleDelayed]", RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"smallframed", "[", RowBox[{"a", ",", "col"}], "]"}], ",", "value"}], "]"}]}], ",", RowBox[{ RowBox[{"framed", "[", RowBox[{"a_", ",", RowBox[{"{", RowBox[{"col_", ",", RowBox[{"Tooltip", "\[Rule]", "value_"}]}], "}"}]}], "]"}], " ", "\[RuleDelayed]", " ", RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"framed", "[", RowBox[{"a", ",", "col"}], "]"}], ",", "value"}], "]"}]}], ",", RowBox[{ RowBox[{"bigframed", "[", RowBox[{"a_", ",", RowBox[{"{", RowBox[{"col_", ",", RowBox[{"Tooltip", "\[Rule]", "value_"}]}], "}"}]}], "]"}], "\[RuleDelayed]", RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"bigframed", "[", RowBox[{"a", ",", "col"}], "]"}], ",", "value"}], "]"}]}], ",", RowBox[{ RowBox[{"smallframed", "[", RowBox[{"a_", ",", "col_"}], "]"}], "\[RuleDelayed]", RowBox[{"Framed", "[", RowBox[{"a", ",", RowBox[{"FrameMargins", "\[Rule]", "0"}], ",", RowBox[{"RoundingRadius", "\[Rule]", "4"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"col", ",", "0.4"}], "]"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", "None"}]}], "]"}]}], ",", RowBox[{ RowBox[{"framed", "[", RowBox[{"a_", ",", "col_"}], "]"}], "\[RuleDelayed]", RowBox[{"Framed", "[", RowBox[{"a", ",", RowBox[{"FrameMargins", "\[Rule]", "2"}], ",", RowBox[{"RoundingRadius", "\[Rule]", "6"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"col", ",", "0.4"}], "]"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", "None"}]}], "]"}]}], ",", RowBox[{ RowBox[{"bigframed", "[", RowBox[{"a_", ",", "col_"}], "]"}], "\[RuleDelayed]", RowBox[{"Framed", "[", RowBox[{"a", ",", RowBox[{"FrameMargins", "\[Rule]", "3"}], ",", RowBox[{"RoundingRadius", "\[Rule]", "6"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"col", ",", "0.4"}], "]"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", "None"}]}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\n", "\t", RowBox[{"$colorinc", "=", "0"}], ";", "\n", "\t", RowBox[{ RowBox[{"toCol", "[", RowBox[{"n_Integer", ",", "ind_"}], "]"}], ":=", RowBox[{"$colors", "[", RowBox[{"[", RowBox[{"Mod", "[", RowBox[{"n", ",", RowBox[{"Length", "[", "$colors", "]"}], ",", "1"}], "]"}], "]"}], "]"}]}], ";", "\n", "\t", RowBox[{ RowBox[{"toCol", "[", RowBox[{"r_RGBColor", ",", "ind_"}], "]"}], ":=", "r"}], ";", " ", RowBox[{ RowBox[{"toCol", "[", RowBox[{"r_Hue", ",", "ind_"}], "]"}], ":=", "r"}], ";", "\n", "\t", RowBox[{ RowBox[{"toCol", "[", RowBox[{"Pattern", ",", "ind_"}], "]"}], ":=", RowBox[{"$colors", "[", RowBox[{"[", RowBox[{"Mod", "[", RowBox[{"ind", ",", RowBox[{"Length", "[", "$colors", "]"}], ",", "1"}], "]"}], "]"}], "]"}]}], ";", "\n", "\t", RowBox[{ RowBox[{"toCol", "[", RowBox[{"Automatic", ",", "ind_"}], "]"}], ":=", RowBox[{"$colors", "[", RowBox[{"[", RowBox[{"Mod", "[", RowBox[{ RowBox[{"$colorinc", "++"}], ",", RowBox[{"Length", "[", "$colors", "]"}], ",", "1"}], "]"}], "]"}], "]"}]}], ";", "\n", "\t", RowBox[{ RowBox[{"toCol", "[", RowBox[{"value_", ",", "ind_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"toCol", "[", RowBox[{"Pattern", ",", "ind"}], "]"}], ",", RowBox[{"Tooltip", "\[Rule]", "value"}]}], "}"}]}], ";", "\n", "\n", "\t", RowBox[{ RowBox[{"getPattern", "[", "r_RuleDelayed", "]"}], ":=", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"getPattern", "[", "r_Rule", "]"}], ":=", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"getPattern", "[", "p_", "]"}], ":=", "p"}], ";", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"toRule", "[", "r_Rule", "]"}], ":=", "r"}], ";", " ", RowBox[{ RowBox[{"toRule", "[", "r_RuleDelayed", "]"}], ":=", "r"}], ";", " ", RowBox[{ RowBox[{"toRule", "[", "r_", "]"}], ":=", RowBox[{"r", "\[Rule]", "Pattern"}]}], ";", "\n", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"MyReplacePart", "[", RowBox[{"x_", ",", RowBox[{ RowBox[{"{", "}"}], "\[Rule]", "y_"}]}], "]"}], ":=", "y"}], ";", " ", RowBox[{ RowBox[{"MyReplacePart", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"ReplacePart", "[", RowBox[{"x", ",", "y"}], "]"}]}], ";", "\[IndentingNewLine]", "\n", "\t", RowBox[{ RowBox[{"MyExtract", "[", RowBox[{"x_", ",", RowBox[{"{", "}"}]}], "]"}], ":=", "x"}], ";", " ", RowBox[{ RowBox[{"MyExtract", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"Extract", "[", RowBox[{"x", ",", "y"}], "]"}]}], ";", "\n", "\t", RowBox[{ RowBox[{"MyExtract", "[", RowBox[{"x_", ",", RowBox[{"{", "}"}], ",", "h_"}], "]"}], ":=", RowBox[{"h", "[", "x", "]"}]}], ";", " ", RowBox[{ RowBox[{"MyExtract", "[", RowBox[{"x_", ",", "y_", ",", "h_"}], "]"}], ":=", RowBox[{"Extract", "[", RowBox[{"x", ",", "y", ",", "h"}], "]"}]}], ";", "\n", "\t", RowBox[{ RowBox[{"ToList", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"{", "x", "}"}]}], ";", " ", RowBox[{ RowBox[{"ToList", "[", "x_List", "]"}], " ", ":=", " ", "x"}], ";", "\n", "\t", "\n", "\t", RowBox[{"patterns", "=", RowBox[{"ToList", "[", "patterns2", "]"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{"$colorinc", "=", "1"}], ";", " ", RowBox[{"level", "=", "level2"}], ";", "\[IndentingNewLine]", "\t", RowBox[{"positions", "=", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"expr", ",", RowBox[{"getPattern", "[", "#", "]"}], ",", "level", ",", RowBox[{"Heads", "\[Rule]", RowBox[{"OptionValue", "[", "Heads", "]"}]}]}], "]"}], "&"}], "/@", "patterns"}]}], ";", "\[IndentingNewLine]", "\t", "\n", "\t", RowBox[{"rules", "=", RowBox[{"toRule", "/@", "patterns"}]}], ";", "\[IndentingNewLine]", "\t", "\n", "\t", RowBox[{"colors", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"toCol", "[", RowBox[{ RowBox[{"Replace", "[", RowBox[{ RowBox[{"MyExtract", "[", RowBox[{"expr", ",", "p"}], "]"}], ",", RowBox[{"rules", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "rules", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"positions", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{"positions", "=", RowBox[{"Join", "@@", "positions"}]}], ";", " ", RowBox[{"colors", "=", RowBox[{"Join", "@@", "colors"}]}], ";", "\[IndentingNewLine]", "\t", "\n", "\t", RowBox[{"order", "=", RowBox[{"Reverse", "@", RowBox[{"Ordering", "[", RowBox[{"Length", "/@", "positions"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\t", "\n", "\t", RowBox[{"positions", "=", RowBox[{"positions", "[", RowBox[{"[", "order", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{"colors", "=", RowBox[{"colors", "[", RowBox[{"[", "order", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Fold", "[", RowBox[{ RowBox[{ RowBox[{"MyReplacePart", "[", RowBox[{"#1", ",", " ", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "\[Rule]", " ", RowBox[{"framed", "[", RowBox[{ RowBox[{"MyExtract", "[", RowBox[{"#1", ",", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", "HoldForm"}], "]"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "]"}], "&"}], ",", " ", "expr", ",", " ", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"positions", ",", "colors"}], "}"}], "]"}]}], "]"}], " ", "//.", " ", "$framerules"}], ")"}], " ", "//.", " ", "$framerules2"}]}]}], "\n", "]"}]}], ";"}], "\[IndentingNewLine]"}], "Code", CellLabel->"In[18]:=", CellID->318096152] }, Open ]], Cell["Documentation", "Section", CellTags->"Documentation", CellID->363488142], 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", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["pattern", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "displays ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with matching cases highlighted." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["pattern", "TI"], ",", StyleBox["levelspec", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "displays ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with matching cases highlighted on levels specified by ", Cell[BoxData[ StyleBox["levelspec", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "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", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[TextData[{ "Like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Cases", "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/Cases", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["HighlightCases"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes the option ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Heads", "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/Heads", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " (", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " by default) which specifies whether to match within expression heads." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7966435155692396`*^9, 3.7966435190802355`*^9}, { 3.7966443490868654`*^9, 3.7966443615635643`*^9}}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "Also like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Cases", "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/Cases", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the second argument can include ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Rule", "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/Rule", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["RuleDelayed", "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/RuleDelayed", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " expressions. The right-hand side of a rule indicates the styling used to \ highlight the corresponding matches." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7966435155692396`*^9, 3.7966435190802355`*^9}, { 3.7966443490868654`*^9, 3.796644474852356*^9}}, CellTags->"TabNext", CellID->498250390], Cell[TextData[{ "When specifing multiple patterns, use a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["List", "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/List", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to style matches with different colors and use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Alternatives", "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/Alternatives", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the same color." }], "Notes", CellID->758851823] }, 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", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], 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", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], 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", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], 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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Highlight cases in a list:", "Text", CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"Alphabet", "[", "]"}], ",", RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\""}]}], "]"}]], "Input", CellLabel->"In[188]:=", CellID->286753735], Cell[BoxData[ RowBox[{"{", RowBox[{ FrameBox[ TagBox["\<\"a\"\>", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "\<\"b\"\>", ",", "\<\"c\"\>", ",", "\<\"d\"\>", ",", FrameBox[ TagBox["\<\"e\"\>", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "\<\"f\"\>", ",", "\<\"g\"\>", ",", "\<\"h\"\>", ",", FrameBox[ TagBox["\<\"i\"\>", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "\<\"j\"\>", ",", "\<\"k\"\>", ",", "\<\"l\"\>", ",", "\<\"m\"\>", ",", "\<\"n\"\>", ",", FrameBox[ TagBox["\<\"o\"\>", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "\<\"p\"\>", ",", "\<\"q\"\>", ",", "\<\"r\"\>", ",", "\<\"s\"\>", ",", "\<\"t\"\>", ",", FrameBox[ TagBox["\<\"u\"\>", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "\<\"v\"\>", ",", "\<\"w\"\>", ",", "\<\"x\"\>", ",", "\<\"y\"\>", ",", "\<\"z\"\>"}], "}"}]], "Output", CellLabel->"Out[188]=", CellID->1681900918] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->333432034], Cell["\<\ Use a list of patterns to style matching cases with multiple colors:\ \>", "Text", CellID->986230080], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"Range", "[", "20", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7", ",", RowBox[{"11", "|", "12"}], ",", "17"}], "}"}]}], "]"}], " "}]], "Input",\ CellLabel->"In[187]:=", CellID->831702844], Cell[BoxData[ RowBox[{"{", RowBox[{ FrameBox[ TagBox["1", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "2", ",", "3", ",", FrameBox[ TagBox["4", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "5", ",", "6", ",", FrameBox[ TagBox["7", HoldForm], Background->RGBColor[0.6327999999999999, 1., 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "8", ",", "9", ",", "10", ",", FrameBox[ TagBox["11", HoldForm], Background->RGBColor[0.46, 0.7408000000000002, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["12", HoldForm], Background->RGBColor[0.46, 0.7408000000000002, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "13", ",", "14", ",", "15", ",", "16", ",", FrameBox[ TagBox["17", HoldForm], Background->RGBColor[0.5679999999999996, 0.46, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ CellLabel->"Out[187]=", CellID->69485670] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->2043109337], Cell["Highlight all the primes:", "Text", CellID->1290167014], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Multicolumn", "[", RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"Range", "[", "49", "]"}], ",", RowBox[{ RowBox[{"n_Integer", "?", "PrimeQ"}], "->", "LightBlue"}]}], "]"}], "]"}]], "Input", CellLabel->"In[190]:=", CellID->1056864412], Cell[BoxData[ TagBox[GridBox[{ {"1", "8", "15", "22", FrameBox[ TagBox["29", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "36", FrameBox[ TagBox["43", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}, { FrameBox[ TagBox["2", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "9", "16", FrameBox[ TagBox["23", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "30", FrameBox[ TagBox["37", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "44"}, { FrameBox[ TagBox["3", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "10", FrameBox[ TagBox["17", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "24", FrameBox[ TagBox["31", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "38", "45"}, {"4", FrameBox[ TagBox["11", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "18", "25", "32", "39", "46"}, { FrameBox[ TagBox["5", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "12", FrameBox[ TagBox["19", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "26", "33", "40", FrameBox[ TagBox["47", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}, {"6", FrameBox[ TagBox["13", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "20", "27", "34", FrameBox[ TagBox["41", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "48"}, { FrameBox[ TagBox["7", HoldForm], Background->RGBColor[0.922, 0.964, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "14", "21", "28", "35", "42", "49"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellLabel->"Out[190]=", CellID->551879819] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->18992638], Cell["Use delayed rules for custom highlight styles:", "Text", CellID->94375235], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"Range", "[", "7", "]"}], ",", RowBox[{"n_Integer", "\[RuleDelayed]", RowBox[{"Hue", "[", RowBox[{"n", "/", "7"}], "]"}]}]}], "]"}], " "}]], "Input", CellLabel->"In[180]:=", CellID->261365859], Cell[BoxData[ RowBox[{"{", RowBox[{ FrameBox[ TagBox["1", HoldForm], Background->RGBColor[1., 0.9142857142857143, 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["2", HoldForm], Background->RGBColor[0.5714285714285715, 1., 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["3", HoldForm], Background->RGBColor[0.4, 1., 0.7428571428571427], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["4", HoldForm], Background->RGBColor[0.4, 0.742857142857143, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["5", HoldForm], Background->RGBColor[0.5714285714285714, 0.4, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["6", HoldForm], Background->RGBColor[1., 0.4, 0.9142857142857146], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["7", HoldForm], Background->RGBColor[1., 0.4, 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}]], "Output", CellLabel->"Out[180]=", CellID->2070282336] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->139094347], Cell["Highlight heads in held expressions:", "Text", CellID->822371474], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"\[Pi]", "+", RowBox[{"\[ExponentialE]", "*", "\[ImaginaryI]"}], "+", RowBox[{"1", "*", RowBox[{"(", RowBox[{"2", "+", "3"}], ")"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"Plus", ",", "Times"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}]], "Input", CellLabel->"In[196]:=", CellID->1526078427], Cell[BoxData[ TagBox[ RowBox[{"\[Pi]", "+", RowBox[{ FrameBox[ TagBox["Times", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "[", RowBox[{"\[ExponentialE]", ",", "\[ImaginaryI]"}], "]"}], "+", RowBox[{ FrameBox[ TagBox["Times", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "[", RowBox[{"1", ",", RowBox[{ FrameBox[ TagBox["Plus", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], "[", RowBox[{"2", ",", "3"}], "]"}]}], "]"}]}], HoldForm]], "Output", CellLabel->"Out[196]=", CellID->1774963170] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["Highlight matching cases on specific levels:", "Text", CellID->1868886293], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", "1", "}"}], ",", "1"}], "}"}]}], "}"}], ",", "1", ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input", CellLabel->"In[159]:=", CellID->1957263157], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"{", RowBox[{ FrameBox[ TagBox["1", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", RowBox[{"{", "1", "}"}], ",", FrameBox[ TagBox["1", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}]}], "}"}]], "Output", CellLabel->"Out[159]=", CellID->1500901805] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1179247841], Cell["Use multiple highlight styles with overlapping patterns:", "Text", CellID->2100265106], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"_Integer", "\[Rule]", "Green"}], ",", RowBox[{ RowBox[{"{", RowBox[{"_", ",", "_"}], "}"}], "\[Rule]", "Blue"}]}], "}"}]}], "]"}], " "}]], "Input", CellLabel->"In[1313]:=", CellID->1762187263], Cell[BoxData[ RowBox[{"{", RowBox[{ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ FrameBox[ TagBox["1", HoldForm], Background->RGBColor[0.4, 1., 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["2", HoldForm], Background->RGBColor[0.4, 1., 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}], HoldForm], Background->RGBColor[0.4, 0.4, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox[ RowBox[{"{", RowBox[{ FrameBox[ TagBox["3", HoldForm], Background->RGBColor[0.4, 1., 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["4", HoldForm], Background->RGBColor[0.4, 1., 0.4], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}], HoldForm], Background->RGBColor[0.4, 0.4, 1.], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}]], "Output", CellLabel->"Out[1313]=", CellID->902587486] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1422824398], Cell[TextData[{ "Restrict ", Cell[BoxData["HighlightCases"], "InlineFormula", FontFamily->"Source Sans Pro"], " to match only on levels 0 to 1:" }], "Text", CellChangeTimes->{3.7966445087992764`*^9}, CellID->470915785], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", "3", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"_List", "\[Rule]", "Automatic"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]], "Input", CellLabel->"In[112]:=", CellID->1346684321], Cell[BoxData[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{"1", ",", FrameBox[ TagBox[ RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", "3", "}"}]}], "}"}], HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}], HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]], "Output", CellLabel->"Out[112]=", CellID->1681238130] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1415271910], Cell[TextData[{ "Restrict ", Cell[BoxData["HighlightCases"], "InlineFormula", FontFamily->"Source Sans Pro"], " to match only on level 2:" }], "Text", CellChangeTimes->{3.7966445254474535`*^9}, CellID->37758635], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"Range", "[", "25", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "3"}], "]"}], "\[Equal]", "0"}], "&"}], ")"}]}], ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", "5"}], "]"}], "\[Equal]", "0"}], "&"}], ")"}]}]}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[144]:=", CellID->1043442391], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", FrameBox[ TagBox["3", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "4", ",", FrameBox[ TagBox["5", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["6", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "7", ",", "8", ",", FrameBox[ TagBox["9", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["10", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "11", ",", FrameBox[ TagBox["12", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "13", ",", "14", ",", FrameBox[ TagBox[ FrameBox[ TagBox["15", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "16", ",", "17", ",", FrameBox[ TagBox["18", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "19", ",", FrameBox[ TagBox["20", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["21", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "22", ",", "23", ",", FrameBox[ TagBox["24", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["25", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}]], "Output", CellLabel->"Out[144]=", CellID->1021145759] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellChangeTimes->{{3.7966445918647614`*^9, 3.796644606619409*^9}}, CellID->438207052], Cell["\<\ Using a list of patterns in the second argument of HighlightCases will match \ each of the elements in the list: \ \>", "Text", CellChangeTimes->{{3.79664461208855*^9, 3.7966446752963533`*^9}}, CellID->722136146], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796644551426833*^9, 3.7966445792505155`*^9}, { 3.7966446777283587`*^9, 3.796644701097456*^9}}, CellLabel->"In[22]:=", CellID->66072564], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FrameBox[ TagBox["1", HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["2", HoldForm], Background->RGBColor[1., 0.8488, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", FrameBox[ TagBox["3", HoldForm], Background->RGBColor[0.6327999999999999, 1., 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False]}], "}"}], ",", RowBox[{"{", RowBox[{ FrameBox[ TagBox["3", HoldForm], Background->RGBColor[0.6327999999999999, 1., 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7966446829773474`*^9, 3.796644701821454*^9}}, CellLabel->"Out[22]=", CellID->39722435] }, Open ]], Cell["Use HoldPattern to treat the list as a single pattern:", "Text", CellChangeTimes->{{3.796644711536661*^9, 3.796644727495185*^9}}, CellID->542152740], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightCases", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"HoldPattern", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.796644735760188*^9, 3.7966447402298656`*^9}}, CellLabel->"In[23]:=", CellID->451662307], Cell[BoxData[ RowBox[{"{", RowBox[{ FrameBox[ TagBox[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], HoldForm], Background->RGBColor[1., 0.46, 0.46], FrameMargins->2, FrameStyle->None, RoundingRadius->6, StripOnInput->False], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7966447408008595`*^9}, CellLabel->"Out[23]=", CellID->306888884] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->348526984], 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", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell["Michael Sollami", "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", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell["highlight cases", "Item"], Cell["show matching cases", "Item"], Cell["pattern matching", "Item"], Cell["highlighting", "Item"], Cell["search", "Item"], Cell["find", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Programming Utilities", {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell"] }, 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", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell["Cases", "Item"], Cell["DeleteCases", "Item"], Cell["Highlighted", "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", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell["HighlightText", "Item"], Cell["SyntaxHighlight", "Item"], Cell["MapCases", "Item"], Cell["DeleteCasesFrom", "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", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], 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", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, 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", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], 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", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], 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 ]] }, TaggingRules->{ "CreationTimestamp" -> 3.796644968138451`16.331974976453193*^9, "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.796644968363463`16.331974976478932*^9, "TemplateVersion" -> "1.3.1"}, CreateCellID->True, FrontEndVersion->"12.1 for Linux x86 (64-bit) (March 4, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], 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.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, 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 :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 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.0444]], 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[{ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = 0., ResourceSystemClientTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ > ResourceSystemClientTools`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.9882, 0.4196, 0.2039], 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 :> { ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), 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.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], 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 :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TemplateInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], 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 :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ LiteralInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], 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 :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ DelimiterInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], 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 :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ SubscriptInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], 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 :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, Null]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[2]]; Null]]], "\"Insert table with three columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[3]]; Null]]], "\"Add a row to the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableRowInsert[]]; Null]]], "\"Sort the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableSort[]]; Null]]], "\"Merge selected tables\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableMerge[]]; Null]]]}, Appearance -> None, Method -> "Queued"], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ CommentInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, 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.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", 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"], ResourceSystemClient`DefinitionNotebook`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "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 -> 10, 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 -> 10, 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"], ResourceSystemClient`DefinitionNotebook`ToggleToolbar[ ButtonNotebook[]]& , "\"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.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Notebook"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"On the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Cloud"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "Local"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"For my cloud account\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"Publicly in the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPublic"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"In this session only (without documentation)\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "KernelSession"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (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.0635], 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.9608, 0.7059, 0.498, 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"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`\ SubmitRepositoryUpdate[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], 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.9608, 0.7059, 0.498, 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"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`SubmitRepository[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"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.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, 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", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$, If[ TrueQ[#4], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; #2[]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ""; Null], #2[]]]; Null]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], 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"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], 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, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.0556], 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:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, 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.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, 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[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]], {"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[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]], {"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"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, 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.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink"], TemplateBoxOptions -> {DisplayFunction :> (TagBox[ DynamicBox[ If[ CurrentValue["MouseOver"], ButtonBox[ StyleBox[#, FontColor -> RGBColor[0.9686, 0.4667, 0.]], ButtonData -> #2], ButtonBox[#, ButtonData -> #2]]], MouseAppearanceTag["LinkHand"]]& )}, ButtonBoxOptions -> { BaseStyle -> {FontColor -> GrayLevel[0.4667], "Link"}}], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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.9059]], 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.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.1 for Linux x86 (64-bit) (March 4, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[558, 20, 77, 1, 70, "Title",ExpressionUUID->"2129259a-cda2-4244-b1fa-45a8f35911b1", CellTags->{"Name", "TemplateCell", "Title"}]}, "TemplateCell"->{ Cell[558, 20, 77, 1, 70, "Title",ExpressionUUID->"2129259a-cda2-4244-b1fa-45a8f35911b1", CellTags->{"Name", "TemplateCell", "Title"}], Cell[638, 23, 113, 1, 70, "Text",ExpressionUUID->"348b9564-1d81-47ed-bf2c-b8584a5bbc4d", CellTags->{"Description", "TemplateCell"}]}, "Title"->{ Cell[558, 20, 77, 1, 70, "Title",ExpressionUUID->"2129259a-cda2-4244-b1fa-45a8f35911b1", CellTags->{"Name", "TemplateCell", "Title"}]}, "Description"->{ Cell[638, 23, 113, 1, 70, "Text",ExpressionUUID->"348b9564-1d81-47ed-bf2c-b8584a5bbc4d", CellTags->{"Description", "TemplateCell"}]}, "Definition"->{ Cell[776, 28, 946, 23, 70, "Section",ExpressionUUID->"2b7b8e91-d472-46d2-a8ad-d90d7db8cb0e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "Function"->{ Cell[776, 28, 946, 23, 70, "Section",ExpressionUUID->"2b7b8e91-d472-46d2-a8ad-d90d7db8cb0e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "TemplateCellGroup"->{ Cell[776, 28, 946, 23, 70, "Section",ExpressionUUID->"2b7b8e91-d472-46d2-a8ad-d90d7db8cb0e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[14405, 379, 1697, 44, 70, "Subsection",ExpressionUUID->"18e667cd-b24c-4d24-b51b-499378e7c862", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[17104, 469, 1187, 26, 70, "Subsection",ExpressionUUID->"52be4653-66e2-4ede-a178-2f526c9b79a2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[23850, 665, 6634, 145, 70, "Section",ExpressionUUID->"d0eb343c-d334-42be-b897-cafb306f29cf", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[53916, 1765, 756, 20, 70, "Subsection",ExpressionUUID->"5919df33-4518-438c-a290-913cfa8acb09", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[54743, 1792, 731, 20, 70, "Subsection",ExpressionUUID->"157221b1-bbd8-4381-9dcb-aff77ab11675", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[55697, 1829, 130, 3, 70, "Subsection",ExpressionUUID->"f47d7af9-476f-44d9-b3ed-31bdb5f90412", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[62043, 2047, 708, 20, 70, "Subsection",ExpressionUUID->"e86d73af-13e4-4979-864c-6cb5e1b05c04", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[62872, 2078, 758, 20, 70, "Subsection",ExpressionUUID->"68eeca08-06e3-497b-a091-1a4058963f4b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[63794, 2111, 809, 21, 70, "Subsection",ExpressionUUID->"34dde5ce-5831-44b5-95ad-ac857550049c", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[65139, 2147, 661, 20, 70, "Subsection",ExpressionUUID->"e54847da-4696-4768-8524-87ea6aa7d7f3", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[66325, 2182, 836, 22, 70, "Subsection",ExpressionUUID->"37f781c4-78af-404c-b6c7-480be10d5b7c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[67472, 2224, 131, 3, 70, "Section",ExpressionUUID->"ce928293-4a8a-48b3-8090-aa146997b269", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[68152, 2242, 766, 21, 70, "Section",ExpressionUUID->"b68284a1-9853-44cc-b59e-92935de3d348", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]}, "Documentation"->{ Cell[14300, 373, 80, 2, 70, "Section",ExpressionUUID->"e252c338-a5d9-4125-890a-f43dfe9b74a0", CellTags->"Documentation", CellID->363488142]}, "Usage"->{ Cell[14405, 379, 1697, 44, 70, "Subsection",ExpressionUUID->"18e667cd-b24c-4d24-b51b-499378e7c862", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351]}, "Details & Options"->{ Cell[17104, 469, 1187, 26, 70, "Subsection",ExpressionUUID->"52be4653-66e2-4ede-a178-2f526c9b79a2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "Notes"->{ Cell[17104, 469, 1187, 26, 70, "Subsection",ExpressionUUID->"52be4653-66e2-4ede-a178-2f526c9b79a2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "TabNext"->{ Cell[18294, 497, 2203, 63, 70, "Notes",ExpressionUUID->"d27ca87c-0595-4f27-a0c6-40b4dc4cb6a0", CellTags->"TabNext", CellID->521904482], Cell[20500, 562, 2188, 61, 70, "Notes",ExpressionUUID->"08c4aaa4-463b-4667-bc17-a160af132784", CellTags->"TabNext", CellID->498250390], Cell[64606, 2134, 496, 8, 70, "Text",ExpressionUUID->"f72b6d3b-f37f-4965-b597-bec2debdc6f9", CellTags->"TabNext", CellID->343081869], Cell[65803, 2169, 485, 8, 70, "Item",ExpressionUUID->"439c883c-92ad-446d-85c6-f42ea1b61047", CellTags->"TabNext", CellID->485448166], Cell[67606, 2229, 509, 8, 70, "Text",ExpressionUUID->"33bece21-58a1-44aa-bf35-58073772d220", CellTags->"TabNext", CellID->567921317], Cell[68921, 2265, 495, 8, 70, "Text",ExpressionUUID->"53305b48-a9ca-4ef5-a6f4-dc2a7193e1e2", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[23850, 665, 6634, 145, 70, "Section",ExpressionUUID->"d0eb343c-d334-42be-b897-cafb306f29cf", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095]}, "Source & Additional Information"->{ Cell[53775, 1759, 116, 2, 70, "Section",ExpressionUUID->"b1f5b257-f8bc-4903-a344-acd513f5bacc", CellTags->"Source & Additional Information", CellID->348526984]}, "Contributed By"->{ Cell[53916, 1765, 756, 20, 70, "Subsection",ExpressionUUID->"5919df33-4518-438c-a290-913cfa8acb09", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "ContributorInformation"->{ Cell[53916, 1765, 756, 20, 70, "Subsection",ExpressionUUID->"5919df33-4518-438c-a290-913cfa8acb09", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "Keywords"->{ Cell[54743, 1792, 731, 20, 70, "Subsection",ExpressionUUID->"157221b1-bbd8-4381-9dcb-aff77ab11675", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024]}, "Categories"->{ Cell[55697, 1829, 130, 3, 70, "Subsection",ExpressionUUID->"f47d7af9-476f-44d9-b3ed-31bdb5f90412", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210]}, "CategoriesCell"->{ Cell[55830, 1834, 6176, 208, 70, "Output",ExpressionUUID->"8d983104-45ec-43a3-bd49-95c61cec57d8", CellTags->"CategoriesCell"]}, "Related Symbols"->{ Cell[62043, 2047, 708, 20, 70, "Subsection",ExpressionUUID->"e86d73af-13e4-4979-864c-6cb5e1b05c04", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732]}, "Related Resource Objects"->{ Cell[62872, 2078, 758, 20, 70, "Subsection",ExpressionUUID->"68eeca08-06e3-497b-a091-1a4058963f4b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204]}, "Source/Reference Citation"->{ Cell[63794, 2111, 809, 21, 70, "Subsection",ExpressionUUID->"34dde5ce-5831-44b5-95ad-ac857550049c", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096]}, "Links"->{ Cell[65139, 2147, 661, 20, 70, "Subsection",ExpressionUUID->"e54847da-4696-4768-8524-87ea6aa7d7f3", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713]}, "Tests"->{ Cell[66325, 2182, 836, 22, 70, "Subsection",ExpressionUUID->"37f781c4-78af-404c-b6c7-480be10d5b7c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "VerificationTests"->{ Cell[66325, 2182, 836, 22, 70, "Subsection",ExpressionUUID->"37f781c4-78af-404c-b6c7-480be10d5b7c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "Author Notes"->{ Cell[67472, 2224, 131, 3, 70, "Section",ExpressionUUID->"ce928293-4a8a-48b3-8090-aa146997b269", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409]}, "Submission Notes"->{ Cell[68152, 2242, 766, 21, 70, "Section",ExpressionUUID->"b68284a1-9853-44cc-b59e-92935de3d348", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 155869, 3952}, {"TemplateCell", 156029, 3955}, {"Title", 156320, 3960}, {"Description", 156479, 3963}, {"Definition", 156635, 3966}, {"Function", 156831, 3970}, {"TemplateCellGroup", 157036, 3974}, {"Documentation", 159590, 4017}, {"Usage", 159752, 4021}, {"Details & Options", 159947, 4025}, {"Notes", 160150, 4029}, {"TabNext", 160355, 4033}, {"Examples", 161227, 4052}, {"Source & Additional Information", 161437, 4056}, {"Contributed By", 161628, 4060}, {"ContributorInformation", 161863, 4064}, {"Keywords", 162084, 4068}, {"Categories", 162275, 4072}, {"CategoriesCell", 162471, 4076}, {"Related Symbols", 162626, 4079}, {"Related Resource Objects", 162838, 4083}, {"Source/Reference Citation", 163060, 4087}, {"Links", 163263, 4091}, {"Tests", 163446, 4095}, {"VerificationTests", 163662, 4099}, {"Author Notes", 163873, 4103}, {"Submission Notes", 164070, 4107} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 77, 1, 70, "Title",ExpressionUUID->"2129259a-cda2-4244-b1fa-45a8f35911b1", CellTags->{"Name", "TemplateCell", "Title"}], Cell[638, 23, 113, 1, 70, "Text",ExpressionUUID->"348b9564-1d81-47ed-bf2c-b8584a5bbc4d", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[776, 28, 946, 23, 70, "Section",ExpressionUUID->"2b7b8e91-d472-46d2-a8ad-d90d7db8cb0e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[1725, 53, 12560, 317, 70, "Code",ExpressionUUID->"66521f3d-be3e-48ad-8708-c97816cd4cb2", CellID->318096152] }, Open ]], Cell[14300, 373, 80, 2, 70, "Section",ExpressionUUID->"e252c338-a5d9-4125-890a-f43dfe9b74a0", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[14405, 379, 1697, 44, 70, "Subsection",ExpressionUUID->"18e667cd-b24c-4d24-b51b-499378e7c862", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[16127, 427, 177, 5, 70, "UsageInputs",ExpressionUUID->"c51c65b9-c1e0-48ba-a106-91a8fb435760"], Cell[16307, 434, 183, 6, 70, "UsageDescription",ExpressionUUID->"bf995838-e77b-4263-bba5-10d57e16fc2d"] }, Open ]], Cell[CellGroupData[{ Cell[16527, 445, 215, 6, 70, "UsageInputs",ExpressionUUID->"f0f95c47-c38f-4303-8e74-9172b5d067b8"], Cell[16745, 453, 310, 10, 70, "UsageDescription",ExpressionUUID->"f3845aed-d7af-4ecc-8150-6b398840a7e3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17104, 469, 1187, 26, 70, "Subsection",ExpressionUUID->"52be4653-66e2-4ede-a178-2f526c9b79a2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[18294, 497, 2203, 63, 70, "Notes",ExpressionUUID->"d27ca87c-0595-4f27-a0c6-40b4dc4cb6a0", CellTags->"TabNext", CellID->521904482], Cell[20500, 562, 2188, 61, 70, "Notes",ExpressionUUID->"08c4aaa4-463b-4667-bc17-a160af132784", CellTags->"TabNext", CellID->498250390], Cell[22691, 625, 1122, 35, 70, "Notes",ExpressionUUID->"f3e892cb-2f83-4e20-84e4-849b8f91a058", CellID->758851823] }, Open ]], Cell[CellGroupData[{ Cell[23850, 665, 6634, 145, 70, "Section",ExpressionUUID->"d0eb343c-d334-42be-b897-cafb306f29cf", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell[30509, 814, 56, 1, 70, "Subsection",ExpressionUUID->"4624fd13-2b36-4ff2-889b-c85442a703ba", CellID->462042388], Cell[30568, 817, 61, 1, 70, "Text",ExpressionUUID->"77146873-fe21-4463-ad45-81b8fe0619d1", CellID->13078159], Cell[CellGroupData[{ Cell[30654, 822, 269, 8, 70, "Input",ExpressionUUID->"0cc393b7-654e-4f44-b449-1555a3b18b9c", CellID->286753735], Cell[30926, 832, 1462, 49, 70, "Output",ExpressionUUID->"9197139f-262c-42f8-b1a6-be024bf730d5", CellID->1681900918] }, Open ]], Cell[CellGroupData[{ Cell[32425, 886, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"9083566a-1cee-4718-aa08-caa7b9fe7b2d", CellID->333432034], Cell[32553, 891, 112, 3, 70, "Text",ExpressionUUID->"6b4fdd75-26dc-4715-bee4-421cce821b8c", CellID->986230080], Cell[CellGroupData[{ Cell[32690, 898, 303, 10, 70, "Input",ExpressionUUID->"60521b24-67b0-4ae0-8a72-6ebcb05daea2", CellID->831702844], Cell[32996, 910, 1418, 53, 70, "Output",ExpressionUUID->"4071f209-7470-4c0c-af68-3aeffc0e2fe6", CellID->69485670] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34463, 969, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"b8584c9d-7d49-49fc-91be-3039ca10cd93", CellID->2043109337], Cell[34592, 974, 62, 1, 70, "Text",ExpressionUUID->"1ec47b46-b39c-42b2-8eb6-065c5ed3902b", CellID->1290167014], Cell[CellGroupData[{ Cell[34679, 979, 286, 9, 70, "Input",ExpressionUUID->"46465625-2eba-49ad-b538-cb9b04ab954d", CellID->1056864412], Cell[34968, 990, 3493, 135, 70, "Output",ExpressionUUID->"f584ef00-fc31-4729-92e9-3186b7fcf3c1", CellID->551879819] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38510, 1131, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"2c1a8454-7204-4b7d-9668-76261b886120", CellID->18992638], Cell[38637, 1136, 81, 1, 70, "Text",ExpressionUUID->"f70dab3f-1460-4592-9d73-fb799386227c", CellID->94375235], Cell[CellGroupData[{ Cell[38743, 1141, 294, 9, 70, "Input",ExpressionUUID->"145c313c-53f4-46a6-8292-67e176b5c46d", CellID->261365859], Cell[39040, 1152, 1469, 60, 70, "Output",ExpressionUUID->"f8fc6b5c-505c-4799-b92f-3555b9d2833d", CellID->2070282336] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40558, 1218, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e5135331-4d75-4a2c-b79a-c1de59bcc181", CellID->139094347], Cell[40686, 1223, 72, 1, 70, "Text",ExpressionUUID->"5893dfda-8c9e-411d-9090-b6dde951b1d8", CellID->822371474], Cell[CellGroupData[{ Cell[40783, 1228, 464, 14, 70, "Input",ExpressionUUID->"b5fdf61e-3ce8-48ce-8038-7462478309a3", CellID->1526078427], Cell[41250, 1244, 905, 35, 70, "Output",ExpressionUUID->"350aca1f-1713-404b-81ba-f1ea9e0dcf83", CellID->1774963170] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42216, 1286, 47, 1, 70, "Subsection",ExpressionUUID->"f18b69c6-6ae4-463c-88ef-1061d2485792", CellID->964056545], Cell[42266, 1289, 81, 1, 70, "Text",ExpressionUUID->"9732041e-4c61-4e32-b6e2-a1b07eac494d", CellID->1868886293], Cell[CellGroupData[{ Cell[42372, 1294, 320, 10, 70, "Input",ExpressionUUID->"7c50f5ae-546c-49c2-97f5-0154fcc0b1ec", CellID->1957263157], Cell[42695, 1306, 596, 23, 70, "Output",ExpressionUUID->"45c2a2d7-fc23-4d04-9b98-a8596f52ab4e", CellID->1500901805] }, Open ]], Cell[CellGroupData[{ Cell[43328, 1334, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"f8c5fa36-4e52-4ead-9da0-98622e11dced", CellID->1179247841], Cell[43457, 1339, 93, 1, 70, "Text",ExpressionUUID->"e89519e7-a7d5-40b4-a532-c295b8cd15d4", CellID->2100265106], Cell[CellGroupData[{ Cell[43575, 1344, 509, 18, 70, "Input",ExpressionUUID->"b9631d44-a2f1-479a-b3bd-98f8bf293c54", CellID->1762187263], Cell[44087, 1364, 1391, 56, 70, "Output",ExpressionUUID->"2bb7a03a-47f0-4578-8d31-e097742e2c3f", CellID->902587486] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45527, 1426, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"baee9834-a035-401b-8841-b1a2e1ccaf0e", CellID->1422824398], Cell[45656, 1431, 225, 7, 70, "Text",ExpressionUUID->"3e6cbf6b-4815-4054-b4ae-0c7aead7e1d6", CellID->470915785], Cell[CellGroupData[{ Cell[45906, 1442, 367, 12, 70, "Input",ExpressionUUID->"c711dfd4-c0ba-4a5f-b665-b414d3446a1b", CellID->1346684321], Cell[46276, 1456, 562, 23, 70, "Output",ExpressionUUID->"bea02d90-c387-4f12-a58f-29b7e2855522", CellID->1681238130] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46887, 1485, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"025fd75d-7633-4634-9452-693cf8aaf165", CellID->1415271910], Cell[47016, 1490, 218, 7, 70, "Text",ExpressionUUID->"b3d90459-0008-42a5-89d9-61bc59c9e7a8", CellID->37758635], Cell[CellGroupData[{ Cell[47259, 1501, 629, 22, 70, "Input",ExpressionUUID->"f53fbe04-3e38-44b3-8de3-d22d72f99e04", CellID->1043442391], Cell[47891, 1525, 2666, 108, 70, "Output",ExpressionUUID->"1569e761-ddb7-4238-b49b-dfb50eeaffdb", CellID->1021145759] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50618, 1640, 125, 2, 70, "Subsection",ExpressionUUID->"acde5273-2e3c-42e5-b10d-0af3ad5283d2", CellID->438207052], Cell[50746, 1644, 224, 5, 70, "Text",ExpressionUUID->"a0dbb2cc-de05-4b9a-9e8f-5e144b7d0116", CellID->722136146], Cell[CellGroupData[{ Cell[50995, 1653, 486, 14, 70, "Input",ExpressionUUID->"78740cce-f534-4402-adff-9d613fc7300c", CellID->66072564], Cell[51484, 1669, 1096, 41, 70, "Output",ExpressionUUID->"08f99ba6-aea4-4371-b567-f779f0c8aa1c", CellID->39722435] }, Open ]], Cell[52595, 1713, 156, 2, 70, "Text",ExpressionUUID->"23d704ba-56a1-444a-b186-f423cfd26bba", CellID->542152740], Cell[CellGroupData[{ Cell[52776, 1719, 477, 14, 70, "Input",ExpressionUUID->"c76292d0-5afb-4fc1-892d-dd524621b873", CellID->451662307], Cell[53256, 1735, 458, 17, 70, "Output",ExpressionUUID->"fc7a4615-874b-47b5-bb2b-6d9a5dcbc1dc", CellID->306888884] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53775, 1759, 116, 2, 70, "Section",ExpressionUUID->"b1f5b257-f8bc-4903-a344-acd513f5bacc", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[53916, 1765, 756, 20, 70, "Subsection",ExpressionUUID->"5919df33-4518-438c-a290-913cfa8acb09", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[54675, 1787, 31, 0, 70, "Text",ExpressionUUID->"efdcead5-28a1-4913-876d-7601e8839a46"] }, Open ]], Cell[CellGroupData[{ Cell[54743, 1792, 731, 20, 70, "Subsection",ExpressionUUID->"157221b1-bbd8-4381-9dcb-aff77ab11675", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[55477, 1814, 31, 0, 70, "Item",ExpressionUUID->"f0152549-4874-43d2-b111-433063f91b0a"], Cell[55511, 1816, 35, 0, 70, "Item",ExpressionUUID->"103dd69a-583a-40f4-9ccf-39d153068f12"], Cell[55549, 1818, 32, 0, 70, "Item",ExpressionUUID->"a070628b-476c-436b-ac3c-482e4cbc3781"], Cell[55584, 1820, 28, 0, 70, "Item",ExpressionUUID->"8f54ec2b-e1fe-4769-b483-dad33b242680"], Cell[55615, 1822, 22, 0, 70, "Item",ExpressionUUID->"3647761c-8de7-42c8-9e92-08884ad38616"], Cell[55640, 1824, 20, 0, 70, "Item",ExpressionUUID->"cd427ecf-61eb-41c5-b4eb-c03bfe404c3c"] }, Open ]], Cell[CellGroupData[{ Cell[55697, 1829, 130, 3, 70, "Subsection",ExpressionUUID->"f47d7af9-476f-44d9-b3ed-31bdb5f90412", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[55830, 1834, 6176, 208, 70, "Output",ExpressionUUID->"8d983104-45ec-43a3-bd49-95c61cec57d8", CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[62043, 2047, 708, 20, 70, "Subsection",ExpressionUUID->"e86d73af-13e4-4979-864c-6cb5e1b05c04", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[62754, 2069, 21, 0, 70, "Item",ExpressionUUID->"d25cd572-3862-48fd-b6dc-de2bc1af8245"], Cell[62778, 2071, 27, 0, 70, "Item",ExpressionUUID->"162d7f3c-de37-4510-84b8-3e0c01de02a2"], Cell[62808, 2073, 27, 0, 70, "Item",ExpressionUUID->"4ba24b6e-cab0-4c86-b710-5d8a8d238d8d"] }, Open ]], Cell[CellGroupData[{ Cell[62872, 2078, 758, 20, 70, "Subsection",ExpressionUUID->"68eeca08-06e3-497b-a091-1a4058963f4b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[63633, 2100, 29, 0, 70, "Item",ExpressionUUID->"86fedacf-a5ea-4e66-95bc-d2d6728eddcb"], Cell[63665, 2102, 31, 0, 70, "Item",ExpressionUUID->"355e41a2-7c0c-4982-9e0e-024d04dda587"], Cell[63699, 2104, 24, 0, 70, "Item",ExpressionUUID->"006cdbb4-9f27-4d7d-bdec-3128ea59acba"], Cell[63726, 2106, 31, 0, 70, "Item",ExpressionUUID->"9dd2ebe4-3c0a-4a43-89de-db455418ee5c"] }, Open ]], Cell[CellGroupData[{ Cell[63794, 2111, 809, 21, 70, "Subsection",ExpressionUUID->"34dde5ce-5831-44b5-95ad-ac857550049c", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[64606, 2134, 496, 8, 70, "Text",ExpressionUUID->"f72b6d3b-f37f-4965-b597-bec2debdc6f9", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[65139, 2147, 661, 20, 70, "Subsection",ExpressionUUID->"e54847da-4696-4768-8524-87ea6aa7d7f3", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[65803, 2169, 485, 8, 70, "Item",ExpressionUUID->"439c883c-92ad-446d-85c6-f42ea1b61047", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[66325, 2182, 836, 22, 70, "Subsection",ExpressionUUID->"37f781c4-78af-404c-b6c7-480be10d5b7c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[67186, 2208, 129, 4, 70, "Input",ExpressionUUID->"dd4df27e-a3f2-46ef-ab97-9d2645c07a28", CellID->667877521], Cell[67318, 2214, 93, 3, 70, "Output",ExpressionUUID->"c457e441-79b1-4151-bdd2-364f2d867851", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[67472, 2224, 131, 3, 70, "Section",ExpressionUUID->"ce928293-4a8a-48b3-8090-aa146997b269", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[67606, 2229, 509, 8, 70, "Text",ExpressionUUID->"33bece21-58a1-44aa-bf35-58073772d220", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[68152, 2242, 766, 21, 70, "Section",ExpressionUUID->"b68284a1-9853-44cc-b59e-92935de3d348", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell[68921, 2265, 495, 8, 70, "Text",ExpressionUUID->"53305b48-a9ca-4ef5-a6f4-dc2a7193e1e2", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)