(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 306909, 7179] NotebookOptionsPosition[ 148903, 4158] NotebookOutlinePosition[ 291747, 6855] CellTagsIndexPosition[ 289938, 6805] WindowTitle->CanonicalBasis | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["CanonicalBasis", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->453607181], Cell["\<\ Obtain the canonical bases for selected spaces of matrices and functions\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->618275022], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"CanonicalBasis", "[", RowBox[{"type_", ",", "var_", ",", RowBox[{"degree_", "?", "IntegerQ"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Switch", "[", RowBox[{ RowBox[{"ToString", "[", "type", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"var", "^", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "degree"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", " ", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"i", " ", "var"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"i", " ", "var"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "degree"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "_", ",", " ", RowBox[{"Message", "[", RowBox[{"SBFType", "::", "notsupported"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"m_", "?", "IntegerQ"}], ",", RowBox[{"n_", "?", "IntegerQ"}]}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"m", ",", "n", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", RowBox[{"m_", "?", "IntegerQ"}]}], "]"}], ":=", "\[IndentingNewLine]", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"m", ",", "m", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "m"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CanonicalBasis", "[", RowBox[{"type_", ",", RowBox[{"size_", "?", "IntegerQ"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Switch", "[", RowBox[{ RowBox[{"ToString", "[", "type", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "size"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\\"", ",", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "j"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "i"}], "]"}], ",", RowBox[{"Sequence", "@@", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{"#", ",", RowBox[{"{", "1", "}"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}], "+", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "j", ",", "i"}], "]"}]}], ",", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}]}], "-", RowBox[{"I", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "j", ",", "i"}], "]"}]}]}]}], "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "size"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "i", ",", "size"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"I", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "j"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "i"}], "]"}], ",", RowBox[{"Sequence", "@@", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{"#", ",", RowBox[{"{", "1", "}"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}], "+", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "j", ",", "i"}], "]"}]}], ",", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}]}], "-", RowBox[{"I", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "j", ",", "i"}], "]"}]}]}]}], "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "size"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "i", ",", "size"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "j"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "i"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}], "+", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "j", ",", "i"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "size"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "i", ",", "size"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\\"", ",", " ", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}], "-", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "j", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"size", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "size"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"temp", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "size"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "size"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "1", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"size", ",", "i", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "size"}], "}"}]}], "]"}], ",", "temp", ",", RowBox[{"Transpose", "/@", "temp"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "_", ",", RowBox[{"Message", "[", RowBox[{"SBMType", "::", "notsupported"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SBFType", "::", "notsupported"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SBMType", "::", "notsupported"}], " ", "=", " ", "\"\\""}], ";"}]}], "Input", InitializationCell->True, 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.774963005485094*^9, 3.7749631462421527`*^9}, { 3.7749631858346024`*^9, 3.7749634382394423`*^9}, {3.7749635885652018`*^9, 3.774963599978342*^9}, {3.774963629993771*^9, 3.7749636535969467`*^9}, { 3.774964378332*^9, 3.774964419166274*^9}, {3.774964527166137*^9, 3.7749645373985515`*^9}, {3.7749647710938096`*^9, 3.774964928492007*^9}, { 3.7749651228061624`*^9, 3.7749651246259575`*^9}, 3.7749651855181847`*^9, { 3.7749652375381956`*^9, 3.7749652598255587`*^9}, {3.774965396398176*^9, 3.7749654050615187`*^9}, {3.7749654448307953`*^9, 3.7749655009843545`*^9}, {3.7749655408241634`*^9, 3.7749655886227317`*^9}, {3.774965650736859*^9, 3.774965688778556*^9}, { 3.7749659328711953`*^9, 3.7749659625008106`*^9}, {3.774966101323983*^9, 3.7749661040444803`*^9}, {3.774975051240012*^9, 3.7749751953177*^9}, 3.774975336022146*^9, {3.7749754013193445`*^9, 3.774975415000498*^9}, { 3.774975718008815*^9, 3.7749757210745363`*^9}, 3.7749760313524485`*^9, { 3.77893912442579*^9, 3.778939141494025*^9}, {3.7789431917962904`*^9, 3.778943214894859*^9}, {3.778943284713727*^9, 3.778943293256013*^9}, { 3.778943653301864*^9, 3.7789437311243205`*^9}, {3.7789438037610364`*^9, 3.7789438581294656`*^9}, {3.7789438975885468`*^9, 3.7789438989638505`*^9}, {3.7789440029405127`*^9, 3.77894411346742*^9}, { 3.7789441660596685`*^9, 3.778944216717396*^9}, {3.778944311687264*^9, 3.77894431555737*^9}, {3.7789444915093794`*^9, 3.778944567999032*^9}, { 3.7789446192452393`*^9, 3.7789446464488287`*^9}, {3.7789447028594804`*^9, 3.778944723009838*^9}, {3.778944958779264*^9, 3.778944961282217*^9}, { 3.778945338190254*^9, 3.7789454065542755`*^9}, {3.7789455136823125`*^9, 3.7789455452098856`*^9}, {3.778945587320297*^9, 3.7789455915626135`*^9}, { 3.77894565862212*^9, 3.7789456594065113`*^9}, {3.7792008921137333`*^9, 3.779200896790981*^9}}, CellTags->"TabNext", CellLabel->"In[32]:=", CellID->654194882] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalBasis", "[", RowBox[{ StyleBox["type", "TI"], ",", StyleBox["var", "TI"], ",", StyleBox["degree", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->197899036], Cell[TextData[{ "returns the canonical basis for polynomials or trigonometric polynomials of \ degree at most ", Cell[BoxData[ StyleBox["degree", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the variable ", Cell[BoxData[ StyleBox["var", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->440636548] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalBasis", "[", RowBox[{ StyleBox["type", "TI"], ",", StyleBox["size", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->197391523], Cell[TextData[{ "returns the canonical basis for the space of matrices of type ", Cell[BoxData[ StyleBox["type", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and size ", Cell[BoxData[ StyleBox["size", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->426237508] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "The basis returned by ", Cell[BoxData["CanonicalBasis"], "InlineFormula", FontFamily->"Source Sans Pro"], " is a basis for the given vector space over the real numbers, not the \ complex numbers." }], "Notes", CellID->676384281], Cell[TextData[{ "The value for ", Cell[BoxData[ StyleBox["type", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be any of the following:" }], "Notes", CellID->213183393], Cell[BoxData[GridBox[{ {Cell["\"DiagonalMatrices\"", "TableText"]}, {Cell["\"HermitianMatrices\"", "TableText"]}, {Cell["\"Matrices\"", "TableText"]}, {Cell["\"Polynomials\"", "TableText"]}, {Cell["\"SkewHermitianMatrices\"", "TableText"]}, {Cell["\"SkewSymmetricMatrices\"", "TableText"]}, {Cell["\"SymmetricMatrices\"", "TableText"]}, {Cell["\"TraceZeroMatrices\"", "TableText"]}, {Cell["\"TrigonometricPolynomials\"", "TableText"]} }]], "TableNotes", CellID->122913440] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[CellGroupData[{ Cell["Function spaces", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7749765751156206`*^9, 3.77497657839931*^9}}, CellID->888586709], Cell["\<\ The canonical basis for the space of polynomials in x of degree 5 or less:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7749640654426394`*^9, 3.77496409673512*^9}, 3.7749764470645065`*^9, 3.779201302333956*^9, {3.7792076135162125`*^9, 3.7792076182392125`*^9}}, CellID->627797687], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "x", ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749646000026455`*^9, 3.7749646064302144`*^9}, {3.7749689847331963`*^9, 3.7749689869053593`*^9}, 3.7749764495033674`*^9, {3.7789409554119062`*^9, 3.7789409598973155`*^9}, 3.779200901509534*^9}, CellLabel->"In[1]:=", CellID->963898875], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "x", ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "3"], ",", SuperscriptBox["x", "4"], ",", SuperscriptBox["x", "5"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7749641575248384`*^9, {3.774964210466706*^9, 3.774964218313651*^9}, 3.774964265102426*^9, 3.7749644545443773`*^9, 3.7749646075554447`*^9, 3.7749689878594007`*^9, 3.774969104894773*^9, 3.7749764502069016`*^9, 3.7789383216256227`*^9, 3.7789426572689347`*^9, 3.7789445768124723`*^9, 3.77894474247433*^9, 3.7789450054172573`*^9, 3.779200953645529*^9}, CellLabel->"Out[1]=", CellID->546505673] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "The canonical basis for the space of trigonometric polynomials in ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of degree 5 or less:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7749640654426394`*^9, 3.77496409673512*^9}, { 3.774964628547592*^9, 3.7749646321338844`*^9}, 3.7749680884548845`*^9, 3.774976452892243*^9, 3.7792013108874683`*^9, {3.7792076281162124`*^9, 3.7792076294442124`*^9}}, CellID->160991344], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "x", ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.774964462080042*^9, 3.7749644938220997`*^9}, {3.774964564434664*^9, 3.774964569229141*^9}, { 3.774968991334404*^9, 3.7749689935758257`*^9}, 3.7749764551323395`*^9, { 3.7789399766291847`*^9, 3.778939981585108*^9}, {3.7789447543277082`*^9, 3.778944755630615*^9}, {3.778944827299472*^9, 3.7789448375147753`*^9}, 3.778945010372064*^9, 3.7792009025819545`*^9}, CellLabel->"In[1]:=", CellID->299948738], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"Cos", "[", RowBox[{"2", " ", "x"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"2", " ", "x"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"3", " ", "x"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"3", " ", "x"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"4", " ", "x"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"4", " ", "x"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"5", " ", "x"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"5", " ", "x"}], "]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7749645059287157`*^9, {3.7749645431148157`*^9, 3.774964570166996*^9}, 3.7749689942163744`*^9, 3.7749691049687543`*^9, 3.7749764557256117`*^9, 3.778938325638281*^9, 3.778940745800846*^9, 3.7789426606599655`*^9, 3.77894457890511*^9, {3.778944747941943*^9, 3.7789447565211573`*^9}, { 3.7789448283527365`*^9, 3.778944838608425*^9}, {3.778945006969961*^9, 3.7789450106064*^9}, 3.7792009537296286`*^9}, CellLabel->"Out[1]=", CellID->627253390] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Manipulate", "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/Manipulate", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " illustrating an array of examples:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.774976477631415*^9, 3.7749765162656956`*^9}, { 3.779207636890212*^9, 3.7792076381952124`*^9}, 3.7792079633202124`*^9}, CellID->969740896], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"CanonicalBasis", "[", RowBox[{"type", ",", "x", ",", "degree"}], "]"}], ",", RowBox[{"{", RowBox[{"type", ",", RowBox[{"{", RowBox[{"Polynomials", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"degree", ",", RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.774976230751629*^9, 3.774976385683285*^9}, { 3.7789399953431234`*^9, 3.778940000771621*^9}, 3.779200903637334*^9}, CellLabel->"In[1]:=", CellID->649481255], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3W2MFEd+x/FN8iYv8zYv8y5vYUGKVnmTl3l7IbI5jE+H4gXLkoN8QVbE 2WfpfJLDC3stvzvh83GWDFhCAj8M2HtHuEUIiDAPu8ZBXttnYxMMXmy4xbBe H0dqpuehu7qqu/qhpus/8/1ohNie6qrq7qn6Tff0zv7dln//wfRfTkxM/OSv 1T8/+PGT//TEEz/+z3/5G/XDvz7+k0e3Pv7Iv/3z4//xyNZHnviHLX+lFv7t X0xM/KMq3/7/6p/v8+DBgwcPHiIebwEAIMHtu3+K/uXBgwcPHjxCfsQz6z4A AAEjswAAUpBZAAApyCwAgBRkFgBACjILACAFmQUAkILMAgBIQWYBAKQgswAA UpBZAAApyCwAgBRkFgBACjILACAFmQUAkILMAgBIQWYBAKQgswAAUpBZAAAf bt26denSpZMxFy9evH79epU6ySwAQL2Wl5dPnDjxlsWxY8e+/vrrcjWTWQCA Gi0uLrZaLVtg9alTsHv37hWtnMwCANTl5MmTWjYtxKRPuFZXVwvVT2YBAGqh zrDS51O3YtLPXrhwoVATZBYAoLrl5WXjJcHszFKuXr3q3gqZBQCo6N69e7ab LnIza3Z2dmVlxbEhMgsAUNHS0pIxj1wyS/nkk08cGyKzAAAVXbx4sUpmnTx5 0rEhMgsAUFH/dsGFhYVbzvr3bLzzzjuODZFZAICKjh49WiWzFMeb3sksAEBF s7OzFTPL8TYMMgsAUFH/psFymdVqtRwbIrMAABWdPXu2yj0Yc3Nzjg2RWQCA iq5cuVIlsy5duuTYEJkFAKhodXW1/5FWicxSTzk2RGYBAKqznWrlZpb7SdZ9 MgsAUBPjp1rZmTU3N1foL5KQWQCAWqysrKSvEGb8LZJWq+V+VTBCZgEA6qJi 6/Tp07bPreLK/bViMgsAUK/cP1Vc7o8U3yezAAAe3LlzRwWTOpmKR9XRo0ej XzouXS2ZBQDwSuXX8vJyLVWRWQAAKcgsAIAUZBYAQAoyCwAgBZkFAJCCzPLq JgCgo5ZJlczySh2m119//dFHH92A8Kjjoo5ONJrOnz//xhtv7ANQNzWy1Pgi s0RQx2vLli3PP//8boRHHZeNGzeqY3Tu3LnZ2dlvvvnmewB1UyNLjS81ymqZ VMksr7Zt2zYzM/Paa6+5fPsWhuzw4cMqttQxOnTokHoTuLq6+i2AuqmRpcaX GmW1TKpvkVk+bdiwYc+ePUeOHDmN8Jw5c0b9q46ROtVSw+qPAPxQ40uNslom VTLLKzUf7t+///jx4xcQnoWFhfn5+X5mNfbJNDDqyCwp1Hx44MCBU6dO/S9C 1c+sGwD8ILOkUPPhwYMH33vvvUWEKsqs77777isAfqjxRWaJoObDN9988/z5 839AqPqZdQ2AH2SWFGo+fPvttxcWFi4jVFFmraysfAnADzW+yCwR1Hx4+PDh 999//wuEiswCfCOzpCCzwkdmAb6Na2a1picmpmYWm+5GAWRW+KLMunv3btPD GhhZanyNYWYtzkxNCMys6B6MTxCe+D0Yn3766YcA/FDji8wSYViZ9auNatdM bPyV52ZCVXLzySwUtPuB9ivtgd1N96Mh5TefzJLCklnRHKurEDkjk1nRhqx9 6r9LrFVnZs3uXGM6RAl5Qzca4Gt2zhYf4TAosT+jVYoeuNwKRyCzyr04ySxX UVppVHi1P9+ypVj03HQr9UP0/67u83kt2orlsvx+1ivGzOrM1k8fK/M7RlGF G18p+StK4Yg2pOheqLT5UWZdvnz5o5jf/XRtbmY9+PJHmV5+sLMtP/1ddrFx 1t5FzjuoxP6MVjEOtHKHJaow78gLUO7FWX7z1fgis9pRZT/1SkRW/ydjRXog JUIt0VxxmZmVnGN7OVYqtUYms8qpP7M0UYQRP/Xyv1dNc2wvx0q1OzKZVQ6Z VYwpoGyh1cmdweLuCdnUVKJoP8FiqdVbZipX4myrQGb9oexJRuVJWz4yS6Rm MuujKmfAZBaZVYA5n5InVJaS3VOndLZ146i/uu1qo6kVF9H3YMzPz3+W8Osf tqv74a8/+8xtea7SK46Gkpsfz6zPP/88I9eOPb227CkwrPzvVdubmdJvcnhz WHLz1fgis3rScRIVjC+xR06yUns57cTNVcHM+v3PJtXyyZ/93rB0QH9erzD6 wVDKXDD6Ifp/l232L9aTeOlYjfGWUhWY90yic9bnc9ZKb1Q0mqpmVuy53vXd aFDbBni0QldnPWv1iaLmIvFWEp+T2maWYnXGS8dqjLdkCx2toXh/9D7E6ym8 P1OfDw86lH0I9I4X3NuZ10UMBYM6RuY9o3/Qbn4+Zy3jRpFZcXrQpCMr6zQp /pTx4664widaVc+z9JAYSK6cXNEcfelyvZ9MreQFZ15P9JiJyhlqSTaU3jOW hhOtptdKN2/YH9FoqiuzXhnMHPY51jhZb3zaUL2xZKx2fRoxlc+blPPqTN8r 1C5nqMUyJVqLuWSW0/40N9Rvx/k8q+ieia9lelkkywV4jNJ7xtJwotX0Wob9 bxwmZJbhicT9FlqpJjOr1WotLCx8nvCbTe3aNv0mufT4M5PJxVExvWRv6eQz x20VRjXFC8SKDRZHa01OTsZb6PYi2WjRnhi3Y3LTpsl086aG4kva/Um02u1g xuan92R70abU7ojueI8y6+rVqxnfozvX3aFz9ufUXtSe3xP1ao++JFnRnv4O My6Nr56xfnQQ+2Xn+gfR0Lprncmie5IHcU4rGq+z13q8yt6ydDl9rxbYn/3N TJTcs6n/Y3qV2GqpbXPeM/1ittfFnk0T6Z0U1DEy78xEq3O9gWbd/PSebC/a ZBomanyRWalnYreyu3zoFX8m/9pgSe6Zdbw/zo8nl6STpz/b66kQq9CUiqkk M4XGYHmVnuhlTelmWtuS5hrLhmTsDrM6Mys9M9oGuGWGiz9hLdkvm55v9ea7 82SVOo2ZYVusr23bzFg/szLLYX+mW7ZsmWkmrrRnUn1IdiG1XeEdI0uaaywb krE7rMgsXT+pOv9JhU73Hox0GGn3XOi3ZFSWmVkG2acc9lk7XdZ8wmIqk44i /TSleE9SdWYudsssfadlZFbvDUBOatWaWemB6z7A9eqzpgJz2XTX9G7VUGfm YoeGtLOP7Myqsj+1VUwDLfOUQ+9M1pGxnf2lywR0jDKb0ndaRmZZ31+kjHNm ZYbW9HTqo6zBsx3pOzPMy/RWVONlfkNLzYdHjhy5ePHilYRXH0qPoslnTiTK nOi+RpNLkzU89Kr5R9OiqL7MIpYnqvakyGLrhmTusJy1DFvYEV1pjzLr2rVr 5kK5u8D6nNarjDq0p+rY4Y0dxBO9S142+kvS+YXvvj+1VRhoDQ80RY2vMcws 7eMm40dWbYazpO41vxmXXym2fqhVe2ZlHOErNbyAk2OnU0KrTcBQGsyAsUKp Dtk2JD6eDP0ns4rVKTWzGGgND7QrY5tZ9xPfUWE4EzItjq3WSacyX91U/lsO K2eWpZD+YjJWGB9LppFUbChV6UnpoeQ4q+Xsz+6ISg2mJjLL2MuopJZZ1XZ4 cwfR5cVtbjZrabrizC0q0BcGmqF2y9KSA+3KOGdWhtyPu+q8t8JVhczqvYJN LwBtjst+pbaLdf7j+vq2zQ6Ve1J8KGVMEQWGkm1IDjezeiPa+i51UEUNO7y5 g+iSJfGSZTMra4tyemzqBgPN30C7QmaZZMaSyMyKnXEbLyDHF2aes08+9FDq Cnt2Nyyv8Ao9qfT2T5+oOjcNZwwlVSY5aizT6KcdUWbduHHjmt2pn69T66/7 +akiz+3d3G50816tpGHZunV6FdG6yaKDpfGFqVasT1Su03Vxr0p9n6htTSzq 7g+tmPv+tG5Rf2XrzjHVXGVvd5av27x5nf3ZEI9Rf0HvpTko0V6Sel2m10oe p241hi1V44vMSspOJaGZlfHhQLEL5plPuj1RsSdlL7MnrpT3Gnw155KFua/p N3/DzqxYasVt3muqwlh0It2S+3xYuU73xY4NJYt1nyuyPy0NFc2s2va2+6Gw PjGkY2RPy1iDe/VDYUm6zI5GyKykzDsK28RmlnHaLpI+mRdQimRWxZ6Uziyt 1c4z+ZfZ9dQyXz8afmalBnq0Wk4VAxXnw4p1FlucmtCMuy/WmzKZZdqirJk5 U5W9bTlpdOp5E8fIVC7eaueZ1KGwXzrIOsZtZFZX/IaKrNskQsusIXK5u2pc Rb85EmXWzZs3v2rMvofbr8/1z55urguo6PSz6zmGdmp8kVlt/czKiaPxzaxi Z3RjJpTMiiJr4uF9jfUAVUXHkENoQ2ZJ0XRmEVlZwsis6A06851oRFYOMkuK RjPL4V7g8RZ9g1OUWcvLyze82/+jifW/OKMtiWjLIciZX6znEOZQ44vMEqGZ zMr/rXS0NZFZZj/a779x1C5+PEmsTGSWFA1nFhcFMw09s/pvySeY60ZBP7N4 z5GHzJKi6c+zkCWeWbdv3/4agB9qfJFZIpBZISOzgOEgs6Qgs0JGZgHDQWZJ sW3btgMHDnzwwQf/h/BEyaWO0aFDh5aWltSwugmgbmpkqfGlRlktkyqZ5ZV6 a/HYY4/Nzc1l/r1cNGN+fn7Hjh3qGJ07d+7dd99V7wbvAqibGllqfKlRVsuk SmZ5pd5j7N27d+vWrRsQHnVc1NGJ3gqePXv24MGD+wDUTY0sNb7UKKtlUiWz vGryhBwAQlLLpEpmAQCkILMAAFKQWQAAKcgsAIAUZBYAQAoyCwAgBZkFAJCC zAIASEFmAQCkILOG4KWXXnryySe3C6G6qjrc9D4DAAMyy7f/2rXrxRdf/PLL L/8khOqq6rDqdtN7DgB0ZJZvO3bsuH79+urq6h+FUF1VHVbdbnrPAYCOzPJt +/bt6uSl6SAqRnVYdbvpPQcAOjLLNzX5f//997dEUR0mswAEiMzyjcwCgLqQ Wb6RWQBQFzLLtyizmv5ja8WQWQDCRGb5RmYBQF3ILN/ILACoC5nlG5kFAHUh s3yLMusbUcgsAGEis3wjswCgLmSWb2QWANSFzPJNTf6rq6s3RFEdJrMABIjM 8o3MAoC6kFm+kVkAUBcyyzcyCwDqQmb5FmXWkihkFoAwkVm+uWfW/zy7fqLj 4X2+QykHmQUgTMPNrMWZKTUlT80s+m8qGK6Z1U8sMgsALMgs36LM+irH6U5i rV+/PsqsvOKekVkAwkRm+eaSWfsebkfV+mdPR/8hswDAiMzyLT+z+onV+y+Z BQBGZJZvavK/c+fOx1Yvb2zH1Nqnjg5+2PiyvXgd/t4kXkB1mMwCECAyy7fs zNJCajiZ9XEqtrRnySwAYfKZWVFCdXWCyppZiaITE9OtshXGFrSmDZW5NeRa zEVWZqUiamiZ9XEsttJPkVkAwuQrs7RJvzv1z5gyq5ctSXqwOVbYy6zWoHg/ cNwaci3myppZR59amwqoYWbWx53YMi4nswCEyU9m9ab9+EQ/iIL40l4UmZbF zm6cK+xm1tSUHjKODTkWKyDKrEXdb3euadf54O7E0t0PGhYOH5kFIEw+Mqs7 x6fPTLopE3siWmIr2QuJAhXa8sWtIddiRRgzy5xYZBYAZPKRWfYJXv/4yV6y 80yvoHuFvcwyR1aFhhLFCjFkVpRYa3b+NhUWZBYAZPCQWRk3B2pPGT+jiovS w71CW9lCDeUWKybKrA9jonOsfGt2zn7YDDILQJjILDKLzAIghbfMsl9hc7o2 WLJCW745fh5V4WMrq3RmZdj9QLsDD+z2mkj5yCwAYfL3eZZh6k/dMpGRRuUq tGWWY0OOxQpRk/+33357yc0vo8z6pWNxX1SHySwAAfJyr3v/Gpt+E3n7HnTz DeuGq3mGuwHzK7ReR3RryLVYAWQWANTF0+8Um38DuGVKFOuHSIlirhXmfvaV 15BrMWdkFgDUxeN3N6W/acmaKKmcyA8dS4U532jo1pBrMSdkFgDUZbjfkVs7 2+8AByTKrA9EIbMAhEl2ZllvzggImQUAdZGcWdW+B3BYyCwAqIuQzFInVLZv gw/6wuD9Tmbdvn37fVFUh8ksAAGSk1lmYZ9jtZFZAFAXIZllugU99BOsLjIL AOoiJrPEIrMAoC5klm9RZs2LQmYBCBOZ5RuZBQB1IbN8I7MAoC5klm9q8l9e Xr4giuowmQUgQGSWbzt27Lh8+fLS0tI5IVRXVYdVt5vecwCgI7N827Vr1wsv vPDFF18sC6G6qjqsut30ngMAHZk1BM8995w6bdkuhOqq6nDT+wwADMgsAIAU ZBYAQAoyCwAgBZkFAJCCzAIASEFmAQCkILMAAFKQWQAAKcgsAIAUZBYAQAoy CwAgBZkFAJCCzAIASFE0s84AAOABmQUAkMJfZrmUBADABZkFAJCCzAIASEFm AQCkILMAAFKQWQAAKcgsAIAUZBYAQAoyCwAgBZkFAJCCzAIASEFmAQCkILMA AFKQWQAAKcgsAIAUZBYAQAoyCwAgBZkFAJCCzAIASEFmAQCkILMAAFKQWQAA KcgsAIAUZBYAQAoyCwAgBZkFAJCCzAIASEFmAQCkILMAAFKQWQAAKcgsAIAU ZBYytKYnYqZbTffHJNnHQDvZszgzJaGbQLBGObMWFxebbF64/uyaMDUT1j7V Aivw3Ir11t7F1kxg+xgIyehl1mCuDW1+Faa9I2O7sLdfw8oDlQKJDnV7GVYn u6LEmp7pdDGjh/1k4wUMpIxaZrXHe5AT1gjozrmB791OLwPsZKdf7RRazMus +BrEFpA0WpnVng4CnK5GhITM6idDYGL9cs4sXs9A2mhlln6lCDUKNrKCv1Ek mVIFMosXNKAjs+Ak2MQy3IcR1nmWnlFkFlDBWGfW4HYNJoZMUSqEFQVmwd0p kk4oMguoYEwzS7+Rm4nBTk5gRYpkgnfm3xhwfuGRWYBm/DJrcCVJTcO9H5gY zEK+ddyGzAJG2Jhllv41BGRWhu7OkbVvwu801waBCsYss/QiZJaV+RsmArtM aO5kQB00ILOACsYus1IrDC2zEhclU8/6vh+kcOtNZFb1Tg4hrqoeRzILqIDM GlpmxZpLzXZD+erUZlt3RCe1hgLYXCAgZNZw58H+pBaf7fpToO9uNNu6Izo5 QGYBGjJr2DNharbr9WEon8I027ojOtlDZgEaMquBd+/x9+PDn46bbd0Rney1 ENxWA40aqcwqPsKbum9Qv3egocwM63pbEp3sNhDkhgNNGZ3M6lyrKTq+m7vX Pf7LpuPWuiM6eT/1V8yAcTcKmVXhyxqay6z4O/Thz0nNtu6ITnZFL/BgdwEw TKOQWW2dYV18VIdybXC481GzrTuik5GSr2xgRI1KZrWV+At5jWRW4pd4hn4T d7OtO6KTsTYC22ygUaOUWSUGeKHMqufWsNTkZvxVn9BaL1g9nayHqpNTLCBu pDLL673uiW/oLv3W1/h23GG2a7Z1R3Sy7tTitkFAM26Zlfe3ITImnOqfttvn tPxvqWu2dUd0suZvjSSzAA2Z5ZxZiZWLzySDlY0N5NfdbOuF26GTNaQNmQVo xi2zqvHxkYWU1h3RyTqRWYCGzCpYf4NTXbDfYRRHJ+tEZgEaMstVzjUhz5pt 3RGdrBuZBWjILJdK44Y8hzTbuiM66QmZBWjILJdKG3xf3mzrjuikJ2QWoCGz gGDxggY0ZBYQLF7QgIbMAoLFCxrQjFxmCfqwAshBZgGa0cqszufsDHKMBr7U HUgZsczq/foNIx2yRXc58joGNCOXWR3d25oZ8ZCHFy+QYTQzCwAwisgsAIAU ZBYAQAoyCwAgBZkFAJCCzAIASEFmAQCkILMAAFKQWQAAKcgsAIAUZBYAQAoy CwAgBZkFAJCCzAIASEFmAQCkILMAAFKQWQAAKcgsAIAUZBYAQAoyCwAgBZkF AJCCzAIASEFmAQCkILMAAFKQWQAAKXxnFgAA9SKzAABS+MgsAACaQmYBAKQg swAAUpBZAAApyCwAgBRkFgBACjILACAFmQUAkILMAgBIQWYBAKQgswAAUpBZ AAAp+pkFAED4VGbx4MGDBw8eUh6rf77PgwcPHjx4iHj8P9yw0oE= "], {{0, 281}, {572, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{286., Automatic}, ImageSizeRaw->{572, 281}, PlotRange->{{0, 572}, {0, 281}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7749763645467587`*^9, 3.7749763868041897`*^9}, 3.778938392453108*^9, 3.7789400162928596`*^9, 3.778945025529196*^9, 3.779200954023982*^9}, CellLabel->"Out[1]=", CellID->548707953] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matrix spaces", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7749765922459035`*^9, 3.7749765958634424`*^9}, { 3.779208088956212*^9, 3.7792080963602123`*^9}}, CellID->408324286], Cell[TextData[{ "The canonical basis for the space of ", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Times]", "3"}], TraditionalForm]]], " matrices:" }], "Text", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.7749646485278034`*^9, 3.7749646773678026`*^9}, 3.779201314938088*^9}, CellID->794280965], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749642779527855`*^9, 3.774964290665907*^9}, {3.7749646824924827`*^9, 3.7749646990062685`*^9}, { 3.774964946465798*^9, 3.7749649500741143`*^9}, {3.7749689979438*^9, 3.7749689995062675`*^9}, {3.7789407561518393`*^9, 3.778940760811436*^9}, 3.7792009047337017`*^9}, CellLabel->"In[1]:=", CellID->194877325], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"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$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"1", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7749642910254064`*^9, {3.774964688315565*^9, 3.774964699850294*^9}, { 3.7749649119187593`*^9, 3.774964950527159*^9}, 3.7749657682589507`*^9, 3.774969105031249*^9, 3.778940762049714*^9, 3.778942664628997*^9, { 3.7789445856654263`*^9, 3.7789446065967865`*^9}, 3.778944656424353*^9, 3.7789450365391817`*^9, 3.7789456025325875`*^9, 3.7792009551933203`*^9}, CellLabel->"Out[1]=", CellID->1153950] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ "The canonical basis for the space of ", Cell[BoxData[ FormBox[ RowBox[{"3", "\[Times]", "3"}], TraditionalForm]]], " square matrices:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.774964966375514*^9, 3.774964972243859*^9}, { 3.7789457641480813`*^9, 3.7789457754526577`*^9}, 3.779201315898582*^9}, CellID->87195939], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749642779527855`*^9, 3.774964290665907*^9}, {3.7749646824924827`*^9, 3.7749646990062685`*^9}, { 3.774964946465798*^9, 3.77496498894361*^9}, 3.7749658124991207`*^9, { 3.774969001783881*^9, 3.774969023321396*^9}, {3.7789407751871037`*^9, 3.7789407783631477`*^9}, 3.779200905605239*^9}, CellLabel->"In[1]:=", CellID->642272528], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"1", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "1", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "1"}, {"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$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"1", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7789446609107265`*^9, 3.778945041724099*^9, 3.778945605299114*^9, 3.779200955283267*^9}, CellLabel->"Out[1]=", CellID->287923517] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "The canonical basis for the space of ", Cell[BoxData[ FormBox[ RowBox[{"3", "\[Times]", "3"}], TraditionalForm]]], " symmetric matrices:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.774976943891348*^9, 3.7749769559627748`*^9}, { 3.778945782615743*^9, 3.778945792035891*^9}, 3.7792013166761255`*^9}, CellID->272145611], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749642779527855`*^9, 3.774964290665907*^9}, {3.7749646824924827`*^9, 3.7749646990062685`*^9}, { 3.774964946465798*^9, 3.77496498894361*^9}, {3.774965776802225*^9, 3.774965805869568*^9}, {3.774968919160892*^9, 3.7749689212650695`*^9}, { 3.778940025530958*^9, 3.7789400298424683`*^9}, 3.7792009067255707`*^9}, CellLabel->"In[1]:=", CellID->899271776], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0"}, {"1", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", "0", "0"}, {"1", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "1", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "1"}, {"0", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.774965786173894*^9, 3.7749658068386374`*^9}, 3.7749691051763887`*^9, 3.778942670759068*^9, 3.7789446723679295`*^9, 3.7789450459488134`*^9, 3.7789456075492373`*^9, 3.7792009553422327`*^9}, CellLabel->"Out[1]=", CellID->979141321] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ "The canonical basis for the space of ", Cell[BoxData[ FormBox[ RowBox[{"3", "\[Times]", "3"}], TraditionalForm]]], " skew-symmetric matrices:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.774976966171897*^9, 3.7749769743663673`*^9}, { 3.7789458030201693`*^9, 3.7789458213028803`*^9}, 3.779201317453912*^9}, CellID->796044094], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749642779527855`*^9, 3.774964290665907*^9}, {3.7749646824924827`*^9, 3.7749646990062685`*^9}, { 3.774964946465798*^9, 3.77496498894361*^9}, {3.774965776802225*^9, 3.774965801563301*^9}, {3.774968924791028*^9, 3.774968926828371*^9}, { 3.778940034538837*^9, 3.7789400378589664`*^9}, 3.7792009077579765`*^9}, CellLabel->"In[1]:=", CellID->130978475], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0"}, { RowBox[{"-", "1"}], "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", "0", "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "1"}, {"0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7749657974692125`*^9, 3.774965801828868*^9}, 3.774969105244104*^9, 3.778942674369128*^9, 3.778944677569605*^9, 3.7789450499971657`*^9, 3.7789456095494223`*^9, 3.779200955393203*^9}, CellLabel->"Out[1]=", CellID->112582096] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["\<\ The Hermitian matrices of given degree do not form a vector space over the \ complex numbers, but they do form a vector space over the real numbers:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7749766258093376`*^9, 3.7749767999452457`*^9}, { 3.779131529983841*^9, 3.779131549960351*^9}}, CellID->929158106], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749642779527855`*^9, 3.774964290665907*^9}, {3.7749646824924827`*^9, 3.7749646990062685`*^9}, { 3.774964946465798*^9, 3.77496498894361*^9}, {3.774965776802225*^9, 3.774965801563301*^9}, {3.7749658366992626`*^9, 3.774965850715872*^9}, { 3.7749690926041436`*^9, 3.7749690945989704`*^9}, {3.7749691674048624`*^9, 3.774969169282226*^9}, {3.7789400436585865`*^9, 3.778940047842368*^9}, 3.779200908813356*^9}, CellLabel->"In[1]:=", CellID->34680537], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0"}, {"1", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\[ImaginaryI]", "0"}, { RowBox[{"-", "\[ImaginaryI]"}], "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1"}, {"0", "0", "0"}, {"1", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "\[ImaginaryI]"}, {"0", "0", "0"}, { RowBox[{"-", "\[ImaginaryI]"}], "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "1", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "1"}, {"0", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "\[ImaginaryI]"}, {"0", RowBox[{"-", "\[ImaginaryI]"}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7749691737528276`*^9, 3.7789446812855253`*^9, 3.77894505350202*^9, 3.778945611846697*^9, 3.779200955445202*^9}, CellLabel->"Out[1]=", CellID->41283270] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell["\<\ As with Hermitian matrices, the skew-Hermitian matrices of given degree form \ a vector space over the real numbers:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7749768143283095`*^9, 3.774976872408843*^9}, { 3.779131559569063*^9, 3.7791315634491587`*^9}}, CellID->433302824], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"\"\\"", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77496410322012*^9, 3.7749641561760387`*^9}, { 3.774964205575306*^9, 3.7749642172822046`*^9}, {3.7749642779527855`*^9, 3.774964290665907*^9}, {3.7749646824924827`*^9, 3.7749646990062685`*^9}, { 3.774964946465798*^9, 3.77496498894361*^9}, {3.774965776802225*^9, 3.774965801563301*^9}, {3.7749658366992626`*^9, 3.774965850715872*^9}, { 3.7749690926041436`*^9, 3.7749690945989704`*^9}, {3.7749691674048624`*^9, 3.774969169282226*^9}, {3.774975367674599*^9, 3.7749753727690306`*^9}, { 3.7789400589708953`*^9, 3.7789400644987087`*^9}, 3.779200909885725*^9}, CellLabel->"In[1]:=", CellID->428089401], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[ImaginaryI]", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\[ImaginaryI]", "0"}, {"\[ImaginaryI]", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0"}, {"1", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "\[ImaginaryI]"}, {"0", "0", "0"}, {"\[ImaginaryI]", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"-", "1"}]}, {"0", "0", "0"}, {"1", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "\[ImaginaryI]", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "\[ImaginaryI]"}, {"0", "\[ImaginaryI]", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}]}, {"0", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "\[ImaginaryI]"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7749753736142373`*^9, 3.774975427335247*^9, 3.774975740990801*^9, 3.774976044414955*^9, 3.7789426814165826`*^9, 3.778944684261463*^9, 3.778945056894046*^9, 3.7789456153581233`*^9, 3.7792009555011764`*^9}, CellLabel->"Out[1]=", CellID->693412404] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Manipulate", "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/Manipulate", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " illustrating an array of examples:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.774976477631415*^9, 3.7749765162656956`*^9}, { 3.779207636890212*^9, 3.7792076381952124`*^9}, 3.7792079633202124`*^9}, CellID->969740897], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"MatrixForm", "/@", RowBox[{"CanonicalBasis", "[", RowBox[{"type", ",", "size"}], "]"}]}], ",", RowBox[{"{", RowBox[{"type", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"size", ",", RowBox[{"Range", "[", RowBox[{"2", ",", "6"}], "]"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.774975241908502*^9, 3.7749752500988245`*^9}, { 3.778940073256592*^9, 3.7789401230577955`*^9}, {3.7789408089863214`*^9, 3.7789408141723557`*^9}, 3.7792009109980707`*^9}, CellLabel->"In[1]:=", CellID->12260755], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3V+MHMdh5/G9uxc98nEf9972cUVFAMGnvbe9t0X+nJbnP2GEM7WGAR/h hBAd26GBKFifHrxr+GERQ7o9JYApGxAo2fGuZMZahYJAMZBFiTS9QhiZPtm6 sRTKK4WySNNR+mq7Z3r6T1V315+e6ur5frAmrJnuqpqqrt9Uz/TM/OcH/+fv n/iPMzMzf3qP+Of3/+Th//KFL/zJF//gkPiPP/r8n372oc9/5n/818//2Wce +swXjjz4n8SNr/+HmZlz4n8H///uv0f88ccff/z9HQBMvQ9v/1vyL3/88cff 1P5lwzACgGlFGAJARBgCQIwwBICIMASAGGEIABFhCAAxwhAAIsIQAGKEIQBE hCEAxAhDAIgIQwCIEYYAEBGGABAjDAEgIgwBIEYYAkBEGAII0AcffPDGG29c zLh27dq7775rUyZhCCAgt27deumll1S/6PTCCy/8+te/NiuZMAQQiuvXr29v b9f+yJ1YNH788ce6hROGAIIgzoULoXc1o7xEvHv3rlb5hCGA7hNrwvIK8IOM 8r2vv/66VhWEIYCOu3XrlvTsuDoMhcFg0LwWwhBAl3388ceqd0xqw/D8+fN3 7txpWBFhCKDLbt68KQ26JmEo/OxnP2tYEWEIoMuuXbtmE4YXL15sWBFhCKDL 0jeRr169+kFj6Rsuzz33XMOKCEMAXfb888/bhKHQ8BobwhBAl50/f94yDBu+ h0IYAuiy9K1kszDc3t5uWBFhCKDLXn31VZs3UC5cuNCwIsIQQJe9/fbbNmH4 xhtvNKyIMATQZXfv3k1fNjQIQ3FXw4oIQwAdp1oc1oZh82VhRBgCCIH0lcPq MLxw4YLWF3kRhgC6786dO+WT5Yqv8Nre3m5+gpwgDAEEQeThpUuXVK8NZpl9 3zVhCCAgtV92bfY11xFhCCA0H330kUg8sfzLZuDzzz+fXJVtXCxhCCBcIhhv 3brlpCjCEAAiwhAAYoQhAESEIQDECEMAiAhDAIgRhgAQEYYl3/zmNx9++OGT ALpNzFMxWx3OfcIw6389+ug3vvGNX/3qV/8GoNvEPBWzVcxZV9OfMMw6derU u+++e/fu3X8F0G1inorZKuasq+lPGGaJtbd4xvE9yAAaEbNVzFlX058wzBId +7vf/a75L3AB8EjMVsKwJYQhEBDCsD2EIRAQwrA9SRi+DyAEhGF7CEMgIIRh ewhDICCEYXsIQyAghGF7kjDcBxACwrA9hCEQEMKwPYQhEBDCsD2iY+/evfse gBCI2UoYtoQwBAJCGLaHMAQCQhi2x3kYvvJX98/MzNz/V684LLP7vvPHM+E+ 6ukcskARhu1JwvBmyT8+cjBB5O5/5B/LOxT3+/STym166MlPSzom7YuqDiuX 0nx7N6Z0yAJFGLbHJAwrMzHZcbLT2b/qMGyWM+PNbXovLkUv1qZzyAJFGLan JgwlsyoXk8ygRF0YNoin0bLQqlfVw4Z+IAzbk4Thv5RcGs2q8l3Z+6s2mSaj MLyUvTHpo/vvv19yX9GwP5ONa7atL4Yx6a1AwnD7xMzM0Y3rTstsnWkYjjex mLr9URWGjzwiuzNvtOmTjxCGqBJEGF7fODozXWE4ioD83JXGQm7zzNmgcs5f yr9kmTSjouhy4fKm5x7WpfwJv6oxTZpdGYaXajsz3d249y4pXuMd1ZktePw+ zSV145X1Sh5GfhNVQcUm8iRqgjBsj+jYjz766M2S579y+OCAPfZ4+a6Mx4/F h/XhrzxfuCl7y7g0CUkFw0LLW0qLVu8gKz59WNIWFYtu3uyKR31w47CgctPz jbLoPdU2oy3SgjOdNapG1a+qjs1uqai3WJi0JEV3TLV5mewGYrYShi2xC8PR QZ7ZrGo6Z0tLZ1G+ivHkkm5cLjqdZvnbFTePUunw4dw96dbSxjRodk0YVgRO g82aN0M9bMOCjx07XG6EvG3j/MqVJmpIt0xbkdlX1rJRUbmCHj9GGEpVJOGb nQ/DJAYLRCoevIaoisfkvhPbpf9I/v/Q8P66GlWbNTGpMDwmOfAlm0qWmvkG ybeXtnO0hzREVIvAwsRv2Oz6MKyNqWQru96rrUXeU+oHVH0AqAar2IiGxxJS qiR8M9gwrFgs5rIw/S9pQcWky6VlrjojlmFY3qxiCdR0Z0WtknPNyu1ld6vP V6vPZKub3SQMFT1auNWq95SVvFn1LCOrVPrUUL+bohXNuxYpaRK+2fkwTMiS T5WGcaCNbx4uIY8ezW2aRmMmDke3ybYzWx8mYXi95O+/dO9BoSuPle/Kemxl prBZcsu9X/r7ml3GxjvXVFoqulx73R4VNdQ0vKLZqp2TysY3SjZqsIlOM9SP r6qrypXWNkOvxGGr6kpEA8GGYXEJqNhyuNgrh+Yw59LdVSfesloasgvD4VYN 5lFpEsumc6M8KoVhxQwrPQrdMGzUbNXOxaQr1970ETVtRl0YyrtK5ymjWFOl 0nPkEJloLuAwlORUsmH2FnWW5QtVb1dYamqwC0PJ6kA267IzIbNtfTbIaptc GDZttqolpTAs7CopyKb3Kh+f7zAsPRIS0UzIYVhKsHIWVi3ssndJX1LMMlka JmH4TyXnk2P9gcfKdxW3yW/02APJkX6+uFn2JkUdyb6qSsvlVG8va0zFwypu 27zZ0kedbpi/MbNhs3K0mqF+fNIGqu5T1tm0xGrDYas5uiAVdBgW0k+2hgsz DKVRKJsjyllTyrLqSTjcvFy0spXluzXCsHmzVRvLwnB8o3QXm96rfHxaYdgo DZs8XSrVPo1BIewwzKWh9Hy25vS3wWmyOcMwVD+5N57OozCVZJWs2rTGXEGS gCwWlrvPPgxlzdYJw9Gt90obYtV7VY9PLwzT4qvisNH6sXpfwlBb4GGYicD4 /5TSbPgGSjnlCm+YFN9PcUF07G9+85s3Sp778+Ro/ZbijmSq/PlzpR2/9UDx nnSPTGHfeiAtJF9Heke5hAceKBWdbU7+9rSc/CNQPqxyww2aXeiPpIRyJ41L KbXDsvfSu0qVShtYdZ+qkaI96ZbSwRo1eryb2KxhK1FLzNZQwrAyDU+cKL1c OL63lIejW2W3FWsRlRteaVgThmqqA1k2s7KTNzOL5ckk3TjeSjGhK5paChuN MNRqtlYYjlohuce694pbj+7WDkNVxfktG/W9ohyi0EQQYVh4SU/6suABybpu ePq70eSaa+ULhxMLw5pjuFFiJXerk6lQ+3CLqgldaq8s7zTDUKPZemGY3NO4 Ebq9J1s4moRhqTDFZuWwq0lo1eigXhhhGOU+HSJZu8luzuwWx57Jp/GsPhGt CsMOqggyYEoEE4YVal9SdPzGSFNJGP40AM9+MTm3/OKzvlsCeNODMKzMO8Kw 3jAKZ/7bX/tuCeBR+GFYHXeEYeog80prv1EQsizE1As8DCvfZz7gOQw//PDD n3TF9sMLxRfjx/5o03fzAM/EbA0yDLPvhlS9x0EYZsnycOHhbd/NArog+DCs yTnCEEAjoYZhCAhDICCEYXuSMLwCIASEYXsIQyAghGF7CEMgIIRhe0TH3rp1 63UAIRCzlTBsyalTp956662bN29eBtBtYp6K2SrmrKvpTxhmPfroo+vr67/8 5S9vAeg2MU/FbBVz1tX0JwwLvva1r4nnmpMAuk3MUzFbHc59whAAIsIQAGKE IQBEhCEAxAhDAIgIQwCIEYYAEBGGABAjDAEgIgwBIEYYpt5HB/g+CjC9CMOU mImvvfba9773vSctiN1FIcm8/u53v/vZz372Dy2I3UUhSWlu29bZ0nwfBZhe hGHq8uXL58+f39/f/50FsbsoRBQlJviDDz749a9//TELYvdjx46Joty2rcul +T4KML0Iw9QzzzwjViZ37979jQWxuyhEFLW6urqxsfHtb3/77yzs7OyIPBRF uW1bl0vzfRRgehGGKbEAE1PyX62JQkRR4iT3iSeeePbZZy9ZeOWVV8S/oii3 betyab6PAkwvwjCVTGr7twDSMPzOd77z4osv2nyr+dWrV69cuZKGoau2dbk0 30cBphdhmEom9XvW0jB86qmnXn755T1raRi6aluXS/N9FGB6EYYpMRN/+9vf /os1UUgShk8//fSPf/zj69aSMHTYti6X5vsowPQiDFPJpH7HWhqG3//+9197 7bUb1tIwdNW2Lpfm+yjA9CIMU2Im3rlz51fWRCFJGP7gBz+4evXqW9aSMHTY ti6X5vsowPQiDFPOw3BnZ+cnP/nJL60RhsAEdCYMt0/MCEc3rntrAWHYhdK8 DT+mHmGYEjPx9u3b9pNaFNJGGDpsW5dL8zb8mHqdCUP/xEz8+c9//k/WRCHZ N1B+ZiH7BorDtnW5NN9HAaYXYZgiDLtQmu+jANOLMExVTurHHpjJuvdL52sm dUUY/u9jubIOf2XXVRiOWqlsXnV8nf/SvTNSDzxmUFq5WdWdRxjCrwmHYfLK YOrEduGe9IbChjmFFxavbxxVlKlHzMS33nrrn0seX5E34/CXf1TeWBCFqK8z fOEvDksLO7ZVd52htG2KhqqaNmybqrQffVneuJmVxw1KUxcpLy4pzXDwAGsT DENJvmVirXEY5qJQvpnZ2zCKSZ1ETC5eRjNcnjl1YXj4L16QpGP+VoMwjNt5 eGXlsG0YKpJPu7R/Hsdzrj2PrxCG6KKJheFw/ZZdt13fOKEMQ1UB+f2PlrJv dJvB+lAVhl+WJYskIvOTWuMTKFvHqtOwSRgmUfjlHyV51o0wHEZh0/IIQ/g1 sTCsC7ua+yV3qy7GqY1VBTETf/GLX9RnV2ZBJw0wUUj6CZQrV67831r/cOY+ UdZ//z/le7JhWNW2OE7jxlS0a9w2VWnJzlVn7BqlDZe8uqXpjhrgyqRXhsqQ qoyw+M5C7Kl3kG3dgK8wTLLwvjP/YBqG4yjsUBjWNERZmuagAc5M8g2U7At8 pRBTZ1v5/Hh8awXtpaFOGFZNda0wTJJQHoXNwjAbhU7CMKs6zKpKKy5W6wsk DOHXxC+tySZidvWmCkPV7a2E4WAwaPLNCRe+GifYJ56Q3isKScJwe3v76tWr vyh6Mdk79Ym/KW0yklxgk4ShvG1PfOIgSr96Id+0zA2ytqlKu1Bo2aiB8sdZ WVpS1CeekBWpaF1Smv4RBbjh6zrDYSaO41AeehVnvKYvDSo1DcPqKNQPw4o8 rAvDYhRahqG0+Nr4kpaW7Hrffffl9h0VKC2PMIRf/i66TpZ2adBJsk1+fpy/ 12EaNoqIYRIq0+at+jDM+5s0H17UDcMkWvKh7DQM6x5vbRhKnjKGKSkpjzCE X5MKQxFd+QVeMctKYVi/8hudcRdXjqW6mhEz8Z133nm7wkujZHipaitRSBKG zz777LVr16o2HfrbTyqKzb5mWGxbstMn/1bWRGULk7bVP9LaeupKUz4kdXlJ adrDBjgywTCUvBplctF1NiCVLxy2EIbNkvBtkzBUBoQ6DF+Sv7yXVy5wYmGo DmXCEB01udPkYnBVXSlTFYXF1WIpEE2/BqwqIobZI40E+aSe8jBU70YYoqP4 ooaUmInvvfee5Mc5zn4qjpZPnW32Wx6iEFenyT+PJWEob1vRy3/5e6Ko3/vL l6va1ri0UXmKx15ZWtJrxZZUlJeU5vsowPQiDFPySa2ZhO9UhuHBeq6wJkqX eLK112TDUDzU/MMcPnZlcdXROsy9bJnDAuXlEYbwizBMySb1aEIrSCOyJgyl FK9ETjwMGz/I+tKUvVcdrb6PAkwvwjAlZuL777+f/y3fS4/cXxWGn35S8vu/ opCK0+TklLg+B2PJNSdJGJbaJpU0+P5HLsnvTtqmLO3JT+fbpiynUWmZBjUp MCnN91GA6UUYphoHTo3qMNSiH4aN2tbl0nwfBZhehGGKMOxCab6PAkwvwjAl ZuKtW7fesyYKcRWGyedQkjB02LYul+b7KMD0IgxThGEXSvN9FGB6EYYpwrAL pfk+CjC9CMOUmIkffvjhr62JQtoIQ4dt63Jpvo8CTC/CMEUYdqE030cBphdh mCIMu1Ca76MA04swTD3zzDM3b94UU/J9C2J3UYgoanV19amnnvrpT3/6/ywk kSiKctu2Lpfm+yjA9CIMU5cvX/7hD38olii3LYjdRSGiKLHI+dznPnfhwoWa L3etdOXKlVOnTomi3Laty6X5PgowvQjDlFifvPrqq08//fSTFsTuopBktXP2 7NmHHnroDy2I3UUhSWlu29bZ0nwfBZhehGHK5iwPrvg+CjC9CEMAiAhDAIgR hgAQEYYAECMMASAiDAEgRhgCQEQYAkCMMASAiDAEgBhhCACRfhi+AgChIQwB 4JU2w7DJlgDgHWEIABFhCAAxwhAAIsIQAGKEIQBEhCEAxAhDAIgIQwCIEYYA EBGGABAjDAEgIgwBIEYYAkBEGAJAjDAEgIgwBIAYYQgAEWEIADHCEAAiwhAA YoQhAESEIQDECEMAiAhDAIgRhgAQEYYAECMMASAiDAEgRhgCQEQYAkCMMASA iDC0d33j6EzixHbbNbRZz2RqATqLMDQ3ifjYPjEjdXTjenC1AJ1GGBoZp4fI i9F/OA/DtJZMKI0T2FVSTaYWoOsIw4IjR44MBoPKTdKkGKZfS2E4qqYcRy4r dFLL0tLS5cuX7RsDeEQYZp07d+7kyZP124mcyEREO2FYVeoowexrdFOLSEKR h7ZtAbwiDLMaLAslWgnDYaHSs1R379m4q2V5eVk8ldi1BvCJMExtbm42WhaW tBGG6lVZ7s0Oy1f0HNYiFocLCws2jQH8IgwTt2/fnpubM1gWRu2EoXzJNn6B b9vJibLbWlgcImiEYeLs2bPHjx8323dCYTiqJr7NzauGbmvZ3d1dXFy0aQ/g EWGYWFlZEXlotu8kwrBYRzthaF3LoUOHzFbXgHeEYRSfI4tZLP41273tMJRd /eI+DJ3UIlbXm5ubNk0CfCEMo/gc2ebKkFbDcENeuOMwdFWLZU8CHhGGUXyO vLW1Zbx7m+8mq0quuibGYy3JGnt/f9+mVYAXhKEwOztr8wGKNq8zrLkG0NF1 hi5rWVhY2NnZsWsW4AFhKJYxYr4bv2AYtfwJFGlKuavRfS1imb2+vm7bLmDi CMPd3d35+XmbElr6bLKyWPXHibtQy9ramvFFSoBHhOHW1pbl1XFtfWuN9PNw zr8+0XUt9v0JeEEYnjlzRnclU/wiQwlH33ylrMlp8DqtRay05+bmHLYOmAzC UCTh6dOntXaZXBjGCl+92tI3DLqqZW9vT+zutm3ABBCGy8vLYnHouxX9cePG DRGGXF2D4BCGi4uLa2trvlvRH4PBQIShiETfDQH0EIbz8/M2V1yjTIThxYsX fbcC0EMYzs3NEYZuiTDc3d313QpAT7/DcPtE/fsAhKFzhCFC1Mcw1LtIjjB0 jjBEiHoXhgdXiGhdFkIYOkcYIkQ9C8ODKNS8UpiZ6xxdihD1KwzFCbL2xcLM XOfoUoSoX2GY/z3jZpi5ztGlCBFhyMx1ji5FiAhDZq5zdClCRBgyc52jSxEi wpCZ6xxdihARhsxc5+hShIgwZOY6R5ciRIQhM9c5uhQhIgxtZm7xK69d/wpK oLUQhggRYWg6cwtfk9/St/IHWQthiBARhkYzV/bj6+OllaukCrUWwhAhIgwN Zq76J4Vd/mpouLUQhggRYag/c6tSYpQt9jkVcC2EIUJEGGrP3GF+SM8f3f3E e8i1EIYIEWGoO3PV66Xc2xCWr+gFXQthiBD1KgwP5nbrYShfTI1fett2cgob dC2EIULUqzAUc1t/qeQgDEfLqPg2N6/nBV0LYYgQ9SgMjdaF9mFYfAuinZgK qhbCECHqSxhq/w5UyiYMZdeluI+p4GohDBGi8MMwmdDm7yQYh+GG/KoUxzEV Yi2EIUIUfhhGozk7oc+O5T/Dq3wf1tH7vEHWQhgiRL0Iw5jhS4bG1xnWXJ3n 6ArAIGshDBGi/oShaRzqz9yq9ZK7T8oFXItWl+bevgb86VMYGv1ssskyRpkS 6g/6Ggi3Fo0uzZ2ot/PdZEAzvQrDiX1rjfSTau4+JBd6LTpdmv2oC4tD+EQY Gr7AVfwu1HaWN2HWotelmdpZGsIjwtAwDEf1ZbW0sgmuFs0uTdOQlSF8Igxt whBSml3KWyjoBMKQMHROo0vdf3E3YIgwJAyda9KlhbNyXi2Ed4QhYeicVhiy IkRHEIaEoXN0KUJEGDJznaNLESLCkJnrHF2KEBGGzFzn6FKEiDBk5jpHlyJE hCEz1zm6FCEiDJm5ztGlCBFhyMx1ji5FiHoXhtrX8DJznaNLEaJ+haHJ0pCZ 6xxdihD1LAzjT3npxSEz1zm6FCHqWxjq/1QeM9c5uhQh6l8YJpp/R97s7OzZ s2cn0qhpQRgiRH0Nw+bm5ua2trbM9i1+X347X0QVXC2EIUJEGJqGYeEL+Zx8 X35PaiEMESLC0CgMZd/G5/5Lm0OthTBEiAhDgzBU/6Swu193D7kWwhAhIgwX FxfX19d19qhKiVG22OdUqLXs7++LfW7cuGHbNGCyCMOlpaUzZ85o7DDMD+n5 o7ufeA+2FhGDYpfBYGDXMmDSCMPjx49rhaF6vZR7G8LyFb1wa9nb2xO72LQK 8IIwPH36tMjD5tvLF1Pjl962nZzChlvL7u7u7OysTasALwjDzc3NxcXF5ttL AiR3hbeb1/PCrWVra+vIkSM2rQK8IAx3dnbm5+ebb18MkOJbEO3EVDi1rK2t rays2LQK8IIwHAwG99xzT/PtswEiuy7FfUyFVcvq6qreG1JANxCGwqFDh/b2 9hpunAbIhvyqFMcxFVwt4hz53LlzNq0CvCAMheXl5ebf1ZD/DK/yfVhH7/MG Vsvt27fFMwvX1SBEhGEUv+av8Yay7ONrY66uhw6zlt3dXd49QaAIwyj+0MTs 7KxY1TTbvGq95O6TckHWcvLkybW1NdtGAT4QhomlpaXmH6dVpoT6g74GQqxl bm6OD+IhUIRhQpwpr66uNt1a+kk1dx+SC7SWvb09rYuUgE4hDBPiHHlhYaHx mXL5u1Ar3oawEFQt4hxZ8ysvgA4hDFPrMa1dCl+K6vYbV8OqZTAYiHNkjWcT oGMIw5T24hAZYlm4ubnpuxWAOcIwy2BxiCheFnJFDUJHGGaJZaE41+OaYV3L y8t86gShIwwBICIMASBGGAJARBgCQIwwBICIMASAGGEIABFhCAAxwhAAIsIQ AGKEIQBEhCEAxAhDAIgIQwCIEYYAEBGGABAjDAEgIgwBIEYYAkBEGAJAjDAE gIgwBIAYYQgAEWEIADHCEAAiwhAAYoQhAESEIQDECEMAiAjDCbq+cXQm68Q2 tYSuT73NmBKGE7F9Ykbq6MZ1aglUn3qbMT1AGLYvPdIyh9b4adjV8danWrqv T73NmA4RhpaOHDkyGAwqNhgdVuWDanQQujgfCauWpaWly5cv27enJYypQS0d H9MmCEMb586dO3nyZOUmVUfU6Di0P6YDq0XMGjF3bJvTDsbUrJYuj2lDhKGN 2iXE6FiTnmuMT0Vsj+kAa1leXhaxY9egVjCmxrV0dkwbIgyNbW5u1i0hKp5b cy9ZW74uE2ItYiGxsLBg0542MKY2tXRzTJsjDM3cvn17bm6uZgmheuIdv0yz 7eR0J9BauraQYEzta+namGohDM2cPXv2+PHjtZtJDrbRU258m5vXfgKtZXd3 d3Fx0aZJbjGm9rV0bUy1EIZmVlZWxNyp3ax4sBVfrm7nkA6nlkOHDtWuxCaG Me3fmGohDA2I8ykx4uLf2i2zB5vsGgb3h3RYtYiV2Obmpk2rXGFM+zemughD A2L90PAqgvRg25BfweD4kA6uluY92TbGtH9jqoswNCDOp7a2tppsmf+8p/I9 O0fvCYZXS7Ie29/ft2mYE4xp/8ZUF2FoYHZ2tunF9rKPOo25unY25FoWFhZ2 dnbsWuYAY9q/MdVFGOoST3ni8Gjy4lKs6rnV3aeqAq5FLMnW19dtm2aHMe3f mBogDHXt7u7Oz8833155RKk/FGog3FrW1taaXNDSKsa0f2NqgDDUtbW1pXcl lfRTTe4+UBV6Ldr92QLGtH9jaoAw1HXmzBntZ73i92amnH6BZpi1iFXZ3Nyc wwYaYEz7N6YGCENdYtacPn3aYMfCF2i29D1xwdWyt7cnSnDYNgOMqdtaujCm BghDXcvLy2Ih4bsV/XHjxg0xcfxeicGYutWFMTVAGOpaXFxcW1vz3Yr+GAwG YuKI6eOxDYypW10YUwOEoa75+fmGV+eiITFxLl686LEBjKlz3sfUAGGoa25u jonjlpg4u7u7HhvAmDrnfUwNEIa6mDjOeZ84jKlzdWN6feNo535qijDUxcRx jjDsnwZj6vyKSVuEoS4mjnOEYf/ojOnBRT1dWCYShrq8z9z+8d6l3hvQP3pd erBI9L88JAx1MXGc896l3hvQP5pd2ok0JAx1MXGc896l3hvQP7pdKk6VCcPg MHGc896l3hvQP4ShWclhYeI4571LvTegfwhDs5LDwsRxznuXem9A/xCGZiWH hYnjnPcu9d6A/iEMzUoOCxPHOe9d6r0B/UMYmpUcFiaOc9671HsD+ocwNCs5 LEwc57x3qfcG9A9haFZyWIwnTvG71dsb+/Y/9On2sXjPoo6PaYi1EIZmJYfF aOIUvlI95foTmZOYNu4fS5hhOJkxDbUWwtCs5LDoTxzZD3WPU8vVUT0+nkWJ 7n5XV1WLy8cSYBhOeEzDq4UwNCs5LLqjrP75WYeJlR67w7JaCsOWHktwYTiR MQ27FsLQrOSwaI5y1RE1Og5dHAX5g6mdMGzrsYQWhpMZ07BrIQzNSg6L3igP jzXpuUaL73O0EoatPZbAwnAyYxp4LYShWclh0Rpl9XNr7iVr599s2UYYtvdY wgrDyYxp6LUQhmYlh0VrlOVPvOOXabYdnihL6nVabnuPJawwnMyYhl6L7ph2 4TdRCENdthNnlFPxbS5fNZTU23YYOnoswYdhC2Maei3aYyrq9Z2GhKEuq4lT DKmQw9DdYwk7DNsZ09Br0R/Tg7r9nikThrqMJ47sGoZQw9DtYwk3DNsb09Br MRnTuDaPeUgY6jKbOBvydAoyDJ0/lkDDsNUxDb0W4zFNmuQlEglDXVqjnP94 nPI9u6DeTXb/WMIKw8mMaei1mI1pXJ+3lw4JQ116oyz7qNNYWwvDVq8zdP9Y wgrDCY1p4LUYjKn3Fw0JQ12ao1z13NraJ4jb/QSK88fSvEtzb3W608kxDbsW 7TDswI+FEoa6dEdZeUSpPxRqr6WYbemxNO3S3Emdy4fWzTENuhbdLu1AFhKG 2oye8krHW8tfOdjWmrOdx9K4S7Mfi3D5HNLRMQ25FoPnF9+XGRKG2rQnTlT+ mkH3yxtlDc7To4XHotGlmdodBn03xzToWnS7lI/jhchk4sQKX6Dp9nlwcmEY c/tYdLo0faBeV4YjrY5p0LUQhmYlh8V44kBFp0tbeQuFMXWOMDQrOSxMHOea dqn7L3nWbAAaIwzNSg4LE8e52i4tnME5nzWMqXOEoVnJYWHiONc8DFt6uYwx dY4wNCs5LEwc57x3qfcG9A9haFZyWJg4znnvUu8N6B/C0KzksDBxnPPepd4b 0D+EoVnJYWHiOOe9S703oH8IQ7OSw8LEcc57l3pvQP8QhmYlh4WJ45z3LvXe gP4hDM1KDgsTxznvXeq9Af1DGJqVHBYmjnPeu9R7A/qHMDQrOSxMHOe8d6n3 BvQPYWhWcliYOM5571LvDegfzS7twtcZEobamDjOee9S7w3oH60u9f7rJwnC UBcTxznvXeq9Af2j901E/leFBwhDXbOzs2fPnvXdil7xnkWMqXN1Y5p+HVsH VoQjhKGuubm5ra0tgx2LX0bdzlEQYi3ew5AxLdVkW4f3MTVAGOoymjiFL+RL uT09CLUW7xNn6sfUfeB6H1MDhKEu/Ykj+zY+91/aHHAt3icOY5qW6Op3Fb2P qQHCUJfuxFH//KzL3/MMuhbvE2eKx7T42h1h2GRLwjCxuLi4vr7eePOqg2t0 INof0wHXsr+/L3a7ceOGbessTPGYFi93dhKGXRhTA4ShrqWlpTNnzjTdenhs Sc9o3L1aHXItYsqIvQaDgV3jrEzvmKqqtSu4C2NqgDDUdfz48eYTR/0Mnnth 3PLVn6Br2dvbE3vZNMze1I5pmZMw7MKYGiAMdZ0+fVrMnYYby5/exy8GbTs5 3Qm6lt3d3dnZWZuG2ZvaMVXWa1duF8bUAGGoa3Nzc3FxseHGkkM69yvobl77 CbqWra2tI0eO2DTM3tSOqbJeu3K7MKYGCENdOzs78/PzDTcuHtLFQ62diRNU LWtraysrKzYNsze1Y6qs167cLoypAcJQ12AwuOeeexpunD2kZVdKuJ84wdWy urqq8eZFO6Z2TJX12pXbhTE1QBgaOHTo0N7eXpMt00N6Q36MOZ44IdYizqfO nTtn0zAnpnNMlfXalduRMdVFGBpYXl5u+Ln+/IeclO8MOnrnMbxabt++LVKo C9dgTOeYltmHYXfGVBdhaGBra6vpm4+yD1SNuXp6D7aW3d3djrzSPqVjqqzW vODujKkuwtDA/v7+7OyseAZssG3VM7i7T1WFWsvJkyfX1tZs2+XCtI6p+5K7 M6a6CEMzS0tLDT96qTy61B89NRBoLXNzc9350NZ0jmnTShvr1JhqIQzNiLOq 1dXVRptKPzvl/ANVAdayt7fX/IKWCZjSMc2zDMOujakWwtCMOJ9aWFhodlZV /rK4lNPjObRaxPmUztcjtG46x1RZw5jGCrRrY6qFMDS2Hmu+feFrOlv62YdQ ahkMBuJ8qmnyTMoUjqnDMOzmmDZHGBrTW0ggTywhNjc3fbeiiDG10c0xbY4w tKG7kEBCLCE6e/UFY2qmy2PaEGFoQywhxHlBiNeX+rW8vNzZTygwpma6PKYN EYYAEBGGABAjDAEgIgwBIEYYAkBEGAJAjDAEgIgwBIAYYQgAEWEIADHCEAAi whAAYoQhAESEIQDECEMAiAhDAIgRhgAQEYYAECMMASAiDAEgRhgCQEQYAkCM MASAiDAEgBhhCAARYQgAMcIQACLCEABibYchAASEMASAV9oJQwDoJcIQACLC EABihCEARIQhAMQIQwCICEMAiBGGABARhgAQIwwBICIMASBGGAJARBgCQCwN QwCYciIM+eOPP/74E393/z3ijz/++OPv/wPfcJoz "], {{0, 465}, {431, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{215.5, Automatic}, ImageSizeRaw->{431, 465}, PlotRange->{{0, 431}, {0, 465}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7749687336510086`*^9, 3.774969105392968*^9, 3.7749728655756407`*^9, 3.774975275552026*^9, 3.7749754399232244`*^9, 3.7749756183243666`*^9, 3.7749760481816735`*^9, 3.774976876912174*^9, 3.7789450625486126`*^9, 3.778945620327408*^9, 3.7792009555633163`*^9}, CellLabel->"Out[1]=", CellID->511680207] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Dennis M Schneider", "Text", CellID->79893223] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["vector space basis", "Item", CellID->30503299], Cell["polynomials", "Item", CellID->691303797], Cell["matrices", "Item", CellID->473864343], Cell["unit vector", "Item", CellID->720445169] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Visualization"}], "\" \"", "\"Data Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Date & Time"}], "\" \"", "\"Date & Time\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Decorations"}], "\" \"", "\"Decorations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Differential Geometry"}], "\" \"", "\"Differential Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dimension Reduction"}], "\" \"", "\"Dimension Reduction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Discrete Mathematics"}], "\" \"", "\"Discrete Mathematics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dynamic Interactivity Language"}], "\" \"", "\"Dynamic Interactivity Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Error Handling"}], "\" \"", "\"Error Handling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Expressions"}], "\" \"", "\"Expressions\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Language Interfaces"}], "\" \"", "\"External Language Interfaces\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "File Operations"}], "\" \"", "\"File Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Front End Utilities"}], "\" \"", "\"Front End Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Functional Programming"}], "\" \"", "\"Functional Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Function Visualization"}], "\" \"", "\"Function Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Games"}], "\" \"", "\"Games\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data and Entities"}], "\" \"", "\"Geographic Data and Entities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Visualization"}], "\" \"", "\"Geographic Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Region Properties"}], "\" \"", "\"Geometric Region Properties\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Transforms"}], "\" \"", "\"Geometric Transforms\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Construction & Representation"}], "\" \"", "\"Graph Construction & Representation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Properties & Measurements"}], "\" \"", "\"Graph Properties & Measurements\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Visualization"}], "\" \"", "\"Graph Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Handling Arrays of Data"}], "\" \"", "\"Handling Arrays of Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Image Filtering & Neighborhood Processing"}], "\" \"", "\"Image Filtering & Neighborhood Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Image Processing & Analysis"}], "\" \"", "\"Image Processing & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Importing and Exporting"}], "\" \"", "\"Importing and Exporting\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Interactive Manipulation"}], "\" \"", "\"Interactive Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Iterated Maps & Fractals"}], "\" \"", "\"Iterated Maps & Fractals\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Layout & Tables"}], "\" \"", "\"Layout & Tables\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Life Sciences & Medicine: Data & Computation"}], "\" \"", "\"Life Sciences & Medicine: Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Linguistic Data"}], "\" \"", "\"Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "List Manipulation"}], "\" \"", "\"List Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Logic & Boolean Algebra"}], "\" \"", "\"Logic & Boolean Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Low-Level Notebook Programming"}], "\" \"", "\"Low-Level Notebook Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Maps & Cartography"}], "\" \"", "\"Maps & Cartography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Mathematical Functions"}], "\" \"", "\"Mathematical Functions\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Matrices and Linear Algebra", { False, "Matrices and Linear Algebra"}], "\" \"", "\"Matrices and Linear Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Molecular Structure & Computation"}], "\" \"", "\"Molecular Structure & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Natural Language Processing"}], "\" \"", "\"Natural Language Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Neural Networks"}], "\" \"", "\"Neural Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Basics"}], "\" \"", "\"Notebook Basics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Document Generation"}], "\" \"", "\"Notebook Document Generation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Formatting & Styling"}], "\" \"", "\"Notebook Formatting & Styling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Number Theory"}], "\" \"", "\"Number Theory\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Numeric Approximation"}], "\" \"", "\"Numeric Approximation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Optimization"}], "\" \"", "\"Optimization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Computing"}], "\" \"", "\"Parallel Computing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Persistent Storage"}], "\" \"", "\"Persistent Storage\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Physics & Chemistry: Data and Computation"}], "\" \"", "\"Physics & Chemistry: Data and Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Plane Geometry"}], "\" \"", "\"Plane Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Polynomial Algebra", {False, "Polynomial Algebra"}], "\" \"", "\"Polynomial Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Precollege Education"}], "\" \"", "\"Precollege Education\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Presentations with the Wolfram System"}], "\" \"", "\"Presentations with the Wolfram System\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Probability & Statistics"}], "\" \"", "\"Probability & Statistics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Random Stuff"}], "\" \"", "\"Random Stuff\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Real & Complex Analysis"}], "\" \"", "\"Real & Complex Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Recreational Math"}], "\" \"", "\"Recreational Math\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "RepositoryTools"}], "\" \"", "\"RepositoryTools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Rules & Patterns"}], "\" \"", "\"Rules & Patterns\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Scientific Data Analysis"}], "\" \"", "\"Scientific Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Segmentation Analysis"}], "\" \"", "\"Segmentation Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sequence Analysis"}], "\" \"", "\"Sequence Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVUMtKA0EQBDW6K+LBqyBz8rYfsawGAtGEtD8wO1uJg/NYpnsO8/fOEgh66qaqq6u6+\ 6ajFUlxoNtdljlLR3fDN8wPpuM132wtCz1/aEnWgJUOk9raAJ1U704Yk6anfXQlRG+\ 1u2AvVPwYnTXqVX1mjypWQ/\ R1uxYbQ7XcCDxz22eJvmKmo2af4owkhe4HLTjFZME1zG5eJHy8OodZ6iE7cPM+\ WdFj7VZr7RgXon2Dw19muSi67MN/w8dNEKQ54RyK2j4UyiOjvuDhAI45GXyVGdSsczDLzC+ls2nd"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->636799735] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["RowReduce", "Item", CellID->894512782], Cell["Orthogonalize", "Item", CellID->638667577] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["RowSpace", "Item", CellID->234846716], Cell["ColumnSpace", "Item", CellID->857853746], Cell["SumBasis", "Item", CellID->508806756], Cell["IntersectionBasis", "Item", CellID->554663366], Cell["LinearConstraints", "Item", CellID->704439196] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], 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->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], 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->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], 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->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CanonicalBasis | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.85903723796212`16.339053958496688*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.85903723801935`16.339053958503126*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], 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["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], 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:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { 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:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], 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[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], 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], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], 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]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], 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], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.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[ RSNB`$$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 -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ 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], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"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"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], 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[1., 1., 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.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], 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[1., 1., 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.]]}, 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"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.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 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], 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, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], 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], RowBox[{ 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.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.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["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], 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.906]], 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["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], 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["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"6ce77522-676c-42c1-81fa-d6895ef3148a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->453607181]}, "TemplateCell"->{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"6ce77522-676c-42c1-81fa-d6895ef3148a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->453607181], Cell[730, 27, 160, 4, 70, "Text",ExpressionUUID->"f0f3b10c-0beb-4098-83af-131fee5de8fa", CellTags->{"Description", "TemplateCell"}, CellID->618275022]}, "Title"->{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"6ce77522-676c-42c1-81fa-d6895ef3148a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->453607181]}, "Description"->{ Cell[730, 27, 160, 4, 70, "Text",ExpressionUUID->"f0f3b10c-0beb-4098-83af-131fee5de8fa", CellTags->{"Description", "TemplateCell"}, CellID->618275022]}, "Definition"->{ Cell[915, 35, 1206, 29, 70, "Section",ExpressionUUID->"2f370fc0-c90f-4980-8f70-5175c2c85f8b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[915, 35, 1206, 29, 70, "Section",ExpressionUUID->"2f370fc0-c90f-4980-8f70-5175c2c85f8b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[915, 35, 1206, 29, 70, "Section",ExpressionUUID->"2f370fc0-c90f-4980-8f70-5175c2c85f8b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[16188, 403, 1980, 50, 70, "Subsection",ExpressionUUID->"a6b75945-fa8c-48e8-bf8b-6886a1da5927", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[19410, 508, 1429, 32, 70, "Subsection",ExpressionUUID->"65592803-a253-4fed-8dce-7ff5cff23b7c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[21843, 577, 7029, 152, 70, "Section",ExpressionUUID->"6ee2ea90-4815-41c5-bbb4-f265b6130b6f", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[92079, 2352, 1026, 26, 70, "Subsection",ExpressionUUID->"ea8e076d-317c-4e8a-a79e-37bab9c33ddc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[93198, 2386, 996, 26, 70, "Subsection",ExpressionUUID->"a2bafbad-8e75-4bb3-8c36-f6bd226a3170", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[94434, 2429, 221, 6, 70, "Subsection",ExpressionUUID->"29ba8bf1-9794-434a-acc4-4d4d619a90ca", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[123448, 3418, 980, 26, 70, "Subsection",ExpressionUUID->"f2caf93a-c1f0-4713-88bc-b56bbd668ab1", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[124565, 3455, 1039, 26, 70, "Subsection",ExpressionUUID->"e4aa4b56-1495-4b1f-ba70-4340c6356654", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[125897, 3501, 1084, 26, 70, "Subsection",ExpressionUUID->"993b9618-6ca5-4503-b9ab-ef56900a65b3", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[127537, 3542, 923, 26, 70, "Subsection",ExpressionUUID->"af3609fd-63f4-4f49-9037-af26f68c4edf", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[129005, 3583, 1874, 45, 70, "Subsection",ExpressionUUID->"42af7ca0-3acd-462e-81ac-c752d316fd57", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[131236, 3649, 955, 25, 70, "Subsection",ExpressionUUID->"e58c70cd-fbf3-464e-afc7-3e84a737f343", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[132216, 3678, 1174, 31, 70, "Subsubsection",ExpressionUUID->"be93eb9d-37c5-4783-802e-2e5f2f8fe782", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[133519, 3718, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c0386a7f-c081-4c5d-a353-d9cb7a075ca1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[135993, 3794, 1280, 33, 70, "Subsubsection",ExpressionUUID->"19a50a83-da95-4d07-a0c3-e27a9714b189", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[138678, 3875, 1913, 46, 70, "Subsubsection",ExpressionUUID->"13497fb5-3957-49a9-a405-3163ec38760c", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[143527, 4011, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4c4126dd-55ac-482c-b686-b9297327217a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[145600, 4075, 1155, 28, 70, "Section",ExpressionUUID->"7db9e229-76f4-44d4-bede-e6cfeab3eb0e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[147324, 4118, 1033, 26, 70, "Section",ExpressionUUID->"21250f68-732c-4d21-b222-5111c57b04ff", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2124, 66, 13807, 323, 70, "Input",ExpressionUUID->"baa05458-d659-4e1f-add9-48d0dd0da750", InitializationCell->True, CellTags->"TabNext", CellID->654194882], Cell[126984, 3529, 516, 8, 70, "Text",ExpressionUUID->"1d9545e0-def2-4270-965f-7583701d8f2b", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[128463, 3570, 505, 8, 70, "Item",ExpressionUUID->"6d760661-2997-492d-9907-62d968f2925a", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[146758, 4105, 529, 8, 70, "Text",ExpressionUUID->"1e6bdeb1-7825-4dbc-8084-2b9a94ff711b", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[148360, 4146, 515, 8, 70, "Text",ExpressionUUID->"cfc563d8-1d0f-4caf-be82-054817200430", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[15968, 394, 195, 5, 70, "Section",ExpressionUUID->"e6055550-1fbb-45f8-adef-4423eb66775c", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[15968, 394, 195, 5, 70, "Section",ExpressionUUID->"e6055550-1fbb-45f8-adef-4423eb66775c", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[91805, 2343, 249, 5, 70, "Section",ExpressionUUID->"b23fe180-84a0-494d-a9b6-b2334230767a", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[16188, 403, 1980, 50, 70, "Subsection",ExpressionUUID->"a6b75945-fa8c-48e8-bf8b-6886a1da5927", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[19410, 508, 1429, 32, 70, "Subsection",ExpressionUUID->"65592803-a253-4fed-8dce-7ff5cff23b7c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[19410, 508, 1429, 32, 70, "Subsection",ExpressionUUID->"65592803-a253-4fed-8dce-7ff5cff23b7c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[21843, 577, 7029, 152, 70, "Section",ExpressionUUID->"6ee2ea90-4815-41c5-bbb4-f265b6130b6f", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[91805, 2343, 249, 5, 70, "Section",ExpressionUUID->"b23fe180-84a0-494d-a9b6-b2334230767a", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[92079, 2352, 1026, 26, 70, "Subsection",ExpressionUUID->"ea8e076d-317c-4e8a-a79e-37bab9c33ddc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[92079, 2352, 1026, 26, 70, "Subsection",ExpressionUUID->"ea8e076d-317c-4e8a-a79e-37bab9c33ddc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[93198, 2386, 996, 26, 70, "Subsection",ExpressionUUID->"a2bafbad-8e75-4bb3-8c36-f6bd226a3170", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[94434, 2429, 221, 6, 70, "Subsection",ExpressionUUID->"29ba8bf1-9794-434a-acc4-4d4d619a90ca", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[94658, 2437, 28753, 976, 70, "Output",ExpressionUUID->"c571c698-91dd-442a-8bb2-5a4d2448a046", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->636799735]}, "Categories-Checkboxes"->{ Cell[94658, 2437, 28753, 976, 70, "Output",ExpressionUUID->"c571c698-91dd-442a-8bb2-5a4d2448a046", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->636799735]}, "CheckboxCell"->{ Cell[94658, 2437, 28753, 976, 70, "Output",ExpressionUUID->"c571c698-91dd-442a-8bb2-5a4d2448a046", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->636799735], Cell[134635, 3749, 1321, 40, 70, "Output",ExpressionUUID->"af8ea297-e7db-40c2-9e81-be67215542d7", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[137276, 3829, 1365, 41, 70, "Output",ExpressionUUID->"699cadd3-1827-4e48-a8f1-cc3695da81b0", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[140594, 3923, 2896, 83, 70, "Output",ExpressionUUID->"4d02dc2d-4176-4e23-b6bc-bba257a47e69", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[144601, 4040, 938, 28, 70, "Output",ExpressionUUID->"66f64245-68cc-4b22-89be-fa9d44eb2b20", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[123448, 3418, 980, 26, 70, "Subsection",ExpressionUUID->"f2caf93a-c1f0-4713-88bc-b56bbd668ab1", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[124565, 3455, 1039, 26, 70, "Subsection",ExpressionUUID->"e4aa4b56-1495-4b1f-ba70-4340c6356654", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[125897, 3501, 1084, 26, 70, "Subsection",ExpressionUUID->"993b9618-6ca5-4503-b9ab-ef56900a65b3", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[126984, 3529, 516, 8, 70, "Text",ExpressionUUID->"1d9545e0-def2-4270-965f-7583701d8f2b", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[128463, 3570, 505, 8, 70, "Item",ExpressionUUID->"6d760661-2997-492d-9907-62d968f2925a", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[130904, 3632, 158, 5, 70, "Input",ExpressionUUID->"0801599a-787e-4a81-a82e-6fb88539b8b3", CellTags->"DefaultContent", CellID->946203791], Cell[131065, 3639, 122, 4, 70, "Output",ExpressionUUID->"ac97bdd6-338a-403c-a7e4-78e8b4b4b710", CellTags->"DefaultContent", CellID->168370258], Cell[133393, 3711, 89, 2, 70, "Text",ExpressionUUID->"47b69b6b-5537-4b8d-8068-ad2ed5684da3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[146758, 4105, 529, 8, 70, "Text",ExpressionUUID->"1e6bdeb1-7825-4dbc-8084-2b9a94ff711b", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[148360, 4146, 515, 8, 70, "Text",ExpressionUUID->"cfc563d8-1d0f-4caf-be82-054817200430", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[127537, 3542, 923, 26, 70, "Subsection",ExpressionUUID->"af3609fd-63f4-4f49-9037-af26f68c4edf", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[129005, 3583, 1874, 45, 70, "Subsection",ExpressionUUID->"42af7ca0-3acd-462e-81ac-c752d316fd57", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[129005, 3583, 1874, 45, 70, "Subsection",ExpressionUUID->"42af7ca0-3acd-462e-81ac-c752d316fd57", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[131236, 3649, 955, 25, 70, "Subsection",ExpressionUUID->"e58c70cd-fbf3-464e-afc7-3e84a737f343", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[132216, 3678, 1174, 31, 70, "Subsubsection",ExpressionUUID->"be93eb9d-37c5-4783-802e-2e5f2f8fe782", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[132216, 3678, 1174, 31, 70, "Subsubsection",ExpressionUUID->"be93eb9d-37c5-4783-802e-2e5f2f8fe782", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[133393, 3711, 89, 2, 70, "Text",ExpressionUUID->"47b69b6b-5537-4b8d-8068-ad2ed5684da3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[133519, 3718, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c0386a7f-c081-4c5d-a353-d9cb7a075ca1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[134635, 3749, 1321, 40, 70, "Output",ExpressionUUID->"af8ea297-e7db-40c2-9e81-be67215542d7", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[133519, 3718, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c0386a7f-c081-4c5d-a353-d9cb7a075ca1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[134635, 3749, 1321, 40, 70, "Output",ExpressionUUID->"af8ea297-e7db-40c2-9e81-be67215542d7", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[135993, 3794, 1280, 33, 70, "Subsubsection",ExpressionUUID->"19a50a83-da95-4d07-a0c3-e27a9714b189", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[137276, 3829, 1365, 41, 70, "Output",ExpressionUUID->"699cadd3-1827-4e48-a8f1-cc3695da81b0", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[135993, 3794, 1280, 33, 70, "Subsubsection",ExpressionUUID->"19a50a83-da95-4d07-a0c3-e27a9714b189", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[137276, 3829, 1365, 41, 70, "Output",ExpressionUUID->"699cadd3-1827-4e48-a8f1-cc3695da81b0", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[138678, 3875, 1913, 46, 70, "Subsubsection",ExpressionUUID->"13497fb5-3957-49a9-a405-3163ec38760c", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[140594, 3923, 2896, 83, 70, "Output",ExpressionUUID->"4d02dc2d-4176-4e23-b6bc-bba257a47e69", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[138678, 3875, 1913, 46, 70, "Subsubsection",ExpressionUUID->"13497fb5-3957-49a9-a405-3163ec38760c", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[140594, 3923, 2896, 83, 70, "Output",ExpressionUUID->"4d02dc2d-4176-4e23-b6bc-bba257a47e69", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[143527, 4011, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4c4126dd-55ac-482c-b686-b9297327217a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[143527, 4011, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4c4126dd-55ac-482c-b686-b9297327217a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[144601, 4040, 938, 28, 70, "Output",ExpressionUUID->"66f64245-68cc-4b22-89be-fa9d44eb2b20", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[144601, 4040, 938, 28, 70, "Output",ExpressionUUID->"66f64245-68cc-4b22-89be-fa9d44eb2b20", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[145600, 4075, 1155, 28, 70, "Section",ExpressionUUID->"7db9e229-76f4-44d4-bede-e6cfeab3eb0e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[147324, 4118, 1033, 26, 70, "Section",ExpressionUUID->"21250f68-732c-4d21-b222-5111c57b04ff", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 272286, 6497}, {"TemplateCell", 272468, 6501}, {"Title", 272803, 6508}, {"Description", 272984, 6512}, {"Definition", 273162, 6516}, {"Function", 273358, 6520}, {"TemplateCellGroup", 273563, 6524}, {"TabNext", 277408, 6585}, {"Documentation", 278254, 6602}, {"TemplateSection", 278448, 6606}, {"Usage", 278822, 6613}, {"Details & Options", 279017, 6617}, {"Notes", 279221, 6621}, {"Examples", 279428, 6625}, {"Source & Additional Information", 279638, 6629}, {"Contributed By", 279850, 6633}, {"ContributorInformation", 280085, 6637}, {"Keywords", 280306, 6641}, {"Categories", 280497, 6645}, {"Categories-Checkboxes", 280894, 6652}, {"CheckboxCell", 281108, 6656}, {"Related Symbols", 282230, 6672}, {"Related Resource Objects", 282443, 6676}, {"Source/Reference Citation", 282667, 6680}, {"DefaultContent", 282881, 6684}, {"Links", 284017, 6706}, {"Tests", 284201, 6710}, {"VerificationTests", 284419, 6714}, {"Compatibility", 284633, 6718}, {"CompatibilityWolframLanguageVersionRequired", 284863, 6722}, {"Wolfram Language Version", 285136, 6726}, {"ScrapeDefault", 285398, 6730}, {"CompatibilityOperatingSystem", 285602, 6734}, {"Operating System", 286072, 6741}, {"CompatibilityOperatingSystem-Checkboxes", 286337, 6745}, {"CompatibilityFeatures", 286594, 6749}, {"Required Features", 287046, 6756}, {"CompatibilityFeatures-Checkboxes", 287298, 6760}, {"CompatibilityEvaluationEnvironment", 287555, 6764}, {"Environments", 288035, 6771}, {"CompatibilityEvaluationEnvironment-Checkboxes", 288308, 6775}, {"Cloud Support", 288569, 6779}, {"CompatibilityCloudSupport", 288814, 6783}, {"CompatibilityCloudSupport-Checkboxes", 289292, 6790}, {"Author Notes", 289534, 6794}, {"Submission Notes", 289734, 6798} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"6ce77522-676c-42c1-81fa-d6895ef3148a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->453607181], Cell[730, 27, 160, 4, 70, "Text",ExpressionUUID->"f0f3b10c-0beb-4098-83af-131fee5de8fa", CellTags->{"Description", "TemplateCell"}, CellID->618275022], Cell[CellGroupData[{ Cell[915, 35, 1206, 29, 70, "Section",ExpressionUUID->"2f370fc0-c90f-4980-8f70-5175c2c85f8b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2124, 66, 13807, 323, 70, "Input",ExpressionUUID->"baa05458-d659-4e1f-add9-48d0dd0da750", InitializationCell->True, CellTags->"TabNext", CellID->654194882] }, Open ]], Cell[CellGroupData[{ Cell[15968, 394, 195, 5, 70, "Section",ExpressionUUID->"e6055550-1fbb-45f8-adef-4423eb66775c", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[16188, 403, 1980, 50, 70, "Subsection",ExpressionUUID->"a6b75945-fa8c-48e8-bf8b-6886a1da5927", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[18193, 457, 228, 7, 70, "UsageInputs",ExpressionUUID->"8979b694-07c1-4e95-a671-a930a3eac282", CellID->197899036], Cell[18424, 466, 371, 12, 70, "UsageDescription",ExpressionUUID->"bfd7cca5-4c97-4c2f-885f-cb7f12241a97", CellID->440636548] }, Open ]], Cell[CellGroupData[{ Cell[18832, 483, 194, 6, 70, "UsageInputs",ExpressionUUID->"2a96dc8e-52e2-4b0d-a348-7379cfba8046", CellID->197391523], Cell[19029, 491, 332, 11, 70, "UsageDescription",ExpressionUUID->"08cc80c8-c82a-4d31-9370-4ff64f01f5c1", CellID->426237508] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19410, 508, 1429, 32, 70, "Subsection",ExpressionUUID->"65592803-a253-4fed-8dce-7ff5cff23b7c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[20842, 542, 251, 7, 70, "Notes",ExpressionUUID->"bb5a63ef-14cd-4b1f-a32b-6738bd6ee3b1", CellID->676384281], Cell[21096, 551, 193, 7, 70, "Notes",ExpressionUUID->"5fe1a8b4-3626-4aca-951a-0f5032791df4", CellID->213183393], Cell[21292, 560, 502, 11, 70, "TableNotes",ExpressionUUID->"09157fef-0eee-461b-9e9e-a5dcff024207", CellID->122913440] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21843, 577, 7029, 152, 70, "Section",ExpressionUUID->"6ee2ea90-4815-41c5-bbb4-f265b6130b6f", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[28897, 733, 75, 2, 70, "Subsection",ExpressionUUID->"4b2f4764-f133-4fb9-9b3d-4d1e4bfc5313", CellID->904125756], Cell[CellGroupData[{ Cell[28997, 739, 146, 3, 70, "Subsubsection",ExpressionUUID->"f63dd217-f924-48e0-b027-0faa94e99d7e", CellID->888586709], Cell[29146, 744, 308, 7, 70, "Text",ExpressionUUID->"81a12c33-30e7-44a1-bcd1-6d564a9e826b", CellID->627797687], Cell[CellGroupData[{ Cell[29479, 755, 507, 10, 70, "Input",ExpressionUUID->"d6a946e5-082b-407c-9922-24ac5d096d46", CellID->963898875], Cell[29989, 767, 663, 15, 70, "Output",ExpressionUUID->"d325d13e-69f2-4024-be76-288ff961a25e", CellID->546505673] }, Open ]], Cell[CellGroupData[{ Cell[30689, 787, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4d4bcef4-a63c-4848-b7a8-8fc059f5b0c9", CellID->14107562], Cell[30835, 793, 499, 12, 70, "Text",ExpressionUUID->"0ced281b-db88-4ea0-865c-f6c46b5fad1b", CellID->160991344], Cell[CellGroupData[{ Cell[31359, 809, 691, 13, 70, "Input",ExpressionUUID->"07cf30aa-577b-45d0-b0c2-5d8c9a202e75", CellID->299948738], Cell[32053, 824, 1175, 30, 70, "Output",ExpressionUUID->"6d92a911-a29e-4a13-8c30-4a118944b7c9", CellID->627253390] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33277, 860, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d8c6da64-6bae-487b-b4d7-ee64a63bf8ac", CellID->14107563], Cell[33423, 866, 736, 22, 70, "Text",ExpressionUUID->"03c8d211-0e1b-42c5-9b3a-8eb23f7ad965", CellID->969740896], Cell[CellGroupData[{ Cell[34184, 892, 723, 21, 70, "Input",ExpressionUUID->"2c795ac1-ff6e-457c-b0ba-dc0a0d8fd8c0", CellID->649481255], Cell[34910, 915, 8775, 151, 70, "Output",ExpressionUUID->"693a53be-cc76-4daf-90c6-a10c8eebf9d5", CellID->548707953] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43746, 1073, 198, 4, 70, "Subsubsection",ExpressionUUID->"8eb8c1ee-42b1-499d-acdf-8610ebb35e59", CellID->408324286], Cell[43947, 1079, 326, 11, 70, "Text",ExpressionUUID->"28402edb-661f-437d-ae84-6d8217734e46", InitializationCell->True, CellID->794280965], Cell[CellGroupData[{ Cell[44298, 1094, 651, 14, 70, "Input",ExpressionUUID->"c79a0cf0-3e36-4f20-b605-c034d7b28c46", CellID->194877325], Cell[44952, 1110, 3528, 101, 70, "Output",ExpressionUUID->"832d2950-19db-46d2-b64d-33ecde234180", CellID->1153950] }, Open ]], Cell[CellGroupData[{ Cell[48517, 1216, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1a8f5009-bcb9-486d-9df0-f6ab494f3007", CellID->14107564], Cell[48663, 1222, 351, 10, 70, "Text",ExpressionUUID->"c4424eab-1faf-48d0-9a47-85cd2883f9b1", CellID->87195939], Cell[CellGroupData[{ Cell[49039, 1236, 621, 12, 70, "Input",ExpressionUUID->"d49ed531-cc8f-4b6f-bad9-9294a102d885", CellID->642272528], Cell[49663, 1250, 4980, 151, 70, "Output",ExpressionUUID->"25213a15-67d4-4146-b479-6fd373e7d6ff", CellID->287923517] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54692, 1407, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"213d6165-8c41-464d-b7e0-75b350cb07f0", CellID->14107565], Cell[54838, 1413, 355, 10, 70, "Text",ExpressionUUID->"47541eef-6262-4f99-8dc7-48c260a7f311", CellID->272145611], Cell[CellGroupData[{ Cell[55218, 1427, 654, 12, 70, "Input",ExpressionUUID->"d9acc916-f53f-4e3f-bfe6-a81a84aed45e", CellID->899271776], Cell[55875, 1441, 3501, 104, 70, "Output",ExpressionUUID->"37d79263-780c-4cdd-a202-6f06502f39b2", CellID->979141321] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59425, 1551, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"58520b2b-5ba8-48a2-9b6b-7952d7b70396", CellID->14107566], Cell[59571, 1557, 362, 10, 70, "Text",ExpressionUUID->"a29a8267-8ef9-4816-84a2-ffea0966370e", CellID->796044094], Cell[CellGroupData[{ Cell[59958, 1571, 656, 12, 70, "Input",ExpressionUUID->"e3a083ba-8b1a-4ab4-8ef0-d8636c9f96a7", CellID->130978475], Cell[60617, 1585, 1983, 59, 70, "Output",ExpressionUUID->"60288dc2-eb7f-4737-8fed-55f5c6e769b8", CellID->112582096] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62649, 1650, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"17d09560-43eb-484c-b7ae-a0402bb86aa2", CellID->14107567], Cell[62795, 1656, 330, 7, 70, "Text",ExpressionUUID->"8d5de8b5-642e-4566-8a33-44ccbcabc092", CellID->929158106], Cell[CellGroupData[{ Cell[63150, 1667, 757, 14, 70, "Input",ExpressionUUID->"475e99ab-460f-4e3b-8bda-67500b06aec5", CellID->34680537], Cell[63910, 1683, 5146, 154, 70, "Output",ExpressionUUID->"352cfdf3-846b-4b79-865c-5d21e21c43a0", CellID->41283270] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69105, 1843, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e267a99b-e2c9-4cca-ab5c-ab95d8e912f0", CellID->14107568], Cell[69251, 1849, 298, 7, 70, "Text",ExpressionUUID->"1c38ca89-25cb-466a-8d4a-2796eaf05db8", CellID->433302824], Cell[CellGroupData[{ Cell[69574, 1860, 812, 14, 70, "Input",ExpressionUUID->"ef334db8-72a2-4370-b3e1-a4f13e600c45", CellID->428089401], Cell[70389, 1876, 5282, 156, 70, "Output",ExpressionUUID->"15335586-a5e6-418c-a1ba-489172221194", CellID->693412404] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75720, 2038, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4ff11f93-d286-4475-971a-89d2b82a8bff", CellID->14107569], Cell[75866, 2044, 736, 22, 70, "Text",ExpressionUUID->"be1c2475-247f-45c6-9cb0-d12591389e1e", CellID->969740897], Cell[CellGroupData[{ Cell[76627, 2070, 963, 24, 70, "Input",ExpressionUUID->"c7bbc18c-afd9-4f9a-8cd0-827fa458f51e", CellID->12260755], Cell[77593, 2096, 14127, 238, 70, "Output",ExpressionUUID->"cf4c4f18-6bf2-474f-9d49-81a931e99a3e", CellID->511680207] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[91805, 2343, 249, 5, 70, "Section",ExpressionUUID->"b23fe180-84a0-494d-a9b6-b2334230767a", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[92079, 2352, 1026, 26, 70, "Subsection",ExpressionUUID->"ea8e076d-317c-4e8a-a79e-37bab9c33ddc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[93108, 2380, 53, 1, 70, "Text",ExpressionUUID->"7313f8a5-2c53-4965-84c7-913b3547b5d1", CellID->79893223] }, Open ]], Cell[CellGroupData[{ Cell[93198, 2386, 996, 26, 70, "Subsection",ExpressionUUID->"a2bafbad-8e75-4bb3-8c36-f6bd226a3170", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[94197, 2414, 53, 1, 70, "Item",ExpressionUUID->"f3f0dcc9-d3f1-4260-8402-09c97f5639ad", CellID->30503299], Cell[94253, 2417, 47, 1, 70, "Item",ExpressionUUID->"7666de3a-24c0-4c82-a33a-eca9841c9aa9", CellID->691303797], Cell[94303, 2420, 44, 1, 70, "Item",ExpressionUUID->"7d12bc0c-b148-4be9-8652-659b016cbcf7", CellID->473864343], Cell[94350, 2423, 47, 1, 70, "Item",ExpressionUUID->"0d01c190-3c49-45a9-90ca-b8f91db3ae57", CellID->720445169] }, Open ]], Cell[CellGroupData[{ Cell[94434, 2429, 221, 6, 70, "Subsection",ExpressionUUID->"29ba8bf1-9794-434a-acc4-4d4d619a90ca", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[94658, 2437, 28753, 976, 70, "Output",ExpressionUUID->"c571c698-91dd-442a-8bb2-5a4d2448a046", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->636799735] }, Open ]], Cell[CellGroupData[{ Cell[123448, 3418, 980, 26, 70, "Subsection",ExpressionUUID->"f2caf93a-c1f0-4713-88bc-b56bbd668ab1", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[124431, 3446, 45, 1, 70, "Item",ExpressionUUID->"681dce5a-9830-4af4-a00e-a7fae033d22f", CellID->894512782], Cell[124479, 3449, 49, 1, 70, "Item",ExpressionUUID->"156cd8d3-5ac9-4162-a7dc-a438f973d8f0", CellID->638667577] }, Open ]], Cell[CellGroupData[{ Cell[124565, 3455, 1039, 26, 70, "Subsection",ExpressionUUID->"e4aa4b56-1495-4b1f-ba70-4340c6356654", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[125607, 3483, 44, 1, 70, "Item",ExpressionUUID->"088aa492-4cbc-403c-b81c-cb213ea0512b", CellID->234846716], Cell[125654, 3486, 47, 1, 70, "Item",ExpressionUUID->"8fe7171d-16c5-4868-86dd-c6e7f4a1b861", CellID->857853746], Cell[125704, 3489, 44, 1, 70, "Item",ExpressionUUID->"8fa4ef3b-a4d3-4068-81e2-ad8c5e173e7c", CellID->508806756], Cell[125751, 3492, 53, 1, 70, "Item",ExpressionUUID->"683d23e1-808c-4c16-84ed-100fe7bf080a", CellID->554663366], Cell[125807, 3495, 53, 1, 70, "Item",ExpressionUUID->"43a41c0a-cbc9-49a3-8ac2-e73f5a4e8b69", CellID->704439196] }, Open ]], Cell[CellGroupData[{ Cell[125897, 3501, 1084, 26, 70, "Subsection",ExpressionUUID->"993b9618-6ca5-4503-b9ab-ef56900a65b3", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[126984, 3529, 516, 8, 70, "Text",ExpressionUUID->"1d9545e0-def2-4270-965f-7583701d8f2b", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[127537, 3542, 923, 26, 70, "Subsection",ExpressionUUID->"af3609fd-63f4-4f49-9037-af26f68c4edf", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[128463, 3570, 505, 8, 70, "Item",ExpressionUUID->"6d760661-2997-492d-9907-62d968f2925a", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[129005, 3583, 1874, 45, 70, "Subsection",ExpressionUUID->"42af7ca0-3acd-462e-81ac-c752d316fd57", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[130904, 3632, 158, 5, 70, "Input",ExpressionUUID->"0801599a-787e-4a81-a82e-6fb88539b8b3", CellTags->"DefaultContent", CellID->946203791], Cell[131065, 3639, 122, 4, 70, "Output",ExpressionUUID->"ac97bdd6-338a-403c-a7e4-78e8b4b4b710", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[131236, 3649, 955, 25, 70, "Subsection",ExpressionUUID->"e58c70cd-fbf3-464e-afc7-3e84a737f343", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[132216, 3678, 1174, 31, 70, "Subsubsection",ExpressionUUID->"be93eb9d-37c5-4783-802e-2e5f2f8fe782", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[133393, 3711, 89, 2, 70, "Text",ExpressionUUID->"47b69b6b-5537-4b8d-8068-ad2ed5684da3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[133519, 3718, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c0386a7f-c081-4c5d-a353-d9cb7a075ca1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[134635, 3749, 1321, 40, 70, "Output",ExpressionUUID->"af8ea297-e7db-40c2-9e81-be67215542d7", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[135993, 3794, 1280, 33, 70, "Subsubsection",ExpressionUUID->"19a50a83-da95-4d07-a0c3-e27a9714b189", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[137276, 3829, 1365, 41, 70, "Output",ExpressionUUID->"699cadd3-1827-4e48-a8f1-cc3695da81b0", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[138678, 3875, 1913, 46, 70, "Subsubsection",ExpressionUUID->"13497fb5-3957-49a9-a405-3163ec38760c", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[140594, 3923, 2896, 83, 70, "Output",ExpressionUUID->"4d02dc2d-4176-4e23-b6bc-bba257a47e69", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[143527, 4011, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4c4126dd-55ac-482c-b686-b9297327217a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[144601, 4040, 938, 28, 70, "Output",ExpressionUUID->"66f64245-68cc-4b22-89be-fa9d44eb2b20", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[145600, 4075, 1155, 28, 70, "Section",ExpressionUUID->"7db9e229-76f4-44d4-bede-e6cfeab3eb0e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[146758, 4105, 529, 8, 70, "Text",ExpressionUUID->"1e6bdeb1-7825-4dbc-8084-2b9a94ff711b", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[147324, 4118, 1033, 26, 70, "Section",ExpressionUUID->"21250f68-732c-4d21-b222-5111c57b04ff", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[148360, 4146, 515, 8, 70, "Text",ExpressionUUID->"cfc563d8-1d0f-4caf-be82-054817200430", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)