(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 428497, 9425] NotebookOptionsPosition[ 268574, 6367] NotebookOutlinePosition[ 411864, 9072] CellTagsIndexPosition[ 410055, 9022] WindowTitle->PrettyGrid | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["PrettyGrid", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->54360235], Cell["\<\ Conveniently display two-dimensional data in a nicely styled grid\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->878922369], 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[{"Clear", "[", RowBox[{ "PrettyGrid", ",", "iPrettyGrid", ",", "prettyGridFormat", ",", "normalizeRules", ",", " ", "$PrettyGridStyles"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$PrettyGridStyles", " ", "=", " ", RowBox[{"Association", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Automatic", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Background", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.93", "]"}], ",", " ", RowBox[{"GrayLevel", "[", "1", "]"}]}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.93", "]"}], ",", " ", RowBox[{"GrayLevel", "[", "1", "]"}]}], "}"}]}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"ItemSize", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "All", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "All", "}"}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "True", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "True", "}"}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"FrameStyle", " ", "->", " ", RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "->", " ", "12"}]}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Background", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.1", "]"}], ",", " ", RowBox[{"{", RowBox[{"GrayLevel", "[", "0.1", "]"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.1", "]"}], ",", " ", RowBox[{"{", RowBox[{"GrayLevel", "[", "0.1", "]"}], "}"}]}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"ItemSize", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "All", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "All", "}"}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"Dividers", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1.", ",", " ", "0.9", ",", " ", "0.1"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "3", "]"}], ",", " ", RowBox[{"GrayLevel", "[", "0.85", "]"}]}], "}"}]}], ",", " ", RowBox[{ RowBox[{"-", "1"}], " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "3", "]"}], ",", " ", RowBox[{"GrayLevel", "[", "0.85", "]"}]}], "}"}]}]}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1.", ",", " ", "0.9", ",", " ", "0.1"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "3", "]"}], ",", " ", RowBox[{"GrayLevel", "[", "0.85", "]"}]}], "}"}]}], ",", " ", RowBox[{ RowBox[{"-", "1"}], " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "3", "]"}], ",", " ", RowBox[{"GrayLevel", "[", "0.85", "]"}]}], "}"}]}]}], "}"}]}], "}"}]}], "}"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "->", " ", "12"}], ",", " ", RowBox[{"FontColor", " ", "->", " ", RowBox[{"RGBColor", "[", RowBox[{"0", ",", " ", "0.9", ",", " ", "1"}], "]"}]}]}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Background", " ", "->", " ", RowBox[{"{", RowBox[{"None", ",", " ", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{ "0.679", ",", " ", "0.96", ",", " ", "1.", ",", " ", "0.6"}], "]"}], ",", " ", RowBox[{"GrayLevel", "[", "1", "]"}]}], "}"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Dividers", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0.2", ",", " ", "0.2", ",", " ", "0.2"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", " ", "Small"}], "}"}], "]"}], "[", RowBox[{"{", RowBox[{"Medium", ",", " ", "Medium"}], "}"}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"0.75", ",", " ", "0.75", ",", " ", "0.75"}], "]"}]}], "]"}], "}"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"0.2", ",", " ", "0.2", ",", " ", "0.2"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0.2", ",", " ", "0.2", ",", " ", "0.2"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", " ", "Small"}], "}"}], "]"}], "[", RowBox[{"{", RowBox[{"Medium", ",", " ", "Medium"}], "}"}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"0.75", ",", " ", "0.75", ",", " ", "0.75"}], "]"}]}], "]"}], "}"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"0.2", ",", " ", "0.2", ",", " ", "0.2"}], "]"}]}], "}"}]}], "}"}]}], ",", " ", RowBox[{"ItemSize", " ", "->", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "1"}], "}"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "->", " ", "12"}]}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Background", " ", "->", " ", "None"}], ",", " ", RowBox[{"FrameStyle", " ", "->", " ", RowBox[{"GrayLevel", "[", "0", "]"}]}], ",", " ", RowBox[{"Dividers", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "->", " ", RowBox[{"GrayLevel", "[", "0", "]"}]}], ",", " ", RowBox[{ RowBox[{"-", "1"}], " ", "->", " ", RowBox[{"GrayLevel", "[", "0", "]"}]}]}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "->", " ", RowBox[{"GrayLevel", "[", "0", "]"}]}], ",", " ", RowBox[{ RowBox[{"-", "1"}], " ", "->", " ", RowBox[{"GrayLevel", "[", "0", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "->", " ", "12"}]}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]}], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8146493634587927`*^9, 3.814649368350676*^9}, { 3.8146494221470633`*^9, 3.814649423433066*^9}, {3.814649557306738*^9, 3.814649635927692*^9}, {3.8146496846499653`*^9, 3.8146497420245943`*^9}, 3.81464980659663*^9, {3.814650290178755*^9, 3.8146502931779222`*^9}, 3.814650542569557*^9, {3.81465184444062*^9, 3.8146518453182783`*^9}}, CellLabel->"In[25]:=", CellID->951479331], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"normalizeRules", "[", RowBox[{"r", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_", " ", "->", " ", RowBox[{"{", "___Rule", "}"}]}], ")"}], ".."}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"c", " ", "=", " ", RowBox[{"DeleteDuplicates", "[", RowBox[{"Join", " ", "@@", " ", RowBox[{"r", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Replace", "[", RowBox[{"c", ",", " ", RowBox[{"Append", "[", RowBox[{"#1", ",", " ", RowBox[{"_", " ", "->", " ", RowBox[{"Spacer", "[", "0", "]"}]}]}], "]"}], ",", " ", "1"}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"r", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", " ", RowBox[{"r", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", "c"}], "}"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"normalizeRules", "[", RowBox[{"r", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_", " ", "->", " ", RowBox[{"{", "___", "}"}]}], ")"}], ".."}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"a", " ", "=", " ", "Automatic"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"PadRight", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", " ", "a", ",", " ", "None"}], "]"}], ",", " ", RowBox[{"r", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", "a"}], "}"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"normalizeRules", "[", RowBox[{"r", ":", RowBox[{"{", RowBox[{ RowBox[{"{", "___Rule", "}"}], ".."}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"c", " ", "=", " ", RowBox[{"DeleteDuplicates", "[", RowBox[{"Join", " ", "@@", " ", RowBox[{"r", "[", RowBox[{"[", RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Replace", "[", RowBox[{"c", ",", " ", RowBox[{"Append", "[", RowBox[{"#1", ",", " ", RowBox[{"_", " ", "->", " ", RowBox[{"Spacer", "[", "0", "]"}]}]}], "]"}], ",", " ", "1"}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "r"}], ",", " ", "Automatic", ",", " ", "c"}], "}"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"normalizeRules", "[", "r_", "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"a", " ", "=", " ", "Automatic"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"PadRight", "[", RowBox[{"r", ",", " ", "a", ",", " ", "None"}], "]"}], ",", " ", "a", ",", " ", "a"}], "}"}]}], "]"}]}]}], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8146493634587927`*^9, 3.814649368350676*^9}, { 3.8146494221470633`*^9, 3.814649423433066*^9}, {3.814649557306738*^9, 3.814649635927692*^9}, {3.8146496846499653`*^9, 3.8146497420245943`*^9}, 3.81464980659663*^9, {3.814650290178755*^9, 3.8146502931779222`*^9}, 3.814650542569557*^9, {3.814651852345099*^9, 3.8146518537526903`*^9}}, CellLabel->"In[27]:=", CellID->879164616], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PrettyGrid", "::", "notheme"}], " ", "=", " ", "\"\<`1` is not a valid PlotTheme option value.\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "PrettyGrid", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Alignment", " ", "->", " ", "Left"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Default"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotTheme", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Spacings", " ", "->", " ", "Automatic"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"PrettyGrid", "[", RowBox[{"mat_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "m", "}"}], ",", " ", RowBox[{ RowBox[{"m", " ", "=", " ", RowBox[{ RowBox[{"Normal", "[", "mat", "]"}], " ", "/.", " ", RowBox[{"Association", " ", "->", " ", "List"}]}]}], ";", " ", RowBox[{"iPrettyGrid", "[", RowBox[{"m", ",", " ", "opts"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"iPrettyGrid", "[", RowBox[{"matrix_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "PrettyGrid", "]"}]}]}], "]"}], " ", "/;", " ", RowBox[{"FreeQ", "[", RowBox[{"matrix", ",", " ", "_Rule", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}]}], "]"}]}], " ", ":=", " ", RowBox[{"prettyGridFormat", "[", RowBox[{"matrix", ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"iPrettyGrid", "[", RowBox[{"nonmatrix_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "PrettyGrid", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", ",", " ", "r", ",", " ", "c"}], "}"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"m", ",", " ", "r", ",", " ", "c"}], "}"}], " ", "=", " ", RowBox[{"normalizeRules", "[", "nonmatrix", "]"}]}], ";", " ", RowBox[{"r", " ", "=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"Automatic", " ", "->", " ", "r"}]}], "]"}]}], ";", " ", RowBox[{"c", " ", "=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"Automatic", " ", "->", " ", "c"}]}], "]"}]}], ";", " ", RowBox[{"prettyGridFormat", "[", RowBox[{"m", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "r"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "c"}], ",", " ", "opts"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"prettyGridFormat", "[", RowBox[{"list_", ",", " ", RowBox[{"OptionsPattern", "[", "PrettyGrid", "]"}]}], "]"}], " ", ":=", " ", RowBox[{"Quiet", "@", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"list2", " ", "=", " ", "list"}], ",", " ", RowBox[{"colheads", " ", "=", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"rowheads", " ", "=", " ", RowBox[{"{", "}"}]}], ",", " ", "len", ",", " ", RowBox[{"theme", " ", "=", " ", RowBox[{"OptionValue", "[", "PlotTheme", "]"}]}], ",", " ", RowBox[{"bsf", " ", "=", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}]}], "}"}], ",", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"colheads", ",", " ", "rowheads"}], "}"}], " ", "=", " ", RowBox[{ RowBox[{"OptionValue", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], "]"}], " ", "/.", " ", RowBox[{"Automatic", " ", "->", " ", "None"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"theme", " ", "=", " ", RowBox[{"Replace", "[", RowBox[{"theme", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}]}], "]"}]}], ";", " ", RowBox[{"theme", " ", "=", " ", RowBox[{"$PrettyGridStyles", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"KeyExistsQ", "[", RowBox[{"$PrettyGridStyles", ",", " ", "theme"}], "]"}], ",", " ", "theme", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"PrettyGrid", "::", "notheme"}], ",", " ", "theme"}], "]"}], ";", " ", "Automatic"}]}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"bsf", " ", "===", " ", "Default"}], ",", " ", RowBox[{"bsf", " ", "=", " ", "Nothing"}], ",", " ", RowBox[{"bsf", " ", "=", " ", RowBox[{"FontSize", " ", "->", " ", "bsf"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"colheads", " ", "=!=", " ", "None"}], ",", " ", RowBox[{ RowBox[{"PrependTo", "[", RowBox[{"list2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Item", "[", RowBox[{"#1", ",", " ", RowBox[{"Alignment", " ", "->", " ", RowBox[{"{", RowBox[{"Center", ",", " ", "Baseline"}], "}"}]}], ",", " ", RowBox[{"BaseStyle", " ", "->", " ", "Bold"}], ",", " ", RowBox[{"ItemSize", " ", "->", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "1.5"}], "}"}]}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "colheads"}]}], "]"}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"rowheads", " ", "=!=", " ", "None"}], ",", " ", RowBox[{"PrependTo", "[", RowBox[{"rowheads", ",", " ", RowBox[{"Spacer", "[", "0", "]"}]}], "]"}]}], "]"}], ";"}]}], " ", "]"}], ";", " ", RowBox[{"len", " ", "=", " ", RowBox[{"Length", "[", "list2", "]"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"rowheads", " ", "=!=", " ", "None"}], ",", " ", RowBox[{ RowBox[{"list2", " ", "=", " ", RowBox[{"Transpose", "[", "list2", "]"}]}], ";", " ", RowBox[{"list2", " ", "=", " ", RowBox[{"PrependTo", "[", RowBox[{"list2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Item", "[", RowBox[{"#1", ",", " ", RowBox[{"BaseStyle", " ", "->", " ", "Bold"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"PadRight", "[", RowBox[{"rowheads", ",", " ", "len", ",", " ", "\"\<\>\""}], "]"}]}]}], "]"}]}], ";", " ", RowBox[{"list2", " ", "=", " ", RowBox[{"Transpose", "[", "list2", "]"}]}], ";"}]}], " ", "]"}], ";", " ", RowBox[{"Pane", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"list2", ",", " ", RowBox[{"Frame", " ", "->", " ", "All"}], ",", " ", RowBox[{"Spacings", " ", "->", " ", RowBox[{"OptionValue", "[", "Spacings", "]"}]}], ",", " ", RowBox[{"Alignment", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"OptionValue", "[", "Alignment", "]"}], ",", " ", RowBox[{"{", RowBox[{"Length", "[", RowBox[{"list2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "}"}]}], "]"}], ",", " ", "Center"}], "}"}]}], ",", " ", RowBox[{"Sequence", " ", "@@", " ", RowBox[{"theme", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{"BaseStyle", " ", "->", " ", RowBox[{"{", RowBox[{"bsf", ",", " ", RowBox[{"Sequence", " ", "@@", " ", RowBox[{"theme", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"ImageSizeAction", " ", "->", " ", "\"\\""}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}]}], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8146493634587927`*^9, 3.814649368350676*^9}, { 3.8146494221470633`*^9, 3.814649423433066*^9}, {3.814649557306738*^9, 3.814649635927692*^9}, {3.8146496846499653`*^9, 3.8146497420245943`*^9}, 3.81464980659663*^9, {3.814650290178755*^9, 3.8146502931779222`*^9}, 3.814650542569557*^9, {3.814651852345099*^9, 3.8146518537526903`*^9}}, CellLabel->"In[31]:=", CellID->694913468] }, 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[{"PrettyGrid", "[", StyleBox["data", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->297597698], Cell[TextData[{ "displays the elements of ", Cell[BoxData[ StyleBox["data", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in an autostyled two-dimensional grid." }], "UsageDescription", CellID->78888678] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Grid", "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/Grid", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " works only on lists of lists, but ", Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " works on data of many forms:" }], "Notes", CellTags->"TabNext", CellID->105666659], Cell[BoxData[GridBox[{ {Cell["lists", "TableText"], Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["expr", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["expr", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"]}, {Cell["associations", "TableText"], Cell[TextData[Cell[BoxData[ RowBox[{"<|", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["1", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["2", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["2", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "|>"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"]}, {Cell["matrices", "TableText"], Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["expr", "TI"], StyleBox["11", "TR"]], ",", SubscriptBox[ StyleBox["expr", "TI"], StyleBox["12", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["expr", "TI"], StyleBox["21", "TR"]], ",", SubscriptBox[ StyleBox["expr", "TI"], StyleBox["22", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"]}, {Cell["list of rules", "TableText"], Cell[TextData[{ "{", Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["1", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["2", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["2", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}]]], "}" }], "TableText"]}, {Cell["list of lists of rules", "TableText"], Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["11", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["11", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["21", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["21", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"]}, {Cell["list of associations", "TableText"], Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["11", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["11", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "|>"}], ",", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["k", "TI"], StyleBox["21", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["v", "TI"], StyleBox["21", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "|>"}], StyleBox["\[Ellipsis]", "TR"]}]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"]} }]], "TableNotes", CellID->198230534], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes the following options:" }], "Notes", CellTags->"TabNext", CellID->931354573], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Alignment", "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/Alignment", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Left", "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/Left", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "horizontal alignment of items", "TableText"]}, {Cell["\"BaseFontSize\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Default", "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/Default", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "the font size used in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["BaseStyle", "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/BaseStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the grid" }], "TableText"]}, {Cell["\"ColumnHeadings\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "the headers used for the columns", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "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/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "\"Monochrome\"", "TableText"], Cell[ "format the grid with a predefined set of styles", "TableText"]}, {Cell["\"RowHeadings\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "the headers used for the rows", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Spacings", "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/Spacings", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "this ", Cell[BoxData[ StyleBox["spec", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is passed directly to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Grid", "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/Grid", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"]} }]], "TableNotes", CellID->734548704], Cell[TextData[{ "The following option values are available for the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "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/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Notes", CellID->960532753], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3V9IVOsax/HJLE95Y2Je1IRYYhgh51JCC/9QGIjQ4Xi/N6ezMciDeUAO dNONN4JEISWRINLpIkJQqZRjfyBFi24aijBGgkyR3HqTw9xo59nzQAxsZs3r eht81+L7g72ZeWat1w8LfvNKF77lv/7rwj/zIpFI11/kfxd+6a6/cuWX//yt SN78vaOr/beOi/9o7vj3xd8uXqn5dbcM/yf//XVXJPLH6++EEEII+VP+Swgh hJAMyfX+m8hBcifHjHmnzPQRM2Z3zPQRM2Z3zPQRM2Z3zPQRM2Z3zPQRM2Z3 zPQRM2Z3zPQRM2Z3zPQRM2Z3zCby4eHhs6kMDg6mz0dHR3U+NDTkz3/37t3G VG7fvp0+f/Dggc7v3Lnj7ceMOUxmkz6ura1Fo9FIJLJ///54PK7DxcXF4uJi GZaVla2vr/vzf/ny5fDhw7LIvn373r17p8OPHz8eOHBAhkeOHFlaWvL3zDFj DqLZcGefmpratWuXrFlfX7+1tbW5udnQ0CBv8/PzZ2ZmPG7Mur8/evQoksrp 06c3Nja+fft25swZebt79+5nz5553JhVjhlz4MyGfZR0dXXpD5I9t7e3V1/3 9PR435XVL+no6NDV+vv7ZUF9fe3aNe+7TOSYMQfLbN7HZDJZXV2tu/zevXvl RVNTk3y32Pvl14OTJ0/qLr9nzx791pLvFvtnjhlzsMzmfZTEYrGCggLte2lp 6fLyctZbTPyS169f6zORHDx4cGFhIesthnLMmANk3lYfJc3NzfpT2traTK43 9EvOnj2rK1+4cMHkenM5ZsxBMW+rj+Pj45G0yNuf5X/48GH6yvLW0I8Zc5jM 5n1cWVmRPV0Wr6ysrKioiKS2eBna+z99+iR7uiwoyx49ejSS2uJlaP/MMWMO ltm8jy0tLZHUP9vOzc1NT0/n5f3xF+1kaO8/f/68LCULvnjx4unTp/oP0TK0 f+aYMQfLbNjHgYEB3Xm7u7t10tnZqRP5yMZ/8+ZNXefKlSs6uXz5sk7kI5tn jhlz4MwmfZyfny8sLJQFq6qqksmkDjc2NnSXl4/kAn/+t2/f7t+/XxY5fvz4 +vq6DldXV3WXl4/kAn/PHDPmIJpN+lhXV6c7++zsbPpctmPdi+UCf/5Tp07p zv78+fP0+eTkpH6lyAX+njlmzEE0m/TRJln3d9/JnRwz5p0y00fMmN0x00fM mN0x00fMmN0x00fMmN0x00fMmN0x00fMmN0x00fMmN0x00fMmN0x00fMmN0x 00fMmN0x00fMmN0x00fMmN0x00fMmN0xE0IIISRTcrH/pu/Cv+cguZNjxrxT ZvqIGbM7ZvqIGbM7ZvqIGbM7ZvqIGbM7ZvqIGbM7ZvqIGbM7ZhO5/anomQy3 bt2qT+XGjRvp83v37um8v7/f248Zc5jMJn20PxU9kyEejx86dEhXfvPmjQ5j sVhRUZEMo9HowsKCv2eOGXMQzYY7u+Wp6JkMkpGREV25trZ2dXX169evP/58 9JMnTzxuzCrHjDlwZsM+JuxORfdgSC5duqSrXb9+XRbU11evXvW+y0SOGXOw zOZ9tDkV3Vsivx6cOHEifWX5spLvFvtnjhlzsMzmfUxYnIruLZG8fPnyx8ol JSXv37/PeouhHDPmAJm31ceE31PRs2IkjY2NunJra6vJ9eZyzJiDYt5WH32f ip4Vc//+/fSV5a2hHzPmMJnN+2hzKrq35MOHD7Kny4LHjh0rLy+PpLZ4Gdo/ c8yYg2U276PNqejeknPnzunKk5OTjx8/1pVlaP/MMWMOltmwj5anonsw+vr6 dJ2Ojg6dtLe360Q+snnmmDEHzmzSR/tT0TMZXr16pStXVlYuLS3p8PPnz7rL y0dygb9njhlzEM0mfbQ/FT2ToaamRleemJhIn4+NjenKcoG/Z44ZcxDNJn20 Sdb93XdyJ8eMeafM9BEzZnfM9BEzZnfM9BEzZnfM9BEzZnfM9BEzZnfM9BEz ZnfM9BEzZnfM9BEzZnfM9BEzZnfM9BEzZnfM9BEzZnfM9BEzZnfM9BEzZnfM hBBCCMmU7zmLrp+73xwwYw6TmT5ixuyOmT5ixuyOmT5ixuyOmT5ixuyOmT5i xuyOmT5ixuyO2UQ+PDx8NpXBwcH0+ejoqM6Hhob8+e1PcseMOUxmkz6ura1F o1H9A8vxeFyHi4uLxcXFMiwrK1tfX/fntz/JHTPmMJkNd/apqSk9FqS+vn5r a2tzc7OhoUHe5ufnz8zMeNyYdX+3PMkdM+YwmQ37KOnq6tIfJHtub2+vvu7p 6fG+K6s/YXeSO2bMYTKb9zGZTFZXV+sur2cxNzU1yXeLvd/mJHfMmMNkNu+j JBaLFRQUaN9LS0uXl5ez3mLiT1ic5I4Zc5jM2+qjpLm5WX9KW1ubyfWG/oTf k9wxYw6TeVt9HB8fj6RF3v4sv++T3DFjDpPZvI8rKyuyp0dSZ01WVFREUlu8 DO39Nie5Y8YcJrN5H1taWiKpf7adm5ubnp7Oy8uTtzK099uc5I4Zc5jMhn0c GBjQnbe7u1snnZ2dOpGPbPyWJ7ljxhwms0kf5+fnCwsLZcGqqqpkMqnDjY0N 3eXlI7nAn9/+JHfMmMNkNuljXV2d7uyzs7Ppc9mOdS+WC/z57U9yx4w5TGaT Ptok6/7uO7mTY8a8U2b6iBmzO2b6iBmzO2b6iBmzO2b6iBmzO2b6iBmzO2b6 iBmzO2b6iBmzO2b6iBmzO2b6iBmzO2b6iBmzO2b6iBmzO2b6iBmzO2b6iBmz O2ZCCCGEZEou9t/0Xfj3HCR3csyYd8pMHzFjdsdMHzFjdsdMHzFjdsdMHzFj dsdMHzFjdsdMHzFjdsdsIrc/FT2T4datW/Wp3LhxI31+7949nff393v7MWMO k9mkj/anomcyxOPxQ4cO6cpv3rzRYSwWKyoqkmE0Gl1YWPD3zDFjDqLZcGe3 PBU9k0EyMjKiK9fW1q6urn79+vXHn49+8uSJx41Z5ZgxB85s2MeE3anoHgzJ pUuXdLXr16/Lgvr66tWr3neZyDFjDpbZvI82p6J7S+TXgxMnTqSvLF9W8t1i /8wxYw6W2byPCYtT0b0lkpcvX/5YuaSk5P3791lvMZRjxhwg87b6mPB7KnpW jKSxsVFXbm1tNbneXI4Zc1DM2+qj71PRs2Lu37+fvrK8NfRjxhwms3kfbU5F 95Z8+PBB9nRZ8NixY+Xl5ZHUFi9D+2eOGXOwzOZ9tDkV3Vty7tw5XXlycvLx 48e6sgztnzlmzMEyG/bR8lR0D0ZfX5+u09HRoZP29nadyEc2zxwz5sCZTfpo fyp6JsOrV6905crKyqWlJR1+/vxZd3n5SC7w98wxYw6i2aSP9qeiZzLU1NTo yhMTE+nzsbExXVku8PfMMWMOotmkjzbJur/7Tu7kmDHvlJk+Ysbsjpk+Ysbs jpk+Ysbsjpk+Ysbsjpk+Ysbsjpk+Ysbsjpk+Ysbsjpk+Ysbsjpk+Ysbsjpk+ Ysbsjpk+Ysbsjpk+Ysbsjpk+YsbsjpkQQgghmfI9Z9H1c/ebA2bMYTLTR8yY 3THTR8yY3THTR8yY3THTR8yY3THTR8yY3THTR8yY3TGbyIeHh8+mMjg4mD4f HR3V+dDQkD+//UnumDGHyWzSx7W1tWg0qn9gOR6P63BxcbG4uFiGZWVl6+vr /vz2J7ljxhwms+HOPjU1pceC1NfXb21tbW5uNjQ0yNv8/PyZmRmPG7Pu75Yn uWPGHCazYR8lXV1d+oNkz+3t7dXXPT093ndl9SfsTnLHjDlMZvM+JpPJ6upq 3eX1LOampib5brH325zkjhlzmMzmfZTEYrGCggLte2lp6fLyctZbTPwJi5Pc MWMOk3lbfZQ0NzfrT2lrazO53tCf8HuSO2bMYTJvq4/j4+ORtMjbn+X3fZI7 ZsxhMpv3cWVlRfb0SOqsyYqKikhqi5ehvd/mJHfMmMNkNu9jS0tLJPXPtnNz c9PT03l5efJWhvZ+m5PcMWMOk9mwjwMDA7rzdnd366Szs1Mn8pGN3/Ikd8yY w2Q26eP8/HxhYaEsWFVVlUwmdbixsaG7vHwkF/jz25/kjhlzmMwmfayrq9Od fXZ2Nn0u27HuxXKBP7/9Se6YMYfJbNJHm2Td330nd3LMmHfKTB8xY3bHTB8x Y3bHTB8xY3bHTB8xY3bHTB8xY3bHTB8xY3bHTB8xY3bHTB8xY3bHTB8xY3bH TB8xY3bHTB8xY3bHTAghhJA/Jxd7OiGEEEIIIYSQ8OX/EnJe/A== "], {{0, 94.}, {152., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{152., 94.}, PlotRange->{{0, 152.}, {0, 94.}}]], GridBoxOptions->{ GridBoxBackground->{ "Columns" -> {{None}}, "Rows" -> {None, None, None, None, None, None, None, {None}}}, GridBoxDividers->{ "Rows" -> {{True, True, True, True, True, True, True, True, True}}}}]], "TableText"], Cell["\"Monochrome\"", "TableText"]}, {Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3T2LlGcfxuHZrC9RQVJYLmIEQYjIFoJpg1UaC0MaOyVGAuKCLmQDFoKl hYWFhSB+AD/CYu8LlsJYiKWthYIo3rnjDctCcOe67kH25PI44Qm7w8zxTPPL zKb5/3h+5cyf300mk6vf9/84c+7vX65cOffPbz/0v/x++epfFy9f+OPXy6sX Ll648vP5xf7B9f5/ywuTyX8/d2ZmZva/TczMzOwL+3qfv9PPI5PJW0+PZHKO rEcyOUfWI5mcI+uRTM6R9Ugm58h6JJNzZD2SyTmyHsnkHFmPZHKOrEcyOUcu 73Ftbe2nz7tz587mx2/dunX8+PETJ07cv3//S6/d+v2TyeRh5T2+evVq//79 /dP27dv38uXL4cHnz5/v3r27f/DIkSNv374d9/7JZPKwqu+r9+7dG5556tSp /tePHz+ePHmy/3XHjh2PHj3a4oUzP9/JZHJX//fj6dOnhyffvXv35s2bw8/X r1/f+lUl37fJZHJtj69fvz5w4ED/5D179uzatav/oQ//w4cP879/Mplc22O/ Bw8ebLyk/4b84sWLmS8pef9kMnlEj58+fTp06NDwkrNnz5a8pPD9k8nfuDyi x9u3b2+8pP/79PHjxzNfUvj+yeRvXK7tsX8be/fu7Z+8tLTU/1/0Pxw9evTd u3fzv38ymVzV48Z/tl1cXHz69Om1a9eGF66srMz5/slkclfZ440bN4Znrq6u 9r++f//+2LFj/a8LCwsPHz6c5/2TyeSupsdnz57t3Lmzf9rhw4c3PnafPHnS /xugf/DgwYNv3rwZ9/7JZPKw8h6Xl5eHp62vr29+fG1tbXj80qVL494/mUwe Vt7jPJv5+U4mkzs9kslJsh7J5BxZj2RyjqxHMjlH1iOZnCPrkUzOkfVIJufI eiSTc2Q9ksk5sh7J5BxZj2Ryjry5x6mZbev0aJYz31fJ5BxZj2RyjqxHMjlH 1iOZnCPrkUzOkfVIJufIeiSTc2Q9ksk5sh7J5By5vMfMe+tkcktyeY+Z99bJ 5Jbkqu+rgffWyeSW5Nq/H9PurZPJLcm1PabdWyeTW5Jre+zC7q2TyS3JI3qM urdOJrckj+gx6t46mdySXNvjNOzeOpncklzVY+C9dTK5Jbmqx8B762RyS3J5 j5n31snkluTyHjPvrZPJLcnlPc6zmZ/vZDK50yOZnCTrkUzOkfVIJufIeiST c2Q9ksk5sh7J5BxZj2RyjqxHMjlH1iOZnCPrkUzOkfVIJufIm3ucmtm2To9m OfN9lUzOkfVIJufIeiSTc2Q9ksk5sh7J5BxZj2RyjqxHMjlH1iOZnCPrkUzO kct7zLy3Tia3JJf3mHlvnUxuSa76vhp4b51Mbkmu/fsx7d46mdySXNtj2r11 MrklubbHLuzeOpnckjyix6h762RyS/KIHqPurZPJLcm1PU7D7q2TyS3JVT0G 3lsnk1uSq3oMvLdOJrckl/eYeW+dTG5JLu8x8946mdySXN7jPJv5+U4mkzs9 kslJsh7J5BxZj2RyjqxHMjlH1iOZnCPrkUzOkfVIJufIeiSTc2Q9ksk5sh7J 5BxZj2Ryjry5x6mZbev0aJYz31fJ5BxZj2RyjqxHMjlH1iOZnCPrkUzOkfVI JufIeiSTc2Q9ksk5sh7J5By5vMfMe+tkcktyeY+Z99bJ5Jbkqu+rgffWyeSW 5Nq/H9PurZPJLcm1PabdWyeTW5Jre+zC7q2TyS3JI3qMurdOJrckj+gx6t46 mdySXNvjNOzeOpncklzVY+C9dTK5Jbmqx8B762RyS3J5j5n31snkluTyHjPv rZPJLcnlPc6zmZ/vZDK50yOZnCTrkUzOkfVIJufIeiSTc2Q9ksk5sh7J5BxZ j2RyjqxHMjlH1iOZnCPrkUzOkfVIJufIm3ucmtm2To9mOfN9lUzOkfVIJufI eiSTc2Q9ksk5sh7J5BxZj2RyjqxHMjlH1iOZnCPrkUzOkct7zLy3Tia3JJf3 mHlvnUxuSa76vhp4b51Mbkmu/fsx7d46mdySXNtj2r11MrklubbHLuzeOpnc kjyix6h762RyS/KIHqPurZPJLcm1PU7D7q2TyS3JVT0G3lsnk1uSq3oMvLdO Jrckl/eYeW+dTG5JLu8x8946mdySXN7jPJv5+U4mkzs9kslJsh7J5BxZj2Ry jqxHMjlH1iOZnCPrkUzOkfVIJufIeiSTc2Q9ksk58sTMzMy+sK/xyWtmZmZm Zmbt7V85UTmB "], {{0, 94.}, {152., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{152., 94.}, PlotRange->{{0, 152.}, {0, 94.}}]]]], "TableText"], Cell[ "\"Minimal\"", "TableText"]}, {Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U9IlO0ax/H5559GiKPQQGRKpJIQcuKtiMJKmQwJN28cN7XofTmdlwPh 0QzkEBEY2MJFtIiyIWVyF0QxuJBQdKiREWo2BoFgEAk2GwcE6Wmhc+7H+1lM HJrnzyRd4PfiLpx7nufjtfl5qyNzHfjzP7//K+Dz+for1X+//zHQdv36H/+9 +Df14B89/f/+q+fqPzt7blz96+r1E38G1eaU+vd3v89nfpynKIqiKOr/6jeK oiiKon5QmW/5bVozW4WMjFx8kUdkZDkyeURGliOTR2RkOTJ5REaWI5NHZGQ5 MnlERpYjk0dkZDkyeURGliM7z+OdsfET0Q61bj8eLdy/9zyh9wefxL31j4yM rJfzPM5+WY3sq/X5fJW7wokPS3pz8uPy7uoatbm3rj6ZzXnrHxkZWS9X368+ mpz2+fzKPHqm7Z2x+fbrxrGz7ephMBgaS84VudH2fEdGRs64//nxcm+/b6tu PYz13h3WH18bHCp+l23/yMjIGfd5TK8ZjYdb9FkcKitXHxxvj6qvAKX3j4yM 7OH3q88yC2XlFTrv1Xsirz6t2N7ipH9kZGRvr3ecPN+pP8u5i91OrnfYPzLy Dpc95PH+iwlfQamHP6t/ZOQdLrvN49TnrDp5FV7X2LT/YINv6yBWm6X3j4yM 7DaPpy90KTkQCD59Mz82m/L7zXe0U5ul94+MjOwqjzcfjOiT98qNAb1zqadP 76inSukfGRk54yaPL98vVoarFHjgUHN6zdCbqdy6PovVU+oCb/0jIyPr5TyP R0616vM3/jpduB+bSuo/RVAXeOsfGRlZL2+vd7hdtuc7MjJyhjwiI0uSySMy shyZPCIjy5HJIzKyHJk8IiPLkckjMrIcmTwiI8uRySMyshyZPCIjy5HJIzKy HJk8IiPLkckjMrIcmTwiI8uRC/M4Q1HULy3ySFFyqjCP+W0r/bmQkZGLF3lE RpYjk0dkZDkyeURGliOTR2RkOTJ5REaWI5NHZGQ5svM8jo+Pd2zV6Oho4X4i kdD78Xj8R/cW7x8ZGVmX8zyurq7W1ppT0cPh8NLSkt5cXl6uqTGnotfX1+dy OW/9IyMj63L1/er09LTfb77Bcltb2+bm5sbGRnu7ORU9FArNzc0VudH2fEdG Rs67//mxv9+aih6LxYaHranoQ0NDxe+y7R8ZGTnvPo+GYbS0tOizuLzcnIoe jUbVV4DS+0dGRvbw+9WFhYWKCmsqeiQSWVlZsb3FSf/IyMjeXu/o7LSmond3 dzu53mH/yMg7XPaQx4mJ76aiq4e2tzjsHxl5h8tu85jNZtXJq/CmpqaGBnO+ pHqoNkvvHxkZ2W0eu7rMqejBYHB+fj6VSgUC5lR0tVl6/8jIyK7yODJiTUUf GBjQO3191lR09VQp/SMjI+fd5HFxcbGqypyK3tzcbBiG3lxfX9dnsXpKXeCt f2RkZF3O89ja2qrP33Q6XbifTCb1nyKoC7z1j4yMrMvb6x1uy/Z8R0ZGzpNH ZGRJMnlERpYjk0dkZDkyeURGliOTR2RkOTJ5REaWI5NHZGQ5MnlERpYjk0dk ZDkyeURGliOTR2RkOTJ5REaWI5NHZGQ5cmEeZyiK+qVFHilKThXmMfMtv01L fy5kZOTiizwiI8uRySMyshyZPCIjy5HJIzKyHJk8IiPLkckjMrIc2Xke74yN n4h2qHX78Wjh/r3nCb0/+CTurX9kZGS9nOdx9stqZJ85Fb1yVzjxYUlvTn5c 3l1tTkXfW1efzOa89Y+MjKyXq+9XH01O+3zmGywfPdP2zth8+3Xj2Nn2rbdi Do0l54rcaHu+IyMjZ9z//Hi515qKfuthrPeuNRX92uBQ8bts+0dGRs64z2N6 zWg83KLP4lCZORX9eHtUfQUovX9kZGQPv199llkoK7emolfvibz6tGJ7i5P+ kZGRvb3ecfK8NRX93MVuJ9c77B8ZeYfLHvJ4/8V3U9HVw5/VPzLyDpfd5nHq c1advAqva2zaf9CcL6keqs3S+0dGRnabx9MXzKnogUDw6Zv5sdmU329ORVeb pfePjIzsKo83H1hT0a/cGNA7l3qsqejqqVL6R0ZGzrjJ48v3i5Vhcyr6gUPN 6TVDb6Zy6/osVk+pC7z1j4yMrJfzPB451arP3/jrdOF+bCqp/xRBXeCtf2Rk ZL28vd7hdtme78jIyBnyiIwsSSaPyMhyZPKIjCxHJo/IyHJk8oiMLEcmj8jI cmTyiIwsRyaPyMhyZPKIjCxHJo/IyHJk8oiMLEcmj8jIcmTyiIwsRy7M4wxF Ub+0yCNFyanCPOa3rfTnQkZGLl7kERlZjkwekZHlyOQRGVmOTB6RkeXI5BEZ WY5MHpGR5cjO8zg+Pt6xVaOjo4X7iURC78fj8R/dW7x/ZGRkXc7zuLq6Wltr TkUPh8NLS0t6c3l5uabGnIpeX1+fy+W89Y+MjKzL1fer09PTfr/5BsttbW2b m5sbGxvt7eZU9FAoNDc3V+RG2/MdGRk57/7nx/5+ayp6LBYbHramog8NDRW/ y7Z/ZGTkvPs8GobR0tKiz+LycnMqejQaVV8BSu8fGRnZw+9XFxYWKiqsqeiR SGRlZcX2Fif9IyMje3u9o7PTmore3d3t5HqH/SMj73DZQx4nJr6biq4e2t7i sH9k5B0uu81jNptVJ6/Cm5qaGhrM+ZLqodosvX9kZGS3eezqMqeiB4PB+fn5 VCoVCJhT0dVm6f0jIyO7yuPIiDUVfWBgQO/09VlT0dVTpfSPjIycd5PHxcXF qipzKnpzc7NhGHpzfX1dn8XqKXWBt/6RkZF1Oc9ja2urPn/T6XThfjKZ1H+K oC7w1j8yMrIub693uC3b8x0ZGTlPHpGRJcnkERlZjkwekZHlyOQRGVmOTB6R keXI5BEZWY5MHpGR5cjkERlZjkwekZHlyOQRGVmOTB6RkeXI5BEZWY5MHpGR 5ciFeZyhKOqXFnmkKDlVmMfMt/w2Lf25kJGRiy/yiIwsRyaPyMhyZPKIjCxH Jo/IyHJk8oiMLEcmj8jIcmTnebwzNn4i2qHW7cejhfv3nif0/uCTuLf+kZGR 9XKex9kvq5F95lT0yl3hxIclvTn5cXl3tTkVfW9dfTKb89Y/MjKyXq6+X300 Oe3zmW+wfPRM2ztj8+3XjWNn27feijk0lpwrcqPt+Y6MjJxx//Pj5V5rKvqt h7Heu9ZU9GuDQ8Xvsu0fGRk54z6P6TWj8XCLPotDZeZU9OPtUfUVoPT+kZGR Pfx+9VlmoazcmopevSfy6tOK7S1O+kdGRvb2esfJ89ZU9HMXu51c77B/ZOQd LnvI4/0X301FVw9/Vv/IyDtcdpvHqc9ZdfIqvK6xaf9Bc76keqg2S+8fGRnZ bR5PXzCnogcCwadv5sdmU36/ORVdbZbePzIysqs83nxgTUW/cmNA71zqsaai q6dK6R8ZGTnjJo8v3y9Whs2p6AcONafXDL2Zyq3rs1g9pS7w1j8yMrJezvN4 5FSrPn/jr9OF+7GppP5TBHWBt/6RkZH18vZ6h9tle74jIyNnyCMysiSZPCIj y5HJIzKyHJk8IiPLkckjMrIcmTwiI8uRySMyshyZPCIjy5HJIzKyHJk8IiPL kckjMrIc+TeKoiiKon5QeYqiKIqiKIqiKIpyUP8DabKFRg== "], {{0, 94.}, {152., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{152., 94.}, PlotRange->{{0, 152.}, {0, 94.}}]]]], "TableText"], Cell[ "\"Detailed\"", "TableText"]}, {Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U+o5WUdx/Ez479wahh0xnGOCJnlQiQQpGJQQZBisBZORGuHJolghKsi RWKLWtQm2gyt3BmtXLiQ2kiBLsQIkoJy4cLEghZBCxdRTOf6kctd3flx/QrP 9zmvN49y78B5zTmLz9zfXT13XHji/LePrlarJz+x+d/5x555aGfnse99/cTm m29cevI7j1+6+K1zl566+PjFnS9duGbzh69s/rv/yGq1+/UVSZL0sfVXSZIk SZIkSZIObP0xd+W93UMmk5dks2RyFznZLJncRU42SyZ3kZPNksld5GSzZHIX OdksmdxFTjZLJneRk82SyV3kZLNkchc52SyZ3EVONksmd5FT1WZPfuVrJy5e 2js3PfrNkw+f2/t28/UBrz34M5LJ5P1VbfZT3//x0Tf/sXrvSs6xn1w+vvNs vj76p38ef/qHh/6MZDJ5f4XPxqfvve/IX/6Vv/3mRx7d/AOy+eLa3/359N33 HPzCqz5LkMnkvQo3u+nEhe9++C/GH949+se/r95+/9TZB676qiXP/2QyOdVu dtMNv/rN3s/94zs/WPKShb+zk8lbLqfyzZ7+/L1H3vp33smpsw8uecnCz0gm b7mcyjd75tN37P6s/+CdXPfrN87cdttVX7LwM5LJWy6n8s0e++kv9n7i7/7Q f+q5q75k4Wckk7dcTrWbvfmr51fv/u+6V948+fC51Tv/2X0zb79/yxfOHvyq JZ+RTCanws3e+rm7rvn9O6u//ffUQ1/efPvJH/08/4Bc//LrZ26//aN8RjKZ vFfVZk/ffc8NL/528/feePmFD9/YZ+7cvKu8mRsv//LWOz97uM9IJpP3V7XZ a197a+/J/Jb7vrj5k2M/e37/4/r1L716uM9IJpP3V/hsfOgW/s5OJm+5nGyW TO4iJ5slk7vIyWbJ5C5yslkyuYucbJZM7iInmyWTu8jJZsnkLnKyWTK5i5xs lkzuIiebJZO7yMlmyeQuclqy2bwHx3FGODbrOL2OZ2MyuYucbJZM7iInmyWT u8jJZsnkLnKyWTK5i5xslkzuIiebJZO7yMlmyeQucqra7Jj3YpPJM8mparNj 3otNJs8kp8Jn4wHvxSaTZ5JT4WbX492LTSbPJKfaza4HuxebTJ5JTuWbHepe bDJ5JjmVb3aoe7HJ5JnkVL7Zoe7FJpNnklPtZke7F5tMnklOhZsd8F5sMnkm OVVtdsx7scnkmeRUtdkx78Umk2eSU+Gz8aFb+Ds7mbzlcrJZMrmLnGyWTO4i J5slk7vIyWbJ5C5yslkyuYucbJZM7iInmyWTu8jJZsnkLnKyWTK5i5xslkzu IiebJZO7yGnJZvMeHMcZ4dis4/Q6no3J5C5yslkyuYucbJZM7iInmyWTu8jJ ZsnkLnKyWTK5i5xslkzuIiebJZO7yKlqs2Pei00mzySnqs2OeS82mTyTnAqf jQe8F5tMnklOhZtdj3cvNpk8k5xqN7se7F5sMnkmOZVvdqh7scnkmeRUvtmh 7sUmk2eSU/lmh7oXm0yeSU61mx3tXmwyeSY5FW52wHuxyeSZ5FS12THvxSaT Z5JT1WbHvBebTJ5JToXPxodu4e/sZPKWy8lmyeQucrJZMrmLnGyWTO4iJ5sl k7vIyWbJ5C5yslkyuYucbJZM7iInmyWTu8jJZsnkLnKyWTK5i5xslkzuIqcl m817cBxnhGOzjtPreDYmk7vIyWbJ5C5yslkyuYucbJZM7iInmyWTu8jJZsnk LnKyWTK5i5xslkzuIqeqzY55LzaZPJOcqjY75r3YZPJMcip8Nh7wXmwyeSY5 FW52Pd692GTyTHKq3ex6sHuxyeSZ5FS+2aHuxSaTZ5JT+WaHuhebTJ5JTuWb HepebDJ5JjnVbna0e7HJ5JnkVLjZAe/FJpNnklPVZse8F5tMnklOVZsd815s MnkmORU+Gx+6hb+zk8lbLiebJZO7yMlmyeQucrJZMrmLnGyWTO4iJ5slk7vI yWbJ5C5yslkyuYucbJZM7iInmyWTu8jJZsnkLnKyWTK5i5yWbDbvwXGcEY7N Ok6v49mYTO4iJ5slk7vIyWbJ5C5yslkyuYucbJZM7iInmyWTu8jJZsnkLnKy WTK5i5yqNjvmvdhk8kxyqtrsmPdik8kzyanw2XjAe7HJ5JnkVLjZ9Xj3YpPJ M8mpdrPrwe7FJpNnklP5Zoe6F5tMnklO5Zsd6l5sMnkmOZVvdqh7scnkmeRU u9nR7sUmk2eSU+FmB7wXm0yeSU5Vmx3zXmwyeSY5VW12zHuxyeSZ5FT4bHzo Fv7OTiZvuZxslkzuIiebJZO7yMlmyeQucrJZMrmLnGyWTO4iJ5slk7vIyWbJ 5C5yslkyuYucbJZM7iInmyWTu8jJZsnkLnJasllJkiRJkiRJ0jZ3RZIkSZKk hv0fpvJa/A== "], {{0, 95.}, {158., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{158., 95.}, PlotRange->{{0, 158.}, {0, 95.}}]], GridBoxOptions->{ GridBoxBackground->{ "Columns" -> {{None}}, "Rows" -> {None, None, None, None, None, None, None, {None}}}, GridBoxDividers->{ "Rows" -> {{True, True, True, True, True, True, True, True, True}}}}]], "TableText"], Cell["\"Marketing\"", "TableText"]} }]], "TableNotes", CellID->151517623] }, 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["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " displays matrices with formatting by default:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.8146504157263527`*^9}, CellID->758485600], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"10", " ", "i"}], "+", "j"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->902810013], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ {"11", "12", "13", "14", "15", "16", "17", "18", "19", "20"}, {"21", "22", "23", "24", "25", "26", "27", "28", "29", "30"}, {"31", "32", "33", "34", "35", "36", "37", "38", "39", "40"}, {"41", "42", "43", "44", "45", "46", "47", "48", "49", "50"}, {"51", "52", "53", "54", "55", "56", "57", "58", "59", "60"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}, FrameStyle->GrayLevel[0.65], GridBoxAlignment->{ "Columns" -> { Left, Left, Left, Left, Left, Left, Left, Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}, "Rows" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{1}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.792346256400646*^9, 3.814649507969494*^9, 3.8146496447934437`*^9, 3.814650114756998*^9, 3.814650316545764*^9, 3.814650364230091*^9, 3.814651860084539*^9}, CellLabel->"Out[1]=", CellID->773462035] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " accepts mixed lists of lists of rules and associations:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.814650420402975*^9}, CellID->871058686], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "0"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "6"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "}"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}]}], "}"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->64075149], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ { ItemBox["\<\"Apples\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Pears\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Oranges\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False]}, {"3", "0", "2"}, {"1", "6", "3"}, {"3", "2", "1"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}, GridBoxAlignment->{"Columns" -> {Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{ RGBColor[0.679, 0.96, 1., 0.6], GrayLevel[1]}}}, GridBoxDividers->{"Columns" -> { RGBColor[0.2, 0.2, 0.2], { Directive[ Dashing[{Small, Small}][{Medium, Medium}], RGBColor[0.75, 0.75, 0.75]]}, RGBColor[0.2, 0.2, 0.2]}, "Rows" -> { RGBColor[0.2, 0.2, 0.2], { Directive[ Dashing[{Small, Small}][{Medium, Medium}], RGBColor[0.75, 0.75, 0.75]]}, RGBColor[0.2, 0.2, 0.2]}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.814649974423368*^9, 3.81465011478694*^9, 3.814650190605198*^9, 3.814650257751794*^9, 3.814650316578102*^9, 3.814650364264756*^9, 3.8146518601072073`*^9}, CellLabel->"Out[1]=", CellID->874830245] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " works on both rectangular and ragged matrices:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.814650422728197*^9}, CellID->652644862], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "_"}], "}"}], "\[Rule]", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "15"}], "}"}]}], "]"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{".8", ",", ".8"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->621384667], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}, {"3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}, FrameStyle->GrayLevel[0.65], GridBoxAlignment->{ "Columns" -> { Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}, "Rows" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{"Columns" -> {{0.8}}, "Rows" -> {{0.8}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.792346263623929*^9, 3.814649488188119*^9, 3.8146496487437363`*^9, 3.814649978515518*^9, 3.8146501148156652`*^9, 3.81465031660454*^9, 3.814650364274831*^9, 3.814651860130023*^9}, CellLabel->"Out[1]=", CellID->218981173] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " works on certain datasets:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797090999479506*^9, 3.7970910000891304`*^9}, 3.8146504244795628`*^9}, CellID->919678154], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"d", "=", RowBox[{"ExampleData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]}], ";"}], "\n", RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"d", "[", RowBox[{"[", RowBox[{";;", "10"}], "]"}], "]"}], ",", RowBox[{"PlotTheme", " ", "\[Rule]", " ", "\"\\""}]}], "]"}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->410666583], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ { ItemBox["\<\"class\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"age\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"sex\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"survived\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False]}, {"\<\"1st\"\>", "29", "\<\"female\"\>", "True"}, {"\<\"1st\"\>", "1", "\<\"male\"\>", "True"}, {"\<\"1st\"\>", "2", "\<\"female\"\>", "False"}, {"\<\"1st\"\>", "30", "\<\"male\"\>", "False"}, {"\<\"1st\"\>", "25", "\<\"female\"\>", "False"}, {"\<\"1st\"\>", "48", "\<\"male\"\>", "True"}, {"\<\"1st\"\>", "63", "\<\"female\"\>", "True"}, {"\<\"1st\"\>", "39", "\<\"male\"\>", "False"}, {"\<\"1st\"\>", "53", "\<\"female\"\>", "True"}, {"\<\"1st\"\>", "71", "\<\"male\"\>", "False"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Helvetica", FontSize -> 12}, FrameStyle->GrayLevel[0], GridBoxAlignment->{ "Columns" -> {Left, Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> {{None}}}, GridBoxDividers->{"Columns" -> {{ GrayLevel[0.85]}}, "ColumnsIndexed" -> {1 -> GrayLevel[0], -1 -> GrayLevel[0]}, "Rows" -> {{ GrayLevel[0.85]}}, "RowsIndexed" -> {1 -> GrayLevel[0], -1 -> GrayLevel[0]}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.792346265971457*^9, 3.814649492312603*^9, 3.8146499819457417`*^9, 3.814650116253188*^9, 3.814650316634994*^9, 3.8146503643144073`*^9, 3.814651860186388*^9}, CellLabel->"Out[2]=", CellID->968941619] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " works on ragged arrays:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.814650427292121*^9}, CellID->751684286], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{ RowBox[{"RandomReal", "[", "]"}], ",", "n"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "7"}], "}"}]}], "]"}], "/.", RowBox[{"n", "->", "Nothing"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->18865008], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ {"0.5427574039143499`", "0.32193902303820554`", "0.1925939732357922`", "", "", ""}, {"0.94783356707499`", "0.8039920563216383`", "", "", "", ""}, {"0.9439211923581878`", "0.5520286992878909`", "0.3255400460564086`", "0.7146618559380478`", "0.37489140663440823`", "0.03505105816202625`"}, {"0.38653881304205173`", "0.499754154749233`", "0.8987967733494904`", "", "", ""}, {"0.36505951856079966`", "0.8272679035017234`", "0.3373595176564472`", "", "", ""}, {"0.4070632434636201`", "0.32927259928979136`", "0.29087596509035496`", "", "", ""}, {"0.6193730952522802`", "0.7494607171113461`", "0.7623543808353788`", "", "", ""} }, AutoDelete->False, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}, FrameStyle->GrayLevel[0.65], GridBoxAlignment->{"Columns" -> {Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}, "Rows" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.792346269629428*^9, 3.814649984310851*^9, 3.81465011632015*^9, 3.8146503166645403`*^9, 3.81465036432508*^9, 3.8146518602129173`*^9}, CellLabel->"Out[1]=", CellID->515013305] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " attempts to infer headings from the table's content:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.814650430229785*^9}, CellID->363369353], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrettyGrid", "@", RowBox[{"{", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "4"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "9"}]}], "|>"}]}], "}"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->630227093], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ { ItemBox["\<\"Apples\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Pears\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Oranges\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Bananas\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False]}, {"1", "2", "3", TemplateBox[{0}, "Spacer1"]}, {"2", TemplateBox[{0}, "Spacer1"], "4", "2"}, { TemplateBox[{0}, "Spacer1"], "3", "2", "9"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}, FrameStyle->GrayLevel[0.65], GridBoxAlignment->{ "Columns" -> {Left, Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}, "Rows" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.792346274155582*^9, 3.814649986533945*^9, 3.8146501163560266`*^9, 3.814650182587672*^9, 3.814650316674588*^9, 3.81465036436267*^9, 3.81465186024017*^9}, CellLabel->"Out[1]=", CellID->143959857] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " also works with nested associations:" }], "Text", TaggingRules->{}, CellID->257699042], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrettyGrid", "@", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "|>"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "4"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}]}], "|>"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "9"}]}], "|>"}]}]}], "|>"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->421317507], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ { ItemBox[ TemplateBox[{0}, "Spacer1"], BaseStyle->Bold, StripOnInput->False], ItemBox["\<\"Apples\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Pears\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Oranges\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"Bananas\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False]}, { ItemBox["\<\"Monday\"\>", BaseStyle->Bold, StripOnInput->False], "1", "2", "3", TemplateBox[{0}, "Spacer1"]}, { ItemBox["\<\"Tuesday\"\>", BaseStyle->Bold, StripOnInput->False], "2", TemplateBox[{0}, "Spacer1"], "4", "2"}, { ItemBox["\<\"Wednesday\"\>", BaseStyle->Bold, StripOnInput->False], TemplateBox[{0}, "Spacer1"], "3", "2", "9"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}, FrameStyle->GrayLevel[0.65], GridBoxAlignment->{ "Columns" -> {Left, Left, Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}, "Rows" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.792346279204426*^9, 3.814649987964756*^9, 3.814650116414447*^9, 3.814650316717392*^9, 3.81465036442106*^9, 3.814651860284977*^9}, CellLabel->"Out[1]=", CellID->744429441] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Alignment", "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/Alignment", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " option for controlling horizontal item\[Hyphen]wise alignments:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.814650439960701*^9}, CellID->82845310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "4"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "9"}]}], "|>"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "a"}], ",", RowBox[{"\"\\"", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"{", RowBox[{"Left", ",", " ", "Center", ",", " ", "Right"}], "}"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->503449022], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQd4FMX/xkMIvYYQqvQO0iIt9I4gIEWRJiKgooCCSBDp0lGagIWOgKIg VbogxUgNPUAChFCSkJAi+ecnSkLu/70bGIfdy2XucpvbbN7Ps889e7Ozs7Oz 737fmd29vXKDPuoxKKubm9vQLG5u7d3d3MzzJgAAAAAAAAAAuuTx48exsbER ERFhYWH3AAAAAF1CJnX//n0yLLIttZclJyfTovDw8AcPHvz111//BwAAAOgY sioyLLKtmJgYsjDRzqKioqKjoylPQkLC/wAAAADdQ4ZFtkXmRRbGTY0MjgZo lO7q2gEAAAD2QeYVa4HdO6OBG+wMAABABoUsjIyM7CwuLu7hw4e42AgAACCD QhZGRkZ2xm6fubo6AAAAgOOwG2q4gwYAACCjw+6msWf1XV0XAAAAwHHY8/xw NAAAABkdOBoAAABjAEcDAABgDOBoAAAAjAEcDQAAgDGAowEAADAGcDQAAADG AI4GAADAGMDRAAAAGAM4GgAAAGMARwMAAOAS4uPjQ0NDr1+/fubMmePHjx84 cGC/BZqhr5RIiygDZZMsEI4GAAAgnWH//BITE0OedfXqVfKvP/74g4xsnwWa oa+USIsoA2WT/L8zOBoAAIB0hkznxo0bly9f/u2338jCdlv4VYCl0CLKQNko M62SarFwNAAAAOlJfHx8bGws+VRAQMCePXuYhe3atYuGZr9ZoBn6ytIpA2Wj zLRKqpcf4WgAAADSk9DQ0ODgYHIucqudO3cy5yIXu3379n0LNENfWTploGyU mVahFW2XDEcDAACQnly/fj0wMHDfvn3iZUbyLPIy5kc0Q1/FpZSZVqEVbZcM RwMAAJCenDlz5uTJk4obZ7YdjTLTKrSi7ZLhaAAAANKT48eP//nnn7ss8Htn x44di4yMZH5EM/RVvKdG0Cq0ou2S4WgAAADSE/a7M8W9M3KxuLg45kc0Q18V 99TY79RslwxHAwAAkJ6QN7GbaOKVxpTgVyBpFVrRdslwNAAAAOkJHA0AAIAx wFVHAAAAxgBPhgAAADAGeHofAACAMcAvrAEAABgDvAULAACAMcCbigEAABiG v/BvMgAAAAwB/vETAACAkYiPjw8NDSXPOnPmDPkX+50a+90ZfaVEWkQZUr3Y yIGjAQAAMAZwNAAAAMYAjgYAAMAYwNEAAAAYAzgaAAAAYwBHAwAAYAzgaAAA AIwBHA0AAIAxgKMBAAAwBnA0AAAAxiCjOFpCQkJ8fHxcXFyM/ggPD3d1FVzA zdv3wyL/ynDT/eiH0XH/95fUK+IAABkM/TsahZ6oqKjbt29fv379ypUrly5d uqgnzp8/v3v3blfXIr2hve7+jSkjTr2++Wfkuoff7o8NuB73VzxcDQBDoXNH o1rdu3cvKCjo1q1bsbGxjx8/NukMGja6ugougPZ6xA+JGXEatiHp3XXJA1ab Xltm2uQfE/uX7BtQAQD6R8+ORqOzu3fvBgcHR0dHuzqEp0hYWJirq+ACaK+H bUj8YH3isPXmTzbxFH1OT+v2rJKD1yT2Wm764WhM/P9hpAaAQdCzoz148ODa tWt6tjNTJna099clPjetTzJP4lf9fQ59vs6DVid2X2Y6GxzjaqUDAJyDnh0t NDT05s2brg7eqZBpHe3ddUnm6ftENr33vWVeSNHh9J7waZ5Zl9T7u8SFe+Jc rXQAgHPQraPFx8dfvXo1JibG1cE7FTKtow1Zm2ie1iRZZpKefn06Jenz8x3L zDvfJ/EKv7kicfDKBPn/EwQA6BndOlpcXNy5c+cSExNdHbxTIdM62qDVSYPW JL29OtE8Y/60zKx5NqPLyVzbNUliVQeuSuw4/1/Sv6v1DgBwArp1tNjY2NOn T7s6cqdOpnW0t1aRHSTRpzg9S0nS5STW8L+Z1l8kUffJ1XoHADgBPTvaiRMn XB25UyfTOtqbK5LeXGmZaGZFomVKepqo08/Ep5+85ivNKS3nJpLYXK13AIAT gKOlkUzraH2XJfVZltR3eZJlJpE+n07Lzel99Pf5X91YtZ9NzWbD0QAwCHC0 NJJpHe2N75Le+DapF31aZujz6fyzr7r7NE9PzPPmr094bZvMgqMBYBDgaGkk 0zraa98kWZuepJDu+qmn+PXb/+rpOyMJjgaAMYCjEcnJyX/88cfo0aNHjRpl 77oOONqTJ0+uXbt24MCB4OBg2rS9q+sB2uvuS590X5rEPrs9nXnS/WvzDPsq /1m3/4rSjQZ2+iJaMn+DdzZVbDNaPv+z6iXxCnf/+r+vDadjjAaAQTCAo02f Pt3NzW3nzp0Ox+epU6dSCe7u7j4+PiyFTOfIkSNXr16Vie12bWvbtm0VKlRw e4anp+fIkSOd+77KW7duUeX//vtvJ5apgPa665KkLouTui55QjNdF9PnE/rK Urp89d9nlVc+dxPI4u5RoNRLFdp80mleAs+Ty7M0Lar/zhbFuil9lmnyLuVv M/lGSnm6fJXY+MNDrSYEiumshmxGmJLqf44xGgAGQTtH+/HHH/v161esWDFv b++2bdsePHjQrtXlHW3atGkU33bs2OFwfK5evTo5y/3793kKtQaV2bNnT5nY Lr+ho0eP5siRw8PDo0WLFjNmzBgzZgxzt2bNmiUkJDhSdWvQYJPKvHTpkrMK VEN73WlR0iuLnpg/vzJ/mqeF5om+Pk23fFbuZO4tFK7StpTv4FK+QwpXaUem RimFKjTv8MX/sTwN3t9bpfOMl7/8339l2vws3eQ9KqHVpJsp5Wk/9y/KUKx2 j+fSqZ4Lhdo+m3lp6hM4GgDGQCNH++qrryikFCxYsGPHji+99BLN58yZ8/jx 4/IlpJujkZXQ6l26dBETtXC00NBQLy8vKnbLli3ihl5++WVK/Oabb+yqtg3S x9E6LEjqsODJywueCDPmeZ7CPit2NDta3cFbeUrrGQ/yFKtOiT7v7BRzyn++ 0Ng8Rms+8UZKedrMfkgZitbqIab/V8OF5vlnX5/UmYwxGgAGQSNHe/vtt319 fc+ePcu+zps3jyLM+PHj5UtwrqOtXbuWPCt//vw1a9YcNWpUVFQUS584cWKV KlVo9bx589JIjfnazJkzxcS+ffvaju2SLrBw4UIqc+TIkYr0mzdv0qitTp06 PIW8j7LVqFGDugSvvvrqpk2b+KLg4GCq0sqVK2fPnl27dm3qJ7z44os//PAD W0rHkdai8SZtqHz58pTT398/1UYgaHM+Pj4nT55s165d7ty5p0+fbntfaK/b znsiM5V/2exotQdtExMrdf2SEsu0GsO+lmnll6do9ZYz4tjXNl8mVeo8p2C5 Ju4eOSi9+hsrqvZYkqdotaYTbrEMJX3NY7QGo84UrzcgZ8FSWXPk86rSwXfs Vba0Qqfpub0rU4as2fPQWsXq9lHWav5zX2tOwhgNAIOQPvfRQkJCKML06NFD fhUnOtp3331nvvBVuDC5A7kAzTdu3Piff/6hRTQy6tatG6WUKFHi9ddfZ0+G rFq1SkwkI7Yd22UqSbz11ltUJrmGelGyBTYfFxdXrVq1LFmyNGzYsHPnzmRA 7u7u27ZtY0svXLhAhVSuXJm8rG3btjTD7k8dPnzYZBlvUoUrVapEKeRNNE/5 U20Eonv37rTFYsWKFShQoGXLlqtXr7a9L7TXLb94opy+TH5uxvJZtoP5PtqL b28X08u2n0KJFTrPZSlF6vahr02mPmBLy7QZb76tmS2XZ+X2uYtUpflchSua LczvKstfwuJoubwrZ89XrFC1Th45C5gvAniWaTbrb1papdfKwjVepZTs+Yt7 13qtdJvP2FotntWthWW+xbNq15iAMRoABkE7R6PRgZ+fH4VNis8UKinCUNiU X91ZjsZGQFWrVuVDkg8//JDy0xiHfbV6gVGLq461atUi10j1ftmgQYNo04sX L2ZfaVBGNkSjRfaKS+ZouXLlOn78OMtAI0pKoUExL0F91THVRqBDQ1/JQLnH 2Yb2utncZJqaznnCJ/ZVkVi6vXmMVu2tbTzF5+NLOQuVM191/PgyS/GuY3a0 hpOiaL7uyHM0ny1v0Qbj77GlZTvNZq790idXWUqxhmZHy1+2ie/0BPraePr/ 8pXxpZTqA7ezDL6fm686er3YQ6yJopK8nlXHY4wGgEHQyNFoOEYhhaJokyZN evXqxYYnLnG09evX09I1a9bwlJiYGHIWqgz7mm6ORq5E3pRqtooVK5YtW1ZM +eijj6gybLTFHK1jx458KbkVpdDAiqeoHS3VRmCOdv78ecl9ob32nZX8bHry 7FOcnqaXamd2tNzFahao2IamXEWqMXsqUn8Iz1O4ttnR6k2Iovny3b+l+XKv LhVLzuVtHqnV+fgaSylqcbSqA7bzPGU6zqGUsp0XsJQGU+LND5/U6CHW5Pna /jdTeRwcDQCDoIWjXblyxRxeypa9f/8+S2Fx2CWONmrUKHOELFeujgBLYRnS zdF8fHyozIcPH9rIQweCjIaGYGJtixYtSiuuXbvW9MzRyLPEtcgraSzMv6od LdVGYI5GzS65L7TXDWYm86n+jCf8U5FSsq35qqN7jnweebxpcnPPSl9LdfpS zONlcbS6Ex7QfJGGQ82jrfePi2UWqt2XEmuOuspSijQwO1qt0dd5niqD9puL 7TiXpfhMMo/RPGv0sFo3RWKFsXA0AAyCFo528uRJ822RJk14yogRI1zlaEOH miNk+/bt+z3Pu+++yzKkm6Oxy4l//vmnjTzUB6A8xYsX76di3759pmeONmbM GHGtVB0t1UZwwNFemp7sM41NT2iyfH36+SzdPBVvY3a08v22s68l2pmvkRaq 3V/M41nL7Gi1xj2gee9GZqlUHnL0uQwv9jLb3EfX2NfC9c2OVuPjEJ6h4sAD lFKyw1z2tfYE8xitYPUeYiEpTeX84GgAGAQtHC0hIYHfOJs4cSIFUhp0uMrR 2BMR69atS2n1dHO0xYsXU5lDhgxRpD948MDX1/f1119nX8nOKlSokFIhjjla qo3ggKPVnppca2oy+2QzVqdirc2OVrbvdva15vgEj3zFKaXS0ACep2BNs6PV GPuA5kt1W2V+JqfDPL601uTE7J7m+25VRlxjKV71zI5WbWQIz1P+LbOjFW8/ l3198TOzoxWo1kOsSS1VVdl86U/gaAAYBI3uo9EwrVq1p3dMSpUqRXbj4eFB BiFfgrMcLSAgwPyYXIMG/B0agYGB3bp1+/zzz9lXq+b1zz//UIWrV68uE9tl KslyMqPfsGGDuKE+fczxfNasWSylS5cu9HXz5s08z6RJk7p27RocHGySczTq RVCen3/+maek2ggOOFqNKaYak5NrTEk2f7KZp5NJ/CzSyuxopfts5ynFO39D KXnKteYpBSyOVsXvAc1XHH7Nzd3DPUf+Ch8E0tLqk5K8fEcxIVUcHsTye1oc rdJHIbyEMgPMjla03VyWUm3CP27uWXN4VxdrUn2yqqqW+VKjk+FoABgDTZ/e v3v37o0bN2jI5sC69jpas2bN+j7PgQMHWIbhw4ebnyuoU2fy5MkjRoxgt6X2 7NnDlqY0HGvXrh2lU9hftWqV7dgu6QIE7VHOnDnZk/lTpkzx8/OrWtX8zAO5 P+0vyxMUFFSoUCHK9vbbb0+fPp1GuJShUaNGbKmMo/n7+7OOxCeffHLz5k2Z RnDA0apOMtFUZWJy1UnJVSeaLJN5hlKqTEg2L7J8Fm5hdrSSvbbzlMqfPc5W yPz7ghf67mEp+WqYHa3ixw9YnqIdl1gcLEv2wtXccxZyy+Keo6j55wblhwWx /AV8zI5WfngIL/OFfmZH824zl6fkLteWUvJWfrVY11VP62Ou6tM6P62kpdrF R8HRADAIhnmvo5qlS5eyDElJSaNGjSpbtuzTrn7Fitu3b+ers3eG8It+nL17 95YsWZIWkfvYju2SLsCgTYvvdcydO/fAgQMVj/T/8ccfrVu3zpEjB8swYMAA 7neXLl2ixLFjx4r58+fP36RJE/41OTm5f//+bHXuWbYbgQydEuVfBUl7XWm8 iaaKE0wV6XN8Mp8qmVOSK41/+lmohbm/UbzXDp5Cn8W6/0SJ2YvWYSl5X+xH X8t9HMPzFOvxc76aA7J718hTqWvJNw8XqGe24zJDg9jS/D7m24Jlht/i+Uv0 +41SvNp8wVOK996TNZ/58OUo0fDpdi1VZTPmSn72tMJFR8LRADAIBnA0ee7c uWP7UUM15DX//vuvjQyOvXv/6tWrBw8eDAwMJKNJKRv5y61btyizveUzqNpW d9aBRlBDe11+nKmcZTLPfJZc7jOaf/pZ/jNLukOf5fz+KfnOldIjwv5LGZec zauaW5aspUfF2Vta2U8Syvr9+6ycp6U9q7mltp8le39kgqMBYAwylaNpQab9 f7TSY02lPzWZP/n0abJlJvm5RDunkiMeZPHIlSVHgSJ9j5Yak1hiaGiBJlPM A7oSvmkp9llt/6tbmU+ffnqNgKMBYBDgaGkk0zpayTGmF/xM9Mmn/776pemz QOtFbu7ZzNdG3bOza6RZC5Qr8vbFNJasqC1P9BwGRwPAIMDR0kimdbRin5hS moqn+bPwwMv5Ws7PXeeDPA0+Ldh5Y5HhsWkv02olacr/Ae6jAWAQ4GhpJNM6 WpHRJjZ5Pz/jrfupyPPz+d7HGA0Ag6BbR4uLizt16pRz/9xZCzKtoxUaZfIa aaJPcVKn6GfyskzijHkaafIa/oTE5mq9AwCcgG4dLT4+/vz589HR0a4O3qmQ aR2t4EemjDV50udIy/zI/xLzjzDVGZ9AYnO13gEATkC3jkYEBQVdu3bN1cE7 FTKto+X/0JThp49MuT8wvb88xtVKBwA4Bz072r17906fPq3zYVqmdbQ8I0x5 2TT8+WmEXqfhz9U2z3BT7mGm7B+Y9p2OcrXSAQDOQc+ORrW6fPlyQEAA/59K HZJpHS3XMLMj5LJMuZ996nl6WlWLkZGd5frAlH2YaczaqOjYv1ytdACAc9Cz oxGRkZEXLlw4ceLE1atXHzx4YOMNG64i1f+kNiS017mGm3KSRww38Rn61PP0 tKrDTTmGmb3M4wPTuHURofcwQAPAOOjc0eLj48nUyM5OnTp17NixI0eO/P77 74f0xP79+5ctW+bqWqQ3tNfuQ00Zccr6dmKVTx72Wxix9sC92/ci9Sl7AIBj 6NzR/mcxNRqdhYWFhYSEXLt27cqVK4E6Y9++fa6uggtYv+2P307cyHDTkTMh AYF3g29FREU90K3mAQCOoX9H+5/lL0QfPnwYGxtL1hZlIVJPkNW6ugouIDQ0 9EGGItpCTExMXFwcHtcHwJBkCEcDAAAAUgWOBgAAwBjA0QAAABgDOBoAAABj AEcDAABgDOBoAAAAjAEcDQAAgDGAowEAADAGcDQAAADGAI4GAADAGMDRAAAA GAM4GgAAAGMARwMAAGAM4GgAAACMgbyj/QEAAAC4FDgaAAAAY+BcRzMBAAAA 6Q4cDQAAgDGAowEAADAGcDQAAADGAI4GAADAGMDRAAAAGAM4GgAAAGMARwMA AGAM4GgAAACMARwNAACAMYCjAQAAMAZwNAAAAMYAjgYAAMAYwNEAAAAYAzga AAAAYwBHAwAAYAzgaAAAAIwBHA0AAIAxgKMBAAAwBnA0AAAAxgCOBgAAwBjA 0QAAABgDOBoAAABjAEcDAABgDOBoAAAAjAEcDQAAgDGAowEAADAGcDQAAADG AI4GAADAGMDRAAAAGIOM6Gg/AAAAyLBo5w5wNAAAAOmJdu6QcR1N661kZlgL /w1sAh3qE6hXz8DR1CCSaA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hXz8DR 1CCSaA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hXz8DR1CCSaA1iggzQoT6B evUMHE0NIonWICbIAB3qE6hXz8DR1CCSaA1iggzQoT6BevUMHE0NIonWICbI AB3qE6hXz8DR1CCSaA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hXz8DR1CCS aA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hXz8DR1CCSaA1iggzQoT6BevUM HE0NIonWICbIAB3qE6hXz8DR1DjcJlevXl0rcPv2bafXzS4SEhJ4ZdavX+/a yoikGhNiY2NXrFix/HkoZc2aNbQjv/zyy7Fjx8LDw9PtNHEJDujwzp07O3fu nDFjxhtvvPHmm2/OmTNn165dLtehwUhVvXFxcWr1MlauXPn999+TgP39/en0 TDctZR7gaGocbpOuXbu6Cbz33ntOr5tdXLt2TaxPUlKSa+vDSTUmUN/ALTWy ZctGQTskJCTdTpZ0xi4d7tu3r3Tp0im1Vbt27eBrziJV9QYHB6eqXoKO15Qp U+Lj49NNUZkBOJoax9qEhgweHh6iYvPly0d7pEUNJTG2ozHKly9PASTdzpf0 RFKHjx49GjFiRJYsWWw3FKnxu+++S4eDa3ic5WiMPn36UGRLN1EZHjiaGsfa ZObMmWq5Llu2TIsaSpIZHI145ZVX0u18SU8kdThs2DD5tlqwYEE6HF9j41xH IxYuXJhuojI8cDQ1DrRJcnJyxYoV1Vp96aWXNKqkDIZxtDFjxqxZs2bVqlXf fvvttGnTKlSooGjnU6dOpdspk27I6PC3335TjM6aN29ODRUQEEBtQh0qHx8f cSmN1MLCwtLnKBsVex1t4sSJW7Zs+eWXXzZt2rRx48bly5e3bdtWzNChQ4d0 E5XhgaOpcaBNfv/995Q6YBRb5MuJiooKDw+3a9M2VpF0tH///TcoKIjEILM5 Ogp0wt64cSMmJsaueorY62j79u0Tlz58+LB///5iBnI6q+WEhITIX5OkUH/u 3DlqtMjISMlVHjx4wJpOTXR09MWLFy9fvnzv3j3J0hSkqsNHjx4p7p19/vnn T548URzcDz/8UMzTu3dvG2UmJCSkdMft8ePHtIgODbVPYmKi/OGmfbl+/bpM h4qO7M2bN+VLNtmpXup5RkREXLlyhY71P//8Y9eGOPY62u7du9V5BgwYwDPk yZPnfylceHRAkwxqk7t376aajRqcctImQkND7bqjR6f/pUuXKGI7dxPUDnTO nj17liJMXFycfH04cDQ1DrRJv379uD6bNGlSuHBh/vXdd99V56f+c5VnjB07 lsLI6NGja9asyfrbJUuWHDx4MDVIGlex7WgU+mbPnl23bt3s2bPTUnd396pV qw4aNIjOHXWF6SQlExH3i6hcuTL1P2/dumVXW5nS7GjEyZMnxQyffvqpuJTO iFdeeaVo0aJsacGCBZs2bUqjPKvb2rt3b+fOnXPmzCkWWKRIETpwZFhizldf fbWSBdpxOkm7dOnCmo7GjJ988gnLQy5GluHl5SWWRuN3qiHtlHPPTQqV4lZo L6xmozBOR1nMSSGdLerRowdTFB16cqtu3brlyJGDMtA+jhs3juWhwDJjxoxy 5cqJg0FSC+mcKiBuiKIQl+j7779P2507d27Dhg2zZctGq+TKlatx48ZWz1/y xwkTJlCrsk1Q4/fs2ZMi2/fff88LXLFihbiKXeql8leuXPniiy+yzAw64rT7 P//8M9XTRiOrcYqjLVq0iGcoU6aMw5ocPnx4pWdQ55mUTztVvHhxtkqpUqVG jBgRGxurKJ/6wFOmTKHtiuVT4zdq1Gjr1q1iTuqS8fLfeecdCsIkhvr167Nn BqiGdHwPHjyo3kH5TRDkdN9880316tWZVBgkRTrj1q9fn5LdWwWOpsbeNqFT XtTeqlWrSEX8q9XnQ3777TeeoVOnTr6+vm4qKE5euHAhLavYcDQaODRv3lxd AlGsWLH9+/eLtd22bVvWrFmtZibI5s6fP+9AC9uQZaqORjFZzEBjE75o8eLF ilDA6du3Lw1pxXJocJfSfhEUMMVnKSkk8kV16tQRc7J7eT/99BOF1pRKI5s7 ceKEE89N8Q4abZfMNKWce/bsEWtCYZyl16pViycqrk927drVZNG2Yk9FSBUU iPhWSHt8UcuWLXv16mV1FcUPSWgYQlFOnZM6JGJHcebMmXwVu9RLYzEy35R2 wc3S57TL1NLuaBQQqH14hqFDhzqsSfH5ajoLChQooF6F+r3ieIe8RjzuCkhI 5LY8s9h1bNasGdml1VUo6Im7YNcmqG5WBcChjoq8qcHR1NjbJkuWLOGNTx1R 6m+cOXNGPCLqZ8xEe7IBdVq4DTmwig1Ha9GihY1CqCvLLz2R3vLmzSsuVfsF dY+dGxNsOxqNT6m7KGagiM0WKUK3GhrJ8nIuXbpkw4DU+UVHU7Bu3To6i/Pk ySMmsvGOCA1DnHhuUoThJVNnxkZOGtGIvd9p06axdBthh9yZMrz11lu224d6 3fyit+hoNqCBw+PHj3ndaDgms5boaPLqJWj0Jy6lIy42BePHH390onoVjvbB Bx8ssfDVV1/Nnz+fBr/UAnwpDXbEMY69mlT8YiglaNN8FbGfkBI3b95kmRUX Q1KiZMmSDx8+dGwTY8eOFdNJUYqHxom1a9c666xJI5nB0cROLL9JIUY/9fMh antq37795s2b6cyqV6+emE4dNodXScnRqIsu6mf06NFnz57dtWsXGRNPHzJk CMu8YcMGnli/fv07d+6YLJ3kWbNmiYUrLkDJtLANWSocbcqUKVu2bNm0adP3 338/e/ZsRZebdoGNvEg/YrOXL1+eVjl+/PjHH3/Mr5jRycKv/lGo4ZlpRLBy 5cpz586Re4pxvlq1arxWCkej4QaNlGlQQI4fExOzevVqvoiOOLt/d/36deo5 i2upL7k4fG6Kx6tNmza225xag2fu378/S1Q4GjVO06ZNixcvni9fPqpARESE eJmOuspHjx6l0TEdAnEtamRWmtrRaJi2c+dO0obisid1+dgqdDqL6dQf+/XX XwMCAqjRFGGNO5pd6iUqVarE0+kYJSYm/vvvv/7+/uLRbNCggRPVK/+sIw2p FCM4ezWpcDRSIx2d33//fdKkSWJ6x44dWX4a34mGPmDAgAMHDlADUidHzE/j aJZf7Wg0TKOwQzKuXbu2mE6H0rFNiA96UeefRgTkBYcOHSIx8HQKcc46a9KI 4R1NMRyjM4ulz507V0znpzBDYU9dunThN/QfPXpUs2ZNvojmHV4lJUcTLZjO IF6r06dP83SKJ8y8vvjiC55IGhPbf/z48Z9++unGjRvJI+x6kNJeR7NN3759 2Vo0rOCJND4Sn9l4+eWX+SLexaXgSfXv3LlzlSpVaF2eecWKFTwzhQiernA0 iuR/WwaMFy9epBnx5xsUXcWOt5+fHwVesmOKTjI30yXPTX67hKBese02F8c1 PIArHG3Hjh0my4COYrLJ8tARjSzefffdRo0adejQQTzEiijEEhWORm3OR+7U IRdvw9FQmqWLY8BChQqJN4K/+eYbsTTuaHaplxAHzlOnTo2NjWXpdCzIoxcu XEjxnyfK4ERHK1KkyNdffy0O2+3VpOho1MWiKMEXiQMl6ouyRBq90jiRdpw0 0LZtW1GN5cqV4/kXL17MEhWO1q5dO17bwMBAcdG2bdsc20Tu3Ll5Ig2ow8LC WDr1RckNKZDu3buXJ6b9rEkjhne0999/nx8O6lPxZ8DCw8PFe0+K50MU9qS4 D0Vb54ty5crFwoIDq1h1NIpX4mVDxaOYYqSik4tSqH/l9jy0m2+88cayZcvu 3r1rV8OKtXWWozVu3JiUw9aioRxP79Spk1igGBB8fHysbpQERjGZRrh02vLM FA95BkWvXrE6NZeibuwJBzIFx34DnqoOxdvuNBqy3ebibbJWrVqxRNHRyLZS PXDUfyanppBLu8ZX/PLLL9lShaNRMBTXFR/LXLduHUukISFP5M+iMB4/fsyf 7XF75mj2qpdQjOjprGzYsCHtAo0CxIuf8jjR0RhkPSm9EStVTYqO1r59e3Fd sUtAVpJSbSMjI2mcSD0ub29vnn/WrFlsqcLRjhw5Iq77wgsv8EU0nHRsE4qb aO7u7uS/lJm6PeKVTEngaGrk24QaULwVS93gQwLidZ68efOKz4eI9kQjdMUT 19evXxcPMTMOB1ax6mihoaFiIkm9hoDowqzvTdUuWbKkWwrUrl17w4YNTn9a TMbRqEtPcSkiIoKvJT7ST2O0agLiLohd3L8tzznPmDGDokHBggXVW0nJ0UaM GKGoM41oSpQokVJtaeC8evXq/zn1qS0xytWrV892m3t6evLMQ4cOZYmio40a NcrqitRJ27VrF3XJaPet3uJJydHi4uLEcsTLCKtWrWKJ4jBT/epRcl6+lDma veolFixYkNJByZ8/Pw3Y+WhOEnsdbdq0abss0BCYxvUkg7Fjx9KmxTzU43JM k6KjDRs2TKEfvoisR1xEPZMtW7bQMKp69epW3zaTkqMpXqZKbc4XKX5BI7+J OXPmpHSA8uXLR6N4uzqEcDQ18m2ydu3alI6FGvH5ENGeSNuKYqlnIq7I+roO rGLV0Wz8dE7BpEmTWOGXL19WPLevgLrBdv26x15HGzJkyBwL8+fPX7p06fff f097ERMTo1hL7PDbgM4v/rsYxS0hNdTUvHzR0agy6mqfOXNG8dy+AuqOyv/K JlUdDh8+nJdMoc/Gb8SokyxWg785RHQ0q68Toa6RGLWswldUOJqiPuLdXuZo 1BESYx2/H8fp3r07X8oczQH1mp6/kKKGOj+bN2+20c4K0v6sI1O42MfgVwXt 1aToaH5+fuImyFD4ItHRqHrUx7O9CS5vhaMpflAmDvxFR7NrE4TiQS8F2bNn p26zrVNFAI6mRr5NUnqE2Cp09PmKoj3RSa24+nHr1i1xRfUYTXIVq4527tw5 MbFChQqVU4B6ibz82NhY6orTeZfS3k2cONHeFrYhy1Sf3rdK586d+SoUpiqm QKVKle7fv0/5aQfFrdA4+uWXX6Ye9cqVK3kiOQUvX3Q08eExkbCwMOp8vvTS Syk1lOKnc2k5N8WHbImvv/46pZwU68Sc/DEe0dH4A0Uc6jOIl5UIcrcPPviA aiUODxctWsTyi45GozlFaQ0aNOBL+RhNvK6oroC4CnM0x9RrsljhwIEDrQ55 3CweIX8rzSmORohPwrNHcRzQpOhodA6K5W/dupUv4o527949xSUXsh4agK9Z s6Z169Y88YsvvmD5RUejsKPYBbGXwh3N3k0w9u7d279/f6u/PnB79q4bm6fL U+BoaiTbJCgoyGrj24A/H6K4KXb8+HGxZPGXszlz5rR6H01mFauORu0sJtJe SDYLdbmfPHkSHh6+cePGoUOHKt5WQeMjyXJMmjmaOGZ5/fXXU81PcY/np+EA H/SJZ3GhQoV4ftHRaMSdUrHUj01ISLh58yaNJWl0qTAFX19fmX35W+LcPH/+ vDjGIXdQXOhjhIaG5sqVi2ejIBkVFcUWiY62evVqxYp0oPlSDw+PP//8ky8S R0+LFy9miaKjZc2aVVGaVUdr2LAhT1TcCqRemXjLjDmaw+o1WX6YRhqmE4cG Qe3bt1f8xJLOL8lynOVoYv+Qy8xeTYqORsNSsXyrjkaaFI8RGb3VoubNm6fe LvVSFLtg1dHs3QSH1EvnDuUnB2/Tpo3iEveuXbtstDkHjqZGsk3Efi81Pg2i 56mYPHmyeFBocM3WVdhTp06dxJI7dOjAF1WvXt3hVVJ61rFYsWI8ccKECbyQ 6OhoOqHoRKPeLPWgbty4YbI80NilSxdKp5g2ZcoUnpncTfwhedmyZe1tYRuy dMzRaNzEV6F+7J07d/iizz//nCyYWmnkyJHsty3kOOImDh8+zDOLF/ZTGqNR /FdsnfRAB4XGgHQWU6PxdHI38aoXVUNmX/6WOzep6yvuBY1ZTp8+LWYg2YiH 283SN+ZLRUfbsGGDovD33nuPL6WRAk+n81S0aatjNElHEx9Wp5OIjgJLf/To Ubdu3cRq82cd7VIvufDbb7/duHFjLy8vMgLx1W00lBB/MEgjCNtNzUm7o1ED UjdAzNO5c2fHNGmvow0ePJgn0kCbZ6ZOjjiwsjpGk3Q0uzZB/vXmm29Sx4aO jqenp/jKuOvXr4s/Hlm2bJmNNufA0dTItAl19sQLJnTgUsopXoCi7jF1QkzW flz22muvUSyiXjcdXzGdbJGV48AqKTma+Asp0gxJ8fHjxzT46t27t6jey5cv U2bxuXfq6u/Zs4fdMqPusfjeA4o/9rawDVk65miRkZHiVQsaDQUGBpKoduzY IcauHj16UGYaAoiboOhNCqSj89NPP4lDA1qRly86mvqdWuKFOCph27Zt7JYZ xXnxp9DUPZDZF8lzk0K0+PyYm+WpIRovf/jhh2QWjRo1UnR0a9SoId7eEh1N vS1xzEvSJTlR4u3bt0l4YpmzZs1i+R1wNFKRWEOqPPnRmDFjxN8iMbij2aXe EydOiIX06dOHRqwmy+srxR9auqkeHk6LehWORhGg4zNIJM2bN1cM2wkaNjqm SXsdbejQoTwxT548tNd/Wx5EEQfdbsJLeBxwNLs2Qa4tJr7++usks78tb0wV f+BJSL5vB46mRqZNRLUQNNBOKefSpUvFnOxmgeQLQMqVK/fvv/+ychxYJSVH o0iruKFAkUTxPFLfvn1ZZupEKRblzp1bfbl7+/bt9rawDVk65mjEZ599pqiY 2M1zs5yVZ8+eZZkVL53ztKBuUorhLL9tR9u7d69iReoAKB5pc7O8gUpyXyTP TSpQsY8pQZXx9/cX17XtaOoHn2gMqH5ujf8ozAFHIwYNGiRTee5odqnX9PwD kwwaKSh+vl23bl1p8Tr/6X0aV/JXL9qrSXsdbfny5YqixN+IcWjsz/I74Gj2 bkL9NEKJEiUU14Rr167t3LPGYYzqaK+88gpvbeqHUJcvpZyKtz6y50MU9mT1 iHt5eR05coSX48AqNt6CdenSJfV/snCaNGnCxpIMij+238zj5+fnQAvbkKXD jkYH4pNPPkmpnnSarFu3jmfetGmT1Wx0QEXL5pc7bDva35Y38tn+581Ro0ZJ 7sjf9pybdDQV741R06FDB/Vj6rYdjUZzog2JiKMMfsHZMUcjWVp91I266+K1 dD4SNNmpXhrGKl5ZqaBo0aJ2vW3buY5WqlQp8T2N9mrSXkejlklJKuIlQX5t 3AFHs3cT9+7ds/HuUDfL7zrl3/INR1OTaptQVcUuBH+nUEpQj1E8QHR0RHsq VqwYnXSdO3fmrkGFt2zZUvGnHg6scuPGDVGNitd6ULeQKqa4yeLt7T116lS1 Qf/555/du3dX+1qjRo3kb6lz7I0JVl/ubYP169dTrFa8vq9NmzbiGxV4TvEs ox2kLn1gYOD48eN5Ir9OKJ53ojOK0JCWgoza1yieS97a5th1btLBnTt3Lh2O fPnyidulHn6zZs0UL67niKGevchRQWRk5IABA8TdKVy48FdffUUKEV/1wC7Z iS+RoGGjoijx3drqaxrkcb1796ZjQXGbhL148eInT55Qy/NVaKNifrvUSzGW Gkd9rS9v3rzjxo2z64UhJgn1Km6HidDYkPq3tI+0p+S8X375peJd+vZqUnxg kvZdLGfHjh18EfU6eHpoaKgiIlFPmNVEfIKIXeULCAjgKXRCKaoq9lLEn9TZ tYm/LfcLZsyYof7dK/k4dVDlXxhi71njAIZ0tLSjsCeWSLt/6NChw4cPq9/V 79gqkty/f3///v00DgoKCuJXLK1CsYLOrN27d//666/UTxZ7wnaRakxwCg8f PqRThgI1jVv5VRo1tBc0uPjll1/IjKKjo52yaTpzKRRQJ5mKPX36tL1/bsVw TIfJycm0s3SM6IA66889qVn8/f137tzpwD8H2ebKlStUVfq0epVDfHOX+lFM hrx6qWVoOEA7smXLlmPHjt29e1fxmgJJ0kG9WmhSAe0+hY7Nmzfb+ydH2m2C Ivz169dplR9//JHCHXVrU3qVig3gaGpc5WhOX0W3pI+jZXTSQYcuR3x7LY3+ Nm7cyBddu3ZNHAYqfq7iQqBePQNHUwNH0xrEBBkyg6Mp/rTU29v7vffemzlz Zp8+fcRniUnwjx49cnVlnwL16hk4mho4mtYgJsiQGRyNTmr1g/pqbDxLnP5A vXoGjqYGjqY1iAkyZAZHI4KDg8WXGCtwd3enUZu9r8LWFKhXz8DR1KRDJAkN Df3sGXPnztVoFd2CmCBDJnE0Bp3XgwYNatGiRY0aNUqXLu3r69unT5/x48ez n3XrCqhXz8DR1GSqSOISEBNkgA71CdSrZ+BoahBJtAYxQQboUJ9AvXoGjqYG kURrEBNkgA71CdSrZ+BoahBJtAYxQQboUJ9AvXoGjqYGkURrEBNkgA71CdSr Z+BoahBJtAYxQQboUJ9AvXoGjqYGkURrEBNkgA71CdSrZ+BoahBJtAYxQQbo UJ9AvXoGjqYGkURrEBNkgA71CdSrZ+BoahBJtAYxQQboUJ9AvXoGjqYGkURr EBNkgA71CdSrZ+BoahBJtAYxQQboUJ9AvXoGjqbmBwAAABkW7dwBjgYAACA9 0c4dMq6juXr0bGRYC8cAm0CH+gTq1TNwNDWIJFqDmCADdKhPoF49A0dTg0ii NYgJMkCH+gTq1TNwNDWIJFqDmCADdKhPoF49A0dTg0iiNYgJMkCH+gTq1TNw NDWIJDIcPXp01qxZe/bscWBdw8eEgICAn3/+ec6cOUuXLt23b9+tW7ccKAQ6 dDpnzpzZsGHDvHnz9u/fHxsb61ghhldvhgaOpgaRJFUiIiJKlizp5uY2ePBg B1Y3cEw4dOhQkyZN3J4nZ86c48aNCw8Pt6so6NCJUNzw9fUVD0q2bNlatWoV EhJib1EGVq8BgKOpQSSxTXR0NA/acDSRHTt2uLu785iZNWtWMYTWr18/KipK vjTo0Fn4+/tTp4IfiOzZs/P5smXLXr582a7SjKpeYwBHU4NIYoPz5883aNCA BwQ4GufGjRvFixdnzdKmTZtjx46Rf926dWv+/Pn58+dn6X5+fvIFQodOgVry hRdeYO3/6quvXr16lRKDgoK6devGEqtXr25XgYZUr2GAo6lBJLFKfHz8559/ niNHDnHcAUfjLFy4kLVJ48aNaRgrLvrll1/YIi8vL/kCoUOnQG3IGp96YhRh eDrpuW7dumzRtWvX7CrQeOo1DHA0NYgkaiIjI+vUqcONjCIzHE3B66+/ztpk 27Zt6qW89S5evChZIHToFHr16sVafv369YpFkydPZouWLFkiX6Ah1WsY4Ghq EEnUBAcHs3M/S5Ys48aNO3bsGBxNwcCBA1988UVvb+/r16+rl7Zs2ZK12KFD hyQLhA6dws2bN7ds2TJ9+vSIiAjFoo8++ogdlFWrVskXaEj1GgY4mhpEEjXk aORlr7322pkzZ+jrn3/+CUeTJywszNPTk5rLw8ND/olH6FBTyOnY87ru7u73 7t2TXzGzqTdjAUdTg0iiJj4+/sqVK/wrHM0uxo8fz5qrTp068mtBhxpx586d 5cuXly9fnh2Unj172rV6ZlNvxgKOpgaRJFXgaPLs3LmTP06zadMm+RWhQy0o WrSo+GjT6NGjExIS7CohU6k3wwFHU4NIkipwNEmOHj2aL18+1lb9+/e3a13o 0OlERUW5PU+5cuXWrl1rVyGZR70ZETiaGkSSVIGjyUCjswIFCvDrjaGhoXat Dh06ndjY2Llz527evHnJkiUtWrTgvrZ06VL5QjKJejMocDQ1iCSpAkdLleXL l/N3U5CdhYSE2FsCdKg1Y8aMYQeoUKFCkZGRkmtlBvVmXOBoahBJUgWOZhv+ QyeidevWt2/fdqAQ6FBrKOBUrVqVHaYtW7ZIrmV49WZo4GhqEElSBY6WElFR UQMHDuR21r9/f+r8O1YUdJgODBkyhB2pefPmSa5iYPUaADiaGkSSVIGjWSU6 OvqNN97gdjZhwoS0lAYdOoU+ffrUrFmzbNmy4iuwOIMGDWIHa9GiRZIFGlW9 xgCOpgaRJFXgaFYZPXo0axYPD49ly5alsTTo0Ck0bNiQHZRdu3YpFlHAqVy5 Mlt6/PhxyQKNql5jAEdTg0iSKnA0NRQSychYs6xatSrtBUKHToH/vL127doU ZMRFNIhmi7y9va2O4KxiSPUaBjiaGkSSVIGjqWnatCm/3tgxZfz9/SULhA6d wp07d9jbrohGjRrt37//9u3bR44c4W8wJjZv3ixfoCHVaxjgaGoQSVIFjqbg woULbnJs3bpVskzo0FkcPHgwV65cVg9HlixZJk6caFdpxlOvkYCjqUEkSZVT p06xgPDee+85sLrxYsL27dslHW3nzp2SZUKHTuTatWtdu3ZVHIuXXnrp2LFj 9hZlPPUaCTiaGkQSrUFMkAE6dDqRkZFHjhz56aeffv/9d/mfVCuAevUMHE0N IonWICbIAB3qE6hXz8DR1CCSaA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hX z8DR1CCSaA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hXz8DR1CCSaA1iggzQ oT6BevUMHE0NIonWICbIAB3qE6hXz8DR1CCSaA1iggzQoT6BevUMHE0NIonW ICbIAB3qE6hXz8DR1CCSaA1iggzQoT6BevUMHE0NIonWICbIAB3qE6hXz8DR 1PwAAAAgw6KdO8DRAAAApCfauUPGdTStt5KZYS3s6qtHegc61CdQr56Bo6lB JNEaxAQZoEN9AvXqGTiaGkQSrUFMkAE61CdQr56Bo6lBJNEaxAQZoEN9AvXq GTiaGkQSrUFMkAE61CdQr56Bo6lBJLHBzZs39+zZs2TJkrVr1544ceLhw4cO FIKYIAN0qCm7du0iDR87dszeFaFejQgMDNy2bdv8+fOXL19++PDh+/fvO1AI HE0NIolVAgICWrZs6fY8uXLlmjZt2j///GNXUYgJMkCH2rF3794sWbKQgHv2 7GnvulCv0/H392/WrJkituTMmXPSpElxcXF2FQVHU4NIooa6TFmzZuVi8/Dw ELXXuHHjpKQk+dIQE2SADjUiOjq6ePHiTLpwNJezb98+d3d3HkzEOEM0bNiQ fEG+NDiaGkQSBTExMSVLlmQC69ix48WLF8m/6Hh99913BQsWZOlTpkyRLxAx QQboUCO6d+/OAyYczbXcu3evRIkS7Fi0b9/+1KlT5AIRERGLFy8uUKAASx8/ frx8gXA0NYgkCpYvX86k1aJFi+TkZHHRgQMH2NUbb29v+QIRE2SADrVg5cqV 4hAAjuZali5dyg5E06ZNKcKLi3799Ve2qHDhwvIFwtHUIJIo6N+/P5PWoUOH 1Evr1avHlt69e1eyQMQEGaBDp3Pjxo28efOSVvm4AI7mWnr37s0OxJ49e9RL fXx82NLg4GDJAuFoahBJFAwdOrROnTpFixaNjo5WL23Xrh1TXUBAgGSBiAky QIfOJSkpqVGjRiTU3LlzHzx4EI6mB4YMGVKrVq0iRYpQf1i9tHXr1uww+fv7 SxYIR1ODSCLPo0ePvLy8SHLZsmWTf+IRMUEG6NC5TJkyhYXHr7/+muInHE3n xMbGFipUiD2HJv/EIxxNDSKJPDNmzGCRoV69evJrISbIAB06kRMnTrAHdF9+ +WX6CkfTP7wH4uPjI78WHE0NIokkR44cyZkzJ1Pdvn375FdETJABOnQWFFgq VqxIKvXy8goPDzfB0XTP/v37c+TIwY7Rjh075FeEo6lBJJHhwoUL/PHaIUOG 2LUuYoIM0KGzIH0yoW7atImlwNH0zMmTJ/Pnz88O0MCBA+1aF46mBpEkVWh0 5unpya83xsfH27U6YoIM0KFT2Lp1KxPqm2++yRPhaLqFRmf8V64+Pj6RkZF2 rQ5HU4NIYpsff/yRXxAgO4uLi7O3BMQEGaDDtBMREVG4cGESaunSpSnC8HQ4 mj5Zu3Zt9uzZuZ2Fh4fbWwIcTQ0iiQ3mzJnDflLNbrLTIXOgEMQEGaDDtPPa a6/xAdoqgblz57L0OnXqsJSQkBDJMqFejZg+fbrbM9q1axcVFeVAIXA0NYgk VklKSho6dCiX3ODBgxMTEx0rCjFBBugw7dStW9dNDjI1yTKhXqdDkZ/f6yTe euut+Ph4x4qCo6lBJFGTnJw8YMAApjcao82cOTMtpSEmyAAdph04mv6hwN63 b19+IKZOnZqW0uBoahBJ1EyYMIHpLVu2bGlvHMQEGaDDtBMUFHTGGjt27GB6 btGiBUuRvx0M9TqXsWPHsmPh4eGxZs2aNJYGR1ODSKLg6tWrZGRMdfz557SA mCADdKgdeDJEJ5w7d47/NdX69evTXiAcTQ0iiYJWrVrxawKvpkxgYKBkgYgJ MkCH2gFH0wnNmzfnsaVzygQEBEgWCEdTg0gicvv2bck7EQcPHpQsEzFBBuhQ O+BoeiAoKEgytuzevVuyTDiaGkQSkd9//11SdUeOHJEsEzFBBuhQO8LDw5lo e/XqZe+6UK+z2Lt3r2Rs2b9/v2SZcDQ1iCRag5ggA3SoT6BePQNHU4NIojWI CTJAh/oE6tUzcDQ1iCRag5ggA3SoT6BePQNHU4NIojWICTJAh/oE6tUzcDQ1 iCRag5ggA3SoT6BePQNHU4NIojWICTJAh/oE6tUzcDQ1iCRag5ggA3SoT6Be PQNHU4NIojWICTJAh/oE6tUzcDQ1iCRag5ggA3SoT6BePQNHU4NIojWICTJA h/oE6tUzcDQ1iCRag5ggA3SoT6BePQNHU4NIojWICTJAh/oE6tUzcDQ1PwAA AMiwaOcOcDQAAADpiXbukHEdzdWjZyPDWjgG2AQ61CdQr56Bo6lBJNEaxAQZ oEN9AvXqGTiaGkQSrUFMkAE61CdQr56Bo6lBJNEaxAQZoEN9AvXqGTiaGkQS rUFMkAE61CdQr56Bo6lBJNEaw8cEf3//1atXz549e+fOnWFhYY4VAh06ncDA wG3bts2fP3/58uWHDx++f/++A4UYXr2u4uLFi9SwM2fOpHPn1KlTjhUCR1OD SKI1Bo4JBw8ebNiwoZtAtmzZWrRoceXKFXuLgg6dCPUxmjVr5vY8OXPmnDRp UlxcnF1FGVi9ruLcuXO+vr6Ko9OqVatjx47ZWxQcTQ0iidYYNSYcOnSIgiQ/ JbNnz87ny5Qpc+bMGbtKgw6dxb59+9zd3fmxyJo1qxg5qQdCkUe+NKOq11Xs 3Lkzb968btbIly8fjantKg2OpgaRRGsMGRPu3btXsmRJdiZ27tyZup2UeOHC hS5durDEqlWr2lUgdOgU6LiUKFGCHYL27dufOnWK4kxERMTixYsLFCjA0seP Hy9foCHV6yrCw8PLly/Pe32//PILpVy+fHnYsGEs0dPT8/r16/IFwtHUIJJo jSFjwpo1a9g5WK9evaioKJ4eGRlZu3Zttuj8+fPyBUKHTmHp0qWs8Zs2bUox RFz066+/skWFCxeWL9CQ6nUVkyZNYoeAeoMhISHiorFjx7JFQ4YMkS8QjqYG kURrDBkTevbsyU7AVatWKRZ99tlnbNGCBQvkC4QOnULv3r1Z4+/Zs0e91MfH hy0NDg6WLNCQ6nUV7dq1Y+2/YsUKxaKwsLAiRYrQomLFiskXCEdTg0iiNYaM CYGBgRs3bpw8efKtW7cUi/gllG+//Va+QOjQKVAPv1atWhQb7969q17aunVr dmj8/f0lCzSkel1FmTJlWPvfvn1bvZT7HR0dyQLhaGoQSbQmU8UEcjp2H8fd 3f3GjRvyK0KHWhMbG1uoUCE6NB4eHvJPPGYq9WoNe0rH09PT6tIePXowR1u9 erVkgXA0NYgkWpNJYkJwcPDSpUvLlSvHzspu3brZtTp0qDVTpkxhh8bHx0d+ rUyi3vShbNmy7BDcuXNHvbRp06Zs6cKFCyULhKOpQSTRmswQE9gtAM5HH330 4MEDu0qADjVl//79OXLkYEdnx44d8itmBvWmG+3bt2eHYPHixYpFFy9ezJUr F1s6depUyQLhaGoQSbTG8DHh9u3bbs9DfdHly5fbVQh0qB0nT57Mnz8/OzQD Bw60a13Dqzc9mTlzJjsKnp6e4u+p7969y2+iEX5+fpIFwtHUIJJojeFjQlhY 2IwZM2gfFyxYIL6qQv7iSQwcTTNodFawYEF+vTEyMtKu1Q2v3vSEGr969ers WGTPnn3IkCGLFi0aP358xYoVxQ7htGnTJAuEo6lBJNGazBYTRo0axTuioaGh kmtBh1qwdu1a/i4XsrPw8HB7S8hs6tWaw4cP85/AixQrVmzkyJG4j5Z2EEm0 JrPFhKioqCpVqrBzc+PGjZJrQYdOZ/r06TxgtmvXjo6LA4VkNvWmAyEhIX36 9KH+Hjs0L7zwQv/+/c+ePTtu3DiWgmcd0wIiidZkwpgwcOBAdm7Onj1bchXo 0IlQbBkyZAi3s7feeis+Pt6xojKhetONCxcukJHxr/369WPH6+jRo5IlwNHU IJJojSFjQq9evWrUqFGmTBnxFVicAQMGsHPzyy+/lCwQOnQWFDr69u3L7Wzq 1KlpKc2Q6nUhNEA7ceKE+qy5f/9+4cKF3SzvK5Z/ThiOpgaRRGsMGRPq16/P AuaWLVsUi+hsrVSpElt6+PBhyQKhQ2fB3xDo4eGxZs2aNJZmSPW6ihEjRqR0 1vAXpbZv316+QDiaGkQSrTFkTPDz82MnYM2aNSMiIsRFPKJSn9PqCM4q0KFT OHfuHBkZa//169envUBDqtdV0BFhh6ZTp05i+sWLF/mPr3fs2CFfIBxNDSKJ 1hgyJgQHB/NHtho0aLBz586goKD9+/fzNxgTdu01dOgUmjdvztu/c8oEBARI FmhI9bqK27dve3t786Ozbt26kydPLlq0iL/vsW3btnYVCEdTg0iiNUaNCbt3 7+ZvOVCQJUuWTz/91K7SoMO0Q50Kq4dDDR07yTKNql5XsXXrVjo7rB6UevXq yf/ahQFHU4NIojUGjgnnz59/5ZVXFCdm3bp1f/vtN3uLgg7Tzt69eyUdjUbT kmUaWL2ugroT/D8EGfnz5/fz87P6Qn7bwNHUIJJojeFjAnUsKUKuW7eOIqq9 nUwOdKhPDK9elxAdHX3x4sUtW7bQWUNBPiwszLFy4GhqEEm0BjFBBuhQn0C9 egaOpgaRRGsQE2SADvUJ1Ktn4GhqEEm0BjFBBuhQn0C9egaOpgaRRGsQE2SA DvUJ1Ktn4GhqEEm0BjFBBuhQn0C9egaOpgaRRGsQE2SADvUJ1Ktn4GhqEEm0 BjFBBuhQn0C9egaOpgaRRGsQE2SADvUJ1Ktn4GhqEEm0BjFBBuhQn0C9egaO pgaRRGsQE2SADvUJ1Ktn4GhqEEm0BjFBBuhQn0C9egaOpuYHAAAAGRbt3AGO BgAAID3Rzh0yoqMBAAAAauBoAAAAjAEcDQAAgDGAowEAADAGcDQAAADGAI4G AADAGMDRAAAAGAM4GgAAAGMARwMAAGAM4GgAAACMARwNAACAMYCjAQAAMAZw NAAAAMYAjgYAAMAYwNEAAAAYAzgaAAAAYwBHAwAAYAzgaAAAAIwBHA0AAIAx gKMBAAAwBnA0AAAAxgCOBgAAwBjA0QAAABgDOBoAAABjAEcDAABgDOBoAAAA jAEcDQAAgDHQwtEAAAAAV+EsRwMAAAD0DBwNAACAMYCjAQAAMAZwNAAAAMYA jgYAAMAYMEeLj4+HowEAAMjQkJc9fPgwISGBfbq6OgAAAIAjcCNLTEzEhUcA AAAZF3bJkezMZDIxd4OpAQAAyHCQebEBGnvBSHJyMkuhT1x+BAAAkCEgw2Lm FR8fT0bG35pF87SUPygCAAAA6Bn2KAjZFvmaaGecpKQk8jWWBwAAANAt5Ghk WGRb6fO2ZAAAAAAAAAAAAAAAAAAAAAAyLv8PaQLZGQ== "], {{0, 180.}, {291., 0}}, { 0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{291., 180.}, PlotRange->{{0, 291.}, {0, 180.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.79234628138415*^9, 3.814649992023995*^9, 3.814650116473351*^9, 3.814650316770726*^9, 3.814650364491461*^9, 3.814651860343607*^9}, CellLabel->"Out[1]=", CellID->349556834] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes an optional list of \"ColumnHeadings\" and \"RowHeadings\":" }], "Text", TaggingRules->{}, CellChangeTimes->{3.8146504472172947`*^9}, CellID->755991213], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", "100", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"PrettyGrid", "[", RowBox[{"d", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<1\>\"", ",", "\"\<2\>\"", ",", "\"\<3\>\"", ",", "\"\<4\>\""}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "14"}]}], "]"}], " "}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->916046342], Cell[BoxData[ PaneBox[ TagBox[GridBox[{ { ItemBox[ TemplateBox[{0}, "Spacer1"], BaseStyle->Bold, StripOnInput->False], ItemBox["\<\"A\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"B\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False], ItemBox["\<\"C\"\>", Alignment->{Center, Baseline}, BaseStyle->Bold, ItemSize->{Automatic, 1.5}, StripOnInput->False]}, { ItemBox["\<\"1\"\>", BaseStyle->Bold, StripOnInput->False], "99", "3", "32"}, { ItemBox["\<\"2\"\>", BaseStyle->Bold, StripOnInput->False], "5", "48", "82"}, { ItemBox["\<\"3\"\>", BaseStyle->Bold, StripOnInput->False], "84", "4", "33"}, { ItemBox["\<\"4\"\>", BaseStyle->Bold, StripOnInput->False], "69", "65", "58"}, { ItemBox["\<\"\"\>", BaseStyle->Bold, StripOnInput->False], "48", "40", "84"} }, AutoDelete->False, BaseStyle->{FontSize -> 14, FontFamily -> "Arial", FontSize -> 12}, FrameStyle->GrayLevel[0.65], GridBoxAlignment->{ "Columns" -> {Left, Left, Left, Left}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}, "Rows" -> { GrayLevel[1], { GrayLevel[0.93], GrayLevel[1]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], ImageSizeAction->"Scrollable"]], "Output", TaggingRules->{}, CellChangeTimes->{3.7923462889728727`*^9, 3.814649996545557*^9, 3.814650116531254*^9, 3.814650316818159*^9, 3.814650364552279*^9, 3.814651860399642*^9}, CellLabel->"Out[2]=", CellID->459823089] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell[TextData[{ Cell[BoxData["PrettyGrid"], "InlineFormula", FontFamily->"Source Sans Pro"], " has the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Spacings", "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/Spacings", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " option:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.814650450571742*^9}, CellID->876631537], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"d", "=", RowBox[{"RandomInteger", "[", RowBox[{"100", ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PrettyGrid", "[", RowBox[{ RowBox[{"d", "\[Transpose]"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"xs", ",", "ys"}], "}"}]}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xs", ",", "2"}], "}"}], ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ys", ",", "1"}], "}"}], ",", "0", ",", "4"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.81465035888465*^9, 3.814650360816057*^9}, { 3.814651906699534*^9, 3.814651934570304*^9}}, CellID->634351166], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3Xl8FFW6//EAgiLKIqCIC25sIjheFUQUdwdFkRFEuOCGdxxxlFFxXxAV FBdGRVAWZZPrqAxXCWsAEzAQBBIMkpAA2UADWTuT/GJ0FOT3TD/Xuj1dIRwg fSqpfN5/8OquPlU5VTynvlXd1dVnDv/LrcMbREVF3V0vKmpO/aiofz3eDwAA AAAAaq2ff/45EAjs2bMnNzf3ewAAUEtIcOfl5UmIS5S78/3XX3+Vl3bv3l1Y WPiPf/zj/wEAgFpF4ltCXKK8uLhYYj004gsKCoqKiqRNeXn5DwAAoBaSEJco l0CXWHeCXkJfTuRlute9AwAAR0oCPRCkn8XLCT4RDwCAb0isS7hLxJeUlJSW lvJGPQAAviGxLuEuEa8fx3vdHQAAUJ30A3o+kQcAwH/003n93pzXfQEAANVJ v1tHygMA4D+kPAAAfkXKAwDgV6Q8AAB+RcoDAOBXpDwAAH5FygMA4FekPAAA fkXKAwDgV6Q8AAB+RcoDAFBDlJWV5eTk7NixIzExcd26dStWrFgeJA/kqUyU l6SBNDNcICkPAIDn9Fdii4uLJcfT0tIk09esWSPhHhMkD+SpTJSXpIE0M/y9 eFIeAADPSRBnZGSkpKSsXLlSYn1J0KIQOkVekgbSTBrLLAddLCkPAIC3ysrK AoGAZHdSUtLSpUs11hcvXiyn8CuD5IE81enSQJpJY5nloG/dk/IAAHgrJydn +/btkuaS4AsXLtQ0l2TfuXNnXpA8kKc6XRpIM2kss8iMVS+ZlAcAwFs7duxI TU2NiYkJfYteclzyXTNaHsjT0FelscwiM1a9ZFIeAABvJSYmrl+/PuyD+KpT XhrLLDJj1Usm5QEA8Na6desSEhIWBzmfxcfHx+fn52tGywN5GvoZvZBZZMaq l0zKAwDgLf1efNhn8ZLsJSUlmtHyQJ6GfUav36OvesmkPAAA3pK81g/lQ9+l PxDn3XuZRWasesmkPAAA3iLlAQDwK96xBwDAr7j6DgAAv+KbdAAA+BV3xQEA wK+4wy0AAH7Fr9UAAOBj/+CXZwEA8Kny8vLS0tLi4uIdO3akpaWtW7duzZo1 cgofEyQP5KlMlJekgTSTxjLLQRdLygMAUEOUlZXl5ORIjicmJkqm6/fo9Xvx 8lQmykvS4KBv1DtIeQAA/IqUBwDAr0h5AAD8ipQHAMCvSHkAAPyKlAcAwK9I eQAA/IqUBwDAr0h5AAD8ipQHAMCvSHkAAPyKlAcAwK9IeQAA/IqUBwDAr0h5 AAD8ipQHAMCvSHkAAPyKlAcAwK9IeaAuKysrk+FfEiQP5KnXPQJQnUh5oK4p Ly8vKirKzc3NyspKT09PSUnZHCQP5KlMlJekgTTzuqcAjhQpD9QdEtwFBQWZ mZkS6GlpaTk5OYWFhRUVFfuC5IE8lYnykjSQZtKYrAdqNVIeqCMCgYAkeGpq akZGRllZ2f4qSQNpJo1lFpnR674DOEykPFAXyFm5nKFv27ZNBnvV+R5KGsss MqPM7vUaADgcpDzge/n5+Vu3bs3OzjbP91Ayo8wuC/F6PQAcMlIe8Dc5DZeM 3rVr1+FFvJLZZSGc0QO1DikP+FggEEhLSzvss/iwM3pZFJ/RA7ULKQ/4VXl5 eU5OTnp6+pFHvJJFyQK56v7ILTKwOMjrnqLWI+UBvyooKEhNTS0pKamulJdF yQJ53/7IuQN9RZA8IOVRvUh5wJfkjDszM3PHjh3VFfFKFiiL5XT+CIWlvOT7 riB5EPaS1z1FrReJlF+2bNn5558/ZMiQsCkjRozQp9nZ2YMHD27Xrl2zZs36 9+8/derU6vrTAFRRUdGWLVtKS0urN+VlgbJYWbjX61e7hUX5ypUr84PkASmP 6hWhc/lrrrkmKirqww8/lMclJSUdOnQ4+uijk5KSfgheDnTKKafIq3379r3j jjvatm0rj8eMGWO4ZDmJ2Lp1a3x8fByAA4uOjo6JianeiFeyWFm41+tXo8kO SnZTVbzjEZrjS5YsiY2NJeURIRFK+e3bt8t5eqtWrb777rvnn39ecvyVV17R l/7nf/5Hno4aNUqfZmZm9uzZc+DAgYZLlrHj9QgGaoH58+dv3LgxEikvi5WF e71+tUB6evqB9mPOZ/ES6xLxa9euLQiSw4OVQc5n9Ee4KwYi97n89OnTJc1/ //vfy1m85Liz/FWrVsn0Sy+9NC0t7TAWy1k8cFBffvnlxx9/nJOTE4mUl8XK wuVPeL2WNZ3srA60H3M+i9dTeMl33Q/LA53ifEZ/mPtf4DcRvfrupptukkBv 3Ljxli1bQqdLxMv0+vXrX3zxxY8//nhGRob5Mkl54KAkID766KNDupmtOVms LFz+hNdrWdOR8qgJIpryDz/8sKR5s2bNsrKyQqeXl5fPnDmzT58+TZs2lQZy sj9t2jTDZfKOPXBQEhAyxH755ZdIpLwsVhZOyh+U4Tv2Qo4HeMceERK5lF+9 erWcrXfp0kUvtKu0TWlpqewujjrqqLPPPttwsVx9BxyUZMSMGTMil/KycFK+ Cod09R3X2COiIpTyxcXFHTp0OO6443bs2DFw4EDnensxZcqUAQMGrFmzxmnc vn37xo0bc+dMoLrIiE5KSpKUiUTKy2Jl4fInvF7LWoyUhzURSvmRI0dKsr/+ +us/BK+ib9q0afPmzfXz94ULF8pLJ5544pgxY959990bbrhBng4aNKga/zpQ x5WVlSUnJ+fl5UUi5WWxsnD5E16vZS0WFuXcFQeRE4mUX716db169X73u985 +4G33npLorxfv376dMaMGfo1ef3U/k9/+pOc+1fXXwcg9NfkI5Hy+ovzXq9f 7RYW5ZXe4ZaUR7WIRMrLokpKSsIO9WVK2Ft83333XRVXpwA4EllZWUlJSZFI eVls2PW0OFSLjHndU9R63Mce8KW8vLyvv/46EAhUb8TLAmWxsnCv1w+AEVIe 8KXS0tLk5OQtW7ZUb8rLAmWxsnCv1w+AEVIe8Ktdu3atW7euuLi4uiJeFiUL lMV6vWYATJHygF+VlJRs3ry5Gj+dl0XJAmWxXq8ZAFOkPOBX5eXlubm5CQkJ qampRx7xshBZlCyQH5cHahFSHvCx0tLSrKysNWvWpKenH0nEy+yyEFkUn8gD tQspD/hbIBDYvn17fHx8SkrK4UW8zCizy0K4QSVQ65DygL+Vl5cXFxdLRq9a tWrDhg1FRUXm+S6NZRaZUWaXhfBePVDrkPKA72nQZ2VlaWQnJycfNOulgTTT AwOZkYgHailSHqgLJKMDgcCePXvS0tISEhJiY2Pl35SUlNzc3LKysr1B8kCe ykSngTSWWWRGIh6opUh5oO4oLS0tLCyUKN+2bdumTZvWrl0raR4TE7MsSB7I U5koL0kDaSaNudwOqNVIeaBOkbNyGe9FRUV5eXmS49nZ2RkZGduD5IE8lYny kjSQZpzCA7UdKQ/UTWVlZTLwA4FAcXFxUZA8kKcykV+VBXyDlAcAwK9IeQAA /IqUBwDAr0h5AAD8ipQHAMCvSHkAAPyKlAcAwK9IeQAA/IqUBwDAr0h5AAD8 ipQHAMCvSHkAAPyKlAcAwK9IeQAA/IqUBwDAr0h5AAD8ipQHAMCvSHkAAPyK lAcAwK9IeQAA/IqUBwDAr0j5iCorK5NtWxIkD+Sp1z0CANQhpHy1Ky8vLyoq ys3NzcrKSk9PT0lJ2RwkD+SpTJSXpIE087qnAACfI+WrkQR3QUFBZmamBHpa WlpOTk5hYWFFRcW+IHkgT2WivCQNpJk0JusBAJFDyleXQCAgCZ6ampqRkVFW Vra/StJAmkljmUVm9LrvAAB/IuWrhZyVyxn6tm3bZEtWne+hpLHMIjPK7F6v AQDAh0j5I5efn79169bs7GzzfA8lM8rsshCv1wMA4Dek/BGS03DJ6F27dh1e xCuZXRbCGT0AoHqR8kciEAikpaUd9ll82Bm9LIrP6AEA1YiUP2zl5eU5OTnp 6elHHvFKFiUL5Kp7wPcWGVgc5HVPUeuR8oetoKAgNTW1pKSkulJeFiUL5H17 wPfcgb4iSB6Q8qhepPzhkTPuzMzMHTt2VFfEK1mgLJbTecDfwlJe8n1XkDwI e8nrnqLWi0TKz549u1OnTpMmTQqd+Oc//1kmJicn69Pp06f36NHj2GOP7dq1 66hRozZv3lxdf92OoqKiLVu2lJaWVm/KywJlsbJwr9cPQASFRfnKlSvzg+QB KY/qFYmUlxPSevXqde/e3ZkSCASOP/74du3a6VnqW2+9FRUVdfrppw8fPvyq q66SxieddNL3339vsnBZwtatW+Pj4+M8FR0dHRMTU70Rr2SxsnBv1w7AkZAd lOymqnhTLjTHlyxZEhsbS8ojQiL0jv2VV14pOS5xr0/nzZsnT5966il9euGF Fx599NG7d+/Wpy+//PIFF1xg+AmUjB2vR/C/zJ8/f+PGjZFIeVmsLNzr9QNw pNLT0w+0H3M+i5dYl4hfu3ZtQZAcHqwMcj6jP6IdMRCxlJ82bZrE+htvvKFP hw4dKk+dt+uvu+46eSptDuM32jw/ixdffvnlxx9/nJOTE4mUl8XKwuVPeL2W AI6I7KwOtB9zPovXU3jJd90PywOd4nxGf3h7YMARoZSXKm3cuPGll14qj2Xh zZs3l/N351U5Vz3mmGMk6E888cQBAwZ88cUX5kuuCSkvo++jjz46pJvZmpPF ysLlT3i9lgCOCCmPmiBy19jffvvt9erVy8zM/PzzzyXQJ0yYEPpqVlbWY489 du6550YFXXDBBcXFxSaLrQnv2Mvomzlz5i+//BKJlJfFysJJeaC2M3zHXsjx AO/YI0Iil/Jyhi7x/dZbb919991HHXXUzp07K22Wmpp6/fXXS8sPP/zQZLE1 4eo7GYAzZsyIXMrLwkl5oPY6pKvvuMYeERW5lC8rK2vTps2ll17asmXLG264 wZmel5c3cODAUaNGOVNmzZolKf/cc89VbwciRzZXUlKSDOFIpLwsVhYuf8Lr tQQQKaQ8rInoXXFGjhypb8h/9NFHodMvueQSmXjLLbdMmjRJwr1FixYNGjSQ aKv2DkSIHMAkJyfL4UokUl4WKws/jOsSAdQWYVHOXXEQORFN+bVr10qaN23a NOwz96ysrJtvvrlRo0byar169bp06SJHsNX+1yNKf00+Eimvvzjv9foBiKCw KK/0DrekPKpFRFM+Ojpacnz48OGVviqnqykpKYWFhdX+dy2QA5WkpKRIpLws Vhbu9foBiKBFxrzuKWq9CKV8Xl5ebGxs586d5VS91t291oSs4Ndffx0IBKo3 4mWBslhZuNfrBwDwgwilvPOJfC26pu6QlJaWJicnb9mypXpTXhYoi5WFe71+ AAA/iFDKx8XFTZkyZc2aNdW4zJpm165d69atKy4urq6Il0XJAmWxXq8ZAMAn +OXZw1ZSUrJ58+Zq/HReFiULlMV6vWYAAJ8g5Q9beXl5bm5uQkJCamrqkUe8 LEQWJQvkx+UBANWFlD8SpaWlWVlZa9asSU9PP5KIl9llIbIoPpEHAFQjUv4I BQKB7du3x8fHp6SkHF7Ey4wyuyxEFuX12gAAfIWUP0Ll5eXFxcWS0atWrdqw YUNRUZF5vktjmUVmlNllIbxXDwCoXqT8kdOgz8rK0shOTk4+aNZLA2mmBwYy IxEPAIgEUr5aSEYHAoE9e/akpaUlJCTExsbKvykpKbm5uWVlZXuD5IE8lYlO A2kss8iMRDwAIBJI+WpUWlpaWFgoUb5t27ZNmzatXbtW0jwmJmZZkDyQpzJR XpIG0kwac7kdACBySPnqJWflsjGLiory8vIkx7OzszMyMrYHyQN5KhPlJWkg zTiFBwBEFCkfIWVlZbJVA4FAcXFxUZA8kKcykV+VBQDYQcoDAOBXpDwAAH5F ygMA4FekPAAAfkXKAwDgV6Q8AAB+RcoDAOBXpDwAAH5FygMA4FekPAAAfkXK AwDgV6Q8AAB+RcoDAOBXpDwAAH5FygMA4FekPAAAfkXKAwDgV6Q8AAB+ZZ7y awAAQA1DygMA4FfVm/L7AQBADUDKAwDgV6Q8AAB+RcoDAOBXpDwAAH5FygMA 4FekPAAAfkXKAwDgV6Q8AAB+RcoDAOBXpDwAAH5FygMA4FekPAAAfkXKAwDg V6Q8AAB+RcoDAOBXpDwAAH5FygMA4FekPAAAfkXKAwDgV6Q8AAB+RcoDAOBX pDwAAH5FygMA4FekPAAAfkXKAwDgV6Q8AAB+RcoDAOBXpDwAAH5FygMA4Fe1 MeU/BgDARyKXmKQ8AADeilxi1t6Uj/RfqV10m1SgSlSOCWrJBLVkgloyQcq7 Mb7cGE0mqBwT1JIJaskEtWSClHdjfLkxmkxQOSaoJRPUkglqyQQp78b4cmM0 maByTFBLJqglE9SSCVLejfHlxmgyQeWYoJZMUEsmqCUTpLwb48uN0WSCyjFB LZmglkxQSyZIebeaML5WrVr1+m+WL1/ubWf2Wx9NcXFxK6u0c+dOa50x53nl vP/++08//fSPP/5YLc0ixKs984YNG6ZOnSorPnHixC+//PJAzb799tv33ntP ms2cOTM9Pd1mD0N5VUuJiYmzZs164YUXZCvJnkf2upU2k60k22f06NFTpkzx 8E5lXtVSQkKCDqLJkydv2bLloO3feeedxx57LBAIWOibGynv5vm+WnTt2jXq N2eccca+ffu87Y/l0RR1MJMmTbLWGXPeVs60adN04xQWFh55s8ixv2fes2fP kCFDwkro8ssvT01NDW0me5gHHnigfv36oc0GDRpUWlpqs7fKfi3t2LHjuuuu C9tK7dq1i46ODm0mO+o77rgjrNmVV16ZmZlps7fKfi3l5OT07ds3dN3r1at3 5513lpeXH2gW2Vlpy127dtnsqoOUd/M85devXx82iJYuXephf/bXvJSfMWOG tc6Y87ByYmNjGzZseND4NmwWUfb3zAMGDNBVbtas2W233Xbaaafp006dOhUX FzvNHn74YZ3epUuXe++99+KLL9anN954o83eKsu1JCHVoUMHXd/evXuPHDlS NlSjRo3kaYMGDUL3urfffrs2a968uRw7yWGAPj333HOl29Y6rCzXUklJSfv2 7Z31/a//+i/nuEhO1SudRXbdRx11FClPyoe57777wkLtD3/4g4f92W99NO3e vft7l+XLl+vWuPrqq6VUrHXGnCeV8+OPPz7xxBOyK3aqpdL4NmxmgeVaSkhI 0PW96aab9C1TSbQ333xTJ8oDbbZ161Y9ix84cGBZWZlOlC2mzWJiYqx1WFmu peeff945fnYmpqSktGjRQiaed955OmXTpk3a7JZbbtFPfPbt2zdx4kSdKA+s dVhZrqVnn31W1/SBBx5wdkHSATmdl4mzZ88ObSzF9sgjj4S+NUTKk/JKdkHH H398WMrL0aAEn1dd2l8DrnIpKCjQo+jTTz9dEt/DnlTBfuVs3LjROQWrIr4N m9lhuZac90vj4uJCp5955pkycfDgwfpUdsjabNu2bU4b2efoif+tt95qrcPK ci1dcsklsppyZho2/bXXXosKvikt++f9IR/3rFu3LrTZ2WefLROHDRtmrcPK ci3panbp0iXsLENWXKafddZZzpT4+PhzzjknbMSR8qS8kmNppyp69OjhPB47 dqxXXdpfA1J+5MiRuh0WLFjgYTeqZr9ynn76ad0sd91119y5cw8U34bN7LBc S1OnTnWnfElJyQknnCATb7/9dp2iMde7d++w2R999FE9zLb86bzNWvr111+v uOKKM844Y9y4cWEvffbZZ7r15Lxens6cOVOfJiQkOG1++umnli1bysShQ4fa 6bDDZi1JzeiJ+ZgxY8JecsaUc7nmY489plNkmzi7dFKelFe9evXSkmjcuPHO nTuPPvpofdquXTsPr8HzNuWTkpL0reYBAwZ41QcTnqT8Nddcs3r1anksxz9V pLxJMzss11J2draurwS6c4nU5MmTdeKsWbN0yjHHHCNPJdPd/6faUorQWp8r vL6S06FH17IX+vnnn+VpXl6evjst4eXsjqZPn66byH6HbdaSJLiupqxv2EvR 0dH60hdffKFTJOWvvPLK5cuXy2PnSImUJ+XF1q1bnZP3IUOGyJRBgwY5Uzy8 Bs/blNeLWuV8KiMjw6s+mLBfObrvVVXEt2EzO+zX0qhRo3SVTz311AceeOCi iy7Sp3ICm5+fLw1kU+gUOZkNm3fZsmX60uLFi232uSak/I4dO/Qs4+qrr3Ym PvXUUxr0p59+uhwDdO/eXbePtCkrK7PcQ5u1JGunV64+88wzYS+5DxpD3/kh 5Un5UM7uSCxZskSmyL7FmdK/f39PerXf05Tfvn27c1mUJx0w5+2e2TC+62DK i9GjR0f9ux49ejin9pmZmTpxypQpYTM6X3iRfbXNDnue8gUFBXothwR9ampq 6Esvv/xy2Ma89NJLPXmn0XItdenSRVb2xBNP3L17tzNRYuvcc8/V7fD222+7 5yLlSXmHnHC1bt1a6+Gkk07au3evTJR/27RpoxPlZDY3N9d+x/Z7mvLO1b8r V670pAPmSHkTlmtJ0mrEiBF6+tm+fXs5VL7wwgt1C/Tt2zcnJ6cieCSpU2bO nBk2e0pKir40d+5ca32u8LqW8vLyLrjgAl3xN99805kuu+iHHnpIj7o7duw4 YMAA5/uG/fr1y8/Pt9xPy7X0wQcf6MpK3C9fvryoqGjDhg3XXHONc7QzceJE 91ykPCnv+Pvf/+5Uy9133130m3vvvdeZLkfR9ju237uUl7Mtvci5a9eu9v/6 oSLlTViuJWf4jB8/XvYhOlE2QpMmTWRit27dZKLzjv3kyZPDZl+7dq2+5Hzk aoeHtZSenq5fQIgKvjsd+tKf/vQnnT5hwoRff/1VJy5btuy4446Tib/73e+c iXbY3y/ddNNNUS7OfXLCvkynSHlS3tGnTx93/YTx6ho8r1LeiaR3333X/l8/ VKS8CZu1JLsUvbWLnMKHvSQ5pdtB73arX18dO3ZsWLNFixZps7Av4kWaV7X0 1Vdf6bcP6tWr98Ybb4S+tHfvXv2YXk7hw+aS4albyfLdbu3vlySGXnnllbZt 2+r6duzY8YknnkhNTa3iUJCUJ+WVFEDYrTUPRD+vt8yrlJedc1TwlmVFRUX2 //qhIuVN2KyltLQ0XVn3W6nOu/Tvv/++PNXPoB955JGwZnJ2ps1kUXb6rDyp pU8//VRzXP795JNPwl51vq0wZcqUsJdk96Uvffjhh7Y6+y8efpKYk5OTlZWl j2WfrKufkpLibknKk/LqxRdfNIn4KI+uwfNkNDk3CBo6dKjlP314SHkTNmvJ SR/3SbrzxSj9LP7aa6+Vx+eff35YszvvvFOmt27d2k6HHfZrSSJev6/aqlWr Snezzucar732WthLEnn60n//939b6ez/srxfiouLmzZt2rJly8KmDx8+PCp4 MVWlc5HypPz+4F0indtByxn9li1bdv+7jIyMxo0bawNPrsHzJOUTExN1lceP H2/5Tx8eUt6E5Vo65ZRTZGW7d+/u3LdWjRs3TrfDpk2b5Klzv5fQ78UHAoGm TZtGefH9Dsu1lJmZqXcMOPXUU+X450DN5FVp07Nnz19++SV0+uuvv65bb+vW rZHv7P+xXEv6+fvJJ59cUlLiTNy5c6eejNxzzz2VzkXKk/LCuUN7VGU3mVSh vwNl/xo8T1LeuZ1mdHS05T99eEh5E5Zr6bnnntP1HTBgwJ49e3TijBkzNNQk sH4IXpInxwB6PNChQ4ft27dXBL9E7/wWSXx8vLUOK8u15Fw/9sILLyyoTGlp 6f6Qtxxvv/12veetmDt3rp6DXHbZZf6++s65/ODJJ5+U8qgIviOkX69r2LDh gX6nmJQn5ff/+61v5syZU2mbuLg4p439a/A8SXnZ4ej61vCb4ThIeROWa0ni W+9eGxW8okz2yXIupk9btGgh555Oyw8++EC/cFe/fv3OnTvrYYAYOXKktd46 bNZSUlJS1MHojevlFN65Oadspa5duzrXoZ1wwglZWVl2OuywXEtyqON8c1AO bM466yynrqR4DjQXKU/Kl5eX62XAokmTJvK00mZykKy/laBiY2Ot9XC/Ryn/ 0EMPRQV/4NLy3z1s3qb8woULtTaKi4uPvFnk2K8l2TnLEaN+dc5JKDm0zs7O DmspG0fflFZNmzZ96aWXfvjt+3c22ayl0N/OOJD169dr459//nns2LH61TnV oEGD//zP/8zLy7PT21D2ayknJ2fo0KGhW0YOdT7//PMqZnG+Iu3Vz2yR8m7e 7qtrJk9Svtahckx4VUuyA5Ez90WLFm3cuFH2NlW0zMzMlGaSa6G/Pm9ZDa8l OemQM/cVK1Zs2bLln//8p1fd8KqWdu/evWrVqqVLl27bts2Tg8BDQsq71fDx 5QlS3gSVY4JaMkEtmaCWTJDybowvN0aTCSrHBLVkgloyQS2ZIOXdGF9ujCYT VI4JaskEtWSCWjJByrsxvtwYTSaoHBPUkglqyQS1ZIKUd2N8uTGaTFA5Jqgl E9SSCWrJBCnvxvhyYzSZoHJMUEsmqCUT1JIJUt6N8eXGaDJB5ZiglkxQSyao JROkvBvjy43RZILKMUEtmaCWTFBLJkh5N8aXG6PJBJVjgloyQS2ZoJZMkPJu jC83RpMJKscEtWSCWjJBLZkg5d0YX26MJhNUjglqyQS1ZIJaMkHKu30MAICP RC4xSXkAALwVucSsvSnv9bssNYtuk2JUicoxQS2ZoJZMUEsmSHk3xpcbo8kE lWOCWjJBLZmglkyQ8m6ejK+kpKRxlXnttdfeeeedTz75JC8vz3KXQnk+mjIy MsaMGfPSSy9V+mpcXJxspccff/ztt9/euHGj5b45PN8zy0Z47LHHAoFApa/G xsbK9nn22WfnzZv3/fffW+6bw6taMiyS+Pj4d999V5pNmDBhyZIlNnsYyqta KiwsXLFixfjx42W4zZ07d/fu3VW3r7rkIs2rWjIskl27di1atOjll1+WQTdj xoysrCybnXSQ8m6ejK8pU6ZEVenYY4998MEHy8vLLXdMeZ7y/fr10+1QVFQU Oj09Pb1Pnz6hG6pevXpDhw6VnZX9Tnqb8pMmTdItIPuWsJe2bdt2xRVXhFXU iBEjPCkn+7VkWCTZ2dmDBg0K20q9evWSI3CbvVWe1FJ0dPQJJ5wQuvotW7ac PXv2gdpXUXJ22K8l8yKRY+kWLVqENpNtO336dJu9VaS8W81MeXXfffdZ7pjy NuWdnUlYysuJxjnnnKPTO3XqdPfdd1999dX69OGHH7bfTw9TfunSpUcddVSl u1zZYl27dtWXTj311MGDB7dq1Uqf3nbbbfa7armWzIukf//+Or1p06a33nqr bCt92rFjx++//95ah5X9WpKTTTn4kfVt0qSJbIphw4bJmYU8bdCgQWxsrLt9 FSVnjf39kmGRyP7c2Zg333zzkCFDnI0p281mh4tJ+cp4nvLnn3/+LbfcImev N9100/XXX9+6devQoM/JybHctwpPU37Tpk3HHXdcpSn/xBNPOAc/BQUFOnHW rFk6vuwfNntSOYFA4JFHHqlfv76zicJ2uePHj9fpY8aM0ZP30tJS2YfrxG+/ /dZyhy3XkmGRxMXFabMbbrghNzdXpsiZ/quvvqoT5YG1DivLtVRWVnbaaafJ mrZt29apn82bNx9zzDEy8dprrw1tfNCSs8ZyLRkWSX5+vqb/ySefvH37dp24 fv163ZhXXXWVtQ4rUt7N85T/4IMPQl+S/yY5aHRereINtMjxKuVlt9y9e/fQ g5zQlD/rrLNkSufOnZ29t5IjZ5l+5plnWu6t/cqJj493TlQPtMvVDdiyZUvp oTMxMTFRG7/55ps2O1xhvZYMi+Stt97SDbJs2bLQZmeccUZU8E0Pax1WlmtJ 9jmymhLcy5cvD50+fPhwmS7xJDtnnWJSctZYriXDInnvvfd0Yy5cuDC02Z13 3qkbM6wUI42Ud6tpKV8RfDPNefWjjz6y3LcK71L+6aefllVu1arV6NGjw1J+ 9+7dejbx7LPPhs3lbK7k5GSbvbVfOY899piu6dChQ521DtvlLl68+JVXXpkz Z07oROmtnsyOHTvWZocr7NaSeZG8++677h24zK4frQ4cONBOhx2Wa6lnz56y mgMGDAibLltAzuhDr9U0KTlrLO+XDIukR48e8rR///5hs2dlZckZfUZGhrUO K1LeraalvPw39e3bV19q0KDBQa96jQRPUn7FihWyvrLWc+fOnThxYljKy85Z p0yePDlsxnnz5ulLn332mc0Oe5LyV155pZ5/ycqa73JffPFFbbxx48bId/Pf 2Kwl8yJJS0vTp7Kvdq7Ke/vtt3XitGnT7HTYYbmWTj75ZFnNSZMmyeM9e/bM nz9/6tSpX3/9dVlZWVjLwy65SLC8XzIskjZt2shTOfEvDl6t97e//U0OD1av Xp2fn2+tq6FIeTfPU14OBYcGDRky5A9/+EPLli2dl0aMGGG5Y8p+yst+4+yz z5ZVHjZsmDx1p7wMmYYNG8qUJ554Imxer3bO9iuntLTUeWyyy5VdjZzVXnjh hdryzjvvtNLNf2Ozlg6pSP7yl7/olFNOOeW+++77j//4D316+eWX5+Tk2Omw w2YtyY5X39iJjo6W3Y4+Vp06dZKsD218qCUXUfb3SwctkoKCAt2Achg5ePDg 0I3ZsWNHGYA2e6tIeTfPU/5Ahg8fbrlXDvujST/Dateu3c6dO4srS3nRuXNn mdK6devQL6LKKJNdkzZ+4403bPbZk8pxmOxynS0jLrvsMhlTNnuoLNfSIRWJ fkIU6uKLL/b9tzK3b9+uK9u2bVv5t1GjRt26ddPH4uijj/7mm28qnbEOpnzx wYrk22+/1Yn69ohszPPOO08f68Zct26d5Q6T8m41NuWPOeaYcePGOZfB2GR5 NM2dOzcq+KVm544Tlaa8XuUSFby2auHChd999118fPxVV13lbLEJEyZY63Nx bUj53r179+nTR/bh2vKSSy5JSkqy2ckK67VkWCRyMPnHP/5Rz7zOOeecm2++ +YILLtAGssXS09OtdVjZrCU5wXS2hlRIZmamTn///ff1I7NevXpVOmNdS3mT Ilm+fLmzMeVAOjU1Ved95513dGP27NnTWocVKe/mecrfcMMNTz311JNPPjlq 1Kg///nP/fr1kyNA51Xfv8ualpamH1KEfp250pQXsq3ch0POLVAsf5mu5qe8 Y/78+VpUZ599tuXjRvvnXyZFctddd+nTl19+2amxefPmNWnSRCbK6VhY4UWa zVrasGGDrnurVq3Cbor40EMP6Utyvu+esa6lvEmRyDGktpGdWNiFdiNGjNCX 5HzfWp+LSfnKeJ7y7mvsZRg63xmXI0n7X5m3OZrkCDkq+D2UadOmzfzN3Xff ras/Y8YMebp161ZtLMPqxRdfdN4Q69Chw6OPPirnp/rU91ffhTrUXa7ztYWV K1dGum+h7Kf8QYukoKCgUaNG8lhqL2xe524Dlu92a7OWcnNzdR2HDRsW9pKT WQsWLHDPWKdS3rBIMjMz9fGQIUPCmslA05fkwMBOnxUp71YDU15cf/31ToOY mBjL3bM5mjp27Bh1MBL0YXOlp6c70f/5559rs8TERDt9VjU25aVvMr7CJjrv 08rJrK0+/osnn6WqAxXJN998o4/dH/E4H7O+8847NrtquZYaN24cVdmtNZ2P 7Cu9TUedSnnzItGNOXz48AM18+Q9xsglJilvqOqUl3V3bqUY5fdvP1155ZVt XY4//nhdd32qB8PLli2bNGmSnGWELUGv3DvxxBPtdNhRA1NeTkD0HFZON8La L1q0SNt/8cUXNvtpOeVNisTJshdeeCGsmfNdvKlTp1rqcZDlWurQoUNU8DqN sOmxsbG6+qmpqe656lTKmxdJ+/bt5XH37t3Dmi1dulSbWf5lBFLezfOUHz16 9MagDRs2JCQkyEmHc+dt0aJFix+sXxrt4fmXqvRzef1otU2bNrt373Ymbtu2 TQ8J7rjjDsudrIEpL/ROZd26dQv7/P22227T9pY/ALJcS4ZFopeUX3TRRWFf ah4zZoxuJRmJ1vpcbL2W9P4JDRs2XLt2beh0/ST6pJNOqnSuOpXyxcZF8txz z+nGlGOk0GZ6W2mvzj4il5ikvCHDX6sRf/nLXyz3raKmpvxf//pXnThq1CjZ zxQHD6r1m1MyxCzf+K64pqb8888/r9Ml0VJSUiqCX3l27u4+ZMgQy/20XEuG RfLkk09qs/79+2dnZ+tEGZV67/EePXr4+Oo7kZeX17x586jg97/Wr1+vEydM mKDXkz/44IOVzlXXUt6wSOSlZs2a6bHlV199pc3Gjx+vG/P++++31mFFyrvV 5JS/7rrr6sI36dwqTXnZNTk3eGncuPGZZ56pj2U0vffee/Y7WTNTXgqmV69e TglJwOkuKCp4HZpsQ8v9tFxLhkUiZ2fOLybIS7KV9A5mQuJv06ZN1jqs7NfS jBkz9OqyqOB9KpyLFfv06eO+A56qaylvXiSyP3c25umnn+40kx24/TvgkfJu nuyrp02b5s50KSQ53WjSpMlJJ53Ur1+/uXPnlpSUWO6Y8jzl9cdnZYO4f19+ 8ODBoRutS5cun376qSed9Dbl//73v+sWCPsyVEXw6js5DQn9PqY8fvTRR4tD fr/GGvu1ZFgkcjzwzDPP6LeiVP369QcMGJCWlmazt8qTWpK9a7du3ZzbtbVt 2/aee+6REXeg9lWUnB32a8m8SL788svzzjvP2Zhy1HTHHXd89913NnurSHk3 b/fVNZPnKV+1rKysmJiYL774YvPmzZbfWQ1VwytHhlhiYqJspeTkZE/eEVJe 1ZJhkchLclI2f/582dXs2bPHZg9DeVhLcrK5YsUK2Qie/PVD4lUtmRdJTk7O okWLLF/UEYaUd6vh+2pP1PCUryGoHBPUkglqyQS1ZIKUd2N8uTGaTFA5Jqgl E9SSCWrJBCnvxvhyYzSZoHJMUEsmqCUT1JIJUt6N8eXGaDJB5ZiglkxQSyao JROkvBvjy43RZILKMUEtmaCWTFBLJkh5N8aXG6PJBJVjgloyQS2ZoJZMkPJu jC83RpMJKscEtWSCWjJBLZkg5d0YX26MJhNUjglqyQS1ZIJaMkHKuzG+3BhN JqgcE9SSCWrJBLVkgpR3Y3y5MZpMUDkmqCUT1JIJaskEKe/G+HJjNJmgckxQ SyaoJRPUkglS3u1jAAB8JHKJScoDAOCtyCVm7U35SP+V2kW3idfvz9V0VI4J askEtWSCWjJByrsxvtwYTSaoHBPUkglqyQS1ZIKUd/N8fJWWli5evPjVV18d PHjwDTfc8Mgjj0ybNm3nzp0edsmr0bRhw4apU6c+/fTTEydO/PLLLw/U7Ntv v33vvfek2cyZM9PT0232MJTlyklISIivUkFBQWj7TZs2ffjhh6NHj54+ffqO HTus9TOM5VqKi4tbWSUZWdY6Y86rvVBiYuKsWbNeeOEFGXHLly+XvW7V7YuL i19//fU333zTTvfCeLVfKiwsXLFixfjx48eMGTN37tzdu3dX2kzSSnbdzzzz jGyfhQsXFhUVWe6nIuXdvE35mJiYtm3bRrkce+yxUlQ///yzJ72yP5r27Nkz ZMiQsI1w+eWXp6amhjaTqnjggQfq168f2mzQoEFypGSzt8py5biLJIzsYbRl fn5+v379Ql+SLTZ8+PB9+/ZZ663Dci0ddCtNmjTJWmfM2d8LyYHfddddF7Zx 2rVrFx0dXcVcAwcO1Ja//vqrta46PEl52SAnnHBC6FZq2bLl7NmzQ9ts2bLl 6quvDtuYp5122rx58yz3toKUr4yHKS+n7fXq1atij9SnT5+6sGcWAwYM0FVu 1qzZbbfdJgNEn3bq1ElOH5xmDz/8sE7v0qXLvffee/HFF+vTG2+80WZvVU1L eTnLkGY//fRTx44ddcp55513//33SxXp06efftpabx01LeVnzJhhrTPmLNdS eXl5hw4ddIP07t175MiRMugaNWokTxs0aHCgva6c9TubsY6kvFSL7qKbNGnS v3//YcOGyfmXbqXY2FhtI2f655xzjm6WXr16yWnIrbfe2rBhw6jg0XUV70lG CCnv5lXKL1y4MHTnI4Pu7rvv7tu3r441x1//+lf7fbM8mhISEnRlb7rppkAg IFNkL/Tmm2/qRHmgzbZu3apn8XJCUVZWphOfeOIJbRYTE2Otw8py5ZSUlLi/ G7t69WrdC8l52d69e6XZmDFjdIPIrluniPnz5+um+9vf/matw8pyLe3evft7 l+XLl+s2kRMu2e1Y64w5y7X0/PPPO8c8zsSUlJQWLVrowaF7lqysrOOPP75O pbzsZPR0o23btrt27dKJmzdvPuaYY2Titddeq1Oeeuop3SZTpkxx5k1MTGze vLlMPPfcc611WJHybp6k/D//+U/n8E88++yzzg5ZtoxzYivOOOMM+6fzlkfT pEmTdGXj4uJCp5955pkycfDgwfr0kUce0Wbbtm1z2kid6EiU42drHVaeX9Eh I0hP26VIJPF1Yvv27WVK165dnYpScgwp06XqLHfSq89SHQUFBbpNTj/9dEl8 D3tSBcu1dMkll+iRYdj01157TabLcaPshUKnSy3JWWro2UddSPkPPvhAz8fl KDF0+vDhw2W6ZL0eMXbv3l0PIMNmHzt2rG6rPXv2WOtzBSlfGU/21XLU54yX 66+/PuxVOR/Rw2b59/e//70UieXuWR5NU6dOdae8nLrqx2G33367TtFdU+/e vcNmf/TRR2X6UUcdZfnTec9TftSoUbrdli1bplN++umnBg0ayJRx48aFNZ43 b542zsnJsdlJz1N+5MiRuuILFizwsBtVs1lLEtBXXHGFHBm6i+Szzz7TbSXn 9aHTX375ZZl44oknjh8/vu6kfM+ePWVN5ZwrbLrsn+WMXo8YJacuu+wyOYAc M2ZMWLO5c+fqtpLzeks9DiLl3TzZV993331Oyq9atcrdYO3atUlJSWGnY9ZY Hk3Z2dm6KSTQy8vLdeLkyZN14qxZs3SKvlEmme6uam0pW8xanyu8TvnU1FQ5 sNGN5kyUBNdNMXv27LD2MTEx+tLSpUtt9tPblJeS0MMe9766RvH8iFHpEdHR Rx8det3vhg0btNLkMGnGjBl1J+VPPvnkqN8u15RTrfnz58v5yNdff+18XFi1 Bx54QGZv1KiRz84+SHlDV111lZPyUjOW//pB2d8zO6elp556qoyOiy66SJ/K SUd+fn5F8BIXnSInIGHzypmsvrR48WKbffZ2z6xX0Tds2DA3N9eZ+Msvv+h1 HS+88EJY++nTp+tWstxnb1O+b9+++j5PRkaGV30wURNSfseOHZLv+uazM9G5 Tu/ee++Vp3Un5SWe9IqX6OjooUOHhl4m3alTJ8n6qmffsmWLjkTZg9npsIOU d/NkfEmWacE0a9bM8p824cmeefTo0VH/rkePHs6pfWZmpk4MvcRFrV+/Xl/6 7LPPbHbYwz3zd999p6eogwcPDnupa9euMv2kk04qKSlxJu7du/e8887TrfTe e+/Z7KqHKb99+3bnck1POmDO85QvKCjQNJegT01Ndabru45nnXWW7K7316WU l+LRNdVvOktkd+vWzfnWs2ylb7755kDz7ty5Uy+7krksv8FYQcpXxpPxpe+A iTZt2lj+0yYs75llDzNixAg9Wm7fvn3//v0vvPBC3T5yLpaTk1MRMuhmzpwZ NntKSoq+NHfuXGt9rvB0z/zSSy/pKsfHx4e9NGfOHH1J4n716tUyjr799tvr r7/eOXaSwySbXfUw5Z0ryVeuXOlJB8x5m/J5eXkXXHCBbqvQO94sWLAgKnj5 mbMfrjspL2PHGTK9e/eWswyd/v777+sBdq9evSqdMTs7+/zzz9cZX331VTu9 DUXKu3kyvs4++2wtAxlBXn34XgXLe+Z7771Xt8b48ePl/10nyh6mSZMmMlEO oWWi84795MmTw2Zfu3atvvTFF19Y63OFd3vmffv2tWvXTtZXdiaVNrjlllui XJz75Fj+Mp1XKV9eXq5fvpCjHft//VB5mPLp6en6ZRbxzDPPONMl+lu3bh31 77dZqDspv2HDBl3TVq1ahX0146GHHtKX5NQjbK7k5GQdm+Lxxx+309UwpLyb J+PrxhtvdHa/u3btcjdYtmzZtGnTZKBZ7piy/PmXfoAlp/BhL02YMEE3kd5Z Qr93MHbs2LBmixYt0mZhX8SLNK/2zM51CFOnTq20geyB33jjjVNOOUWbde7c +dlnn3U+8qgjV9/peah499137f/1Q+VVLX311Vf6TZZ69epJzYS+pN/nlfNW 6djff3P//ffrVp03b548tfz1H5u1lJubq2s6bNiwsJfi4+P1pbBvbaxYsUJv OCBeeeUVO/10I+XdPBlfzle/9QTW3UC/gyln+pdddpnlrz7ttzua0tLSdDtM nDgx7CXnXfr3339fnurnhrLpwprNnj1bm8mi7PRZebVn1t1v8+bNfzjYXcfz 8/Od/bAcKelWysjIiHwf/49XKS8HjVHB6168up34IfGklj799FO93E7+/eST T8JePffcc93vCIWRoLfZYcu11LhxY1nH++67L2y6s18Kvc/tRx99pGcr8u+c OXOsddKNlHfzZHw5u9yo4IVShYWFoa/K2HFebdOmjf272dscTbt27dI1dZ+k p6en60v6Wfy1114bFXybOqzZnXfeKdNbt25tp8MOTypn3759TZs2lfW96667 Km2wbt26WbNmxcXFhU3Xy6jsXwfiScqXl5frOz9Dhw61/KcPj/1akojXz5db tWpV6W72uuuuO81Fjpp0SJ566qny1LlRgx2Wa0lPKy655JKw6bGxsboRnF/Z kIjX6zxbtmxp/5a2YUh5N6/OyJzffYgK/q7BggULAoFAcXGxnNIed9xxzkuj R4+23zfLo0nfW+7evXvYF1HHjRunG2HTpk3yVLJen4ZetiobTVPP/nXUnlSO c6nhhAkTKm2gn7+3bdv2p59+ciYWFBToVvrjH/9oq6f/y5OUT0xM1K00fvx4 y3/68FiupczMTL37hIS1HEubz1h3PpcXL774YlTwy6pr164NnS4H2Hp2pk8l 6/UtEdmPJScnW+vegZDybl6lvJzD6tVlVTjnnHOKiors983yaHruued0fQcM GODcDVL2J7oj6tmz5w/BS/LkGECPB+QYW697KSwsdH5XKz4+3lqHlSeV4/xi SExMTKUNnBsJylaVU9r9wVvl6NfrGjVq5O9PfxzTpk3TjRAdHW35Tx8ey7Wk txGICt5XYUFlSktLK52xTqV8Xl6e3ov+5JNPXr9+vU6Uo2v9NtCDDz6oU5xf g3rmmWc+q4wsx1qfK0j5yniV8uKbb77p0qXLgSJejhUtf4TqsDyaJL717rVR wauAZJvoXadEixYttm7d6rT84IMPdIjVr1+/c+fOehgQFfxlFmu9dXhSOc7N sUNvhhPq559/7tGjh7Y59thjnZ9LkC02Z84cy73d71HKS3jpWtfwm+E4bNZS UlJS1ScXYt26dZXOW6dSviJ4ruH8fFi7du2c/ZIku77x6HzBpwo+uyqYlD9U P/744+OPPy674tB7KzVr1kxOxAKBgFe9sj+a5NxB9syhb25IKg0aNCg7Ozus 5cKFC517CommTZu+9NJLP/z2/TubPKkcvW5TDn6qaJOfn3/XXXeFVtT555+/ ZMkSa50M5UnK63ed5ETM8t89bDZryUnqKsipa6Xz6ltJMjbrSMoLyaBu3bo5 o6lt27b33HOPc0ln6C+SHMjq1attdpiUd/M25R1yZCiHhV999ZWco3kygkJ5 Mpoqgj/9IGfuixYt2rhxo1RIFS0zMzOlmeyLQn993rIaUjkHUlJS8vXXX8fG xu7cudPDivKqlmqXGl5LNYSHtSRHzitWrNALhGo4Ut6N8eXGntkElWOCWjJB LZmglkyQ8m6MLzdGkwkqxwS1ZIJaMkEtmSDl3RhfbowmE1SOCWrJBLVkgloy Qcq7Mb7cGE0mqBwT1JIJaskEtWSClHdjfLkxmkxQOSaoJRPUkglqyQQp78b4 cmM0maByTFBLJqglE9SSCVLejfHlxmgyQeWYoJZMUEsmqCUTpLwb48uN0WSC yjFBLZmglkxQSyZIeTfGlxujyQSVY4JaMkEtmaCWTJDybowvN0aTCSrHBLVk gloyQS2ZIOXdGF9ujCYTVI4JaskEtWSCWjJByrt9DACAj0QuMUl5AAC8FbnE rI0pDwAATJDyAAD4FSkPAIBfkfIAAPgVKQ8AgF+R8gAA+BUpDwCAX5HyAAD4 FSkPAIBfkfIAAPgVKQ8AgF+R8gAA+BUpDwCAX5HyAAD4FSkPAIBfkfIAAPgV KQ8AgF+R8gAA+BUpDwCAX5HyAAD4FSkPAIBfkfIAAPgVKQ8AgF+R8gAA+BUp DwCAX5HyAAD4FSkPAIBfRSLlAQBAzVFdKQ8AAGoXUh4AAL8i5QEA8CtSHgAA vyLlAQDwK035srIyUh4AAJ+RfC8tLS0vL9d/ve4OAACoHk64//LLL7xpDwCA n+jb9RLx+/fv18Qn6AEA8AEJdD2R1xvl/frrrzpF/uWtewAAaikJcQ30srIy CXfnjrjyWF51LsYDAAC1i15uJ1EuWR8a8Y69e/dK1msbAABQi0jKS4hLlNv5 xRwAAAAAAAAAAAAAAPD/AUU/0zU= "], {{0, 176.}, {337., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{337., 176.}, PlotRange->{{0, 337.}, {0, 176.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.814649998937711*^9, 3.8146501165677767`*^9, {3.814650316849177*^9, 3.8146503646047792`*^9}, 3.814651860425128*^9}, CellLabel->"Out[2]=", CellID->276662322] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[TextData[{ "Compare the four available settings for the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "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/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " option:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797091068384872*^9, 3.7970911010976267`*^9}, 3.798984275062772*^9}, CellID->915578702], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"r", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12"}], "}"}]}], "]"}]}], ";", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PrettyGrid", "[", RowBox[{"r", ",", RowBox[{"PlotTheme", " ", "\[Rule]", "plotTheme"}]}], "]"}], ",", RowBox[{"{", RowBox[{"plotTheme", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", "\"\\""}], " ", "}"}]}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->76107112], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsXQeYFMXWnc07m/PuDEmWnBGWBRaWKBlXQYISRZRgAIlKEBB9iMgPKiiK JBFFUQmiCIgiovAkCYhkyUFBRHkYWXb/23Nni94JNdVdE1q556tvvu7q6joV bt1T1WnK3je0830hJpPp0SCTaUiwyaRsFxIIBAKBQCAQCAQCgWAA/P333z// /PP58+fPnj17hkAgEAgEggogjj/88AMIJcils4YWFBTAoXPnzl28ePGXX375 H4FAIBAIBCeARIJQglxeunQJpFMtoxcuXPjpp58gzdWrV38jEAgEAoHgBiCU IJcgmiCdTExBWGFBCvGBLh2BQCAQCP8MgGj+bAPeG4WFKskogUAgEAiaANIJ Agoyevny5V9//ZUu6hIIBAKBoAkgnSCgIKN4ezTQxSEQCAQC4Z8HvGFKd0gJ BAKBQNAHvFuK77wEuiwEAoFAIPzzgO/FkJISCAQCgaAPpKQEAoFAIMiAlJRA IBAIBBmQkhIIBAKBIANSUgKBQCAQZEBKSiAQCASCDEhJCQQCgUCQASkpgUAg EAgyICUlEAgEAkEGpKQEAoFAIMiAlJRAIBAINxWuXLly4sSJI0eO7NixY+vW rZ988sl6G2ADdiESDkECSCaYISkpgUAgEG4S4D+gXbp0CbTywIEDoJtffvkl COg6G2ADdiESDkECSCb4f6OkpAQCgUC4SQBid/To0X379m3YsAGkc40NH6qA MXAIEkAySAyneMyWlJRAIBAINwOuXLny888/gz7u3Lnz448/Run86KOPYCm6 wQbYgF2MhwSQDBLDKR4v85KSEggEAuFmwIkTJw4fPgyKCSq5evVqVExQz5Mn T/5gA2zALsZDAkgGieEUOJGfMykpgUAgEG4GHDly5Lvvvlu3bp36ci5oJWgo 6iBswK76KCSGU+BEfs6kpAQCgUC4GbBjx46vv/7a4cYoX0khMZwCJ/JzJiUl EAgEws2ArVu3btmy5SMb2L3RzZs3//jjj6iDsAG76numADgFTuTnTEpKIBAI hJsB+N6ow71RUM/Lly+jDsIG7DrcM8X3TPk5k5ISCAQC4WYAaCLeJFVf0XUH dqUXToET+TmTkhIIBALhZgApKYFAIBAIMqCruwQCgUAgyICeOCIQCAQCQQb0 FgyBQCAQCDKgLzMQCAQCgSAD+loggUAgEAgyoC/YEwgEAoEgiV/oX9UIBAKB QJAA/dM3gUAgEAjyuHLlyokTJ0Ard+zYAbqJ75nie6OwC5FwCBJ4vKjLQEpK IBAIBIIMSEkJBAKBQJABKSmBQCAQCDIgJSUQCAQCQQakpAQCgUAgyICUlEAg EAgEGZCSEggEAoEgA1JSAoFAIBBkQEpKIBAIBIIMSEkJBAKBQJABKSmBQCAQ CDIgJSUQCAQCQQakpMbH1atXr1y5cvny5UuES5e+P/nD2R9/oSAfjp36IdCd aSCcO3cu0EUgKABHB+5O5O9XDAVSUiMDzOnChQsnT548cuTI/v37v/322703 N3bv3t1pTiEFr4Su0w4Huj+NArCrNWvWBLoUhL3g4sDRgbsDpweu7x+kp6Sk hgX0yJkzZw4dOnT8+PGff/7577//LrzpAfPVR966RsErIdCdaSCAXQW6CAQ7 wNGBuwOnB64PHOA/RZhISY0JmIydPn368OHDP/30U6BN20A4e/bsQ29ee3DJ tYeWKL8YWAyFYuHNfNY49oayx1970HYo0J1pIIBdBboIBEeA6wMHCG7wH7Ey JSU1Ji5evHjw4EGSUQeAxxv8xrViYUm+EtS79Mt+VW0yyGk70J1pIJCSGhPg AMENgjMMtD/2DFJSY+LEiRPff/99oA3ZcACPN+CNfCUsvoZh4GLbtiqGgssw 0L6htN5AW3MFujMNBFJSwwLcIDjDQPtjzyAlNSCuXLly4MCBS5cuBdqKDQfw ePe/fk0Ji/JtG/n2XXvIp19XzeI6JtCdaSCQkhoW4AbBGYJLDLRX9gBSUgPi 8uXL33zzzbVrtGpwBHi8+xbm37cov9/Ca8qG8mvbWFS0QUEdFuXfaBZoImwl e1uRdd0AKalhAW4QnCG4xEB7ZQ8gJTUgfv755+3btwfahI0I8Hh9F1y7d0E+ /KpDUUw+BVUo1lCwfW/xyEB3poFASmpkgDMElxhor+wBpKQGBJjNf//730Db rxEBHq/3vPze820BNuZds4V8eyT9qn/tTVQU5l+zR863bc+jq7s3QEpqZIAz JCUl6AApqTuAx+sxN/+eufk9Xsu3bVyDX3t4TYm/h35v/Koap6h9lHbDjbmk pDdASmpkkJJysHTp0qFDh4IB+5TlwoULjz766OLFi33K4nWQkroDGEz3V/O7 v5LfDX5tG/Br3y7apV97s7xib5ZuRb8sBhsw0J1pIJCSGhmkpBz079/fZDLt 379fMD0Ub926dbt27WIxH3zwgck9br/9dkhz7Ngx2O7Zs6dP6uAzkJK6A3i8 LnPyXYXrbuIp5N/lppUC3ZkGAimpkUFKyoFWJf3xxx8h/R133MFiduzY0bsI 7dq1g6PlypVjMTNmzPiNlNSXWLBgQb9+/fAza1evXh01atQ777yjO7c//vgD cli6dCk/GXi8Ti9d7/RSPv7ead+43ullZQN3/fZ7+4wr5W8bUe++pV7Ms06v eaUb9O3w3CX53BybyNZKbBc2dHcWH2rD8Ijz58/DaF22bJkvSiJulv9iJV2+ fPnIkSP/0Z9DJCXlQF5J1fjqq6/g6H333ecQ/69X0qefflq9ErdarV27dn3+ +edPnz6tyVavX7++adOmAwcOiJ9SpkwZYFy1ahVs//DDD7Ddt29fTaRqXLp0 CXK45557+MnA4+XNzr99Vn7e7OuwkTcLfq/DLsbc/uKN30odJkOGSZmNHeLx t83Ui8FhkZAgd+RW56OCv62nnIMcStXvoy+Hjs//3ejRjc3G7VPHmxNLQ57Z A1boLhX7xcAaxx5su0p4UVRJ0cZyc3NdHgVbNZvNkODrr7/GGLVheMTChQsh 8a233ipYGE0QN0txJdXaGgHHoEGDoDzHjx8PdEH042ZW0oceeqh27dpHjx7t 1q1bcnJyyZIlYZq6c+dOlsBZSQ8ePAhn1ahRIzo6umXLls8++yz73OKkSZMq VKgA6eFQ5cqVIU8HOo9K+vrrr+fk5ERGRmZmZk6ZMsWhsnPnzoVVbWxsbLVq 1R5++GH1JzWwIjAuWrVqBexly5Z99dVXf/3117Fjx5YqVSoqKgqy/fTTT9W5 gR7BWVWqVImPj+/QocOSJUu0tp64kj711FNQwRYtWkDzgseoW7duSEiI4t5L ldI0dqBB4Ky77rpL/JT169c/88wzsJYs9K+Stn8hv8ML15XfF5VfJTyvBNi1 x9t+K7Z/EmcXuY/vUcfjb9VOM/Bow2FfOh8V/G351FnIoUR2b305tJn2K5ye UauzOr7e4I8rdfxPm+lXdZeK/d5oHKfmggQQBLsGbQywb98+56MwbcOjW7du xRi1YXgEDCXQps2bNwsWRhN8oaRaWyPgICX1D3ykpLfffntwcHDVqlVBfVq3 bg0ChO795MmTmMBBSc+cOVOpUiW8QtumTZu4uDjYHjp0KB6dM2dOx44dFbeT kdGpU6fRo0c70PGVFNgjIiKys7OzsrLQzl944QWWZtasWRADcg+qBzoO2/Xr 12cdBxUJCgqCaXb16tUhHk+HGoEo33bbbTj9Bglm9YIhiRUBLlRnOP2dd97R 1HpalfSDDz5gMdCPQ4YMgUiYM4j7Bx1KqoY/lbTNzPw2M6+3nXldtaFssxj8 Ld/OrqSlGz+kjsff6LRKeLT+0K+cjwr+NpusrEmt9froy6Hl1F/g9PSanfWx C/w6txJrKCUIdg3TDphkOh+Fma3RtIPBp0r6T2kNUlL/wHdKqjix0qVPnz6N MQ8++CDE9OrVC3cdlBSWjbA7YsQI3IUhULFiRYj58MMPMUbm6q5ay5YtW4ZX k3AXJpawiAMutg4dPHgwJJg8ebK6Ir1798bd2bNnY4affPIJxqDEv/vuu7jb p08f2P2///s/3N2zZw9oNEwnYO4t3noySgooKCjA9oSlAYuECj766KOw6E5I SIBmhAKzQ7BIR/WPiYmByU+PHj0w/vz589AOjRs3NpvNNWvWHDlypPqf3R57 7DHIDepV6MZlvf7669B6MCmC+cmwYcMuXLigPrp3716wAavVCu1z9913w66g kt72f9dFQmZbRUlDwqNDI+OaP/M/9aE6gz/FQ/Bbb8hXLL7mve9ZsvqEx1nC YlKTKrXOengzO1Qqd2hsiVvrDd2aVPG24DBzubaTITJ3kqKkcAqmafnctRIN HohOr1K582x2YtV7FqZU7RgSERuTUb10k0ebPPkDxpdr/3RUakUsBpySces9 GF+m+ejo9KrN/nMZtnMePwiHqnR7rXyHKTGWmsGhEdEZ1ar3XKKuS8vp+RU6 PptQtpFyNL1q1e7zgB3Oajz+uIcmmlEgYmDMxsA24uPjwTjVhzZu3IiH1Nqh NozDhw+DRc2fP3/q1Km1atWC+SfMSN966y2Ww6lTpyABWCDugonWqVMHjKFt 27aQLcyrFy1adO3atYkTJ8KsFcZRbm4uDHZ1GZYvXw6GB4aUlpYGk3D1Ud8p qXhrAGCaDfWC6sMhmITPnDkTRig7ilU+ePAgjMqkpCSoBYwCKLk658WLF8PR xMRE8FQDBw4Er+JQqiVLltx5550wtG+55Zbu3bsfOXKEHUIl3bVrF7QDOGQY j9C2hw4dcigAXnaLiop6+umnxYutqac4LogPUlIYMiwGKKATK1SogLsOSgrL xtTUVPXHFd9//31IMG7cONyVUVKmmwAY4DAEoCtxF8Y4JHj11VdZApB+U9Gj v6wi27dvx92LFy/CLsgKSz937lyImT59Ou7CShDMVV0GnEKAMbhtLCdIKmmh TacgvnPnzrh7+fLlKlWqwAQAltUg/dARwcHBK1euxKMLFiyAYWgqus0KbQ6R f/31F67BofUgn5SUFAelA8GFGPy3GmeXBU0KMXAWdBkMRtjOycn5888/8Sik L1GiBESCPeD4BQ8gqKTNnrvuGKYXFNuw/d7SRrlPWjJ3KPxW6vqa+mhqrW6m oOASOQ8ptXv4K4yveNcc2A01JyRX6Rhbqh5sB4dGZg3bhUdTqivtEx6bHhIZ l1CuaaVu8yE+Z4KipOl1+8B202n5GVl9lcsmWX1h255nl1cgJiwqOblaXrSl JmzHlWnY5Jnf4WilbvNSqt2h5BlnSa3ZpXTLsVi2tFvvgchGky7Adtawb2Db nFIBVDKxQkvYwPVO7UGfsbqUaTlOKWqYObFi66i0yrb05eE3e/QBdfs0dW60 57StScEHwu+8efPUh8Bpw0QUVmdq7VAbBvh82Ab/j9dwcHoM+PzzzzExSK16 fdepUyewTPAGMMTAYIJsaNeuHczlQCXx0hZYLwxDTP/KK0oLg8TAOM3OzobE kHL37t3MzHykpOKtAWMZhh6aevv27cH5wDZMStlZWGVQovLly4MqRUREQILm zZuzBHPmKJYJ9QI5w6EEaqv+ewt0QdDCMJSwhUGR2cVnVFKYKlsslg4dOoDr g10YbuzyOxQA2i0jIwPK1qxZs4ULF4oXW7yn+C6ID1JSmGipIxs0aAAtiX+R o1ZSMGPYhk5UJz569ChEQifiroySwpLHoRjgunEbzR4mUTVVwBh1RdR/6wO7 LVu2ZLuo+M899xxsnzt3Dk1anRuYPUSCtQs23W/eUFKYHEIxSpUqhbvQMpBs 1qxZuAvuCzQOZpLs077OV3c3b97csGFDWF/gLqxGYSRCnqCwGMNRUhjmoaGh lStXZutQvOAMCxPchR5RD0zoXBRWESXNnVYAofGz11nAXYfI0q2VNWnNwZtD o5JiStRl8dlPnA8KCUuqmndLuylKgge/wvj07PvjbmlUZ8R3uJuZ94JyUaXV RNxNrqYoaWLlDjn/+f1GVuOV7k6r26fR1Hw4HbZTb+3V6JlreDRr9BFTcIg5 tVL9J37AGEujRxQn1m4K7jacrNwnTa7eWV3s1NqKktafcAG2b330GxR0Vsgy bZTHXdKy7sVdTBAWk5497gzG3NJ+KkpV3ZEHHNrEoX0giBgYszEYYsnJyVlZ WSweei08PByGJHQrX0nBu7KjsPyEmH79+jFTdFBS9dHXXntNaYHgYHYjFad8 q1evxt0HHnigcePG7Ek5vFPz5JNP4q7vlFS8NYAddh9//HHchcUCXgHesGGD usow9K5fV3oEFAc9BiwJYRdWl6DOsMpgzxCibkKtcRfHGkgn+DqMefHFF9Vt iEoK6X///fdC20PyIHzqNsQCgLqxia54scV7yqML4oCUFDpXHdm0aVOIxK8x qJUU9Q5mMurEuDZkmuXFZ3dBIJiSYjGApXtxsKxcKmmLFi3YrlpJkQ5md92d sGrVKsGm+80bSlpYdMsGRwdMd2EWqj46dKiyWGOXiUTuk+KQhC7DXY6SLlmy BHYXLVrEzr106RJMomD04S5MVMA5qAfRG2+8IaikDZ8pKArXi37VwR5fqpWi pDUe3m5pPFzZeGgbxpdu8x/YrXzvR6XbPgMb1QdvUZ/FfuuOPa/IXI2uGJNU VXELNYfsck6Temvv9AbKZYeU2j0a/CefHS3fTalRuS4LWUzWEz8p64Wqd2JM 9iRFSZOqdVbnmVJLUdKs8Rdhu+aQ3bCdULEtO3rrKGV6GVe2KcZkdlJWZGXv eEmdgzlV6ffaww+qIgtUDXVjg9/UDGhjO3fuHDFihMl2fQbjn3lGacCPP/7Y o5LCUoXlBp4fp82461JJ2XoKh1vt2rXZ6a+//jrEgFi4LCraYbdu3dS7vlBS 8daAxSYoY37+jSelP/roI7XcY5XVz/r27t3bVLRsx3HBBAhRr149WLrirRZM MHPmTHa0oKBgxYoV69evx10ctkzRAOCsTLZnRdQFYAt5TcUW7ymPLogDUlLw 8OpI6JqSJUvitsPVXVAfWECpE69bt86kunPqIyXFSey8efP4FRFUUqxI2bJl 3eUmCHklhVEGYy0zMxO2oXPxqldtFdLT0+FEsHZM71JJQf5eeumltm3b1q1b F0YWNBqk+e677/AoR0mHDRtmsj3opWbEmELbhSNsQzUXLCsElTR7SgEL9f5z nf06xJS4Tbm6W+2hHTWGHVRkru59EJ/11LXwxFsgQIKSrZXFUZWBX7Gzqj60 w9psbEyZxua0qmGxFjiaWL0LHk20KWndSVfVjLXHKGvSoFDlbZqQiDiHo+k5 ygVA4Iqy1DJbauEvxmCauhOvKBTVOqvPSqqpKOmt4y7AdrVHlCVneqPh6noF h0fHlG6I22n1FSdZdfDWYjnUUvqlxrADzs1i27DvQhAxsEKVdoDqgSHByC20 vTZV1gbw2x6VFEaxOkNYicCyCLddKulvqvuPwNi6dWu2i/6cqQBg165d48aN y83NrVatmtVqhaNdu3bFQz5VUpHWgAUmpIGJugMXJMjLy1NXGQYgSzB9+nSI QSnEy8gOzzbDStxku/VZWKRHnIefUUmPHj3KYj755BN0WeoCqNtcvNiCPSXi gjggJc3KymL/hoPmwe4/Oihphw4dYBf8Nu5euXKlSZMmJtWdVmjJkJAQWGe5 pNOtpF9++aXiIevWhYGPMTt27OjYseP48ePVFRFXUvxGxJtvvskSjBkzpn37 9uBS+C2mhrySwgyTTc7Rn1gslp5OgOkKpndW0pMnT6J0li5dGkYNtC1e9xZR Uhy8MKwc6AYMGFBoe5DJZLtury4w9pSIktZ9uqDOUxiuQ7Dt2n+L4pVgaako aeXBO2A7NrNFUJi51rjL5Xoro9vaagpEWlspi4hKA7Zg+oTqXWHXFBwaUyY3 seY9yXWUi1EJ1brg0fgqipLWfuKqmqLGY0pFFHFMUB7hhlPUR1PqDYTI2HKt Emv2UIeUrAcwQa3xipImVO2sPivRpqQ1x1yE7coPKZ2Y1nikOgEoaXSphrid 2kC5XFzx/i+K5VC9myKvQw+qI1njsNaDDREDK1RpB2yDdwWrAHexZs0aU9Ej bR6VdNSoUeoMtSppq1at2K6DkoKFw25YWBi4C+BFr+IfJRVpDSyAg6njY+pM dJyrrFZSHErbtm1T54D3pLZs2QLb7DEMdwV2fnZ3w4YNfCXVV2xOT4m4IA5I ScHMqlevDrMm2A0NDY2Li2OC4qCke/fuTUlJgREBq05Y0dx6660m26V7dalA vzByzpw5DnS6lRQwcKDi8UAmxo4dC1aHNylWrFihroi4koKEJSYmwnqwd+/e EyZMgLEGR+vVq6ep9SSVFGbIaOdssIANw6KSk4+zkmIHzZ49m8WghxRRUnzc 6I033nBHB41cpkwZdcyqVasElbTWkwU1nyzAX9xwGTJaKEpaYeAO2C7TTXlg u0T7F+Mq3R4UElZ11A8QablNUdLy92+B7SqPHrOtFstWH/srnl55yCGIia/W BXfjKitKWmPcVTVF1VGKksZV7Fh97JWIFOWaasmOc9jRkrcrl15Ld17sroRw lkJRpbM6MqGGoqTVHrsI2xUHK0qa2mikOgEoaVSphrhd6s4FysSgzf+xozUn wqJbedij0iMH1U1Us3hz4Ta/qRnU2vHuu++abBcbYW0SHh7+448/FgZOSUEd TLa3vWDirc7Nb0oq0hqwTHYw9U2bNplUtyD5Sop3RfEpIIbmzZvDsgJPYc9M qhNAxdmjPjqUVF+x+XMejy6IA1LS5cuXg52bbK+N1K9ff/Xq1SzB/fcrT2gc OHCAxUBPgULhF0Kg2cH+2ToRsXLlSog32Za6DnRgty6VFMcae/UGAaM4Ojqa 7cIwhIEMKy9cX0CBly1bxo6CsqNbYDFQl9tuu43tguaaVK+9AMBQmzZtCiPL ZHvWAhzLmTNnBNrsBmSUFIqKF3+qVKmC3gyA3fHee++xZKDyMPzB8+Dun3/+ CVOdqlWrsgSdO3eGUz777DPchZZMSkoSVFLwM7CbnZ2NDzkA4Kw777xz8uTJ uNumTRuT7Sks3P3jjz/q1KkjqKTVJhVWm1hQbVKB8osb9lCo/k1rrihp5oAd sF31ib9CYzLC4kubgkLiqnfHNGm3KR6vbP+tsF1usPKoc1SZJiyH5IbK3dW4 ql0xJtampFXGXlWzVBqp1DqhVl/YLv/wweCI2KCQ8LL9t+DRzAFKI5hLZFcZ 9xvGlHvwu9jKd6Q2n4w5VBn/ByyBI1KrqPOMr6G0aqXRPynpBykylJwzSl0v UFJzqRzcBlLIITgiDnKGmKoT8pMbDkMzLv/wISVmohKUFpjItguwAWFbxMAK i2vH33//nZGRAT4WPPndd9+NCQKlpPiAOqxG2dHhw4f7U0lFWgMdCHvKNz8/ H3QQYmAG7q7KaiX95hvlCn/lypXZ5d9PPvkkODi4Ro0auPvtt9+abM/igtPA mI8//hhiOnTogLv6lFRHsflK6tEFcUBKiku5o0ePsrdKPeLy5ctHjhzhJLhw 4YKP/j/90KFD58+f91Zu4Elgxa2vVbUqaW5uLrgvGMvVq1cHezYVvcnLkkHV QAcjIyP79ev39NNPt27dGtI0aNBAnRWMAogEvVuwYEFh0bP3MEIfe+wxcFDp 6ek4yRFR0sKiC1C1a9eeOHHiI488gvdEYIzjUfCBMJmByUaXLl1Gjx5drVo1 57dsXAI8XuUJhRAqPVFQeUJB5ScKbUHZgJhK4wuUQ7bflKaKkpbpvwNjkhuP Q4kp1XsjxqS2VDxemfu2wjacGxKTAbuxVbqkNHsqulzboFDlynZs1a6YW0wl RUkrPHaV5Q+/5YcrtY6r2RdjrF2XK3dNY60QjzEJWcqLNhHptZKbTEyo93BI tNIIJXt8zHKIylTaHDLP6DgfY+KqK61aYeRPsH3LQEWGkhqOUtcrKCzaXDKH xaS3m22rVlB4SpXgyCRTUDDQKVOIhw5hvYoaSgm2bVtz2WJEDKywuHYAxo2z tyR7kyVQSlpQUIBTa5BOKGS7du3wfoTflFSkNcCbpaamgqnfddddYOr4cRgY Zfikrssqq5W0sOhWKYjpsGHDevfuHRcXBwNZ/aomrBNxCTBixAhYNcTHx4PU squm+pRUR7H5SirigtyBlFR9UZQgDt3f3QXH4u67u19++SUs+fFtNXA4ffr0 YZNYxNq1a/FVlPr16xfaLhGDAwS9M9kebgd39MQTT5hslxEwPYxZ2MVM8Hmw e++9l+UGk1gY+PiWqLJEKl/e4UOsH374ISxaIWc4ChPsbdu2wUjs2bMnv77g 8SqMK4RQfnxhefgdV8BCBSWmoMI4+29SU8Xjleq/E2NuefgEyE1YchWWJqXF NCXBvV9jTKkH9oSnVMPShsaVtt6zXrlnWqU7Ho2urKzQM0f/xvKH37KPKrWO rXkvi0nMGQsx5tJNMabcmGsJ2cNC48tgtmGJ5TO6rlTnYL17bUis8pBMhDUb Y2KrK62aOfxn2C79gLLcSGz4mLpeQeGxkSUbqWMyOi+LrdEnPLVadIW8Er0/ j8+yvdg16NCNloEWG1/o0D6wKwi0MXy+pdD2fj30WpUqVViCadOUlmRPn6oN A1dM7F0qBGhBo0aNcBtfdhsyZAjugt+GXXYpAwBcbdq0Ybu44GLPssKUDKZh 2LywNgT1CQsL6969Ox51NkuOXfmoNQDsowcQD0Osf//+6go6V3nGDOVTlrD2 xF0YiaBlMIJMtjvCjRs3Vj+IW2ibUYwdOxa/pwqDqFKlSmvWrGFH8VMzUE4W 8+mnypdJQK/dFUBfsfk9VSjggtyBlJSUVB98918wYPkwO2UTS2dcvXqVvTFa aBNESA+RuhlPnTqFn7txCaipw+dc+ACPlzmmsKwtKBtjC8qOhW37b+ZYW7zE b5lhl0o9fFbJUC4fh99SD526ZcSv7o6WGXG17GN/6ci57Og/Szywv/QjZ2/E jCmA2YIpKKT0sMtKm2CwVQePqlLq7lLD4dKlS2AY6i/waIUf/gsGhtWZM2dk coCR8lvxlaMDoBbslrG3IF9sB3h0Qc64mZX0yJEj6u/VEzThH/GvagEB+IrS jxWWfrxQ+WXh8QLbRkGxyJsglHjkYlCoOSgiPq3HF6VGXbMOOhHfaBLMYMOt DYvSFLXJ4zd+yxS1HoHhX/yvav8C3MxKSpABKak7gMcrMaqw5OhC+GXhxu7o m+43vsULpuAw5eJmcDhe5AyJL5vWb29R4xTcaKLRxdtttP4V3L8PpKRGBikp QR9ISd0BPF7GyEJ3wXJT/qbcuy+22Yyo2g9GZz+e0PHttId/trhsnFGObUVg ICU1MkhJCfpASuoO4PHSRhRiSC2+kUrBVbA30fBCdbul2mIIDKSkRgYpKUEf Ll++vG3bNvVfmBEQ4PGShhUmP1oIv+rgHEMhWf37aNE2a6hHA92XRgIpqWEB bhCcoY/efPQiSEkNiCtXruzevZt9V4HAAB4vYWghBa8EAgMpqWEBbhCcofoP N40JUlJj4tChQwcPHgy0FRsO4PHihhRS8EogMJCSGhbgBsEZBtofewYpqTFx 5syZ7du307LUAeDxoh8pjMHwcPHwCIXioahZotlu8Q0CAympMQEOENyg1q+t BgSkpMYE9Mi+fft27tzJ/iybUGjzeOaHCqMeKjTbQlTRLwXX4WF7Q7FWUrcb gYGU1IAA1wcOENwgOMNA+2PPICU1LH788cc9e/b897//PXDgwMWLF9X/unvT 4urVq+aHCyNBCB4uZBvwS8FlcG4ldQyBQeYrXgTvAhwduDtweuD6wAGCGwy0 JxYCKalhceXKFbAisKht27Zt3rx506ZNGzdu/Ozmxvr164MHFVLwSqg66MtA 96dRAHY1d+7cQJeC8Bm4OHB04O7A6YHrAwdo/GeNEKSkRgZYEUzPzp49e+zY sYMHD+7fv/+7mx5LVn654b9HKciHJcs/D3RnGgjr1q0LdBEI34GLA0cH7g6c Hri+f4qM/kZKanhcvXr1119//fnnn8GuLtjw482NEydOXCR4A9CSge5MAwG8 d6CLcLMD/RtYJrg7cHrg+gLtfTWAlJRAIBAIBBmQkhIIBAKBIANSUgKBQCAQ ZEBKSiAQCASCDEhJCQQCgUCQASkpgUAgEAgyICUlEAgEAkEGpKQEAoFAIMiA lJRAIBAIBBmQkhIIBAKBIANSUgKBQCAQZEBKSiAQCASCDEhJCQQCgUCQASkp gUAgEAgyEFfSLwkEAoFAuClBSkogEAgEggy8q6SFBAKBQCDcNCAlJRAIBAJB BqSkBAKBQCDIgJSUQCAQCAQZkJISCAQCgSADUlICgUAgEGRASkogEAgEggxI SQkEAoFAkAEpKYFAIBAIMiAlJRAIBAJBBqSkBAKBQCDIgJSUQCAQCAQZkJIS CAQCgSADUlICgUAgEGRASkogEAgEggxISQkEAoFAkAEpKYFAIBAIMiAlJRAI BAJBBqSkBAKBQCDIgJSUQCAQCAQZkJISCAQCgSADUlICgUAgEGRASkogEAgE ggxISQkEAoFAkAEpKYFAIBAIMiAlJRAIBAJBBqSkBAKBQCDIgJSUQCAQCAQZ /BOV9BCBQCAQCBrhO1UiJSUQCATCzQDfqRIpKYFAIBBuBvhOlUhJCQQCgXAz wHeqREpKIBAIhJsBvlMlUlICgUAg3AzwnSr9O5TUagAUnlMCsRM7sRP7v5td BEYoISkpH6SkxE7sxE7sRoYRSkhKygcpKbETO7ETu5FhhBKSkvJBSkrsxE7s xG5kGKGEpKR8kJISO7ETO7EbGUYoISkpH6SkxE7sxE7sRoYRSkhKygcpKbET O7ETu5FhhBKSkvLxD1XSxD4Do15YGLlopXnee/FDxqTXrO0iTd9BkUs+Cv1i f9ja7VGzFqfVyfIWu0/xD2KPnjYnYuna9Oo1XR5Ny6of9eLriT37+5ndF/2e 3KFT7LhnXIa40U9aSpbUVEKt7IikLj3B5iPe3xix/HPYSGmbJ5KtILwy4pK6 9zXPeSv8w62Rb62NmTwjvVoNb7GL5Ky7fbzDrrfu3imhxrprskwEKSkf/ldS i0AajuVklCsf+caHpnOFwd9eAIcZsuuMsr37XGpu8xsUJUtGvrkG4tUh6Mj/ 0rJzREroOy2TrLuh2BMGDceGTW3S0uEQiFfU7DdMp/6Go3GPPSVeQkl23/V7 2Kd7HLK9EU7nZ2SWEyyhPnZLqVLgn5XcTv0dvnpL8N4fle2zBaDjIjlLsguN uFKlIt5Z79jy+y8ltxOSM37dPeYs2T7y7DJ1ly+h1rprtUwEKSkfOpRUx/w8 NSc3dsK0yMWrQ7YeNZ25brmlLJ+CYznR0+cqhnrwclrdbNjNqFAx9PN9GJNe tTqmiZk8E2LArhIGDI2ZMjvYNvYhmF9712Pt+OxqCK65vFh3A7Fn5wQdvepy PMYNH286+RdzKb5QUnfsPur3lBZt7NU5dQ0UhAWMDP/gK/ES6mAHxE54Tsnq xJ/ptyrraxhi0VNfUmLOXE/NaSKSuQy7yIizpznyv/AVm2Bdxno/ZPvJjMxM L7Bzc5ZsH0l2ybqLwIu2ocMyEaSkfOhQUk3zc5jQKj1rW56Er9kWN2xcWnZD jxTuLAfkA7OKnvYKi0xufweyx0yZpTBmlgs6/GvkopVsCZZeszaMekgQuvFb j9Qc9hvFEFtzebfuBmG32qbBYet3sU53GI+pTVqktGyb2KOfj5TUHbvv+j3q 5TdNx35P7P2Ag2MM3fSdUsFHxwqWUB87IGzDbsgnYulaFgNuEzOPf3CESOa6 2YVGXMXKMHeC1kCpBSR1vhvPgpDUqbtudsGcJdtHhl2+7iLwlm3os0wEKSkf WpVU0/w8uf2deCjo+9/ihzwu3mvuLCeh/8NIlNh3EIsEzxn8zVmcFlpKl05r mBux7BOYOatPDF/ztVK8lV/IsCME11xer7sR2BExTz2vNOZH/+WMx9RmrXyk pO7YfdfvoM7xD450iExr0Nhku4yWXquOYAn1sQNCdp5W5gObD4InxJjU3OaY Oay+RTLXzS4y4hIGDoN2AM+gPhFXaooBDH9CP7tYzpLtI8MuX3cReMs29Fkm gpSUD61KKj4/T2nROujwFbzOkHyntrmZO8vBy3cO4xoQ8f5GjAf/5nwWrM6C v/tJMa1Bw2XYESJrLl/U3QjsVptGQ7bhqzYn3nOv/5VUkB3h3X53QOz4qZBz 2NrtMiUUZI9Yvgmzipq1GB1mzJTZSszJv9hSSBIyIw7UBMrjcGLivYPlV4WC OUu2jwy7fN1F4BXb0G2ZCFJSPrQqqeD8HHQWJ0vKJaDJM8T7C+HOcqJnzFdf VmIwz11mv5zSrbfDKenVasBSRbk89ezLIo/ccNjV4CiFj+puBPaMipUgc+UG We26Sd37+llJxdmtPut3htCN3yq1Gz1ZdwnF2RN73MeuQoR/8GX0tDkw1hRH PWSMaHH1susYcQgoGyZIad1RN7tgzpLtI8muL40myNuGjGUiSEn50HGf1BnO 83Pw4dhZITtOuXtHgAN3lhM3/Am7zazarI43v7LUPnPudT+LBOOBGTW7vQ6T N8EJvKSW+ajuRmA3L1ihNHKfAVbbY/9+VlJBdp/2OyItO8e+Isuqr6OEOtij nl/AHGaRhPURKqsYvDLiiiWY/75ihFuOsKuOOtjFc5ZpH3l2HWk0Qd42ZCwT QUrKh1eU1GF+bilRwv4w9rnC4H0XI95eB149dPNB87z3BB81dPsUZcu2dms5 9jt7CD+jXPmwz/babUOVf+TCFQ4GFvrlIUuZW3Szq+FOKXxX94Cz4y0z89x3 cNfPSirO7tN+R8SOnaJMHT/bq6+E+tiLvWpx5rqm29+62TWNOIbURk1Np/MV 192jnwy7ppx1t49X2DWl0QpJ25C0TAQpKR/ySuo8P09pm6f2Y0GHfsELDko4 /oe7y0FqcCwncvEHdqXYcz56xvyoFxeFbD/JMlevwiww5CtVSe7YGXSEFSb+ oVEy7AzulMKndQ8gO3Ru0OErIdtOZJSvgDH+VFJN7D7tdwTqSOz4qfpKqIM9 YcBQ04k/HWYIsWOeFiquHLv4iENYim7eRc+YJ88umLNM+8iza0qjAzK2IW+Z CFJSPuSV1Hl+nvDAELYswqfa0mvUYq/MB39z1uWb7GpwLAfONS9YrrYZWHbh RtiG3e4yxIfWIETNfsNjjWS0zKd1DxQ7+Iewj7dBDgkDh6U1zMUQN2oSZpvY ZyDsZlSsLFJC/7AzeL3frcrUsWHRcixXvoQi7Ml5XXFGFDdyIkxc2XoQQnJe F88lFoAXRxy2ecSyDeI3FwRb3l3Oku0jya41jQ7otg2vWCaClJQPeSV1np/H Pv6UfV40cTqLzKhYib0pn9S1Fz9Pj7adXqtOUrc+ib3uB28WM2m63WmPmuQ2 fdXqpjPXIU3k66s81khGy/xQd/+zW8rc4jDjdQ7mV98WKaF/2Bm83u8AmO1D hqFfHfZKCUXYw9cozjBs/S47XdnMiKVrMduIt9d5LrEAvDXiEvopj62GfbqH rYC8ws7PWbJ9JNk1pdEH3bbhFctEkJLyIamkzvNzK77ziJfUBhd7+yDqxUX2 AThiAj9bTXcugr7/DT2bpXRpTsrgvT8oEvPEsx7zlNEy/9Tdz+zQsKZjv/PH I1CIlNA/7Gp4t9+tRV8miZk801sl5LPDsgIzj/6/11hkRpVq+Pp/yNfHPJdY AF4Zccp7Fsf/CN18EIqnjvf47LRHdk7O8u0jw64pjW7otg2vWCaClJQPSSV1 np9bbZ9TtnvR4u8IxD/ymD1+2Dh+toLjOiMzE0wX80y+oxsnJVP85A6dPGYr o2X+qXtA2C3FQ9JdPeyTqKa3ObsLrz9xpImdwev9rnzzB3mbtfJKCT2yW0qU wG9xqL8yBAhbu9156OmG/IhLbd466PCvIduOO3zc3jz3HfOC5TLs/Jzl20eG XTyNDCRtQ9IyEaSkfEgqqfP83KpyXw7XDeJGP4nxHt+UFxnXGRUrRy75CDMs NiXLLBc7YRqEtDr1WCR+i9I8d5lIpWS0zD91Dyw7IqnzPfbx6Oq5haRO3fEo dIRQdtLs/ul3aHBltr/thI4S6mYPW7/TZLvNbSlr/xyKpXSZoP2XTMKfFJZh Z3A34qy2N8qD911U4p97FWZrGKAv8Eqjxw8NcdhFcpZsH0l2ybqLwLu2odUy EaSkfMgoqbv5uaXo5mnQgZ/Vb1TB6MP0Dh/XcgZ/XFtKlgT7ROs1nboGMqE+ qlxmwQsXZwvCV34RO/Y/ka+vgt3wFZsE71/IaJmv624EdgRnPGZUrspeRQn9 4oDD9S4fsfun38M++UbxmVNf0lFC3ezJeV3Azk22zx5C1yd17YVPkcE6KK1e A5HMZditnkZc+q1ZIUU34p1D0KFfmJPXyi6Ys2T7yLDL110E3rUNUlJfQEZJ OfPz5Nvvsrt61TMJ+NopeDaPOXMsByZaIBOKqRy9qvz7pNNL96Ag6n9kCDp8 JWz9rsQ+A8XrJeJROWsu39XdIOx2IvyM+dmCtPqN1PHxQ8c6u5TIRStF8pRh 90O/Z1SqYp+QtO6go4Qy7Ml5XdWPZSq9+eHW1Ka3ieQsye5xxNk/T+cmRM9c oJtdPGeZ9pFhl6+7TAkRWuuu1TIRpKR8yCgpf34e88xL9hnsyInJ7fKiXlho sq2VUhs385gzx3JiJs+Mf3BkapMWlhIlODmk16wNRJr+ylaEHeFxzeWjuhuB 3aeQZ/dpv1ttXypIad3RK4+R6GCHeqW0zUtp1V7wzQWvsAuOOB+xa4K+9gms zYsgsLaBICXlQ7eSiszPEx4YErznvKnomlvY+p0if+xlDbRt89kF11w+qntg 2X0NYif2m41dBEYoISkpHzJrUsH5eVp2TnL7O/5Bs0Qvsge27jdzyxM7sf8j 2EVghBKSkvIho6S+w808soid2In95mEXgRFKSErKBykpsRM7sRO7kWGEEpKS 8kFKSuzETuzEbmQYoYSkpHyQkhI7sRM7sRsZRighKSkfpKTETuzETuxGhhFK SErKBykpsRM7sRO7kWGEEpKS8kFKSuzETuzEbmQYoYSkpHyQkhI7sRM7sRsZ RighKSkfpKTETuzETuxGhhFKSErKh4v2OWelQIECBQoUWCAl5YOUlAIFChQo 8AMpKR90dZfYiZ3Yid3IMEIJSUn5ICUldmIndmI3MoxQQlJSPkhJiZ3YiZ3Y jQwjlJCUlA/dSprUpWfUCwsj3t8Ysfxz2Ehpm+ecJrHPQDgUuWiled578UPG pNesLZi5R8tJ7DsocslHoV/sD1u7PWrW4rQ6WeqjyR06xY57xmWIG/2kpWRJ SXaRuid172ue81b4h1sj31obM3lGerUafFJxdjWip82JWLpW3x9by7N7HQZn F7J5rmXqY9dqz2lZ9aNefD2xZ39Baj47QqRegaq7r8e7UN31+joRBNYyEaSk fOhQUkupUqAOyl9In/o7fPWW4L0/4t9Jg92yNBnlyke+8SHEB397AbovZNcZ ZXv3udTc5iK9xrEcGBeRb65x+KvroCP/S8vOYWnCPt3j/HfY9nA6PyOznH52 gbpDmoh31juWcP+l5HYuzFsTuwMSBg3HzFObtBQ6wavsWuHxf2x1s4vkLALZ fhewTH3s4vYM7jFq9htQSDgU99hTwlWXHXGBrbsPx7tAvSR9nQgCa5kIUlI+ dChp7ITnlL448Wf6rVnYTdFTX1JizlxPzWmCaaKnz1U66+DltLrZsJtRoWLo 5/swJr1qdY8UHMuJmTwT8gGbSRgwNGbK7GCb3UIwv/YuJkhp0cZuLaeugT2z gJHhH3wlw66h7kf+F75iE6xJmemGbD+ZkZkpw64GjIKgo1f9r6Qis1+G1Jzc 2AnTIhevDtl6FJrIcktZSXaRnH2xMhLpd4+WqY9d3J7jho83nfyL2Zu3lFSk XgGsu0/Hu0i9JH2dCAJrmQhSUj50KGnYht3QCxFL17IY6ETsmvgHR1htF5dw Vhw97RWWJrn9HZgmZsosjxTuLAeml0GHf41ctJItQ9Jr1gaLhWxDN36LMVEv v2k69nti7wccZCt003eKe3l0rG52q0DdMypWBm8GXDisAEmd78bWgJDUqbsM OwNMRMPW72I+0z9KKjL7ZYCJujKibRUPX7Mtbti4tOyGMuwiOftwZeSx3wUs Ux+7uD2nNmmR0rJtYo9+XlRSkXoFtu6+G+8i9ZL3dSIIrGUiSEn50KGkITtP K72w+SC4VoxJzW2OfQdzHthN6P8w7sLqgJ0F/Rj8zVn0bJbSpfkU7iwnrWFu xLJPYNanjgxf87XiVFd+gbtgM/EPjnQ8sUFjdPvptep4rCDHbj3XfeAwYIF5 svosnLUq43r4EzLsDDFPPa9U+aP/+lNJRWa/iOT2d+KiIOj73+KHPO4VdpGc fbQysgr0u4hl6mPXas+pzVp5UUlF6hXYuvtuvIvUS97XiSCwlokgJeVDh5JG LN+EPRU1azF2H3gtJebkX7gQQ4fmYF3Kie9vxHiwcz6F+FU+WKEEf/eTYjaD hnOSxY6fCmnC1m4XyZPD7rHuoKQQ43BW4r2D1bNE3ewIUBMQr/BVmxPvudef Supx9otIadE66PAVVNjkOz2vwQXZPebsu5WRVaDfnSFomSLszuDYs3eV1Bki 9QpU3TWl0cHuXC95XydZQj9YJoKUlA8dSprY4z526Sz8gy+jp82BuZ/iToeM wQTRM+a7vLhhnrvMfpGzW28+haBtp1erAdMt5dLKsy/zHzsBX6r4ltGTPWfK ZfdYd5eAo3hKSuuOMuxW5epxJZiFKrdgatdN6t7Xn0rqcfarFC8zE5MpvT95 hhfZPebsu5WRVXu/i1umCLszOPbsUyUVqVcA664pjVZ2l/WS93WSJfSDZSJI SfnQoaSAqOcXsO4rMpg+7Gjc8CfsPbtqs/os8ytL7fO3Xvfz8/do2yAoMBtk j9zAxMzdBMxqezjHPj/Mqi9SOz47v+4uYZ7/PiQL2XKEaZBudvOCFUoD9hlg tb1o408lFZn9gsZhmpAdpzy+faCJXUfO3l0ZCfa7JssUZ1eDb88+UlKRegW8 7uJpNLFz6iXv6+RL6GvLRJCS8qFPSQHFXvQ4c1190yqlZVt7/LHf2aPg4NbC Pttr9/zFb6s5w6NtRy5c4WA8oV8espS5xWXi2LFTIAGwC1bNIzun7s5IbdTU dDpfGVM9+kmy400Z89x3cNfPSupx9mspUcL+GNK5wuB9FyPeXgeqB2tY87z3 PPY4n11Hzr5YGYn0uybL1MTOwLdnHympSL0CXnfxNJrYOfWS93VeKaFPLRNB SsqHPiVNGDDUdOJPh36JHfP0jV5b/IHd7+05Hz1jftSLi0K2n7SnPP6H/LvS 4BszKlVJ7tgZfCkrQPxDo1wmRquOHT9VpGoe2T3W3aGcuJSLnjFPkh0m2EGH r4RsO5FRvgLG+FlJrZ5mvylt89SHgg79glKLnS5ymcsdu6acfbQyEux3TZYp zq4G3559pKQi9Qp43cXTaGLn10vS18mX0NeWiSAl5UOHkibndUU/FjdyYlp2 Dpt9QUjO64JpMjLLmRcsV/csLCJwI2zDbo8Umu6b4IOsEKJmv+F8NC27YdHk MFcwQw67SN2dyxaxbIP4gHLJDqMg7ONtkFXCwGFpDXMxxI2ahNSJfQbCbkbF yoIUWtnV4Mx+Ex4YYipaNuLTy+k1arHXUoK/Oav7HXlNOftiZaS13xF8yxRn V8OjPfv6iSOrWL0CUnfBNPrYEc71kvR1kiX0g2UiSEn50KGk4WsUlx62fhfu WspmRixda5//v71OnTK9Vh1YsyT2uh+sOmbSdPsAHzXJI4Um206vWh1cOuQc +foq56MwN1N86VeHRbPjsovXHZDQT3lkN+zTPWwVqZsdhMBBHZyD+dW3xVk0 sTPwZ7+xjz9lj5k4nZ0CK0T2NkpS11762DXl7IuVkaZ+Z+Bbpji7Gh7t2Q9K KlKvgNRdMI0+doS7eun2dZIl9INlIkhJ+dCqpOCmTMd+hy6I/r/XWGRGlWr4 enLI18dcnpXaqGnQ97+hhYu8YKXJtgHBe39Q3OwTzzofwi+JxUyeKZ6b27t1 WuquvKty/I/QzQchgUMmOtih0ZCaE6JeXCReR03sCI+zX+UbOyhbg4s94QMF szuWERP0sevO2SsrI302j+BYpiC7Azzasx+U1CpWL//XXTCNPnYGfr20+jqZ EvrHMhGkpHxoVtISJfCLZOpvegDC1m53NxXMyMwEQbG73Du6ifSaJttm13OS O3RyPJRV336pp1kr0ey4z70I1j21eeugw7+GbDvu8CFr89x3zAuW62O32gaO OiTd1cNeu6a3+eHbsx5nv0ldetp9ePG3D+IfecweP2ycPnbdOXtlZaTD5hEc yxRnL5ahgD37QUlF6hWQunt3vLum4NZLh6+TKaF/LBNBSsqHjqu7Yet3mmw3 p8CX2ju0dJmg/ZdMrj4mk1GxcuSSj7DX1BMnPtxZTkZmudgJ0yCk1anHIvFL O+a5y5zTgzNR5mbbTgjy8tmtYnVPa9A4eN9Fpb7PvQoeHgOUGXWHvXqpg90B SZ3vsfsN3z9xJDL7ZcPT4Tpz3OgnMd7j2yhun7aSyNkrKyOP/a7VMjWxM4jY c1Kn7tgmUBgRXj67SL2MU3fvjnet9dLn62RKaPWLZSJISfnQoaTJeV1Mp66Z bC+8w9wvqWsvfPYDVmFp9RqwZJaSJUE1UFMgPTg98V5zZznKJVO8oni2ANhj x/4H1hpKSVZscnkvMuyTbxSrnvqSODWH3SpQ9/Rbs0KKbt45h6BDvzCD18Hu AL8qqcDs11L02GTQgZ/Vb86CV8FyOnxEUQO73py9tTLy2O9aLVMTO4NHe86o XJU9cBX6xQGHOws62EXqZZC6C6YRZxevl4yvkymh1S+WiSAl5UOHktq6r6v6 NpnSLx9uTW16G0sA0yFwekqHHr2q/B+HlleArRyPWqqU+t9Vgg5fCVu/K7HP QJeZZFSqYnezrTt4hR3Br7v9YwVuQvTMBZLsxUqCH8o+W5BWv5HQCQKQXI8n 336XyelZC/zgDIxcGXaPOft6ZcTvd02WqYPdKmDP8UPHOptc5KKVMuwi9TJC 3QXTaGIXrJekr5MpIcLXlokgJeVDn5Ii0qvXTGmbl9KqvfP7FzGTZ8Y/ODK1 SQtYy2jtMqsny0mvWTu1cTORv7dOadk2pXVHrfcQRbSMU3dJaH3+wW/sgtci Yp55yT4zHzkxuV1e1AsLcS0JXSbD7jFn/6yM+P0ubpn62PXZszy7SL2MUHdf jHeP9ZL0dSIIrGUiSEn5kFFS38GwanKTs3u8FoFIeGBI8J7zTNdgMSvyl2oe 2fk5+2Fl5FMQ+83JLgIjlJCUlA9SUmLXyi64Hk/Lzkluf4emNbtg3Tk5+3pl 5DsQ+83JLgIjlJCUlA9SUmIndmIndiPDCCUkJeWDlJTYiZ3Yid3IMEIJSUn5 ICUldmIndmI3MoxQQlJSPkhJiZ3YiZ3YjQwjlJCUlA9SUmIndmIndiPDCCUk JeWDlJTYiZ3Yid3IMEIJSUn5ICUldmIndmI3MoxQQlJSPkhJiZ3YiZ3YjQwj lJCUlA9SUmIndmIndiPDCCUkJeXDRfucs1KgQIECBQoskJLyQUpKgQIFChT4 gZSUD7q6S+zETuzEbmQYoYSkpHyQkhI7sRM7sRsZRighKSkfpKTETuzETuxG hhFKSErKhw4lTe7QKXbcMy5D3OgnLSVLspSpTVrGjnk66uW3op5fkHRXD8st ZQV77WYeWf8I9rSs+lEvvp7Ys79kGn3sPoLB2RP7DIx6YWHkopXmee/FDxmT XrO2c5qk7n3Nc94K/3Br5FtrYybPSK9Ww1vsPoVXrM7X3obPLtI7usEpobg3 TurSE0oY8f7GiOWfw0ZK2zxNZSAl5UOHkoZ9ukf9X8/Fwun8jMxymAysTvnD 5e9/i1i2wXTsd9iGEzMyM0V6Tce4tlitGRUqajvn38KOBfCYQKSEHtnT6mRF zX7DdOpv6NC4x57SnUYfu254bB/fscu3fEa58pFvfAiNGfzthcglH4XsOqNs 7z6Xmtv8BkupUhHvrHcYj0H7LyW3E3KYPrI6QchbnU+9DZ9dpHckwSmhiDcG 24CZlRJz6u/w1VuC9/6obJ8tALUVLwMpKR9alTSlRRt7N526BtbCAkaGf/AV JoNZGXZlSqv2sAtz45CdpyEGLM0rPg1su9gEbPxUGEHha752lz562pyIpWsF /wDa6+yaIO7TUnNyYydMi1y8OmTrUdOZ6+pJuO4S8tnjho83nfyLDVWXPk0k jT52B3jsU077yLDz1ya+aPno6XMVmTh4Oa1uttWmy6Gf78OY9KrVi6U58r/w FZtgTcraP2T7SRFBkbQ68ZWRDnaPFuVTb+ORXaR3JOGuhILeOHbCc0rMiT/T b82CXeiO6KkvKTFnrqfmNBEsAykpH1qVNOrlN2HKl9j7AYfhGbrpO8XMHh0L 29Bf0LOwa567jCWIGzUJ+zexzwCPveZxXEe9uMh5DhY3YoLLxAmDhmOC1CYt PVJ7nV0rRHwaTIOVsWCbJIev2RY3bFxadkOvlJDPntqkRUrLtok9+nFUUiSN PnY1+H3qsX30sYustb3e8iDcyBg97RUWmdz+Dsw5Zsos2M2oWBm8PYxBdOaA pM5341kQkjp1182uBqdVBa9T6WPnW5SvvQ2fXaR35OGuhCLeGBC2YTfswrST JVAazVbC+AdHCJaBlJQPrUoauWhl/IMjHSLTGjTGywXpterAbtzIifYhfPe9 LE1GxUqm438oHfr2Oo+9xrft9KrV8AJOsQtZh34Bf+KcOC07J+joVS8qqSZ2 HfDo05Lb34nTzqDvf4sf8rh3SyjiUVObtfKokiJp9LFbPfWpx/bRxy6y1vZF yyf0f9guCn0HsUhYagV/cxYXoZbSpRMGDoPRBysU9Ym4VlKKOvwJ3ewMnFYV XBnJsFvdW5SvvQ2fXaR3PBZAdwlFvDEAV+ihmw9aSpWyVye3ORY7YcBQwTKQ kvKh4z6pM2LHT4VOCVu7HXfD13yN3ZReu646WejGb23D7e+M8hX4GfJtO3bi dGU2NXi4pUQJFlymBMsJW7+L+TSvKKk4uz7w2VNatA46fMVkuzKTfKfrtYZM CY2vpPw+FWkffewia21ftHzM5JnOvhoQ8f5GjAfPCUoaM2W2w4mJ9w4WX3fI WJ3gykg3O8KdRfna2/DZRXrHQ9YC0HTXw8EbK4VZvgkLEzVrMYopWIsSc/Iv dhHDI0hJ+fCKkqLRxo2ejLv2O9rH/3C4SYH35W3erwU/Q47lWMpmBu+/ZPMP I1MbNeXnE/PU88qs+KP/ektJNbHrA+/Jk8xMnF4qF44mz/BFCY2vpJw+FWkf SXZOvXzU8tEz5ptcXSo0z11mX4t16+0yQ/vdw3OFKa076ma3CrSq4MpIHzuD u5b3qbfxyK67dzRBk5I6eGNAYo/72Mwz/IMvo6fNgX5RDHXIGPEykJLyIa+k adk59tlXVn2r7Xa26XQ+7Abv/cEhZdTLb9mt664e/Dw5lhM/5HH1pbOQrUeT uvZymTK5/Z0whQ5ftTnxnnu9paTi7LrBYQc/ZufdccrdUxySJTS4kvL7VKR9 ZNit3Hr5qOXjhj9h94GrNqvjza8sta+Get3vMkPz/PeVYmw5wq7p6WC36m1V 55WRPnYGly3va2/DZ7dK9I4miCupgzdmiHp+gdo4bRLfR1MZSEn5kFfS2LFT lCHz2V7cVW4V4bjbdsIhZfRMe28mPDCEnyfHcsJXb3EwCZPtZrrDk5kZFSvB RFp5fK523aTufb2lpILsMnDHbilRwj79Br+x72LE2+vAs4VuPmie9576ATzJ EhpZSfl9Ktg+utkRnHr5qOVTWra153bsd/ZiRUa58jDi7C3gqnawKEaJSezR T4Zdd6s6r4x0sKvhsuV97W347Fa9vaMV4krq4I3VKPaS1Jnrmh4hsJKSeoK8 kqLNwBQUdy1lM93ZNr7zJTlLTK9VJ7Fn/+ipLyn3R2zP7GGInjZHncy8YIWp 6Mk9LyqpILsM3HrUtnlqFx106Be8RGOyXdpiF5EkS2hkJeX3qWD76Gb3WC/f tXzk4g/sWrbnfPSM+VEvLgrZfpJVzXmdaCm6NRY9Y54INYddX6u6WxlpZVfD 9ZrUx96Gz47Q2js6IK6kDt6YIWHAUNOJPx2mebFjnhYvAykpH5JKmpbdsGjq lcsi8W4RTGUdEuPlJmV81cniZyv6DGeDxhHLP2ezrLSG9jLgA3Xmue/grheV VIRdEm6f4XxgCFsa4FOa6TVqRb65xh75zVnndw10lNCwSuqxT3W0jzi71np5 t+Wh5OYFy9U+EBaGuBG2YbdzeryVHLFsg7gb96LVWbkrI03sari9T+oXb8Pp d629owOiHsmVNwYk53XF+U/cyIkwyWHrZQjJeV0Ey0BKyoekksKsBroj9KvD 6kh7T538y2EgR7y9zmR7MtxjtuJzMOXTLkvXolUkDBputb3hFXT4CsxR2TN7 PlJSl+zycMce+/hT9pnkxOksMqNipWDbN1WUuberu3JaS2hMJRXpU33tI8Ku hni9vN7ysOZN6tYnsdf94CdjJk23F2PUJIdkCf2UR3aVL/x4emZVhF1fq7pb GWllV8Ndy/vH23jsd8He0QdBj+TSG1uVx5u3KSaxfhfuwkKeWabIW0IIUlI+ JJUU38iOmTxTHclmaA5PgIdsO67uUA40PauWVqceXkyL/r/XLFCkjxWzSRg4 DBYCGFSvaQ+EXY8v9+lmFz1HF7vyPqOtFvGDi7ll9ikAd6//ayqhAZVUsE91 tw+fXaZeXm95exkaNQ36/jf0mQ6vKypPZB3/I3TzwYwq1dTxHj/140Wrc7cy 0sGuhruW94+3Ee93Tu/ohqBtuPTG0PX4jrPaCME88IMSIV8fEywDKSkfMkqq fN8Dh0yzVur45Hb2eyuxY6fc6LvKVTEy+rlXPeasScsAoVuOKCb0zEuWMreo L7O4DOZX3/YRu4ZztLMndelpH8vFn+KIf+Qxe/ywcfIlNKKSivWpTPtw2CXr 5d2Wt9reSQGhxDIk39GtWNmatw46/CsoiMPn081z3wG50ceuo1XdrYx0sKvh ruX9420E+53TOzIQKaE7b2wpUQK/KKL+ChMgbO12Td1ESsqHjJKCUZlc3etX umndDjgU/N1P7GVt+2WiU3/jtx/50KplOP9M6DcYJoHOH5lxCDCd9hG7hnO0 s7OpvsNMIG70kyZPlxDFSyhS96RO3e2+a8I0mTSC7IJ9KtM+HHYHaFVS77Y8 LL0jl3xk14ji61xYkQXvu4jaAeqGARofr+N5/JSNF63O5cpIH7saHIvyg7cR sWdO70hCpIQ8b7x+p8l2U9tS1t4+ltJlgmz3l82vvStYBlJSPmSUNOyTbxSb mepivp3apGXwtxfgaPiKTYl9BihfSbU5Q5EPl1m1Xl/NzlEe+D91jX2vw1I8 JN3Vwz5ba3qb1/8TxJldEu7YLUW3hIIO/Kx+QxDGLNbO4WNx+krose4w249c uAIZQ7844HAVUTyNVnaPfaq7fUTYGbRd3fVey1tKlgQ1RK2EDEHI1EdBL0KK blw6h6BDvzAXqpVda6u6WxnpY2fgW5SvvY1He+b3jjxELJPjjZPzuuBdhvCV X0C/JHXthc+MBR3+Na1eA8EykJLyoVtJMypVsQ+l1h1cJgA3onyIpugz2mDq 4l9Ldmc5MGzNryyFUZxWvxHGwOQKP8zFebwhqfM9puJPp/iTXSs4oyb59rtM Tk8y4It74EO8UkL+mI0fOtbZUUcuWqk1jT52NVz2qcf2kWd3tzbxacvDwgGE THF9R69GzVrsrMv2j7+5CdEzF8iwa2pVzspIH7tVzKJ84W0E2T32jjw8a70n b5yc11X9yK7Sdx9uhVmoeBlISfmQWZOmtGyb0rojf5WXkVku5bZ2MFPV9HFa d5YT8/QLdks4WxCxdG3c8PF4YQcMm5O/t5RUH7tW8EdNzDMv2ee9Iycmt8uL emEhrhdSGzfzSgm1Xtn2LiSV1OqpfSTZOWsTn7Z8zOSZyhcIm7Tw7heeBdmt WlqVszLSzS4O73obQQS8dxAi3ji9es2Utnkprdrr+LsNUlI+ZJTUd3C/KmzN vriihNP54NCSuvfl52b/k6OzBWy94E92rfA4ahIeGBK85zzz22Hrd7I/t5Iv 4T9FSTl9ymkfGXb+2uRf3/IirepxZaSb3acILLsIjFBCUlI+/llKarU9fwJD OLlDp9Rmrbz4jb5/BLsaadk5oCbOc0vJEv5rfJq79vEd+83Q8h5bVWRlpJvd RzCCTvFhhBKSkvLxj1NSYid2Yif2fw27CIxQQlJSPkhJiZ3YiZ3YjQwjlJCU lA9SUmIndmIndiPDCCUkJeWDlJTYiZ3Yid3IMEIJSUn5ICUldmIndmI3MoxQ QlJSPkhJiZ3YiZ3YjQwjlJCUlA9SUmIndmIndiPDCCUkJeWDlJTYiZ3Yid3I MEIJSUn5ICUldmIndmI3MoxQQlJSPly0zzkrBQoUKFCgwAIpKR+kpBQoUKBA gR9ISfmgq7vETuzETuxGhhFKSErKBykpsRM7sRO7kWGEEpKS8kFKSuzETuzE bmQYoYSkpHyQkupgT+re1zznrfAPt0a+tTZm8oz0ajXUR5M7dIod94zLEDf6 SUvJkpLsakRPmxOxdG169ZoBYfc6OOzi9UrsMzDqhYWRi1aa570XP2RMes3a 8ux+gKTViafRx67GzWN1BoFXxgUiLat+1IuvJ/bsr7UMpKR8eFdJtf4voTvo sG2gzqhQ0dfsllKlIt5Z7/B3z0H7LyW3y2Npwj7d4/yX0OwPoDMyy+lmd0DC oOGYbWqTlv5nV8MP/S5Sr4xy5SPf+BBigr+9ELnko5BdZ5Tt3edSc5tLsstA 0DIlrU4kjT52BxjE6vwz3mXgnxKKt3xanayo2W+YTv0Nh+Iee0prGUhJ+ZBX 0tSc3NgJ0yIXrw7ZetR05rr6P44T+w4Chxb6xf6wtdujZi2GrhTM06NtQ1bF JmDjp0Ys2xC+5mt36Z1n0frYo6fPVRzUkf+Fr9gEM39mtCHbT2ZkZkKClBZt 7JGnroEPZwEjwz/4SoZdjbTsnKCjVx18mt/Yrdx+9/rKSLBe9t45eDmtbrbV 5sdCP9+HMelVq+tmZxCxZ62WKcLu0eoE08jU3V67AFmdSKsmdekZ9cLCiPc3 Riz/HDZS2gpNIUTY7WXgruZ097tMCcVbPm74eNPJv5hVkJJ6HTJKCkuA6Kkv 4SQnfM22uGHj0rIb4iFLyZKRb65xnCEf+R+MRJGcPdp21IuLnOdgcSMmuEzs chatgz2jYmWwxtBN36GjBiR1vhurDyGpU3elYC+/aTr2e2LvBxzcF5yllPDR sbrZ1YAFSNj6XazirF7+Yef1u29WRiL1AkeHRYqe9gpLkNz+DixDzJRZutmt WuxZk2WKsItYnUga3XVnCKDV8VsVCgZzNpug/B2+ekvw3h+V7bMFoGgeqUXY RVZzuvtdpoTiLZ/apEVKy7aJPfqRkvoIupU0uf2dOPkJ+v63+CGPOxyNmTxT cbOrtyQMGBozZXaw7TobBPNr74pkzrft9KrVwH4c3dqhX8CfOCd2OYvWx54w cBgMT5gHqiNxLaAY5/AnYDdy0cr4B0c6lqFBYxza6bXq6GZXI+ap55Xm/ei/ DvXyAzu/3320MhKpV0L/h5ELVo4sjcVqDf7mLBbJUrq0PnarsD1rskxBdhGr E0mjj12NQFmdx1aNnfCcEnniz/RblasEMO1RZnoQc+Z6ak4TSXaR1ZxMv4tA ZlyokdqsFSmpj6BPSVNatA46fAVtNflOxxlvRma5oMO/Qi+z22fpNWsHHbwM 6UM3fiuSP9+2YydOh6ziBw+3lCjBgsuU7mbR+tjBX4EXdYhMvHcwZh7/4Ai3 BR4/FRKErd0uw84AWgbNHr5qc+I994rUy4vsHvrdLysjBod6odg5KCkg4v2N GA8eRh+7uD2LW6Y4u4jV6bZMj+wMAbQ6j60atmE3JIhYupbFgKR6q+4iqzmZ fheBzLhQg5TUd9ChpLC4CNl5GnskZvIM5wRpDXMjln3icLc9fM3XyoR25Rci vca7zlY2M3j/JdsYGZnaqCk/H3ezaN3szogfMgYzT2nd0V0a8LeK9Y6eLM+e UbESNL5y46923aTufUXq5S12j/3un5URg0O9omfMN7m6kGueu8wu5d1662MX tGdNlinO7hIiVieSRpA9gFYn0qpolqGbD8LMGWNSc5tjIRMGDJVhZ+BokGS/ i0BmXKhBSuo76FBS8KL2S3Y7Tnl8vh2RUa588Hc/KYY9aLhIeo7lxA95XH0J JWTr0aSuvVym1DqLFmF3hnn++0oxthxho9gBadk59jVRVn15dvOCFcqyq88A q+3BHo/18iK7x373w8qIwbleoNQYAz2uTml+Zal9rdrrfm+xu7RnccuUZLcK WJ1gGkH2AFqdSKtGLN+ER6NmLcbKgh0qMSf/YpdH9LEzcDRIst9FIDMu1CAl 9R20KqmlRAn7Df1zhcH7Lka8vQ78KswGzfPec3dLIr1aDZjSQ/roZ18WfF2C Yznhq7eo7RZDxNK16mdHrbpm0SLsDoApqOl0vuJkevRzlyZ27BTlYstne4Vy 5LLjrUDz3HdwV6Re3mLX0e8IL66M1HCuV0rLtnZ7OPY7e+0FJA/S2FvJ0y0z QXZ39ixomZLsVjGrE0kjyB5Aq7OKtWpij/vYofAPvoyeNsd0tkCZvA0ZI8nO wNEgyX73VgkR/JYnJfUdtCppSts8tcEEHfoFjVYJx/9wuIAGchYzeSZ74Aem jiJTRCvXctJr1Uns2T966kvK5bVT11hJYPiok2mdRQuyq2EpmgxHz5jHSYae PHb8VBFqDjtMMoMOXwnZdiKjfAWMEamXt9g19bsaXlwZqeGyXpGLP7Br/Z7z 0TPmR724KGT7SVZI+e8D8O1Z0DJ1syNErE7QMkXYA2t1VuFWjXp+gYOWJXXr I8/OwNEgyX73VgkR/JYnJfUdtCppwgND2MIE74il16jFXhAI/uas+l3gyIUr HMw79MtDljK3eOw1QctJa9A4Yvnn9szPXE9rmGsvpPZZtA52vAkbsWwDx0Wn ZTcsWhDlilC7YwffGPbxNsgnYeAwqCaGuFGTMPPEPgNh1/lBQW+xWzX2O4MX V0ZquKsXlMG8YLna3mDhjBthG3bLs4vbszvLlGFHiFidSBoR9oBbnWPO3FYt 9vrVmevOD5bLsAtqkI5+91YJrQItT0rqO2hV0tjHn8K+iJ04nUXCXJ29F6C+ R6B85aNSleSOnc3z3mNGHv/QKI+9Jj4HU15gXLoWc8abVvpm0VrZE/opt//C Pt3DWFwidszTir/96rAIL4cd3LWDD3cO5lff9hG7VWO/28vsvZWRY2G49YI1 AqxHEnvdD/4kZtJ0u+sYNUmeXZM9O1umJLtVzOoELVOEPeBW5wx3rZowYKjp xJ8OZYOSeItdXIO09ru3SmgVaHlSUt9Bq5Iqb1ehAxlczEjYi8nuXkbGeTKE qNlveOw1TU9fpNWphxdVov/vNX2zaK3syrNMx/8I3Xwwo0o1dbzzXWD8llfM 5JmilXHn00qXdn5hzSFAF/iI3aqr3721MnKGYL1gRRz0/W/oWzy+TCrOjhCx Z7VlyrOLWJ24ZYqwB9zqXMK5VZPzuuK9hriRE9Oyc9idcQjJeV28wq5JgzT1 uwi8NS5ISX0HrUqa1KWnvS+KP2Ud/8hj9vhh41yemF61uunMdUgQ+foqj72m aWQBQrccUUzomZf0zaI1sac2bx10+NeQbccdPo1unvuOecFydYzy1R1cCzdr JV4XDruleEi6q4c9/6a3ObtK77Jr7XcvrowcIFivjMxMEBS7O72jm7fYGQTt mVmmJLuI1Ylbpib2AFqdOzi0avgaZfIctn6XvcBlM9mqMOLtdV5h16pB4v0u Am+NC1JS30GrkrJL8Q56FDf6SY8XNIL3/qBccnniWY+9pnVkgfdQqPsN1jeL FmdPa9A4eN9FZbb53KugHRhiJ0zDkevw8hqYK0SGbDuhoSZa6p7U+R6T+6vW 3mXX1O/eXRk5QKReGRUrRy75CAsmvi7QanUi9swsU4ZdxOo0WaYmdgf40+rc Qd2qYFQ45NUdDYaHnwQJ+fqYV9i1apB4v4vAW+MiqVN3rAUYhtYykJLyoVVJ LUWPhwUd+Fn9NCaYMfaRw4v5DMwVJ3fo5LHXtF3tyc5RHms5dY09SKlpFi3O nn5rVkjRbUHnEHToF5gMq9OHffKNMsCnapuXesuneZddvN99tDJi4NfLUrIk qAZqCpgECL2H7DSyM4jYs7Nl6mAXsTqtlinO7gx/Wp1LOLSqpUQJ/Jqf+nvL SknWbjeJ3a71/tVdLf0uAvlxAcioXJU9Mhf6xQGHWa5HkJLyoVVJAcm332Vy eooDP6wRvmKT1fYIJcx5IKTVqccS4JcwzXOXifSaO8sBd21+ZSl477T6jTDG UroMfg6O88g9f+yLs9tf93YTomcuUCfOqFTFLjGtO4iQemR3hv3z7GcLWGv4 lN1jv1t9vzLi18v82rsg9Ip2HL2q/FeLRj/mjl3EnvVZpgi7iNVpskxN7M7w p9UJtmrY+p0m2wPkbMIAyYJs3x0S+dC3SN3drebk+10EkuMCED90rLNhRC5a KV4GUlI+dCgpIOaZl+xz/pETk9vlRb2wEFcrqY2bWfHiHnbW2YLwlV/Ejv1P 5Our0N8K3jVz61WefoHlDM45bvj4sHU70CQ4H7r0lpJqRUrLtimtO2r9704j s/P73T8rI069YibPVL7Y1qSFvq+eumMXsWd9linC7h8Y0+oEWzU5rws+4QO9 A4vHpK698P2soMO/ptVroJudgbOak+93EUiOC6+AlJQPfUpqtb1gGLznPLMi mBaq/1pL/T8gQYevhK3fldhnoHivuZ+jtmZf2lHC6Xww7KTuffm5cWbRmtj9 A4Ozc/rdnysjX8DtlW0Be9ZnmSLs/oEx2cVbNTmvq/qRXUVVP9ya2vQ2GXYE fzUn3+/yJfQPSEn50K2kiLTsHNApl++VpNesDUsVwT/XdgDvScLSpcF1J3fo BJNPL36PS5DdD/hHsHP63Q/sPgKf3aM9S1qmkeseQHZNrQq9k9I2L6VVe02W KVn3f71HQpCS8iGppD6CYcc1sRM7sRO7n2GEEpKS8kFKSuzETuzEbmQYoYSk pHyQkhI7sRM7sRsZRighKSkfpKTETuzETuxGhhFKSErKBykpsRM7sRO7kWGE EpKS8kFKSuzETuzEbmQYoYSkpHyQkhI7sRM7sRsZRighKSkfpKTETuzETuxG hhFKSErKBykpsRM7sRO7kWGEEpKS8uGifc5ZKVCgQIECBRZISfkgJaVAgQIF CvxASsoHXd0ldmIndmI3MoxQQlJSPkhJiZ3YiZ3YjQwjlJCUlA9SUmIndmIn diPDCCUkJeVDt5Im9hkY9cLCyEUrzfPeix8yJr1mbX1pXIJjOckdOsWOe8Zl iBv9pKVkScE0+tg11L3voMglH4V+sT9s7faoWYvT6mT9O+qOSMuqH/Xi64k9 +7s86ou6i7OLp9HH7iN4ZE/q0hOsLuL9jRHLP4eNlLZ5+tL4jl2N6GlzIpau FfxTRYO3PIJvUalNWsaOeTrq5beinl+QdFcPl3+vJpJGXwlFRpzuUYkgJeVD h5JmlCsf+caHpnOFwd9egK4J2XVG2d59LjW3uaY0HHAsJ+zTPW7/Tvp0fkZm OcE0+thF6gVqFfnmGgfeoCP/S8vO+UfXHQEDMGr2G6ZTf0OGcY895XDUd3UX YRdPo49dHyxgNhUqyrBbSpWKfGut0pin/g5fvcX+19JnC2B2pCmN79gdkDBo OHY9aIckOwcWzWfoZPdoUaCwip1//1vEsg2mY7/DNgzDjMxMrWl0lFBkxEmO SgQpKR86lDR6+lylIw5eTqubbbV5idDP92FMetXq4mk4cGc5KS3a2C3h1DXQ LxYwMvyDrwTT6GMXrFfM5JkK0eotCQOGxkyZHWxTWwjm1971SG3kugPiho83 nfyLDUZnr+KjuguyC6bRwS6+0gevWyzB+KngOcPXfC3DHjvhOaU6J/5Mv1VZ RwBd9NSXlJgz11Nzmoin8R27GuCfg45e9ZGSpubkxk6YFrl4dcjWo1AAd8s6 L66IPVpU/JAxOE1NadUedtOr1QjZeRpiYKZt0ZJGXwlFRpzkqESQkvKhVUnT surj3Cx62issMrn9Hdg1MVNmCabhw53lRL38JkznEns/4DCXC930nWLkj44V TKOPXaResOgLOvxr5KKVbICk16wNOgsJQjd+65Gawx7YuiNSm7RIadk2sUc/ l17Fd3UXYRdPo4NdfKUf9eIi5zRxIyZIsW/YDZmANLAYEDXMOf7BEeJpfMfO AAvYsPW7WMW9qKQZ5corCm4bgOFrtsUNG5eW3dBlSu+uiPkWpTTFqWuKKs1d xiLjRk3CxIl9Bgim0VdCkREnPyoRpKR8aFXShP4P2w2g7yAWCX0U/M1ZvGJg KV1aJA2fxZ3lgD3EPzjSITKtQWOT7XJTeq06gmn0sYvUK61hbsSyTxyu5sGS RBn+K7/wSM1hD2zd1Uht1sqlV/Fd3UXYtaYRZxdf6adXrYYX7tQh6NAvGRUr 62YH4PoldPNB0Cl7BXObY+awyhBP4zt2hpinnlfa5KP/eldJk9vfiQ0e9P1v 8UMe56T00YrYnUXFjZyI8Ul338siMypWMh3/Q5l+vL1OMI2+EoqMOPlRiSAl 5UOrkuKFAgc1AUS8vxHjwW+LpOGzaLpvEjt+KuQZtna7ZBqP7PrqBXPp4O9+ UtzOoOEy7C7ht7qrIa5Tvqi7/5VUfKUfO3G6slIbPNxSogQLkuyAiOWbsDpR sxajnMVMma3EnPwL7zIIpvEdOwL0znTmeviqzYn33OtFLUtp0Tro8BWT7Xpy 8p3dOfn4bkXszqJQkiCk166rjoflnm3q9XdG+QoiaeRLiBAZcVpHJYKUlA+t Sho9Y77J1UVa89xl9nlXt94iafgsmtQEDTJu9GTJNB7ZddQrvVoNmBDCoehn XxZ8QMKYdVdDUKd8VHf/K6ngSt9SNjN4/yVFSR8cmdqoqTgvnx2Q2OM+pg7h H3wZPW0O8CpEQ8ZoSuM7dqttkQWrV+WBgdp1k7r39ZaWwewFF8XKuJs8g5+P j1bEVvcWZX/+6vgfDhaOzyXaytBCJI18Ca1iI07HqESQkvKhVUnjhj9hH1Or Nqvjza8sta/Xet0vkobPIq4madk59vVgVn2ZNCLsmuoFjgXWsOxCE0zsRZYG HHZn+LPuanjUKZ/W3f9K6hLOK/34IY8zxYEQsvVoUtde3mKPen6BOnPbtK2P jjS+YzcvWGEquuvnRSUF9bS3545T/He4fLQiRri0KCiP6XQ+RAbv/cEhfdTL b9l9QpeeHtMk3dVDsoQiI073qESQkvKhVUlTWra1j6Zjv7NXPzLKlQ/7bK/d enOaiKThs4j7tNixUxSH9tleyTQi7JrqFblwhYPzCf3ykKXMLbrZneHPuqvh Uad8WneDKKnzSj989RaHWptsD+oIvjbokT3infU3cj5z3eXtQpE0vmDHRwjM c9/BXW8pqaVECfuCDpRo38WIt9eBnoZuPmie956DD/HRipjBpUUpt8VR5bed cEgfPdM+94gbOsZjmoQHhkiWUGTE6R6VCFJSPrQqqdIjiz+w2/ae89Ez5ke9 uChk+0l77xz/A+eNImk4EPdpqGKwQJBMI8guXi/lLcJKVZI7doZRz0w3/qFR MuwO8HPdGTzqlE/rbgQldbnST69VJ7Fn/+ipLyn3xWzPamKInjZHnj1hwFDT iT8dPGHsmKe1pvEFOzRC0OEroBTsfp+3tCylbZ6aMejQL3hhGYeb+maKj1bE DK7XpGUz3akkvj2qFOnuvh7TyK9JRUac7lGJICXlQ4eSZmSWMy9YrrZwmCji RtiG3eJpOBD0aWnZDe1DJidXJo04u7564e0bCFGz35BhV8P/dWfQpFNer7sR lNTjSj+tQeOI5Z+bilZwaQ09tz+HPTmvKypI3MiJIOLsGgiE5Lwu4ml8wQ7+ OezjbbCdMHAYVBOD6hWPgbDr8dFld+ywWDMVLUhTWrSBmPQatdhHBoK/OYvv H/loRayG2/uktjvjsHB2SG+e/759rlUnSySNfAkZREacplGJICXlQ4eSImAG ntStT2Kv+8FLx0yabjezUZO0pnEJQcuBWTFkGPrVYck0Wtm11iu9anVwp5Am 8vVV8uyIQNXdqlGnvF53IyipyErfUqpUxNK1WAyRhyQ57OFrFKkKW7/LnnPZ TJYze4dCJI0v2C1lblFPLF0G86tv62OPffwpzCF24nQWmVGxEvu2QFLXXr5b Ef9/e3cbIlUVx3F8d901091VZ3a32VGK1hdlQkSkVkYupovb1samJj1g9CLD oARbCpbcSCrLCDEQil5kEPgyAwOzV22Q9GDRExv2RIkUFcEO24vaZbdz50yH uzM7x3Pvf+7Okfl+WKTGo/9zxnPv7547M2fCys2ownXFz/8U3WdTz0xd/pNx jm3kPTRcjrhIR6VGktrFTlKjfd36+h/+1mfsch8UdWkT5jhz9Oflm/cdFLaJ Vz0bZVwNX/4WnBD2vlCp6lUce9ScquzYq56k7iv9jmtX69u8i156LXZ1tejT n1EN/yWZlav0HgXzPvrRsU1C1dW0L/0IbdHPwpePxKse7C+kb0LumnEpYra/ aHlsOLkVcVi5GWXuUBV9Am7exz+Zyw+XNvIehrkcce5HpUaS2gmTNNPV1fjB t3qepO+4K3abIi4zJ9hxSJ/QujdJ2sSrno0yLnPuTfcNVKR6dcceKacqPvaq J2mklX7jh98FFzP7D8eu3rlsmd6tLryzltJ04hPTDZc2yVXP5gM3/JPack9h 7q3fKNkNL7X13sK/48zPcC1+5IlCkg4OJ7ciDis3o9K9hVdyW4aeMw9mrrxK P7joxVcd28h7aLgccZGOSo0ktZMkqbrYW/DmO4X5UOaq26VNKZeZo6Z03Wyv 40dtE696uXFlula0DB9QP2o9Yh7U+5SG9woTVq/u2FMD2wtnhuED4cfnZuzl qkdtE696NuJKX687ljywS1K96eTpuvzLgp2XF7aG6Lz0svr8q29m61SXNslV L5K68+66StxfNSf8ojRsffzpwlr14cHkVsQzRlR+RjW9+2nw/Hzzp9m4o3BT +pd/9U7Fjm1i9NDliJMflRpJahcvSTuXL1+yc3fD13/kJ8OEmtjx2pTjMreb 3vs8SLHnbVf7Lm2iVrePK/hQmz6Ez03NPzbSMvTsgjfeVv87/633z7uTiUt1 rVpjz+avpc3b6RtHRjMrV5nfmoOxW6pHahOvejbiSj94i+/ZSTVJhLsMpfu3 6rvE6llVdVPb7tPvuqk/M9ax+nr3NslVL1KpJO38/0XG+tG/zF6Firp21X+/ fhtSQitiwz6j1Bgbvvpdz/OlO3YGu/7mw711z95IbWL00OWIkx+VGklqFyNJ 1YWomtjB9P5+PPieu9nOEi5tLM4/t69YWTiUevokbaJWP++41PE+//gpcz1c fybXdPKzpTseqkh1rVpjVxbvHiq95l9w5Jj+3aTHbq/u3iZeda3cSl+d0i9+ 5ag6w3esXacfUQs3vY2k40eQ7NXT/dvCb5oNzoTHT6mkiNomueoz2uuvdTg3 ZZ6N2NXTt2/RFcPv6NMf5lVZMOsfqVSOay4zSl0yBRsr5V87rst/5WLp3v4u baL20OWIkx+VGklqFyNJm/cdDPZDu3mDZU9RlzYWLue0tls2t/XcZr/mdGkT qbrjuC65+pr2m7odv9TJvbpRlbE7SnrsyZHcDWh+5pC58r/o6InWPU/qG3rB d3C4HQIu1dWz2ra5v23TrZZ30bi0Sa56PPbqzfsPF+7/DD6V7u1feOh1vUpV 02zW9pVNUneZrhVtG3s7rltr+Rd3aRO1hy5HnOSo1EhSO8nrpMnx/4xK9Rqs blnpt23oMbvxBD9nJxtHRlPb769g9UR5Xn3Jg482fPGruVZpOnm63FeqZSu6 IvaEDz0kSe1IUqpT3b26ZaUffKfemhvSfQPt3ZscdwiMWj05F0T1jjU3qpSc 4xWxD3zoIUlqR5JSnepUp7rPfOghSWpHklKd6lSnus986CFJakeSUp3qVKe6 z3zoIUlqR5JSnepUp7rPfOghSWpHklKd6lSnus986CFJakeSUp3qVKe6z3zo IUlqR5JSnepUp7rPfOghSWpHklKd6lSnus986CFJakeSUp3qVKe6z3zoIUlq V/r8AABgl1wqkaQAgFqQXCqRpACAWpBcKpGkAIBakFwqkaQAgFqQXCqRpACA WpBcKl2ISQoAgD9IUgAAJEhSAAAkSFIAACRIUgAAJEhSAAAkSFIAACRIUgAA JEhSAAAkSFIAACRIUgAAJEhSAAAkSFIAACRIUgAAJEhSAAAkSFIAACRIUgAA JEhSAAAkSFIAACRIUgAAJEhSAAAkSFIAACRIUgAAJEhSAAAkSFIAACRIUgAA JEhSAAAkSFIAACRIUgAAJJJIUgAAak2lkhQAAJQiSQEAkCBJAQCQIEkBAJAg SQEAkNBJmsvlSFIAAGJQGTo2NjY+Pq5/rXZ3AAC4kJgAnZiY4AYvAABR6Vu7 Kkanp6d1qhKmAAA4UqGpF6R6Q6SpqSn9iPqV27wAAFiooNShmcvlVICa3QXV f6vfNW9AAgAApfRbjFRcqjwNx6gxOTmp8lS3AQAARVSSqqBUcTk3u+gDAAAA AAAAAAAAgJ/+AyZpbpk= "], {{0, 184.}, {311., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{311., 184.}, PlotRange->{{0, 311.}, {0, 184.}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.792346308796283*^9, 3.792346316787594*^9}, 3.8146500134124193`*^9, 3.814650116637292*^9, 3.814650316913149*^9, 3.8146503646752996`*^9, 3.814651860501255*^9}, CellLabel->"Out[1]=", CellID->493639956] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "For small 2D data, ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dataset", "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/Dataset", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " does similar things, but sometimes does not format as expected:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797091040751966*^9, 3.797091041444542*^9}}, CellID->284943537], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"d", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "}"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "|>"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Row", "@", RowBox[{"{", RowBox[{ RowBox[{"PrettyGrid", "@", "d"}], ",", RowBox[{"Spacer", "[", "20", "]"}], ",", RowBox[{"Dataset", "@", "d"}]}], "}"}]}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->47285068], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvQd8FMX//38oSO8R6b0FBEFpEekdREroRYlUqdKrhY6IgIh0IgT4UEWK 9PKlk0AgEEASkJLAn5rEhFBD+73/934wj2Evudu9spfLvp6PBzxys7Nzc7Pv nXlumy3y9aDWX79rMplu0r8p9Mf///drAAAAAAAAAAAAAAAAAAAAANTx4sWL uLi4u3fv3rp16/8DAACgGuo2qfOkLpQ6Unf35QAA4ME8fvwYIgoAAA5CHSl1 p+7u0QEAwCOh/pP70qioqKdPn758+dLdNQIAAE+Cuk3qPKkL5b4UUgoAAFp5 8eIFnx198OCBu+sCAACeDXWkfKYUl+8BAEATcXFxfHbU3RUBAICUAJ8ppa7V 3RUBAABP4u7du9R5Pn361N0VAQCAlAB1p9SpUtfq7ooAAIAnwZfsce8oAAA4 BepO+cK9uysCAACeBN+H7+5aAABAygH9KgAAaAU9JwAAOBf0qwAAoBX0nAAA 4FzQrwIAgFbQcwIAgHNBvwoAAFpBzwkAAM4F/SoAAGgFPScAADgX9KsAAKAV 9JwAAOBc0K8CAIBW0HMCAIBzQb8KAABaQc8JAADOBf0qAABoBT0nAAA4F/Sr AACgFfScAADgXNCvAgCAVtBzAgCAc0G/CgAAWkHPCQAAzgX9KgAAaMW+nvP/ AADAMOjTrwIAgJGBkQIAgHX06VcBAMDIOGKkLqgOMBAcRQ9AssfI+zuMFAAA 9AFGCtwFjNRTMPL+DiMFAAB9gJECdwEj9RSMvL/DSAEAQB9gpMBdwEg9BSPv 7zBSAADQBxgpcBcwUk/ByPs7jBQAAPQBRgrcBYzUUzDy/g4jBQAAfYCRAncB I/UUjLy/w0gBAEAfYKTAXcBIPQUj7+8wUgAA0AcYKXAXMFJPwcj7O4wUAAD0 AUYK3AWM1FMw8v4OIwUAAH2AkQJ3ASP1FIy8v8NIAQBAH2CkwF3ASD0FI+/v MFIAANAHGClwFzBST8HI+zuMFAAA9AFGCtwFjNRTMPL+DiMFAAB9gJECdwEj 9RSMvL/DSAEAQB9gpMBdwEg9BSPv7zBSAADQBxgpQ8NugAUvXrxwd71SMjBS TyHl7e/qgZECAIA+6GCkNWrUqF69etu2bfmjv79/dTM7d+5MapUEMy9fvtRa Mbs5deqUyYLHjx/rVgHGjrbyXDzLSL///vvhw4dv2bLF3RVxA1qtjA7loqKi Xr165bLY0Q8YKQAA6IMORpomTRqyu9y5c/PHSZMmse8tXLgw0fwHDx7kDJ06 ddJaMbu5d+/e2LFjx5jp1q2bu4xUa1vpw5MnTwICAr755pvZs2c7sVitRkqt UcdMw4YNaXu5TsASJVOmTLQhvv32W52/NzmgZn+Pjo5esmRJ06ZNixQpkjp1 amorCubChQuTxkdERDgxbHQGRgoAAPqgg5FmyJCBhqf8+fPzx59++okta+nS pYnm79evH2fInDkzuZDWujlOUFCQu4xUa1u5Gn9//wYNGmTJkoWr8fHHHzux cE1GGhMT4+XlJU5fL1u2zKUOZgmM1PrWbN26teVVBiZnzpwXLlxwYuToCYwU AAD0QQcj/eCDD2hUKlOmDH+cN28ej1Pr16+3zPzixQvKnypVKspPeTZu3Ki1 bo7jRiPV1FY60LRpU1kt3Gik69atk2vSuHFjlzqYJTBS61uTjbRw4cLDhg37 448/9u7dS//7+Pjw9ipbtqwTI0dPYKQAAKAPOhjpJ598QkNSw4YN+eOWLVt4 kDp+/Lhl5v3797P5zJgxg/7o0KGDzfIjIyNDQ0OfP39uM+fTp09PnTp17949 69k0GemrV68uXbpEFXj27Jn1nFRaWFhYcHAwDfFJ5dHUVjoQGxt718y4cePc a6QsPNmzZ2dJfvfdd69evepKC1MCI7W+NadOnRoQEKDYDRMSEqpWrcoxTFHk xODRDRgpAADogw5G2rJlSxqPvv76a/4YEhLCI9SNGzcsM/fp04cWjR079sKF C/QHaYClFpYoUSJLlizR0dETJ04sWLAgl5YuXTrS17i4ODnn0qVLKefo0aPJ GOvVq5c2bVrOXKhQIZK9pCqs0khphO3SpUvmzJk5c5o0aWrVqpXo1Ulqqxo1 aojze6lSpeL76yzHaE1tpSczZ850o5HSz+dt5+fnt3r1am6T6dOnW+akLb5g wQISeHLpDRs2jBgxokmTJt27d58/f/79+/cdyWzFSHfs2DFhwoS2bds2a9Zs yJAhq1atSvRX3Lx587fffhs4cCBtZfohP/zww6ZNm/777z81LeBeHHnWfsyY Mby9Tp8+7cTg0Q0YKQAA6IMORtq/f38aj2j85Y801vM5Lsu5lSjl/fffp6WB gYH0sWjRoolesOZL2yR19H/q1KkrVqzIa/H1bvlcJakFJebJk+e9997jP8qX L8+PXZAWBgQEJFphNUZKGpMjRw7KkyFDhrp16zZv3pwKp48kTgcOHJBznjhx In369LTIy8vL19eXtJkqzE8w5cyZ8+HDh/a1lSYuXrw4efJkR0pwr5HOnTuX t8iuXbuioqKyZ8/OlbHMyRu6adOmlSpVMr1N1apVFadVNWVO1EgjIyPbtWtn sqB27dphYWFyzoULF3LAKKCoCA8PV2mG7sIRI23cuDHvF265J9xxYKQAAKAP OhgpP56zePFikZIuXTrx8I7M3r17KScJJ88bM2jQIPoopkISsJESffr0efDm Crh4CGjevHkiJxupyfyskKjw9evX+SbVAgUKJHqp3aaRkkYWK1aMMtSqVUuc vaTMfn5+lOjt7Z2QkCAy9+rVixLJhOXSIiIievTosWzZMrvbShMkyVTO4MGD 7S7BvUZavXp1+vaCBQvGxcXRR25ngm+BkGHJZMjkqdk//fTTjBkzckqDBg3s zmxppDExMRxIRJMmTX788cfx48fTWpxSr149kXP37t1UPiVmyZKlYcOGFNgt WrQoUqQI5wwJCdFoiHpjh5W9fPny1KlTAwcO5N84ceJEJ0aOnsBIAQBAH3Qw 0hMnTgwZMuT8+fMihYYnMhzLnD179qTBq3v37vxx3759JvNJyEePHsnZ2Egt T/qRA1B6xYoVRQobae7cuaOiouSchw8f5oFy8+bNltWwaaRUf1qaL1++6Oho OZ3y582blxbJp0l9fX0ppUqVKmrOEalvK63s3Lkzbdq0VLh9q7vRSKk1eHMM HTqUU3bt2qVIEbBkpk6dun///nSwwImXLl368MMPeZVjx47Zl9nSSKdMmWIy n2xfuXKlXAdSU179r7/+4pSuXbuyjipOnK5bt46alH6gzUZwL5r291u3btWv X1+cEKZDIYphz52bFEYKAAD6kHze2fT8+XOe3kfc4UkpfH127dq1ck42UkUi sXjxYh73RQobqbe3t+XXkU/SokRlz6aR8sM1pDEPLfj8889pEX2vyLxt27Z3 3nmHEosVK0aucvHiRXXt4Xy2b99OUjps2DA71nWjkX7//fe8OU6ePMkpcXFx BQoU4LPcfNZUwJJJ4q0ohLYCFyIv0pRZYaSxsbE8KRYdRilWj4mJyZUrlyzM fI6XJI2OjGz+3mSIpv09PDzcJNGuXbuzZ886MWx0BkYKAAD6kHyMVJz4atSo Ucs3sAb4+vrKOZMy0p07d3IJ//33H6dYMdJq1arRokGDBlkusmmkfCLUCmPG jJHzb968WVyiNZlvdh05cuS1a9dUt40qXqqAbD9NmjTDhw/XWrgbjbREiRL0 1R999JGcSK7IjUmaLaezZI4YMcKynJw5c9KiNm3a2JdZYaShoaFcATL8Py3g Ordq1Yozjx07ljPTsQzFOdmszV+drNC0v5OQ00EEbSDabXl+3XfffXfBggVO jBw9gZECAIA+JB8j7d69e1KClz59+vj4eJEzKSMlE+Dh7+nTp5xixUjLlStn Mj/Ub7nIppHmzp2blpYsWbJTElhOo5qQkEA2SL+RH4AymS8W9+rVy8FHlgRn z561LskKtE706i4jPXDgAFf4m2++OSuxZs0aTu/atauc34pk8havWrWqfZkV RsrBZh0fHx/OHBwczM/TMVRU9erVR40aRUcl6pTQzdi9v0dFRZUtW5Z+MjX1 pUuXnBg8ugEjBQAAfUgmRkrCxjeeTZs2LVgiMDAwXbp0lP6///1PZE7KSKdO nUrpJUqUEClJGSl9HQvGqlWrLCtj00jr169PS/v27WvHL3316hX9KPGCm0mT JtlRiCXPnz+/pAKeOqlz584vX77UVL67jJRnA7NClixZ5DeKWpHMjz76SL2R WmZWGKl4eQHlaZYEw4cPF6vv3LlTzMwpq+no0aPVWaE7cWR/F3PqLlq0yInB oxswUgAA0IdkYqQ7duwwmU8bxsTEKBbRyE6LWrZsKVISNdJnz54VKlTI9Paz +UkZ6YIFC3iUTHT60LCwMF7Kk1BZQhZhMt8WqGaaUMX8TgKeFUdMhq8Dp0+f pjp37NjRjhOzbjFSCga+em4d+Y2iViSTz2y3b9/evswKI+WIJUjy1avd+fPn lyxZQscyfA6WWbFihfoS3IIj+7u4rZSazonBoxswUgAA0IdkYqTdunUzmSfM sVzEzyulS5fuwZuJnsR8pNu3b+eUR48ekTyYzJfs5cco2EhTpUrVq1cvcXPp nj17+IGpNm3aJFqZp0+f8rNIZA78jDDprjybfXR0NN9KWqFChZCQEJGekJDg 7++/Zs0akfLAfBtknTp1Tp48KX/FvXv3uA59+vTR0k72Q/UkHW3Xrp199wm4 xUjpoINlZvLkyWcsOHDgAG1Z09tvFE1KMsW7Br777jv7MiuM9OrVq5xn0KBB 9kjegwcBAQFcQo8ePewrQTcc2d9pd+OfOX36dCcGj244bqT/AwAAj8LJ3ahd Pad6nGuk5HvZsmWjMWvu3LmWS+/cucN+uHLlSk4R85GazNfo69atK6aaGTVq lLyumI+UyJgxY82aNcuVK8elUSERERFJValTp068Vr58+Wit9OnT16pVS86w d+9eVhQqrUqVKp07d27YsCE/Yf3++++LdykeP36cH+ondypSpEjTpk379etH mbnC9KvliZ5cB1l6zpw5ycDVvGtV0Lp161xv4B9LiJRGjRo5WCubRtqqVSuT +RZEMTWTAto0prffKJqUZNJv5/ofOnRIJGrKbDn7Ez++lCZNGtrKlnWjY5Dd u3fz37/99pvlLaOxsbF8c2nv3r2tNEJywOb+HhUVRQdiltFFB3S0X3Bj0i7j YMC4BRgpAMBoOLkbtavnVI9zjZQnxidnu3nzZqIZfHx8TOZpZPgjG+nMmTMb N27MZ8lM5nffWL6DiY20fPny9IewVnLIZs2akehaqdLdu3fJuITN0reQ/Cju vaTadujQgW9zZUhcfX195bOmxJMnT2bPnl2hQgXxDlMukOqg23sVjx075ufn p0lHCTJtU9LQL3KwVtaNVLw5tHnz5knlEe9y+umnnziFJdPb23vevHkXLlyg Qvbv308lcDY6FpBX15TZ0kjFhXs6spg+ffqVK1co8fLly+vWrfvyyy8pzEaO HMk5ixcvnjlz5nHjxgUFBfFrQ8+dOzd06FBefeHChZodUV9s7u/8YF2hQoVm zJhx9OhR+o2PHz8+cuSIeF/Axx9/LL82woNwlpE6uVopFG6rx0AFiCvXYeQ4 hJFqhY2Uxn36m8a+wMBA0oBEc7KRlilT5rV5cqTz58+fOnVKfmzfOqQox48f J4tQTLAv8+LFi7CwMBqFSUisPy5EOcPDw2mYJhtRX4cUjHUjFbZp5TbLyMhI fh9rxYoVOUV+DZOC0qVLU5zIq2vKnOhbREeNGiWOiUzmd2XKhchGKufhGzaY OnXqxMTEaFVEnVFppElBv9eN0/A6CIxUT4xsAlpBXLkOI8chjFQrST1rb4mV 2Z+A27FupPwGrsyZM8uP0lvCD74R5PkP3khm2bJlixYtKowoS5Ys3bt3v3v3 rmJdTZl5PnzL6fQPHTrk4+MjT+5E5M2bt3///qdPn+Y8q1atql+/Pt8uIsia NSsJ7a1bt9RZoTuxub9TnokTJ1aoUEHhovSTe/bsef/+fb1iyvnASPXEyCag FcSV6zByHMJItQIjTRnYvI/UDsStoXFxcWFhYXv27AkODla818m+zNaJiYk5 derUn3/+uX//fnFTq4Lo6OiQkJDNZkhWPej9Ter399jY2DNnzmzZsoWaIjQ0 VM2bc5M5MFI9MbIJaAVx5TqMHIcwUq3ASFMGLjVSp2c2Mu7d390LjFRPjGwC WkFcuQ4jxyGMVCuVKlXy8vLatGmTzZxkrZTz008/1aFWQCswUk8BRqp1LRip fRjZBLSCuHIdRo5DGCkwJjBST8HI+zuMVE+MbAJaQVy5DiPHIYwUGBNXGGnF ihW9vb1nzpzp9MxGxsj7O4xUT4xsAlpBXLkOI8chjBQYE1cYKXAFRt7fYaR6 YmQT0AriynUYOQ5hpMCYwEg9BSPv7zBSPTGyCWgFceU6jByHMFJgTGCknoKR 93cYqZ4Y2QS0grhyHUaOQxgpMCYwUk/ByPs7jFRPjGwCWkFcuQ4jxyGMFBgT GKmnYOT93V1GeuDAgelv2L17t9bVHWTevHn81du2bdPzezWZQHx8/N9//z1w 4MA2bdrUrl27VatWAwYMmDVr1s2bN106ZCcTNMVVbGwshfHs2bP9/PwaNmzY v3//BQsWHDly5NWrVy7doB6KzTgMDg6e/DZTpkz5+eeff/311xUrVgQFBekW Bk4HRgqMCYzUUzDy/u4uIy1Xrpx4GWvhwoVfvnyptQRHeP/99/mrO3TooOf3 qjfSXbt2FSxY0JQYGTJkIE2Ni4tz9djtXtTH1fLly/klyJbUqFHj8uXLrt6s HofNOPz9998TbU9B5cqVz507p1swOBEYKTAmMFJPwcj7u1uMNCgoSDHA7dix Q2sdHCGZG+nUqVNTpUplXQnatm376NEjHUZwd6Eyrrp06WK9odKnT//HH3+4 ftt6Eo4bKZE7d+6rV6/qFg/OAkYKjAmM1FMw8v7uFiPt1auXYnRr1aqV1jo4 QnI20q1bt8o6milTpnr16lGLVa1aVaGpv/76qz6DuFtQE1f8Hm1Brly5WrZs OWDAgAYNGmTMmFGkp02bFmdKZTQZaenSpevWrVurVq0qVapkzZpVbvD+/fvr Fg/OAkYKjAmM1FMw8v6uv5E+fPgwc+bMCiNNnTr1rVu3tFbDbpKtkcbFxeXO nVs0C5kAqZRYeuPGjU8//VQsLVeunOsHcLdhM66uXbtGui5ao2PHjtR6Yum/ //5buXJlsbRx48au37wegyYj/eOPP0T67du3u3XrJhYVKlTI9YHgZDzXSAEA wAg40q9q7eH9/f3FiFa1alXx96RJkxQ5V6xY0dBM7969nzx5MmHChM8++yxt 2rTe3t49evS4e/euyPnq1StSDs58+PDhgwcPfvnll/nz58+aNWv9+vVXrVql KDkpIz1z5gyJTalSpdKkSVO6dOn27dvv27dPsS591/r168kVCxcuTNnSpUtH 43Lfvn2DgoJs/nabJrB69WrRIEWKFImNjVVkuHDhAp/9y5cvX9OmTckQKDE6 Opp+Zj0ztDX79OnzwQcf5M2bl+QhPDycMty7d++nn3765JNPcuXKlSpVKiqh YMGCnTp1On/+vCh56dKlXEL37t1jYmK+++47Hx+f9957j1qDyrl+/bplbQMD A9u2bVuiRAk6oChZsqSvr+/27dsVecioqT4kz9myZXvnnXfItytVqjRt2jTa fA6aA9VQtFW1atUsM0RFRcn3lx44cIASqeRGjRpxqBw/frx///5UJWpMiqiI iAjKEB8fP2vWLLJZakOqMEkvbWgKJ1JcUfKmTZu4hC5dulA8zJ07l8qk76JV aKPwFymgtmrZsmWBAgWo8WljLViwgDZuwzecPXtW5Hz+/Dm1T+3atanFsmfP Tn+MHTuWjuMUBd68eZMq/9FHH1Ged999N0+ePFWqVPnll1/oENvxOEzKSAna 8SnseRF9L32dpnhQE4o249nuoFITVy4FRgoAANZxpF/V2sNXr16dh7P06dOT A5BhivMtiuebhHKQW9K4rDitSkPwiRMnOCetKNLbtWtHHqXI3LNnT/mx60SN lLxCVEZA493o0aPFuvQHjbmmxKAvJaG1/tttmkDr1q1FgSTkieahsVvxuP2d O3fEWiRX4m8SBmrh+/fvy+Yv4+XlRQLPhYwaNUqUUKNGDUVOGvQPHTokf+nM mTMt25kcY9iwYeIG12PHjtFWTvSr6Zc6aA4ff/yxKG3//v2J5vnxxx9FHvJM SomLixMpFFfib5IokiUSP/kstAzFzMmTJ7lYKooTc+TIQYcwipwUM4qaU2gJ ixO0atVK/L13717OSVs20Y1FxwWhoaGiwNOnT2fIkCHRelL8Ww9CNXFoxUjp aIWOwngR+SS1mPp4UBmK1uPZkaBSE1cuBVftgbvgKHL3FWlgGyPv7zob6T// /COGDxrKKYUGUJGieL5JPgnGKEaiMmXKvHjx4vXbRiqGQoVerl69WpRsaaQk G/Jdmorhfs2aNZztr7/+Eok5c+asU6dO6dKlRcqHH3749OlTKz/fpglQCaK0 a9eu2RxeLUdwmYYNG9LScePGiRSSpWLFisn3WDZo0IALEUYqEOLB0C+Nj4/n zCQP8iLFdgkICOBsH330kfhe2lg1a9aUr7P7+/s7Yg7iV5BMchhYQrEtvq5P nz6v3zZSmSZNmtDS8ePHixTynxIlSsgVFpf+hZEKKBgov/hIjSzqcOnSJVlH s2bNKsJPIIy0efPmIpECUt4EFBviyKhixYqikpROcSjfCbNy5Uor7aYmDpMy UuotqRnFItqgmuJBZShaj2dHgkpNXLkUGClwFzBST8HI+7vORjp06FAxdmzf vp1Stm3bJlJatmwpZ5aNNEuWLFu2bKER+erVq2I4JpYsWfLawkhbtWoVHR39 /PnzOXPmCM8sXLiw8BZLIxVnxkhvli9f/uzZs8DAQGGbJUuW5HX79u3LKdmy ZRNndHn49vLyql+/Pq1l5efbNIHs2bNz+aTEcjoV+11inD592nIEpzGamqV7 9+7r1q2jpZUqVeL04sWL37p167H5yukHH3zAifny5eOvkI2U9Gb9+vWPHj2i IwghAMS8efM4szjTRUa0ePHi2NjYAwcOUCuJLyJ3lWs1bdo0XpG+mjYErUUu Yf25GOtxRRlE4UWKFEkqG1m9yEba9trCSCmRfKl3796bN2+mpVWqVBFb/L// /nttvogv7uwtUKAAFysbKdnX/v37KTIjIyNFqxLUJpxZPuYaPHgwBxJpHgmV SGcj3bVrl0hp1KhRWFgY9U4//PCDSOSjKvoJIqp/+eUX/haqZ9GiRSl6SVC/ /fZbK0GoJg5lI61QoUKLFi2aNm1KcZUrVy659Shm1MeD+lC0Es8OBpXNuHI1 MFLgLmCknoKR93c9jTQhIUGoIA1DPDTT/2LEp/FU7q5lI/3pp59E+tmzZ8WI 3KVLl9dvGyl9BQ1/IrOvr69YJG4FVBgp6atsAmLdX3/9VaQHBwdTyujRo0UK Df3jx48/dOjQ06dPb9++raYFbJqAOK+bNWtWOf23334zJQafv5KHaVLZK1eu KIq9efPmzp07L1y4wB8vX7782WefcX6ST06UjXTSpEliXXmqLmouLk2kkISL nD///LNIP3LkSFRUlDhtmC5duvbt25OrXLp0iVYn2bOuDTbNgZxHfJe3t3dS 2e7fvy+ylS9f/vXbRpoxY0bL5+koGGiPoDbkj1TbWrVqcX46LOJE2UinT58u 1pXDQzzdL647kzHK53KpQURmNtIBAwaIlKNHj3I2OrAS4UpaSCl0pEB7CqeQ D3fu3JmOoW7cuEE1t36KXn0cqpn96eOPP6ZNrD4e1IeilXh2MKhsxpWrgZEC dwEj9RSMvL/raaQbNmwQA023bt2i3tC9e3eRPnHiRJFfNtKLFy/KRRUrVozT +ZEW2UhpkJJzrlixQiyioZATFUYaGBgo8lSpUmXgG9q0aSPSqfKUk8zBcmjO lClTq1atNm3aZLMFbJpAoUKFRLH81BKj3khlJZA5d+7c7NmzqXHIi+QSSGk4 g2ykISEh8rpFihQRjUMfDxw4IHJWqlSp7xvkGyNXrVpFOX18fCzrXLZs2eHD h9PRgYPmIJ5aIntPKg8dR4jv5RnGZCOVjz5kSJPmzZtHple8eHG55mRHnEE2 0mPHjokV5c3EDys9efJEHD35+fnJ3yI/4sdG2rhxY5FCdiriME+ePJzIUk0I i5MpV67cmDFj1AiP40b6+eefi8lI1ceDylC0Hs+OBJWauHIpMFLgLmCknoKR 93c9jVQecJNCfr5JNtL79+/LRYnHo/Lnz//6bSPt3bu3nHPPnj1iEV/if21h pFR/mxWbMWMGrytfRVVQo0aNR48eWWkBmyYgfhdB20Wkb9u27Ys3eHt7izyW Rvr1118ryoyOjpbdQEHGjBk5m2ykkZGRcgmk/ZzO11WXLVtms7mmTp1KOcPD w+Wnh2RIP5YvX+6IOciTO8kTL8jIcxfQD3z9tpH26tVLkZ++Vz4MUUCHHpxN NtJ//vlHrL5o0SKRzkZKjiRSyC3l79q6datYxEYqLnMnRc6cOXndiIgIK6/0 km+Zti8OZSNt0qTJCDPjxo2bPHny0qVLFW9rUh8PKkPRejw7ElRq4sqlwEiB u4CRegpG3t91M1KSHPnGOSvw/aWv3zZSedwnypYty+mffPLJa4tn7eWc69ev F4vIAThRYaR///23yFO4cOEGiUEDsSgzKCioX79+efPmtaw8a09S2DQB+cma Fi1aJJqH3FjksTTSAQMGKPI3bNhQ/nWkYStXrhQ3N2bJkoWzyUbKt6cKhANX rFiRPv75558iJ3lR3cSYP38+rxsTE7NgwQJydcsHsckfFJMGaDKHrl27iqLI lxLNIz/ZzW9uko108ODBivxkX2Jp0aJF+/btu27duk6dOnGKOBkrG6m4vk/Q IY9IZyOVv47vMBEsXLhQLGIjFbdZmsyP+VjCj18xT5488ff3r127tuUEESSl 5H6OxKGVZ+0tUR8PKkPRejw7ElRq4sqlwEiBu4CRegpG3t91M1LZtawjnm+S jXTOnDmiKBptxTPI7J+ykZIoynfTkauIRUJrFUZ64cIFkadz585i3fj4eFqU kJAg/xAaDY8fP37q1Cn6Ozw8nLyifv36YvXPPvvMSiPYNAG5JsTatWsVGR4+ fCg/7GxppEOHDpXz0+gsrhqTD4h5eOiHc6K4YVU2UpJeuQThPDy7Dv12kbN9 +/Yi571792gROZhIoZ0rNDR048aN1Gi01cj8Bw4c6OXlJVbftm2b3eYg3wRC 8cBbREZWvkyZMtEPef22IioOH6iG4qCJ3E882C5eVJotWzZOkY306tWrogRL IyXE02oUdfIpdHF7qumNkcoTi126dEnkDAsLo7aVq/r8+XPKQK1HXkpttWfP Htru8iP84uF9++JQk5GqjAf1oWglnh0MKjVx5VJgpMBdwEg9BSPv7/oYKRmj uEOSBv1z587dept///1XzBgjnm+SjTRPnjykf1yU/BLSadOmvbZ41n7YsGGs EyR44r2H9IcwVYWRPnv2TDzwS+oi7hAgO6WUNGnSlC1b9sSJEy9evBCXSnPm zClOQ1G6sI5Ep2oX2DQBQr6r1mQ+R3T06FEafGkU9vf3L1eunLzU0khHjhwp l7Zjxw7Lwf3y5cs5cuTgxESv2ufOnZuE6rFZgL/++muRPnHiREqMjY0Vz1zT 6uISPz+qQ5vP29v70KFDpG3iAZxx48aJKtEmEwWSODliDo0aNRJFkTb/9NNP JG8kaSRCijfViuePZCOlWsml7d+/XywSskoeRdtaxAYnajJSIbSEr68vbSyK nEGDBsnVY4GcPXu2vB15dTqM4makoO3Zs+dr89wOYjopOtAT3z5z5kyx+uHD hx2JQ01GqjIe1IeilXh2MKhUxpXrgJECdwEj9RSMvL/rY6S7d+8W40WDBg0S zSNfhOXnmxTzkZIPNG7cWFyvN5nfY/7A/IYay/lIKVuTJk3k2Q7lp/UtZ3+i pSJn3rx5SRhk2ylatOjz588pGymBSCxevPi3335L6iKmDDK9bQiWqDHSe/fu KZ74sMLWrVutj+CXLl0Si6g1+vfvLz8pw/CboRTzkVJm2lLyPavUaOKdOJMm TRLpVFq/fv3kE8WFCxem7UJHEOKxaDKopk2b/vDDD+3atRPHCHxx2RFzIJ+x vGZtCQWDONFtxUhv3LghFlGw0cYlcZLvzUiVKhUdvLzWaKTy1BBJwUZK/i+f 62vevHnfvn3lCvCtIxEREcLK3nvvPcpGm6NTp07ZsmXjRFY7R+JQk5GqjAf1 oWglnh0MKpVx5TpgpMBdwEg9BSPv7/oYqTwlY0BAQFI1EXn4+SbZSC3fUEMD k3g9qGykid6tWrFixSdPnojvsjTSx2+/L0mGRs+DBw9ytvv378vzcyqgRfLE U5aoMVIiMjLS8h1VCshat2zZwvmtjOBEs2bNLFeXW4mOFx6/baSW78Sh/LKZ 0KDfokWLRCtGW4oLfJz0FAFMUi+l0mQOp0+ftrJFiLZt28qXvK0YKfHFF19Y liBPfc+RoMlICQpUxTubqD3lQx5xkX3nzp1CLBW0bNlSTB61cOFCK5a7du1a 643mdCNVGQ8qQ9F6PDsSVOrjykXASIG7gJF6Ckbe33Uw0ocPH4oHEPi1g4lm e/XqlZjTyWR+L6RspDS+y7O+FClSRH57uGyk33777ezZs8XZUfrqHj16PH77 lJG4Rt+pUye5AlOmTJHnXzKZz+iKd0cyNPiOGDFCoQ2ZMmUaO3Ysz6luBZVG SpDZLl++3NJLaXynYZ2sXrw+ibh7967IMHr0aEVRN2/elKe+TJ06NR0ghIWF iY3St2/fx28baVBQkHzil9pk165dimIfPXo0fvz4AgUKyNWrW7eueBcks3nz ZsupiqjwHTt2OMscEhISJkyY8OGHH8rPudAWqVat2rp16xSZaX8Xeb7//nvF Utq4fKsGQxpJEXL9+nVxJpafl5cnqqWlYnV5Qqdz587JJe/bt48Of/Lnz589 e3by3q1bt27cuFFkFrOPvja/44m2u3wI5uXlRU3NZ+kF5K7ynagM7SNJvVBV UxzOnz9flGnz6XX18aAyFK3HsyNBpSmuXAGMFLgLGKmnYOT9Xbcnm+xANlJ+ A869e/eotvyIiozCSF+b7+0MCQkhs+LLrJogsTx06NCJEycUU07JkB5cu3bt 4MGDNOBGRkaKGauso95IBVSHM2fObNu2jZyQtJwva9rBjRs3qOmotklNJC4b KU+FGhERQdpz+fJl6yXfunVrz5491GKKOaNkKFpoW9CvoFYVl/6tY0dc0Ub5 559/qDK0acRzSXYQFRV17NgxOhJROeG8dbZs2bJ69WoqkBpKrtWCBQtEg58/ f16xFkXUxYsXyWNJUK3EcExMDEXF3r17Q0NDH5jvYFGDHXGoHpvxYDMUVWJH UD2GkQKjAiP1FIy8v3uWkSaFpZEmT1xqAg5iaaTuxb3m4ETkJ+j79+/PiWSS Yq6nNGnS2HHc5AjJOQ5dDYwUGBMYqadg5P0dRqonydkEYKQuQn6C3mS+BF+0 aFH5LtDu3bvrXKXkHIeuBkYKjAmM1FMw8v4OI9WT5GwCMFIXkZCQkOhLP5n8 +fMr5hrVgeQch64mxRtpjRo1qlev3rZtW/7o7+9f3Yx4h7Ilz58/P3PmzPbt 20NDQ1XegJQysKOtPBcYqaeg1cqePXtm8xkWTyE5G2lAQED9Nzy2OpvNq1ev GjZsyDkXLFjgiso4heRsAkuWLKnzBuvz5+hDijHS1+Yegwe7fPny8cRNuXPn rlat2oQJE6y/dtZFJOc4dDUp3kh5VgcKMP4oJuZauHChZebTp0/T4ZJ44QhR oECBRYsWaa2hh6KprXTgxo0bv//+e5cuXUqXLu3j4+Pn5xcYGOiswtUYaZ8+ fepINGnSpFu3bqNHjz506JA+MgYeqDPSyMjIX375pXbt2vnz5+fpSrJmzVq5 cuVly5Z59EFlcjbSlIeRTUArKTWuqLtwygNTjmDkOEzxRsqzNNA4xR/FTMvy e5CZ2bNni1kO3n///XLlyol5bsULGlI26ttKB7Zs2SLetCJIlSrVmDFjnFK+ GiOtWLFiUldzyJCvXLmij5IZHDX7e/ny5ZPaUjVr1lS8aNKDgJHqiZFNQCuI K9dh5DhM8UbKU9uVKVOGP86bN4/HqfXr18vZxFtLvL29z5w5w4nUPt999x15 2pEjR7RW0hNR2VY6sHHjRr63vF27dqSmd+/epY0iXrBLG8vxr1BvpDly5Bg0 aNDAgQO/+uqrhg0bisMWsqCbN2/qY2VGRr2R0lEk7bCrV68OCAho27Zt5syZ eUuNHj3a8YBxCzBSPTGyCWgFceU6jByHKd5IP/nkExqSSCT4I+kND1LHjx8X eV6+fClGtLi4OEUJ4v3ISfHq1Ssyk6CgoIsXL4q3Nij477//QkNDQ0JCkpqA WkFkZCTlV0y6m+hXX7p0iXLanJ6CtnVYWFhwcPCDpGdFU9NW+pCQkNCpUyfL W854zuGvv/7a8a9Qb6QfffSRnHjt2jVuKJP5dYouVDFgRs3+PmTIEApXxSSH //77L0tp0aJFHQ8YtwAj1RMjm4BWEFeuw8hxmOKNtGXLlrLDkBOyS9y4cUPk 2bBhAyf+9ddfasrs169flixZtm/fTn+vWLGiZMmS4hJh3rx55fvW4uPj58yZ QwIjZpOgP6pVq6Z4YQRRokQJKpPslySnYMGCnDldunQdOnSwlGTi7t27Xbp0 EWeB0qRJQ7Z24cIFy5zUVjVq1JAvfBcuXHj48OFUgh1t5V5mzpxpMr/9wfGi 7DZSgg49uGVatGghp5Oszp8/n8KjUaNGX3755ZQpU86fP69Y9/79+1u3bp08 eXL//v3bt2/fvHnzrl27jh8/nradZQWWLl1KWk5HBPzx7NmzAQEBf/zxhyiW DoV+++23gQMH0rbz8/P74YcfNm3aRIc/6n0v+ePIs/Yc0kSiO1HyB0aqJ0Y2 Aa0grlyHkeMwxRspjfs0HtFIzR/JB0zmN+HKJzPHjRtnMr/5TuWLJEghTOY3 tIr355LmkUaSQFavXl1ku337dp48eThDxowZSUTLlSvHL+HNkCFDZGSkXCZf MSdXNJnf3kUuJF7uXKZMGcUpUFKUHDlycDl169Ylq+EvSps2rfzyPuLEiRP8 EmQvLy9fX1/yWyqZn2DKmTOn4oStmrayA/I3EjBHShAMGTKEPdDxohwxUoK3 Dh1HiJS1a9eKTSbIlCkTGaO8IumoKTGonQcMGKD4Fr5DYMSIEX///bf8Dkfa RrR04cKFHAYKaFuHh4fb6X/JD0eMlKe/pt3zsdWHwZMtMFI9MbIJaAVx5TqM HIcp3kj58ZzFixeLFPJG8fAO065dO8rTtGlTlWWykZKo0P+lSpVatGjRrVu3 KP3p06fXrl2Tc9auXbtOnTpUWyF1QUFBbBGKS8/iVc59+vR58ObCuni2aN68 eSInaSTLSa1atcTZS9qUfn5+JvN9sPJzHL169TKZ73h8LI3IERERPXr0WLZs mR1tZQckyVTO4MGDHSyHjhfo11ENZ8yY4WBRrx020ixZstCiqlWr8sc//viD t1SuXLlILKdPnz5w4EChi3v27BErspGSavr4+HTs2JE2EAUeHzUQCn1lI1W8 pJuNdPfu3Xx0QzVp2LDhoEGDSNTpqIozhISEOCqCyQa7jZR2Or7ckC9fPscD xi3ASPXEyCagFcSV6zByHKZ4Iz1x4sSQIUPk99JOnDhx5syZcp6PP/6Yhq1+ /fqJlPDw8FkS8+fPl/OzkRKVK1eOiYmx8u2J3t7JsyqVLl1aTmQjtTyXWK9e PUonNZLrz4Os4gZX2pp58+alRfJpUl9fX5P5MveTJ0+s1JNR01b2sXPnzrRp 01LhjhTyyy+/mMyz+tgRM5Y4YqRLlizhACCxp490PMLnqKtXrx4ZGSmyXb16 lbcItb9IpNBatWoVrSIXGBoayudX6ShDThdPUWXIkIFa76+//qKtQ9U+c+YM ByHpaFhYmLzKunXrKJ4t7xbwXOw2UnGY4GDguREYqZ4Y2QS0grhyHUaOwxRv pGpgI+3bt69IWbt2rXxKKnv27HJ+loHMmTOTcqj8ivj4+MOHDy9evHj48OE1 a9bks2RyBjZS+l7FirQKi4dIadq0qcn8Bt6HFnz++ee0SPbnbdu28fSMxYoV +/HHHy9evKiywk5n+/btJKXDhg2zb/WQkBDWM2dNjmqfkdJRwPTp0/n23TRp 0gQFBVEiHUfwBlXIITFjxgy+anz//n3r39WtWzeT+VYKOZF/Mh34WBom2a/J PA9AVFSU9ZI9Hfv2dwp13kz0f/K5EVorMFI9MbIJaAVx5TqMHIcw0tdvbjZr 1qyZSCEBGG+md+/eSRmpn5+fmsLXrFnTsmVLedZ9gZwtKSPduXMnZxavoeHT blZQzNi5efNmcTHXZL4rdeTIkYq7CxznpQq2bNlCFkdOrrXwS5cu8a9u0aKF ynt9baLeSGnbVatWjbSwQIECYopaYtKkSZytY8eOJvPLFP60gG9RJk6ePCmX fOXKlblz5/bs2bNJkyZ0QFS4cGGeDJbKl7OJ+0gt6zZ27FgumY5Qdu3aFRsb 65j3JV/s2N+pVxG33dIO6JSAcQswUj0xsgloBXHlOowchzBSghTOlMSTTadO nUrKSLt372692CdPnnTq1IlyvvPOO7Vq1Zo1a9aRI0fo91Ll1RspWY3J/NiL eJFE7ty5KaVkyZKdkmDjxo2KQhISEsgGqcLiSSsyn169ejn4yJLg7Nmz1iVZ gWUNrfDvv//my5fPZJ7qXM29BypRb6SWlChRYseOHSJbpUqVbP7krVu3cmZS RzJMMfeCAvVGGhwcLOtxpkyZqlevPmrUKDrWcNgBkxda9/c7d+6UKlWKm2Xq 1KnOChi3ACPVEyObgFYQV67DyHEII30tXaP/+++/FYscMdLly5ebzPc97t27 V04/cOAAf52cmJSR0pDKCiRS6tevb3r7HgP1kHIHBga2bt2aKzBp0iQ7CrHk +fPnl1SwevVq+tLOnTurf7FjeHh4gQIFTOY7acnlnFJbRr2Renl5jTFD22Ld unUUEjExMXI2rmG2bNmaJQ1f3ydE46dPn56agjYBNcuePXv4qr16IyV27txZ tWpVhdOSmo4ePdoBAUx2aNrfIyIiSpcuzU0xfvx4JwaMW3CWkQIAgKfg5G7U rp5TPU430hcvXvBD3JUqVYqPj5cXOWKklIGydezYUZG+ceNGlUb67NmzQoUK UXrbtm1FIvmGyXwDoZq745KakL9x48YmaTJ8HTh9+jTVmVpD/YnZEydOkA2a zK/sFDctOAsHn7WX4eley5UrZ1Oubt68ybf1UqSRosuL+Cq8JiNlzp8/v2TJ EjpCoQoIL12xYoXNyngK6vf3Cxcu5M+f32S+cXfOnDnODRi3ACMFABgNJ3ej dvWc6nG6kRJilkjSj9DQUE58/PgxT4Bpn5H269ePsn344YdCCxMSEiZMmCAe oJYzi/lIeeJ94tGjR+3btzeZL9mfPXtW5IyOjuabKitUqBASEiLSqXB/f3/5 rjkazUuUKFGnTp2TJ0/K33Xv3j1+ZXyfPn1Uto+DUD1JR9u1a6deR3fu3Jkx Y0aqZIMGDVS+6EoTTjTSHj16mMxPNl2/ft16Tj5LTCxdulSxyG4jlQkICODy eRKAlIHK/Z3ycFSnSZNm5cqVTg8Yt+AsI3X3tTjPgNsqGqgAceU6jByHMFLB 1KlTxY15pE9kkmKWyCZNmsg5VRopVZJPiJFtdurUqX79+vzwL09kmqiRMqSR devWFbNZjho1SlHy3r17M2XKZDLfoVqlSpXOnTs3bNgwV65clPL++++Ld48e P36c78BMlSpVkSJFmjZtSpJMmbnkbNmyyRM9uQ7S6Zw5c7Zp08bmS1EFBw8e 5Gn8+XCA1JQ+ppbo0KGDg7VyopGKWYZ8fX0tl9JetmDBAv570aJFnPPnn3+W 89y/f7958+aajPS3336zvGU0NjaWY7h3797W6+xBqNnfly1bJuZu3bdvn4Ox kXyAkeqJkU1AK4gr12HkOISRyhw9erRq1app06ZlbSCRK1my5Pz58xVPPH31 1VcqTzCuWLGCH0RiSpUqNXfu3JcvX2bNmjVRI505c2bjxo3FYy9eXl4BAQGJ lnzz5k2yMvkRfvJnMiL5rOlr89NVs2fPrlChgvhR/LuaNWt2+vRp7S1kD8eO HfPz81Ovo6+lmSSTQr6NwT6caKRErVq1uGJ03HHgwIGoqCjauQ4fPkwblB/6 jouLo2yBgYGcrXDhwv7+/levXg0ODqaQKFq0KKerN9LixYvTAc64ceOCgoL4 taHnzp0bOnQol7Nw4UINzpe8sbm/UwuIwKAG35EYtGs7GDBuAUaqJ0Y2Aa2o j6v9+/fTGDR27Nj169fTsOXqjZgCMHIcwkgtSUhIOHPmzMmTJxX3lNrHs2fP SBX27dtHlmIlGxvpunXr6G8SDFKXy5cv2yz8xYsXYWFhNNpeuXLF+uNClDM8 PPzIkSNUGaf8Lk/HuUZ69uxZYZV87lp+EF4YKdGiRQsrpq3JSMVadLjBF6yZ OnXqKJ698mhs7u//92byCit4e3vrFVnOBEaqJ0Y2Aa2oiSsaccShuuCbb755 +PChPhvUQzFyHMJIkwlJPWsPXIQaI/3kk09M5sf81YjT/fv3x44dq3jRPKlp 3bp1582bJ7LduHGjQ4cOcp5cuXJNnDiRH1gjBZXL5HPgo0aNsvy6VatW1a9f n28LEWTNmpUyK14I5enY3N8PHjxo00jLli2rV2Q5Ezca6a+//jps2DA6tHH6 gJtsUW8C+/btmzt3Lh0qTp06dcOGDbRTu3qkTm7YjKuoqCjxrGX+/Pmp0+PH VE3mK1y6bVNPBEbq5G7Urp5TPTBS4DhqjNQ+rl+/vmfPnk2bNp06dSqpFyqd P39+zZo1ZJUHDhzga+72QbtwSEjIZjOnT59Oke9vSpH7u0rcZaSkWywPkZGR rhhzkydqTODkyZO1a9dWHO+QcdG+rMuInVywGVfTpk3jxvnxxx/5pGhcXFyX Ll04MTQ0VK+t6nnASJ3cjdrVc6onRY5QMFKdcZ2RAueSIvd3lbjFSHfs2CHu OYGRylBriHeB+fj49OrVq0WLFvwM5jvvvLN9+3bdBm63YzOuqlSpYjK/Fpky i8Tg4GBuvRkzZrh+e3oqMFInd6N29ZzqSZEjVKVKlby8vDZt2uTuihgFGKmn kCL3d5XobKQxMTGDBw+WbwWBkcoMGzaMm2XOnDki8ejRo/ykaunSpV0/YicX bMbVtm3bpkyZEhAQICfSivzc7qRJk1y8MT0YGKmTu1G7ek71GHmEAs4CRuop GHl/19NIDx8+LD8uByO1hN8XXLt2bUX6Dz/8wM117do1Vw7XyQj77gYZP348 N9TJkyddsQVTBjBSJ3ejdvWc6jHyCAWcBYzUUzDy/q6nkYoTgJ07d/b394eR KoiKivr0008LFCgwduxYxSLRXEePHnXxiJ1c0GSkBw8epEbjB0WJL7/80qXb 0dOBkTq5G7Wr51SPkUco4CxgpJ6Ckfd3nY20du3au3fvpr/XrVsHI1VPr169 TOaJMu7cueP0MTp5oslIS5cuLc66f/bZZ48ePXLpdvR0YKRO7kbt6jnVY+QR CjgLGKmnYOT9XU8jjYuLE3/DSNVz8uRJnje4Ro0arhijkyeajLRmzZqNGzcu X748B1W1atVOnTrl0k3p0cBIndyN2tVzqsfIIxRwFjBST8HI+7tbnrV/DCNV TXh4OD99T1JqnEv20fbeR/rnn3/y2wOp0eLj412xEVMAMFInd6N29ZzqMfII BZwFjNRTMPL+DiPVE60mcPHiRTEJ/IQJE1w3TCdD7Isr4vvvv+cW27t3r9O3 YMoARurkbtSunlM9Rh6hgLOAkXoKRt7fYaR6oskEAgMDCxYsyK00ePBglw7T yRA1cUXZYmNjFYniDWuLFy922Zb0bGCkTu5G7eo51WPkEQo4Cxipp2Dk/R1G qifqTeDvv//Oli0bN9H48eNdPUwnQ6zH1b179/LkyUONM23aNMUiajput02b Nrl4e3oqMFInd6N29ZzqMfIIBZwFjNRTMPL+DiPVE5UmsHTpUn6Uif5fsmSJ DsN0MsRmXPHctuXLl1fcL9q2bVsOrevXr7t4e3oqMFInd6N29ZzqMfIIBZwF jNRTMPL+DiPVEzUmQDrK77TKkSOHoV4bqsBmXH333XccQl27dj1//vxj82QO I0aM4MSOHTvqtVU9Dxipk7tRu3pO9Rh5hALOAkbqKRh5f4eR6olNEzh16hQ/ Kp43b97AwEDdhulkiM24io+Pr169upiG1Nvbm9+1SpQsWfLOnTu6bVaPA0bq 5G7Urp5TPf8HAACGwZF+FUaqHpsm0KBBA26WESNGrEwMvEVUhrKNHDmSHZ6h v4cMGULp+mxQDwVGqrXHcxYwUgAAsI4j/SqMVD3WTWD//v0mW+zcuVPP4duN qI+r2NjY4ODgTZs2nTlzBnOQqgFGqrXHcxa4ag/cBUeRu69IA9sYeX93l5Fu 2LCBFevmzZuuGHOTJ9ZNYM6cOTaNdPfu3XoO327EvrgCaoCROrkbtavnVI+R RyjgLGCknoKR93d3GakxMbIJaAVx5TqMHIcwUmBMYKSegpH3dxipnhjZBLSC uHIdRo5DGCkwJjBST8HI+zuMVE+MbAJaQVy5DiPHIYwUGBMYqadg5P0dRqon RjYBrSCuXIeR4xBGCowJjNRTMPL+DiPVEyObgFYQV67DyHEIIwXGBEbqKRh5 f4eR6omRTUAriCvXYeQ4hJECYwIj9RSMvL/DSPXEyCagFcSV6zByHMJIgTGB kXoKRt7fYaR6YmQT0AriynUYOQ5hpMCYwEg9BSPv7zBSPTGyCWgFceU6jByH MFJgTGCknoKR93cYqZ4Y2QS0grhyHUaOQxgpMCYwUk/ByPs7jFRPjGwCWkFc uQ4jxyGMFBgTGKmnYOT9HUaqJ0Y2Aa0grlyHkeMQRgqMCYzUUzDy/u4sIwUA AE/Byd2oXT2neow8QgFnASP1FIy8v8NIAQBGw8ndqF09p3o09dI1atSoXr16 27Zt+aO/v391Mzt37kw0/8uXL8+cObNv3z4aCrVWzDhobdVkiN1GGhER4Wzn AtaAkWpdy9JInVytFAq3lbuv2XoGiCvXYeQ4TPFGmiZNGpPJlDt3bv44adIk k5mFCxcqclJr+Pn5Zc6cmTO88847lSpVIjvVWj0joL5V9eH27duzZs3q0qVL 2bJlK1So0Lp162XLliUkJFhZRZORHjt2rFevXj4+PlmyZKGfmSNHjpo1a/bt 2zckJMSlMgYeaDfSV69eNWjQoEqVKidOnHA0sNwNjFRPjGwCWkFcuQ4jx2GK N9IMGTKQQuTPn58//vTTT+xOS5culbPduXOncuXKvChbtmzFixfnvzNmzLhl yxatNUzxqGxVHSD9WLRoEW0ykwUffvhhTExMUiuqNNL//vvvxx9/ZAO3hNqB TFgHKzMyWq1s3bp1vHU86Ix9UuhvpEePHp03bx7FPPV70dHRWr/aozGyCWgF Ruo6jByHKd5IP/jgAxqbypQpwx+ps+XRav369XI2Pz8/Pi9KevPixQtKuXTp UrFixSgxS5YspCVaK5myUdmqOnDv3r3333+fvrply5abN2+OjIzcv3//0KFD 2SE7dOiQ1IoqjfTzzz/nn5Y6dequXbvOnj1706ZNP//8c9u2bYWX9ujRQwcx Mywq9/e1a9dOmzatefPm7777LozUDiONiIioW7eufMCVKlWqAQMGvHz5UmsF PBQjm4BWYKSuw8hxmOKN9JNPPqGutWHDhvyRDvy5sz1+/LjIc/XqVfINSpw6 daq87o0bN/hk4I8//mjlK169enXz5s2goKCLFy+yzVpCThsaGhoSEvLw4UM1 1X769GlwcPCdO3esZ7t79+6JEyfIytSUGRcXd/LkSZtlUlSEhYXRtz9I+k5a Na2qG4GBgRs2bFAkfv/991QfLy+vpNZSY6QbN27k35UnT57du3crlpJ+Z8+e nQfuQ4cOuUrIDI/K/b1gwYKKM9gw0teqjfTRo0cfffQRtxu1ZJcuXfhAj+jY saPWCngoRjYBrdhhDvPnzx89evSTJ09ctPlSDOrj8MiRI4sWLRozZsyMGTO2 bt0aFRXl6u3ualK8kbZs2ZI61a+//po/khNyN0u2KfKMHDmSL9CTsylW7969 Oy3KmTOnnNivX78sWbJs376d/l6xYkXJkiXFIJg3b175lEJ8fPycOXPI30ha xGmHatWqnTt3TvFFZcqUoTJpXKAYa9CgQfr06Tk/FU7GZfm7SALl782UKVMW iQsXLsiZyZ1KlSol6kBjDbm3pTxTq9aoUUM+Q1K4cOHhw4eT99rRqu5l5cqV fGIzqbtJbRopHUSULl2afxdtlETzkAlzhk8//VQkkvYvWLCAOgr+SIcApEb0 kTJzCm39pUuXjhgxws/Pr0WLFl27dh06dCjthrGxsYry5aKuXLkyd+7cbt26 NW7ceODAgVRmolWiGF69evWgQYMoij7//PNRo0bR1y1ZsoTKOX36tGX+HTt2 TJgwoW3bts2aNRsyZMiqVasSLXbXrl10XEZV9fX1pcJ//fVXOmyx0npOROX+ Tn3yGDNkUDBSrUY6c+ZMbrTJkydzD0Y7DgUbJ166dElrHTwRGKl6tJoDdWIc S/fv33fdFkwZqIlD6tUVVzSIAgUK0FivTwC4iBRvpP3796ct9cMPP/BH2h3o 47vvviv7GFkBJbZv395y9X379vG2lq2MxmVKIRedNWuWkLeCBQumS5euevXq Itvt27fz5MnDGUh3SUTLlSvHlxQzZMgQGRkpfxFfB6d6vvfee++8807ZsmXJ Bnnd7NmzK1T5zz//5EVVq1YlOalUqRJ/zJYtG2kqeZRceOfOnYXctm7d2sfH h8qnjyQ2cpknTpxgDfby8iLr6NChQ8WKFfnaNwm54tSumla1g4sXL9KA6EgJ zLNnz3hvpTZPKo9NI920aRO32xdffGElG20CzkYHDpxC5ib8vFevXtzaBDUm Z6BNYEqMQoUKkYLKhYuiKNIs75UdO3asojLUgDVr1ky0cOLnn3+WM1OQtGvX zjJb7dq1ZduMiIiQj1MEFPMk0rZ00glotbIDBw5wDWGkr1UbKcck7fs0KIjE 8+fPc0vSYbXWOngiMFL1aDKH/fv3i1vxYaQ2sRmH1IbiURdSjr59+9LIzi1M ww1Ji25h4HRSvJHyQzeLFy8WKeSN4pEchkSR8owePdpy9WvXrvF2l69Hs5Hy Ra5SpUrR0d+tW7demy+1U355dRrc69SpQ7UVqhYUFJQjRw6TdIKRYSMlaGgI Dw/nxNWrV3Pi3Llz5cy5cuWixG+++ebVq1evzbcN8H2wFJaK+i9YsMBkPlX4 xx9/iMRjx47x5WaSapFI7kQp5cuXfywNSWQjPXr0WLZsmaJYNa1qB+QSVM7g wYPtWz02NpZUyt/fn28qoOH19OnTSWW2aaTkb9z4mzdvtpJt4cKFnI0ak1OE RubNm1dWOIWRkn82bdqUmpfCSZzuLlasGB37iMJFUUyWLFlq1ar14Ycf8kfq fGSDvXfvXpEiRXgR/UFHWF9++WWVKlXE6rKRxsTElClThtObNGlCXzR+/PgG DRpwSr169UTO+vXrcyLl79atW8+ePan+tJkohYRWi1raCYxU61p2GOnevXsp PNasWSMnUlfAx1O0v2utgycCI1WPyrh68uTJiBEjxK3dMFI12IzDUaNGcWPS +C4Sg4OD+awFddSu3/6uIsUb6YkTJ4YMGUIH+yJl4sSJM2fOlPPwjE8K62MS EhJ405McikQ2UqJy5cpWnuZ+bT5ZZ5nIcyWVLl1aTmQj/fzzzxWrsL30799f pFy+fNly175x4walvPfee48ln6TeIGPGjJQ+bdo0RR1mz55tMp8NEym+vr6U QgKj5j4fNa1qH2QRadOmpcK1rrhnzx5Z3vr160eCaiW/TSPt3bs3F3Xu3Dkr 2cT3ktRxiqyRn376KcUVHYaQG2/ZsoUzrF27llIU5QwaNIhX2bVrl0gUReXL ly8gIEBc1p8xYwanU0OJzHzzCUGHzNHR0SKdeipLI50yZYrJfJ5z5cqVcjXE N/7111/08Z9//uGPAwcOlLNdvXqVYpKOYqy0jLOAkWpdy1mzP3GQ8C5gXwme BYxUPWriio6X5VvLYKQqsRmHfJ6hbt26inQxDePt27ddufFdSIo3UjXwSctf f/3VchHpGW9i+SlyNlLyWBqXVX5FfHz84cOHFy9ePHz4cL6uSvYoZ2AjJVdR rMg3ssonP8WltLCwMJF49uxZTpSfciJvZOu4efPmw7c5evQoLaIvFZm3bdvG 50OKFStGWnLx4kWVP83pbN++naR02LBhmtYKDAwsWrSomE42Q4YM5HiPHj1K Kr9NI+Vzg3R0/99//1nJdunSJf7GLl26cIqQujlz5sTFxan0LlHOL7/8IhJF UbSbyJnpOIgPhykwOIW+KFOmTJRStmxZxZfS1lcYKZktT6zas2dPRTWoZD4D z1fkKSp43cmTJ6v8IU4HRqp1LQeNlA6XKPDEbHiKqzkpGBipetTE1ejRozmE vvrqK76xH0aqButxSIPaZ599VrBgQdpJFYtEIwcHB7t4+7sKGOnrN0+Okyta LhInJGkTi0Q2Uj8/PzWFr1mzpmXLlnyVU4GcLSkjHTx4sMl8K6NIefnyJdsI OYNIHDBggMl8Y7O8rriZ3Arygz+bN28Wl31N5pP/I0eOVNyH4DgvVbBly5Y0 adIkukVscuvWLZK6nDlzmswngZOau8amkVavXp1KIDe27ksRERHcXL6+vpwi NNLySSUBSSON+zNmzGjfvj1Vsly5cuIS//fffy+yWSmqYsWKlE5dE3+8cOGC pdAylkYaGhrKKaT9f1pQokQJWtSqVSvKeffuXZ5uwsvLa8qUKRQM1lvDFcBI ta7loJGK2zmIWrVq8a1BRgBGqh6VRlqvXr2DBw++Ng8uMFKV2B2Hffv2NZlP dtH44vQtrg8wUqJNmza0HVu0aGG5SJwjkq/Os5F2797derFPnjzp1KmTyXy/ H3Xss2bNOnLkCP1eqrxWI1XUbc6cOSbzyU/a38kT6tSpw8/RL1myRM7GN5ES nZKgS5cuiq8jQSUbpJ8mnslKnTp1r169HHxkSSDO5apk48aN9n3RmTNneEYv UqxEM9g0UnFvxr///mslG21TzjZixAhOsWmkdHRjeTFLoNJI+Uw7aTN/FA+7 UYspcloaqchsBR8fH84snoxjihUrRu5t+S2uA0aqdS0HjZT6k2bNmlWoUIGb kWJMMXdHSgVGqh41caU43cHhBCO1iX1xeO7cOXJRk/ko0hVbXB9gpMT48eNN 5iMLy52lQ4cOJvNdfHKiSiNdvnw5ZcuaNevevXvldDFiyomajJQKFFM5Mbly 5SL/VKwrZMly+iabvHr1KjAwsHXr1lzCpEmTtJaQKM+fP7+kAn6ki1zIkdm5 eUgdNWpUokttGumECRP4t1NrW8lGuw9nE9M9WTfSQ4cO8eV1omLFit9+++38 +fOpuz58+LAmIyVtkI3U39+fc1rOm2pppOKNBlWrVm2WBMOHD+fM9NWzZ8/m R+FkaN3jx49baRlnASPVupaz7iP9+++/+eJOiRIlnHVMmpyBkapHa1zBSNVj RxxGRETw0/ekMadOnXLRRtcBGOlr8zzzPPHRmDFj5PTw8PC0adNS+owZM+R0 lUbKt4Bazi8t5l2XE9UbKR14kh7wXawUe9u3b79w4UKij1DFx8fzjBBqLn8n NXV/48aNTdJk+Dpw+vTpHDlyULupGQRJWdevX28prtQgPMU32VSiK9o00lWr VvFmImm0ko1PgxOiNOtGKp5g+v333xWL+CjDPiMlEeWc4pF/gaWR7tixg1PI /K38NJl79+7xzKVffPEF34NKeHt7q1zdEWCkWtdy4nvtJ06cyI1JR0x2F+Ip wEjVAyN1HVrj8Nq1a+L1FlOnTnXdRtcBGCkzcOBA3qCzZs3iaw1nz57Nnz+/ KbHZOFUaab9+/Uzmt6uL1alkGtP51LrdRkqebDLf33jlyhWbv4vi02S+vj95 8mTZWsPCwqjkx28ezKdxv0SJEiQ5J0+elFcnD+GTY3369LH5XU4hJCSEdLRd u3Yqz8nwmcyaNWvKjwNHR0eLt3zSdkx0RZtGSrt51qxZqQQ6Wrl8+XKieYKD g/lxsAIFClBPy4nWjbR8+fJ80slykSNGKh6M+uqrrxQ5LY2UjmU4hfTYSgsk xa1bt8QUuFSUHSVoAkaqdS37jJR6A8sD26CgIG7M5cuXa62GxwEjVQ+M1HVo isMzZ84UKlSI23b48OEu3eg6ACNlaMQX8y5mypRJ3EWZLVu2/fv3KzKrNFKq JOsK2WanTp2ofH4SXBzOyJnVG+mrV6+KFi1qMj8G7u3t3ahRo8ZmyMH69++/ detW+e6dly9fNmvWjL8ud+7c9HeHDh0+/vhjrpiYXuD48eP58uVjdy1SpEjT pk1Jpzt37syzEFAjyBM9uQ6yR/L/Nm3aPH/+XOUqW7ZsEa87pHWpNUjVxGXx iRMnJrWiTSMlSOO5nLp160ZERCiW0qGBELNly5aJdOtGys+O5cqVKyYmRk4/ ePAgr2WfkT5447rkz/KF+4sXL4pp8OXZn/jxpTRp0iR65Z0OTLgQWrp+/XrL DGPHjuUyqXzLpc4FRqp1La1GGh8fnzdvXtr3f/nlF8UiMbnZjh07tFbD44CR qgdG6jrUxyHtnuJ+qilTprh6o+sAjFRAIjdw4EChNzRY16hRI9FJkL766iuT utOGK1asIA80vaFUqVJz584lS+STb3JOftQ6KSP19fWVE3/77TdT0rRs2dKy GvJD9AQ5Leno47cnL509e3aFChX4RgWGBimSWCvzzDuXY8eO+fn5qddR5u7d uz179ixdurR4O5LJPAmSPIWsJWqMNDo6ulixYlxggQIF/P39yZlJDk+dOjVv 3jwvLy9eVK1aNXkt60b6xRdf8NLevXtTBUh0Saq//vprcWOw3Ua6Zs0azvze e++RmVNL+vj4yFtTNlJx4Z4ON6ZPn37lyhVKvHz58rp167788ktqyZEjR1LK 0qVL+Vs2bNjAD9rfuXOH1uUXihUsWNDKfALOQuX+/vDhw1gzdFDGP41cmlOS uiMl+aPbOVJ+1I52f8W1CfFKVjvuRfc4YKTqgZG6DpVxSMM6X2+l/wMCAnTY 6DoAI7UkLCwsMDDwsWRrjvDs2bNz587t27cvKirKKQWStZIwlC9fPjQ0lEo+ bYZcbuXKlfXq1eO9PtH3y8fExJBKBQUFKd5JqoCGpPDw8CNHjlDh8fHxTqmz PlBtqSmOHz8uT8qaFGqM9IF5injFezkVz5Q1b95cMSeSdSM9fPgwTwKgQLxl z24jJcQEgDIiKmbNmiVnHjVqlPxbZHclZCMV0PGa0H76Q/1tqI6gcn8Xl64s 8fb2dkJ4uQPdjFQ8x0cHMv/+++9r8xG6OBPetWtXrXXwRGCk6oGRug41cUg6 yl1xzpw5Pfq1oQpgpB4Hz5N54MABy0VnzpzhvV68hxQkhUojfWCeO3TatGnF ihWT/Y16gxIlSsybN88yPw/ulDmp84d0TCGfOaec9evXp4MgfteeePeT9aLY M2vUqKFI3759e//+/T/77DMqc8CAAZs2beIbj4l169YpMh86dMjHx0dhyHnz 5qUSyO0fmG9PHTx4sOJ1qPy9O3fuVNN6jqNyf+fTtolSpkwZ1weUS9DNSOk4 VD7yKlu2LE96bDK/Xc76MWyKAUaqHhip67AZhxcuXOATCPny5aNBX7eNrgMw Uo+Dp0a3fOfp8+fPu3XrZjJfkXdLxTwL9UYquH37Nh2NLlu27ODBg/Lb5+2A Vqei/P39t2zZQtbnSFE2EVexT548mWgGPnn+559/7t+/P6knla5du0YHQeTS 1Gg6z5Nv5P1d5yebxo0bJ7/Lg/4eOXLkYyddLUr+wEjVAyN1HTbjkCfAMZln B1qXGHfu3NEtEpwLjNTjEG8kb9Wq1cKFC//666/ly5ePHj26YMGClJ4jRw7d bvv0aOww0uTP9evXFSn37t2rUaMGB4aYDcCzMPL+rqeRMs+ePTt//vyOHTvC wsKMMAepDIxUPTBS12E9DvkN4NahTkPPYHAiMFJP5Oeff5bf9MdkypTpm2++ uXz5srtr5xmkSCM1mR9O6du37/Tp0+lohY6g+Zl6k3lOXXfXzk6MvL/rb6RG BkaqHq1xJa7UREdHu24Lpgysx6F4FaMVDh48qGcwOBEYqedy7dq1DRs2BAQE 7Nix4+LFi0+ePHF3jTyJlGqkidK2bVvFZFMehJH3dxipnsBI1YO4ch1GjkMY KTAmKdJIR40a1aBBg+LFi+fIkSNnzpyVK1du37791q1b3V0vhzDy/g4j1RMj m4BWEFeuw8hxCCMFxiRFGmmKxMj7O4xUT4xsAlpBXLkOI8chjBQYExipp2Dk /R1GqidGNgGtIK5ch5HjEEYKjAmM1FMw8v4OI9UTI5uAVhBXrsPIcQgjBcYE RuopGHl/h5HqiZFNQCuIK9dh5DiEkQJjAiP1FIy8v8NI9cTIJqAVxJXrMHIc wkiBMYGRegpG3t9hpHpiZBPQCuLKdRg5DmGkwJjASD0FI+/vMFI9MbIJaAVx 5TqMHIcwUmBMYKSegpH3dxipnhjZBLSCuHIdRo5DGCkwJjBST8HI+7uzjBQA ADwFJ3ejdvWc6vk/AAAwDI70q+4eWwAAQBtaezxnASMFAADr6NOvAgCAkUHP CQAAzgX9KgAAaAU9JwAAOBf0qwAAoBX0nAAA4FzQrwIAgFbQcwIAgHNBvwoA AFpBzwkAAM4F/SoAAGgFPScAADgX9KsAAKAV9JwAAOBc0K8CAIBW0HMCAIBz Qb8KAABaQc8JAADOBf0qAABoBT0nAAA4F/SrAACgFfScAADgXNCvAgCAVtBz AgCAc0G/CgAAWkHPCQAAzgX9KgAAaOXWrVvUc758+dLdFQEAgJQAdafUqVLX 6u6KAACAJ3H37l3qPJ8+feruigAAQEqAulPqVKlrdXdFAADAk4iLi6POMyoq yt0VAQCAlAB1p9SpUtfq7ooAAIAn8eLFC75w/+DBA3fXBQAAPBvqSPmSPXWt 7q4LAAB4GI8fP+b78OnQ/unTp7inFAAANEHdJnWefHaUoE7V3TUCAACPhPpP PlMKAADAbqgjhY4CAIAjvHjxIi4u7u7du1BTAADQBHWb1HlSF4qL9QAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAJ/L/AGKU2s8= "], {{0, 114.}, {451., 0}}, { 0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{451., 114.}, PlotRange->{{0, 451.}, {0, 114.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.814650025623559*^9, 3.814650117098611*^9, 3.8146503169925613`*^9, 3.814650364763309*^9, 3.814651860605022*^9}, CellLabel->"Out[2]=", CellID->48765016] }, 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["Michael Sollami", "Text", CellID->820284999] }, 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["pretty grid", "Item", CellID->178158948], Cell["pretty table form", "Item", CellID->162432641], Cell["nice simple grid", "Item", CellID->807556302], Cell["smart grid", "Item", CellID->114556309], Cell["auto styled grid", "Item", CellID->879427463], Cell["pretty print table", "Item", CellID->634352040], Cell["itable", "Item", CellID->701845730], Cell["igrid", "Item", CellID->181961207] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "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, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Data Visualization", {False, "Data Visualization"}], "\" \"", "\"Data Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Date & Time"}], "\" \"", "\"Date & Time\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Decorations"}], "\" \"", "\"Decorations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Differential Geometry"}], "\" \"", "\"Differential Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dimension Reduction"}], "\" \"", "\"Dimension Reduction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Discrete Mathematics"}], "\" \"", "\"Discrete Mathematics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dynamic Interactivity Language"}], "\" \"", "\"Dynamic Interactivity Language\""}, "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, "Error Handling"}], "\" \"", "\"Error Handling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Expressions"}], "\" \"", "\"Expressions\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Language Interfaces"}], "\" \"", "\"External Language Interfaces\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "File Operations"}], "\" \"", "\"File Operations\""}, "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, "Front End Utilities"}], "\" \"", "\"Front End Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Functional Programming"}], "\" \"", "\"Functional Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Function Visualization"}], "\" \"", "\"Function Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Games"}], "\" \"", "\"Games\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data and Entities"}], "\" \"", "\"Geographic Data and Entities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Visualization"}], "\" \"", "\"Geographic Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Region Properties"}], "\" \"", "\"Geometric Region Properties\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Transforms"}], "\" \"", "\"Geometric Transforms\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Construction & Representation"}], "\" \"", "\"Graph Construction & Representation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Properties & Measurements"}], "\" \"", "\"Graph Properties & Measurements\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Visualization"}], "\" \"", "\"Graph Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Handling Arrays of Data"}], "\" \"", "\"Handling Arrays of Data\""}, "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, "Image Filtering & Neighborhood Processing"}], "\" \"", "\"Image Filtering & Neighborhood Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Image Processing & Analysis"}], "\" \"", "\"Image Processing & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Importing and Exporting"}], "\" \"", "\"Importing and Exporting\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Interactive Manipulation"}], "\" \"", "\"Interactive Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Iterated Maps & Fractals"}], "\" \"", "\"Iterated Maps & Fractals\""}, "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, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Layout & Tables", {False, "Layout & Tables"}], "\" \"", "\"Layout & Tables\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Life Sciences & Medicine: Data & Computation"}], "\" \"", "\"Life Sciences & Medicine: Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Linguistic Data"}], "\" \"", "\"Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "List Manipulation"}], "\" \"", "\"List Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Logic & Boolean Algebra"}], "\" \"", "\"Logic & Boolean Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Low-Level Notebook Programming"}], "\" \"", "\"Low-Level Notebook Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Maps & Cartography"}], "\" \"", "\"Maps & Cartography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Mathematical Functions"}], "\" \"", "\"Mathematical Functions\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Matrices and Linear Algebra"}], "\" \"", "\"Matrices and Linear Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Molecular Structure & Computation"}], "\" \"", "\"Molecular Structure & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Natural Language Processing"}], "\" \"", "\"Natural Language Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Neural Networks"}], "\" \"", "\"Neural Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Basics"}], "\" \"", "\"Notebook Basics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Document Generation"}], "\" \"", "\"Notebook Document Generation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Notebook Documents & Presentation", { False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Notebook Formatting & Styling", { False, "Notebook Formatting & Styling"}], "\" \"", "\"Notebook Formatting & Styling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Number Theory"}], "\" \"", "\"Number Theory\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Numeric Approximation"}], "\" \"", "\"Numeric Approximation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Optimization"}], "\" \"", "\"Optimization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Computing"}], "\" \"", "\"Parallel Computing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Persistent Storage"}], "\" \"", "\"Persistent Storage\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Physics & Chemistry: Data and Computation"}], "\" \"", "\"Physics & Chemistry: Data and Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Plane Geometry"}], "\" \"", "\"Plane Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Polynomial Algebra"}], "\" \"", "\"Polynomial Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Precollege Education"}], "\" \"", "\"Precollege Education\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Presentations with the Wolfram System"}], "\" \"", "\"Presentations with the Wolfram System\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Probability & Statistics"}], "\" \"", "\"Probability & Statistics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Random Stuff"}], "\" \"", "\"Random Stuff\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Real & Complex Analysis"}], "\" \"", "\"Real & Complex Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Recreational Math"}], "\" \"", "\"Recreational Math\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "RepositoryTools"}], "\" \"", "\"RepositoryTools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Rules & Patterns"}], "\" \"", "\"Rules & Patterns\""}, "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, "Scientific Data Analysis"}], "\" \"", "\"Scientific Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Segmentation Analysis"}], "\" \"", "\"Segmentation Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sequence Analysis"}], "\" \"", "\"Sequence Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "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, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "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, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "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, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVUMFqwkAUhNJoUoqFnnoppJfe8hHBNEWQKj7xvlmfurjZt+x7e0i/\ vptapJ7ewMww86bOK8hABoswWUXxUSqYzk+oz7g/ZHy/\ NCzw3ChR5c5wVNZ8KzHk4GmpBopSvpdb1VlkePsiwY7oXDakY49OOJHrgJzgxfN6lbQUeiVi3DFpxv\ iE4OUmIRGfQfmT0ZwqLgR75qKOQslodAX5OpDHIAM8zJXgkYLBpJyu/Ojmw92l/Hg3MRXMP/\ ZGfqtmrbKMV6Jo0OJ/ZlyAbOzdbeBs4QSDD/j3TVG7AWLHmCZ73CBTDBq3g0fI2+j0qPkBkGp7Ug==\ "}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992173041] }, 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["Grid", "Item", CellID->164243900], Cell["TextGrid", "Item", CellID->954888857], Cell["Dataset", "Item", CellID->161169288] }, 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["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["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[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, 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->40078524] }, 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[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, 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->396992059] }, 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[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "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["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, 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->62394308] }, 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[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, 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->454919203] }, 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["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, 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->"PrettyGrid | 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.857751599540585`16.33890924916509*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.857751599594715`16.338909249171188*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.1"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", 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.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[626, 23, 92, 2, 70, "Title",ExpressionUUID->"fbf6e605-5193-4e62-a630-cf8f0a0dbd2d", CellTags->{"Name", "TemplateCell", "Title"}, CellID->54360235]}, "TemplateCell"->{ Cell[626, 23, 92, 2, 70, "Title",ExpressionUUID->"fbf6e605-5193-4e62-a630-cf8f0a0dbd2d", CellTags->{"Name", "TemplateCell", "Title"}, CellID->54360235], Cell[721, 27, 153, 4, 70, "Text",ExpressionUUID->"92b60f54-9f17-4c69-9636-184baf87b1c1", CellTags->{"Description", "TemplateCell"}, CellID->878922369]}, "Title"->{ Cell[626, 23, 92, 2, 70, "Title",ExpressionUUID->"fbf6e605-5193-4e62-a630-cf8f0a0dbd2d", CellTags->{"Name", "TemplateCell", "Title"}, CellID->54360235]}, "Description"->{ Cell[721, 27, 153, 4, 70, "Text",ExpressionUUID->"92b60f54-9f17-4c69-9636-184baf87b1c1", CellTags->{"Description", "TemplateCell"}, CellID->878922369]}, "Definition"->{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b6ac301b-65ca-4dd3-880f-6379293cc672", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b6ac301b-65ca-4dd3-880f-6379293cc672", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b6ac301b-65ca-4dd3-880f-6379293cc672", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[26766, 691, 1980, 50, 70, "Subsection",ExpressionUUID->"dbf25437-8afd-4121-875b-04991c863b4c", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[29190, 764, 1429, 32, 70, "Subsection",ExpressionUUID->"42b08b84-7b20-4d96-ad7f-6c2e3c3c3b9a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[57905, 1431, 7029, 152, 70, "Section",ExpressionUUID->"16a4dc11-88e9-4ca5-9e0b-909cde2e53b0", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[211152, 4549, 1026, 26, 70, "Subsection",ExpressionUUID->"87d370a1-f334-4473-b982-2e84471c59a6", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[212269, 4583, 996, 26, 70, "Subsection",ExpressionUUID->"bf948745-03c0-47fd-80fd-ad80b5f21032", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[213713, 4638, 221, 6, 70, "Subsection",ExpressionUUID->"2f0d7dd1-16e3-4c1c-81fd-d1a5e1d42cd2", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[242808, 5629, 980, 26, 70, "Subsection",ExpressionUUID->"23180f29-80ff-4ad7-9e7b-36ab0e54b059", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[243961, 5669, 1039, 26, 70, "Subsection",ExpressionUUID->"5d9e3635-da13-41b1-bb8d-54cf70914d5f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[245568, 5710, 1084, 26, 70, "Subsection",ExpressionUUID->"aae035d9-937a-4d15-a72d-8fb389f1f7c2", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[247208, 5751, 923, 26, 70, "Subsection",ExpressionUUID->"5251fa4b-7c90-4a13-8320-12fb1b02e3e4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[248676, 5792, 1874, 45, 70, "Subsection",ExpressionUUID->"e583edf8-f422-4bfb-a126-e27999b958c2", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[250907, 5858, 955, 25, 70, "Subsection",ExpressionUUID->"a838c8d7-89ae-4308-b0cd-0fcf39c67f87", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[251887, 5887, 1174, 31, 70, "Subsubsection",ExpressionUUID->"cc1dbc29-63b7-49a4-b6de-91c45de2d88a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[253190, 5927, 1113, 29, 70, "Subsubsection",ExpressionUUID->"5d474b66-f527-490a-a50f-9987985ade1a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[255664, 6003, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0425a89c-3949-4670-be50-a4f59a8647c9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[258349, 6084, 1913, 46, 70, "Subsubsection",ExpressionUUID->"25f3497f-4043-43f6-9f63-1e819b8afa6b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[263198, 6220, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5e002b4e-89eb-4f9d-8cc7-e02c982bca31", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[265271, 6284, 1155, 28, 70, "Section",ExpressionUUID->"ceedc563-a03b-4bfb-880f-1b627d045c93", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[266995, 6327, 1033, 26, 70, "Section",ExpressionUUID->"9e5c8e9c-5a2c-4a4d-8d69-f30acb8bc344", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[26546, 682, 195, 5, 70, "Section",ExpressionUUID->"c3f2a2c1-c2ae-4315-9bad-f4ccf878a271", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[26546, 682, 195, 5, 70, "Section",ExpressionUUID->"c3f2a2c1-c2ae-4315-9bad-f4ccf878a271", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[210878, 4540, 249, 5, 70, "Section",ExpressionUUID->"a3527aa7-7ac3-40c5-89ad-2726cdc1549e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[26766, 691, 1980, 50, 70, "Subsection",ExpressionUUID->"dbf25437-8afd-4121-875b-04991c863b4c", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[29190, 764, 1429, 32, 70, "Subsection",ExpressionUUID->"42b08b84-7b20-4d96-ad7f-6c2e3c3c3b9a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[29190, 764, 1429, 32, 70, "Subsection",ExpressionUUID->"42b08b84-7b20-4d96-ad7f-6c2e3c3c3b9a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[30622, 798, 691, 22, 70, "Notes",ExpressionUUID->"da4d0737-e9c9-4edd-a32d-54a2010eea54", CellTags->"TabNext", CellID->105666659], Cell[35509, 951, 183, 6, 70, "Notes",ExpressionUUID->"bcf17ca6-140d-49d8-b9c0-b868d97e143a", CellTags->"TabNext", CellID->931354573], Cell[245003, 5697, 528, 8, 70, "Item",ExpressionUUID->"1b0ad7f2-541e-4d83-b547-729c9de5cf10", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[246655, 5738, 516, 8, 70, "Text",ExpressionUUID->"85071573-f864-40f5-b0ba-7166a5e506bf", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[248134, 5779, 505, 8, 70, "Item",ExpressionUUID->"3c011229-9bd4-4e35-a455-3eecec7ad8b4", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[266429, 6314, 529, 8, 70, "Text",ExpressionUUID->"2dba25ce-9daf-49b5-8fd4-9c4e64231d86", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[268031, 6355, 515, 8, 70, "Text",ExpressionUUID->"0b64548a-825a-43c5-aaab-746063e94ea0", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[57905, 1431, 7029, 152, 70, "Section",ExpressionUUID->"16a4dc11-88e9-4ca5-9e0b-909cde2e53b0", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[210878, 4540, 249, 5, 70, "Section",ExpressionUUID->"a3527aa7-7ac3-40c5-89ad-2726cdc1549e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[211152, 4549, 1026, 26, 70, "Subsection",ExpressionUUID->"87d370a1-f334-4473-b982-2e84471c59a6", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[211152, 4549, 1026, 26, 70, "Subsection",ExpressionUUID->"87d370a1-f334-4473-b982-2e84471c59a6", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[212269, 4583, 996, 26, 70, "Subsection",ExpressionUUID->"bf948745-03c0-47fd-80fd-ad80b5f21032", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[213713, 4638, 221, 6, 70, "Subsection",ExpressionUUID->"2f0d7dd1-16e3-4c1c-81fd-d1a5e1d42cd2", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[213937, 4646, 28834, 978, 70, "Output",ExpressionUUID->"f76369fb-166b-4a64-9065-8f21bb96d697", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992173041]}, "Categories-Checkboxes"->{ Cell[213937, 4646, 28834, 978, 70, "Output",ExpressionUUID->"f76369fb-166b-4a64-9065-8f21bb96d697", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992173041]}, "CheckboxCell"->{ Cell[213937, 4646, 28834, 978, 70, "Output",ExpressionUUID->"f76369fb-166b-4a64-9065-8f21bb96d697", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992173041], Cell[254306, 5958, 1321, 40, 70, "Output",ExpressionUUID->"b59ab71c-d92f-48b4-a431-af68fd6fd5bf", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[256947, 6038, 1365, 41, 70, "Output",ExpressionUUID->"de6aa29a-ba66-4e31-ac14-8a0246e7afd8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[260265, 6132, 2896, 83, 70, "Output",ExpressionUUID->"a959c604-cbd3-4b64-8bf6-11b17c5dcadd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[264272, 6249, 938, 28, 70, "Output",ExpressionUUID->"830ad210-6065-4396-9dfb-d142d3a6b73a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[242808, 5629, 980, 26, 70, "Subsection",ExpressionUUID->"23180f29-80ff-4ad7-9e7b-36ab0e54b059", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[243961, 5669, 1039, 26, 70, "Subsection",ExpressionUUID->"5d9e3635-da13-41b1-bb8d-54cf70914d5f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "DefaultContent"->{ Cell[245003, 5697, 528, 8, 70, "Item",ExpressionUUID->"1b0ad7f2-541e-4d83-b547-729c9de5cf10", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[246655, 5738, 516, 8, 70, "Text",ExpressionUUID->"85071573-f864-40f5-b0ba-7166a5e506bf", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[248134, 5779, 505, 8, 70, "Item",ExpressionUUID->"3c011229-9bd4-4e35-a455-3eecec7ad8b4", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[250575, 5841, 158, 5, 70, "Input",ExpressionUUID->"545ebc7f-57f7-46c0-bc46-0bc28b117386", CellTags->"DefaultContent", CellID->946203791], Cell[250736, 5848, 122, 4, 70, "Output",ExpressionUUID->"0e3179a6-560d-4bb4-b4dd-bbf927bd58a1", CellTags->"DefaultContent", CellID->168370258], Cell[253064, 5920, 89, 2, 70, "Text",ExpressionUUID->"b4287cb9-0d91-4f87-999a-ebbab4a6e952", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[266429, 6314, 529, 8, 70, "Text",ExpressionUUID->"2dba25ce-9daf-49b5-8fd4-9c4e64231d86", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[268031, 6355, 515, 8, 70, "Text",ExpressionUUID->"0b64548a-825a-43c5-aaab-746063e94ea0", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source/Reference Citation"->{ Cell[245568, 5710, 1084, 26, 70, "Subsection",ExpressionUUID->"aae035d9-937a-4d15-a72d-8fb389f1f7c2", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[247208, 5751, 923, 26, 70, "Subsection",ExpressionUUID->"5251fa4b-7c90-4a13-8320-12fb1b02e3e4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[248676, 5792, 1874, 45, 70, "Subsection",ExpressionUUID->"e583edf8-f422-4bfb-a126-e27999b958c2", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[248676, 5792, 1874, 45, 70, "Subsection",ExpressionUUID->"e583edf8-f422-4bfb-a126-e27999b958c2", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[250907, 5858, 955, 25, 70, "Subsection",ExpressionUUID->"a838c8d7-89ae-4308-b0cd-0fcf39c67f87", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[251887, 5887, 1174, 31, 70, "Subsubsection",ExpressionUUID->"cc1dbc29-63b7-49a4-b6de-91c45de2d88a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[251887, 5887, 1174, 31, 70, "Subsubsection",ExpressionUUID->"cc1dbc29-63b7-49a4-b6de-91c45de2d88a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[253064, 5920, 89, 2, 70, "Text",ExpressionUUID->"b4287cb9-0d91-4f87-999a-ebbab4a6e952", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[253190, 5927, 1113, 29, 70, "Subsubsection",ExpressionUUID->"5d474b66-f527-490a-a50f-9987985ade1a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[254306, 5958, 1321, 40, 70, "Output",ExpressionUUID->"b59ab71c-d92f-48b4-a431-af68fd6fd5bf", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[253190, 5927, 1113, 29, 70, "Subsubsection",ExpressionUUID->"5d474b66-f527-490a-a50f-9987985ade1a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[254306, 5958, 1321, 40, 70, "Output",ExpressionUUID->"b59ab71c-d92f-48b4-a431-af68fd6fd5bf", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[255664, 6003, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0425a89c-3949-4670-be50-a4f59a8647c9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[256947, 6038, 1365, 41, 70, "Output",ExpressionUUID->"de6aa29a-ba66-4e31-ac14-8a0246e7afd8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[255664, 6003, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0425a89c-3949-4670-be50-a4f59a8647c9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[256947, 6038, 1365, 41, 70, "Output",ExpressionUUID->"de6aa29a-ba66-4e31-ac14-8a0246e7afd8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[258349, 6084, 1913, 46, 70, "Subsubsection",ExpressionUUID->"25f3497f-4043-43f6-9f63-1e819b8afa6b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[260265, 6132, 2896, 83, 70, "Output",ExpressionUUID->"a959c604-cbd3-4b64-8bf6-11b17c5dcadd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[258349, 6084, 1913, 46, 70, "Subsubsection",ExpressionUUID->"25f3497f-4043-43f6-9f63-1e819b8afa6b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[260265, 6132, 2896, 83, 70, "Output",ExpressionUUID->"a959c604-cbd3-4b64-8bf6-11b17c5dcadd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[263198, 6220, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5e002b4e-89eb-4f9d-8cc7-e02c982bca31", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[263198, 6220, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5e002b4e-89eb-4f9d-8cc7-e02c982bca31", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[264272, 6249, 938, 28, 70, "Output",ExpressionUUID->"830ad210-6065-4396-9dfb-d142d3a6b73a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[264272, 6249, 938, 28, 70, "Output",ExpressionUUID->"830ad210-6065-4396-9dfb-d142d3a6b73a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[265271, 6284, 1155, 28, 70, "Section",ExpressionUUID->"ceedc563-a03b-4bfb-880f-1b627d045c93", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[266995, 6327, 1033, 26, 70, "Section",ExpressionUUID->"9e5c8e9c-5a2c-4a4d-8d69-f30acb8bc344", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 391954, 8706}, {"TemplateCell", 392135, 8710}, {"Title", 392469, 8717}, {"Description", 392649, 8721}, {"Definition", 392827, 8725}, {"Function", 393023, 8729}, {"TemplateCellGroup", 393228, 8733}, {"Documentation", 397083, 8794}, {"TemplateSection", 397277, 8798}, {"Usage", 397652, 8805}, {"Details & Options", 397847, 8809}, {"Notes", 398051, 8813}, {"TabNext", 398257, 8817}, {"Examples", 399373, 8839}, {"Source & Additional Information", 399584, 8843}, {"Contributed By", 399797, 8847}, {"ContributorInformation", 400033, 8851}, {"Keywords", 400255, 8855}, {"Categories", 400447, 8859}, {"Categories-Checkboxes", 400846, 8866}, {"CheckboxCell", 401061, 8870}, {"Related Symbols", 402184, 8886}, {"Related Resource Objects", 402397, 8890}, {"DefaultContent", 402610, 8894}, {"Source/Reference Citation", 403929, 8919}, {"Links", 404134, 8923}, {"Tests", 404318, 8927}, {"VerificationTests", 404536, 8931}, {"Compatibility", 404750, 8935}, {"CompatibilityWolframLanguageVersionRequired", 404980, 8939}, {"Wolfram Language Version", 405253, 8943}, {"ScrapeDefault", 405515, 8947}, {"CompatibilityOperatingSystem", 405719, 8951}, {"Operating System", 406189, 8958}, {"CompatibilityOperatingSystem-Checkboxes", 406454, 8962}, {"CompatibilityFeatures", 406711, 8966}, {"Required Features", 407163, 8973}, {"CompatibilityFeatures-Checkboxes", 407415, 8977}, {"CompatibilityEvaluationEnvironment", 407672, 8981}, {"Environments", 408152, 8988}, {"CompatibilityEvaluationEnvironment-Checkboxes", 408425, 8992}, {"Cloud Support", 408686, 8996}, {"CompatibilityCloudSupport", 408931, 9000}, {"CompatibilityCloudSupport-Checkboxes", 409409, 9007}, {"Author Notes", 409651, 9011}, {"Submission Notes", 409851, 9015} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 92, 2, 70, "Title",ExpressionUUID->"fbf6e605-5193-4e62-a630-cf8f0a0dbd2d", CellTags->{"Name", "TemplateCell", "Title"}, CellID->54360235], Cell[721, 27, 153, 4, 70, "Text",ExpressionUUID->"92b60f54-9f17-4c69-9636-184baf87b1c1", CellTags->{"Description", "TemplateCell"}, CellID->878922369], Cell[CellGroupData[{ Cell[899, 35, 1206, 29, 70, "Section",ExpressionUUID->"b6ac301b-65ca-4dd3-880f-6379293cc672", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2108, 66, 10951, 263, 70, "Input",ExpressionUUID->"5223f1b6-86f4-4707-a1b5-3303e7c79cbe", InitializationCell->True, CellID->951479331], Cell[13062, 331, 3975, 116, 70, "Input",ExpressionUUID->"3304d404-f4d5-4a4b-9ef0-1c2d41495614", InitializationCell->True, CellID->879164616], Cell[17040, 449, 9469, 228, 70, "Input",ExpressionUUID->"a042fa69-4dfb-4456-be5e-09d98ce80874", InitializationCell->True, CellID->694913468] }, Open ]], Cell[CellGroupData[{ Cell[26546, 682, 195, 5, 70, "Section",ExpressionUUID->"c3f2a2c1-c2ae-4315-9bad-f4ccf878a271", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[26766, 691, 1980, 50, 70, "Subsection",ExpressionUUID->"dbf25437-8afd-4121-875b-04991c863b4c", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[28771, 745, 143, 4, 70, "UsageInputs",ExpressionUUID->"b0b40687-39a9-432e-800c-f54299a9d46f", CellID->297597698], Cell[28917, 751, 224, 7, 70, "UsageDescription",ExpressionUUID->"c5cd6ab9-684c-462e-a9b9-d5948c305d41", CellID->78888678] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29190, 764, 1429, 32, 70, "Subsection",ExpressionUUID->"42b08b84-7b20-4d96-ad7f-6c2e3c3c3b9a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[30622, 798, 691, 22, 70, "Notes",ExpressionUUID->"da4d0737-e9c9-4edd-a32d-54a2010eea54", CellTags->"TabNext", CellID->105666659], Cell[31316, 822, 4190, 127, 70, "TableNotes",ExpressionUUID->"df790b90-4213-477b-abdb-3f6e96ef3a72", CellID->198230534], Cell[35509, 951, 183, 6, 70, "Notes",ExpressionUUID->"bcf17ca6-140d-49d8-b9c0-b868d97e143a", CellTags->"TabNext", CellID->931354573], Cell[35695, 959, 6212, 164, 70, "TableNotes",ExpressionUUID->"15ccfdc1-8a80-49cc-b70e-e9c3dffe74aa", CellID->734548704], Cell[41910, 1125, 586, 19, 70, "Notes",ExpressionUUID->"e4b0092e-2dbe-48f0-b635-4a1debee757c", CellID->960532753], Cell[42499, 1146, 15357, 279, 70, "TableNotes",ExpressionUUID->"da3aa6c4-4896-4b93-8a54-55662618f607", CellID->151517623] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57905, 1431, 7029, 152, 70, "Section",ExpressionUUID->"16a4dc11-88e9-4ca5-9e0b-909cde2e53b0", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[64959, 1587, 75, 2, 70, "Subsection",ExpressionUUID->"b8ecaa78-6224-4e28-8ef0-81de358bc6fc", CellID->904125756], Cell[65037, 1591, 240, 7, 70, "Text",ExpressionUUID->"299a55c2-e7a1-4d54-8ded-c8e823b51725", CellID->758485600], Cell[CellGroupData[{ Cell[65302, 1602, 470, 16, 70, "Input",ExpressionUUID->"28dcd285-dc8f-4d7d-ba5a-3e747b4e6206", CellID->902810013], Cell[65775, 1620, 1330, 33, 70, "Output",ExpressionUUID->"76550bbb-c6df-4783-9527-a9b0d92e3b10", CellID->773462035] }, Open ]], Cell[CellGroupData[{ Cell[67142, 1658, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"71d104e7-093d-483a-bf9e-292326255094", CellID->14107562], Cell[67288, 1664, 248, 7, 70, "Text",ExpressionUUID->"c8f62056-74fe-4ec5-98b1-7e2cd066d4b2", CellID->871058686], Cell[CellGroupData[{ Cell[67561, 1675, 873, 23, 70, "Input",ExpressionUUID->"ad4d6c8b-7c66-4e42-9f84-d90f0134aa60", CellID->64075149], Cell[68437, 1700, 1815, 51, 70, "Output",ExpressionUUID->"7bdceece-5d07-4d3c-a264-0afaa8ffea8d", CellID->874830245] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[70301, 1757, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8e94e3cc-0378-4caf-999e-e3409f200641", CellID->14107563], Cell[70447, 1763, 239, 7, 70, "Text",ExpressionUUID->"6adb6fa3-3030-4d81-98da-70fc0785cd0f", CellID->652644862], Cell[CellGroupData[{ Cell[70711, 1774, 724, 24, 70, "Input",ExpressionUUID->"fa49751e-effc-4eb3-88a1-6a43b0af096f", CellID->621384667], Cell[71438, 1800, 1321, 34, 70, "Output",ExpressionUUID->"73a34698-3090-46e1-aa7b-8afb136026c1", CellID->218981173] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72808, 1840, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"af098d5e-529e-40e5-a290-cbb433b6226a", CellID->14107564], Cell[72954, 1846, 273, 8, 70, "Text",ExpressionUUID->"f71aa8ae-1f8f-43aa-8afc-a3766445b5ec", CellID->919678154], Cell[CellGroupData[{ Cell[73252, 1858, 464, 16, 70, "Input",ExpressionUUID->"59d0aa62-5cdb-45c3-b665-2b5eed7cfad7", CellID->410666583], Cell[73719, 1876, 2231, 56, 70, "Output",ExpressionUUID->"2e03c972-cc15-4705-b595-c875fdd27a05", CellID->968941619] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75999, 1938, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4ee99250-199f-47f2-a133-e9892c7b389a", CellID->14107565], Cell[76145, 1944, 216, 7, 70, "Text",ExpressionUUID->"4bdda712-3221-43f1-ae86-7b5e1c090f40", CellID->751684286], Cell[CellGroupData[{ Cell[76386, 1955, 499, 17, 70, "Input",ExpressionUUID->"3c65584e-5ef4-466b-914e-9b596cbbaa06", CellID->18865008], Cell[76888, 1974, 1631, 39, 70, "Output",ExpressionUUID->"3fe33610-6ba6-48d5-ab8b-21a2ed02fb1c", CellID->515013305] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78568, 2019, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"82ddc6e7-3c17-4a60-9907-78160911bf0e", CellID->14107566], Cell[78714, 2025, 245, 7, 70, "Text",ExpressionUUID->"3544dd97-673f-4c08-8a39-eef3c9712aea", CellID->363369353], Cell[CellGroupData[{ Cell[78984, 2036, 787, 22, 70, "Input",ExpressionUUID->"62cfe837-c06c-4c6c-8b07-594fb3ffc905", CellID->630227093], Cell[79774, 2060, 1797, 56, 70, "Output",ExpressionUUID->"56c2624c-f5ec-4ccc-8255-24749990964b", CellID->143959857] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81632, 2123, 66, 2, 70, "Subsection",ExpressionUUID->"c5aaa57f-3b25-45ac-9da3-7a397bf74f6c", CellID->204653245], Cell[81701, 2127, 187, 6, 70, "Text",ExpressionUUID->"dc47c6b1-dbfe-4fe8-b087-bc4c4ea30909", CellID->257699042], Cell[CellGroupData[{ Cell[81913, 2137, 940, 25, 70, "Input",ExpressionUUID->"18326342-d9ac-4b81-b46f-197bae5a8aa7", CellID->421317507], Cell[82856, 2164, 2155, 70, 70, "Output",ExpressionUUID->"bc10a6d4-54ea-4c85-8c21-3476d2c3972c", CellID->744429441] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[85060, 2240, 68, 2, 70, "Subsection",ExpressionUUID->"b54a9f11-857b-4e26-b1f8-347ecb706c3b", CellID->890561554], Cell[85131, 2244, 748, 23, 70, "Text",ExpressionUUID->"b6454c88-3966-4f2f-a82d-94175013363f", CellID->82845310], Cell[CellGroupData[{ Cell[85904, 2271, 1195, 32, 70, "Input",ExpressionUUID->"90f6350c-60f1-4ecd-80f1-b375b4f7053c", CellID->503449022], Cell[87102, 2305, 24739, 413, 70, "Output",ExpressionUUID->"bf0fabc9-5a98-4f7a-84db-5ab4ed1e808b", CellID->349556834] }, Open ]], Cell[CellGroupData[{ Cell[111878, 2723, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"66be6930-6ed3-43b4-ad7a-55be79f58c31", CellID->14107567], Cell[112024, 2729, 260, 7, 70, "Text",ExpressionUUID->"a56015a9-7aa7-4ef3-9560-88b340355bc9", CellID->755991213], Cell[CellGroupData[{ Cell[112309, 2740, 820, 25, 70, "Input",ExpressionUUID->"17fe5c3f-e628-47ea-ac90-51a0b3a122c6", CellID->916046342], Cell[113132, 2767, 2062, 67, 70, "Output",ExpressionUUID->"8112b741-3a6c-46dc-882c-055d8cbed501", CellID->459823089] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115243, 2840, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5a31f09f-e91b-4e92-b54a-9c3e19fc5691", CellID->14107568], Cell[115389, 2846, 690, 23, 70, "Text",ExpressionUUID->"1a3918a0-2871-477b-8d94-7b56c1ee9df3", CellID->876631537], Cell[CellGroupData[{ Cell[116104, 2873, 1003, 31, 70, "Input",ExpressionUUID->"97a4df70-f342-41dd-b296-194da829daff", CellID->634351166], Cell[117110, 2906, 21593, 361, 70, "Output",ExpressionUUID->"5df46507-2907-48e0-ac5c-65a83c90a697", CellID->276662322] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[138752, 3273, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2b691084-4b05-4d3d-ad09-809e78d8ae8d", CellID->14107569], Cell[138898, 3279, 699, 22, 70, "Text",ExpressionUUID->"814dc3ae-911d-45b8-b435-e81618f739e6", CellID->915578702], Cell[CellGroupData[{ Cell[139622, 3305, 720, 23, 70, "Input",ExpressionUUID->"0f8b350e-1d4a-4b53-8a85-f32b9db42284", CellID->76107112], Cell[140345, 3330, 38039, 630, 70, "Output",ExpressionUUID->"305711d6-5b28-4317-b28b-43ac42d01c6e", CellID->493639956] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[178445, 3967, 85, 2, 70, "Subsection",ExpressionUUID->"73c9e78f-1b8c-4c38-bc5d-8c7771077d04", CellID->232113220], Cell[178533, 3971, 698, 21, 70, "Text",ExpressionUUID->"80430b53-a3b6-449b-b008-7c7c466fa97f", CellID->284943537], Cell[CellGroupData[{ Cell[179256, 3996, 803, 24, 70, "Input",ExpressionUUID->"facda6ed-9559-46cf-b414-3ce52a1a1945", CellID->47285068], Cell[180062, 4022, 30755, 511, 70, "Output",ExpressionUUID->"010ed37a-4f2d-4890-baa9-6cebae0e7797", CellID->48765016] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[210878, 4540, 249, 5, 70, "Section",ExpressionUUID->"a3527aa7-7ac3-40c5-89ad-2726cdc1549e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[211152, 4549, 1026, 26, 70, "Subsection",ExpressionUUID->"87d370a1-f334-4473-b982-2e84471c59a6", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[212181, 4577, 51, 1, 70, "Text",ExpressionUUID->"0fa263fd-84da-4fc1-9793-1948c00cdf5d", CellID->820284999] }, Open ]], Cell[CellGroupData[{ Cell[212269, 4583, 996, 26, 70, "Subsection",ExpressionUUID->"bf948745-03c0-47fd-80fd-ad80b5f21032", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[213268, 4611, 47, 1, 70, "Item",ExpressionUUID->"79e061ed-1a37-4949-95c2-5db7f4b187ac", CellID->178158948], Cell[213318, 4614, 53, 1, 70, "Item",ExpressionUUID->"783acfad-6c74-443d-ad74-3f6e6a91f991", CellID->162432641], Cell[213374, 4617, 52, 1, 70, "Item",ExpressionUUID->"b16a53a6-aaf9-4ef5-8db3-cc4d46927f3a", CellID->807556302], Cell[213429, 4620, 46, 1, 70, "Item",ExpressionUUID->"1a4afda6-8473-47fb-9dc8-594f2d0bac55", CellID->114556309], Cell[213478, 4623, 52, 1, 70, "Item",ExpressionUUID->"b2e423f4-4b3f-4f1c-9de0-519215686726", CellID->879427463], Cell[213533, 4626, 54, 1, 70, "Item",ExpressionUUID->"b149c1ae-b118-48d9-9c1f-5407d5785798", CellID->634352040], Cell[213590, 4629, 42, 1, 70, "Item",ExpressionUUID->"f8daf76f-60da-410b-a2fb-ddb891a3c8a6", CellID->701845730], Cell[213635, 4632, 41, 1, 70, "Item",ExpressionUUID->"ca3f28f2-5077-4036-a1d9-56f947fb5e07", CellID->181961207] }, Open ]], Cell[CellGroupData[{ Cell[213713, 4638, 221, 6, 70, "Subsection",ExpressionUUID->"2f0d7dd1-16e3-4c1c-81fd-d1a5e1d42cd2", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[213937, 4646, 28834, 978, 70, "Output",ExpressionUUID->"f76369fb-166b-4a64-9065-8f21bb96d697", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992173041] }, Open ]], Cell[CellGroupData[{ Cell[242808, 5629, 980, 26, 70, "Subsection",ExpressionUUID->"23180f29-80ff-4ad7-9e7b-36ab0e54b059", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[243791, 5657, 40, 1, 70, "Item",ExpressionUUID->"9dd5f65a-ffb8-4c25-8cd8-b58e5524c9c8", CellID->164243900], Cell[243834, 5660, 44, 1, 70, "Item",ExpressionUUID->"083c5764-3b50-4c8f-806e-1b9a62fc37e0", CellID->954888857], Cell[243881, 5663, 43, 1, 70, "Item",ExpressionUUID->"6a6d94fa-83b1-4d82-b82e-9c8e5cd2ab2a", CellID->161169288] }, Open ]], Cell[CellGroupData[{ Cell[243961, 5669, 1039, 26, 70, "Subsection",ExpressionUUID->"5d9e3635-da13-41b1-bb8d-54cf70914d5f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[245003, 5697, 528, 8, 70, "Item",ExpressionUUID->"1b0ad7f2-541e-4d83-b547-729c9de5cf10", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[245568, 5710, 1084, 26, 70, "Subsection",ExpressionUUID->"aae035d9-937a-4d15-a72d-8fb389f1f7c2", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[246655, 5738, 516, 8, 70, "Text",ExpressionUUID->"85071573-f864-40f5-b0ba-7166a5e506bf", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[247208, 5751, 923, 26, 70, "Subsection",ExpressionUUID->"5251fa4b-7c90-4a13-8320-12fb1b02e3e4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[248134, 5779, 505, 8, 70, "Item",ExpressionUUID->"3c011229-9bd4-4e35-a455-3eecec7ad8b4", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[248676, 5792, 1874, 45, 70, "Subsection",ExpressionUUID->"e583edf8-f422-4bfb-a126-e27999b958c2", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[250575, 5841, 158, 5, 70, "Input",ExpressionUUID->"545ebc7f-57f7-46c0-bc46-0bc28b117386", CellTags->"DefaultContent", CellID->946203791], Cell[250736, 5848, 122, 4, 70, "Output",ExpressionUUID->"0e3179a6-560d-4bb4-b4dd-bbf927bd58a1", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[250907, 5858, 955, 25, 70, "Subsection",ExpressionUUID->"a838c8d7-89ae-4308-b0cd-0fcf39c67f87", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[251887, 5887, 1174, 31, 70, "Subsubsection",ExpressionUUID->"cc1dbc29-63b7-49a4-b6de-91c45de2d88a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[253064, 5920, 89, 2, 70, "Text",ExpressionUUID->"b4287cb9-0d91-4f87-999a-ebbab4a6e952", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[253190, 5927, 1113, 29, 70, "Subsubsection",ExpressionUUID->"5d474b66-f527-490a-a50f-9987985ade1a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[254306, 5958, 1321, 40, 70, "Output",ExpressionUUID->"b59ab71c-d92f-48b4-a431-af68fd6fd5bf", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[255664, 6003, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0425a89c-3949-4670-be50-a4f59a8647c9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[256947, 6038, 1365, 41, 70, "Output",ExpressionUUID->"de6aa29a-ba66-4e31-ac14-8a0246e7afd8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[258349, 6084, 1913, 46, 70, "Subsubsection",ExpressionUUID->"25f3497f-4043-43f6-9f63-1e819b8afa6b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[260265, 6132, 2896, 83, 70, "Output",ExpressionUUID->"a959c604-cbd3-4b64-8bf6-11b17c5dcadd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[263198, 6220, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5e002b4e-89eb-4f9d-8cc7-e02c982bca31", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[264272, 6249, 938, 28, 70, "Output",ExpressionUUID->"830ad210-6065-4396-9dfb-d142d3a6b73a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[265271, 6284, 1155, 28, 70, "Section",ExpressionUUID->"ceedc563-a03b-4bfb-880f-1b627d045c93", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[266429, 6314, 529, 8, 70, "Text",ExpressionUUID->"2dba25ce-9daf-49b5-8fd4-9c4e64231d86", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[266995, 6327, 1033, 26, 70, "Section",ExpressionUUID->"9e5c8e9c-5a2c-4a4d-8d69-f30acb8bc344", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[268031, 6355, 515, 8, 70, "Text",ExpressionUUID->"0b64548a-825a-43c5-aaab-746063e94ea0", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)