(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 277491, 6055] NotebookOptionsPosition[ 122129, 3105] NotebookOutlinePosition[ 264339, 5775] CellTagsIndexPosition[ 262530, 5725] WindowTitle->Cartogram | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Cartogram", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->51637207], Cell["\<\ Generate geometrically distorted maps, where the distortion conveys \ information derived from the input data\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->443442022], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cartogram", "[", RowBox[{ RowBox[{"geoPolysi", ":", RowBox[{"{", "__Rule", "}"}]}], ",", RowBox[{"numberOfIterations_", ":", "30"}], ",", RowBox[{"res_", ":", "100"}], ",", " ", RowBox[{"plotAll_", "?", "BooleanQ"}]}], "]"}], ":=", "\n", " ", RowBox[{"Module", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ "regions", ",", "masks", ",", "map", ",", "mapPairs", ",", "population", ",", "numberOfCells", ",", "cellDensity", ",", "gPairs", ",", "geoPolys"}], "}"}], ",", "\n", " ", "\n", " ", RowBox[{ RowBox[{"geoPolys", " ", "=", " ", RowBox[{"Keys", "[", "geoPolysi", "]"}]}], ";", "\n", " ", "\n", " ", RowBox[{"regions", " ", "=", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", RowBox[{"EntityValue", "[", RowBox[{"geoPolys", ",", "\"\\""}], "]"}], "]"}], "]"}]}], ";", "\n", " ", "\n", " ", RowBox[{"map", " ", "=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"masks", " ", "=", " ", RowBox[{ RowBox[{"Function", " ", "[", "\n", " ", RowBox[{"poly", ",", " ", RowBox[{"ImageData", " ", "[", "\n", " ", RowBox[{ RowBox[{"Binarize", " ", "@", " ", RowBox[{ "Rasterize", " ", "[", "\n", " ", RowBox[{ RowBox[{ "Style", " ", "[", "\n", " ", RowBox[{ RowBox[{ "Graphics", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"White", ",", " ", RowBox[{"MeshPrimitives", "[", RowBox[{ RowBox[{"DiscretizeGraphics", " ", "@", " ", "poly"}], ",", " ", "2"}], "]"}]}], "}"}], ",", "\n", " ", RowBox[{"Background", " ", "->", " ", "Black"}], ",", "\n", " ", RowBox[{"PlotRange", " ", "->", " ", RowBox[{"Reverse", " ", "@", " ", RowBox[{ "GeoBounds", " ", "[", "\n", " ", RowBox[{"EntityValue", "[", RowBox[{"geoPolys", ",", "\"\\""}], "]"}], "\n", " ", "]"}]}]}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"Antialiasing", " ", "->", " ", "False"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"RasterSize", " ", "->", " ", "res"}]}], "\n", " ", "]"}]}], ",", "\n", " ", "\"\\""}], "\n", " ", "]"}]}], "\n", " ", "]"}], " ", "/@", " ", RowBox[{"EntityValue", "[", RowBox[{"geoPolys", ",", " ", "\"\\""}], "]"}]}]}], ";", "\n", "\n", " ", RowBox[{"Fold", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"#1", " ", "+", " ", RowBox[{"Clip", " ", "[", "\n", " ", RowBox[{ RowBox[{"#2", "-", RowBox[{"(", RowBox[{"#2", "*", "#1"}], ")"}]}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", "Infinity"}], "}"}]}], "\n", " ", "]"}]}], "&"}], ",", "\n", " ", RowBox[{ "MapIndexed", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"#1", " ", "*", " ", RowBox[{"First", "[", "#2", "]"}]}], "&"}], ",", "\n", " ", "masks"}], "\n", " ", "]"}]}], "\n", " ", "]"}]}], "\n", " ", ")"}]}], ";", "\n", " ", "\n", " ", RowBox[{"mapPairs", " ", "=", " ", RowBox[{"BlockMap", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "\n", " ", RowBox[{ RowBox[{"3", "*", RowBox[{"Count", " ", "[", "\n", " ", RowBox[{ RowBox[{ "Position", " ", "[", "\n", " ", RowBox[{ RowBox[{"Flatten", "[", "#", "]"}], ",", "\n", " ", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"_", "?", "EvenQ"}], ",", "\n", " ", "2"}], "\n", " ", "]"}]}], " ", "+", " ", RowBox[{"Count", " ", "[", "\n", " ", RowBox[{ RowBox[{ "Position", " ", "[", "\n", " ", RowBox[{ RowBox[{"Flatten", "[", "#", "]"}], ",", "\n", " ", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"_", "?", "OddQ"}], ",", "\n", " ", "2"}], "\n", " ", "]"}], " ", "-", "1"}]}], " ", "\n", " ", "}"}], "&"}], ",", "\n", " ", RowBox[{"ArrayPad", "[", RowBox[{"map", ",", " ", "1", ",", " ", "0"}], "]"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"3", ",", " ", "3"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}]}], "\n", " ", "]"}]}], ";", "\n", "\n", " ", RowBox[{"population", " ", "=", " ", RowBox[{"QuantityMagnitude", "[", RowBox[{"Values", "[", "geoPolysi", "]"}], "]"}]}], ";", "\n", "\n", " ", RowBox[{"numberOfCells", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Count", "[", RowBox[{"map", ",", " ", "#", ",", " ", "2"}], "]"}], ")"}], " ", "&"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", RowBox[{"EntityList", "[", "geoPolys", "]"}], "]"}], "]"}]}]}], ";", "\n", " ", "\n", " ", RowBox[{"cellDensity", " ", "=", " ", RowBox[{"N", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"population", " ", "/", " ", "numberOfCells"}], ",", " ", "0"}], "]"}], "]"}]}], ";", "\n", " ", "\n", " ", RowBox[{"gPairs", " ", "=", " ", RowBox[{"mapPairs", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a_Integer", ",", " ", "b_Integer"}], "}"}], " ", "->", " ", RowBox[{"g", "[", RowBox[{"a", ",", " ", "b"}], "]"}]}]}]}], ";", "\n", "\n", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"f", " ", "[", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"a1_", ",", " ", "a2_"}], "]"}], ",", " ", RowBox[{"g", "[", RowBox[{"b1_", ",", " ", "b2_"}], "]"}], ",", " ", RowBox[{"g", "[", RowBox[{"c1_", ",", " ", "c2_"}], "]"}]}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"d1_", ",", " ", "d2_"}], "]"}], ",", " ", RowBox[{"g", "[", RowBox[{"e1_", ",", " ", "e2_"}], "]"}], ",", " ", RowBox[{"g", "[", RowBox[{"f1_", ",", " ", "f2_"}], "]"}]}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"g1_", ",", " ", "g2_"}], "]"}], ",", " ", RowBox[{"g", "[", RowBox[{"h1_", ",", " ", "h2_"}], "]"}], ",", " ", RowBox[{"g", "[", RowBox[{"i1_", ",", " ", "i2_"}], "]"}]}], "}"}]}], "\n", " ", "}"}], "]"}], " ", ":=", "\n", " ", "\n", " ", RowBox[{"Module", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"highest", ",", " ", "nsecurity"}], "}"}], ",", "\n", " ", RowBox[{"If", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"numberOfCells", "[", RowBox[{"[", "e1", "]"}], "]"}], " ", ">", " ", "1"}], " ", "&&", " ", RowBox[{"e1", " ", "=!=", " ", "0"}]}], ",", "\n", "\n", " ", RowBox[{ RowBox[{"highest", " ", "=", " ", RowBox[{ "First", " ", "[", "\n", " ", RowBox[{ "Sort", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ "a1", ",", " ", "b1", ",", " ", "c1", ",", " ", "d1", ",", " ", "f1", ",", " ", "g1", ",", " ", "h1", ",", " ", "i1"}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{"cellDensity", "[", RowBox[{"[", RowBox[{"#1", "+", "1"}], "]"}], "]"}], " ", ">", " ", RowBox[{"cellDensity", "[", RowBox[{"[", RowBox[{"#2", "+", "1"}], "]"}], "]"}]}], "&"}]}], "\n", " ", "]"}], "\n", " ", "]"}]}], ";", "\n", " ", RowBox[{"nsecurity", " ", "=", " ", RowBox[{ "RandomChoice", " ", "[", "\n", " ", RowBox[{ "Cases", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", " ", "a2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"b1", ",", " ", "b2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"c1", ",", " ", "c2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"f1", ",", " ", "f2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i1", ",", " ", "i2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"h1", ",", " ", "h2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"g1", ",", " ", "g2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"d1", ",", " ", "d2"}], "}"}]}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"highest", ",", " ", "s_"}], "}"}], " ", "->", " ", "s"}], ",", "\n", " ", RowBox[{"{", "1", "}"}], ",", "\n", " ", "1"}], "\n", " ", "]"}], "\n", " ", "]"}]}], ";", "\n", " ", RowBox[{"If", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cellDensity", "[", RowBox[{"[", RowBox[{"highest", "+", "1"}], "]"}], "]"}], " ", ">", " ", RowBox[{"cellDensity", "[", RowBox[{"[", RowBox[{"e1", "+", "1"}], "]"}], "]"}]}], " ", "&&", " ", RowBox[{"e2", " ", "<", " ", "12"}]}], ")"}], " ", "||", " ", RowBox[{"e2", " ", "<", " ", "8"}]}], ",", "\n", " ", RowBox[{"g", "[", RowBox[{"highest", ",", " ", "e2"}], "]"}], ",", "\n", " ", RowBox[{"g", "[", RowBox[{"e1", ",", " ", "e2"}], "]"}]}], "\n", " ", "]"}]}], ",", "\n", "\n", " ", RowBox[{"g", "[", RowBox[{"e1", ",", "e2"}], "]"}]}], "\n", " ", "]"}]}], "\n", " ", "]"}]}], "\n", " ", ")"}], ";", "\n", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{"regionStep", "[", "gPairs_", "]"}], " ", ":=", " ", "\n", " ", RowBox[{"BlockMap", " ", "[", "\n", " ", RowBox[{"f", ",", "\n", " ", RowBox[{"ArrayPad", "[", RowBox[{"gPairs", ",", " ", "1", ",", " ", RowBox[{"g", "[", RowBox[{"0", ",", " ", "0"}], "]"}]}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "\n", " ", "]"}]}], ";", "\n", "\n", " ", RowBox[{ RowBox[{"recalcSecurities", "[", "gPairs_", "]"}], " ", ":=", " ", "\n", " ", RowBox[{"BlockMap", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"g", " ", "[", "\n", " ", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "\n", " ", RowBox[{ RowBox[{"3", "*", RowBox[{ "Count", " ", "[", "\n", " ", RowBox[{ RowBox[{ "Position", " ", "[", "\n", " ", RowBox[{ RowBox[{"Flatten", "[", "#", "]"}], ",", "\n", " ", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"_", "?", "EvenQ"}], ",", "\n", " ", "2"}], "\n", " ", "]"}]}], " ", "\n", " ", "+", " ", "\n", " ", RowBox[{ "Count", " ", "[", "\n", " ", RowBox[{ RowBox[{ "Position", " ", "[", "\n", " ", RowBox[{ RowBox[{"Flatten", "[", "#", "]"}], ",", "\n", " ", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"_", "?", "OddQ"}], ",", "\n", " ", "2"}], "\n", " ", "]"}], " ", "-", " ", "1"}]}], "\n", " ", "]"}], "&"}], ",", "\n", " ", RowBox[{"ArrayPad", "[", RowBox[{ RowBox[{"gPairs", "[", RowBox[{"[", RowBox[{"All", ",", " ", "All", ",", " ", "1"}], "]"}], "]"}], ",", " ", "1", ",", " ", "\"\<-\>\""}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "\n", " ", "]"}]}], ";", "\n", "\n", " ", RowBox[{ RowBox[{"recalcDensities", "[", "gPairs_", "]"}], " ", ":=", " ", RowBox[{"Module", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", "numberOfCells", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"numberOfCells", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Count", "[", RowBox[{ RowBox[{"gPairs", "[", RowBox[{"[", RowBox[{"All", ",", " ", "All", ",", " ", "1"}], "]"}], "]"}], ",", " ", "#", ",", " ", "2"}], "]"}], ")"}], "&"}], " ", "/@", " ", "regions"}]}], ";", "\n", " ", RowBox[{"cellDensity", " ", "=", " ", RowBox[{"N", "[", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"population", " ", "/", " ", RowBox[{"(", RowBox[{"numberOfCells", " ", "+", " ", "1"}], ")"}]}], ",", " ", "0"}], "]"}], "]"}]}]}]}], "\n", " ", "]"}]}], ";"}], "\n", " ", ")"}], ";", "\n", " ", "\n", " ", RowBox[{"steps1", " ", "=", " ", RowBox[{"NestList", " ", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"recalcDensities", "[", "#", "]"}], ";", "\n", " ", RowBox[{"recalcSecurities", "[", RowBox[{"regionStep", "[", "#", "]"}], "]"}]}], "\n", " ", ")"}], "&"}], ",", "\n", " ", "gPairs", ",", "\n", " ", "numberOfIterations"}], "\n", " ", "]"}]}], ";", "\n", " ", RowBox[{"If", "[", "\n", " ", RowBox[{ RowBox[{"TrueQ", "[", "plotAll", "]"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{"ArrayPlot", "[", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", " ", "All", ",", " ", "1"}], "]"}], "]"}], "]"}], "&"}], " ", "/@", " ", "steps1"}], ",", "\n", " ", RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Last", "[", "steps1", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", " ", "All", ",", " ", "1"}], "]"}], "]"}], "]"}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Cartogram", "[", RowBox[{ RowBox[{"geoPolysi", ":", RowBox[{"{", "__Rule", "}"}]}], ",", RowBox[{"numberOfIterations_", ":", "30"}], ",", RowBox[{"res_", ":", "100"}]}], "]"}], ":=", RowBox[{"Cartogram", "[", RowBox[{ "geoPolysi", ",", "numberOfIterations", ",", "res", ",", " ", "False"}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Cartogram", "[", RowBox[{"geoPolys_", ",", " ", "opts___"}], "]"}], " ", ":=", " ", "\n", " ", RowBox[{"Cartogram", " ", "[", "\n", " ", RowBox[{ RowBox[{"Normal", " ", "[", "\n", " ", RowBox[{"DeleteMissing", "[", "\n", " ", RowBox[{"EntityValue", " ", "[", "\n", " ", RowBox[{ "geoPolys", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\""}], "\n", " ", "]"}], "\n", " ", "]"}], "\n", " ", "]"}], ",", "\n", " ", "opts"}], "\n", " ", "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.771702123150633*^9, 3.771702151400058*^9}}, CellTags->"TabNext", CellID->793769091] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", StyleBox["reg", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->201493861], Cell[TextData[{ "generates a plot of width 100 in which geographic region ", Cell[BoxData[ StyleBox["reg", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], StyleBox[" ", FontSlant->"Italic"], "specified in the form of an ", Cell[BoxData[ TagBox[ ButtonBox["Entity", BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Entity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object are displayed after 30 iterations; the destortion is based on \ equalising the population densities by default." }], "UsageDescription", CellID->172784440] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["reg", "TI"], StyleBox["1", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["val", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["reg", "TI"], StyleBox["2", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["val", "TI"], StyleBox["2", "TR"]]}], ",", "\[Ellipsis]"}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->167975583], Cell[TextData[{ "generates", Cell[BoxData[ StyleBox[" ", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "a", Cell[BoxData[ StyleBox[" ", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "plot", Cell[BoxData[ StyleBox[" ", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "in", Cell[BoxData[ StyleBox[" ", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "which", Cell[BoxData[ StyleBox[" ", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "geographic", Cell[BoxData[ StyleBox[" ", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "regions ", Cell[BoxData[ SubscriptBox[ StyleBox["reg", "TI"], StyleBox["1", "TR"]]]], StyleBox[" ", FontSlant->"Italic"], "and ", Cell[BoxData[ SubscriptBox[ StyleBox["reg", "TI"], StyleBox["2", "TR"]]]], " specified in the form of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Entity", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Entity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects are displayed after 30 iterations, where the distortion is based \ on the values ", Cell[BoxData[ SubscriptBox[ StyleBox["val", "TI"], StyleBox["1", "TR"]]]], StyleBox[" ", FontSlant->"Italic"], "and ", Cell[BoxData[ SubscriptBox[ StyleBox["val", "TI"], StyleBox["2", "TR"]]]], "." }], "UsageDescription", CellID->951748196] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{ StyleBox["reg", "TI"], ",", StyleBox["iterations", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->323057875], Cell[TextData[{ "generates a plot in which geographic region ", Cell[BoxData[ StyleBox["reg", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], StyleBox[" ", FontSlant->"Italic"], "is displayed after the specified number of ", Cell[BoxData["iterations"], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->615419722] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{ StyleBox["reg", "TI"], ",", StyleBox["iterations", "TI"], ",", StyleBox["res", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->59183174], Cell[TextData[{ "generates a plot of width ", Cell[BoxData[ StyleBox["res", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], StyleBox[".", FontSlant->"Italic"] }], "UsageDescription", CellID->925549106] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{ StyleBox["reg", "TI"], ",", StyleBox["iterations", "TI"], ",", StyleBox["res", "TI"], ",", StyleBox["plotAll", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->294404140], Cell[TextData[{ "generates a list of plots of width ", Cell[BoxData[ StyleBox["res", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " from the undistorted map to the specified number of ", Cell[BoxData[ StyleBox["iterations", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->845080188] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["reg", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Entity", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Entity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects such as countries corresponding to extended geographic regions or \ geometric constructs with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["GeoPosition", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/GeoPosition", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " coordinates." }], "Notes", CellID->815695597], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " must be a number." }], "Notes", CellID->706310900] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ Cell[BoxData["Cartogram"], "InlineFormula", FontFamily->"Source Sans Pro"], " works with a single geographic entity:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7717057005372334`*^9, 3.7717057125690465`*^9}, { 3.859387084750602*^9, 3.859387095216395*^9}}, CellID->629838371], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", TemplateBox[{"\"Central Europe\"", RowBox[{"EntityClass", "[", RowBox[{"\"Country\"", ",", "\"CentralEurope\""}], "]"}], "\"EntityClass[\\\"Country\\\", \\\"CentralEurope\\\"]\"", "\"countries\""}, "EntityClass"], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771691051452855*^9, 3.771691073658449*^9}}, CellLabel->"In[15]:=", CellID->254769753], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzN1FGSgyAMBmCVFfAYPcReZI/Q2ffe/22xFQiQYELcTv8Z29FCPgPW2/3x c1+mafoOx284NkHmkP1DMkea+cjg9NwQ3dmcA676kHVdOcQzBcYyvD+MPjNB 45Cwbqx9FQSI99BIIXvI2YhHwXqYLDQGB4nrBnvY46nUBh9Jjo1RGAQSEuoC gm+cI1+AKMM22KvVEBSCGPiTzBAoZMzAAQrBDBRhCaWypKBK6zCFpDjnliLM fT8vH+OeWZqcLBYf6BiHEr7RTRchjkaO4IYAcSmkYS4jKMWEbGaoOEKUioFR EI2RFGMI4wIihjQuRAyBiAXaqImEDBiU0hoqBFMQIipjBqLgxq6MEjVCCTrD soRgKIiM9ASj2I5sdAWj2fJo9AW9Yc+ACwimofqLnBOqdxbXULx6mYZaEG3H //UBmXcYg8jHGa8pYmmgDXE7IoO3ZM2AEaIuUpvXG+UpNmTIKJsAV/GRRbGi cKeLOJn4rR7YW5DuRK6x5buVIILyH5Y/dEZ+Ew== "], {{0, 0}, {100, 53}}, {0, 9}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.771691087632106*^9}, CellLabel->"Out[15]=", CellID->66102363] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["A list of countries:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7716922305885677`*^9, 3.771692232439621*^9}, { 3.7716924366982074`*^9, 3.7716924460841002`*^9}, 3.859387074075232*^9}, CellID->171041979], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{"{", RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], ",", TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], ",", TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771691287086506*^9, 3.7716913204601994`*^9}}, CellLabel->"In[16]:=", CellID->604128821], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzV1tERgyAMBmBIJ+kE3aUjeH3v/m9FEdFKEiI/9JqeZ6023yUoeJ/ez4mc c4+wvcJ2s4X9H/b4N8M5JhvAcPsoXwEEdgbrAYyQWSkKYeitAxv9EQjwewNF CAYR9UbGEL0NAhpCo0CGNN6dqxjRqWggFLZRicgKzZ94VA07eS4kKdpLUA2M IJdhGaZ1yrtiWO+FnmXgCb/uvD8ZJ2nLZCBCXr+FXk9OZCGOobUtP3cVBBWA ilJyGr1X8+RcIlglEvsE2qgvBybj692ZJ2hZW1IYjWOICIZoMiqJSqWtjjqk lRhiVCBMr6DNwhgy1EzE94TOht4xEJGM9PX4M85gz1xMWSCkNRxiXIoPzm4r xg== "], {{0, 0}, {100, 47}}, {0, 3}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.771691349906459*^9}, CellLabel->"Out[16]=", CellID->721279089] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["A list of countries using user-input values:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7716924519115515`*^9, 3.7716924856622257`*^9}, { 3.859387103522355*^9, 3.8593871075866823`*^9}}, CellID->836135522], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "150"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716913916936436`*^9, 3.7716914706634026`*^9}, { 3.7716918266082397`*^9, 3.771691843433205*^9}}, CellLabel->"In[24]:=", CellID->306048215], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzV1lsOgjAQBdB2XIkrcC8ugfjv/v8sQkmRzgtui4whQsU53kGi9+H9HCiE 8EjbK203X/nf4a+rGSEw3QBGKKt+BhAoDNYDGKmzEgph6KMDG+0RCHC+gSLk C9IB6UBcyRCAHncgRPgDA6EoQKnQ+CCadq3tTcBYtClkBMaAC7Uc9iT527+D cCCmTABBIVwh4vwU48ZgpLTqmFPqG5cy5vmueYh16WObjy1ErACWKMuCPqvV iCzKj8AQJcP1l5MUBzxBxH98/ZKsSjJAxCHDSEgKLIeAAIkuBoPoozo+LLyx haDE9D+hsVGdWAsiG3k3L6MN5pXdLSuE9BsOMXbVBwChKjY= "], {{0, 0}, {100, 47}}, {0, 3}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.77169141690624*^9, 3.771691439446941*^9}, 3.7716914793012857`*^9, {3.7716918357677145`*^9, 3.7716918522327023`*^9}}, CellLabel->"Out[24]=", CellID->180411849] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.85938712781007*^9, 3.859387128393289*^9}}, CellID->890561554], Cell[TextData[{ "Run ", Cell[BoxData["Cartogram"], "InlineFormula", FontFamily->"Source Sans Pro"], " for just one iteration:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.771692509158371*^9, 3.77169252628061*^9}, { 3.859387144137609*^9, 3.85938714821771*^9}}, CellID->520459324], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "150"}]}], "}"}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716915215971403`*^9, 3.7716915271153793`*^9}, { 3.7716918565880566`*^9, 3.7716919244195557`*^9}}, CellLabel->"In[29]:=", CellID->715192840], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzV1lsOgjAQBdC2rsQVuBeXQPx3/3+2Qkkr82q5FLmGCBXnZAYM3qf3cwrO uUfcXnG7taX9G+25muEcUw1guDL0GUCgMFgPYMTKSlMIQx8d2DgegQDnGyhC viADkAHElQwBGPELhAh/YCAUBSiVkF4hzLvW8iYgJWyCbIEx4ALZiLmTfPf3 GHbE2NNuAUn45c37jcFIaZUaE03Eun6NsZ/vWgtRRx/bcmwhPAFYWlkXSKRS qhFZlB+BIUqGqy93UhzwRFKCVF+8JFVERDNsxC7DSMgKZlQyAiOGGDyizQow LJVoNCgISMz/Ew42mInhiWzk3byMNphPuksShPQMhxhd+QDHSio9 "], {{0, 0}, {100, 47}}, {0, 3}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771691538511938*^9, {3.771691860100656*^9, 3.771691926123*^9}}, CellLabel->"Out[29]=", CellID->858297672] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[StyleBox["Run it for five iterations with a width of 400 \ pixels.", FontSlant->"Plain"]], "Text", TaggingRules->{}, CellChangeTimes->{{3.7716925354500847`*^9, 3.7716925526201067`*^9}, { 3.7716926703252354`*^9, 3.771692693925104*^9}, {3.859387159705536*^9, 3.8593871907658787`*^9}}, FontSlant->"Italic", CellID->194306458], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "150"}]}], "}"}], ",", "5", ",", "400"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771691551253807*^9, 3.771691554013424*^9}, { 3.771691862531113*^9, 3.7716918629559765`*^9}}, CellLabel->"In[26]:=", CellID->447693131], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3cGOJUeBheGCWcASiSeYt5gtS7aM+gFAGDQbIxkkNK/ES96xp0x19a26 NzMyI+JEZHzfYmTs7q5bmRHnF7TH/s8//e0Pf/nly8vL33/94//5wx//+bsf fvjj//73b378D1++//v//PX77/78++//8d1fv/vhv/70Hz/+yV/94uXltz/+ +J/++AYAhf4CALu9hiPdLgBmIhwAFBEOAIoIBwBFhAOAIsIBQBHhAKCIcABQ RDgAKCIcABQRDgCKCAcARYQDgCLCwQr+tSX9AWEmwsEiNtuxWRZ9GdCX3dKf 9FKEg0UIxyUJR4RwsI6T7RCOoP2B0I4OhIPVCMdEqvRCPqoTDlYjHGNq0Qjh aEQ4WM2//v0bFseSoSDVdUuGcNQiHKxGOEYjHNMRDtbxtvml1diflZ7fxcc/ OV3ROiejSj6q/4IzEg5WUL0UeyLSriw7P8DIejbigD4fuM/jqvfSvhIOVtMy Gq3GvPOXa6fW5HJAxfcoHKymRRdaL3nnL9dOejuXVvE9CgeradGFRkue+rpV pGeSz1V5ucLBgs4PcvXpbvoBznyw59IryHFn3rtwsKZ2Q126yU0/yROv01G6 IdGpo6ayC/Mt4WA13Zb50y+X+jAf3f6/Aq8f48mMpOeN+s5fIuFgNT2X+eOX S32Yj27Csarzl0g4WFNwsQeRXi/Czlwf4eDy0gs9ro/P6uOkZMeNds7cKeHg 8oqGtN1KD+huQz4dk9yw0daZOyUczOXRBhb94OfO/NzpbK5Kzymjs8PXUDiY y6MBLPrBz535udPZnJSeO0Znh6+hcDCmAxtY5RdZ0/Nt6bZjdHb4egoHAzo8 gCd/+rLSA0bMsRsqHIzm2PRV+UWWlV4vYo5dUuFgNMemr8ovsqz0ehFz7JIK B6NJj+iK0utFWOklFQ5GdnIPq/wiK0jvFmGlF1M4GFl6UFeR3i3yii6mcDCy 9KCuIj1aDGH/xRQORpYe1FWkF4sh7L+YwsGYqm9ji1/zMtKLxRD2X0/hYEzp KV1LerEYwv7rKRyMKT2lq0hvFWPZeT2FgwGl13Qh6aFiIPtvqHAwoPSaLiS9 VQxk/w0VDgaUXtOFpLeKsey8ocLBaNJTuqL0XDGKnZdUOBhNekQXlV4s8vZf UuFgNOkFXVR6tMjbf0mFg7j0ZPJVerro6vCdFQ6C0jPJ59J7Rlvnb65wMIjX ybqpyQDSw0YrtW6rcDCa9GoiHNdU8ZIKB6NJrybCcU0VL6lwMJr0aiIcV1P9 kgoHo0mvJsJxNdUvqXAwiPRY8lV652jr/G0VDgaRHku+Sg8bbZ2/rcJBXHom uZceNjo5fGeFg7j0THIvvWf0c+zOCgcjSC8l30iPGf0cu7DCQUR6GtmQ3jN6 OHx/hYOI9C6yIT1p9HD4/goHjaSXj1PSk0Ynx263cNBOevw4JT1ptHXmagsH TaXHj+PSw0ZbZ+61cNBUevw4Kz1vtHLmXgsHTaVnj7PS80YrZ+61cNBHev84 KD1vNHT4OgsHfaT3j+PS80ZDx66zcNBHevw4Lr1tNHTsOgsHfaTHj+PS20ZD x66zcNBBevk4Jb1tNHTsRgsHTaU3jwrS20ZzpfdaOOggvXyckl41Otl/o4WD dtKDRx3pPaOT/VdbOGgnPXjUkd4zOtl/tYVjHC+PpT9amfTOcdynb/P5wvTf NxrZf8eFI+hJKWZvx6v0CnLc20vcszCd9412dl5t4eivqBdTh+OmHVN59BI3 hyW1crTz/F4LR3/HwjFjQdJDyIa6r/t1bdKDxyk737Vw9CccDKLu6/4iHPPb +a6Fo7OT1Xhrxyw1SU8j30gdg/QcUmbzhQpHZ1XC8SQoY0rvJT9Jn4Lb2yK9 /wPG9PxVCkd/C4bjph0J6Xe+V3oj+cTzVyYc/QkHfaTf+V7pjeQTz1+ZcPTX Lhwv//7tj/S3+Ln0ji4h/ZLLpNeRz22+OOHorGk1Pu3IUNKzekFvDzb7Zkvt 3K4OI8lHm69PODoTDk5Kv8OaShesw2au5tiLE47OOofjif7fe3px53P30Pq/ sj6Klu3RD2gzqxd3+JUJR2fpXHzV/3tPze+8bsIhHC0dfmXC0V+6GD/r+S2n hvcCer6mrJObFhneSZ1/WcLRU7oV39j5aat84+n1nViV5z+FY7MWnN9JVXlZ wtFHthGPPP+0Vb7x9O5eRJV3cW3pPZ5AxactHH1kA/HI809b5RtPL+5FVHkX 15Ze5QlUfNrC0Vo2DU9sfuaKDyG9u5dS8b1czN1CBid6NNUftXC0kC1CXbWe SXpuL6XWS1lNer8zWjxJ4TgjPeo9VHxc6bm9joovZU3pLe+n0QMUjlLpIc9o 8RjT6zur6u9iQek576TdAxSOUukJz2jxGNMDPKvq72JB6UXvpN0DnDccLdbs +Zfjpd4zfxGOo2q9gsWlR72hDk9v3nDcdox5z6+1lFoPM73Bs6pypHmVnvnK +jy0C4ejz1dZ3MdnVfQw0wM8sVrHm5073Gf2z+j50ITj5FfhkY9P79HDTG/w rGqdcG47/klZkRYc0OdxCcfJr8IjH5/eo4eZHuBZ1Trh3ISj0NThuPVqx+YX op30PI+u4iFf2Z7tLVrvPfN+97W+1Phfxto8nnuzh+N2btKb/uK0lt7sUdwm /FfHzuvMYh/eduFoJL1hxKRneyzpi7iK/nMtHC2k14uY9FSPJX0RVyEcfb5Q B+kBIyy92aNIX8QlfHn3Gxn9v7RwVJTeLUaRXu689F2kh2A7hIPrSc/2WNL3 kk56tkM4uKT0Wg8kfS+5IOHgktJrPZD0veSChINLSq/1oNJ3lItIheOlzb/i AV5UY4fqt4+ltA7H5h3v+bVYRHqV51Dx6rGa8+F4efePs3v7g5fP/hl3T5z8 DO8/DCtLj/FMal06FiQcXEl6jGdS69KxoNJwbN7cPT/m0U/89Mvd3pXoyU85 9kW5mPQYz+TgZMC+cPS8+Hu+Yv9PxRTSSzyut7v88c/AAaOFA44JzvL4OiwJ SxEOriG9zUPrsCQsRTiYXXqVR9dhRljNmb+rKj0YoBobKm4FvNkfjvRCwCfS wzycpnMBr/w3DqaW3ulRVNwE2CQcTC092KOouAmw6eT/53h6NlhderDzak0B 7OfvqmJq6dkeQoehgPcO/DeO9FTAV+nNHkWLcYBHhIOppQd7FC3GAR459nsc 72/uTUrISQ/2QGpvAzxUJRyP/hK0ll7rgdTYA9ilz786Nr0uXFbRlvYZ8JQO Fxledf53jqdnhqs5MKTv/2qXRT/l0ecv+ilQl3AwtQP7+f6v1hn3lh59/qKf AnV1Dsebu+v/6M/DproTWm/yD7r7MKWf+cC3DKWC4bj7j/Bc5yP66Q7vWfsn P2zPzz38UYWDblLh2JReKWIeHYDsgXxTOv5NkwERwsEg0iduLwkA4WAQ6RO3 l3CAcDCa9NHbSzVY1rDheO9tT7KDRgfpswZsmyIcb9KrRivpkwUUEA5GkD5Z QIG5wnHTjitKnymgzHThuGnHhaSPEnDEdOFITx0VpA8RcMpc4UgPHnWkzxFw inDQX/ocAacIB/2lzxFwylzheJWePY5Lnx2gghnD8So9gZRJnxegmnnDcdOO eaRPClCTcNBB+qQANU0djpt2DC99QID6Zg/HTTvGtueVdT4wwEkXCMd7kW1k 0+bbyR4boIhw0MHm28keG6DIxcLx3p69orX3r2PPDwPGd+FwvOmzkHy0/0VE DgZwzLXD0W0h+ajoRaROCHDAtcPxpsNOclL6jAB7CQeDSJ8RYC/hYCjpkwJs Ew5Gkz4swIYVwpEeQsqkzwuwQTgYTfq8ABuEgxGkzwhQ4NrheL9LwVVkU/qk AAWuHY5X6VFkl/QxAfZaIRyv0rvILuljAmwTDoaSPibAthXC8VL4z00iK3VO gJ0WCcfdKKUmkZ2yBwZ4brVwvGjHJLJnBnhiwXAwvvSRAZ4RDgaUPjLAM8LB gNJHBnjm2uFI7x+73D78nW/AyISDoPQBAY4QDoLSBwQ4QjiISx8ToIxwEJc+ JkAZ4WAE6ZMCFBAORpM+NcAG4WA06VMDbLh2ON6kt5AC6cMCbLhwONL7xxHp UwNsu3A4btoxofSRAbZdOBzpCaRM+rwAewkHg0ifF2Av4WAQ6fMC7CUcDCJ9 XoC9hIOhpE8NsE04GEr61ADbhIMxpY8P8JBwMLiPLzR4qIDbdcMRHDpaSx8u WJ1wMJ304YLVCQfTSR8uWJ1wMJH0sQJ+IhxMJH2sgJ9cMhzpeaOJ9LECfiYc zCJ9rICfCQeDS58m4J5wMKb0IQIeulg40mtHHelzBDxzpXCk1250UzyuyMkB igjHOqZ4XJGTAxS5TDjSgzeu84+x9eNtcyKAVmYPR9NBm12VB/vxOVd8+Kfe PRAyezje1B20eXV+5rN8VKCiy4TjTpURnsikTzv7sYFjhOMaJn3a2Y8NHHPJ cFQc5Cmkn/c3Xj77bZExPypwzFXDcVsmH+mHfe/uI435IYEzLhmOT0XXvaH0 c70UjxT2EI7ZpZ/rpXiksMc64biTXfuK0g/yUjxS2GPZcLz6OMKHp/tsAI6K Pr/r8Ehhv8XD8cTJ6a7dh7KvzjEeKewhHE9U3BDhGJPnCQcIxxPCcXmeJxwg HEHCEeGRwknCESQcPXmwUItwZJ3vhYnbSTigFuEYxKdjZcpqOZNm4I5wDEI4 mhIOqEg4WIFwQEXCwQqEAyoSDi7vQDWEA54QDi5POKAu4WAFwgEVCQeLkAyo RThYgWpARcLBOoQDqhAO1iEcUIVwsA7hgCqEg0XsqYZwwB7CwYJUA84QDhYk HHCGcLAO/wsVVCEcrEY44CThYGXCAQcIBwBFhAOAIsIBQBHhAKCIcABQRDgA KCIcABQRDgCKCAcARYQDgCLCAcB+/wc8l6rC "], {{0, 263}, {531, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{265.5, Automatic}, ImageSizeRaw->{531, 263}, PlotRange->{{0, 531}, {0, 263}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.77169157790551*^9, 3.771691886632639*^9}, CellLabel->"Out[26]=", CellID->99371429] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Return all steps of first five iterations:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771691761079505*^9, 3.77169180044121*^9}, { 3.7716927106074777`*^9, 3.7716927146087914`*^9}, {3.859387182199061*^9, 3.859387184566049*^9}}, CellID->794783532], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cartogram", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}]}], "}"}], ",", "5", ",", "200", ",", "True"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716916710244102`*^9, 3.771691673203582*^9}}, CellLabel->"In[22]:=", CellID->552416241], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U+oXVnZ5/F0h4DEoCU4UVEslGBwFLhIY2qgE7VRxNgWCk40aeulQQ3U 223TCCooAZ2ZgSag6OAStEAhKCJIBP8EBAcGHCgqShlJHATKgqiDlLX7lgcO p87ZZ+21117r+T1rre9nIHlvbs6+e63n+RJ5qfLRC5fe/8R/PXbs2H++5Og/ 3v/R//v2J5/86P/7H48c/R+Pf/I//9d/fPJj//O/f/J/f+w/Pvbkf7tw/OiL rzlx7NgX/8uxYy/8egAAAEAZTwBANMs0mT0LQNVIEwCHSBMAh0gTAIdIEwCH SBMAh0gTAIdIEwCHSBMAh0gTSntqJvXP68jjQeqfrizShNJIUzLS1N6z4A1p CgtXKByoJktFmmCDNIWRpi2kCZaI0rCgQvvS1CTShKLi/7IUmazkiHmIYd4o xScry4ekfWDyWZEmFEWaNiUnIkGW5y5/keSzIk2wkaVRc5OS/QPjJdegVXMP kDTBBmnq3NwDJE2wVC5HSz457YnqXa9S/KiQJlgqF4pcOYp/onrLqxQ/KqQJ lkoExIB6odsRPyqkCUXtW/bw7zqx76XU+12x+MkhTSgqvPWWnUmw76XU+12x +MkhTYiUtsul62FpvVza7W5AzLyRJkSKWd60P1WL9Vpp97oBMfNGmhAjZnNn fXON1AvdjpiRI02YJX6R536/f+qFbsrkpJEmzBK/yHO/3z/1NjdlctJIE2ZR 50FJvc0NCkwaacIs6jwoqfe4QYFJI02IpA6DnnqPGxSYN9KESOow6Kn3uEGB eSNNiKQOg4x6fVsWmDfShEjqQuip97hBgXkjTYikDoOeeo8bFJg30oR91CXw S73Q1YsZP9KEfdQB8Eu92dWLGT/ShDB1BjxSb3aV5g4eaUIMdQwcUa94lRJG jjQhhroHjqi3vEoJI0eaEKYugUfqRa9Y/OCRJoSpM+CRer8rFj94pAn7qAPg l3q/qxczfqQJ+6gD4Jd6s6sXM36kCaPU2++aerOrFzOBpAnqRa+PerMrFj+W pAnqRa+Per8rFj+WpAkDdUqi3vIqxc8kacJAmpKot7xK8TNJmrCm3vUqqXe9 SjHTSJowEKUF1FtepZiZJE0YSNMC6i2vUsxMkiYMpGkB9ZbXLTCTpAkDaVpA vdx1C8wkaZI4tkPyY6jXuhqBQ1t/Xb3lVQoMJ2mSIE11CRza+uvqLa9SYDhJ k43dFjmp04pk3ysyelxbX1RvecVGZ5I0GYjp0lagjHulXXxX8h6seunrMHp0 pMkAaapI3oNVL30dRo+ONNmYVafdUtlQV0HD8oRX1CVwZ/SUSJMN0uSW5Qmv qEvgzugpkSYDyV2SlEqdiuIMznCfwGIa18CV0bMiTQYypqloqdTNyGzY8/9K kwuvp3EWJGJOiTQZIE0SA2nyKuaUSJMB/2nSNqScXOdTQsyeCuuR3dzzKZGL v/3tb1/96lc/9KEPnTt37rnnniv6rCqQJpVc51NCzM4KS5Ld3PPJnosf//jH r3rVqz7ykY/86Ec/+v3vf1/0WZ6Vy9FkmhKqpU6IhRy3KrO53drCpEl45by5 +OMf//jKV77y1q1bBs9yjjR5k+NWZTYXXBuZNAmvnDcX/+ffbJ7lh02F5kp+ HXVCSsl4466oqzMh+b3y5uJd73rXD37wA5tnzbJwW0c/rRZp76gOSX65bt8h dX7GLXypvLl47LHHfvazn9k8a5YlS7rv02qR9o7qkOSX6/YdUkdo3MKXypuL c+fO+UzTyvLNNa5KdlsvMvqO6oQUtGh63Av0oaIirZGm5Z9Qka0XGX1HdT8K WjQ97pGmgObTFPicxqgrUlD2uXJltA+5CmNZp67StKJe+mqoE2JBPYzW8gaE NOWl3vhqqLNhQT2M1kiTwbMWUu99Zda7PPrFqqknsQWkKSPVjldqvcijX6ya ehJbQJoyUu1429SZSaeeR2wjTchIHZh06nnENtKEjNSByUY9nqgjTaux3/z1 rrTPRBbqkOSXNqjIKHuafv7zn2d/1mr+N3+9K+0zkYU6JPmlDSoyypums2fP /va3v014Vq4dyftpiKQOSTaD13+deIcypulf//rXK17xir///e8Jz8q1I3k/ DZG0PcloIE1uZEzT9773vfe9731pz1LvFhJpS5JRri1ALrnS9Itf/OLMmTO/ /vWvlzxLvWeYTV2UpbIMP0pYnqaf/OQn73jHO972trf98pe/XPgs9Z5hNnVa llo4/ChneZq+//3vv+lNb3r88cf/8Ic/5HqWeuEQRd2VRAsHHjZy/Re67373 u6dPn3766aezPEu9c4iibkyiHPOO4gK5uHfv3u3btx8+fBj5UV/+8pc//OEP pz1rTb1tmEHdmEUipxoq+3JxeHh44sSJo/E7ODh48OBBzEf985//fNnLXnb0 n3OftUm9bZhBXZdFYkYaQvtycfbs2fUEXrt2LfLT3vCGN/zud7+b+6xNm5M/ +kX4oa7LIpEjDZV9uTh37tx6Ai9cuBD5aW9961v3/U/3Bp6VRriSWJm1+zbB CfwMk98AV/bl4qgwp0+fPn78+NEEnj9/PvLTLP/NA+q9BGlCQeFcHB4eHk3g xYsXIz9N+C9FUa9pX/LeXbgh+76eHBnSVIVwLi5dunQ0h1evXo38NNLUibx3 R5qwK5CLu3fvnjp16uTJk/fv34/8NCf/Kjn14jbF5so28d+5MOzPxZ07d86c OXM0mVeuXIn/NCdp2qJe7hZILg49G83F9evXj/6+dDSQly9fnvVppKlVkotD z0ZzcePGjYODg5s3b879NNLUEsllASujuXj+3xI+jTS1RHJZwEoV/7MFC6lX vDKSOwK2kCZskdwRsIU0YYvkjoAteXPx2GOPOUzTQJ3iqG4H2JU3F+985zt/ +MMf2jxrFvXS10F1O8CuvLl48sknP/vZz9o8K4F69f3S3guwK28ufvOb37zy la88+k+DZyVQB8Av7b0Au7Ln4lvf+tarX/3qL37xi0eB2vrXY8rTtEkdA18C Z6K9JnSrRC7+/Oc/f/rTn37sscde//rXP/fcc0WflYtxClwJH4LwUtAzy1yQ Jp/ChyC8FPSMNK0Y16Ai6ptBp0jTijoAfqlvBp0iTSvqAHinvh90hzStqFff O/X9oDukaUW9+n6pbwadIk0r6gD4pb4ZdIo0ragD4Jf6ZtAp0rRFXQKn1NeC 7pCmLeoGOKW+FnSHNK1s7aAwAm5pLwi9IU0r6r2vgPqK0BfStKLe+wqorwh9 IU3qjfdLfTPoGmlSB8Av9c2ga6RJHQC/1DeDrpEmdQD8Ut8Mukaa1AGog/qW 0B3SpF76OqhvCd0hTeqlr4P6ltAd0qReeu/U94NOkSb16nunvh90ijSpV987 9f2gU6RJvfrVUF8U+kKa1BtfDfVFoS89p0m96y1Q3yGaRZqwhPoO0SzShGTq C0TLSBOSqS8QLSNNSKa+QLSMNCGS+rrQF9KESOrrQl+6TZN60RexfwvhTaFP pKlG9m8hvCn0qas0mS1yIbNec/krF7sHYFpXadqSoxbFCV+8xKOBSKTJOeGL l3g0EKnnNK0UDcsS6oMBlEiTukB7qQ8GUCJNo9RZeoH6DMrq4R2xBGkapY3S ivoMyurhHbEEaYoX2RDSFKOHd8QSpMlSz2nq4R2REWmyRJrafkdkRJos9Zmm ft4UGZEmS6Sp7TdFRqQJRXUVYWREmlAUaUIa0oSiSBPSkCaURpSQgDShNNKE BKQJpZEmJCBNKI00IQFpQmmkCQlIE0ojSkhAmlAaaUIC0gRLpAmRSBMskSZE Ik0AHCJNABwiTQAcIk0AHCJNABwiTQAcIk0AHDJOEwBEMksTAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAteQIAolmmyexZAKpGmgA4RJoA OESaADhEmgA4RJoAOESaADhEmgA4RJoAOESaUNpTc6h/WEcen6L+AcsiTSiN NKUhTU0+C96QprDJEPVWJ9IEG6QpjDRtIU0wQ5dW0ipEmtp4FjyI/JvSrGSl FcxJCTNGKb5ayz9hyYsknxVpQjmkaUtyJRIsf2iWF0k+K9IEG7kyNSspJT4z UnIQWjX3AEkTbJCmzs09QNIEM0WLtPDDE56o3vUqxU8LaYKZoqHI0qJZT1Rv eZXip4U0wUyJepSmXuXWxE8LaUI5gZUP/64T+95Lvd8Vix8e0oRywltvVphk +95Lvd8Vix8e0oRICbtcOh1mtjZLuNoNiJw30oRIMSuc8EeqsLVWwr1uQOS8 kSZMilneud9fF/U2NyVy6kgTZonc5Vnf7J96mxs0OWmkCbNE7vKsb/ZPvccN mpw00oRZ1JHQUO9xswKTRpowizoSGuoNblZg0kgTIqnzoKTe4GYF5o00IZI6 D0rqDW5WYN5IEyKp86Ch3t3GBeaNNCGSOhJK6g1uVmDeSBMiqfOgpN7gZgXm jTRhH3UPPFKvcgsix480YR91BjxSr3ULIsePNCFMHQNf1GtdsbmDR5owSd0D R9T7XaW0qSNNmKTugSPqLa9S2tSRJoSpY+CLesurFz94pAlh6hj4ot7s6sUP HmnCPuoMeKTe7BZEjh9pwj7qDHikXusWRI4facIudQD8Uq91CyKHkDR1Tr3r VVIvd8XiJ5M0dU695VVS73fF4ieTNGEgUDOp97ti8TNJmjCQppnU+12x+Jkk TVhTb3xl1Fteq8hpJE0YiFIS9YrXKnImSRMG0pREveK1ipxJ0oSBNCVRr3gL AjNJmjCQpiTqtW5BYCZJk8SxF1P9GOrlrsboiW0tl3bHKxUYTtIkQZrqMnpi W8ul3fFKBYaTNNk4FkH446lWvhajx7X1RfWWV2x0JklTaTFR2gqUfa+0i+9K 3oNVL30dRo+ONJVGmuqS92DVS1+H0aMjTTbmBso4TSvqKmhYnvCKugTujJ4S abJBmtyyPOEVdQncGT0l0lRacpQkpVJ3wkLpMwwILKZxDVwZPSvSVFreNBUt lboZOW2+Ud5TWi68nsZZsBd5SqSpNNIksflGeU9pufDCGofCXuQpkabSqkiT NiPl5Dqf7GJWVZWOQuYeEWkqjTQJ5Tqf7GJ2VtWQQuYeEWkqpGiRwmlKqJY6 IcXluFKl9XZr85Im7ZVJUyGkyZUcV6q03nFtZNKkvTJpWs6mQnOlvYs6IaXk vXE/1NWZlvxqnaRpybbu+7RaJLygOiT55bp6n9T5GbfwpUhT8qfVIuEF1SHJ L9fV+6SO0LiFL9VJmlaWb65xVfLafZHdF1QnpKxF0+Pevj5UlKNNpGn5J9Ri 90V2X1Adj7IWTY97pKmKZ42aXNgln9MAdTmMZJ8rV3b7kCsyxoHqKk0r6gBU QB0PI+pJFMhbD9KUl3rvK6BuhhH1JAqQJvmzwtSrXxN1P4pTD2MLSFMu6nWv ibocxamHsQWkKRf1urdD3ZVs1COJbaQJS6iLko16JLGNNCELdVoyU08o6kjT aviHYFISPhC5qEOSX9qgIiPShOXUIckvbVCRkZM05dqRjB+FGOqE5LQaxc1f Q4g0YQltTPJajeLmryHUWJpgTBuTjMy2AJGcpGmgTrVRtyQDs8lHAtKENOqu ZGA2+UjgJ02b1GuHaequpCs65MiFNCGNOjDpig45ctmXi3v37t2+ffvhw4cG z9qkXjhMU6clj4yDjRJGc3F4eHjixImjITw4OHjw4EHRZ21Rrx2mqaOSR66p RiGjuTh79ux6Dq9du1b0WVvWzx39IjxQRyWPXFONQkZzce7cufUcXrhwoeiz kgl3s3Npi186NeEfI/y7cGg0F7du3Tp9+vTx48eP5vD8+fNFn5VMvaD9mtWE tazJiRV+esZpRHaBXBweHh7N4cWLFw2etZx6XzuS9+LCDdn9zskKRT6RNDkX yMWlS5eO5vDq1asGz1pOva8dyXtxpAmj9uXi7t27p06dOnny5P3790s/Ky/1 4rbG4Mo28d+5sDKaizt37pw5c+ZoLK9cuVL6WaWpN7sF9rcG7Obi+vXrR39f OhrIy5cvl36WAfVat8D+1oDdXNy4cePg4ODmzZsGzzKgXuuK2V8WsLabi+f/ zeZZBtT7XTH7ywLWfP7jvRmp97sy9hcEjCJN2GR/QcAo0oRN9hcEjGo+TSvq ja+D6naAXaQJa6rbAXZ1kqYV9er7pb0XYBdpwjHSBH+6StOaugTuBI5Fe1Po Vp9p2mLcAVcmz0F1KegcaRpIU/AcVJeCzpGmoe80TVJfDjpFmgbSFKS+HHSK NA2kaYr6ftAj0jSQpinq+0GPSNNAmoLUl4NOkaaBNAWpLwedIk0DaQpSXw46 RZq2qEvgkfpO0CPStEWdAY/Ud4IekabhxTna/QpWtHeE3pCmgRDFUd8S+kKa BtIUR31L6AtpUm+8X+qbQddIkzoAfqlvBl0jTeoA+KW+GXSNNKkD4Jf6ZtA1 0qQOQAXUV4QekSb13ldAfUXoEWlS730F1FeEHpEm9d57p74fdIo0qVffO/X9 oFOkSb363qnvB50iTerVr4b6otAX0qTe+GqoLwp96TlN6l1vgfoO0SzShCXU d4hmkSakUd8eGkeakEZ9e2gcaUIa9e2hcaQJkdTXhb6QJkRSXxf60mea1Fu+ lPGLCG8K3SJNNTJ+EeFNoVtdpclmkQuZ+5rL37fYPQDTukrTlsW1sCB86+yP BuKRJueEb5390UC8ntO0Uq4qC6kPBlAiTeoC7aU+GECJNI1SZ+kF6jMoq/kX xEKkaZQ6Sy9Qn0FZzb8gFiJNkeIbQppiNP+CWIg0Weo5Tc2/IPIiTZZIU8Mv iLxIk6U+09TJayIv0mSJNDX8msiLNKGcrgqMvEgTyiFNSEaaUA5pQjLShNKI EhKQJpRGmpCANKE00oQEpAmlkSYkIE0ojTQhAWlCaXQJCUgTSiNNSECaYIY0 IR5pghnShHikCYBDpAmAQ6QJgEOkCYBDpAmAQ6QJgEOkCYBDxmkCgEhmaQIA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoBlPAEA0yzSZPQtA 1UgTAIdIEwCHSBMAh0gTAIdIEwCHSBMAh0gTAIdIEwCHSBNKe2oO9Q/ryONT 1D9gWaQJpZGmNKSpyWfBG9IUNhmi3upEmmCDNIWRpi2kCWbo0kpahUhTG8+C B5F/U5qVrLSCOSlhxijFV2v5Jyx5keSzIk0ohzRtSa5EguUPzfIiyWdFmmAj V6ZmJaXEZ0ZKDkKr5h4gaYIN0tS5uQdImmCmaJEWfnjCE9W7XqX4aSFNMFM0 FFlaNOuJ6i2vUvy0kCaYKVGPotR73KD4aSFNKCew9eHfdWLfe6n3u2Lxw0Oa UE54680Kk2zfe6n3u2Lxw0OaEClhl0unw8DoZkmWuhmR80aaEClmkRP+iHOj ayXZ6GZEzhtpwqSYFZ77/bVQ73GDIqeONGGWyI2e9c2eqfe4WZOTRpowS+RG z/pmz9Qb3KzJSSNNmEWdCmvqDW5cYNJIE2ZRp8KaencbF5g00oRI6khoqHe3 cYF5I02IpI6Ehnp3GxeYN9KESOpIaKh3t3GBeSNNiKSOhIZ6dxsXmDfShEjq SGiod7dxgXkjTdhHXQV31HvciMjxI03YR10Cd9Q73YjI8SNNCFP3wBH1Ttdt 7uCRJkxSJ8EL9XLXKm3qSBMmqZPghXrFa5U2daQJYeoeOKJe8RbEDx5pQpi6 B46o17oF8YNHmrCPugTuqNe6EZHjR5qwj7oE7qh3uhGR40easEvdAL/Ua92C yCEkTZ1T73pl1GtdvfjJJE2dU+96ZdSbXb34ySRNGAjUTOr9rlj8TJImDKRp JvV+Vyx+JkkT1tQbXw31ftctchpJEwaiNJN6uesWOZOkCQNpmkm93HWLnEnS hIE0zaRe7nYEZpI0YSBNM6kXuh2BmSRNEsdeTPVjqFe8GlsnNrpcqu2uWmA4 SZMEaarL1omNLpdqu6sWGE7SZONYBOGPp118/7aOa3SttDtetdGZJE2lxURp K1D2vVKvviN5D1a99HUYPTrSVBppqkveg1UvfR1Gj4402ZgbKOM0rairoGF5 wivqErgzekqkyQZpcsvyhFfUJXBn9JRIU2nJUZKUSt0JC6XPMCCwmMY1cGX0 rEhTaXnTVLRU6mbktPlGeU9pufB6GmfBXuQpkabSSJPE5hvlPaXlwgtrHAp7 kadEmkqrIk3ajJST63yyi1lVVToKmXtEpKk00iSU63yyi9lZVUMKmXtEpKmQ okUKpymhWuqEFJfjSpXW263NS5q0VyZNhZAmV3JcqdJ6x7WRSZP2yqRpOZsK zZX2LuqElJL3xv1QV2da8qt1kqYl27rv02qR8ILqkOSX6+p9Uudn3MKXIk3J n1aLhBdUhyS/XFfvkzpC4xa+VCdpWlm+ucZVyWv3RXZfUJ2QshZNj3v7+lBR jjaRpuWfUIvdF9l9QXU8ylo0Pe6RpiqeNWpyYZd8TtXUzTCVfa5c2e1DrsgY B6qrNK2oM+CaOhum1JMokLcepCkv9fa7pq6FKfUkCpAm+bPC1AGog7ocRtTD 2ALSlIt66eugboYR9TC2gDTlol76yqjjYUE9kthGmjBJnQ0L6pHENtKEJdRF KUU9oagjTastGIJJSfhALKdOSClpg4qMSBOWUCeklLRBRUZO0pRrUzJ+FGKo E5LTahQ3fw0h0oQltDHJazWKm7+GUGNpghltRrIz2wJEcpKmgTrVRt2SDMwm HwlIE9Kou5KB2eQjgZ80bVKvHULURVmq6JAjF9KEudRpWarokCOXfbm4d+/e 7du3Hz58aPCsTeq1wzR1WvLIONgoYTQXh4eHJ06cOBrCg4ODBw8eFH3WFvXa YZo6KnnkmmoUMpqLs2fPrufw2rVrRZ+1Zf3c0S9CTl2UbHJNNQoZzcW5c+fW o3jhwoWiz0omXM+eJS9+0c5M/hjh34VDo7m4devW6dOnjx8/fjSK58+fL/qs ZOod7dTcJqzl680M4adnnEZkF8jF4eHh0ShevHjR4FnLqVe2F9k3OtyQ3e+c rFDkE0mTc4FcXLp06WgUr169avCs5dQr2wvSBBv7cnH37t1Tp06dPHny/v37 pZ+Vl3p3W2NwZZv471xYGc3FnTt3zpw5czSWV65cKf2s0tSb3QL7WwN2c3H9 +vWjvy8dDeTly5dLP8uAeq1bYH9rwG4ubty4cXBwcPPmTYNnGVCvdcXsLwtY 283F8/9m8ywD6v2umP1lAWs+//HejNT7XRn7CwJGkSZssr8gYBRpwib7CwJG NZ+mFfXG10F1O8Au0oQ11e0AuzpJ04p69f3S3guwizThGGmCP12laU1dAncC x6K9KXSrzzRtMe6AK5PnoLoUdI40DaQpeA6qS0HnSNPQd5omqS8HnSJNA2kK Ul8OOkWaBtI0RX0/6BFpGkjTFPX9oEekaSBNQerLQadI00CagtSXg06RpoE0 BakvB50iTVvUJfBIfSfoEWnaos6AR+o7QY9I0/DiHO1+BSvaO0JvSNNAiOKo bwl9IU0DaYqjviX0hTSpN94v9c2ga6RJHQC/1DeDrpEmdQD8Ut8Mukaa1AHw S30z6BppUgegAuorQo9Ik3rvK6C+IvSINKn3vgLqK0KPSJN6771T3w86RZrU q++d+n7QKdKkXn3v1PeDTpEm9epXQ31R6AtpUm98NdQXhb70nCb1rrdAfYdo FmnCEuo7RLNIE9Kobw+NI01Io749NI40IY369tA40oRI6utCX0gTIqmvC33p M03qLV/K+EWEN4VukaYaGb+I8KbQra7SZLPIhcx9zeXvW+wegGldpWnL4lpY EL519kcD8UiTc8K3zv5oIF7PaVopV5WF1AcDKJEmdYH2Uh8MoESaRqmz9AL1 GZTV/AtiIdI0Sp2lF6jPoKzmXxALkaZI8Q0hTTGaf0EsRJos9Zym5l8QeZEm S6Sp4RdEXqTJUp9p6uQ1kRdpskSaGn5N5EWaUE5XBUZepAnlkCYkI00ohzQh GWlCaUQJCUgTSiNNSECaUBppQgLShNJIExKQJpRGmpCANKE0uoQEpAmlkSYk IE0wQ5oQjzTBDGlCPNIEwCHSBMAh0gTAIdIEwCHSBMAh0gTAIdIEwCHjNAFA JLM0AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQjCcAIJpl msyeBaBqpAmAQ6QJgEOkCYBDpAmAQ6QJgEOkCYBDpAmAQ6QJgEOkCaU9NYf6 h3Xk8SnqH7As0oTSSFMa0tTks+ANaQqbDFFvdSJNsEGawkjTFtIEM3RpJa1C pKmNZ8GDyL8pzUpWWsGclDBjlOKrtfwTlrxI8lmRJpRDmrYkVyLB8odmeZHk syJNsJErU7OSUuIzIyUHoVVzD5A0wQZp6tzcAyRNMFO0SAs/fEvMNmk3vVLx 00KaYGZhLop++JaYPdLueKXip4U0wUzeehSl3uBmxU8LaUI5gd0P/64T+95L vd8Vix8e0oRywltvVphk+95Lvd8Vix8e0oRICbtcOh2l7dss+41uSeS8kSZE itnlhD/i2b61sl/nlkTOG2nCpJgtnvv9VVAvcZsip440YZbIpZ71zW6pl7hl k5NGmjBL5FLP+ma31OvbsslJI02YRV0LU+r1bV9g0kgTZlHXwpR6cdsXmDTS hEjqTgioF7d9gXkjTYik7oSAenHbF5g30oRI6k4IqBe3fYF5I02IpO6Ehnp3 GxeYN9KESOpIaKh3t3GBeSNN2EddBUfUG9yUyPEjTdhH3QNH1NvclMjxI00I U1fBBfU2t2Du4JEmTFKHQU+91nVLmzrShEnqMOipl7tuaVNHmhCmroIL6uVu R/zgkSaEqavggnqh2xE/eKQJ+6h74I56rRsROX6kCfuoS+COeqcbETl+pAm7 1A1wSr3TjYgcQtLUOfW6V0a91tWLn0zS1Dn1rldGvdnVi59M0oSBQEVTb3b1 4meSNGEgTdHUm129+JkkTVhT730F1JvdgshpJE0YiFI09Vq3IHImSRMG0hRN vdYtiJxJ0oSBNEVTr3VrAjNJmjCQpmjqVW5NYCZJk8SxF1P9GOpFr8b6xALL Zb/XDQgMJ2mSIE11WZ9YYLns97oBgeEkTTaORRD+eOrV927ruEbXSrvjVRud SdJUWkyUtgJl3yv16juS92DVS1+H0aMjTaWRprrkPVj10tdh9OhIk425gTJO 04q6ChqWJ7yiLoE7o6dEmmyQJrcsT3hFXQJ3Rk+JNJWWHCVJqdSdsFD6DAMC i2lcA1dGz4o0lZY3TUVLpW5GTptvlPeUlguvp3EW7EWeEmkqjTRJbL5R3lNa LrywxqGwF3lKpKm0KtKkzUg5uc4nu5hVVaWjkLlHRJpKI01Cuc4nu5idVTWk kLlHRJoKKVqkcJoSqqVOSHE5rlRpvd3avKRJe2XSVAhpciXHlSqtd1wbmTRp r0yalrOp0Fxp76JOSCl5b9wPdXWmJb9aJ2lasq37Pq0WCS+oDkl+ua7eJ3V+ xi18KdKU/Gm1SHhBdUjyy3X1PqkjNG7hS3WSppXlm2tclbx2X2T3BdUJKWvR 9Li3rw8V5WgTaVr+CbXYfZHdF1THo6xF0+MeaariWaMmF3bJ51RKXQuB7HPl ym4fckXGOFBdpWlFHQO/1M2wpp5Egbz1IE15qQPglzoV1tSTKECa5M8KUzfA O3UzTKmHsQWkKRf16nunroUp9TC2gDTlol79mqjLYUQ9kthGmhCmboYR9Uhi G2lCJHU8TKknFHWkabUaQzApCR+IJdTxKCttUJERaUIadTzKShtUZOQkTbn2 JeNHIUwdj/xWo7j5awiRJqTRZqSE1Shu/hpCjaUJZrQZyc5sCxDJSZoG6lQP dUWyMZt8JCBNmEtdlGzMJh8J/KRpk3r5EKIuylJFhxy5kCbMpU7LUkWHHLns y8W9e/du37798OFDg2dtUq8dJqi7kk3GwUYJo7k4PDw8ceLE0RweHBw8ePCg 6LO2qDcPE9RFySbXVKOQ0VycPXt2PYrXrl0r+qwt6+eOfhFy6qJkk2uqUcho Ls6dO7cexQsXLhR9VjLhevZp4eIXKkzkjxH+XTg0motbt26dPn36+PHjRwN5 /vz5os9Kpt7U7qQ1YS1HaWYLPz3jNCK7QC4ODw+PBvLixYsGz1pOvbjtK7TR 4YbsfudkhSKfSJqcC+Ti0qVLRwN59epVg2ctp17c9pEmWNqXi7t37546derk yZP3798v/ay81BvcGoMr25QcHDRmNBd37tw5c+bM0VheuXKl9LNKU292C+xv DdjNxfXr14/+vnQ0kJcvXy79LAPqtW6B/a0Bu7m4cePGwcHBzZs3DZ5lQL3W FbO/LGBtNxfP/5vNswyo97ti9pcFrPn8x3szUu93ZewvCBhFmrDJ/oKAUaQJ m+wvCBjVfJpW1BtfB9XtALtIE9ZUtwPs6iRNK+rV90t7L8Au0oRjpAn+dJWm NXUJ3Akci/am0K0+07TFuAOuTJ6D6lLQOdI0kKbgOaguBZ0jTUPfaZqkvhx0 ijQNpClIfTnoFGkaSNMU9f2gR6RpIE1T1PeDHpGmgTQFqS8HnSJNA2kKUl8O OkWaBtIUpL4cdIo0bVGXwCP1naBHpGmLOgMeqe8EPSJNw4tztPsVrGjvCL0h TQMhiqO+JfSFNA2kKY76ltAX0qTeeL/UN4OukSZ1APxS3wy6RprUAfBLfTPo GmlSB8Av9c2ga6RJHYAKqK8IPSJN6r2vgPqK0CPSpN77CqivCD0iTeq99059 P+gUaVKvvnfq+0GnSJN69b1T3w86RZrUq18N9UWhL6RJvfHVUF8U+tJzmtS7 3gL1HaJZpAlLqO8QzSJNSKO+PTSONCGN+vbQONKENOrbQ+NIEyKprwt9IU2I pL4u9KXPNKm3fCnjFxHeFLpFmmpk/CLCm0K3ukqTzSIXMvc1l79vsXsApnWV pi2La2FB+NbZHw3EI03OCd86+6OBeD2naaVcVRZSHwygRJrUBdpLfTCAEmka pc7SC9RnUFbzL4iFSNModZZeoD6Dspp/QSxEmiLFN4Q0xWj+BbEQabLUc5qa f0HkRZoskaaGXxB5kSZLfaapk9dEXqTJEmlq+DWRF2lCOV0VGHmRJpRDmpCM NKEc0oRkpAmlESUkIE0ojTQhAWlCaaQJCUgTSiNNSECaUBppQgLShNLoEhKQ JpRGmpCANMEMaUI80gQzpAnxSBMAh0gTAIdIEwCHSBMAh0gTAIdIEwCHSBMA h4zTBACRzNIEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAz ngCAaJZpMnsWgKqRJgAOkSYADpEmAA6RJgAOkSYADpEmAA6RJgAOkSYADpEm lPbUHOof1pHHp6h/wLJIE0ojTWlIU5PPgjekKWwyRL3ViTTBBmkKI01bSBPM 0KWVtAqRpjaeBQ8i/6Y0K1lpBXNSwoxRiq/W8k9Y8iLJZ0WaUA5p2pJciQTL H5rlRZLPijTBRq5MzUpKic+MlByEVs09QNIEG6Spc3MPkDTBTNEiLfzwtfht Uu141eKnhTTBzMJoFP3wtfg9Um131eKnhTTBTK56GFBvcLPip4U0oZzA7od/ Vy68R9rtrlr88JAmlBPY/fDvyoX3SLvdVYsfHtKESDEbnfBHfApvluUutydy 3kgTIsVsdMIf8Sm8VpaL3J7IeSNNmBSzy3O/3zn1+rYscupIE2aJXO1Z3+yQ en3bNzlppAmzRK72rG92SL247ZucNNKEWdTNMKJe3F4EJo00YRZ1M4yoV7YX gUkjTYikroUp9cr2IjBvpAmR1LUwpV7ZXgTmjTQhkroWAurFbV9g3kgTIqk7 IaBe3PYF5o00IZK6EwLqxW1fYN5IE/ZRh8EF9e42KHL8SBP2UVfBBfUeNyhy /EgTwtRtEFPvcTvmDh5pwiR1HpTUC92CtKkjTZikzoOSeq1bkDZ1pAlh6ja4 oF7udsQPHmlCmLoKLqgXuh3xg0easI+6B46oF7opkeNHmrCPugeOqLe5KZHj R5qwS10Cp9Q73YjIISRNnVOve03UO92C+MkkTZ1Tr3tN1GvdgvjJJE0YCFQc 9Vq3IH4mSRMG0hRHvdYtiJ9J0oQ19ep7p17rRkROI2nCQJTiqHe6EZEzSZow kKY46p1uRORMkiYMpCmOeqcbFJhJ0oSBNMVR73GDAjNJmiSOvZjqx1DvejXW JxZYLvu9bkBgOEmTBGmqy/rEAstlv9cNCAwnabJxLILwx1OvvndbxzW6Vtod r9roTJKm0mKitBUo+16pV9+RvAerXvo6jB4daSqNNNUl78Gql74Oo0dHmmzM DZRxmlbUVdCwPOEVdQncGT0l0mSDNLllecIr6hK4M3pKpKm05ChJSqXuhIXS ZxgQWEzjGrgyelakqbS8aSpaKnUzctp8o7yntFx4PY2zYC/ylEhTaaRJYvON 8p7ScuGFNQ6FvchTIk2lVZEmbUbKyXU+2cWsqiodhcw9ItJUGmkSynU+2cXs rKohhcw9ItJUSNEihdOUUC11QorLcaVK6+3W5iVN2iuTpkJIkys5rlRpvePa yKRJe2XStJxNheZKexd1QkrJe+N+qKszLfnVOknTkm3d92m1SHhBdUjyy3X1 PqnzM27hS5Gm5E+rRcILqkOSX66r90kdoXELX6qTNK0s31zjquS1+yK7L6hO SFmLpse9fX2oKEebSNPyT6jF7ovsvqA6HmUtmh73SFMVzxo1ubBLPqdG6lRo ZJ8rV3b7kCsyxoHqKk0r6h54pK6FhnoSBfLWgzTlpc6AR+pIaKgnUYA0yZ8V pi6BX+paCKiHsQWkKRd1APxSd0JAPYwtIE25qANQB3UzTKlHEttIE/ZR18KU eiSxjTRhkjobAuoJRR1pWi3IEExKwgcigboZRtIGFRmRJsyiboaRtEFFRk7S lGtxMn4U9lFno5TVKG7+GkKkCXNpA1LOahQ3fw2hxtIEA9qAFGK2BYjkJE0D daqHuiLZmE0+EpAmzKUuSjZmk48EftK0Sb182EudkwyKDjlyIU2YRd2VDIoO OXLZl4t79+7dvn374cOHBs/apN48TFB3JZuMg40SRnNxeHh44sSJozk8ODh4 8OBB0WdtUW8eJqiLkk2uqUYho7k4e/bsehSvXbtW9Flb1s8d/SKE1C3JLNdU o5DRXJw7d249kBcuXCj6rGTCJe3TwsUvVJjIHyP8u3BoNBe3bt06ffr08ePH jwby/PnzRZ+VTL2p3UlrwlqO0swWfnrGaUR2gVwcHh4eDeTFixcNnrWcenFb VnSjww3Z/c7JCkU+kTQ5F8jFpUuXjsby6tWrBs9aTr2+LSNNsLcvF3fv3j11 6tTJkyfv379f+ll5qfe4NQZXtqloBlGR0VzcuXPnzJkzR2N55cqV0s8qTb3Z LbC/NWA3F9evXz/6+9LRQF6+fLn0swyo17oF9rcG7Obixo0bBwcHN2/eNHiW AfVaV8z+soC13Vw8/282zzKg3u+K2V8WsObzH+/NSL3flbG/IGAUacIm+wsC RpEmbLK/IGBU82laUW98HVS3A+wiTVhT3Q6wq5M0rahX3y/tvQC7SBOOkSb4 01Wa1tQlcCdwLNqbQrf6TNMW4w64MnkOqktB50jTQJqC56C6FHSONA19p2mS +nLQKdI0kKYg9eWgU6RpIE1T1PeDHpGmgTRNUd8PekSaBtIUpL4cdIo0DaQp SH056BRpGkhTkPpy0CnStEVdAo/Ud4IekaYt6gx4pL4T9Ig0DS/O0e5XsKK9 I/SGNA2EKI76ltAX0jSQpjjqW0JfSJN64/1S3wy6RprUAfBLfTPoGmlSB8Av 9c2ga6RJHQC/1DeDrpEmdQAqoL4i9Ig0qfe+AuorQo9Ik3rvK6C+IvSINKn3 3jv1/aBTpEm9+t6p7wedIk3q1fdOfT/oFGlSr3411BeFvpAm9cZXQ31R6EvP aVLvegvUd4hmkSYsob5DNIs0IY369tA40oQ06ttD40gT0qhvD40jTYikvi70 hTQhkvq60Jc+06Te8qWMX0R4U+gWaaqR8YsIbwrd6ipNNotcyNzXXP6+xe4B mNZVmrYsroUF4VtnfzQQjzQ5J3zr7I8G4vWcppVyVVlIfTCAEmlSF2gv9cEA SqRplDpLL1CfQVnNvyAWIk2j1Fl6gfoMymr+BbEQaYoU3xDSFKP5F8RCpMlS z2lq/gWRF2myRJoafkHkRZos9ZmmTl4TeZEmS6Sp4ddEXqQJ5XRVYORFmlAO aUIy0oRySBOSkSaURpSQgDShNNKEBKQJpZEmJCBNKI00IQFpQmmkCQlIE0qj S0hAmlAaaUIC0gQzpAnxSBPMkCbEI00AHCJNABwiTQAcIk0AHCJNABwiTQAc Ik0AHDJOEwBEMksTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AADNeAIAolmmyexZAKpGmgA4RJoAOESaADhEmgA4RJoAOESaADhEmgA4RJoA OESaUNpTc6h/WEcen6L+AcsiTSiNNKUhTU0+C96QprDJEPVWJ9IEG6QpjDRt IU0wQ5dW0ipEmtp4FjyI/JvSrGSlFcxJCTNGKb5ayz9hyYsknxVpQjmkaUty JRIsf2iWF0k+K9IEG7kyNSspJT4zUnIQWjX3AEkTbJCmzs09QNIEM0WLtPDD j8zdJvvtbkD8tJAmmCFNiJ8W0gQzy+thQL27jYufFtKEcgIFCP+uUMweqfa6 AfHDQ5pQTqAA4d8Vitkj1V43IH54SBMixex1wh/xJmazbLa4VZHzRpoQKWav E/6INzFrZbPCrYqcN9KESTEbPff73VIvbvsip440YZbIBZ/1za6oF7cXk5NG mjBL5ILP+mZX1Cvbi8lJI02YRV2O4tQr25fApJEmzKIuR3HqZe1LYNJIEyKp m2FKvbK9CMwbaUIkdS1MqVe2F4F5I02IpK6FKfXK9iIwb6QJkdS1EFAvbvsC 80aaEEndCQH14rYvMG+kCfuow6CnXtw2RY4facI+6jDoqZe4TZHjR5oQps6D knqJmzJ38EgTJqkLoaRe6BakTR1pwiR1HpTUa92CtKkjTQhTt0FMvdatiR88 0oQwdRvE1KvcmvjBI03YR10FR9QL3ZTI8SNN2EfdA0fU29yUyPEjTdilLoE7 6m1uSuQQkqbOqZe+Duptbkf8ZJKmzqmXvg7qhW5H/GSSJgwEaop6odsRP5Ok CQNpmqJe6HbEzyRpwpo6AH6pF7opkdNImjAQpSnqbW5K5EySJgykaYp6m5sS OZOkCQNpmqLe5mYFZpI0YSBNU9Qb3KzATJImiWMvpvox1BtfjfWJBZbLfq8b EBhO0iRBmuqyPrHActnvdQMCw0mabByLIPzx1Kvv3dZxja6VdserNjqTpKm0 mChtBcq+V+rVdyTvwaqXvg6jR0eaSiNNdcl7sOqlr8Po0ZEmG3MDZZymFXUV NCxPeEVdAndGT4k02SBNblme8Iq6BO6MnhJpKi05SpJSqTthofQZBgQW07gG royeFWkqLW+aipZK3YycNt8o7yktF15P4yzYizwl0lQaaZLYfKO8p7RceGGN Q2Ev8pRIU2lVpEmbkXJynU92MauqSkchc4+INJVGmoRynU92MTurakghc49o Mxcf/OAH3/ve937pS1+6d+9e4olHP6t5RYsUTlNCtdQJKS7HlSqtt1ublzRp r7yZiz//+c8//elPP/OZz7zmNa/55je/medM9zyreaTJlRxXqrTecW1k0qS9 8mgu7ty58/rXv/4oU4tOM+5ZDbCp0Fxp76JOSCl5b9wPdXWmJb/avlx84xvf eP/735/8sbOeZWDJtu77tFokvKA6JPnlunqf1PkZt/Cl9uXi6aefft3rXrfw wyOfZSB5SQOfVouEF1SHJL9cV++TOkLjFr7Uvlw888wzjzzyyMIPj3yWmeWb a1yVvDZfZN/CagNS2qLpcW9fHyrK0aZAml7+8pdnfFDgWWYmFzbtE2qx+SL7 VlWbjtIWTY97pCn7s8xMLuySz6mLOhJK2efKld0+5IqMcaC6StOKugq+qDuh pJ5Egbz1IE15qWPgizoPSupJFCBNs55lT90Dp9Sp0FAPYwtIUy7qBjiljoSG ehhbQJpyUTfAO3UtBNQjiW2kCbvUnRBQjyS2kSaEqZuhoZ5Q1JGm1Y4MwaQk fCBmUdfCVNqgIiPShEjqWphKG1RktC8Xf/vb3yzTlGt9Mn4URqmbUdBqFDd/ DaF9ufjXv/710pe+1OZZA2mqh7YeRa1GcfPXEArk4tFHH/3Tn/5k8yz1wiGW th7lZJxzZBHIxac+9akvfOELNs8aqFMl1AnJKeNsI7tALv7617+++c1v/tGP fmTwrIE0VUKdk5xyDTZKCOfi6aef/sAHPvDud7/7O9/5TulnbVLvH/ZS5ySD 5ZMMA+FcPPPMM5/4xCcODg6+/vWvl37WJvX+YS91VzJYPskwEMjFs88++5a3 vOVrX/uawbPW1JuHvdRFySzXVKOQQC4+//nPf/SjH7V51pp6/7CXuiWZZRxs lBDIxenTp2/fvm3zrLX1Iox+EULqlmSWcbBRwr5cPP/88y95yUv+8Y9/GDwr jXpTO5Jl8bO3ZdaPEf5dOLQvF88+++zLXvYym2elUe9rR5Y0YW1ZYxKFn55x GpFdFf94bwz1+jar9EaHG7L7nZMVinwiaXKONCGMNEGimTStqVe5NQZXtqlo BlGR9tK0Rb3ZLbC/NYA0YZL9rQGkCfvYXxawRpqwj/1lAWukCZvsLwgYRZqw yf6CgFGkCZvsLwgY1XyaVtQbXwfV7QC7Aml65JFHbJ5lQL30dVDdDrBrXy7+ 8pe/vPa1r7V5lhn16vulvRdg175cfPvb337Pe95j8ywz6gD4pb0XYNdoLu7f v//GN77x+9//vsGzJNQlcCdwLNqbQrc2c/GPf/zjd7/73Ve+8pVHH330c5/7 XNFnuWLcAVcmz0F1KejcZi7e/va3HxwcfPzjH//Vr35V+lmuGNfAlclzUF0K OmeZC9JUI/XloFOkaSBNQerLQadI00CapqjvBz0iTQNpmqK+H/SINA2kKUh9 OegUaRpIU5D6ctAp0jSQpiD15aBTpGmLugQeqe8EPSJNW9QZ8Eh9J+gRaRpe nKPdr2BFe0foDWkaCFEc9S2hL6RpIE1x1LeEvpAm9cb7pb4ZdI00qQPgl/pm 0DXSpA6AX+qbQddIkzoAfqlvBl0jTeoAVEB9RegRaVLvfQXUV4QekSb13ldA fUXoEWlS77136vtBp0iTevW9U98POkWa1Kvvnfp+0CnSpF79aqgvCn0hTeqN r4b6otCXntOk3vUWqO8QzSJNWEJ9h2gWaUIa9e2hcaQJadS3h8aRJqRR3x4a R5oQSX1d6AtpQiT1daEvfaZJveVLGb+I8KbQLdJUI+MXEd4UutVVmmwWuZC5 r7n8fYvdAzCtqzRtWVwLC8K3zv5oIB5pck741tkfDcTrOU0r5aqykPpgACXS pC7QXuqDAZRI0yh1ll6gPoOymn9BLESaRqmz9AL1GZTV/AtiIdIUKb4hpClG 8y+IhUiTpZ7T1PwLIi/SZIk0NfyCyIs0WeozTZ28JvIiTZZIU8OvibxIE8rp qsDIizShHNKEZKQJ5ZAmJCNNKI0oIQFpQmmkCQlIE0ojTUhAmlAaaUIC0oTS SBMSkCaURpeQgDShNNKEBKQJZkgT4pEmmCFNiEeaADhEmgA4RJoAOESaADhE mgA4RJoAOESaADhknCYAiGSWJgAAgN78f+JroDI= "], {{0, 1307}, {393, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{196.5, Automatic}, ImageSizeRaw->{393, 1307}, PlotRange->{{0, 393}, {0, 1307}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7716916804073095`*^9}, CellLabel->"Out[22]=", CellID->636311427] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Richard Lapin", "Text", CellID->364898927] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["cartogram", "Item", CellID->662019551], Cell["density map", "Item", CellID->627361148] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Geographic Data & Computation", { False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj0trAzEMhKE0zW4JPfdS2FNv+\ yOWzYNAISUqvTvOJDH12saSDttfX29ftCdJzCfNqKtampGMHnSzU0kqLc37C+\ wbjqcrvn5yLPSwQTxnky7ONksjpnls+jgU1oiLge5fHavx7v1zLOLmi+\ VyeisYmOtOJQ5Fti1VzzkmZBnptjeCc8wOhZzv0rTNP6ZT3asHV6ujE3Mo3WxtPONXqJfw+\ KtMyaPXIfw3vNsGQU4Z33HrLoykB0Z5dbEHR80WL2MCVWsNdmI+AOXfYRQ="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->578052704] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["Entity", "Item", CellID->45489856], Cell["CountryData", "Item", CellID->190175723], Cell["GeoHistogram", "Item", CellID->800778422], Cell["GeoRegionValuePlot", "Item", CellID->257842628], Cell["GeoBubbleChart", "Item", CellID->484714516] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["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->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[TextData[{ "Dorling, D., ", StyleBox["Area cartograms: Their Use and Creation", FontSlant->"Italic"], ", pg. 30. Concepts and Techniques in Modern Geography, Vol. 59, 1996." }], "Text", CellID->438998426] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["\<\ High resolution iterations are computationally intensive and take a long \ time. For instance, 500 iterations of contiguous US states at resolution of \ 1000 took around 3 hours (link for the output below): https://youtu.be/ggcOGzDh1qo\ \>", "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}, CellChangeTimes->{{3.7717059696692815`*^9, 3.771706010717483*^9}, { 3.771706384104396*^9, 3.7717063878703127`*^9}, {3.771706482463497*^9, 3.7717065430145264`*^9}}, CellTags->"TabNext", CellID->893246722] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Cartogram | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.870177024532903`16.340305819558576*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.870177024584805`16.340305819564403*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"cbd330c5-6a81-40b1-a886-b64c9d281526", CellTags->{"Name", "TemplateCell", "Title"}, CellID->51637207]}, "TemplateCell"->{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"cbd330c5-6a81-40b1-a886-b64c9d281526", CellTags->{"Name", "TemplateCell", "Title"}, CellID->51637207], Cell[719, 27, 197, 5, 70, "Text",ExpressionUUID->"70a791b7-560a-4e74-9518-0cb0282357e4", CellTags->{"Description", "TemplateCell"}, CellID->443442022]}, "Title"->{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"cbd330c5-6a81-40b1-a886-b64c9d281526", CellTags->{"Name", "TemplateCell", "Title"}, CellID->51637207]}, "Description"->{ Cell[719, 27, 197, 5, 70, "Text",ExpressionUUID->"70a791b7-560a-4e74-9518-0cb0282357e4", CellTags->{"Description", "TemplateCell"}, CellID->443442022]}, "Definition"->{ Cell[941, 36, 1206, 29, 70, "Section",ExpressionUUID->"a12c0bea-2e88-403f-8e7b-459b4673c64a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[941, 36, 1206, 29, 70, "Section",ExpressionUUID->"a12c0bea-2e88-403f-8e7b-459b4673c64a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[941, 36, 1206, 29, 70, "Section",ExpressionUUID->"a12c0bea-2e88-403f-8e7b-459b4673c64a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[25562, 579, 1980, 50, 70, "Subsection",ExpressionUUID->"53d9d947-1143-4b6c-bfef-0d4b5a66099b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[32580, 836, 1429, 32, 70, "Subsection",ExpressionUUID->"be9f3c49-6e39-4bb9-aac0-34ddef48197d", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[35450, 923, 7029, 152, 70, "Section",ExpressionUUID->"1b526c36-3283-4e3d-b32e-bb12f2ee67ae", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[82439, 1932, 1026, 26, 70, "Subsection",ExpressionUUID->"d8c2e36e-0c0c-451e-85ef-e6af4fdb8b68", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[83554, 1966, 996, 26, 70, "Subsection",ExpressionUUID->"4a4c9a8e-4ad7-4a14-9452-81c184398ee7", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[84685, 2003, 221, 6, 70, "Subsection",ExpressionUUID->"0c9cdf5c-944c-4d64-9377-9593fa9c4f1a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[93275, 2269, 980, 26, 70, "Subsection",ExpressionUUID->"b7bac5b8-bc00-4c1a-b070-65d6dfc1c99c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[94547, 2315, 1039, 26, 70, "Subsection",ExpressionUUID->"74c57c6b-99f6-447d-9922-183d3d22f728", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[96154, 2356, 1084, 26, 70, "Subsection",ExpressionUUID->"4170290f-fd92-4957-9feb-45d569881a60", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[97493, 2395, 923, 26, 70, "Subsection",ExpressionUUID->"f19ed0a2-0302-41a6-8e49-5a0d538ec298", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[98961, 2436, 1874, 45, 70, "Subsection",ExpressionUUID->"7f985684-97cb-4d05-9dec-99f36c13bf12", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[101192, 2502, 955, 25, 70, "Subsection",ExpressionUUID->"233e97f8-5859-4cf2-a750-bdd4e5166efb", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[102172, 2531, 1174, 31, 70, "Subsubsection",ExpressionUUID->"695f61b6-17df-43c3-b39e-03ec68f3c6c8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[103475, 2571, 1113, 29, 70, "Subsubsection",ExpressionUUID->"31d3dafd-0093-411d-a2df-62bcc9d0c17f", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[106726, 2669, 1280, 33, 70, "Subsubsection",ExpressionUUID->"bd610a96-1f20-49e8-befa-423c81e65a42", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[110195, 2772, 1913, 46, 70, "Subsubsection",ExpressionUUID->"07c22ce2-7e07-4245-890e-24179fbde5a8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[116134, 2942, 1071, 27, 70, "Subsubsection",ExpressionUUID->"27609b3b-3b98-4f20-998e-bb93098e7ae2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[118487, 3014, 1155, 28, 70, "Section",ExpressionUUID->"8c37eefc-d929-4ee4-91a7-2be9c1be7f64", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[120550, 3065, 1033, 26, 70, "Section",ExpressionUUID->"cd8a77df-bf3a-4599-a98c-6920e81e4832", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2150, 67, 23155, 498, 70, "Input",ExpressionUUID->"7dc023cb-c6f8-4c74-98ad-964432e63802", CellTags->"TabNext", CellID->793769091], Cell[95589, 2343, 528, 8, 70, "Item",ExpressionUUID->"56cba29c-2e25-47ef-8976-24d245c83a31", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[98419, 2423, 505, 8, 70, "Item",ExpressionUUID->"b93e79b5-cac9-482b-b44f-a6452fde821c", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[119645, 3044, 868, 16, 70, "Text",ExpressionUUID->"160af408-9deb-4038-b49b-130a91ee9154", CellTags->"TabNext", CellID->893246722], Cell[121586, 3093, 515, 8, 70, "Text",ExpressionUUID->"b3e8686a-40f3-4e5a-aeab-994ea9e97dde", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[25342, 570, 195, 5, 70, "Section",ExpressionUUID->"146dbc14-f51d-4bb2-af09-1c5ca5317896", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[25342, 570, 195, 5, 70, "Section",ExpressionUUID->"146dbc14-f51d-4bb2-af09-1c5ca5317896", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[82165, 1923, 249, 5, 70, "Section",ExpressionUUID->"f4ac32b6-a731-4b84-b928-9d49f875bdd8", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[25562, 579, 1980, 50, 70, "Subsection",ExpressionUUID->"53d9d947-1143-4b6c-bfef-0d4b5a66099b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[32580, 836, 1429, 32, 70, "Subsection",ExpressionUUID->"be9f3c49-6e39-4bb9-aac0-34ddef48197d", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[32580, 836, 1429, 32, 70, "Subsection",ExpressionUUID->"be9f3c49-6e39-4bb9-aac0-34ddef48197d", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[35450, 923, 7029, 152, 70, "Section",ExpressionUUID->"1b526c36-3283-4e3d-b32e-bb12f2ee67ae", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[82165, 1923, 249, 5, 70, "Section",ExpressionUUID->"f4ac32b6-a731-4b84-b928-9d49f875bdd8", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[82439, 1932, 1026, 26, 70, "Subsection",ExpressionUUID->"d8c2e36e-0c0c-451e-85ef-e6af4fdb8b68", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[82439, 1932, 1026, 26, 70, "Subsection",ExpressionUUID->"d8c2e36e-0c0c-451e-85ef-e6af4fdb8b68", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[83554, 1966, 996, 26, 70, "Subsection",ExpressionUUID->"4a4c9a8e-4ad7-4a14-9452-81c184398ee7", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[84685, 2003, 221, 6, 70, "Subsection",ExpressionUUID->"0c9cdf5c-944c-4d64-9377-9593fa9c4f1a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[84909, 2011, 8329, 253, 70, "Output",ExpressionUUID->"a3bdc9f2-7439-4d94-b712-0d0b82062225", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->578052704]}, "Categories-Checkboxes"->{ Cell[84909, 2011, 8329, 253, 70, "Output",ExpressionUUID->"a3bdc9f2-7439-4d94-b712-0d0b82062225", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->578052704]}, "CheckboxCell"->{ Cell[84909, 2011, 8329, 253, 70, "Output",ExpressionUUID->"a3bdc9f2-7439-4d94-b712-0d0b82062225", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->578052704], Cell[104591, 2602, 2098, 62, 70, "Output",ExpressionUUID->"9db9071f-2304-483b-b927-f74982cb78ed", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[108009, 2704, 2149, 63, 70, "Output",ExpressionUUID->"722012d1-ad04-4d12-ba44-a0e30c001d17", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[112111, 2820, 3986, 117, 70, "Output",ExpressionUUID->"07748f2e-afce-402a-929d-b94f34057cc6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[117208, 2971, 1218, 36, 70, "Output",ExpressionUUID->"532a0d79-369a-4e2c-82af-d9006eaf6669", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[93275, 2269, 980, 26, 70, "Subsection",ExpressionUUID->"b7bac5b8-bc00-4c1a-b070-65d6dfc1c99c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[94547, 2315, 1039, 26, 70, "Subsection",ExpressionUUID->"74c57c6b-99f6-447d-9922-183d3d22f728", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "DefaultContent"->{ Cell[95589, 2343, 528, 8, 70, "Item",ExpressionUUID->"56cba29c-2e25-47ef-8976-24d245c83a31", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[98419, 2423, 505, 8, 70, "Item",ExpressionUUID->"b93e79b5-cac9-482b-b44f-a6452fde821c", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[100860, 2485, 158, 5, 70, "Input",ExpressionUUID->"c80293dc-a672-461d-976f-184d74e68354", CellTags->"DefaultContent", CellID->946203791], Cell[101021, 2492, 122, 4, 70, "Output",ExpressionUUID->"a4c3322e-27de-4e8f-944d-9f7f54f89ee1", CellTags->"DefaultContent", CellID->168370258], Cell[103349, 2564, 89, 2, 70, "Text",ExpressionUUID->"901f0925-a515-4508-8811-fe11610ad4ba", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[121586, 3093, 515, 8, 70, "Text",ExpressionUUID->"b3e8686a-40f3-4e5a-aeab-994ea9e97dde", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source/Reference Citation"->{ Cell[96154, 2356, 1084, 26, 70, "Subsection",ExpressionUUID->"4170290f-fd92-4957-9feb-45d569881a60", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[97493, 2395, 923, 26, 70, "Subsection",ExpressionUUID->"f19ed0a2-0302-41a6-8e49-5a0d538ec298", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[98961, 2436, 1874, 45, 70, "Subsection",ExpressionUUID->"7f985684-97cb-4d05-9dec-99f36c13bf12", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[98961, 2436, 1874, 45, 70, "Subsection",ExpressionUUID->"7f985684-97cb-4d05-9dec-99f36c13bf12", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[101192, 2502, 955, 25, 70, "Subsection",ExpressionUUID->"233e97f8-5859-4cf2-a750-bdd4e5166efb", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[102172, 2531, 1174, 31, 70, "Subsubsection",ExpressionUUID->"695f61b6-17df-43c3-b39e-03ec68f3c6c8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[102172, 2531, 1174, 31, 70, "Subsubsection",ExpressionUUID->"695f61b6-17df-43c3-b39e-03ec68f3c6c8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[103349, 2564, 89, 2, 70, "Text",ExpressionUUID->"901f0925-a515-4508-8811-fe11610ad4ba", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[103475, 2571, 1113, 29, 70, "Subsubsection",ExpressionUUID->"31d3dafd-0093-411d-a2df-62bcc9d0c17f", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[104591, 2602, 2098, 62, 70, "Output",ExpressionUUID->"9db9071f-2304-483b-b927-f74982cb78ed", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[103475, 2571, 1113, 29, 70, "Subsubsection",ExpressionUUID->"31d3dafd-0093-411d-a2df-62bcc9d0c17f", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[104591, 2602, 2098, 62, 70, "Output",ExpressionUUID->"9db9071f-2304-483b-b927-f74982cb78ed", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[106726, 2669, 1280, 33, 70, "Subsubsection",ExpressionUUID->"bd610a96-1f20-49e8-befa-423c81e65a42", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[108009, 2704, 2149, 63, 70, "Output",ExpressionUUID->"722012d1-ad04-4d12-ba44-a0e30c001d17", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[106726, 2669, 1280, 33, 70, "Subsubsection",ExpressionUUID->"bd610a96-1f20-49e8-befa-423c81e65a42", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[108009, 2704, 2149, 63, 70, "Output",ExpressionUUID->"722012d1-ad04-4d12-ba44-a0e30c001d17", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[110195, 2772, 1913, 46, 70, "Subsubsection",ExpressionUUID->"07c22ce2-7e07-4245-890e-24179fbde5a8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[112111, 2820, 3986, 117, 70, "Output",ExpressionUUID->"07748f2e-afce-402a-929d-b94f34057cc6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[110195, 2772, 1913, 46, 70, "Subsubsection",ExpressionUUID->"07c22ce2-7e07-4245-890e-24179fbde5a8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[112111, 2820, 3986, 117, 70, "Output",ExpressionUUID->"07748f2e-afce-402a-929d-b94f34057cc6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[116134, 2942, 1071, 27, 70, "Subsubsection",ExpressionUUID->"27609b3b-3b98-4f20-998e-bb93098e7ae2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[116134, 2942, 1071, 27, 70, "Subsubsection",ExpressionUUID->"27609b3b-3b98-4f20-998e-bb93098e7ae2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[117208, 2971, 1218, 36, 70, "Output",ExpressionUUID->"532a0d79-369a-4e2c-82af-d9006eaf6669", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[117208, 2971, 1218, 36, 70, "Output",ExpressionUUID->"532a0d79-369a-4e2c-82af-d9006eaf6669", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[118487, 3014, 1155, 28, 70, "Section",ExpressionUUID->"8c37eefc-d929-4ee4-91a7-2be9c1be7f64", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[120550, 3065, 1033, 26, 70, "Section",ExpressionUUID->"cd8a77df-bf3a-4599-a98c-6920e81e4832", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 245101, 5421}, {"TemplateCell", 245282, 5425}, {"Title", 245616, 5432}, {"Description", 245796, 5436}, {"Definition", 245974, 5440}, {"Function", 246170, 5444}, {"TemplateCellGroup", 246375, 5448}, {"TabNext", 250215, 5509}, {"Documentation", 251011, 5525}, {"TemplateSection", 251205, 5529}, {"Usage", 251579, 5536}, {"Details & Options", 251774, 5540}, {"Notes", 251978, 5544}, {"Examples", 252185, 5548}, {"Source & Additional Information", 252395, 5552}, {"Contributed By", 252607, 5556}, {"ContributorInformation", 252842, 5560}, {"Keywords", 253063, 5564}, {"Categories", 253254, 5568}, {"Categories-Checkboxes", 253650, 5575}, {"CheckboxCell", 253863, 5579}, {"Related Symbols", 254987, 5595}, {"Related Resource Objects", 255199, 5599}, {"DefaultContent", 255411, 5603}, {"Source/Reference Citation", 256402, 5622}, {"Links", 256606, 5626}, {"Tests", 256789, 5630}, {"VerificationTests", 257006, 5634}, {"Compatibility", 257219, 5638}, {"CompatibilityWolframLanguageVersionRequired", 257449, 5642}, {"Wolfram Language Version", 257722, 5646}, {"ScrapeDefault", 257984, 5650}, {"CompatibilityOperatingSystem", 258188, 5654}, {"Operating System", 258659, 5661}, {"CompatibilityOperatingSystem-Checkboxes", 258924, 5665}, {"CompatibilityFeatures", 259182, 5669}, {"Required Features", 259634, 5676}, {"CompatibilityFeatures-Checkboxes", 259886, 5680}, {"CompatibilityEvaluationEnvironment", 260143, 5684}, {"Environments", 260624, 5691}, {"CompatibilityEvaluationEnvironment-Checkboxes", 260897, 5695}, {"Cloud Support", 261159, 5699}, {"CompatibilityCloudSupport", 261404, 5703}, {"CompatibilityCloudSupport-Checkboxes", 261883, 5710}, {"Author Notes", 262126, 5714}, {"Submission Notes", 262326, 5718} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[625, 23, 91, 2, 70, "Title",ExpressionUUID->"cbd330c5-6a81-40b1-a886-b64c9d281526", CellTags->{"Name", "TemplateCell", "Title"}, CellID->51637207], Cell[719, 27, 197, 5, 70, "Text",ExpressionUUID->"70a791b7-560a-4e74-9518-0cb0282357e4", CellTags->{"Description", "TemplateCell"}, CellID->443442022], Cell[CellGroupData[{ Cell[941, 36, 1206, 29, 70, "Section",ExpressionUUID->"a12c0bea-2e88-403f-8e7b-459b4673c64a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2150, 67, 23155, 498, 70, "Input",ExpressionUUID->"7dc023cb-c6f8-4c74-98ad-964432e63802", CellTags->"TabNext", CellID->793769091] }, Open ]], Cell[CellGroupData[{ Cell[25342, 570, 195, 5, 70, "Section",ExpressionUUID->"146dbc14-f51d-4bb2-af09-1c5ca5317896", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[25562, 579, 1980, 50, 70, "Subsection",ExpressionUUID->"53d9d947-1143-4b6c-bfef-0d4b5a66099b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[27567, 633, 141, 4, 70, "UsageInputs",ExpressionUUID->"60602e62-ef3a-4770-b081-e36f0e9bbe2c", CellID->201493861], Cell[27711, 639, 778, 23, 70, "UsageDescription",ExpressionUUID->"4def453b-8f85-4841-bf2a-b79683c5056b", CellID->172784440] }, Open ]], Cell[CellGroupData[{ Cell[28526, 667, 544, 20, 70, "UsageInputs",ExpressionUUID->"9ff1a270-3976-4d8e-8f83-7193362504b3", CellID->167975583], Cell[29073, 689, 1712, 68, 70, "UsageDescription",ExpressionUUID->"f48e54a0-95ac-42ae-8413-1f159a920172", CellID->951748196] }, Open ]], Cell[CellGroupData[{ Cell[30822, 762, 194, 6, 70, "UsageInputs",ExpressionUUID->"d144b481-8886-461e-8e07-fb49088a2eff", CellID->323057875], Cell[31019, 770, 372, 12, 70, "UsageDescription",ExpressionUUID->"c02b2514-12dd-4bf2-80ce-913c519ff447", CellID->615419722] }, Open ]], Cell[CellGroupData[{ Cell[31428, 787, 225, 7, 70, "UsageInputs",ExpressionUUID->"726d9e0b-976c-4d74-bebf-d3b4e753912e", CellID->59183174], Cell[31656, 796, 220, 8, 70, "UsageDescription",ExpressionUUID->"4affd384-6973-4a54-933c-8891b53750d7", CellID->925549106] }, Open ]], Cell[CellGroupData[{ Cell[31913, 809, 262, 8, 70, "UsageInputs",ExpressionUUID->"8c3f38a6-6f49-4abf-a608-b4af15c0cf8a", CellID->294404140], Cell[32178, 819, 353, 11, 70, "UsageDescription",ExpressionUUID->"33e0c71c-0969-46eb-b46f-75b633a1cf07", CellID->845080188] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32580, 836, 1429, 32, 70, "Subsection",ExpressionUUID->"be9f3c49-6e39-4bb9-aac0-34ddef48197d", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[34012, 870, 1215, 38, 70, "Notes",ExpressionUUID->"29c93810-9429-4022-bffd-d2da1fb4546e", CellID->815695597], Cell[35230, 910, 171, 7, 70, "Notes",ExpressionUUID->"509292d5-358d-46f8-911f-3e071fb4371e", CellID->706310900] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35450, 923, 7029, 152, 70, "Section",ExpressionUUID->"1b526c36-3283-4e3d-b32e-bb12f2ee67ae", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[42504, 1079, 75, 2, 70, "Subsection",ExpressionUUID->"4b2ddca3-7233-416f-b23f-8a030a3f8eb5", CellID->904125756], Cell[42582, 1083, 307, 8, 70, "Text",ExpressionUUID->"4ce2f677-0123-4273-b117-19600138c72a", CellID->629838371], Cell[CellGroupData[{ Cell[42914, 1095, 428, 11, 70, "Input",ExpressionUUID->"8397f722-f3f6-4a85-9b91-735a58e9415b", CellID->254769753], Cell[43345, 1108, 1297, 30, 70, "Output",ExpressionUUID->"7d0a3f8d-5a78-4565-8c44-b6040ba9801e", CellID->66102363] }, Open ]], Cell[CellGroupData[{ Cell[44679, 1143, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3aa243a8-a9f9-42b2-8b94-ab2343cf6f6a", CellID->14107562], Cell[44825, 1149, 219, 4, 70, "Text",ExpressionUUID->"4823e539-bb46-42d3-a706-1bad425bb940", CellID->171041979], Cell[CellGroupData[{ Cell[45069, 1157, 862, 22, 70, "Input",ExpressionUUID->"6144af73-4993-4a5f-920b-380b79ac1268", CellID->604128821], Cell[45934, 1181, 1140, 28, 70, "Output",ExpressionUUID->"93132635-793e-45a5-9d79-2cecde6f6854", CellID->721279089] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47123, 1215, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"fc92c418-07a4-4520-b501-df7bf0562e0a", CellID->14107563], Cell[47269, 1221, 220, 4, 70, "Text",ExpressionUUID->"c1d84201-f7e2-4d1f-a4bc-ccecfae3c2a7", CellID->836135522], Cell[CellGroupData[{ Cell[47514, 1229, 1044, 26, 70, "Input",ExpressionUUID->"235608dc-05cb-4d34-ae71-c9a340b705aa", CellID->306048215], Cell[48561, 1257, 1224, 28, 70, "Output",ExpressionUUID->"f785092d-2501-4c66-a4da-11bb46a8bcb4", CellID->180411849] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49846, 1292, 133, 3, 70, "Subsection",ExpressionUUID->"e5aa3894-d4b7-4d68-a980-94055898c271", CellID->890561554], Cell[49982, 1297, 295, 9, 70, "Text",ExpressionUUID->"307feca3-221b-4464-a89b-821556b70892", CellID->520459324], Cell[CellGroupData[{ Cell[50302, 1310, 1092, 28, 70, "Input",ExpressionUUID->"a8bbb339-bf0e-4ec2-ad13-6e654a4ed8ce", CellID->715192840], Cell[51397, 1340, 1173, 28, 70, "Output",ExpressionUUID->"f5036963-cbd6-4a9c-9ceb-9357eeca2426", CellID->858297672] }, Open ]], Cell[CellGroupData[{ Cell[52607, 1373, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"cc5714bd-c7ed-42e3-bbb3-b6123bcdca44", CellID->14107564], Cell[52753, 1379, 346, 8, 70, "Text",ExpressionUUID->"f50c4c30-0e3d-4c79-9867-ee07e956d56e", CellID->194306458], Cell[CellGroupData[{ Cell[53124, 1391, 1098, 28, 70, "Input",ExpressionUUID->"594d9245-e7e0-4bfd-bcdf-ef18574fad0f", CellID->447693131], Cell[54225, 1421, 5478, 96, 70, "Output",ExpressionUUID->"7574114e-95bf-471e-9e74-626c4c5001ee", CellID->99371429] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59752, 1523, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d827dadd-1136-478f-aa83-85652b0561a3", CellID->14107565], Cell[59898, 1529, 264, 5, 70, "Text",ExpressionUUID->"dfb3a3bc-11a1-4dec-bb47-b890e4683d25", CellID->794783532], Cell[CellGroupData[{ Cell[60187, 1538, 1063, 27, 70, "Input",ExpressionUUID->"6fa0207c-682a-466e-a9a5-e931e697e2d4", CellID->552416241], Cell[61253, 1567, 20839, 348, 70, "Output",ExpressionUUID->"f2beddca-37c7-42ee-aedf-1b5d84e00d20", CellID->636311427] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[82165, 1923, 249, 5, 70, "Section",ExpressionUUID->"f4ac32b6-a731-4b84-b928-9d49f875bdd8", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[82439, 1932, 1026, 26, 70, "Subsection",ExpressionUUID->"d8c2e36e-0c0c-451e-85ef-e6af4fdb8b68", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[83468, 1960, 49, 1, 70, "Text",ExpressionUUID->"03acaf75-8c82-4dcc-88c2-37ff6906eeb6", CellID->364898927] }, Open ]], Cell[CellGroupData[{ Cell[83554, 1966, 996, 26, 70, "Subsection",ExpressionUUID->"4a4c9a8e-4ad7-4a14-9452-81c184398ee7", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[84553, 1994, 45, 1, 70, "Item",ExpressionUUID->"028c959b-8892-47b4-84a4-0951d3d2dee5", CellID->662019551], Cell[84601, 1997, 47, 1, 70, "Item",ExpressionUUID->"d94828a6-a5f6-458d-8118-bf6be1274e06", CellID->627361148] }, Open ]], Cell[CellGroupData[{ Cell[84685, 2003, 221, 6, 70, "Subsection",ExpressionUUID->"0c9cdf5c-944c-4d64-9377-9593fa9c4f1a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[84909, 2011, 8329, 253, 70, "Output",ExpressionUUID->"a3bdc9f2-7439-4d94-b712-0d0b82062225", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->578052704] }, Open ]], Cell[CellGroupData[{ Cell[93275, 2269, 980, 26, 70, "Subsection",ExpressionUUID->"b7bac5b8-bc00-4c1a-b070-65d6dfc1c99c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[94258, 2297, 41, 1, 70, "Item",ExpressionUUID->"22218f1d-9b91-4ce7-9b87-6c1730d8ab62", CellID->45489856], Cell[94302, 2300, 47, 1, 70, "Item",ExpressionUUID->"48099ae0-335b-4c55-b7fa-3681cf08bab7", CellID->190175723], Cell[94352, 2303, 48, 1, 70, "Item",ExpressionUUID->"21f07779-be5a-4f2d-a99f-602e915a576b", CellID->800778422], Cell[94403, 2306, 54, 1, 70, "Item",ExpressionUUID->"15bcf49f-ecfd-4e77-aefe-0903baf38e1e", CellID->257842628], Cell[94460, 2309, 50, 1, 70, "Item",ExpressionUUID->"ec5ada24-477e-4721-905c-1978800b9c31", CellID->484714516] }, Open ]], Cell[CellGroupData[{ Cell[94547, 2315, 1039, 26, 70, "Subsection",ExpressionUUID->"74c57c6b-99f6-447d-9922-183d3d22f728", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[95589, 2343, 528, 8, 70, "Item",ExpressionUUID->"56cba29c-2e25-47ef-8976-24d245c83a31", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[96154, 2356, 1084, 26, 70, "Subsection",ExpressionUUID->"4170290f-fd92-4957-9feb-45d569881a60", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[97241, 2384, 215, 6, 70, "Text",ExpressionUUID->"3a7738c9-990c-4265-947b-de270732ef65", CellID->438998426] }, Open ]], Cell[CellGroupData[{ Cell[97493, 2395, 923, 26, 70, "Subsection",ExpressionUUID->"f19ed0a2-0302-41a6-8e49-5a0d538ec298", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[98419, 2423, 505, 8, 70, "Item",ExpressionUUID->"b93e79b5-cac9-482b-b44f-a6452fde821c", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[98961, 2436, 1874, 45, 70, "Subsection",ExpressionUUID->"7f985684-97cb-4d05-9dec-99f36c13bf12", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[100860, 2485, 158, 5, 70, "Input",ExpressionUUID->"c80293dc-a672-461d-976f-184d74e68354", CellTags->"DefaultContent", CellID->946203791], Cell[101021, 2492, 122, 4, 70, "Output",ExpressionUUID->"a4c3322e-27de-4e8f-944d-9f7f54f89ee1", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101192, 2502, 955, 25, 70, "Subsection",ExpressionUUID->"233e97f8-5859-4cf2-a750-bdd4e5166efb", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[102172, 2531, 1174, 31, 70, "Subsubsection",ExpressionUUID->"695f61b6-17df-43c3-b39e-03ec68f3c6c8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[103349, 2564, 89, 2, 70, "Text",ExpressionUUID->"901f0925-a515-4508-8811-fe11610ad4ba", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[103475, 2571, 1113, 29, 70, "Subsubsection",ExpressionUUID->"31d3dafd-0093-411d-a2df-62bcc9d0c17f", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[104591, 2602, 2098, 62, 70, "Output",ExpressionUUID->"9db9071f-2304-483b-b927-f74982cb78ed", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[106726, 2669, 1280, 33, 70, "Subsubsection",ExpressionUUID->"bd610a96-1f20-49e8-befa-423c81e65a42", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[108009, 2704, 2149, 63, 70, "Output",ExpressionUUID->"722012d1-ad04-4d12-ba44-a0e30c001d17", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[110195, 2772, 1913, 46, 70, "Subsubsection",ExpressionUUID->"07c22ce2-7e07-4245-890e-24179fbde5a8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[112111, 2820, 3986, 117, 70, "Output",ExpressionUUID->"07748f2e-afce-402a-929d-b94f34057cc6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[116134, 2942, 1071, 27, 70, "Subsubsection",ExpressionUUID->"27609b3b-3b98-4f20-998e-bb93098e7ae2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[117208, 2971, 1218, 36, 70, "Output",ExpressionUUID->"532a0d79-369a-4e2c-82af-d9006eaf6669", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[118487, 3014, 1155, 28, 70, "Section",ExpressionUUID->"8c37eefc-d929-4ee4-91a7-2be9c1be7f64", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[119645, 3044, 868, 16, 70, "Text",ExpressionUUID->"160af408-9deb-4038-b49b-130a91ee9154", CellTags->"TabNext", CellID->893246722] }, Open ]], Cell[CellGroupData[{ Cell[120550, 3065, 1033, 26, 70, "Section",ExpressionUUID->"cd8a77df-bf3a-4599-a98c-6920e81e4832", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[121586, 3093, 515, 8, 70, "Text",ExpressionUUID->"b3e8686a-40f3-4e5a-aeab-994ea9e97dde", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)