(* 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[ 159550, 3454] NotebookOptionsPosition[ 74587, 1771] NotebookOutlinePosition[ 150086, 3250] CellTagsIndexPosition[ 149374, 3226] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["QuadraticFunctionQ", "Title", CellTags->"Title"], Cell["\<\ Determine whether an expression represents a quadratic function of a given \ set of variables\ \>", "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[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"(", "lhs_", ")"}], " ", "==", " ", RowBox[{"(", "rhs_", ")"}]}], ",", " ", "varSpec_"}], "]"}], " ", ":=", " ", RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{"lhs", " ", "-", " ", "rhs"}], ",", " ", "varSpec"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"QuadraticFunctionQ", "[", RowBox[{"expr_", ",", " ", RowBox[{"varList", ":", RowBox[{"{", RowBox[{"_Symbol", ".."}], "}"}]}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "maxExps", ",", " ", "coeffArray", ",", " ", "allPos", ",", " ", "highOrderPos", ",", " ", "highOrderCoeffs", ",", " ", "quadraticPos", ",", " ", "quadraticCoeffs"}], "}"}], ",", " ", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"!", RowBox[{"PolynomialQ", "[", RowBox[{"expr", ",", " ", "varList"}], "]"}]}], ",", " ", RowBox[{"Return", "[", "False", "]"}]}], "]"}], ";", " ", RowBox[{"maxExps", " ", "=", " ", RowBox[{"Exponent", "[", RowBox[{"expr", ",", " ", "varList"}], "]"}]}], ";", " ", RowBox[{"coeffArray", " ", "=", " ", RowBox[{"CoefficientList", "[", RowBox[{"expr", ",", " ", "varList"}], "]"}]}], ";", " ", RowBox[{"allPos", " ", "=", " ", RowBox[{"Select", "[", RowBox[{ RowBox[{"Position", "[", RowBox[{"coeffArray", ",", " ", "_"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"#1", ",", " ", "0"}], "]"}]}], " ", "&&", " ", RowBox[{ RowBox[{"Length", "[", "#1", "]"}], " ", "==", " ", RowBox[{"Length", "[", "varList", "]"}]}]}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"quadraticPos", " ", "=", " ", RowBox[{"Select", "[", RowBox[{"allPos", ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Total", "[", "#1", "]"}], " ", "-", " ", RowBox[{"Length", "[", "varList", "]"}]}], " ", "==", " ", "2"}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"highOrderPos", " ", "=", " ", RowBox[{"Select", "[", RowBox[{"allPos", ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Total", "[", "#1", "]"}], " ", "-", " ", RowBox[{"Length", "[", "varList", "]"}]}], " ", ">", " ", "2"}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"quadraticCoeffs", " ", "=", " ", RowBox[{"Apply", "[", RowBox[{ RowBox[{ RowBox[{"coeffArray", "[", RowBox[{"[", "##1", "]"}], "]"}], " ", "&"}], " ", ",", " ", "quadraticPos", ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", " ", RowBox[{"highOrderCoeffs", " ", "=", " ", RowBox[{"Apply", "[", RowBox[{ RowBox[{ RowBox[{"coeffArray", "[", RowBox[{"[", "##1", "]"}], "]"}], " ", "&"}], " ", ",", " ", "highOrderPos", ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"And", " ", "@@", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#1", " ", "===", " ", "0"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "highOrderCoeffs"}]}], " ", "&&", " ", RowBox[{"!", RowBox[{"And", " ", "@@", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#1", " ", "===", " ", "0"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "quadraticCoeffs"}]}]}]}], ",", " ", "True", ",", " ", "False"}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"QuadraticFunctionQ", "[", RowBox[{"expr_", ",", " ", "var_"}], "]"}], " ", ":=", " ", RowBox[{"QuadraticFunctionQ", "[", RowBox[{"expr", ",", " ", RowBox[{"{", "var", "}"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"Options", "[", "QuadraticFunctionQ", "]"}], " ", "=", " ", 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[{"QuadraticFunctionQ", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["var", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "returns ", Cell[BoxData[ ButtonBox["True", BaseStyle->"Link"]], "InlineFormula"], " if ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a quadratic function of the symbol ", Cell[BoxData[ StyleBox["var", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", and returns", Cell[BoxData[ RowBox[{" ", ButtonBox["False", BaseStyle->"Link"]}]], "InlineFormula"], " otherwise." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ StyleBox["expr", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["var", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["var", "TI"], StyleBox["2", "TR"]], ",", " ", StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}]], "UsageInputs"], Cell[TextData[{ "returns ", Cell[BoxData[ ButtonBox["True", BaseStyle->"Link"]], "InlineFormula"], " if ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a quadratic function of each of the symbols ", Cell[BoxData[ SubscriptBox[ StyleBox["var", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", considered together, and returns ", Cell[BoxData[ ButtonBox["False", BaseStyle->"Link"]], "InlineFormula"], " otherwise." }], "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[{ "If ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is of the form ", Cell[BoxData[ StyleBox[ RowBox[{"lhs", "==", "rhs"}], "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ StyleBox["expr", "TI"], ",", " ", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ StyleBox["lhs", "TI"], " ", "-", " ", StyleBox["rhs", "TI"]}], ",", " ", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{{3.760894890190073*^9, 3.7608949922552786`*^9}, { 3.7608951385739093`*^9, 3.760895150590111*^9}, {3.762102985337235*^9, 3.762102997129792*^9}, 3.7700382718555913`*^9}, CellTags->"Nothing", CellID->160641843], Cell[TextData[{ "An expression is determined to be quadratic if and only if it is a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PolynomialQ", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {421., {4., 11.}}], ButtonData->"paclet:ref/PolynomialQ"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the variable(s) of the second argument, has at least one term of \ cumulative order 2 and has no terms of cumulative order greater than 2." }], "Notes", Editable->True, Deletable->True, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.13", "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "Status" -> "", "PublishedQ" -> False, "SubmissionID" -> "5810", "Submission" -> ResourceSubmissionObject[ Association[ "SymbolName" -> "FunctionRepository`$38e337c3f07a4d46b0b3f09fe987c13b`\ QuadraticFunctionQ", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/49cbeaf4-daab-48f8-b247-\ 4c98ac4be8e7", IconRules -> {}, Permissions -> {"marketplace-admin@wolfram.com" -> "Read"}], "Documentation" -> "1:eJztVktvEzEQTksfaXm0QoWzKQdepSqpxKEHpNASiASlzYZeIAdnM0ksOXZre9NGlAvih\ MQJuPFDEP8BCfgJnPkReJyUZpNtt6ErUYleLK/n23l4Ps/MlbIsVIdTqZQ+\ a5es1tJn1DAp2ocjdikEHLxRu3mmaQ32zx8zbQb7dQjPx+1yX+6sUEPbB2MIlNv2rDrSrzttF8+\ 0OKB8QLw3jVDQMlA+5ALho3fe5ajDVqMsuYf6n0fombEfs+sBrSgboL/30/qsE/\ TqWqUNcJpKkaYeUVHh0DHVG9CZmIBQBDubykNRMe+0zEXgUE+ThmClnrRg0lZA+\ 4ptuqQN7Skpwo5x2ZnodsZDkQITKKHJvp/\ LwHlfXp2bRRWAd95u8oIzATmpGgGnYSf0pN3kpDA52mC85U1hDO62iEetnTUlnS7CqnE2j3BZCThzz\ TmjCSVbe2wg1U5iiawSUweiHZf+wt+\ epCXg7gWkB7GEI0fNHD7WHOU6kdQhxYi0d6K2mYb502JxEorFoVoc5mUfZqzf0jm0FJTb9QMxcXyOA\ KCZO21xobuUJaU7E9LtVhIBxeheLGUWMne78a9Oq2ZSZWghdXjVBOrXw9Uz9rKSJQpLMNiryDXiS6F\ ZBRRUiJE1wBp40gpxqOauSgO6Z7Yb6fcwxPR0iOkYT/\ 6EEG66Q7gOp6pWT6xjh7YLd0cPLHv5AbU4rrmgcV7XoVJ8YEFCsAqDS0lcy7Cj5rEu4n/\ ss3EBRfbZAbtNIvm92KE9bAWsSTkIY4vPab6Pl+9e6ejgL5249fYg7/\ 2f8CeiEbhfpzrcWa5TUYMia/S1itCXmrmUCzZGf2XVvVvp17jpkW+XCh+\ cfOHnj49hubM31rGXX2GLi+\ 8nYhtReITN2k1WEHyRoDWOGPZJVMCAatjLwX5MytA1idgpCRuzFLyFe2YQH9eesaOuSd4SssEoX0/\ i9t+51ytcx7ITC6NlDtf1jT+DEdiZokKoqgUN+\ 7LnSJ3aicoQDlQb6z0QjBDRfoAOGNYEIpWdQUimPXrgD0I6mI7E1RRQK7XmqCCZ+YH4EFEFkuCDk3+\ be/hkF+U3Py95u/3yjbdvvKfjVp5ufi3h5mA+ffryffI3T/WXgQ==", "UUID" -> "5fd3a40b-666b-41fb-9338-cbb76f914572", "ResourceType" -> "Function", "Name" -> "QuadraticFunctionQ", "Keywords" -> {"quadratic function", "second order function"}, "ShortName" -> "QuadraticFunctionQ", "Description" -> "Determine whether an expression represents a quadratic function of a \ given set of variables", "ExternalLinks" -> { Hyperlink["http://mathworld.wolfram.com/QuadraticPolynomial.html"]}, "SeeAlso" -> {"LinearFunctionQ", "RationalFunctionQ"}, "RelatedSymbols" -> { "PolynomialQ", "Coefficient", "CoefficientList", "Exponent"}, "ExampleNotebook" -> CloudObject[ "https://www.wolframcloud.com/objects/resourcesystem/\ marketplacestorage/submissions/4d052d0bc026e682/5fd/5fd3a40b-666b-41fb-9338-\ cbb76f914572/ExampleNotebook"], "DefinitionNotebook" -> Association["Data" -> ByteArray[CompressedData[" 1:eJwACUD2vyFib1JiAQAAABdTAAAfiwgAAAAAAAAK7X15d9s4su//OSffgU8z Z153x7KJnex50+fKuzve12x+LxRJLbEsKVos2zn57q8KXMRVkh2nO91j37kd mySAQqFQ9atCAfjpF2Ot1x353VF1dNf3fzWcfr/Tdp1Ru9dduel6y5NepzFw rpevnVHLh//AO+OXn1++ePnip19++cW4CF4b+72RX+/1rozNdsc34M3P+IHR Go36v66sTCaTuCK3d73Srcd1GGsD3xn53urdf/73XqINQpfN/x1/tea4LX9n /VeDMh5WvQNUD7pOx3DxndHuNnqDa033ry9fROQgNbvtrr8KjVyd+sPRQq/W nZFz2Bu2sbL3RvBDhLVkxD/qMv31rt9tjlr6W0IoUyT6lgppJr496GOdw3Tl 3GTcjApAcStZYDzqAJGpAsRkgrC4BSawhTW/0zl1msOdruffZj6nlqTTz3X9 F+2u15tswoD41d/2kXOdeERW/Wa72213m0avMR3YUEz0kEQP33/BItj0e/zP 1qA37iM78Ll+WjkaO94AR3Rz3HWRpKPKklE5bY86fmXp5QsDv9q4gXpr+u2w +tuXnW7LH7RBJJaML5XX/t16b9LFQh9Gla/Gr78Zx36/47j++xO/4+tCe70b /z3UFfwEj30vpvFyyag1QFaWdGOX/zamEtD1ZpernDr1ff92BM3jP0ENyGWo cjzqnbiDXqdjVH8zTgdjf8mI67oYOP0aMKPrRS+hstWO0716H1UfU3+JfXpI XzqdgI5wQAppubwMqTl0hkPN3yGyEV9vOp0h0Dp9cdaPH3+NhmSt5XSb/mn7 2scR+cKWlZAWs4ilTEqFrdjHX/6vvWRMn1uKUSUtePoVhg2bhnfStGwqTS5N KpiKSoRPBVe2pFx9DMuEbxi3LcmYzYgM2kjUBZJOJZGM2kGpmFwcEqAzkqvp uMVf7KxXf2MStAfQIi+XYrGtfPg/H16+WPdBPq5hnhmTlg86aGA4XcO/7Q/8 4RAGxRj4+Csyy3CMz5FIG41QpnGeOEazDew0oLahP8InN86g7dQ7/hAeffhN U6VF6Vnq/zpSr2WVc9s2bVPa4mNKhrkQlFjSNNnHvNyDrFrEFJayk2VAcRNb KSoFL5bgdX/oDtraSpTKMRdAjckYT8hxTv2Gz1HkokcG1N5od9tB5WGF71d7 t/oDpP3UvwYpG/nw7P2X1Nf603CEkiXwR1sRLBKPYPJrI2zWN+5648F0zoyH aGFgshldKG44dZCBZRxnw4vbhVFud93O2MNPYRp5ft8H+9Z12z68mrTh47of fuJ78IuuD6YqtOT607ZgVneN9shoD42m3/UHCDiWscKa5+mGEEYAzUMAE12s 0vGwPgckOUFM9DKY6AA3jOtxZ9Tud5CE/niEFbrO0B8uf+h+6J62oLVhIN/G sNUbdzws7N84nTG2D39AFfED7KGLUCjiClS2cevAePjTaup+pzdZRsHYg6I7 AHm0SsFp5rhXzXjubQ2cu13/xu+8N5dtcZmYo3qs9pwBWPghfkkBeOhnJ6M7 6Ee2LBQ9xkqBqGPHa491mbgygRMuTcqSsQ6zd4R6L6chIjnHF18qJ9HUD0on hO1rqkSC2C9fpFwypMSpRsQSYLKvXy/11DCmZBz0cYRXx6NRrxvJc+XyEjDP V6Q2bFbLf0xq9bdAP+hnDQdGdd+fYOOaK9XfKjs4vpX0ZC2aTTg9YZ5TycFG JaZnNGVwFh73JsH8Wuv4zgAEHsfzPf6nGCxdVjThH1AhJIpjr5O/T+sNQeZi 1f6nEnI7Lv4F336Ft/r9v8PW3yOw7KJ0AmsQN18uSk5tNBq06+OR/8QUzeBH SQPvszUHYhaX2gDT3kl9mHjZaQ3/H75bwv8Y+J8BPtG0hJRPX4HtP+n7bvJ1 IKW//if65gnoBZLws2pITAkRUxqejG8VxEYZbkBraW58W1d1E6kWMp3/Ejaa ko3v3csMDdD8bnuIWq/ya/qTNJ2Rxowf/r+Tu+t6T8va8nLArqAPCzBwr+eN A5Sr55LuaUXb2dnS8iX9daJAtohRuXZuN277w/QIuz2/0agNwD6knzudDjic BXyCilrtZutg4PmD7BfTN2tYbeZljLGDYnF1BV+ExaejHvFCczSqNc+lbJ9j Pu00Miog+2Xi2/+V+Crx+LDXuev2rttO5yhb10wRjwUqLcw5tk6rOPZH40E3 FgZtxirJsqEs/buECdOaEkP+n2x7Uw152+91wQzkevXgPs0nKC1uxmzCtBS0 ARd2R9GM/N70TcV+Dm2BP1NKUqH8DNuRC1AmPGWzscQk5VspqDTxqEzGk2/2 /Ou6PygS8eRX/0jTZ2YYrR/+6195OovJmtYbxNxi0f9HZdrrD++1Kb8spTxT NqHHL6dq+F85q/LvylKsigLZmCkhGS32jXIyS88+eFSL2XLaG00BUIqjmvRq 0SAtztSYAzELKlTXnqiumOlz+Jw1Ms98/u2JOZy1tnOZvJCWcwb5UVhAw/3j HykV968E5/7nf/4nWVkBmHi4UP0Vu5yaEQt3+QHIp6Bvta4X0FPSt58eot1n 2ZL/BArETPFi5X9S/U6gwmRVlZ8jbmiLU9CL/d7MASrpZHkv5/Qo/XTxjhbB 31Rd057mYWQFwzJpAQuAY+L7yGONRCZhF9d63vPizV8qjB0u0hDKTZPYmaUb YVLCbBWEsHW7cYBbMU45p0SXiOPhwlSEWsomqWi4EMy0FbNUKhqeCHxLqri0 g8B3IiAOL7iijGaWgaRtAW02t+JFoLiIohbDgLzIFMGwmxJAG0s3YUthK1tK Iooo44xI24SCZroYZ4wAGVQwkVmi4kxxWygBPf6Yo47jj+QiS52CugS1pUqt gylbMMoF41YBZZZpSovYSle1lHhqU6psLtMNWNSygcfQTI4mGGKbmLZN7XQR 21JEweirYBUubsK2TcZtyQSTH/NiYcMbeM9MGa6HBNXZpmlSkBUUmWll+FQR aIHQXA9tFEZc7yaEJQnQz5WypLKS9MJjwYXgFAcry3h8KSwgmGfLSBulWNgi 1YCSWJUlZIG0wmuLgMDAMKcLgfAKKSRMjI/pRogJgkJwVlh5wohpAQHSljRT iJqSwrwwLZ7qPDyHYZEWzKgi2ggj0Bsb5gZLF4OppID3tpWjjgNvTCVockk1 LgayYVmWCc1liwlmgzgDqwq4TUD+gXAhKcsWA04IhrKYok4q05YW6ICiLikF LaGCEOkuWRwasqLnyUZg9hNdIjcF8SWVwI5pW+FzajJl40ipNMPhuU1NET3P UkeBDJiG07ai5zBOJk65bDOMoChMm0lVxgLeUJXhmwQBAX4rZloqV0zCFGJc EmKLDCfgjaCcwFROslsqQWwO09rm+Q6BCgLhUTgnU7MOnjPQkRnFgo9BCzEp hSogDLSRyRnIfWYhH96AAgWJBB2abAOewmSkVBaoA6n1FAG6rVQReAq6XSmR aQDmNBNgDkgRXUAuKBBJ05NOwZgxwTkRyZkNT22GasrMqWFQUNB/4ApQIBLj j8/B1IGkJedp9MZG+8ijNwnK9EsQKJNH1SWK4SSkVEwbShYD4w0csAqKoZ0G WQQjl6QODDJ0R5lcqJxQ42uUM6DSVCrVKZth7oVi1M41A9IpQURhZuWps0Er UxtshsgUEkA2w5mS5p0N/0GumyKvf/Vr0FcmyBYTmWJgKm1BLZpqBiYvNCPB wrM8w+EltQHoRC9TxRSCBniTnan4EgQDDXZBMRvkCkwHSVOnn6OWI7lJBy8J 6HVJEm3FzzGBC5+rTDOEYQKBKqYOXoIiM+GlzBZD8KG7y9INSQmjYCVKJOsD 4wB2VXBTsoRR15oU5Egy6Fy6sxIeWpxwK6fQ8SUDE0XQUqZpkKByYNAt007T LAWHDsHXOZWJL1H92IwymSmkQMQR1slUEwp0C4g1oKoCyQLJscHwKwAKMkUZ IEoCSJdq7JJNy5h6EuHjXafud/Sy8HuYsJe4UPNyugAM0AUwJ7SEa85LBi5I G8blAskalfWeO74GWO9Ewd95q9XJ1eh02QQ9lhAwcSxGHpwvcjZ0mv4iqSLh h9+WJRJ2wPBv/MGd4biu3x/prA7MrRhjCwamVywbZ0Pf2MD0T2PUC5ImfKPr T+L8C8MZwt++53s6E2PDcVth+TAPwwXvy2l3DceoD9p+A1O9wL9zglQN5w5T MCYtRyd0YCpGnEfi9aByTPzAp0EaSEDdcDQYu6PxwNcNnvg+VNkejqK0leTQ GH0gJKjFD/M7FsjoiNmUS+14eEZHIpiTTe14yoyOQCa+pj5+6mSOcX34qHwO TZtO6hhmszrSMq8TOsALBfjMxQLzJyH1Cy43pyJBmj78M16nOt2pRLGbzBfh 2jd+EMdt8N+ivhWEBBjgXg1REMdPQYB+LihgcngssxpUO/q2sMDSawSXTOhE A0LsEEFN3Xjw1JmtIiSUdr05ABoL2JvyicF9BhVOmQ47JFEVuNCAM4rhEbwE X4HAy2n72uCgsbGAhhDaz9brONoETDLnAHYSo53WigO95jo08ooxCKzhIOx0 MW17sze4HnecYNVoE5TOpnPd7txByydBhtqJA/UcDnoVHW2rGO1GQa1YuFgw vqWl8lRWVG5DnZ8wl5iEDD6eliWdaDeDq0Fw8hs628Oc3kkbbEcl1Bx6kqSS LWfOFEIBNyg1Dd4ED20GPig4cymoEc8IxOzCstPTBKCwsMBBzoSUwFWDSWcC 4MtlPXOYpRSgiUULc0YLhRhDbeDRWvyhEOS766+CvJhMLByVuh6WJFgoFLmp KZu+JvrlcSCPS9Ng/LfVSrO1JleApp99eL/R6bT7w/bwMiqQyO15ah0NIBbA vMiKHsX8YoUhBpp0UPA5A11MBDxPh4i0sGIUlHKZlT4qg8ASy0ksOJzgt3A7 o7st8MkxbruwrMLnYFOoLf5rFa6PADWleIv6qqnKSfEsEZ6+a8cd+BY1DbB5 2Pb8AYDyUa+pN0r8FXQ3Q5cTpN6WqRmEkWrwOjGUnVPfOFcohakSzZXEHGLg +tvwPDuDGHjdFiEFM4ih803tTAnGGAWnEyZxcgbBU3CtuVSyaFcB2AkwIBQc 5oT7GjwHKyQxvLa4jcCQhWkKK20jHmgwshsMwK8C6f2XESchz3ceCwp9kyO5 BY4ZzDVPVwuymvTuYJa1ehMj5dXBzBwPcUNAzfOmKf3oTOotAdMdCNq3GGqJ b931/QHI81XS2TRO7/pt1+kkNyNiPeEGheGvoVOrfSntOA6XcLcCNGkEBeDv XsADY9j33XYj3Io5DOYZ1FWfuoWJVv6uewK0YERS8WO6kri8m3Miy+eBnnkY 6lfmw+MxO3+ktQoNEspYSaszEufTmG5KXpiynkCFCSQ1/Www/SyFmx5ruebQ /6D0+5kYt7A3ZbDw23qFY+R/HrdvnA5GzUa9J+1lFpSXjGBhvlr5OP5xLAqn dXp2Fm/w45ZeUDQVS5lU26aAvKmyZIEhFoAchMI0hHTWgCDCBFxMCEmZYR1Y QLtOwEKX4txaatMpDK8X7UtFwIW7x6b4EYArWoRet3OHvweb2wrwVzIV/Vtk LdhaF+1p/Wn4cwxYfYCFngHaWMc4l4wWGERnZHR8ZzgC+nwD+4Bfo0UdY7Mj NNA9TNMyaGDYsEy3p7/Uiif3XVNHeTHw6nQNGkPBP3d4E8uKGJlCJ91kGf8d 3nEYddzWnI5nUcuSJoFXllTppQioiuN6npUXIYsI8NOEnAHZvgm/RTsOF4Ft 02+/cXPoNdjHEe7JDKBZD9FYCqEtG9OdkEEAfzhyBiNj0h61or2S1z2Qtroz hKmBxYOFAh35D6PsiT2YnvYd6jCrwk2owINg/2ewtoAbthOA4EMlAF/6UfJp gA+BYERZ/Ticn1l+gNpSCwL/nasBsbR8XxS3+HpZTtQ1MqPcxJS3RUL9lVUt bdN6ciAyu1QoaHapkEsK7YHfmDuSAE8keZLTCCKV/WvxMQSFPjOxMVvQsuU0 TSJ4ykwBGstOK0z9ymYUM2KS66rBc0kZIyb4s4mQk3a/LcIxlY2opMIM3lCm qALNmHGxUZdjCoxMqmSKuSyEKyud6BA7xjYR6OiTrMNsA1W4PpFxmAMpIMJi NrO+f8C0ZK+ek0FU8YtbfPF/o8R+LfOvcoHUSj3O671NZIq/ip+6ic1Bt5UM 0NI7nT9gB2cdimCbFEMaTKUNJLUJYQTMVy4sCTxXmMFkEsVTI4HrOmA/LZXN sxREWRi6kSbPBcUxhUhKrojKlBGEoFXldjqlEZ5TTL2RMjXaidlJcnOTM0vh iScF+7incceD8Si5NTzNrWgVCvNLlcDAa9rScyAVYAi1U92DN8ARQbi0baJS 61YRvdAqEPyfjO7CGQUT4Q+O+c/0G+IKeVYatdNw2E48SezaSm0Vi6P4JbI6 R1Ap/MsAgKXFlIHq5YLJoqUbjglcwE1lpQXVxoQg07TKRCin3kEvYQIP50Ui NI2MLihD8C+mHWUkiClh8lBPZyQI87ptIksliGYkSChTEsskokyCikxTaGke ap867eEodArig3KeTdQsE5VYe1GAUIQFqk7lFCNXYR60KfOGDbwUwhmTf5pd +ylv0iL8WWLiIrtFgt9/Tux0mW6I6zUjQip3080qpcuOQRO5Rbl56iQQFiKR +6adFiGiCKbPFVg9ZiqTwVQ0Vfr4IGaiMwd6hmWHVyf0UkY5y1s9Dj6piUnZ 2dxRMCRAVZD/EOdLandRP82pOa1SQEVgerWZydID2nCjCOO/pB1WkFGOmjFn ruANV/o8pDLVyLKqEa27KdjjbWtqZoNpV7jOklzfoejyw1BNs4mFMAmAbdyp IiUrykiBwVIwIsoWmaECzWFSxVPJLbgCC7445/kdF7irxZSY15jKaMfcRNAb mA2fHCYFQ2fjDg5BszTpQcSkW54fWorZMzSdcQuDBzIlOKX5PEroh83tqW6M Bw/3hjCgIotOoH+EySjWkaxLWxcLGS9KrQvL4hMhOFJHfgh88oOookzx23hX 3l3yVJCHKilLcgs8GEpSSsqCsWfSJIURL5BxCWBemRngzFA2bNyVklNSUlKh 4jTjlJoSJjgBZjZNGyQKcJjERc+spGECOZhV8bFMgfActrIkyC1JpQ08FFsl GAadB9vJMgyj3AK8F2eAR1MgVi8SUzOmUzxUMGAhlLK4zDHSRs2T37KiOUao wj0FMuu24I42yxQZLcJhhKnMznG9a4noHLmMQoenjIdGKzHxwY2i0szrChwR CzcokVQ6HU57xi2Y9rx02vPLLAYGHwq8nB/DLXmQZ532mh/mY2e+dhNfR7/d LVDOKyP3LkPuH6xjcMMJx2wFMzll4CluKMU9goVnIgLIJjBpLDuzCRR8cwml We40UJgXegsko3mkq7EL5u3b2TIgpqCX0jstBYOJCbOGcVmqY3KZ/JQJcPoo /7YQQMgYmLUIAtO6wjalhZsNs50DloA2lNRSmTgGPGGoXUSmc4Iz3KWUYxI6 gSZPubJagVi4nYdltzTZErf0ReojhRVxrwewIrPnxQIqoQuARLIqHdpkiJCK HFNOZoc2RC60QaGPxGbftNRRORz0+v5g1A5zOI79jhOflFcQutV7OQDBAVik Zs4LPo+8Vu3KTk+fzKyHwS9+UeLUQ3xdmB0W4HjAiKnJRpTiOpuP5jdR6RiH Ba6HIjwT+bA0nJS5bc1Qo2WCwVPil6x5wldobaepUtELMB96RltTy6KTmGD4 CbrCuR2n+BIxM3jE+dmOW/OQhGzwDkqgTQ2CfSmP1tYxQpEan+9sUPIa/BvV rlF5gO4NuM7ACbRBmWQgBkNbC6is4BxmsNtSH9FMRYa3HNQitWzJSvUiKsCM ZsTopAUQ5PGKcdoZgTuxZbxZctoZhJiMSJVBXxHZNm5yzQAjxlHTEpHe1Qhy zXAFlmZEWyswysD2cM4zik2Yegd6mGlXHD8DvmQUlWSAzcwfBOvk3Jc/U2gF sNnW2exZAcRNmJQzknNL9PBwnVZJ00YHNAhjuLI+Q2bzAX0mcFO/LBTaB3gM YW+EQlvJM30B2ywFzZ2moWUT5isBRJ+RTNxdPN3U8mXacYFbr7ldsKUVGWCD SlSJ3TZaZgnFPbpKlMNz5EsGoIPat4B6VSa0uRw0PGWnGuRlBBkbYPr+oLw0 r2d0eyOd0tl226POnXHjdNvD1tLfM8XrOyZW/xrl0Dw1/ng6+FGKPqazEGaQ xFM0soABLxGwbMIKDCHnuKFPpekSXAoL52jm8APMAhK4W11kHRD9zjbxMBgz TRfMdei1UopmUDex9EEKhPEcv+AtBZ8bnHGbpspA9VyippPZNjj0kuMJKgUp RwI3VJgqCA5mLkEguFGP02cP/Ik98KXCpfjBYr19CEXDfE8WoG1mlaMHUfmj xCLieWgi7ANPoNjsaTSQW5uFeY2LcqTQt3/A2qwmQOJRTiq5xozTHRx4UHQy 60yD0WcY1shE6fD4Ktyoz80sEsW4vYXu9Ayrnl3LJbg8SZglF7PqG1ODOnKu ojsI3HG97Wpf+fPYGeAirjs9ZzfOEO8P/Jt2bzyc3oIQJKve+4Oecdf2O973 2Lr1bL8WsF8ghDYR0HaIOlP2BswTLhZLkbUsQoELhY59SpyFhecMUSJzNgUh LDdNsciGhiKbctGeHmda7naXbhhN69rkkYlLBcpquMhHo9RHsWaKlFXpbQiL A86yTrzMrkFlzeXDDeZDTebjjeYMs7mo4ZxhOr/FeC5kPh9uQGeY0AWN6MJm tHAmLGxK9S/lYvsATx7NHWO24pSxZPhJm0GBSNXMhZ9QD+G+RVBRLG0iAcVy PDtyliOfW/qjwYmN/NuzB0KyJVTIRbTGMNWdhDEGkD25XBlQDeoO9/7nFsbR tOMRS3nTbgu8KEqlDTtulgYTEGWAFBr23HqaMgnmXi5u2MO8rKExabXdltFx 3Kswo1ib/ESKlt6pgQFr9LFTQWu05wU2vEDJPVv072jRtdTYIGLwlmdXVoAk YuKpqTJFFQnyz8B8A3PSp17hxhgpbDv0ITOxN7zyDBeCbZouY2GG3XT9Jm4F U0u4YtHqcHrVB89oYyReOU7hByGAzUwucp/ZU8XweSWl0RMx0ej3BwXk8eAO zghNLTnCU0T6VvFWbgGjaEop06mC8NTC48OoleGtyTF9MUq4SfPWFADw7DgZ p1iL2rkECqFwm1PRNVUPjYZCTylXhNFs9wXmN/Oi8D2e9sYQVWbyo3DfPcUD Y1PhUKJsfQhLQQQfs7pxhShxMmKsdQHegqfFcqF9pcCZAuLyBwkhM/EU3ZmZ TcjMNC8l5tJxosTTbcyKlOS/jMQldTvTLd8oqg/Y7jK3tmSMiOCyOliZB+8f w2Otg8u+PGP1bpFdZNkS+vMQ3Kw+dC/ZPt4kGHml/mDY6y7Bvz3c/dUbwP+a Trd9H+y7GuH5btMtYf1xHYwheL+4SRFMHh5hHuwvcyMCI6c43pWGI/C326eV GA8Yjq+pQj/KlvsUPgjlu0TygjV8PKsYMGZyDf/QcXvG73gI4E/RHdbH/tB3 Bm7r50oWgzwfcv8XOORegzkE7QoPq83c1arAFijTCvOIFjofBT7mFi5Cf9uW WpCPSW/gLbSldvrtN6lBvA7GGMDI3Dh4MIBeosvoOzzwBGF9eDQJvG4Ppxen tsN7jHE2hAeULLIt9S94xEjM8R9T0+2M/OuspssJlHaJwR8AeGSzRZBFfk8O jm2qrWeN95fReODzCULSp0hRfSw8laaZX2rESzekbTJ0ClN4XeA97oBj0wFh 7VjiSqMAPJ93OfGaa3QuVd6tA02sMLkxaXbD7LggeaBU+grjTqDCwfXEY+dS 6aP4HFkQ5KBlFjupiWduMPWERyTorEFQnsENngup9VyRJ9HuusoIu+wCw8b6 hOOgjWUA94FmH/dRz48mIFZ3ycOIcS4P74bA9moH9W5c8m8Ja8MhiEbgr6Pt y8QtSH6EKWZyZi+i9DN3ksZtQTtNZPu4EwdGodEACJze9f0KsqWymZiq0ds1 fSZLpAcrmQGpRJw5B0cMS+p6yDJdJvo0zZORMxoP9/yhPm85FqvDQa+JAcsd EAbXGfUG72v9PgARp+vqIa/s++4V2hodnaiNRo7b8r3tNihNXcmXxLge1D/B OLyXwCNymRrx6Ruhyt4oVvbGskEkpo0H0U78RFOQ+JZI1JCXc1Q4ppKBt63S 242Zzn0ENU0LTihQDPPGzVQqW/IO1L/fCGeYrGvKcNoi8zhNlQ2GgtosbSwt E2NVwYaBjAlTpql3+JXwObp48b+O17Z6NK+loEJF99+kzbWijHArlVWcunL4 v43NNmHz2cwJxlnt9KKGwmRXMA35BDDcwsttzr9tL0UxJoqYbARdeBA4ypf9 5lCgzlDRkb0hsHvq3vaCFozGoHdtON27GEUN/D7evNwb3AX+MsAlXA2LwBbi qKSf/LeGStF4RMPx14NMpdIYrCErE6yrUotgJ1wqdwap5aW5/oql9xZAI4xn tmngKoYFtr1omwbDo3+VrXh296jUx4/gPtUCvcnBzxN2CgdWjp0gyl9O9bOP /1fx8S2CqcNUJq90Cp4LxWh45+EiMU0bj7DGpa+FlH9ayQcrSCvHfsMf+GjY 1tqZy4ZmaPkZhb9JzUfV6BP0eoM2KCUHXNlQzzfSBz3DJ21Q+27vOoAU4CVv wjPQ8uHZe0vTKoIFofjQaKdrOJ0mvB21rrGe4DVU5fkJq7GczOt5cLS0yCKk I6gPiJYWWoSwtkcahmAM4yGMR/DHtAxFi0TzRTiYJIoRU9iLHAKYniK7eCD4 ItMh/PCbRP/seHeIopg4ijw4RhJ0bjdzCHkKwaSWMKfi+peS15mCGnD3xxTL IsCSFpvgTgzcrC5Eyu9sjUb9X1dWYEhbk96g4y1PAti6DApt5Wh6yX0U51lu ja47z1b/r2b1Y+OOGWaKWDyDAzkeK2SzhS+04pbguBN7wYRBPN1tIR0WfvhN Oiw4HR+UVXQc3AgrDZwvF2xuYqXyBsS0EfplKauOFywMDZgRettCX+/xx0Ox u9q187s37UGvixHv5Q9dTXNUc3jDAlTvDLEWnem1EiQ86bN9jb7THmgd6+Au f5BqoPQc6QiRgT4Jz09kWLYbxl1vjJXhAcBIdtDIXXStw99zFTUQhR9U4aby 96J5khLy8HR2fdZOMEnWOj0Qu9TRhzDtWyAJ4Ynj83OvFkcl6ZqTUV4bTzPF G0YfCkSAW9ft4DTGdLWzIHquzDdN7eCCTpyCzjTjLIlJ9EzG2TLRSQmd9pWv 7/PsXV+PuzjB/HArEc523GLkT6BCsFb+snGKYZhQHoxJG6YqZizX/SifIT6N Yxr9gboeELeZC3bijj5mEorL6bR+oik4Hb1g8L7vZHw6RF4mqDoDB28WB281 mdQQHL5y7A+x4Egn5YVpeoOBtt4gBS3npg0TCtFwR0duVjCXfYTJMJHVGBo/ DX0wItrXgwrLjoaJTmX/edHjWoJVcTybwjSplUo7VRwvjTbzt2rq3GlpEltN c6enzy2JByrRVGor3vnN9Omu6SzVIK8X41p01po3/vHyRSaI/m0BdKwweBXR oWX35YtNsL6jja4XRtRhzAldNvXg7LUBRg17jZFxAeCwN4FBkbxab49+Nn7a 9OuDsTO4M6hagjlG7J+R6VqUQLra3XYIYGOw9iWOn4dKKPgWdVa2lO5bKKPL 3Xolno2FpTUErFwE+AI1xXrPvfI9/HaYXHHMKMCswjRw0SKlMDEo3Pa08v2S eFj45ayvg3dOv9V2h6k9ZKkq4e1VF3AKKCUwKekf9vFyySgsBkjV1Rs5ims1 jOOt1bVepzeAakHABVkyzGWqYObq30wQUoVpKOEPScKZ1M9B33Hbo7v3ZPny a9lHxQSC9ofRGA9uAjv25Qu0zGGmaAUH/5b9WkwH+/oVP/nyhYtlEDy6LPBP /QeB/uD2hvjH+qiTZPiyTWVZfeYyfoP1LIW/62p49Je5XFaypDkzQRb+HjSf rLi4OujClJLwj4j08E/dy2l9+s/iyjQB2m58q9gQZKz+/z9CNMBWU+D8Y0Vj TrEnqgyIJCGRiV/nVjarWPEHJRL7gBoeVpmeWIkh+PaOFtCWbeQbqyt6OqOr 0bfFVBTX/OAxjbuKf6z1rrX/6XvB1p2XL8iv/u+3p6d7vcOT6/P2263apHax c7TrbpzcfvbViddpfe7us/ubw3qnyScrveu7RuOgs/LadDf6tv/yxdnuZ/vM 7rROrc7V2rt3g/OmPN+1z/YOPN47ICe7g+39la2tNyP39dna64O1Fh+ur/f3 zbE3OnRevuCN7k3n2LqxnJ58t7NB6Mbu3uD83f11befuer9xULv4xNlho7/V 5OLtzjldb46v7INXn4dbndWXL+y9V2bLbn7qNw9uW1Zj9a1/6NrW+ND3h2Jv Z63WbO5vrJxu2qtytSMUHxyY6+6eO6xNrj368oW7v7YnT1fMc/fwqOYfDT+1 ZM+/uNjaOBzZ6pidrZ92L+72Jnet1y311m9MxMnK0SqlWxvbPnn5gt53dpri 7tSptVj9Tu10z15vrV+vdncHx8Q9uNoae/e1t++2B6OhvXJEJ952+5XXODtp TfZWWy9fHJHtrdtd927UFKsHr46dN5Ohc7RPBnJl1avRT8fnXdLz96+ks7Ph Xnzm267r3lxMGqfjTQo8P9y4k2eHh6PtnbVXa9vSOl+9OThU5pGzv+nvnjZX TuUnMXnd2dh96x122N3p6trucOdg66o3Ob99+UKRUb115zZtdn/k1T71uu94 19tvbt03/UGXbuyfT2zz9N35Trd1dtX4fEd2DqR4d9Rhu3xy+PJF+8K2V1f2 D275SXfj7r7Fj15dMPqm5a6eueZh78hTnjPZI+tCWtvU9bprB95Kze7en7sr 0O8du+VdNPm73k5T9sb+0frK60avxc3uyTpvXK03Lvr13tHBRPXerq+25PX2 7Y57x9Zv3/pXvPbyRd8/aKytq73D09qr+13z7uyke2GvDM/59u1kZb3ZPzrY Ve0mUN22Pk+Ge9u17ZP103fWf4rnTPFTxGyACuxlE0F5/EM/wjTiy5RTPRWL XpcYP7UsbK6NKVu2qLVU9EQuC66nMCXLvBwewHfMtBJGXn0MCzEldDVUWAmq 2MdSk2vEhaBTxE5WQ4A+JhLV8FQrJfhDLEuTJrsATwRXyW6WlsTDSBM/H5OF QqZrFQm0ClVekbWsNNCJPoMqTJXnR+K1YPYMDgG2EUx/B46WLimWObHCJ/qB vay4TDwo0c6Ack2W+AweZEiInpSQUtyTqFDc89LmBR6/nhAbXYZaSVmyoiqp qUpZrDIdnz4IWTN9EHKvvCJTxqPBQ3pSwxf0Sg88A9mbIUHxvIy+K5Epxpal VYp5UWDxwoSp/xEVUpa9lJDw6Elp1yQnye+gQ8SyUk9gplI1nyT8ziLJnqGq IDQ3OWczCDWOpbnN5DIhbKngSTlrMWEkoeg0ki8RtnRYLOHt2ZZFmXZqOLGl aWnHz2Q2pSUYvYah8JFOS8GqcBkFI4HukrFz7TT9k/a9DnkFbkfgkRRVc9jp QSXdZvCxdoFC9yX69WuxlxAf1pd/VfkQhzqmWUPTgEG8hvWhUllKnGSQigMm assebxCUufDbzdYIy6z2Ol7wLOo0pYWdxU80v9NhRfSiT0aDdv+gq6Pb8YqS HsVsPWHYoNZpN/UySCpmMSUa2hlfd8Mk6i+7fmOElVWOe5Po2RruGhho1ImD pwN/fhEPwkWvsGFcfYwHd167sVRkG0+80CFIrDw4NyI9kO9P+k53c9C7xh5c Bof1LPAoXc/3qyb9AbKmQCJTcfkcx8rlOC3GcSrjh/fHKHlbY3SHr/3RpRbj MJCZlrHCwNJcqSuQXb1YPfx1ZSWKuQ+j1Wq30xt7esk6onVK6kqlQH4r21GC w9nxLmK5tCTrvi3BnBqBgHzNk5ipLpwnOWUXxLqfdjB0uPVEx49zLJ+lQbIK xDjxr9uoNHKapJJ4k68nqWHQIDxAnRRUFg419Ou87U8MR+dRoQrwjGFww6o3 1ZjdqcYsGtLDgT8a3Z32ep1Ruz9dYMh9GYxKLNS//mb8FGyEeV850XuXPkbq Og5VX/47r49iQQu+/ThV7ZFm/3g4aN8ADR+Hrd4kSucusBQFfHlA5XjZGfAu vDJ0mmdw+XN+gUnHMUno7psFij2dYv4lCmhrfakt6vvZoYF9DA30RLN2cvS2 2/l0db7ZfvdmtXa1euBsitt3Xai91+++uep89q8/Hx8f79y/fHG2WTtqX20P V+6bte32VdNfNcenp/dr5HDn+qSx6Y09qfz2Xu/1yF1vj9fPNtrb9/tXK/dv 3proIn8yN8hxc+327dbd9ebA37z+bH++P18D93R1dPaudnF6NNo59JrXPfvz pnWyebVVW7043+w0Nyz75Yut2vb5zu7xxt3u3WBCh5ur+1Ckc3bXrG31L4bt SevsbuVq9bz9bu9o169vHp62ep9+P7k4ve5Y4Gi+2tpbf1f7T5HjqJPyV+9A AJcMPT1AaYd5+4B34OEO2r2O79zgalOxzQ+zTirbvRt/8GcNQet43OmOb2Sj vrq3Uxu8Xt0ZtM2b2vWbV++coX16s/vyxdpr7jd7tfbR9lZz97Vzoe6uZEP9 vmfuH6+fvXv7+9nqu/01e5WeHh4eq53XfGN1Z3i059ycbuxZL1/I9sbO55oz XvU/HRza3a3V3bMaOVo93+vVVj+fD3aGO2fWjai9eXt9urHGrm9PzbfOzt1V 50r0Gy9f1H5fndTO+fcegsOA33/SILy+3W0M2Mjfn5h8ddirNce7F3a7sytu uocDdtffWnn5YsPeXXn3+6i28Xttf7O29bpGz25Hjfu3N/7pzaebzuTWbe68 rsmzY29vbbRKeludOjnbJG8+Xa26MIS1q4udg8PDCR2tUHk4cY62Xx8OJltk 8rspVuzG4cpar3W31tz6vPp69VOteX40fDfqr3c3V35fe/ni084t3zlZoXdn rU+/vz6/OrvZ263tXdzvne88ZmCKEHp2rPTAfC3dGRH8JD0LvPnERn+CcUKU xN+IKfS+IGPPH7V6uoLK0dgf+wWWL+1O6OU7im7oxo3TGePunJT7kTM63wMJ BLkBgMA8H1ekh38fOFDUW40PmphB4HSMZtxpvebr6GQXlIx4Ow5YxXhZPsAL /+X4QEvLVFie8cEzPnjGB8/44Bkf/G3xAVq6WaBgFgQoNvTFoGAmBHi64A92 qNnEiEB42EiY8Qm9rDuDv7qNf0hVTX8UfVZQU9i39CYIFIWKNvnZ0NUzAnhG AM8I4BkBPCOAPxcBFKfnZv6cZuuCOQxMu/73R1yiW2/f4Envw9nt4uUBt+G0 +UKnid8pCoKdbTM6+TTLgVQ3kd53ka0sKTA2npKCYqJM2zJ19i0m3EtymVhM /AOA3lrLd6/+TkBPdyhe7tEhnn4Pd0q2nY7hDwa9wfDvtgb0kKpcZE+M7xZA gM+xnmek94z0npHeM9L7EZBecE7Cnt8dFxj0UnxQDgHAYB4GW1mND++D7Sl4 UsDpoO10mx0/n5kzY13occtCSWCQq/KBq0JluOBpLPZTmuz9cafzKMP6bFmf yrI+iV5/tq3fZlufdhCeresTWtcZQ1P4dfFwLWRfn9LAPtzCZj1msIk7XcNJ pgyiyci2c9qbXmVX4FqXGJZ/Y3bBYwP2YZ0ZFw0qhF7EhvxD5VKPA9hE3PAa ZEgeBKdP6FzXv0p/1gJi073BQFLKAu73un6RYPwR0Gnd73d6d8/I6Rk5PSOn Z+T0jJyekdO8ofnbI6fdnut0wMzp87Tawdm2Y+jYXwV0aPoLIRSezHt9F0Ao w3FdGJHRX6VXhVBK9+owumey/VdFiEEP8p0rwGs7oVAOgz6AkELHf8LjunoA g1K5QT//VXjw2h90/c5JQNHToeX0XyX7Akux8fpdF9CuW7joeNqDx34RtFsb DwbA/3PQNoXJSaEeaqcTlL4kjw3LXYmBy7QFa3iaeKfrOQNPM+pyitXzy8SL AOfkKvJme5SrZjHA/eQrvCWpAUG/yk/vCvs9+wSvzBleknGbJv5byPQUtSW1 Fj+deXZS0Vk08YE3xfUtUPCBBwvNLVjyySL0Yck5B+tcv91aba5e7FzsbL1r N3c23tjXa5+PPGt1cvNqteuu1ARfa28Pxfa5XOk2fz87fPmiT7evJ95pn2+u bZ/eHLQ+v228A1eh0/LWr8xGtydH2+46AdR0cFLrvn017g6t1dqG5W7dIyQt prtyeVnge4VjGB3CVfw6iWWkqSwe5EcggtHb+m3LZLY+mWuhHSFBiyWZAvrn WRIfIYmL111c3ayCi0o5DaUcvIHVyaf9VblR72xvT97Y7U+fe43bnt9723q9 Zq42+auXL7Yn3Olf8TOnbznrA3603vr8eX3Mx+fHt9bZ8cQ8/d00ybrACn7f Xj8+236753Y262uTd40t8MHPDs/3Tz41+6+2r3cuwHdembgbzWK/WEt/Wb+f hekPFqaZdRdX91Cipp+U9PYBEk7MjY3XzbXaUetiq7852rjbqL3dajaPPsnj 137vZG9jUB+vHZsrOxeN0+aaezi5U41j+83g4OWLMWscnL652Dro0/u9V+9u tvEyoe7NK58ON7fN9qcRFytvbn/v2/vN48Ptt7W6ZFfbrbE9atDtly/8M8s5 bNRP7KtbZ1K7ue0OTtZumcve3NdP5O9v+PHmoHbC+Kpg7pUzmSH536z3p2cv lmn5+LSE4ppSHizm1xUczkJEeJKR/kMui6JYYfBTdkJM4Drpo4JHeET09MCI knxK/Fksp1Kz8gnzKgP2L378SUH7Cx2BMrPPGP4AhF6SzlnQpJ5h5Wme5rKO S5QIYoJCM304y993h2soi3dA9vQigvCo8ugyuYKjWHQmZL6+/4pMyODA7ikv npMhf/iFh+dkyD992eE5GfIHXXT4L0iGzKrWQkT1MPCUrC4NpELQVNBemjvZ BjHCmmlw1prNQw4tXIzzJVzSVitPTor6gj6HeCqFwTJ0EXy4aJ/o4xexSjpW jmfn4thUr3Q3ZEghL2msHMmmG4Puf4EaxEzEXL5baDFuTpEt/ja9BSI50XKX rVQJoBT4D+KVKtRWtbRPCp/FEmJOj7UvvIAiuL/tcqnoWhU936P3M6rIXDJT dCNG4uvgTpx4SpTAaHQLZl+dUdnADUCPavMEkCfWuTqA6e+PEtOl8D6b+Bq7 PC7Ul97hwYfgGyTFqaIrane3tXOhJcZEL0hf/YTvki++JnlRdJJnzJ+pd72E 9ZlzOHThDLpA0n8vj8h8HkX3EAUXNWU3zKHPeIKXsmW3vZGH0wOzHnWfjoRn f4uJXGCaBfcn7bjJ25MiahJrS8H1dynttt4ewtu72MmDVz8dOl0/uJywN9BR Sz3K4WQsWzRKLRYpwqklpv/NWbvy0Hz279977e6j7lsJf80Do8Xu01g4WL31 ++87W2/X3vbBMT/wV85pT+7trAHgO9hbWdk6qYvXtdbr3XUuLwCvfrprnjnr n3aOX5+/Za+8N02ndX+2c3i6t7319qDffPXmoP66OQIPjr+592Wju3Z61uA7 jcHKxNp6+aK+vX7fJeJofEPvVc+y73/n3Z3ts/rhqLuudrZv3zbqtVfrq+rt Yb9lD9f3WvbGxH3XlNfrAvCq+LxbX2N7b07XV/bY6fr924Zco2/3Bttb67RW q52/eU2tfLAAhk4zP5iDgSn9WhCiy/yJwxZcyFLZw5sMK3iXFKC/PO5JCQ63 0z/yY75AYvZIqjjXN//kf9M3vCx0OuvjhfPRlwGVCuei0lkYxM5XN/fekxmX wSxK3uxLQ56euKKKFryaZO1odWvnaOXUbVpW+91B63p7a6ze3LK3b17fX5us cd/buO97W0PVPZGf5csXgDuszt7Bp8nVqtc/77xeBzC05150nLOmGOz6p69W 3oyv371eb2xvsyFz969a6+R22Du4824OX75wMNb+abBnvjq3/Tfu52b7FR2t nbU6m+7m/fjV8as3h/bpzvD1m/WVtytb7mf38HBVNsk5b7xTL1+w/earsbO/ tenzV8PD/ubnJp/Y1iGvv5p82h+vHHTevrmf+IN94a/LU+vaOX13Ky4m6nxl uy9evhgfmlu7bw5erSirt87cxqeafX/IJ4fWrb13aN2v7B3ut/jRwf327btX e4eN1UnLtVdqm+9O6tunRWu/Wg8swl+6c7Trb5rqprHyetI78Jk4v9lv2deW tXrbfFXfGR2dbQ0HI3djcAEK7WB3r769sXd4dWcfuWNXrVg3J5/6lrlpflpp cPdQ3N5s3BHiNLxB7fRTY99sKOvd1Uqzu/bq5YtRq9GdnJ+fTOCvzsEFMHNv dOyvW+/k7bZj7+4dH2xbJ8c3d+TobPPWW+cb3dqrvlW/949N5+WLq+76q15v b3/zqr921l199eY12++oUbd/vj6S4nir0/DPj94cNHZ3jm5e+2py9OrWqbMr 0eyumC9fWM5Or3Nv3623u/V7OnwH3by/2LK69qsb7/XRxU7j9WvraMKYpAeq f3fINw7ZibsuXzf4KijZzUNr7dURu+fW0dvdjdNmY3ddHe+8aTW213mj5WxY 1vbYP9mpCeuwXbsnr2pnxyuSFV1DUjRSReq5dI1mcW26qDr9mj1hn/BlfQtH lqqi1RseH62Pv+L6R/kiTaIyDG08A5RngPKjARTt2Uf/KUQkPx4EeRa/B4nf I5VtVjL+EqLxjE6f0ekzOn1Gp38GOtU3jGmFmf/tx0OnqdrCfPlk71LJ8JW9 3njoH+CKNfYjRV/i3qrSO+EN8/Jfxs9zovqz71qfEy0sChPWvE/j4QhjuOkU 9MIs9/IM99QbYNtCQc1ImnCTCKAzfQ7YNZQz2lBwcK13ETzg3NeCTJedRkYY 95yR2zrKSujMTQ3541azuxlqo5HjtsLbvQGC/qMAf652nO7Ve/zioP4JpA1F JKozWNDMNTx7q8WjyMpl9nyHNoz/5JaQozWEpT+mPRjk1m67e/VxzcEVs+Aq +Xxr0ZuPQaXpm9jjn0MHCS55mdjuor/AUf0HAKbKThdP4S/MN9MLIdClYK97 uOpYCZtpoa7CVfhKvL5+NG6PKgVDpzdZ/1v/83PxFqLiJfrkqn+iRpxiMK9G 7Rs9r/Qa+lDfJXDSaje0Kq5qmAtvEurLXKYLqC09v097a73+3fdd2yjaSjPd RPOPss3zhdtv5m2uSS5qWiI/5XXfYrez4KWxv4bCXJxxq81R1+m8p3hB4SUa SpNnfsBvLW624NFDk9hn55zPLVWWov3Y2p6SsmIiH1RbUPALCRy/6N7V+E/8 o7A+ezl+byfznAnTJTN/Bh8SulxCXfKDxDWpctoI/sqXgzol1hn+UVydTLbK l2n+LxVk9X7RlCb+Lq4v+EiE38iCv+IKrHT9hfVZMUW6m3a6BuBC0d+lPQ3G QBfRCebFF4A+xVSaI2RPuhtksa0RgfSG/OQzeB6Ne/RN9DdbTo4aWw4lL/yb lk6AqDxNSRVJC4H+M1FfUUV2NFOCKnJ/Tquzl+fVpZaTZdN/ybBia/rX1yLn x8hubMBodB6RorUuKJvJPi4ADcl85MC6J7JjwwfJXE2d4lbQ0nxMkAIC+Uzp b0/oy9A0N6VvoVOgn2I/RFH+WHbTwzLPbFeIFi0SVYWe4l7PGxcF+bIJ8Pry ho+r43bHm3UosIZQ7Wv/n//MIV70ZR9X6wgq7I1H//zw8gVWy3IOdOHe5JmI qnw78wysNXs7ujFrRzr8HPsNEP1WydalnBMY/dTqQxjckY9cfX9pVMt2Rj2K s8DR5JD99o0D9M+yrTQ/HTuTGayZsys9xdt/FFvA5Bf0coY3jo5ACRU6NoL6 quR9hLXLSExibVmCtY15cDsHqkvrKRGEqd3/Vvz8xAD6SRH0E0PoR2Ho4pqS yHlRED2zpgg5L46iS6pLYusHwOiS2jLgegEcXVJRCbqeDaRL6iqG1w9A0saT zKvHi9tj4PRjAHUJ/7IQekFIXVybVQSjZ4HqEqKyUHthWF1cXwZsLw6si6tL wO08uH6cIXnsvo7g56nsy7MlebYkz5bk2ZI8W5I/35KUili4KjnqGW6vfxft 1Aenrl/vOYOC89iin7+GS7a4pSwjIWnt2CVuyXn2yx5e3bM1zdf0bE2fremz Nf0rWlN9JFC/7Qcbns/6HpghfYTBjdMpO/tIH8F1qvejesHZNENcKylh8VOE Y3EmZM8WLWitIKOoiKYnCRD/JxOO/rehsyV6axHeQEufv98Zf+auHj3h+pFR eGbEgjdj6eIYCZ5SfOo031cwWWcbRgPzsPONLnQo1xOex/WAo7ie5BSuRy07 pepILTjp3KpgAmUWKn+IDMY5mXwPSF3MrTOFleLD9LqUpji7spT8PU7H18lb iQPIiq8/Te4AYIoKHUTK/naZ2VlOs8eSpaqsHHacdrdSvn+g/LyXwiNZs79d LniUhRUe4Jr/7TI/8tZShovFpIfjAhPOuQtyxtJWPXwfk/Yl3ddAO6VPv0hD mVq32wuOBC8a+HTqn24l9eRx6vuf/xwFZGezWYukZ1GBSdU0W3pCgflRJSPd mUo4xBVQEAvoiI1bB7SAvwWd6gcJxN+kKAqXlgsWlDMLxUW5wjPyVxc7+Tzo jk5dxVRR0M/Blrfs4Nc6YKu6DmZhDN9jjsGSgUWzQCUvzeV+fXILHLHyxjk5 1sLUI4sH/ViSKhxrFogLIyis3C5098GQo6tQJcs6mi5CLB7st4meaauUybnP wfxM4n6VgRuHtVThS/I1Czwp0rLnNLvtRtt1ooFP1WguS2uaiZwh/RjVR4aP BaydETOZx9yn4O4Tsvfp+ZtncBzUgSrppXHY1tUvS4FnG33NSHIajc9XEVpJ Ixh6WghRcuB+WebKzEjerFvJooLBPRB/j3vIgvtXACQaQ52bjUx2ItioL5wZ Y9674fT7g15/0MbugxOUutLDGCLThg/Y9WE89ojTHQ8vnB8VnCmaP6EUSNQC F9HwMfokenDaazZBW1zmPbSHnkT6fBDp0xxE+gSHYD4fQ/otx5A+4QA8H0L6 dIeQzh2WfJHHHEH6dCeQfttt7E9uuXfxnAmn87c33EOjE/Y0Opt8F+DiGMbC cHueH1joTE1/lsF+jAVPXPYVPQuHVvPr/aOOEX823s/G+9l4pwfg2Xg/G+8f xXjvdIf+YGSs+532dTu48fTvYb/DjvlB4NTwEh38sR1peBKPxrP7/GyBny3w 0w/AswV+tsCPtMDBISV7fnect6hPfhEuxsWdescfGh/eB7ln671J93TQBsez 418+xFj/2LeDRR2NDeQDA95/9qVe+uiZn3O5Zs+Xbj1fuvXfaq6fL936QQ32 f8OlW7nk8KlHONJ2ZtIetYzRBHey6LRCMDdoNLJ2u7dxq6UME6lyTmaJYfm3 kYikznD0tMELiHpPL/V8ADupl/vzceRC8lsD3/9BOsDmd6DmeYZjDHqTaONQ EFv3vaBPT92B8F10pt3Gre+OR/77L5nnp70rv/s+fJg/bg8q+lDZ9yfHvckH POQz00u8xLSHo/Ldu7PoeCA57+cPxp4/aGZJ/tNkSBOTIfpr9gS/dMtBCmRe cWQ7i8nKCK2hyxotJ5OXN9uj0rua09Dsae/sm3e+zxPd2Peo++lm3rs399q9 kvvpvoWS0mzzR9yTx4qbKL0er/Au5zSXU/fv4anZ4b88/FeE/8rwX6X/zQL/ R9y299DL9uYnkJ0NwcTqeTCcf4ea/i5xiVrhVWkk2npkTRmv63jt3+05/X6I Jb6g76d7H9Cw7g9dmJTaSZuaeG33snKnb1y7gVkWnh2aHKHKsT8aD7rQFjrN Kc12Aebz/ZfHpTl36+nTpqIPMjsBGxPk7Dlz56BCT06ixeQ98ChSn2e/BuXX AM0RJHmnHNWouQtMKkzW8djepEVRN6/DCrmhQKIyxJR26PHErPqN3sDPE7UG 5hrGeRge8IoIrxINLdrhUeUrjvCxD3bF9d+Xs/oktHlJK59mdvRms505JLeo KMrufhCBwX+CSk6d5jDYU3PiDnqdToSY0926GDj9WqzgQ1cnOBY5aiHuxiV2 7oGdQpCcZF0RRYl7HvAeRP2BTjhMTDV9QWLP82sAAYaj/ByMXyWTSythjvl2 u9nqYGQJJvvUbsSNYgJvqH8DPR3cOgBMTWllqlN714BXMFA7XXegL1nU76L4 V1Bf9lrDdMwre7ehKN9DME9RJmfGQ2+czClLK1aWKhUXKlSWiAuG6LElVGao tr8GA663CUQp9lO7UTkYj+Cz6G3lWYl+TyWaXrft3QaSoH3v5JA9a9X/Eq3a xzIt373KLVwXaxlsdBEgpm8tvpylMb6W33kcN1JIZahSU7s/kzoez0Of1qVd uaDCeVsVpl/O7V/wWVp3rkPP6o5W2JmtcEX7y5TePLIsbb3FSwiWZhYu5eyC 8Qq5FVQYvI/Xc5KdzoToE9tAI5csKFzAr1C20pg+eZCjbcqEAzt7m2+Z+1nk s2Tc0ugc+7Q7lHeaku9DYtbbN23PHxTuyS1wSb/gbPiarSeUxvCqZPwwgJ0f 3h+immn1OtDEZWUplKnAei4iU9HlxmEDwZ0DQSbn6V0/4UJV4i9ACWc/qwRT +mgMorfWgrEGHRD2+Os80ZlN5DbUPoDGrqIbmDO7aRdzlBdsA615cHXB7JYk 4UzplihVXOAxEcumWqSpKePGHSdqKAJXeI1NfnvZzO2Ncd4L1lVwLXdirs3y OoNtWyKFpAph0ZfKSaD5E5BIWF+nbe86db9T6HTqN+lATmCKQA5xpTa1pAGC vdvrNtedYevyw/t9v6l3MeoNcjr0jqKeRbxKfl0qlLKgykBNZdDuuT/wnK6T Qbl2CchNQuYTsI/pd6W31S8kGeGAPug+9tk1HgJkWh34ztX8+vLSdBmtaQQW PRNKSG2k/jLdP5gToBJRQzeiKh51DTzJxzeSiCZA5hGqTW3U++mf6DoBijbD G0/+ZfxcZAgjYxQNYKSH472IClwOS8xj/8m4PvTdKA7wlCQXz7WImjkk/dFU hWe1n7eH7bQMRcsJMAWHic2gFUKXTX2N014bEOKw1xiB39T1wEAaP0lerbdH Pxs/bfr1wdgZ3Bm485WaxP65RMh1lSGuD9z0lu+PAsuF+mG5W69cvnwB//vp FwOoMXqNGHcbIWA1fvkZ75qDD/SaHoiA4eKlK8k7pvQ3P/0SgW7wG1HRv3wR PdAoofobgpHKaXvU8SvBH8FICQvPIKJLhhQKj/dZMpS5FH24NF1MODvbWa/+ VmG2shq00agqV/Aqtxy3atumV3VwR7BrwlvihouSUfvQWlTd1FX4Ov0G62WS Mi5NKoNBiz/7kSldiikjlAMlGNXVuBUTbQLStEbNUSaZY/uWJ6t2o86q3JWq ansNu1qXpnRtZvqmUgWUpYMYZfRxYdqmyRhP0EctPO8AT9JSgiDvhB1SiOGg Agobnsu48L1qgxGgkFtAq/LtKofeE8l8TlSed1M3MEWQUtC6tKidZBhheDwT RRo4HiJBzJCgVFw7R5fLpddw6vWq34CB5YTbVYu5otqw7LrpWYKZDbYoXYQS k3Nmp+kCYoEuC6VM/0aSdKVGIM805sqGQ/2qtFxa5abnVB2PiirgNEaIQxnx +aLEQRlpCmnxlJQJE+/5xDUDGRy8thDTqOcQ6JhT9ZQDTLNB8BwT6LLhqbQ8 mza8vLiV0CVsiwqb2iJJF8gIRgKptk0gWZQvzjQFxbhqOFUJXapy5cJccDwQ PEEd1RC2FEwszDRiU9MExJMgjpkSybEQKYM3uWTYs+cmSDdxOOdVxuoOSL6k IPl1Uq1Ty3ap6yufLkyPxSi3GCiHJD3CQpmybaBDoNaI6NGhgTw9DmNW3eFm 1ZSoxYiqg5rgtNrwG5xZluuAFC9Kjw1qSwEBycFjSkkL558ALgnF5xKEM1c4 yq8Sj3lVDtJQdYTtVBsNAjpMUJs7zqIEcUuAbiEy0vpJUUlq/h9Tv0Y0R0Y/ TbKNM0GAHrEQs8V6JPRhCqgWdcaYx92q6fj1KncYEMy4VTXNOrUdVxJZt/OM TTSfplOaFgVBsVVEZ/KcgjSpYA9R1aGNQLFkc0mV1KyLugcEUtsC0+qBULq2 WW0Q7lGX2Z5o0AJSUxRkporAqQ6TJaRWa44Mldp0UQ5IPlDSkclIoN0C/WJT 6jZQAkC4Yf7YpOpIy6zWFWtI4kmpzEae1KD5DENtbplKcBEP/Mhpd4bGv4ww apQml+szhhhCFYvwRck1G35dMN6oOly4oKstVXWUCdZEeg6HCWdxt8CG5EnJ KEZbAhoyI+aGLleGYMklLoWjKgeTDbPMnisHdSCH1T1WZb4N1FqKAbpyQGPy OvyfB2CDFyjLuPkMkTDJOeUxf8PVoH8ZNc9rB+6PsTNFvSniQcwtINeiWjuI hWTYtQHG1GVVMQcEo173AB6yRlX6nmNJv8EATeRpn0dUBisSgD6EmDTsEoL6 Qbs+xiSe1btMD2yMfFrIfqkoHqO6iLxYDduV0PuqrxwJ8gLT0bF4vdpwbKm4 UHXLJfleZOjI4DWhhAnzMVJwr/27SW/gpaUFrBoKtYWn4QRYZCFy0TxIBaqY SDD0nIGdtaQNAkOFC9Jj2qCe8+TGFGQEhoN+A7PMQkKPfUxS8ozwDM40vVRK NLYmTEdAGovSC6IBIk54VQgLjB0XrGp5yqqyeoMo6tadhl0AnbKEZKwwgjET gGeG7GidyAhu2M3Qz22cjzZKBuiDhcXDVyAcABwsV0lE71613rCgE0T5gFXB btMCRV1KURZuKVOaACBSE3bl2G/4Ax8j7mvtAmvDJMAWBBx4JpzS2N9eSJG7 0qsj5GCeCTbHpNAV8OeqLqcAH7l0CfPL5msRTVlopBhYGDtSPnikZ2YEFAmA EqoXYasE/J5JN5hKX3HioN8JIuT7HHCIR6vgYzim9HiduQV4KWg/i72ZxaUQ sY/sD7NSYml7Q0wMdympFrU6rnJM3lBu1fI5TEvigLlsMFoFL6GhSIPUHSkL MJ1uP+NUSTTTIhKJ2njU6g2MYFkoRalN0DwSE9U2Qc+Bz9XYzPGtupSg3Dhz Qj/GA68e3HHAGx71GrQAIKVIyGg6W6ByprHFGdev27rFQoqpjftBTBx6hXxd wEBS2RDg/NrVBnVNwHQeeF11CTraJJYAZjcKvYkcHRmsxBk49ACWLr/Cc/j/ dPxHh3sKoz/T4IZtMcxioJRK3fUviSVcG3Q/xXfMDN+lgTFBFwvPRKOSxB9M QSi+h1f6vYjep5EffhJATirt8JMQceErgUqBgqcS155DN/iZChpRKvxsCivw rYVIFqxDROJcw40aycSDJaFQRHfWTmqtpYJvIsKnxgnfgonAt3ZEe84U4EdS A1lQzJmP8voWv7ZMrJKZ6Z4UqjT4HBxgjeXNqA+hJsFXxApeRaSHExhfMa5f kYju9KzBL8Dt0V9EROeFFL8KgiaMkpRoTrMJOn4cnozX6b8Ewvo+XvXREePo 6feK+s2P+RVG/L6rP7qoN1oY65vBw+/ojJa7onlHNCLy+4UjSyIO+VDkyxdf gxNJDeNyHvO+n3s80znOu8bz6Py+DnKhe5x3jucQ+b0Dv3MkIBX0/QNDvnPI moZ7HyKY3zsePIfoVCz4D4wEz+NlHAVO8fIhjP3OsZu5kZtc3GYevRYGbJiF gWWcVCwS4dAy50kVou7ASIPIMgD8dW5WrToQDb65qyiTknORnjdgqjgB5Dkd a1BJoGk48kdInpjJZY36lgVG2ZRVz1RgU+rgVoP7CfaZ2K4SAGfqtpdu1CKC SBscnvKRfMiwfs8IV1l8Kx/dmkMkwFqOuhGjK0TfDjNf8ngd3EIAJeARe2Bw fM+vOnUC/psk1PER0HMzRQ0HE8UpOOLT4VRg3rFdFCS0d9ZsTOOjeahTwFng wEKTDQLohpAqQG+ANB6r+9TKMAAlBlzYuQxQ6L1ybSEQrZCIBcEuljwpnnI9 YdetKrAXJNoWVrXuWKTqCgUdbzhOo57pPWeWIpYyp723tNnkiP+JTHijQRJ2 0QySricJ2CLbFQBEGh703/LcquIOrhF5vvT8TP9BlZhcWQ8SWQsgHlCDA8IE SUyyMmaYvoKRtayqAOMDqgeYYTXA7SR+gwoJrpkr3fQkAwlWEhyXBDMsEye1 qW9ekgsww7c9UHIE9B20XgWSAfAomC/MEcLxiXAAgqdNhwLRtEwiiplBLJBZ oIDo+9QWWLQzPQEAwKu6dQLC6DHQLARkU9oAVKWFC2b1VPvMBr3FmJyLm7lk CJwR6ZuYQiTmsN91ibId26lajgecoI4D7oflVetEUg8gEm1QkqLEBtBmiqla pejY4tIgdh19dHse8z2XNGxTeVVquwDgKPdB/NEA+T4II1QOGiAtiTArJBr7 h0gixeAYLqECSYLpi6bmsMKHHlPhelUJkguQjQLMcAFigi9EqC943SIqo+4l McEYTFUkBbiI/EeOcK0H5koiAezt1GkVfAqwMZyAp+CZPq7hCqeuPM9yZEb8 QRFwmz5oWqIqw0FCdSFxpIicwwzu1YlvM7/q18EAcpNgSLbBQHuCDvW4AuiT tn0U0Idtg9GYMgN+MHqN0V+GTvFcZlh16jdcBh4TaYCVbwiw8o6SVdNt1CXz Gq5bpxkdBWiOEZs92sZi0Ad4IXGi6Jy7RcyXdH0GLp4DylMCsQ3XrDpCNUCg fbshXeEqO41G0NEwASYmmaP0JMWwOEftpWZrDNP1KVh24IplAwZWYD1sAsLp CiI8mFHKstNyAm8t0xaJJksYwAiabkkRQDKVWE4vkQyoWAoOkMK1iQOdl6Ja txxSNX2b+ibzwa1KDxJADnAU8CiGuElua0HEQAlmIYt5ggFgRPhmQ1alhwx3 HOh9XYAts/06ayi7Dog7LRgSPG1uPmySgJCaGLbBUIlecplnu7hvWgB3QZOB 6oBBAb1pc2WDAmmYKLhK8rQa5wzcAqZkghcw40W4xLMYL+o2Ja4EhAcGC8UB eFG3gDUN6rtKUfBDMpOEUMu0pGmpYmYACMGFPImt2gjlYh+oLDrUaCgPIEkV 4XWVuxYgYuYTUA2COMR2wGg4aeMlCWg5wDrzBkAAzsEQFUI5moz7lA0A2H2g pC6qPkBD0J4UvGwQQpgV0ndNsPFmIz0ACrQUAAiSmIhSL5MobEsvEc4FDxZt WBb3KMx+MNmAzsGHVmDEECybPnPBIKT7DxAZGmWWLBkA9JmQAgvXacwEgCwZ AC6ED/DXBH9YYq/BOYGpx6vC9wBWUJuDv5yZDTDHMQg+bwBUsMjFtXeEWJbN nQJ1h5mYU1MnCpGMZwOSIT6obMdueJ7kDVXPeLvSBlSZcMxAPG1sFXchUAzr zp0CUoHrKAGquHUMrlCHVS0GqF6AOjBdjwCUqWdGwMRYLy0bAYvhpNfXNEm9 aDInQEqY7zDw86DXuEzCKGpjR+hlStcR0gPFlNaBMC6cyXlxT2rrlTAAmqEy tuawXzWADZIClq8jIXUEkiYDxoAacJkE28jTXg0BHwNEMRHbtDkCRYvoOAjG lOZxX4ChN2XDBQ8cxc8UCJFMs0oBqwBs9IjlpPGblDZMbaLE07jF3zN3IuEV L5I5EWu4OG9iHunfN2kiQX5BysQUjUQJExG13y3pcE7oa5pw+IDx/96pHAma U4kcsQaL0zjm0WmhObUsBMF6/TVWpsWZiuDxmhYBnwjUGsFMRbdaZ7SOag3s ukcZ8+yML6CUBTpnOo7ATtQatl6k5tNoTEmLnmISJkYDYLYDAAbc3mrdBI+4 Ua8DvvKYWfd4WtDB3ZOcMPXo2fu9E1sSo1eU1jKFx1FSyxxyGeMIihEec6nm DyIgIS7r4DtC/TCImJ9QdwmpAn2OCTiWWIRnIIkpLctMYEIG1g3b5KiSMcil ZjdZB33u264P6JjjEqICQNKAeemC98otz2QNx8uaQ1NImLbTJrlGQbbGvoLP bdIkTNZ1bq+PK4Q+ePMWB1sMENSmridlw8oEMBRFW5TwAhjXYQq90sdwFXpO k4QIsO3cqTYEsJPDgIPOsU3wOwBjgAKnVKRjNoTb8D8Aqo+X1e+cxFQgq4Up TFPsFCUwzaEbBhcjMXqtF4lns1lLfQUQFPAbbZg2gDhAVpYCa0koTBMA9NwT aZeCAZrkwk7Mnu+WJj7HgkxTxOcP8nfP5Mqhh7I8rin1URbXnAH93rlcCcqn mVwxeI3zuGJOfrck/DnDPU3ALx7h751PliQvziaLFU6US6ZpC+8ZndL2PTPI EnTl8sdiQxNnj80Rtu+aOJacI0VpYzE0jJPGImpB5yDuwwAojCsGCeRslEoZ RaMLnolqYKACPOY6AZXjA2pVTt2ygIUZ5wi1K50FbuAPvQMy3uYY7oNsz97t +P8ByHfe/MPBAQDZJdda "]], "Format" -> {"GZIP", "NB"}], "OriginalUUID" -> "38e337c3-f07a-4d46-b0b3-f09fe987c13b", "SubmissionID" -> "5810", "Submitter" -> "pacoj@wolfram.com", "ContributedBy" -> "Paco Jain (Wolfram Research)", "PublisherUUID" -> "1ca97c83-1e23-4ef8-a6ef-83680a155d35", "SubmissionDate" -> DateObject[{2019, 3, 18, 15, 25, 15.695385`7.948346958263355}, "Instant", "Gregorian", -5.], "SourceMetadata" -> Association[], "Download" -> Association[ Automatic -> CloudObject[ "https://www.wolframcloud.com/objects/resourcesystem/\ marketplacestorage/submissions/4d052d0bc026e682/5fd/5fd3a40b-666b-41fb-9338-\ cbb76f914572/159c4f70b635db4f/data"]], "MetadataFile" -> "marketplacestorage/submissions/4d052d0bc026e682/5fd/5fd3a40b-666b-41fb-\ 9338-cbb76f914572/moreinfo"]], "OpenedTime" -> 3.762102394191957`16.328005600849426*^9, "CellHash" -> 2204841746995043676, "Modified" -> True, "AttachedInlineCell" -> CellObject[31777]}, CellChangeTimes->{{3.760894890190073*^9, 3.7608949922552786`*^9}, { 3.7608951385739093`*^9, 3.760895150590111*^9}, {3.7609723942242203`*^9, 3.760972441834981*^9}, {3.7619288601418867`*^9, 3.761928942420658*^9}, { 3.762102962784403*^9, 3.762102962784601*^9}, 3.770038271963524*^9, { 3.770038333292611*^9, 3.7700383632530355`*^9}}, CellTags->"Nothing", CellID->181516956] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["\<\ Test whether an expression represents a quadratic function of a given \ variable:\ \>", "Text", CellChangeTimes->{{3.753019818189655*^9, 3.75301983054189*^9}, { 3.7530199320220366`*^9, 3.7530199623310676`*^9}, {3.753021814009217*^9, 3.753021823727188*^9}, {3.760892894819556*^9, 3.7608928971147857`*^9}, { 3.7608944915342116`*^9, 3.7608944931093693`*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], ",", "x"}], "]"}]], "Input",\ CellChangeTimes->{{3.7608929026293373`*^9, 3.760892911314205*^9}, { 3.760894761190174*^9, 3.7608947793239875`*^9}, {3.7608951780908604`*^9, 3.760895226664717*^9}, {3.7608955110141497`*^9, 3.760895512179266*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7619269047755723`*^9, 3.761928401492229*^9, 3.7619293251469917`*^9}, CellLabel->"Out[1]=", CellID->228140478] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"4", "x"}], " ", "-", "Pi"}], " ", "\[Equal]", " ", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.760892927603834*^9, 3.7608929346245365`*^9}, { 3.760894791228178*^9, 3.760894799529008*^9}}, CellLabel->"In[2]:=", CellID->114576144], Cell[BoxData["False"], "Output", CellChangeTimes->{3.761926907612856*^9, 3.761928403750455*^9, 3.7619293252139916`*^9}, CellLabel->"Out[2]=", CellID->570618015] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell["\<\ Test whether a given expression represents a quadratic function of a list of \ variables:\ \>", "Text", CellChangeTimes->{{3.753019818189655*^9, 3.75301983054189*^9}, { 3.7530199320220366`*^9, 3.7530199623310676`*^9}, {3.753021814009217*^9, 3.753021823727188*^9}, {3.760892894819556*^9, 3.7608928971147857`*^9}, { 3.7608944915342116`*^9, 3.7608944931093693`*^9}, {3.7608947445585117`*^9, 3.7608947558536406`*^9}}, CellID->39414336], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], ")"}], RowBox[{"Log", "[", "y", "]"}]}], ",", RowBox[{"{", "x", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.753019916744509*^9, 3.753019917104545*^9}, { 3.7608930703521075`*^9, 3.7608930815112233`*^9}, {3.760895241923243*^9, 3.7608952439004407`*^9}, {3.761918149450825*^9, 3.7619181516508255`*^9}, { 3.7619269252586203`*^9, 3.761926930400134*^9}, {3.761928421491229*^9, 3.761928424724552*^9}}, CellLabel->"In[3]:=", CellID->9517053], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.753019917972632*^9, 3.753022007344548*^9, 3.7550123855306635`*^9, { 3.760893077223795*^9, 3.760893082020274*^9}, 3.760895253956446*^9, 3.7608955160626545`*^9, 3.760972623720167*^9, 3.7619179459898252`*^9, { 3.761918139014825*^9, 3.761918152588825*^9}, {3.76192691125422*^9, 3.761926930949189*^9}, {3.7619284109931793`*^9, 3.761928425313611*^9}, 3.7619293252819915`*^9}, CellLabel->"Out[3]=", CellID->255469111] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], ")"}], RowBox[{"Log", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.753019864858321*^9, 3.7530198918360186`*^9}, { 3.7608930863737097`*^9, 3.760893099399012*^9}, {3.7608952466257133`*^9, 3.760895250314082*^9}, {3.7619284283469143`*^9, 3.7619284294200215`*^9}}, CellLabel->"In[4]:=", CellID->186109195], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.753019866379473*^9, 3.7530198924800835`*^9}, 3.7530220073655505`*^9, 3.7550123867477846`*^9, 3.7608930999530673`*^9, 3.7608952512791786`*^9, 3.760895517571805*^9, 3.76097262464826*^9, 3.761917963142825*^9, 3.761926933143409*^9, {3.761928415222602*^9, 3.761928429812061*^9}, 3.7619293253489914`*^9}, CellLabel->"Out[4]=", CellID->111874928] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], " ", "+", " ", RowBox[{"b", " ", "x"}], " ", "+", " ", RowBox[{"c", " ", "x", " ", "y"}], " ", "+", " ", RowBox[{"d", " ", RowBox[{"y", "^", "2"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.753022064893303*^9, 3.7530220818589993`*^9}, { 3.7608931061736894`*^9, 3.7608931216302347`*^9}, {3.7608952568197327`*^9, 3.760895258683919*^9}, {3.760895293271377*^9, 3.7608953238464346`*^9}}, CellLabel->"In[5]:=", CellID->235799240], Cell[BoxData["True"], "Output", CellChangeTimes->{3.753022082621075*^9, 3.755012390688179*^9, 3.7608931221562877`*^9, 3.760895287347785*^9, 3.760895325431593*^9, 3.760895521304178*^9, 3.7609726283996353`*^9, 3.761917964562825*^9, 3.7619269414892435`*^9, 3.7619282150685883`*^9, 3.761928441735253*^9, 3.7619293254169917`*^9}, CellLabel->"Out[5]=", CellID->222953193] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell["\<\ Variables listed in the second argument are considered together:\ \>", "Text", CellChangeTimes->{{3.753021681655983*^9, 3.7530217741572323`*^9}, { 3.760892980707144*^9, 3.7608929839014635`*^9}, {3.760893028024875*^9, 3.7608930286109343`*^9}, 3.760893226173688*^9, {3.7608933441194816`*^9, 3.7608933564497147`*^9}, {3.7608953544024897`*^9, 3.760895356674717*^9}}, CellID->917809520], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{"x", " ", "y"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.7608932300490756`*^9, 3.760893311876258*^9}, { 3.7608953463276825`*^9, 3.7608953484628963`*^9}}, CellLabel->"In[240]:=", CellID->51468482], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7608932555486255`*^9, 3.7608933124663167`*^9}, 3.760895348951945*^9, 3.7609726342082157`*^9, 3.761918023349825*^9, 3.7619282236304445`*^9, 3.7619285078678656`*^9}, CellLabel->"Out[240]=", CellID->26362408] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "y"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.7608953639894485`*^9, 3.7608953738224316`*^9}, { 3.76192824038812*^9, 3.7619282564337244`*^9}}, CellLabel->"In[241]:=", CellID->435963762], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.760895365745624*^9, 3.760895374776527*^9}, 3.760972637561551*^9, 3.7619180261598253`*^9, {3.7619282456776495`*^9, 3.761928256966778*^9}, 3.7619285129663754`*^9}, CellLabel->"Out[241]=", CellID->128086087] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "If high-order terms in ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " do not explicitly vanish, ", Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ StyleBox["expr", "TI"], ",", " ", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " returns ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.753021681655983*^9, 3.7530217741572323`*^9}, { 3.760892980707144*^9, 3.7608929839014635`*^9}, {3.760893028024875*^9, 3.7608930286109343`*^9}, {3.7608953918662357`*^9, 3.760895398638913*^9}, { 3.760895446948744*^9, 3.760895465872636*^9}, {3.7609685735961957`*^9, 3.7609685790437403`*^9}, {3.760972144777278*^9, 3.7609721881366134`*^9}, { 3.760972242926092*^9, 3.7609723744672446`*^9}, {3.7609724539401913`*^9, 3.760972559290725*^9}}, CellID->361120442], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], " ", "+", " ", RowBox[{"b", " ", "x"}], " ", "+", " ", RowBox[{"c", " ", "x", " ", "y"}], " ", "+", " ", RowBox[{"d", " ", RowBox[{"y", "^", "2"}]}], "+", RowBox[{"r", " ", RowBox[{"x", "^", "2"}], " ", "y"}], " ", "+", " ", RowBox[{"s", " ", "x", " ", RowBox[{"y", "^", "2"}]}], " ", "+", " ", RowBox[{"t", " ", RowBox[{"x", "^", "2"}], " ", RowBox[{"y", "^", "2"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.7609685034201784`*^9}, CellLabel->"In[242]:=", CellID->735711410], Cell[BoxData["False"], "Output", CellChangeTimes->{3.760968568979734*^9, 3.760972115646365*^9, 3.761918035681825*^9, 3.7619282645965405`*^9, 3.7619285309481735`*^9}, CellLabel->"Out[242]=", CellID->172711386] }, Open ]], Cell[TextData[{ "Explicitly taking the cubic and quartic coefficients of the previous input \ to be zero yields ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.753021681655983*^9, 3.7530217741572323`*^9}, { 3.760892980707144*^9, 3.7608929839014635`*^9}, {3.760893028024875*^9, 3.7608930286109343`*^9}, {3.7608953918662357`*^9, 3.760895398638913*^9}, { 3.760895446948744*^9, 3.760895465872636*^9}, {3.760972191510951*^9, 3.7609722278755865`*^9}, {3.760972578212617*^9, 3.760972584199216*^9}}, CellID->261540051], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", "=", "0"}], ",", RowBox[{"s", "=", "0"}], ",", RowBox[{"t", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], " ", "+", " ", RowBox[{"b", " ", "x"}], " ", "+", " ", RowBox[{"c", " ", "x", " ", "y"}], " ", "+", " ", RowBox[{"d", " ", RowBox[{"y", "^", "2"}]}], "+", RowBox[{"r", " ", RowBox[{"x", "^", "2"}], " ", "y"}], " ", "+", " ", RowBox[{"s", " ", "x", " ", RowBox[{"y", "^", "2"}]}], " ", "+", " ", RowBox[{"t", " ", RowBox[{"x", "^", "2"}], " ", RowBox[{"y", "^", "2"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7609685339742336`*^9, 3.760968565724408*^9}, { 3.760972120725873*^9, 3.7609721245492554`*^9}}, CellLabel->"In[244]:=", CellID->216904743], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7609685661694527`*^9, {3.7609721133381343`*^9, 3.760972125409341*^9}, 3.761918038613825*^9, 3.761928269560037*^9, 3.7619285683539133`*^9}, CellLabel->"Out[244]=", CellID->170102626] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "Expressions that lack an explicit quadratic term are not considered to be \ ", Cell[BoxData["QuadraticFunctionQ"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.753021681655983*^9, 3.7530217741572323`*^9}, { 3.760892980707144*^9, 3.7608929839014635`*^9}, {3.760893028024875*^9, 3.7608930286109343`*^9}, {3.7608953918662357`*^9, 3.760895398638913*^9}, { 3.760895446948744*^9, 3.760895465872636*^9}, {3.761928593865464*^9, 3.7619286110881863`*^9}, {3.7619289715847416`*^9, 3.7619290196599913`*^9}, { 3.761929069842992*^9, 3.7619290805419917`*^9}, {3.7619291894739914`*^9, 3.7619292051319914`*^9}, {3.7700384325733624`*^9, 3.7700384330870476`*^9}}, CellID->55024364], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuadraticFunctionQ", "[", RowBox[{ RowBox[{"4", " ", "+", "y"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.760893010543127*^9, 3.7608930180358763`*^9}, { 3.760895386066656*^9, 3.760895388783928*^9}, {3.7619290493209915`*^9, 3.7619290509599915`*^9}}, CellLabel->"In[249]:=", CellID->15751387], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.76089301247132*^9, 3.760893018514924*^9}, 3.7608953892339725`*^9, 3.7609726732221174`*^9, {3.761917902122825*^9, 3.7619179295358253`*^9}, 3.7619282755356345`*^9, 3.7619285777358513`*^9, 3.7619290516299915`*^9}, CellLabel->"Out[249]=", CellID->669254175] }, 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["Paco Jain (Wolfram Research)", "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["quadratic function", "Item"], Cell["second order function", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Symbolic & Numeric Computation", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["PolynomialQ", "Item"], Cell["Coefficient", "Item"], Cell["CoefficientList", "Item"], Cell["Exponent", "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["LinearFunctionQ", "Item"], Cell["RationalFunctionQ", "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[TextData[ButtonBox["Quadratic Polynomial\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/QuadraticPolynomial.html"], None}, ButtonNote->"http://mathworld.wolfram.com/QuadraticPolynomial.html"]], "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.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, 55, 1, 70, "Title",ExpressionUUID->"e6d65372-069a-4001-bbcd-c3bd71765857", CellTags->"Title"]}, "Description"->{ Cell[616, 23, 143, 4, 70, "Text",ExpressionUUID->"a1273a30-95eb-4292-b3ab-ca742959f2ca", CellTags->"Description"]}, "Definition"->{ Cell[784, 31, 887, 21, 70, "Section",ExpressionUUID->"dc68fb32-d821-424f-8b32-e47cf5081055", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[6091, 172, 99, 3, 70, "Section",ExpressionUUID->"e60feac3-7d8b-49b1-ab6b-340010a634cf", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[6215, 179, 1615, 42, 70, "Subsection",ExpressionUUID->"03beb53c-84fe-4131-af9c-221267f552a5", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[9507, 295, 1131, 24, 70, "Subsection",ExpressionUUID->"afbd7614-0412-47e9-b599-2a3ed1e546ba", CellTags->"Details & Options", CellID->66019318]}, "Nothing"->{ Cell[10641, 321, 1076, 35, 70, "Notes",ExpressionUUID->"48d05d4f-c189-4400-84ee-d94a4aaace92", CellTags->"Nothing", CellID->160641843], Cell[11720, 358, 33808, 568, 70, "Notes",ExpressionUUID->"fd74666f-5957-48d5-8706-f420b100bd81", CellTags->"Nothing", CellID->181516956]}, "Examples"->{ Cell[45565, 931, 6400, 143, 70, "Section",ExpressionUUID->"8d496637-7781-455f-9093-f658272e5c05", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[65810, 1489, 135, 3, 70, "Section",ExpressionUUID->"cf34947c-6c62-4443-8e79-4f6aef0d8dcd", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[65970, 1496, 683, 18, 70, "Subsection",ExpressionUUID->"f742f70b-0f39-4ad3-bd1e-c2f20513f986", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[66737, 1521, 684, 18, 70, "Subsection",ExpressionUUID->"107d3272-9e15-4eba-a320-81ce8c8c3daf", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[67535, 1548, 126, 4, 70, "Subsection",ExpressionUUID->"eb664c03-ea04-474c-8bd7-6478b9e145e5", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[67747, 1559, 661, 18, 70, "Subsection",ExpressionUUID->"4e092009-ab13-43cb-816d-2be122c799e2", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[68566, 1590, 711, 18, 70, "Subsection",ExpressionUUID->"9b2ba8be-b51a-4475-8098-c093bae1ee40", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[69384, 1617, 762, 19, 70, "Subsection",ExpressionUUID->"8274f528-8b1a-46f2-aa00-ec5a72189b4a", CellTags->"Source/Reference Citation", CellID->642091068]}, "TabNext"->{ Cell[70149, 1638, 496, 8, 70, "Text",ExpressionUUID->"159d26b2-3650-4477-8241-9617dcb7d134", CellTags->"TabNext", CellID->343081869], Cell[72807, 1726, 509, 8, 70, "Text",ExpressionUUID->"08b23ca1-3470-4c13-95fd-f3f7e08b59fa", CellTags->"TabNext", CellID->567921317], Cell[74076, 1760, 495, 8, 70, "Text",ExpressionUUID->"a26c57f9-42a7-4b5c-959b-606875a201f6", CellTags->"TabNext", CellID->920818074]}, "Links"->{ Cell[70682, 1651, 614, 18, 70, "Subsection",ExpressionUUID->"87ccb324-6f14-4094-b6bb-6e00fe412a29", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[71599, 1680, 767, 20, 70, "Subsection",ExpressionUUID->"3d8d3d70-7d0e-4ba5-a365-72b366bd5d4a", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[72677, 1720, 127, 4, 70, "Section",ExpressionUUID->"5e5be471-9c31-44d6-8011-930ef6f83aa7", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[73353, 1739, 720, 19, 70, "Section",ExpressionUUID->"bc7538b2-9f7d-4f89-8993-b81201b442b0", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 145547, 3136}, {"Description", 145680, 3139}, {"Definition", 145818, 3142}, {"Documentation", 145984, 3146}, {"Usage", 146145, 3150}, {"Details & Options", 146316, 3154}, {"Nothing", 146488, 3158}, {"Examples", 146794, 3165}, {"Source & Additional Information", 146981, 3169}, {"Contributed By", 147172, 3173}, {"Keywords", 147344, 3177}, {"Categories", 147512, 3181}, {"Related Symbols", 147686, 3185}, {"Related Resource Objects", 147875, 3189}, {"Source/Reference Citation", 148074, 3193}, {"TabNext", 148256, 3197}, {"Links", 148695, 3207}, {"Tests", 148855, 3211}, {"Author Notes", 149021, 3215}, {"Submission Notes", 149195, 3219} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 55, 1, 70, "Title",ExpressionUUID->"e6d65372-069a-4001-bbcd-c3bd71765857", CellTags->"Title"], Cell[616, 23, 143, 4, 70, "Text",ExpressionUUID->"a1273a30-95eb-4292-b3ab-ca742959f2ca", CellTags->"Description"], Cell[CellGroupData[{ Cell[784, 31, 887, 21, 70, "Section",ExpressionUUID->"dc68fb32-d821-424f-8b32-e47cf5081055", CellTags->"Definition", CellID->474513213], Cell[1674, 54, 4402, 115, 70, "Input",ExpressionUUID->"dedfd0bb-446b-4ae5-89b3-ff97a3a279f2", InitializationCell->True] }, Open ]], Cell[6091, 172, 99, 3, 70, "Section",ExpressionUUID->"e60feac3-7d8b-49b1-ab6b-340010a634cf", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[6215, 179, 1615, 42, 70, "Subsection",ExpressionUUID->"03beb53c-84fe-4131-af9c-221267f552a5", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[7855, 225, 145, 4, 70, "UsageInputs",ExpressionUUID->"94537b3a-c355-46be-a2c3-a34f268e0c1a"], Cell[8003, 231, 498, 19, 70, "UsageDescription",ExpressionUUID->"5b7b68cb-12d0-4626-973e-9c5fd7726c9f"] }, Open ]], Cell[CellGroupData[{ Cell[8538, 255, 365, 12, 70, "UsageInputs",ExpressionUUID->"70c79775-275d-4bab-b25a-e49bce216057"], Cell[8906, 269, 552, 20, 70, "UsageDescription",ExpressionUUID->"4649e7c2-12b2-48c3-8e2c-83790295036a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9507, 295, 1131, 24, 70, "Subsection",ExpressionUUID->"afbd7614-0412-47e9-b599-2a3ed1e546ba", CellTags->"Details & Options", CellID->66019318], Cell[10641, 321, 1076, 35, 70, "Notes",ExpressionUUID->"48d05d4f-c189-4400-84ee-d94a4aaace92", CellTags->"Nothing", CellID->160641843], Cell[11720, 358, 33808, 568, 70, "Notes",ExpressionUUID->"fd74666f-5957-48d5-8706-f420b100bd81", CellTags->"Nothing", CellID->181516956] }, Open ]], Cell[CellGroupData[{ Cell[45565, 931, 6400, 143, 70, "Section",ExpressionUUID->"8d496637-7781-455f-9093-f658272e5c05", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[51990, 1078, 56, 1, 70, "Subsection",ExpressionUUID->"a1e1fbea-81ca-4fc5-9d7c-f997a539a58a", CellID->462042388], Cell[52049, 1081, 393, 8, 70, "Text",ExpressionUUID->"55590323-8978-4f52-a227-2b147ccf0787", CellID->221583938], Cell[CellGroupData[{ Cell[52467, 1093, 477, 12, 70, "Input",ExpressionUUID->"fd20a9e0-3a13-405f-9033-e6b510eb63f6", CellID->443871870], Cell[52947, 1107, 167, 4, 70, "Output",ExpressionUUID->"32e0a12b-c075-4ba5-a8ae-ebe71cd89de8", CellID->228140478] }, Open ]], Cell[CellGroupData[{ Cell[53151, 1116, 351, 10, 70, "Input",ExpressionUUID->"25c37bd1-eb31-4931-8cf9-4ff2294d69dd", CellID->114576144], Cell[53505, 1128, 166, 4, 70, "Output",ExpressionUUID->"7324aa82-3f7b-428f-9ed5-a998423f7df6", CellID->570618015] }, Open ]], Cell[53686, 1135, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"5dfaf214-77ce-4fbf-aa3a-0771a3ef2ba1"], Cell[53794, 1139, 453, 9, 70, "Text",ExpressionUUID->"3f94bbbe-5b82-490c-b4da-bf0b4bbd3083", CellID->39414336], Cell[CellGroupData[{ Cell[54272, 1152, 606, 15, 70, "Input",ExpressionUUID->"dc09c32a-f0eb-4a68-b164-cd1b6c55c65e", CellID->9517053], Cell[54881, 1169, 486, 9, 70, "Output",ExpressionUUID->"95cd60a3-569e-44b7-bd27-43a8a52d3bb4", CellID->255469111] }, Open ]], Cell[CellGroupData[{ Cell[55404, 1183, 535, 14, 70, "Input",ExpressionUUID->"d984382b-d18f-4184-85b2-e328ca36e9fb", CellID->186109195], Cell[55942, 1199, 412, 7, 70, "Output",ExpressionUUID->"ea1a4230-3061-471a-9736-08add74185a1", CellID->111874928] }, Open ]], Cell[CellGroupData[{ Cell[56391, 1211, 642, 16, 70, "Input",ExpressionUUID->"9202a562-c96c-44da-bf62-2451c58268f1", CellID->235799240], Cell[57036, 1229, 380, 7, 70, "Output",ExpressionUUID->"fc48bc08-7597-4f97-8466-c3f4b62f24f7", CellID->222953193] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57465, 1242, 66, 1, 70, "Subsection",ExpressionUUID->"e20fa9e3-9728-4ac2-be9f-d021141336af", CellID->754506620], Cell[57534, 1245, 404, 7, 70, "Text",ExpressionUUID->"15b4b9fa-615c-4c02-b799-80ea2bd2a9df", CellID->917809520], Cell[CellGroupData[{ Cell[57963, 1256, 337, 9, 70, "Input",ExpressionUUID->"2bc8ee4f-a43b-496b-b7de-a2d96bf6965e", CellID->51468482], Cell[58303, 1267, 269, 5, 70, "Output",ExpressionUUID->"4305e002-60a6-429b-9604-a112258259a9", CellID->26362408] }, Open ]], Cell[CellGroupData[{ Cell[58609, 1277, 362, 10, 70, "Input",ExpressionUUID->"c93c7104-f430-47ec-94eb-2fd1aaad9d82", CellID->435963762], Cell[58974, 1289, 269, 5, 70, "Output",ExpressionUUID->"a7169ad3-9ff1-42e4-91e3-740d2ea5a4ec", CellID->128086087] }, Open ]], Cell[59258, 1297, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"effb32f8-1cd0-410f-a8ee-d2ab23b30dab"], Cell[59366, 1301, 1458, 39, 70, "Text",ExpressionUUID->"7f1392df-3131-4052-a2c3-64248b68dc8d", CellID->361120442], Cell[CellGroupData[{ Cell[60849, 1344, 727, 21, 70, "Input",ExpressionUUID->"f4bb1599-a2ee-49fb-9e79-ef0c3969f8ed", CellID->735711410], Cell[61579, 1367, 214, 4, 70, "Output",ExpressionUUID->"2cc60b00-4f74-4bd4-b759-0546b5c83ead", CellID->172711386] }, Open ]], Cell[61808, 1374, 999, 25, 70, "Text",ExpressionUUID->"c18fde76-52c8-4854-8c74-01a39cae79c5", CellID->261540051], Cell[CellGroupData[{ Cell[62832, 1403, 1077, 30, 70, "Input",ExpressionUUID->"d813d5d9-5e5c-492c-9f75-8868e9c2b266", CellID->216904743], Cell[63912, 1435, 243, 5, 70, "Output",ExpressionUUID->"e3f38945-68fa-4f83-98e1-38071d988896", CellID->170102626] }, Open ]], Cell[64170, 1443, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"8bb4aee1-b957-4e84-9663-2e02d57d8ef9"], Cell[64278, 1447, 784, 15, 70, "Text",ExpressionUUID->"b947ab4c-ac24-4f92-b920-40cee7a809d5", CellID->55024364], Cell[CellGroupData[{ Cell[65087, 1466, 337, 8, 70, "Input",ExpressionUUID->"fd04fa14-30e2-4274-afaf-e82c15f6cf37", CellID->15751387], Cell[65427, 1476, 322, 6, 70, "Output",ExpressionUUID->"1ff79a42-a5d3-40bd-8d31-e26e7307c285", CellID->669254175] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65810, 1489, 135, 3, 70, "Section",ExpressionUUID->"cf34947c-6c62-4443-8e79-4f6aef0d8dcd", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[65970, 1496, 683, 18, 70, "Subsection",ExpressionUUID->"f742f70b-0f39-4ad3-bd1e-c2f20513f986", CellTags->"Contributed By", CellID->127820888], Cell[66656, 1516, 44, 0, 70, "Text",ExpressionUUID->"03d4c352-a7a9-46bd-be1f-88b321d477b3"] }, Open ]], Cell[CellGroupData[{ Cell[66737, 1521, 684, 18, 70, "Subsection",ExpressionUUID->"107d3272-9e15-4eba-a320-81ce8c8c3daf", CellTags->"Keywords", CellID->547400482], Cell[67424, 1541, 34, 0, 70, "Item",ExpressionUUID->"3b7fb223-ce08-4d35-b5ce-259d9b8eb3d5"], Cell[67461, 1543, 37, 0, 70, "Item",ExpressionUUID->"d6817943-9be0-45df-a898-bcaedb068a12"] }, Open ]], Cell[CellGroupData[{ Cell[67535, 1548, 126, 4, 70, "Subsection",ExpressionUUID->"eb664c03-ea04-474c-8bd7-6478b9e145e5", CellTags->"Categories", CellID->749076926], Cell[67664, 1554, 46, 0, 70, "Item",ExpressionUUID->"1545fafd-3d79-4b5d-8998-5ecb25ed8a8d"] }, Open ]], Cell[CellGroupData[{ Cell[67747, 1559, 661, 18, 70, "Subsection",ExpressionUUID->"4e092009-ab13-43cb-816d-2be122c799e2", CellTags->"Related Symbols", CellID->161079978], Cell[68411, 1579, 27, 0, 70, "Item",ExpressionUUID->"6762929d-dd0d-46d8-ae5b-c8de980974f2"], Cell[68441, 1581, 27, 0, 70, "Item",ExpressionUUID->"b0ff7b29-79ce-47c9-9dfa-e52b81e13ebe"], Cell[68471, 1583, 31, 0, 70, "Item",ExpressionUUID->"a4fbad3f-9026-4f7d-abfd-1dc858721631"], Cell[68505, 1585, 24, 0, 70, "Item",ExpressionUUID->"df6f8567-7188-4b20-94c1-8f8422755b94"] }, Open ]], Cell[CellGroupData[{ Cell[68566, 1590, 711, 18, 70, "Subsection",ExpressionUUID->"9b2ba8be-b51a-4475-8098-c093bae1ee40", CellTags->"Related Resource Objects", CellID->588449267], Cell[69280, 1610, 31, 0, 70, "Item",ExpressionUUID->"2c2f267b-fb80-4ccf-accf-01f48fff4431"], Cell[69314, 1612, 33, 0, 70, "Item",ExpressionUUID->"758db732-61e8-4c0e-9af3-c102966fe224"] }, Open ]], Cell[CellGroupData[{ Cell[69384, 1617, 762, 19, 70, "Subsection",ExpressionUUID->"8274f528-8b1a-46f2-aa00-ec5a72189b4a", CellTags->"Source/Reference Citation", CellID->642091068], Cell[70149, 1638, 496, 8, 70, "Text",ExpressionUUID->"159d26b2-3650-4477-8241-9617dcb7d134", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[70682, 1651, 614, 18, 70, "Subsection",ExpressionUUID->"87ccb324-6f14-4094-b6bb-6e00fe412a29", CellTags->"Links", CellID->521525586], Cell[71299, 1671, 263, 4, 70, "Item",ExpressionUUID->"f7e79016-a608-4414-8316-f0da436ff3db"] }, Open ]], Cell[CellGroupData[{ Cell[71599, 1680, 767, 20, 70, "Subsection",ExpressionUUID->"3d8d3d70-7d0e-4ba5-a365-72b366bd5d4a", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[72391, 1704, 129, 4, 70, "Input",ExpressionUUID->"fda3d045-028a-48da-92b9-92f34b1e1cf5", CellID->667877521], Cell[72523, 1710, 93, 3, 70, "Output",ExpressionUUID->"2abbbe59-5908-4879-9145-c7e6e130a8ee", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[72677, 1720, 127, 4, 70, "Section",ExpressionUUID->"5e5be471-9c31-44d6-8011-930ef6f83aa7", CellTags->"Author Notes", CellID->795110225], Cell[72807, 1726, 509, 8, 70, "Text",ExpressionUUID->"08b23ca1-3470-4c13-95fd-f3f7e08b59fa", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[73353, 1739, 720, 19, 70, "Section",ExpressionUUID->"bc7538b2-9f7d-4f89-8993-b81201b442b0", CellTags->"Submission Notes", CellID->843283583], Cell[74076, 1760, 495, 8, 70, "Text",ExpressionUUID->"a26c57f9-42a7-4b5c-959b-606875a201f6", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)