(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 287184, 6600] NotebookOptionsPosition[ 157479, 4078] NotebookOutlinePosition[ 271328, 6257] CellTagsIndexPosition[ 270377, 6226] WindowTitle->AntidiagonalMatrix | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["AntidiagonalMatrix", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->353808818], Cell["Creates an antidiagonal matrix by given the antidiagonal", "Text", CellTags->{"Description", "TemplateCell"}, CellID->513170333], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[BoxData[{ RowBox[{"ClearAll", "[", "AntidiagonalMatrix", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"list", ":", RowBox[{"(", RowBox[{"_List", "|", "_SparseArray"}], ")"}]}], "]"}], ":=", RowBox[{"AntidiagonalMatrix", "[", RowBox[{"list", ",", "0"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"list", ":", RowBox[{"(", RowBox[{"_List", "|", "_SparseArray"}], ")"}]}], ",", "k_Integer"}], "]"}], ":=", RowBox[{"Reverse", "[", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{"list", ",", "k"}], "]"}], ",", "2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"list", ":", RowBox[{"(", RowBox[{"_List", "|", "_SparseArray"}], ")"}]}], ",", "k_Integer", ",", "n_Integer"}], "]"}], ":=", RowBox[{"AntidiagonalMatrix", "[", RowBox[{"list", ",", "k", ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"list", ":", RowBox[{"(", RowBox[{"_List", "|", "_SparseArray"}], ")"}]}], ",", "k_Integer", ",", RowBox[{"mn", ":", RowBox[{"{", RowBox[{"m_Integer", ",", "n_Integer"}], "}"}]}]}], "]"}], ":=", RowBox[{"Reverse", "[", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{"list", ",", "k", ",", "mn"}], "]"}], ",", "2"}], "]"}]}]}], "Input", 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.770575700535182*^9, 3.770575930637762*^9}, { 3.770576286334819*^9, 3.770576298587427*^9}, {3.770576385118814*^9, 3.770576400579615*^9}, {3.770576480460575*^9, 3.770576482881938*^9}}, CellTags->"TabNext", CellLabel->"In[87]:=", CellID->767882163] }, Open ]], Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AntidiagonalMatrix", "[", StyleBox["list", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->682744844], Cell[TextData[{ "gives a matrix with the elements of ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " on the leading antidiagonal, and ", Cell[BoxData["0"], "InlineFormula", FontFamily->"Source Sans Pro"], " elsewhere. " }], "UsageDescription", CellID->309554578] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["k", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->395833954], Cell[TextData[{ "gives a matrix with the elements of ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " on the ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Null]", "th"], TraditionalForm]]], " antidiagonal." }], "UsageDescription", CellID->618508419] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["k", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->657796956], Cell[TextData[{ "pads with ", Cell[BoxData["0"], "InlineFormula", FontFamily->"Source Sans Pro"], "s to create an ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "\[Times]", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " matrix." }], "UsageDescription", CellID->434732144] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[TextData[{ Cell[BoxData["AntidiagonalMatrix"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "] creates a matrix where the antidiagonal is given by the elements ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " of ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":\[LineSeparator]", Cell[BoxData[ GraphicsBox[{ {Thickness[0.01], {{InsetBox[ StyleBox[ SubscriptBox["\<\"x\"\>", "4"], StripOnInput->False, FontSize->12, FontColor->Hue[0.6, 0.59, 0.9], $CellContext`LineColor -> Hue[0.6, 0.59, 0.9], $CellContext`FrontFaceColor -> Hue[0.6, 0.59, 0.9], $CellContext`GraphicsColor -> Hue[0.6, 0.59, 0.9], $CellContext`BackFaceColor -> Hue[0.6, 0.59, 0.9]], {1, 1}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {1, 2}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {1, 3}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {1, 4}]}, {InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {2, 1}], InsetBox[ StyleBox[ SubscriptBox["\<\"x\"\>", "3"], StripOnInput->False, FontSize->12, FontColor->Hue[0.6, 0.59, 0.9], $CellContext`LineColor -> Hue[0.6, 0.59, 0.9], $CellContext`FrontFaceColor -> Hue[0.6, 0.59, 0.9], $CellContext`GraphicsColor -> Hue[0.6, 0.59, 0.9], $CellContext`BackFaceColor -> Hue[0.6, 0.59, 0.9]], {2, 2}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {2, 3}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {2, 4}]}, {InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {3, 1}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {3, 2}], InsetBox[ StyleBox[ SubscriptBox["\<\"x\"\>", "2"], StripOnInput->False, FontSize->12, FontColor->Hue[0.6, 0.59, 0.9], $CellContext`LineColor -> Hue[0.6, 0.59, 0.9], $CellContext`FrontFaceColor -> Hue[0.6, 0.59, 0.9], $CellContext`GraphicsColor -> Hue[0.6, 0.59, 0.9], $CellContext`BackFaceColor -> Hue[0.6, 0.59, 0.9]], {3, 3}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {3, 4}]}, {InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {4, 1}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {4, 2}], InsetBox[ StyleBox["0", StripOnInput->False, FontSize->12, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], {4, 3}], InsetBox[ StyleBox[ SubscriptBox["\<\"x\"\>", "1"], StripOnInput->False, FontSize->12, FontColor->Hue[0.6, 0.59, 0.9], $CellContext`LineColor -> Hue[0.6, 0.59, 0.9], $CellContext`FrontFaceColor -> Hue[0.6, 0.59, 0.9], $CellContext`GraphicsColor -> Hue[0.6, 0.59, 0.9], $CellContext`BackFaceColor -> Hue[0.6, 0.59, 0.9]], {4, 4}]}}, { LineBox[{{0.5, 0.25}, {0, 0.25}, {0, 4.75}, {0.5, 4.75}}], LineBox[{{4.5, 0.25}, {5, 0.25}, {5, 4.75}, {4.5, 4.75}}]}}, {Hue[0.6, 0.59, 0.9], Thickness[0.02], Arrowheads[0.2], ArrowBox[{{4, 4}, {0.8, 0.8}}]}}, ImageSize->115]]] }], "Notes", CellID->180717616], Cell[TextData[{ "For positive ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["AntidiagonalMatrix"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "] puts the elements ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " positions above the main antidiagonal. ", Cell[BoxData["AntidiagonalMatrix"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ RowBox[{"-", StyleBox["k", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], "] puts the elements ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " positions below." }], "Notes", CellTags->"TabNext", CellID->956387052], Cell[TextData[{ "AntidiagonalMatrix[", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "] fills the ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], Cell[BoxData[ FormBox[ SuperscriptBox["\[Null]", "th"], TraditionalForm]]], " antidiagonal of a square matrix with the elements from ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". Different values of ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " lead to different matrix dimensions." }], "Notes", CellID->641071683], Cell[TextData[{ Cell[BoxData["AntidiagonalMatrix"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "] always creates an ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "\[Times]", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " matrix, even if this requires dropping elements of ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ".", ButtonBox["\[NonBreakingSpace]", BaseStyle->"ExampleLink", ButtonData->6490164] }], "Notes", CellID->103192569], Cell[TextData[{ "AntidiagonalMatrix[", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",{", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "}] creates an ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "\[Times]", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " matrix." }], "Notes", CellID->229061181], Cell[TextData[{ Cell[BoxData["AntidiagonalMatrix"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "[\[Ellipsis]],\[Ellipsis]] gives a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object." }], "Notes", CellID->723292781] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Construct an antidiagonal matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.770576374185335*^9, 3.7705763778447742`*^9}}, CellID->530504084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.770576370053994*^9, 3.770576406929739*^9}}, CellLabel->"In[92]:=", CellID->129381641], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "a"}, {"0", "b", "0"}, {"c", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.770576370512373*^9, 3.7705764074127827`*^9}, 3.7707508261774473`*^9}, CellLabel->"Out[92]//MatrixForm=", CellID->731721670] }, Open ]], Cell["A super-antidiagonal matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7705764176226597`*^9, 3.770576418030184*^9}, 3.770750829645795*^9}, CellID->653001724], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "1"}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576420502077*^9}, CellLabel->"In[95]:=", CellID->297390387], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "a", "0"}, {"b", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7705764215407257`*^9, 3.770576489962914*^9, {3.770750827622342*^9, 3.770750834706682*^9}}, CellLabel->"Out[95]//MatrixForm=", CellID->483682086] }, Open ]], Cell["A sub-antidiagonal matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7705765018086243`*^9, 3.7705765022377996`*^9}, 3.770750831642706*^9}, CellID->876625481], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576506609159*^9}, CellLabel->"In[94]:=", CellID->111594048], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "a"}, {"0", "b", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.770576507011326*^9, 3.770750832721941*^9}, CellLabel->"Out[94]//MatrixForm=", CellID->203490235] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ The elements in AntidiagonalMatrix are chosen to match the elements of the \ vector:\ \>", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[507153]}, CellChangeTimes->{{3.7705765523590937`*^9, 3.77057655847285*^9}}, CellID->896680288], Cell[BoxData[ RowBox[{ RowBox[{"v", " ", "=", " ", RowBox[{"1", "/", RowBox[{"Range", "[", "3", "]"}]}]}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[96]:=", CellID->953533578], Cell["Exact number entries:", "Text", TaggingRules->{}, CellID->109187608], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", "v", "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576563544878*^9}, CellLabel->"In[97]:=", CellID->423031866], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", FractionBox["1", "2"], "0"}, { FractionBox["1", "3"], "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.770576563970614*^9, 3.7707508380703707`*^9}, CellLabel->"Out[97]//MatrixForm=", CellID->779785379] }, Open ]], Cell["Machine-number entries:", "Text", TaggingRules->{}, CellID->771840398], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"N", "[", "v", "]"}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576566578092*^9}, CellLabel->"In[98]:=", CellID->835054669], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", "1.`"}, {"0.`", "0.5`", "0.`"}, {"0.3333333333333333`", "0.`", "0.`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.77057656709662*^9, 3.770750839295144*^9}, CellLabel->"Out[98]//MatrixForm=", CellID->754792446] }, Open ]], Cell["Arbitrary-precision number entries:", "Text", TaggingRules->{}, CellID->310962671], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"N", "[", RowBox[{"v", ",", "20"}], "]"}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7705765688509808`*^9}, CellLabel->"In[99]:=", CellID->176219064], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1.`20."}, {"0", "0.5`20.", "0"}, {"0.33333333333333333333333333333333333333`20.", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7705765692459307`*^9, 3.7707508429863977`*^9}, CellLabel->"Out[99]//MatrixForm=", CellID->639192069] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "When the vector is a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object, ", Cell[BoxData["AntidiagonalMatrix"], "InlineFormula", FontFamily->"Source Sans Pro"], " will give a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object:" }], "Text", TaggingRules->{}, CellFrameLabels->{{None, None}, {None, None}}, CellChangeTimes->{{3.770576582430368*^9, 3.770576590879511*^9}}, CellID->345180536], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", " ", "=", " ", RowBox[{"SparseArray", "[", RowBox[{"Range", "[", "100", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[100]:=", CellID->223247072], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJwBbQKS/SFib1JlAwAAAAEAAAAZAAAAAwAAADn/PIgRh84/+nLYKTte1j8B sEQXMfXqP8n4sC7vAs8/4sW0AqIX2D9JS5G0gFHrP1ryJNXMfs8/yRiR2wjR 2T+R5t1R0K3rP+rrmHuq+s8/sWtttG+K2z/ZgSrvHwrsP71yBhFEO9A/lr5J jdZD3T8gHXeMb2bsP4VvQOQyedA/fhEmZj393j9ouMMpv8LsP01sercht9A/ MjKBH1Jb4D+wUxDHDh/tPxVptIoQ9dA/plvviwU44T/47lxkXnvtP91l7l3/ MtE/GoVd+LgU4j9AiqkBrtftP6ViKDHucNE/jq7LZGzx4j+IJfae/TPuP21f YgTdrtE/ANg50R/O4z/PwEI8TZDuPzVcnNfL7NE/cgGoPdOq5D8WXI/ZnOzu P8+IqDDqF9M/jaD9MWN05T95fyxaWSrvPwnqd421ntU/fm62UeUh5j9APIeS RDvvP0JLR+qAJdg/bzxvcWfP5j8G+eHKL0zvP3isFkdMrNo/YAookel85z/N tTwDG13vP7IN5qMXM90/UdjgsGsq6D+Ucpc7Bm7vP+dutQDjud8/QaaZ0O3X 6D9aL/Jz8X7vPxBowi5XIOE/MnRS8G+F6T8h7Eys3I/vP60YKt28Y+I/JEIL EPIy6j/oqKfkx6DvP0jJkYsip+M/FBDEL3Tg6j+uZQIds7HvP+R5+TmI6uQ/ Bd58T/aN6z91Il1VnsLvP4IqYejtLeY/9qs1b3g77D8837eNidPvPxzbyJZT cec/53nujvro7D8CnBLGdOTvP7mLMEW5tOg/2EenrnyW7T/JWG3+X/XvP4UA N7U= "], {{0, 0}, {25, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["100", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "100", "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJwBbQKS/SFib1JlAwAAAAEAAAAZAAAAAwAAADn/PIgRh84/+nLYKTte1j8B sEQXMfXqP8n4sC7vAs8/4sW0AqIX2D9JS5G0gFHrP1ryJNXMfs8/yRiR2wjR 2T+R5t1R0K3rP+rrmHuq+s8/sWtttG+K2z/ZgSrvHwrsP71yBhFEO9A/lr5J jdZD3T8gHXeMb2bsP4VvQOQyedA/fhEmZj393j9ouMMpv8LsP01sercht9A/ MjKBH1Jb4D+wUxDHDh/tPxVptIoQ9dA/plvviwU44T/47lxkXnvtP91l7l3/ MtE/GoVd+LgU4j9AiqkBrtftP6ViKDHucNE/jq7LZGzx4j+IJfae/TPuP21f YgTdrtE/ANg50R/O4z/PwEI8TZDuPzVcnNfL7NE/cgGoPdOq5D8WXI/ZnOzu P8+IqDDqF9M/jaD9MWN05T95fyxaWSrvPwnqd421ntU/fm62UeUh5j9APIeS RDvvP0JLR+qAJdg/bzxvcWfP5j8G+eHKL0zvP3isFkdMrNo/YAookel85z/N tTwDG13vP7IN5qMXM90/UdjgsGsq6D+Ucpc7Bm7vP+dutQDjud8/QaaZ0O3X 6D9aL/Jz8X7vPxBowi5XIOE/MnRS8G+F6T8h7Eys3I/vP60YKt28Y+I/JEIL EPIy6j/oqKfkx6DvP0jJkYsip+M/FBDEL3Tg6j+uZQIds7HvP+R5+TmI6uQ/ Bd58T/aN6z91Il1VnsLvP4IqYejtLeY/9qs1b3g77D8837eNidPvPxzbyJZT cec/53nujvro7D8CnBLGdOTvP7mLMEW5tOg/2EenrnyW7T/JWG3+X/XvP4UA N7U= "], {{0, 0}, {25, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["100", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "100", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1.`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", StyleBox[ PaneBox[ "3", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", StyleBox[ PaneBox[ "4", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { ItemBox[ "\"\[VerticalEllipsis]\"", Alignment -> Center, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SparseArray[ Automatic, {100}, 0, { 1, {{0, 100}, {{1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10}, {11}, { 12}, {13}, {14}, {15}, {16}, {17}, {18}, {19}, {20}, {21}, {22}, {23}, { 24}, {25}, {26}, {27}, {28}, {29}, {30}, {31}, {32}, {33}, {34}, {35}, { 36}, {37}, {38}, {39}, {40}, {41}, {42}, {43}, {44}, {45}, {46}, {47}, { 48}, {49}, {50}, {51}, {52}, {53}, {54}, {55}, {56}, {57}, {58}, {59}, { 60}, {61}, {62}, {63}, {64}, {65}, {66}, {67}, {68}, {69}, {70}, {71}, { 72}, {73}, {74}, {75}, {76}, {77}, {78}, {79}, {80}, {81}, {82}, {83}, { 84}, {85}, {86}, {87}, {88}, {89}, {90}, {91}, {92}, {93}, {94}, {95}, { 96}, {97}, {98}, {99}, {100}}}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.770576593283537*^9, 3.770750844630928*^9}, CellLabel->"Out[100]=", CellID->762193384] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AntidiagonalMatrix", "[", "v", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576595767707*^9}, CellLabel->"In[101]:=", CellID->95988876], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJzt0vsv1XEcx/GDWGm1owldjGM0zsrlmJXOsbekybB2WKtwKLc0l5OThtiJ NiM6dFrTZWamhcTZUUdY1+kiKeecCUc6rsc5x9dxTmwMm7S2/oP22czeP7y3 9x4/vX54MhL4kckWNBptz7/7+3eWe5/olOlBFdIgKaiag56zGb/jF01wNOdl 3EOXPqj2rZMdXv4O+jrGFLeJQkf/L98/8rkqKksHujxjxareAObVuz5la7A3 dDJ+g3lBP3dIC0tP/fi5bANwxtpFN/uxN3Qyrslb8S+lNGA5WnBqSTQLV114 p2u6sDd0Mn6yR1zu0jAFtvQPXtnjFEiSzR2ft2Jv6GS8xYGpfpU4Ca5B2+kL LAr0jQ2a7lrsDZ2M01O7PM84TwArO/IXv3gGGIbw5p+V2Bs6GddlttGmOsfg WP0DxdyQHqK9Fq7MC7E3dDL+bIf2kb2vGriqcWkaUw93BffYVpnYGzoZz222 Cwlv/gHnrd3FMwU6+NbGsdjHw97QyXhQWAhV6KYCPoefdVGuBauViS9e4dgb OhnfRuWI2moGQJj5gjvN0EIgp+ROMBt7Qyfj8tJGb8q+H0S1az6J2dOQd/1g 9Dkm9oZOxv1iq4d6DUoQmDUG9DdpwC62crjaYNxwO9E3h2fEJ2xRS5RAU/kr nfqmQP4uiBNxG3tDJ+OPE9x9jJeVUCHpTUqfn4RSt6WaNV/sDZ2Mq5ONvHWW EvYW85Y7bCchsOyJmWRobsPtRN8cvvuSrIy+qID6GFO55ZEJWDbGJsXlY2/o ZDwi/Vo7o10BLFaRU2TMOEij6N07nbA3dDJezA/UsPIUILQ5kBKwNgqpHe89 3nYZNtxO9M3hrwVWNsFsBVS9CRUNHleDs2POLX4K9oZOxqnZ+/lNq3JoTcuQ 8ctGYLiIaXKyxt7QyXj0guvAV6EcehzEI1uVwyDWqrmKltkNtxN9c3jPstTT ZC6HyY8y8zp7FYSGiWWFXOwNnYz7r3NKbUr6YFWg8mDHDYKZNNjeZ5GCP0Gy 7KA= "], {{0, 0}, {25, 25}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["100", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJzt0vsv1XEcx/GDWGm1owldjGM0zsrlmJXOsbekybB2WKtwKLc0l5OThtiJ NiM6dFrTZWamhcTZUUdY1+kiKeecCUc6rsc5x9dxTmwMm7S2/oP22czeP7y3 9x4/vX54MhL4kckWNBptz7/7+3eWe5/olOlBFdIgKaiag56zGb/jF01wNOdl 3EOXPqj2rZMdXv4O+jrGFLeJQkf/L98/8rkqKksHujxjxareAObVuz5la7A3 dDJ+g3lBP3dIC0tP/fi5bANwxtpFN/uxN3Qyrslb8S+lNGA5WnBqSTQLV114 p2u6sDd0Mn6yR1zu0jAFtvQPXtnjFEiSzR2ft2Jv6GS8xYGpfpU4Ca5B2+kL LAr0jQ2a7lrsDZ2M01O7PM84TwArO/IXv3gGGIbw5p+V2Bs6GddlttGmOsfg WP0DxdyQHqK9Fq7MC7E3dDL+bIf2kb2vGriqcWkaUw93BffYVpnYGzoZz222 Cwlv/gHnrd3FMwU6+NbGsdjHw97QyXhQWAhV6KYCPoefdVGuBauViS9e4dgb OhnfRuWI2moGQJj5gjvN0EIgp+ROMBt7Qyfj8tJGb8q+H0S1az6J2dOQd/1g 9Dkm9oZOxv1iq4d6DUoQmDUG9DdpwC62crjaYNxwO9E3h2fEJ2xRS5RAU/kr nfqmQP4uiBNxG3tDJ+OPE9x9jJeVUCHpTUqfn4RSt6WaNV/sDZ2Mq5ONvHWW EvYW85Y7bCchsOyJmWRobsPtRN8cvvuSrIy+qID6GFO55ZEJWDbGJsXlY2/o ZDwi/Vo7o10BLFaRU2TMOEij6N07nbA3dDJezA/UsPIUILQ5kBKwNgqpHe89 3nYZNtxO9M3hrwVWNsFsBVS9CRUNHleDs2POLX4K9oZOxqnZ+/lNq3JoTcuQ 8ctGYLiIaXKyxt7QyXj0guvAV6EcehzEI1uVwyDWqrmKltkNtxN9c3jPstTT ZC6HyY8y8zp7FYSGiWWFXOwNnYz7r3NKbUr6YFWg8mDHDYKZNNjeZ5GCP0Gy 7KA= "], {{0, 0}, {25, 25}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["100", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.01`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "99"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"3", ",", "98"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "3", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"4", ",", "97"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "4", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { ItemBox[ "\"\[VerticalEllipsis]\"", Alignment -> Center, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SparseArray[ Automatic, {100, 100}, 0, { 1, {{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}, {{100}, {99}, {98}, {97}, {96}, { 95}, {94}, {93}, {92}, {91}, {90}, {89}, {88}, {87}, {86}, {85}, {84}, { 83}, {82}, {81}, {80}, {79}, {78}, {77}, {76}, {75}, {74}, {73}, {72}, { 71}, {70}, {69}, {68}, {67}, {66}, {65}, {64}, {63}, {62}, {61}, {60}, { 59}, {58}, {57}, {56}, {55}, {54}, {53}, {52}, {51}, {50}, {49}, {48}, { 47}, {46}, {45}, {44}, {43}, {42}, {41}, {40}, {39}, {38}, {37}, {36}, { 35}, {34}, {33}, {32}, {31}, {30}, {29}, {28}, {27}, {26}, {25}, {24}, { 23}, {22}, {21}, {20}, {19}, {18}, {17}, {16}, {15}, {14}, {13}, {12}, { 11}, {10}, {9}, {8}, {7}, {6}, {5}, {4}, {3}, {2}, {1}}}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7705765962741213`*^9, 3.7707508461568937`*^9}, CellLabel->"Out[101]=", CellID->305910092] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Pad with zeros to make a larger square matrix:", "Text", TaggingRules->{}, CellID->806498892], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "0", ",", "5"}], "]"}], " ", "//", " ", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7705766186081*^9}, CellLabel->"In[102]:=", CellID->146730550], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "1"}, {"0", "0", "0", "2", "0"}, {"0", "0", "3", "0", "0"}, {"0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.770576619055024*^9, 3.770750848836545*^9}, CellLabel->"Out[102]//MatrixForm=", CellID->700864181] }, Open ]], Cell["Make a square matrix with the specified dimension:", "Text", TaggingRules->{}, CellFrameLabels->{{None, None}, {None, None}}, CellID->638282373], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "0", ",", "3"}], "]"}], " ", "//", " ", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576621079216*^9}, CellLabel->"In[103]:=", CellID->672553564], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", "2", "0"}, {"3", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7705766215802107`*^9, 3.770750850260125*^9}, CellLabel->"Out[103]//MatrixForm=", CellID->987942918] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Rectangular diagonal matrices:", "Text", TaggingRules->{}, CellFrameLabels->{{None, None}, {None, None}}, CellID->56328760], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "0", ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "]"}], " ", "//", " ", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7705766246769133`*^9}, CellLabel->"In[104]:=", CellID->194830811], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "1"}, {"0", "0", "0", "2", "0"}, {"0", "0", "3", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.770576625148868*^9, 3.770750853041739*^9}, CellLabel->"Out[104]//MatrixForm=", CellID->8846522] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "0", ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "]"}], " ", "//", " ", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.770576626845889*^9}, CellLabel->"In[105]:=", CellID->569845919], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", "2", "0"}, {"3", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.770576627264035*^9, 3.770750854306222*^9}, CellLabel->"Out[105]//MatrixForm=", CellID->997374437] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ Express a matrix as the sum of its antidiagonal and off-antidiagonal parts:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.770750478848748*^9, 3.770750484081482*^9}}, CellID->61274549], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ SubscriptBox["a", "##"], "&"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[106]:=", CellID->79785924], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { SubscriptBox["a", RowBox[{"1", ",", "1"}]], SubscriptBox["a", RowBox[{"1", ",", "2"}]], SubscriptBox["a", RowBox[{"1", ",", "3"}]]}, { SubscriptBox["a", RowBox[{"2", ",", "1"}]], SubscriptBox["a", RowBox[{"2", ",", "2"}]], SubscriptBox["a", RowBox[{"2", ",", "3"}]]}, { SubscriptBox["a", RowBox[{"3", ",", "1"}]], SubscriptBox["a", RowBox[{"3", ",", "2"}]], SubscriptBox["a", RowBox[{"3", ",", "3"}]]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.770750487572502*^9, 3.770750858473452*^9}, CellLabel->"Out[106]//MatrixForm=", CellID->836054879] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"md", "=", RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "m", "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"mo", "=", RowBox[{"m", "-", "md"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"MatrixForm", ",", RowBox[{"{", RowBox[{"md", ",", "mo"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.770750489240582*^9, 3.770750535239016*^9}}, CellLabel->"In[107]:=", CellID->948234877], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", SubscriptBox["a", RowBox[{"1", ",", "3"}]]}, {"0", SubscriptBox["a", RowBox[{"2", ",", "2"}]], "0"}, { SubscriptBox["a", RowBox[{"3", ",", "1"}]], "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { SubscriptBox["a", RowBox[{"1", ",", "1"}]], SubscriptBox["a", RowBox[{"1", ",", "2"}]], "0"}, { SubscriptBox["a", RowBox[{"2", ",", "1"}]], "0", SubscriptBox["a", RowBox[{"2", ",", "3"}]]}, {"0", SubscriptBox["a", RowBox[{"3", ",", "2"}]], SubscriptBox["a", RowBox[{"3", ",", "3"}]]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.770750502768832*^9, 3.770750540496955*^9, 3.7707508595793457`*^9}, CellLabel->"Out[109]=", CellID->148027447] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Construct a 5\[Times]5 tri-antidiagonal matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.770750568172647*^9, 3.770750585539082*^9}}, CellID->172987610], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "5"}], ";"}], "\n", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ SubscriptBox["a", "#"], "&"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], "+", RowBox[{"AntidiagonalMatrix", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ SubscriptBox["b", "#"], "&"}], ",", "n"}], "]"}], "]"}], "+", RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ SubscriptBox["c", "#"], "&"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", "1"}], "]"}]}], "]"}]}], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.7707505708006163`*^9, 3.770750575699607*^9}}, CellLabel->"In[110]:=", CellID->127463522], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", SubscriptBox["c", "1"], SubscriptBox["b", "1"]}, {"0", "0", SubscriptBox["c", "2"], SubscriptBox["b", "2"], SubscriptBox["a", "1"]}, {"0", SubscriptBox["c", "3"], SubscriptBox["b", "3"], SubscriptBox["a", "2"], "0"}, { SubscriptBox["c", "4"], SubscriptBox["b", "4"], SubscriptBox["a", "3"], "0", "0"}, { SubscriptBox["b", "5"], SubscriptBox["a", "4"], "0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7707505804494867`*^9, 3.7707508614623547`*^9}, CellLabel->"Out[111]//MatrixForm=", CellID->943476992] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["\<\ Extract the antidiagonal from an antidiagonal rectangular matrix:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7707506151504793`*^9, 3.7707506160045767`*^9}, { 3.770750769988462*^9, 3.770750770372139*^9}}, CellID->897802978], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"m", "=", RowBox[{"(", GridBox[{ {"0", "a"}, {"b", "0"}, {"0", "0"} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "m", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.770750622898658*^9, 3.7707506273641644`*^9}, { 3.770750869011353*^9, 3.7707508700766497`*^9}}, CellLabel->"In[113]:=", CellID->707222852], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7707508705900707`*^9}, CellLabel->"Out[114]=", CellID->381761155] }, Open ]], Cell["Reconstruct the original matrix from the antidiagonal:", "Text", TaggingRules->{}, CellChangeTimes->{{3.770750878057808*^9, 3.770750878420555*^9}}, CellID->819146331], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"d", ",", "0", ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], "\[Equal]", "m"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.770750655153103*^9, 3.77075066384155*^9}}, CellLabel->"In[115]:=", CellID->790271732], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.77075065807358*^9, 3.770750664175687*^9}, 3.770750874294409*^9}, CellLabel->"Out[115]=", CellID->62014068] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "Using the resource function ", ButtonBox["Antidiagonal", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ Antidiagonal/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ Antidiagonal/"], " of AntidiagonalMatrix gives the original vector:" }], "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[507233]}, CellChangeTimes->{{3.770750704213957*^9, 3.770750737303845*^9}, 3.770750901829784*^9, {3.8291490858826313`*^9, 3.8291491196562643`*^9}}, CellID->922679948], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"v", "=", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"AntidiagonalMatrix", "[", "v", "]"}], "]"}], "===", "v"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.770750911965211*^9, 3.7707509121917677`*^9}}, CellLabel->"In[119]:=", CellID->223418960], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.770750912471287*^9}, CellLabel->"Out[120]=", CellID->569507821] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell["Sander Huisman", "Text", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell["antidiagonal matrix", "Item", CellID->815058512], Cell["anti diagonal matrix", "Item", CellID->288160250], Cell["counter diagonal matrix", "Item", CellID->391431773], Cell["secondary diagonal matrix", "Item", CellID->886906537], Cell["trailing diagonal matrix", "Item", CellID->394376280], Cell["minor diagonal matrix", "Item", CellID->334683544], Cell["bad diagonal matrix", "Item", CellID->444183466] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Core Language & Structure", {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Data Manipulation & Analysis", { 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[False, {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[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "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", CellID->172324875] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell["Diagonal", "Item", CellID->285590315], Cell["DiagonalMatrix", "Item", CellID->312624173], Cell["Tr", "Item", CellID->295828843], Cell["Band", "Item", CellID->382682805] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell["Antidiagonal", "Item", CellID->383681833] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], 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[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell["https://en.wikipedia.org/wiki/Main_diagonal", "Item", CellID->854328472] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Tests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "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 ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.3961, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"SparseArray", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", "5", "}"}], "\[Rule]", "4"}]}], "}"}], "]"}], "]"}], ",", InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBghWIQe2e3gevOLS/sb7gvX1cz7a39yYjcf/Ff39tble+O m6V0zn6O8aIt5j+u2L9YpPg4cNWrESeeUlOk/trrur0B72H3I1Oe2as5CfBW uI2GD0x8qjHjmuqLF+w7qg4ut9z5wH7D0bz5oW5v7QFdtD0r "], {{0, 0}, {5, 5}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox[ "\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBghWIQe2e3gevOLS/sb7gvX1cz7a39yYjcf/Ff39tble+O m6V0zn6O8aIt5j+u2L9YpPg4cNWrESeeUlOk/trrur0B72H3I1Oe2as5CfBW uI2GD0x8qjHjmuqLF+w7qg4ut9z5wH7D0bz5oW5v7QFdtD0r "], {{0, 0}, {5, 5}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox[ "\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.2`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "4", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 1, 2, 3, 4, 5}, {{5}, {4}, {3}, {2}, {1}}}, {1, 0, 2, 0, 4}}], Editable->False, SelectWithContents->True, Selectable->False]}], "]"}]}], "Input", CellChangeTimes->{{3.770576949612557*^9, 3.770577049218725*^9}}, CellLabel->"In[121]:=", CellID->480074792], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "0"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "0"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000139`2.2935297980860887", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 1, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`AntidiagonalMatrix[{3, 5, 7}]], "ExpectedOutput" -> HoldForm[{{0, 0, 3}, {0, 5, 0}, {7, 0, 0}}], "ActualOutput" -> HoldForm[{{0, 0, 3}, {0, 5, 0}, {7, 0, 0}}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000139, "Seconds"], "CPUTimeUsed" -> Quantity[0.00014000000000180535`, "Seconds"], "MemoryUsed" -> Quantity[2104, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.770577050775354*^9, 3.7707509231186237`*^9}, CellLabel->"Out[121]=", CellID->531815344], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AntidiagonalMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", "1"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000105`2.171704296901932", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 2, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`AntidiagonalMatrix[{3, 5, 7}, 1]], "ExpectedOutput" -> HoldForm[{{0, 0, 3, 0}, {0, 5, 0, 0}, {7, 0, 0, 0}, {0, 0, 0, 0}}], "ActualOutput" -> HoldForm[{{0, 0, 3, 0}, {0, 5, 0, 0}, {7, 0, 0, 0}, {0, 0, 0, 0}}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000105, "Seconds"], "CPUTimeUsed" -> Quantity[0.00010800000000443788`, "Seconds"], "MemoryUsed" -> Quantity[472, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.770577050775354*^9, 3.77075092313552*^9}, CellLabel->"Out[122]=", CellID->180203466], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AntidiagonalMatrix", "[", RowBox[{"SparseArray", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", "5", "}"}], "\[Rule]", "4"}]}], "}"}], "]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBghWIQe2e3gevOLS/sb7gvX1cz7a39yYjcf/Ff39tble+O m6V0zn6O8aIt5j+u2L9YpPg4cNWrESeeUlOk/trrur0B72H3I1Oe2as5CfBW uI2GD0x8qjHjmuqLF+w7qg4ut9z5wH7D0bz5oW5v7QFdtD0r "], {{0, 0}, {5, 5}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> {"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> {"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> {"freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox[ "\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBghWIQe2e3gevOLS/sb7gvX1cz7a39yYjcf/Ff39tble+O m6V0zn6O8aIt5j+u2L9YpPg4cNWrESeeUlOk/trrur0B72H3I1Oe2as5CfBW uI2GD0x8qjHjmuqLF+w7qg4ut9z5wH7D0bz5oW5v7QFdtD0r "], {{0, 0}, {5, 5}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> {"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> {"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> {"freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox[ "\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.2`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "4", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues :> {}], "]"}], SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 1, 2, 3, 4, 5}, {{5}, {4}, {3}, {2}, {1}}}, {1, 0, 2, 0, 4}}], Selectable -> False, Editable -> False, SelectWithContents -> True], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBghWIQe2e3gevOLS/sb7gvX1cz7a39yYjcf/Ff39tble+O m6V0zn6O8aIt5j+u2L9YpPg4cNWrESeeUlOk/trrur0B72H3I1Oe2as5CfBW uI2GD0x8qjHjmuqLF+w7qg4ut9z5wH7D0bz5oW5v7QFdtD0r "], {{0, 0}, {5, 5}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> {"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> {"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> {"freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox[ "\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBghWIQe2e3gevOLS/sb7gvX1cz7a39yYjcf/Ff39tble+O m6V0zn6O8aIt5j+u2L9YpPg4cNWrESeeUlOk/trrur0B72H3I1Oe2as5CfBW uI2GD0x8qjHjmuqLF+w7qg4ut9z5wH7D0bz5oW5v7QFdtD0r "], {{0, 0}, {5, 5}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> {"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> {"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> {"freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox[ "\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.2`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "0", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "4", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues :> {}], "]"}], SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 1, 2, 3, 4, 5}, {{5}, {4}, {3}, {2}, {1}}}, {1, 0, 2, 0, 4}}], Selectable -> False, Editable -> False, SelectWithContents -> True], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.00062`2.9429066873302476", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 3, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`AntidiagonalMatrix[ SparseArray[{{1} -> 1, {3} -> 2, {5} -> 4}]]], "ExpectedOutput" -> HoldForm[SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 1, 2, 3, 4, 5}, {{5}, {4}, {3}, {2}, {1}}}, {1, 0, 2, 0, 4}}]], "ActualOutput" -> HoldForm[SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 1, 2, 3, 4, 5}, {{5}, {4}, {3}, {2}, {1}}}, {1, 0, 2, 0, 4}}]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.00062, "Seconds"], "CPUTimeUsed" -> Quantity[0.00023600000000101318`, "Seconds"], "MemoryUsed" -> Quantity[1408, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.770577050775354*^9, 3.770750923197988*^9}, CellLabel->"Out[123]=", CellID->666268100] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], 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[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"AntidiagonalMatrix | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwd1wmcjuUaBvBbMaQsJyk0YdSoTqG0SZZMQg0pWTtGBiPkRBwkKVuHkAxy RlpOSkUh2UkSk7VkSdayFslyMiFZzn++n9833/e+7/Pc93Vf13XfzyulQ49m XQpERNciETXigagZz8WbMSP+EU9H77g2FkRpV1nxceyPNVZMsmJ8lIi34oXY EXOjexzxt2u0i0diU+TF7dEkbohm8Vlsj+zoEg9FetwbT0axOGbNuPgoPo3L 4+r4MkZGh7gYrX3aRbU4FQ/GlbEkKsbxKC7Xxhgdf8Y2GIpH+bjGv9PWDYrN cX2cj0wRK4szKabG/2RaEWkxOLZG2/jAioZxNs7AuT/au86/6gJ5rlqaxoYo K9akGKK+F0S6oL5RUTByxJwOZamoFOfiD4x8ELXiYCTFszJ2FamSqwx5e0aj qALZiqgdl8SI6CPXPuvmxvpoLtLeeBhvjaJofKeeyrHT35tlS4Vok+peFitJ ndusOBxf4OwuSDPiJZVu9H0S9+fj0mgRP9FjT9zpk4u9JLqky7ZEzkmxPL7G 3FRanIhycSiKqGQjHm+i37/inpgYA2MRdt+KzlauhuxivB63ypgW11n5tkqa Q1CASv3jm3g83nNnnBq3wtZQxNNxXwxzp6CdDeMviLJgfRpLW+L+aABDLrX/ ErG1it/F7qRYHL/Ga2J0V/ee+AUD1TCbrJ6m0VfMD1VRHk/zoO1mZR5v7cXi k5SdGSkxBtZr4sV4NRrjbGdUx+PVnjfBWxW1LYkD9tTlxJPcNzL6uX4ynpfx h0Q9V9hdPdZGYW58B/ZVYqyLepyzkEoFoVio4hb27ohl+M5Rz3ArulKzAoRz uSBFzOm8uBX/G2VcFq9wwBLYCsjSnQ+Cvos4uA8cS0Qco6oJ8XlMiZLWlhKl qAr28ed3YvR1t634yTE7eljVIZ7C6Bp4alt7RqdsEq1Z9OLgx10tlnkgBHnw XYmxFJWclXEI/GXjDvHWu65Im3yE4+N7et6gB/7L2+Why6bILvz3xn8fXqlH x7bRKYZGHStu0wutebEUfhvww+BYGpNpsAPyf9L4Otd14yjk6SI8De8e8TIg vBaL5d0/KvZ1PPMVxuupdKSdC+jVU9YNHDklwfIomGbFJ9GK2x+B9VPZquOg C+xrZRtiKnTA7XZYWvLkKXEbQ5IWhazuLvoITv5GZ5TBzZL4TV+XxVgOngZh vD1cpTE9Oy6LlXQ5i+3p8airnniqwx9FueGpmMYVJbngWZg60KmfuM3NrGW4 zo0nqDhGB7Xiub3mwY1iTIgfIblAwWdigOx7E9MkWy3HuKMiR39rPnSOx3j3 Fs5eQKd9PlutOa/fWqnlK3tXinIF1A9am2d+XorL5bj7m8oXUnks9p/hg4a6 czlP3idvNmfsEvUlnFaApjGt+ln7ohiz4Nhh8i6QbQ1OO2B4HR6aW90Eh5/o xgN07uT+CjlG6YpNemME19XUe1v0Ty/uaUPh2mZBCVOijDuzzY5P5OtibV9a p2CwHE52w5NkSl2B9yq80AHCOZ4Mjbv5s2zCT0cgGi13OXHOwLrUk/HmQAHI dqv1Xpx2Ny3yJ05dPZx/lkzQ47fYVUmtG9Xdjxd389Mpf+vT6yStj+N4gjl8 O41eh/wNCtbgoYepepoypxMdnKGi7apP4cr2Cc9tV21x3ZprapRU4Wbx3jej ZqmsFjSXWNVMfRso2UZv1cdYER4ogKm/uK8J7/yg1sawJKmlEN+f5pWlvg8l urklFa+HfAadL1jTmacLQfiQX5248xvfC1V+xK9mEHwE7TZ40visTPzdTCrq XPtZJ02g4yGrV3PEULNwsMjbMDNE7IrckX+1U84DYmQ6mRrI+jktW5lW2Vjd Is85PD+PvztjPvSpKmyhumx73tC/hay6jFdW27EPj1/ReZtqi5u13zrfJvJ3 EafKVA67nXObwJwFUy3alNbbk+x6jxbvy/muXMnWTOb7zjifLOtmrJS1q3j8 jpfhXPwKVMkcsAGOejKMhC4Zjx9TtSQFi3HJDlUNUt9uLm0pfzsd8C2vb8Ha c6bSakxkcWWmbI3l/lVXH+TFUNc63i4k7gC7e5hIDXXJLu7Mcf2anM3MxhLy 9fS5CgvddN9ymSc6dRvy6DwuvhyT+R45oabfxT7CFceg/Q6eIk6ORnLVwdUi U3OfFe9w1Um6nOXQ2SqsZBqNFnNpVPVsphp7Y6k6pMnyVpZ1tHjVE3x1iv9Q t5z8X6sl171lMua/ifwiekCdpeYiaj4IYQc++Ml0PKWGaWbJXbpxtQrehvAJ s3yKHl1Lnz0Y6O69Z6MqW+vGaSo7oaY17iXBkyxbRUj2Uuooxg/jcnRiIhdW bVV9VEsvpyaujsq/mL5rrK+JvxesfTH+jZ/rKToKytnm1EhV5c/YdJ9dequI c6oQZ6+DuDw9V2DoUlovxPZ+KC/qtwXqSOXdNuLsE7Gp+PmnWQ+57hWvASTr dEUJ/1ro0GlqzTVhksXfwadDOfO0Xlkpemfn1j7c5Ih63qRNoeaPdKjld/57 Sh529jsBZ1BuiPWHzIG2NNztDao+j4zF/HrZ+uqErzijtkq3W5kdHWXc6Y0p hwfr4e8cxJ2s7eykzXN1D4cfo28eROvVX8+6VXq4rutmuq4yJTvKmsQpNfTn wQS7t5koJzwfa38veXvi4ksOG8lzE3n9Hbjn6oL79OdwuVJp2oJqHfmqFicU l6M+X7fH8xxsvqLf+nPvST23wvNialgk+2YRDsKQSal0TkjH1wSeuwai1Xwz 08Spkzglx+IzT6/1l30Vho+4uhFfm0R+zdMHxEjG6UOifGxPW3ofF+Nd9QyH tK1pUE1NWfJVk6Eyz/ysAx9V9xhc3mL1MFr1p+5omVc62/bTYSDWjnPeSpX9 wJFHvfGucDVP/9wt9gHP3vOkhs+HELXx5BtPatjbEZ8tMHQUn197K67BYT2w WQrnr+qWMgl3zMdOqpP+ShEzzb2m/i3Cd02YJzr3s82RVPjyXVFV/BT9kMTn y/Fys0lVnyqp6v9RFd0w2MvdQ1w2T/V9zKJPZSyJ50aJKZlBkeFw5TunDT5/ Np/a6+1iuiQDlpr2tHaWZFrdXU+kO6mbmFe5/s7zdvGG944/uO1Nv+Zj6LDK ssTqwf85urwFjDNp1Y8nZ/t8rxemqqwNxR/g593mTAbEh7F2znl4Vp4h3tyq 2V/B3VU4nGZFNyxUhWAw9obC2SZxdmdRpyCufvPrAl1yaT8CF1s5Ml0n1zPd 13P3RV3VhRN/UU8jT77ngCpcMwgDA9XbiSKDzZjPzJD899vCqko19weZCjdj op7v0z4n5RpMhTMcc789ubirrvbx9mbSZJ2qblVfWuKd8ktIa8s9yPqTslR0 /To8Q8TOP5XT1bmFo9vzYjb20lR0Oz1byneDXhjA1Vf5bmPFfM+G4eAOLM3n nIl64lHM5EfPkKWOE6467ib79bVPb7Hz7G1n6s7hiun83Uru9dQqbP842LPM vhew8yGW36ZxHvZWiL9W1Dn64BTGi0ORZH07udNga+LZY4kebMkr2/X6JU6E L2iV//72FsXSsZkJ51+Jqtfiabgp1V3kWWIvpv9433vx+Ygcy6HIoe7L4jfE /G4xj8j6px0X6HETLoaJfo0JVdU87kSPceruB/8SZ1dvs7uu/Xfo9urc0wrD S7E6z+w7S6UiuDltAmz1dp9iTQ93BsJwv3NiDrZmWDeH90om/jfRlLqZHLWO T4aqug690/j0vL5cZfaN1UMD3E/nnRycXQ1nGo+XhqeCVash70qpn5xovROn 5BSYL3P1h6pnY2OrLLW4uxxUpeTrqLeTrR2qgsfUe068l3RcOw7azbO/47uA 1d+q+v34Pw9sUvE= "]]]], "CreationTimestamp" -> 3.829149158264885*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.82914915850845*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.4.0"}, CreateCellID->True, FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 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"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, 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[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`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 :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`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[ RSNB`$$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[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TemplateInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAxwynGA6ikLhU4jINousmQyyD CZAMZlBHI0HimCZjmvaI4QjDLoYbQF1qDF8ZLjMcx+ILiDhEDUQ9NtMeMNwD 2hsHtPc7kD5PIGQgaiDqIXqRwxZiyy2GKAZ9EkIboh6iFxlQyzTquo0W4Ubt OKV+eqNWXsAPic+nAJc8o0U= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAOwwnGA6hkLhU4jINomsbgw+D DsNmBhsGcRQSIo5pMqZpt4AqdgN12TFIMbxkiGXQYvjDkM1ggkJCxCFqIOox TXvC8IDhHtBeb6DKNwzxDNpYzEEmIWog6iF6kcMWYss2oI2SBMxBJiHqIXqR AbVMo67baBFu1I1TWqQ3auUFauVTADhWX3M= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAlxgQl0pcpkF0/WB4x/Ca4SeQ 9QSFhIhjmoxp2isw/MnwhuE5w12GRAYLhssMpkA/IpMQcYgaiHpM056B4Q+g mhcMtxmiGQywmINMQtRA1EP0IoctxJYfDI8Z7hAwB5mEqIfoRQbUMo26bqNF uFE3TmmR3qiVF6iVTwE3F3o0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], 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[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`LiteralInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAxwynGA6ikLhU4jINousmQyyD CZAMZlBHI0HimCZjmvaI4QjDLoYbQF1qDF8ZLjMcx+ILiDhEDUQ9NtMeMNwD 2hsHtPc7kD5PIGQgaiDqIXqRwxZiyy2GKAZ9EkIboh6iFxlQyzTquo0W4Ubt OKV+eqNWXsAPic+nAJc8o0U= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAOwwnGA6hkLhU4jINomsbgw+D DsNmBhsGcRQSIo5pMqZpt4AqdgN12TFIMbxkiGXQYvjDkM1ggkJCxCFqIOox TXvC8IDhHtBeb6DKNwzxDNpYzEEmIWog6iF6kcMWYss2oI2SBMxBJiHqIXqR AbVMo67baBFu1I1TWqQ3auUFauVTADhWX3M= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAlxgQl0pcpkF0/WB4x/Ca4SeQ 9QSFhIhjmoxp2isw/MnwhuE5w12GRAYLhssMpkA/IpMQcYgaiHpM056B4Q+g mhcMtxmiGQywmINMQtRA1EP0IoctxJYfDI8Z7hAwB5mEqIfoRQbUMo26bqNF uFE3TmmR3qiVF6iVTwE3F3o0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DelimiterInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAxwynGA6ikLhU4jINousmQyyD CZAMZlBHI0HimCZjmvaI4QjDLoYbQF1qDF8ZLjMcx+ILiDhEDUQ9NtMeMNwD 2hsHtPc7kD5PIGQgaiDqIXqRwxZiyy2GKAZ9EkIboh6iFxlQyzTquo0W4Ubt OKV+eqNWXsAPic+nAJc8o0U= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAOwwnGA6hkLhU4jINomsbgw+D DsNmBhsGcRQSIo5pMqZpt4AqdgN12TFIMbxkiGXQYvjDkM1ggkJCxCFqIOox TXvC8IDhHtBeb6DKNwzxDNpYzEEmIWog6iF6kcMWYss2oI2SBMxBJiHqIXqR AbVMo67baBFu1I1TWqQ3auUFauVTADhWX3M= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAlxgQl0pcpkF0/WB4x/Ca4SeQ 9QSFhIhjmoxp2isw/MnwhuE5w12GRAYLhssMpkA/IpMQcYgaiHpM056B4Q+g mhcMtxmiGQywmINMQtRA1EP0IoctxJYfDI8Z7hAwB5mEqIfoRQbUMo26bqNF uFE3TmmR3qiVF6iVTwE3F3o0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`SubscriptInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAxwynGA6ikLhU4jINousmQyyD CZAMZlBHI0HimCZjmvaI4QjDLoYbQF1qDF8ZLjMcx+ILiDhEDUQ9NtMeMNwD 2hsHtPc7kD5PIGQgaiDqIXqRwxZiyy2GKAZ9EkIboh6iFxlQyzTquo0W4Ubt OKV+eqNWXsAPic+nAJc8o0U= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAOwwnGA6hkLhU4jINomsbgw+D DsNmBhsGcRQSIo5pMqZpt4AqdgN12TFIMbxkiGXQYvjDkM1ggkJCxCFqIOox TXvC8IDhHtBeb6DKNwzxDNpYzEEmIWog6iF6kcMWYss2oI2SBMxBJiHqIXqR AbVMo67baBFu1I1TWqQ3auUFauVTADhWX3M= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAlxgQl0pcpkF0/WB4x/Ca4SeQ 9QSFhIhjmoxp2isw/MnwhuE5w12GRAYLhssMpkA/IpMQcYgaiHpM056B4Q+g mhcMtxmiGQywmINMQtRA1EP0IoctxJYfDI8Z7hAwB5mEqIfoRQbUMo26bqNF uFE3TmmR3qiVF6iVTwE3F3o0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAxwynGA6ikLhU4jINousmQyyD CZAMZlBHI0HimCZjmvaI4QjDLoYbQF1qDF8ZLjMcx+ILiDhEDUQ9NtMeMNwD 2hsHtPc7kD5PIGQgaiDqIXqRwxZiyy2GKAZ9EkIboh6iFxlQyzTquo0W4Ubt OKV+eqNWXsAPic+nAJc8o0U= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAOwwnGA6hkLhU4jINomsbgw+D DsNmBhsGcRQSIo5pMqZpt4AqdgN12TFIMbxkiGXQYvjDkM1ggkJCxCFqIOox TXvC8IDhHtBeb6DKNwzxDNpYzEEmIWog6iF6kcMWYss2oI2SBMxBJiHqIXqR AbVMo67baBFu1I1TWqQ3auUFauVTADhWX3M= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAlxgQl0pcpkF0/WB4x/Ca4SeQ 9QSFhIhjmoxp2isw/MnwhuE5w12GRAYLhssMpkA/IpMQcYgaiHpM056B4Q+g mhcMtxmiGQywmINMQtRA1EP0IoctxJYfDI8Z7hAwB5mEqIfoRQbUMo26bqNF uFE3TmmR3qiVF6iVTwE3F3o0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[2]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[3]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableRowInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableSort[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableMerge[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\"\ "}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAxwynGA6ikLhU4jINousmQyyD CZAMZlBHI0HimCZjmvaI4QjDLoYbQF1qDF8ZLjMcx+ILiDhEDUQ9NtMeMNwD 2hsHtPc7kD5PIGQgaiDqIXqRwxZiyy2GKAZ9EkIboh6iFxlQyzTquo0W4Ubt OKV+eqNWXsAPic+nAJc8o0U= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAOwwnGA6hkLhU4jINomsbgw+D DsNmBhsGcRQSIo5pMqZpt4AqdgN12TFIMbxkiGXQYvjDkM1ggkJCxCFqIOox TXvC8IDhHtBeb6DKNwzxDNpYzEEmIWog6iF6kcMWYss2oI2SBMxBJiHqIXqR AbVMo67baBFu1I1TWqQ3auUFauVTADhWX3M= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBT3HAlxgQl0pcpkF0/WB4x/Ca4SeQ 9QSFhIhjmoxp2isw/MnwhuE5w12GRAYLhssMpkA/IpMQcYgaiHpM056B4Q+g mhcMtxmiGQywmINMQtRA1EP0IoctxJYfDI8Z7hAwB5mEqIfoRQbUMo26bqNF uFE3TmmR3qiVF6iVTwE3F3o0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`ExclusionToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> { DefinitionNotebookClient`$ButtonsDisabled}]]}}, 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[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "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"], DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`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 -> 8, 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 -> 8, 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"], DefinitionNotebookClient`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"], DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], 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[ GrayLevel[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[ GrayLevel[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[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`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[ GrayLevel[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[ GrayLevel[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[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "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 -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9569, 0.802, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, #2[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBrxnCGaSxkM8ZghjEUUhcKnGZBtF1 ncGKgYXhCoM5AyMKCRHHNBnTtGcMgQxiDFeBupgYLjOYAn2Hi4SogajHNO0V QxiDFMM1sL34zUEmIeohepHDFmLLFSJchUxeQXIhMqCWadR1Gy3CjbpxSov0 Rq28QK18CgDxlAb0 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBrxnCGaSxkA8YAhgkUEhcKnGZBtG1 icGIgZNhNYMuAzsKCRHHNBnTtHsM/gziDGsY9IC6ljNoM7DhJCFqIOoxTXvJ EMYgxbCRwRBoL35zkEmIeohe5LCF2LKaCFchk6uRXIgMqGUadd1Gi3CjbpzS Ir1RKy9QK58CAKV6+bM= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPymBmYGDghWIQ+z8REAKIUQmBrxnCGaSxkO8YChnsUUhcKnGZBtH1 jeE6wxmGrwwPGG6ikBBxTJMxTXvPUM7gBlT/EKhrF0MUgy3DcgZtBjYUEiIO UQNRj2naG4YYBiWwvacZdjAEM5hiMQeZhKiBqIfoRQ5biC2fGG4xXCRgDjIJ UQ/RiwyoZRp13UaLcKNunNIivVErL1ArnwIA8Aku3g== "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], 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["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`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[{RSNB`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`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", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.9686, 0.4667, 0.], GrayLevel[0.4667]]]], 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["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, 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"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, 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]], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}]}, Visible -> False, FrontEndVersion -> "12.2 for Linux x86 (64-bit) (December 12, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[612, 21, 101, 2, 70, "Title",ExpressionUUID->"47eb698c-d84c-48d9-a946-e99f472a5046", CellTags->{"Name", "TemplateCell", "Title"}, CellID->353808818]}, "TemplateCell"->{ Cell[612, 21, 101, 2, 70, "Title",ExpressionUUID->"47eb698c-d84c-48d9-a946-e99f472a5046", CellTags->{"Name", "TemplateCell", "Title"}, CellID->353808818], Cell[716, 25, 136, 2, 70, "Text",ExpressionUUID->"a4db2195-35e1-4f0a-a963-37911b789298", CellTags->{"Description", "TemplateCell"}, CellID->513170333]}, "Title"->{ Cell[612, 21, 101, 2, 70, "Title",ExpressionUUID->"47eb698c-d84c-48d9-a946-e99f472a5046", CellTags->{"Name", "TemplateCell", "Title"}, CellID->353808818]}, "Description"->{ Cell[716, 25, 136, 2, 70, "Text",ExpressionUUID->"a4db2195-35e1-4f0a-a963-37911b789298", CellTags->{"Description", "TemplateCell"}, CellID->513170333]}, "Definition"->{ Cell[877, 31, 1108, 27, 70, "Section",ExpressionUUID->"573b122b-b176-47f0-ad65-679053ff9f73", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "Function"->{ Cell[877, 31, 1108, 27, 70, "Section",ExpressionUUID->"573b122b-b176-47f0-ad65-679053ff9f73", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "TemplateCellGroup"->{ Cell[877, 31, 1108, 27, 70, "Section",ExpressionUUID->"573b122b-b176-47f0-ad65-679053ff9f73", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[4383, 130, 1879, 48, 70, "Subsection",ExpressionUUID->"ef6df1c2-1cc9-4141-8ba2-1939eb30ba05", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[8075, 259, 1349, 30, 70, "Subsection",ExpressionUUID->"b103849f-d9b0-4140-b8c0-98d5eedb8b74", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[20591, 626, 6918, 150, 70, "Section",ExpressionUUID->"ec3e4c57-9909-4ed8-8ee9-b229aff12035", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[77137, 2192, 918, 24, 70, "Subsection",ExpressionUUID->"8a989aa4-ef98-4151-8fa2-e60fd73268eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[78145, 2224, 893, 24, 70, "Subsection",ExpressionUUID->"619ba39f-cfcc-48ac-bb6f-a24a9bd0918c", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[79499, 2274, 166, 5, 70, "Subsection",ExpressionUUID->"4249ad1d-9eaf-499f-ad47-5b140713fb94", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[86157, 2504, 870, 24, 70, "Subsection",ExpressionUUID->"ad2ce5af-6d7e-4c49-8452-33320ce99402", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[87248, 2545, 920, 24, 70, "Subsection",ExpressionUUID->"64ed519c-884a-4752-a6d8-ea969370ea86", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[88256, 2577, 971, 25, 70, "Subsection",ExpressionUUID->"91bce42a-2c2c-41bb-9021-3f578b74f55b", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[89763, 2617, 823, 24, 70, "Subsection",ExpressionUUID->"4b5fc171-40ee-47fc-8dc2-0784b6c0c49d", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[90705, 2649, 1737, 43, 70, "Subsection",ExpressionUUID->"eef76658-8228-4060-a0f3-5ab16e0a936f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[154439, 3999, 1048, 26, 70, "Section",ExpressionUUID->"b405d419-c4ee-436e-8a3f-a3c2c34a7fd3", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[156036, 4040, 929, 25, 70, "Section",ExpressionUUID->"ec802751-cad0-4a92-971a-fea7e4ba4879", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]}, "TabNext"->{ Cell[1988, 60, 2238, 59, 70, "Input",ExpressionUUID->"bee2ede4-93c6-4d02-9f2d-057adf826c23", CellTags->"TabNext", CellID->767882163], Cell[15992, 452, 1066, 39, 70, "Notes",ExpressionUUID->"1f513522-6a51-42a4-8fc2-de5df07237ad", CellTags->"TabNext", CellID->956387052], Cell[89230, 2604, 496, 8, 70, "Text",ExpressionUUID->"f2ea453d-4c62-4e16-8108-ce96bf3c0e1e", CellTags->"TabNext", CellID->343081869], Cell[155490, 4027, 509, 8, 70, "Text",ExpressionUUID->"233d2798-76c6-439c-9362-eb85eb099524", CellTags->"TabNext", CellID->567921317], Cell[156968, 4067, 495, 8, 70, "Text",ExpressionUUID->"c7b1a809-1338-47da-ad2a-8fd306483287", CellTags->"TabNext", CellID->920818074]}, "Documentation"->{ Cell[4241, 122, 117, 4, 70, "Section",ExpressionUUID->"a8d0c16e-e1fb-48fd-879f-b3ccb4a4ca69", CellTags->"Documentation", CellID->475424634]}, "Usage"->{ Cell[4383, 130, 1879, 48, 70, "Subsection",ExpressionUUID->"ef6df1c2-1cc9-4141-8ba2-1939eb30ba05", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143]}, "Details & Options"->{ Cell[8075, 259, 1349, 30, 70, "Subsection",ExpressionUUID->"b103849f-d9b0-4140-b8c0-98d5eedb8b74", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "Notes"->{ Cell[8075, 259, 1349, 30, 70, "Subsection",ExpressionUUID->"b103849f-d9b0-4140-b8c0-98d5eedb8b74", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "Examples"->{ Cell[20591, 626, 6918, 150, 70, "Section",ExpressionUUID->"ec3e4c57-9909-4ed8-8ee9-b229aff12035", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145]}, "Source & Additional Information"->{ Cell[76959, 2184, 153, 4, 70, "Section",ExpressionUUID->"17f1a58c-59a2-4045-b734-98e6afd54e4c", CellTags->"Source & Additional Information", CellID->346918952]}, "Contributed By"->{ Cell[77137, 2192, 918, 24, 70, "Subsection",ExpressionUUID->"8a989aa4-ef98-4151-8fa2-e60fd73268eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "ContributorInformation"->{ Cell[77137, 2192, 918, 24, 70, "Subsection",ExpressionUUID->"8a989aa4-ef98-4151-8fa2-e60fd73268eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "Keywords"->{ Cell[78145, 2224, 893, 24, 70, "Subsection",ExpressionUUID->"619ba39f-cfcc-48ac-bb6f-a24a9bd0918c", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615]}, "Categories"->{ Cell[79499, 2274, 166, 5, 70, "Subsection",ExpressionUUID->"4249ad1d-9eaf-499f-ad47-5b140713fb94", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632]}, "CategoriesCell"->{ Cell[79668, 2281, 6452, 218, 70, "Output",ExpressionUUID->"f4a49d7e-7cba-476d-ba00-2d5983936831", CellTags->"CategoriesCell", CellID->172324875]}, "Related Symbols"->{ Cell[86157, 2504, 870, 24, 70, "Subsection",ExpressionUUID->"ad2ce5af-6d7e-4c49-8452-33320ce99402", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636]}, "Related Resource Objects"->{ Cell[87248, 2545, 920, 24, 70, "Subsection",ExpressionUUID->"64ed519c-884a-4752-a6d8-ea969370ea86", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071]}, "Source/Reference Citation"->{ Cell[88256, 2577, 971, 25, 70, "Subsection",ExpressionUUID->"91bce42a-2c2c-41bb-9021-3f578b74f55b", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317]}, "Links"->{ Cell[89763, 2617, 823, 24, 70, "Subsection",ExpressionUUID->"4b5fc171-40ee-47fc-8dc2-0784b6c0c49d", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789]}, "Tests"->{ Cell[90705, 2649, 1737, 43, 70, "Subsection",ExpressionUUID->"eef76658-8228-4060-a0f3-5ab16e0a936f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "VerificationTests"->{ Cell[90705, 2649, 1737, 43, 70, "Subsection",ExpressionUUID->"eef76658-8228-4060-a0f3-5ab16e0a936f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "Author Notes"->{ Cell[154439, 3999, 1048, 26, 70, "Section",ExpressionUUID->"b405d419-c4ee-436e-8a3f-a3c2c34a7fd3", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130]}, "Submission Notes"->{ Cell[156036, 4040, 929, 25, 70, "Section",ExpressionUUID->"ec802751-cad0-4a92-971a-fea7e4ba4879", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 261975, 6061}, {"TemplateCell", 262158, 6065}, {"Title", 262494, 6072}, {"Description", 262676, 6076}, {"Definition", 262854, 6080}, {"Function", 263051, 6084}, {"TemplateCellGroup", 263257, 6088}, {"TabNext", 265808, 6131}, {"Documentation", 266543, 6147}, {"Usage", 266705, 6151}, {"Details & Options", 266898, 6155}, {"Notes", 267100, 6159}, {"Examples", 267305, 6163}, {"Source & Additional Information", 267515, 6167}, {"Contributed By", 267706, 6171}, {"ContributorInformation", 267941, 6175}, {"Keywords", 268162, 6179}, {"Categories", 268353, 6183}, {"CategoriesCell", 268548, 6187}, {"Related Symbols", 268725, 6191}, {"Related Resource Objects", 268937, 6195}, {"Source/Reference Citation", 269159, 6199}, {"Links", 269362, 6203}, {"Tests", 269545, 6207}, {"VerificationTests", 269762, 6211}, {"Author Notes", 269974, 6215}, {"Submission Notes", 270174, 6219} } *) (*NotebookFileOutline Notebook[{ Cell[612, 21, 101, 2, 70, "Title",ExpressionUUID->"47eb698c-d84c-48d9-a946-e99f472a5046", CellTags->{"Name", "TemplateCell", "Title"}, CellID->353808818], Cell[716, 25, 136, 2, 70, "Text",ExpressionUUID->"a4db2195-35e1-4f0a-a963-37911b789298", CellTags->{"Description", "TemplateCell"}, CellID->513170333], Cell[CellGroupData[{ Cell[877, 31, 1108, 27, 70, "Section",ExpressionUUID->"573b122b-b176-47f0-ad65-679053ff9f73", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[1988, 60, 2238, 59, 70, "Input",ExpressionUUID->"bee2ede4-93c6-4d02-9f2d-057adf826c23", CellTags->"TabNext", CellID->767882163] }, Open ]], Cell[4241, 122, 117, 4, 70, "Section",ExpressionUUID->"a8d0c16e-e1fb-48fd-879f-b3ccb4a4ca69", CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[4383, 130, 1879, 48, 70, "Subsection",ExpressionUUID->"ef6df1c2-1cc9-4141-8ba2-1939eb30ba05", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[6287, 182, 151, 4, 70, "UsageInputs",ExpressionUUID->"90be68ef-ad6a-40ee-a3c4-70323631dac2", CellID->682744844], Cell[6441, 188, 319, 10, 70, "UsageDescription",ExpressionUUID->"a7eee8ca-71ef-4abb-b794-1d8c821aed18", CellID->309554578] }, Open ]], Cell[CellGroupData[{ Cell[6797, 203, 195, 6, 70, "UsageInputs",ExpressionUUID->"9df6885d-0ca9-42ee-8d83-b6ee163392c7", CellID->395833954], Cell[6995, 211, 396, 14, 70, "UsageDescription",ExpressionUUID->"1b128574-88a9-4d2d-ba80-7cc514db21b6", CellID->618508419] }, Open ]], Cell[CellGroupData[{ Cell[7428, 230, 225, 7, 70, "UsageInputs",ExpressionUUID->"8a580617-8175-48cd-8c84-834ece83fddd", CellID->657796956], Cell[7656, 239, 370, 14, 70, "UsageDescription",ExpressionUUID->"6c4d143d-60af-418e-a769-95af37a5f507", CellID->434732144] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8075, 259, 1349, 30, 70, "Subsection",ExpressionUUID->"b103849f-d9b0-4140-b8c0-98d5eedb8b74", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[9427, 291, 6562, 159, 70, "Notes",ExpressionUUID->"6ef331b4-bde4-4882-87d9-03325fc50e27", CellID->180717616], Cell[15992, 452, 1066, 39, 70, "Notes",ExpressionUUID->"1f513522-6a51-42a4-8fc2-de5df07237ad", CellTags->"TabNext", CellID->956387052], Cell[17061, 493, 762, 26, 70, "Notes",ExpressionUUID->"85b319d8-ebaa-42d7-b3a6-fd3a2d3e0659", CellID->641071683], Cell[17826, 521, 886, 32, 70, "Notes",ExpressionUUID->"3679d480-0e5f-49d6-ad79-67870843a4f6", CellID->103192569], Cell[18715, 555, 678, 27, 70, "Notes",ExpressionUUID->"bb81f5cb-d6dd-49e2-91f8-0a55da1f2dce", CellID->229061181], Cell[19396, 584, 1158, 37, 70, "Notes",ExpressionUUID->"28193f96-679c-4bd7-9030-d2c496a69e0d", CellID->723292781] }, Open ]], Cell[CellGroupData[{ Cell[20591, 626, 6918, 150, 70, "Section",ExpressionUUID->"ec3e4c57-9909-4ed8-8ee9-b229aff12035", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell[27534, 780, 75, 2, 70, "Subsection",ExpressionUUID->"8a2bbb18-dc11-4679-aa5a-278d29df195c", CellID->904125756], Cell[27612, 784, 156, 3, 70, "Text",ExpressionUUID->"47b0c08d-ee02-461d-ba8c-4547be912a21", CellID->530504084], Cell[CellGroupData[{ Cell[27793, 791, 295, 9, 70, "Input",ExpressionUUID->"727aabf5-0aa2-45c1-ad32-4faae642404f", CellID->129381641], Cell[28091, 802, 685, 21, 70, "Output",ExpressionUUID->"8028b27a-f7b3-44cd-80d0-57e01d30daff", CellID->731721670] }, Open ]], Cell[28791, 826, 177, 4, 70, "Text",ExpressionUUID->"8c9b3c0b-058d-4240-b609-ac9dbe96cabd", CellID->653001724], Cell[CellGroupData[{ Cell[28993, 834, 287, 10, 70, "Input",ExpressionUUID->"db36464b-5cbe-4de0-82c7-0edd7bd112fe", CellID->297390387], Cell[29283, 846, 708, 22, 70, "Output",ExpressionUUID->"72f50f14-cc9b-4f1b-aa04-927acedfc8de", CellID->483682086] }, Open ]], Cell[30006, 871, 177, 4, 70, "Text",ExpressionUUID->"a1914adf-de70-4216-a75d-0b9e7a0155a6", CellID->876625481], Cell[CellGroupData[{ Cell[30208, 879, 304, 10, 70, "Input",ExpressionUUID->"88933134-f204-42e4-8d08-13d596741860", CellID->111594048], Cell[30515, 891, 653, 20, 70, "Output",ExpressionUUID->"e0f7d72d-bfb2-46ee-b79a-486b9d8f0d75", CellID->203490235] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31217, 917, 66, 2, 70, "Subsection",ExpressionUUID->"94e8ebdb-f449-44e9-a9f1-c3340414bf39", CellID->204653245], Cell[31286, 921, 256, 6, 70, "Text",ExpressionUUID->"7a288dd8-bce9-4b15-9624-2d3e371da644", CellID->896680288], Cell[31545, 929, 198, 7, 70, "Input",ExpressionUUID->"819bc4ca-966a-41f3-94e3-f53721fc166f", CellID->953533578], Cell[31746, 938, 76, 2, 70, "Text",ExpressionUUID->"b44173bb-2e03-4290-8514-0d91710f25a2", CellID->109187608], Cell[CellGroupData[{ Cell[31847, 944, 212, 7, 70, "Input",ExpressionUUID->"3993f0af-5379-4d63-b496-988ced25d9c7", CellID->423031866], Cell[32062, 953, 705, 22, 70, "Output",ExpressionUUID->"a086f750-5b09-4d1d-914c-82e6382dbfa7", CellID->779785379] }, Open ]], Cell[32782, 978, 78, 2, 70, "Text",ExpressionUUID->"32554d3f-209e-47fe-afdb-064d6afade1d", CellID->771840398], Cell[CellGroupData[{ Cell[32885, 984, 238, 7, 70, "Input",ExpressionUUID->"29c44ae0-1033-403a-8e4b-a0e4eed4a47c", CellID->835054669], Cell[33126, 993, 687, 20, 70, "Output",ExpressionUUID->"6be029a0-ab21-4dae-9ab0-8239a7548b5d", CellID->754792446] }, Open ]], Cell[33828, 1016, 90, 2, 70, "Text",ExpressionUUID->"a700aa6b-aeb8-4c07-a1aa-b7c40d5219e0", CellID->310962671], Cell[CellGroupData[{ Cell[33943, 1022, 266, 8, 70, "Input",ExpressionUUID->"a92c7438-03be-46cd-8882-c549c7971c83", CellID->176219064], Cell[34212, 1032, 711, 20, 70, "Output",ExpressionUUID->"fee6cbe0-5384-4ea3-9223-2ef1edd081b9", CellID->639192069] }, Open ]], Cell[CellGroupData[{ Cell[34960, 1057, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9750cc20-2e30-473d-a636-f5254f77cec8", CellID->14107562], Cell[35106, 1063, 1302, 41, 70, "Text",ExpressionUUID->"2c7509ce-8dac-437f-b5d2-db49f9aa6476", CellID->345180536], Cell[CellGroupData[{ Cell[36433, 1108, 196, 6, 70, "Input",ExpressionUUID->"2d114e79-d54b-4dcc-b273-321da32099bf", CellID->223247072], Cell[36632, 1116, 12053, 243, 70, "Output",ExpressionUUID->"210dbe6f-7c36-4870-9304-f26979aaaba5", CellID->762193384] }, Open ]], Cell[CellGroupData[{ Cell[48722, 1364, 176, 5, 70, "Input",ExpressionUUID->"43fa6e86-f7f1-4b3d-93d9-4633f80ac7b5", CellID->95988876], Cell[48901, 1371, 13109, 261, 70, "Output",ExpressionUUID->"86ac4fdf-d031-48cc-a6d7-ab4cb5ea0bea", CellID->305910092] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62059, 1638, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3b8ff207-eb58-46b2-be07-c769659b114d", CellID->14107563], Cell[62205, 1644, 101, 2, 70, "Text",ExpressionUUID->"4b8d23ec-59d1-4e11-be53-cab2b9082525", CellID->806498892], Cell[CellGroupData[{ Cell[62331, 1650, 316, 10, 70, "Input",ExpressionUUID->"30d8a02b-3bd4-4128-a3df-df8f0eb38aee", CellID->146730550], Cell[62650, 1662, 748, 22, 70, "Output",ExpressionUUID->"ad98af7a-9e32-4fa2-9f21-2ef29cd14787", CellID->700864181] }, Open ]], Cell[63413, 1687, 153, 3, 70, "Text",ExpressionUUID->"dacbb977-49f2-4ef7-a49f-f0eea406d1f8", CellID->638282373], Cell[CellGroupData[{ Cell[63591, 1694, 340, 10, 70, "Input",ExpressionUUID->"0908255f-9cd7-4afd-8656-0a57926a25e2", CellID->672553564], Cell[63934, 1706, 656, 20, 70, "Output",ExpressionUUID->"d4db0063-d9e9-4122-8e16-ff0f4583bb81", CellID->987942918] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64639, 1732, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"83c82323-42b7-4ab6-9f59-60d0c4857cc9", CellID->14107564], Cell[64785, 1738, 132, 3, 70, "Text",ExpressionUUID->"6ab4ef3a-6ebf-45e8-9909-24472985afff", CellID->56328760], Cell[CellGroupData[{ Cell[64942, 1745, 371, 12, 70, "Input",ExpressionUUID->"d7fb74cd-c04c-4a3b-a94d-51ed1ced9923", CellID->194830811], Cell[65316, 1759, 682, 20, 70, "Output",ExpressionUUID->"1c792d17-d953-494e-a49c-dca606a3a764", CellID->8846522] }, Open ]], Cell[CellGroupData[{ Cell[66035, 1784, 369, 12, 70, "Input",ExpressionUUID->"41f8de2f-8036-4ffa-becc-4c4b30180b76", CellID->569845919], Cell[66407, 1798, 698, 22, 70, "Output",ExpressionUUID->"76064de6-ace1-46d2-97ec-48c25d6bf132", CellID->997374437] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[67166, 1827, 73, 2, 70, "Subsection",ExpressionUUID->"92481249-611a-4651-8536-1869cdbf88da", CellID->605265931], Cell[67242, 1831, 203, 5, 70, "Text",ExpressionUUID->"9710738d-1ea2-41fb-9160-7e0a94d6570f", CellID->61274549], Cell[CellGroupData[{ Cell[67470, 1840, 308, 11, 70, "Input",ExpressionUUID->"a709741b-7706-46c6-9bf9-e2e7e66ce029", CellID->79785924], Cell[67781, 1853, 1140, 38, 70, "Output",ExpressionUUID->"69ce4e9f-b150-4af0-ada0-daf2cd8a6eda", CellID->836054879] }, Open ]], Cell[CellGroupData[{ Cell[68958, 1896, 564, 17, 70, "Input",ExpressionUUID->"30b367d5-b448-41f6-956f-dcfed76936be", CellID->948234877], Cell[69525, 1915, 1786, 57, 70, "Output",ExpressionUUID->"fecd2509-d4ac-49ca-b865-0726daccd1a5", CellID->148027447] }, Open ]], Cell[CellGroupData[{ Cell[71348, 1977, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2cc6bce3-4495-4221-88d6-7516fb6b5e3d", CellID->14107565], Cell[71494, 1983, 168, 3, 70, "Text",ExpressionUUID->"ac7d40ce-e68f-42f8-a557-aa64fbf6faed", CellID->172987610], Cell[CellGroupData[{ Cell[71687, 1990, 883, 29, 70, "Input",ExpressionUUID->"93bdd0d4-2ce8-4e7c-8364-7c41fb1a2ddf", CellID->127463522], Cell[72573, 2021, 1090, 35, 70, "Output",ExpressionUUID->"756871c8-84a6-42ec-be21-4a6178e2cc48", CellID->943476992] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73712, 2062, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"45bee737-1626-4270-b5db-39b20a844d74", CellID->14107566], Cell[73858, 2068, 247, 6, 70, "Text",ExpressionUUID->"8b1b71f3-94bf-4440-b529-17c9f3201561", CellID->897802978], Cell[CellGroupData[{ Cell[74130, 2078, 488, 16, 70, "Input",ExpressionUUID->"6223b54d-d903-4a4d-bf74-a32c79eb8db6", CellID->707222852], Cell[74621, 2096, 181, 6, 70, "Output",ExpressionUUID->"02d0dc22-dfae-43fe-bb33-9196f37e0334", CellID->381761155] }, Open ]], Cell[74817, 2105, 175, 3, 70, "Text",ExpressionUUID->"e2eb3f89-2033-429a-977c-0e5b8ce774ed", CellID->819146331], Cell[CellGroupData[{ Cell[75017, 2112, 315, 9, 70, "Input",ExpressionUUID->"be8845c6-fde9-4edb-a69e-33e35677f0b7", CellID->790271732], Cell[75335, 2123, 185, 5, 70, "Output",ExpressionUUID->"9fd3bda1-7424-444f-ac49-5e561da0c5d8", CellID->62014068] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[75581, 2135, 85, 2, 70, "Subsection",ExpressionUUID->"10b6b7c6-47bc-419e-bda1-e53e6c583bae", CellID->232113220], Cell[75669, 2139, 606, 15, 70, "Text",ExpressionUUID->"d4c99ff5-b117-4878-bc23-57b5c5abc2b9", CellID->922679948], Cell[CellGroupData[{ Cell[76300, 2158, 458, 13, 70, "Input",ExpressionUUID->"6a859357-215a-4104-a1fb-8a3595980c0d", CellID->223418960], Cell[76761, 2173, 137, 4, 70, "Output",ExpressionUUID->"9ba84ac9-d737-4364-a7f4-177b8936f19d", CellID->569507821] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[76959, 2184, 153, 4, 70, "Section",ExpressionUUID->"17f1a58c-59a2-4045-b734-98e6afd54e4c", CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[77137, 2192, 918, 24, 70, "Subsection",ExpressionUUID->"8a989aa4-ef98-4151-8fa2-e60fd73268eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[78058, 2218, 50, 1, 70, "Text",ExpressionUUID->"829e1c87-185c-458b-98c5-db82c5d5f930", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[78145, 2224, 893, 24, 70, "Subsection",ExpressionUUID->"619ba39f-cfcc-48ac-bb6f-a24a9bd0918c", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[79041, 2250, 55, 1, 70, "Item",ExpressionUUID->"3f2db295-57f4-4f72-aa31-35f029a784c9", CellID->815058512], Cell[79099, 2253, 56, 1, 70, "Item",ExpressionUUID->"9069c0df-e73f-400c-9f38-ab8f57169e07", CellID->288160250], Cell[79158, 2256, 59, 1, 70, "Item",ExpressionUUID->"b77f8323-6ead-4ab3-b839-53c1a3caf814", CellID->391431773], Cell[79220, 2259, 61, 1, 70, "Item",ExpressionUUID->"fd7a0e9c-3902-4967-93dc-7c80a1213b33", CellID->886906537], Cell[79284, 2262, 60, 1, 70, "Item",ExpressionUUID->"aa29c5f2-b665-436e-9e2b-366bb60cf153", CellID->394376280], Cell[79347, 2265, 57, 1, 70, "Item",ExpressionUUID->"3a9eb577-ddef-4b1e-99aa-ccbe916d0a6c", CellID->334683544], Cell[79407, 2268, 55, 1, 70, "Item",ExpressionUUID->"75c5a5ab-b8bf-425d-aa66-5ff8ffdfe61e", CellID->444183466] }, Open ]], Cell[CellGroupData[{ Cell[79499, 2274, 166, 5, 70, "Subsection",ExpressionUUID->"4249ad1d-9eaf-499f-ad47-5b140713fb94", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[79668, 2281, 6452, 218, 70, "Output",ExpressionUUID->"f4a49d7e-7cba-476d-ba00-2d5983936831", CellTags->"CategoriesCell", CellID->172324875] }, Open ]], Cell[CellGroupData[{ Cell[86157, 2504, 870, 24, 70, "Subsection",ExpressionUUID->"ad2ce5af-6d7e-4c49-8452-33320ce99402", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[87030, 2530, 44, 1, 70, "Item",ExpressionUUID->"784eeaa2-ffb8-4f44-8324-482bf7bb88cc", CellID->285590315], Cell[87077, 2533, 50, 1, 70, "Item",ExpressionUUID->"1cbd57db-6568-4b55-8229-9f1ec8beae92", CellID->312624173], Cell[87130, 2536, 38, 1, 70, "Item",ExpressionUUID->"8a6ab7a6-02d7-4836-bd5a-9a2357bca6c8", CellID->295828843], Cell[87171, 2539, 40, 1, 70, "Item",ExpressionUUID->"1c57702d-9a5b-4c2e-95a9-329189bf95a4", CellID->382682805] }, Open ]], Cell[CellGroupData[{ Cell[87248, 2545, 920, 24, 70, "Subsection",ExpressionUUID->"64ed519c-884a-4752-a6d8-ea969370ea86", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[88171, 2571, 48, 1, 70, "Item",ExpressionUUID->"04bec309-ddd0-40f0-b356-c5f8f549f928", CellID->383681833] }, Open ]], Cell[CellGroupData[{ Cell[88256, 2577, 971, 25, 70, "Subsection",ExpressionUUID->"91bce42a-2c2c-41bb-9021-3f578b74f55b", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[89230, 2604, 496, 8, 70, "Text",ExpressionUUID->"f2ea453d-4c62-4e16-8108-ce96bf3c0e1e", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[89763, 2617, 823, 24, 70, "Subsection",ExpressionUUID->"4b5fc171-40ee-47fc-8dc2-0784b6c0c49d", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[90589, 2643, 79, 1, 70, "Item",ExpressionUUID->"597bdbe7-4867-47e5-9f61-fbe78fa9b4cc", CellID->854328472] }, Open ]], Cell[CellGroupData[{ Cell[90705, 2649, 1737, 43, 70, "Subsection",ExpressionUUID->"eef76658-8228-4060-a0f3-5ab16e0a936f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[CellGroupData[{ Cell[92467, 2696, 11995, 263, 70, "Input",ExpressionUUID->"a4a8970a-bf48-4182-af9c-1d6d26f688df", CellID->480074792], Cell[104465, 2961, 9312, 204, 70, "Output",ExpressionUUID->"670e7a88-8fc6-4438-b960-82b39b3991e1", CellID->531815344], Cell[113780, 3167, 9686, 210, 70, "Output",ExpressionUUID->"c43ebe15-58ee-4178-9214-9ba0969e7ebd", CellID->180203466], Cell[123469, 3379, 30909, 613, 70, "Output",ExpressionUUID->"293848d6-8f34-48c7-b8ad-9e12c7e4159f", CellID->666268100] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[154439, 3999, 1048, 26, 70, "Section",ExpressionUUID->"b405d419-c4ee-436e-8a3f-a3c2c34a7fd3", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[155490, 4027, 509, 8, 70, "Text",ExpressionUUID->"233d2798-76c6-439c-9362-eb85eb099524", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[156036, 4040, 929, 25, 70, "Section",ExpressionUUID->"ec802751-cad0-4a92-971a-fea7e4ba4879", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], Cell[156968, 4067, 495, 8, 70, "Text",ExpressionUUID->"c7b1a809-1338-47da-ad2a-8fd306483287", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)