(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 203317, 4666] NotebookOptionsPosition[ 112289, 2847] NotebookOutlinePosition[ 188184, 4333] CellTagsIndexPosition[ 187500, 4310] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["ExpressionToFunction", "Title", CellTags->"Title"], Cell["\<\ Convert an expression to a pure function by specifying which symbols should \ be used as input arguments\ \>", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "ExpressionToFunction", "]"}], " ", "=", " ", RowBox[{"{", "HoldAll", "}"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"ExpressionToFunction", "[", RowBox[{"expr_", ",", " ", RowBox[{"vars", ":", RowBox[{ RowBox[{"(", RowBox[{"_Symbol", " ", "|", " ", RowBox[{"{", "__Symbol", "}"}]}], ")"}], ".."}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Function", "[", RowBox[{"Null", ",", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "##1", "}"}], ",", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"symbols", " ", "=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"{", "vars", "}"}], ",", " ", RowBox[{"lst_List", " ", ":>", " ", RowBox[{"Unique", "[", "\"\\"", "]"}]}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}], ",", " ", RowBox[{"attributes", " ", "=", " ", RowBox[{"OptionValue", "[", "Attributes", "]"}]}]}], "}"}], ",", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"rules", " ", "=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Replace", "[", RowBox[{"#1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Verbatim", "[", "Rule", "]"}], "[", RowBox[{ RowBox[{"simsIn", ":", RowBox[{"{", "__Symbol", "}"}]}], ",", " ", "symOut_Symbol"}], "]"}], " ", ":>", " ", RowBox[{"Thread", "[", RowBox[{"simsIn", " ", "->", " ", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"Indexed", "[", RowBox[{"symOut", ",", " ", "#1"}], "]"}], " ", "&"}], " ", ",", " ", RowBox[{"Length", "[", "simsIn", "]"}]}], "]"}]}], "]"}]}], ",", " ", RowBox[{"_", " ", "->", " ", "Nothing"}]}], "}"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", "vars", "}"}], " ", "->", " ", "symbols"}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"ReleaseHold", "[", RowBox[{"Function", "[", RowBox[{ RowBox[{"Evaluate", "[", "symbols", "]"}], ",", " ", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Hold", "[", "expr", "]"}], " ", "/.", " ", "rules"}], "]"}], ",", " ", "attributes"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", " ", RowBox[{"{", "HoldAll", "}"}]}], "]"}], " ", "@@", " ", RowBox[{"Flatten", "[", RowBox[{"Hold", " ", "@@", " ", RowBox[{"Cases", "[", RowBox[{ RowBox[{"Hold", "[", "vars", "]"}], ",", " ", RowBox[{"s_Symbol", " ", ":>", " ", RowBox[{"Hold", "[", "s", "]"}]}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}]}], "]"}]}], "]"}]}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"ExpressionToFunction", "[", RowBox[{"expr_", ",", " ", RowBox[{"vars", ":", RowBox[{"Longest", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"_Symbol", " ", "|", " ", RowBox[{"{", "__Symbol", "}"}]}], " ", "->", " ", RowBox[{ RowBox[{"_Integer", "?", "Positive"}], " ", "|", " ", "_String"}]}], ")"}], ".."}], "]"}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Function", "[", RowBox[{"Null", ",", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "##1", "}"}], ",", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"attributes", " ", "=", " ", RowBox[{"OptionValue", "[", "Attributes", "]"}]}], ",", " ", RowBox[{"rules", " ", "=", " ", RowBox[{"Activate", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Replace", "[", RowBox[{"#1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Verbatim", "[", "Rule", "]"}], "[", RowBox[{"simIn_Symbol", ",", " ", "indexOut_"}], "]"}], " ", ":>", " ", RowBox[{"simIn", " ", "->", " ", RowBox[{ RowBox[{"Inactive", "[", "Slot", "]"}], "[", "indexOut", "]"}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Verbatim", "[", "Rule", "]"}], "[", RowBox[{ RowBox[{"simsIn", ":", RowBox[{"{", "__Symbol", "}"}]}], ",", " ", "indexOut_"}], "]"}], " ", ":>", " ", RowBox[{"Thread", "[", RowBox[{"simsIn", " ", "->", " ", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"Indexed", "[", RowBox[{ RowBox[{ RowBox[{"Inactive", "[", "Slot", "]"}], "[", "indexOut", "]"}], ",", " ", "#1"}], "]"}], " ", "&"}], " ", ",", " ", RowBox[{"Length", "[", "simsIn", "]"}]}], "]"}]}], "]"}]}]}], "}"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"{", "vars", "}"}]}], "]"}], ",", " ", "Slot"}], "]"}]}]}], "}"}], ",", " ", RowBox[{"ReleaseHold", "[", RowBox[{"Function", "[", RowBox[{"Null", ",", " ", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Hold", "[", "expr", "]"}], " ", "/.", " ", "rules"}], "]"}], ",", " ", "attributes"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", RowBox[{"{", "HoldAll", "}"}]}], "]"}], " ", "@@", " ", RowBox[{"Flatten", "[", RowBox[{"Hold", " ", "@@", " ", RowBox[{"Cases", "[", RowBox[{ RowBox[{"Hold", "[", "vars", "]"}], ",", " ", RowBox[{"s_Symbol", " ", ":>", " ", RowBox[{"Hold", "[", "s", "]"}]}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "3"}], "}"}]}], "]"}]}], "]"}]}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"Options", "[", "ExpressionToFunction", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"Attributes", " ", "->", " ", RowBox[{"{", "}"}]}], "}"}]}]}], "Input", InitializationCell->True] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpressionToFunction", "[", RowBox[{ StyleBox["expr", "TI"], ",", SubscriptBox[ StyleBox["var", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["var", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "returns ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Function", "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/Function"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["var", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["var", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["expr", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpressionToFunction", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["\[Ellipsis]", "TR"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["var", "TI"], RowBox[{ StyleBox["i", "TI"], ",", "1"}]], ",", SubscriptBox[ StyleBox["var", "TI"], RowBox[{ StyleBox["i", "TI"], ",", "2"}]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "bundles ", Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["var", "TI"], RowBox[{ StyleBox["i", "TI"], ",", "1"}]], ",", SubscriptBox[ StyleBox["var", "TI"], RowBox[{ StyleBox["i", "TI"], ",", "2"}]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]]], " together in one function slot as a vector argument." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExpressionToFunction", "[", RowBox[{ StyleBox["expr", "TI"], ",", RowBox[{ SubscriptBox[ StyleBox["varspec", "TI"], StyleBox["1", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["index", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["varspec", "TI"], StyleBox["2", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["index", "TI"], StyleBox["2", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "binds variables specified by ", Cell[BoxData[ SubscriptBox[ StyleBox["varspec", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Slot", "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/Slot"], MouseAppearanceTag["LinkHand"]], "[", SubscriptBox[ StyleBox["index", "TI"], StyleBox["i", "TI"]], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ Cell[BoxData[ FormBox["ExpressionToFunction", TraditionalForm]]], " can be used as an alternative to ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["ReplaceAll", "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/ReplaceAll"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " (", Cell[BoxData[ FormBox["/.", TraditionalForm]]], ") or ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Block", "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/Block"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " for evaluating symbolic formulas at given variable values." }], "Notes", CellTags->"TabNext", CellID->107622986], Cell[TextData[{ Cell[BoxData[ FormBox["ExpressionToFunction", TraditionalForm]]], " holds all of its arguments and should work even when the variables already \ have definitions. " }], "Notes", CellTags->"TabNext", CellID->94529505], Cell[TextData[{ "You can use ", Cell[BoxData[ RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{ TagBox[ ButtonBox[ StyleBox["Evaluate", "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/Evaluate"], MouseAppearanceTag["LinkHand"]], "[", StyleBox["expr", "TI"], "]"}], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " if you want to pass ", Cell[BoxData[ FormBox[ StyleBox["expr", "TI"], TraditionalForm]]], " in evaluated form." }], "Notes", CellTags->"TabNext", CellID->302745527], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Indexed", "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/Indexed"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is used to vectorize variables together." }], "Notes", CellID->704752853], Cell[TextData[{ "The attributes of the returned function can be specified with the ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Attributes", "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/Attributes"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " option." }], "Notes", CellTags->"TabNext", CellID->725496081], Cell[TextData[{ "In ExpressionToFunction", Cell[BoxData[ FormBox[ RowBox[{"[", RowBox[{ StyleBox["expr", "TI"], ",", RowBox[{ SubscriptBox[ StyleBox["varspec", "TI"], StyleBox["1", "TR"]], "\[Rule]", " ", SubscriptBox[ StyleBox["index", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["varspec", "TI"], StyleBox["2", "TR"]], "\[Rule]", " ", SubscriptBox[ StyleBox["index", "TI"], StyleBox["2", "TR"]]}], ",", "\[Ellipsis]"}], "]"}], TraditionalForm]]], " the ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["index", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " can be either integers or strings. String indices can be used together \ with associations. If strings are used as indices, it is up to the user to \ make sure the strings do not contain illegal characters (see ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Slot", "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/Slot"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ")." }], "Notes", CellID->426295250], Cell[TextData[{ "When using indexed slots, the returned function is of the form ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Function", "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/Function"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["Null", "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/Null"], MouseAppearanceTag["LinkHand"]], ",", StyleBox["expr", "TI"], ",", RowBox[{"{", SubscriptBox[ StyleBox["attribute", "TI"], RowBox[{"1", ",", " ", "\[Ellipsis]"}]], "}"}]}], "]"}], TraditionalForm]]], ". This form makes it possible to use ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Function", "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/Function"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " attributes in a ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Function", "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/Function"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " that uses ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Slot", "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/Slot"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " for slotting the arguments. " }], "Notes", CellID->214228741] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Create a function from a simple polynomial:", "Text", CellChangeTimes->{{3.762186298091259*^9, 3.7621863080500636`*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"polyFun", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "x"}], " ", "+", " ", RowBox[{"x", "^", "2"}]}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{ 3.7621862658828087`*^9, {3.762186311775992*^9, 3.762186339135436*^9}, { 3.762186384561247*^9, 3.762186389938427*^9}}, CellLabel->"In[5]:=", CellID->7099978], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.7621863323321447`*^9, 3.762186340670859*^9}, 3.7621863903929253`*^9, 3.76218867525688*^9, 3.7624948111831026`*^9}, CellLabel->"Out[5]=", CellID->349232897] }, Open ]], Cell["Evaluate the polynomial at a given value:", "Text", CellChangeTimes->{{3.7621863665737267`*^9, 3.762186380296294*^9}}, CellID->190658449], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"polyFun", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.7621863418898315`*^9, 3.7621863431934566`*^9}, { 3.7621863922824945`*^9, 3.76218639846177*^9}}, CellLabel->"In[6]:=", CellID->206924125], Cell[BoxData["4"], "Output", CellChangeTimes->{{3.7621863436478915`*^9, 3.7621863559976225`*^9}, { 3.7621863955381713`*^9, 3.762186399148069*^9}, 3.7621886763285265`*^9, 3.7624948129733133`*^9}, CellLabel->"Out[6]=", CellID->591188552] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->389282747], Cell[TextData[{ "Convert a multivariate ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PDF", "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/PDF"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " to a function:" }], "Text", CellChangeTimes->{{3.7621866836148987`*^9, 3.762186699057982*^9}, { 3.7621868577243247`*^9, 3.7621868797070737`*^9}, 3.7621869433126216`*^9, 3.7627073106114626`*^9}, CellID->32994692], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pdf", " ", "=", " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", RowBox[{"1", "/", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.762186700493111*^9, 3.762186787969552*^9}, { 3.762186820521118*^9, 3.762186826807248*^9}, {3.7621868825305047`*^9, 3.7621869326304045`*^9}}, CellLabel->"In[7]:=", CellID->4733567], Cell[BoxData[ FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["9", "16"]}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", FractionBox[ RowBox[{"2", " ", "x", " ", "y"}], "3"], "+", SuperscriptBox["y", "2"]}], ")"}]}]]}], RowBox[{"4", " ", SqrtBox["2"], " ", "\[Pi]"}]]], "Output", CellChangeTimes->{{3.7621867841434593`*^9, 3.7621867883484716`*^9}, 3.762186828010598*^9, {3.7621869293057427`*^9, 3.7621869329689555`*^9}, 3.762188677600724*^9, 3.7624948186271944`*^9}, CellLabel->"Out[7]=", CellID->56785954] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pdfFun", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{"Evaluate", "[", "pdf", "]"}], ",", "x", ",", "y"}], "]"}]}]], "Input", CellChangeTimes->{{3.762186700493111*^9, 3.762186787969552*^9}, { 3.762186820521118*^9, 3.762186826807248*^9}, {3.7621868825305047`*^9, 3.7621869326304045`*^9}}, CellLabel->"In[8]:=", CellID->38680243], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["9", "16"]}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", FractionBox[ RowBox[{"2", " ", "x", " ", "y"}], "3"], "+", SuperscriptBox["y", "2"]}], ")"}]}]]}], RowBox[{"4", " ", SqrtBox["2"], " ", "\[Pi]"}]], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.7621867841434593`*^9, 3.7621867883484716`*^9}, 3.762186828010598*^9, {3.7621869293057427`*^9, 3.7621869329689555`*^9}, 3.762188677600724*^9, 3.762494818644169*^9}, CellLabel->"Out[8]=", CellID->408333581] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "@", RowBox[{"pdfFun", "[", RowBox[{"0", ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.762186700493111*^9, 3.762186787969552*^9}, { 3.762186820521118*^9, 3.762186826807248*^9}, {3.7621868825305047`*^9, 3.7621869326304045`*^9}}, CellLabel->"In[9]:=", CellID->105332144], Cell[BoxData["0.09618464508212524`"], "Output", CellChangeTimes->{{3.7621867841434593`*^9, 3.7621867883484716`*^9}, 3.762186828010598*^9, {3.7621869293057427`*^9, 3.7621869329689555`*^9}, 3.762188677600724*^9, 3.762494818649163*^9}, CellLabel->"Out[9]=", CellID->214280871] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->85421777], Cell[TextData[{ "Bind arguments to keys in an ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Association", "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/Association"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], ":" }], "Text", CellChangeTimes->{{3.762252249386284*^9, 3.7622522638975677`*^9}, { 3.7627072911799603`*^9, 3.7627072911799603`*^9}}, CellID->609223740], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"powerFun", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ SuperscriptBox["x", "y"], ",", RowBox[{"x", "->", "\"\\""}], ",", RowBox[{"y", "\[Rule]", " ", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.762252283922043*^9, 3.762252299842521*^9}, { 3.762252333090109*^9, 3.762252340858551*^9}, {3.762252370962159*^9, 3.7622523931235113`*^9}, {3.762252716245466*^9, 3.7622527208682103`*^9}}, CellLabel->"In[10]:=", CellID->76277089], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{"Null", ",", SuperscriptBox["#Base", "#Exponent"], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.762252374811936*^9, 3.762252393707263*^9}, 3.7622527214126787`*^9, 3.7624948244645844`*^9}, CellLabel->"Out[10]=", CellID->92908131] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"powerFun", "[", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "|>"}], "]"}]], "Input", CellChangeTimes->{{3.762252283922043*^9, 3.762252299842521*^9}, { 3.762252333090109*^9, 3.762252340858551*^9}, {3.762252370962159*^9, 3.7622523931235113`*^9}, {3.762252716245466*^9, 3.7622527208682103`*^9}}, CellLabel->"In[11]:=", CellID->245027173], Cell[BoxData["8"], "Output", CellChangeTimes->{{3.762252374811936*^9, 3.762252393707263*^9}, 3.7622527214126787`*^9, 3.7624948244755554`*^9}, CellLabel->"Out[11]=", CellID->312876517] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->54698680], Cell["Bind multiple symbols to a single slot:", "Text", CellChangeTimes->{{3.762252792105748*^9, 3.7622528006020555`*^9}}, CellID->338831549], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{"x", "+", "y"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "[", RowBox[{"{", RowBox[{"E", ",", " ", "Pi"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7622528089837*^9, 3.762252835194589*^9}, { 3.7622530665493913`*^9, 3.7622530721732607`*^9}}, CellLabel->"In[12]:=", CellID->148024839], Cell[BoxData[ RowBox[{"\[ExponentialE]", "+", "\[Pi]"}]], "Output", CellChangeTimes->{3.762253075250161*^9, 3.762494827764759*^9}, CellLabel->"Out[12]=", CellID->687436922] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"powerFun2", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ SuperscriptBox["x", "y"], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "->", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7622528089837*^9, 3.762252835194589*^9}, { 3.7622530665493913`*^9, 3.7622530721732607`*^9}}, CellLabel->"In[13]:=", CellID->856977672], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{"Null", ",", SuperscriptBox[ TemplateBox[{"#BaseExponentTuple","1"}, "IndexedDefault"], TemplateBox[{"#BaseExponentTuple","2"}, "IndexedDefault"]], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{3.7622528356941996`*^9, 3.7622530734638205`*^9, 3.7624948287322044`*^9}, CellLabel->"Out[13]=", CellID->366303090] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"powerFun2", "[", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "|>"}], "]"}]], "Input", CellChangeTimes->{{3.7622528089837*^9, 3.762252835194589*^9}, { 3.7622530665493913`*^9, 3.7622530721732607`*^9}}, CellLabel->"In[14]:=", CellID->39446768], Cell[BoxData["8"], "Output", CellChangeTimes->{3.7622528356941996`*^9, 3.7622530734638205`*^9, 3.7624948287391553`*^9}, CellLabel->"Out[14]=", CellID->263165269] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->1575259], Cell[TextData[{ "Use the ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Attributes", "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/Attributes"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " option to return a function that holds its arguments:" }], "Text", CellChangeTimes->{{3.7621872908467727`*^9, 3.762187318454398*^9}, { 3.7622406091600227`*^9, 3.762240615375394*^9}, {3.762707025957263*^9, 3.762707025957263*^9}}, CellID->414824544], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"addToSymbol", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{"var", "=", RowBox[{"var", "+", "val"}]}], ",", "var", ",", "val", ",", RowBox[{"Attributes", "\[Rule]", "HoldFirst"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7621873232364187`*^9, 3.7621874082889423`*^9}, { 3.762864222919763*^9, 3.7628642259157534`*^9}}, CellLabel->"In[11]:=", CellID->561417135], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"var", ",", "val"}], "}"}], ",", RowBox[{"var", "=", RowBox[{"var", "+", "val"}]}], ",", "HoldFirst"}], "]"}]], "Output", CellChangeTimes->{3.7621873646974306`*^9, 3.7621874089218054`*^9, 3.762188679321003*^9, 3.7622530805783215`*^9, 3.7624948736340957`*^9, 3.762864243187585*^9}, CellLabel->"Out[11]=", CellID->20237217] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"counter", "=", "1"}]], "Input", CellChangeTimes->{{3.762187417012744*^9, 3.762187428359634*^9}}, CellLabel->"In[12]:=", CellID->40638546], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.762187423800277*^9, 3.762187428745101*^9}, 3.7621886807559433`*^9, 3.7622530814644785`*^9, 3.762494874673316*^9, 3.762864245061828*^9}, CellLabel->"Out[12]=", CellID->169082611] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"addToSymbol", "[", RowBox[{"counter", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.762187417012744*^9, 3.762187428359634*^9}, { 3.762864233877473*^9, 3.762864234194624*^9}}, CellLabel->"In[13]:=", CellID->11980824], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.762187423800277*^9, 3.762187428745101*^9}, 3.7621886807559433`*^9, 3.7622530814644785`*^9, 3.7624948746803546`*^9, 3.762864245910363*^9}, CellLabel->"Out[13]=", CellID->131268466] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["counter"], "Input", CellChangeTimes->{{3.762187417012744*^9, 3.762187428359634*^9}}, CellLabel->"In[14]:=", CellID->591802179], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.762187423800277*^9, 3.762187428745101*^9}, 3.7621886807559433`*^9, 3.7622530814644785`*^9, 3.7624948746852903`*^9, 3.7628642472555676`*^9}, CellLabel->"Out[14]=", CellID->227934627] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->20767984], Cell[TextData[{ "Group ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ StyleBox["y", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " together as a vector argument and map over a list of points:" }], "Text", CellChangeTimes->{{3.7621869584168963`*^9, 3.7621870023066015`*^9}, { 3.7735781235440946`*^9, 3.773578136938299*^9}}, CellID->177136241], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pdf", " ", "=", " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", RowBox[{"1", "/", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.762187005399506*^9, 3.7621871688353014`*^9}, { 3.76218720737162*^9, 3.7621872227670727`*^9}, {3.7621875260274906`*^9, 3.762187526563196*^9}}, CellLabel->"In[19]:=", CellID->65701632], Cell[BoxData[ FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["9", "16"]}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", FractionBox[ RowBox[{"2", " ", "x", " ", "y"}], "3"], "+", SuperscriptBox["y", "2"]}], ")"}]}]]}], RowBox[{"4", " ", SqrtBox["2"], " ", "\[Pi]"}]]], "Output", CellChangeTimes->{{3.762187100491347*^9, 3.762187137781024*^9}, 3.7621872230522523`*^9, 3.762188682111007*^9, 3.762253082987364*^9, 3.7624948945810804`*^9}, CellLabel->"Out[19]=", CellID->52789806] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pdfVectorFun", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{"Evaluate", "[", "pdf", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.762187005399506*^9, 3.7621871688353014`*^9}, { 3.76218720737162*^9, 3.7621872227670727`*^9}, {3.7621875260274906`*^9, 3.762187526563196*^9}}, CellLabel->"In[20]:=", CellID->90023858], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "vectorVariable12", "}"}], ",", RowBox[{ FractionBox["1", RowBox[{"4", " ", SqrtBox["2"], " ", "\[Pi]"}]], "3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["9", "16"]}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ TemplateBox[{"vectorVariable12","1"}, "IndexedDefault"], "2"], "-", FractionBox[ RowBox[{"2", " ", TemplateBox[{"vectorVariable12","1"}, "IndexedDefault"], " ", TemplateBox[{"vectorVariable12","2"}, "IndexedDefault"]}], "3"], "+", SuperscriptBox[ TemplateBox[{"vectorVariable12","2"}, "IndexedDefault"], "2"]}], ")"}]}]]}], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.762187100491347*^9, 3.762187137781024*^9}, 3.7621872230522523`*^9, 3.762188682111007*^9, 3.762253082987364*^9, 3.762494894596039*^9}, CellLabel->"Out[20]=", CellID->59235883] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"dataRange", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.762187005399506*^9, 3.7621871688353014`*^9}, { 3.76218720737162*^9, 3.7621872227670727`*^9}, {3.7621875260274906`*^9, 3.762187526563196*^9}}, CellLabel->"In[21]:=", CellID->225303561], Cell[BoxData[ RowBox[{ RowBox[{"points", "=", RowBox[{"Map", "[", RowBox[{"pdfVectorFun", ",", " ", RowBox[{"CoordinateBoundsArray", "[", RowBox[{"dataRange", ",", "0.1"}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.762187005399506*^9, 3.7621871688353014`*^9}, { 3.76218720737162*^9, 3.7621872227670727`*^9}, {3.7621875260274906`*^9, 3.762187526563196*^9}}, CellLabel->"In[22]:=", CellID->337238713], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListContourPlot", "[", RowBox[{"points", ",", RowBox[{"DataRange", "\[Rule]", "dataRange"}]}], "]"}]], "Input", CellChangeTimes->{{3.762187005399506*^9, 3.7621871688353014`*^9}, { 3.76218720737162*^9, 3.7621872227670727`*^9}, {3.7621875260274906`*^9, 3.762187526563196*^9}}, CellLabel->"In[23]:=", CellID->560242831], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvVtwVNe1/rvPOS/n8VTFjh3f4ti46iT4ErBBgISEJITQvdXo2rpLtCSE hISQhNANyXSELEUWwiIYLALB2MbGJvgCBcfEhoK9Kcf7b/bf2XHsSlwJFaeg yqmyq/zghzz4fK2BpntL0JprzrnWaqnHrG/vSkh3qy9r/taYY475jZ9UN3tr /89/+7d/2/Z/4/95q7YntrZW7djw/+C/5G/Ztqlui39j2pY2f52/dUX1/4V/ /Nf/Qf8X/M/f8eDBgwcPHjx48ODBg4fEqOXBgwcPHhEz7Aa+wv+k//j5+ODI eSf8GXUeHDnvJEIeHDnvhD+jdeBfP3No4OatYmDg0NXryn99QX6fOg+OnHfC n1HnwZHzTiLkwZHzTvgzWvxQVwXsxRg4E475BoE/Hwd/xoUx+DMujMGf0dI3 cP3MFO6nw/rrV+m/h0M+A9/tt2D74M+4MAZ/xoUxzAGfeH/oavh/Un99Hjx4 8OBh49AEMgOfBw8ePObL0AHydcroh03iM/B58ODBI0KGGpBvJvOnaH/76F79 9Xnw4MGDh/GhDHwMmTKdGSU9yu+TBw8ePHgoDHMQnq7TuX0SP/zrP5I3zGKx WCyDCoNc7ah7jm1bBj6LxWI5qTDI1U+zXD3EwGexWKxIURjkWgH+FNpnZuyn /pGBz2KxWJEhQ8C/CXdx0lak8DmHz2KxWBEiU8AXyJc302Hgs1gslpMyB/yp qP57A7W57TIZ+CwWi+WkTALf4mDgs1gslpNSBrL+YOCzWCyWk1IGsv5g4LNY LJaTUgay/mDgs1gslpNSBrL+YOCzWCyWk1IGsv5g4LNYLJaTUgay/mDgs1gs lpNSBrL+YOCzWCyWk1IGsv4Ib8Ls+jfDYrFYC0wKKDY1OMJnsVgsJ6UMZP3B wGexWCwnpQxk/cHAZ7FYLCelDGT9wcBnsVgsJ6UMZP3BwGexWCwnpQxk/cHA Z7FYLCelDGT9wcBnsVgsJ6UMZP3BwGexWCwnpQxk/cHAZ7FYLCelDGT9wcBn sVgsJ6UMZP3BwGexWCwnpQxk/cHAZ7FYLCelDGT9wcBnsVgsJ6UMZP3BwGex WCwnpQxk/cH2yCwWi+WkwnCYI3wWi8VaSFIGsv5g4LNYLJaTUgay/mDgs1gs lpNSBrL+YOCzWCyWk1IGsv5g4LNYLJaTUgay/mDgs1gslpNSBrL+YOCzWCyW k1IGsv5g4LNYLJaTUgay/mDgs1gslpNSBrL+YOCzWCyWk1IGsv5g4LNYLJaT Ugay/mDgs1gslpNSBrL+YOCzWCyWk1IGsv5g4LNYLJaTUgay/mB7ZBaLxXJS YTjMET6LxWItJCkDWX8w8FksFstJKQNZfzDwWSwWy0kpA1l/MPBZLBbLSSkD WX8w8FksFstJKQNZfzDwWSwWy0kpA1l/MPBZLBbLSSkDWX8w8FksFstJKQNZ fzDwWSwWy0kpA1l/MPBZLBbLSSkDWX8w8FksFstJKQNZfzDwWSwWy0kpA1l/ MPBZLBbLSSkDWX8w8FksFstJKQNZf7A9MovFYjkpBRSbGhzhs1gslpNSBrL+ YOCzWCyWk1IGsv5g4LNYLJaTUgay/mDgs1gslpNSBrL+YOCzWCyWk1IGsv5g 4LNYLJaTUgbyLcb1q4cGBqYLfAYGDl29zsBnsVisiJEx4F8/I1j//Rg4E4b5 DHwWi8VyUoaAfxP3A2emo/pgtD8H8hn4LBaL5aQMAf/qITz60NVb3ARm/CMD n8XS0ENZOx9M2/Hj1Lb7EupI98RW3bWsMFQ/+FlKGN31ZJ545L2rN9KL4AXx sg97Aq5/QJatMgT8W46pu8DtQ3wGPot1Oy3aMAQC37emATT+0coywPnOJZ5Q bj+5MsOgQl/5ziey8efwR/GnH1y/ne8CC0lhkKsL/Cnec4TPYsnoocxeitvv Xl4M5N6O6ivX5CeklkOZ+S2knKL2oppdoappnvBv/dXtFPrIrIJt9CL0mnjx W94I7ngsPbgciK+9P3kLlhiuf1csZYVBrh7wKaETbteWgc+KZi3KHUT8DIqG JmFCYRufUrouux40zivvAZwrG8fCYNygKhpG8ec8vu3pG5pxF1ge55nJ/8cz 71lV8cDalodzBlz/GlmWFAa5OsCn6D5skQ4DnxV1QniMIBm0FPkZwdK45OLk 9BrgPb+ir6x+2Bm2Swr3msKqAby3tZn+mHhvKPyxGLl39UYsT1z/blkyUgby 7cd1on2YZI54/dDBwGctSCEMRjAchPz/TNQ8tSqbMjNzJmEiTbgf5RS14/Yk gn8i/82wn3P+ESxLEJah/c36zLlOXX3HET5r4QrQuyXkER4jSAYtS2qHXOe2 EeGDpHkbRfKfPuzdy4vx8RflDrr+Q7BmSBnIt4L9zdA+fCaHgc9aqEIwf39S I+XkRa4GYTCC4YUE+duRH58xMa0SK5fvyR9TwuSPKJkD/s20vURoL/X6rn8z LJakgnuvqzdSWl5wPiG1fMFD/paqbhr3lnbhHvd9zL84Fd8P7/BGgpSBfEvc z5W2t/D6rn8zLFZ4PZTZe09s1R2PpYem5QE64M6xippIFpEfMb8g/49WluHm 6PoPF81SBvL/GLc00pnLToeBz5qPetgTuD+pMTSeX7kmP83bWFg14DpjI1NY 5qzLrg/d3n1gbYvrv2N0ygzwbybvGfisBatFG4aAqbtjSkJ3YMH5SCuhjFhh 1ZNT1B6bVEjY/+FSL0f7zssM8JUGA581L/RQ1s4ZqZu1mf78ij7XETpP5S3t omL+oLHPskKu4XdSykDWHwx8ViSLQvq7nswTnI9PKfX4tlc3jbvOzPmumuaJ rIJtVMZPxTzs2OCMlIGsPxj4rMjUTzK671lV8YPFqYR6cCnV08CpG+PCrTPN 2yjKOPGdcyWP3VIGsv5g4LMiTT9ObZsR0ntLu+bXMdh5p8rGsf+B/dgqrtu3 T8pA1h8MfFaEiLI3ovAmJt6bvqGZQ3qHsY9l1M0yniUeLLJcvyoWpJSBrD8Y +CzX9bAncF9C3R2PZxLqV67J9/i2c0jvlnCTxaoqiP3FqfhdcCN2/QpZYFIG sv5g4LNc1MM5A8FE/f/M3rhOPBbutlheiYp9Lt00K2Ug6w8GPssVIaq/d/XG 0BpLn3/QddCxQlVUsysuuZiwf39So+vXzIKRMpD1BwOf5bCCUX1s1Q8WpxLq 12XXVzSMug431u2Umd8iPBl4J9eIlIGsP8KbMLv+zbAWkmYkcBj180V55T1P rcqmNlsPpu1w/UKa71JAsanBET7LAc1I4DDq551Kaodu7uT+LIVNeDSlDGT9 wcBn2apFG4buW9Nwx2PphPo0byOjfv4qq2AbMf/e+FrXL635K2Ug6w8GPss+ IRQUxZbJ6TWM+gUgb2nXTQeeJ/O4kaKalIGsPxj4LDv049Q2aixIxZZFNbtc JxXLlHz+QTJew8KNXdcUpAxk/cHAZ5nVTzK6hTHCyjX5bGi5IFXdNJ6QWs7M V5MykPUHA59lSotyB4P1ltOo5yNUC1s1zRPUSIuZb1XKQNYfDHyWvkJ3Zp9a lZ2+oXnBGCP4/INFNbugzPwWUqqnAcHt7RSXXBz6X9O8jfSsnKJ2vMgC667L zFeTMpD1BwOfpakH128XjmeY/vPU7gzsApCxKgGc12b6wWoyihdKT1ytKfFS uCfi9ZPTa/C38iv65vVeNr43zu1YlTKQ9QcDn6Wsh7J23r28mFAfm1Q4v/rJ VjaO4Q0DuQAvtfy7JdgLMlLLvFlQU6WvuaoE2uavGGjdfDsF2ppC/+vWmjJ6 Vq0vDy+CV7vlXYBuAVgO5JX3zLve62A+vkN8ijufyGYvfRkpA1l/MPBZarpv TQPZIyASzilqdx07MvL5B7MKtmEZIqL3UPaWeDKqCzyAc0ddFVg90tU68XSX HRrtacPr72zZhL9VkZedl5Yyg/+4AQH+CP7nS2MvEeeD+dw2a04pA1l/MPBZ VoUZLepw1mXXRziUSmqHcD9CCErdPQRac1ISKW7vbKhBWG4T2yW1t78TtwCs HXDHyUpOCIV/XHIx3n/kh/2cz5eXMpD1BwOfZUkisI+J90ZsDgfwySvvwc2I IvnQ/Ex9aUFXox8xtruEDy/AH8E/7keh5EcI7S3tiuTb6/fMfzyTz2SFkTKQ 9QcDnyWpyA/s8ZaAxLWZ/tBgPi8tpdaXhzA+wiF/O+H2tLHIK8iPj4YvP2J3 xkVu565lha5fsRErZSDrDwY+S0aRHNgT52nfUHAe4XFHXdU8hfxsjfV14OOE xvzgKlYxrn/5s1XZOIaLBIHBfQl1rl+3kSllIOsPtkdmhRfW5qIUJ6IC+1ty vrrAM3+DeRmNdLVuLi/KSUkk7AOtmfktkZbhL6rZxb6aYRSGwxzhs1xU0P1s 6jjV8jhPhAT2lJ+fkbchziMMdh3IzgifdGtNGRV5Up4nzdsYUdj3+LYT89k/ f7aUgaw/GPisW2pR7uDdMSXiOFUkwKSsfjjV0xDK+TJvVlRxfrYGWjfjZify PBHVaIC64t75RDa3QZ8hZSDrDwY+a7YeXL/9jsczKbCPBEscLC6o/IPIVpSV tpDy8/oa7Giu9eXRl4MbYmZ+SyRYW+A9xKeUUm9E1y/piJIykPUHA58VqqAB 2nQXQtcD++qmcY9vOx2DBcqykhPqSwuGOltcB2xkaqSrFd8Phfr40iLBkhqL MuqNyD3QQ6UMZP3BwGcJPZTZe+cSD+WEswq2uQiKiobRddn1QR+26dLKbf6K aE7dyCvQ1iRy+8npNa4XcOZX9HEyf4aUgaw/GPgs0v3JW6jwEstwFylRUjtE hTeE+o1F3p0tm1yn6PzS3v7OpkofndhdHudxvXozM78lmMxf4uFkPkkZyPqD gc9alDv4o5VllMZJ8za6lf4NTdQDVpvLizhLryN8e7SfGwn1tHHJxVyZL6QM ZP3BwI9yiTQOQkG3ulN5S7sABEa9Heqoq6JQ390Tc/jTlNj5SUa369e861IG sv5g4EezQtM4rpTz5ZX3rFyTT6jPTU3eWlPGiXrjGupsKfFkUKifmd/iFvOx eOQqTZIykPUHAz865Xoap6hmF+4yhPq8tJTOhpq9/Z2us3EBCzdThPr4wtdm +l3J2uGPUmLn3tUbXb/+3ZUykPUHAz8K9XDOwA+Xet1K44Ruy+akJG7zV7gO w/Aa7GgO0/EEmi+VojtbNuELp6JNV/bl8dMHEzuLU6PcS1MZyPqDgR9t+klG N7klYNY7nMahYkuRq2+q9EVOAifQ1oRVRnNVCd4Vtbia3Z1qTuFD0XPrSwvw UgBspN0L8H6KstLofJYrKX3c6znIVway/mDgR5UeWNtCSfuE1HInyzbwt+ig PYGx1pdnXz8pSe5Rw6mNRV4C4E1PnrQnZqs1P6a7NDaMmr3LbvnE2b20sBxw nfl7+zvpWK4rzBdBfjQ3xlIGsv5g4EePEFaJpL2Tc9xb2hUT73Ud9dRhtiIv W7SUmkH1vvK455rWQcd7c0/0e98K5F/eW25J74748EToQGsaXgcviJedcQvA X8d7wDsZ7Gh2Efu4+7jFfFrl3R1T4vqMcEvKQNYfbI8cDRJOaJjgTh7DQTgn dmYR5Tqc30Ao27ulrqnSRzUqoYRv9DxFeD+6I/vk03lWwW5V+BOHt2fu9ieG rgVoCwNLjK5Gvysb1oL5DtslVTaOkd9C1HZCDMNhjvBZmsLamSrtEWb7/IPO TOrqpvFUT4PYme2oq3KMY1hB4M8hip4B+fbCFaOb1r7UnYM43G7Ch9HZZ4oI /iL4p7DfFYdnYj5+JodP41KJZtQG+cpA1h8M/IWtB9N20BZtXHKxY05oOUXt y+NuevZuLi9yBmI7Wzbhb9FOq4B8Z/EqStFc3FPmIuRvp9O7C/H2ZpC/vrTA yawX7jLO53ZEV6zoNNhRBrL+YOAvYP14XStt0TpWel1WPyxyOIixHcjhBNqa QEjqAEXY3JS9NFCdgCja3Ujeath/oDUNtydBfnx7vVvqnGG+K/l8RAW4Tn64 1Ov6NHFeykDWHwz8har7kxod3qLNKthG/pa5qcl2wwoxsGj5JDI2440pDiTk 7Y75h+uScM8i7OelpXQ1+hck8xGBUJD/49Q21yeLw1IGsv5g4C9IiYIcxFEO TN7QwL7Wl2dfDmdvf2dnQw318hbbr6Ob1oKTrrPaoN4bLZlsy6AdXmr44kA9 p2C+Y2eyyDk5CoN8ZSDrDwb+AtOiDUPkmeBYQU5oYG+flfFoT1tTpU+kbvyZ SwLVCcd7c12Hs606vD0TdzTCfnWBx+4U2ebyIvyh2KRCx7wXojOTrwxk/cHA X0halDt417JCzKDlcR4HGh45E9gH2prooJDYhwUGEQO7TmNndHFP2XNN60SS B3c9+2o48colngza9HEG+HQcL9p6ICoDWX8w8BeMHvYEyCFn5Zr8ktohu6cq lg9UimNTYE/ZGyqhJ9Tv9ifO9xS9st4d8Q3XJYnEvn0rqZGuVvJYc6blWUXD aBS66ygDWX8w8BeGHs4ZuPOJbKK93Q451U3jwhLHjsAeqN/mrxDZm0bPUwhx 51HJjX060e+lGk7qBWZT1wDcTag435kN3Ch011EGsv5g4C8ACdo7UGzv8w/G JhXScSpE4HagHkuG0OyN65iNNP2qZT1lePAT2LSZu7WmDD8xggcHkvnCXSd6 fPKVgaw/GPjzXYL28Smldvuhif3ZEk+G2cNBWCY0V5WIqL69cMVL3TmuozVi hfXOQGU8hfp2+EvjzluUlYaLKtXT4ECQn5BaHqzPXNfq+mxyRspA1h8M/Hmt hzJ76SBtYlqlrcEYFg6YlZTGAZkZ9ZGg55rWifSO8cTaYEczJfMd6Jjg8W2P qq1bZSDrDwb+/JVjtC+sGhD7s4G2JoNU6airCk3guIX607sLT/R7f9Wyntwy h+uSwpghB6oT6GEQ3jCe6CLz8QYovVOQkWrckAFrB/zo+Ont3hVCOBFVWR1l IOsPBv48lWO0z8xvocDebBg50LqZjOgBK1DUMWy+N1pyvDdXUD3UvrLN+/9a lXguqItXw2vilR0uJcLdCssivAfcOo1bLlcXBG/0yek1dgf5UZXVUQay/mB7 5PmoB9dvJ5Ocddn19s3B6qZxkcYxmChGIEoYoQocB6J6EPhAaxoic2FTNoPb O32P7q1beqxtxcnuOOh0f/yHY+tup/O/SKSHQXjWcPXPZ98F/JlL+srjsGRw Bv4X95Thz9mxjTva00aJHbuPdVBWJ0r8MxVQbGpwhD/vhNjeAdqX1Q+vXJNP 1TimGLK3v7Op0he0Ap5CIoJh+0ws3wrk4/WFHVkokJ/duOTEjtg3e1eD3h/v W3/jmEdfn+xPx6vhNV/pWLW74vEZ8Me95uiObFsdOwXz8fWatd8hy4W45GK7 N4mCJvmLUxflDro+xeyWMpD1BwN/fklkcmylfX5FHyXti7LSTGWGd7ZsEun6 3f5EO+rq3xstAVfx4mRHIKiLIPzI1hiK243gfU59Ppl5YSgJSwYBf0F+W1c0 4nCWQfM6UbFj91Gs+JTSKPFSUway/mDgzyM5Q/vQpL2RU/yjPW0ih9NdGqvQ OjC8cO8I9RYmwO4qewzB9pXRFGcIHx7+53atwbJCkH9T9tLxxhSbjpJR6Q7i fIP5/EBbE/mq2XrKgy68e2KrXJ9odksZyPqDgT9f9HDOgN27tHjZ5PQas0n7 zoaanJREopzxU1SI56kcPTRdg0j+k/3prnN+tj47mPFm72qK+Sngx2Lk7DNF NsX5+NoNMh93f7uttotqduFP3PlEtutzzW4pA1l/MPDnhcTpKvtoj+AtLrmY ai+NJO0R2FOfQcCnrzzOYECLNYIwjSfOTzYvP/+LxGuHs1ynuow+3rf+QOMy EfAHqhOM2zvTfdAg8/E6DgT5ZJ75k4xu12ecrVIGsv5g4Ee+Qs/S2kT7ktoh 2qI1lbQnMxyqwzFlYnxxT9mB1jSqtCFaIlo+t2vN55OZrjNcLeA/sjWGPgii /fHGFIO7umIPNy8txVQxbXWBx+4gP9XTAODfl1Dn+qSzVcpADjuuHqqtPXR1 jgcx8CNcD3sCwifHJucEca6qzJulD4ehzhZhcbnbn2jExxirg+ea1omt2J2+ R4+1rYjMvI0y9vHRcC8zeB4BzO8sXkVG+gaDfATh9pXrUFZnwbdEUQby7cf1 MwPBkk4G/rzWotxBcjy2j/be0i6yx6n15elv0XY21FDVpanA/vTuQtw1EABT JLy3bumFoSTXKW1cV/emUj0/vrqBynhT6a+zzxRtyl5q0A2jIi/b1jZquJUE izN/lrKwizOVgRye9gz8ea1FG4buWlaI+RWbVGgT7bMKttEWbVOlTxMFWBps LPKKwF4/O4FYl5IShPoDjctARdfJbKtO98f3FC7GhwWlTeXB8DoGCzXJORlB vk3A94sjtwu6ONMg8K9fPTQF+wEMBv68FnUqxOSyyckkzdtItO+oq9LkQKCt iWrsQaqjO7I1GXXy6bzu0lhCfWf+T4+1rfjsYIbrNHZGn09mYhVDof5wXZKR rD4VauakJBrxz6eafPsc1ag4c2Hb45sD/lRsP3Do6vWbUT4Df57q3vha6ktr U+8q6mCSlZygH/jRSUxyP9MsMsTTRZnlTt+jb/auni+FN2aFD447HWX1jRTw 0A3USDKfHNUS0yptAr7PP7jg0/jmgP/d9evXQ9DPwJ+Xuj95C2hvU8uhmuYJ zNZgJlbbM2Gkq1Xsz443pugQSbTwA+p7Chef7I6LTtQLXd2bShX7WDTp7+Ti 6/VnLsEvpd8bcW9/J7nr2NdGc3mcZ2Gn8Q0CXwwG/jzVj1PbiPbe0i6baE8O OZoV2rhZiMJLHSKBRaOb1opt2Vc6VjlTZvnFb3LIDO3ycDI5oR1rW7G3bqmQ 8FIjXRhKwoPxLMeYj79FBTz4cvRT+r9qWU8uyvpb85vLi3AJ2Xfcm5oeLuA0 vjKQwwwG/nzUTzK6yRgtM7/F+DyqbhqPTyk1QnuRxhmojNcpvDzQmoYIllAP uNmXqye8v9m7erJ5eai5Gamz5Kk59f2D83+K2wFeB6/mwD6yKNrUPKd8cU9Z a36MkYodrOzoEJZ9tQTBLrfxta7PR5ukDOQwQx74oYOB76KEeYIdsRPmJh2k zUtLGepsUZ7sY30dwhjnuaZ1yvw5+XQeud+AZvs2PWnKtTJUn+xPB5MPNC4T hJ/B8P2tidDB9uR3hrKhd5/N/fhwidD74xvo30l42HPNa2bfBcB/vH/8ITs+ AgnrCyPMp4qdrOQEnQuAVObNsmkR6p/y7lvYVsmWIGwc+GH+V9e/mejRotzB O5d4yDzBVtrrHKTFc4uy0qgaRznJgBXB6Ka1Ymf2/C8SDbLx2uGsC0NJiIp3 lT02g/BjjfEv960nqn99pl5Z/3ijhm4Hr/anjTTEhcb/PYWLbToRZor5tFGi v3vbUVdl39ZtWf3wwjbVUQZymMHAn0daNF1yb4d5ginaB9qaKGnf7F2m7HgJ XjV6nhLpelM7s4iuEWMLR0qC8FBdLJisT/g5+X9lfwFuJfhzAv54J+d2rTG7 70zM18zni91bzf16LPSwUrAvq7Ow922VgRxmMPDnke6JrcLlvXJNvnFnKlO0 F0doO4tXqSXtT+8uFNX14KGRBAiICq5SxkZE8gfbkwH5z49X2gf52+mzl8px i+mvihHZHrN70Hg1febT7i1WappBPp269fi22wF88sZ/MG2H63PTDikDOcxg 4M8XUREmgiWff9DsrMFigXZpNWkvtmiVj9AisKfNWVM5nCujKZPNy0U831O+ HKT9/YGif75d6zznZwjv4dJE3vcJf6PYF3U7ys0T8QtikaV/9rar0Y8XSUgt twP4ad5GTIr7kxpdn552SBnIYQYDf14IMQyV5eSV9xinPVVgatK+1pdHtD/Q mqaAFywHAtUJYnNWM8vx2cGMEzticdcQIf3+1kTQNRI4f8uA/9edKfQ+TR0u +OI3Ofga8fFb82OUz+Hi/qsf5O/t78SFgUvXjqxOTlH7Am6GogzkMIOBH/kS ZTl2WM6Kentl2mNGU0GOcg7hRL+XMvaIcjUD+0/2p1NwK/Lz7wxlXztR5TrV 5bFPCxz9Notg/q6yx8h7QTmxQ0G+5jksqtWxw2bhZqHO8mLXJ6kdUgay/mDg u6VFG4bICdOOUgdyTtCptx/r6yjxZFBBjsIWLYLP8cYUkbHXKVy5ujeV2oUQ 6l/uW2/rJqxNwnumJA8+CBYpmge48J2Q94JyMh/rNf1yneaqEpvClZLaoWCh zhKP6/PUDikDWX8w8N3SPasqbHLCJFe0rOSEQFuTMu2p/LLZu0zBHuf07sLO 4lWUYNeBG4JhchKjLP0buzLmRUh/O/3z7do3B7OI+bsrHtes3qSiHQTqav5F olxHx1FtoHUzXiEuudg48GuaJ3AN/+BnKa7PUzukDGT9wcB3RfcnBfeklsd5 jDthkuMxaK+8Wh/pas1LCwbn7YUrFApyXurOof1ZME35ICqeKFDfXxUDTv7j jRrXiW1EnxwtC2xcSZu5mmku+ooGKuPVgvzd/kTgenN5kTLwha+OHWl8anf4 sCfg+mw1LmUg6w8GvvMS/gnGk5/e0i5yPFYuwNCkPTnxUpNZtQ3Kzw5miAQO UP/OUPaNU37XKW1W+EQv960X6R1l4H8+mamT2HkrkE8Hb3XcdexL41Nl5kOZ va5PWONSBrL+YOA7rOCJ2qmWhcYzn4VVA9S7StnffrCjmY5W9ZXHWaX9xT1l wtn4dH+8Ar5wgwD9QDBK4AD1kVl7Y0rvj28g5h/ZGqOc9Xqzd7VOxQ71QOxq 9CsDn0p20zc0Gwf+2kx/sBR//XbX56xxKQNZfzDwHdbdy4vtOFFbUjtEfWmV rbEE7RWK7c8+U4QVAXkLXB5OVgDXuV1rdvoepW3Zo93rFkwCJ7w+mizGrY0K VtWYj2ftrnhc2deIDmHV+vKUgY+1pE0eC9TQ/IG1La7PWeNSBrL+YOA7KZtS 95WNYyvX5FNfWn3aW4XGiX6vSNorbESKdq5A/XPNaz45WmYrYz8+XHJlf0Go K9obuzLIRQ3CvYb+ESh2phbos5fK+6tidJj/4dg6Ooql0CoFd2pqhqWc1Rnt abOp6WFmfgsmy31rGlyftsalDGT9wcB3TDal7rFSIPOEirxstWmrQ3uq7qOe s1aT9uDbiR2xhPrAxpXgsHGc4vbx/viGNwezAHPhdRNMGfnXhNcMU82X+9bj 7dm0m/D58Up8fMrtqCV26NBxoDpBOaujU5CPi8eOfVs6e7UgTZKVgaw/GPjO yL7UPR2wKspKG+vrUJitI12tyrQXPapOdscpBPZYEdiRrr92ogqQ/3VnCl55 Ntuf68w8POA9t79C6HcHqz491Uz64MU6+scX+jxQf33SjFsA1iBnRzwIy43f mCi3o/BN3pjyjqMg/90Rn/NZHTLVMd6djSoQ7llV4frkNS5lIOuP8CbMrn8z C0ZUdW88dZ++oRkvm5uarHacVtTkWKW92KLtKVx8YShJObAHP424nOF+8fsD Ra/2p1EYH4r3t8ZLAXDA/Itz7d9+sFNBf3l7K24KuE0I/tOSxGyxKN4/7eGq 1WpihYWfY3TTWrWsDi4DZeBvLi8KnvIrajcLfNxBFuphWwUUmxoc4Tsg6lr4 1Kpss6l7On6ubHU72tNGtO8rj7O0S/veaAmeQrS/MppiiUuf7E+nwB5CqGwk Nn65b31oMD/Suv7ks77/fHnTV5e61QgfRv/9RhPuIGPt6TfvKeXL8ddNHQd7 99lcqs9X2AoRQb5CMW2zdxmuImULjs6GGjw91dNgFvhFNbtwed+1rND1+Wtc ykDWHwx8u/WwJ3DH45nGjWTL6oepCHObv0JhkoqztFbr7fFgUZBj1eL4zd7V VHU50hCnuTmL0Pr98Q3Uf4TY+0Kf5+KhGuUwXiHsf22kSAT8v+5MMbJUofr8 4eqfK2zgUpCv4HEXqE5QvpAmps/bGrfNvAn8J/Ncn8LGpQxk/cHAt1t3x5QY N8ypbhrXKcvZ299JPjlWaY/lf2t+sKRkV9ljlqLQa4ezxMnZNwezdDL2H00W H+1eFxrPn5kov3F+uzOcnyH8XQT8N1M95cs1P9rXU7kp3MXUkvmXh5PxRITr VoFP5pnKvjrU4hYXpFngYzm8UPteKQNZfzDwbdUDa1uoDtNsZxNEU5higLZa WU5FXjb55Fja4zu9uxBPofJLS93Gr+5NxQ2CTs7qBPaXJvJCU/SvDBX89xtN rnB+hr661E3RPtl44pakw3x8RZTMV/DVJBfNE/1ehTR+TkqiGvAh8klm4EtK Gcj6g4Fvnx7OGaA6TLO9njU3asnfflP2UkumW28F8qnYfrj655bKL8/tWkNp nOea1yhvcYaiHiH97w5WfXlhh+ucn6G/vL31uc5Mwv7Lfet1Qv13hrLxIqC3 1cQO7YYr2CZTGl/ZWxVXI65Js1ENA9+OwcC3T9Smdm2m3+AsoI3arOQEtY1a Ogjvz1xiyfH4eG8u0d5SBxPASjjYv9qfpgbAGaj/4MU618EeXrgZ9dcnad7g 8F2NNcYrmFR8sj8dz8KPZfWsNBmpKafxsdjEZWm2ZRsD347BwLdJ960JHgyP ifcaDHswBcg/QW1idtRVKXQzwa0BT6GjVfIB5+eTmXR+tqd8udqJqt8fKAL0 5hHqhf52ZhveMN42blXKFftUpbnT96jV3oj42hXs1OgAXX1pgRrwqws8xru2 MfDtGAx8O/RQ1k5K5hTV7DI4BSh1r7ZRG2hroi7klqo4Tu8upNgetJdnzsf7 1pMxjhrxEBgfbE+ej6gX+vLCDkrv9FfFKFs0/LozBd/8Kx2rLAGf7NSsHqw4 +XQerg0E6mrAt6MUn4Fvx2Dg26G7nszDtWq2MjkzvyUYRKWlKJyoHelqzU1N ttoU7+wzRbRLa8nm5cpoCiXt97cmKngRnB3xYFEAVAY2r714qMZ1dCvrm//o fTGQR9U7aszHvZLK8i0F+Z8dzKCsjiXgvzdaorNvS62vcIky8GWkDGT9wcA3 LkrmrFyTb/BQrc8/SGesFJpY7e3vpJL77tJY+dQuCEC0t1QTfmEoiWivsGv5 ydEyagJIFTgRuC2rIKreQZyvVqWvFuRTrY7VxpTU5VbNoGNrTVnw+jRqkszA t2Mw8M1KJHMMWouIqns16+ONRV4qwpQvuRenq3ZXPC6/S3tu1xpRaW8Ja6L3 XzDvvWVdhBRbmtLhAS/l8xX2cCnI7ylcbKlc58jWGIUTWH3lcWoRxcT0Ydt1 2fUMfBkpA1l/MPDNipI5Zq/8tZl+zKYyb5Za6EVFmPLeuVgFYO7T6Sr5entq sQo6vTOUbYlpH00WA4ZUWn9movyb/+h1HdFmhU/0Qp8naOzTvEahVGl/a6JV gx08WKH14eimtcrdcxj4lqQMZP3BwDeo+5O3UGWOQatY8gzMSUlUqLrf2bIJ 0xDB3kvdOZYiPfLJkaf9sbYVRPtLE3mWaCYC+7H29L+8vdVW8H51qTvUEpP+ 89/ObHOA+fjTI63rKdNlFfhX9hfgiXvrltqdxp9sCx6+VmtxS1eaWXcFBr4d g4FvSuKYlcFkjjDMUWhCJ3yPLfVCIsdjeZ8cUWxvtfzy2okqkbEHfo0H9sLi kqLrUPVvyYRm/COAjEe+NV6Ku4AdzP/iXDvV51s9h4tFAbnlW/KyUEjjIypQ Nliww06HgW/HYHtkUyLPHLOr2viUUrU6TOGWY2ldT8XYnfk/lfTABO33bXqS aG+JY58cLQPEKGNvELCA6sVDNS8G8gKb1wqwCwVas48MV0CvT9SeP9pM/3mi v2jGw+hdvTZS9F+vbjbLfNyAgtVHG1daTey82p9mdet2snk5fkoE7fK/PvU0 L8pKixDgl9QOYUL9cKnX9altXAooNjU4wjciMkA2m8zJKthGFgoKhRN0otbS Ru3x3lzqZiLflJYaLVl1yHl/fAMVXu7vzjZSikPGlaB0KOSf3+U7e7jpD2d6 /3oh8K/P9n33l/3hdf3KM3jk+y9tFbcAKg09+azPlDMbVjHPdWYqbGp/fLiE nBbkgf9m72qr9vg6xvh2AJ/tke0YDHx9LdowdOcSj9mDJyKZo9B7jmafJRMt THY6YCVv0kh5e6BbnvaIbBGsUhoHINVM43x1qfvfj/jJmp4Q/csdG049Xw/I f/PxnjkJH0Zffjhy5fUO3DIE+d8aLzXiro97E1XmW7XQp7638lkdcs60tL6j Uvys5IQIAX5eeQ93vDI+GPj6osL7uORig1e7cjIHywE6YyWfur+4p4xMj+WP 01JNjqVMzo1T/v2tiUHPzPokgFoHm1+ca8f9gkyJifPnjzaD0jqQvx35cQe5 mREydBAM7xxv+9edKZaATwX58tY6ZKqDn1Ue+BAuG1x1EQJ8KlfgnrZmBwNf Uw97Asb3anWSOdUFHjpjJT/NEQdSyb1ksbeot5ffpUVAO9IQR+lxnWqcT081 U1k7QfjIcAXieeOcn439Y6NVFOrrp6Hw9OCtqny5pbL898c34AuXvyPjp8Rv hCvBEvDp7NVoT1skAD8zP2gtfl9Cnetz3LiUgaw/GPiaoma1yek1pq5zkcxR 8MMkezRL1sdYCFgqwrwwlGS1AvOzl8ppi/a5zkxlWiKqJ6cCgHeoPfedFzbb EdKH0Z9/9/SenvzgX9feaEaQjy/wjV0Z8sDHHZNOYMmn8XEHxy8rf/7iskav QzuAn+ZtBPDvT97i+hw3LmUg6w8Gvo5+ktFNzWoNWmJSMkfBt3Cos4Xs0eSr 7qkSDwCXLMsRPjnyp6s+mizur4oBqBGZq6XBcY94a7xUoP79l7Z++8e9TqJe CH9XhPq/O1ilDPy/ndlGmXxLQf5QXdDrXr6tJHU8tGSb2Zofo+aKbwfw12XX Y3I9sLbF9WluXMpA1h8MfB39cKk36E5fsM3URZ5T1E4OaVZbWQnDHHl7NOGE KZkZvro3lWgvX2QC2lNBzmsjRWpbtOBqYPNaSuCcPdykuRtrRJeObyPm40Mp Mx+rFaunkl/uW28pjf9KxypcD4e3Z8oDv7s0Vm1paQfwE9MqAfwH1293fZob lzKQ9QcDX1lUihmXXGzKJA3LBLK7791SZ3XGbfNXUB2mpD0aHkZuOZPNy2Xo 8dnBDHI8lj8rKmh/ZqJcAYmfnmoWFTjHx2scTuCE118vBLDWwHtT3salch0E 7VbT+MfaVkgC/2R3nNVjd5rAN5jYhDCzML+wiHZ9phuXMpD1BwNfTYumSzHz K/oMrmGD5ZTWjzqOdLVSMke+DnN001r5jVo8Zrj65+R4LHloSND+3P4KqzDE WkDkcCb6i0BX1wk/W386tzO47qhPUs7nk9mCfL8Aqsbft+nJCAS+HV46CH4A /Ic9Adcnu3EpA1l/MPDVdH9So9lSTDpXCG4PdbZYnW5l3ixMbfmeF7gv0Ila yYTwka0x1M1EMuesQ/sb57fv784m2l86vk3mzJRbOnu4ifZw1XaiXxspspTV oX1b+eNXp/vjrfa3VQY+VQsYtEeubhrHdPjB4lTXZ7odUgay/mDgKwjh/R2P Z5oN73HvwJRRsK6i4KrR85Tkodp3R3x4MFDwZu9qeW4A4JKO7ghElWn/X69u poz9L3ds+PvlQdeRPqeODFfg3b7Q51EAPj5ssM6zNVE+qwPg47eQrJ4lz0xL ra+UgW+8AQrFP1hEuz7Z7ZAykPUHA19B9yXUmQ3vPb7tVHhvda92tKeNHNKO 7siWnNRUdS/pvig2aiVL7j97qZxqcqzSPjSNc2y0yq06HKv65uM9uDfhbSsc JfvqUjcV5Mv3BRtpiJM/b0sFtIHqBHngdxavUrPEry8twAXsLe0yNSMQSuEF 715e7Ppkt0PKQNYfDHyrEietfP5BI9d2ZeNYTLwXEw2xutWJRses5Cf14e2Z 8lX3n09m7ip7TL5i/NqJKnK2t1q+ItI4gdbsK693uI5xS6Jk/tCWdQplSFga 4Ov9/YEiSeAfbE+WNzv6cGwdHmzpCJ5yHX6tL88s8Klc7Z7YKtfnux1SBrL+ YOBbFS5CsyetaK9Wob9JV6Ofjlm9O+KTmc6ndxf6M5fId9PAKgA4kmzbgTCV ztIeHvBaQp9I4+zpyZ8XaZzZOjJcQX47VoFP/pnyJ7CoMvPcrjWRBnxcvZgU RTW7TE0KOnV135oG1+e7HVIGsv5ge2RLeiizl05aVTSMGrmwlfdq9/Z3kmeO fKE1FuzydZjklhPYuFJmoxZ3hP2tiXSW1hLtP3ixThRezpc0zmxdv/IMVexY 3b399FRzsPlLY7wk8N8ZypY3uFMAPoIHNWuFoqw0g2teCAEVJtqP17W6PuXt UBgOc4QfUSLTe4QfBi9stb1aPAW07yuPs5TM2el7VKZH7cf71lPqXtIJkzww R1rXWzpLK2j/4W87XYe2pnDDUgjycYOgFueRAPyLe8qUzdNyUhIxLwyeN49N KgTwEV+5PuXtkDKQ9QcDX14ivDd1YYvw3mpMJQrvJVsaicqcC0NJc4Lii9/k 7K54XP5ELR0IQnz7xbl2BdpffbvbdVzri4L8oS3rrGZ1qA2W5L6trcBX9sMf 6+vAbQLzwhTtF3ZN5iMM/HmiyAnvaa9Wvr3FcF2wYEPyzM6JHbFA0FhjvEzq XhRhWuoPtcBoT5roL8KHsnoOi45fSZa8vvtsLh4s2frKalnmyafzcFGVeDKs Xo2DHc24jBGTm5oXPv/gQu11RVIGsv5g4EvKeHhfWDWgFt5Tw2h/5hLJvVqa yJ35P5Up56OwEAyXOQF67UQV2WBaMk9YkLSHzh9tVsjqUKGOZFuBSxNBB54j W2PsAD456VXkZVsFfu+WOrO+ClSlvFBLdB5h4M8HGQ/v6aRVU6XP6vwik7QD rWmSiVnyzJHJA3zxmxyqwzw74pHZqH2ueQ2V5UQa7b/8cIT6FQr94Uzv9SvP 2Ar8v18exOdCxG4J+HTe9v3xDcaBf7o/3tIycLIt2ARZoecO+TgZnBo3jZGT Gl2f9TZJGcj6g4EvI+PhPXXzUThpRZOr0fOUpEka9SWX9Mw51raC6jAl88lB vwUrxgL20R6wBdWPj9dM7i79viN5V+X3mv5HPOCdFzZ/+NtOO4qC9vTk4wNa 6vBybn+FvMGCJeBb9dLBI4P+e1UlVoG/ubzIbH/PBeyTSVIGsv5g4MvIbHhf 0zxBJ61Ab0szS5RiSjrevzvio8J7maM6Ipkjk08mIy9LKWtyEjBO+z+d23mz +WwI3vc803jk+c7zb4++f2aMdGyyG/8Yyv9f7thg3JaNsjqWThlfPBQs73m1 P8048MkeWXIlCO32J+Ka7Kirsgr86gLDLoKYHUHbtJwB1ye+TVIGsv5g4M+p 4NFao+E9nSIsykpTWzt3Fq+SnMJkiSnZF4/8MCWTOXSiVp5sN85vp9NVBisw gWuB+l/+YhPw/qf/9Zu/f/rad9+8fzv966vzf/3jK1fe2ze5r52wb/Zg759/ 97RVax1a9UiaTlNBlCTwqQGKvOcG+SrsbNmkkGPE9VxWP2xkdlQ0jC7sEp1H GPiRrXtXb8QVaND6lbL3Vk3vRXgvX4pJ4b2MJSY5pAU2rpSpzHlzMCuY+ZE+ Y4WH7e/OptNVRrh6/coz5FpGqAfAw0D+dkLYT8x/54XNpjw5qTgT34xNwLdU lok7OK6Wk0/nSQJf7dQVLkuzNZl55T2YbnctK3R94tsnZSDrDwZ+eC3aMHTH Y+m4Aktqh4xcz+QKpZy9lz9phRU64CBTwnftcBY1N5ExdfnspXJK5vztzDZJ ppEr2p6efP20+VcfPYu7BqF+6OlaoB5BuwLtSX/44NeBvhqyazPC/G8+3mO1 Gt8S8C1ZK3Tm/xTAl/dQxYNzUhKthveBtiZclvEppaaAf9NUYSH2LhdSBrL+ YOCHF/neG+zdlphW6UD2HqsAKsX8fDJTJtkruVeL+H+sMd5SHSal7gOt2fo+ OX86t3OoPZdQj/j82y/PKaNe6Ppf3gjm9qfifCNBPnU/lAe+pU1befM0/O54 JIJ2yfDgeG+uWhF+R13QWirV02Bw/RvcsU3b4frct0/KQNYfDPzwuvOJbIMb UnS0Vjm8by9cITl/yQNZJrz/ZH86uSjIFN6fHfGQhYJkMkek7jVT5Qi/qdsI aP/6sQEjqBf68m+nKM43ks+nQh35yiVLwMdNGT/r1b2pc/6seAweKX/BUDVX fWmBVeCTMbLHt93IBKlpnggm8H+Wsih30PW5b5+Ugaw/GPhhJLrWmope6Git 3eE9nbTqKVwsE94faFwm2an22okqOlQrWZljKnX/zcd7qNgSWP7w4vMGUR+a 26F8vn7dDt6qpXyXJeAP1cUC4zLW1nTqCvd9SeAP1yUpXJkQFgUGbdOKanYt 7DO2JGUg6w8GfhjhwjMYveiE9wC4fLRGJ61O98fPiQVRiiljiUl+mPJe90ZS 93/+3dOUxtnzTGP4ChxNnf3tcHALeMcGzWQ+uajJV6uemSiXB758xysqwh9v TJG8ZpRLdLKSE3BVVzeNG5kjmfktCLHuXb3R9blvq5SBrD/YHvl2enD9dlx7 MfFeLDPdDe+pp5VkeE8H5Hf6HpXBApVivvts7pyo+f2BIkvHrP77jSb91P3V t7spjXNssttsGueWen68Vb9w9NTz9fjgH7xYJwl8Oml7aSJvzp8AN+Xgdnnh Ypkd2yNbY3AZTLZlSAJfrUTHuIsOHbnCytr16W+rFFBsanCEfzv9aGWZwTad VF2McGisr0Mhey9fe99dGisZ3l8eTpYvxaS92ouHaiSTOWPt6dSFXJ/2l/6/ vXajnoQ/hD+nuXtLEb68lZy8lw7dc5/duEQG+FSTKVnBS1v8Cj6ZdHGaqlhG ZLU8zrPgE/iPuB3hh/lfXf9m3BIuOepjaKrRSfqGYCy0schrdU6Rc47V4hyz 4T2ZNMrv1VIjp+d3+ZTTI9Q3EPi9+u8vOEN76M//+xj+4uTuUh3gUw5fPqWD RZOkW+bZEY/kRjx+fTzSn7lE0n9D2UWHztia6mwYJQn8Rxj4kSeqxsQC09Ra deWafAB/oHWzpQmFx1tyzglUJ0gy4cpoimR4jweQJaZk1PrlhR399UnAtXIy 56uPnqW8vWOxPembG2eCNZ/tuTrApyqdG+e3y3xXX13qxoN7ypfLJPB/3Zki 2Z6StmbkV4VkqqCwY0t9T0wFRVGSwH+EgR95ou3avPIeI1cyHbZS8FIg33tJ /ys6WitZe0/FOTJ7hRTey58ePfmsT6esHYuCYE1OV+WR5zudpD1p6OlavPkv PxxRBj7V4Usuhf52ZhsePNIQJwN8PEz+3LQln0xqZTvY0ayQwEckYyooSkgt j4YE/iMM/AgTeWMa3K7FlawQQY32tFnyvZd3zgE0JItzrIb3RLBAa/Y3H+9R AybV2+95ptGBXdrZOjYZ3Dj407mdam/+2z/uDZaPbl4reXP8z5c34etC6D4n 7W+c8uO2i7u5TAKfXHQkmx1ToyuFM7a4ng1ajmCuPbUqOxoS+I8w8CNM96yq MOiNSdWYmFBWqzGpa+1wXZLMtL24p4yaGMpEgBTev7Erw3h4/2IgD8QDtNWA San7QF+NrRWYYRQsztTYa8bSwJIlPtVkyrSS/ORoGR45XP1zGeDvKnsMV87p 3YUyVw41O1boe8IJfGUpA/lW4/rVM4cGbhb4DBw6c/U6A9+KxHatKfc/hEAK fQxxd7DUtZZOSrob3pOLwi93bFArvBepezUzNCMKOqptyXz/pa1qwP/rhYAl t8xXhgoku5/gzotf7Vjbijl/X6umClgYqtngcwJfWQaBf/VQ7cxx6CoDX173 J28xaJ5T3TSOhSom1EhXq6XZ1FFXZckqrTU/RtJlhZxzZAzYqQ5QPrync7XK BgVBV7SuylPHA27R/juqzNQA/oe/7cTTgXHJb4wa2sqYWhztXie5Y0tnbOWv nPbCFQpHrjiBryNjwL9+ZoAQfz30vw6cuX2Uz8CfobuWFRpcqFJnqzJvltXw qcSTIW9mTl4KO32PzkmDL36TQ8aYnxwtkykLka+9p+y98klVMhb+5S826bhf mkrpKJ+9olNXkt/YjfPbgx1hqmJkdmzxMElTBUtHroRJptV8I1YEBtOelY1j 5IG/aMOQ6wRwQKaAT+H9/4job/FPDPzb6uGcAep1Ymq7lrwxOxtqLM2moc4W PAurcslqTHJCPrEjdk4a0GErmbIQOtfZX5/01aVuGXy9NlKkk70PtjJxNZlD ok3bP//uabVPQTWZkkY6/37EjwcjdJ/zt6D+YrvKHpNJ4PcULgbDzz5TJJ/A VzgeUpARTHsW1ewyGBf9aGWZ6wRwRoaATwH9DLhPEf/2MT4DP1T3JdQZLDxA 3IJ7h8Lp2qbKYNwFjEtu11Kjk0/2p0tu18q0tcJj5J1zRO39Vx89q8BJ2qt1 PbyH8B7wTtRKjGiRIl+i82IgT9JUgfqeyByvoAr8Zu8yyXzOQGW8ckCyPM5j ZJr4p1xHEGg9sLbFdQI4I0PAvyXbb3kXYODfWmSGbCpu8fi2B3e1rNc/5KWl APgn+r3yQZrMiXvazgNkZKzSqImhZD9uOlqr7IoZIeH9t1+e0zl4deX1DvkE /jf/0Ytbg+RvMdYYNLu+Mpoy509MnmmSFfgUKgDdVgOSrTVlXJCpIwZ+JOjB tB246szuQ2E2dTX6Lc0mOl0rH6SReY5MF6Q3e1fjkQfbkyVzCPLbtSOt65XL 1yMnvP/7p68B+Lj7qAGfXHQkbdM+PRVsdw6Sz/lbXDtRRRX4knYZ8qECHoYH q20wGWwSUVg1sOB7Gs6QSeDPQvut/5WBP0tUfm/KLY32obKSE6xuh9X68uRP 19KpGdDg2uGsOWmwu+JxoOPK/gKZmhD5zUcyxvzljg3zOryHPrz4fLDBykSt wqf412f7Aq3Z8qYK8jb4lyaCmZ99m56UXMHJW+hQQSbCdUvX50hXKzWxNbXP dbOn4ZoG1wngmEwC33qEHzqiFviLNgyZdUvLKWrHq1ndDhPl95KbbrgvYI5P Ni+XzO72V8XMaZ5z45S/p3x5f32SpBPyK0MFyoeV/vy7p+lcreu0h04dDyh/ EKrAH2tPl1wT4ZHAOFZScwKfLHRk7E+tNj1Rc1SgfE5yeo2phTDW1AD+Q5m9 rkPAMVmCsHHgh3lF178Zx0TNrQz2ro1PKVXI5/RuqcOzuktjJecs9ToxW35P IeXhAa98Llp5uzZopNBV+f6ZMddp/6+vzlOjQzUjnXde2Czf6vemAcXGlXP+ FnTzlSzI3Fu3VN5RgfI5CpbIlM8xZTNFB2zvfCLbdQI4qTDI5SodZ3RPbLAX c1bBNiOXsXC/t5rPqS8twDT8Vct6mTlLRdSS2V3K58j4rr/ctx44+vcjfvlc 9J6efLV8zrHRKgD/z//7mOvAp45XR4YrFD7Ft3/cS/mcL861y3xpb42XSlpb vD++QTKfgzuCpXwOOWRaPWBrPJ+zLrs+mM9JqHOdAE7KEPC5Dl9dVJ9jyk6B 6nMUypupPkfSToHqc+RpgFhRptdJf1WMpVy0Tvk97hTA7Jd/O+Uu7b+5cYbC e7V9Z6rP2d+dLbkmIg98mbNvVJ9zYShpzp+Y6nMslfIqHAC3qT7n4ZwB1wng pEwBf9pYYTqgv3nSNpy5AgMfeihrpx31OVbLm+m4unx9Drnfy9Tn4DF4pIwr I5l0ydt/vdDnUebkvz7bR1ZpERHeazRbf36XT74+hxwyZepzPnupnHoayqzg yDDNUimvQn0OnbcqrBowMk3ovFVU1eeQjAGfvXSUdN+aBlx4qZ4GI5cx+eco nLdC+CQfpF2e6kMqmd2l81YyJl3vDAVTE2+Nl8qwi/p3BFqz1dzS6KTS8+Ot ERLe4/0ofArarkXQLumBf3jAK9lo7I1dGZba2Vgq5UVo0VFXZen6FOetDNqG R9V5KyGDwGe3TAXd9WSe8bhF4bwVIi75boa06Sbjl4v4sDP/p4DMtRNVc0Lm ueY1Vu0x1fLe0B/O9AKVrx8bmNfhPZXfS27Xkn9OT/nyG6f8c/4WgY0rJf2u J5uXW2qUgwcrBCTkn2MqLqJ9rujxzwmVUeBbGwx88s8xGLckp9co5HMw+6jd yXujJTLTdrwxGNSd7I6TDP9kcgjUZaO/PkkyWMVCQMdb8vzR5v6uyvNvj87f 8P6bj/fQdq1kCSsZ4MvUSn00WSxpgH/tcBZu6PKlvL9qWa/WXjkvLcXgOXTy Q75nVYXrBHBeykDWHwz8+5Maje9DYUKN9rRZmk1djX4FP+QPx9bNCYQTO2Il u2xc2R+0Z5e3c3+uMxOo/OuFgBrwTz1f73Cb8tk68nynTnh/9nDw0NmLgTxL 27Uyfsjy5fd4DB4pX8qLKwdXWu+WOkvXJx0Aj4n3GpkmUGxSIYD/4PrtrhPA eSkDWX8w8O+OKTHeuEehfS31tzrQmiYzZ7EKoILMOWkA7dv0JCDz+wNFc0Lm 3Wdz5bMT3047KqhV4EcC8LG4wBv45Y4Nam5pIryXtMe8eKjG0natZHtislOQ zATiYXhwbmqy1YJh6m+VvqHZ4DS54/FM16e/K1IGsv5g4N/xWLrZxj0K/a0g 3COsuqDsrVsqA3wywP/8eOWcnHm1P02+Ah8K2rlvyVQzwP9u6rCSi6YKf/pf v8Ff11yhKIT3MndeCu9ltmvJ7xpBu2R4T/aYVu0UqL0ylq6VjWNGpgnZY0Zb +b2QMpD1R5QDn/qVGy/ItLpeFgl8yVMzv2pZLwkE8lfpKV8+J2TEjq2kQyaV 6Ch7S343Xb7+zuu7naf9V1+8PfR0rc4GBJUYyRtQ2BreSy4M3wrk03at1Xwj AhiDdgpkGx4sv/cEXCeAK1IGsv6IcuDfnxQ0bjKewLda/2DVUQFxmqSjAkWA ILkM8OnIlSTBvjjXrnPG9rvpgkbnyzL/9dX5yX3tOqn776bOCMvXr1oK71/u k72bU3viRs9TltzSFNor56YmG9yuzSrYhle7O6bE9envlpSBrD+iHPgRksBv riqRL6uDMMclK/BPdsdJnuKnFlfy/TvIVEG5JvO7KUcCVw5eBU3Suipxq1I7 PvDddEEpvivj4T1+BXnznAONy3DZjDemSO770Olaq25pnQ3BqrO45GJTq2Da ro2S9rW3lDKQ9UeUAz9CEvhUgS+ZwCdLZJkOtjemj1zJtFUiD3xJf4Bvp0+M qpkJCzlvrUC0D7Rm//3yoPJ96pc7NshvdlgK7+mwFX41yWQdGP7uiE/msjnQ GtwkUjgeQm5pHt92g0HRHY9nLoq+8nshZSDrj2gGfoQk8IUlsmQFPhVayDBB 7NjK1AGST5dkwyaKWoMZ+Bc26wD/+HgN8PuHD37tDO3feX030V65a+1306WY 8ndGfFHBbjISWTUR3ssctnqlY5Wlc9lkhmz14iS7D+NuaffG17o+/V2UMpD1 R3gTZte/GVtlNoEPqSXwA21NeFZ74QrJmUtHrmRall87nCW/Y0umCuf2V0hy jGzTlDc9SXh6MJd+pM9u1H9z4wyV3GvSnvYd+uuTJEsxb5zfjgdL3nMthfd0 2ErSZ4+CBIVkI1VjpnkbjUwQsV37UNZO16e/i1JAsakRzRG+2QR+Wf0wXq0g I9XqnOqoqwLwA9UJksAnz7Tzv0icEwtkkjlUFysDfEuuyNAHL9bh8aeer9cB PpWyI+r+8OLz9tH+75++Rt3J9/TkK2dy6N1SMkeyF9i3U+ZyoD2+2zm/fyrO sRTey/c6QTihE96bqsZM39AM2kfzdi1JGcj6I5qBbzaBn1feg1dDRGQV+HTk StIDH+osXiV5xpa6XO1vTZQHvqTl47fTRjrHRqt0gA99+NtO2rr96x9fsYP2 V97bR/X2eKvKu7SkI8MV8oX34p4Y2LhSxjkHP5N8qS3Ce3/mktO7C+dReF/T PBET74225la3lDKQ9UfUAl9Y6Bi5mCl6QTjUVOmzOq0q8rLlT0penjbJlCnS vjCUJOmKrAD8v7y9FY+f3F2qCfzvqO/VVB/zr75422wa5/iRPqK9Zurpu+ns 00jr+q8udct8P19e2BHYvFayifDvDxThkTt9j8r8rFScM7ppreQFo+alIHqd mArvqennD5d6XZ/7rksZyPojaoH/wNqgd5PB1pyJaZUK0wrKTU3G/JWM1iyZ KpANvkw+4evpxuXywCfjR506fKF/fbYPwTPV5IPS+qj/9stzZ387TK5oQ+25 ymdphUTqXvJU2rdTrX7B8IPtyXN+8/98u3akIU7SOYdq7+WLc5TDezpstTbT b2qCUO/aaK7GFFIGsv6IWuDfs6oC1zOiDlPXM5arAP5QZ4ulaSXO2EpGa3RY cnfF4zLApyL8d4ayZYC/vzURAP/0VLMk0L75j16yVtAH/ndTtY7BEs2pOP/v n76mjPp/fXX+/TNjdIqWjlap+eSESiF1T/munvLlMpbU7z6bS8aYMo1OrIb3 atn70Z62rOQETJCS2iEjsyO/oi/Yu3aJx/WJHwlSBrL+iFrgU09Dn3/QyPWM ZW/w9pGSaDWOslqic3RHtnxN5rG2FZK9NhSAD1H7cn2iCuZTnI/IXGEPF6i/ 8t4+2pyljL2a4/FsWU3df3WpmwrvZb75G6f85Hsvc26aNmUcCO+3+SsMein4 p3ud3J/U6PrEjwQpA1l/RCfwH/YEcPkZrC6mAEahZ5zVEh15F50bU30xJHPI asAnt8wvPxwxwlUS5fP7uyqPTXYD+3Pu5GI58IcPfn32t8PBqH4qXQ8+6+dw hIKWnlMNrSRT99BrI8GEvMy52q+nDOskSzFvWHTOubinTC28F14KuKqNzA4s E6K218ktpQxk/RGdwH8wbQeAH59SaiqAoQ0phTO2TZU+S6YKWMtLJnuhvXVL QZ6PD5fIkOdgezKA/99vNMkD/5WhAsDww992GgQ+dPXt7l/u2DDUnhsE+JQm RpuPH+l7/8wYhDAe/x+3A/yjeABF9ZO7S9W664anfX99kvx9kA4g95Qvlym8 p9PNnfk//WR/+py/5vlfJFpyzqGjtcrZe4NeCuSNee/qja5P/AiRMpD1R3QC //7kLbgCTTVrg9K8jQilsBC2OrlqfXmYlYe3Z0oCf7c/UbII3yrwrVbpCLjp 2OncTt/+ce+l49uOj9dM9BcRzG8nPABv4P2XtppK4MymvfxN8Mb57VSZI5PM +efbtUN1sZJty64dztrpe1S+muvdEd+m7KU62XtTVmkivI9ab8zZUgay/ohO 4CPYMLtjS20NFUp0yEXneG+uJPDp1NWFoSTjwH9zMMvSSdtvp/ZtwUNQUbO+ fU799UIA6whQ/fWJWtwF8B/+cKZX5wiVHbTHt/FcZya+cMk6WErmSO7VHmtb getEviHacF0SLki1UyFms/cc3s+WMpD1R3QC/65lhQa7lkNY/yr4EEIFGany B+Sh7tJYyVNXVoFPXjqvjRTJAx96MZAHMF59u9tW4DssBdp/O12HOdIQJ3PM ilrWdub/VOZc7dW9qbRXK9m1VvjeW70g8XizxTkc3t9SykDWH9EJfDpja+pE iV/VRWdiughfsujCKvDJKlPGpFEgSL6hLYkOk+qft40cqdGeDJD7q2JkOouJ yhyZZA7if9qrlT+LjYWAmmsrHa01mOrk8P6WUgay/ohC4FOJjsEztso1mVBw 3Z32hOREvmzFVwE6sjVG0hv562kvl7H2dEvA/+pSN9gYaM02VZw5H2lPrQHk 761Hu4PVlc9uXCLzI77Zu5qaGEru1VIppkJbK+POORze307KQNYfUQj8H6e2 AfgJqeWmgO/zD6r1PaHT642ep+SB3+xdJtkdwyrwEXbiwWCdJeCLrM7Zw02u 49oV2ouNWskDblf2F1AyR+ZHxGPIFVOyV4IoxbTatXbCtHMOh/dhpAxk/RGF 9sj3rWkwe2Er26ZZPXVlK/C/nm5xCIJZAj6Z6szrIP/bP+49NlqlQHsscEZa 18tv1H5+vJIc78/tWiPzC2IVANpbOqaBx+emJu/t77R0KQ60bubw3jEpoNjU iMII33iJjre0Cy9Y68uzCnyaZfKtbK0C/8SOWPnIEwK1rFZmhgb5mlbJbunv lwfJOWFoyzpL585EWc5YY7zMRi0eQ3WYksesTnbHUeG95BbP6d2F1MSwq9Fv 9VLE+hTXcGZ+i6lJEZdczOH97aQMZP0RhcAnG3xTpwj9050NFXwy7Qb+6f5g r/NX+9MkgU+mLlYLdb6dbvMB5hsvhrdb5IEJ2h8e8MqfpSXa4yn4usBwGdrT /RQ/x+6Kx2XqMK/uTaVkjnzJLi4kXE4bi7xWr8Nt/go8MTap0OzB82Afw9xB 1+d7BEoZyPojCoF/15N5BgvPBPCbq0qsTjREYpZ8FS5Pb9qCBjLAvzIaJIyM YWPovi0CXavAh85MlJNb8r8+2+c6xmX0zcd7yLoHb/t3B6ssfVjQHrdF8rqX sUeDzo4EO6H0FC6WOVSLOwLuC6D9cF2S5IUx2ZZByRyre7V4PBkpmKpSxl2D jDHvT97i+mSPTCkDWX9EIfAReART7k3jpoC/Lrse3O5sqLEKfDwFT5RvS3rZ Ylkm2CLf8YqEB4Njkv37ZjBwrD1dv8utM/rrhYBI48g7HofG9lSEKeOf8PW0 hYKkQ9qN6WNW8pU57474lJM59aUFZk9ase/9nFIGsv6INuBjjWm2JhNam+lX m2sKwO8rj5PnBoQHAzXywCeDBasRL+mLc+2U2Inkc1hYgJw/2qyWxlGjPZYA eLBk1b1YlwHgJ5/Ok78q1M7VilJMU33fRFsr9r0PI2Ug649oA/5Dmb24Gg0a Q/mnrF8xawZaNzsAfEteOtDuiscBfMm0w9fTrZesHr8SInedQGu2WQtNU/rT uZ17evKD5mZKNzUF2v/z7dqxxuBOyr5NT8r8Xp9PZpJnjryf3uHtmXh8Tkqi 1WQOVOLJMFuxxuG9jJSBrD+iDfhUhG9wAeuf9lUItDVFIPDBGQD8o8liSeAD UD3lyxWKM4XeGi+lTli2et1YFW5AVHiJ97a/O9tqGodo/8pQgVXaH2xPpo3a a4ezZH6vvXVLQW/5fXxhkqacUURAbmqvtrppnMN7GSkDWX9EG/DJJ3Nddr1B 4K9ck4+JM9LV6gDwEfjJJwegVzpWWarM/Hq61yG4rQZ8gBELBIrzr7ze4Trq v/l4zzsvbCbUBzavVctWfXWp22psT/kx6lQrWVWFH8tSHaZI5lTkZVu99rAc wKIA0bi3tMvUREj1NGBy3bWs0PVpHuFSBrL+iDbg35dQZ7beWAf4vVvqgrmg ynh54JPJuWQDFOjycDDC3N+aKA98qtXpr0+ymt8OZT7F+cDs6xO1dntphkH9 +y9tHWrPpRwO3tKXF3YofBw8i+rtLdH+1f40KsuRsUe7Md1x3p+5RPJQrbgY 1JI5uEdgIiSmVZqaBeKk1UOZva5P8wiXMpD1R7QB/9742sgBvkId/vHeXMxx yYTwjSkfdWCkp3z5P9+ulWc+ncCSb+F6S/3ny5uoB+JEf5HD6R38uVPP12OJ Qah/MZCnnKHCE+ks7VBdrPxWCJZU5J9wZTRF5mcSVfeTbRmSV4I4ZqVgyk1L y+VxHoP+gXzSSl7KQNYf0QZ86l1ucBmrA3yyVugsXiUP/LPPFAELO32PSgL/ xlRfPHmT5NAgf2jLOsTqOsz/4lz7WHu6CPXt9l7412f7rr7d/fwuHyVwqA5H IV0v9OmpZvLJkTxLSyKjafliqs8nM3eVPWap6v7inrLW/BhcPPWlBZGQzPH4 tt88acVNDCWkDGT9EW3A/9HKMlyZeeU9kQB8Mk9r9i6TBz6EuA4wkTmtGZoZ fnMwSx74EBAHYJ6ZKNcBPqV3zu2v6K9Poqz++aPNdmD/+pVn3nlhc7Ar4nSu /q3xUuWonkSOx+STI0978kaTd8vB70iGOVjoSVbdX57ub1KQkWrVM0ckc9Zm +k1d/9+XYq5rdX2CzwspA1l/RBvwqfWJqfZtmsDHbMUTN2UvtQR8hHbgiWRm +MZ0XbdkT22hT46WUSYfUbom87+dSoNTiQtF+0eGK6683vHVR8/qQB5PRzyP hYPgPFXgfPBinebCRBTkWN3v/miymLzR5HfVj2yNAe1x039vtETyAhAGyEOd LWrJHPDZYDInzdsY3Kt9Ms/12T1fpAxk/RFtwL/ziWB4U1Y/HAnAn7Duhw8N VMbLdzmkGLIz/6eWqvFJR7vX4VmHB7z6wCf97cy210aKKNon8j+/ywfy//VC QAb+3/5xLx75p3M7EcyLXrf0UiOt608+6zNyb8K6QGzRSvrbz6D9sbYVkj8N mR1hySbf8uzdEV+j5ylcNh11VcrJHIMr3IqG0adWZQP4vFcrL2Ug649os0em XlcGfRWg5XEeTECFSgkoLy0FwJeP7qDxxmDEfmJHrHwan1pfWQpWoX+8UUM1 +f/58iZTzKf4GS+IEDqU/KRAazaCfwhIpw629F9nNC6/+az6pBcDef9+xG+E 86T/enUzJe1HGuJkelfNpj0idksrL/z6R3dky6fuO4tXqR2qnZhqoGw2meOf OnUI2t8TW+X61J5HCsNhjvDNChcnrnmDF7xmhF/iCXpend5dKA98WtHvrVsq D3xiS2DjSkvA/3raP3NoyzrNfHgY8iMyf6HPA8wSxsMIhMcjoXP7K3S2Ym+p ry51450oJO2hSxN5RHv5u/DH+9ZTWY78iVpK3eMpCBIUmmlurSkznswRe7Vs em9JykDWHwx8U8BXSKhOTLUZsmSBC2E5gKcAF/L7ttBO36OWjtwK7W9NxBOf 68zUTIxLUvfTU83QxUM1oPoHL9bRf1U+ESCp/36jCTe1YNl8+XLc4yx9P6Im 583e1fK07ylcjB9xdNNa+d+dLBQUWpNPTNWDUXdyU5aY/pBkDu/VWpUykPUH A9/IqlbNSwfaXB4sszzQmmYpjd9euELeM5NE3TQkGzOFitp2IPR9ZajAbuA7 ry8v7CCjY6q9/ORomaUvh+rtLZldfHYwg4owLZ2wPvl0HlXdK1go7O3vLMhI NeuZ459O5vxoZZnrk3reSRnI+oOB7y7wO+qq8Fz5AmwSIkNLpSDEGTqB9Y83 aqwy//PjldT9UNlvITKFFQRl7PG1nB3xWP1a6Cwtllry5qWi5L6vPE6+CFNs 1CI8ULjGyADZYH8TPydz9KQMZP0RVcAnb2SsQ80CX9keeULp7JVaGv/G9Nbt G7syrJLt6ylHd9rAPbe/wnVQ6wuBPXnj4As52J5saX/26ylXNCph6ilcLL/O unY4a7j651ZL7sVGbZk3S6Hqnuw7cM0brEyrbBxbHufhZI6ylIGsP6IK+A/n DOAqXbkm3yzwlRugQGN9HQql+Gpp/I/3rVcO8r+ePlIESCr0QIwcffMfvRcP 1VBgj2WLfId3IXx75Hgs75NzI+SAVXvhCktFWYHqBFwhahu1opuVwQ7OUGJa JSdzdKQMZP3BwNdXqqcBU3Kbv0IB+BCmJDggb5BIol6H8skE/SCfmE9x/itD BQ7s4dqBetqchV7uW2+pFEesdKgR+e6KxyU9MIn2+zY9SQesLP3QzzWtI3s0 tZIAqsM06JAGeUu7OJmjKWUg64+oAv6iDUN2pHSyCrapNTEnVeRlY1K/1J1j CfjklAiAWwI+VQMC2vKuj7OJR/n8/d3ZdhfPGEc95XCea15jyVlIiIpUqZuJ pL/9DNqffaZI/iemshxcWjtbNilcV5vLi4zXYXJljhEpA1l/RBXwH7Fn0zav vAevubHIqwZ8KtSxVI99eWojj7I68uQhkbWOfGfz2fr8eCWiXKAvsHntBy/W uc5zedSPNcZbOjwrJJL2Vo+84dehTI5V2pMtqnKqsKvRT6l7sy4iVJlz9/Ji 1yfyvJYykPUHA19fPv9g0K7Bm6UGfNpWs2SSTKKG5pImXUKfT2b2FC4Gu94f 36DM/H+8UYM4mVL6Lwby1HzmbRXe0u8OVumjnm5wImlvKYeGr5p2aa3S/q1A PhVhNleVKFxRQ50tVHVvNnWPlSwnc4xIGcj6g4FvZJ0b9CdJS1EDPu3bYoLL V26ELvmt1upA53+RSLu3VqtTZujsiKe/KoY81kDXCMnwkG8DcV4T9V9PNfml FuS7Kx7/ZH+6/Jcs6u3bC1dYytvj1kBdC2t9eWqXEy5FXJBm27qV1Q9zMseU lIGsPxj4RoTXxAxVAz5UlBVMyMu3OiK9N1pCVsmIJK0y/8jWGLLQtNQY5Zah /s0CxSlT4jMT5W5F+1+ca8dfFyE9bmcv9623epAqVDdO+alHIb6oA43LLKXO Pt63nmjfWbzKUk0OaI/lgFrXQhK5H8enlBqsusdLUX8TrswxImUg649oAz4W pJgOBrexSOSuoOafNqGaxr88Za4CHMl3PAzNLZPZglVHtVvq48MllOGhaP/k sz47vHduqb+d2YbFxXOdmSKkH2mIe398g0IFTqg+miwObFyJ77Yz/6en++Mt fbfCOcHS6apQ2iMAUCi5h5oqfbRRi1Wnwcs7fUPzzf4muYOuT+EFIGUg649o Az7ZI5udDv6pymRMtEBbkxrwldP4bwXyaetWIcj/cCzYD13NYOd22P91ZwpR F/gFhBFyG3c5+3YqP//Bi3WvjRSJeJ6K6l/tT9MJ6UlY8ryxK4MC+2c3LrGU xrkx5VNHtN/tT7REeywE2gtXEO0VSu4nQs5Ymd2opS0qhPcPrt/u+vxdGFIG sv6INnvkO5d4jPvh+6d6QOiU4os0vtVq/MvT9vjyzl2hIoMdS72559S1E1Uv 962n3L5I9bwyVABEK/sY44mfnmo+t78CawcK5kPjefDZ1D0L9wu8IL4Tq84V JPK3t9SscAbt1Q5YQYMdzXZs1NY0T8QmFbIBslmF4TBH+GZlR8cr/7S1iEKD UaEyb5alHtYzgvydvkctnbqdkcwHn622R5HJigDF4KcgPwn8f6HPc3jAC4BD //nyJrLEJKSHCg+jlrihhKf8PJYS749vMPieb5zyvzmYRYH97orHr+5NtfQ1 4ss/1raCaP+rlvXKtFcz2cazaKM21dNg9sJel10P2iNMWsTNas1JGcj6I9qA b0dPW//0sheLcWXgk4uaQlbn8vSpW4WI9Mb0sSA8faguVs1yQSbmvzSRh7A/ sHGlgPb39A5xvJ/9v5LwxP2tibh9nB3xqJ2ZCi/cO0TG/sSOWKu3zs8nM6nY Hms0+W4mpmiPFQEuPFx+CanlBjdqRRjzg8WpD2XtdH3mLiQpA1l/RBvwsTLF NYwr2SzwMdHwslhTKwN/tKeNsjqWijpIJ/q9lMmXP+wfKjL1Au4QjRuP82/J f0D7yv6Cd4ayoYPtyYA5if5F6PcHiuzAe6iwDKE1CD7+3rqlVjP2N0IKcpq9 y+Q7FZqi/d7+TirLiU0qNNvHDTEM1WE+sLbF9Wm7wKQMZP0RbcC/L6EOsyMz v8Us8CHMOMxcheYUM7I6h7dnKgT5u/2JeC5idQXghzIfga7BfH4k6/PjlbjX EOpBbKuuRKQLQ0nUuApLM6t3an3aQ7W+PLzC8jiP2ToE3DtWrskH7e9dvdH1 ObvwpAxk/RFtwL8/qRGXsfFUp3/aJFntIDyJmtANVMYrAJ8s0xXs1EKZT7md /qoYU3ugkakbp/yiDqencPGbvavVtj/IpEJhi9YU7akIE3E4onGzF3Nyeg2m yV1P5nHq3g4pA1l/RBvwf5zahisZ17Nx4OcUtWPtoHY6koSJr1yrc3naTk15 9/bGVD6f9nBN1edHmv7xRg0+F52chY61rVAoZ70xlbSnmyN+LIV99rPPFLXm x2jSfpu/Aq9gtmth6JV8x2PpD+cMuD5hF6SUgRx2XD1UW3vo6hwPijbgP5TZ C+DHp5QaB35J7ZCOwQKJWtxaLfMQotaHgLYa8EmIeIn5zzWv0fReiBxdO1H1 an8atRqndL28lf0MXRlNwV0VPxOWVCefzlOgvThdpVaBOTHtjWbHbpRI3SM0 cn22LlQpA/n24/qZgWBJJwN/hqjpVUy81zjwoeVxHkxD5ZhtYroBFkiiBvzT uwvJbOHCUJIO86/uTQXTyG9Hx2MtEoR7lnBIIJMEqyWXoSugEztiKY3TXRqr sBB7K5BPPjk6tN/ZsolK7o1vRVU2jnHq3gEpAzk87Rn4txTWqpgsZgvYSMnp NZpp/IlpXx2r9vhCk20ZeHpP4WK1ih2ha4ezRHrnYHvyfNzJFSd/CfX4OApF OEJ4LllfqplgXJ5yPCYPzIq8bDXnhFDam/VG809VmmHlG0zdLytcxKl7O2UQ +NevHpqC/QAGA/+W+uFSL+ZLSe2QceDrp/En9ArySQOV8WoumrOFlQLuHYR9 xMkOFG0aCenf2JVBjv1UWv9KxyrN29/p/niqxmnNj1FI41wO6Waic3kMdjTn pCTaQXv/VNVB8IzVE9lsmGO3zAF/KrYfOHT1+s0on4E/W3cvL8aUya/oMz5l KI2fm5qsA3zEfgjhdIL890ZLqGLHUquO2+nzyUwAE7gT2Nf0JbNJ/3y79tJE Hnm4UUi/q+yxN3tXq23Lhn582p9VsMcRok6Fyv72DtCevO75jJUzMgf8765f vx6Cfgb+LXTv6o3BQ1IF24zPGv+0baayixoJWMCLtBeuUA7yT/R7KZmvdvx2 thAhU4aHsH+0e12ElG7i7nNlf4Fw76GQHm9VOVEfKtwvyAkNN9DjvbkKPwRu EIHqBJ3eVTNon5hWaTwbieCH7NF4o9YZGQS+GAz82+mBtS24trGAtQP4ZCSr Y6pDQT51Nlco+RM6uiPYKhcAPP+LRCPMn439obrYd4ayXank+eyl8rMjHuHJ TG/p2Y1L8GGVq1JDhfsFXo0C+4HKeLVCWTyLiu3BarW+tA7Qvqx+eHmcBzPi vjUNrs/NKJEykMMMBv7tRJWZccnFdgDfSFZnYjqTj8BSLYdAog1cs8ynLAdC 311ljxH2ybLy1f603x8osjXbA8iHevIQ5InzeD86G7KhunY4S5yoavYuUwvs oZNP5+Hno2L7oc6WyKS9OFHLnU2clBSQr99+6AE/jDOn69+MHVq0YegHi1Nt KtTxT3ssDLRu1mQ+lescaE1TBv7l6exxZ/5Pr4ymGGQ+Ca852byc0vsC/oi6 3xzM+miyWNMG559v1+IV3n02F4QXkbzg/E7fo1hrXBhKstrDPbzwglRj789c gq9O+W57eHsmFeSUebOUyy/tpj1ekJqS84lahyUB4e8rLWePgTO3QD5H+GFk X6EOlJnfol+rMzHdzwLcsNT/+nbMNx7nh+rq3tST3XF765aKqDvUynh/a+Kv O1NCXdEQqAPmQlga0L/jYXjwbLyThqt/jvvL6f545TNT4T8CvX/qVHV6d6Ha t417xHBdEiXt60sLlMsv7aa9f9o/4c4nsrkpucOSAfL1q7cftwrxGfhhZJNJ MomyOlnJCTqTnUTWWOCPDvBDma/WJ0VeX/wmB2E//sqBxmWh/J+h2QbIt3wY CI8wHoT/cGydfe/5k/3peLeE+kbPU1b9jUP17oivs3gVXge/fkddlc5Pbzft 07yN5J/AZTnOSxnIYQYDP4zuW9OA2AbXvB3Ah+KSi3UaYAmN9rRh1uuUaAqR 046pWk15XTucBVxjcYElgBAwjtuB0L5NT9K/42F4MGRk43VOfT6ZSXvQ+GY2 ZS/FbVHBm1roeG+uSNrrmKZOTJ2uEhWYdtBeFGE+mLbD9ckYhVIGcpjBwA8j XOf27dv6p+vcNH11SEZ2b0l09od2OTWr0+e7cBvCjY/OUvkzl4w3puigHj/N 6Ka1lMapyMvWSdpPTPnk2HSWloSFLRdhuitlIIcZDPwwWjS9b1vZOGYT86kg v3dLnT7zafdWwYP3dlEoeS8oGynPa+FOB9RTdT2dpdLcIjm9u5BqL0Fp/TUd 3d/to31h1QB5o92f1Oj6NIxaKQM5zGDghxedt/WWdtkEfLJZqC7w6AOf+lMr 90aZoXdHfH3lcRTqH2tbYbbKJZL18b71IoFD1fXKO7NCk20ZVI1TkJGqmcaZ mPa3t6lBj39qd4lK7u+Nr3V9AkazlIGsP6IW+NQJxaY4yj9V4YxQCvN3tKdN n/lkfg62qBm53DK9Q0dxd/oeta96J0KEtYyowIEC1QlWexGGuW+SPY7mBj2e Thv09gUhFQ2jMfFeLrmPBCkDWX9ELfDp+NXKNfk2Ad8/5UaF+bu5vEgf+BPT FTuNnqfUTn3OFqDXXrhCZPVNHVyKHH3xmxzcy6h1I+Xqh+uSNBM44nZJLsc5 KYldjX7NX3asr6MiL5s6FRrvZiJoTwessLBdxCX3bksZyPojaoH/yLRPstlm oKES9ZlGgnwEgSWeDHJiNwJ8kZQAuwj7r3SsWhibuVf3ph7ZGkM+n3Rg9lct 643cKEMDe1Ba/5cd6WotykrDdYLw26aDIeI47Q+Xepn2kSBlIOuPaAY+VePb 5KJGIod8U0E+4EBVmrv9iQaZ/95oCfVAF2bC8xT7nx3MEJ4PlL3pLF5lZONj dmCv2fWANNjRnJeWgoswLrnYpsADtMeL36Q9+x5HhpSBrD+iGfg/XtdqU7vD 2UG+ZqmeEPW/MFW0E6qTT+dR7ErkR4Ss6SHvmK4dzrowlCRMjOn81Hhjiv6e rH2B/cTUSWpxtApYZtpHj5SBrD+iGfiLposz7cvqiCB/a02ZEeCHMl+59W0Y vRXIp2ifsL+3bum5XWsis5Ln433rEc+Tp6XI0geqE5Ttzm4nfM9mA/uJaQds XHupngabLrya5gmiPfc0iTQpA1l/RDPwH7G/ODM0yNfpdTtD1MPaVKHmbJ19 pmh001qR26dWsIiinTkAG0Z4A5eHk4+1raCWu3RjIvebybYMncNTt9SJfi/t a1MpjpFlGl6kuiDY+/ipVdnGW5CH0h4Lh5tWOTkDrk80VqiUgaw/ohz4dhdn khDFBdcRedmmgD8xXaipb6cZRhf3lB3dkR2a56F6nhM7Yq+MpjgG/6t7U7HK OLI1ZnfF4yKYp7wNFiMvdefon0GerXdHfNQpEl9ybmqyjpt9qIY6WwoyUmmL 1ucfZNpHp5SBrD9uZ4xMw/Vvxm49lLUT8wKzzyarZFJ10zj+BNChX8J3S+Yj GreJ+YJ+uK1QrDsb/mRuZirt8/G+9Xi1k91xeGVhvyb+LhUp/aplvX4h/e2E ZcJzTevoOFVOSmJzVYm+CZ5Yl1HSPi652L4j3kz7yJcCik2NKI/woTuXeDAH bap/FvKWdlFjFFP0IPVuqaN8vtm6nTAwPN6bO96YAurOgD9V+ADRCMVnOKHd TsJRjdguAvgZhMeNBp9usi3DPsgL4a+QARqZGxvZnCVtLi+ipP3aTL990QXT fl5IGcj6g4F/X0KdA1kd/7SFpqkSTSGxhztQGW88iR1GF/eUAf4IhkFj8B8h cSilQ28Et9OMx5Na82PwalizIIw/0e+1I11zS73UnSPS9WXeLH2fBCHcNfCC RPuconb7LjBRk8O0j3ApA1l/MPApq7M8zmNrVgfy+QfJbMGIo9oM5uekJOKV m73LHAiDw9wCgOjD2zNxF4AC1QlAdxjhTkGPPNCahicaOQOrILxhgfq8tBSz v46ovYyJ9xbV7GLasx5h4LstZ7I6/mlHtdzUZIO5AhFGlngyyG9Hp/V5VAmo xy1SoN5UySUp1B4nMa3SvqQ9037eSRnI+oOB/4iDWR0Icx8Q2FjkNQt8Ikx9 aQFt4yJ4djK9M+8UmsAxjvqJqSO0VI2DNZ2tR7n9IT45fLpqvkgZyPqDgf/I dFYHc9PWMIyEP0GJHbMVO0IddVWU0tfs1rcgdXFPGZY/rfkx9qEe2lpTRh1M YpMKbbLHYdrPaykDWX8w8El3x5RghtrX9DBUlNjJSUk0uDM4I7yk9A6dSHIr Nx5RCj1KZh/qR3vayPeSjtDavSuEuwk5HjPt55eUgaw/GPgkanrowNYtiZyT gR3jyfzQUJ92cv2ZS37Vst6xcpdI04l+rzhCBeFWaNPaCncQ2p+1z+U4VEU1 u6ibCTsezzspA1l/MPCFECbZbbMghNtKQmo5VQDaBHwKOGnfkCyCoyrD8+6I LzR7Q94INi2pQgN7u/dnSXnlPdSp8Ecry5j2807KQNYfDHyhB9a2YAaBww4A 3z+VzKfjt81VJfYxHxpo3VyUlUbY7yxehYjXdRrbKtzXQkP63NTkpkqffSup 0MDemWiBUoLBToWrN7o+a1gKUgay/mDgCyFSuuPxTEyl/Io+Z5iPVTn+HKBk Rz55hroa/XlpKYT99sIVh7dnLrAkz8mn84brkkSWPvhJCzz41GaPNrsb2ENp 3kaiPXchn79SBrL+YOCHirzU4pKLnQG+f9pywRnmA33b/BWIeAn7YON4Y8p8 39IF5/EpQlM3WM501FXZF9K7FdjXNE/Q1s8PFqf+eF2r65OFpSxlIOsPBn6o nA/yHWa+gBWV8RD5ByrjEfDPo7p9vNWjO7ID1Qmh8TxuZJvLi4Y6W+z+9gY7 moVVgmOBfXXTeEJqOaKROx5LfzBth+szhaUjZSDrDwb+DFEmH0G+M+U6oczP Sk4wZcMrCS7a0iXsRzj5ybfhuaZ1wrdNxPNNlb5AW5MD39hYX4fwQIuJ9zoT 2ENl9cNUbH/nE9kPZfa6PkdYmlIGsv5g4M8WlevY6nM1W1kF2xyO80mjPW0d dVWUixbkby9cMbpp7UvdOe7C/+wzRYjkh+uShDMzvcngybICD962wZ4ycwp/ DosI/EZ0XsOmpoSzhcUmlV/e9WTew56A67ODpS9lIOuPKPfDv6V+nNrmgEn+ bGXmt7jCfBG+4u9SM6YZ8B9vTDnem+uALdvJp/NAeArjyeVGQJ5KWBFg27oP e0th+UAZMMrhIN527JIQBTlcfrmQpIBiU4Mj/FvKlSDfdeYLDbRubq4qoUx1 KPyJ/wOV8WAybgEn+r3vjvjUwI7nYgUhfDVDu6uIP5qTkogb0NaaMmcyNrOF FcTGIi+hfuWafAeOUwl9v0X7s5T71jS4PiNYBqUMZP3BwL+l3AryQ5lvsO+5 shBL72zZhHcC+FN5z+xbQOi9ILwfsgjaZ7NdJORBeNxrerfUObD9Gh71wusy 6H20odnJK6GycSw+pRRXYLAgJ7XN9enAMitlIOsPBv7tRP3NMdMdBr4/JJ9f kZdtpHG2Qf4j+Mfqg+J/iNwbrApgx3Px6fA6hHebzsAqiHZmyf0MWpddX9Ew 6uSvX1I7xFu0C1vKQNYfDPzbCXPNMQvN2SqsGlge5yHz/MiBYXgF2ppwOwgj d4P2OUXnFKi6nnoROox6yOPbTp4Jdz2Zx35oC1XKQNYfDPwwujumBFMvMa3S eeD7p9f1VK5pvEkWazbq6SQyvvCE1HK7bY1nq7ppXCTt74mt4i3aBSxlIOsP Bn4YPZwzcMdj6a7s3pJqmidSPQ0ivWP36dEo1FhfR3NVCSWm8D3HJRc7uTMr hPtLbFIhnaviU7QLXspA1h8M/PDC7KPEjpPFeDPkLe2i9A64xKG+KeHuGZqr B+qdPF4dKpHG+eFS70NZO12/5ll2SxnI+oOBP6fuWVWByZicXuMW8P1T6Z3E tEoK9etLCyJqJ3feaaSrNRT1+GVtbS8eRljBrcuu5zROtEkZyPqDgT+nHvYE yGAHkZiLzPdPHcOh9oi5qcnuFurPU3U1+oW/pSsVOKHy+Qep8/gPFqc+sLbF 9euc5ZiUgaw/GPgyIoMdwNatUDCUErSTSydPI7zuJUI02tO2taaMzhFQXb27 qIfS///2znW5iSMNwxcRyAHiQID82VSSymHXxckkyMHYyLbiE0YGG2LkUKwD LA7rDSGbUpGiXKlKbaUqf30bvg1dhi4j+9mf1Bb2aCx1Sz3Treet50+ILM3x mW96erpnH2thf/zTEn0vBw1rIbsH4XfIycv3dQ7ETHppHmBu+cXwyIx24Onr 7B6hIxfEtfKcab05/+W83KZ5GwYnkTsPftNL9m4zzoUV+l4OINZCdg/C75Bz s1tv/f1mhr00DyDW0uZf1f6D2ws+RxLLObIppKRfuDFmWm9kr2XS/eYAkwsb +nz22MfF09c3Mz+qIROshewehN85Z6erb3w4tjv5+PKLzNWhLK6+1Ie52sgj 1ewga19H/tT5HHWbyB3Z+Mx6tq03itwYXhlb1sL+7eElCvtBxlrI7kH4XTFU eKSN+XkoFw1La1um2tce+8/XK5nr17PnzaQk2ko/Wqxk1c3yMNqxVrvZ83wW rIXsHoZH7pZ3r3yXec/8RKSOlWpWe+xrT55/rd6JuAOn3MsYzxvVFyZWxa7+ h7xrh+lPu1vY/+MWA9rDB0nCX2tJv4Wf8n8z3zL5RHvmX7x6Mz9iMcgiifFk 2VT7k4Ura+W5mF7XEs9vVFZa2210MIRSeTMPz9NbobCHRKyF7B6Eb8G52a3j n5Z0fK3MrdKOxdWXUu7KnYiaf/rrr8T81af/zNzYdpL/z8NVWf7W57Cmns+2 100iFPaQgrWQ3YPw7Tgz+Ys+wL029SBzvaSw8vD36cVnlwq3TAu/mR8w5334 jeTNmGat7fNzyy9yeHulUNhDOtZCdg/Ct+b09c0gnG/MP7mwoU09Rv7fjBXu L85sVFbyUPm/+vfj5+uV7++WW4fZ10UdHpkRycuVy/8gll1BYQ+dYC1k9yB8 F8JyvjG/lKDiT328q+ZXFm6M6YRT4v++DsIv1buZSEVqeJ0xtrWMN5IvlTfz 9nA8EbndKM4/afSxp7CHVKyF7B6E74hxfiZzYzkiLhWjjpUe6rufrcV/69Th Onu4zk6ltwMdIhW7/pXW7YfnSWz90UuFW2J40ebi6sscNsunoC8+746Kszfb OIU9pGMtZPcgfHd2nf+3r8Oq8xMpV16J/0W5V8aW9S2hRLqazTDxG0SP8v2y ueS3xJaZj1BkzdLalhkn4a3P596/8VPmRyPkH2shuwfh94TT4z/qVCmhO/8w chUQIU8ubIicBbkd0MtBJxQmVvWvtG4Xgmif6QS5BzEDoB37uDhUeJT5QQih YC1k9yD8XnGm+HOszodWVh//Ob34zLThnLx8n3ESoCushewehN9DpM43z3Bz 22kQXCiVN3WcUm3DYWRjsMBayO5B+L3FPMO9VLgVTfMFCDfvVbVTqw5if2rs h8wPNggUayG7B+H3nDOTv4gQdPD8XI2xBnbIhdv0rj/+yRRdLsERayG7B+H3 g3OzWzrezhcXpmZuP89cWWCHqN7MOXvso4mhq+uZH1oQAdZCdg/C7x86rqbO vpG3cb0gnaW1rcLEqqq+McM4T2ahR1gL2T0Mj9xX5PZfKkMxxvDITLnyKnOP wZG8pvoPx+RO7ex0NfMDCWIixcNU+KFztvSrzo34xYWpUnkzc6FBO1Ye/j5a rBjVn7x8n3dmoR9YC9k9CN8POge6jtxO7528cfNe1TyWRfXQb6yF7B6E743d 5p2Pi1rqTy5sZG45WH38p9xzmc6WqB78YC1k9yB8n5z75pX23uFJbrZ8+/0f cs01r1Ad/2Rq6Oo6j2XBD9ZCdg/C98/p65v6JFdK/fGZdbTvkzsPfpuYfawT lOjbsqeuPc38kICBwlrI7kH4mXC29Ovbw0vqHJFPcf5JWAMCB4ds3lJ504xs qROUnB7/MfMjAQYQayEnpF7brlabHXyq1e1aHeHnlTPFn1X7YiHR/vTiM0bg 6TnlyqvRYkXn9tX3p05cvHdm8pfM9z4MLD0Tfn2nunYo1Z0U5yP8zHn/xk/a b1OMdP7L+bnlF5lLMgLurv/PTOZrSvr3Rp+cm93KfI/DgNMj4Td0X91pVvW7 1f4Rykf4OeH09c03P5tR7Yumwp0TJFvkFkmumPt9LPcGqz85ssbLU5AfeiT8 2rZ8eruWcBE48I8IP6+cuvb0+CdTqv2Rr2/P3H5OI0+HlCuvxkoPdaJe7WP5 zvk7PJCFHNIj4Sdm7yrQvsRH+Hnj3OzW0NV17bGvbfsTs4/pyZPiedk++33p 9zreDBUe0ccSckuKcl2Fv+d7KvwQkepU2/a1A+dosTK3/IKCv7LX5UbufWSD 7NfzzaYbnsZC/klRrpvwtUEn7aktws85Z4o/67taWvAPsvmlmJ9c2NCRzYzn 3/xsRjzP7OEQECnKdRG+VvepnXQQfhicna4OFR6Zgl+bekR9pfJm3CPzqOS/ Gr9r+lU2utwML8kGYRgECJGOhFxvn4S/q6vtUxpzzPenjMyZ+ZaBA4jids3/ +Zwxv3Dx6s3i/JNozC+Sn158Jpez1hYbnVjwxMV7p649pX0egqYDCSf2sG/X 0b7ZP/Oot67+osIPFqn53xt98s75O298OGbkPzwyM1qsSNm/8vD3zL3dOd9+ /8fNe1W5Zl0ZW25trmmVPMU8REMnQq7X2qdV683SPr0lB+HHxKmxH05cWNHx eUzZf/7L+WtTD6RUXlx9mbcGf7kZmV/5rxj+q/G72sHmoOQvrMjljCewECXW Qj6URrN9B6V9R9+f+ZaBrhBDDhUeSdmvvToP+L8wsSqOnbn9XC4B3vp5yr2G /Jz8qPz0+My6qeFbDa99KU9evi9XLip5iB5rISfq/qhm+y6+P/MtA9bsyv/q ulh091Fvs9nH+F+5VLglBhYPi43NtUBZWtvqsFbXz2ubjCJ1u3ytDj6cqHe5 HslSvXvlOynjGcEMBg1rIb+WlGZ+XrwaeM5OV6V+Fse+PbxkevscoNXPFiR+ 57GPJuTn5Eflp+XuQ/TOaDYw4PRG+I3Ge4QPnSL6FUTFil4LFB3Y50iOf1oy f3JyZE2/R64s8rW0wAMk0hvhWwXhAwD4xFrI7kH4AAA+sRayexA+AIBPrIXs HoQPAOATayG7B+EDAPjEWsjuQfgAAD6xFrJ7ED4AgE+shewehA8A4BNrIbun 3cDImsy3DABAZFiouFehwgcA8Im1kN2D8AEAfGItZPcgfAAAn1gL2T0IHwDA J9ZCdg/CBwDwibWQ3YPwAQB8Yi1k9yB8AACfWAvZPQgfAMAn1kJ2D8IHAPCJ tZDdg/ABAHxiLWT3IHwAAJ9YC9k9CB8AwCfWQnYPwgcA8Im1kN2D8AEAfGIt ZPcgfAAAn1gL2T2Mhw8A4BMLFfcqVPgAAD6xFrJ7ED4AgE+shewehA8A4BNr IbsH4QMA+MRayO5B+AAAPrEWsnsQPgCAT6yF7B6EDwDgE2shuwfhAwD4xFrI 7kH4AAA+sRayexA+AIBPrIXsHoQPAOATayG7B+EDAPjEWsjuQfgAAD6xFrJ7 ED4AgE+shewehkcGAPBJioep8AEAYsJayO5B+AAAPrEWsnsQPgCAT6yF7B6E DwDgE2shuwfhAwD4xFrI7kH4AAA+sRayexA+AIBPrIXsHoQPAOATayG7B+ED APjEWsjuQfgAAD6xFrJ7ED4AgE+shewehA8A4BNrIbsH4QMA+MRayO5B+AAA PrEWsnsYHhkAwCcpHqbCBwCICWshuwfhAwD4xFrI7kH4AAA+sRayexA+AIBP rIXsHoQPAOATayG7B+EDAPjEWshJqe9sVxv9e6rV7Vod4QMA5IfeCb9mZG9S 3UlzPsIHAPBJr4Rf39nTfbOsr9f0v9OUj/ABAHzSI+Gr77dr6f+E8AEAsqNH wk8IwgcAyBUpynURfl1b9FMb8RE+AIBPUpRrJ/xGY/6e7dtX9wgfAMA3/RC+ pJNuOggfAMAnHQm/3j7txV9r9ttJ+f6UkTkz3zIAAJHRgYT3G2kOJ7WEP+Kx bb/f5CWEENJhjJDrtfZJfZu2to3wCSEkgHQj5D21Hyz39/4R4RNCSO7TlZBV 7uZNW9OEn96G77qIhBBCepGux9Lpsokf4RNCSE7StZClqt8fQO3o4TJTvn8Q rgWsYxxhHeMI69jvLZCV8Lv68v4tCevoM6yjtw/3Naxj/z4ckPBzchj09QDL yZKwji4fzs+S5OTD+VkS1hHh5+fD+VkS1tHlw/lZkpx8OD9Lwjp6ED4hhJA8 pK+2J4QQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEJIH1LfH5Dt6PHYwky9 tl3tYtC5wLM7qmr7MbNDSetAgdXtHXZZmBmIUy8ghda2D82umDricoBJnEAy tpU0qR810XEYSRgKPPRVaptIdllCBuLUC0mh5lDT5WvOqZLb5bVIvblK+xPH bEe3ks3sn2Bh2+PgcRnfYWkSyy5LyECcekEpNGEO9COmRQ8vSbP+RreSf7Wc TNVq8CuXMHPnEZN5BpmYdllSBuHUC16hYS2tbRInCA46e/ttr/kw/D2YuAbs sjgS3348mID2ZqPkiHp37CbKcrHevG8O53hrk0QnhL9ahxLRLus4MZ56rQlF ofstidWdaHdGI7quud8ltgnfHoMifJOY1+21xHzqhaVQWdpqdX+BY9whjWiJ EfEqhm+PpLbfdv8aRcLfZR0l7lMvY4XW2yf1z2oBdRHreh3rjc5+Qaydpvv9 GL49qPDjS4CnnmUyUWhi/9cOLz6hHH3drmOzk1i+34t4PTb7MZT91z4IP7KE eOq5JIP9Wa+1z1EbPZR75y7WsVlfBHc7abEfw7fHgPTS2U/4u6x9gj31XJJX hSaeRPE9R2+0HQ5IfRGBPQakH75JBLusTaI/9QJTqGlYM6/CNdoQ8riwlsnv 1u9PYrDHgaqwHt9R+Vpi2GVJGYRTLzSFJoxZEtXdV0oreEyr2ZI47DFIY+lE sssOZlBOvdAU2joqYe7Heus6SXsjgJ3ikFjsMUCjZcayy17P4Jx6cSuUEEII IYQQQgghhBBCCCGEEEIIIYSQAPN/E7N5yA== "], {{0, 507}, {507, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{253.5, Automatic}, ImageSizeRaw->{507, 507}, PlotRange->{{0, 507}, {0, 507}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762187100491347*^9, 3.762187137781024*^9}, 3.7621872230522523`*^9, 3.762188682111007*^9, 3.762253082987364*^9, 3.7624948949301453`*^9}, CellLabel->"Out[23]=", CellID->323519657] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->781443856], Cell[TextData[{ "Add a parameter of the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PDF", "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/PDF"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " as an argument:" }], "Text", CellChangeTimes->{{3.762187633491008*^9, 3.762187649635521*^9}, 3.7627070819177794`*^9}, CellID->109269859], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parameterizedPDF", "=", RowBox[{"ExpressionToFunction", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", "\[Rho]", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "\[IndentingNewLine]", "\[Rho]"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7621874985899487`*^9, 3.7621876236106687`*^9}, { 3.7621876570178595`*^9, 3.7621876865528708`*^9}}, CellLabel->"In[24]:=", CellID->248545442], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"vectorVariable13", ",", "\[Rho]"}], "}"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["\[Rho]", "2"]}]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox[ TemplateBox[{"vectorVariable13","1"}, "IndexedDefault"], "2"], "+", SuperscriptBox[ TemplateBox[{"vectorVariable13","2"}, "IndexedDefault"], "2"], "-", RowBox[{"2", " ", TemplateBox[{"vectorVariable13","1"}, "IndexedDefault"], " ", TemplateBox[{"vectorVariable13","2"}, "IndexedDefault"], " ", "\[Rho]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]]}], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.762187594082429*^9, 3.76218762396488*^9}, { 3.7621876584217477`*^9, 3.762187687000812*^9}, 3.7621886842544417`*^9, 3.762253085154004*^9, 3.7624948967283697`*^9}, CellLabel->"Out[24]=", CellID->215348871] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parameterizedPDF", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"1", "/", "10"}]}], "]"}]], "Input", CellChangeTimes->{{3.7621874985899487`*^9, 3.7621876236106687`*^9}, { 3.7621876570178595`*^9, 3.7621876865528708`*^9}}, CellLabel->"In[25]:=", CellID->849475], Cell[BoxData[ FractionBox["5", RowBox[{"3", " ", SqrtBox["11"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"230", "/", "99"}]], " ", "\[Pi]"}]]], "Output", CellChangeTimes->{{3.762187594082429*^9, 3.76218762396488*^9}, { 3.7621876584217477`*^9, 3.762187687000812*^9}, 3.7621886842544417`*^9, 3.762253085154004*^9, 3.7624948967542677`*^9}, CellLabel->"Out[25]=", CellID->325885687] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->2087062], Cell["\<\ Convert the solution of a differential equation to a function:\ \>", "Text", CellChangeTimes->{{3.762186469987383*^9, 3.7621864957119355`*^9}}, CellID->681675746], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol", " ", "=", " ", RowBox[{"DSolveValue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "x", "]"}], "+", RowBox[{"y", "[", "x", "]"}]}], "\[Equal]", RowBox[{"a", " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"y", "[", "x", "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.7621864974322815`*^9, 3.762186498319155*^9}, { 3.762186598110715*^9, 3.7621866391550255`*^9}}, CellLabel->"In[26]:=", CellID->473542605], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"Cos", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.762186620403406*^9, 3.7621866396251235`*^9}, 3.7621886860058527`*^9, 3.762253087025571*^9, 3.762494901827701*^9}, CellLabel->"Out[26]=", CellID->17709499] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dSolveFun", "=", RowBox[{"ExpressionToFunction", "[", RowBox[{ RowBox[{"Evaluate", "[", "sol", "]"}], ",", "x", ",", "a"}], "]"}]}]], "Input", CellChangeTimes->{{3.7621864974322815`*^9, 3.762186498319155*^9}, { 3.762186598110715*^9, 3.7621866391550255`*^9}}, CellLabel->"In[27]:=", CellID->502929010], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "a"}], "}"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"Cos", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ")"}]}], ",", RowBox[{"{", "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.762186620403406*^9, 3.7621866396251235`*^9}, 3.7621886860058527`*^9, 3.762253087025571*^9, 3.76249490183568*^9}, CellLabel->"Out[27]=", CellID->77191619] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dSolveFun", "[", RowBox[{"10", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7621864974322815`*^9, 3.762186498319155*^9}, { 3.762186598110715*^9, 3.7621866391550255`*^9}}, CellLabel->"In[28]:=", CellID->169915849], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "10"], " ", RowBox[{"Cos", "[", "10", "]"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", "10"], " ", RowBox[{"Sin", "[", "10", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", "10"]}]]}]], "Output", CellChangeTimes->{{3.762186620403406*^9, 3.7621866396251235`*^9}, 3.7621886860058527`*^9, 3.762253087025571*^9, 3.762494901844675*^9}, CellLabel->"Out[28]=", CellID->116249776] }, Open ]], Cell[TextData[{ "Represent the function at parameter value ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["a", "TI"], "=", "10"}], TraditionalForm]]], " with ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Curry", "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/Curry"], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], ", then map over a range of ", Cell[BoxData[ FormBox[ StyleBox["x", "TI"], TraditionalForm]]], "-values:" }], "Text", CellChangeTimes->{{3.7621885270008774`*^9, 3.7621885670742035`*^9}, { 3.7621886371043663`*^9, 3.76218865239233*^9}, {3.7627070728902073`*^9, 3.7627070728902073`*^9}, {3.773578163972661*^9, 3.773578168105117*^9}}, CellID->9301506], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AssociationMap", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Curry", "[", "dSolveFun", "]"}], "[", "10", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Range", "[", RowBox[{"0", ",", "10", ",", "0.1"}], "]"}]}], "\[IndentingNewLine]", "]"}], "//", "ListPlot"}]], "Input", CellChangeTimes->{{3.762188553119903*^9, 3.7621886091126595`*^9}}, CellLabel->"In[29]:=", CellID->54750242], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxd1HtQVFUcB/Bl2WUX2IV9v3fZBYHRkUDBAQE9v4QeTIIEQSs5gRiPUCEb DUR5KmWkgzA6Gg9FMgd5JBkK6jpsChWFElHWYiAlwRKIiCssoVR0f/tPv5k7 d+7c8/ucc8/93qtLzopJodNotJR/j6Xz/6vy46W6QlKZh+28OuoJdd1NRKwz hvaRr0mA/1L1E7P83c7mCRPeNxH9oaF7a/1GCaUMkxDmUWte4zSOv09GX0n8 vIEzR9JSl2qUPB62JDULF7F/nAQt72cf66HDrZ6lmiRFhg3Bz19zAMqbJvlq ZhH3phNQ4x+R/u/v+FzvcwHKf0yymIzF3zL42G8hA3ZXv/VNFAI13yzxzDGY f1knRs9KEoTV2p1/S9CbJ1siTkWzamToLRBrTfmYnqdA7ympKCrY3RqrRG+R GBUzOmmyCj0anOB9MucXqMbxNHh/ZdeX23vV6NtB7VvNRdPeGuynQ3JbYnTj eg3OZw9T9Wm1kQINegyYtib1RdXZPAYsb6rlTEyp0GNC6Vd5adp523ocIHzA uLHhhgI9FggqLvsvRMrRY8NwbFBLwCkpemzIn2icULeJ0XOERO6eKlmNbb+c 4DuHsiOiOD56zrBi73SvfTcXPQ5U/bTnvYN1bPQ4oDJtlK4Ks0ePCz7m7qGt 7yzg+3aBuRluRYzGlgdXaGlIv9Ld8gPmhQcBSQXVb3jd7aDG82Bw5BufA14z HZTPg/gd+pKgqGcd/7X78yHj2Lb7bwsYRmo+PgQrio0nX3I0Up4AKo/u31W5 1sVIeQI4OBNrpWfyjZQngNzGlxeqyoVGaj1CMKyIPBdULEZPCN7ihJT5YCl6 Ith358mWj9pk6InAHEz7zN8iR08E6X5XfU0PFOiJoTC77gNOnRI9MfzK/b3U xVWFngRuiRNMP/qr0JOAa+sf5zg8FXoSkAbaNSnPKtGTwtjD9hC3Rwr0pJCT uLdo3CpHTwbR1c5TT6/b1icDC6v+XkmYFD0ZXLpYejzmiBg9OeRX9BzoPi1E Tw5+vWnaoQI+egoYyU4+zE617Z8CmiJerw7Pd0RPAbkbbjIZcQz0lJDTmf8q /eGzDspTQqFvz8+zozMdlKeCycLVrmfah/D9qsCPrbitf9JDKE8FpReCtnp2 PcB8qCFrs+H0Jdpf+H9QA3txIiAqk47508Dgwc2m0GYW5lUDdCj7tP0CB/Oo gYXCnWuyW3mYXzcYsHrHbRsVYD7doCrXbT3dLEJPC0kxx5etapUAlS8trGTr mfEvytDXQsHgifTtlXLs10I8k3beqdn2f9DCflnX2d37lOjpoD81/cZJexV6 OvizMzBQEa5CTweSN1nFsaG271kHOwpD+PpJJXo6WP3hmKvlNZvnDiAoSmjI VqDnDn7PJda2xMvRc4e+2+Zr4xYpeu7gmTm2aShOgp47hLoMG77Isz2vB7A3 lZfodglwfzzg4sDldSlreOh5QITTYFhGrTN6HnAojD+bXOaAngcY2C+MnA+3 Q28ZZN0tmC2rmiP/AFTjiQ0= "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 10.}, {-7.050616642115938, 7.561200385896742}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.762188577356048*^9, 3.7621886098926697`*^9}, 3.762188687560227*^9, 3.7622530886651907`*^9, 3.762494903439391*^9}, CellLabel->"Out[29]=", CellID->52791220] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Sjoerd Smit", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["expression", "Item"], Cell["function", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Programming Utilities", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["Function", "Item"], Cell["ReplaceAll", "Item"], Cell["Replace", "Item"], Cell["Slot", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["HoldArguments", "Item"], Cell["StringFunction", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 57, 1, 70, "Title",ExpressionUUID->"16f2c475-4182-430e-af4b-dd8179e0bce8", CellTags->"Title"]}, "Description"->{ Cell[618, 23, 154, 4, 70, "Text",ExpressionUUID->"25612d42-e713-4b79-b9f6-80aec9539b79", CellTags->"Description"]}, "Definition"->{ Cell[797, 31, 887, 21, 70, "Section",ExpressionUUID->"807478fb-1fa9-420e-836e-edb73466cf89", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[9271, 243, 99, 3, 70, "Section",ExpressionUUID->"da2fb583-2965-4c9b-8fee-8fcd09a974c2", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[9395, 250, 1615, 42, 70, "Subsection",ExpressionUUID->"6ad52266-801a-43f9-b229-da9f88acdde0", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[14528, 433, 1131, 24, 70, "Subsection",ExpressionUUID->"289d51d1-1d87-46dd-9835-b18c7b3c28be", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[15662, 459, 1187, 39, 70, "Notes",ExpressionUUID->"fdd1f935-deb4-4ff8-81df-25b70183d642", CellTags->"TabNext", CellID->107622986], Cell[16852, 500, 238, 7, 70, "Notes",ExpressionUUID->"114e8d0e-c5f2-4ced-9928-f7b9c15b6911", CellTags->"TabNext", CellID->94529505], Cell[17093, 509, 833, 28, 70, "Notes",ExpressionUUID->"e63e49ff-c7c7-42b9-a582-9e8a11cf6351", CellTags->"TabNext", CellID->302745527], Cell[18472, 558, 597, 19, 70, "Notes",ExpressionUUID->"619de31b-c0e5-4234-a77c-f1b82debd787", CellTags->"TabNext", CellID->725496081], Cell[107629, 2710, 496, 8, 70, "Text",ExpressionUUID->"f5307e85-9bca-4dbc-a4fb-890dfdf611fa", CellTags->"TabNext", CellID->343081869], Cell[108779, 2743, 485, 8, 70, "Item",ExpressionUUID->"caeea469-87b3-4925-9483-1d7b695d8f2b", CellTags->"TabNext", CellID->485448166], Cell[110509, 2802, 509, 8, 70, "Text",ExpressionUUID->"21d06c28-7975-4971-b7f5-3aae83c7f258", CellTags->"TabNext", CellID->567921317], Cell[111778, 2836, 495, 8, 70, "Text",ExpressionUUID->"a9fc10a2-ac54-4565-b65e-af094fdb8b62", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[23144, 715, 6400, 143, 70, "Section",ExpressionUUID->"5db66a1f-c78e-407b-b49a-c6c5008f328c", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[103358, 2561, 135, 3, 70, "Section",ExpressionUUID->"3a6dfe96-5b1b-4d6c-80c8-4d256ec94357", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[103518, 2568, 683, 18, 70, "Subsection",ExpressionUUID->"d268d623-d4a2-4128-81e9-a9f76346cf4a", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[104268, 2593, 684, 18, 70, "Subsection",ExpressionUUID->"0671dfae-7d8b-4c6f-991e-23c3a0989773", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[105045, 2620, 126, 4, 70, "Subsection",ExpressionUUID->"0c38140e-9780-46c5-b68a-cfd6979cede3", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[105248, 2631, 661, 18, 70, "Subsection",ExpressionUUID->"e421deed-86a3-46a4-9a8d-10d4254edd9c", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[106051, 2662, 711, 18, 70, "Subsection",ExpressionUUID->"30c06667-78d5-40fe-ab71-84ac0d07f613", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[106864, 2689, 762, 19, 70, "Subsection",ExpressionUUID->"94516935-caff-46ed-9582-542329fcc7bd", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[108162, 2723, 614, 18, 70, "Subsection",ExpressionUUID->"af5d47ce-bdcb-4b1d-aab9-1870d822533d", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[109301, 2756, 767, 20, 70, "Subsection",ExpressionUUID->"4668b7ad-450b-4c74-a69c-2a234c99cef9", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[110379, 2796, 127, 4, 70, "Section",ExpressionUUID->"7611dbff-4a03-4a6e-a374-86668f77beb4", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[111055, 2815, 720, 19, 70, "Section",ExpressionUUID->"a522ff59-bba7-4e9c-9bfc-215e2034c32a", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 183249, 4212}, {"Description", 183382, 4215}, {"Definition", 183520, 4218}, {"Documentation", 183686, 4222}, {"Usage", 183847, 4226}, {"Details & Options", 184018, 4230}, {"TabNext", 184191, 4234}, {"Examples", 185350, 4259}, {"Source & Additional Information", 185537, 4263}, {"Contributed By", 185729, 4267}, {"Keywords", 185902, 4271}, {"Categories", 186071, 4275}, {"Related Symbols", 186246, 4279}, {"Related Resource Objects", 186436, 4283}, {"Source/Reference Citation", 186636, 4287}, {"Links", 186817, 4291}, {"Tests", 186978, 4295}, {"Author Notes", 187145, 4299}, {"Submission Notes", 187320, 4303} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 57, 1, 70, "Title",ExpressionUUID->"16f2c475-4182-430e-af4b-dd8179e0bce8", CellTags->"Title"], Cell[618, 23, 154, 4, 70, "Text",ExpressionUUID->"25612d42-e713-4b79-b9f6-80aec9539b79", CellTags->"Description"], Cell[CellGroupData[{ Cell[797, 31, 887, 21, 70, "Section",ExpressionUUID->"807478fb-1fa9-420e-836e-edb73466cf89", CellTags->"Definition", CellID->474513213], Cell[1687, 54, 7569, 186, 70, "Input",ExpressionUUID->"180297ec-0965-4d04-bd07-45ee854cf8e5", InitializationCell->True] }, Open ]], Cell[9271, 243, 99, 3, 70, "Section",ExpressionUUID->"da2fb583-2965-4c9b-8fee-8fcd09a974c2", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[9395, 250, 1615, 42, 70, "Subsection",ExpressionUUID->"6ad52266-801a-43f9-b229-da9f88acdde0", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[11035, 296, 309, 10, 70, "UsageInputs",ExpressionUUID->"0b21376e-16a5-4089-a79b-9848e24ef907"], Cell[11347, 308, 840, 29, 70, "UsageDescription",ExpressionUUID->"eb8c4052-bfd2-45a3-bf2d-4955d43738b7"] }, Open ]], Cell[CellGroupData[{ Cell[12224, 342, 498, 16, 70, "UsageInputs",ExpressionUUID->"1023dfd8-0e52-4a46-a080-4e5884ea7aa4"], Cell[12725, 360, 411, 15, 70, "UsageDescription",ExpressionUUID->"80e667e5-f501-4e67-9e33-32eb49cc80c4"] }, Open ]], Cell[CellGroupData[{ Cell[13173, 380, 527, 18, 70, "UsageInputs",ExpressionUUID->"1d01a3be-7387-4b4d-b52e-d72e10019bd0"], Cell[13703, 400, 776, 27, 70, "UsageDescription",ExpressionUUID->"61a290cd-5fad-4cb1-885f-dbf033e4ca35"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14528, 433, 1131, 24, 70, "Subsection",ExpressionUUID->"289d51d1-1d87-46dd-9835-b18c7b3c28be", CellTags->"Details & Options", CellID->66019318], Cell[15662, 459, 1187, 39, 70, "Notes",ExpressionUUID->"fdd1f935-deb4-4ff8-81df-25b70183d642", CellTags->"TabNext", CellID->107622986], Cell[16852, 500, 238, 7, 70, "Notes",ExpressionUUID->"114e8d0e-c5f2-4ced-9928-f7b9c15b6911", CellTags->"TabNext", CellID->94529505], Cell[17093, 509, 833, 28, 70, "Notes",ExpressionUUID->"e63e49ff-c7c7-42b9-a582-9e8a11cf6351", CellTags->"TabNext", CellID->302745527], Cell[17929, 539, 540, 17, 70, "Notes",ExpressionUUID->"d45c4c96-0ed5-45f7-a115-68118f7947e9", CellID->704752853], Cell[18472, 558, 597, 19, 70, "Notes",ExpressionUUID->"619de31b-c0e5-4234-a77c-f1b82debd787", CellTags->"TabNext", CellID->725496081], Cell[19072, 579, 1413, 46, 70, "Notes",ExpressionUUID->"2c5078f6-fe84-499a-a37f-e3769847aba3", CellID->426295250], Cell[20488, 627, 2619, 83, 70, "Notes",ExpressionUUID->"35283d2e-3725-4f0a-a5fd-e04e739f62de", CellID->214228741] }, Open ]], Cell[CellGroupData[{ Cell[23144, 715, 6400, 143, 70, "Section",ExpressionUUID->"5db66a1f-c78e-407b-b49a-c6c5008f328c", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[29569, 862, 56, 1, 70, "Subsection",ExpressionUUID->"4667b304-7203-40bd-9173-ce17b42256d1", CellID->285421464], Cell[29628, 865, 147, 2, 70, "Text",ExpressionUUID->"c51acdfa-8864-495b-be09-609a7a3190d4", CellID->221583938], Cell[CellGroupData[{ Cell[29800, 871, 407, 11, 70, "Input",ExpressionUUID->"2c61aa6d-56e3-4052-93b2-ccbf7b81b9ae", CellID->7099978], Cell[30210, 884, 407, 11, 70, "Output",ExpressionUUID->"470bb259-8f9b-42ca-ad35-3ad3ac472f95", CellID->349232897] }, Open ]], Cell[30632, 898, 145, 2, 70, "Text",ExpressionUUID->"6eaa5077-8080-44e6-803e-2fdd833f95bb", CellID->190658449], Cell[CellGroupData[{ Cell[30802, 904, 223, 5, 70, "Input",ExpressionUUID->"18d8529d-1995-4e6f-b676-c90676cc0da2", CellID->206924125], Cell[31028, 911, 245, 5, 70, "Output",ExpressionUUID->"db83a4e2-af60-4320-b332-2571b18b50e8", CellID->591188552] }, Open ]], Cell[CellGroupData[{ Cell[31310, 921, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"48dda069-c7e0-4460-816d-c711a79dee91", CellID->389282747], Cell[31438, 926, 748, 22, 70, "Text",ExpressionUUID->"eba7aee0-c84f-4a31-b714-667ff3ca9c99", CellID->32994692], Cell[CellGroupData[{ Cell[32211, 952, 450, 12, 70, "Input",ExpressionUUID->"dec0f30f-f998-4f7a-b774-2653b29920fe", CellID->4733567], Cell[32664, 966, 656, 19, 70, "Output",ExpressionUUID->"50c42342-9f6f-4fc3-964f-ad1af96e75a8", CellID->56785954] }, Open ]], Cell[CellGroupData[{ Cell[33357, 990, 388, 10, 70, "Input",ExpressionUUID->"c3723713-0760-465e-adef-b018a3fc3b2b", CellID->38680243], Cell[33748, 1002, 818, 24, 70, "Output",ExpressionUUID->"92dfd7dc-1092-4eeb-83f3-b67fb13cb6c7", CellID->408333581] }, Open ]], Cell[CellGroupData[{ Cell[34603, 1031, 317, 8, 70, "Input",ExpressionUUID->"02f577fe-984b-4ffa-8d3f-00929e0055cc", CellID->105332144], Cell[34923, 1041, 284, 5, 70, "Output",ExpressionUUID->"07e4ae20-f8cb-42a0-a9d7-89efc0a9f1b6", CellID->214280871] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35256, 1052, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"e5f27a37-0f5f-41ff-a4d1-ad6f9e10cff0", CellID->85421777], Cell[35383, 1057, 653, 20, 70, "Text",ExpressionUUID->"b80cf96a-de4a-4673-87d5-43b2f9ff41ff", CellID->609223740], Cell[CellGroupData[{ Cell[36061, 1081, 508, 11, 70, "Input",ExpressionUUID->"0e3c2dac-a3a1-4010-88fa-15748c0f702c", CellID->76277089], Cell[36572, 1094, 315, 8, 70, "Output",ExpressionUUID->"beed7b3f-35e1-48c4-befc-a13214a16930", CellID->92908131] }, Open ]], Cell[CellGroupData[{ Cell[36924, 1107, 456, 10, 70, "Input",ExpressionUUID->"7b3fe15a-bd86-4bc7-b08f-8c2df89e5172", CellID->245027173], Cell[37383, 1119, 190, 4, 70, "Output",ExpressionUUID->"c0c8adff-a952-4192-a15c-87b3624b7447", CellID->312876517] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37622, 1129, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"c8cc33df-9cbc-4887-83cf-4378ffe59551", CellID->54698680], Cell[37749, 1134, 143, 2, 70, "Text",ExpressionUUID->"7e202dc4-3a58-43ce-b3f2-52d6e646ca84", CellID->338831549], Cell[CellGroupData[{ Cell[37917, 1140, 415, 12, 70, "Input",ExpressionUUID->"8201f752-4a1c-49f6-8897-559b43921369", CellID->148024839], Cell[38335, 1154, 176, 4, 70, "Output",ExpressionUUID->"99eecde3-459f-4bbf-8bbc-1ca8febea82d", CellID->687436922] }, Open ]], Cell[CellGroupData[{ Cell[38548, 1163, 422, 12, 70, "Input",ExpressionUUID->"78da29d2-2078-4028-bd27-c035767f7355", CellID->856977672], Cell[38973, 1177, 409, 12, 70, "Output",ExpressionUUID->"d7afcf81-6eae-4b6c-864f-be0041a0575d", CellID->366303090] }, Open ]], Cell[CellGroupData[{ Cell[39419, 1194, 352, 9, 70, "Input",ExpressionUUID->"4a11192b-41d2-43a9-a386-e3b56e2b839d", CellID->39446768], Cell[39774, 1205, 167, 4, 70, "Output",ExpressionUUID->"040f5817-6427-4885-b676-8c9f0ae4cfcb", CellID->263165269] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40002, 1216, 47, 1, 70, "Subsection",ExpressionUUID->"380cb4d4-abb5-4658-9a07-c17250c60715", CellID->1575259], Cell[40052, 1219, 730, 21, 70, "Text",ExpressionUUID->"f1be3cf3-de96-459b-a5fa-630af2aeb509", CellID->414824544], Cell[CellGroupData[{ Cell[40807, 1244, 424, 10, 70, "Input",ExpressionUUID->"b078abc5-e5b6-4c3a-8428-ffa30ebb1f7b", CellID->561417135], Cell[41234, 1256, 420, 11, 70, "Output",ExpressionUUID->"e351d78f-524a-4f72-8293-6ce85999e0df", CellID->20237217] }, Open ]], Cell[CellGroupData[{ Cell[41691, 1272, 164, 4, 70, "Input",ExpressionUUID->"7cb8b6b1-9af6-4940-a7ee-281a1137cfc2", CellID->40638546], Cell[41858, 1278, 238, 5, 70, "Output",ExpressionUUID->"ab79e3ab-97b1-4bc8-98cc-c829c9e51709", CellID->169082611] }, Open ]], Cell[CellGroupData[{ Cell[42133, 1288, 251, 6, 70, "Input",ExpressionUUID->"0c7dc60a-26fb-4002-8fcb-0775f2c6d8d0", CellID->11980824], Cell[42387, 1296, 240, 5, 70, "Output",ExpressionUUID->"c075b7c0-f178-4600-88f5-aef96950ffe5", CellID->131268466] }, Open ]], Cell[CellGroupData[{ Cell[42664, 1306, 143, 3, 70, "Input",ExpressionUUID->"82bb6331-eeed-4a58-b597-9d1fdeca4272", CellID->591802179], Cell[42810, 1311, 242, 5, 70, "Output",ExpressionUUID->"1a347b51-19cd-44fa-9804-b89b75f2068a", CellID->227934627] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43101, 1322, 53, 1, 70, "Subsection",ExpressionUUID->"5fb18f4d-a19b-4f89-a871-6cfb4150e4cb", CellID->20767984], Cell[43157, 1325, 434, 13, 70, "Text",ExpressionUUID->"34ca7fcb-520b-40d8-adb4-93d085a7261e", CellID->177136241], Cell[CellGroupData[{ Cell[43616, 1342, 453, 12, 70, "Input",ExpressionUUID->"2544571e-a34a-44e0-96a9-06b0fe2dddef", CellID->65701632], Cell[44072, 1356, 627, 19, 70, "Output",ExpressionUUID->"7011d972-167d-40b4-903f-1b31f0ac6c55", CellID->52789806] }, Open ]], Cell[CellGroupData[{ Cell[44736, 1380, 433, 11, 70, "Input",ExpressionUUID->"ca459bda-bd24-4279-bda7-9e75e24f96cd", CellID->90023858], Cell[45172, 1393, 1067, 31, 70, "Output",ExpressionUUID->"e1f5db67-a75d-4806-875b-1cdabd6f1970", CellID->59235883] }, Open ]], Cell[46254, 1427, 499, 15, 70, "Input",ExpressionUUID->"abb272c0-4a63-4471-828f-1fb4cb73a7b9", CellID->225303561], Cell[46756, 1444, 481, 12, 70, "Input",ExpressionUUID->"2f011c01-726a-4155-95d1-658f8371acbc", CellID->337238713], Cell[CellGroupData[{ Cell[47262, 1460, 355, 8, 70, "Input",ExpressionUUID->"3b8d68a5-9519-4bc7-b585-545cd8f83119", CellID->560242831], Cell[47620, 1470, 44012, 728, 70, "Output",ExpressionUUID->"b4d3afdb-f944-4652-828a-a6c7d6e6a721", CellID->323519657] }, Open ]], Cell[CellGroupData[{ Cell[91669, 2203, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"19d6c52b-3011-4ea2-a479-21f77c322ae3", CellID->781443856], Cell[91797, 2208, 670, 21, 70, "Text",ExpressionUUID->"1fd09dc7-7e31-43c8-839e-c095e8ff4517", CellID->109269859], Cell[CellGroupData[{ Cell[92492, 2233, 726, 17, 70, "Input",ExpressionUUID->"fc8f95e2-8311-4dac-b956-c5131f0669cf", CellID->248545442], Cell[93221, 2252, 1229, 35, 70, "Output",ExpressionUUID->"bcd3b3bc-dc11-4c1f-bc26-19537ada13cd", CellID->215348871] }, Open ]], Cell[CellGroupData[{ Cell[94487, 2292, 330, 9, 70, "Input",ExpressionUUID->"619bd68a-23af-4fa9-8988-a94585e2e84a", CellID->849475], Cell[94820, 2303, 411, 10, 70, "Output",ExpressionUUID->"74e1daf5-88b7-4f41-9f8d-200b4c0ea630", CellID->325885687] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[95280, 2319, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"47ce07d4-0a45-499d-9e9d-54bd7f2cd121", CellID->2087062], Cell[95406, 2324, 174, 4, 70, "Text",ExpressionUUID->"cdc6a2a0-ee2f-4dc1-83b0-40fa62a5b98b", CellID->681675746], Cell[CellGroupData[{ Cell[95605, 2332, 663, 19, 70, "Input",ExpressionUUID->"53da3641-7cd2-4b24-8d81-19fea5913601", CellID->473542605], Cell[96271, 2353, 625, 18, 70, "Output",ExpressionUUID->"630da518-14c7-4d31-b162-3b0523afde6a", CellID->17709499] }, Open ]], Cell[CellGroupData[{ Cell[96933, 2376, 344, 9, 70, "Input",ExpressionUUID->"8ca52e7d-bb31-4104-9a33-f0d6474363e7", CellID->502929010], Cell[97280, 2387, 787, 23, 70, "Output",ExpressionUUID->"c4049bf7-450d-4ae2-bfb2-0897b6755b79", CellID->77191619] }, Open ]], Cell[CellGroupData[{ Cell[98104, 2415, 249, 6, 70, "Input",ExpressionUUID->"d1fdfce3-5c78-4da6-a8e6-8b9caa80127b", CellID->169915849], Cell[98356, 2423, 571, 16, 70, "Output",ExpressionUUID->"ac5b057c-0a82-43c1-88ef-4e4968da0552", CellID->116249776] }, Open ]], Cell[98942, 2442, 966, 30, 70, "Text",ExpressionUUID->"8b821a83-4684-4dc7-b75e-2e1989375fe0", CellID->9301506], Cell[CellGroupData[{ Cell[99933, 2476, 458, 12, 70, "Input",ExpressionUUID->"6a4b81f1-567e-48a9-ae75-70af43460ed8", CellID->54750242], Cell[100394, 2490, 2891, 63, 70, "Output",ExpressionUUID->"83398775-e674-45c6-988d-c8b894ee38a6", CellID->52791220] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[103358, 2561, 135, 3, 70, "Section",ExpressionUUID->"3a6dfe96-5b1b-4d6c-80c8-4d256ec94357", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[103518, 2568, 683, 18, 70, "Subsection",ExpressionUUID->"d268d623-d4a2-4128-81e9-a9f76346cf4a", CellTags->"Contributed By", CellID->127820888], Cell[104204, 2588, 27, 0, 70, "Text",ExpressionUUID->"8e84c38b-62cd-43f4-9d30-b065e2858785"] }, Open ]], Cell[CellGroupData[{ Cell[104268, 2593, 684, 18, 70, "Subsection",ExpressionUUID->"0671dfae-7d8b-4c6f-991e-23c3a0989773", CellTags->"Keywords", CellID->547400482], Cell[104955, 2613, 26, 0, 70, "Item",ExpressionUUID->"620e8179-7294-4516-b588-9100c3725751"], Cell[104984, 2615, 24, 0, 70, "Item",ExpressionUUID->"27861504-522f-4826-84aa-0b7446a5ab1e"] }, Open ]], Cell[CellGroupData[{ Cell[105045, 2620, 126, 4, 70, "Subsection",ExpressionUUID->"0c38140e-9780-46c5-b68a-cfd6979cede3", CellTags->"Categories", CellID->749076926], Cell[105174, 2626, 37, 0, 70, "Item",ExpressionUUID->"ec40afce-effd-41a2-a8df-8bba52c80834"] }, Open ]], Cell[CellGroupData[{ Cell[105248, 2631, 661, 18, 70, "Subsection",ExpressionUUID->"e421deed-86a3-46a4-9a8d-10d4254edd9c", CellTags->"Related Symbols", CellID->161079978], Cell[105912, 2651, 24, 0, 70, "Item",ExpressionUUID->"ef714dec-4c10-4107-aa99-faee1397c0a0"], Cell[105939, 2653, 26, 0, 70, "Item",ExpressionUUID->"4f0a3bc8-ff4a-4456-8eda-6e8a09ab171e"], Cell[105968, 2655, 23, 0, 70, "Item",ExpressionUUID->"bb0765d3-2b56-4e2a-8139-5b3dbbb08fc9"], Cell[105994, 2657, 20, 0, 70, "Item",ExpressionUUID->"00b5f2fe-424f-45e4-8e9a-4acdc74b3d92"] }, Open ]], Cell[CellGroupData[{ Cell[106051, 2662, 711, 18, 70, "Subsection",ExpressionUUID->"30c06667-78d5-40fe-ab71-84ac0d07f613", CellTags->"Related Resource Objects", CellID->588449267], Cell[106765, 2682, 29, 0, 70, "Item",ExpressionUUID->"2c9cb336-b385-4cf8-8faa-8d8ad82ed4e4"], Cell[106797, 2684, 30, 0, 70, "Item",ExpressionUUID->"9523c41f-447b-47b4-856e-db6c398e0fac"] }, Open ]], Cell[CellGroupData[{ Cell[106864, 2689, 762, 19, 70, "Subsection",ExpressionUUID->"94516935-caff-46ed-9582-542329fcc7bd", CellTags->"Source/Reference Citation", CellID->642091068], Cell[107629, 2710, 496, 8, 70, "Text",ExpressionUUID->"f5307e85-9bca-4dbc-a4fb-890dfdf611fa", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[108162, 2723, 614, 18, 70, "Subsection",ExpressionUUID->"af5d47ce-bdcb-4b1d-aab9-1870d822533d", CellTags->"Links", CellID->521525586], Cell[108779, 2743, 485, 8, 70, "Item",ExpressionUUID->"caeea469-87b3-4925-9483-1d7b695d8f2b", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[109301, 2756, 767, 20, 70, "Subsection",ExpressionUUID->"4668b7ad-450b-4c74-a69c-2a234c99cef9", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[110093, 2780, 129, 4, 70, "Input",ExpressionUUID->"0ac20528-494e-452d-8d0c-6ff52ad0e0ca", CellID->667877521], Cell[110225, 2786, 93, 3, 70, "Output",ExpressionUUID->"084f51e3-390d-466a-b78b-67384b390259", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[110379, 2796, 127, 4, 70, "Section",ExpressionUUID->"7611dbff-4a03-4a6e-a374-86668f77beb4", CellTags->"Author Notes", CellID->795110225], Cell[110509, 2802, 509, 8, 70, "Text",ExpressionUUID->"21d06c28-7975-4971-b7f5-3aae83c7f258", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[111055, 2815, 720, 19, 70, "Section",ExpressionUUID->"a522ff59-bba7-4e9c-9bfc-215e2034c32a", CellTags->"Submission Notes", CellID->843283583], Cell[111778, 2836, 495, 8, 70, "Text",ExpressionUUID->"a9fc10a2-ac54-4565-b65e-af094fdb8b62", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)