(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 139700, 3331] NotebookOptionsPosition[ 47154, 1490] NotebookOutlinePosition[ 123775, 2989] CellTagsIndexPosition[ 123091, 2966] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["LinearlyIndependent", "Title", CellTags->"Title"], Cell["Determine whether a set of vectors is linearly independent", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{"ClearAll", "[", "`LinearlyIndependent", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "`LinearlyIndependent", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"`LinearlyIndependent", "[", "args___", "]"}], ":=", " ", RowBox[{"Module", "[", "\n", " ", RowBox[{ RowBox[{"{", "res", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"If", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"$VersionNumber", "\[LessEqual]", "12"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], "\n", " ", RowBox[{ RowBox[{"Once", "[", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ "PacletManager`PacletUpdate", "[", "\"\\"", "]"}], ";", "\n", " ", RowBox[{"Quiet", "[", RowBox[{"Get", "[", "\"\\"", "]"}], "]"}]}], "\n", " ", "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"res", " ", "=", " ", RowBox[{ RowBox[{ "Symbol", "[", "\"\\"", "]"}], "[", "args", "]"}]}]}], "\[IndentingNewLine]", " ", ",", "\[IndentingNewLine]", " ", RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", " ", RowBox[{"res", " ", "=", " ", RowBox[{ RowBox[{ "Symbol", "[", "\"\\"", "]"}], "[", "args", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", " ", "/;", " ", RowBox[{ RowBox[{"Head", "[", "res", "]"}], " ", "=!=", " ", "AlphaScannerFunctions`LinearlyIndependent"}]}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Code", CellChangeTimes->{ 3.778930709331377*^9, {3.7789333157269907`*^9, 3.7789333181982374`*^9}}, CellLabel->"In[20]:=", CellID->304931571] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->"Usage", CellID->643497520], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["vect", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["vect", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], "]"}]], "UsageInputs"], Cell["\<\ returns the conditions under which the given vectors are mutually linearly \ independent.\ \>", "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ "For numeric input, ", Cell[BoxData["LinearlyIndependent"], "InlineFormula", FontFamily->"Source Sans Pro"], " will return ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". For symbolic input, the result may be a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ConditionalExpression", "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/ConditionalExpression", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7789330241988406`*^9, 3.778933080166437*^9}, 3.7791284255117245`*^9}, CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Test some two-dimensional vectors for linear independence:", "Text", CellChangeTimes->{{3.778933335363954*^9, 3.7789333531847363`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[23]:=", CellID->30327999], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789333931557326`*^9}, CellLabel->"Out[23]=", CellID->281059643] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->237513338], Cell["\<\ Test some three-dimensional vectors for linear independence :\ \>", "Text", CellChangeTimes->{{3.7789333599824157`*^9, 3.778933374178835*^9}}, CellID->400679295], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[24]:=", CellID->184883105], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789333949389105`*^9}, CellLabel->"Out[24]=", CellID->359704376] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->3421394], Cell["This set of vectors is linearly dependent:", "Text", CellChangeTimes->{{3.7789333599824157`*^9, 3.778933374178835*^9}, { 3.778933464496866*^9, 3.7789334772321396`*^9}, {3.779128444718413*^9, 3.7791284450689745`*^9}}, CellID->199719796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"1", ",", "3", ",", RowBox[{"-", "2"}]}], "}"}]}], ",", RowBox[{"b", "=", RowBox[{"{", RowBox[{"2", ",", "1", ",", RowBox[{"-", "3"}]}], "}"}]}], ",", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "5", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.778933453946811*^9, 3.7789334551149282`*^9}, { 3.778933734984912*^9, 3.778933791594572*^9}}, CellLabel->"In[34]:=", CellID->49881138], Cell[BoxData["False"], "Output", CellChangeTimes->{ 3.778933406162033*^9, 3.7789334555639725`*^9, {3.778933766090022*^9, 3.778933792299643*^9}}, CellLabel->"Out[34]=", CellID->419610228] }, Open ]], Cell["\<\ Confirm that the third vector can be written as a linear combination of the \ first two:\ \>", "Text", CellChangeTimes->{{3.7789333599824157`*^9, 3.778933374178835*^9}, { 3.778933464496866*^9, 3.7789334772321396`*^9}, {3.7789338219246054`*^9, 3.778933858421254*^9}}, CellID->3957132], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"2", "a"}], "-", "b"}], "\[Equal]", "c"}]], "Input", CellChangeTimes->{{3.778933749607374*^9, 3.77893375316173*^9}, { 3.7789337972451377`*^9, 3.778933812429656*^9}}, CellLabel->"In[36]:=", CellID->50396049], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7789337556209755`*^9, {3.7789338074071536`*^9, 3.7789338128757005`*^9}}, CellLabel->"Out[36]=", CellID->102016220] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->6806877], Cell[TextData[{ Cell[BoxData["LinearlyIndependent"], "InlineFormula", FontFamily->"Source Sans Pro"], " works with any number of vectors of any dimension:" }], "Text", CellChangeTimes->{{3.778933335363954*^9, 3.7789333531847363`*^9}, { 3.7789345429667025`*^9, 3.778934569720377*^9}}, CellID->91942375], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", " ", "8", ",", " ", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7789345734367485`*^9, 3.7789345894323483`*^9}}, CellLabel->"In[58]:=", CellID->151060850], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789333931557326`*^9, 3.7789345901564207`*^9}, CellLabel->"Out[58]=", CellID->245411142] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell[TextData[{ "For vectors with symbolic parameters, ", Cell[BoxData["LinearlyIndependent"], "InlineFormula", FontFamily->"Source Sans Pro"], " may return a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ConditionalExpression", "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/ConditionalExpression", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.7789330998694067`*^9, 3.778933153053725*^9}, {3.778933495593975*^9, 3.778933495999016*^9}, {3.779128467188957*^9, 3.7791284684159985`*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", "7", ",", " ", "h"}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[27]:=", CellID->102372153], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{"True", ",", RowBox[{"h", "\[NotEqual]", "6"}]}], "]"}]], "Output", CellChangeTimes->{3.7789334819246087`*^9}, CellLabel->"Out[27]=", CellID->158829441] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", "h", ",", "i"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{3.7789328959470167`*^9}, CellLabel->"In[17]:=", CellID->836153427], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{"True", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "c"}], " ", "e", " ", "g"}], "+", RowBox[{"b", " ", "f", " ", "g"}], "+", RowBox[{"c", " ", "d", " ", "h"}], "-", RowBox[{"a", " ", "f", " ", "h"}], "-", RowBox[{"b", " ", "d", " ", "i"}], "+", RowBox[{"a", " ", "e", " ", "i"}]}], "\[NotEqual]", "0"}]}], "]"}]], "Output", CellChangeTimes->{3.778932898067229*^9}, CellLabel->"Out[17]=", CellID->743876347] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->290937824], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "/", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " result may be obtained by giving values to the parameters:" }], "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.77893350754217*^9, 3.778933529412357*^9}, {3.778933610504465*^9, 3.77893361235165*^9}}, CellID->104088577], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "x", ",", "x"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.778933162266646*^9, 3.7789331645148706`*^9}}, CellLabel->"In[18]:=", CellID->435768177], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{"True", ",", RowBox[{"x", "\[NotEqual]", "0"}]}], "]"}]], "Output", CellChangeTimes->{3.7789331658790073`*^9}, CellLabel->"Out[18]=", CellID->299178876] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"{", RowBox[{"x", "->", "2"}], "}"}]}]], "Input", CellChangeTimes->{{3.778933162266646*^9, 3.7789331645148706`*^9}}, CellLabel->"In[19]:=", CellID->188464206], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789331681802373`*^9}, CellLabel->"Out[19]=", CellID->14196296] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->593438337], Cell["LinearlyIndependent accepts vectors with complex components:", "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.77893350754217*^9, 3.778933529412357*^9}, {3.7789336394413586`*^9, 3.778933663495764*^9}}, CellID->15950221], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "+", "I"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7789336530597205`*^9, 3.77893365395481*^9}}, CellLabel->"In[31]:=", CellID->234533403], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789336019466095`*^9, 3.77893366595901*^9}, CellLabel->"Out[31]=", CellID->469666924] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell["\<\ A set of vectors is linearly independent if and only if the rank of the row \ matrix composed of the vectors equals the length of the vectors:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, 3.7791284985746813`*^9, { 3.7791285440958586`*^9, 3.7791285441868377`*^9}}, CellID->712692948], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"IdentityMatrix", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LinearlyIndependent", "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.778934282048613*^9, 3.7789342946248703`*^9}}, CellLabel->"In[68]:=", CellID->218488255], Cell[BoxData["True"], "Output", CellChangeTimes->{3.778933875707983*^9, 3.7789342952149296`*^9, 3.778934769834387*^9}, CellLabel->"Out[69]=", CellID->466868] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixRank", "[", "mat", "]"}], "\[Equal]", RowBox[{ RowBox[{"Dimensions", "[", "mat", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]], "Input", CellChangeTimes->{{3.7789341994003487`*^9, 3.778934206736082*^9}, { 3.7789342985652647`*^9, 3.77893432772318*^9}, {3.7789347391803217`*^9, 3.7789347439728007`*^9}}, CellLabel->"In[70]:=", CellID->65314419], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7789342072661357`*^9, {3.7789343205284605`*^9, 3.778934328264234*^9}, { 3.7789347445388575`*^9, 3.7789347710705104`*^9}}, CellLabel->"Out[70]=", CellID->603778247] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->37623628], Cell["\<\ A set of vectors is linearly independent if and only if the rank of the row \ matrix composed of the vectors has a zero-dimensional null space:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, {3.778935076711071*^9, 3.778935093519752*^9}, {3.7791285490112815`*^9, 3.77912854920228*^9}}, CellID->306676826], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"HilbertMatrix", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LinearlyIndependent", "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.7789344082782345`*^9, 3.7789344211245193`*^9}}, CellLabel->"In[53]:=", CellID->346365067], Cell[BoxData["True"], "Output", CellChangeTimes->{3.778933875767989*^9, 3.778934421672574*^9}, CellLabel->"Out[54]=", CellID->184471202] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.778934429345341*^9, 3.7789344704464507`*^9}}, CellLabel->"In[57]:=", CellID->686687782], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.778934452989705*^9, 3.778934470928499*^9}}, CellLabel->"Out[57]=", CellID->81849909] }, Open ]], Cell["Or, alternatively:", "Text", CellChangeTimes->{{3.7789353423126287`*^9, 3.77893537212661*^9}}, CellID->590522185], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{"NullSpace", "[", "mat", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7789352627796764`*^9, 3.77893527181758*^9}}, CellLabel->"In[76]:=", CellID->58397377], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.778935267424141*^9, 3.778935272375636*^9}}, CellLabel->"Out[76]=", CellID->350047408] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->76187205], Cell["\<\ A set of vectors is linearly independent if and only if the rank of the row \ matrix composed of the vectors has a non-zero determinant:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, {3.778935076711071*^9, 3.778935093519752*^9}, {3.778935762427636*^9, 3.7789357731827116`*^9}, { 3.7791285274011965`*^9, 3.7791285289917283`*^9}}, CellID->86156109], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"ToeplitzMatrix", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LinearlyIndependent", "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.7789356458379784`*^9, 3.778935656876082*^9}, { 3.7789356913735313`*^9, 3.778935708042198*^9}}, CellLabel->"In[86]:=", CellID->137027042], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789357094463387`*^9}, CellLabel->"Out[87]=", CellID->632014370] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Det", "[", "mat", "]"}], "\[Equal]", "0"}]], "Input", CellChangeTimes->{{3.7789357136547594`*^9, 3.7789357280692005`*^9}}, CellLabel->"In[88]:=", CellID->48398168], Cell[BoxData["False"], "Output", CellChangeTimes->{3.778935728851279*^9}, CellLabel->"Out[88]=", CellID->312476630] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->415380141], Cell["\<\ A set of vectors is linearly independent if and only if its row-reduced form \ has a no zeros along its diagonal:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, {3.778935076711071*^9, 3.778935093519752*^9}, {3.7789354533097277`*^9, 3.778935472187615*^9}, { 3.7789355085942554`*^9, 3.778935520192415*^9}, {3.779128557297573*^9, 3.7791285574805746`*^9}}, CellID->674643678], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res", "=", RowBox[{"RowReduce", "[", "mat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res", "//", "MatrixForm"}]}], "Input", CellChangeTimes->{{3.778935215617961*^9, 3.778935215618961*^9}, { 3.7789353817345705`*^9, 3.7789354071161084`*^9}, {3.778935487517148*^9, 3.7789354965810537`*^9}}, CellLabel->"In[82]:=", CellID->371653160], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", RowBox[{"-", "1"}]}, {"0", "1", "2"}, {"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", CellChangeTimes->{3.7789354076251593`*^9, 3.7789354971221085`*^9}, CellLabel->"Out[84]//MatrixForm=", CellID->269621298] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Diagonal", "[", "res", "]"}]], "Input", CellChangeTimes->{{3.7789354780862045`*^9, 3.7789354848338795`*^9}}, CellLabel->"In[85]:=", CellID->84620982], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.7789354987772737`*^9}, CellLabel->"Out[85]=", CellID->650691353] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.7789352474971485`*^9, 3.7789352564490433`*^9}, { 3.7789354433667336`*^9, 3.778935444264823*^9}}, CellLabel->"In[81]:=", CellID->229928941], Cell[BoxData["False"], "Output", CellChangeTimes->{3.7789338758279953`*^9, 3.7789352570821066`*^9, 3.7789354447128677`*^9}, CellLabel->"Out[81]=", CellID->216980590] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->23507828], Cell["The zero vector is linearly dependent on every other vector:", "Text", CellChangeTimes->{{3.778933895321944*^9, 3.7789339021176233`*^9}, { 3.778933991942605*^9, 3.778934023285739*^9}}, CellID->10977427], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{3.77893328512093*^9}, CellLabel->"In[46]:=", CellID->464117689], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.778934026173028*^9, 3.778934041453556*^9}}, CellLabel->"Out[46]=", CellID->79683403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->133009029], Cell[TextData[{ Cell[BoxData["LinearlyIndependent"], "InlineFormula", FontFamily->"Source Sans Pro"], " will not evaluate if the vectors do not all have the same length:" }], "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.77893350754217*^9, 3.778933529412357*^9}, {3.7789336394413586`*^9, 3.778933663495764*^9}, {3.7789339437447863`*^9, 3.7789339848348947`*^9}}, CellID->237561448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7789339252939415`*^9, 3.778933928714283*^9}, { 3.778933960737485*^9, 3.778933967845196*^9}}, CellLabel->"In[41]:=", CellID->106578310], Cell[BoxData[ RowBox[{"LinearlyIndependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}]}], "}"}], "]"}]], "Output", CellChangeTimes->{3.7789339294023523`*^9, 3.7789339685652676`*^9}, CellLabel->"Out[41]=", CellID->729939135] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Wolfram|Alpha Math Team", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["linear algebra", "Item"], Cell["matrix", "Item"], Cell["matrices", "Item"], Cell["determinant", "Item"], Cell["null space", "Item"], Cell["nullity", "Item"], Cell["kernel", "Item"], Cell["matrix image", "Item"], Cell["linear transformation", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Symbolic & Numeric Computation", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["MatrixRank", "Item"], Cell["Det", "Item"], Cell["NullSpace", "Item"], Cell["RowReduce", "Item"], Cell["Dimensions", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["Nullity", "Item"], Cell["RowSpace", "Item"], Cell["ColumnSpace", "Item"], Cell["LinearConstraints", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell["http://mathworld.wolfram.com/LinearTransformation.html", "Item"], Cell["http://mathworld.wolfram.com/Rank-NullityTheorem.html", "Item"], Cell["http://mathworld.wolfram.com/NullSpace.html", "Item"], Cell["http://mathworld.wolfram.com/Kernel.html", "Item"], Cell["http://mathworld.wolfram.com/Image.html", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.26", "CreationTimestamp" -> 3.779128689469626`16.329966670220905*^9, "UpdatedTimestamp" -> 3.779128689469718`16.329966670220916*^9}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> If[ Not[$CloudEvaluation], CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = ""]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> F\ alse, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], 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 SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, 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, FontSize -> 14], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.854902, 0.396078, 0.145098], RGBColor[0.0196078, 0.286275, 0.65098]]]], 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.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 56, 1, 70, "Title",ExpressionUUID->"ffece5a2-246a-4abd-b165-c5882f6b2a8c", CellTags->"Title"]}, "Description"->{ Cell[617, 23, 100, 1, 70, "Text",ExpressionUUID->"2067a0da-476c-4969-abbe-719bdc94c332", CellTags->"Description"]}, "Definition"->{ Cell[742, 28, 887, 21, 70, "Section",ExpressionUUID->"62a36c32-e541-4c48-8f47-3b9683b67890", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[3736, 102, 99, 3, 70, "Section",ExpressionUUID->"4fc222bf-f85d-4266-a0a9-92039eb282f4", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[3860, 109, 1650, 42, 70, "Subsection",ExpressionUUID->"30fd7306-f39e-48c4-8f50-49dcf5c18c48", CellTags->"Usage", CellID->643497520]}, "Details & Options"->{ Cell[6020, 176, 1131, 24, 70, "Subsection",ExpressionUUID->"e5b4f6b3-fe18-481f-b111-01322e8f1d95", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[7154, 202, 2195, 63, 70, "Notes",ExpressionUUID->"4b45156c-8099-45d9-bc7d-2488677f92bb", CellTags->"TabNext", CellID->521904482], Cell[42658, 1353, 496, 8, 70, "Text",ExpressionUUID->"3618cf35-31b5-4c97-b3da-1617f6841c45", CellTags->"TabNext", CellID->343081869], Cell[45374, 1445, 509, 8, 70, "Text",ExpressionUUID->"6c65bdb4-85c9-4f28-9920-9b2a4797cd56", CellTags->"TabNext", CellID->567921317], Cell[46643, 1479, 495, 8, 70, "Text",ExpressionUUID->"145d84cb-fc4f-44ea-8364-063f72519987", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[9386, 270, 6400, 143, 70, "Section",ExpressionUUID->"881ea400-45f7-40bd-9da8-5e75f67d9b92", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[38071, 1184, 135, 3, 70, "Section",ExpressionUUID->"5f14c518-94c6-4e8c-8b5a-17af8649d329", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[38231, 1191, 683, 18, 70, "Subsection",ExpressionUUID->"8cfd5632-59a4-4331-ad1a-0268dfe37282", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[38993, 1216, 684, 18, 70, "Subsection",ExpressionUUID->"f7b074b2-2337-42db-8ac5-617964bfc184", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[39980, 1257, 126, 4, 70, "Subsection",ExpressionUUID->"5c5d91a8-f8cb-41ce-afe5-d36ab499de75", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[40192, 1268, 661, 18, 70, "Subsection",ExpressionUUID->"30ad5db7-3df3-456d-afcf-e19218e992de", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[41026, 1301, 711, 18, 70, "Subsection",ExpressionUUID->"2ae4d00a-db9c-41d1-81aa-dc29893830fc", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[41893, 1332, 762, 19, 70, "Subsection",ExpressionUUID->"c5289266-7816-4e7a-96c0-209703267ac4", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[43191, 1366, 614, 18, 70, "Subsection",ExpressionUUID->"d2fdeb69-d2d5-41cf-b4ef-93a5dd1c38d2", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[44166, 1399, 767, 20, 70, "Subsection",ExpressionUUID->"a9742e84-15a5-41f9-a166-d5aba06cdea6", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[45244, 1439, 127, 4, 70, "Section",ExpressionUUID->"599db9e8-ce08-4eb1-b3c3-4d33305a2cf9", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[45920, 1458, 720, 19, 70, "Section",ExpressionUUID->"8efbcdbf-7698-4221-94d6-d065fc0f0159", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 119427, 2880}, {"Description", 119560, 2883}, {"Definition", 119698, 2886}, {"Documentation", 119864, 2890}, {"Usage", 120025, 2894}, {"Details & Options", 120196, 2898}, {"TabNext", 120368, 2902}, {"Examples", 120953, 2915}, {"Source & Additional Information", 121139, 2919}, {"Contributed By", 121330, 2923}, {"Keywords", 121502, 2927}, {"Categories", 121670, 2931}, {"Related Symbols", 121844, 2935}, {"Related Resource Objects", 122033, 2939}, {"Source/Reference Citation", 122232, 2943}, {"Links", 122412, 2947}, {"Tests", 122572, 2951}, {"Author Notes", 122738, 2955}, {"Submission Notes", 122912, 2959} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 56, 1, 70, "Title",ExpressionUUID->"ffece5a2-246a-4abd-b165-c5882f6b2a8c", CellTags->"Title"], Cell[617, 23, 100, 1, 70, "Text",ExpressionUUID->"2067a0da-476c-4969-abbe-719bdc94c332", CellTags->"Description"], Cell[CellGroupData[{ Cell[742, 28, 887, 21, 70, "Section",ExpressionUUID->"62a36c32-e541-4c48-8f47-3b9683b67890", CellTags->"Definition", CellID->474513213], Cell[1632, 51, 2089, 48, 70, "Code",ExpressionUUID->"3dbe6009-ece6-4b5a-8e6e-a89babb6c52a", CellID->304931571] }, Open ]], Cell[3736, 102, 99, 3, 70, "Section",ExpressionUUID->"4fc222bf-f85d-4266-a0a9-92039eb282f4", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[3860, 109, 1650, 42, 70, "Subsection",ExpressionUUID->"30fd7306-f39e-48c4-8f50-49dcf5c18c48", CellTags->"Usage", CellID->643497520], Cell[CellGroupData[{ Cell[5535, 155, 308, 10, 70, "UsageInputs",ExpressionUUID->"e78bd7a2-8a00-4996-a6e4-70c9c1792a19"], Cell[5846, 167, 125, 3, 70, "UsageDescription",ExpressionUUID->"2624950b-5e56-40ab-a61a-c284bae9b78b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6020, 176, 1131, 24, 70, "Subsection",ExpressionUUID->"e5b4f6b3-fe18-481f-b111-01322e8f1d95", CellTags->"Details & Options", CellID->66019318], Cell[7154, 202, 2195, 63, 70, "Notes",ExpressionUUID->"4b45156c-8099-45d9-bc7d-2488677f92bb", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[9386, 270, 6400, 143, 70, "Section",ExpressionUUID->"881ea400-45f7-40bd-9da8-5e75f67d9b92", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[15811, 417, 56, 1, 70, "Subsection",ExpressionUUID->"ba8f0974-5971-4e41-856e-df83a875f788", CellID->462042388], Cell[15870, 420, 161, 2, 70, "Text",ExpressionUUID->"4b54ef42-1eb9-474c-a0d4-a7203c7fce21", CellID->13078159], Cell[CellGroupData[{ Cell[16056, 426, 264, 9, 70, "Input",ExpressionUUID->"f777d536-6f18-426d-a84a-6aec7fabed73", CellID->30327999], Cell[16323, 437, 119, 3, 70, "Output",ExpressionUUID->"397903b9-36d4-4a1e-9837-38da1c8ec10d", CellID->281059643] }, Open ]], Cell[CellGroupData[{ Cell[16479, 445, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"8d817b41-d6b8-4d09-b69c-6d50ece3808f", CellID->237513338], Cell[16607, 450, 173, 4, 70, "Text",ExpressionUUID->"59d71a95-4ef2-45f1-9ea3-a756330b6c07", CellID->400679295], Cell[CellGroupData[{ Cell[16805, 458, 356, 11, 70, "Input",ExpressionUUID->"7042f3d8-1b29-425d-9399-ced572ac0da9", CellID->184883105], Cell[17164, 471, 119, 3, 70, "Output",ExpressionUUID->"dae7b576-dbf1-4eff-aaca-2542a3d4b1eb", CellID->359704376] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17332, 480, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"9a1f5fcc-5012-419a-8411-30e1e95f87ab", CellID->3421394], Cell[17458, 485, 248, 4, 70, "Text",ExpressionUUID->"93fc0e0d-72af-4339-bba7-60c0256bff06", CellID->199719796], Cell[CellGroupData[{ Cell[17731, 493, 622, 19, 70, "Input",ExpressionUUID->"958728ba-b7e4-4db0-a90b-7231dbdd7f4b", CellID->49881138], Cell[18356, 514, 195, 5, 70, "Output",ExpressionUUID->"6941b390-590e-4431-afe6-0928e7a98072", CellID->419610228] }, Open ]], Cell[18566, 522, 300, 7, 70, "Text",ExpressionUUID->"d91c28d1-a669-40e3-b28f-795f1a15eaab", CellID->3957132], Cell[CellGroupData[{ Cell[18891, 533, 257, 7, 70, "Input",ExpressionUUID->"21c3d968-d6b4-43e0-a6e3-9b9848c881f0", CellID->50396049], Cell[19151, 542, 172, 4, 70, "Output",ExpressionUUID->"5c695943-d57e-45d3-8577-918dd484b206", CellID->102016220] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19372, 552, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"2cc9e797-3ef7-41d0-bd4a-7ab2b16c13a6", CellID->6806877], Cell[19498, 557, 309, 7, 70, "Text",ExpressionUUID->"258ae946-6f7b-4275-b58b-6709834863a7", CellID->91942375], Cell[CellGroupData[{ Cell[19832, 568, 388, 11, 70, "Input",ExpressionUUID->"6096781f-2d40-4cb3-b14b-a934dfe718b5", CellID->151060850], Cell[20223, 581, 143, 3, 70, "Output",ExpressionUUID->"2f4435fb-9ed6-4c74-a518-9684c99c073c", CellID->245411142] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20427, 591, 47, 1, 70, "Subsection",ExpressionUUID->"5f48f0a7-805c-47de-97fa-e1d7227ed17a", CellID->964056545], Cell[20477, 594, 921, 25, 70, "Text",ExpressionUUID->"13e5f067-fcb8-4824-afe2-00ed47cebfda", CellID->649685796], Cell[CellGroupData[{ Cell[21423, 623, 440, 15, 70, "Input",ExpressionUUID->"ae1b317e-7c7b-47e9-b60e-507afa984e8a", CellID->102372153], Cell[21866, 640, 223, 6, 70, "Output",ExpressionUUID->"07596973-6472-4347-95f0-504638bab609", CellID->158829441] }, Open ]], Cell[CellGroupData[{ Cell[22126, 651, 400, 12, 70, "Input",ExpressionUUID->"e37fb5d0-74dc-4f5a-9efa-480eb4c61360", CellID->836153427], Cell[22529, 665, 527, 15, 70, "Output",ExpressionUUID->"4ad8859e-a7ea-4ec4-a1bd-64c029895c7a", CellID->743876347] }, Open ]], Cell[CellGroupData[{ Cell[23093, 685, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"21f03e32-6063-47f6-a7dd-d2b848bed011", CellID->290937824], Cell[23221, 690, 1225, 38, 70, "Text",ExpressionUUID->"77e22079-1315-4fb6-b2f7-2ee6ed569e12", CellID->104088577], Cell[CellGroupData[{ Cell[24471, 732, 353, 10, 70, "Input",ExpressionUUID->"0352864b-d21a-4412-bde5-99c077368093", CellID->435768177], Cell[24827, 744, 223, 6, 70, "Output",ExpressionUUID->"39891a54-1865-41e5-8f6d-1235fe03e89d", CellID->299178876] }, Open ]], Cell[CellGroupData[{ Cell[25087, 755, 210, 6, 70, "Input",ExpressionUUID->"93160494-c697-4227-bf7a-2fb87a6e4a4b", CellID->188464206], Cell[25300, 763, 118, 3, 70, "Output",ExpressionUUID->"d4a28f34-9075-445a-be72-f943c65e09b5", CellID->14196296] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25467, 772, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"c53d54d3-c922-4966-b5bf-890e95a84ce2", CellID->593438337], Cell[25595, 777, 262, 4, 70, "Text",ExpressionUUID->"29d129d8-411c-4bc5-bf3b-cff56bde28b4", CellID->15950221], Cell[CellGroupData[{ Cell[25882, 785, 381, 12, 70, "Input",ExpressionUUID->"d4a8f03a-b635-4873-989b-467b4cc46aac", CellID->234533403], Cell[26266, 799, 140, 3, 70, "Output",ExpressionUUID->"6800b093-b0fb-43a5-8992-63b3005bd534", CellID->469666924] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26467, 809, 66, 1, 70, "Subsection",ExpressionUUID->"b6527733-f910-439f-b7a1-7243102655e2", CellID->754506620], Cell[26536, 812, 694, 11, 70, "Text",ExpressionUUID->"3d7eebb9-2350-4fe5-a66b-0f2e5a142325", CellID->712692948], Cell[CellGroupData[{ Cell[27255, 827, 303, 8, 70, "Input",ExpressionUUID->"64ccd3b2-28c8-4fd1-8b76-6a7820bfa622", CellID->218488255], Cell[27561, 837, 163, 4, 70, "Output",ExpressionUUID->"7884a9f4-683e-4328-b658-d5e45d07908d", CellID->466868] }, Open ]], Cell[CellGroupData[{ Cell[27761, 846, 420, 10, 70, "Input",ExpressionUUID->"e894e244-b08d-4404-aa45-4f2b3c936d6a", CellID->65314419], Cell[28184, 858, 224, 5, 70, "Output",ExpressionUUID->"d73a507d-53de-4cf3-aaef-e3bd260a5996", CellID->603778247] }, Open ]], Cell[CellGroupData[{ Cell[28445, 868, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"33c3189e-331a-4d17-bed8-b624381785f6", CellID->37623628], Cell[28572, 873, 709, 11, 70, "Text",ExpressionUUID->"cb7700af-e103-4625-b0cf-1028bec02692", CellID->306676826], Cell[CellGroupData[{ Cell[29306, 888, 301, 7, 70, "Input",ExpressionUUID->"ba5db33c-b37a-4609-a7f8-9171d214e0b5", CellID->346365067], Cell[29610, 897, 139, 3, 70, "Output",ExpressionUUID->"ea047fdb-ccbc-4337-9f63-016cbe0813ce", CellID->184471202] }, Open ]], Cell[CellGroupData[{ Cell[29786, 905, 228, 6, 70, "Input",ExpressionUUID->"3a06034f-9c9e-44e7-9234-15d561ac1944", CellID->686687782], Cell[30017, 913, 137, 3, 70, "Output",ExpressionUUID->"b5a96003-ad1b-44b4-806e-9313c39d6f91", CellID->81849909] }, Open ]], Cell[30169, 919, 121, 2, 70, "Text",ExpressionUUID->"94dae88f-e82b-4d55-a3e3-d93f6e0f2ba0", CellID->590522185], Cell[CellGroupData[{ Cell[30315, 925, 207, 5, 70, "Input",ExpressionUUID->"9d4fa038-ed0b-4017-91ff-146a5c1b1a24", CellID->58397377], Cell[30525, 932, 138, 3, 70, "Output",ExpressionUUID->"fa379ece-1560-4bd6-9ebb-564c8f847f08", CellID->350047408] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30712, 941, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"80c8e98a-1c83-4644-908b-abfc0c0441f2", CellID->76187205], Cell[30839, 946, 755, 12, 70, "Text",ExpressionUUID->"08db1f40-31e3-4887-bc29-28dbe8d2a561", CellID->86156109], Cell[CellGroupData[{ Cell[31619, 962, 354, 9, 70, "Input",ExpressionUUID->"30464f10-7922-47b8-846f-8615d9d73272", CellID->137027042], Cell[31976, 973, 119, 3, 70, "Output",ExpressionUUID->"43d9b265-5a55-4085-b584-60a1464d0071", CellID->632014370] }, Open ]], Cell[CellGroupData[{ Cell[32132, 981, 201, 5, 70, "Input",ExpressionUUID->"7c924e53-00c6-4b4d-a419-860129c4cc21", CellID->48398168], Cell[32336, 988, 118, 3, 70, "Output",ExpressionUUID->"a11a40ce-0db8-4201-8156-d738ee5b6534", CellID->312476630] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32503, 997, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"283a3b12-2b1a-4761-9e2d-1e3363d892c6", CellID->415380141], Cell[32631, 1002, 781, 13, 70, "Text",ExpressionUUID->"eb9f2251-af1c-4404-b3a7-60e8b5bd3dd9", CellID->674643678], Cell[CellGroupData[{ Cell[33437, 1019, 707, 20, 70, "Input",ExpressionUUID->"8fa4a2aa-1ec6-401d-9239-1a10aa6d34ba", CellID->371653160], Cell[34147, 1041, 660, 20, 70, "Output",ExpressionUUID->"30b491f5-6788-426b-a656-7913309434f1", CellID->269621298] }, Open ]], Cell[CellGroupData[{ Cell[34844, 1066, 176, 4, 70, "Input",ExpressionUUID->"4043e68a-498d-4cbf-b3e3-b9fa352a8faa", CellID->84620982], Cell[35023, 1072, 171, 5, 70, "Output",ExpressionUUID->"6c056219-d4f6-4912-bf3c-56c9f6f4deed", CellID->650691353] }, Open ]], Cell[CellGroupData[{ Cell[35231, 1082, 239, 5, 70, "Input",ExpressionUUID->"9265a138-b52c-4e13-af24-6ec205f7bb76", CellID->229928941], Cell[35473, 1089, 171, 4, 70, "Output",ExpressionUUID->"ddd0417b-fb84-4308-9aff-de7fe3554afa", CellID->216980590] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35693, 1099, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"8a01759c-c190-4a15-af9c-f1e4372684f6", CellID->23507828], Cell[35820, 1104, 212, 3, 70, "Text",ExpressionUUID->"bf244705-3f9f-41b7-91b2-5011dae23cb3", CellID->10977427], Cell[CellGroupData[{ Cell[36057, 1111, 306, 10, 70, "Input",ExpressionUUID->"093106ca-2df3-4ba3-8d44-72f377859d8c", CellID->464117689], Cell[36366, 1123, 141, 3, 70, "Output",ExpressionUUID->"3ae8d5c6-93e7-4946-96d1-8672c99f477c", CellID->79683403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36556, 1132, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"cca7f659-2275-4a99-942d-42e04e7b0f53", CellID->133009029], Cell[36684, 1137, 423, 8, 70, "Text",ExpressionUUID->"b1022f68-734f-4c52-a036-82a6231b6831", CellID->237561448], Cell[CellGroupData[{ Cell[37132, 1149, 458, 13, 70, "Input",ExpressionUUID->"84096cd8-766b-4737-802a-f1fedfb62059", CellID->106578310], Cell[37593, 1164, 405, 12, 70, "Output",ExpressionUUID->"2d4f94b5-e592-47fb-8646-19046af40a31", CellID->729939135] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38071, 1184, 135, 3, 70, "Section",ExpressionUUID->"5f14c518-94c6-4e8c-8b5a-17af8649d329", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[38231, 1191, 683, 18, 70, "Subsection",ExpressionUUID->"8cfd5632-59a4-4331-ad1a-0268dfe37282", CellTags->"Contributed By", CellID->127820888], Cell[38917, 1211, 39, 0, 70, "Text",ExpressionUUID->"3324b7e8-3590-40af-9666-2217d2a49018"] }, Open ]], Cell[CellGroupData[{ Cell[38993, 1216, 684, 18, 70, "Subsection",ExpressionUUID->"f7b074b2-2337-42db-8ac5-617964bfc184", CellTags->"Keywords", CellID->547400482], Cell[39680, 1236, 30, 0, 70, "Item",ExpressionUUID->"971b8806-d10d-47c7-ab53-303d88c10d70"], Cell[39713, 1238, 22, 0, 70, "Item",ExpressionUUID->"3c661eb3-d3e6-40d5-acf3-0d574b3cc8a1"], Cell[39738, 1240, 24, 0, 70, "Item",ExpressionUUID->"8590f3ea-c63d-49e2-b3f8-8f577d148667"], Cell[39765, 1242, 27, 0, 70, "Item",ExpressionUUID->"719277ab-e8b1-4417-b926-ad9ceb450486"], Cell[39795, 1244, 26, 0, 70, "Item",ExpressionUUID->"f5695581-4c97-4619-b3f0-eed4a29424f6"], Cell[39824, 1246, 23, 0, 70, "Item",ExpressionUUID->"9250d7a5-1a85-4205-8c6e-64b63b0ded72"], Cell[39850, 1248, 22, 0, 70, "Item",ExpressionUUID->"f197b875-a25a-46e2-a680-4026eaa00561"], Cell[39875, 1250, 28, 0, 70, "Item",ExpressionUUID->"360a8eb3-ca56-4884-9720-ce7fd1644548"], Cell[39906, 1252, 37, 0, 70, "Item",ExpressionUUID->"a7c2a85b-3e62-4b4f-8c5d-fdc167b42b33"] }, Open ]], Cell[CellGroupData[{ Cell[39980, 1257, 126, 4, 70, "Subsection",ExpressionUUID->"5c5d91a8-f8cb-41ce-afe5-d36ab499de75", CellTags->"Categories", CellID->749076926], Cell[40109, 1263, 46, 0, 70, "Item",ExpressionUUID->"7eb9cc82-0eb4-4f33-bfae-8a085da8729f"] }, Open ]], Cell[CellGroupData[{ Cell[40192, 1268, 661, 18, 70, "Subsection",ExpressionUUID->"30ad5db7-3df3-456d-afcf-e19218e992de", CellTags->"Related Symbols", CellID->161079978], Cell[40856, 1288, 26, 0, 70, "Item",ExpressionUUID->"855c21dd-08e1-46f1-b1a5-f99ea058e891"], Cell[40885, 1290, 19, 0, 70, "Item",ExpressionUUID->"61a72aaf-6341-4841-9677-7862ef9c94c2"], Cell[40907, 1292, 25, 0, 70, "Item",ExpressionUUID->"9c5ac35a-e87c-4e9c-9881-ebb491a5e8f8"], Cell[40935, 1294, 25, 0, 70, "Item",ExpressionUUID->"a81ae0c0-bfe3-4854-8e49-e8dbdf3fe371"], Cell[40963, 1296, 26, 0, 70, "Item",ExpressionUUID->"ed76acf1-5bc9-4c38-8cf3-4cd9645541df"] }, Open ]], Cell[CellGroupData[{ Cell[41026, 1301, 711, 18, 70, "Subsection",ExpressionUUID->"2ae4d00a-db9c-41d1-81aa-dc29893830fc", CellTags->"Related Resource Objects", CellID->588449267], Cell[41740, 1321, 23, 0, 70, "Item",ExpressionUUID->"fce187d0-d3ab-4f85-8583-56aeaf20eb31"], Cell[41766, 1323, 24, 0, 70, "Item",ExpressionUUID->"9d84c63c-b40e-4762-80b6-1b945c5fcd01"], Cell[41793, 1325, 27, 0, 70, "Item",ExpressionUUID->"c4a99b2c-e48f-4aa8-baea-5aa95064ebb0"], Cell[41823, 1327, 33, 0, 70, "Item",ExpressionUUID->"885a77a2-273a-4ef6-8055-d8d1b59df358"] }, Open ]], Cell[CellGroupData[{ Cell[41893, 1332, 762, 19, 70, "Subsection",ExpressionUUID->"c5289266-7816-4e7a-96c0-209703267ac4", CellTags->"Source/Reference Citation", CellID->642091068], Cell[42658, 1353, 496, 8, 70, "Text",ExpressionUUID->"3618cf35-31b5-4c97-b3da-1617f6841c45", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[43191, 1366, 614, 18, 70, "Subsection",ExpressionUUID->"d2fdeb69-d2d5-41cf-b4ef-93a5dd1c38d2", CellTags->"Links", CellID->521525586], Cell[43808, 1386, 70, 0, 70, "Item",ExpressionUUID->"7232422c-97c6-4561-9268-91d0d54614ce"], Cell[43881, 1388, 69, 0, 70, "Item",ExpressionUUID->"4592b2b6-2b9c-43ff-a3a9-44a258383d3f"], Cell[43953, 1390, 59, 0, 70, "Item",ExpressionUUID->"610cd658-0b7f-4ad6-bc46-12cfe7cb6703"], Cell[44015, 1392, 56, 0, 70, "Item",ExpressionUUID->"18b20caa-9820-41c8-ac8d-5b78a5825b36"], Cell[44074, 1394, 55, 0, 70, "Item",ExpressionUUID->"83736af6-8fe3-42b9-b274-9d5a8901c317"] }, Open ]], Cell[CellGroupData[{ Cell[44166, 1399, 767, 20, 70, "Subsection",ExpressionUUID->"a9742e84-15a5-41f9-a166-d5aba06cdea6", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[44958, 1423, 129, 4, 70, "Input",ExpressionUUID->"283e89fd-6db1-4e62-8a8a-110399967d81", CellID->667877521], Cell[45090, 1429, 93, 3, 70, "Output",ExpressionUUID->"a520f23e-e2ad-402c-8f12-245482e8349c", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[45244, 1439, 127, 4, 70, "Section",ExpressionUUID->"599db9e8-ce08-4eb1-b3c3-4d33305a2cf9", CellTags->"Author Notes", CellID->795110225], Cell[45374, 1445, 509, 8, 70, "Text",ExpressionUUID->"6c65bdb4-85c9-4f28-9920-9b2a4797cd56", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[45920, 1458, 720, 19, 70, "Section",ExpressionUUID->"8efbcdbf-7698-4221-94d6-d065fc0f0159", CellTags->"Submission Notes", CellID->843283583], Cell[46643, 1479, 495, 8, 70, "Text",ExpressionUUID->"145d84cb-fc4f-44ea-8364-063f72519987", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)