(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 265645, 5689] NotebookOptionsPosition[ 111423, 2760] NotebookOutlinePosition[ 253273, 5424] CellTagsIndexPosition[ 251464, 5374] WindowTitle->KeyCombine | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["KeyCombine", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->260091662], Cell["\<\ Map a function over the keys of an association, and collect or combine values \ in the event of key collisions\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->160469833], 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[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "KeyCombine", "]"}]], "Input", CellChangeTimes->{{3.7743693048279023`*^9, 3.774369319425362*^9}}, CellID->848037028], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"KeyCombine", "[", RowBox[{"fun_", ",", RowBox[{"asc_", "?", "AssociationQ"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Normal", "[", "asc", "]"}], ",", RowBox[{ RowBox[{"fun", "@*", "First"}], "\[Rule]", "Last"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"KeyCombine", "[", RowBox[{"fun_", ",", RowBox[{"asc_", "?", "AssociationQ"}], ",", "comb_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Normal", "[", "asc", "]"}], ",", RowBox[{ RowBox[{"fun", "@*", "First"}], "\[Rule]", "Last"}], ",", "comb"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"KeyCombine", "[", "fun_", "]"}], "[", RowBox[{"asc_", "?", "AssociationQ"}], "]"}], ":=", RowBox[{"KeyCombine", "[", RowBox[{"fun", ",", "asc"}], "]"}]}]}], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.772118298221732*^9, 3.7721183026006813`*^9}, 3.772118564669182*^9, {3.772120433270204*^9, 3.7721204784294653`*^9}}, CellTags->"TabNext", CellLabel->"In[66]:=", CellID->770121951] }, 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[{"KeyCombine", "[", RowBox[{ StyleBox["f", "TI"], ",", StyleBox["assoc", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->258764727], Cell[TextData[{ "maps ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " over the keys in ", Cell[BoxData[ StyleBox["assoc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and collects values having the same key into a list." }], "UsageDescription", CellID->68536851] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KeyCombine", "[", RowBox[{ StyleBox["f", "TI"], ",", StyleBox["assoc", "TI"], ",", StyleBox["comb", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->493600363], Cell[TextData[{ "uses the combiner function ", Cell[BoxData[ StyleBox["comb", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to combine values having the same key." }], "UsageDescription", CellID->135855003] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KeyCombine", "[", StyleBox["f", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->628131524], Cell[TextData[{ "represents an operator form of ", Cell[BoxData["KeyCombine"], "InlineFormula", FontFamily->"Source Sans Pro"], " that can be applied to an expression." }], "UsageDescription", CellID->293599849] }, 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[{ Cell[BoxData["KeyCombine"], "InlineFormula", FontFamily->"Source Sans Pro"], " works analogously to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["KeyMap", "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/KeyMap", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", but it combines values instead of discarding them in the event of key \ collisions." }], "Notes", CellTags->"TabNext", CellID->485172630] }, 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[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Sort", "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/Sort", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " the keys of an association and collect values that end up having the same \ key:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.772118607289412*^9, 3.772118622599527*^9}, { 3.772118714770898*^9, 3.772118725532763*^9}, {3.772118759495438*^9, 3.772118759765513*^9}, 3.772207756187003*^9}, CellID->79623790], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KeyCombine", "[", RowBox[{"Sort", ",", RowBox[{"<|", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "10"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "5"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "30"}]}], "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.772118557720537*^9, 3.772118597841321*^9}}, CellLabel->"In[1]:=", CellID->209301275], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"10", ",", "5"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", RowBox[{"{", "30", "}"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.772118591004002*^9, 3.772118598238243*^9}}, CellLabel->"Out[1]=", CellID->350649693] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Sum values instead of collecting them:", "Text", TaggingRules->{}, CellChangeTimes->{{3.772118734599815*^9, 3.7721187615111628`*^9}, { 3.772207767750675*^9, 3.7722077682144012`*^9}}, CellID->248743862], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KeyCombine", "[", RowBox[{"Sort", ",", RowBox[{"<|", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "10"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "5"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "30"}]}], "|>"}], ",", "Total"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77211870214008*^9, 3.7721187028388023`*^9}}, CellLabel->"In[1]:=", CellID->531378825], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "15"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "30"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.77211870323218*^9}, CellLabel->"Out[1]=", CellID->203405346] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ Convert frequency data (counts) created using a bin size of 1 to a bin size \ of 3:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.772118898859626*^9, 3.772118983891748*^9}, { 3.7721194295398006`*^9, 3.772119429846938*^9}, {3.772119740205019*^9, 3.772119741966804*^9}}, CellID->630801172], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"counts", "=", RowBox[{"KeySort", "@", RowBox[{"Counts", "@", RowBox[{"RandomInteger", "[", RowBox[{"10", ",", "100"}], "]"}]}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.772118807163641*^9, 3.772118822463716*^9}, { 3.772118854126443*^9, 3.772118856948166*^9}}, CellLabel->"In[1]:=", CellID->48426828], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"0", "\[Rule]", "5"}], ",", RowBox[{"1", "\[Rule]", "12"}], ",", RowBox[{"2", "\[Rule]", "7"}], ",", RowBox[{"3", "\[Rule]", "7"}], ",", RowBox[{"4", "\[Rule]", "9"}], ",", RowBox[{"5", "\[Rule]", "9"}], ",", RowBox[{"6", "\[Rule]", "14"}], ",", RowBox[{"7", "\[Rule]", "8"}], ",", RowBox[{"8", "\[Rule]", "12"}], ",", RowBox[{"9", "\[Rule]", "9"}], ",", RowBox[{"10", "\[Rule]", "8"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7721188228596582`*^9, 3.772118857158332*^9}, CellLabel->"Out[1]=", CellID->171252416] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KeyCombine", "[", RowBox[{ RowBox[{ RowBox[{"3", RowBox[{"Quotient", "[", RowBox[{"#", ",", "3"}], "]"}]}], "&"}], ",", "counts", ",", "Total"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.772118825180296*^9, 3.7721188517551947`*^9}, 3.772118890424726*^9}, CellLabel->"In[2]:=", CellID->55764018], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"0", "\[Rule]", "24"}], ",", RowBox[{"3", "\[Rule]", "25"}], ",", RowBox[{"6", "\[Rule]", "34"}], ",", RowBox[{"9", "\[Rule]", "17"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7721188473149967`*^9, 3.772118859965599*^9}, 3.7721188912578983`*^9}, CellLabel->"Out[2]=", CellID->942763015] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Combine reciprocal edges of a weighted, directed graph using geometric mean:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7721191573510647`*^9, 3.7721191981611767`*^9}, { 3.772119431326023*^9, 3.7721194316131763`*^9}, 3.774369412303649*^9}, CellID->544771695], Cell[BoxData[{ RowBox[{ RowBox[{"g", "=", RowBox[{"RandomGraph", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "30"}], "}"}], ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"EdgeWeight", "\[Rule]", RowBox[{"{", RowBox[{"_", "\[RuleDelayed]", RowBox[{"RandomReal", "[", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"directedWeights", "=", RowBox[{"Association", "@", RowBox[{"Most", "@", RowBox[{"ArrayRules", "@", RowBox[{"WeightedAdjacencyMatrix", "[", "g", "]"}]}]}]}]}], ";"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7721190233156357`*^9, 3.772119049216106*^9}, { 3.772119101290575*^9, 3.772119118352069*^9}, 3.7721197649024773`*^9, { 3.7721198110946493`*^9, 3.7721198211444597`*^9}}, CellLabel->"In[1]:=", CellID->608493900], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"undirectedWeights", "=", RowBox[{"KeyCombine", "[", RowBox[{ RowBox[{"Sort", "/*", RowBox[{"Apply", "[", "UndirectedEdge", "]"}]}], ",", "edgeWeights", ",", "GeometricMean"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7721191224349203`*^9, 3.772119135082376*^9}, { 3.772119787103229*^9, 3.7721198180723333`*^9}}, CellLabel->"In[2]:=", CellID->112732386], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "3"}], "\[Rule]", "0.8868021701719679`"}], ",", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "5"}], "\[Rule]", "0.3184123264806298`"}], ",", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "7"}], "\[Rule]", "0.21284558012330468`"}], ",", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "9"}], "\[Rule]", "0.3226888052119592`"}], ",", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "2"}], "\[Rule]", "0.27176460210150055`"}], ",", RowBox[{ RowBox[{"2", "\[UndirectedEdge]", "7"}], "\[Rule]", "0.7297010866799352`"}], ",", RowBox[{ RowBox[{"3", "\[UndirectedEdge]", "5"}], "\[Rule]", "0.7408088995207531`"}], ",", RowBox[{ RowBox[{"3", "\[UndirectedEdge]", "7"}], "\[Rule]", "0.1604432543425852`"}], ",", RowBox[{ RowBox[{"3", "\[UndirectedEdge]", "9"}], "\[Rule]", "0.6499318492156065`"}], ",", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "4"}], "\[Rule]", "0.8732734981513632`"}], ",", RowBox[{ RowBox[{"4", "\[UndirectedEdge]", "6"}], "\[Rule]", "0.5198807598467063`"}], ",", RowBox[{ RowBox[{"4", "\[UndirectedEdge]", "7"}], "\[Rule]", "0.551296816232598`"}], ",", RowBox[{ RowBox[{"4", "\[UndirectedEdge]", "5"}], "\[Rule]", "0.6980597480465756`"}], ",", RowBox[{ RowBox[{"5", "\[UndirectedEdge]", "7"}], "\[Rule]", "0.4744237513828043`"}], ",", RowBox[{ RowBox[{"5", "\[UndirectedEdge]", "10"}], "\[Rule]", "0.08654542634209994`"}], ",", RowBox[{ RowBox[{"6", "\[UndirectedEdge]", "9"}], "\[Rule]", "0.15813072222874985`"}], ",", RowBox[{ RowBox[{"7", "\[UndirectedEdge]", "8"}], "\[Rule]", "0.630016001957479`"}], ",", RowBox[{ RowBox[{"7", "\[UndirectedEdge]", "10"}], "\[Rule]", "0.10445226516640504`"}], ",", RowBox[{ RowBox[{"6", "\[UndirectedEdge]", "8"}], "\[Rule]", "0.6703372590481536`"}], ",", RowBox[{ RowBox[{"8", "\[UndirectedEdge]", "9"}], "\[Rule]", "0.12791556911566104`"}], ",", RowBox[{ RowBox[{"9", "\[UndirectedEdge]", "10"}], "\[Rule]", "0.5385923923030422`"}], ",", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "10"}], "\[Rule]", "0.5731735438554557`"}], ",", RowBox[{ RowBox[{"8", "\[UndirectedEdge]", "10"}], "\[Rule]", "0.34376312111388585`"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.772119135380259*^9, {3.772119377107068*^9, 3.7721193886897917`*^9}, { 3.772119766556489*^9, 3.7721197917510347`*^9}, 3.7721198232163973`*^9}, CellLabel->"Out[2]=", CellID->569400224] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"VertexList", "[", "g", "]"}], ",", RowBox[{"Keys", "[", "undirectedWeights", "]"}], ",", RowBox[{"EdgeWeight", "\[Rule]", RowBox[{"Normal", "[", "undirectedWeights", "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.772119826594191*^9, 3.772119843974133*^9}}, CellLabel->"In[3]:=", CellID->70351326], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvWV4W1e377vvPV/ux/P5ftl09u7L+23TMDnspJS2bzFt30Iap22YOY0D jimOY4qZGWVmkpmZbZltGWWQ2c4Z0ohXVVuWBYskz9+jp08qS2tNSWvNMcac Y/zHv39//qNT/++//Mu/XP7/4D8ffXd936VL3938+H/D/3xy7vJPJud+PHn0 3JUfTX68tO37/wVPHvp//uVf/n94vezfrwgEAoFAIBAIBAKBQCAQCAQCgUAg EAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBPhYXF0dHR+fn57ke CIFAIBD0kuLi4lu3br3//vtHjx577733rl69mp2dzfWgCAQCgaA3LC0tOTg4 HDE+un3Xvk3b9u7cd2zTNqNtO40OHzn69OlTEqcQCAQCQR38/PwOHTbeuuvA xbvP3MNzfGNLPCLzrj9y2Lbn8IGDh8HQcD1AAoFAIPCdgYGBDz44/vZ2oyf2 QWBHFB/WboItOw8cPfZOa2sr18MkEAgEAq8JCwsz2n/oi+8vrDAl+Pjh3J3d Rgfc3Ny4HiaBQCAQeMrS0tL45PStuw82b99768lLpdbk0Qv/rTuN7ty5w/Vg CQQCgcAls3PzgyMTzR0DxdXtKXn1oYmlLiFCc/ekmzZRP5kGmPzqv+XAZ3/6 +7a7lu5KrclTx5AtO4yuX7/O9ecgEAgEAuNMTs12i0drmntzylpiMqp8owvs /DIeOMZefBoK9kLF47JF+IffXPjbph2nLvyq1Jqcv221c89+Gxsbrj8igUAg EGhgfmFxRCJt7RosretMK2gITyl3D8+19kq9+yL6l4eBKuwF/BXCEAhGICQJ SSyB8ASCFAhVIGBZWFyEI9fX1xsbH92257BTYNoKU+IWlrPn4HuHDxsXFBRw /QUQCAQCQV2mZ+b6BiX1rX35FW3x2TUBccWOgVmPnROuWoWrDjEumIX86hD7 3CfNW1AgSK/MKm6qbOjq6B0em5hW57y/nL/yxl+3HHznk+eesZQpsfdLPvbh V395c/uFCxeZ/uAEAoFA0IjFxSXJxFR7z3BFQ1dmUWNUWoVnRJ6NT9p9+9iz j4NV2IufTAOuW0eYuSY6BWUFxhUnCGvA4tS39YuHxmfnFnQZUlVj9493PP+8 +dCbm3e9vd3o3X98e+LkpQ8++2HTNqM//c+2P7xlZPYyCoZN1zdAIBAIBDWZ nZsXD483ivoLq0RJObXBCSXOIUJzt6QbNpG48b3WAwzKXbvoZ16pHhG5ESnl 6YWN5fVdop6h0fGppSVG5nMIYXChzE+Q8/Llyw8+OP6ff3r73954C/67fde+ h4+fnjH1gb/6CMhKF4FAIDDChHS6q3+0urknu6Q5OqMK5tsXfummjnGqN75P Pwi4Yhn+yDnePiDTP6YoLqs6t6yltqW3RyyZnplj+SNAfPSzqcyUhCaV4TO9 4uGPTj06/MW1D380dQ5Kg2fAlmHQJEivZHl4BAKBYBjMLywOSyZbOgdKajpS 8utDk0pdw3IsPZJv2wpUb3yfeRQEr7H0SIHXw7vgvXAEOM7Q6CR/lowg6kFT Ep5STj0p6h6CZ65ayrZpIJjCJ6sauzGkyi0jFfEEAoGgnKmZOYgLIDqAGAEi Bf/YIogaIHa4YrnOxjfEIA8cYyEegagEYhOIUKqaerr6RiBm4fozrU9pbQca iAgFU/JKtvDVDU9ae6XCfy+Zh1LPZ5U04d5NdVMP64MlEAgEXgDhwOj4lKhn CLzxjKJGmD89InKfeaXetYs++zhIhb0A1/3Gs0hw0Z1DhMEJJUm5dYVVokZR v3h4fG5ep41vbqFMSWRq+Yo/odXwjS7A9Tr43qg/gcXEnZ2O3mF2x0sgEAyW paWl1tbWkpKShoaGuTm2V/uVMjM7Lx4abxD1F1SKEoQ1gXHFTkFZZi6J160j Tj9QtfF93izkvn2sjU+aZ0QezK6ZRY0VDV3tPcOSian1z6qHFFe3oymJSlOy DxKTKTMZYDgsPZLhH/WtfYp/9YzMk62DWYUPjkywNV4CgWCYLC4uhoeHnzhx 4ojx0QOHjhw+Yvzxxx+7uLhIpVIWzj4+Od3ZO1LZ0JVV3CRIr/QWFNj6pv/q EHvBLET1xjdMgI+dExwCM/1ji+Kz5bm1rX19g2Ngg1gYNn+gTAnYC6UvgKgE /gpfr19MIfwjvbBR8a8Li4vwhcPzENZNSmdYGTKBQDBAIAy5c+fOwUNH3t62 Z5/xhx9+eerw+59v2rbHaP+h06dPDw/TsAAyN7+wUlQq9LWoFG4Zr51bG3TH VmDlmeIenhueUp5W0FBa19naOTAikfJn45tbCqtEaEpi1jAlgH1AJrwAojP4 AuEfYHxXvGB6Zu6Rc7xsj949Wcc6FwKBsGFxcHDYf+Dwrv3vPHoRQFVMP/eM BZuy2+jAlStX1DyOoqhUbOZrUamHTnGXLdbZ+L5kEQYvgxfDW2BKFJY2Vzf1 wKHggIx+cAOgoFKEK35xWdUqXgYRHLxG1D1U19qH2/GrXyOZmALjDn91Cspm qAqGQCAYMD09Pe+88+7mHftsPGJXqDm5hgn3HHzv0GHj3NxcfDGEA69FpWo7 VohKqd74XiEqlZxbR4lKzS8scvsN6C/5lW1oSuKzVZkS4Lp1BLxsZEwKDxOZ JmSY0pf1DUoumcu26QPjixkYL4FAMGTCwsL27j/01akrSpVmL92z+fvmXR9+ efqJi0xUSvXGNyUq5RWVr4WoFEEj8spb8edIENas+2JcCkPDjUWL0mnlcV9z h/jMoyC5hVr/sAQCgUBha2u7Y/f+648clFoTa7eov7614y9bj5isFJXKVhSV 6h8cm53bWBvf3JJb1oq/SFJu3bovBmuuGI+YuSTC/0JguNbrIfBEO1VYJaJr wAQCweCxs7PbuWf/NVN7pdbE0jnirS27T3xzEkWlyMY3HxCWNqMpSVbDlACd vSPw4odOcfi/EDnK8rtKmlS8BTfrf3kYCK4CDSMmEAgbAIFAYHTg0OffnVNq Tc7eeLp5+17SU4k/ZJe8NiUpeWqZEqC6uQde/8IvHf8Xwhn43+CEEtXvCk8u w7Kdrv5RnUZMIBA2BoODg++8897ft+x+6hiywpQ4+qdu33vk3//w1mXTl70D Eq5HSniVVdyEpiQ1v0H9d2Es470sF1zVKFNZee6Ttu4bXcNy4JXXrSNGJGyU HREIBL2mb3Dsva8u/Oef3t6y6+D1Rw7egkI0JQ9t/fYcfP9Pf9+2/dBnuGMS llw2xbocLoEis6gRTUlagQamBIjLqpbXyFfg/w6OTMD/3ngWue4b5xcWUdrr gWPsWrv2BAKBADSI+i8+DT113+/dT00OHDqydacR2JSD73yyw8h407Y9/+fP m/9n57uJ2ZV+MYWYFHTZIiy/oo0UI7BPeuFrU5Lx+zJ2dfCPLVJ84+LiEkol q5M4AUYETAmWqJBcbgKBoBSwC1iH7hwinJ1byMrKOnfu3NFjx44YHz169NgP P/zw2Mrxx7s+Zx8H94glXf2j6KbC47FzQmvnmhlBBNrBPXGURtHi7U5B2fDe srpO6pmHL2Vl76KeIXXePiKRYrmKa1iOFmcnEAiGTXx2NU5QK3Zjx8bGOjo6 KDUV1AO8Zx+DyleFVaIbNpH4Rm9BvqEqKPKKlPz616ZEZRaWCjAlWNEBcJNv iOSVq9vWpFs8el6umRaaVKrdGAgEguGxsLiINuIn04DMonWWTSBmMXWMgxe7 hAqXn5mPSCnHAjeYYWCugwMyP+oNSkrea1MiLG3R+iDoAAyNTlLP4E5KeMpK 4XoV1Lf14/oY/OJaj4RAIBgMUzNzNt6pcjXF4Cr1GiSJh8fRL1Xc/B0cmbD3 z8CJ7q5ddN3vFc4JtJCUU4vfcE6Z9qYEWN4l+U3LsbS2A56xD8jU6DgQmaJ0 c6nCohmBQNiADEsmf3WQ7ahes4rQqDUSTj4/mwa2dg0qPg9G5L59DM54MDWB 3aF7yBuXRLkpgak7VzdTMiGVFcIr9lt8JU/kgydv2wo0PVqyvFYFItPmDrEu oyIQCPoLmI+rVuGY7QlmRdO3hyaVYVrpioa2i4tLSbl1GLyADyxIr9xovUWY ID67Bk1JfkWbjofq6h/FH13xyfmFxZ9MA+ChRZpWYHyxibzfMZgkHcdGIBD0 jsqGLtT6s/FJ065mBKyGhXsyVr2tzhAen5zGvRgsdiup6aBj1BsUKirR3ZQA tS29+LuveB6Dyq6+EU0PCL8+JondtIkiaRgEwoYiq7gJRfy8BQW67JiPjk9d sZRFN2s1+BN1Dz11TUSbAqans1fjmYoQK2+5C1EDXYqLeeUyfUjPiLwVzzuH COH5oup2LY45O7dgLnctHr6MnyYFrQTCBgDcyNDEUpzeYzLXbMynPvVt/TDR gW0Cj3et1whLm3FJDV4WGF+8YmWMoIKYZVOi3SSvlAShLNKJWJW+JUivhOfh v9oddlI6c9cuGmNVktRHIBg24EA6BWXhdkZBpYiuw+KS/iWLMBWbL+CvBieU YGnkxaehEBwR8eF1wekdTEkxfaYECIwrVirGAgYLC1e1PvLgyAS6DasDHwKB YDCMT07johNM5o0imkXFMTcYjq96D7dvUGLjk4aRkaljXGM7yQJak6i0CjQl tG854YrW6sN29clk6u/bx+hy8I7e4XNPZPtxkakalK4QCAR9oX9w7LatAFNA YUqn/fjS6dlbz2UNxNXp91rZ0I2DgYdbWI4W6WQGT2Tqa1PCRB2HuXuSvDfW SlM+OzePcauOYWNNcy9quGldqk8gEPhJU7sY4hG4u81cEiFCYegs7T3DWBOn zrIMhDAxGVWYVHb2cVB8ds3c/MK679ogYBuRn00Dy5gpCURTPjAysdafdE/0 xUaQYFMqG7p0PBSBQOAJhVUinOSdgrIVa5+ZAHxRONG5J8FqTkcjY1Ln4GwM UiC0ITPPK1kVTymakvJ6pqrL0YgrLQKyD8iEP5XW0rC2hlItcC41lSQJBAKf SRDW4FwdGFfMjmi8R0Qurr2r3xS+uWPgoVMcjtPGJ20jN+HCdDuw/pUN3Qyd Qjo9i3JqSv+KYREYAlrO5SMowJ4FRBKBQNBfFheXvAX5mJSbrnn/C60BI4LN L9w00SqH0cIgL5mHmmzgJlzBCSXLpoTBGA2Mtdzcxyr9K5aiaPTbqQB+Vjs/ WXrGHVvBhHSGlmMSCAQ2mZ6Zey5PnTr7OJg5L3ct+gfHUFZF0y5Ok1OzVBOu K5bhtNR96wtBcnESMCVqCm9qTX1rH5zomVeq0r+KeoawApGu04F38cQlAffs 1A9XCQQCHxiRSFEx/qpVeHuPBkKONFJS04FzoxZr5l39o1aeKbjwBRPRClVJ gyRw2ZRUM2xKXskbosG53MNzlf4VQkJ0Qmg84/jkNG7u2wdkkiIjAkFf6Owd waZ4vzpoI+RII7huc9MmalKrJQ5ZE65nvzXhGpsw2PJ5bKp75lGQCjEBGkmS S/6qaHGFX7vSjC+tEQ+NX7aQVTVC7EnjYQkEAkNUN/dg4dgzr1Tp9Cy3g1lY XEThphd+6dodYXZuPjK1AhPSDLUJl38Mq6YECEmUWfmUvLq1XoBrpFWNNC+Q Qox59rGsn1osHXo+BAKBObKKm3DHwTMijyez7siYFD1SXSYQA27C5RtdgOU2 9Sx+KFd5x14Vql8YVEIIQ/upKxq6UGt0Q+2IEQj6BZZO6yLZxxAw+cMEAg8d rQC47vftY/EzOgRm0bsOwwmYPXv2cXB9G80qN6qx9JAFjCo0bbBoyCsqn4mz ZxY1Ytoea7EYgUBQk7n5BSwA/Nk0kJ8uH1axQZACoYoux4GAa0UTLj3NEVpa WvJeNiUNdAumrcvdFzKZ3/61y0ubOwYwBYuhAaD+GPyOpD0BgcAfJqTTuDdx wSyEZRdXI174pcMgYai6L8GNTeh3Ey4wJTh+MCW0a2+qA5pjFS1Ixien8Ypi bgxY4nrVKpxItBEIfEA8PH5Hnnh50yaK5/Xjk9IZGCQMNTihhJYDinqGwHlG m2LpkaJFu0BOoEzJuSfBEAKwP4Dp1wnAQapfdtkiDF6mYyypAnAqUEr6vn3s 5BTH6SIEwganuUN8SX7LP3FJ0IvsWZj/MTuLFg0oZEUTLu1SkVljcXHJPTx3 2ZRwI8XfPzgmS2Z4Ea36ZdZeqfAyRhMewK6hnA44A0Twk0DgiuLqdpyZHQKz 9GjvAHdgz5uFqFi01xR9acIFo3KTJ1PBx2/t5Kwes7FdLJ/Ak1W/DEtgVrfT opfR8akbNrLaFucQITsicgQCQZGknFpc4YFbXu/uQZxRHzjG0msE+wYltr7p JnxtwgWmxPU3U8LBAhcFdld0XU+GK72wkZ1Kw94BCfZKoGsJlEAgqANMSlih cPpBQEp+PdfD0QYwIvftY+AjeEQoV/bQhbK6TsUmXCMSppb9NQJ+NRd5r8ML ZiFt3Rxrs6fkyQrhQxLXmbpRy2vdEIYWmtrFGGgzUeFCIBBWMz0zh+732cdB 5fV63Aekb3AMC/aziulvzDe/sBibSTXhCua8CReYEudlU8KHNh/YPGXdeXt0 fAqV5NkZFaq6majXZ41AIOgC3N24ZXnFMpxz/1Z3iuXrLeCRMiRKuaoJF9sq ysjC4qJTUBZu6HAlv7kCTANQpy4JE4lZk5HHoAkuCb6tUhIIhkRX/ygKOd63 jx3U/xpwJDCuGKd65vTEmtrFik24dO9OqxFyU5KNpqSjlxemBHgmT9ZSR8jF 3E3WO57NipjQpDIM4nrEvE53JxD0lJrmXvQSrXkg5Egj8wuLWDBi75/B3Fm4 asIFn84hUNYSF07Nq4pvVKdRpzoJW60xsRq5FktLrzeYbjyLhGCctfMSCBuB 7JJmFHJ0D8+FCYrr4dDMsGQSS2bis+npG7sWLDfhgl8Ku6vDp+NbWSV6Juq4 Jcly4fqg+GIWRkUBXx3KiJk6xm3A5psEAkNEpVXiKk1kajnXY2GK2pbe0w8C YJ5nQRZGsQmXmWsiQ024YD7E3rWXLcLhjEycQmvm5hdwb0KdF1c39+AKIdOj WgFYOsz6s/FONTwPikBgGbiJsDwBptncslauh8MsMZlVGDKws7jBaBMumSnx R1MS1i3mlykBBkYmYGy3bQXqvHhQ/uLr1hFMj2o1ELRes4owWbtBJIFAUIdJ 6YylRwpWurHZ9oIrlpaWsD2ThXsyO2XsDDXhAs8fU7jBMvJzH7m5QyzX3kxS 58Xwu5x5FKRaH5I5uvpGcFEuLLmM/bMTCAaAeHgcBcNv2ETyc0ZiggnpNMYL oYlrtpelHVkTLvnuBjzu2cfoqEk1O7eANvGqFU9Nyavlsg7nEKGar3/kHA+v Z2hJcF3gF0HBnIyiRk4GQCDoL62dA9ipEO5iycTGymmBKQunDho1IdWBliZc YEpslk0Jy3nIGpFW0ACDDIxTd2Mdi1M4XGvNr2xD5Qe9LtclEFgGZlFcWLD3 z5iZ1RshRxrBue68WQgEaGyeV8cmXPBiG29ZEcc1q4i+QZ5GJUhESjmMM0FY q+br47NrOF9rShDWoP4Dh1KZBIIegYXAKOTITwlcdnAJFWJ2KHj7LJ96RRMu NSU+wJRYy/PE4C00CiMzhGeE7APmlasba0BEAK+388tgclDrg4LGlyzC+P8N EwgcArYDbxZ4JOao6zQaKhCU3ZNnh8LEzskANGrCJTMl8tJyMCUsx1Pagctx 6jdkx2YoauaAMQfcI1gKCiPRi1Y+BAL7wOSJtQlnHgWV1nVyPRxe0COWoGaj sLSFqzGo04QLfjuss7vxLFIvTAnwwFG2Q6R+FczC4uLPpoHwJbAfKq4ADPdT V5mVf+ycsDHXgQkEFYyOT2HOzGWLcG57XvCNwioRWlgO5a0Um3BdMl/ZhAv+ auGejKl32m3ccwIqzExINXDv0QDxQWcMho3pji/80jfyajCBsIJu8Sh2nbtr F61H0xFr4OrfbVsBt9Jkik24HjrFoQQimBJzd5ki4k2bKD0S4ZxfWMR6WI3e hVLMYN+ZGZRmwJ1yxTJcXnZawPVYCAReUNfahxlElh4pk1OGI+RIIzD1PXFJ wKxdrsfyuyZcTkFZDxxi9c6UAEOjkxhMafSu6AyZUkFUWgVDo9IUUfcQLoQK 0iu5HguBwDG5Za0oP+galkNkiFQg04SUr8wkCGu4Houszj02s+pn08AD3z/f ecLymxte/UP6sVdC0do5IBMoc0nU6F3YiQZsKEOj0oKqph68g4SlzVyPhUDg DHCo0MUNJ3oRaoDCgzB18KGDklyNMNb4lN3efz777rY3RCtcNeHSDoiw5HYh W6N3dfWPolYAQ6PSDmFpC14YcIVwPRYCgW0gDMHKYrgFOMxW0jvQ/l61CudW HABMCa68gREprhZRTbies96ES2syChuxoEmjd0FQhiLPtEiZ0QguwZ19HMyT ppYEAjvAXIRa6OfNQtTP9ie8kmsPYpUEfIFcZfLAz/fYWWZK7r6IHhmTvlrV hCs0qZT/zTii0ipgtHFZGreSwUwqHoqPeUXlo8amfm1gEQhaA5c6VuTdeBbJ t4YXesH45DQ2MuZE4mNyahYTuWFSXaGZPymd8YspBNcd5zT1a8w5wVtQoN1e A1YOsqyfpg5g0zHjDn4ajdKeCQR9pK176LK8veBDpzjSnFRrWjoHcOO1vJ7V Gk+wFw9fxmMi91o/H3gIWMaITbjgF2dzhOrzwk828Wqx0YDqXrGZVUyMSkdm ZucxbDR3S+K8xJJAYI6yus6zj4Ow3oqTJhGGREp+PXyTF8xCWCvPAXcX90cg tFx314bRJly0gJ9Fiyb1KOTrGpbDxKh0B77qW8+jYISOgVmkqpFgkKQVNOAa iF9MIbnIacE5RKYJCcHC3DzjXuiEdMbUUTb93rePUdM0MNSEiy4wRtbCzIm6 hzC4ZmJUtNA3KME9LE1zDAgEngO2IzCuGN3U+GzuayUMBojvcEcYnH9GTzQ+ OY2KIr86xGo6/a5owsWTpAu4JsG3gYcWjg187Sh0s7TEX6eopXMAGzqQO45g MICD6hCYhZ0y1FQ1J6hPt3gUS6GZa+EE5uNXebU7GBQwK9odBIwIpl5giQfn 4jkjY1ITHZq837SRLSXxXNyyrK4TVwMKKkVcj4VA0BWYiHBP8JJFWAsRcmQG XMYHR5SJBDn4Be/LrYCpY9yEMulg9ZE14cqp1boJF73gahVcnNq9HVOn+F+t mS6vqfnZNLBet77MBAK39Igl6MLdfRHNcy9O3/GLKYTv+Y6tgN4qD8nEFHb1 fegUR1fGqawJV8TrJlw3nkVyFa5WNMj6XtkHZGr39tDEUn3pvxOeXIb7ViQb n6Cn1Lf1X5B7oebuSST1nWnmFxYxBtRUJ0QFo+NTd+2i0ZQobWiiC23dQ2au VBOuZNVNuJggq7gJTu0braX0LiqZgFmkd1QM4RaWg8t6w5JJrsdCIGhGfkUb NsJwCRGykG5EeCXf7L74VJbGk0SHwywzJfL9/UfO8cypOgtLm1FQ/fSDgIA4 5U24GAJ1SGK0rRlpkStGPnHRcqGMZcDZeCbvifmrQyy3HQ0IBI2Ikd+n8AhN KuV6LBuLSvnqzU+mAc0dOm1RjYxJ0ZRAvMP05DMlb8KFlZirm3AxB0QlcMas kibt3g6GD5eP6B0Vc8D3jFl5Vp4pRKmbwH/gKvWMzMMJDaYFroezEYlMlZVp X7OK0LpacEQivSPvXQKON2t+bN/g2HO5+JhiEy5GsffP0HEbHVsb69HaETgJ WE/qEirkeiwEgipg5rGWCzmeexJMZLG5Ahx7/BWstdKEhLkR22CZuSayvySi 2ITLLSwH7Bpz58JtJpEOqi+4dsST8hk16RaP4m5maCJZNyDwlKHRScwjvW4d oYVUBYFGICqB2AR+i4iUco3eCKYEFTmeuiZypQCMTbiwggb+G59dw9C+G35F uijFBcgLclPy62kcFQs0iPpRnSAlr47rsRAIKwEHD6N+U8c4Rv1Jgpo0d7zW hKxs6FLzLeAPYDq3uVsS5xJqcBW5yEVjsH8K7WUdS0tL+P3oovSC7VG0zgrj kCJ5+0h+yiATNjIVDV3oST73SeN8FiJQJOfWwY9y8WmoOq0u4DWvTYk796aE olHUTzXhsvVNp7EJl2RiCjXzdTlIfVs/HMTCPZmuUbEJXh4QpOiYsEEg0EVG USNKN/gICoiQI99wCsrCvCzVi0UDIxM3bCJxYuSPKUHgooJrDAUMfzYNDE0q pWWEHb3Duss2jk1MYx6a7uPhhKD4YvQ3egd41/aLsKFYWloKTihBv1GL7nUE Fpha1oRUsRojHh7HPB9Lj+SZWc50TlSj2ITrqhUNTbiqmnrgUHb+GToeBwt8 eCi2rw5wC78MzobxQ1hKOg0RuGJ2bt5xWcixsErE9XAIa9LVP4oNZfIr2lb/ FUwJ9nC08kzhUDJLTbr6Rn5rwuWiUxMuYWkzLcLL5u5JcJwG5vOZGQKCVghI MUzjW1hK2AiAJ4aaGBDjN7WLuR4OYR1yy1rk+VFB3eLfyTSJh16bEmt9MCUU 4L3gsOXmoEC7uCA2U1ZgG5VWqeNgfOS9gDOLGnU8DodMTs2itrONTxqvus8Q DJ6+wTFMIr1tK+inb1eUwCg46d19EU35n32DEkyRtfFO1SNTgujehMs/tgje m1GoqxVIyZPtZQfGF+t4HG4ZGp3EnEzPSP2QHSMYAI3tYlwofuqaqKM4OYFN 5uYXsJm7c4isCBpcApw9wB3V39bhAwpNuO7bx2pURYjrtOX16qZPr0VNcy9a ZB2PwzkdvcPnnsgyM8FMcz0WguFTUClCb/BlcLb+TkEbFph7sQg6JLEETclz fTYlFDCfKzbhUicdGjBzkS3VtnYN6nj2YckkJgboeBw+AOYYa3CIJhKBUeKy qvGGhbmIz91LCSqoaOj6502vPd9Yf3Xdw9Y33WC0nbVowoVpbLRIbGGxlWEI 8+IWG9gU/ncBI+gjcKt6ReXjNab7OjOBQ7rFo59ect3+pcX7vziO6I9WoZpo 1IQLo2xapHRR76u1U9cwhyeg33j2cZDugRuBoMjUzJyNXNkVHLCqRuKu6DFd /aOXLcJP3ff74oo7/NfGO9Ugq01hDqSacFl5pijtNjghF5O/ZBFGyxlRNFtY 2kzL0fgAavXD1UL6pRLoYlgyiQ0RrlqFd/QOcz0cgvZ09Y3A5Gkib1w7JHmd wBOVZrD7rTllLdiECwJqWROu33f7AhMDf4Jrm5ZzJQhr5a18ymg5Gh8ANwPl +u/YCsYn9bIwk8ArwHzgnAM3nR51cCCsprN3BJVJHAIzcW2nUdSP+61VTQbb OEBFEy5MxHruk0bLibC//Au/dFqOxhNm5+YxxIP/6l0COYFXVDV2496ijU8a V8rkBFoArwCTuh0DsxSLMhJzanGaHRo1ZFehb3DMRqEJFxbb4l4zXS3dxcPj KE5Cy9H4A0Ql2DQN4hSDXBQlsEBGYSN6dF5R+aQ2Vq9p73ltSpyCslb/lBCq mMgbLBp8X9cVTbhCk0ppLKyAmRb39A3PhwdDedkiXE9V9wncsrS0FJZchjdd TEYV18Mh6ISoewhNiXOIUKlvKZ2exTnWP7aI/eGxjGITruNnX3549mUyfb2i TB1lsvkGubfY1j2EXxp8e1yPhaA3zM4toKAoOFpKFQIJegRMAlir6LKGKUE6 e0fOPJJpQhZUilgcHWdgEy7jU3bbv7Qw0a0pvCIuocK1dDUNAPiWcLEit6yF 67EQ9IAJ6Yy5WxI2O2gkQo56TmvXIJbyuYblrLvijWq64H/2iDdKk4sbNlH7 vn321XWP5SZcun5wCOQNW5Mkq7gJE+Q0kq8hbED6B8dwxePW8yga29sROKG1 87UpcVPDlCBYMXHPPmaDaJLDdX7qvp8gvRJXAnVvwlVS04F5DjQOkm9EpVXA Zzz3JNggF/QItNDcMYDpo2auiXra9IdA0dwhRlPiHp6rfh7O7NwCNsx1CRUy OjyegIt7s3Pzk9IZ/5gi3ZtwQViHEs30jpNvoNcBX5Rh5wEStKOouh3TUcCt MryMlI0GOAYoA+sRkauplpp4eBzNUFpBA0PD4wmTU7PwMS+YhVDPyJtwpVBN uEQ9Gjfhml9Y/Mk0AB6GnR23sLiI6dYQxq4oCCVscLCGFx5B8cVEyFHfaRT1 Y+6NZ0Sedr9mWV0nLvu0dg7QPjz+gHHEffuVhfA6NuG6ayfrmLyiH5nhMT0z h2GsuXuSwaiGEnRhcXEJ2ydBjG/wvuhGoLFdjKbEKypfF8cgNKkMJRMnpAa7 5lnf2rdWR5KVTbjy6tSvt3IKkuVDltR00DpYPjI6PnXTJgo7UxAvdIMD3oWt bzqm8VQ06NotiMA59W2voxJvgU6m5JXczcA1n+c+aYY6UeRXtOG+0lov0K4J V2RquaxKa2MUZfQOSDCBITBOv5tOEnRhZEyKlVZXrcJF3RqvDxP4BnjaZx8H yauVC2k5IHieqJcoSNe1Zzo/QUmZsOR1RBprmntx8UrNJlwFlaKNk8bwSr5J h0FcUi5tRaAEPaKrbwRXhu/bx5CsDAOgbtmU+MXQY0oQCHawWg1mVBoPyxOC E0rgo6WoUQivUROujt5hGnWJ9YLS2g60tkUqW8kQDI/qph5M+LH2TDGMPnEb nNqWXsx0ZUIXJT67BjuAGJ58NNatq+6lpYiaTbjA0KDR2VACian5DfipG0T9 XI+FwBJZxU3obXpG5hl2EuMGAXwDXGcIjGdq4Ro7XJi5JBrYBWPpkQyfq1HD 2a+1a/CJS4LqJlw3baK+ve5SXdcyP7+Bku0xc+OCWYjB57MRgIiUcrwLDHUl fKNR3fzalAQxZkpeyTUhbz2PYtRgcQKqrIuHtOkquFYTrqmpKV9f3y27j/zb G2/t3LP/+PHjpqamTU1NtA6cv2C4B4HbyJiU67EQmGJufsElRIhFBFrX+RJ4 RVVjN5qS4IQSps/V0TuM5zKkhXHMf9NaR2VqZi4k8XdNuHp7+06dOrXvwOG/ b961w8h47+Hjm7btBZvy7rvvxcZuiG0UiF4hXsNtI9IOySCZkE6buydhEFrf 2sf1cAg0UNnw2pSEJpayc8askiZMJjcMATcwIvhxdDxO74AEq8JP3vHevOfY 1p1GRz74wtwpzDe2BB4uIVk/Xrj/9ra9R4+9U1Rk+Gr/r+SR7K8Osq7fz7xS DWxplCAeHr/7Ihpbwm0cbVjDpry+E2JMmSlJYsmUIB4RuZgHODOr99sB/YNj NApqldV1fvTd9f/z582H3v3UIzIPTQn1OH/bCqzMyZMnDbVyZwXDkklMGXUL y+F6LATaaOkcuGQRBj/rY+cEIuRoGMDEhaYkPKWc5VPPzs0/cIxFfXuWT007 DaJ+3Ean64A///LLm1t2mz73XWFK4OETU2x05PjhI0fr6jZKRUZX/ygmVK9b zkPQC0pqOnAxxIEIORoKpbUduFAfwbopQcClx1kio6iRkwHQRWGViC6zCDeX eHh8/8EjYE28BAWrrQk8vjl9befu/RGRAt1Ppy/Ut/ah25NeqN+XCiEptw7T twLjizdU3rsBQ5mSqDQumzFhqRo4KlpI7PKHlLx6jXad5uYXBkcmGkX9BZWi BGFNQFwxOGkPX8Zj7H/qvu+/vvHWW1v3QBii1Jp898vN//7LZuMvr4AtfugU 5xSUFZpUmlnUWN3UAwbaUFUTURbg9IMACKi5HgtBG8B2+MUU4o8ItwzXwyHQ Q3F1O5oSPmR3YxX5TZuoSekM12PREpjMZWIgObWKTy4sLg5LJls6B+Dbhj8F xRc7BWU/dk7AZOC1HmBYb9sKtu45+vfNuyycw5VakyMffPHH/9n65VnztQ5y 3TrCyjPFMzIvNrMKJuHWzkHDWJoGywuf7syjoBaD1qM2SKZn5l74oZBjEPEH DIYiPpmSV/JZ19xdVvoHF5ve7SyDuzU6PmXhnvz5ZTeHwMyQxBLn4Oynrokw n2O3LKWPn00DwXpaeqS4huWEp5SnFzaW13d29A5Tc76np+fefYeOf35ytSm5 b+X59rY9n3/++fz8vHR6tr1nGOK7xJxa8PpsfNLAEuGK0OoH3MW/OsTaB2SC +U4raKhs6OoRS/Ru1do/tgiTqHVvlExgDbhHsOPAZYuwNiLkaCgUVonQlMRk 8EiWdmRMelm+yBPLS7FcsHEwz4u6h8Cngnk4LLkMrIC5e9INm0j8Mg/98Hz7 lxYnrrkrzt7wJ7Ap5m5JLiHC0KSy1PwGmPbhVoI7a90zjo5Ktuw6+Oc3t3/+ /XnX0GzKlNwyc357x/4//G1rWHjkWu8FAzc0Olnf1i8sbY5MLYehmrkkXrZY MyC6ahUO1tw9PBe8i9yylkZR/4hEyluzDp/OMTDLRN4f3DACLoOnq3/0xrNI E3k3tHVlTgn6Qn5FGzrMcVnVXI9lJfWtfTA2eNRxV8Q0IZ2BAKGyoTujsDEi pRwmWEuPZBXePq4Aw2z83i+OxqdeuIQKk3PriqvbWzsHYULWeocRgjXnEOEn P5v/x5+3vvHXLWA+Pvjsh0++/nnv4eObt++FZ3Ye++dj5wRNC/qmZ+bgvi6v 70rJqwuML7bzz4C7GzXZlC643X0RbeubDrEAfCgwo119IzwpIZydWwAbDYN8 5BxvAOnlhk1tSy9m2lh5ppDGmgYDZUris2u4HotywMbJY+FwRpU0pNOzMKlW NfVkFTdFpVV4RuQ980qFmRNTFtd6QOgEE7hDYCbMw4k5tRDiNXcMQAiAfa/w fqFF9RQOiB2yLj4NvWbm87bRx29v23vw0JEDBw8fMT763XffRUXHYs0XzKi0 zKUQK8FngcsjOqPKIyLXwj35mlXEWt/DJfPQJy4JYDcjUyuyS5rBBwBvk/3M nAnpNH4JYO9IXhBvEZa2YPAOjhkpPjUYcsta0JQkCHlqShA7uSYkzJPqdydU CvjhPWJJTXMvXM8wSXoLCmx80sAVR/0TFVPlQ6c4e/8McMjB5sIE2yDqFw+P q74RUOYXnHxdBozAiRzkyzgwktzyVvjHuSfBXT39ZWVl+fn5bW1t+DIIfFDr DPw9hjY+wP/vHZBUNXanFTSEJJaAGX3gGLvWtwczBkRwNt6pvtGFCcJaiM5E 3UNM51SAFcN8Bq+ofOrJhYWF6Wmy/MULwFXDy4PbrFECveSUteDPyv8ORDAF YTtXdeTCwDPvG5SAewy2MjazCqYy8FRh0sNIYa0H/BVe88Iv3Te6AN4F74Uj 9A+OaT0tg7mBw8J0qt3bKcCU2PnJjOklizCInlBiZa1MCZhLcS0aXsZmSvDY xHRr1yCEZhBIgo229kqF32utfAOlCcw0+qjtPcNo4CJSSqOios6ePfvuu+8e O/bOiRMnbG1te3sNsI2OXgA/sWtYDroZMPlwPRwCbYBzjre2viR4i3qGcNEJ m6GDkwzTNcQI+ZVt8dnV/jFFEDvAHIUtX9d6gEt/3z72uU8azHgQmwhLm2tb esHZ1lqVUQXNHQNwRgv3ZF0OAhYBG2FftgjrFo/iMS+YhahYPYOv5aqVzDkH G8TtMgKcHQYD33BWcVNYcplziPCRc/yFtW062EG6Epirm3u+u+Hyl61Htu4w 2rLDaNM2oy27Dm7aume30YHjxz/Mzs6m95MS1mVyahbbdoMvweEeKIF2UFxR ZkryeW1KYDoCZ7upXQxOb2JO7QPHuCM/vjh00vbnh8r3iE2WU17vvoh+5pXq GZEXlVYJH7aqqQe8epa7toHVg8E4B2s/cYHFxEgErAPK36F27rrJEmAfMRfO KSibh9sHMLGsTmDGhXSlv6YWCczz8/P/+OKfb/x16z7jjx488/aOLvKNLbHz STxx8tLm7Xvffe+9mhpeL+0aGAMjE9io+oZNJGlMY0iAo4j3KdybXI9FBkx3 w5JJcESLq9uTc+tg0nAKynrikoAO9orHMRP77V9a7PvW5qcHsjV5mF3dw3Mj UysyChsrG7o7e0cmpHxZHsdGgVo3hYEJEwwimhJUVAYnH9e71ImkwHpeMpeF aa5hOTw0KKuhN4E5Ojr6wKEj+4w/dA0TrijMOXXx12279p05c4bbz7txaO0c QN8GIlN10uAJ/GR8fLy/v39m5rd9T5h18WZkWdcIbnO4kNq6h0rrOiEgCk0s dQkRmrslqa7mA3/1pk2UhXsyzC1hyWVg/oqq2+HK/P6OD0wjbI5fC8KTZV0C E4S16790FWBKrOWmBL6f/mVx/qeuiSarKutVAP4/LitBjKbFGHiC0gTmtRLt ZAnMdrIEZuMPPn9ry+771l6ryzy9BAW7Drx7xPhoSwtZumccuN8x29zOL4Ok besjEOZHRUWdOnXq6LFjxkePvvf++zdv3iwrK0tfNiUZjJmSsYlpmMTg3odz hafIPEywBWAR1lrHMJGXZsCcCVOlc3A2WBmwNXAFtnYNgvVRWisHjvq5J7I9 VgiyGPoUtOAZKWvvnl/RpukbYf7EFeYbzyLFw6+bNlY2dKFDrlFWALiF+F35 RhdoOgyesyKB2dw9iUpgPnXf71/f2PTmlj1ryWN+9ePlfQcOJyfrtKVFWBfU qYOHf2yRXgTIhBVMTExcvXoVwvzNO/Zu3X1o7+Hjb2/ft33Xvq079u794BQt k/CEdLqzdwTmt8yixsjUCggTrDxTbtsKVJdmwEz4xCXBKSgrOKEEHOzi6vaW zoFhyaQWlxm8Fx1RsFw6fhbmwC2P2hbNMojAlKCeDJhgxQLhR87x2i1ONor6 McEpMM6gWiQrBROYy2rbt+002rTdSKkpQXlMo/2HNkirSk6Amxq1bkz0IWWU sBZ37tzZu+/Q3kMfmD73RbFZ94jc87et3tq69z/+uOnJs5dqHkc6PdstHq1u 7skqaYpKqwRP28ZbVs23VpW0yetqvnCY9xwCswLiihOENYVVoqZ2McyKtCcX wdyIUy5vC2mxOaBGe45TM3O4nAWfa2h0knoegjVc9dIu6beutQ8N/QbpAwIh 7dH3Pvrrpp02HjFKrcmxD786ePhISQnjzak3JhA+28sLxGCuKK3t4Ho4BC3J z88/fMR4575jToFpK1UBrb3e3LL7H598Mjn52zQFnjD4cuA/C0ubYzKrvAX5 z33S7tuvWY+Gj4tPQ00d4+z8MvxjiuKzq/Mr2+rbZNV8bBY4gHnCiReGwdpJ NQJzldXPCgDzDbGbibxEBUI26nmYG7F9GJh1rQdT1dSDOjA8kfRkCIhNUvLq vr3l/Z9bPvq3N9769Nszq03Joxf+b2/b88knn8zO8tQP0WskE1OPnRPQsWzt HOR6OATtMTMz27F7/8W7z5S6ZB989sPb23bfeGj/wk9Wzaci899EnhYO3rWt b7pvdGFMRlVuWSu4uH2DPFKXHZFIsfEHWDSux7ISMHYmck1gNV8PERbeg3ds BfC5FP+ELbduPY/SUQegvL7rtbAnLyU0dQSsdmRK+ZdXPXZ/bbX9S4sdnz34 r79u27Rtz/dnbntG5lO3wENbv217Dh88bBwWFsb1kA2QHrHkho2sePbui2hq y4+gp5iYmIDfZesVp9SanLtl8Ye/bcXdk+Vk/uB79jE2PmleUfngtQpLW2qa e+GSYKKajwkgqkJNyHqe1UMNjU7igpU6L56UzqAuN9yDK1IoFxeXUHgqr7xV 91EVV7djBp2+lKyqA8xaPtEFn192RTty4HubyxZhshqlwsIPPji+ffe+HUbG n39//muTq8YffAl3B5iSp0+f8lYMWX+BexDlJizck/W3JxGB4uTJk3C/2Psm KbUmELO8tWX3lVsPqxq7u/pHebvjoBHgacMFfMUynFep7BDjw6ieuiau+8oJ 6Yypo8yU3LePlUys/AiofgMGha6UmPyKNqbz+lijtWvQKTj704uue76xBjty 5McXN55FKvoVTU1Nly5dMj56dP+Bw0YHDh06bPzZZ59FRERwOGZDJbesBZdS XcNyiJCjYXDv3r1tu/bdMnNWak0+/+4cWJOQUIO6m8DJRO0R8Ij4k4WInYid gtYphB+bmMY9kV8dYleriCwsLqKKY1F1O41jyy5pRoMiLG2m8bBsUtnQbeGe 9Okl173fWO84YfHOaXv4osrru5S+uLOzMyMjIykpqaKiYn6eL+u0hoQgvRKv qIiUcq7HQqCNxMTEA4eOHDj2D8W1YnxYuwne3LLn3/6w6eQtl6D44hWL83rN hHQaV2vV78DONBlFstKeAJVJuWA+7tvHwMvAoIxPKtmsz5QfBP5K+7JMWkED VvpoUQ7DIeD0ggW8Zxfz2WU3o38+2/WV5QdnHG/bCopptbYE9YFfxD08FwuN wUvhejgEOgHX66efftq+e997n37n4J9CmZLHdoE79x3btffAiR+vohcBYamP oMBgdspauwYx0OZJRiLKbqsQ1Bodn7onNyUPneKU5n3NzS9ct5aV463lcutI Uk4tTgKooslzpNOz8dk1V63Cv7jitu/bZxCSfHze+fZzAVhDsgPCFfCjoGLD ebOQmmaizGyAdHd37zQ6+sZft7y1be+7//jnp/88c/CdT97asvvgoSP37t0D c9MjloA7gek98F+3sBxUFNR3sNIfLmw+mEivqHwYzFqy2yNjUtxbf/gyfq39 ypR8WR3xI+d45gaJbcjgGqhoYMRg0cLQ6GRwQsnZx8FfXnXf/50NPD675Hrr uQA8Yf4sbG5ABkcm7tvHYhlUVz8RcjRMmtrF31532Wn8tfHRdw4ePvLW1t3/ 8cdNu/YdCQ0NXVRIMR0YmfCNLqSq152CsvlcV64m2D3B1DGO8zRm3Mqpbu5Z /acRifSOrQD++tg5YS1ZYxg/il4qPQKNYA4DXAbVTcyeSAs6eofhBwVjd+Ka x4HvbQ6ftD1x1f3Gs0hwG3RMliboiKhnCFuSQWTNaEdUAofMLyyiw5AgrJmc nKyoqPAKiPzsjKW1V4rS18PMFhRffPbx6/J2mAPBGLE8ZhqZmZ3Hj8+5ziFm /Hb1jax4flgyeVtuSsxcE1Uo5MPPp2ZKmO6EJpVh2TJ/sqzBtNl4y5ZQvrru CUbkmIn9Nze9wLwm59aRfCHOKa/vwhkDpgt9KSUgaEFUWqU81zSGuunAczCR d4BV8a7xyemIlHKqNaGlR7Km6lL8oUcswUJ+bvcEUYJ7RZrW4MgEdpA0d0ua Wvs2hDsUqzJZm94D5DI18L01dwywc0alwEWbX9GGSW5fX/c8amL3/i+O39/x gW8jPrua83iT8EreZwFLlnyjC8hKowHTPziGK1cr5gTczKWEzdcCXOXYzCps ioHrMAzt/zINFo/DV9HRy83a3cLiIu5HKG4QD4xMYOKZuXuSao8uJkO2+mTl qTycZAgfQQHuOrV1D7F5XgRsa1JOLV6o39zw/PDsy4/OvTx51/fi01BBeiVx gPkAXMxB8cU4OWjXZ4GgR2B+xeqsVKegLHi+oFKkzkFmZufhvqY6VYGjCJOz 3jkhqF9621bAcr9FZEQixd1J6hnx8DhOlRD3qe7yAANGxRuWwwSYKzDVEyZw Nq0wxM6hSaUYF//zptfnl90+veR66r7fuSfB4cllnPx8hNVAYOgQmIlOGsnH NniwOS9YgdU3IDgSJho2AZybX8gobMRlGRSPEpY269GSNQzVTK4J6RCYxf7Z RT1DcOonLgn4vxAVYusNa8+UdZdrIlPLcUWa+WGuBHwGlxChiby9IwvtVrv6 Rz0j8zCv+9tb3t/e9j5xzUO+4BYUnFDCnx6ahLGJadQjhQujuUOP91UJ6jAh ncEVKqXVFvWtfbhWr+lhFxYXc8taMZfVRN68Ka2gYXaOPaFgXRiWTOJ3kiBk uwN4hbyzFRqy3gEJBno23qnrmhL4HbG5FSfLTa/kvzi6oFcsw/sGmcobhwsS c97g8cNdn59NA8CaoN8LQeVqTQACh8AFjF4luJTiIe5z7wlM4xIqcylf+Cl3 aCFaQZdPuwWrpaUliG1RSwrnmcScWr1Yyq5u7sH9i0Z2E9WyimVxol9MYY9Y gomUz33S1LHCmF4F8zkLg1wLCOvgQsKVOnord+DyK6wSPXwZb7Lcc/OKZdjJ e75YS+stKCC5pnyjvq0fGyuYuyeTaHEjUNvSiwk5iq36VoBl1zquh1c2dJu5 JJostziJzqjiv24kKghBdLBaUJHpk8L0eNkiHK28Op1fYISYeLk6r5hlYLSY oHvDJlKx04rWzMzOp+Y3UAunF8xC7tvHnn7gj7bePTxXxaVL4Ir8yjZch3QO zmazdRGBK8DjxfoFuFtVvMwjQrbBSksj9brWPtzuh8e5J8FhyWV8XpqAwAo7 6lp6sKcJ6Rtd+M0Nz69veMJ57f0z1NxvCpQnzLiECJkenjrMzs1jb3q4unQR ZwYTGZlagf6tibxLi4V7MtW+0zlEuG6qIYETMLHQZMP06yS8kq2NlGJFquqp ElVHvAX5dJ23pXPATt6sEwvfYCakxYllggnpDOZTsXZfPHKO3/WV5RdX3BwC M9U0JfDt/fIw8PSDgN4BvqjcTM/MYSh61y5aC4cBPghcb5TYgplromNgJlXT ZB+QaRh6PobHwuKiZ0Qeho20+J8EvaBbPAq/OExBop51Nm1buwYx3ZfeAXT0 Dr8MzjZZlpH0FhTwc5+utfO1JmR5fSfT5xJ1Dx358cX2Ly3MXBLUFwDBcg8I IRkdm6ZIp2fBMuKVo/6yeaOo337Z04CL0yEg0ze6gApPnvukcVUHRFgX+MWf yVcezj0JruKf2A6BIZaWlszdkuB3D01a3+WenVsAuwMPJjKywAuFaRBlJGH2 cA3LYSG/VFNS8xtwxZ5RTUiw2nCKPV9bGZ96ob7m/8DIBP46fNCrXMGkdAaL 0yH+VV39AdFxaW0HJmbjRp5vdGFEajluHmE9Zmsnl7X2BNVAgPyrg+y3vmYV 0dnL8eYdgU2wRcV16wg106uw7ThzMlyDIxN+Mb/JSDoEZq4bMbGMszyMglmR oSRniIDOm4Wcuu937LT96V/91d+mwV0tCE+YGJXujE1MYxYHWAqlF9vs3HxG YSPu38HjskWYIL1SsQbW0iMFAhb2R05YjVQqFQgEDx48uHjx4r1794KCgoaH ZaFie88w/l7gPBhS8yPCuoyOT+EStPpLN1geznRDcBgY6ofjNGLjk8Zydq4K YCa8axeN2Va0H7y5YwBLRRwCMsGgwI2p5hv7BiUQ0IEV5u3G0yv5z4q6x+bu SYq1/OOT02A4UFXMRN5xGMxKVknzjWeR1HYJWTDhDyUlJV988cW+A4e37dq3 ecfebTuNjPYf+ujjjx1d/fCefe6TphfJ/wQawd0KjfJ/cstaZW8JZSNlaEI6 E5n6m4ykhXsyTwTPu8WjeNes1XlEO8Bi4mE9I/La5YXwD1+q25cEy89Vd2nk A2DsMMVXXtG/IB4a948porKzzN2TS2o6CipFVIQCMWBZHeO7VAT1KS8vf/fd 97bsMHr/0+/vmLtZukT+au316bdn3tyy+9//8Naxr657C/L1TkOJoCNwk5rI Bfo0qvbqEUsw4ZO5ga1AOj0bl1VNOa6PnRP40Bgxv7IN89DoKuuob+tHUwIh z9LSUlVjN/zbzj9Dnfd29Y/iYHTJwmWNwZGJ69YRX133/OaGF/6m8HAMzGrp HCit68S4z0QuYU1vI3uC7szNzX377bdbdxqduvDrih7f10zt/7pp5449B3HJ i7BxmJmdRylaTZP3wOvASY/lksPZufmUvHoUqsKpBjxYbl0gv5hCVIpQIQuv JnWtfVhy6BtdiM8IS1vU3wRBGRP+tLNXARjK8vpO+Pl2f221/UuLoyZ24MpC hFLZ0IXb9LjSlVfeSlrr8pCsrKwDh44c+eCLFaYEH599e3bv/kOBgYFcD5PA KljjZuaaqMU9a+Upq0fjZNFpfmERzB9VDQ0hUnYJZzKScF7MSXDUTROyprkX l3r8Y4uoJ2Pl3QwF6ZXrvr29Zxhzn8Yn+Vv++UpeGp9V0kSFHj89CPjsstsP d3xMHeMevUzAJ+GXhdeQdRLe4ujouHPPgQt3rJRakwfPvLftNLpz5w7XwySw B8w/px/IUkm1a8SMpY4xGVW0D0xNYLYB3xUThDAhLTW/gZMuSIMjE1gBkZSj ZaeGqqYeTGAL/L04s3+MLNshs6hx3SOg8mFkaoV2A2CBSelMXFY1So2hD5Be 2Ai/V3Zxk/EpO4xQrllHpBU06JG+9MbEwsJi++59d566KrUmVq5Rm7fvvXDh AtfDJLAETMVYShaVpuX8U1LTgVoftI5LYyCqgpFgr1tMKE0QciAjiRscYJq1 yJqubOhGUxKcULLiT7h4tW6jsZbOAdz84qfWGVjbwLhiKjfviUsC/GRwBTZ3 iFFX5+vrnkbfPvvo3Et3nlVcEpTi4uKya++BszeeKrUmdy3d39y86+r1m1wP k8ASiTm1qHSktTMPU4SJXAKR3oFpDcznWIBpIpeRFKRXgjPM5gCwmcg1qwiN lEPAUmBlvdK6USzfW1dSHiuOOYwT10LUPeQSIsRaVFk6gV8G5niLeobg3/jk JfNQiFnq2/rQ3EA4xvWoCetQWFh46LDxPuMPvQQFq63JB5/98F9/3nzk84vg C7HWP5rAFcOSSbxza5p16tiOLT94VdoAV++zZRlJ+IwwRbOm9wvONp4a/G01 1/xL6zpxpg1fQ/ULSy1Uf8PYcQYMqO5pADRS1dRD6XlC5OUVlY9SWl39o9i+ E4Mpxda6DaJ+TEJYHaMReMXi4uJPP/20ffe+L76/4C0oVDQlpy+bbtq2Z8uu gyb3Xqfq3bOPySxqJIUnhgq6hZ6ReboeRy6gxIdM3RW0dg5Q4k7YNWlolA2T B1EJ5ptFpJSv++Li6nY0JRDUrPUafIHqfQRzd1lExn4bL6XAUHPLWlFSA20c fBWYsdw7IHENy6EMfXhK+WpxldqWXlz0U+cLJHBIW1vbRx9/DAZln/FHZ288 vWvhdvHuM+PjJ/7y5va3tu6B4GVCOh2fXYMpo+g5gJPAT+U9gtYUVonwNtdd +z1GnnEUztcbv6tvxDk4+/SDANzRAOvJgmJ5c4cYTUBlQ7eKl8GvgC+LSlsz X2t8ctpE3vBUxXGwh9dlizBO0g8UAdMAFo1K3oZpJCWvDj1S8fA4fPn4Q5x5 hK1111yErGx4vfQHVxeLwydoTGtrK0Qohw4b79p7AMzKzj0HdhsdeOPvez46 9Yha4JLprdV1WnokUyVF4ILypPqYoCNwy6N+Tl55q+5Hq2rqwYUd3Q/FHH2D Es+IPEpG0iVUqF0Om/qk5NWjvV6rbVN+RRtOrbEqJ0ysRjR1jFPxGkxOTsln VuJGNcOSydDEUpSCwcp9sJW41gd/8ospxC9fFiTGFKmz8EgtAMZlVTM/fIL2 LC4uFhQUODs7P3361MHBITMzMyajHH2JFeuu3eJRH0EBlYlx90V0WkEDr9Zm CZqCWuWWHim0HA2iG4xhaTkao8DE7h9bRMlI2gdktnYNMnc63Bp45By/us1c blkLmpL47HXWpmqaZX0wbX2Vt1R+Jd/Bx9RorprZdfaOuIfnUpvsz33S6pad 0tHxqaD4YvzC4QVeUfka7a+BPcJvSXXjNgLfAC8Ck2Hgwlj9V/Bmk3Lrbj2P ohY8A+OL+dOFh6A+mEcKN3gffQs+WEKoL72KYIoDL/o3GUnv1AZm1GhlmpAv ohWr2hFhaTOeGu6pdQ+CYmgqtrcgbFGzGoV2alt6sQ0lGguPiFwq4hufnA5L LsNKTLAIbmE5A1q11gWzi8cnXZb0C/HQON5ia6nIohIC9nem/JDKhi6ie6Av LCwuomYFvasHKDNIy7oZa0xIp6PSKi8sy0iauyczoUwLsytmKOVXtOEzWSVN eEY1tZfjs6tVFCQWV7ebyMvG2az1g6sIPg5V3QNhaWhSGSU5Pjk1C18sZaxf Bmfr6LeAHcFD5dKqq0lgGvBw4Fe7YhmuYoPslWwVesw/tohaI4WYBW4N1Y1v CHwAWzPftYumd/JJktetKIqB6AtTM3MwXVPdlx6+jC+t7aDXO0LvGmwKWJYM eftjeKQVqLt0g7o36YVKQo/FxSUUAaBXvlgFEG3BnU6Jw1+3jkjMqaXWveEf 4KX81lrXP4OuzSlsTAYxTmGViJYDEtgBQ1enoPXlhuDiScmvx1ge7xe/mEKm NzcJWiMeHseVB9r7gzSK+k3k1c30HpY1ZDKS+fXY6t1EJiMZm1/ZRqNCFG5U fX/H5+Q9P/hHhiarUtgpoFSZEjsECCZyqUkWxKxGx6fCk8uoUA4iXAhFKZ8E vsCk3DqqtS7MIe09NIvHJghrcD2Nh7nohLWAiBWvGfUXLqqaelAgCB/Wnill dZ1Ero1v4BKlbzT9fZ3AZcW9GL3WVpLJSJY0Ud00IOLOKm6i5RPNzS+cuu+3 /UsL41N2mq7/425my6p+tQuLizjUgkqR7iNUQY9Y4hmZh/m6eHdXN/+2JDg7 twBx1uXlHgGWHsmrh0oXEPjAKWAklQ3riMwQ+ANcnybyhtcadbsA1zcwrpiK c2/YRII7MSHltZbpxgE3cy9bhDOkNILbMXzrtKsF4AVBYALhCbWYk5JXp2Md B/jt39323vWV1ScXXeBoGr0XMxxWpxlnlzTLw6gY5nYtG0T9dsvlnxAUuIbl KEYcqOFMlZaYuyfVtzHeWjcipRz9ltoWnQQcCGziGJiFm+yavnFmdj69sJG6 Gc88CvIWFHT0kp4pXAIWBLcGihlrOeQVla/pGg6fgSm6tK4TJTHRCsdnV2uX GJ8grMU1f1zvgmm5uUODlUZMr13Rdx5mcqwvZmLZB+wpXCdYw4IJnEHxxYrm DF6QW9ZC9QKAV7IZLAQnlOC6OkOZeATaGZ+cxuhV6fafOoDzYO+fgeniWN1Q UtMB4Tm94ySog3t4Lq5mM3cKTLzxjNBVp4VvVDf3mLu/ruGFaD0qrUKjcBsz suAugHgH/jc8uQzjHTX7j0xOzZrISyBXPJ9WINuVfuikqqRRCyAEgyNThQBX rcLjsqoVFYnByBZWie4sLwaaOsYp3dBhGpToBzPH3KoagV6wuyv8ZOJh7WVV wKUJTSyltucgLobrU3c1D4L61Lf1Y5CoXcK/mmCfJohJmTsFh4AbTBVWyGQk E0vV6ZMbLc+gg2CEykQCrx77i9l4q6UJib2S79vHKD4JcQpKGaiWbdEIuCWj 0iqp+/SefYywtGXFnhHEQdSaA/yD2/QqjIXPm4WI1pNWJvAEz8g8TMXXcUsd fB7wXanunBC8w5HJZcACc/MLmHSndQsnNYGZB35WcMJnZjmWimKOtu4hh8As 6hoGD3kt1RQAohg0JStWF2HeRlugTk+ZOrkyMJgexScxH9vMNVHrD6JI36DE N7qQ0gewcE+uWLVsVdXYTVWX3LYV5Ja1cp5jA1GSm1w9EixgV98It4MhqIN0 ehZzyyFgp+WA4Cc7BWVTIgxmLong4eh1IhDPiUytwHxOFtYY4deEc7GwFcst Xf2jLqFCRRnJ1dV5uFm8Vjpro6gfb4F16yXzK2U5wB4K3aPAWOMWmO7b0M0d YuzDhWtxL4OzV+vMgDl74pJA5dWAT8i5HaGAkWD6NHwh+qLDsMFB7whcFxoL SYYlk+HJZZeWswqvWIZHZ1Sps3RA0IjeAQkmdraysrwcGCers0tkOAjiCeKh ca+ofEpG0jk4u7P3tYeM3Y3hm1fRLTEptw79atUi+djOTFGfGbNkddFYkyUY 1HY8lXfgwu1s/9ii1avZTe1ii+UNo2tWsv7IPPT6wEeyD8jELR4WpKEJuhMk r8aFUJfey2lufkFY2vzwZbxiCmJrJ4MqfBsNnA2Cft9knDnQkQZ3kZ3T8QHw iwLiirEm1ETeVRAnN/C+1t3UwLjgsXOCitsK85cocWDp9CxubWhXfzo7twDB BVVuDC49eHGrVS/gHqTUky5bhIFFW5FRxivg28Nit+vWESoWHgk8YXZuHq9A hprXgBcErh21/PXIOT6vvJUrQVSDAUVywKtkTfC5b1CC6yHsnI4/SCamIB45 +zj43Z8ctn9pceRH22g12umCacDyQxVda1EAjdp5EaRXapebNyGdjsmsogRk 7tgK4PJYbSPae4bRGmLcFJtZpRe7YPBBrOW5DTdtonjVA5SgFHBXIJyHCZ85 Be/R8amotIorluGU4wT/S0nJETRibGIandi1BDyZYGlpCWtX1Ux/NTA8IvKO n3Ha8431F1fc4Ut46pq4bhVGZ+8IxjVr1bNbesgmySZ5JDIpncGvV6N1S/Hw uH9sESpP4qhK6zpXFzx2i0ed5ZYLE6Xg1tOvrhNg9bD7JBhKsmbOfzBHBYIU Rvu7QdyaX9FGbfyB/YKwpYluXSmDB2cG8DNZPi+ukGxA4Qvf6ALcgyir70wQ 1lJKIw+d4iCyUFGujur0ENco3UfGyg7c1AiX7+zb+WWoOSRw/OAyoAq+HAKz mjuUmCGIKLEc6XXyc1IpQ2oJTDM9M2cm3wy6bx9LahB4Dszz2EmBHalYcMDc wnIodSA4Ndx3nDcq1QuwryvMDOxH/ZjLJEhfsy+t4QGWwluQj1841boUywAp Gcm7dtF55a1rpdVh6cQ9+5jpVeEA6rqD4w3TI/5bHVmJyoZuDGpwB8dHUAAm Y/XLBkcmvAUFuMIMIVJgXLG+T8LS6VnMZH7gGKunNnHj0NU/itM7ddcwDVze MZlVlBbQxaeh4KGRvTYVwDyGkhdaixjoAla8qmgUaGCAKfGMyENTsnpnHBww YWkLJSMJv0tmUePqDcHZuQWcA11ChIrPT8m1NM89CX61vB2vWtlbfrpmqsAQ bpbI1HKlBmJEIgWfEO0I3NEQWBnM6tCEdBrr2h45x5MeGTwHdaFXN/xlFHDq CqtEKKaKCZmOgVmsWTT9IiSxBDOFOKkLgGkK97zYPzX7wDeMa0Qw4atYjIWX FVSKfnV4PclftQpPzq1bsbstHh7HPRHFvieY1QBxzciYFCtD16qqgGkzPrsa iyLRbMFxlG6gSyamwDBRrXXBFKpOUdZHwIDCl4abRKvDPQJ/oBr+KlZUsQaE +Z6ReVTd7n37mKziJr1IO2GHrr4RmCLgwaHMJuZRMKriwgfgRnCV12KDFVBT LQoCN0pK8ZJFWFxWtaLzjGEdRArUJntda++Pd32svVJRlsotLGf1McEWgHWg Gh3C8Yuq25U6EhPSmfDkMtyOB8MEg9dFMYnngP3FkNDSI4Usj/OZdRv+Mg3c F3AnUg3gLpiFgENuwLeGmiwtLWH2QjgzidxqgtojRYyJFfMBmK4xdxdMiaZZ jjXNvVRVILw9MrWCSoHDsscrFiE+fgG//PLL7r0H/vW/39y6x3jf8VPf33KD +07xOOAwgEWg8upf+KWvpUIANkuQXkl1SnUKyu4dMPzKcbCzKLNs451Kyg34 jJoNfxkF7uiSmg5qt9FE3jl0I3c9SMmrw1UObp0xLNYOTSzlcAyMsrC4iIIe F5+Gat3PpVHU//w3GckgiC/AnYZL+u6zoD9u2v+Xt7Zv3rH3ra17N20z+tum nf/91y1bdx+qrn6tblTd1PPM63V1IcQynhF53WLlOhXT8j7FVMNEO/+MDSVp BR4mJkKAqeVhIT+BQv2Gv0zT1T/qLcinMurvvohOL2zcaOulIxIpOp9VjbTp ymoHGHQTuXggt8NgCJiUsPUPmBLdlxNF3UOOCjKSbqGZn37+1Z/+vu3we58/ euHvHV3kG1ti6RL54Rc/bt6+9+N//EOQlEdJp0JcA0HoWrvn4FEk59ZR4kXg n7dtSJHVvkEJLr06BGaSdhi8hWr4m1/RxvVYZExOzSbm1FIdfGBqDYwrVpoY aZCgTIersqV1lpmUzmCOE3/kAekCTAmWisMsTaly6Q5EFvDDnX4QYHTc5L/+ stn4+AnPyHywI4qPL76/AFbmbaOPZTkwzyLBUqzlL83NL4A3Re3IW3mmKC0z 2TjA14tW1SVEaHjXpMEAdsRE84a/jAJXS3l9F7UOgNmq4K4z1+2UD5TWduAP IZngRZ4n1tzRKBPKB2CWxra2ly3Cmfho4uHxnfuO/m3TTkvniBWmBB6uodlv b9//h79tTRZWrOVjw/PZJc1UkYu5W9JGXvhVBKJIlIbwiMg17KlAr9G64S/T 9Igl/jFFVK7LbVtBSl6dQeafg4+KE4iwtIXrsbwGG08IS5u5HghtzM4toLTg FUumxM9HRkaOHj22w+joalOCjw8+++HgoSNlZWWr3yvrZV/RRvVMfOQcT2Mj LcOgrXsIc7B9BAVcj4WgHN0b/jIKmI+UvHqq8SgYFzAxBtYKwT9Wlj5qzqd9 ipT8ehiSb7SB3Lazc/O4S3jVKpy5bKj+/n7jo0f3Hj6+ljX5x9c/HTh4pKDg d98qeNrF1e2ULPADx1gmOsUbBs0dA+heBsSxpKpN0BRaGv4yCtxxlQ1dVAoN PJ55pZbXdxrAIip4XKcfBPxsGsgrE9nSOQBf8sOX8VwPhAbAlKA+7TWrCEa3 4aamZ/bsO/Tm1j2uodlKrcmeQ+9v3bG3oaGJekt5fRdVFHnXLrqgUkSWcVRT 39qHMpuhSUpCPAIfoKvhL9P0D44FxhefX06YvGkTlZRbp796PvBtoyIH33Sx YAb+yVRm4/Q9z39mdh7buF+3jlhR7kEjE9Lp+OyaK5bhb+/7xx//Z9uPF+6v NiU3n7z8y1s73njTSJbKlVyWW95KNQa6bSvIKWvh+a3HH6qberD8WZ1OygT2 UWj4W8P1WNZnemYuraABtRdM5Hp3PoICfczDh2/bRC7BzcNJG82cXvc+g+sE ywzh2mYo7oZgR7HZ1kVTt117D769be+5WxaYHoyPuxZuW3Yd2Lln/+lrlieu uR/43mbHlxbHTtvDGzOLGkniq6ZUNHRh1WdM5vptaAjsw0TDX6apae6188ug lr8sPZJLazv0xccbHJnAEht+6pX5RhfC2FLzG9Z/KS8BU4IKQhDAMqEy2twx QFWaYF0h/o5xcXFHj72zdafR3sPHvza58s+fbhx697PN2/cePmL84LEFXKLf 3PA8amK39xvrj887n7rvZ+OTBpcx7cMzeEpqOtCgJG2MxtN6B7YFp73hL9MM jEyEJJZQ9cLXrSPis6v53+8JU4y8ovK5HohyhKUtMDz3cA7E3HQHYm0zF1mn jFvPo+gVRYQ4ori6/ZFzPFUFD2Z3xRpaSUnJqVOnDh85anTgsNH+Q4cOG79/ /OPTV56aLAt8JQhr+ofGQhNLqYv2vn1sbhlpV6oZ+RVt2PyFnxlEGxymG/4y Cgw+q7iJ2tOEIMszIk/E1/JhrPSBiYVDZRvVdPWNoC4B1wPRGDAlqM1421ZA Y4MYTC+kikGuWoXHZFap2LNraGhISkry9gu++dT9x7s+WH0fk1GlWLQI/05S qNi9bBEGjhBvLwkegq3K4JFdYjjZ7AYDCw1/maa+tc8hMJPqWGfullRYJeJV tAXzEopF8ESFQCmLi0u4HaBfNT4wvWPgAHaQrprcwZGJ0KQySnTxgWMsBG7r XlE9YomzXA0MhR0iU8vX+iZR8Z5qVyrrexVf3D84RsvgDZ6Mwkb83vh8N21Y 4LI3Yb7hL9MMjU6GJZddMg/9zZPMqOJJpTm26rP2TOF6IOuAfbr1qBx7QjqN yQN37aJp6R4l6hlCyRRKLKuqqWfdd4mHxt3Dc/FdZx8HgSWCgalzuvq2fqzW N3mtFZyl11kQrAExo4lcpb/YoIWv9RGq4a8BlAjNzi2AG4kzjIlcrxVuc27D rqZ2MS7EMZewShfYtys+u5rrgajF+OTrnn337WN1dBvk8j6dVHM3+LE8InLX kvlVRN5aNx93h+FdEGJo0VoXohIfQQGVJwYxS2mdIZRWMQpcpSby9mHl9V1c j4XwO9hv+Ms0jaJ+5xAh1UvisXNCfmUb+8tfcEbs06oXmdiFVSITuXYr1wNZ H5i0ccsM/qtLb/SZ2fmMwkaqdS/EthEpynvprmBkTNZaF+8aeWvdwhGJTuts E9IZQXrl5WUN4Zs2URtQWFsjYjKr0IirEz8S2ISThr9MA7d8ZGr5ZYtwatMz Kq2STcVLmB/kznMMr/Zx1kI8PI45clwPZB0gEkEbDTG11lvYeG2gtKDJclsE dRZ7wdZAEPdba93IPBoTkufmF7KKm6hO8Rfkzbn4o9HKN8KSy9Cg1BmKG2wY QGT91FWWYwl3B9djoRmYyfPKW6mWrDADuIQIWRD97h8cwzlHjwTGcXbl8/Q1 Oj6FdawPneLU3J5Ygay7dEQehhVyRYiksrpOdRROJqUzELlQwqQuoULmts7L 6zupvnKyBluReTQq6hsSWOYAP0qjSHkjSwInyBv+yhZvuWr4yzStnYOuYTnU NALTUU5Zy+wcUzn/1nKZff/YIoaOzwRYFMPbtWgwc5jT/sg5fnJK49yz6qYe m2XxN3Qq2nvU6p8lnZ6NzqiiFH4cA7PYkVkDw+eisGALv44e5Uiwhm90AebR tXbqjdu2EcDsO24b/jKNZGJKkF5JNSe6ZB4anlxGY50CgsWAcBb9SriNSpMt zUWm8lEQCX4j3OB44pKg0bcKDgO4DffsY0yWeyCGJJao+YvPzM7HZ9dQC2Iv /NJ1b+CoKTDU4IQSypb96hCbX8HBJiBvgbgSgk1cGFTTPSCwA38a/jIK3IwF lSIsoEZPFT5yA03B8vjkNOYq653YeGVDtywzln/tb4ZGJ7EbCPxk6m/twQ8R m1lFbZzJVENzatXc2gYblJJXT733mVcqt64vDDsxp/aGTSSVA58grNVfBVR6 WVxccpX36IH7To+kogwecIR41fCXaUTdQx4RubjBgaVqWSVNOpbe4IUNfixd g2SN0fEpLOLmeiC/Y3BkAuvHzd2T1bQFPWKJX0wh9bM+dk4orBKpmXYLnkZG 0W+tdS09Uhrbxbp9AtqQtdmqbKM2Ac8+Dg6KL+Ztawk2gW/GKSgbk22Ya2pD 0BSUAYEphc+7sfQCTmxcVjUlowH2NDSpbECrXJ3all68zZnQHmQBFJfmT2k2 TJU4JAv1TAkEmPbLJYGnHwQ4BGY1d6hrCxYWF4WlLXg6WRzkmljN1+zT+tY+ 3OTCj+kcItRfOQu6ADcAVWGvWUUQC8sfeNvwl1HAvSmubkdVc7xJ7QMyNdr3 nJ1bwLX9lLw65sbJKE5BWfyJTMVD42jirTxTZmZVBYy4dEkVrsq6dsYWqe8P oM9PFZ7AcfQiF6VvcMxbUECFYE9dE8s2duXj3PwCrtWDS6Cn7pzhQTX8hZCf 67FwQGfviLdCefI9+xj4HtRxjMNTynEu0t87GiuPguK5F0boG5SAk4l7FirW HienZhNzavGV6JdCmKn+Nj221qX26O/bx+idXgfcrVFpFdQWD9jEjMJG1cbX gIFLBTum3XoepWNJKYEu+N/wl2kmpTMJwt8UX8+bhQSpVOfrFo/+ZBoAEY2o h6dSxupQL298A14ut8PoHZDgzgW4mmtlccOVGZxQQhWAgBHPLWvVKNkJAhCU Z8ECRghP9Le1LnxL4PNQHecvPg2NSqukRb5M76Ca3cC3wROxPgLm3fG/4S+j wGcvre3A4hEq7b+qqWfFtAP/ixdwSGIJV0OlhamZORO5sC2HLQLBLmNoDF+1 0iYgrZ0DziFCSp5Ri0KM6qYeai8bHAZhqYG01oXrEPxA8+XV2p9NAyHK3oBp TnAZ4+8LwaYB1zvoEfrV8JdpYIrzjS6gPOE7toLU/AYqWzVdXqpz3TrCALSV cNmH/cIKBKY+XLSx889YEWjILHtdp5nr67zuXx4GekXla5rAU9/WT0228HuB P2+QtRsQICtK1b3wSzcYFT41mZyaxX00+K8Wta4E2tHHhr+MAhY2ObeO2q7F 3d761n4sLtOLrdt18YyUxaRZxU3sn7qzdwRLdewDMhUnebDRaQUNCn2mwqPS KjVtuNncIaZizCuW4Sl59Qbf/XBodDIwrlixV8uGqnyEK+S+3DWCOMWQFAj1 l8B4vWz4yyhLS0uVDd2UTIfxKbtDJ21/dYg1jNUSjLO8BQUsn7e9Zxirzh0D s6iLbVgyGZ5Sfl6hBy6YOU2tADjq4JybLKsfQKyt1918NAVcoARhLZUAf80q IjGnVr9UGrRGMjGFe0nmbkkbNjOBP1ANf/kpuMEtfYNjFu7JO09Y7vrK6vs7 Plhtre9hdVv3EPqxbJ4UJnw0JS+Ds3HLRtQ95B6eS63VWHmmgAXX9LAQU2O6 O+ZRRP++te6GAr7VvPJWxSTq4ISSjZBGOyKRopACXEIbyovgJwbQ8JchwNu5 YRN58q6vrW86lU5z9nGQb3Sh/q4Nguf/s2kg/Nys3XqtnQMYfbiECBcWFisb uqw9f1PQdQvL0UJBt3dA4hIqpGbOiJRyfbfydFHb0vt8OayG+xq+Jb3OQlQH MJq4BWzjk2bwy5v853XDXzv9bvhLO0HyZUAzl0RM8apu7qFWVNAX0tM+epgP 08SKokjLsilxCs7OLGpSzHENTSrVIsdVPDzuGZmHGV9nHgWFJJaQrJ7V9Igl nhF5VOWjuXtyRUOX/iZIrwtcFZhzbue3MruDwDJUw99AHtS18YT2nmEM2VaE IVgHQS31g1MUn12jXxOaf2wRjDw5l/GKfjBY554Ef3/H55J5GCXVe9tWkJJf r8Uq97BkEqJCqrUufIqNWXChPmMT05GpFZj5gJmKWcW66tTxFghXMfPcKShb H308Q8LwGv7qAlyNj5zjVWwnYZfY+8tF1pjOylXarabklskU9V1ChYyepUHU f/Ke3zun7d/92eHUfT+M8kpqOrTwkMFqgJ9DtUT0FuTT3mXAgAHzkVbQcEeh o7EgvVKXFsm8BSYxNJ2uYTnEoHBLgrDWxOAa/mpHUk4tetHrOnJ1rX0OgVlU qZ25e1JxdTuHtYHq0COWoDYFc6eIy6o+amK3/UuLY6ftsSOAdrty45PToUll KIMDX7J7eK52cp0EMOKltR1PFcp5INBjpy8Ym7T3DKNMumeEofWZ1S8MuOGv RoDfi2WMNc3qlmAPjkyEJpVSiznXrCJiM6t46/7BD40fULtuuSrAxsrnzUJ2 nrAEU3L8jFNgXLF2mUWTU7ORqb+11nUOzu7jjfSxXgNmHYw75f/Y+WXUtxlU n9zWzgGswfGNZjsNnqAI1fC3ooGn/V5ZAIWvwQ3W9I0QyGSXNOMOFLp/cJC2 bj5m1KB0XnUzbZLsYJjis2uuWoV/ccV9xwmLPd9YQ2SnXdUDhMYxCq11IfTT 3ww63gImPiCuWFEGrbBKxPOYWn0aRf340fggcLqR2QgNf1VQXN2OGUe6RBaN 7eKXwdlUMYWZayLfipTDkstgYDBp636o/sEx+bwkc0K+uOJ28Ifnn15y9Y8p 0uJQYI4ThL+11rX1TRfx0hYbDGDu47KqKYnm69YRybl1hlH5WNfahxttcKlz PZYNDZaBw3zI9UDYBu4jzDPMLWvV/WjDksmIlPJL8jwTNNCCdL7ovpbUdOAq hy4Hae4YoIoHcZvpmxueJlppY8pa6+bXX17+rqy9Uls4ba27oQA/By54KqY+ 9yQ4NLF0aFTv8xyqmnowswjuO67HsnGBaRDXGfIredFWiTV8owtMZN1dk2k8 5tz8AtyqmCGGKUkuoULOp0qYK9DAafFe7Dum0HBWVs6Zml+Pd25oUqlGR4Op LLOokXKPzd2TDGwZX4+obuqhBIXgQnUNy9H3yseyuk5cIoAQjOux/N/2zuwr qmtb4//Efb0Pd9yTjIwkJzmJotiBDSIQTXKOzY1GjjkxijGJMRp7wdgHRRBF FASRRvqi74umCih6ik6KoodCOlFA6RHIndSURUlbUN2uYv7GfsgIxd67ZO81 11xrzu9bukAcsVlihr8wwuNmh4Z2e6sb2yGOsOWvyw/iROIaHbbuopbvgqag /YPD/KwKZoYLeVy0oLSnb6CwvBG/F+Riyp8NolKmuIaJPUJ4UuM+DrFomtq6 HoWJWOcj5Ikl+tz5CDMfLDnQX8tUA2BJGf6OjI6is5JathLmoOt1P+TdkBS8 Lf6/ERqeXKyT7gksNoBAoMyHx4vWEgoV5WozCmtwJwjeVgwlESnKrifA0JRT Us86IC65xhZVLN2qD24CDyqPX8T2sGzvRKUXVM9mbcZxsovr8Fuk5S5Ft1ku sKQMfyERRm0Z7eyVw1XgCWdeHjAaPwhKr9SK1AkD0gpl9ijrm188DM1kKZWT d3Jp1WQGkVtajz+KUjoKQ/y64PLWEtFOD611lxRDw2+Ss6XMowEmP9EcLn2f AwiF+BUgHdb1vSxRlojhL3w77I/T8nj+l1zR15M3uaoAc375DFAb2hdl1c24 jjHjTyF9KKqQ2Xsmsmpnr/CsKZW6EBBxDUHJRekS6TMmcgsDFPw6NSzrBbhT pmhk5hedq3ftPyk5UuyBhbxY1/eyREFzJRhVDPjFh/k2fEcfrVt+MGCyFyMo ZTvRqIioaTnxnr5BLOCZsiSOojHnFIQ4wvhF0w24ReJaDCXxGeXzXqu8puWa +9td+9NO4RAxDfhxMmBqZM/vBQhY56OLv6CyXp9KJhJFElwKUHKBl1AvzPBX mUFDH8kqqrUZ9/sL7dV1f83I6GheWQMzooV39l6AUKJJ2TQ0hmDyGl2v+8OT 31kqT82tnDFRyiiswc8kZs7zVEC6d2PiG0G4hBNyqu+GWASQyz+JyWOdj1fc 4uC51ZfpAa5pQ0BZyg3aOgQmlpjePms3tJbknr4BLG3KLa3X9b1M0tjyElJC tvx1wSVGkFepCWs59+AMeXNNjayl0yssC0t8MRUVS2SzlfEI86vwY3MXydTK OjDpw2CdJJLo6R4uMSMw+4KEGvuzbORi2vA86IXEHxpwwPtVVkU1hDrAUA1/ cR3PiZN1a6hVwspxf70eHBRfoN4NLBjhd//u+YOt72QvTHDG3O3naXmV+OGU HOlsn4FoePdJGlu1i0svI5dVQwUGBEhU/7gXw57S0CQx9xWeQxIKbeT+ONTc pH0UDH8X0FDAceBBwieKy7K0o6NjhRKZw4RZIRwwUKs+pxp+M5JRWA3v/qo9 Nzb+xwn+IzihYN5BIDlbivcgmKXMD7LX+4HpbGCJTC3Ri8kqoTqlVc3MUhOm JZ48UUMzpw0a/GPzscSoupFUF7SNgRn+wnCK8TFhvpV/jtDU1uUblYtyWLip AdnBIsbq173jO/5Y+33Azs90n+PO39yV0WTjZ1XgpYUFVdN/2trR/TA002bC WpeXJNb5PhShfZpaOyGOsCVTx8fv1JNzDe/IbJz2cFOa1bAJTy62MRTD34iU YqzI1S/d1N7+ocTMctw9x4osmGIpWavZ8rzbLzoXa6Ft5FqUuaX1uEYx79uU IDd8gQMymik/6ujs8QrLwq4TOHlQfIE+9iMQaqTzVV9IYuHRCRVoO5doeGw4 6Ng+NjYGsQ/XY/XF6s5gMBjDXxhXcfpUq2u9rMUBb0GxtIntcePWT4n02Wz7 5tL6NpeJjQwsFWOFnd6ROfM2qMall+EvZhW9I4bZ2d3nG5WDcQT+Pclal1Bk YFyHR8KUcyAdjhnX4eFWxjo6OuYWlI6NmYZXZcRxIJM1AMNfrFnV95j4lzws KtZqnnOOVFQUh7Qrp6SeNQzCx+DDU/bxsUBrDn+0GHnLPISS7OJJCdDunv6A WEVr3RwDkJwlNAEM13kKnY+QvcJD2Malzkd4Te4FCGzkIqitHYZmRslx9N3w F8fPkw5henr/0xkXY8yuYLJXEDUehWX5x+aduhXGGj1ihWW9/TP4VkCCj0XI M545MrUE4wWroIa5ZUhiIW7foLWuYeskEOqisqHdxV/AsmnXACF3tr/fjIze 8Uu1kTu80POsTSYNf/XQeflVzwB254klMl3fi/oprWq+7p6w7bArGulu3n/7 yLUgJs84IzAxwxRjYFpsxbJ8CCUopQUpT0RKMRN+dAvOMDxXcULTtL947RuV w4pJrrnHFzxt5ELn49DwiOPj8aXjM04R3K9wNiT01/AX+/VgjqTrG1E/tbIO GOEhX/jurPe2w/esDrnsOfEIs8j4jKdzWMCfvfnEau+pW3cexMXFyWRvgyyP X8Q0KCDQxAhK2aYq/OvJWjq19bUIAwSexmhBKVPShgE8OVs6fT6jZYaG39x8 xMcVY9oB1CbYxaZfhr+oc/jL1SBDmntgQwqkJDYTinyPI7Iha4B3E/5Gdi7R bL3aOzJnShTo7Oy8cuXKZ0Zr3/vIaNnKdes3bbawtDp//rx7QBJurOeV1Sdk ljP7yNs+KVRLSaiL4TcjwoIqJigN0xVekli3hkrw1uCrZHs3ikoTtQnWFOmL 4S9MPLC8ZI4mbv0Cnnz4Lgo1M7yIlJLpr0B5TQtkE0yp74ZnUr5cVen58+f7 9u1bt95sxVqz3d8fPXT88t4Dx41NzCG4/O3vq/Yeu+MRmsl0Mxy8+NxZ5SYM jBJpk4NC5+OjMJEOk9++gSF0Sr3oGjNHRk+oF/0y/A1JFNvIDf64sEirIp3d fTx+0a8K9fzC/Kq5VbCey+2umKLjqVth27/5bs26jVt37HMLEvjGFOABEWT7 3kMffLLyw+WbDl4YV1z582GCRpUnCQJpbHn5jpOOT4qudLR6+wbRO+/ygzhW IUloGjQ1477hL0x14CmFQ997lBqaX3ryROyNgxldifSZ8r8OCRrEHXhTtttc /Z8Plq3ZYAXhg4USPLwicjZZ7fjfD5fvP25fWrmAkxOE6sBMCaY9bKZ0wSVa JK7Vvjwg5Pi4Snz9YYLON3SWDtw3/B0bG0NzjZDEQl3fyyKBr1AibVLUQYIo oEpkvHjN4ZNlaw6fuDollODx+x/ORqtMbt68qcavQBDKAwN4Ymb5aae3kqcn HHhx6WVa1urpet2PVff2nokGoP6hF8gNf8dX1znruYxahWecIvTxkRjPJgqq UFIMdypD1bFTefXq1VVrN1xw8Joxmvx5P2TF6vUnT55Uy1cgiMUxOjqWW1p/ 1S1+opEq0D82X5v9IC+7e3FfEiZy5KegHbhs+AuJM7ZI6N2iDeTakaklrJ7q nHMkP7tCLdLub0ZGfz9l9+nyNaevuM4YTS7d9jVes97Ozk71axGE6lTUtd31 m5QGuh8orNGWJlJHZw92ATv7phqYHwdnYYa/s0lF6QrUTHAPydD1jSyAZ+1d 3pHZzC3runuCWjq84F0orWqGvxQkOFt2H3/vY6Ptew/NGE2sbU6YbDDz8fFR y9chCLXQ2tHtE5kzKVvqnlAokWmhqKat4xUWN7r4C/RLJFZPUTD8farre5mk sLwRV4em25pzE0ltK0yBFOdgtTJV9f+H34yUSJsgiLCdTTjO3gpaY7p52cp1 5+09poSSK3f8l69av3XbtuZm7mqJE0uW173jOTuuro8/ybcjUnKkmrZja27v xiu6BWcYQFEo9+Ga4e/A4DCmqDP6cXAKyBqyimqxKNFGrjMfEJvfoZqH19Dw SLG0yZMnYlooWPEYl/4U3cGio6PNt1hC4Djwq90d73jvyFwX38TDJ64Yrd6w 2dzCz89PTV+OINQPPN7C/Crbu2/3E3/7MyQ8uVijDeyylk4ssId3imsrMAYJ 2pldvh/LhXwQb8beM0nXNzIXvX2DcellrEkQwh8kd6qUuA8NvymqaPIIzWTC wthlA6edHp6CgoKsrL5Ya7ppmbHJP4zWLVtpssZko4WlpYeHh2pfiyC0RFGF DOVQUL0BcvCmNk3NZuubX2CC7x2Zo6FLEAzuGP7WPXtx6KI/PF2cVSZsf/Ea 4h2Tv7viFpddUrfoKAz/8oXljQ/fDSLX3OMTRZK5teLr6uocHR2/++67r7/+ 2tra2t7eXiKRLO4eCEJX1D974R6cwfqwbvuklNe0aOJCNbLn+Io9icnTxPkJ RZjhrw4FnUZHx9DUIyKlRFf3MAfVjc+xSQePu35pizaLGRwaDyLwHrGohLuT SSKJIWmREYQywDMfFF/A9gcvusZkFam/81Fa34avG1xLvWcmpqNzw9/4jKdw A+edIzllHgoxLr+sgRXP/3wl0Dcqd3HuPAODw3Aqt3eDiL1HIj+rorOb06IE BKFp+geHEzLLmbnPCQdefEb5jOY+iwYSHyy5DOPreBHG4Jk0/I3VgblhR2cP jrHccYccd7PKqmCNvb/f5EUvytIUgkheWcP9QCErksSqbH52BQloE4QiI6Oj 2SV1lx/ETXQ+BgXG5T9XrbJFkRJpE7rQRqWVquucxIzo0PAXK2w54uT1oqtX UXToj3sxGYU1C82YIBjlltbfD0xnHSiHLvrffMRPyZFSECGIuYEhCH0V8cWB jL5WTZ2PhRIZ7tRwqi3CIIlLH19u0rLhL4y6cNFjN0J17rpS9+zFO4Ko3sll 1Qtr3+gbGMourrsXIFAMIg5e/NTcSnJeIIgF0dze7R2Zw14le88ksUSmeqEv DDjo9ZCcbSA+F9xk0vA3XEtpQm//ELq5wSCsnStOB57PooomVrIIT+9CSxYx iLj4CzC5Q43HW178NAoiBKEa8AZFpBQfsw9hakXwWqm4vSsS1+LZhPlc72vT a7Rs+OsdmY36bFq41nTgmYQnE0VHsZ0qjF+k/EoUhEKRuOauX5piEHF8nAyP qM7zLIIwJPBVZUqq8KpCiFFFLgNeUjwVvMJqvE9iCqm5WjL8raxvw1wAQphG LzQdCBnhyUXMiAoCSqrSE56evoFMcc0dv1S2Jgb/4eSTIiyoIt83gtAcY2Nj YonM3jORLSN4R+Ysuj2Nn12Ba9G5pfVqvU3iHbRg+PtmZBStbWKFZZq7ynSa Wju9wrJYNgFPppKLsRBbMwqrnX0ngwic5LZPSkZhjZZNHAhiiVPb1OGm0PkI U7vF1Q5hYwKcp7C8Ue03SSCThr8a286IFpTayG3atCYZXVbVDBkEyybcgzPq m+fv1nzdO5BeUA2/qBhEIKZAeqLeeniCIBZER2dPwLg2xVspicv3Y2G8Wqg2 BQ5E8FKXaGVtf2miUcPf1o5uLNWobtS45cHwmxHIKS7I8yA4IEoGJxTM23X+ qmdAmF8FORqWf2BaffdJmkhcQ67TBMEd4H2Mz5jsfIT/SMgsX9BLyksS4wuu IWkX4q8JnxFNGP46yP1t/aJz1X5mRXr6BmMEpccnvKtOO4UniSRzG0Z39/QL 8ipvefEVg4jLkzSIrdqsmiYIYkGgpje2YNvINb2D4guU1/SGD8v7JQMrG9o1 ep9LFmb4CwOsGk+bKa5B8QTNTfJbO15BqGLt59fc43NL6+fwOOh63Z+WV+nw bhC5FyCEIDJ39CEIglNAfnH73QVtJeUHn0TnYQO+1jwilxpqN/yFCIWl4/ll DWo54RSk9W2QSrDOQYgIlfVts32481VfSo6UdZqgEpdrgBBCDwURgtBfnrV3 eYVnsc5HeMeLKuYvtnkckY2L4fW60781bB6FiWzUZ/jryRNhDYbqp1JkZHQ0 p6ReUeHnSUzebBHwZXdvcraU1Rlihns/UJhX1qBpPziCILRGd09/eHIxawSw vRMlzK+aoxEAhjiP0EzcL25q7dTmrS4R+gaGcIdLdWUbtHqEoV5Fj0JF4Pam qI/GCstmLNmFIMLPkth7KAaRILfgDMiSdKWcTBCEpoG3OyVHem6iSfnYjdDI 1JLZRCpGR8ceBKXDx47f4HHWaEmvUYvh79DwCP5Bk0TqsXaCkBQYN1kfeMk1 ViSumV5vDB+DK153T1AMIu7BGYXljRRECGKJAGGiUCJjk0kYzXwic1qezxAv RkZHXfwFODXVfmP1UkB1w98wfhGeYY7dcCWplY33LrEdc2ff1Omlfc87exJF kmvu8SyIHLkW9DA0E54oiGsq3gBBEHpKjez5/UAhGz3Gne/qpm6twqQUt/JP 3QpT40IKgTDD34iU4kX8elNb14+X/OEvqEzD4Gzg7AJ1KWfTVWh/+To+4ynz t8I9NY/QTLFExikfLoIgdAgMFP6KnY8P4nJL6xWnyjDnvPV4XBLkjFMEmaKq nUUb/o6NvZUmXrSN5sDgcEqO9OztCLbyGZHyzsonJKRx6U+vuMUpBhFPnqio Qqa1XnuCIPSL3v6huPSyEw68ty1pjuGJmeWss2xw6A3W6px3jiRbIrWDq1Vy w98FzPPT5DKS8JdaRNltZ3cfj190dMK7Ci4tr8p4e/XWju5YYRkayuMBn/QK zyqRPqMgQhCEMsBYIRLXXnSNYRPRkIRCzEdgyMLV8gsuMa97ByQSyZ07d44c OXLw4EFbW9uoqKjBQdLoWyTM8DcwTlnDX4jpKPkFacKCrtXY8hKSC6aO5eDF hxiBP2rteBUjKGV9r1jRB0GktJKCCEEQi2SKlN/D0MyG5pd9A0MwXz1g62O5 8+Bmc4u1ppuMVpkuNzYxXrtho5n5vn37qqrIJGWRLNTwF8vt7gcKlb9EibTp lhef/U09QjMhsvwl92KLFpT+cS+GBZFj9iGPI7LLqpsXXRtAEAShSFNb16Mw EZMZh3lsdnHd5n9+/7cPlxut3njo+GWHhxF3fRJsb3hYfP0txJQdO3Y2NZFi 5CKJSy/Dzal5V64gm8DMUZlVx6HhEWF+le3dKLZmFZok7uzue9beFZlaApnm ZBC5Eeodmf20uoWCCEEQmgCGLF6SGDsf//nDpfc/Nlqx1szRM8o3poAd3lF5 3/znyBqTjadPn9b1/eorShr+Dg69Oe0UDh9Lm0/m61XPAMSLYxPyjGdvR/Cz K2pkHfA/WXDBfiLfqNzymhbVa4wJgiDmBQax5GzpOotvPvyH8W+2joqhBA9P XuYqUwsLS0uZbGEr+QRDGcNflOW87p4whyRLc3s3ZBlMTgeCVKzwaRi/iFl2 2shdIP2icytqWymIEAShfXbu3PnZinXuwYLp0QSOPT/8tmGTeWJioq5vU4+Z 2/C3ofkllhM3tc3cPi+pbXX2TWXyjNcfJrgFpzOLdmxEfRKTV1HXRkGEIAhd AZPhrVu3frbSZMZQAseBX+1MN5jxeDxd36l+M5vhL4z/2PrBSxJP+dEUG4Lv z/ucdAhjFiQYRPxj8ysb2tUiMkkQBKEi1tbWy4xN7vokzBhNtu89tNHMXCAQ 6Po29Rs0/D14wdf5vveZM2f27Nmza9euo0ePnr/itP+c1znnSEUhrN6+QdYo ZH3a65vjHv8+7fWDra/NhGNaQGx+FQURgiA4hqOj41rTTd//fG56KLnrm2C0 esO2bV92dS1ew5BAEgSFfze2fO8joxWr13++ct3nK9YZrTJ9/+MV73+6Li75 7R49EzGwPuX15U+uVodcdv328OAFPwwiQfEF1Y3kd0YQBEdpbGzcum3bcmPT k5dcFEOJq3+y2Rc712/c7OzsrOt71HsGBwd/+eWXT5atMTX/+ux1N/dggScv 87Kzn9W/rD9dvmb37t1Z+WWuAULr04+3HXY1+fct8x+cvz3haSM31Q1OKKiV dej6GxAEQcxPVFTUFgtLmCpv3bHvyNkbv1+8s+/H0yvXmplu2PzTTz/195Pu iqoEBQVtNDPfZLXjYWjGlDLs7XsPffip8Qcrv4Qgsubbm1/86LLv7OMzThEh ieLaJgoiBEHoGWlpaXv27NlktmWt6aY1JhshjlhYWl2/fr23lzQh1cD+/fsh WF9zCZy+nOgWJFhmvP6//vujL2wcTziEhSaJVVEPJgiC0DmQgwgEAg8Pj3v3 7oWEhDQ0aMSOfAny6tUrSysrYxPz2Qrnvtz1/ecr1sYkpun6TgmCIAju0t7e bmFpabr5q9miya59P28yMxeJRLq+U4IgCIK7DA8Pf/XVV8uMTadsmrBjg8W/ zLdYksAmQRAEMTd2dnar1208fOLK9FDyx63HRqtMra2tqX+EIAiCmJvy8nJL qy+Wr1o/pQz7mkugsYn5ZnOL6OhoXd8jQRAEoQeEhIRgGbb5tm8OHL1w6Pjl r/5v/zJjEzPzLfb29rq+O4IgCEJvEAgEe/fuNTO3MN1gZrLebJPZlu3btwcG BtIaF0EQBLEghoeH8/PzQ0NDIYikp6dTOw9BEARBEARBEARBEARBEARBEARB EARBEARBEARBEARBEARBEIbE/wPtRC57 "], {{0, 325}, {538, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538, 325}, PlotRange->{{0, 538}, {0, 325}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7721198445858107`*^9}, CellLabel->"Out[3]=", CellID->763352877] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ Cell[BoxData["KeyCombine"], "InlineFormula", FontFamily->"Source Sans Pro"], " does not change the ordering of keys:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7721195502472477`*^9, 3.7721195553424597`*^9}, { 3.772119656520042*^9, 3.772119656809309*^9}, 3.7721200014981203`*^9}, CellID->190508843], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KeyCombine", "[", RowBox[{ RowBox[{ RowBox[{"#", "^", "2"}], "&"}], ",", RowBox[{"<|", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "\[Rule]", "1"}], ",", RowBox[{"0", "\[Rule]", "2"}], ",", RowBox[{"1", "\[Rule]", "3"}], ",", RowBox[{"2", "\[Rule]", "4"}]}], "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.772119559076261*^9, 3.772119576828946*^9}, { 3.772119608660035*^9, 3.7721196100154543`*^9}}, CellLabel->"In[1]:=", CellID->880322340], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"1", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], ",", RowBox[{"0", "\[Rule]", RowBox[{"{", "2", "}"}]}], ",", RowBox[{"4", "\[Rule]", RowBox[{"{", "4", "}"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.772119577174037*^9, 3.772119610403758*^9}, CellLabel->"Out[1]=", CellID->193625785] }, Open ]] }, Closed]] }, 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["Szabolcs Horv\[AAcute]t", "Text", CellID->631009521] }, 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["associations", "Item", CellID->637458747], Cell["list manipulation", "Item", CellID->542849356] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Data Manipulation & Analysis", { False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "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, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "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, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "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, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "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, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[ "Core Language & Structure", { False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "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, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "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, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "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, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj81KBDEQhEFcnRHxLniYk7d5iGHWhYWVlW1foDfbjsFMEvrnkLc3OSh66oaqrq966k\ bYgJZAcHM0zaYj3M6f5L7o8nEl1wcvCk9bVBxeMfpsAdWnODwPU8RQxAs8zolpOGBcDBeqCiibU2Oq\ 0XulVaSfTNNaL90I3RunTKwF7mZUWhJ7kgo95hYsP9A2TxZIupeLVzzXbbPDIPQr9FsK9FdpzVOwNf\ 4HPuyjEmeu3kaAfooF7CxUX70/kSRjR+8lE3Q7i655vgGZFWC4"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364] }, 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["KeyMap", "Item", CellID->876242341], Cell["Merge", "Item", CellID->515416035], Cell["GroupBy", "Item", CellID->989726367] }, 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["MapReduceOperator", "Item", CellID->469344615] }, 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[TextData[ButtonBox["Function Like KeyMap That Combines Values in Case of \ Key Collisions\[Dash]Mathematica Stack Exchange", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathematica.stackexchange.com/questions/143328/function-like-\ keymap-that-combines-values-in-case-of-key-collisions/143329#143329"], None}, ButtonNote-> "https://mathematica.stackexchange.com/questions/143328/function-like-\ keymap-that-combines-values-in-case-of-key-collisions/143329#143329"]], "Item",\ CellID->312028865] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->589765368] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->851691753] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "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["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "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]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->71422750] }, 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[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 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->131115484] }, 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[TextData[{ "Thank you to ", ButtonBox["Kuba Podkalicki", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathematica.stackexchange.com/users/5478/kuba"], None}, ButtonNote->"https://mathematica.stackexchange.com/users/5478/kuba"], " for help with the implementation (see External Links)." }], "Text", CellChangeTimes->{{3.867162800727729*^9, 3.867162826000916*^9}}, CellID->538464369] }, 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->"KeyCombine | 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.867162875664345`16.339967453064574*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.867162875712279`16.33996745306996*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 9, 2022)", 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.1 for Linux x86 (64-bit) (June 9, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"2ab27d16-9bfd-47ee-914a-ec6d987360aa", CellTags->{"Name", "TemplateCell", "Title"}, CellID->260091662]}, "TemplateCell"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"2ab27d16-9bfd-47ee-914a-ec6d987360aa", CellTags->{"Name", "TemplateCell", "Title"}, CellID->260091662], Cell[722, 27, 198, 5, 70, "Text",ExpressionUUID->"bc79759d-18dd-40c8-b4f6-b0b3a80d1c29", CellTags->{"Description", "TemplateCell"}, CellID->160469833]}, "Title"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"2ab27d16-9bfd-47ee-914a-ec6d987360aa", CellTags->{"Name", "TemplateCell", "Title"}, CellID->260091662]}, "Description"->{ Cell[722, 27, 198, 5, 70, "Text",ExpressionUUID->"bc79759d-18dd-40c8-b4f6-b0b3a80d1c29", CellTags->{"Description", "TemplateCell"}, CellID->160469833]}, "Definition"->{ Cell[945, 36, 1206, 29, 70, "Section",ExpressionUUID->"d998ed75-e674-4d98-89b5-aa5aa294b5be", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[945, 36, 1206, 29, 70, "Section",ExpressionUUID->"d998ed75-e674-4d98-89b5-aa5aa294b5be", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[945, 36, 1206, 29, 70, "Section",ExpressionUUID->"d998ed75-e674-4d98-89b5-aa5aa294b5be", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[4263, 129, 1980, 50, 70, "Subsection",ExpressionUUID->"bd57dbd1-6673-4b8f-a51d-1416725e9378", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[7725, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"05052cac-c9eb-4924-852a-1cf107c24109", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[9944, 309, 7029, 152, 70, "Section",ExpressionUUID->"e88d1c3f-3cd2-49a1-8cb1-514effecce6c", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[72446, 1602, 1026, 26, 70, "Subsection",ExpressionUUID->"e977fb18-31ff-4529-8aca-cb0da7f97d49", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[73571, 1636, 996, 26, 70, "Subsection",ExpressionUUID->"5ac46df8-36ca-4981-ad51-7efb08c5d20f", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[74711, 1673, 221, 6, 70, "Subsection",ExpressionUUID->"1e6b7bb4-72a9-45f3-ae4c-6265f7c2035c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[83313, 1939, 980, 26, 70, "Subsection",ExpressionUUID->"bb6759bb-0aeb-40cf-b531-ea10e2342b56", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[84465, 1979, 1039, 26, 70, "Subsection",ExpressionUUID->"5e5f8147-7885-4bf4-9d13-7bc4960f520b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[85597, 2013, 1084, 26, 70, "Subsection",ExpressionUUID->"4c54c4c4-22f8-4f6c-8457-f932ca162050", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[87237, 2054, 923, 26, 70, "Subsection",ExpressionUUID->"448bf6a3-09f8-4449-8f02-e30add62320e", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[88716, 2097, 1874, 45, 70, "Subsection",ExpressionUUID->"69870798-7e54-41e4-9810-0ae50dd1e78f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[90947, 2163, 955, 25, 70, "Subsection",ExpressionUUID->"ba1a77b5-8dbc-4bb8-8e09-6d6ed87cfb95", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[91927, 2192, 1174, 31, 70, "Subsubsection",ExpressionUUID->"77e1bbc2-578b-4f36-9994-4c47e8cca0dc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[93230, 2232, 1113, 29, 70, "Subsubsection",ExpressionUUID->"368ae135-80d6-473d-927f-51ebac27a0e1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[96481, 2330, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d96459a6-730b-4f4a-b1a5-d4b83e9305e7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[99950, 2433, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1254ed0f-13d4-4357-a2cf-a65638945245", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[105889, 2603, 1071, 27, 70, "Subsubsection",ExpressionUUID->"2aff7899-647e-4fc8-b2bb-16e5edc23116", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[108242, 2675, 1155, 28, 70, "Section",ExpressionUUID->"345a7e6f-f74d-40d8-91e9-09a3c978ee19", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[109844, 2720, 1033, 26, 70, "Section",ExpressionUUID->"498841e1-4f0b-4833-b597-369b59b93156", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2385, 74, 1621, 41, 70, "Input",ExpressionUUID->"2fa1c226-167d-441b-80ba-880b07e7e4b3", CellTags->"TabNext", CellID->770121951], Cell[9157, 280, 738, 23, 70, "Notes",ExpressionUUID->"d92fd168-75f8-4178-a7cb-68ad3ac4ca81", CellTags->"TabNext", CellID->485172630], Cell[86684, 2041, 516, 8, 70, "Text",ExpressionUUID->"d8ab0135-e275-4039-b755-ce54e92af38a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[110880, 2748, 515, 8, 70, "Text",ExpressionUUID->"5077f9b0-15c3-44f0-9a72-451e2ecd2454", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[4043, 120, 195, 5, 70, "Section",ExpressionUUID->"f00e32c1-05b3-4f82-9005-874220ef44f3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[4043, 120, 195, 5, 70, "Section",ExpressionUUID->"f00e32c1-05b3-4f82-9005-874220ef44f3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[72172, 1593, 249, 5, 70, "Section",ExpressionUUID->"e4487a87-5563-4982-8d09-585dbcffc462", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[4263, 129, 1980, 50, 70, "Subsection",ExpressionUUID->"bd57dbd1-6673-4b8f-a51d-1416725e9378", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[7725, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"05052cac-c9eb-4924-852a-1cf107c24109", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[7725, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"05052cac-c9eb-4924-852a-1cf107c24109", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[9944, 309, 7029, 152, 70, "Section",ExpressionUUID->"e88d1c3f-3cd2-49a1-8cb1-514effecce6c", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[72172, 1593, 249, 5, 70, "Section",ExpressionUUID->"e4487a87-5563-4982-8d09-585dbcffc462", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[72446, 1602, 1026, 26, 70, "Subsection",ExpressionUUID->"e977fb18-31ff-4529-8aca-cb0da7f97d49", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[72446, 1602, 1026, 26, 70, "Subsection",ExpressionUUID->"e977fb18-31ff-4529-8aca-cb0da7f97d49", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[73571, 1636, 996, 26, 70, "Subsection",ExpressionUUID->"5ac46df8-36ca-4981-ad51-7efb08c5d20f", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[74711, 1673, 221, 6, 70, "Subsection",ExpressionUUID->"1e6b7bb4-72a9-45f3-ae4c-6265f7c2035c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[74935, 1681, 8341, 253, 70, "Output",ExpressionUUID->"af4ef358-7499-4d39-8152-92f6895d643b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364]}, "Categories-Checkboxes"->{ Cell[74935, 1681, 8341, 253, 70, "Output",ExpressionUUID->"af4ef358-7499-4d39-8152-92f6895d643b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364]}, "CheckboxCell"->{ Cell[74935, 1681, 8341, 253, 70, "Output",ExpressionUUID->"af4ef358-7499-4d39-8152-92f6895d643b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364], Cell[94346, 2263, 2098, 62, 70, "Output",ExpressionUUID->"7e239a68-81c1-40e3-a1b1-b05080755906", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[97764, 2365, 2149, 63, 70, "Output",ExpressionUUID->"bb8295ab-fa19-443e-91fe-2ccd67ed26f1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[101866, 2481, 3986, 117, 70, "Output",ExpressionUUID->"3efdeb3e-e6af-4d43-b769-534c79f86af3", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[106963, 2632, 1218, 36, 70, "Output",ExpressionUUID->"0d083af1-9489-469d-bcb8-ce2b1e196f6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[83313, 1939, 980, 26, 70, "Subsection",ExpressionUUID->"bb6759bb-0aeb-40cf-b531-ea10e2342b56", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[84465, 1979, 1039, 26, 70, "Subsection",ExpressionUUID->"5e5f8147-7885-4bf4-9d13-7bc4960f520b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[85597, 2013, 1084, 26, 70, "Subsection",ExpressionUUID->"4c54c4c4-22f8-4f6c-8457-f932ca162050", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[86684, 2041, 516, 8, 70, "Text",ExpressionUUID->"d8ab0135-e275-4039-b755-ce54e92af38a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[90615, 2146, 158, 5, 70, "Input",ExpressionUUID->"fb3f60d6-d828-4393-925d-a8b0a7a1dbd5", CellTags->"DefaultContent", CellID->946203791], Cell[90776, 2153, 122, 4, 70, "Output",ExpressionUUID->"ec1dac6a-56aa-479a-962f-2db1a30ab758", CellTags->"DefaultContent", CellID->168370258], Cell[93104, 2225, 89, 2, 70, "Text",ExpressionUUID->"4d1805aa-ca9d-46d1-86f1-50b088e981af", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[110880, 2748, 515, 8, 70, "Text",ExpressionUUID->"5077f9b0-15c3-44f0-9a72-451e2ecd2454", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[87237, 2054, 923, 26, 70, "Subsection",ExpressionUUID->"448bf6a3-09f8-4449-8f02-e30add62320e", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[88716, 2097, 1874, 45, 70, "Subsection",ExpressionUUID->"69870798-7e54-41e4-9810-0ae50dd1e78f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[88716, 2097, 1874, 45, 70, "Subsection",ExpressionUUID->"69870798-7e54-41e4-9810-0ae50dd1e78f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[90947, 2163, 955, 25, 70, "Subsection",ExpressionUUID->"ba1a77b5-8dbc-4bb8-8e09-6d6ed87cfb95", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[91927, 2192, 1174, 31, 70, "Subsubsection",ExpressionUUID->"77e1bbc2-578b-4f36-9994-4c47e8cca0dc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[91927, 2192, 1174, 31, 70, "Subsubsection",ExpressionUUID->"77e1bbc2-578b-4f36-9994-4c47e8cca0dc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[93104, 2225, 89, 2, 70, "Text",ExpressionUUID->"4d1805aa-ca9d-46d1-86f1-50b088e981af", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[93230, 2232, 1113, 29, 70, "Subsubsection",ExpressionUUID->"368ae135-80d6-473d-927f-51ebac27a0e1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[94346, 2263, 2098, 62, 70, "Output",ExpressionUUID->"7e239a68-81c1-40e3-a1b1-b05080755906", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[93230, 2232, 1113, 29, 70, "Subsubsection",ExpressionUUID->"368ae135-80d6-473d-927f-51ebac27a0e1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[94346, 2263, 2098, 62, 70, "Output",ExpressionUUID->"7e239a68-81c1-40e3-a1b1-b05080755906", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[96481, 2330, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d96459a6-730b-4f4a-b1a5-d4b83e9305e7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[97764, 2365, 2149, 63, 70, "Output",ExpressionUUID->"bb8295ab-fa19-443e-91fe-2ccd67ed26f1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[96481, 2330, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d96459a6-730b-4f4a-b1a5-d4b83e9305e7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[97764, 2365, 2149, 63, 70, "Output",ExpressionUUID->"bb8295ab-fa19-443e-91fe-2ccd67ed26f1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[99950, 2433, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1254ed0f-13d4-4357-a2cf-a65638945245", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[101866, 2481, 3986, 117, 70, "Output",ExpressionUUID->"3efdeb3e-e6af-4d43-b769-534c79f86af3", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[99950, 2433, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1254ed0f-13d4-4357-a2cf-a65638945245", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[101866, 2481, 3986, 117, 70, "Output",ExpressionUUID->"3efdeb3e-e6af-4d43-b769-534c79f86af3", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[105889, 2603, 1071, 27, 70, "Subsubsection",ExpressionUUID->"2aff7899-647e-4fc8-b2bb-16e5edc23116", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[105889, 2603, 1071, 27, 70, "Subsubsection",ExpressionUUID->"2aff7899-647e-4fc8-b2bb-16e5edc23116", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[106963, 2632, 1218, 36, 70, "Output",ExpressionUUID->"0d083af1-9489-469d-bcb8-ce2b1e196f6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[106963, 2632, 1218, 36, 70, "Output",ExpressionUUID->"0d083af1-9489-469d-bcb8-ce2b1e196f6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[108242, 2675, 1155, 28, 70, "Section",ExpressionUUID->"345a7e6f-f74d-40d8-91e9-09a3c978ee19", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[109844, 2720, 1033, 26, 70, "Section",ExpressionUUID->"498841e1-4f0b-4833-b597-369b59b93156", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 234393, 5076}, {"TemplateCell", 234575, 5080}, {"Title", 234910, 5087}, {"Description", 235091, 5091}, {"Definition", 235269, 5095}, {"Function", 235465, 5099}, {"TemplateCellGroup", 235670, 5103}, {"TabNext", 239502, 5164}, {"Documentation", 240132, 5177}, {"TemplateSection", 240325, 5181}, {"Usage", 240698, 5188}, {"Details & Options", 240892, 5192}, {"Notes", 241095, 5196}, {"Examples", 241301, 5200}, {"Source & Additional Information", 241510, 5204}, {"Contributed By", 241722, 5208}, {"ContributorInformation", 241957, 5212}, {"Keywords", 242178, 5216}, {"Categories", 242369, 5220}, {"Categories-Checkboxes", 242765, 5227}, {"CheckboxCell", 242978, 5231}, {"Related Symbols", 244100, 5247}, {"Related Resource Objects", 244312, 5251}, {"Source/Reference Citation", 244535, 5255}, {"DefaultContent", 244748, 5259}, {"Links", 245554, 5275}, {"Tests", 245737, 5279}, {"VerificationTests", 245954, 5283}, {"Compatibility", 246167, 5287}, {"CompatibilityWolframLanguageVersionRequired", 246396, 5291}, {"Wolfram Language Version", 246668, 5295}, {"ScrapeDefault", 246929, 5299}, {"CompatibilityOperatingSystem", 247132, 5303}, {"Operating System", 247601, 5310}, {"CompatibilityOperatingSystem-Checkboxes", 247865, 5314}, {"CompatibilityFeatures", 248122, 5318}, {"Required Features", 248572, 5325}, {"CompatibilityFeatures-Checkboxes", 248823, 5329}, {"CompatibilityEvaluationEnvironment", 249079, 5333}, {"Environments", 249559, 5340}, {"CompatibilityEvaluationEnvironment-Checkboxes", 249831, 5344}, {"Cloud Support", 250093, 5348}, {"CompatibilityCloudSupport", 250338, 5352}, {"CompatibilityCloudSupport-Checkboxes", 250817, 5359}, {"Author Notes", 251060, 5363}, {"Submission Notes", 251260, 5367} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"2ab27d16-9bfd-47ee-914a-ec6d987360aa", CellTags->{"Name", "TemplateCell", "Title"}, CellID->260091662], Cell[722, 27, 198, 5, 70, "Text",ExpressionUUID->"bc79759d-18dd-40c8-b4f6-b0b3a80d1c29", CellTags->{"Description", "TemplateCell"}, CellID->160469833], Cell[CellGroupData[{ Cell[945, 36, 1206, 29, 70, "Section",ExpressionUUID->"d998ed75-e674-4d98-89b5-aa5aa294b5be", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2154, 67, 228, 5, 70, "Input",ExpressionUUID->"bd59ea20-17d3-40a7-a20d-e021c086ad25", CellID->848037028], Cell[2385, 74, 1621, 41, 70, "Input",ExpressionUUID->"2fa1c226-167d-441b-80ba-880b07e7e4b3", CellTags->"TabNext", CellID->770121951] }, Open ]], Cell[CellGroupData[{ Cell[4043, 120, 195, 5, 70, "Section",ExpressionUUID->"f00e32c1-05b3-4f82-9005-874220ef44f3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[4263, 129, 1980, 50, 70, "Subsection",ExpressionUUID->"bd57dbd1-6673-4b8f-a51d-1416725e9378", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[6268, 183, 188, 6, 70, "UsageInputs",ExpressionUUID->"c3a90095-e109-4571-8ea4-41744378d89e", CellID->258764727], Cell[6459, 191, 332, 11, 70, "UsageDescription",ExpressionUUID->"f403f507-fad1-4d1b-93c2-642a6b3ac65e", CellID->68536851] }, Open ]], Cell[CellGroupData[{ Cell[6828, 207, 221, 7, 70, "UsageInputs",ExpressionUUID->"fe21f542-dd93-4efa-b45e-562467a45406", CellID->493600363], Cell[7052, 216, 227, 7, 70, "UsageDescription",ExpressionUUID->"7d65d813-fb47-4bf1-8b58-c09fd326ac43", CellID->135855003] }, Open ]], Cell[CellGroupData[{ Cell[7316, 228, 140, 4, 70, "UsageInputs",ExpressionUUID->"ae070ace-c58e-4cd3-b2dc-bbc8f7aa0f5b", CellID->628131524], Cell[7459, 234, 217, 6, 70, "UsageDescription",ExpressionUUID->"3ea6c01b-b7d1-4fc6-8c91-615219c667c3", CellID->293599849] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7725, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"05052cac-c9eb-4924-852a-1cf107c24109", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[9157, 280, 738, 23, 70, "Notes",ExpressionUUID->"d92fd168-75f8-4178-a7cb-68ad3ac4ca81", CellTags->"TabNext", CellID->485172630] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9944, 309, 7029, 152, 70, "Section",ExpressionUUID->"e88d1c3f-3cd2-49a1-8cb1-514effecce6c", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[16998, 465, 75, 2, 70, "Subsection",ExpressionUUID->"e78fb4e7-4ea9-45bd-a4a8-8ec921d4de9b", CellID->904125756], Cell[17076, 469, 806, 23, 70, "Text",ExpressionUUID->"c5440ea2-766f-446a-aa37-7309f34fc176", CellID->79623790], Cell[CellGroupData[{ Cell[17907, 496, 544, 18, 70, "Input",ExpressionUUID->"6df52ebf-a88d-4724-9fc5-247c15f8b6da", CellID->209301275], Cell[18454, 516, 476, 15, 70, "Output",ExpressionUUID->"78ea58d2-8be7-4cff-a026-d8853aff7390", CellID->350649693] }, Open ]], Cell[CellGroupData[{ Cell[18967, 536, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"f237e949-9abf-4693-90d9-0bdafaf269d7", CellID->14107562], Cell[19113, 542, 212, 4, 70, "Text",ExpressionUUID->"4d639186-1751-420b-b7b6-1b203f1ad10b", CellID->248743862], Cell[CellGroupData[{ Cell[19350, 550, 560, 18, 70, "Input",ExpressionUUID->"2f29cc8a-d20a-467c-99e8-114d234086bf", CellID->531378825], Cell[19913, 570, 378, 13, 70, "Output",ExpressionUUID->"75cc39bf-f4df-476e-b08f-b8fa9be94fcc", CellID->203405346] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20352, 590, 73, 2, 70, "Subsection",ExpressionUUID->"bf27b875-1c6b-4142-80f0-81ad1ed38bc9", CellID->605265931], Cell[20428, 594, 312, 8, 70, "Text",ExpressionUUID->"c469c27b-12e1-4ec8-9231-e3b70c7eabbf", CellID->630801172], Cell[CellGroupData[{ Cell[20765, 606, 359, 10, 70, "Input",ExpressionUUID->"7c9e30f4-5a5b-4afc-99d6-d9a3de1b565d", CellID->48426828], Cell[21127, 618, 660, 17, 70, "Output",ExpressionUUID->"a26a057a-770a-4b12-b6f5-e6fed1cb078b", CellID->171252416] }, Open ]], Cell[CellGroupData[{ Cell[21824, 640, 367, 12, 70, "Input",ExpressionUUID->"a2c4a6dc-26a6-4580-92aa-38c06532ab49", CellID->55764018], Cell[22194, 654, 410, 11, 70, "Output",ExpressionUUID->"83c59e58-0fb2-4829-a076-06db9fea0903", CellID->942763015] }, Open ]], Cell[CellGroupData[{ Cell[22641, 670, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d80e86d6-0447-41ac-9ea8-73d834aadcb1", CellID->14107563], Cell[22787, 676, 283, 6, 70, "Text",ExpressionUUID->"633cd665-322a-42c3-bb49-1513f9b38a31", CellID->544771695], Cell[23073, 684, 869, 24, 70, "Input",ExpressionUUID->"d5527aff-7fa1-4ecd-bf46-7e466e71be1b", CellID->608493900], Cell[CellGroupData[{ Cell[23967, 712, 421, 11, 70, "Input",ExpressionUUID->"e230c67b-3652-4e3b-9fdb-7e9343deb82c", CellID->112732386], Cell[24391, 725, 2721, 77, 70, "Output",ExpressionUUID->"aa827462-107f-4b56-acef-49e07c75d467", CellID->569400224] }, Open ]], Cell[CellGroupData[{ Cell[27149, 807, 394, 10, 70, "Input",ExpressionUUID->"61abcbd2-463a-4df1-91c4-66ad03db596a", CellID->70351326], Cell[27546, 819, 43091, 713, 70, "Output",ExpressionUUID->"98b86ebf-bd9e-4409-b421-445c50d6bd82", CellID->763352877] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[70698, 1539, 85, 2, 70, "Subsection",ExpressionUUID->"05799332-4b89-43bc-bdd3-f74ce96520fa", CellID->232113220], Cell[70786, 1543, 332, 8, 70, "Text",ExpressionUUID->"2bf1e3ad-373b-4387-a252-02be16a705c5", CellID->190508843], Cell[CellGroupData[{ Cell[71143, 1555, 530, 16, 70, "Input",ExpressionUUID->"efd69f08-50b2-4214-8407-3756217b5372", CellID->880322340], Cell[71676, 1573, 435, 13, 70, "Output",ExpressionUUID->"bdce9be4-f43a-4284-8dd3-54fcbf5936f7", CellID->193625785] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[72172, 1593, 249, 5, 70, "Section",ExpressionUUID->"e4487a87-5563-4982-8d09-585dbcffc462", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[72446, 1602, 1026, 26, 70, "Subsection",ExpressionUUID->"e977fb18-31ff-4529-8aca-cb0da7f97d49", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[73475, 1630, 59, 1, 70, "Text",ExpressionUUID->"5fcba1f6-a821-4061-9055-c2f68026a6a1", CellID->631009521] }, Open ]], Cell[CellGroupData[{ Cell[73571, 1636, 996, 26, 70, "Subsection",ExpressionUUID->"5ac46df8-36ca-4981-ad51-7efb08c5d20f", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[74570, 1664, 48, 1, 70, "Item",ExpressionUUID->"8a11ac05-e1f1-4035-b9f5-fd25537d0bab", CellID->637458747], Cell[74621, 1667, 53, 1, 70, "Item",ExpressionUUID->"71d41865-7f8a-4c55-a306-ca5bee5731b7", CellID->542849356] }, Open ]], Cell[CellGroupData[{ Cell[74711, 1673, 221, 6, 70, "Subsection",ExpressionUUID->"1e6b7bb4-72a9-45f3-ae4c-6265f7c2035c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[74935, 1681, 8341, 253, 70, "Output",ExpressionUUID->"af4ef358-7499-4d39-8152-92f6895d643b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364] }, Open ]], Cell[CellGroupData[{ Cell[83313, 1939, 980, 26, 70, "Subsection",ExpressionUUID->"bb6759bb-0aeb-40cf-b531-ea10e2342b56", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[84296, 1967, 42, 1, 70, "Item",ExpressionUUID->"cb5f9925-4b76-4c48-a9a3-8c9fd42067b6", CellID->876242341], Cell[84341, 1970, 41, 1, 70, "Item",ExpressionUUID->"89acddb3-bc04-4227-9391-af26cd03ad67", CellID->515416035], Cell[84385, 1973, 43, 1, 70, "Item",ExpressionUUID->"1e003e01-bf33-4f5a-8384-6f0103cfdfc4", CellID->989726367] }, Open ]], Cell[CellGroupData[{ Cell[84465, 1979, 1039, 26, 70, "Subsection",ExpressionUUID->"5e5f8147-7885-4bf4-9d13-7bc4960f520b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[85507, 2007, 53, 1, 70, "Item",ExpressionUUID->"660d0ddd-162c-4557-9746-c7be05fb891e", CellID->469344615] }, Open ]], Cell[CellGroupData[{ Cell[85597, 2013, 1084, 26, 70, "Subsection",ExpressionUUID->"4c54c4c4-22f8-4f6c-8457-f932ca162050", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[86684, 2041, 516, 8, 70, "Text",ExpressionUUID->"d8ab0135-e275-4039-b755-ce54e92af38a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[87237, 2054, 923, 26, 70, "Subsection",ExpressionUUID->"448bf6a3-09f8-4449-8f02-e30add62320e", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[88163, 2082, 516, 10, 70, "Item",ExpressionUUID->"fa5b4d2e-9ab2-4367-9890-9f0ef565466f", CellID->312028865] }, Open ]], Cell[CellGroupData[{ Cell[88716, 2097, 1874, 45, 70, "Subsection",ExpressionUUID->"69870798-7e54-41e4-9810-0ae50dd1e78f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[90615, 2146, 158, 5, 70, "Input",ExpressionUUID->"fb3f60d6-d828-4393-925d-a8b0a7a1dbd5", CellTags->"DefaultContent", CellID->946203791], Cell[90776, 2153, 122, 4, 70, "Output",ExpressionUUID->"ec1dac6a-56aa-479a-962f-2db1a30ab758", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90947, 2163, 955, 25, 70, "Subsection",ExpressionUUID->"ba1a77b5-8dbc-4bb8-8e09-6d6ed87cfb95", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[91927, 2192, 1174, 31, 70, "Subsubsection",ExpressionUUID->"77e1bbc2-578b-4f36-9994-4c47e8cca0dc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[93104, 2225, 89, 2, 70, "Text",ExpressionUUID->"4d1805aa-ca9d-46d1-86f1-50b088e981af", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[93230, 2232, 1113, 29, 70, "Subsubsection",ExpressionUUID->"368ae135-80d6-473d-927f-51ebac27a0e1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[94346, 2263, 2098, 62, 70, "Output",ExpressionUUID->"7e239a68-81c1-40e3-a1b1-b05080755906", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[96481, 2330, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d96459a6-730b-4f4a-b1a5-d4b83e9305e7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[97764, 2365, 2149, 63, 70, "Output",ExpressionUUID->"bb8295ab-fa19-443e-91fe-2ccd67ed26f1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[99950, 2433, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1254ed0f-13d4-4357-a2cf-a65638945245", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[101866, 2481, 3986, 117, 70, "Output",ExpressionUUID->"3efdeb3e-e6af-4d43-b769-534c79f86af3", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[105889, 2603, 1071, 27, 70, "Subsubsection",ExpressionUUID->"2aff7899-647e-4fc8-b2bb-16e5edc23116", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[106963, 2632, 1218, 36, 70, "Output",ExpressionUUID->"0d083af1-9489-469d-bcb8-ce2b1e196f6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[108242, 2675, 1155, 28, 70, "Section",ExpressionUUID->"345a7e6f-f74d-40d8-91e9-09a3c978ee19", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[109400, 2705, 407, 10, 70, "Text",ExpressionUUID->"3981696a-9d33-4b15-a22a-52dc7bf42a75", CellID->538464369] }, Open ]], Cell[CellGroupData[{ Cell[109844, 2720, 1033, 26, 70, "Section",ExpressionUUID->"498841e1-4f0b-4833-b597-369b59b93156", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[110880, 2748, 515, 8, 70, "Text",ExpressionUUID->"5077f9b0-15c3-44f0-9a72-451e2ecd2454", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)