(* 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[ 160586, 3398] NotebookOptionsPosition[ 76582, 1737] NotebookOutlinePosition[ 152175, 3217] CellTagsIndexPosition[ 151491, 3194] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["UKPostcodeLookup", "Title", CellTags->"Title"], Cell["Find information associated with a UK postcode", "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[{"UKPostcodeLookup", "[", "postCode_String", "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"data", ",", " ", RowBox[{"fetch", " ", "=", " ", RowBox[{"URLExecute", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToUpperCase", "[", "postCode", "]"}]}], "]"}], "]"}]}]}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\""}], "]"}], " ", "=!=", " ", "200"}], ",", " ", "$Failed", ",", " ", RowBox[{ RowBox[{"data", " ", "=", " ", RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\"", ",", " ", RowBox[{"{", "}"}]}], "]"}]}], ";", " ", RowBox[{"relabel", "[", "data", "]"}]}]}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"UKPostcodeLookup", "[", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"lat_", ",", " ", "lon_"}], "}"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"data", ",", " ", RowBox[{"fetch", " ", "=", " ", RowBox[{"URLExecute", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "lon"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "lat"}]}], "}"}]}], "]"}]}]}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\""}], "]"}], " ", "=!=", " ", "200"}], ",", " ", "$Failed", ",", " ", RowBox[{ RowBox[{"data", " ", "=", " ", RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\"", ",", " ", RowBox[{"{", "}"}]}], "]"}]}], ";", " ", RowBox[{"relabel", "[", "data", "]"}]}]}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"UKPostcodeLookup", "[", RowBox[{"{", "queries__String", "}"}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fetch", " ", "=", " ", RowBox[{"URLExecute", "[", RowBox[{"HTTPRequest", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"Method", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"ExportString", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", "queries", "}"}]}], "}"}], ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{ "\"\\"", " ", "->", " ", "\"\\""}]}], "]"}]}], "]"}], "]"}]}], ",", " ", "data"}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\""}], "]"}], " ", "=!=", " ", "200"}], ",", " ", "$Failed", ",", " ", RowBox[{ RowBox[{"data", " ", "=", " ", RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\"", ",", " ", RowBox[{"{", "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"relabel", "[", RowBox[{"Lookup", "[", RowBox[{"#1", ",", " ", "\"\\""}], "]"}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "data"}]}]}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"UKPostcodeLookup", "[", RowBox[{"{", "queries__GeoPosition", "}"}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fetch", " ", "=", " ", RowBox[{"URLExecute", "[", RowBox[{"HTTPRequest", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"Method", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"ExportString", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"ToString", "[", RowBox[{"InputForm", "[", RowBox[{"#1", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"ToString", "[", RowBox[{"InputForm", "[", RowBox[{"#1", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}]}], "}"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"{", "queries", "}"}]}]}], "}"}], ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{ "\"\\"", " ", "->", " ", "\"\\""}]}], "]"}]}], "]"}], "]"}]}], ",", " ", "data"}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\""}], "]"}], " ", "=!=", " ", "200"}], ",", " ", "$Failed", ",", " ", RowBox[{ RowBox[{"data", " ", "=", " ", RowBox[{"Lookup", "[", RowBox[{"fetch", ",", " ", "\"\\"", ",", " ", RowBox[{"{", "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"relabel", "[", RowBox[{"Lookup", "[", RowBox[{"#1", ",", " ", "\"\\""}], "]"}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "data"}]}]}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"UKPostcodeLookup", "[", RowBox[{ RowBox[{"postCode", ":", RowBox[{"_String", " ", "|", " ", "_GeoPosition"}]}], ",", " ", "property_String"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"UKPostcodeLookup", "[", "postCode", "]"}], "[", "property", "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"UKPostcodeLookup", "[", RowBox[{ RowBox[{"{", "queries___", "}"}], ",", " ", "property_String"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Replace", "[", RowBox[{ RowBox[{"#1", "[", "property", "]"}], ",", " ", RowBox[{ RowBox[{"{", "a_", "}"}], " ", ":>", " ", "a"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"UKPostcodeLookup", "[", RowBox[{"{", "queries", "}"}], "]"}]}]}]}], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{"relabel", "[", "data_", "]"}], " ", ":=", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"GeoPosition", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], " ", "/.", " ", "data"}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Lookup", "[", RowBox[{"data", ",", " ", "\"\\""}], "]"}]}]}], "]"}]}]], "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[{ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], StyleBox["[", "ResourceFunctionHandle"], StyleBox["\"\\"", "ResourceFunctionName"], StyleBox["]", "ResourceFunctionHandle"]}], "[", StyleBox["postcode", "TI"], "]"}]], "UsageInputs"], Cell["returns information on the given UK postcode.", "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], StyleBox["[", "ResourceFunctionHandle"], StyleBox["\"\\"", "ResourceFunctionName"], StyleBox["]", "ResourceFunctionHandle"]}], "[", StyleBox["geoposition", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "returns information on the UK postcode nearest to ", StyleBox["geoposition", "TI"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKPostcodeLookup", "[", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["location", "TI"], "1"], StyleBox[",", FontSlant->"Italic"], SubscriptBox[ StyleBox["location", "TI"], "2"], StyleBox[",", FontSlant->"Italic"], StyleBox["\[Ellipsis]", FontSlant->"Italic"]}], "}"}], "]"}]], "UsageInputs"], Cell["\<\ returns information on all the given postcodes or geopositions.\ \>", "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], StyleBox["[", "ResourceFunctionHandle"], StyleBox["\"\\"", "ResourceFunctionName"], StyleBox["]", "ResourceFunctionHandle"]}], "[", RowBox[{ StyleBox["postcode", "TI"], StyleBox[",", FontSlant->"Italic"], StyleBox["property", "TI"]}], "]"}]], "UsageInputs"], Cell["returns only the given property for the given postcode.", \ "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["Additional information about usage and options.", "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Lookup a postcode:", "Text", CellChangeTimes->{{3.754314788082687*^9, 3.754314794435746*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKPostcodeLookup", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[9]:=", CellID->7099978], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Postcode\"\>", "\[Rule]", "\<\"OX29 8FD\"\>"}], ",", RowBox[{"\<\"Location\"\>", "\[Rule]", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.825508`", ",", RowBox[{"-", "1.366991`"}]}], "}"}], "]"}]}], ",", RowBox[{"\<\"Region\"\>", "\[Rule]", "\<\"South East\"\>"}], ",", RowBox[{"\<\"ParliamentaryConstituency\"\>", "\[Rule]", "\<\"Witney\"\>"}], ",", RowBox[{"\<\"AdministrationDistrict\"\>", "\[Rule]", "\<\"West Oxfordshire\"\>"}], ",", RowBox[{"\<\"Parish\"\>", "\[Rule]", "\<\"Hanborough\"\>"}], ",", RowBox[{"\<\"AdministrationCounty\"\>", "\[Rule]", "\<\"Oxfordshire\"\>"}], ",", RowBox[{"\<\"AdministrationWard\"\>", "\[Rule]", "\<\"Freeland and Hanborough\"\>"}]}], "\[RightAssociation]"}]], "Output", CellLabel->"Out[9]=", CellID->1076480047] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["Find a specific property of a given postcode", "Text", CellID->414824544], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKPostcodeLookup", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[20]:=", CellID->586999621], Cell[BoxData[ RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.825508`", ",", RowBox[{"-", "1.366991`"}]}], "}"}], "]"}]], "Output", CellLabel->"Out[20]=", CellID->2132433777] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeoGraphics", "[", RowBox[{"%", ",", RowBox[{"GeoRange", "\[Rule]", TemplateBox[{"100","\"m\"","meters","\"Meters\""}, "Quantity"]}]}], "]"}]], "Input", CellLabel->"In[21]:=", CellID->2041934522], Cell[BoxData[ GraphicsBox[{{ TagBox[ {Texture[ FormBox[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzs3V9zW1t6JnZXkotc5gskVfkWuc1lbieVDzBTcaZy41TZU5VK+aLTZXfZ ids9Pd1u2z329PRp93FaOpRa0uGhRB4SBCAQAiAAAiAQAiAQBEGQAiiQIsU/ IiWVV/AsaJMQRZBrA3vvd2/gufhZ6mNJXAQ3uB6uP+/73/+b/+Nf/W//xR/8 wR/8yX/d+z//6l//n//jH//xv/6//uf/pvc//pc/+pP//d/+0R/+r//TH/27 P/y3f/jH/8O/+S97//G/6/3Z/7bnv+r9/uPplvLK6du66jZTaj03q4rRf1LJ +3+tlr/+v889vvUjlf3uP6jVpV+qtZXfqO3sjGrn7tIlm+lb+vXB65T59qf6 dRt8HVfu/D8qu/BLVU3OqO1qRO23C+rsuNn7GrSISNjuVlZVErf1+xTv1+jv /lzlHv5Mrcd/K/695Tr4flxe/geVvHfxfTvz6G/VRnFeHe+v2X4dDg7qqlBL qkx5RXX3quJfF/KKu/miUXjIfDGGjcTXqhL5T6ow/wv9Gl7OF/hveH2R43Ya CXW8V7n0tZB+vojoKvg5AO/Z1djXOnfg/Ry7/SP9Xt9I/rP4957rtNK3Van3 vdvKTeF//qHKLf0n1V6L2f75Zqdb0bmjuPZU5xDprwu5bfx8gWdsdzOt8y7z xejvYWvtAq8V3st4Hw++hplHf6fXLvA67/V+Vuq/t2/6+kg/X0R0E7yXX9Ue 63nbet/je0Bp8Zd6XVP6+9N18HMRchLykv456N5fq+1q2Nbn//5dS211SipR iqrKRladHDXEvybkFvv5AvPdeb548NMv8gXW+5kvrn+PXrd2ge81+N6zlr2v f2442Cna/joxcxAFE9aIN18s6v1R63tC4u7/q/c1tjLfiH//uk7t8a/P1z4w N+D7l53PHfNLvZXX2aOxxT3hyTRevtBr+9//vc4X+Fld+pm3q5O/59q/jbx1 09pFeu4X+rXFa4y1Iny/cXafS/r5IqJRYa90PfedSs3+7HwPI/3gJ72fWX6l XuXuiH//HAY/U1nZA9/jsIdk5/PGOgfWO5IvYnr9Q/rrQE66Ol9Yz/jlfGGt XwQxX7iZO5qp3xmtXVjnOrF2YbY3wsxBRC19Fhxrn08+neFE/sh+91P9/Vj6 e+h12cPac8F5U5zxs/M585zp5LHyxeWfvzFvYv6ctHwxbubA2gX2RrDOmZv7 mV7zHHzt8Hu8ntbaBd5jh/tOr10wcxBNM9x9KT+5pWIzf/HZ3Re/nj0dzB7Y M8LPt3Y+X+ucKfIHz5kG27TlC7s5BOsXpndSvVu7YOYgoou7L8XIbwJx9wV3 XaK3+uPEuu/+q7zx5/rhlOdMJ4H0M+gX1r2Rwb2RwfMrN99J9Sv5Z4yI3If8 gZ99vrj70pvn/fSzJNaKB7NHIfyV3jey83nynGlwST9/fskXl/dGXqz8zuad VL+Sf8aIyFsnB2v6+xfOUJz/3HTvr/Ueh1/uElrZI/K7P9Pjw1rNYdf8vOjx W54zDSLp584P+cI6exH8fMHMQUSfO9qrqHpu9nzd9uLuiz/yB8aA78/W2kwp 9s96zKafH8+ZBov08+ZGvsD5iytrdvbec5OdL5g5iGg47GHU0r9X8d//eODu y39Qa7GvfPH928oeUI7fspU9eM40GKSfs3HzBWqDMF8wcxCRPagHhHndOleB X/XZ08TX4t/bB7NHNXXHuJ8Lz5n6n3R2MDFYW+uq+yPW+U7mC2YOIrIH3y9R L1Tffbl16e6LYP5oPb2lcnM/17kD46pl7n+qmWj2OfGcqT9J54nr8gXW/K7L F+7U7Zw08s8YEQVD/+5LWN99GawJIHn3BfUKMBeMkj14ztR/gpAv0JsWtbWY L5g5iMgb2M/Az3aoXW6d/ZC8+4I1F5x91ftA3/ylPhdrun7Bc6b+4Zd8gSxt 1b9gvmDmICL/ONp9oerPZnXmsPIH9l6kswfmDeQi0+yBvMFzprLcei4u9za7 av3CyheytcEnnfwzRkSTA7VDcfYD38tRWwP7Ll7nDit7WBkIc8xmadE4ewye M8X+i/RrOk2cWL9oPPnt0N6pg33ZUb+T+YKZg4iCD/du88u/Ob/zIpU9cM8X fa8wjvi9H+vzKCbZY/CcKX7lOVNvjJItX4T+kfkiMOSfMSKaXG9e5c7PnPol e2D9A9nDZPw8Z+qtm/KF1T/1unyBe1bB6T8ybeSfMSKafKhTgJ6X1l1bnDWV yB61x78+389HnWnMTybj5zlTbwzmCzwjN61fMF8EjfwzRkTTA2f0rD4vsZm/ EMse+LhW9sDdG6y9G42f50xdhbUo5otJJv+MEdH0wRyPdQZrXpHMHlh3wTiQ hXZbT43Gj30W7LfwnKmzsBZWTc4wX0ws+WeMiKYX5harvxyyh1Rvl8HsgXkP e0E3jR3nSlHHlOdMnSQ9JxIzBxFNtHctfabTutuK9XWp7IEzrlaNd6zp4/7N TeNH3xasdyB7YP3jg/TrGWjScyIxcxDRNMA6Qasc0ndarfsl609+K5Y9UF8E 4yiEv1Jvd4o3jn/wnCn62Eq/nsEkPScSMwcRTRNkD9QPtc54IntI9JNDfSn0 Jreyx+rj36rD7s33ZXnOdBzScyIxcxDRNNLZ4/mji/slD34ilj1Qyx33KaAU +2d1tHfzOgbPmY5Cek4kZg4imma6Jmhu9vycBWo2oJ+s19kDvXMHs0clcfvG 7MFzpnZJz4nEzEFE1NK9PdGrHtkDcz6yB3KARPbIzf1cjwFjqabu6D67142d 50xNSc+JxMxBRHQB8zvmeSt7YP4XyR5Pb+ncY2UP5KF+z/PhY+c505tIz4nE zEFE9KWT/Zc6e1h7Hdj3kMge2OdB9rB6ytSfzd6YPXjOdBjpOZGYOYiIhsOZ inL81mfZA+c+vc4eON+anv3353XdG4W5G89vDJ4zxf6L9GspT3pOJGYOIqKb He2+0HdKMOfjfqto9njwk/Paqrj3e1324DnTQdJzIjFzEBGZQ/2uYuQ353sd qO/lde6AxpPfntdWRfZovVi8Nk9cPmf6/p38a+k96TmRmDmIiOxD3XLUL5fO HqjjjnruGAdqrKLO+8dr8gTOdxTXnk7pOVPpOZGYOYiIRod+bVb2QB+38vI/ iGcP9LVDf7vrxj2d50yl50Qy9f5klK+X9PNFROSN3c207hlrZQ/0kpXKHlZt 1dTsz27MHtY50xeN9BScM5WfS2m4vd2aqpbzKr4SUblMfIR/Q/r5IiLyVreZ Uum5X5zfL5HKHvi4+Pi6rntvPBjXsDHjbMd0nDOVn1fpAtYyup2qKpcyKhYN 94RUJh1XxUJahUOLI6x1SD9fREQysL6AdQbrjOfLx7+Wyx63f9Sv677wS70e M2zMg+dMN9vFCTxnKj/PTjvk2c52WRXzKRWNLOk1jWwm0csdOVWvFc8l4lH9 55g5iIjMIXvgfIWVPbD3IZE9cM5kMHvgHMqwMU/uOVP5OXcaIWdsNVdVIZfS 6xfIE7lsQu+jDOaMQfj/I5cwcxAR2fSupe+TWHdbcdZTKnvgfo3Vzw5nX3H/ Zti4B8+Zvrmh50swyM+/0wK9jpuNot4rsXIGMsd1OWMQ/hzWQeztr0g/X0RE /oGf91rl0PkZT2QQ1PiSzh6F8Fe67siwcU/OOVP5uXiSHe7XVaP+XCUTUZ0X UomYzhm1qlnOuAz7LjjvwcxBRDQ6ZA/UD5XOHqijinqqqKuKcaDO6mG3dOWY J+Ocqfy8PGkOdtd0pkA+QM5Ip1b0GdBRMsZV+yulYsbGeKSfLyIi/9J1yQtz F/dLHvxENHtYPWVKK7/TfWauGnOwz5nKz9GTYPCuCXIG9k+QDZzIGYNwrhT/ PjMHEZFzkD3QL9ba60AfWfST9Tp7oG/uYPaoJG7r/rpXjTmY50zl5+sgwpkK k7smbkCu2d2pGY5V+vkiIgoO9KivZe7r7IE5H9ljM31LJHvk5n6ux4CxVFN3 1PGQM6R7e7Xzc6b4vfRreD35+TsokINftUr6PAZyhsldEzcg21TLWcNxSz9f RETBg/kd87yVPTD/Iwd4nT2Qd5B7rOyBPIRcdNWYX+2UVaocU6vraX1nQfo1 vJr8XB4EWNew1jPs3DVxA/ZwMA5mDiIid2FfA/sb1l4H9j0ksgf2eZA9rH52 2Ae66gzp4DnT2mbOh+dM5efzoEDtceQNqawxCPkHZ1WZOYiI3IfznDjXOZg9 cO7T6+yB860452rVdcf516tyxeA5041tP50zlZ/LgwI1vHDXVTpvAM6o4m4M MwcRkXdwjxX3WTHn435r8fu/F8seVn0z3PfFvd+rsod1zhS1Pdqvy+Kvn/Q8 HiT4eqKW16i1NZyEOzGo+cHMQUTkPdTvQh0va68D9b28zh1XZQ/UO7sqe1j1 THMvE8LnTOXn8iBxstbGOJB7sL/SPyfEzEFEJAF1y1G/XDp7oI476rlb9c1Q 5/3jFfsp7Z0XwudM5efxIEFNUb/sryD/YDzMHEREstCvDX3b9DmL2z/S/dyk ssd5bdUHP9X97S6PVfacqfw8HiTIhVhfqFXlMwfWW5A7mDmIiPwBfeoHswf6 2Etkj9rjX59nj9Tsz67MHjhnWms+Oz9n6k32kJ/HgwbnKNyoMerO/or8e5CI aNp0mymVnvvF+f0SqeyBj3te1703Hozr8li9PWcqP4cHTb2W1+sL0pkDsM+D +zTMHERE/oP1BawzWGc8sfchlj1u/6hf133hl3ov6PJYcc409/KJy+dM5efw oEFdDKwvSOcNQL0Q3Jtl5iAi8i9kD+t+Cc56SmUPnDOxesrg7OtV2QNrHe6d M5Wfw4MIdUD9sr+C+7v9fThmDiIiv8L3adwnid/7sXj2wP2aweyB+zeDY8U5 U5zxcP6cqfz8HUTod4K+J9KZA9D3Bf3mmDmIiPwP83frxaKK//7H53dbG09+ K549ipHf6Lojl8eKzOHcOVP5+TuI9nZrur+rdN6w9leAmYOIKDgwf6N+6Pnd 1l72QI0vr3MH6qiiljvqqmIcqLN6tPvis7EeHjb0Xgv2XMY7Zyo/fwdVLBoS 7fVmwRhwvgR96Jg5iIiCBdkDfVOi3/xl/37J7L8XzR5WTxn0l0GfmcGx4mwp zpiOfs5Ufu4OKvR39dP+yk6ncsU45d9PRER0M/SoR79Y7HVgzkcfWfST9Tp7 oG/uYPZAX1301x0cq3XOFHdssQZi/nnKz91B1e1U9VlS6bwBuWxCFfNX7a/I v4+IiMgcskctc/+z7LGZviWSPXJzP9djwFiqqTvqeH/tfJx6b8g6Z9p8ZnjW Q37uDirsZWBPw0/7K8wcRESTAfM75nlrvQHzP3KA59nj6S2de6zsgTyEXGSN c/CcKWqqv7+iz8sFZ+bfw/266mytqqM3a479m0GAtQWsMUhnDsCay+5O7dIY 5d83REQ0OpypwP6GlT2w7yGRPXDGBNnD6mdXz81+traBWh44Z2rdcbk6e4w3 527U0mpx7rZaicyrXCauf8X/xn+XzgNewB1VnKWQzhuAsyU4Y8LMQUQ0eZA9 cKdkMHvg3KdE9kg/+Ml5bdWN548+yx6opT6YPT7fcxl9vs0mFnTOODs7U//y L//yGczD+fTiWP9+EGB/BTW5/LC/Ui7l9FoHMwcR0eQ67JbU6uPf6jkf91uL 3/+9WPawaqvq7FGc/yJ7vGhczh6jzbVYx8gkI19kjUH4/281siN/jKDA3grq Y0hnDsCZDtRmZ+YgIppsqN9VCH91nj1Q38vr3AHrT357nj1QY7VVDg3NHqPO s9g/uS5vANY/8OekM4Hb0GMNvdak8wag9xzqoTNzEBFNB9QtR/1y65yFVPZA HXfUc7fqm6HO+8eBMx3IHqPMsTgvinMbN2UOiC0/VKeHGyN9nKBAnsP+CuZ6 6cyBHjDY12LmICKaLujXhp6xmPPRQxa9ZKWyx3lt1Qc/1f3tLsZpf47d3sip YiFtlDnwc/frdmmkjxMk6O2K10Q6c1j7K8iFzBxERNOn20ypzKO/Fc8e+LhW 9kjN/kztNBJqlPkVZzlq1SIzx4Bmo+ir/ZVG/bli5iAiml6Y49Nzv+hnj5m/ EM0e+PgYxyjza2U11ptjq0aZI7myeOlM42TCvWSsLyCLSWcOrLcg/zBzEBER 9jawx2HdL6k9/rVY9hhlfsUd2PZ20yhzRJe+m/jzHJZkIqrPU0hnDmt/BTlI +lknIiJ/wJlO634Jznri3IXXuWOUuRV1OXa7O0aZY2n+/kgfI4jqtbze15DO G4B1Duz3SD/jRETkH7jzgLus8d//+NP9kr/yNHuMMremYt+pg4N9o8wxDXdl LTi3ifUF6bwBqBeCc63SzzcREfkPssdmafHifsm9v9Y1vvyYOWKhe1fWHp32 zAGoA+qH/RXc28X9XbM+f0RENI10b9ji/Hn2QE1zN7PHKPPq0qMZo7wxjZmj Vsnq9QXpzAGo04F6ZdLPNBER+RuyB3q2oaYYskfm25+6kj1GmVdNapBaIt/f GeljBBXu6MSiIfG8Ye2vgPSzTEREwYAe9ehVj+yBPnLoI9tM/S4QmeP0+EjF Iw9G+hhBFouGdb816cyBvnOR8BL3V4iIyJarskfr6S1f760c7O/p86bSGcBr 6CePvvLSmcPaX+lsl8WfXyIiCp7j/TVVTd3RuQNycz9XrfRtzzIHerfj/qtJ 5ui+bk9FP/vLup2qPksqnTcgl02qYoH7K0RENLqjvYoqx2+dZ4/C/C9Gyh52 51PUmTLt77bd2lCruYjtjzEJcGcWexvSmaNazun9FWRF6WeWiIiCDdmjFPtn fc7Uyh7b2RnXMsd+t6rrmZtkjka9ouukS8//Eor5lMpl/bG/gjUXrL1IP6tE RDQZ2o20Cn3Tr6ce+d2fqdLSL42yh925tLO1qnKZuFHmwM/56AcnPf9LwBkK v+yv4GwJzphIP6NERBR8uJewOHdLHR+91ec2Syu/09kD501vyh5251I7fezx 5/Dnped/Cfia9Hu+ye+v4A4N7tJIP6dERBR8K+EHarvV+PzOSHdT5Zd/81n2 cCJz2O1jj3UR6flfilUfQzpzQCy6rN50a+LPKhERBVdldUXl0sP3OpA9ni3+ WmeP2O0f6V6y42QOnM/AOQ2TzIFzHzj/IT33S0ENUPSalc4bgNqoOE8q/bwS EVEwdbaKKrxgdm9171VNPZ37e509UFfd6iNndx4tZsP6PorJx4wtP/zUT11+ /peA/RX0PPHD/gp6wOB8ifQzS0REwYO5fGH2ljo7OTauQw655IKKfvOX5z1s 7c6jqLeBuhsmH2ua+tgPg/WFQi4tnjkAd2YP99fFn10iIgqW6OJdtdPZtpU3 drs7uoYofv5uvej3sLU7h7KPvT3NRlGlEjHxvAE4X1Ov5cWfXSIiCg7sb7wo Zm3ljfdnZ3pd5O3exTnCfh8Oe3Mo+tifnr5j5jCE9Si/3F/BPaJUMib+/BIR UTBsN/P6nISdvGGdrcDf/fLftDeHso+9fVjnwHwvnTnWXvb3V04OGuLPMRER +dvRmzW9VoE1Czt5o7z6TBXSS0P+XXvzp50+9sgn0vO9HzTqzz/ta8jvr2Cd A/s90s8yERH51/t3LRWen9FnMuzkDZz5wNmP4f+2O5kDfeyxDyM93/uBtb8i nTes/RWca5V+nomIyL9w36RWXbWVN3CnBesi/fuqw/5te/Mn+9iPBj3lcV9V OnNgfyW8vPTpLI/8c01ERP7SXEur5MqS7TMcqN2BGh7X//s2Mwf72I8EZ0j9 tL+CemXSzzUREfnLwW5VLc7NqI8fP9jKG4VsQtcovfljmM+bh/t14/Or09zH /ioHu2sqFg2J5w1APfZcNin+bBMRkX9YvduwT2Enb6D3CnqwmH0c83mTfezH gzqg6O8qnTlq1YLeX3l/Iv+MExGRP+A8RLNRs5U30FtW1yc13q83nzPZx348 yBvoKy+dOQDnSzrbZfFnnIiI5NXLCZVJRm2f4cAZz70dO3OJ+ZzJPvbj2d2p 6bUO6bwB2FspFlLizzkREcnqtksqNH/Pdt5ARkFWsffxzOdMrFtg/cJkLFgP meY+9sPgzixeQ+nMgR6zqA/G/RUioul1erjRv9969NZW3mjUq5/uptr9mObz JfvYjw/3Zf2yv4I1l26nKv7MExGRDNTRwhlQO3kDZ0xx1nS0mgvm8yXuodjp Y497LtJzvN/sdCq+2V9B9kEGkn7miYjIe+Xnj9XzXMpW3vj4/r2+S4s7taN9 XPP5kn3sx4e9DL/sr5RLORWLLos/90RE5C3U7ooszto+w7ESmVet9ewYH9t8 vtR97A3v7bLXynD9+hj+2F+JRcP6bKv0809ERN443u/3bjPtEW95WSmq/NPF MT+++Vyp+9gfHxmNjT1lh8PZWtxVlc4bgN4r1fIz8fcAERG5z+rdhl5sdvIG er3h7+HvjzcG87mSfeydgXM34dCirocunTlQMwTnS6TfB0RE5D70mK+Ucrby BnrZ67st+2sOjMF8rmQfe+fgLjH2WKQzB+DOLGqzS78XiIjIPdvNvD6PYfcM B8594O86Mw7nMwf2iNjH/nrosZZKxMTzBqD3HOqhS78fiIjIHW/3anqtAmsW dvLGaiGtSnkn18KdzxwHB/vsY3+D47cN3+yv4L5sMvHY8/cAERG5D/v52HvY f9O1lTfa25squnjX4fGYz5Omfexx1oR97G+G9QXUiJfOHFjjwP7KyUHDs/cA ERF5I5uYV+u1F7byxsnxkYNnOAaZ/1xup499MRs2/renVaP+3Df7K6kkasxy f4WIaJJs1J6q5MqS7TMc6L/SfVVyYUxm8yP72DsPOQ71wfywv4L1Fqy7SL8/ iIjIGagVaue+qSWXjvfmcLfmA7P58XW7pOckk/HWqkX2sTeEOh04TyGdObC/ El7m/goR0STAGQ70RDk6PLCVN1rNukpEZ10cm9ncyD727qjX8jrLSWcOa38F 92mk3ytERDSexONvdX6wkzeQT0bv3WbKbG5kH3t3oC4G9lek8wb0a7I/cfV9 QERE7qq9iOv9Ebt7KujdtrdTdnl8ZnMj+9i7B3VAUQ9UOnNY+yvuZlwiInJL t13S5z/t5g2cM21UUx6M0WxetNPHHnXOcD5Sei4Pimo5q/ueSGcOwPmS9tYL D547IiJyEuZd3G89MeyLZlmvlVXmySOPxmk2L9rtY4+e7dJzeVCgryv6u0rn Dchlk3qPRfq9Q0RE9jwO3dN1vOzkDdQJw90W79a3zeZF9rF3D/IZznSUSznx zFEt53R9sH5mJCKiIEB98lXDex4Wq3cb6qJ7N1azeTEeecA+9g7njJ1ORRXz KZ03cKbDD3dmAWN53a54+AwSEdGo2psF3YfN7hkOnIPYajzzeLxmc2Tk+zs2 zr4yc1wFa1ed7bLeu0DOwNmJXDah7wNJ54xB2UxC5x/p9xEREV0PtclH6d2G fvboa+/9mM3mS/axHw3O9KDmBc6IoqcbcgYyh99yxlX7K9LvJSIiGu79u5YK z8/oHmd28gb+PP4e/r7343Y2c5z1sta097FHzkAvFdT6Qs5ATxXkDD/UOLez v4KzrdLvKSIiuhrWKV6Wn9vKG6en71zq3WbK2cwxrX3sUdsLmSKZiOp9E6tn bJByxuX9FdQMkX5PERHRl1rrWX0ew+4ZDpz76LSeC47dbE6108c+m1gw/neD DOsAqK2BNQErZ+AcRFBzxiDkDXxe0u8rIiL6HO6ZoGbox/fvbeWNYi6l77fI jv/mufX0cENFl74z+pza201dy0M6D7gBd026narOFcgYqKlhrQdIZwQ3xKLL ev1G+v1FRER9Vu8209oVlu1W49O5B+nP4ea5FvOOaR/7ZqM6UX3skTNw12Tw Tms/Z8jX0nAb1m1qlawPnlEiIoL0ypxq1Ku28gbqkuIMB9YPpMdvMu9OWx97 5EjcNcE9VuuuiR/vtLoN6zn43OWfUSIiqpcTKpOM2j7Dgbuk6MMiPf6+m+dg 3ce+93O+0X5RIa22Glmjf9dPcNek2Sie32kN4l0TN+DO7MlBwwfPKRHR9EK/ V2QHu3kDGQVZRXr8F26ej7Fugb0Ek88vSH3sD/frvXk1r/MF9k3wa/+uifxc 7xdY32rUCz54TomIppN1huP46K2tvNFs1FQiOis+/s/dPDfXyk+M+9hjLd7P fez1ndbK53dNmDOGw2uTSsZ88JwSEU2nlfADfQbUTt44fLuvc4p3vdtM3TxP 2+1jj/UD6WwxCHdNcLcE90xi0ZDeP/FLbxO/q1UL3F8hIhJSWV1RhWzC9p4K 7tIe7FbFx/+lm+ds3H3d6WwZfZ7hhQfifeytvibTeNfEDVjnwFkX+WeViGh6 dLaKvTnVrDbWoOTKkmqupcXHf7Wb5/Ag9LG37ppY/dOQM6bxrokbnufTem1I /lklIpoOuNeA+61nJ8e28katuqqyiXnx8Q9383yOPvbHhn3svcwcvGviDeyv hJeXfLgvSEQ0maKLd9VOZ9tW3kAdcMzB/v5effPc7qc+9lb/tMG7JoVccPua BEUy8VivI8k/r0REk634bFm9KGZt5Q30sse6yNEbv9eOvnmet9PH3o3MYd01 wZ2Ywbsm0vPwNMH6Ecg/r0REk2u7mVex5Ye2z3Dg7+DvSo//Zs5lDvSxx5qI EzkD/dOsPmO4a2L1T5Oee6eVdX/F32t2RETBhTUKrFVgzcJO3sCaSDEbFh+/ mZvnf9PaZ0eHB470sce8FlpamOj+aUGE/If7QPLPLBHRZMG8F56f0Wcy7OQN nPnA2Q/p8ZszyBwCfeyxh8I7J/6SyyZVscD9FSIip+WSC/rOiZ28gTstWBfB OUfp8Zu7ec3BTh/7/vrO+JkD+yhY55CeZ+lCtZzT+yv9+itEROQE1NJATQ27 ZzhQuwM1PKTHb8/N5zeN+9hv1BzrY7/Tqei1fOl5lj6Hrwnquso/t0REwYda oagZajdvoDYpapRKj9++6+d+9LHPJCNGr4HuWaL7142fOfCzNPdX/Mc6YyP/ 3BIRBZvVuw29UezkDfReQQ8W6fGP5vq5304fe+yHONnHHnczUUtUep6lC6gf j7418s8tEVGw4c4Fer/ayRvoLevP3m2mrp/3JfvY499CTQ7peZY+F4su6z03 +WeXiCiYsCeQSUZt76ngHuneTpDvD14/70v2sdd3h0KLrDHqM6g1jxpt8s8u EVHwdNslFZq/ZztvIKP0zy/Ifw6ju37eRx/7rc2G0evhRh97rJ1gj0V6nqUL 2EPDWVL5Z5eIKFhODzf691uP3trKG416VaVX5sTHP77r53y7fez7e0zOZQ70 +EBPFel5lj6HO7OH+0G6E05EJC8WuqfPgNrJG+jrHuwzHIOun/Ol+9ij1gn3 Vy7gdcD5GulxoBZ9vRaE2v5ERP5Qfv5YFXNmdzIsH9+/13dpcadWevzOuH7O 90Mf+2nv6Yacgd65WO9B/sIdYukxYX8FvWbln18iIv9D7a7I4qztMxw4s9Ba n6Tzc9fP937oY4/e9f2fq+Xnf29zRqo3r0d1zsC5zWajqNd9cJZCut/d2sv+ /srJAfdXiIiuc7zf7912evrOVt54WX6uCukl8fE76/r53k4fe7fWOTDP4mf7 Sd9fQf0z1CNBpsDni8yB8yyXz8jgzggyiPR4U8mYzkHyzzARkT+9f9caqXcb /jz+Hv6+9OfgLGcyh5N97K+Cn/elf7Z3A85moLanlTNQfw29W687i4vaGLFo SHzs2O9C9pF/homI/AnrFBXDGlcW9LLXd1v2J7EO0vVzvdd97IfBGsek7K8g O2GuRm4A1BLv9zAxfz1QCxR/T/LzqFULKry8NCFnqYmInLXdzOvzGHbPcODc B/6u9Pjd4UzmcLKP/bCf7f1wdnKcNQFkJnwOWNNAhurX8hzt9UDe8EPfXeyv YP9H/jkmIvKPt3s1vVaBNQs7eWO1N1eU8pNc/2j4vGa3jz1qebiVOQBztfTP 9uZrAP0zoLhrgpyBvSGchXWqZhrWRfzQd7ffEyfpg+eYiMgfMHfi5/X9N11b eaO9vakeh+6Jj99d168tSPSxH6ZazvriZ/thcAYUczBqwF++a+LG6+GHvrvV ck7vr6APsPyzTEQkL5uYV+u1F7byxsnxUf8Mx9tJvws4fE6T6mM/zO5OTZ9j kM4Wl3MG7ppYOWPYXRM34LypH/ru4nPHuVf5Z5mISFajmur9rL5k+wwH+q90 X5XEx+++4XMa+roWDGumYc8DPWjdnmfxs710Hc5hd036P+u7+/l/9vXpfUw/ 7K/gtSgWUj54lomI5KDfK2qG2s0buXRcVVZXxMfvjeFzmq0+9r2ft53sYz8M 7nxI/Gz/+V2T8PldE69zxiB93kaobslg7kJtMLwe8s8yEZEMfD9GTxTc4bST N1rNukpEZ8XH753hcxr2StZrZaPXDXswdu97jsKrs5PYK7p81wT7KHu7Ndc/ RzuwDuVV392L3BW+IncREU0v5AbkBzt5A/lkcnq3mRo+n6GPfau5ZvTaudHH /iqY39w6O2nlDOuuSb+fbd6Tz2tUr1olfSfGjYyB+uZW7sJaRj935dSbbs0H zy0RkT/UXsT1/ojdPRXcbZmc3m2mhs9ndvrYR5ac72Pvxc/2g3davbhr4jS8 5k723bVyBupuIGfg137uWvfBs0pE5C/ddkmf/7SbN3DOFOdNpcfvveHzGe7J Huy+Ns5rXs2zODcyzs/2l++a4Pde3TVxA3IS+s6OnrsK/dzVyxe492rlLvZv IyIaDj+b4n7riWHvdQvOLOA+rfT4ZQyfy/zQx/4q2F+x+7O9X+6auAF5qb8P ZCd35XQtL527ejkDv7/IXdLPJBGR/6F+F+p42ckbqBOG+XJ6v9cOn8t0zzbD uq1u9bEfJpeJ37i/gjOOF2ceQ/oMpPRdEzeY9t1Fzhi8a4L7rRe5i4iITKE+ OeqU28kbVu821EWXHr+c4XOZH/rY2/nZHmdAkSs+v2uS1bXEpHOB2/A54xzG 5ZyB1wM5o5+7lnnXhIhoTO3Ngu7DZvcMB+5abDWeiY9fEu64WnB+A9AfFr/O 3fva6HV0u4/9VQbPTg7eNcFeAc48jtM/LYjQywW54+rcxbsmREROQH/5UXq3 oZ89+tpLj1/a5fMaHz9+0P8NZ0fRK9bktTw+eutqH/vrfrZH7sCvmHODctfE Ddb+itVP7iJ3yT9jREST4P27lgrPzxjPjZadzrb+e/j70p+DtB//1V+pP//z P1N/+qd/qn7+85+rrS2zu7GDdnd3Xe1jPwzm1KDeNXED9pu+zF3yzxgR0STA OsXL8nNb8+Pp6bt+77Z9/gwIg6/N/Py8ziB2MwdqeEhkDjIh/4wREQVdaz2r z2PYnR9x7qOzVRQfv18MvjYbGxt6vQO/X11dVbOzD1QymTQ6z4Hzpl70eCNm DiIiL6FWKHq3fXz/3lbeKOZSqvz8sfj4/WRm5hudLQB7LFjrAOyzIHfg/4/f W6/hwcH+la8tzoEgA6J26aTdRQ02+WeMiCiorN5tB/t7tvLGdquhYqF74uP3 m3w+r/MG1jcqlYp+rfB7nNGwXjvst2ANBFkEuQT/G1nkqte5WinqOyx+7lEy XeSfMSKioEqvzKlGvWorb6AuKc5wnB5uiI/fb6zXCLnjH//hP+p9kn/3J3/8 2euHdQ7kkbOBu0HW+shVrzfyIO7aetHbnpg5iIjcgN7qmWTU9hkO9F9BHxbp 8fvR4JkMrG9g3QO/Du6h4H9jbcO627KysqIzx7C1DuvfQ63QympMyc+700z+ GSMiCpq9nbKudWk3byCjIKtIj9+vBl8rZAnsnUSjEZ0x8CsyBtY/rPss2HMJ LS3qtRDr9/g7YO3N4M/jLAh+jz4n6Dk7zbUzmDmIiILDOsOB2lN28kazUftU q0r+c/Cro8ODz+qCWb9HnQ7cWVlbW9NrHsgUWAPZ2dnRmQJrHMgbyCL4/+Pv IZ9Y508Hvw7t7aa+1/JarzVJz8HTRv4ZIyIKkpXwA30G1E7ewJkC5JTp7d1m BvdM0D8W2Qw1NnLpqF6bQD1x7I2glnZzo6bWqmWdMXCGA2scyCSX92D+6Z/+ Sf+3q3rR4r8tzd//tOYkPQ9PE/lnjIgoKCqrK6qQTdjeU8FdWtyplR6//w2f r3DnFXsib980dY1L9GTBugjWP5A5BtczkCmQN7Aucv1eV7+vi/xcPC2kny8i omBA7a7wwn3beSO5sqSaa2nx8QeD+fyF/IHMYNWax34L7tDiXAfyB85/mHx9 sH6C9RX5+XgaSD9fRET+h/kN91vPTo5t5Y1adVXlkgvi4w8Oe3MY9qrQD329 VtZnO6z9FJzxsPN1ii59p/a7Vdsfn5g5iIicFl28q3ux2ZnH8PM3erfxDIcd o81l2GtBP9fT4yO9vnFms69vo17hWgczBxGRuOKzZfWimLU1h6GXPdZFjt6w d5sdyA7NRlGzO5+hryvOZtjt62ud/+jXhZWekyed/DNGRORX2828vqdidw6L LT/Uf1d6/EGDtYpUIqaikSU1ypyGPTDcd8FdF7tfM9RbkZ+TJ538M0ZE5EdY o8BaxXub6/RYE8HaiPT4g6heK6paNT9y5rCs5iL6jIadPRbU7JCfkyed/DNG ROQ3OIOBn3vtrtPjzAfOfkiPP6j6maOoa2+MO7+hv4rOER8/MHP4hvwzRkTk N9nEvL5zYidv4E4L1kX6dbXlP4cgQuaA0NKCIz3oUV/sqppgzBzMHEREfoBa GqipYfc8AGp3oIaH9PiDzMoc4dCiI5kD9UxRA5aZwy/knzEiIr9ArVDUDLWb N1CbFDVKpccfdFbmwHmO/h3j8eY4nCc13R/jGVJmDiIir1i92w7f7tvKG+i9 grst0uOfBIOZw4ner6i5sdPZMssc8/fH/njEzEFEZALr8Oj9aidvoLcse7c5 x8ocsWhYHe7X1bhzXDEb7mXCDaOvpb7n4sDaCjFzEBFdB/1FM8mo7T0VrMfv 7ZTFxz8pBjMHanyNO8dVVmOq1by+z5tlJTLvSM4hZg4iomG67ZIKzd+znTeQ Ufq90OU/h0lhZY74SsSxzIG65iZfT9QwZc8VZg4iIrecHm7o+60nhvcpLY16 VaVX5sTHP2kGM8fuTk2NO8dt1NK63odZhoyoboeZg5mDiMgdOPvZ3t60lTdw 95JnONxhZY5EPOrI/I/MYVoHHT3tUUdMfl6eZPLPGBGRhPLzx6qYS9nKGx/f v1ffz83oO7XS459Eg5mjs41zMuPNcdsbOVUspI2+tsV8Sv95+Xl5ksk/Y0RE Xuu0nqvI4qztMxw4Z9haz4qPf1JZmQN93pzIHFi3yGUTRl/bcimj10Xk5+VJ Jv+MERF56Xi/37vt9PSdrbzxsvxcFdJL4uOfZIOZA33tx53jXrdL+pyGydcX 5z6YOZg5iIic8v5dS4Xn7fduw5/H38Pfl/4cJpnTmQP3UHAfxeRrvF4rq1r5 ydgfk5g5iIgA6xQVwzOFFvSy173b9tfExz/prMyRTq2oZgO9a8ab41BvA/th Jl/n5kZN362Vn5cnmfwzRkTkha3GM+P5ZxDOfbQ3C+LjnwZW5sik46pRf67G neNwtwj1RU2+zqhXupqLjP0xiZmDiKbb272aXqvAmoWdvLFaSKtSPiI+/mlh ZY5sJtH7Na/GnePQmza88MDoa42+LOjPIj8vBxNea2Q89MkBrDGhrhvs7dZ0 vRXcf37drujzwe2tF3r/DLCm1agXNHzda9WCqlWy+lwvFAsprZBLqVw2qTMp pJIxlUw81vecAHVdUMM2Fl1WkfCSCi8v6T8n/VwT0fTA90HUKN9/07WVN1C3 43Honvj4p8ngOketOn7mAHztTc/soA+t9Nw9zny+0+nP57iv8/l8/lzrz+f5 z+fzfErrz+eJ8/kc+1s4V/PlfB7SPfggHFpUoaUFDb8H6/+HP4e/Mwj/TvJJ PycgL1jwscD62MicgHxhwfgAd58tpWJG638uOa1a7kNuwf8PH1P6uSai6ZFN zOvzgXbyBuqS6jMcurep/OcwLQbXOTAvOjFfL87dNvqao9Yb+vx5kSGQCTAH JxMX83l/Tr88ny/ams+REfBv4lfL8Pn8gsl8Xi3nz+ncMsD6uvkNxo3XRvq5 JqLp0KimVHJlyfYZDvRfQR8W6fFPG2uuwDyIuc7LzIEewV5lDmsdIcjzeRAw cxCRV9DvdXHObF19UA7r+i+4ByzBmivwMzd+xvYyc6BeS0zvpbmfOax1Bek5 edJhjwX7QdLPNRFNNux9oyfK0eGBrbzRatZV4vG34uOfVoOZA2cMvMwcEPn+ jiMf8ybW+QnpOXnS9TPHsvhzTUSTDb3bkB/s5A3kE/ZukzWYOcCJ+d30DCng zzJzTA6cI8X9FennmogmV2V1Re+P2N1TwXzD3m2yrLkCZxhxpsOJ+R1rF6bP ANZEvMgcOMeBz096Tp50yBy4Lyv9XBPRZOq+Kunzn3bzBs6ZbtSeio9/2g1m jn5dhfHnd5zRODOsy8LMMVmYOYjILVbvNtxztZM31msv9H1a6fHTRebA+VHc 63Bifo9HHqhjw2fCq70V3APu1z2Tn5cnXWjpe/HnmogmT3TxrtrpbNvKG6gT hnmGZzj8YTBzoM6EE/M77r+i9oaf1jlwB5aZg5mDiIIJ9clRp9xO3rB6t6Eu uvT4qc+aJ7D30K8fOf78jtqipn2EPVvn6GUOrONIz8fTAHsrqOMq/WwT0WTY buZ1Hza7ZzjQ7w1/V3r8dGEwc/RrOY0/v6OHCnqpGGWO+fuOfMyboA45zqtI z8fTAJmD65hE5ATrDIfd3m3oZ4++9tLjp8+hDidqR+IMqVOZo5gN656xJs8F etD25yf3MwfXObyBu7InB+xhQETjef+upcLzM8br5hac+cDfw9+X/hzoc4O9 Q5y6K1tZjalWc8147Qv909zOHOi7xszBzEFEwZF/uqhelp/byhuob617t+2v iY+fruL8/I7M0ahXjJ6P5Mqi2u9WXRnHIPR7ZebwBmqfnxzw/U5Eo2utZ/XP pHbPcODcR2erKD5+Gsb5+X2jlla1atHo+cgkI+q17u3nfuZAz1fp+XgaYN3s YJeZg4hGg1qh38/NqI/v39vKG89zKVV+/lh8/HQddzIHzoiYPCO5TFz3mXc7 c7xqlZg5mDmIyOes3m2m9RYs263Gp56h8p8DXcf5+X17o38m1eQ5QR8U/Hm3 M0dnu8zM4WHmeNPlfXgisi+9Mqca9aqtvHF89FbnlNPDDfHx001cmN+3VvV5 VJNnBXd0sS7iReZAzTPp+XgaIHPs7jBzEJE99XJCZZJR22c40H+lq/fo5T8H uonz8zvOZ+CchsmzgnMfXmSObqeq7+ZIz8fTAK8zXm/5Z5uIgmJvp2yrJ/nF mcCozirS4ydTzs/vuIeC+ygmzwvut9TKT1wZx+XMgZ+/pefjaZBKxnq5s+KD Z5uIggBnOPT91qO3tvJGs1HTvTakx092OD+/o96G6R2n5kZN3611O3NgrZ+Z wxvJxGO9lyX/bBNREKyEH+gzoHbyBs6Y4gwHax4HjfPzO54B1Bc1O2u8oVZz ztQ/vQ7uUTBzeAPrHO2tFz54tonI7yqrK6pgeP7P8vHjh17emNF3aqXHT3Y5 P7+jvxf6qJg8O+jLgv4sXmQO1KqSno+nATIH6qHIP9tE5Geo3RVeMJsrBiVX llRzLS0+fhqFO3O86Vkg1NFHH1q3Mwf2e2LRkPh8PA2YOYjoJsdvG/oMx9nJ sa28UauuqlxyQXz8NCp35vjFudvGe3L9M0DuZg4839HIkvh8PA1QYx79beSf bSLyq+jiXd2LzU7ewM+o7N0WdLLrHDinzMwxWZA5GvWCD55tIvIj9B4vrz6z lTfQyx7rIkdvWOM42GTXOdADsF+v1t3Moc+1MnMwcxCRqO1mfqTebbHlh/rv So+fxiWbOSDy/R3XxmHBudZwaFF8Pp4G2Uyi9yu/NxDR597u1fRaBdYs7OSN F8WsKj5bFh8/OcGdOd5OPTn8WS8yR2iJmcMLmXRc1apc5yCiC1hrxvd6nMmw kzdw5gNnP6THT05xZ47H2oXpM4U1EbczB4SWFsTn42mAdQ5mDiIalE3M6zsn dvIG7rTo+qRvG+LjJ6e4M7/jjMaZ4fqZd5ljsffM58Xn5EmHzIHeffLPNhH5 AWppoKaG3TMcqN2BGh7S4ycnuTO/xyMPjGvne7G3AjhDyszhvlw2ycxBRBpq haJmqN28kUvHdY1S6fGT09yZ33H/FbU3/JY5qmVmDi8yR6nIzOEG9pagIMHz ip4oh2/3beUN9F5BDxbp8ZMb3JnfUVvU9KwQM8dkKeRSqlhI+eDZnjyo8YpM h56F0mMhukkiOqt7v9rJG1gfZ++2SebO/I4eKuilYpQ55u+7No5B6LcyyZkD +0aAz9FSLuX0PgfWHSzFQvrc83xaZwTAXGbBmQzcP7Gg5gZgzrOgf2wiHtW9 8wZFwkv635N/tidLt1PVzzC+PniN8XXBf5MeF9FV1spPVCYZtb2ngp9B93bY l3pyuTO/o84cesaaPGPoQdvPtO5mDsyHmIPHmc8H5/T+fD58Trfm8v58ntCs uRzz9+BcrufzROxcMhH9Yj7HfIOeMVivsaDmCM7G4k4OfsX/tv5/+PPW38W/ hYxgfVzA3GWtSQDGjs+lWn6mapWsvnuCOhuo74Va5uihAq9aL3SvesCcB/i5 G3304HB/XZ0c8Jy50/C1w9cLz+Pay/56Uiy6rPPf63ZFfHxElm67pELz92zn DWSURpU/r0w2d+b3ympMtZprRs8ZatKhB5sXmQNzL+Z0/HrVnD44l/fn8wXN +t/9uTx0xXze/3etOR35Qs/n+T5rPu/P5flPZ1kxnz+/NJ+XbpjP6/reGCCn oe4IDP+8pZ8vckJ/jWP5Uw4czMIFvVaF5xCZEs+N9Fhpulm9206Oj2zljUa9 qtIrc+LjJ7e5M7/Xyk96z1DF6FlLriyq/W7VtbFY8H0b35N3OpXzuXxv9/r5 3O0xuU/6+SInIMdaaxzDYG3NysHs60tSUCehvb1pK2/gvgHPcEwLd+Y6rI/V qkXj9bTddsm1sRAF2ZtuTZ/fwPvJZB8Qa2qD2WMysjMFQSkfUcVeNraTNz5+ +KC+n5tRb3dr4uOn4NqsZ/RZB5NnLpeNq/bWqviYifwol4mrfDZh+wwSsgf2 /WKPw3r/zoszUzS9Oq3nKro0a/sMB/bWW+tZ8fFTsG03c3qt1+SZw/lF/Hnp MRP5Dfb8+msco9+3QvbAWSP8O421ArMHOe54v64WvrPfu61SyqtCekl8/BR8 WLfA+oXJc4f1EOZcoi/hDEe/T+/4d6nxPrOyBzIMswc54cO7lgov3FHd121b eQN/PvTojv770p8DBR/OZ5jezcY+df9+lPy4ifwCd47HXeO4KXvgzvexvtcs //lSMGGdAusVdvIG1kOwLnLswX1Fmg6osZ9cCRk9f421ir7nIj1mIj/BHWun 1jiugryBu93IHrjHzexBdm01svo8ht0zHDj30d4siI+fJsdRL7/GIwtGz99m o6YqxZj4mIn8AvO/G2scw7IH7uLi4+HsB7MHmcA9k1HOcJQKGX2/RXr8NFlO j5q6vqjJM4h6pau5sPiYifwCcz9ygNt5YxDyjZU9sMaC86vSrwP5E84ChR59 o/bfdG3ljc6rVm9e8KbXBU0X1ARYNqx9u9PeVoX0oviYifzAyzWOYdkDezpW 3xxmD7os8+SRWl8r28ob706O9brIyVuuo5E7lh7dNXoW97o7KpuYFx8vkR/g bIXXaxzDsgfqgiB74Ne9HdZson69x+TKku0zHOi/0m2/EB8/Ta7FhzNGzyLq 3j6NzYmPl0iatcbhp/7Hg9kDWWi3436fAvIn9HtdnDP7vj4o13tuai94T4Dc ZbrOcXx0qJ5EvhUfL5E06y6JdM64OnsM9LJNWL1s5V8z8gbOcGBv5OjwwFbe aG3UVSI6Kz5+mnyLc7eNnsmzszPdF0h6vESS8D3db2scw9Y9kD36vWyjqrNV Fn/tyH3xyAOdH+zkjcO3B2rxu1usP0eeMM0cEF6YER8vkSTM5Vg/kM4UdnzZ y1b+dSTnVVdjen/E7p4K9mG86BlOBEuPzDMH8on0eImkWGscqBEqnSNGwV62 k2tnu6jPf9rNGzhnulF7Kj5+mh5Yu2DmILoZeq8FbY1jWPZgL9vJYfVuwz1X O3mjXnvBu4jkOZzRODOsUcfMQdMq6Gscw7LHYC9brnsEU3Tprtppb9nKG6gT hnphzJvkNdxFwZ0Uk+cU+zDS4yWSgPWASVjjuArOe4SXFzn/BBDqk6NOuZ28 YfVuQ1106fHT9EHNDdTeMMscd8XHS+Q1/PyPfQisC0jnAzfg3m+1nBV/ncme 7Y2c7sNm9wwH+r3h70qPn6YT9vNQY5SZg+hqOG+J8w/S2cANuPOLvRX2jAsW 6wyH3d5t6GePvvbS46fphR4q6KVi8ryiNwv3fGma4HnHPY9JXeNAzVLUcZd+ ncnch3ctFV64Y/yzoqW780r/Penx03RDr1j0jDV5ZtGDFr1opcdM5BWscSBz SGcDN6DWCNc4gif/dFG9rBRt5Y3T03d6XQTrI9Ljp+lWfv5YbTZqRs9tPLKg jvjM0hSZ9DUOfG7SrzGZa61n9XkMu2c4wgsPdA0P6fET1cpPVGOtYvTcJldC 6mCX9epoOqBeONc4yC9QK/T7uRn18cMHW3mj8Cyhf7aUHj8RoOcx+kKZPLuZ ZFTttkviYybyAvqU4B6pdD5wQzaTUMV8Svw1JjO4x4yeKKZ3DC3YN19Zvi8+ fiIL1upQ58jk+c1l46q9xX4NNPnQj3XS1zgO99fFX2cyg5oGjXrVVt5A3SWc 4Tg93BAfP5Flu5nTP8uZPMPFQkr/eekxE7kN9b+e5yd3jQM9Z6VfYzJTLyf0 GrPdMxzov9JtvxAfP9EgrFtg/cLkGcZ6CNZFpMdM5KbdTlXXAJPOBm6ucRzs rom/znSzvZ2yCj26YztvIKMgq0iPn+gynM8wzdA494HzH9JjJnIT7nNgHUA6 H7ghn01o0q8x3QxnOPT9VsPeFJZm46Xei5EeP9FVcA8F91FMnmXcb8E9F+kx E7llb6em1wGQr6XzgRvwub3pss9GEMQjD4xrJ1lwxhRnTdk7h/wK9TZQd8Pk eUYdD965okk2yWsc+Lzw+Um/xnSz6mpM33G1kzc+fvygFudm9J1a6fETDYO6 oqgvavJMI3Ojbqn0mIncgDMO/TWOvHg+cBo+p1h0WZ9VkX6d6Xqo3RVdum/7 DEdyZUlt1lnjjfwN/STQR8XkmUZfFvRnkR4zkRuwDoCzDtL5wK01DvSPlX6N 6Xonbxv9+63vTmzljbXqqsqlvhcfP5EJ9Is1ea7RUwh9aKXHS+S0izUO+Xzg BtzD4RqH/6EH2057y1bewPdl/D30fpMeP5EJ08yB80k8D02TCDU5UbdCOhu4 AfV3UFNV+jWm66HHfHn1ma28gV72WBc5esO7zxQcS49uGz3fuLP1JPKt+HiJ nIRem5N6jgNQTxW9Y6RfZxpueyOnYstzts9w4O+0Nwvi4yeyY3HOLHOc9TJ1 LHRPfLxETpr0NY5EnGscfvZ2t6bXKrBmYSdvlAoZtfqMZ/opeEwzB4QXZsTH S+QU9FXFGke1PLlrHK9arH/tV6ijEXr0jXqz17WVN3DmI7p0V3z8RKOwkzmw DyM9XiKnlEsZXbNCOhu4oVTM6Mwh/RrTcDiTjzsndvLGu5NjvS6COy7S4yca BdYuTJ935BPp8RI5YdLXOLCnstVkH2i/aq6lVSK2ZPsMR3jhga7hIT1+olHh jMaZ4V4iMwdNimo5q2tWSGcDt9Y4cD8W9XekX2f6EmqFomao3byRS8d1jVLp 8RONA3dRTPsI4V6t9HiJxoV99Elf42g2+LOwH+HZW5y7pQ7f7tvKG1ubDd2D RXr8RONCzQ3U3jBa53jIM6SD8HMkoIY81upBekx0M9yLneg1jugy1zh8KhGd 7eXBmq28cXR4wN5tNDFwjgm17KTXOTBfH+yt6b6Xuzs11e1Utdftiupsl1V7 a1W9apX0HjXg5zhorBW0ei2v55JaJavhfCDge3CxkNJQAzqXTWg4OwiYe1LJ mK6bhJ8PIb4S1mLRkBaJ9IWXF7Xl0KIKLS3oX63/hv8//htzh79N+hpHKhHT 7wfp15m+hL7c+H5jd08F+zB7O6yxQpMBPVTQS8Xk2UdvFjd+fsI8jfnamust mP+TT/p5ALlgEN67FmQH1FiwcgR+D1a+QNY4l0/rugUWZBKLlVPKpZyGeWmQ zjTa1d/vkTuYOfwN2RTzsnQ2cAOeWeQprnH4z267pEKGva0GpZ+EVaOaEh8/ kVPQKxY9Y02ef/SgxT6C02M43F/X6wnS37PHxczhb5iLMSdjbpZ+VtzQz1J5 8deZPofvCfp+68mRrbzRqFdVOv5QfPxETqoUY2rTcH8xHllQR/t1x8eg7y1G gp85YtGwK68POQN7DpO6xoF1OOQp7vn7D+4Gtrc3beUNnLFDvTB+PWnSYI+x sVYxeh8kV0LqYNf5/pSTlDlwJkX6a0pfwhoHzlZi70z6OXED9hix7yf9OtPn SvmIrq9vJ29YvdtQF116/EROw14hzieYvBcyyajel3R6DJOSOXAGhZnDn3De GOeDpJ8RN3CNw5/arecqujRr+wzHSmRebTWy4uMnckNrPav3t03eC7lsXN8f cXoMOCPCzEFu0Wscj8P6nLD0M+IGrHGgxpn060wX0K94lN5tlVJe97WXHj+R W7abOX2P1OT9gHse+PNOjwGZA/dNpb93O5E5cM9X+mtKn8Pd6klf4+DZZf9A xkVPie7rtq28gT8fenRHfXjHe0c0ubBugfULk/cE1kM26xnHx4D3KGpdSH// ZuaYTOh1NqlrHLgbjjMq0q8xXcA6hena8eUzHMc8g04TDuczcE7D5H2Bcx9u 3RVHfQ7p799OZA7UMZP+mtKFTi9TI3NIPxtu4BqH/+AcRjwyb/sMB859tDdZ y40mH+6h4D6KyfsC91twz8WNcUxC5sD6PTOHv+Brgj1B6WfDDah7hzsR0q8x 9Y16hqOYS+n7LdLjJ/IC6kmg7obJe6O1UVfl549dGcck7K1gfkOddumvKfV1 tsoTu8aBe7F6jYNr8b6Ris2pTnvLVt5ov9pU0aX74mMn8grOb6K+qMn7A/VK V5+FXRkHzpDi+6j09/JxoEY7M4d/oP4X1zjICwe7ayq88MBW3kBdUl2f9C33 xmi6LBv2AUBfFvRncWMMuCsb9MyBPjBu3CUm+3Y7VX0/VvqZcAPOVWGNA/Oc 9OtMfZknj2yvcaD/Srf9QnzsRF5Dv1iT9wj6z6IPrRtjQOYIeq9PZA70vpX+ etKWrlmBnn7Sz4Qb8p/6Fkq/xtSH/S27/dt03ViXzsYR+Z1p5kAPgKexOVfG MCmZA7UgpL+e025vp6YeR8ND+/8GmXWOg2sc/pFLLajtVsM4b+BcXCI6Kz5u IilLj24bvVeOjw7Vk8i3rowBvUqYOcgJqFkxqWsc+Lzw+Um/xtSHe8qLczO2 znAszt1inXqaaotzZpnj7OxM90h0YwyobRH0zIH1UvT1kP56TrM33ZpeB5B+ FtyAdRv0qdtj3TnfQP2vpmFfbmtPxY1azkROQY3By1BT0YK65cPgZ6KrXK4h ZJo5ADV93fg8kTlQu0/6+/rYmWOdmUMSzjqA9LPgBq5x+Mvp4YatNY7T03cq 9Oi2+LiJrpPrff8cBt+DrF+N5NP63MTh/vpnH8N0bwWWXHrP9DNHsOtTI3M0 1lhLUArOOGCNI+j3n4bBGscua875Bup4oU6i6fdOZOHmWlp83ETXcf77FjLH 5+scWLswfd9gTcSNzxP1tIKeOfAzKDOHHNSrmNQaYM97Py+g3oj0a0x9OI+B 2hqm3zdRmxTnOKTHTXQT5zPHl/3WcUbjzLBer1uZA/W0gp45UKepXsuLPzPT CucckDlg0mqB4XN63a6Iv8bUh3rMOF9jmjnwPLrVq4rISc5/7/oyc+DeFu6k mO2t3HXl88Sdj6D3/sQ6B9b1pZ+Zafeq9UKvm01K9sDngEwu/bpSn901jo8f PvT7sJywRz35n9Pfv65a50DNDdTeMFrneOjOGVKchQh65sA6R62SFX9mqA/9 VjBXox4pzjMF9ZwHshM+F+nXk/pqL+K2etXrs/HlhPi4iUw4//3ry8yB2qKo MSq5zjEpmaNaZubwG5y7xPOFM5hBq9uB9wQyh/RrSH1Yq7CzxgH486zHQUHh ReZADxX0UjF5/6A3ixtrhNiXCPo6ODIHzqRIPzN0NWQPPGe424I7BEFY90De YJ05/8B6Bb5PmeaNl5Wiqqzy7C8FhxeZYzUX1j1jTd5D6EGLXrROf56TkDlw b5mZw/9QNyyX6WcPvR/m0+zBNQ7/0ecyDM/bc42DgsiLzFEpxtSmYS29eGRB He3XHf88MV9PQubAPCH9zJAZ1PPAXotfswfOwXKNwz9QWwPrY6Z5Y71W1jU8 pMdNZIcbmQM/5w1+DPQ3NK1tk1wJ9b5XO1+XyKpZJv19fhz4HFD/VfqZIXtQ rwa1PfyUPZBdcfaVdx38A/U1uMZBk86NzLF7qV8D7o2b3jXPJKNqt+18v3ar Vqr093pmjumFngCY65E9sNcn2f8H923Yu8c/thpZvR9nmjeajZe6F4v0uIns 8iJztNazxne/sH/Q3nJ+vdfqDyOdG8bNHCD9zNB4kD1wLgfZA/ddvM4eeC/i Y/NnZP9ArWb0hDXNHOjDcuzCHjSR27zIHOhziDnf5L2EMxdu9EWciMyRT+tM Jv3MkDOQPVBvBfM/6o571YMQH4s19P0D3+/SiYhx3tjabKj800XxcRONwunv ZziX1r3UJwrrFrms2bohvu9u1p0/J4k17aBnDuQxZo7Jg/UG1LT3IntYaxw8 x+EfWOM4PnprnDlC8/e4xkGB5fT3NKxzXM4cOJ+Bcxom7yec+3CjbwDWsnMB 70GOzMFe45MLOQDrD8gEyO5u1LBDpmH9fP/o9H4eS8SWjPNGe3tT11iUHjfR qJz+nnbVOgfuoeA+isl7CvdbUPvX6c9TInMgP/Xl9Z79IPy8iTEB5hYLcsUg 7KdY5ziw98/MMfmw7oHznbhX4mT2wHPHcxz+El26b9wXAsILD/QdbOlxE43K i8yBehuou2Hynmpt1HVPRac/T9QMxxoM5mzcV8SvmMMt6AE3COf6k09in3p5 hT+DnjKxaEiLRC6Elxe10NKCthxaPP9v1p/B3x38t/Dv64/VY2UKCzKSlTdw HgW4Dz89sO6B+hlO9bLF88V+Pf6B9d94ZN44b3R3XqlUbE583ETj8CJzoK4o 6ouavK9Qr3T1WdjxzxN9uvH9tl8bIa/nbmiuF/XPlPjeDq9aJX3+pLNd1n8H nwvgXCzqjqDeGRzur+szgBZ8joB5gnvl5LRxs4e1xoFnVfpzob545IHa3+sa Z47o0qza7zpfu4jIS15kDkAfFZP3FfqyoD+L9OtC5Efo/9pfe4vY6mWLdTPW zfcPZAdkCNO8sbe7ozOK9LiJxuV05sAeAdYHLn8c9Is1em91d3hGiugGeI/h PKjVyxbnhoa9J5FLuMbhL4norOq+bhtnDuzB7F7xsxxR0LixzoF9icsfZ/Hh jNF7C+epnnLPksiISS9bnF9inx7/wBlQnAU1zRv4nhgL3RMfN5ET3FjnuCpz LD26bfT+Oj46VE8i34q/LkRBsrdT05njck8XrnH4T+bJI9VpbxlnDtyl7bhQ m5lIgleZY3HOLHOcnZ0x0xON6HIvW6yBoL+c9LioD7W8QoZn2+Do8EBFF++K j5vIKU5nDtwzHSdzAOrySb8uREGG7IGsgXva6GsrPR7qy6UW1HarYfy9MP0k rNqt5+LjJnKKV5nDdG8F8GelXxeiScD6X/6B/S30ZjP9Poieb/z5iyaNG5nj qr6weO+YvtewJiL9uhAROQm955uNmvkaR2rFlX6XRJK8yhw4o3F2+o6Zg4im Dtab7KxxnPa+V4a43ksTyI3MgVqelz8O7qPjTopR5njI9UQimhylfET3kjLN HLiD1FxLi4+byGluZA7Uab78cdIrc8a9jJg5iGhSYI1j4btbxnnj/dmZWpy7 JT5uIjd4lTlQWxQ1Rs3OkPJuGBFNBvSsRJ1Y08yBfjqNKu8302TyKnOghwp6 qZi851Cjj33SiCjo7K5xfPz4Qf95fv+jSeVV5ljNhXXPWJP3HXrQnh5uiL82 RETjqL1Ab72ccebAn62Vn4iPm8gtXmWOSjGmNg3vicUjC+povy7+2hARjQpr FXbWOAB/njVVaJI5nTlwp/yqzIHsbnpuO7kSUge77KFIRMFVLyf02QzTvIEz H5XVmPi4idzkVebAmSjTc1SZZFTttr+8b0tEFBT6XMbZGdc4iAa4kTmajeIX H6e1nlXlUsbovZfLJq6sK0ZEFASorYEaG6Z5Y71W1jU8pMdN5DavMgdq+BYL KeO7Yqz5S0RBhfoaXOMg+pJXmQPrFrls3Pjs9mY9I/7aEBHZtdXIqlzG7Hsd oAcLerFIj5vIC65kjvUvM0e3U9XnNEzPUrEmDhEFEfpZoiesaeZAH5Zj3tOj KeFG5misFb74OLiHgvsoJu9B3G/BvXbp14aIyI72ZkGlExHjvLHdaqj800Xx cRN5xavMgXobqLth8j5sbdR1vWDp14aIyA6scRwfvTXOHKH5e1zjoKnidObI pONXZo7To6auL2qW/TfU6rOw+GtDRGSqs7WqErEl47zRedVSmSePxMdN5CWv 1jlguZfpTd6L6MuC/izSrw0Rkano0n3j3tmAvlIHu2vi4ybykhvrHPVa/sqP hX6xJu9F9J9FH1rp14aIyARqGMYj88Z5o/u6rVKxOfFxE3nNy8yx+HDG6P2I nxWe8v1IRAERjzxQ+3td48wRXZpV+132d6Dp43TmyGYSwzPH3G2j9+Px8bF6 EvlW/LUhIroJsgMyhGne2Nvd0RlFetxEEtw4zzFu5jg7O1OPQ78Xf22IiG6S iM7qvRLTzIE9mN0O1zhoOrmxt1Krjpc5+uerZsRfGyKi6+AMKM6Omn5fw75x LHRPfNxEUrzMHEuPzDMH/qz0a0NEdB3cdcWdV9Pva7hL22H/SppibpznGJY5 sHZh+t7Emoj0a0NENAxqeYUM7//D0eEB129p6rmSOSrZKz8W1hTPTt8xcxBR 4OVSC7p2uWnmQE101EaXHjeRJC/XOXDW6vjo0CxzPOTPA0TkT8cHDd2bzTRv oOcb1ziIvF3nSK/MGdfpQ/0w6deGiOgq6D2PHvTGaxypFbXdzImPm0iaG5mj Wr46c6C2KGqMMnMQUZAtfHfLOG+cnr5Ti3O3xMdM5AduZI5yKXPlx0IPFfRS MXmfohfB+5OW+OtDRDQIdc7t9KvPZxOquZYWHzeRH3iZOVZzYd0z1uR9ih60 p4cb4q8PEdGg4rNl1dqoG30fe392xjUOogFOZ45cdnjmqBRjatNwDzQeWVBH b9hzkYj8JfTojvr44YPR97FiIa0a1ZT4mIn8wsvMUa8k1fpa2ei9mlwJqYNd 1gcmIv/A2iv2fU33VXDug3vERBe8zBzI+y8rRaP3aiYZ1fum0q8PEZEF5zJK xYzR97DDt/vs5UZ0iZeZo7We1f8/k/cr/p32hNcIxs8/g06Pml9AHYBhjvbr 6nB/vaehDvbWrra7pt50a9rezgX0mLrK63ZFdbbKQ6zqX1+1Xqit5upQzUbx M421whfQB3AQarp8ppI9J/11IrKkYnPGPeur5d6zXU6Ij5nIT9zIHPg54KqP 1d7Mq2IhZbwP6vR9dszhyURUS8Q/F18JDxWLDgqpSGS48PLi+a+wHLoQWlr4 jPXfrT87+PdvgnFY4wFrnF+OP/KF/ud78XsLXpdUIvbFrzdB7QHr1+ugF4/1 K+C88eCv1u8HhZa+F3+PEFns3JFFf3vUR5ceM5GfeJo5ej8n57Jxo/druZRT m/Wr/51R7fZ+vsd8jfFhveVC7pPB3+f0zynXsX4mH/z9haL+Fa/J4O/JHmQy 7oeTH2AdED3aTDMH76sQfcnpOaKQS+m1jKs+Vrf3nsU5DZP3K+ZpnDl18nNF 5sDP/tLzKDFzUPCU8hHVbLw0+v7V3t7UtUqlx0zkN15mDtxDwX0Uk/dsY62i ai/ijn6uzBzBg70mZg7yA/RLQb0No/Nombhqt56Lj5nIb7zMHDjziLobJu9Z 1NwpP3/s6OeKc5TMHMHCzEF+cHbc1HU5zPdVZvjcEl3By8yBM5yoL2rynkW9 UtT7c/JzZeYInkh4SX+/l36f0HTbamRVMW92/h09ZGOhe+JjJvIj3A8ZhMxQ yH/6dQicE7V+vSz5JDY0c8Dy/D2j9y36sqA/i5OfK+6OMnMEC9Y5mDlIGvpT dl+3jc+iOb0vTDQprDuKVma4KmMgQ1yGux9f3v/oQ42GYR8P/WJN3rfoP4v3 uZOfKzNH8HCdg/zAzh3ZeGRe18WRHjMRbanFhzNG79uDgwP1NDbn6Mdm5gge Zg6Stt+t6hxhfpaDd2SJ/MI0cxwfH6snkW8d/djMHMHDzEHSKqsxtV4z6xPV aW85vj5LRKNbnLtt9N49OztTj0O/d/RjI3OgVqf0PEr2MgfqvEs/tzS9oot3 9blQk+9b+WzC8frJRDQ608wBuA/v5MfmOkfwMHOQJKyx4d6r6fcs3KfluhyR fyw9Ms8c+LNOfmxmjuBh5iBJWLNAfS+T71enp+8c/zmJiMaj35MfPxiexXI2 c6D/KvqhSc+jxMxBwZB/uqjPaJh8v0LtZJz9kB4zEV1ArZyz3s8DMpljnZkj YJg5SBLuoJiuy6L/G+64SI+ZiC4kHn+rjo8OzTLHQ2fXKVF7nZkjWJg5SAr6 0MeWHxpnDt6RJfKf9MqcOtjfMzzPcdfRj425i5kjWGLRZWYOElEvJ3RNUZPv VXu7Oyodfyg+ZiL6HO6uo8aoVOaIRJg5gkRnjt7Pm9LPLU2feOSBOj56a/S9 Cn0jWutZ8TET0efQQwW9VEzex+GFB472ZmTmCB5kDpzDkX5uabrg+46deueh +Xu8I0vkQ6u5sO4Za/I+Rg/a08MNxz42M0fw9DMH91bIW52tVZVOrRh9n3p/ dsY7skQ+VSnG1GajZvRejkcW1NEb53olMXMET3wlwn5Z5LlCeqn3s1HD6PtU a6OuSvmI+JiJ6Ev1SlKtr5n1LkiuhHrzjXN3z5g5goeZgySEbNQuTMSjardd Eh8zEX2pUU2plxWzs+CZpLPvZWaO4Ik9DjNzkKfwfSK6NGucOXDuQ3rMRHQ1 nO0ulzJG7+VcNqHaW6uOfWxmjuDhOgd5DT8XlUs5o+9RuPefiM6Kj5mIrtbe zKtiIWV8/8zJHo2nR01mjoBh5iCvIUOY1hBCNkFGkR4zEV0N6xa5rFnPJLyf N+sZxz42M0fwMHOQ1+zckcUeDOvHEPlXt1PV5zRM3s+oAYgzp059bGSO8PKi +DxKzBzkTzg/ln4SNs4cIYd7XxORs3APBfdRTN7P6NNYexF37GNznSN4kDne dGvizy1NB9x5xd1Xk+9PuEuLO7XSYyai4fpnwr8zek/jfstG7aljHxu1BbnO ESzMHOSl0KM7usaXyfendCKia4dJj5mIroce9SbvaezBYC/GqY/LzBE8yBx7 O8wc5D7ULkcNc9N9FfaRJQoG9Hm7qf75x48fVCI6r/dDnPq4+LeWQ8wcQcLM QV5prqX1XTmTvHF0eKB7wEmPmYhuhh4q3393W52+Oxn6nn7w4L4q5HAHrePY x8U6BzJHrZrvn0/tzWnW7/u/XqiWL369Du7WXMhc+n1fqTgcvsdZvw6D16GQ T/fh90Ognon1qyX/STbzpUw6fv4roL/E5f89+PthUonY+a/XSSai57+idqP1 qwX5YvD3EAkvMXOQJ9CLHj3pjc+3lxPiYyYiMzgfjj0WnBMdfC+jzz3u0i4u zKrw8rz6eLarnModyByhpQUN2QOw1wI4W2r9epVY1BLWv8ZXwkMNzqN6nk32 51nr93p+/vTr5bl90GB2sPKEBTVOLhvMMoOZx1ItZ1Wtku3nKuvXAfXahcZa 4QvN9aJqNi5sNVeHetV6oTpbZb3f3f/1c6/bFW23U/0CMoYFZznYr5O8wDuy RJMNex3FZ8u6J+PSo7s9t/W+iz7DgazR8/60q9cj+tlDfsxENHn2u1WViC3x LAfRVOuot/tb6kc/+pGKhBeYO4jIFZXV2BdrrsN02lsq/3RRfMxE5LwPvdyx 1arq9X5r7UN6TEQ0WaKLd43vyOYycUd7MhCR33R01jg6eKXmvrunf5UfExFN An1H9tEdG/sqMzxjRDTxOur0ZEf94m9+ppYW5/T6h/yYiCjosGaBc9kmeePk 5EiviUiPmYjch5xxfNhWJ0dtZg4icoQ+t77zyihzrNfK+uyH9JiJyAudgTMd zBxEND7cQTHdV4lH5tlzkGha9LLG7Vtf61pczBxENC7kB+QI3pEloi/0Msff /e3f6PpXqO8lPh4iCjT0rUZNUZO80X3d1vsw0mMmIo/0MsfBm5auE8bMQUTj ioXu6XOhJpmjmE+prUZWfMxE5BHrLAdrdBDRmPBzC+69mu6r4D4t78gSTQ/r rixqk0qPhYiCrd16rut7meQN1AtDjwbpMRORd1AL7Ic//CEzBxGNrZBeUp1X LaPM0Wy8VOXnj8XHTEQeOttV+3ub3FshorHZuSOL/m/oeSw9ZiLyEM9zEJED 0Ice/ehNMwf63EuPmYi8tdksq//8n/+RmYOIxlIvJ3SdH5O8sb/XVanYnPiY ichbpWJGnyFl5iCiccQjD9TR4YFR5sD3neZaWnzMROSljq7L0T8/yhqkRDQ6 7JUY35Gdv8c7skRT5gN7rRCRAzpbqyqdiBjfkUVdDukxE5HXOmolFlLfL8yy pywRjaz4bFlttxpGmaO1UVfFbFh8zETktY6a++6e+m7294rrHEQ0qvD8N+rj xw9GmQPrIbvtkviYichjZ7vq5KitMXMQ0SiODxoqvPCAd2SJ6Hq9zIEzpLyz QkSjwv2TciljlDcO3+6rxONvxcdMRF7rqFw2rr766lfMHEQ0MtTZQL0Nk8xR LuVUo5oSHzMRea2jFhdm1fyjB4r7KkQ0Kjt3ZFGnFHsx0mMmIo99uiOr91ak x0JEgYR+KeibYlyX49Ft8TETkfeQNQ7etLivQkQjK+UjqtmoGeWN9vam7jsr PWYi8hZqcSTiUfZZIaKxhBdmdI0vozuyqRVdO0x6zETktY6KRUMaa4ER0ShQ uxw1zE33VRbnevnkpCU+biLyGPvXE9GYthpZVSykjfLG8dFbFQvdEx8zEXkP NcC2WlVmDiIaWebJI7W3u2OUOWrVoqqVn4iPmYi81lGR8ALrchDRWBbnzO/I xsIP1dGbNfExE5HHejkjk45rPMtBRKPY71ZVPDJv4ywH650TTSWe5SCiMVVW Y6qxVjHKG532lsqlFsTHTERe6+hzHPVakZmDiEYWXbyrTt+dGGWOfDahtps5 8TETkcd6OQM1Ob5fmOW+ChGNBHdkce/Vzh1Z/B3pcRORx3qZI5mI9uuPSo+F iAIJaxZYuzDJG1gLwZqI9JiJyFt6XeP8HAfXOIhoNDibgTMaJpkDZz5w9kN6 zETkLdTk+Prrr/SvzBxENCo7d2RxtwV3XKTHTERe6qhSMaN+/OO/UqcnOz4Y DxEFEWpsoNaGaeZAn3vpMRORx8529fpGd6ehuMZBRKOqlxO6pqhJ3kCNUtQq lR4zEXkLfeuB92OJaBzxyAPdO8Ukc6AXS2s9Kz5mIvJSRz24P6MePbyvuMZB RKNCT1g7d2TRc5Z3ZImmzNmu+tWv/kHVa3n5sRBRYHW2VlU6tWKUN96fnanw woz4mInIO5/dj+W+ChGNoZBeUu3tTaPM0WzUVCkfER8zEXmolzOq5Wz/LAf3 VYhoDKFHt433VRKxJbXb4R1ZommCvio//OEPP9XkkB8PEQXT8UFDRZdmeUeW iIbo93NbiYUU1ziIaByNakqVSzmjvLG/11Wp2Jz4mInIQzzHQUQOSURn1cH+ nlHmKJcyqrmWFh8zEXkDZ0cLuZQqFlLMHEQ0NuyVmO6rhBce6L0Y6TETkfuQ N/b3NvU5DmQO9qwnonHstksqnYgY5Y2PHz/os6bSYyYiL1zcjd3rNhXPcRDR uHDntbVRN8oc262GKmbD4mMmIndhPaPZKKq57+6xXz0ROSb06I6u8WWSObAe gtph0mMmIvd8OH2lc8bf/e3fqO8XZnmGg4gcgdrlqGHOO7JE1Hexn6LrcDBv EJFDcP+kVMwY5Y2jwwPdA056zETkHpzb+Prrr9Tb/S3mDSJyFOpsoN6GSeao lvO61730mInIedZ+yvyjB+qrr36lTk92xMdERJNlcc78jizqlB7v18XHTERO 66juTkNnDt1LhesbROSw/W5V900xzRzIJ9JjJiLnWH1iHz28r+tvcD+FiNxS fv5YNdYqRnmj86ql+85Kj5mIxvf+pKXXM/T+SS9j1Kp51d6uKd6HJSK3RBfv Gt+RzWXiqr1ZEB8zEY2ro++j/Mdf/p26fetr9lAhItfZvSO7ODejfzaSHjcR jWHgDmx4eb6/l8K1DSJy2XYzp4r5lFHeODk5UrHQPfExE9HocHYDd1Iy6Tjr ihKRp7KJedV93TbKHLVqUdVexMXHTERj6OWMn/70J7oeD/MGEXnJzh3ZeGRe HeyuiY+ZiEaj90V7mQP9YXl2g4i8hPyAHME7skTTonN+R4VrHETkpcpqTK3X ykZ5o7vzSu/DSI+ZiMbQyxo/+9lPVb2WV8wcROQlnAfFuVCTzFHIpfR5U+kx E9FosK9yfNhWP/7xX326p0JE5A3ckcW9V9N9FfS5x9+RHjcRjebDQJ9YrnEQ kZdQ1wv1vUzyxunpOxVemBEfMxGNoZc1dI3R3q8fmDmIyEOoX95pbxllDtRF R3106TET0eiwn/KDH/xAHbxhTT8i8padO7Lo/4Y+cNJjJqLRoebor371D/pX 6bEQ0fRAH3r0ozfNHAvf8Y4sUeBZZzlYl4OIPFQvJ3RNUZO8sbe7o9Lxh+Jj JqIx9bLGq0/nOcTHQkRTIx55oI6P3hpljmIhrZprafExE9F4cI7jhz/8Ie/J EpGn7JzlQM9Z3pElCj6e5yAir3W2VlU6ETHKG+/PznRdDukxE5EDeJ6DiDyG O7LbrYZR5mht1FUpHxEfMxE5gOc5iMhjoUe3jfdV0k/CarddEh8zEY2vtVnR 5zm4t0JEXujfkb3PO7JE0+ZsV/d1+35hVrHuORF5YaP2VJVLOaO8cbC/pxLR WfExE9F40NuNZzmIyGvIEMgSJpkD2aRRTYmPmYjGg94qyURUbbWqzBxE5Bns lZjuq6BO6fFBQ3zMRDSeo4NX+hxHvVYUHwsRTQecBU3Eo+Z1OR7dFh8zEY0H axzvT7uqWs5yjYOIPIM7r7j7apI3cJcWd2qlx0xEY+rlDGSOft7g2VEi8kZ4 YUbX+DK6I5ta0bXDpMdMRKPqr2/cvvW1enB/hmscROQZ1C5HDXM7d2T1WXcf jJ2I7Oj062/0MsbxYVvNfPP/9c+Oco2DiDzSWs/qXm0meQO939ADTnrMRGRH R+eM0NKCPi/atuqNcn2DiDyWefJI96Q3yRzocY9e99JjJqIvYb8E9cuttQxo NornNc1r1bz+31zXICIpdu7IxpYf6nql0mMmoi+VSxn1gx/8QN37/Tc6Y+B/ Y10jFg1xXYOIxO13qyoRWzLOHOhzLz1mIhqilylOT3Yu7qL0WGsePINFRNIq qzHVWKsY5Y1Oe0vlny6Kj5mIiIiCJ7p41/iObC4TV9vNnPiYiYiIKFj0HdlH d2zsq8zovyM9biIiIgoWrFkU8ymjvHFycqTXRKTHTERERMGTTcyr7uu2UeZA /yec/ZAeMxEREQUP7qCY7qvEI/PqYHdNfMxEREQULMgPyBG8I0tERERusnNH trvzSu/DSI+ZiIiIggfnQU/fnRhljnw2wTuyREREZBvuu+Leq+m+Cu7T8o4s ERER2YU1C6xdmOSN09N3vCNLREREI8mlFtROe9soc+DMR2V1RXzMREREFDyL c7dt3ZFFHzjpMRMREVGwHOzZvSN7W3zMREREFDy1F3G1Vl01yht73R2VefJI fMxEREQUPLHQPXV8fGSUOdCLZavxTHzMREREFCy8I0tEREReaG8WVC4TN8ob Z2dnKrwwIz5mIiIiCp5CesnWHdny88fiYyYiIqLgsXNHNrmyxDuyREREZNvx fl3Flh8aZ46F79hHloiIiOxbKyds3ZFNr8yJj5mIiIiCJx5+oI6P3hpljtVC WrXWs+JjJiIiomB5f9Kyd0d2/h7vyBIREZFtna1V3pElIiIi1+GObHt78/9v 735bk47COA6//9cSPShGrFjLyaC2uWJllu0P6iwiTNS2kSn8xu0rOEeSw4Hr wfX8+/BG/XiSbo7bwVXTuzgqvhkAqE9uI/v7V7/4ZgCgLtHItl/vaWQBgJ2K Rvby66eke2M2nTSnxxpZACBfNLJ3i3nSzfGle96MrjvFNwMA9YnvSnIa2b9/ hsU3AwB1iUb2/KSd3MjG2/WlNwMA9YlG9sd4mHRzjEc3GlkAYCuH++mNbHwe MvnZK74ZAKjLw2KgkQUAdm7w7bTp9y6S7o35bNq8a+8V3wwA1CduiLglUm6O uE3iRim9GQCoT04je3TwfPNdTOnNAEBd4regqY3ser3a/Na09GYAoD7dD2+a 77eDpJsjWtru+1bxzQBAfVovnzTr1Sq5kY3/Diu9GQCoS/wuo/XqmUYWANip 4dVZeiM7n2/egCu9GQCoT7xFn9PIxlv3pTcDAPXJaWTjf0o1sgBArmhkT962 km+OgxcaWQAgX7wLG+/Dpjay8e5s6c0AQH0O9582y+UyrZE9O9bIAgDZlvej 7Eb238O4+G4AoC6j607z+WMn6d64W2hkAYDtRCM7m06Sbo7LflcjCwBsJbeR vZ/dFN8M/F+PW0pZYQ== "], {{0, 542}, {541, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> False, MetaInformation -> Association[ "Exif" -> { "Software" -> "Created with the Wolfram Language: www.wolfram.com"}, "GeoMetaInformation" -> { "Software" -> "Created with the Wolfram Language: www.wolfram.com", "TileSources" -> "Wolfram Knowledgebase with data from \[Copyright] \ OpenStreetMap contributors: http://www.openstreetmap.org/copyright", "Projection" -> "Mercator", "PlotRange" -> {{-1.368441437403172, -1.3655405625968313`}, { 60.80224067358082, 60.805149016582}}, "LonLatBox" -> {{-1.368441437403172, -1.3655405625968313`}, { 51.82460923691582, 51.82640676294601}}}]], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {541, 542}, PlotRange -> {{0, 541}, {0, 542}}], TraditionalForm]], PolygonBox[{{-1.368441437403172, 60.80224067358082}, {-1.368441437403172, 60.805149016582}, {-1.3655405625968313`, 60.805149016582}, {-1.3655405625968313`, 60.80224067358082}, {-1.368441437403172, 60.80224067358082}}, VertexTextureCoordinates->{{0., 0.}, {0., 1.}, {1., 1.}, {1., 0.}, {0., 0.}}]}, Annotation[#, "GeoBackground", "WolframGeoGraphics"]& ], TagBox[ TagBox[ TooltipBox[ {Opacity[0], PolygonBox[{{-1.3661207375580995`, 60.80282234218105}, {-1.3655405625968313`, 60.80282234218105}, {-1.3655405625968313`, 60.80224067358082}, {-1.3661207375580995`, 60.80224067358082}, {-1.3661207375580995`, 60.80282234218105}}]}, "\"Wolfram Knowledgebase with data from \[Copyright] OpenStreetMap \ contributors: http://www.openstreetmap.org/copyright\"", TooltipStyle->"TextStyling"], Annotation[#, "Wolfram Knowledgebase with data from \[Copyright] OpenStreetMap \ contributors: http://www.openstreetmap.org/copyright", "Tooltip"]& ], Annotation[#, "Metadata", "WolframGeoGraphics"]& ], {{}, TagBox[{}, Annotation[#, "GeoGridLines", "WolframGeoGraphics"]& ]}}, TagBox[{}, Annotation[#, "GeoScaleBar", "WolframGeoGraphics"]& ]}, CoordinatesToolOptions:>{ "DisplayFunction" -> ( GeoGraphics`GeoGridPositionDisplay[#, "Mercator", "ITRF00"]& ), "CopiedValueFunction" -> ( GeoGraphics`GeoGridPositionCopiedValue[#, "Mercator", "ITRF00"]& )}, DefaultBaseStyle->"GeoGraphics", Method->{"OriginalInput" -> HoldForm[ GeoGraphics[{ GeoPosition[{51.825508, -1.366991}]}, GeoRange -> Quantity[100, "Meters"]]], "BasicGeoRange" -> {{51.824609236915826`, 51.826406762946}, {-1.3684414374031717`, -1.3655405625968313`}}, "GeoGraphicsOptions" -> { GeoBackground -> Automatic, GeoCenter -> GeoPosition[{51.825508, -1.3669910000000003`}], GeoGridLines -> None, GeoGridLinesStyle -> GrayLevel[ 0.4, 0.3], $CellContext`GeoGridRange -> {{-1.368441437403172, \ -1.3655405625968313`}, {60.80224067358082, 60.805149016582}}, $CellContext`GeoGridRangePadding -> None, GeoModel -> "ITRF00", GeoProjection -> "Mercator", GeoRange -> {{51.824609236915826`, 51.826406762946}, {-1.3684414374031717`, -1.3655405625968313`}}, GeoRangePadding -> Full, $CellContext`GeoResolution -> Automatic, GeoServer -> {Automatic}, GeoZoomLevel -> 18, MetaInformation -> { "LonLatBox" -> {{-1.368441437403172, -1.3655405625968313`}, { 51.82460923691582, 51.82640676294601}}, "PlotRange" -> {{-1.368441437403172, -1.3655405625968313`}, { 60.80224067358082, 60.805149016582}}, "Projection" -> "Mercator", "Software" -> "Created with the Wolfram Language: www.wolfram.com", "TileSources" -> "Wolfram Knowledgebase with data from \[Copyright] OpenStreetMap \ contributors: http://www.openstreetmap.org/copyright"}}}, PlotRange->{{-1.368441437403172, -1.3655405625968313`}, {60.80224067358082, 60.805149016582}}, PlotRangeClipping->True, PlotRangePadding->None]], "Output", CellLabel->"Out[21]=", CellID->278435504] }, Open ]], Cell["You can lookup information from the GeoPosition", "Text", CellID->386092355], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKPostcodeLookup", "[", RowBox[{ RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.825508`", ",", RowBox[{"-", "1.366991`"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[31]:=", CellID->1506112898], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"OX29 8FD\"\>", ",", "\<\"OX29 8SJ\"\>", ",", "\<\"OX29 8LD\"\>", ",", "\<\"OX29 8SA\"\>", ",", "\<\"OX29 8LR\"\>"}], "}"}]], "Output", CellLabel->"Out[31]=", CellID->124243863] }, Open ]], Cell["\<\ Providing a list of postcodes is faster than making separate requests\ \>", "Text", CellID->1527055413], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKPostcodeLookup", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[32]:=", CellID->643260994], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.825508`", ",", RowBox[{"-", "1.366991`"}]}], "}"}], "]"}], ",", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.82536`", ",", RowBox[{"-", "1.367951`"}]}], "}"}], "]"}], ",", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.826256`", ",", RowBox[{"-", "1.367242`"}]}], "}"}], "]"}], ",", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.825883`", ",", RowBox[{"-", "1.368161`"}]}], "}"}], "]"}], ",", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"51.824765`", ",", RowBox[{"-", "1.367669`"}]}], "}"}], "]"}]}], "}"}]], "Output", CellLabel->"Out[32]=", CellID->73520117] }, 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["Jon McLoone", "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["Postcode", "Item"], Cell["UK", "Item"], Cell["United Kingdom", "Item"], Cell["GeoLocation", "Item"], Cell["Postal", "Item"], Cell["postal code", "Item"], Cell["zip code", "Item"], Cell["address", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Knowledge Representation & Natural Language", "Item"], Cell["Geographic Data & 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["SymbolName (documented Wolfram Language symbol)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->79477165] }, 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["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->960273585] }, 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[BoxData[ Hyperlink[ Cell["The function relies on an external API provided by \ http://postcodes.io", "Text"], Cell["http://postcodes.io", "Text"]]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 53, 1, 70, "Title",ExpressionUUID->"8fdf9ba8-1ac6-4814-81ec-244b78d74e21", CellTags->"Title"]}, "Description"->{ Cell[614, 23, 88, 1, 70, "Text",ExpressionUUID->"f651da5a-638b-4716-809e-406f06182b44", CellTags->"Description"]}, "Definition"->{ Cell[727, 28, 887, 21, 70, "Section",ExpressionUUID->"b86cc7a1-ec7d-46c5-9e22-b5bba26fe215", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[10892, 287, 99, 3, 70, "Section",ExpressionUUID->"6b8d3ba7-86b2-4120-9dc9-5690565382e2", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[11016, 294, 1615, 42, 70, "Subsection",ExpressionUUID->"18d461ed-4d60-4bba-b6c0-519f02a7719f", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[14610, 414, 1131, 24, 70, "Subsection",ExpressionUUID->"6db988f9-dc2d-4aa2-a381-1707728305ad", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[15744, 440, 503, 8, 70, "Notes",ExpressionUUID->"d70cf10d-9454-4eb6-8fbd-58ce6c0a1cf1", CellTags->"TabNext", CellID->521904482], Cell[69688, 1537, 501, 8, 70, "Item",ExpressionUUID->"ad742480-a693-4ff7-a0d4-69e34fc1115b", CellTags->"TabNext", CellID->79477165], Cell[70940, 1570, 508, 8, 70, "Item",ExpressionUUID->"014e0bc7-3d8b-46ec-a7f3-b5fa8d6004bd", CellTags->"TabNext", CellID->960273585], Cell[73072, 1633, 485, 8, 70, "Item",ExpressionUUID->"4994d2c1-45bd-4950-a2eb-9e1d5383fe3c", CellTags->"TabNext", CellID->485448166], Cell[74802, 1692, 509, 8, 70, "Text",ExpressionUUID->"66ad8773-4d09-4fdd-aebe-7a0a5a523b7e", CellTags->"TabNext", CellID->567921317], Cell[76071, 1726, 495, 8, 70, "Text",ExpressionUUID->"37bc8277-c10a-4649-95b6-e3705d04b13b", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[16284, 453, 6400, 143, 70, "Section",ExpressionUUID->"84a8c3f5-0394-4b96-88ec-e5748b5392de", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[66901, 1433, 135, 3, 70, "Section",ExpressionUUID->"c80f036e-d889-4805-8b96-66caa0fd7548", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[67061, 1440, 683, 18, 70, "Subsection",ExpressionUUID->"1d36bcd0-22eb-4de7-b251-9a89271019fb", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[67811, 1465, 684, 18, 70, "Subsection",ExpressionUUID->"2ade37f0-1e5b-4396-9f75-164bfa258e5b", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[68751, 1504, 126, 4, 70, "Subsection",ExpressionUUID->"03a2af24-8926-4f3c-80c1-71d85d0ef53a", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[69024, 1517, 661, 18, 70, "Subsection",ExpressionUUID->"71f402b3-ad9e-4084-b94d-6d386be1e9bd", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[70226, 1550, 711, 18, 70, "Subsection",ExpressionUUID->"f0e330b4-01b4-495e-afaa-6e13b5b5da9e", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[71485, 1583, 762, 19, 70, "Subsection",ExpressionUUID->"f2a60667-0043-406d-946f-dbc3ddfe91e9", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[72455, 1613, 614, 18, 70, "Subsection",ExpressionUUID->"79904545-e91d-4e6d-a010-3bf55d42e9a2", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[73594, 1646, 767, 20, 70, "Subsection",ExpressionUUID->"4d224ce6-1d5f-4216-8230-4d21398683cc", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[74672, 1686, 127, 4, 70, "Section",ExpressionUUID->"0b41169e-15e5-4445-8b4b-0dd5ed4552d2", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[75348, 1705, 720, 19, 70, "Section",ExpressionUUID->"11cdb4d1-e971-4525-9cf8-edf18d0f11cf", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 147542, 3102}, {"Description", 147675, 3105}, {"Definition", 147812, 3108}, {"Documentation", 147978, 3112}, {"Usage", 148140, 3116}, {"Details & Options", 148312, 3120}, {"TabNext", 148485, 3124}, {"Examples", 149352, 3143}, {"Source & Additional Information", 149539, 3147}, {"Contributed By", 149730, 3151}, {"Keywords", 149902, 3155}, {"Categories", 150070, 3159}, {"Related Symbols", 150244, 3163}, {"Related Resource Objects", 150433, 3167}, {"Source/Reference Citation", 150632, 3171}, {"Links", 150812, 3175}, {"Tests", 150972, 3179}, {"Author Notes", 151138, 3183}, {"Submission Notes", 151312, 3187} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 53, 1, 70, "Title",ExpressionUUID->"8fdf9ba8-1ac6-4814-81ec-244b78d74e21", CellTags->"Title"], Cell[614, 23, 88, 1, 70, "Text",ExpressionUUID->"f651da5a-638b-4716-809e-406f06182b44", CellTags->"Description"], Cell[CellGroupData[{ Cell[727, 28, 887, 21, 70, "Section",ExpressionUUID->"b86cc7a1-ec7d-46c5-9e22-b5bba26fe215", CellTags->"Definition", CellID->474513213], Cell[1617, 51, 7528, 194, 70, "Input",ExpressionUUID->"8d5a573e-295d-4916-9f04-ac4c44c789fc", InitializationCell->True], Cell[9148, 247, 1729, 37, 70, "Input",ExpressionUUID->"7a72703b-8d84-4a87-9b0b-3d86256c800c", InitializationCell->True] }, Open ]], Cell[10892, 287, 99, 3, 70, "Section",ExpressionUUID->"6b8d3ba7-86b2-4120-9dc9-5690565382e2", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[11016, 294, 1615, 42, 70, "Subsection",ExpressionUUID->"18d461ed-4d60-4bba-b6c0-519f02a7719f", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[12656, 340, 310, 7, 70, "UsageInputs",ExpressionUUID->"90697430-a1dd-4069-ad4c-b4a3ff291d4f"], Cell[12969, 349, 73, 0, 70, "UsageDescription",ExpressionUUID->"9800a885-b5ec-4067-ab0e-29b9cab3b499"] }, Open ]], Cell[CellGroupData[{ Cell[13079, 354, 313, 7, 70, "UsageInputs",ExpressionUUID->"b862a509-0c21-4e3a-a6a6-7aa72bf46676"], Cell[13395, 363, 131, 4, 70, "UsageDescription",ExpressionUUID->"8f89ed9d-fec3-4b7e-b397-aa4bc53bcf6f"] }, Open ]], Cell[CellGroupData[{ Cell[13563, 372, 371, 13, 70, "UsageInputs",ExpressionUUID->"7b7faa57-ef30-4d98-8551-3c4db43c4cfd"], Cell[13937, 387, 99, 2, 70, "UsageDescription",ExpressionUUID->"e9692d94-210d-43b8-803e-01674fcf3edc"] }, Open ]], Cell[CellGroupData[{ Cell[14073, 394, 400, 11, 70, "UsageInputs",ExpressionUUID->"b9947cb9-8d5a-4753-a873-917ea505a934"], Cell[14476, 407, 85, 1, 70, "UsageDescription",ExpressionUUID->"3a7f8b11-ea17-47fc-a416-f0a3fce0b2d6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14610, 414, 1131, 24, 70, "Subsection",ExpressionUUID->"6db988f9-dc2d-4aa2-a381-1707728305ad", CellTags->"Details & Options", CellID->66019318], Cell[15744, 440, 503, 8, 70, "Notes",ExpressionUUID->"d70cf10d-9454-4eb6-8fbd-58ce6c0a1cf1", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[16284, 453, 6400, 143, 70, "Section",ExpressionUUID->"84a8c3f5-0394-4b96-88ec-e5748b5392de", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[22709, 600, 56, 1, 70, "Subsection",ExpressionUUID->"d4ca24e7-65f0-41f5-a2c4-0e230d99482a", CellID->285421464], Cell[22768, 603, 120, 2, 70, "Text",ExpressionUUID->"3c0ef06f-3ea3-4bde-8410-73f8293dc507", CellID->221583938], Cell[CellGroupData[{ Cell[22913, 609, 125, 3, 70, "Input",ExpressionUUID->"7b4bb57f-8387-4aa6-9952-d5ba3319687f", CellID->7099978], Cell[23041, 614, 908, 21, 70, "Output",ExpressionUUID->"7f98edc6-0583-4afc-94d1-ff3e2eb4579b", CellID->1076480047] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23998, 641, 47, 1, 70, "Subsection",ExpressionUUID->"38e0efd8-8dfa-4ea1-97db-3a929c835067", CellID->267254639], Cell[24048, 644, 80, 1, 70, "Text",ExpressionUUID->"fa5b9e05-c32b-4a83-bc8e-1aec3ce6b03c", CellID->414824544], Cell[CellGroupData[{ Cell[24153, 649, 166, 4, 70, "Input",ExpressionUUID->"d2d45a26-9903-43ab-bb27-dbdf236a32fe", CellID->586999621], Cell[24322, 655, 194, 6, 70, "Output",ExpressionUUID->"89345558-1a2c-475c-97dc-ec3dd2fa30eb", CellID->2132433777] }, Open ]], Cell[CellGroupData[{ Cell[24553, 666, 238, 7, 70, "Input",ExpressionUUID->"0f788709-6a2a-4445-8c69-26f5502ae070", CellID->2041934522], Cell[24794, 675, 40139, 681, 70, "Output",ExpressionUUID->"134f188a-5f0f-4684-8263-f7433011e828", CellID->278435504] }, Open ]], Cell[64948, 1359, 83, 1, 70, "Text",ExpressionUUID->"ca607c51-7a3e-4a91-b808-24b23a809ef4", CellID->386092355], Cell[CellGroupData[{ Cell[65056, 1364, 284, 9, 70, "Input",ExpressionUUID->"f43e4c24-33a8-43e7-a2b5-70a1ac9fb2b1", CellID->1506112898], Cell[65343, 1375, 230, 6, 70, "Output",ExpressionUUID->"c0321a6b-4541-4eb3-8530-caa7fcf500f3", CellID->124243863] }, Open ]], Cell[65588, 1384, 114, 3, 70, "Text",ExpressionUUID->"eef1c9c7-4dd6-46ec-a8c3-90a9db027d24", CellID->1527055413], Cell[CellGroupData[{ Cell[65727, 1391, 320, 9, 70, "Input",ExpressionUUID->"33a3a409-effe-4db3-abea-37a0efe20fc3", CellID->643260994], Cell[66050, 1402, 790, 24, 70, "Output",ExpressionUUID->"29dafbda-55b3-4550-88b6-5ff79e65daf5", CellID->73520117] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66901, 1433, 135, 3, 70, "Section",ExpressionUUID->"c80f036e-d889-4805-8b96-66caa0fd7548", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[67061, 1440, 683, 18, 70, "Subsection",ExpressionUUID->"1d36bcd0-22eb-4de7-b251-9a89271019fb", CellTags->"Contributed By", CellID->127820888], Cell[67747, 1460, 27, 0, 70, "Text",ExpressionUUID->"92a167f8-fe08-4248-bd2b-cb3043c34d66"] }, Open ]], Cell[CellGroupData[{ Cell[67811, 1465, 684, 18, 70, "Subsection",ExpressionUUID->"2ade37f0-1e5b-4396-9f75-164bfa258e5b", CellTags->"Keywords", CellID->547400482], Cell[68498, 1485, 24, 0, 70, "Item",ExpressionUUID->"4571e6f9-1aa7-4129-96d4-60b709de6a46"], Cell[68525, 1487, 18, 0, 70, "Item",ExpressionUUID->"acbbeb30-c1cf-43a1-bcf7-29f1263de28c"], Cell[68546, 1489, 30, 0, 70, "Item",ExpressionUUID->"ce363a80-497c-4dc4-9fcd-4d6b5b22d640"], Cell[68579, 1491, 27, 0, 70, "Item",ExpressionUUID->"7bb4260a-708c-435a-bfc2-18990daebe30"], Cell[68609, 1493, 22, 0, 70, "Item",ExpressionUUID->"14624c9d-c60c-4cf4-91e3-489175c46cec"], Cell[68634, 1495, 27, 0, 70, "Item",ExpressionUUID->"c456a08f-674e-471f-a8bd-66f4e87da905"], Cell[68664, 1497, 24, 0, 70, "Item",ExpressionUUID->"b2a84c05-4488-443b-b096-13a3afd09293"], Cell[68691, 1499, 23, 0, 70, "Item",ExpressionUUID->"64c8307f-1984-451a-95de-e436733f4bc0"] }, Open ]], Cell[CellGroupData[{ Cell[68751, 1504, 126, 4, 70, "Subsection",ExpressionUUID->"03a2af24-8926-4f3c-80c1-71d85d0ef53a", CellTags->"Categories", CellID->749076926], Cell[68880, 1510, 59, 0, 70, "Item",ExpressionUUID->"1b5063e9-cb66-4216-8b4a-066aac962134"], Cell[68942, 1512, 45, 0, 70, "Item",ExpressionUUID->"724f1f58-028e-44e3-b4c4-4b67041fd785"] }, Open ]], Cell[CellGroupData[{ Cell[69024, 1517, 661, 18, 70, "Subsection",ExpressionUUID->"71f402b3-ad9e-4084-b94d-6d386be1e9bd", CellTags->"Related Symbols", CellID->161079978], Cell[69688, 1537, 501, 8, 70, "Item",ExpressionUUID->"ad742480-a693-4ff7-a0d4-69e34fc1115b", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[70226, 1550, 711, 18, 70, "Subsection",ExpressionUUID->"f0e330b4-01b4-495e-afaa-6e13b5b5da9e", CellTags->"Related Resource Objects", CellID->588449267], Cell[70940, 1570, 508, 8, 70, "Item",ExpressionUUID->"014e0bc7-3d8b-46ec-a7f3-b5fa8d6004bd", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[71485, 1583, 762, 19, 70, "Subsection",ExpressionUUID->"f2a60667-0043-406d-946f-dbc3ddfe91e9", CellTags->"Source/Reference Citation", CellID->642091068], Cell[72250, 1604, 168, 4, 70, "Input",ExpressionUUID->"4cfe2999-9939-42b8-8e3d-749cb40f97cc"] }, Open ]], Cell[CellGroupData[{ Cell[72455, 1613, 614, 18, 70, "Subsection",ExpressionUUID->"79904545-e91d-4e6d-a010-3bf55d42e9a2", CellTags->"Links", CellID->521525586], Cell[73072, 1633, 485, 8, 70, "Item",ExpressionUUID->"4994d2c1-45bd-4950-a2eb-9e1d5383fe3c", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[73594, 1646, 767, 20, 70, "Subsection",ExpressionUUID->"4d224ce6-1d5f-4216-8230-4d21398683cc", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[74386, 1670, 129, 4, 70, "Input",ExpressionUUID->"02623031-2a9d-463e-8d6e-f1d97b7c5f08", CellID->667877521], Cell[74518, 1676, 93, 3, 70, "Output",ExpressionUUID->"391d421e-486c-4397-993e-dc719e01aa00", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[74672, 1686, 127, 4, 70, "Section",ExpressionUUID->"0b41169e-15e5-4445-8b4b-0dd5ed4552d2", CellTags->"Author Notes", CellID->795110225], Cell[74802, 1692, 509, 8, 70, "Text",ExpressionUUID->"66ad8773-4d09-4fdd-aebe-7a0a5a523b7e", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[75348, 1705, 720, 19, 70, "Section",ExpressionUUID->"11cdb4d1-e971-4525-9cf8-edf18d0f11cf", CellTags->"Submission Notes", CellID->843283583], Cell[76071, 1726, 495, 8, 70, "Text",ExpressionUUID->"37bc8277-c10a-4649-95b6-e3705d04b13b", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)