(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 442872, 9060] NotebookOptionsPosition[ 286207, 6091] NotebookOutlinePosition[ 429790, 8786] CellTagsIndexPosition[ 427981, 8736] WindowTitle->ChromaticNumber | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ChromaticNumber", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->905669356], Cell["Compute the vertex chromatic number of a graph", "Text", CellTags->{"Description", "TemplateCell"}, CellID->908069296], 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[{"ChromaticNumber", "[", RowBox[{ RowBox[{"(", "graph_", ")"}], "?", "UndirectedGraphQ"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"nv", " ", "=", " ", RowBox[{"VertexCount", "[", "graph", "]"}]}], ",", " ", "ivs", ",", " ", "mat"}], "}"}], ",", " ", RowBox[{ RowBox[{"ivs", " ", "=", " ", RowBox[{"FindIndependentVertexSet", "[", RowBox[{"graph", ",", " ", "Infinity", ",", " ", "All"}], "]"}]}], ";", " ", RowBox[{"mat", " ", "=", " ", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"#1", " ", "->", " ", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", " ", RowBox[{"Length", "[", "#1", "]"}]}], "]"}]}], ",", " ", RowBox[{"{", "nv", "}"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "ivs"}], "]"}]}], ";", " ", RowBox[{"Total", "[", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"LinearProgramming", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"1", ",", " ", RowBox[{"Length", "[", "ivs", "]"}]}], "]"}], ",", " ", "mat", ",", " ", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", " ", "nv"}], "]"}], ",", " ", "0", ",", " ", "Integers"}], "]"}], ",", " ", RowBox[{"LinearProgramming", "::", "lpip"}]}], "]"}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{"ChromaticNumber", " ", "/:", " ", RowBox[{"MakeBoxes", "[", RowBox[{"ChromaticNumber", ",", " ", "StandardForm"}], "]"}], " ", ":=", " ", RowBox[{"InterpretationBox", "[", RowBox[{ RowBox[{"TagBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"FrameBox", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"AdjustmentBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ "\"\<\\\"[\[FilledSmallSquare]]\\\"\>\"", ",", " ", RowBox[{"FontColor", " ", "->", " ", RowBox[{"RGBColor", "[", RowBox[{ "0.8745098039215686", ",", " ", "0.2784313725490196", ",", " ", "0.03137254901960784"}], "]"}]}]}], "]"}], ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{ "FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontWeight", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"PrivateFontOptions", " ", "->", " ", RowBox[{"{", RowBox[{ "\"\\"", " ", "->", " ", "False"}], "}"}]}], ",", " ", RowBox[{"FontSize", " ", "->", " ", RowBox[{ RowBox[{"Rational", "[", RowBox[{"10", ",", " ", "13"}], "]"}], "*", "Inherited"}]}], ",", " ", RowBox[{ "ShowStringCharacters", " ", "->", " ", "False"}]}], "]"}], ",", " ", RowBox[{"BoxBaselineShift", " ", "->", " ", RowBox[{"-", "0.25"}]}], ",", " ", RowBox[{"BoxMargins", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ "\"\<\\\"ChromaticNumber\\\"\>\"", ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{"FontSize", " ", "->", " ", RowBox[{ RowBox[{"Rational", "[", RowBox[{"12", ",", " ", "13"}], "]"}], "*", "Inherited"}]}], ",", " ", RowBox[{"ShowStringCharacters", " ", "->", " ", "False"}]}], "]"}]}], "}"}], "}"}], "]"}], "]"}], ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{"FrameBoxOptions", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"FrameMargins", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", " ", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"FrameStyle", " ", "->", " ", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"0.5", ",", " ", "0.35"}], "]"}], ",", " ", RowBox[{"AbsoluteThickness", "[", "0.5", "]"}]}], "]"}]}], ",", " ", RowBox[{"RoundingRadius", " ", "->", " ", "4"}], ",", " ", RowBox[{"Background", " ", "->", " ", RowBox[{"GrayLevel", "[", RowBox[{"0.5", ",", " ", "0.15"}], "]"}]}], ",", " ", RowBox[{"BaseStyle", " ", "->", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"LineSpacing", " ", "->", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], ",", " ", RowBox[{"LineBreakWithin", " ", "->", " ", "False"}]}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"GridBoxOptions", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"FrameStyle", " ", "->", " ", RowBox[{"GrayLevel", "[", RowBox[{"1", ",", " ", "0"}], "]"}]}], ",", " ", RowBox[{"GridBoxFrame", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "True", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "True", "}"}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"GridBoxAlignment", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "Left", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "Automatic", "}"}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"GridBoxItemSize", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "Automatic", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "Automatic", "}"}], "}"}]}]}], "}"}]}], ",", " ", RowBox[{"GridBoxSpacings", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", "0.25", "}"}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", " ", RowBox[{"{", "}"}], ",", " ", "0"}], "}"}]}]}], "}"}]}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"RGBColor", "[", RowBox[{ "0.8745098039215686", ",", " ", "0.2784313725490196", ",", " ", "0.03137254901960784"}], "]"}], ",", " ", "\"\<\\\"ChromaticNumber\\\"\>\""}], "}"}]}], "]"}], ",", " ", RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], ",", " ", RowBox[{"Selectable", " ", "->", " ", "False"}]}], "]"}]}]}], "Input", InitializationCell->True, CellID->656371987] }, 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[{"ChromaticNumber", "[", StyleBox["g", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->961993820], Cell[TextData[{ "computes the vertex chromatic number ", Cell[BoxData[ RowBox[{ StyleBox["\[Chi]", "TR"], RowBox[{"(", StyleBox["g", "TI"], ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the simple graph ", Cell[BoxData[ StyleBox["g", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->770901027] }, 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["ChromaticNumber"], "InlineFormula", FontFamily->"Source Sans Pro"], " works on both connected and unconnected simple graphs, i.e. undirected \ graphs containing no self-loops or multiedges." }], "Notes", CellID->886816873], Cell[TextData[{ "The ", ButtonBox["chromatic number", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/MinimumVertexColoring.html"], None}, ButtonNote->"http://mathworld.wolfram.com/MinimumVertexColoring.html"], " of a graph is the smallest number of colors needed to color the vertices \ so that no two adjacent vertices share the same color." }], "Notes", CellTags->"TabNext", CellID->578947237], Cell[TextData[{ "This function uses a linear programming based algorithm. It works well in \ general, but if you need faster performance, check out IGChromaticNumber and ", Cell[BoxData["IGMinimumVertexColoring"], "InlineFormula", FontFamily->"Source Sans Pro"], " from the igraph interface ", ButtonBox["IGraph/M.", BaseStyle->"Hyperlink", ButtonData->{ URL["http://szhorvat.net/pelican/igraphm-a-mathematica-interface-for-\ igraph.html"], None}, ButtonNote-> "http://szhorvat.net/pelican/igraphm-a-mathematica-interface-for-igraph.\ html"] }], "Notes", CellID->920239501] }, 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.28627], 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.28627], 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.28627], 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.28627], 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->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Compute chromatic numbers of simple graphs:", "Text", TaggingRules->{}, CellID->255090658], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChromaticNumber", "[", RowBox[{"PetersenGraph", "[", "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[129]:=", CellID->841816279], Cell[BoxData["3"], "Output", TaggingRules->{}, CellLabel->"Out[129]=", CellID->621297439] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Compute chromatic numbers of graphs:", "Text", TaggingRules->{}, CellID->238556339], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChromaticNumber", "/@", RowBox[{"{", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}, {Null, SparseArray[ Automatic, {15, 15}, 0, { 1, {{0, 4, 8, 12, 17, 22, 27, 31, 36, 40, 44, 49, 53, 58, 62, 66}, {{2}, {3}, {4}, {5}, {1}, {4}, {6}, {7}, {1}, {5}, {8}, { 9}, {1}, {2}, {5}, {6}, {10}, {1}, {3}, {4}, {8}, {12}, {2}, { 4}, {7}, {10}, {11}, {2}, {6}, {11}, {14}, {3}, {5}, {9}, {12}, { 13}, {3}, {8}, {13}, {14}, {4}, {6}, {12}, {15}, {6}, {7}, { 13}, {14}, {15}, {5}, {8}, {10}, {15}, {8}, {9}, {11}, {14}, { 15}, {7}, {9}, {11}, {13}, {10}, {11}, {12}, {13}}}, Pattern}]}, { VertexCoordinates -> {{0., -0.530763}, { 0.459654, -0.265381}, {-0.459654, -0.265381}, { 0.597412, -1.03475}, {-0.597412, -1.03475}, {1.19482, 0.}, { 0.459654, 0.265381}, {-1.19482, 0.}, {-0.459654, 0.265381}, { 3.21928, -1.85865}, {0.597412, 1.03475}, {-3.21928, -1.85865}, {-0.597412, 1.03475}, {0., 0.530763}, {0., 3.71731}}}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., -0.530763}, { 0.459654, -0.265381}, {-0.459654, -0.265381}, { 0.597412, -1.03475}, {-0.597412, -1.03475}, {1.19482, 0.}, { 0.459654, 0.265381}, {-1.19482, 0.}, {-0.459654, 0.265381}, { 3.21928, -1.85865}, {0.597412, 1.03475}, {-3.21928, -1.85865}, {-0.597412, 1.03475}, {0., 0.530763}, {0., 3.71731}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 3}, {1, 4}, {1, 5}, {2, 4}, {2, 6}, {2, 7}, { 3, 5}, {3, 8}, {3, 9}, {4, 5}, {4, 6}, {4, 10}, {5, 8}, {5, 12}, {6, 7}, {6, 10}, {6, 11}, {7, 11}, {7, 14}, {8, 9}, {8, 12}, {8, 13}, {9, 13}, {9, 14}, {10, 12}, {10, 15}, {11, 13}, { 11, 14}, {11, 15}, {12, 15}, {13, 14}, {13, 15}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05068803330526114], DiskBox[2, 0.05068803330526114], DiskBox[3, 0.05068803330526114], DiskBox[4, 0.05068803330526114], DiskBox[5, 0.05068803330526114], DiskBox[6, 0.05068803330526114], DiskBox[7, 0.05068803330526114], DiskBox[8, 0.05068803330526114], DiskBox[9, 0.05068803330526114], DiskBox[10, 0.05068803330526114], DiskBox[11, 0.05068803330526114], DiskBox[12, 0.05068803330526114], DiskBox[13, 0.05068803330526114], DiskBox[14, 0.05068803330526114], DiskBox[15, 0.05068803330526114]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 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}, {Null, SparseArray[ Automatic, {42, 42}, 0, { 1, {{0, 3, 8, 11, 14, 17, 20, 23, 27, 32, 36, 39, 42, 45, 48, 52, 55, 59, 62, 66, 69, 72, 75, 78, 82, 85, 88, 91, 94, 98, 101, 104, 107, 110, 113, 116, 119, 122, 125, 128, 131, 135, 138}, {{2}, { 3}, {4}, {1}, {5}, {6}, {7}, {8}, {1}, {8}, {9}, {1}, {5}, {9}, { 2}, {4}, {10}, {2}, {11}, {12}, {2}, {13}, {14}, {2}, {3}, { 15}, {16}, {3}, {4}, {10}, {16}, {17}, {5}, {9}, {11}, {18}, { 6}, {10}, {19}, {6}, {13}, {20}, {7}, {12}, {21}, {7}, {15}, { 22}, {8}, {14}, {23}, {24}, {8}, {9}, {24}, {9}, {24}, {25}, { 26}, {10}, {26}, {27}, {11}, {20}, {27}, {28}, {12}, {19}, { 29}, {13}, {22}, {29}, {14}, {21}, {30}, {15}, {30}, {31}, { 15}, {16}, {17}, {32}, {17}, {33}, {34}, {17}, {18}, {35}, { 18}, {19}, {36}, {19}, {37}, {38}, {20}, {21}, {38}, {39}, { 22}, {23}, {39}, {23}, {32}, {40}, {24}, {31}, {33}, {25}, { 32}, {41}, {25}, {35}, {42}, {26}, {34}, {36}, {27}, {35}, { 37}, {28}, {36}, {42}, {28}, {29}, {41}, {29}, {30}, {40}, { 31}, {39}, {41}, {33}, {38}, {40}, {42}, {34}, {37}, {41}}}, Pattern}]}, {VertexCoordinates -> CompressedData[" 1:eJwtxwssFAAcx/FLZ15F8zgx1Zrz7EZ5ZaQ/UfO4HuTRxCyPcc0wd4iiPJre TNYZUTnL3RzjrFtc529XHIU7jzuP0KW2uqmccukyrpLf9t1vn/2JmREpOgQC wflv/97MOGJqUSuBHBWDJzZ4Dzyy4S8XVxMkbE4Fo3I/Et9tBOZVs2eOMCeA MB3n4k9XwPNaxyAGaxS0kUFmxpnfIFzpenipfxwIUZvGsC1bmA5n5i0LMFUn yrxpxwKkilRQPyMEm8IWj5DGWShgveVelMlAwXVj6hLvYUJsDtFWsgDNK8y6 vA9KjP9v5Gx5PHpsLSBdgSnuqX1Vw4OQLwnIZvmOYvE52z1jUxMQb3V1n8NQ KyqcV74a0SfBMUhtXnW5CficrI1mkzHw9a7SK00agE8hLOXtV2JoPk+FYH4/ sAwDMkiebKzjZhM7rKUQvrAYPbI8h3foJTXkKSmWxRlqd4Mco1Zle2cyJ9Bb 5pusfdaAdPc2a9sXYryrHKRJzd8AU8oqH9/oRho9N9bnoBTIIieKxPQmVpSp f4TRBmCXICabTRYCJaHXsn0MQb/CTkNz4kPLz5y1azZt2Nv+hLqzvA8UKumk hj+CLQkfW4sGwjGmu+aEhifHLrus4yXFImSMjKfZuQxivuDz7LyfGGeHqudq O7hgUOo9ENrAw+tPV0WF9mIg5LqSKBlZGGM5r6Z+EUDyeuDRQ8fYQHHflseq 74RLBm6JvFuPoVITfPJUbzqyoZKkvc8BAdVxycCiF981elHkEZ0QmaDwJ3q8 RqFXzW87nWIwYjADdaQSfMQ4UG0VzcHKUA5HXy5GjYXPS+F6D5KnH+TVTnGR Fviwfa6rC7cn9V0oPtsFnlciThc4sNH8ew+xhtMGchuwD1I3Ij9nlZqmW4+p omHXopUbyG1Tk2R6QvwDb/Jc2Q== "]}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJwtxwssFAAcx/FLZ15F8zgx1Zrz7EZ5ZaQ/UfO4HuTRxCyPcc0wd4iiPJre TNYZUTnL3RzjrFtc529XHIU7jzuP0KW2uqmccukyrpLf9t1vn/2JmREpOgQC wflv/97MOGJqUSuBHBWDJzZ4Dzyy4S8XVxMkbE4Fo3I/Et9tBOZVs2eOMCeA MB3n4k9XwPNaxyAGaxS0kUFmxpnfIFzpenipfxwIUZvGsC1bmA5n5i0LMFUn yrxpxwKkilRQPyMEm8IWj5DGWShgveVelMlAwXVj6hLvYUJsDtFWsgDNK8y6 vA9KjP9v5Gx5PHpsLSBdgSnuqX1Vw4OQLwnIZvmOYvE52z1jUxMQb3V1n8NQ KyqcV74a0SfBMUhtXnW5CficrI1mkzHw9a7SK00agE8hLOXtV2JoPk+FYH4/ sAwDMkiebKzjZhM7rKUQvrAYPbI8h3foJTXkKSmWxRlqd4Mco1Zle2cyJ9Bb 5pusfdaAdPc2a9sXYryrHKRJzd8AU8oqH9/oRho9N9bnoBTIIieKxPQmVpSp f4TRBmCXICabTRYCJaHXsn0MQb/CTkNz4kPLz5y1azZt2Nv+hLqzvA8UKumk hj+CLQkfW4sGwjGmu+aEhifHLrus4yXFImSMjKfZuQxivuDz7LyfGGeHqudq O7hgUOo9ENrAw+tPV0WF9mIg5LqSKBlZGGM5r6Z+EUDyeuDRQ8fYQHHflseq 74RLBm6JvFuPoVITfPJUbzqyoZKkvc8BAdVxycCiF981elHkEZ0QmaDwJ3q8 RqFXzW87nWIwYjADdaQSfMQ4UG0VzcHKUA5HXy5GjYXPS+F6D5KnH+TVTnGR Fviwfa6rC7cn9V0oPtsFnlciThc4sNH8ew+xhtMGchuwD1I3Ij9nlZqmW4+p omHXopUbyG1Tk2R6QvwDb/Jc2Q== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 3}, {1, 4}, {2, 5}, {2, 6}, {2, 7}, {2, 8}, { 3, 8}, {3, 9}, {4, 5}, {4, 9}, {5, 10}, {6, 11}, {6, 12}, {7, 13}, {7, 14}, {8, 15}, {8, 16}, {9, 10}, {9, 16}, {9, 17}, {10, 11}, {10, 18}, {11, 19}, {12, 13}, {12, 20}, {13, 21}, {14, 15}, {14, 22}, {15, 23}, {15, 24}, {16, 24}, {17, 24}, {17, 25}, {17, 26}, {18, 26}, {18, 27}, {19, 20}, {19, 27}, {19, 28}, {20, 29}, {21, 22}, {21, 29}, {22, 30}, {23, 30}, {23, 31}, {24, 32}, {25, 33}, {25, 34}, {26, 35}, {27, 36}, {28, 37}, {28, 38}, {29, 38}, {29, 39}, {30, 39}, {31, 32}, {31, 40}, {32, 33}, {33, 41}, {34, 35}, {34, 42}, {35, 36}, {36, 37}, {37, 42}, {38, 41}, {39, 40}, {40, 41}, {41, 42}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.021812234931106983], DiskBox[2, 0.021812234931106983], DiskBox[3, 0.021812234931106983], DiskBox[4, 0.021812234931106983], DiskBox[5, 0.021812234931106983], DiskBox[6, 0.021812234931106983], DiskBox[7, 0.021812234931106983], DiskBox[8, 0.021812234931106983], DiskBox[9, 0.021812234931106983], DiskBox[10, 0.021812234931106983], DiskBox[11, 0.021812234931106983], DiskBox[12, 0.021812234931106983], DiskBox[13, 0.021812234931106983], DiskBox[14, 0.021812234931106983], DiskBox[15, 0.021812234931106983], DiskBox[16, 0.021812234931106983], DiskBox[17, 0.021812234931106983], DiskBox[18, 0.021812234931106983], DiskBox[19, 0.021812234931106983], DiskBox[20, 0.021812234931106983], DiskBox[21, 0.021812234931106983], DiskBox[22, 0.021812234931106983], DiskBox[23, 0.021812234931106983], DiskBox[24, 0.021812234931106983], DiskBox[25, 0.021812234931106983], DiskBox[26, 0.021812234931106983], DiskBox[27, 0.021812234931106983], DiskBox[28, 0.021812234931106983], DiskBox[29, 0.021812234931106983], DiskBox[30, 0.021812234931106983], DiskBox[31, 0.021812234931106983], DiskBox[32, 0.021812234931106983], DiskBox[33, 0.021812234931106983], DiskBox[34, 0.021812234931106983], DiskBox[35, 0.021812234931106983], DiskBox[36, 0.021812234931106983], DiskBox[37, 0.021812234931106983], DiskBox[38, 0.021812234931106983], DiskBox[39, 0.021812234931106983], DiskBox[40, 0.021812234931106983], DiskBox[41, 0.021812234931106983], DiskBox[42, 0.021812234931106983]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18}, {Null, SparseArray[ Automatic, {18, 18}, 0, { 1, {{0, 11, 22, 33, 44, 55, 66, 77, 84, 91, 98, 105, 112, 119, 126, 133, 140, 147, 154}, {{8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, { 15}, {16}, {17}, {18}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {1}, { 2}, {3}, {4}, {5}, {6}, {7}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, { 1}, {2}, {3}, {4}, {5}, {6}, {7}, {1}, {2}, {3}, {4}, {5}, {6}, { 7}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {1}, {2}, {3}, {4}, {5}, { 6}, {7}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {1}, {2}, {3}, {4}, { 5}, {6}, {7}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {1}, {2}, {3}, { 4}, {5}, {6}, {7}}}, Pattern}]}, { VertexCoordinates -> {{0., -0.33541019662496857`}, { 0., -0.22360679774997905`}, {0., -0.11180339887498952`}, {0., 0.}, {0., 0.11180339887498952`}, {0., 0.22360679774997905`}, {0., 0.33541019662496857`}, {1., -0.5590169943749477}, { 1., -0.4472135954999581}, {1., -0.33541019662496857`}, { 1., -0.22360679774997905`}, {1., -0.11180339887498952`}, {1., 0.}, {1., 0.11180339887498952`}, {1., 0.22360679774997905`}, {1., 0.33541019662496857`}, {1., 0.4472135954999581}, {1., 0.5590169943749477}}}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., -0.33541019662496857`}, { 0., -0.22360679774997905`}, {0., -0.11180339887498952`}, {0., 0.}, { 0., 0.11180339887498952`}, {0., 0.22360679774997905`}, {0., 0.33541019662496857`}, {1., -0.5590169943749477}, { 1., -0.4472135954999581}, {1., -0.33541019662496857`}, { 1., -0.22360679774997905`}, {1., -0.11180339887498952`}, {1., 0.}, { 1., 0.11180339887498952`}, {1., 0.22360679774997905`}, {1., 0.33541019662496857`}, {1., 0.4472135954999581}, {1., 0.5590169943749477}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 8}, {1, 9}, {1, 10}, {1, 11}, {1, 12}, {1, 13}, {1, 14}, {1, 15}, {1, 16}, {1, 17}, {1, 18}, {2, 8}, {2, 9}, {2, 10}, {2, 11}, {2, 12}, {2, 13}, {2, 14}, {2, 15}, {2, 16}, {2, 17}, {2, 18}, {3, 8}, {3, 9}, {3, 10}, {3, 11}, {3, 12}, {3, 13}, {3, 14}, {3, 15}, {3, 16}, {3, 17}, {3, 18}, {4, 8}, {4, 9}, {4, 10}, {4, 11}, {4, 12}, {4, 13}, {4, 14}, {4, 15}, {4, 16}, {4, 17}, {4, 18}, {5, 8}, {5, 9}, {5, 10}, {5, 11}, {5, 12}, {5, 13}, {5, 14}, {5, 15}, {5, 16}, {5, 17}, {5, 18}, {6, 8}, {6, 9}, {6, 10}, {6, 11}, {6, 12}, {6, 13}, {6, 14}, {6, 15}, {6, 16}, {6, 17}, {6, 18}, {7, 8}, {7, 9}, {7, 10}, {7, 11}, {7, 12}, {7, 13}, {7, 14}, {7, 15}, {7, 16}, {7, 17}, {7, 18}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.01502932834960194], DiskBox[2, 0.01502932834960194], DiskBox[3, 0.01502932834960194], DiskBox[4, 0.01502932834960194], DiskBox[5, 0.01502932834960194], DiskBox[6, 0.01502932834960194], DiskBox[7, 0.01502932834960194], DiskBox[8, 0.01502932834960194], DiskBox[9, 0.01502932834960194], DiskBox[10, 0.01502932834960194], DiskBox[11, 0.01502932834960194], DiskBox[12, 0.01502932834960194], DiskBox[13, 0.01502932834960194], DiskBox[14, 0.01502932834960194], DiskBox[15, 0.01502932834960194], DiskBox[16, 0.01502932834960194], DiskBox[17, 0.01502932834960194], DiskBox[18, 0.01502932834960194]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]}], "}"}]}]], "Input", TaggingRules->{}, CellLabel->"In[28]:=", CellID->813661189], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2"}], "}"}]], "Output", TaggingRules->{}, CellLabel->"Out[28]=", CellID->684232025] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Compute the vertex chromatic number of famous graphs:", "Text", TaggingRules->{}, CellID->760958534], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChromaticNumber", "/@", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[365]:=", CellID->183608193], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellLabel->"Out[365]=", CellID->579080950] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Works on graphs in either 2D or 3D form:", "Text", TaggingRules->{}, CellID->378795837], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"utility", "=", RowBox[{"GraphData", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[41]:=", CellID->180358545], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnWdQW1na53t3v+x826ma7+9u1bv7btXUu/t2z7izc7fddo+n09jjbtvt oXttt91uJ2zA7QDGGBBJIIIAkSQQKBKFyAiBQASRowgmg0k2wWAT7x5ZHhoL haurK67C86trShZX5x6J+9f/hOc853/8cPXr8//5rbfecv2v6MfXLu77b9xw uf3Nf0P/OX7F9eKFK+f+35ErN89dOHfj/R/+C3pSgP79z//01luaxxgAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw4wiF whuuN9vb26muCEE2Njb8/f1vublPTk5SXRcAMIZUKn33w3037tM/2L2/obVr ZOKZ3R0+foHvvLf7/HWvAwcPvXz5kupPFAAM4uFx+8df7iZLVB9/8tezV3y8 o3Lt7vjf/+ddz+Ak9BY+2nOgr6+P6k8UAAyCGmD7Dnz6f//80b/8r7frWnqp ro7ZrK9veDyK/dc/7tr1wd4LP12kujoAYIKpqanSsopz95Ov+PKbu4apro4Z IK3FCCqu04QPGTylUkl1dQAAL4J8VTRf7hogshfFabUWllzqGihCPTiqqwMA ZjC38OK6v7C9d8wuFKfVWgRXll/ZHs0vp7o6AGA2yODQMTg2Y+OK29Ta4ouV W0FisDbAHtEaHPppy4rb1Nrq2nqRshOsjUSuhxS4sOZv8ZaoroizoDU49MA2 FbdVa8sra2BtJLL7h5hz7Jd3lZhPG+ZRRnVtnINNg8NsT3FbtYb+C9ZGIjR6 9Lf0gWs5mJcKo/VgD5sxRuYA1ZVyCvh5KmF+vfbxK8WJW9Qj1FYJ26Y1sDZy +eS7O/+InXMrwe5VY5512K8KzCttiOpKOQVbDQ6zDcXpaA0DayOVPJmqYXjj ZFDP1WzMrRi7koX9mPDCnZZMdb2cha0Gh1GtuO1aA2sjC5G0smlko35wIy2/ +cMzYSdDHruw5r8N7tt3Ia6gbrx+YIXqCjoFOgaHUae47VrDwNrIILO4rnkM Uw2up0ob6WER2ifPXvHdc9Lzsps3enzHL1ZQ1F4/tD46Nk5pTZ0CHYPDqFCc Xq2BtVmIuKC2aVQjNH5hU3BI6NZf5SqH0nJrNv/LjInnZNcpuhaVbRM7Xk3n YrvBYTurOL1aw8DaiNLf359d3NCEHG1gnZff6Ovnv/2E4saplIxSnSdD4rIz y/uahqBhaV22Gxy2U4ozpDWwNgIgyWSWtrSMI0dbS8tvfOTrp/e0KmV1afNM S1vn9l/RQlmpeU2qwdX+IWhYWgu9BodZX3GGtIaBtZkJElquohO1BFUDq9xc VQo31cjJNDorv3bM0G8VisoYfllJ03Sd+qkVagpo0GtwmDUVZ0RrYG34QUJL L25pn8Tq+l8mS+o4yaZH9UMTczPKeoyf4xWcxCtoaRhcJqmawBsYMjjMOooz ojUMrA0fSGg55V1IaLWPX6bl1shkMpwvTJHUJ+fUmTztVy9aYoayUr1YVd9l UUUBfRgyOIxsxRnXGlibSZDQ8qr6OqY0QkvNUeIXmpacygFOhgLnhUITJVnl fdXqBSIVBQxjxOAw8hRnXGsYWJtR0P1fUDPQNYPV9C0nZyrMFdrrElRP0nPl +F9yy4vBzq6tfbyEXmvu5QAjGDE4jAzFmdQaWJshhoaHsxX96qdYde8Ldno5 AaFpSUvjFzVMquobzXoVI4IZK5DLWmZUHTBiSRrGDQ6zTHEmtYaBteljeHhE Wj3UOYMpe5YSRTLCQtNCo7Ok1USWfiBr8w1P4xW0qvoWLakAsBXjBocRVRwe rYG16TA8MlpQN971FKvqfpEkKiWlLRcSly0q0TPjhpOHgZEJ4spK9UJX92PL KwOYNDjMfMXh0RoG1rYF5GilTVNIaJXqxTh+MYmdpmSJKkVi7OvUJBUVCgY7 L1c5DBFfpKAxuIIG4+cgxd0IELV0j5osDafWwNq0jIyMFjVMq58hR1uM5RWS PjqRVdHHzaqyvJzbj5hJmcoq9ZzlRTk5swtLJg0OMTD6yuOMKg6n1jCwNgyb mJwubZlFQkOOFsOVWmMYUDODUDtaXG560g0PbncfMlNLSpqmCmTVpBTotOAx OMyU4vBrzcmtbXJqurR5thsJrWuRycm13ng7XyBEncFalUWNya2gqtKYIn5h m7wFGpbE0Rrc/HMTBocZVhx+rWFObG2TUzMVnfM9c1hF50J4Uqa1L0cLY2Ur +kkv1tUzNJZfpuiaJ71k5wGnwWH6FGeW1pzT2gRCcaV6QSO0joWIpKyduSg9 Podf2GqNkoNCQsOSpHm1I42dtpJgyr7Ab3DYm4ozS2uY81kbEpqyZ6lnHitv nw+NFe3kpTnZdckSlfXKvx+YkJRZXdXpXN+cZIHf4LB/Kq65a8QsrTmVtUnz i6u6X/QtYPL2+aBo3s5XIL2sm51h3W82z0f0yJSiooYnXT39Vr2Q42GWwSEe D09/cZl5j5GNU2uY01hbXmFJzeOV3nlM1jIbEMGlpA6aNXHVwwUyq+8fJJeX B0SLRaWdsnrIYGke+A1O24b0iZbeoOGaj8Ocw9qSknmqwdVXQnvmG5ZEYU1o gUHS6pEKReXOXM7Vk66ZJmie2pnLOQY4DW5rfw3PfJwWx7a2lDSxVmglzTOB kcaWV+8MNDorU76j22gymIn0+Gxp9XC1qmUnr2vXmDS47WMjeBTnwNYmzspv GN5AQittfurHYFNdndcEszK5Urw9cbJALViv4CR2Vm1Fy5MdvrSdYtzgDI1D mlScQ1pblrS0aVQjtJKmp95BsVRX5w3QPZ+USU34x5XbAWGJucUNk5Rc3e4w ZHDGx/yNKM7xrE1SIG8Z1wituHGGyc6gujp6EJd2JQhKqLo6LSCQxhRlyLvr 22D8xAR6DQ7P/JohxTmSteUVK5rHMCS0ovrp0FgB1dXRjyaxSeWAtKiC2mq4 eUcw00rkzRDxZQIdg8M/l71dcfZrbafuS34WYXcqMe9XLlEgq26bwHrmsELV JItto0LTEhRMl1QOlJVRv53bbU9/1IuUVA1U19RSXRfbZavBmRs3oqM4O7W2 j87Sf0x8odkQbVJzeJRphJZf94QZR808mlkEMhJQY5LqWrwGqf4hPZmb21Bc vaMjpfYFT1onLKg3V2taNhVnv9Z27I78apZmx8+IGSxyFnvYikXG2sqoo0mC WVlUjZMY4mc3X3p8tpEEs07Os/mla34CRorMXK1p6R+Zdg0QxYkr7dHaEF95 192Qajb99FNjtF7MQ65ZqpmrHM6rGc2vGVA2qFs71FTX0SCJGcoYPvUtSR1i 45J8I3jpZd39Q+On7ueeiXhyKw0SobwG+drPD9MueqcS0JqW7oGJAy70kmpb adWYxYGL3AspK7eKX29EmKCYPfLlqc++PHXmwq3bvtGoPxIvUqTlNWfKezLk PZIKtaKhj8tLp7rWrxGVdKRKKB4n0Ut/f//tR0yWQH6C1n4lE/OQaT5bQNuG DEoovOonWFh8SawQ1GvzY+W74su6YGvIZLLPXCWnGGOnw8c+dy/Mrx3tm8Pa hl/vF6NJVOXn/8OFn3cf/Mux4y7nrt73DEwITZAkiCu50kbUb8qQqyWlzUXy 2p3P1oiuiIw4Pbtgh6+rU4fhkZGaWlVbh7q8si4nX5ZfWiWUyFIySh8GRn55 NdEl7vnPAuxWEXZdgo1NOXVOhq39NW0PjkAhm702bavSHhWHeOQfnCbMxl7d Pym5DaqB1VHD3z1IoSH0sFMuF3cf+PzrUxd+8aB5h3DC2XlIg8k5qtS8JlFh o6KuHd2EhkoYGhl3j67ll1uU3TEomI7kVqHAlTn5jasPDT+ZmGxu7SiWKapq GyUFcn5moVgiSxLks0UF0ZzcsERJYLQ4IFpEY4oC0BEtDopJD4rNCInLCkvK DU/Oj0wpiuHJYgXyOGFFnKgiXqyIEynQT3SwhOXo+Vh+2dmLHsfulP0Qv/QT DzufvIEe1LU47xCKztgI6sFd9xcSMLitA5J2rbit+Efy5O3PxlewwRFcc0lI pGwOx+PXe+9+/Mm+w19+63LF9T7dJyyFwc5DdyA3t4EnrVU0dGtXr7DZyQcu pqDbD/UZf8E3c47KHx0br1M1tLarK6pU6TmF0qIKD+9QQVFbfGpOeFJmWJzY m56MjgfBbK+gxAchbG8652Foik8Y1y+C5x8lCIxJR2Khx+eEJUnD2fnhnHxU N+0RlpiL/JqekIMEhQ6kL9/wtIdhKfcD4pGV3/Ri3PQKu/so/Na9AGRYD2kR tOBwr4d+oYxIbmpaSgpX9gq95v7vn/xU3DBxJnLiREAXesv4P38HQ+84JAGD 2z4g6TCKCwll5KGG5TzWMbpKrAR0B/r7B3x7+uzb7+45ePT4Py55uHmHPwpP Q7d3DL/sStwQ6s5cFcy6+0S5P4xwfxiJDg+fKNRhvOvPukeL8wpK0urFN5zn Hynwi+Sjn7QooV8EHz3jG8ELZmXFiyuRsu4FxCFdoEJ+9Yu5fjf4+r0Qd6/g W/cDvf0Zv3r5B4RE+viHMCKYPL4gOTnFiDpIh5fflFXetfdc/HsnaU6bGt3Q mD8Bg9M71+YwikN3CCe7FjUsx/EuDTRNWVnZv/7p6K4PD/zNp+5M1OT3zJnL bn4379Gu3/Z1ux9429PfP4jh5UNjREQFh4SmcLnl5eVadWy/XRPSKxMzbXGc RAv60pC3TjutyrQYn18zy+CMzLU5jOIQobGi8o75iRVMWddMSoG+AaH7L3CO 3ZWffCD72IVJuBx+YWtqpoyUKpEOl5ta2jjOZDv1cKTJuWyzDM54GIkjKU4o EufVjKCGZdfUGikFPvIP/pf/+ExQ2Ea4BOQaGWU9YkqHJY2QmtdQUGtib0fH BmfcCE6DwxNG4kiKwzSNN2Xd4PIT8nb+DIwWl1cRzMVKDw3PKOu2zaaad1Bs ZcdEWZkZu1/ZOBsbG2adjz9GC6fB4YyQdDDFRcTzFZ1zE8tYWRUJDctLN30a uglG0QcyElLzmiyvA+mgnqa8ZSImWUp1RcjBy8vru+++Ky4uxv8Sc+MhTRqc WRGSDqa41NQ0afUwalg+niUYhLPJxWt3S5qmib02gCmKF5k947YDpEobixrs 5m8dHx9/4sQJLld/OHpWVhaNRjOrQAKxxyYNztzgfwdTHIIlLLe8YSkQirIq CG7wFCesYAlkFl3eCngGxNR0z1VU2OL3gBFOnz49NDS0/flHjx61t7fjL4dY nD9m1OCIBf87nuIYrDRF19zkCqZqI/6mIpILxBlEhu/S8lvYAtsaJ5HL5eXt U0npdqY1BIfDyc/P3/68t7d3Tw/eAR/CWsOMGhzhdW2Op7jKKmV+7RhqWPYT bVjeuE+v6zD7A+nv7xeVdvHFOcQuaiWSJfUV7Xa56TCPx8vNzd3+PH65WaI1 LWm5daJC3UwmFq5re6U4cWuP4ygOES9WqAZfThOKPXG5dLukyeycjaFhEaKS TpsalgyKSKjvnUsn5NSUY6HcLNcaZsDgLF+y7ZCKC2QkKDrnJ1ex1h7z0lJ5 3PHMNX9P7SBGAjvLhnIUDAwMKDon+XnkbDC381giN1K0pkXH4Mhasu2Qiisr K5PWaBqWg2Zu0JQgrpycnjHrJTSmiCW0ocW8yTn11WZ+z9gUhOVGotawbQZH YjYSh1Qc9mrAsH7o5dNVDH9Lz8MnqqbVPIOLFcjDOXq69pTwkBbRNDAfE0dl 5nYLMSQ3Dw8PI39HcrWmZdPgSM9G4qiK8w2KRg3LqTWssRvXF/75a17ytlmz LpEqbUyyjWFJ1Iys6JjOlHVQXRGLEIlEQqFw+/PHjh0zFE9iDa1hWwzOGom2 HFVxMpksV6lZvDOKI0XHI1pIYb0ZsSXo+1ZQ1JZfJCNcPRJJkTar+gjO1NsO jx8/vnDhwtZnJicnXVxcts9xI/XdcnM/cvTY1TvBpGtNCzI4fp7KSom2kOKu +fL2Hzz81TfHOzrs+0tShxierH5oeXYVU5janoYrbRzUN82ql7DwKCvtVWou 3jRG68B8ODOR6oqQwM2bN1HTcXX19fjy4ODg4cOHJRKJzmlcLvdP7+8JjEn/ 49sfpIoLalr6ST9KqruOXYpyC063RuHoOPXjLwePHn9A5+zd/8ns7BvNqrGx sWfP7C+Z3ia+QUxFl6Zh2TZk7F14BiVWqPBOpwYyEhLSq8ionUUgk63qnims cZCwfy8vrxMnTrx8+cY4/JEjR3ROc3Nz/+LvPyRLVH/+8OCtB+Hx4krSj1hB xd6zwee9uNYoHB3//s6H1+4GsbNrP957cGvPFAntd7/73R/+8IflZfKi8Hcc 1LuRVA33zm08eWEwqvyyu19FB94BTVqUMJpXSlLtiMPOrm8ZdpBUP0+ePDl7 9uz2511dXYeH3xjFWlpa+uTTwx/tObBrz9Giqk5rVAb12kI5JcQymZhk8cXy 7UDu27s+3r3vYGTUG2stV1ZWdu3a9dZbb7W22kTbyRIikwsbhpbnVrHGJj3v JSAkoqwVr4mjNmqCkGK50SNYncNzbF42tdUgi8zMTL1RynonAlCDE/Xsns4t 3gnLKlaSnOxxc0BSb5CJhSCt+bHyUccQfWmgb5jtJyBr+P3vf490R+51KcHb n1Glfj69ijUP6+ZiSExMTJd14ywHtWQS0qhc3qJtRspbHWeAi9i8mzUUtzkg SThVlyE2tWboBPRnff/99y9dukTWFSkHvaNsRX/Ps/XJZd2GJY0pLKwwvYYO lcAvbGnvxKtNa8DJrukcm7OpEDILITzNTa7idObaSDQ4k1pDSCSS6OhocxfS 2j7M1JLG4eX5Vayr57fRyMvu/oqu5yZfG8GM5eY2WrN2JqAFR6jHn6eIHWel NmZZEBeJitOZayPL4PBozbHhCbOVPUvTK1jn2OuR54vX7pTjGC0JYiSwBJTd 6sjRlN0zym6zY6ptHAtDlElRnN4wEssNDrSmBd26meV9PbPrM686plxuak5l v8lX+UcJGew8a9fNEDG80u7x5zKZjKoKWAlDcvPx8ensxDX8aLni9IaRWGhw oDUdIjgFjSMrC+tY/9B0ODuvTT1o/HxmWklsGjXRkgns1J7JBW6WiSl7e4TL 5UqlekafkAxZLBbOQixRnJEIyTRpnbiISPcBtKYXNldQ3fsCNSyru2aqexdM nJxVE83O3JmKbUUzGqmere93tGaklosXL+ptNK6trZ1/RU1NDZ5yCCvOSIQk MYMDrRlBM2JZoWlYPjO6RhWdlprX2NFFwcYWLKH88dSS4zUj09PTT5486efn Z+SchYUFnWAnIxBQnMngf3MNDrSGB3p8dtPoyvN1bGhM//K3qOg4TjYFq0oZ EVG9U0u8XHtdPWqE6elp0mOWzFWcyeD/fxocrtT5oDX8nL/mpezRNCwfP9OT rjmQkRCdttPxJMhSFerZ1pGnO3xduwa/4nCua8NpcKA1s/jVN0ZS1pJZ3tv7 bGNuW8PyUXhaaIJujLq1iRcph54u1tQ6oLVZFa3ikHMZPw3nujY8BgdaM5cL Nx7U9GnaNlHsnJYnq4trWH7pb/d5FLeIyd5RuQlF4sdPX2SUEN/LwJkxqTiz lmwbNzjQGgE8fr0na3n94YeFR6GG5cwqNvT89RrGxPQqZpJ4xyqjGY3sne+c NB3rAhjCuOLMWrJtxOBAa4RJzWsqlb+e29JscyPv7Z7bWFjTPE6WqJpazEjq ayEhcXnjcy+ycxwk2z9VGFIcgWwkeg0OtGYJD0LYzY/fGJdI5Oe1PFl7sYax hDvXgeIJhANzL/JrBnbsig6MXsURyEay3eBAaxZy2d2/bkB3wRE9LLyqe3F6 FRt5QX5yDL0o1HN9z8jbtNXp0VEc4URbWw0OtGY5jwLoepcG3PJiiEvV3bMb i9YXHD2+YGJhhctPt/qVnImtiiOcaGvT4EBrZJEuU09O6c50h3MKwhMz0NE2 qWlYNqutlf+KxxcMLizLW8zLNAvgQau4vIp2SxJtIYNDB2iNLPyjBA1q3RyV 8eLK1HRNbsk0Hr+y6/n0Gja+ahWfU6gXhxfIz5IBaEGK+8cd9s1A4iPMY1Oz h88z2FlKEmvlzLh6hup03/r7+5Myq1vafutr8wvaehY2Xq6bka4ZD4w4yfTz lbjknZtucDZQr+2qH/+av8DkDLhetG1IpFZiywSA7QSHMat73/CXGFbi9k0B YtmZqGGJFKceMnNbAgPIy8uHl5aVanJKA/Si7bXhjDnRYbO/ZlYUJWCcxMTE XOXQk4nfVrsEhSdFcPRkKVcqayrVS6hhObVGQoqJstanY0vQjLQiWwckzVWc zthIam6dmOxUXU5LaIKkrv23VFfedA7dcLSkoKi9d2FjZQMbGSGeHYvJyX22 uCLILiFcAmASnQFJ/IrbPg6JXgsGRxZuDyMahn+LUQ5LkkYkGdupMDJB1Da5 jhqWHaNEPn+5XD60tNI0skTgtQBO9M614VGcoTF/MDiycL8fpBr4bQ0O6rjl FZvIWlClrFZ0LaKG5Yz5DUtZ69z08qoj5bKzQQzNtRlXnJH5NTA4suAkJxc3 TGrvf5lMFi9W1DeazkKJafaiaupbXEcNS6Q+nNeKZovnltfSsh0wCYntYDyM xJDiTM5lg8GRBXI0Wa0aPYiNSzJrUwB6dErrxOryBtY5bfp7b2BgYHBprWsK viGti8kwkteKq/ptEyg8cSNgcGRx15/VMKxpT/oxEugJOWa9FvXFFF1LU+vY nKmZ8JKmp7Or646XhMSmwBkh+Wx+aVNx+GO0wOBI4cYdv6YRTS/sQQg7gCki UEKqtLlvaQP15DrV+gP7w6JTnq+up+VCLJB1wR8hqVWcpKwFf4wWGBwp8PgC ebsmVpken8OIIxgtTGOw2ic3UMOye1uuEdQxHHm53juvJykKQCLmBv+PTc3+ 5WKkV4QZ7RkwOFJIzlEpG9QxPFluIfFtmsvKyio6nk+uY4uvBiw18WCSlpTC /uKmp8/XNsrLSd4AGtDBrOB/bRsyMUOp048zDhgcKTygc5ipRbECuare0gA5 Tk7946UNLj/dhbXo3YSFjmMBfVhshkPtzmyDmGVtW/trW/txeACDs5yrHj7X PMMjUwpJKc2fHvull/JmIRb2BEvEsIR1zBfUZmXwW9v2sRGzFAcGZyEDg8N/ vVt+NQt7UDx1qxjvqyYmp1rbu4plFWnCrCA687q758nT5w8c+WbfoS93ffSp C2vOU4XRR7H4Vc2BDG54bMKab8KpwW9thsYhzVIcGJwlvHcy4NuQftcC7K58 6hxddPoq7adfbh46+sV//Pmjd97b8+5HB9/9+JP9n3316ecnPvviu6Nfnzl2 3OWLv//41bfnvjl14W+nLx7//tKJ738+/v3PJ85e1jw4c+nPH+4/Gz3lWYcF 9WPBQ1jwMHZHQfL6HWArOK3N+Jg/fsWBwVnCvguc75nTl0XY3k//uvfQF/sO f4Ucav9nX6Of+w59sefVkx/tP/rhviMf7vvs8y+Of3PyH+cuXXG95UELCOKm prE5HJlMpqOmzz0Kr2Vj92uwe9XYdQn2bUgfRW/O8cFpbXjm1/ArDgyOMO+e 8P17UPePCS9/iFs8G/3MLZKEfaaQAI+6FXwfNXUmaurIrTywNuuBx9rwz2Xj VBwYHGGQNPb8yDp2R37UveDjsyHklgxhJFYFj7WZm9sHp+K4ktp0WOhNFE5y KkjD7jBpbcTyaOFRHBgc4FSYtDZLctbhURwYHOA8GLc2y/NDmlSc1uCeE93R GwDsBePWRlYuVpOKA4MDnAEj1kZu3uN/Kk7/GnAwOMDhMWJt1sgxjhR317Di wOAAx8aQtVkvn78RxYHBAQ6MIWuz9t4ZRhQHBgc4KnqtbWf2qTGkODA4wCHR a207uSeUIcWBwQGOx3Zr2/n91/QqDgwOcDC2WxtVex3qVRwYHOBI6FgbtfuK blccGBzgMOhYmy3s4btdcWBwgGOw1dpsQWtadBQHBgc4AFutzXa0pkVHccjg MoqbqK0SAFjCprXZmta0bFXc01kwOMCO2bQ229Salq2KA4MD7Bettdmy1rRs Kg4MDrBTtNbWMzRp41rTsqk4MDjAHkHWFs6V2YXWtGjXx6UXNYLBAfYFsrbr NCG6e+1Fa1q0HnePkQ0GB9gFy8vLhw4f+dP7e947dMa+tKYFKe4Xb85//7d3 9uz7RCrNo7o6AGCMiIjIz78+nZhZ/ce3P/BncJBN2N3xl79973L512iebPfe g+Pj41R/ogBgEB+fR396f2+sQP7Ou7sZcfy8ija7O3Z9sOeb0z8x2Hm79x2c mIANWQDbZX193c399v6Dh6KioqmuC0EWFxfPXbh44OChkpJSqusCAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBV+P+f 3WOU "], {{0, 170}, {293, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{219.4375, Automatic}, ImageSizeRaw->{293, 170}, PlotRange->{{0, 293}, {0, 170}}]], "Output", TaggingRules->{}, CellLabel->"Out[41]=", CellID->495027337] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChromaticNumber", "/@", "utility"}]], "Input", TaggingRules->{}, CellLabel->"In[177]:=", CellID->432656013], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]], "Output", TaggingRules->{}, CellLabel->"Out[177]=", CellID->28343062] }, Open ]], Cell["Special and corner cases are handled efficiently:", "Text", TaggingRules->{}, CellID->580479948], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"g", "=", RowBox[{"CompleteGraph", "[", "24", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Labeled", "[", RowBox[{"g", ",", RowBox[{"Text", "@", RowBox[{ RowBox[{"StringTemplate", "[", "\"\<\[Chi](g) = `1`\>\"", "]"}], "[", RowBox[{"ChromaticNumber", "@", "g"}], "]"}]}]}], "]"}]}], "Input", TaggingRules->{}, CellLabel->"In[190]:=", CellID->668578218], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvWdUX0e29nnXzJf5OGtm3Xe9oZNvd9/udltOkpVsWTkHFEGAEIggkECI jBBB5JxzzjnnnEEkIYIkQEhCAeWcs23Nr6ps3p5Zd+5092037Tv6L6yF/5xT p2rvZz/72edU1fnA8PD2/f/LP/3TP9n+b/yzfZ/jchubfU47/nf+Z5el7QFT SxPj9ZZ2JqYmNgsN/1e+vMp/J/hP/P7u/ef95/3n/ef95/3n/ef95/3n/ecf +PP27dvbt2+/evVqtjvy/vOf8HPnzp2Vq9eu27h12w7N6enp2e7O+89/qg/c pa271/JoYFb1oGtQyvKVa168eDHbnXr/+Wl/Xr56c/XWw+GJq00948HJVZ8s WA661M+i5ZvdQnPqu8dOjk9fuXH/+cvXs93Z959Z+7S1tW3cpLHPeH9LS8u/ ecC3335398HTiambXScvlDWPJBV3+yXV2wQWm7rnmnnk7HPOWG8atUjb77/+ ao6DZzTo8o7M/dlvP1+o6bVuf6TB0YwDnrkHPHKt/Yu8E2oTCrtKmoY7Tpwb u3Dj9r0n33z77b95xZGRkXUbNurvMy4vr/gxh/7+86N/+vv7F3213C+mwD+2 8KulqwaHRi5dv3fi9OW6rrGsyv6wzBbniIqDnnlOYeUhaU0ZFb0VrSO51QNR OW18Y+GTb+VfqG2XsuNwwvJ9YZ9sPvrz333x8cI1//1fPvlone0y/VCNQ3Ga NkmH/QoP+eQ7hJRGZbfl1AzQQnaVaNlFtnwkrCw4rSm9vLem43Tf6KWp6buD Q6NfLV3pHpIemlK5Yu3mxsbG2TbS+89f/wkIDFK0ww+//OuCbRvMokGFybFs K7/Co2HlXnG1QamNgAEW0rROWrc/CkTtPZK+0yoRgtp0IGa5QehXe4IXagd8 vtN3job779faztns9vlOnwW7A77SDeKvG82i1++PAoScxbn8zrmm7jlANyil 0Se+ll9s/Iv4ZrddCg3+/kttM1sv1SWPsMzDVjazbaT3n7/mQ3qCqZZvMdI2 tlXe1Nht8ot521cahm07FLfDKsHAKYMEt9suefPBGAPnDJCWWzOYWnoc4rIJ KPKMqzF2y7Lwztd1SAU8HLPeLGqpfugyg9DlBmHrTKOAyvbDCbr2KeZeeYYu me4x1ZAY6TKxqCu/btA3qZ4vOWu3bbK+U7q+cwaNbD0Uz9U/WKjz8bwlqkt6 pg4L1+h0D1148/ab2TbY+8+f+3n45EVF66iZR+7mg7ELtPz++2/nLd+gPffL Nf/8y4/m7vT6em+I+lmiF6xlm+wQXBKb3wmJ7XVKAzzAxsg1a6dVwj4prmhk n0sm5MO/8J6eY9q2Q/H8C2z2OqUbuWTy/UHPXBO3bChx++F4I7csDYs42tGx T0HIxeV3HgktA8Nf7w1eoheydG8IEF2w2/+//PLjxSu3fr1253/9YM7n290h VWPXrKKGk0jB2Tbe+8+/90Go41Nzr3yYZ7dd0qaDsSsNwxdo+vzrUpN/+cpo jobHJ9u8F+sEItr3H8s+4JlzLLoKgGmYx63YF4aqx8UBKQ1W/kUJBV1wmrl3 3mbz2E0HY1YYhC3VDyEbghzS4ld7RGbkG2SYSKMHYw565YG62PwOu6ASr/ja wvqTjiGlq4zCNx6Itgsq9oipPuiRC1xBL+d+ut17jobnr5cY/3qJ4fxdPvDh RrMYbdtkGoEMI7JaR89e++6772bblu8///Pz/OXrpt4J18hK95gquMjCO886 oBgOWWcSuVgn6LMdPsgnRBTwAEtaNkmGzpl4c7tlPEgjV5p755c2DfknN2w9 FKdtn6Jtl4wSs/Ir2mYZTw7lGPgHRAEY4IraB1fLJeTgQCC0xzGVEy19CzhS 0yYZGcaJXnE1pU3DlJZkRgiK5GjhlQdNQX1cFzzTn/la/p/u8FmoHbjaOIKL WvoUWvrkB6Y0+CTUURrUdp55+vz9I4NZ/ly5cZ/SD7meUnK8omWUoo+aDncj dQDDetNovLnbNgWxpGWbhHP3OKahwNeaRPJXfrEOKNrnnAmbAZWFu/1hGCQ6 +oosSQ5duz8SXJEHga5rZAUQgmEoGI+GlzuFlQEDCJDECvDgMY4nXcJmUp7F LtIO/FI3yNAlw8g109I3n1y8yjAcIG23TNCRRQSlwd4jaQBvl3Ui16URULfZ PIaxECAAPrOyj7EkF3dfmL4z22b+/93n7Tff9o5c9EusdworL28ZKWkahmog CiAEeyB7rMStgwIL7wIjt2xqQxzKnygG5+7ynafpR5b8Wi8EHOJxaAfPorJK mkZQ4xAa4NE/mtE9fIE0l1nRBxMCD+QcECVv7nFIpWVdhxSwtMU8DnyCbZuA 4oFTl/idSyPVOAWEWPsVAWPIcLVxOAhfsjcYyM3f7T93lx890TCPpQrgSC5q 6pFDTrcPKnUILgWBsOjGAzE6Dil5tSeq2k8Bb8/Ymo4T516/eTvbhv9P+Ons 7GxtbX369Hv1iwwGTlYBRbBHRFYL/yKqt5jHRmS3ROe02QYUB6c2oc9hKpIO kFsmbzIs0gn8QtOf7IbUgYLco6sAD9TBD/SVWzOQXHIcmFEJjl+4AX05hVXg YpeICreoyobj43gf1qKchOhIuJAV7Vj4FNAIqdk2sBioQ2Ics885Y3DsSnBa Ezk0IrOlrGUE/c+JdNItstIjrobUDAL56xcC50E0uFw/FKYlCvieHEr1SjUa lNYUX9BJsDA0gghhRt8O+xYCuZt3HytTvH37tq2trb29nV9mzz8/4c8333yz cfOWRUtW7jG2XLt+Y9/QpHd8rY59qqjpnDMdQ0sPeRdoWMSSR1yjKiEK4ATz kBNhGEufApgBWkOlk4w4hXMR276J9W7RVbttkzjYxr8ISJQ3j1AGQkcnTl+O L+wChGQlgIFDbQOLFusGATwOpngMTGlMLOqicTS8b2IdnAYHymo0hPbRfhnl vQV1gxzP72fO36CoNDia3tA9hvKHhUi4sKh/cn1AcoNHbPWxmCqKEZIjjcOQ BAX0RdEq6tMjaQCSpCmpuAiM8T3jhfH2u2dDei6RlR194ytXr924TXuXrvHq Neu+/X95ZPD+8+98ysrKtuzUU/eLzB39fvbhMnHz3CKOJIIX1phEatklh6Q3 h2Y0g7q4gs7UkuOHvPOzKvvggb1O6UAOnwIzx5Ay/ItPKRjRP0v3hnD80bBy DoYl1hhHorISCrsgvd12yWEZLbusEikKNA7FrTGOAJD418Qti0uD5Lj8DkCb U9UP79G+vlMGCKHwXG0UgZqat8sPoMI2tK9rnwKjHvYtQMUBS473TagDG1SR oA5g06VjUVXgh7EwKFrTtE4E6vTELrAkKrstq6Jvj0NaUEojv+sdSVtjErHb PoWxk5eJgn+Zt23nXgtlnBVrt6alp8+2u356n+zs7P1Wx5QNvSNzPvh0NYUb jIRaXmUYQdWPMjF1zwYAJEoSH24i0hfsDlhhGA6KwJixWxaZTtxTPZqh45CK BFqg5a9tn0wik7DJRpLxJyrBbYfiRE233ZuUijxDsy3TD6FSoFkUEdACGwi2 r2WKXCpvo3EisCGf0g5CDuRQnFJvwmC0QwYEcuRNY7dsgAf5QKR0D7LiQmRt peigr53WiSbHsiFVVZjQQ+qCHYcT97vnkC5phHP5BeZcI2sTLLBsX9gvP1nv 5BuvjGPtGhoRGTXb7vrpfQqrOz/4w9xjwWkhyRW/m7PgN0sMUMjzdvqSm2wC ikgoMvAjrf2LoCw4hKqQf4NSm5BYSGK+r+8eI99R+iGTIAp+UkuP13WeoQQg x0FK1gHF0NT+YzkLdwegka7dekgjVIsUp5xe0TqKOkJQwZOkP7IkqMbLVv5F gK24ccglsiKtrBdElTWP2AeXnL14E14Crheu3A7LaF6w29/IJQsIHfTMgydR VqS85t4JGjzgkattl0KKBHIF9YMljUNcjjKBZAqprjKK2HE4gVIXhrQPKtlg Gs0P8pIfhgxc52sF/GG1xe8+WRQQV+wVkf2bD78ISyyYbXf9lD6v33yTVNyN 6z9cc/hXc5b/j9/O/dV8nTkanlR/WjZJuo5ChmF/wIDM3mmV8KVuoFtUFfkF l1kHFClVAwnsdUoj/cFpph65ScVdlr6F6eU9/K7u5O+ySYrL6/BPasRrPcNT 8l5EJUmwvGUULKWV9ly99RB5Dzg/2eYN6nD3sxevYBKqOViFog+mAirAZnhi mnKPdJlbcyK3egBZDv77Ry+h28EVynybJZoqYqF2AGQYm9cB9eVUk2dz4D3o lMMoBLZLSQ/kCB/BWrG1lAB8A3Q1bZKBNESn55iqyuGPt3r9y2KDDz5e/t9+ /fnvlh+A/ZAKL169mW3X/QQ+t+8/gUxACHmHjEABiH9JTIjerRZxBD46BBGC UuIAfkg9zhEVfE9JWNt5Gnk/dfUuiiu7sp+UCsCoxfAgLqCRJdI1+AiHotX1 HNPN3HNwekvf2baBSYRQZdupycu3D8gnRNvEPbSkmNx2QEudCOD5EwA7d/k2 KRVcIaKC05oNnMXtL3BCO72jF48PTW0wjSqsHwR14BPS2+eSkVHRC5HSyU+3 +wCbj7d5MTTSH5kXliN3Z1X2g6tb9x5Dd2B1j2Mq4UPxwjFqmHAap4A39WwU a8zT9GMssDo1KUzL8UDx6s0Hs+3Af+jP0Pg0bqKWR+HgXwIcvY31gNYOq0RE +HLxLC8AtGBqBBimNvfOj8xuMzmWQ/aBNyA0wv/LPUEcsHZ/FO0APBAINUEm eo5p5NOq9tMcQx3HYbTMN0ARiqC+05Vaa49Dqn1wKSwXmtFE/iptGr58/T6K HTYDDBZeeTQ4eOYKiZgUnFZ2nCNtAovBGBgAzCHpTUCCFMzVNW2T6DDXAl2N PRMoOi4HF4F/essBhBIoAqJIO8CjI5+ed544z7+h6c3gWcsmGZmHNQDVAu0A ukoj2w8nKJgh9iA0hBmaE2KEabuHLsy2G/8RP99++11Rw5BDSIlTeDl+BE4o 6s0HYtDAZA1YCxfM3emLQiZUqQEhGYxM1CO0KABxAfGuYR4H3ghtnLvVIlbI mKMZpFEQiMjZ55yZVzPAVWo6ThfVn5SZ8SLAIBWScykbncLKcBlXIRvSJqkW j5OXqSZi8jvApJl7LorL5FgW3g9MbYzObSfrAXt8TWdAzrxdvlwa5AAbEHX9 zmNkVc/IFKiLzG7tP3UpLr+zpW+SqhAh55dUL2+8pGw6EE0xAkMSTQx2q+hJ OV2iETj5SGjpLuskwANncjD9gYoRotvlE3kDWS9TXIBAJCWmo0TNqOhDZsy2 S/+BPg+fvKDYRxhTLpGPcCJwwqH6MiopuEiUGB/UuURUwjPadsnYHGy0DpxD +WBtfAq3gA04ZOOB2Gu3HoRntpCkgJZ7TLWcYxNq6VcAiQFIBJvEW8ajpy+q O04jfkhJIApwWvkXjk8Jrc5fB05fah84D6Et3RuKtEa0rzYKn7PVk6bAlbzj GozmR+2PTl7beyTNLrDk/OXbEB3KHNQpEk4v63n7zbeMgnTpn1RPXvZJqAM8 NAvzgDH3mCpqCqLjwePnAJU6RVxLy98uqFj8r3F4Q8+YU2gZcKXN0PQmp/CK nVZJn+/w+ULLH1TD9qqY1bAQT/YP+xYCTtI6QYHYmG3H/kN8Ji7eQjwgrWWE ppJcXCIq/JPr1Z0HjIZbIRYgBPw4EtThONQ+xsQRFGhHwysQNl/uCT597np+ 7Qlr+UQS/iHhgiiIBQFc3jICcZm4ZdkGliDqXCMr+JONfCYOWhD/HCyatU2K zmnDa3gQ+kIRgXaOQaJzuVv3ntCr2/eeeABa/dA9DmngxMg1k0uAbXgpLLOF uAAkVA3k1kXagaCXfIoS80usQ4CZSsmXXTXQ3DMRmNIIE6ISz166tcUijmtB PpQAl2/cV+LTIbiERA8hA076sEve7T8WXQ1Qj0aUrzcTGhXe4xgOAKuOIWXU sBzJ/9Z1nWGkDGq23TvLH1IAmOkevoDs2SXuNOZlVvThKVEkyuQIxvhfl8gK uAWSEVO8hAYLPxZdhTjRdUzjLAIZrQ6K4KW9R9IvXr17avKahU8Bv8/d5ZtY 2ElarG4/dffB0/3uOSRTNA9OgfGoTD/Z7r3CIAxR5xFbs80yAe8ARdIfVANp gG2aJX0HpzV5J9R5xdeCH/zrm1jnGFpG/0lGgH/74XiUOUBq659U+hxeAuHq nhhSHKRtMRd3U6EaKG7swk30W0Z5b0nTCMwMbByDS9sHzkFioNrKrwji5UIQ NcPnF6oSWBcsgTqgruuQwrW8EmpJ+kKLHsvhihQ+/G9qaQ9jxGLYpGvoAohl 7PR/tv08C59nL15H5bSR7yjYgRPETpZEWZF0EBJIF4IdZQL/AzMOwFkwDF5D ITf1TABL0ihVADmIoCZBXL/9qGNgEqdgfLgOT7lFVW40FZO14DeoBsR+tMVz lWE4WRVAtvZN0mxEViv1I6iAkXANGgkBBmjRSGllPUAiu6qf3tImGYffYT+8 T9YjFr777jsQxYnpZb2oQR2HVFyMMicWkP1wF6q+qOEkB6gCBHIGJHO2eokC RE4lYoygHcamt2LmWGw1qZace+/hMx1xg7dInY5N6ADIR/ODnI1yIrc0Tg7c uG5/JMyPnIOTVxiGwYo0CD2CfPAWntGMYREhs+3wv+vn0rV7Yp1FejNAQsqS sIAB9ifFwBLYinIPKQJTATC0t6FzJg7iS0vfwvLWEcIZ/tl2KL59YNLMIwdm w55kEOQxOgpC+OMWD/yCDiH24QoUzmbzGDIUOiqrsn/y8m3+BLzhJYQf/QFs 5LXRc9fj8zvJmKAIQituPAnhoPpqu84Ap9rOM6CaBu1DSkh/1A4Nx8fpFXDK KO+D1siS0BGIJekDoazKPlqGkINSm9BdUTntfaMXa7tOz9f0pycIe6QamRSM oRIZ+4ebPTiLBMrvMJJvYj2oY3SVraOIeapFzJJachzqNnbL4oeC0S26CoAB ZlgdMxKYDAr6xQ4GR9N9EuuwCQ2GZ7bSc3o1227/O31AxQHPPIeQMoegEk3r JKQsxgQ8yCcszC8YE8tgT9IQbs2o6EVyY+1jMdVmnrnQi7p3ISf4JWmYx8Jj 0TntiUVdX+kFA1Qsb+ic0dp3FnUEPziHV2D8DabRJ05fJmXgIDIp0CXM37z9 BoRfv/0QVe8VXwNVAicEFdkQ8Psm1JGFLXzy6dVi3SAgBw/AISQyiBcAr90f xeWAN8HC1SFMQzl5TM2+oOV7D59a+RU+ff4KWltuEEZy9EmoBRLjF26SMRn4 Eanede1TkUxwIDKP9mk5PKs1tVRM8IBCSfRkcHIl2XbH4XgQTtbWO5LO0Eqb hms6T9NgbH4nlqTEphCA2bKq+lCq5HH+F9qH2egMWEWFzrbzf5TP5cuXOzs7 r1279vrNW0Ssrn2K5CLxcA2KCM9qIX8RyBiBGNxpnUDQAYOY3A4N8zj74FKM DJvttktZpB1AZtloJm4qouTPXb4NsZi558IDMnjbieu9TunmXvlQVk71AL4j jQIA0EhhRU/IcRBa/6lLy/RDUH1UmhFZbUqE0x8STX3XGLT24tUbvkTJdw9d OHP+BpAWHbBNBoFL94YozsSbKOqB05cnpm4CMDr/4NHztNIeEhkSiFoAGNMI 3BWd2w7wSNMNx8dojYvSE6Jp7f5IUjMpj2TKicHpzQc8ckiRqES/xAbabOmd AHVw+NiFG94JtQQdKhEL0BQyjDKEAoeESPeislsBJwgnFggcxoINgTTEjhYl V0Lse53SOIt0iTi5d+9eV1fX+fPnZxsaf4NPW3v7V0tX7jOzWbRk+QYDt+Xy FgQwYNRYA7tB5jb+RcAMuxG8i3UDyR3IJKo5iMs5vJxQtQ4owhf6R9O7h6ZW 7AuHiwJSGo8PXcCYhOqz569wK3kHdQR4IAcaAcl5tYOUh5JkUg2OZoxP3azv Hsus7CNfAL+Ukm5yFt78w2YP8ICEa+0XEo7G6fbVmw/oam71AP4FPOirlfvC OBhUHPTMXWYQqlBEXBTUD6KIhiZEvXbx2j3KW7F84+HTo2HlZD04sOvk+bLm kZSSHsq6kqahnKqBqek7B71yoV+iI79uMC6/gyQLdEnTHJxXMwhZxRd0ovQO +RZwCXoOVqeu3uW6DJBSV0zdOZZNRIAlkByV2775YAzkSSlNO1/qBnrGVZPE te1TvOJqoEoMi6HE+oJ9YRsMfRZ9tXyP0aEvv16ZX/DTfoj58OHDlavXR2c1 ZFUPhqZU/o9ffzJ/lxcURFJDbFt45RvK1ToJRV3iAaJNEgIJK/WMTOHTFpHj sraJu9ziCR15AU7DpLBTtNQz0IilX2FCYSd+h9M2msWgRmC8vY5pFa2jeH+v YzrJsen4RFpZr19iHdkKCUeuya7sH56YBthHQst3i6eWCVxuv1s2tLlELwQS Ozk2DeORqT/b4SM9WBiU0khliivBAJXIiTOXk4q6cT3MSaHKkQie/tOX+0cv LdUPIbPTJSBBaFBZ2AQWwzPIvKq2UyQsxkIOhVtgtu6TF0h2YqKOV15d1xi9 dY6sBCGgZatFHF9ymGtEJdio7x7PEU85yxg1AhJAyntfcUQTBQu5EkVR1zkW ktacUnKcP0mFf5xA5lyAjZxYqB2Ikedr+v3yw8We4Vl4JKmok9i/evXqbMPk r/9MT0+v2aAxs6XD7z79et72YySX1caRph451IMU3VZSEUFf2G2nVYKlT4GJ WxaEA79BSvA8ToHwCVu0K8YnEZAm3OWDnh2WYsWiuhUATsQNTKMI2oQYcSv1 GuqFigCDo6y84mrJtnM0vPARYAYYsNA60yiSyxaLOKiSboCojzQ80XJghi6J x9D2qdAacKVN2oeU9BzT+R0apGP7XDJJcATL5zvFfdePNLzo89d6IU6hZXQY LEEauFjcJZYrc+kqQ6BaJClzdffY6o0Ho/+4xdPcO482qUToA70luTOiT7Z6 QZi6Mh0fk/c9HENL+QZpgX3EJB/7FMjzc/mg1lTenaBXJG6aopwE6of9Cjje 0EWskEKbfaHlv0DL7+e//TS9ok95REvP5NSpU7MNk7/+8+233y5bsVr/wBHy 0WZNw198tBSnUwDiMhINZkFX4I5lBmHwObyEYXtHL/I7BfginUAETNfgBUT+ lRv3Od4tuhIt8frNN4mFXdRKRi6ZuBVtllXZi1/Gp25wRcQMHodJCFsjlyzy F63BNtXtp4bGp+2CipExAIPcQQkGRcCZRfUnN5hGiXWy5rHUFJAPqCYZoeQv X78PGCAcklrvyEVqRrI2Ap768dHTF0g+VPrFa3cTCjohT/oABbUNnCU09rvn gPOsqv7S5mFcT9LXJ2TEw/pk2JJcjBSEJGE5xJi+k3hy1DNykULGL6meUVy7 /VDpRsD22Q5v+gaVIdr5k0NwCZFo5Vd0cuwKmZfqIKm4m8qXI1GkfEmv4DF1 K1jcLZH7HmBPLo2pKZD/z59/tGLDzqTiLjNbT7LkT3qbIMo0I6fkX8xZ8bPf fPZ//OzDP25yXaDlT+IASLDQKnmLnooPqJAgYBiKOJwICLEYcUpmcQwps/Iv JKkt1gkaPXsNpzf3ngV4BDjkQKjG5LWDQNIBwUuVh3SJzG5HaWB5TqcPKGQu 5xJZATaAyuaDsX2jlzIr+kDRHA1PcRei83ROdT9yLiavo7B+EOpT92NLGocB JwAjInJrBujYrbuPqfLuPHhCHi+SN+o5CyTjaLDKD5ochHMweRwR2NA95hlX A2sRLAmFXaOT1yBhKmiUPOXkjsOJg2eu0EOgjv4HnxSboOjlqzc0m1HRF5bZ UlA3CHdtt0z4ZJuXTUAx5Qz598LVuyv2hUZmtx4N5+rF9iElUCiyc85WTzCG Ge2DiokUc7laU9kZJhfPTK0SEWl/3HLsF5+s/fm/zvvnX/xxh0XET3proNSS 41SIS/aELJSPaBdoBaDeyTuE5zxNP02bRCp3hAQ6CsMu1gnUMI+FRiiOgApx CmmABPICxllhEEqa4xixKcQesdqRcq9z8Lyq6Z48e4GAB34m4gZRYXHDkJpn qLoRmdWqZqK6x1SvMY4AivAGrRHdwAYGgDHwLx4EYxgcdUTN9U4+gqcPi2Tn k4u7qRMB2N0HT/PrTtB/vsePSHGO5FrOEeWwKwBzCCmlSp28dCursg++QghB TXk1J7g6lOIZX4NNYBIkn+oeBQssl1czoJbRUark1pyQTzBzDJwz2k+cQ1ap pZ1L9IJIl4bOmUQQnYcAYTkiiCxPt8Xcnv1R8CfId4+uTi/rBc+H/Yoo24Us MYqAYGFR4uWT7WIBMr8IVGf825sO/eN/cA2qQK08lbNKgkiI2rZiWSvmleKz 2NgtW02aEsYxi8bmGB93QAsa5nEtvWcbusfJILgMLeEtF02j35CsEVmtgi7K ergElqcFoh5wggS4gkwRX9C1wTS6pHEISPAlBAjwcBmMdHJ8uqbjNHkWApy4 eLOq/ZSOfQrHqBzEp7BukIRCXub3yrZTa02iwjOaEVT0Fr+gfyBVr/gacnFi URfHPHj8HJBHZbep04EirfHXooahm/ce009+AWwkXIeQMvoD10FBH2/zphKk h5jIO6EOfs6uGgAJ0BG6EbN8rResYREL/l3kgyHQAqvzv1yI9Ae6GDsGgdag ZUoYEgGA4fvth+Pl6nVx50df9hYA0yWVxAlwJTKptsSNxyNpxOYsYeSv/6jp oKBIxyFFSBr9UEN5sxT8fLzNi19wkFTXsUQiQ5bTAhOBBLJ54uItKIWCkfyy SDuAbAjnkCvxEZiEiDAIeQSTPn76UqyeiK5q7ptAYmFn9AYaCU1OjJNqP9zi wfFcnS/bByZx9FaLeL9Esf3X/UfPcC7oAmzYGdjQt4HTl+g8SCM3IXuIEWPX bDIyqknjUDzD2SDWKIlJ+DUdp4Ao6gg9BqLgHEWYp89fh5M5Epamka6hC4Dw xas3DIFsjtLOqRk4PjSF1hLrxA1CUfhkaqKP4pSxkM7gWFhr8MxlEjRjfPHy Db2FNkHgV3pBFEEFdSctvPOoSsDMvF1+oJGcfub89Tv3n2jbJzMWampMgc7E qtss4w555zMEukSyxixiOcDRjLX7o2AwiJrvSazw7Swj5i/54H1s5Sz0STF8 temgmIdJSlpnErlAOwDah5Hsg0sJSQgBnYwiXbInGAt3nbwAC1l45Vv6FkDp /Alm802sR1DhNQptEiLflzSJB7g5VQP4ziuu5vrtR/pOGbt/WB6L98GGmB8V WIx4Iys5hZWDGY4Pz2xBlsCfONc/ucE7rhZQYX8MfuPOI+SNdUAxvkAnv/3m G7W1jl1QKQyDjD9x5goggesQ5L0jU6g+WI6iA7UGCbx+85bBquoV6gD5kCpH Akjn8IqwjGYUI5FFr4JSGyFe/pWZNBQqZgj0mYxPRQzDoJoYC106fe46KZsK hWMYb9vAJOSGGUEj3a7uOB2b24E8o9sb5G4b6qZrXecZcj0t2wZRDggBSeNW fgVU32aeuQt3B4BhhAQ/hAB4O+QrZjEhFejzbAPnz/3E5XcgUDH1apNIgCFv CaZQ9a8Q29dE2wUWE3TinoyWP+qCnIUHNa2TACRHikkyXnnU4OqmPcCIy2/H HbgPL+M1TMExIBAh/aVu4GH43yMXOQRu9x5JP3f5NualVAfh/acu0Sbih0oz o7xX9Q2sogNBGjCgHbHtSUARMgnwABjympFrJlIHT4F5fuyDSsmS6tzRs1ch gZmE0jMyddivkGrxqz3BHE9TJErApiV3paOsI6tCRzutxP0T34Q6YMN41blV bae0bJIpB8hiY+dvMDr0A+Ch/xgBC8zfLbQWvA1CKEJVgwwWPOfXnIDZgGV6 ubi/hyUZkf7RdCICRqWWcQotY0TAleFTI6snIFyC8IHcVgnmDNNzTLf0Kdwu Z2Iz9vCsVhD+k5h30dQzDirkPPlknIWj+QXRi9nX7Y8Uz2qhsv1R5DKxu1FY GZafr+kPUcNXaFTMgjotbx6BRqJz2va75YBD5DHeJEL5prVvkpTKwXiTHEFG WGYQCkrFNhR2KZiRdKbohTREkqJLUfIGiJqvDp/gbtiA7GDokoUo4n+nb4g/ PXvxir5BHdif1LPMIGyNfC7DYWTVqNx2/op00RFrHttxB7GvVubyg+YnF9Mx HH3j9iNagxDIXOJhFmWIQyqIco0Uz6SorO89fAYMGBSHkWHhTEKMEpIxyjsh YpI/8kDcAzwU/9l2H237VNugYlpGcVH1ADaKi8DURuiIllNLe7BValkPlct2 MUcxAkASPmKqdnQVBiHElgg5R+JOcwwuBWxbzMWqT871iK2BwDEdURma0Vza NDyr2Pn//kxN32VEaBsiBZ/GF3TsEVO2kvTFzN5IeIm0iKEYPhUTSp5cNneX Hw4CMGKSgGvW5Rv3C+sHV+wLx4+oI9xNnQ6uABJaBc4hXxCewxNXK1pHUVao mraBc9G5bVgbVLhEVgCqofErhC2AVLukQkFUW3BFRcsIlQKnEP6oGmT8jsPx CD8iV239RLeX7AmChdr6J0ubh+nPRxqeDEHOvBK7PMEnq43EhB+OMXDJQEEx TMQ5iIV5yPhiH4MftmBCfwLRs5duAbaQ9GbSvX9SfX7tICmbEeVUDyijAQOC qH3gfFHDSVC3WE7fBcAoQDIgWoLKlK5SShMpWJIUDzxoUGxrdiQNjgLG5M2s yn4GhcVMPXLIm2RAAlBh7JhYzy4WeG6zTKAFoptjhK6Qi5f5l4HDh8Q7LD2r CPr3Pk+evUSXHh+eWmca5Rkr9ljAlYw0Pr+TIo4yEMWiyE3HIQ0tpGufiiW3 HkoglXQMnqP0W2McKdbjjE8jQdEV2AFzEXpwETlxqX6ol9yR0knubnTAMw/D kncAJyKH2BdrIbvG6rrG6AY12lrjSOJ9avpOeetodfspMuZSffGoGmOihwEA Op+0Ml9LrKQgCqjvSGd/2ORhF1QMAAj8pt4JQEUl4hJZSdrCfWo2hbXYHKOa tAjJ1HWfIaAQ/DgRvKnbd5q2ybS5SDuQyuXm3cew1tu330JHB73E43ICp+PE OQB26do9SAkkfLrdByPwfffQBapdUzEzTaxS4RK0Bry7Bs8DD7foKhBITsQs QalN8B44h7LICCsNw1CwtIDNaztPg3CMg+mgXLXKmNg84JUXX9BJ50mLRAr5 2iVClBWEMMjnF65uKwuK2YbSv/HBX5A8MYgWopP8iMfTTulUWEALuk4o7Cpv GTFzz1Wz+xDzDN8/uZ60woiInaicNtwKSJAfn27z3mmdGJjSgOg1ENPjRUmF VAASl67fA724CffZyKuEpDWBbew/PnUD+N1/9BzboqxKmoZ15B37HVYJWJhg J6MBXZQ22Y0ktdUiDoSjoKz8xBR9rq7rkIIjoA41qIdPXjAQ0gedRN6Qg4BB ccPQfjmJlHxHeTL1w/ZK56/cUcuCGAgHcCL1BaRK0oe0KZkRAKjKxbpiHjXn qjXpXBcT4V+GefveEygdL5PxwV5mZR/hw0C+3BP09d5gGJhLQLZUQ8CMSpNi GYrjFPA2R8MLGkS6i0mGma1cHdKjt5yl65gK7NdIPYyVCEA8tVQ+eghIaTjo mculETM+8bUMitqBKFY39/6hPuUtozA2/iWsglIaSfR0dZ9LJhoYBsaeebUn 9ouHj+FqQzaApGaSQ01EK9EECLG5WPBlIPaZPH1ePPrpGhTzfonQgOQGvHBW VtOE55ytXkQuAHaOrCCFdQxM0ggJEYuRQAnSw+I5eJeaQgCi8DWZRcM8drtl IkGNqUnQ7jFVudWiFO0ZnipqGMLg9BNi4VpqUBem7/A72GYgz56/op79ZLu3 Y2gpGMZxZHwIAWJUBycVd2dV9gEtOhZf2Dl5+TbKjYoAIoJyNeXTz22HxN4a aoUmRtAQy/ESIrNbOUbuCpVKEL14+ZosDxfBY8h1tTMV+KnpELUGwUh/GBqU RZlT1S6+JOjUXBTSt6Zt0tydvrQJPg945aI5MYWjrMdxDZmUPEIIHJFP5DEL TimoEzPxaE1XTs/gr2q25D/Oh4KakEEx4lAiHeNL3ki0FYVkBF4g0Vj5F9J5 VM0BuYcMdIH+X6gdgBgAA3gHnDBeADZ56dYBjxxSHkY+PjRFs15xtdlV/ShY mkL/k31ghqr20zg3vqCL2AQz6+XGcfiRNm0DihHJg2euTF296xJegfDjEjnV /XAamW7TwdhFOkEcTBSklfWAKJeICi5HBUcjASmNdoHfr2CFyhgCKsUpvNzS p4BwAAOoI8ZC5sLL9rKT76SkZ3Sx+R1E0NiFG65ysyZEHRmQ7omll3vF0ksz 9xy169eWg7EwG1F2+fr9U+euI64oDAEJCJRzxaMBCdag2m07Mdk5eJ4Bfqkb jEwqrBvkROIxLKMFy1AUIxfVJPPhiWmKcQpqHYdUtMHmg7Emcm89OAp5JifR FWnaiOn9QE5EQUEHIgRO4EhEqdiEwS2Lc5GIJJTe0YuzDavvP6Qt+kaMUOnQ 7YxKsQ6CGgfkoF7I9RHZrQCP0gnBgDzGAoAQzQ8VIEtGJ68R7MgM9Ay5Q1Q9 tScgQ1zGv4f9CrA2yqql7ywRR0ZDdas59vwvsCTtgj2q1Ni8DkMXMQcDzgFF av3p6fPX8ftXumInLquAouLGIRgA2AA/ugRvoM2ACuSGhTPF8upijtE7kk6W 4XTwrHYYgGzJZS9fvYFn+NfcOw+uI9L1j2bgZY7Mre6nbs2o6KUdzhLFi1xn RCWiYAn9AkVyLhUHNKXWDWEiRYCUGDToHluNCNRzTE0v64Gg0K5ITbBhF1iM zIB84LFPd3irNeyNx8c3i+1hc1XBAuSIFByhI++9QOO0fO32Q6ISPQBtoiVU /GJqQph4ic/voA+EnrY95VjncoPQjPJe2BL44YVDPoWcPqvIEh+StdzlJoeh rTIMt5YbwosnMjHVkAwaw8glE4diCqwKNgAAZdfNu4+EcnDOROtyDBILg3N8 5+AFTMqQiURwwjDFOtPtPmhsqmnKPbiLehADUi16xtWqPqCiYYmhiWnkCngj MdEUp6eX9YrVjl554qGbUfj9h8/U8eev3Iam6CokhrtFdeBX2Nx7ltDGC9Zy 3zBoMK2sFy8T+GXNw69evwU8ECAAa+wZD8tsYeCkPyD0lV4wnuUSVv6iLiZ2 rOWdWLFVfngFcEV9Aeakoq6+0UuqA0AU+YdkMvPMRRnG5naKp407fOA9QEh+ JyOAhJEfCjpiByUAAGJyO4istbKOgNW/0PKnEcAvVovIOZyoxO6T59VzRmwL AdJJIhF+e/r8FaOjlqEYN5PLlglbcXM4vpZGuCj9J13yDb6wkmxGLn452/td QNqocXkvQry5gN6uM40mv4Mx5LTabDk6t53MdTRMeO3clTvhWS3V7ae9E+oo NrMq+sXTcL1gUEQSIZWQszidDIIOIcFhE6gD2x4Nr8BQDL99YDI2rx1mIB5x 3+s3b1v7J6F0WAKWU72COeftEkswsFKUXOdImM/cSIRG+IZEkFkh5vkMT1wF IU0940hfstWjpy/IDsiVDzd7oPQIn5Pj089fvoZRATCYJD9ev/0IywOAyOyW j7d5/WGTO04nmz949Jw/kXSoiLnuxWt3+T5U3E9o4typ6buqe6h6wAxW+RNQ URt7EjWqe5yLPR1CShidgjHcDrcgF8uaR/yTGygZQBTZzdBFzBxDlzb1TMid 9/LzxLLQIv5Er7An9QvUhMzjTxjHOaKc0eEFdUuWzELJye/IM137FO/4Oqzh k1C3xTxum2Wc2I/lcHxEVuvfH1TffvttRESEi+sxn+BYYnyVoVj7SSATzgBg vdhpMJ16ja7m1Qy4RlS29p8FIYQJuV5tTErnkWFUVSCK4FpjErH5YNzjZ6+g jqHxacIZq4IZY7ntPHmEYCRHwFoEGgUUKZVu+CXW+STUOgoJXQ5h0viDx8+R K7jy0+3eUERz7wTtrDGOxAsUpBSbMzcS6bC6s8ExdKChe5z/VTvnkBfwO6kK wuSwvUfSoUTyrG9iHWBDC9kFl0CAh6QkI+RXG0XQPhTNeBWEaDCxsItr0TEq HXgJ1sWV6lkMAcIQonPbdOxTiT5QhHbiQp/v9GG8EClUQzxyLhcFq/5JDbZB Je/ktjCYF+IiKXNR+Mc+qITrktBF3J04B4wpaW3lY1ay3lqTiCOhpcgwyJAy x9Qd6ZtkJNcFL9DyX6ofCiH7JTckFHRFZrXiL5xCN7iokXMmNQj2JDpwnGdQ 4lFn1+iYmJcv/07Pkg6aH9IxtDwWnPbhpwt/+fnmpfKlBgSg2mBNvD3KLBp6 wVz8TuFMDUXxhaCitGnoHiM/Mgoh9e0QnJVEFnQNM7yTu0aTZY7J1RbgZO4u P0pmGE8sUp6YprThQsgk1Q30LSx34codsSO0SaShs1ipinnF01uvPHwN9rKr BnJrTiQWddMakMBxLb0T0BGhjd6+Jfc7BdJEPSCBfqEyWgDhECZZibxDgSlu H+V3QhrY//cbj3EtMEObBz3zoA6bwOKDXvmci8KHezlXzvYR9yXA0jtJmHxP XXz73pPBsStqfTHVAYzKECgEvBNqT5y+TBGn55RGT/TElsUpGmIpUyBs1tQ7 kVP1/S1ZIL1UrDlqGb9wE5uA28DkBjGBxyWTioYxciFImCOxObUMIKeYEo9l /YuQKFQfI2ev+SbUpZYep5IlWuk8bAC/kVLVZo9iGzSPXEDINwiSXy/S+Xzx ateglJ17TP8+e3WeP39+0zYtNeEWqv/Zbz6dt1NsRC9equItFtrLfW9ycGVB /aBauc8ACfz8ukHkFoFZWD8IS68yilCPdxE55l75a4wjUOxFDSdBF2PfJhdf E61qOXNYprjDxg9CFxpHv/E75E8qwXTwFQZB56tZ0P7J9fvdcziA4CX/UgK4 yL2/KNvJbmILRLngmqSp2uSHnpBTQB0dprZCqJA+xIMhLX8tW7GwDnmJE/kB zHifUKIbZBCO/HJPsBaFQH6HXN0j1iit3Bf20RZP6G6m/YgfJqQxcDOPHDQ8 3AvRESCbxOtmxDoR4OERI56jzRcT3oKBMafwvwQC3eMABBWkSupXbSLMCDcw AOo2iV1ikhRm+BORuG5/lIGzuFGvYRGLQVRZSh1NINgFFeOCL3UDN8sbsKRI TmFoRCXfIFZVAmXsX2j6f/DRV1GZ9crdK9dpDA4O/tgAm5qaWrxkhbpifH7b r/6wYM4WdwxC/Qt9oRa05QNBKhFkEr/vPJxIjFCbEOzwAC6m/1gJ+1e2jar5 S9AXWYM4wpKcQkjCAJQ5kM96KexxEKfTIL+j3sUmwCGl2Grh7gCYgVyTW32C gu5rvRACH6ZCXXM8dRnXRbf4JtbjBb5RhKPuoZGzoA7+mlraYyQfMn69Nzgw pQlngShSDAoHPOAszkJ7Y3O0zdZDYltFHFfZeqpJLNweokQl6VO7EVOggly8 ziQSAEOkjJc+k+MIMUbKdQ2PZqpugBbXqCqaRf/scUhtOD5OD8EtKMX1XD2j ou+ARw69whpqczxiJzK7DVDl1w7SQlJRN5FCZKWVCtVK9xZpByK3yNTQl4t4 BJxC0uT4ksbh2NwOoo8RoYRJJZzOhbTEiwNSARWSGC/ISllMZcRlDHCpvHP4 3z6YE5xUrty9ZYfO0NDQjw0wPib7zRYuXW/nHvGvc+Z/sGD3Zzu8txyMwUoL xGZooWgVXftUQknN4tMRiyZSNIQiOptZ2Q8jkWvIjGrGBXJdvIwssPjU5PUN ciu50bPXUF9UhWqdV3ZlP8fwDeJKVViZFf3kIKWO5ESyBJQtR1KKIrPlSsB8 8InrAW1l6yjESKlYLW9IUs9SfcA8yDkcBANvlFsnCdoxDP9aL5j6C3xeun7v u+++I8FxOTWVArHNMcFpjeR6gE2afvZCzDTmioRSiZR2V28+cImopIVl8rUg eFmiMSo6px32xuNyo/LsBjkZQz0q4kSKU+QfMCZv0m1omSuSy8ho8Jt6DxdU TCdD0puKG6hJC+BkrEQU0//0cmEltbs1MUtCJ0gZS9fJ81A0uh1bEUdqPq17 TNVGs2jImavjFEIA0FJecRVSNlEAOHEQFYeuQwqdR6L8+kv93/zxC2vX0Dmf L96+Y9ffAV18Ll+/9/uv9/5yrsbvlpnO2ea1XD+UNEdEfLLVG8tLnRBC9S3o yyrB2C0HOcpf0eGMDpKB5WD+L/cEcQwEoja6JzcBBpw4NHaFpOCX1ABdEGh4 EBfcffAUQUt1o+uYRlrE9RRxoRliKSUpD/Wido9//eYbMia4hfOBK9F66dp9 ohuMATC1agMEUnUaOGeuNxOzi7XEctocbEtJS9lLcmcIV2+J+z80AlfgaIq7 erkbOT7VtE4ixZDoc2uELsIjODehoJPf7z18BqjAJ/WIhkU8kFB7sUIRYgO9 wwkDp4TQgovAGC5OKOwSpeXVu6QwAFnWOoIkoP9qHwkKUv+keiQBDAk4qT7o v5l7rpxMGEMQoVfVog80JOjC7DB2W/+k0g+okV1WiRB1RcsIVRKZHZTy7yrD MHEHMqQUM1a1n4K6cY3YFtshlbgAkPwJWgBdfE8F9/FWr9+vOPDLuVt/u1hH qbu/wyepuIvOMCg4mSSi9tcC9lSFGNxczAcOg9CyKvuX6IVgWyILJNgGFd+8 9xgSPhYlZmqt2BeeUdHjElFBCuB4x5AyQlgtc6YgpcYMFHdZC2s7x4g4Ylbs vaYbBOdHyzXa+AVKR9WTd4obh2feHlVUf3KfSybHcxhOVG9JIHvCEuLpZOOQ 3Lchg/58ut2H3PHkmaiMyEfRee1gfrddCkM44JkHxuDYk+PTIenNVJpqxTTV GfjhX6pIqK+t/xwRcenaPU4BXfQWluDqC3f7I93VrhcQHWEyb5eYwK9eZJNT fQIn8lf0D2ROr8iP2CqjvFfPMS1eYlV9wOHnO3wBKmoByuIbuBqCgmm3WyZQ TQDRitYRUWkmNwAS0gejA89oWgZOOKON+QWbfC2nAVMtAiS8wCkUC87h5fSH VJhccnyfrC6pyzDXtkPiEa2uYyq5EpsslBt3Qwv86e+ALkowmZtEHCGlwLmh s5h/iw0P+RSS38UG9SZiGxMYeLFOUPfJCyABTqN4oXhkpAikAx55anYo9RGA JPSePn9JGhqfujlPaCHxiAQfIfWRpugQtVQQDgRRnEUxjnf4EuiCZAI/NL1Z QYVaHpIkwO/IKQGPn76gKbBEVJIcgTfVNzA4f/k2poZM1I1EORmvKKGwEz2G uzmSUXAwpSh+IUzorXr+q25lgGeUFfSSWdH36OkLuoQ1MEtV26mSpqHo3DZa gxjfcM6334FGTHTq3DW4BcW1W8yDzWNQhAY2Uf189vwVmY6wHZFAolfA2zNO bN5yNLwc4oLtz1+5jSVhQlToTrlWV61GoasRWS1ROW3wFf9LAf5aXhgqlm8J HCLzivc+e+b6UXLu9le3XPCRkauYpLFMP5QiBX9RDhDp9BZrwBsrDMP0ncT2 74i3LRaxXBeL3fvhZvWP96FqZmj0WW1ja+KaTTQxUk3bJK/4GvmugWBruT8k pdxmuVZdvfsMU1+//YgiZZ1ppHqUr2WTXN4yStoiCUL172TMAgYgB/kzTMJc 7BwYVEwWwN21XWconRjvQu1AeI/D1PZZmAuewYBD41fAP9U9mQhgYDTwYOVX JN7SqOVPP4Fu4/FxNRCEH9U62e3W3ccEPmEOawG5d3JmSHHjEAoEP4pFOjqB qAJ1lgIYvzx99oqRbhQ7Woun2OBB3SbloqNnxXvk0dunJq/RLFxKV9VZg2NX 6Ax2g40hauoaGiQqyeAEAm6lDwAJAwakNMTktTNq9VISpB1l3VxNP0iPg+HY 5r4J36R6AlxtEJpfK1QWsjxL7jd14vRlrCdvRZ5Qi0HkzZwoWO7spVt0Vd20 F6uTLBMI3pC0JoLoS12xMIc6BQ1GZ5TQZSDkSgQkFiYF/NgAU7vHaFon0mF+ wXTqJXfi9Z3uOVss4qjoCeH0sl5olt/HLtzsP315rUmEXLhRSm7i+JNjV1BN jAthQ2gwUrRQXddpyIch0zKZQu0A2dA9Tt6kwbJmIaShC4zA2Ou6x8iS6Ir0 8l66Qb4gQ+E1svYfNrsDCdpMKupKKztOx8jOaqNCgjQ6p+32PdEyIXDu8m1c gIv3OqUpeEAjZEB1IaTUyn1iU19cjDtGzl4FeApgMC38gJjZJlb6RPDLOXnv F+bggFevBZYO+xUYu2XDP4zUTt4pffD4ObIcXUquhKwsvAvEuykLu1D4iDq+ +XCLB4US4aPmaWAx4ErdPXDqEqIC05Em1PNBVCgVB5V7tpy1SMtowqUGoWKn R92gwrqTgMpcvDQzWS29oXtiUymLWExHD9GlFMuk/ovX7m2RS7GAd1pZD1Uw 7uB4K79Cubek2JSGDiARsQMpA6v+qDN5xsVOMmXW8k0E+vKdsETEdvGy4Dhs uMEshljTP5pOgUYKQDnDLRxc2TZKP+n/52IHLR8jt6yJqZu0RtRQzcFOZy/e guvQkxyAiXyT6o6ElSuPiwU4ifXAAw6ZvHxbTQ/oHDxHXYlrYnLbe0amuLpc YFJCvQY4xUaCLpmF9SeBkNxJQAQvxeZ8LT8HeXODqIzMblVTRqk98Vpezfd3 MgEq9Rc1BUeCf8KE1hC34n5+Ur166GAXXEKBhrU5lyQelNaoggvyofpDJaqm SFXkd9jmwvQduCW1ROwUQdbzkY9KyUry7nQ4MQgIYWwKOmQ5AENzAoAjYvOB ZApnik14G88iCDmFtIXFSP0MDW2gmF8kYvkKJFCqki8WI9tevHaXBIFx3snp apA2Xfp0u3dElpgwVtE6itFC0ppRYnwPkZI997uRkuLRGLgPpsV6fEm6F+tJ Q0qoHWYmy/0YH3QRPoUrNA7FQUeENmbRsUsxdM6kA3T7kJx1gCYkCjbKFxNA CBiQQSEgCRAyF7GPdoIJkaYbTKPEq3zcxDyxpXKxKuKqtGkYzKB4SS5cziGk 5Pt3NTJ89xzyAvkLGU/WIAyBCsMHFXQPj4NAAh9XErlqRQ86isIfNoM65Is+ xYpIUg9cJ3Z/ldtiYNLS5mHSCpeWi7WL6ZW4PRJaRqkFrmjHLbpSvFlyTzCD BaV0CdrBR6j0LHkvBWcBQlQZgry+e3yPQxotrxKvrYwiocOfaOxyOWcbh4KZ 7KoB6Mg3sZ5+0hoFsnyGm62SOEEn3qKb10GaBjMQGqZzkTtNYX9+UP4OwSWE CceAdq6SXzeIbbk63LtMvumSs1AR4lFabLVbdJVrVJUs22PxEbGMSREt8Ngq owgzT7GBtp6YGyAm6alJsJxLt9eYRLpFVcr91fPxyMxkub/5R0wV9i+CS3GH d0It6pr4ZYCEEuhCZBY1DqF7tcSbqiJQ3RgNNgaBBBomhZwp34YnrrqKovsb dSfhj1s8xW4nx7J95XZ8g2cuq1IFVNgFlvSOiMlgi3TEopiv9MTLg6B9JAFe wFMGRzNh787B82RPHE2bYD4isxUIgUMSJVpC9RyAQbzoPS4NyagvS5qGlxmE 7LBOxJL+8iZnfEEHvSUW1GYpJAv6H5vfARrJO7r2KU+fizd9kD1BLwIMoULE 0TJCiKHxJfyMTQg0Cb8ypD7WgD9pRF0Uh4Lelr6zgHZmTj48+eFmD0zEWAg6 eIaChZCBTkGLmIFjn1LRMsovcoGtmLWiVq5R3zmGlpI9YUi16xSsfnx4Cu6F tRgRB3+8zQuwAfsXr96gyqi5DvsWIBpJ09icf8V7yZ0zkKPEOCP9QtO/uv00 sCfG1SYzqn6JEFVAHO4gCn6k1z3gRFKJmrcGzOSq82Y1/1nsHdR1Rm6DELHV Ih7Fi0ZdLIXQMTmNXD5YSWgfOEfUYHDELbEAJuk8yZ3+E4AMihImqbhbXQ65 kl87SMzicXGfan8kZsHpJm5ZOK6lbxJiFHOtQ8so3kEIVIN5AQDHUHzJrSaz KR/QRSWNw0hxgIH85nuVfNVeKyhkKlMinSCFHBjX0fCKycu3MCyMqmkthAdq StsudY6GJ+lS7Tv30RZPeAC0U93LBWtiKix0xNWhygMeuUSHWnXuLl7bl4cS UINCU7X1TxIL2C2xqJuegHNx8y2wGIiqHXgYNXiAQrMr+9XMZ5IXxqdyMTgq NqQiw8K9iHPwbOqeTRqlPp2JGg52jawADDAAB286GAOQsKql3IkO+m3qmaAd qi38QsQdCS1dKre9ypfPrTgRKkP6kgjEewwt4wEVv6Bn6AwIpycw9t8cXZS9 BB0lJGQVltEitw8VK5GhFyNRC58EKnyzxzGdcCAuqPQJnFhZWwEkmAqiDheS tUjtZ0hTJCxgo6YoZ1aKbU5hOcQPgVxQNwhy+F8CCg9C4yBt/KKQ1mqnETnJ JA7+BF04d5eVkKb0EJDvl0+xkbUukZWQAHpJbptZqAZCH1r7J1HspDb7oFIk 0+jkNQ6Tr1cLJ0US4DiaYnaVsdgKjGTkFV8LAgHPcrGuM4YExBjBD25F4TBS MaV5q+cO2YeqtlNrxHYcwUTfZbkVLUTKtZDlwxPTpCoFb4oLTKEmACg1+PDJ C/ugErFgNkC8NEQu+svCldAO3G4k3o5UklvdT4PwPKejbLk02olcTyepFDpO nCPS1ZYsZBO809gzgbX3u2d3CeIqonGQTBT7JNSKjV8k7KkOOGbf0QzqcSIC YzIK0Cui1bdALTl3DC0Dru6x1XgZE4n15n/reWIwMFlPbW6JKojJ6yBfkw5I JfjaWL7VDoNj2N1ia6a8I3KPX6xHfgQhDGeDaTQHELxYFWV+LKYKJ8o5MNVe 8TUXrtzBNWrHISjikE8eANt7JI1vuK56HwfdILlgN4fQUvXijDPnbxQ1DDHe Dze7I4+9YmvIXDPzMNXEHsz+pdhhtVp9eePOI+BNh9VLrxAblPyEM2S1TC7k h4QhW4Ka9tXzIPV5/vI1qeqTbV5w+J++4wCGvHbrIfWvlm3KOpMoOeE2BG5c IfcVJwrQfrniXkGWqXvumQvf3wyPL+ycv9sfkNx58BTxpkozMMZZR8PKl+oH /36Tu9g+sW7w1OS1yUu36b94kVxMdbG8UYCyFa9myxevZlNzSEgrgH/lvjA4 lhikjCJT+4oZTXUwPyRMO06ydIoVOxgQEV6qCkOTwKW0LF62dSQNfLpGial3 EC80guqgWdgVUiXLEJ5AkeQyM/Xub/UJlpOpNMxjQzNELiZe0H5ycY1QRIQz P+LFTPvCGCk2V+9Pj85tm6fpR4BDzmrXGsIHUYpqgquxOVzHSMkXsIRKFmI+ /K0HOB2RrOsoXvIIBqglZ3oCmUDUNE6DAECtJYFVlu4VinqZQZicSdhHRFS1 jspbTKflvd9IeO+Y3BNskU4gQyBrqDUmfBOUIp4acBYSbsvBWGgBnfnN/31q yr2Hz3bJGe8bzKIU2v/0Y+iSJW5Imsd6x9fIl0EIduJfVYjRMrlv/u4AsY4j rBzjwHJr90ell/fi7rTSHirEnKoBhNNak6jVot4JhduNXMULwUHdd999R1Pk faJ1ZvH16fPXCYTFukFoDACAPc9duh2S3sRhZLEAudTok23e28TO22Kn4trO M+QIAlNNR+dckIPUB2PELNaGlHzls0hqCr+kuuqO0yau2aB3t3zaRWXE8SFi AoyYBUS+/huiC2lKRoZ4YU478eJysXExfcZ0Og6pjBQk7HPJ+Hir16mz16hB gJC2fQrYIBAg+e3ytU3KMhRra4zFcml6KxbsB5UQ7yS1wvpBBngktJwyHJZW VaHYKNg4Ag1GyMysDnv1+q14jfux7LYBsdght3oA2Pgn18t7EWLLSnIK6miL 3H0aqICuXTZJMICzeAd3FVkbiQhp9AxfXCA3amBczb1nZ7bJcgwpQzzDYHh/ ZrsG+ZyxvLD+JB7JrhJ7sMxg7LlcBEQ/aQ0SULB8/eYtiZ7svOmAWP3aM3KR LEmDAAAa5xJi3oiYExiJBsAa4BxticLHJhvNYlYYiLUYdkHFBB0norJgGATD wyfP1UURZshLce7eYGPXbC5H0rf0LQQPYPjV6zdiE1EqEb1geZMhF5uTC5bv C82q6FOO2GaZQJ9xh1xbFIq5kkuOkzWmbz2gw/SNNC00s3f+KnlPACoDaeje HVbiJQJI1r/hvugwfICoboo2mMXE5bWv3x9V2jzyhZZ/lJwLjS5CtLhElNNh Qky+XCAOgxyLqgJFQ+PTR8LLlhuIt8d6xtbsd8tGPC+RTxsp6LBeQkEnwUL8 2ogFoWHiJpWcpnv63HWQRrbVcRArDcVO43E1CNQL03egxM+2+4BwvsE+4m6A 3JRG3B40CoeaOAZJjyXxJgIDtU+aljf2xa477SfOYXMIhzIkMqftT0f68tUb VawB1FLpXIqXW/eegC5EFKBCVw+cusSgpPx+oB53IiMRKqvkTCp1n3bmU948 Ss6at8uXpAkPg3akDokGIYEA2CSXKoBJoobGkbIQl4V3AcATnKwfiqOxJFz0 2U4fsv/41M3G42JnBvrDMHfbpoht230KkFjv5M7V5AJOBFRQHwgHxmTSc5fv yCfXovYUbw2LrBT38A3D3KKr0Cr8yS64hAbV+5XgB2FJ/0KUgLgJ4JjGhRiC 2joSGOBc9aDhTx+b/kc+jB278QMk5HPDvL1OYi9QkoWLXPEETiA0uEK8Ss81 C0onge6U2wUwFoSxlk0Sfca5TuHloJF4dI6oVMuTURQnx65E57Q9ePwcVoHw iRFc8PTFK0J45+HE4NQmUw+BWI+YarkWSdRxavEIGrhv9CK6CByi6mG5wNQm 6lzCUBmcT7ZcrlXeOkpSbjg+ppI1QosL7bYT+/D8P3ZjkLP1+jEdo6NNqlSU JGKAKp6/EgXibRHyKXZ5y8gaUcVXI/kgOobpHF5R3X5K7Rg28wGWKD1+yOBc l1KCIXDRxh6xqS/uDvjhXoqagUM/SWTq3RwwmKZ14uDYFSv5TmdKV0TIetNo UOQcXgldc7p6XkkKePr8lbnYn188xcYyN+8+hhZAI2KJmEXbuEVXw1cYmTA3 88gR+zvZieXnoEW+skfseIDkwEEgDRKjEfTqRrNoh+CSr/WC6Rsls6l8wIQ7 wAPY/pu8QIQgVW83gLjoGMIJQjDzyFuoHXh8eMpEvupFPbB78fKNvZilKRad /WGTu8kxMXWTEj67qh9kTl29J/b0iK2+/+g52KO2YiAg88SZy0pFEGuoYupl tYchmZHfsYZTWBnFEfoNi0EpebWD6rWMFFYa8iGsmvkMPyDGKMfUvQswBoNB 7JB5YGoj0Sp3lReREpwmZtRTdHy+Q0yFAjaAnEx3+94T7P/k2UsAAJBAOBYm tIkXqbHFPoT8gGeYgUDIrx1UPMafgC5qihKG0vj8ldswIYDJq4FS0uZq+q02 Eisio7LbMKB6Akh/YAMgBHjUweqOhLrVrJbT4j49+XomtLeuYxraTCxhCyoR C0BqTtA92AZ5gIz/XC6iFPdOvfMQxod9xXud1CoYl4hKfiE10+zU1btR2a34 cfjsVfpZ2TpKT5KKu6AL/HU0tAwE0k9GQcaB+fEaPhKvFTAIJT+qieXqKRJ4 ABUz+w79Rz4O4rXFiVSpX+4JMpevCiWawDChxBW5UEJR1w7xXuMghqxu3B2S t1zgJcgKrlZ7LFgHFJHgnCPK+V/ws069JsMhDTgRL0dCStFR+JHM3nfqEiUh Y6fQQwYgNpp6xvnfmNx2uAIwADl0FHoVTthllYA7SIhwIKi4IKWawpjazQMW VffqXaOqwE/H4Ll38tkKqp6KAN3e1DtBChav/rQVrxc5e+kWFbpTeIWczZKg 5tVzPJfbYh4HU0FHEJeq+8iVQJ0UAzxQUEArIrNFbE3gU0BGbjg+bibe4BxM QKkXOMrcWsJVth+G00LpAxGUXNKt0PVOTgNTo3j6/CXZGWszRhR1ft0gDIlW RKlmVw0AAFRrSZN492V995h6WMAvl6/fx+zQGjGFVSEBLVuxrF7MPNcWr2/D XxzGv7RMJ3Oq+yFSfjYeiJGPGkuAEHhbsU+ospTS42IH4+ASjUNxUBn6UL1q fJl+mK68yUZy+Q/u+HTu8m1oZ71ZtHrBMVRMyIvbdwdiwAwJxdhNvBEYlqby HTl7DR5QG59aBxarZw2hGc2Qxh82eaibn7gJnvl4mxcn0jh/pX6E86GmgvqT 6skadR+FDL+TmMS2ouax1EQ5corXO5mnMAht0nhqyfGDnrmR2W1WcqMAdKy6 UQ8nUKrPFzPqk1v7J+Eu8AwXKSeqD1SAj6iz6jrFRZF8GFysC5MiBBmwRm5N AIGr4yEfek6yQI1T1CjAjJ69yjFIJj35/Boygf0oVdrlWWRwWCUmt21mDsY7 OaEIUJGzyGWtck8ejoGayHHvxCSNlyhDSjawR0CBDXH/80C0KGdqBqKlYoS+ korERppAndCmpAK3c3f5qTzeN3qJNA2G8RQxi2ADrlgeXWHgnCnugSc3kIM+ 3OwBKUHmYuGtXYp4+hlWvtUiDhqfvvEAb+Iv5Vkuh1ykvsPjmw/GoKIxJsaB tDeYRg2eufzXQau7u3vPXoOl63d/tN6GTC3WCAiuTpc7FoqrA2kARtKXz62y qKnxMgqN0gbr6doLRsXm5c0jYuWUnIuoon78wg3qTfU6dRxKCOBc/aMZu6wS G7rHIBASJRUQ2ENWqenWOF1sAhBRAX74t7hBPJOyDShGHp+aFFOs7z182tw7 ARmKNzVEVioCoR3YEh6TO8zE/Ol2yggnF/kImAJc7gvX7RJZMTNjE7eSkhgp KQyuIMsQ78TUpev3aBmUglstES+VVCVqjhbGn6EpHMSJCAPxFpv9UVyX6p5a e+bqHAaAYRjoHeSonItGpUvUbtSwhQ0n4WRKGAVvuVdYKHoD5rl68yE8c2H6 LgMEXXK6Titpztq/kE6eOH355PgVuY1eVlu/4F7In0vA+QBs5uYVoaphHgcD UGyKd8955MJU4o05mn56ch2NICibJHVLs6B+cMfhePUWdVlRZtD+Qvly5082 H/3oixUHLQ5XV9f8Rejq7e1d9NVyr4hsJ9/4X/7u8880XLDGRnnD7Wu9kJVG EaBd7L7oU7BSroPAwkQNXErWQ/zApZADtZK6AzM0Ma12clBP38gvJFCwh90U wYp3pvgUAE61cod2EJzQESJHpcjeUTHb2Seh1jqgmAHaB4nNJ9V+qnxAaVhG C8lCrXq2DRJv1oAScR+oo+dACHPNcMg7OatNrQVzixJ3xqALiPfmXbFx3PXb jwAVmZErEvvkfco3TEoxa+FDdgi18M7TF/sHxi4XU27yqf7oPKUlVz8pXwBK ssYC4l6lVMLvxGsxz2CQP7Uww8SJn2z3hpeoF+RtwwI7MS1cbLKdWdlL5xUj vRNz1O+LpznyFYdHxJPrGjAjdjBrGqbl+u5xjBma3oS1jV2z1C6RNoHFdON7 OOW0kfJIQGD4nVzuR0Yguk+OTdMNRDUewSD8AgLBMAQLKzJGbTFLNkyt9eb7 dWJbV7EH8gax35T3Z1ucf/abTw/a+/jHFi74ctlfhDFXN3eXgGS1lsTI0vUX c3d8ut1HrFlwyyLvgBlqOjhBpfI1JhHEHXDiT2Ljl4JOcG5wVHAdPVltHCnW W5lFEzXg0DqgkKYAPyGGFzBIfH4np0DCK+XzNYoFzE7BYiweAhYelW+v5oCY vPbDvgViXDu8cRyaNkAsGhUzk6nTOUu8UPKQeKFkbH4H7CceCujLHXUsBBL4 KymS49WPgVM64p9f9smdi9An0C8SS74mKZqeo9gJHM4ylm9soUu0TIwjDsW+ 2fLu1rr94rEUAp5f1OjAmGNImdolifyCEcA2V4GBNa2TZq7uJXcvJNui8egh EnFmOFgAO68yFDfk5YK1Rr6MzGpdsicYO8zX9J+j4XnAQ9QLfI/9bQOKMBFV gJl7LjUL3QP5xO8OywR1LaBLtUhoLN8X+vFWb5QweTBCzlgITWsiFa7dH6le oElSiM/vIJlCoeqtcOv3Rxo6Z4i3h9skHYupIhNBXMaumeqNeB8s2qNlaK1A 4hdTQL778wF25IjTIacAde7GXUY/n6dJ9iFZq8lpeEEuMI+VdwBGILTEom7v hDpcWdl6iiimvqMEoNtQPRWWr9z9g+/zagfkfu+BmRX9pKSB05eJR/fY6sEz V9BRyjjkLCxs5V9IeOL6tLJersW5/GRW9gGbRTqixgSBIenN0Au5lfxS1XZa vLcuuNQmsIQToVPAJlYBu2Q6hpbTGTlXM1m1w3Wp3I+PTIkp92lNWBJrk9HI +CCf8EGr4Hqxz6dBKMRi6p6LCsWnHI8rqUFIuygEuFRtU7PGJHLroXg5JTtD vCO1vLdCvpYIEqNa5KzBsSsQQufJ86oDSCAighOhLKTCLpsktc1Xc99ZQjgg WdSk5a2j0DgWwNrROe16cuuSxbpBDCS+oFO1I5dlddAHUoOjfDMgvdKQL/Ol ouEApL56hwiUhU2wHnhOkKeDFkpLygcqQUKJ9IQ3+b5tYJJGqJFVtU52UK9z gjbJ4HN3+oJJuocTf7Vo75y5SxRIrF1C7B2d/nyAPX78eMWqtTv3WixcuvG/ /PKjjza7ywWnyXIrOX8gQcVE4sD4CB4YidCWe/4XeMi3J0BrqCy1rxEKBI41 dM6k2sXgoG6LRRyCSj0cJDliRsKfpiiXIHwrvyJKRRibs6BxAEaKfCdXnIkU LOeWAx6uTtleLmfpqD5TCYINMg4CGAu4RlaBN6WcAQ/nEhqci96bvHRLvbHl nbjxJXb7HDt/45C32FqKq8/b5YcXSN+tfZNiE85vvqUd9WJx9KFY1HbtHiqI CgXSY3QukZXV7aeCUxvn7vKF6A77FoJeiAIYw2CRP2yeDyqQ35OXbzMo2kfn gI138p4/GQpNjjczK3oJVVOPXJfI7x/EIDKpHIllVbCoOQZOoWVqzhjez6jo g8BJHFTcNGUjSvVx2sdZKFi/xHr1VBrjjExchXkAElBX5iXXq80MhyauUnZt tYxTE63RKsS4jn3KnK1eEDKyhKihk+o9sCsMKCFT4EP++s+/mPP12p079MyX rlh95cqVPx9g7+SL0uauN/3NEn0QRYcBBlU8KZiEqN7ei78gEBIcAoCB9wxP 5dWcMDmWEyRWSXuTdAjhY9HVBD5RDPIJVSpc2AYLU8vgKWXAuq4xUoyK6Aq5 jFF1YGr6rrHc7yu9vEetOAOxtIkaIQfFFXQyZDWrior+nRSuCYWdENoKwzAj ueXFzGYjal0kYlXtSyN36a999vwV8MZfmtaJOBR9i4shKKhAvYqXgoIo4KKQ 8LsfXl6PwiG61Z5LyCQ6DFSIFwoNlAC4IrgQw4Lng0sNXTKo1Chp+QFpIIRR I/sj5crEmflgt+4+RjJB2th2j5xkSA59J2th9aiIcAYhqERMvcMqMVduaAbG 1DxYhnP6h/JELfreZBazWL7Fo7D+pFKeuCCltIdBBaQ0UA4f9i8gJREgOIJr adunYH84Abqw9C2UsXAReSa2KchsdZXGsfDKJ9FvkZsCadmIBePIlYVafr9d YjBnpdG9+3/xDLFnL14L9bIvlDSxUOw1mkRQ0LiufWpwqphkSP/rhVxsULtE cvXS5uHd8q4LZyH1Iefpmw+6Bs+TO8SrPY5mbD8cv8ooQt2+4HTaEUkkqooj KVjIjySI81duz/QBKkMFbTwYQ+g5h4tXQ8KTDd3jKHCn8HKoTz0HhE/EHcXI CoAhV0aLzeUI/Jl2FMA4GDjZyhXBaG9YTk2VVC+/4F/S4rVbD4mI0bNX6Qa0 gB8BpJrL906+wh6/pP+wIzoAZmjEGmzAKVdvPkAeP3r6klSlaZtMVyljxe2d fWH8SztSghZhn9v3nvwpwPggEoCuek80JuXg40NT4Bn2xgjqLYfACVYkm0Mg RIGcVAOTB1299T+de+fBU0wK43EtxuibWCdeI57RrN5UbiG1q5iA55QuNq+2 S6nvHqMohig6B8/L/fOz+TKvVjwZpESFFrBqY8/EpoOxxDWC0FAsyguA83H0 Yh2xeQUtgxO1LvUv+nBdvSPp9Eq9ypzA3GgWs0xoknwz+exGR25QrGySVnqc 9KG2wVwtd5OAqCG6XLmXCD0kyuj/2Yu3EAyPnrxoOD4ut/8VxqRltZiUc/ky s6KPRIlPL12/RzLC6R9t8QQMYr+d0FJkLYWnukVPulRdpfpDp0Eafol1jBS2 R2D86VgAmNg4a+iCGXLrcDxHQk3dw+JdjdCyeEPfkTRiQT3oQeVel/uQP3n2 khhH1j56+v0DEUBLiOX+AAz12J1zVaJR29Opt8bgaAr8P27xwFDEOxFB6sFf Wy3iOZ7/hfr+FGB8PGLEraqJqZvwMHYAXTN37dRcGrWWBAwjzI4PXYDM52iI PRCmpu9QyQ5PTJP4SCJi/ZGmH1zN0IABCUXHXrx7gpL8/qNnAGZ86iYpg260 9p0lNovqTyLzGNpyuSAduqCegq7LmodlURMAf8r1uUloTogaiCo8rDONIkLJ uYT/X7Em9+TYFUxEkqLGgbcpQ5aKx/FhqKyVYt1QO50R76owCPOKq4V86AZG QEJo2SUTCMgesapxl29gSgOeBai0Bs9DO4pzqL9EXdx7FutB42Iuol8h8UgC Ert5R1eDusVy3d+8nX5oUVIDrTFqtWnzmQs3MAi/vJNT8SF2Ik5t4ICU5dLk HeTH8MRVeZ8wnUoKTcLpRDQCjDTtLRfZoSopdZH6ZDo8DpdiupkbGowC/sHX OFHtjATHMmq8CQhd5Zsrg1KaZowmd8XPzZOvlQFR8oZkJFdxiRDPlykG+Stt woHwD8CDoAglUjw0xWEr9olpacQOf6V2m7ltRXlV13mGsALJUA0Ji9jk6uRB ebs+QE28z5X7A4i39rhkUSNzfFBqU2XbKJemcZpNK+tJLj4ek9uB8WG5xp5x 3IEEAm8Z5b3kdHiPTsKlBCz0SNZYKTcVxEoR2a2QlU98LepX3qESrzihENaW 6aBV3nP7iz5q91oEAIhFRu6VuX61YcQusXa+BIdS+BCeXDSzvM9GbDokXsNt KeZ7+6WW9oSmN2NhYElNR31EfqcptdQOXYpJIXy7oGJMp+4+cS1EGlLESL4E DbhiDS5U2jSi55SWWipWpdEy3QCBZBAkGTwppr6Hl2MQwhDbkizgbaxNn8Ur abzzMSBaJb28T+1NwQffiaUreR0Icsql1v6zsOj5K3eIbvW67fm7AwguvAPM sC2mRj9zIdLKKXm3H3mvZuDTplpjpZ75otlIGWCbzty+/+Tew2fEO03xDaRK GIoJdRZx6tYfKTKuoIOSDbqg8a2W8WSHLRaxMMbo2WtRchN1cRdCzjkHUUfD K0AvmZEAgUUhjXz5xi7gCgzU62YISX1x5ycbRiJ438nFd2BGTa5gOMXyxVvz tfwO+xeCTNeIitquM2BeKbGSxqEvNP33u2dTrOFr7AwaN5jFwB5iG2ePPMQM /cdl/FVsQuWdB/lQEXA5hvyXAiynagA2VncgCXmuAjPDjRAFJkU9QvgMNrnk OC6gkCxsEJcgEMTrEbUDqT6mb9xXW4ySSXE3PIBldshJIEDOXy5dUZOdvvvu O5iWQID2sSQKnPDkeFhI7GeS2oBIYETZVX3IA3QRGeHB4+cWXuJFG5idvCb3 UwpDVwAbaUN/Odc3hywDj81sfsKF8ALEAiY5DJx0nTwPemeWYpHo+avYljmk FFpT92/FCrjEOuRHQmEXCgraIQrgQBI9/qX0wwL0EH3FuTMTOcgyDBy07HPO 2GEVv1cKyDUmkarsVRqMKoMxkvqX7AnGuWr5GOlsBeWGVPs2AcWLdQPJdCD2 1v0nWIYiiLKIpugSZqzrOgO8sckxsWioUnpK3J9cbxqNFGFcAr2H4gAhpQqW J82RBM2987RskvgSfqMbN+48QjNgTC6t3u5X3zU2V2w7UITBGSynZFX1WcmH 3WAAa6OX/i/m3sO9qnM79/0v7sk99yTZyT1J9nbb7sYdU4yN6b13EF00iY56 77333rtQQx0JCQSS6CB6L8Zg425H9zfGgHVJTrKDb/bOuevRo2dpaa45v2+U d7xjzu8bw0eb4yBJwo1lxL/pRcwChfg6rgqwcFpPCY7SjqezbwhihiVLZ5w9 GdgwowWTHcWXmAumhQrwi4lroqc6x4PbRENMHcWdv3oXGiD9JpaEOnnkAMIY DyaKf5Gd4YmEVOwZaoqzW/GT2UrCLSskphBhc2t64ZZcDo3LPrUdadqvLYm0 6/j5G6h7e2ipgbm1BSfW+yTUEikAGdwQylp/8ORdfSauceQJvqGRUE0hrXrn st2ZYClX50PptFvUCTtCidAtAq5lozBSosm5K3f2yZPWllp9sjms+yJ9E+vs KTYcHtFBlbHAGVphiaBALMD2xupKRdfgEuTcd+oqKQwuzAlBJ7zPFuoQiHOq Jey26JP3Bw+/tYe/SMye3hIyICH4Au4MYjd1n7bltVZnhoviTYjl5l3pLQjU 4xpokKvg13AeBFjVOphT1cO3CL6EHsjGTG0EsFoeISVZUyecYsmuTHxks18R 2icASTfMHelBKQ2esb/tUREvnCKxsAO1YtuYq61SQxRkhaiVCIWXzdicSG4I GiOcUxdvQRtwwzG622hYSS9WSnActSxsyvo4aC3BsXvgItiFELRSTSJf3OiT /+HCkLfnyFMA3NNaH16/8xWWxp8dR4bCMpuYIDOysDVw9joZPT4FPhMrF2tb mT2RlSv2ZeNihg/YCWiD14OxuDDkUGstZktBvH3ZRAfIJNAHb8EFkP/iXVKT GZYFWNmumdi8VqtcAV/Sew4laeVdXBe1Qg+IHYiFz0PSGx9/+wPmp512myFI 6Noot26IjvCOqwVbGCcKfXmKFw7L7BAUcpOxyabydK5LiCFFfSJ5fZaK3V68 fn+RlMKW5ViofuW+HNimPVFd4JqG12DPGBj5i19iHdQUAeJlhFfmBSS+vyDY nlXhfdqzsg+ZcBXLL+a7pMLSSSuwjUeaxeCzdh+bgHjpxj196pQDkGLhWo2q fM62lJaesxoWc3dL8wJ5RoO3xuY+uen0/C9CCfJHvzO3JNoG2+q2QRJGs3/U 7R5TJc9GZ/rB2CFRXOUL2V8vlZqwBBxHNswGl0qmH1mJqUvVl7WxwEX/meuE Wg7YqLW17XkZ3soBt+99LSv95gYAHcyaM2vXGHkO4p9U/9GiYKl745HHNJFb /5mr1mYL9ktU5erAJhmcjR/uQRxnFpiNUMflcrMdCoQ94MsrdF0KpghnJmsD ixCaLK9KrENByJP3aIfBowsOBgwZ+TTt20Kmg9J5T1zbqitGIJO2Rw+XXCkr DSKxvb1RsusNVxo4c410AL9wi65+Eq0iKuC3JiXCQY0inrT2eFr+gmSQuVjI 0K4i2TBqWdUZXAqYACneCbWjdT3qfK1pj3jzao+ApXg64YOwjkbAXhxnWG90 M2ykYZHi6Kmr+JTkmFuSGbBnnMDX5oDiqOwWrToVi+/r0zF5JHr5xpeAIQzQ Kq4ALL6J+xkGk61sHmCmBEesl0iNYdg97ed8wXgRKQoFujEDfJAIiEBwAYwZ CeyOqMR/CS7i2mVdjJxZSC3xU1ehIp+vioLZgk7L92SiRGwSR3ByzyW4MDWi DL/vf/UNNJIghTSwE1yAKTD4zIpDJY1HcV5YLh/CqV6Y5MFcQEvbvA/ltmJN MHOSCGffQtB75pYk3j+72QeVYR4YibMuSi/cfwR/hx8SODg58OjgXRj5Ri3X AB9Ds8fP3zxz6Q7uYFUd1nvlk0i+PsOH6RNzYSmwO674lrZU3uCdTwBl2HAe Tnjx2j0mZasHeeO403v28h2EgCimOycyI8+4Wsa23qfA+j7XtB/fpO5gB2MS G3Xr3IdSHUV4vqOZCHklqgQ3YGtIG/x5ebIXJgf15VrAS2x+2x4plNeINAAi eCA0D6zgnPgOkpc6dXE1thdsg69sItYFisTrRLIMzJVrMfdFO9NkNVRpF+wo OqeFL3IVEhaQP6e6BzmAMBJGNyfZk3dMxeEgz/OC6+oCEukqguWDw7K9zi0H rg6sQaUASQRV23YCrX26MoIo5hJUui+y0lYK4WKNXaexB+yKwBGd24Jn8Xle jSQO6WVd4DYiWrIrncNAeKgs2AXOwDlLpA9CGvkXtpFS2gUlgF2gXPJ3zIN5 wQSs5JFsJAyWBcDS805beDvGj+tBvfB9oo9UknHP2RNZwXQYnvVEqNcG347j UQEhhgAKfMGdrJeH3Rci831by9HzX3JPBhOd06pLLIJI8KEETB+P3hZcAlYf PnGZeWHzWs242LFnxIpOW584giy0OTC1AUD44cefwTe+i36tXoe9MJi3ZvuB ciCtFK++ds+8ngwCTviG3kIknOEsBBfMQAlMCWZjS/GRpFV4kKeWJ67Ac5gX l0bUjLy44RgmxLzcoqo4gEwH54LZAiO265azoWJGS1j3iKnuHbyMWyFPPgdh pLnnFlmsVdM2SCDOqjjEmZmg43b087yg1uASssJZZinFnSmFjCTMQXg4eWhm E9kNQISBXbou2hwxLxCz2aFNechEGJgsv2+V0qYYJ74WX9he1nSME+Kq2AZO CrYv07pnCMoKaBOAwFsY7KXr4g6ynTmyMkxv5851SdkZVpZb3cvAQAxdydyj lflF/q9O9wEG8Ud+OADDy67uZdg2HSiT2ECgVPL5SnMrfHbC2uiC2sNVLYMc P2m9lu/em0WuQbxAI7bp4JWp3ugXTsXl7HaKLR0kM+X4m3ceRue2yhqGuf5A K+LCxtA+mZpto0Z98HBmjRms8cht6Dr13fc/zddeD5zc76mFp5XKpj/p8J7X iu+ANiAblwZMorNbcApti1Zh5a8rmweFVe6T2/7ICmC0Z7VffvVY+oKlN0q5 b10X+qk+hV+2NxP34Yq2DYozcHxFcz/cmDg7zyW1rPEYWgtIaSAeYYcgJOeX pYbbks9cvJ1d1ctJrDOvrEfSuy7oXQJKohSPMqdTDnni+Q2MMESo4nJEf7S5 ZLcYORfVWspJTYdOY+oQMNAJ+cM8MYlXpng395yBOFW3HXeLqeJPa/AKdKNT EAZP5zzm1NgY08SFGSF4C/tFxSir7EA/oQ0jZCI4rK7AP4yEZQFhxgGMjX/Z CAEcziAVvHdnojtOQo42UwtNQIpABsyAb0EMBs/dgPlAFbAEmK1RbpTFFD5c FAJ1weX3RVV1HhvChKwnLPSJMzNa7/hau9uJNOxeohkYHN46FDDOPVo+l+MJ HyRlEEKwiPDNJWS3ckYTIQAD00cPspsYnLEHZ8yr8+gFPAJjJnoSy0ju4P9z dMEw9in7rD1yoUBkHI7dxFmVh7iibWbEhGwZHoBJhMLY8Knsqp6kok5E8ZK2 Ap8mK5CTkJvdf2PwDINxMga8GPyE8FsPSrItgmxCQTsYgr4YM5Jhmkj+PdkN Gg3sz3NNReOyE3x35nopbpa/Rrbzp2VVHfpN9QTgvVgm3yUJJTJCUMElZo14 ScewInkItTwcpyAILnBNdQ2Vdftb5EZ3NlaBlkFgAMGaoz3+7kfST2lIFyir U3wS93PMPt3U9uGiYKgptJ/UG6sGB4ibTu7Z2ZU9zBSxMABMGhtG/lqFL86q e0GcECwi7T9zjbwMUvqhplofLZZ2IVApP61aA+6B87KS3DsPbOFIxmw36r9+ /D2DidTC44RLiB+RkXx5mnM83r3WK5crYnJMijwRU4nRWz1mYLZhhwNANusK wUhwk3Gybidub1QlqQef4Cwh0CHvfHv2ZB0qURA2I/sRtqfB3KR49ZJQzN43 YT+i/nhRCGF3xBx/WyJLrMfBCX92BpATgyE68Obc5Tuzdc1DZFYzWUZN2/E1 nvIcHx8hYbSqtrYjYOxKaTQMLuEvthQTlMNmjCJinOAtCkILBB2sGikh9icL VzbGn754a/qmRCAXmGUuDJLrIvDgNInyxrShDbbZ6jlfCByjwpaAVoaNioFQ xNKllVtg/sv3ZLwlXXLymrrPbNLeAXy+XGq8+4PzyAQTBe6wAfAEdbwy1WuU lpoXhrkvKzyr+f5Xj7GxlyZ54i9cy677y6+/dvVfgKWMmBNA6HSVPG4Qo7IM BYViEqjm3BVpzA2VQhScjWjyjtafxzF1V2OMbovOkrZlq6MJguXNA8hEHtZk N5c8s0+NQUICiWKjtYgTmAAdQr87wsuN83MM3mQLNqA0gIAZGEdiqAQF2xto rB7O+ZY2/YHeawGcYHAPAuOoGDasLB0Dw/iZFP+FT0I8Fu9KJ6jBuKx/K7+d pfNaiKyi3yXd67B8fFbqb4eWYVG2AgdZ4dTI1itWskLo0KhlYQe6z9jjs2Et tHJo4BJBf9meLAIH9AlL8IyVcvEfSYlab+kE0X4C64XF4Wi4UmHdEQLTst3S UwxRQ2LbjpzH69+e7QeuApsM8tDARYxtd3j5HKmfnLtLN1SC28z6+Q0McXHy KevjIAzSLV1XIqG1dV75cUoLcQEQHqAgDQfEwCuYHtwGtepi9Wrg1KrfM/d3 5wa+Pct/f8fJEOXhSKC2/Th5CpH9/fmB6eVdUU8XTdnr1NCtFyZ6WDd5QtvY ZeG4pDzOiJddvQAR4En8QrYr92VZb9ND/ZeGdU0Cx/zyy69F9UfXeedPk3bJ UQgQcX20KISEBb8Gc6zJFIGb+EKUIaxIg4+Akk+keps/WM0I7z7Z+3YeRoSE iVBkLkNX72Jgt+894px8HSjATRw7zgAosgliJVyCq2C9BH0sHKZk6S1ckSNv 3H2YWdFNPB23KoozzHBOILhv9C0EH3786RdE0dgla72Al6m6pBbJF9QdIePT beB+xAsgF+MhVqLumZsSQex525L/MMEdZ3lWjBwAi0A+2B5macyBz7kQPgVU auYVuSO0FFjLqz1CNJy2MR7KceL8TS7KLEgl4IF2F1dkviuTGTFUhKa1eTMt 0Z6wJhqsQxfPucMID8WndHlJPF8HK5gmuAGJAjRwXjwFuzWTk9Yn29PAMeyK 3EeaEayKRJtgCyn5wNnrB49deF9rcSNebNXWdWCKjO3z1dHGnRLy29EdH4I2 Pgm1yAQOgJu46i04rBcfJHslKKDuHaHlgJsVFQccwPBtwcWEEhs8Nk+qhd4x Rdkb6JJy5/4jwgrnwdoJE9Jpa12stekkq4Iakcv3n75mJc2lf5ZbNjiDrBw2 Bs5ghEAfw8PAWnrPYjyoqfxAv8O6bFKc//XpvpOlmVQ8MRRT5JOShmNbAkqQ mNWB5AxAge6dicHgCUY4Eb+x4ePnbhBerfgAmLNefCTBqkRiscgfn+W/124/ sL3k0tZwebhblDzgJqnHJBgwzsUIj5+/wTFAxAfzg5k72jTzI9wzcdjXmOXy BAEQxpKZ+PbgUilyvjwciWXqo5PKlkGQhMQK7WMGvolSnZ68DDvE1JfoXipO BQho8wt59v2cvZiZKQYm9ydXRDBCq5OJxKQpzIb4uo6T6IKRzNiUgF3J0+eI Csj8GC0zy28S5PNX72JLO8PL63ULHn7N2VAENEMr+/VY2yyGhC9AL8ENfbTa SRbGpflvbvVh0JJoi6FCMDAtDEwXyLUzknEro0h/QjKaIKU4F587yuBcu/WA KxKjW3vPghuzNifZNhksnziL0vmvrUZD5kRMaN5WWexXNGtrMmriv7gAMgSE Tw7dvKvtZTuOnIdNgQCB2gMLDMfY+BzANOvCd4iP8AoU558sRaiYGtSCwIFe IG+yzlAfrhFTKpsHMB6EaTsa4ANXbz7o0/2SnO3ZzUcYGHIjcU4tOQgEAYaY Cmez1bAMj/QT1dsmvpzqHigN6iYlJPhCt/Drl6d4Al+wptVCp6ViJCCwJ6KS aGhtB6W0fu+5Ldq0CODiVOSMGC2Ob+seUUdV6yBX+Uz3LZKGoB2ild3QWCEB K0n3QScv2Znx7J2WP/HCKzEhcG/kklD4gJjBqsiPl4TKbiAtKDp9k2xMgACg BVgHg8fNpa+ZFKALt9rdCAqAZQwAoHb4CidmfSJ3LH2Rc2JhJyNH3bK7ObgE P7WyVNgS9B4LJABhNtAVaDAQbQM7feE257e6lKAH2Y09Z8SPHIMHu/jEO36/ /VlY10cskGbZa6I5IY5gO3MxV94fOXkFwdo2+ffmB0EyHStkBs9eJ1lDI6cu 3saWwDrAwYoeO/sXMvGcKlnqBuaklh7kAEcvSIQMjYG0rPHIeX2Gz0q3bO3X 3BeizQRhbsxO4T0BcY1aEhb5tF8e8Xri2thne4AicKnf7iL3z5GVbMVaHIIX 9zy9FjaPpkAV2OzF6/exBDhhXEGbbX8GAbDhfVGVpLpYRVZVjy0D0PU8mQQa fuPFCJP37YfPff/DT0R5oiR4Uri/j8QKXUNIXPT24Cxdmc+QGLb1TOcw8gIG AF2ctD5uvFO040H/n3h9//330WnFb0zZxbdINAhGC2Qht7Buz9haKwQB7NiH Vt/GySOHfDa9rOtNKTAeIJvKpT6YNFKBSdoiBMgqbtvZNyRlbHelt/Sc8ddV 8UV1snU3IrsZZs7gyVyQpz0/IvFBgJgoXNQWD2OxaBmighg5LepmkIzQUT/Q auBA9jAbkk0sXe+tSdtErgsQOaYJDdihK20gZhkVh6QxwaJQhMknGA/mhJc9 /k4QT6qdl3Vt0w0CJObEjlVuWVZXHzTgeJJfsNEqleHyGA9y42dnWAXMmUjq 7CermKyMv70ggVjLO3OEAs13lTXVJBFcqFF7CzpsDPMepQ5l+xb9k+p//uUX XBJZgVGcML2sG/nARbkotvHDDz/jpICYV3wNsgI8F+st0GEprttGmrlBt1/V tA0iQylXVdljKyXshir/hQi9N0/WmIWkNTX3nLGFBLVtJ+bIct9ERRtpbQZc M8ExmIGr7B6VPZKLQl6fstsrLOvRoz+1tPXOnTujxnw6avzMv/vDm//w/iI8 GiuVGxRrY0kPsWcGMGer7ALeF12FOTFTTA6cJ4PziK3heILIJv/Ch998a+kS n+MvTV2ncXxbV4+NYUWAmC08bu45q4X0iwjioAG5qktwKRfC6Ujf8L7d4ZX4 1ya/Iq4IcbJn2ZbToTsUDSSCtHzXrMt2+kN7GOqyvVnTdGsPU7Db71iOMZwz l26v1yrfaJMhAfJzdeH0sKbtjhr70palrg+oXK8d28evjmE6xKk5eoeQaAhC hugjD7wADRIrgan12pyXiMZ/Hzz8dvGuDHDMtkzy4jDkkFZ2kCiDr1n3TGK0 WQKHmY2dvXSb6P/KFC+kjQM66Cvn90+uRzLYLQe4BJXiX9jPqQu38FBYK9K7 eusBtuGq3WBt/W112/HPRIyFuAxyII/Avw4eHQIPiXcMnoiAbOW2tpbrJ5kF lomqGLas95CuBPnIH7aGa8uzWm3/BxoAgAD1P41c+Tf/+NrYSfNHjh57+fK/ e0t/5ao1G3cFZlUfSSpq/7vfv/H7sZs/WCgJCJAFtLrow2scCs9iwLj83G0p N+8+RBpcHSBC0e1950leSExw9vNX7kC60JoxEEzizMVbXz58jDvPkaJ8RYgF wb49OwDq0nlsaJUWiL774GvAmSwYaUhLmu1p46SiUR4R9uzl23zdfqKym4n+ py7cxJDs7hNG4h0v9Z2winXeebO2SJc3wlNQWgNnwLQYJ5J0i6oCeRgD+RFJ /UbffA5mbB8tEqBwnJ+f2/cf4RRCWiJlO4A9kPqnL9z+ONVrgu7NwZ4xcrIY VP/sF9E+mIlRMTYXWTN5lIBLIIsvaPNL2g/KkZJUtw5OXh+LpR0/d52MmOiD DD3java3nwjPatYmF3EkQQjq6q0vkbO7FI15cn6+7uxbKHXj10TP3pIoKwd8 CrkQRIX/Qhe5LmZ8/fYD7AcKCsfA62Vt1e4MgJ1gassPEDgfQsCu3vwSKMaF 4c+EeL5F7Fvlng2dgLdD4fikonkAqJT9v1rM/MNFwbbRbOSikBfG7/ibf3gt JqcRy9nllzB67Liffvq3C2yOHDU2paTTdrp9OnXp//xoJYJi7nKrYV4gM4Iv wck1gysBr4g+CJkfwJMj35jph47471u6ppfPp+ojMzz0hYnui3dm2MF49yg4 tnceWQyuwbekzb227Jy+KdGOsdQVbY6UYiOyk8VWBTt+FsjeT3/ekA195hTN YN6ZGzBCV/UD2ut0Oz8n5IBpSjyQM+/xkdFLwwgKK6RNKhctZ9hSoHijFmXV RSn/6w8oYZWjXpjo8Y/j9/3jeDctaprJTP/N45HGa9N8jPgxR+vJC+dnGB8u CkGh/CklAuYGwjBlac1CSfSwGb5IXOAwAhATkbvHC4I5QDY+bIx/9hIwIgI6 ZBgp/f4Lt/cWBG30K7R/LdyeKsQpSC6K1hgA8wXGMVfbfczPSrcc5mIPfaxq B5bMFXE0IrWseFwahljsYEjXGzN9LQGH8wAdtrNeerVsTeLNP43e8PYnk81s Mip7x4z74rvv/u2yTlOnTR89fkZ6xSG3kPT/8T9ffemLXcgfVIR8MkeMfIFr qi2bhyG/Nzdw7rbkk+dvXrv11eaA4j3atZzEihQsV/s9SVcC7c6DIrAx0InA RwqAKIA1Bkw4II9j8BwJ/SCyY7cQMMgqWgCrGT/kBxTdG1EJaA88bZLOKzRd aqoQFwjQ8qRyWzKpRFBqwzePhTgRHRT38sl67KFtZcsAsQ9xwZTOXr4DdHAV uDcD0K03GaQheIfj/PA3fBkSqK1A8rdoMcwRc6Q0mXCDdbHowkrqEUMJ0M/W JQBDBDp2YNJloAcJBdmu7Twi+CIHht12+ByOgySBa8IQPoKBATsw1UShrBnS bn5BMG4FPMI0rJKGvS7duG/FfGS5hW8B7ChYSkCXgNKPvvmOOfInlJV4DaFi DExka1DxzC2J2hPqB4IvVgTAopd5rinIitSbrxfXH2WyQ1fuWvMF/ougdO9P GhImbPFftG8PED9eHDpWN2Qx05cnu/33v3/F1Ssa65q+YPXa9Rv/vRAJsrlu 3/n6iJF/9Xcvv/TZFuFgS4WDQSfwKenDuCOd0LAjrDxcN7Ov8ci1bYDYj+3r x9NB45NDt3pl3WkxFsIwegYvw8GIUMg2Rbp/Stvu/P19RkgmazUzPOjWvYcY 5MzNiWgE6kL0wWCs83J4lpSnhpHanZZbcquzODa/Db+2dofffv+j7eHlu7AU wnSEPkABY7X/VMruiHJkeOz0ExOFIWNjk9fF3v3ya+IgjkwYmrQ+FlHXd56U jhI+BRBC4kJt+wlCHvpl4pb6oVBkjkNtDynTA46HpEu/b37zngCEuX4hS9lj Kg70o9A5WtbScY/onJo3gdI2l4EVe7RBM0F/WKsU2m5ZLNbJPRcOxjEwDSlZ qTcBHkuhuTyEzOykssTeTGh/WEYTnxPCrE7OV4++QyOkWhPWRGdrCQ4oMeFM CjUUdGBd2BgcDL8glMzanIiNtR05Z4U4wDpd3JiFw2JpK7TCA2DlFlPtEVfD xDEq9AVwkV5xzrErwrGTP07c9TcvfPDCH0d8Ou7zfw++HK+Ggyfeny9dNd9f AJGTbYwYyUcLg/HZGc6J1sDX7khg8wt3pCP8B19/W3/wpDXKIWdE1Du1Ogr+ jk0yZVLmw8cv479vSsXjQugZB+gj70M4C85IyMOSEbWT9mRhGPaYCQuJL5TH McfP37Dmhv3KZ2bJ0ytxYdCVUzlgB9uwupH2PCU4rYGhEibenRtIQuG41WwN 1pOLOyVhiaryiKl5a7bfS5O9dMv84WOnr5LZ3b73SEp3RlWWNsnuV8YDLSTU InxndXAAEKfGDiFF2AP6As08tCMVbM1d1pMIsYnLbyeLeXa5VO/gZYjT69N9 pqyPI2oP63MfCHZoRpNjL/aw3DRuRCagkJ9060uBC8Hl8Gjg2tbGFNQdGb0s DJaIeRMavvr6O/wRIse35ruk8gZMtofyGCHO5ZMom/sK6470a9UpJi4FWKbK HVrZk5ssVTEZGLGb9AQ6h66X7c4kY0XIKAJTZ76gN64qNXCWyj5KgjuBmOD1 /ryA3OpDf9q07AWA46QYvy6kEXhhFp9KIYViBEKg1IfI4g4ABTxn5pYk0AZM I8pgirbFBljQMqQw4TIsinAPu8YRoEla8CEfX5O6Jb6FyI3P0V1gqlTHzd9/ GPvUssOl6BSMsqKU2MbhE5dJP6FeHN89cAm7ApdkF61nnsNysDHcCk+0T9LL usBesmkGqdV3ZXs4+SY0NbX0ILa0UjcFbw0q+VQaZ8hCzWF9poypIEYC99HT Uo4VW/JPqtPeJfnMCEvIrurhbJ1Hh8jFQCRHxeBjZ65BooBEbBVtzt+eioLA JYLUvQePyUHwR++EWsBnnu6ndixLs60xzxZO5/zwcKSH9o+duTpOPWX08nAy ZXvgKD13pNBKEVYNzZClOOWHMFRZuglJWBm5QNwhm88hohAnjAdpyA35wBKk ZMUZAKgZmxPt+RRuhcYRLyeUu7i70iFmaaUHbZEDyiWO80UGNmqplMKWZw1y 3yyMMMSP42bgn37dffAN5g1cjHOKZGDOUjIxDDIAtvAb2569JUmrDEUgE9eQ Eo/YmpZeKfI2ZrlUjJFe27rflpkOnH3yfJbog9KJdPs7Tpy/ehcygDdt8M0f p+2tyU2gGQwbsWCKBDXJiLckcS1MDlirahlEiURMUrYlu6RNgFRQzG09eGwI a0fjd58GIGieLfghVhKm+S+ysuJX333/E/bACd+dG4DPYmNEQ1xDVltFSslT kBlgbNfHu9gP0c2eBJ25dJtPiJVWQyOjopukHnQi2JmNoRerGAxEr9UHH4ul fmA+BhyZ0wJy+uhzFlwD98TGMA9d4psDIJCkID2LjGCv404vngKvIB4hhJzq XpSOZpkFnhWlD6bl5m16I1QKLwDTcDeUIow3uGS3tjTCHl6Z6kVasS2wlMli q0dPXrU9EV5SYjHBltycuXgbVyJiIoedoWWME83yu6n7NDR4R0ipb6LsVDL5 lDUdA3yctMUz1AitzdqSjC6w0mV7soaeVgL/0y98f6kuspquq9CFgq6KwlZH LZO+vULv5wc6+xXI0/AN8U66tk0btWd0HbuweGea2N7KiGV7MzEeKApK1LvH Ife/+gZbtToS8DFc2MoWwSIAE8IlvAtugI7mbk1+ebIn4+fkI+YGYIFci0CD asB53sN+k4sPoo61WqaDDN34CYrTEql3f/jpZw6b5iyPty5dv49fEPHxGhSq j3vy93eedIuuRuxMkAB3Yugm45H7TlO91nnlW4x2PGe0BRXANdrHwA4NXIzS 6qAJBe32LAkbM8fEp2BNTJ8ste3w+YePviUGaZnZcuzTRdq01TIAnFf1GCmr vqVvbwo+CPLDQtG1iYj3tpJ5tXsuw87ffwQ35MjBczdAMFs5Q7YI/yFoki8g MbwYOwfKIADEXAgGBoD2QS2GcVaXTmG3GCcklqin4bKPiRAXrDHlZ6sicZCe gUvIynYoYKhIj2vtiqiAZhBwY/NaESbmQY68yj3bFkVo78Isxxb4//BlzQKm 6f4Iqfa8KQFdw+uwfNI6QB4jf08zC9wcOQD12BV+jSUv2pHGVyAJwAKKYMwY EmEI/IlQHsvsQBgwAbt9a7Y/4OxotWOvg/0XIG+ADBrRjX5xcA9wAPKwK6Ic FodAkBscY/HODOOKhFH0S2JICoahAqrofbr0KQhkLlARCCFcBctBvLefFlKA XNmGiF3hFYQDJPm+NpmCfjisy6F0XdT6CAP76utv+f39jz/xCSDmsDESjcny cDkITS3fk8WFwDRrpmDr7YmhzAhfqG49bvU5MXLpbLI6Glm5hJRCDMyY0RRY wb+YHSDmn1ynNRzkbowUVq3qJTsmB5ftsWHlkL2PpIS1R/G/7BaKTPZ3nESM nywN2xEiOyys14BWxKrlVNAVCCpMDyEDg8T9RTul6XNT95nxTtEkjJguI8mu 7kWD6BE6yqTcY6Xz1DyXVMYvW933Zk2Q7uQ5a57Jwf/DV2h6E8k730VEGAxx HAkAJiS/S7RNJD4IFYSVYSr8CY+SvVHajhBDgm7JqqekOuIajgPsvCGbJkJX aykz7JZEAGl7xFW/PNnrQPcZFGTXxQASCjqYGuaK88J5QCpH6xa40/RNiRFZ sqiV9B+oR7aEaXs0Q3TDxVAugDlanoEW4XeQkJjc1vLmARwNE8Lyj5z4f6sM gYE9g5cIT1ZEbpNfEbkqJ8FOeGNrJPBZgIsB2CBtPRhTY16EY5JBjAcbY6ak zLbDcaNPIePHNgjTJ87ffPYOA9+SZEFv+GBIBGLkKU+oQ6VtEzF0gj6V06om 0n40NOOAPc9iqFyIPJHYZM+SiMt4kN6sLmTuBFDcnMMccYpBMnJcG3Agx4QK ztyUCFas8cyDNb05W7qqWSlRgqCVKuJsr0+XW17kCOA8agUTUCumDk/jDb/J 5lAQ8yXZ0Wy60goSEg6e38AYDAkFAwO64XV7o6r0aX4MY4A84N3vSeIQhl/b HRuGNH5NNBdlqMDRir3ZUoXVM/ehEv4ff/rl7dl+CJwjMa397dIZmWnaahMM iXSgq/9CoDwnKiE71qULx8oPDGC9zBFlISisS+7bPF1uB9Rjw+A58ULSkOXh uOrbs/wxsGxtC0WAIHpC6tDIx3KzNwVUBJY5FXh48+5D2xjCmEEYNAhBrW4d nLk56bOVUX+c6kV4vffgG+LRPu3OxgnT9Jm7GRhYzfDMROFsXz/+Hobwxyne I5fIKvfMih4SJUShRSpKnDxy4aKM//TF2wAdOMBIFu9It1LhjBBABrgYWMH+ vsnrpHoAP2AIANVz/PKKfdn4hW2HZCS49jrvfAwDt8URTKRETIgcWl6yWxbY EJQZ8DLrBLcsDMkgxpi8NugKafuy3QL74IMxAQwVxkuERbZ4E9fSmJW4bI+0 x0I19776ZtL6OBAPAqzl+GRRN0rBtaU+5B5pfYhlRv/LlhZ/+lXbfjy7qlfu q4eWkd9hRa6hZThIYEo97gb3wwzeme3Pe+gTAYVLvDjJs+HgKcTOZPEpLJBj 7NEzZPvlKV5zXVLXeuY7KsagVlLIdZ7S3e8PEz0Il7CssIwDSUUdMDp0gR51 GcMRYgSgByLBabH8Yb3JgF0xQSn45if1frmcroeXeGHLZkBI2xqJKTp55Ezf JP2tEBrEG3ParIUysPCd4bLWiPEX1/fBgUl7EdrkdXHEVikXtj0VCBp+Wj7O YWDQfntYj47w38+cojAJ2bsn1D2769jFlp6zC7anAlBA3JhlcqcId2PAJJsM WMstJmI/5iz4vsZiWSYkexVjayaIU4R4alFBXBWoh3+aPVS2DAakNOD1fB0E y6w8BLAQyKQEQVgZLILsKbXkIPTpDxPcOQn0YL13nhUEGNYC70CTk1vOS5M8 SbjgJ/BGJ93UQL6QVdkjm6P7L3JRUPTO/a+L6o/y+fvzggiIkdktvNeIHIKZ YbQ4uGyg3pKUW9NLIHh+A8MkiOCYNPGFycJvpbntdtk/fvnm/fGyy7URBcke 1ciKmvYTy2V/eqRWcUlF0cwae2birb3njLzhIMGpjUdPXcUGcMYL1+7J7uad GQwbH4FXE1+wB3jjOu88PBoFIQpmijTCMiUIztHCzqgAo92utaMPHh2y+4qw bjABxdmtCXuqjhwcO0TiCzuspQVCGzx33Z6SYwxXbj44f+UOiRVjiMtrcwku le0YUuA3huuOmBf46jSfyRvis6p6MA+7C2EGJpsNvfIK9x+ZI2sUffC1rUHF cCQnd9nNBy3HIFExvBHKDdrgoWQiYAiWKQVCpUR/iHd8rSNeAGtW5cymQHTD AAhhgDkGD4sgntrmengv8IIjYKV43GZtdqM72s5zxbVeUt2dRH6ea+ryfVK+ D5PgeKAb4TNs74RaRgUsME6YG8TmgFY7JJrDOrBYfogjaJMxlzYeha3Z6tbw zGZ478Xron0SBJL9+MJ2NAWHAc3AAVjc8xuYraDjujgdpyVgTVwn/Sb4gWNE 5bTCIki4AHycBavDp8DnFRqU4Y2EPzAQ4XBppp9TfRj9klTizugd72NgJMjY FSSZA4iwTBAu2tB1uqNvyEUWG8jWM3nUuCxcmrgtCZ28PvbduQGERdv+MKzl oLXPRe2oJWFkHPue6f/1w49STBKeA35++fBbzJ6g7J2wH0EhOqInOXhCYYfj YMzJWD2sktBZ034cG560Lg4MR+CwMjyacGaitjUqr0zxluakq2Pmbkvmzz0R lbgV0QTE4LsHj17AHmyn27Au7C9pPEqEksXbC0OkvVFNz3TnRFALKCYSEQcf P7MzGj/6aGHwqGXhHAn3dnTpxZCgoKDNpLUxwC9hjvfbQ8tsRxsqqGoZPHLy ChpJKJQSwcA1KQ+hZFdYGePnMMubZAn0svCIzANIe4Y2t8I+gXEsB+BFj/ui qjgM1YekNcIb8Tvs3O5LL92TyVeYSEXzAGpNKT0omz5yW/ufeZD3H74gFVtk QXIDZoBUcVvOIPtKSrusRRdDsuZiYMWxM9embUz4fHUUvkOegqt+7hTFpbeH lKEv6XilRZnWaTe9CfI8V8qjIXxbiUoeauUTUaveT27AW23BDBAHOLyqFZ7h 4STOaA2qZmBy+PgVvMw9pubzVbJvCOmR9TumgCSRDDn1JFnQWwAU7wwvJ0lk kIQwjN92PA1rmNuoG6iHrtz1S6onytRrYXASQCmruyb6s5WR0jlurzQgwK3G SiVAWTqCjjBCTkikwMJLGo5WNg9I8fNr97Ax5uKobEn84k+IGbEe5N/sL0tz rcMjLI6Abrfi7WBSBsiD1poO99FbslbhhHiqBRlKzOtxZCLvGzN9geKAlHoy aADHK64Wadd1nFygAdRW+CB5OCf2DNh+LhlrxZJdshJ+rWfe0NV7aAGvx4XJ jPbqAynC93htvQHNg49hqKLrfdlNXaelLOf+I6QhkH9n3wJ5bqj9661n0/Mb 2LDGAowT1LVFjEX1fagYY8NPsXMAc6Y2KydU2f1MhAxuQ29kF8ba2L5TV6Kl UYX0StvsVzhGyLxs4P3yq8fA+NQNcfgs1MUqcc3akjhlfTzehLRfm+6DSAno 7YfPoSwiF8GIPJ0zlEoViAbtNxGLI9suUUgC3oqWfbRxsA0eedomlzJp/1QM NkpxmCPnCEb4KfwZyzfKDV3f4FswQjclWdZp28zHrYoMSmuEGrlHVzE1hDBK V1kTZLcFFsHPSXyMZGKfCIG5wArcYiQbstXghPXFupmarB94NDzHZXAcnH28 7EcIYhi2Lg6vOfV0vTGi5k8GkFHRTYAgklpJE2mqtTGeaTJmgjgnZMzSjD6o GEqPeTv7FQI17jFVhFpcb9zKiF9++ZVL4/5Ld2dO1e4MYGxaeZetkCG8LpZN gjlYbP/p61Z6CK3Jk2W/AhAPhgblk6JbJP4FHXAAmDlfQZiljcf4zThJYK2Z y7OP+5/nxfhJDbgWsMPYOANYwbWKG/pQK4KSykj62NqUcu7SHWzSqsfb2jmo eGR288uTvax3Vc/gJU6IxoFBlLvGI1eqBQaXjl0pzc1fmyZtLwAuPsTZm3vP 2upBYg2xfoZzAlhhUyDrwVAtbs6UDXpxJBeA7TxJIp4wJSQMb+wZuAiYc0Lw do1HjvbjkGcQ0A/L6KUfaH4bnxB5HV8k9YNh1rQd36Ir5EkZXpnqTTQ5c/E2 ECobK8LKMAathOazK7wCawFXARncv7b9hG2LY6i2BDo6pxUbw/aAI4jolPVx 8qhCH4tgrvwmXa1pGyS02RdltYlvge10bjt8njETgkFLJL8vssrRrARoBf1g TVwXJwWuiXEMGFSpbB6EqxM935rth44AKD6EQyJ/rIIpEzcJ1kSfCatjXpjo 4RNfe/WmVHkl5I3WfARIvHRdSLJUbNsQZ3VUFmnHaoKLPbgE/aZuTEDsYDLk H5/6TdbFKyavNfBpfzEi8iipJFn6uTYjIKOBnGgV0GTksCeyUibiXyTFRkLL 3tJdpbAILppa0oUvo3oIAxrhPfPtO3WVZBNWj12BDJwQhMfAPONqmDuBHrWC V8kl0ucCA0stO4g8Z29J4nNoak6V0F1UPEdr8gSnNVipLjwORWzT0mG28gF3 JuPgEtZAs/7gKWaEfMgoARyMnxDAIJmp4wHNwJlrO0MlFWWOwpk98zIru23d FxkBTsdEXEJKLl67D5+0po2uIWVEEzindmOvdPQ2YppBaQ3GxzIruvE7xAVE cHIuF5zagCExcVwPA8bI0VR6WRfAyzHMRZqnFHbE6YoR8ErMO6mOwEqgBDNh FHyOL1j0BNNQATYG+kHgScZfne7jFV+LiNyjZcwE+qK6PuiZ9XdLKeni+Lku si4Clo7LkBTvDCsDH5iylFjRinCb/AvtHq+MYV1sddtxzEzKIHjmgmZkuM56 h4GB+T8tC//8L6jIvugqzoAbMlTMQPLBJaFgglaPPE705w2+76yVcvEamBuJ G35KSGUiDx59i8Hjm2TrAL49RsFHfBXk08q7ITlIwIjKvG0S77A6BswPloZa 0RHaQa1SNmRHOpPlchgGvO7QwCWGhC4k45PQlirt2qElM315A7aQSjMYWyDt qHDIa9HOtLnaeRMRYZ/wHysrbf/tPnaR0GZVRLAZIIsQDJpxKhITENUeFRF0 YDKksUm6v5jwBGASsPhueVO/nYrwihHKzqYtSeOlyWMaF0WY9l9HlWkYQnZ1 D4JlzLYsatTScFyA0ODkIfcAP14cyrxIqwfOXiNOYYHxWoEkRWqU1WBgtr6r uL4P7Tt55E5aH+sWXc3Ufvzpl0s37kPGlu7KIPDJsqK0RkZCxg1PZgohehNP jPb7H2EC49fwLy9IF/k7UCzdLnZn4gJb9f55RsUhcJLrokFn7YriGVvDSZyk sExl8lNy8vyvA1KCWCDX7pDMd5V6Pp87yQN62/Eki5lXRo5eJqkfzNMexQam 1L8/PxAnAs02+uRjjTGyVVOWinnG1aLTVW7ZRrCxOtuWZdkH8MW/7NkWyICX hWs3K9/EOjRLPg4oSfO+zYm2sCSpqIPkjhhRdqB/nXc+Fos7XLn14D3tx/25 rN+T7YdcGvvhJBiAaXOuS0paWXdhXR/eOmFNNFcBn6/eetDdf5HTwhg/XhRi GzT++Z//WatvlUh3v7ByHNb2TVgbo33RlZgWfHKzVL2T2A22jHeKYspMEPvB v1AEIyQgMn30iDHw/nu991VxYAAosz4d+O92vd06a2sSGdDguethGU2kugAI iARuEO/QIF6GkxIOXtZ+rPAEUBFklt1YyXUMY69U4ZM6DGs88mynFTmX7TCC wsmWuqQ64jLozRVfn+G7bE8WsZsBk1Pk1hxGZcA7Ljx/e+oUXQwpq/XWSwdD NL41sAQz4OpEMaI8XuPkJg7l5J4LMiD/32pgg2evO+l+xk+0z4KuqQgHV11D Srno7ohy/iTqvTs/CGwhftXIwryqnaFl81xTOQDmxiDxAgAHL565SW6wwAFg PgQmBo8uGNjFa/e2BJTA36CynMeWTyMHZ12oOXp5OKET+uEZW23306p0Oc2w rlQk/Nl7zr87vOLDRcGYJXD9zhzZnW27mCEtwCBxfOEO6dLrFV+DrKy4LopD HbALfcAn5YI7+4asA6ajkWtudS9sjYSCbNeqlEhHTv8iUmCMCj8CJx0PUrFe BsmZsS5s0tm3kORL2ou75xIOMCGXoNJVbjmYASEJNONCvVJiWu5OgLR41og5 /nsjqzDp0dqd2XFTGjQjqNl7GBcXXe9d4BZdyRtMV3as6JpGgGtXWLlxclsE AlINnruBzZAh4hTdAxcxVIwW2c7eknz15pdpZV2alMXIqmndmMZhUn628xQp DJN9d26AdU7R+zaxJBQgKpOyTZ3YBskpl7bH/b/pdePOQ6myuCoSmLL1J5PX ybNg3Gq57sCVtgK6kPgLp2iGrZuy9xM3ybNwBPJfPBQBovEYvTfIkQePXVi+ J6u7/wLyJ2Um38e/+BeAg3WBSB/MD+rqv3Dh6j1HER5mAaQjw5yqHutejc3w I8isz/g4htkhT9mPECxrVqFepOHPJjUWIkF+khHc+ZWpXpv8ikAAYz5YNVG1 /fD5ZO3cAY7Z47yzl+8wKk7roNYoC4VaGxezCqm5ujkRpQ/ro1IsB+si9GDV zEtqA25MsBoL20OkgwwgABG9fe/Rv2rEgHFifkQoKIGv3q8DKuu1vgr/hVMx cc4vbem883H20ibpyWutpR1t6FEZsV7b0/tjk6QPhDAQG0bHsP2S68nTuTrZ NJxKu3R1APsDZ68jt+t3HuhmaimWS/Qn42B4HCaxwK9Qw1MS7GJHSOl78+WB r1blisTStAZ1iuOez/O/GDBiH7k4ZKQsZPKbuSmRoQLgpBge+ixj7Irw6rZB XIYhYW8Mqe/ElTVeedJhdkEQ5MSiCcFolba/1PAdhvntDC+ftTlx8rpYbIkE RPaSyMqKSKazPbT02Tpm0DMAZLUUPMlHaxAt5othwNCIetb83TtBFsDg7LJp t6qXS+CSGpsO/isDA+gw7w2+Bfy2DVmQ1ffnyX4KEqUJ62IZw6mhW7AvwiXh DLFjbGCj4x41YQ6REnntfvuRE1fwa8xeavvX9fFd8n0yMmv6BuyjZbmBti97 rTY6n6c9NAG0c5fv/CsDs5sMurU2NL38EHhy98E3ZB840cCZ62AOfopXEnA5 M/gcnnWAczJC2G9L7znHec5fuWP93MetjLC1kXAAuL00H9mchKykDvmaGH6/ OMkDvgFbkHVEQSUEa3ggIYCwAskELhZpTSeAtKK5n+PlZnJkBQgMhhCwsDfw WbffhkEdMf7famBDQ0MvjJj4t6998ccJO7gQ8zJxAWje8pQ5j+ClRWVPfLRQ 1inpTvNauwv08hQvQjyhhIyvrvOkf3K9Kr0IL7bmJqW69d4udOzU1S/0phAn R7OOQoUABRaFw2ZUyDIbjLD+4EkMg3xfiz2WbdC6lw6D1HWDFXsiKiEzGDMx 2pHQmYERwYFi1I09WPPcYb0bAwfGC6AT+AUwO3tbytLdGQEpDQRKBsn592pr KsZD7Jba+5kHrBgs5tSlz38fPf6eE67Ym43YZe3Z4tC3ZvtlyGPHQmvROKwl dq0y5BjZUZX/rIENaAdt2DiqZ0YMzyEE2+3ISZDqmBUyccK63UKB28PT+Bzh Y4Fm84SSpm65HWqbptv7nuw1xj4BZ2CQvAMj51sYjOS8R86hC2RFYIXaSTNf 11REHZvbqhs6ggv2H86sPASwYG9yR25DPEcC7AiZ5PeNGZ7/10tjfj9i0qFD z7VY2vEaGBh4/6PRO33j17r4yPaiiXug7hj8uBWR7wgjqnGPrdEeuDG2SQ1i xnjwu8yKQ1bflTQ5Nl8Kat2694jABFxYjUoMCcQg+liHKcduWaIAHB6YIngR IjFXMjg0Ulx/1Cr4mY1JIiALHaXVAiKC6lt5SZMhwkdrlS0DSGO1e451pwWK g1IbZ2xOeG2ad1JxB/Hu2q0He58+V0I1jBzzwwvAQPyXpIaAgtZACU4I4Ucp 9Z0nufqDh9/aejBsoLHrFAACg5JHHmmN6O41adcYgPowCeytpPGodLbKf1JA HuAd1M1HQD1Hahkxua9F4AY3+JY+uzzDxKHT2wJL7FsMFZFO3hCH9xGL4di4 5+aAIls9iIEV1B1xloSoGRhHRNg/Z8BUXILFNTT2yQ32xKIO6ApxDa2t886D 8GuXjWLrDAVFZ8pYFwkIiOGqW26ZNSiBoAg60u87RJbFor5PNMkFVV6csOf/ /Ps/YiG7/BLe/fCT7u7u5zcwdw+vHd6xttNt3ootf/3m9Ndn+E3flGiLtLcE Fvkk1EHJgGLSE1gfiSpW94G2MizYfwQAkRi6PAKcMfKJX/M58IUKCKlAGRwY zJmzLZmJ8C9dyRz46UqpzIP3yTO49CbsxDehDsznAH44+Vuz/EHOT5aGcQnc 3F3vnGutb1mCvto9FwfksNCMJlxs3KoozobiMEWuy+DtPPwwcvgtb5y1HCWH oRfy3A+kSahsGlrlLrtNpUeqc8IXa6K5LrHSaElmZTdj5oTjVkUifK7ygdRD kO3bxA69Eyvb+kZq8sWHtoaQL/Lbrk4qR2I4ZnnE1I0JVgkW+YAPgB4nxMA+ 1eeGslpma/JeXbcJdIxaFv7GDF+M09rx8IN4ySJxJQQLdEsUWBAEN7MNXxyA FxNPEwrbORKTkxWwM/12R1QW6GN6qA4ZqEdM9acrIuFyfJHPGQMn2RFaDqMm /MFhZmxKYF4+srNJtvPjSgiZ0Py7EQumLlhnRuIZnrVw8dLnN7DtO3ZudQu3 785cvOF3b83SKCm3c61xITOapjUKuNzsrbLJEaRFUEgDiP58VRQ+ztRmbpEu V3UHT0K6ihvEo+Hq78+TR7TrvPL5ri3n40fa6m2RxgQfLQx+bx6ZqdwMQbAk CPAQDsivPUJ8gb4yNbJsZMgV7bsIkLjz2crIiWtiYRpQJugZZAkbQ93IjcQc I8Gi7Hh+toeWcWbe4PKoEuNEI1haUUMfb3ANZmELn9Z45JCjMWBMCFuSWqAr IogRarpxuAnUlMSZU6Ej5ANAWRlAzA/rlbUQh86kl3fzoePqRGSSaN2QHv+u 3lf5cGEwqmzoOiXrn9UjsE+Ew1w4vqHrtHZsrOKiUiBuTyZmYMUZMCGIGYJd rl2ldFm13IOVZRJ6LbALf9kWXMJ/39JOXqKF6l6mQ9BElZPXS90q8mtpn9d5 Ep0yQcLidr0hgIMAXHgx3sdXtMi8NJ0kQv39e4vf/WSCGQnBbss21+c3sLt3 7378yZhVm9y+mLHkr/7u5TenewJc2n4ihTmO0pZYyBMC87H+iQtAV4AaBAuw 8Du7sgcvtnqMmBZaI2GxyuFghazGXyh17405PP7uR+S/RDdK7I6ocNECiUwT jl1xYAD7IUqC9pFZzcQCkBxsh+dYNkcWCY8tazp28do9bAmns8CNcaaUdHYe vfD2HH8p9+Sa8uwESdbswSXxhROuke0VSXaH6qeff0H16GWjr9Tb3KTNkUHp eVI465Dcby/vInQyBawOXd+89xD/yqg4hFXYylsmha0ynbWesm+UPwnE1p7V 8Vqn/QSxFiZIhAKu8U08Ai2TyBw+cdnsx7JIgh2fk+kgJfwiVFv9IkbZr7T/ CDOVARd2EGddpQWhBDXe3Lz7ZC1HbF4r/oimAKth3QAIh0FEUFNGTtamLYMH 13rlgfyEYLv7xzCQpxQzjKwgXjA8slF8f87WJABNmnDN9v8//valSbNXrtrs /uHI0SdPnnx+A+N148aN1NS0pet3vz3bd+SSsA8XynobuD22xOWssigD053y 0TtDy+zxEJO1Fb/WTg7VYGYcTEAJz2q2ez6nL94ivybKcDDs6OE33zV2nYYe r/HMg4RA4aRcydZkIKul96x1KsTv0B0EidwKsVe1Hh+1JGzJ7gxOWNU6CHNz dMFzi6ne334Cv+bgCaujGRVpOEMCXZ/dmfjg0bdwJ9RHtJ27LbWj7zyDsWwR MwMqyZoZ/LI90pmrpv04auVI3qDipkOnmR1pbMPBk0AckVcqimtfG9t0hj2Q r/Wflr2H/AueyWQdXHFYN3TAwRgtx+CVZPqb/aVWFfwnNPOALTuH+ScUtJMl /fjTL4wHA4OOGusjhl6//RXmwYe4YXXrcb5IQrR4ZwYeMXj2hnZZTUKAcDzY oPRTLuwkbWzVrIcJppZ22x7t5JLO0UulDgaUZsrGuLekfE09ybJ2f5AtJyRZ iJdojk+hVilF6JkrlSIWBo9aEvrObJ+Zy11TU1Pv3Lnzrw3o+V6olatPWic9 nbEo5DBFK1sC4MB7fads0sfOsW08mmmeHLqJC6DcrQHF5Er8ZFX2gLFYFMGC z+E2HK+92uUhNXwJyYx3isY48XGAaFi387w+3Te1VGp3Q3cxki3a16BI+20R GePy2zx0eyna0SIkZVyipecsgRLrtZE3dZ/BMpFJVHYLWpi4RlpEWa8fe5Fy 4hck3Zeu3QdkDvVfJFJAhBAspgIazHWRZ53nLz9ZAiT/8s5/fYbPKvdsINQ+ vH3vEZxt3rYUZ98iq8flGSddAkkKsF4IvN1m2ehT4Ni5ifmRyDCw0cvCInNa MFGQsPTpfo1H33yHJMn+yFgJClrEvhxZkYAgK7v30qD5hW0E3hpU7BpcSq4H NbW9jcyRCJhfexgvsD4F2BVvpEbxqii8mAniwvy5wSePYL18TyYGDJlHlUBB 7/FLzT1npfSErggipuB32mowzEkLySIZKAQsiBBGeH3OrWp/4oVJI3mCHfAo RVp2ZxKFkQ/nt14PJEqzt6boDZxuUAsGiJxhxdlVPUQi9II6sC6ygKzKQ0jD NllAEhDdao8ckOHlqV6ch5FjfjhmRHYzeoFqYq7WDOvoqauTdAc38A5YMWsc 0y+57g8TPZzcsy2lIuGCe1iFQFs9SHwkFoRlNImBrY3RctlVRMYffvwZBFuy Kx0vXrRT6v45a7E7DDUkrcmep2s15mJnrVmHbUjNnOgqoMaWZPC5rXtkLmgZ +1mxL5vzcGRyyUGyvACthUjs5jzkPnyLgMWZ82oOMwvkw3gYFfkmSCicUJ6J y81wIMgxCyum8YcJ7i66cYALdQ9cJO+Dgk5aH9fUdZoscn/Hics3vhyr5Y98 4vdLbbSAYuSDZWJCtllvb2SFlUjKrupFgyAh3srwOCFQiV8jc8gVOrIdcGl6 t41hgG9WdEV7b8XAMBfuSAclCLhYLIHSsaf+P/M6dvoqia1s6HaKsrrTQAeJ IfwBQqtlsuo/XRnxptQwucV/MYC82sNAFkYIShCeYIz4yNVbD8AuvyRZkgrM IiW8gOT6stQOKvSIq5Zadm45jJksEub8xkw/rQOcg4sxcTgwXM7Zv1D7TgYC MgApmT6isBvp4CFXl4fCz9RNJVSh4pTSLkgd0DpdSykCNbLxbZl0d8VUjpy4 YqtJCSjAwjWNPqgmLq8Nk4AGWNczIhGnRQJMGYCyipd4zXc//ISZ4eCYlkTe gCKscVgjUf+Za+SeckNycegEEpAtSUDH7C2y9htnTCrqJAF0CSrBLG3XEjZ2 7PQ1hmTtF3EcJLArrFxqUEgfIj+QHMMoqDvC16VLrHe+FLHclixbyF1TuRDf xXqRA57FpcFzjAQg8pPHsoWnLtyCW45dHn7y/E3dRH+EpGl7aOk8l+QXJ3ny L3gsMx26cvcdrSkXnNq4dE8mJITECsvUQnCygwxs3Kojcdxp/M+8mL6Wai9m jvKkwy17+V6pLvju3EDY48eLQ0Bg73ipuyI3Y11TUTd4LmWH3XIIlEyc8A2f AfGAfeQJV98dXo4GiSboXTbslHX9/POvZMGvTvPxT67DBwUKijvxu7i89k1a SjS9rBugsArDSAMjxKEwOYAIxZH0ARcEkbCMAw7r4pVT3YM2LaqCqIgauaGO 9+YGwjrwytqOf9Gfou3IuZD0JsZA2MJCDg1cwuSW6GoEhoSoMSRGO6wL6bk0 6iCgkBeADyiXMTs6A9qrZ/CS1CNdG8sJua6lSIlFsgAeI3HykJ0gdqTZWFR2 M+yd7OnIySuIDuiQp/meeQz7hUkeRE8C66p92bZbDZtBmHAMf60/QJoZlNaI p0OVH3/7I7NmMPAKvMAqU0XlCFbjMuAnI9GH1ykYJMNYuicDeMe8yUY/Xx2N chEjrkd8icg8wHVRIq6KKLiu7DVTS/6tiwz/vRcoKsunvfO+WB1tZRtBZlS8 2b+YoIZ3ANG+ifsJakzHdtSKgwcUT1gTPXTtHgNjOgCvNFALr3hzlh94DiPt 7pcQxhdhAog0TNvWgHt2D5aQB3JaATrgDq/k67ZnFjqKxRLdyHoQ1+dan1af cScjGTJNBnxo4CKmi2WCHtBF3pQ2HpWibU7R56/c3RddyefwFsZjgGMvctLt WhiQOIg7kLNDzq0HBEHq3oPHsMfTF247auAQ+DBsVKNZj9Tiflbmj775Pjyz ia8w/Q1aXhhSJyPRaiq2d3LBjrT2I+fxSjIdMOSjhfDGhHelgkSoVcbGZcDe kfqI2brwVDQPWJMmEj10jcZtyZP0xFknOBmT17ojrKyk4SiBBkWQ5szZlozE 8N9twcXEF/g/hsqQTl24KUzep4Afwi6aqmwexJh3hVUgqD2RlVb2nwBaoe3V EgplFSWmFaIP7P4s1mWCwlUhM9Oc4519CwH5dXpXAaicuiG+8+gQigOrX5ni hcswta5jF9Z65YLYUMptQcUT18VimcMag6DcOCaRXbZDbk0mE2TWeA3sggOg mgiTwAqbffj1d2uVwJBVAZIOxWFjoIGz9uxgmiRovgn7g9Ma0C/nZFSx2qQY UQNQVocEWTE8LuedsD+1pJP/8nXsCpXBBrkKAGXb06BnGADMH0C2IdnLbMwr rpZJuUdXPVsDZ1if9UgXuem+gIk9pj93+Q7Wgr4mr5O2U/Z0AynF57cT62dr CwM0ZfVMcBDkwyf4C+Ajy0iWSpUG9Ess0B3Z9/iN1Z2++OSZ8i+//gq88Mnb s/zwwfsPH+N9SF73PsjDqRPnbxDKX50mDX2wYWlyKotjUxi5OdQ8rX5J1IC6 SzjYkd53UipdkyOgESsgQ9awwDWVQUJ013jITeyNfgVWCthR0vPP9YIblzb1 YyrAOwKpbjuOdtZ45ACtqDWhsD25qPPTFZFvzfZHd3e//GbprgxkUtkygIqZ COB25tJtrf/WhzbBLuIdQE2Ye3deAEaIByHS2ZoYnrl0B9UAI85+RYDzUl1/ aMPAzJg4M4WNWK1gfB+DARXlbtWiEH7jyIQ2FA0HhszA/ciyIV1MAY6NhXNO rBF1WzsJMnoshz+3aPP0ibpRFy07FlE4bGyePu7nVM9al72wGbJsKfm1MQEM 5FSocr5LKrAAi0D1akvSC5icBTCfqin/0ZNXoI78KcuKTl4hucC0sO0Pn3Qg zSbH0Vn/YhV6malVrhjWvatS42JRyHrtIodnHT19DahHqgHJ9RyPfSKNea4p zAXqCJcmWICTzBRySNAhrHMVmFhMXts8l9Trdx64RVW9PSfgk8VyA4qwgk1y UfI7Bl9+YAD9JhV14Auo1RHZ/1wvXBK8tSyecCz1Wzykux+5vJBzbbyL7lCc JLNrYjx1h5psvG0/wSeAG0LDhAh81skRQ1KGWYZTw/Eef/eDNVWXB/Sy3Eio wuero0YJB5DtqPZQmzhFSEKMYDXWAs3AjPE+Mqb3NDgSSiwdwx4YGCgHkpBx E8dtIqQAJL94blXLABPB/eMK2qD9svV+bsAfp3qNmBM4emk4fsEXUTp0ziwN joSm3prlRwhzFBK5de8hGV9Z0zE8Cy2/J1spvWFBs7SbD0PFJnEWeJSr7heD 49kw4GCYcWh60637Xzs/rfPPaT9aFByR1YwY4ZnzXVMIvkBTeVM/8Rrx6q1m aVd3RksQ4EpEurF6RxqzscUYACZJNzZJ2gsaWM0HSc+bBzbrSrbIbJESGiGR x95k0UhKPSyOgAsLwk3IRnFhzBvYtxK4GDaDnyWNs6tgyFiXJVZ/3hcGI/ea lodHZrWgGsAnUDu9zpc2JcfsGQejwtJsbyzOjheAOXDmlyd7kT/Wtp9A2lbB A27DvFBKdE4LHiSFQ/dlIauQtCaMDbYZntWMdREfITCQFr4CImGKHI9F2WYT WSbRNoiC8OVNfgXBqQ1jtOwe04ddW3N5uH1EVgv5mpkErkGeC7w7uedyUc4m 6z2S6r5YE83USKCCUhux5/fmyd37nWFluAPnJ3KNWhb+kULfqKWhDAkE5kOO JB3jixgV19oZWnb99pey081J1ioQbhgDqMXwhq7etef1Zq5gmltMlbVM5QDS UqxLO+qGIFXUKg1DvZnyMeguHqp7+bPQ8t6Iijy9N4JsIUVWWpbPmTJWiskR X5DP3sgqechb14cFWtmWXeEV4BUn4aIkIzBD7O2bb3+o7zz19hx/iAHHQ1bl BrV2Y7fHW0RwgvsGbf0ckNKAvuoPShXQ5+wa85terb3S6w2OtFxqEbQzcrxj o7RtCoaNw6hnb016b17ALHkwWotqmKmUPd+WLO05NsQhh9h86VIx3TlRt4SU SBfdpbJCDOkRZ30T66Be1rcIJ/VOqAW1iBoY5BerJet5caLHDAXtwNQG2LXQ V70jUdN+HDvBoggBmMoqN9nASLRFSvZwqrx5AJe8fuer+oOnIMA2nezKHggk YoefoF/shNi9LbAYSTIXoAMDw1mwWO0HHWMtCeBsVuEHgoc6tIBwPLCDj3f0 nSfQSCvP7Ga4cVP3GbslyO+Q9CfLb5hOYd0RwjcOkqEb1sBtlDtlvdzKRrDb te0p48mq7LFFTQAyqgeyQNRVUi0k9cVJHrAvwgcwC207q9zDtlXyrZTSgwx+ rkuKtAVcK7UotwRKecYQXTwA/oCBkFLCX1qZ3LfEeqVPun8RyDZna9KHC4Lg DAcOnbWSRMv3SvkOQAy5WbEsXa8y+G9ayH/yRdqOeRBQGLmrFt8DcEAn/IhZ uMh6rVM4OGzkQ200pj3rc0FvXUoXAR8A5UAPyAmOQ+iXPumTPaUDpk8BwEJg vXjtvhVpOdBzBmfXdldSDYyEEWayfK/s8wW3525LxpsIVUjs0vX7YBTa5FtY V2BKA5iGx70w0WN7aKktfkYg6Cil+KA9bOKTn3/+lSwM1wB1Z2+TUv8oF+KE O+DmaIHjkTxvyLOIbgRu/gWu2h5wwFYSQ5/8U0M3PeNq8XRiBz9oHE8BpVdI tc+kxTvT7ZETgPP1Y7nVBoPCL3Kqe9yjq209GLAD/khAdElp7T1njSBBWjg8 Bg/yIGcEBcot3CH9fQh8JhPScGRCWpEuhdYrSxrlWQCJ2IkhSQxREMPYEVL2 6lRvclWoxf2vHsfmtQF0DODt2ZJZcAA8hN9YO8FFCZtsXW/uObtJyjjEkL/L hlDtVOUZKzXrQtIasQHHkvI/+wuZELm269qYbYElU7Xf8XxX2VYAaGz2L0TI s6U1mzxZmLw+jjSEGdm2oxX7sjE/WIeVhczSjpC4DGYpS30WBOvm6GOYDUwP ksCHEOCKAwPQA0u9MTkpMuxXhIrBeS6xSAv7MIyi+qPo4vKNL+dKX4MUUp7E wk5AjCy1tPFoUlFnUEqDdHzwL0IFiIv3WBeasmLOWMj5K3e/fvw9nISD0bhH TA06xWJ9k+rwCLeY6szKblz41ek+JB1WwjFMS6qSxZM+wDktHDMSW728V9ou B5O4IaiPtdIXg+F4fET6xSfXoayKA/0r3bKnb0pML5N7Ygu3p+G85KTwvbqO E+APOTuDHLk4BJu8KBvA86HrSI+siiMZHn5qdWBG6qIpTKWw7iihHD5JENHa vyn8l9wK51qtbdMB4RV7pfofPgVWQ9jQFB9aXs+3EClqXau7jGVV+cZ4mMCk dTFMmdBjHQz/Qi/kBvjLSgAnSb4g6lYKg/AnEERWuCN9lXs2xFsa8SwLZwoC 77rNFosCHOCWaNmyMEwIIIJ8NnSdtjT/FamAFIoL237nYV32ABARDuBstvZP tpOXdTNZ0gdQHaNartViyRewN/77Abi0IT4s8wBRzypEfbQwxCq6eyfst0JY pFQcQHgihgI7aeVPtlQgQGDql19/TSzsAJmxLmbK8KwjEhHcQhuIBJjADBE+ BgYMgjw//Pgzg2SEdqq6zhNvzfIn3SY0c9ELV+8BzqgvMrvFnuB8vEj2o4EY mHdwWtOk9SLG16b7EAQxBiSwwbeAdC+j4hA5Ak5NRgytBZruPfjmy4ePkTbv 9z+9UUyOj9ysUd0fFbXwwcbu04xnqy5fJIbCOvgXP9HqraeGbuHv0GmuS6yH a4HYeASUgAEAcRAbmL+uP0wHQFC3qzan+8sZ2LD2y8OPkDP4vMYzz8IfI+Q9 eeUUXXtZ3HA0JrcVXY+VZ/2D4B4qxvIzK7qldebCYFy+tv3kZNlKnw4BA6Mw mHtffgOrIUfGwUGDjr4hoKCgVpYvokozuV9++RUZwmwx19bD53C6XREVsuAw uEQfH4cvcE19abKnJO/e+fEFbfs7Tkr7Ia29MGFNNBAKKtouCTyC1HibUiYk ifXKlgqfAkf9sTHLwhnJF9oqkXzE7g9YdR3YQnxBB17PdEbqikGrUg711Wj4 PcdggdgzYffS9S8ZjMNfsNsJ0rciiPjF2CCQcCE0K1u/p3jNc5FSKohRnyem 24YLDAyRvj7DF0i0mzPlB/qzqnrmb09Fzgz10MAloOmTpSI64tqNO1+Rm3jF 1yzSquOQTFlJqE0qRy0Lg+FjtGB4dG4LkRF6Ccv1jpd+W6hm8ro4woTcw1km BzNyAO2jxSHgiZN79t5nKsz8hV4Q71VSeSkd40EUiJEpkIZ8vioKOHLyyCHS zdHStURMZiT0LLgEN0Hm8ArMD5VZa0JOAkHFvwATKDonP3/5rlXkA1titacz SkTUVS0D2E+IhFcpCi33lDQErJTnF/nAF5hJwMIGMB7CMQHr0o37SI8wBHN7 fYYPfg32jl4aFqqHYQlQRGAHOv3wm++0kX3TmYu3bIfyPalYWAKr3x0udeOR /4UrTxbbmIHx5qtH35FhQYGABU7uqOxKRsNc8CCg4MrNL1E9wAIgcBXMEuzF 1DEnwBw3gftBGqtaBskxcUBOCEXk/FAm4K68uX+tV+4iLS1rJeVfn+4DqfBP qkcaWVrmGpeBcgC8YJ1bdDWctlclSVIgNhZXM3j2+gbtUM+R41ZKj0iYHsQP E9odUa47W8MJu1WyzjxNa3RISdjJmkEgFuguQYpLQ0HJxB1b4P9yLzSIzAkK XBcp4WvYGJFaNVhMVFqki6AwEiCC9IpUHc2SdvEJgIy9Edc8Y6txXj5HCNZa EQYF/8+ukn2II+bK3mrOhnXhaB8IWcrCfTxixSVROuZBeOXDjT6FoAHqg8Zb HVQEO25VFNIzJD9/5Y5bVBVS/WB+kPRI2iriWrA9DTzkvSOjdI+pQqG4p9xr ym6eLvcEMqHTnI0YhDahc7aY0AyMNHC5FjtiwLfvPcKDjLFgLeR6ZKbQoU1P mwxCzCSwVnTrzm7ZkAIuISLsdmtQMXxy+Cn3QI+Hnj4+gB1t9i8mDkJIEBGX 4LphGQcgjYHJ9ciHkQCemAc/eOLyfVnvzQt6e7YfuAStunbrAWSPaOubIP1M dYdRuTQb0vImsjZ4dsDyPcLBLDiiHfAKc8L4ORK0/HRlxFwXKf0nHRi1egAU 8X+9w/yXeEHFiUEf6trmN2XNQ+w8fdSF0LABHArKNHNLIip7Z44/YgfNdB1R MRMnmjM7iP27cwNBdaaGVxJMEW9wagNuAiXG3dZqIznUTUxJK+sCNvkWNqx9 DWQbBYCAdjCSlyZ5tj6zb4vEAfWVHxjYGV6eWNS5I6wsIvMAQiM6E4Wbe86g IFInIJRI6h0nd0IANEIGFstcQEh4Fy6MJKXR1dELuAn8f+nuTOalWWQB1EVa k2xNvnrrAbYNdJD4w3DAQJATtb4qdTZqwzObv/3+R6YMPoO6gAMJNQ7CGIib kHa8QJpzRVdxAFcvazzGHInFjrn0n7ku5TVWC9W3h7D5tYfxgjfl8VDqwaND JBTYP+PcGVq2zjsf1rQtqJiAgtxwQ0KJLvrKxyCBo/z9hxEyRn74+BUujZ3n 1RxeoO2wkRJgNXVjAokYdJHzGHyhWd6MmBPwkba+Iv35L7AuXjdu3f8f/zTi b1/84HdvTnl5iifEAPNmPH+cJtENwwB2IABzXFJmbpKbUUFpjeCGiyb7TAeT cwmSPtpoDYedK9ibjcx94msJgmcv37FdWtDLwrojth7M7ndJ7Uf3HOg6VjR4 7oaszJc7n6GQT7vfhdVtkgyrA6I4fnVUYEr97ftf4795tUeggoQwa/GTU9Wz SNc1WeuQ8U7RHy8O/VyYj+xURePmp3wlRsrWSR1CcmGCJu4AU+JyWF1Lj6xd jM5pictry9F2LdhYYGoDioNVohpoJ3QL6qIr38qYJvYAdNuOM6ADFEXRV24+ ICAC7Bib7s8ttVB7/PwNRjh2hdzdhUVYYUaChVSr25vFYDAwWw8Gd2IKiBfP 6j1+WWtWyFVsYVXfqau4A0PaE1E5RZ5bhb4/D/IsT0J9EveTcfOhbACJrrai E/zIpqd1cUwEuMN///rVCX/9+xH/92ufDZ668F9gXT///PPEyVO/mLE4LLXq jfdG/dU/vk9iqFsR48doK15ppqCr97GHd2b7O/sW2I33qzcfHDx2YZ72Viag wNIhroglPKuZ4HVVFtolbPAuqOs8yVcIFhUHBvDroJQGq7UIn+noO49424+c 54u2sxX1gd5WOolIBHD5JtbB85HtqQu3pJ9RXhsMx1H8BN1hzEQWH30+Dt5C Pxgbhv3ZSlmSAffGxmrajpOcdsk+9MyOp1sLA5Lq0Dgevd47j8zRbmVjBpwB QCZVbOw6NU+bhSEHuA2ABs4skxpikjkCbqOXhS3dlW6PmWxfJHMhqmKuR09f wyrQKTaWKY0eBrDJ1t6zmAFRVZ5xLA/HIMFDhsTwbG0P38UsGUxzz1kGzydM E2DHebkKf4L2qMNKhWzwzd+ihUMxSEimtnHP5hhmtFl9bZyWrAGp+MHvoMrg 5+/emPLia++GplQu37Bn1JhPf/zxxz9hG3+W19mzZ6fNWmR7SdLKD/31P7z6 6hQPhoSciT62l4f8etmeLJRLyButdaRxZ/4kfEClsB+gm9mRAdm+CXnivz0N JoZ5SNSb7InxoGh09Il234ON8/WonBYttZdlXd0Bc2t796HuH5mzLQVTRyMY Nufk+IXbU4naxIuNvuKYfMIPNvniZNnDghdgYHxCgAMYuShnC0lvnLFZ6kPy G5UhYRcNZH5SgyXWNmMyR3SBwYRKSyYJ8VwFrjJV7xqFpjcy5hcneYDPfJHz MzbIDFd8cZIn5CE2r9VEAZ3m/adaqYlPSBPW6Fp6hDN1QzxpHaJ7VUuZQYq4 HKhIegWdgIlxPKYIWYWZcBXp2rNTHsgCR0TnTf5FeA3jIaAjscisZjwO/u/k loNwCLh8nRxt8vq4T/W3XR3Hme6cOFbaGacytjHLIxjz7154Nz6/xdQ9Zdai np6ev7SBXbly5f2PRqdXHOKKGPbf/mHEO7N8X5/pC1XAxnBSKba8Ix2BV7ce h1EgGawFsXQeHUKVcQVtuKHunYnyTZJS/PwQAjDLQ4OX4DPYEvkOCSbwDo8i iSDQQLz515GTJKGyyYtchj9Lm47hnoX1fW9JVzgp1o1MluzOIGZtDSg6dlpC A3Sdg6NyWoll+fuPyAaNJaHrvfJfn+7LJ5zEftARYDt5XTzGXwIX8siFDzNy 4q+3dl3BhiFyQCJXWeORs1OreFkbaMLTZi0vw0T4DSbP2JRABsrXmamdP7em F2VB8MasiGBemRWHkos7wR9kgkMhN/JrQnNUbssKbez4/oJgjPbt2QEJhe0g G2kyJ+noG8INcbeu/gv8SWAFZABwslRGyMSx/93h5fyr7+RVHGSdd542ns6T DlZrY+AnSJhTEfR7j1+Coc3anOiTUMv5aztOWHUp6/7Gt77QR2Pwmf/2u5c9 QjPQdWbV4bGfT+7v/81VdP4/vIJDQj8YOdZp095/eOmt349yIqwztbErpS4x riS2sTkJH2fiWrFZ1qfhXIgR4UMsCTraSUSKeuFZsnRkeQTCH5bbREPIOUQr 8GCcAAhHgvO2nh9tjlsVabuBhnVTNrGvXu/eSA1Gn3zsTbvnyKrF9sPng1Kl 9Q/UGqTCo0kQQBXSVb7OgLniUW1zDHPeFyXPX0jqYSxcESq1Rh83L9stfTq4 bm3bCSL19I3x/zTeDYvCeGraj/sn1QOP0lBbkYE4u03azg4REPkuE7H1/EQr /ktS8/W33z/8+jsOZiQLdIc+CR08CkpJ1GNs2AlYygDI7+AYIGqh1s9PKXlS Z4MvAm4ILb/2CJERQ+UTKBORjkxESrin1O/vkO1jRFicDnl6xFQjDb6CITV2 na7WClQbfQrsdhAWNWdrEkk03HLKeqmxySdoDbgQfgsUf+r89y+8uXLj7nfe H7lz157/AuuyV3d3d1lZWXtX30TdETxLgmAwwAUB5s89ERWgCh6Nn/KebAsg snYzeBMOYtulmQJhEUT6YnX0yMUh3QMXt0obnYdwZqs0TiI2S+tspJd1YbF7 Iiss5+rVpTtAPaYbk9dqrSGxPcg55CS7sue1aT4oNLGoI76gHetd7Z6DjtCI WdQPP/6MGPnXVi10TPhr6j7NAdpK6Qe4utXFgk1hhwtc0zAPEgqQDcxBEcwI SuOfVMfnaIQL4fXMGoP/Xr79q5V3Lm/qZ6j+wtyKmQ4TuXNfbnRgCZgWFmJP rDDLzMpuXW7qDWeAJWKTpBv4FAZs7Q7R+LBW+9EFrk0+iVKxNi6/HYFP35QA V8fAYG6I4quvpcZUz4nLxL4Ja6K1Vme23I1cIU+CMFoEBegBTdD+E+dukPKA 5FzijZm+O0LLATpnvwJMHdVwPHkWampo6y0vL29ra/svs65nX9BU8qOlgl0p RCiPmJp5rilAE1Rz9NLwuIJ2fcRQhAkR+16b5k3qzRxPX7hFgoaZYVRyS81J Wg/DNpEAZgARJUrinp19Q7O2JPMhlB6XxGJBBozELboayYzRzQvDWhjfNgFl aJsGtIxYUBlGDqLGF7YzpA3e+VaxZFipPiiBUwMgDI+vJxZ28Bsq0nr4XM/g Jeg0wfHlyV6vTPXWR/NyDx/aD3Fa65kHJx/UJcrYMxnrq9N84G+4D95Eznv4 xBW+QoqBNZ4cukkU80vcz+Ct454NANRlIgu1zc2S3ZlMXNdIPyl8V9Z0jLEx I3sMRHaDFzNgIJTUdW9UFeJ1i6n+QsvRTN0QZ1kPDkjgANAgY4T7N2f6IjR+ WnrPYp9Y5o07D3ers78uiFeG8MF8LCo86wDikjtpe2VTDDQYToJ1EXHQbFXr X2ThxG96kaSs87YbC1FIBjPA68npkBvsi5/b9x8xVNgXsAwsoFOUSDjb5FeY Ud5NBAR2dOOVHyQBFePsyL+08RjUy2qsrfXMJRJJA5Q5AZwQ/0KSUU97l9z5 8hsYCycBGbT2ci7WBZ6gZXKlHWFljAQGcuH6k7vx0DPMW1tgyDPuTX5FyDOj opuQAXTEyuK0MrDl3OU7MBnw01qHBKQ0EHGIL4Rvoj9pI8iJilHilVsP+K0P p9pnbRW+zfShfxyMUe0KlyW4WdrgxgaArpEViiZVIVIfPn65ve+8lO7cl0Xw xbTI8gBe27w2rLdqQX5mTdoiVYAWBsMEoIvQJKaGJUuBu1BsJr6qZeD4+ZtW nAGPIFEFmdEOIzl8/NKk9bEfaGMyOCdx5OL1e1A+Etu3Z/lD9qSdk5QlL7WK +kzH0cnif+/rx59+Rq0EL5fgUkBMWlFsTsTTAQ0iCKoHgXGNU0M3yYJnOEtL l416I0L+uyT00MDFus6TmIHVI8U+u/svEJJs0SYZ03y9qXjlxpdIHsuBcsjt 66Xhs7ck2WpMNIjdrnTLtu487tFyW962aT949C3ooZ3fI8Af1ASvhqVgiqt1 Kw2Z4HxXeUTOsHsHL+mWRmmXU6pbgAmLnLDsQD9kDCN5+M13Vl1ntdZ+xAXm uqRYv9TW3rOkt1yXON52+DwxUcNQAmYpt+LdZHsaNk9whxmqM0YyZv5lzRqs OR32hidiZgyAmW4NkAUbQPo8l9SRS8KQreyHmhegvfnuYOe8YfyQUr6Ou+Gb tiR18oZ4fARYGzh7jW/J1mapMy8R2Z7OA7PY0hb/Iq25kW5LlWDLScWdY6Xz bAkxAot9tjvq/94X7IJMEI8mfK/V6tzwRoa9ZGf6pysjiDgMXpqc7snkAMRL zphX00vQHK3NLDBCQp5lzQihpffc7K3JGA82RtAJyWharZWusTTIEmAC0SXp bjx46uL1+1ARUI4AgYHhyyRlaGHRzjR0hP8SbkD+JbsyP10ZKUUyj17ACwgf b87yQ4yYR13nKaIAyMOfHAzFgsIBrU/a156+SkhyCSkBmfHxzf6FtqggoaAD WICMEXoMl/Ayjqk4MMBcZG1MYLF01K05TOSdJUt8QdEABgbNa+w6lVXZo43O 05BGWeOxInluW7RoRzqjQlCIZb1PATPS2yZNJ87fOHbq2itTvPjk+Lnr/aev AZtoH4SB4xFGifh7dJ8C6QBEdMwyqQgHRlmhy3GrolyDSxq6Tms/viqiAx8y cTgYKhi1LBxl8SdcFCxlUgwjOA2j/Rc9oP//8CL/koocua3jV8egWaAJOZOt WB0neZzaKqv+xkmBpuDJ62OX7ZVdnDH5bSTIfaeuQJA+Fkad+vmqqDfUAE4o YyF9s247IIyjncSFq3fVl6UBVuD/0955AFd1ZOt6ctXkmqm5VW/Kc3G4c+0x NthEYWMMJhlMEhIgkRFBAgkEKCEECOWcc845o4AiIBASQmSwRI4SOdsEY4x5 3+r28PDc63l17WuC53RR1NE+++zdu/vvf/1rd/daybUOMqPXSWsjjxl6QSn1 HHGNLKfBlWyTcK+c3H2c+3vTA6nPu9MDcC74irb1iJPXWfsPd2WUywIDBxVi RZPSQ6XWIGe11ykdjY0QQisu8c6FPQAh/KPX/OiT86t3gmGHgCLEIcblRKes z6Ha1B9SYhxRB+7+gUXI62Pdjcz9xipFDb3ocNZQHAQLzeKDAE6UlWdcVUBS rV6ggk7Q05QSkcwfL3IHIgrPVwc3Rh5QMdqEAYIehpdwizqOnZ+9Ml2vVIHb MSJD5gQPVmM5u2I7XI305XwemZojepOLtiLJ8KAx03qe4lkr+bI/RaItIcsZ eiCHh8qv2TXTOZVnx5CVbdgnyQJ881GVEpNnQbiOM7z3kMSrL9uwFwqi44DN AInmHcp1AKSlW1bX+esS12Jt1rWbt2q3tluszqDZaRMs6YQlsQBPh4ara+6g i7948AArgPcN4PU6Lr7yS6pJLGqip+BJBimuEzWEUd+e6P3WRCEHqpFQuJVe Ax7a2Xyo/E28MIyLmV0SmpzjXOrAkbNIIO7L/7CZngSnYMS5DoIctW/pmiXZ ok29AYbMOCdUI0GxtpMlyXtAYGp9VM4mQC4RMCSuRcF8CbOZg3uSWtICkUKn esclXITJxmwhLXBY8F6vq918/PB45yXYGM5HKoyYHyGJkxZFUSUwnyfx1mSt NUNA3jksitZvclTmnYrKxgMIYFQBvn96WavEhViRyliYL4sHJGF04v88JvmT KfQserimqZ2mgMAZI9Odkhk7PLLK+BmJ/cL90UlOl6lpL8gKlkazITirNh8A M5DDhcs3MZ3IBsY4/g5XkIAkjsn61UdKSQsjHdUhARa88kxlbXmLg0SnzAUk mkaAIg4gX+073EWt9FRR7vodqFz0ORfvvHBN1xnjBeqs1spad+qz0C3njXHu 8JXKbCLx+fuZ+WFe6Wu6df8hWfqC+OdbfBPGe29Tn4jsTeCHgaPjFetArMCG sTNohgRo1TdCv41SYdPGWsfAkI0qRMmXX37J1WglXFFgj50qVOHudQ4gOpqW xL/DqB08cR51h1HjgpIyVRaM5Vspaafc8Mj3ZwZxqaOnLwLslNIWpB2wkWCe U3wRkPA5ja9WNtbTkjrVUXReI5Xk51A0nYWDg8uJCdABup/NgqhGOyEMGFYY Jnphidq1p/dv0lZm9pL3Ck6brzY4wG+0gCyetI1DkEAITbuOgR8VZzsRhwiS n7MqDaaizftN8dPBGRiqlZsPoMMhQ4Yhshk66jvZt89kmUZBOHVduI6ZAGZa SgGwVWFlmCH0DOpCIngEFO1qP00vQ2jc+qF6uUHz4jO+L0EO45t2HcWmU1sg BGBw2VTAJaG7XqZePBH2HUMMM2Pugcr2fSenqkWYiCh8Fv1mg6HBo3H3QyfO S65V2UBRjAfNiKM+ek0+vQl74xEcOX0Ra4saBD9vmXjRCMBbS6aMda0bWg9i XkEINhRriBzlCgtVe+7uOA3qjMFJRDmsheMMcenQN7QJKMXj5oe4t/KuXmfH VtmHgTo9EqOSiYDk8k37dDrvpwuh/2/pOH6eRghOq5eIUkvj4RaQM3h2MI8M QTEw7QOLaCt4Q89i4+zQTTJgC5t0ODtEL11v7ZmHbZoqr9fk3SaqwE2S91Vj oWhAv8SaycsSkVUj50eMUW/J1LSIxK9D9kAUEvOkuDk4tR5hxp90gV4j4ZNY TQsfO30ZFAFavpKEcQc7adiWvSfgQL6F4t4Y7wHycR/GqSBCOIyIIjqrr2C4 QafHxaCPt4l9f3Yw5oma8AFBNd0xBQ4/dfYqHgq0IElXPSUDJuZVhcr/avUy oKW2MFhCQRMuA2OBhkos3EplNBRdVVyXjxZFdR/nNkFmGKtwKnGB1Wq6Ktge YyGx2mwlZhR1xnoiHkZbRb0zLSAqu5Fvsc4pJVu5aXjGxnfVLiRbbzEruJkT lcCgTeAuPfmCPKaR2x4L8f0sl4pN+2kQ6Gj84ljx79TeClpDxyOFgnSP63Fq 5y9ZGrGhHMESLfHJU75PBJhkxNFQaWXIkr34XL5qSxpKBtxyJl1jYhsflFJH mwMGHfQer22FShXB3bfsOMpp8obWNatEpZp6qF5jcq95q0V1z1SsiIWCZ2hq lcIyF1oAYDindBYfuCPX16usa5s7wBIK+aHaWAexgGq8MzQSPiZSB5dfGesc r/j1WBx4+J2p/pLiM7BIt0BcfpOe5xIHxDUTA00L7D3UxX15Lqz8rvYzPAXE BXOitxks/Dw6R+bHdX4iMByetZFxh7xnbMpmNGdZXUzDUlXEVahkUc/liH45 SaP1xq1WGdXxghnaOmzdgrWZVJ52xryCOk7LqfpfizXxBAo9i6rnAWXHipqn gI5MbCUINkeQN5gqFRswWG+0xOgg5jEQsDduDuIThuEnw2TnSAaanN6BTwAP R3Ri98jsTVgfjmDs1kRwr0LZKeaSxgkeKjydtikAdYFr5hLvPCwF/YhwUvo2 kd+iqNXSUAmChPCDvjAZRbW7bTzzbt66i+jiT6+49XqNenxBk62KGEzNY/6+ UxhyUytOM9HekBJejK3KUaK3m9Fxi9xzeSiQCZwAs94sRp2R0xZqenqBihzI 6PCKk50y4JBRQ5W47+YdR9AG4n2r3Liw4jCL0NVh64aqQO4QqSxqVYuHEX4M NxoEXgJ+VBu+wsniuWgNzCK+LUierHJDcC8bLxH/w9QLDSQxz4KM1Mh/Xsqt 259B9bPUooiRlhFoDJoOANCYPU28cJBdQsvcY2TyGsagB2kHgMfgpYMQ8M17 jgMPukx8MRNJB7DEJ79573Gsw8AZgdlVbZK2Q816o6yAqF53N9oyEvA4h5aB WDoLy9vD2EMHrOCHneevZVVspz7FdbuhteNnLuMxobsOn7ygUk6ESBQRlVAg JK2BAZJZvr3zwnWhhaDio6cuqgXqMgEtOcRt4zF5vgnVs13S+TnmSa9Nfahy udK/H1jIe1GQzz/6/eKVT6htw7aDDDTwdvbidbzI99Rsck9jRJ0kPUGTi76a 6k9NSup317V0MFicVDYBjNfxzstIO36C58g1ARWY7z3JB5DYSP7NOIzmx0fP 6b2xE23lbTaNj3SErsEnJyPSMBk0MidMc0oeJBl1ZY00Tw2eHw8x9LyUk2ev 8IxoY1DU38y/7xThLoWxeB1CE68NNjBdmuCqZgEwoBgX/bKIXsA+4hY17z5O 44AHJCtQXCthBmN1QjQaGVML9Q2cHgAkUFw0HQoksaiZXkYhM3IvXf0krXTb u/L+X5Q5aMF7xQtAaTOiueyeQ53oNG6hd4TpSHR563eCBD0zuP9w11CLkFnq LbGkWFooaewAsI4ZuEHNF9z7/D6WK0pNXfHZP7muzyS1ezduPYqRISPxols6 TnZd4REkBOX8CNxn/NPY3M1gDzLhuT679znkCafRMmll26JzN+v19vYBMukw UyXpHrsoyimwmOE2ckG4TJ0Eyra1K9c/xb9IKWmGOXVq2uFzwxiP3pIjTybd ZAXR8gTcE9ib5+L62BEjc6FT2Az/61Fm3ueuyLvlBRFGU7x6fOTwlrEbI46H 0ukweED0PK43j7wiuJRBRN/RF/zJOMUboruzKtsgqAXKWQAA2Cx00Qey3i+y h7FnUlHzcRWRj9/STXisuet3QPjABs5HJDsEfZXOQIcmhhkCU5DlMYtUfMWp Ku6oncpdde7SDVDtn1zrHFrKuOBbLNpDFa03p1KWcgHpUpWnT2/64LlwNnEq GQg62B0DBIOIncX6+yXV8CyMDkw5T6G3oYFn6olgC0mrp01g2rXRFbp6fKW2 TJY5BQuW8OaoJ/4vxtTWt+DIqQscYUhCiXqjHI8MkLis1dpsF7WVg19t23eC x4HKlvkV8tVir1za4auExfNlExYS0cwuaZRlVJ9Jvm8Zu781xqmvqRsALml4 Eku8vr9i75n8wn+81Wvg6Bf+2utvHzr0Vn69juU+eDaaPxxvEcbGbDmpmLeg iMakTycsifWMXR+Rtck7oRq8IWL3HzlLRxzvvAJHGUnGW1ncqOeD3KIliTkW k7GPLhq/OCa/ehf24v4XX2C/YJv4vC1gwCVcIiu27j+RXdHGBbkL3jpiBoUP qGCefYc64UZMNsoZWSIbT7I3cea2vSdhOf2i9eMjZ4Eln+nQsMwNAAO9xC3o Uywmjh6oAzP6txyELuAlJBw/keCTKlZVTpVsNUKoU2euVr5xn+SwC1vHBR+q /b/u0ZXp61rXbznAeNTRfgKSay+pUNsnuq4wTutUnI2Q9IbILEnTAGJ7TvSE DOeuytBZGGhMK/ds0MUjj7OOwQTjd/Sd7PP6aOf/83KPnkYjur3ae+bSAL0b 6zktt27dGvHhGJ+ovMzKnav9k3iutya4S9KNlekw+dA5oVgxRhbaCY2Ed0/j QAiAKjC5boB5AOIKhzS5pHnvoU64ThYVe+RAIHQoDThfpR6g91WGmqAz567x lXf8ejO7xHMXb7hGlZvbJcmq/pQ6xnhZw96TXVfVi6MklC3/u6hF16gynWAU /GCjJS/nwijYCfDE5zd1XriGRVsdUU4FAPZy/yK4FD/346NnT3RddgwsXu4n qeTx5tR6fioTruMe2KN5lsRtbD1ctnEv6IVLkfQ66fmCtVkdx8+hxzBqsflb VkuulnjYBokIsIEltvLqjdugQmcUkj3+qzMYL07BpXzFmTAbXsyWnZLftqBm J5QF/HwTa73iqq7evLXQLae6qT0ya+No2XQfrTJxhyDnJJ+dRJfy7NZ90FKX QHokLLXyvcHDLl36rmGin2I5efLkeBNzvaKbf3/r9X7vCWsA2DtTAyTC/Mp0 XDwG3YdKkGOVaBCOm0v6iVg6CNnAwKS/zOwT9brE/uZ+OljlYq98mRxZGI3X 8OYED70QSG2Bl6ATGCOVwNR90KwgPRcJ1y1Ym42MeWO8hw4BoTN8cTL6hCsz 3vncY4JIbi4lG/BNvDhfpwWHctVsQtLrY930WndEkWw8cZT1M3q3/kAVjBHb zdPNcpb8rSrwTrDkjTL2pA5zXNJ6GntQbSScygcdp7fEdh/nrq8/VHZey0IR mqXnRC+eiwbhItC+DbpLZRhRK8Ml756pmtXCK+TWYAkpyxEElZhON8mJJqkE XGjhEP5HIvJQsuhuim+3V3ull7fpHpk62+rJrIL+nspnn302dPhInfZoibNf t9cHDpzmj4ICUR+KTsjDhdEZPWhhBnh0TuMyvwL8O+zOsTOX1G6vZFqV7oiS zB3NOgY4yrZ130nEtp1/sV9SbVJxs3p5FQpscP9nSkw5WR2BndJvIIvq9sj2 aglXsmGpT0FCYdPxM5ewtoW1u81UmPrF3nm4tKX1e+jZU12yigA7KBs/pwdy NdlEHFZW29yOylIJSQsqGvcjDoE6MFYpPwL15qNrN29Dg7CrDmM+aEYQjIev GpBct+dgZ976Hbh1+BR4i9SHx9m4/TAXh+LQfnpDChZQuw+4Fell29xjqlao xYr1LQcls5tX/orgkpD0DdodpgIgjZ/jV1KfA0pC4B2MUUHIsZ4Aj4a18czB pMKumEt88H/r9saMBfb0iGd41pChI65fv/60YfKdyrlz5yZNmTpy9Phhw0e6 RQjn643S6F4YgM5Cg2ECiut3j/9q7XQIA1yFuJR3aE4qvJvl2mwE7SiryKad RzFGeGS0Mwp/Zai8REVFSO7dqQErw8qOnr7EQKZnMVV0mU6lDZ6dQ0o+vf0Z NmV908de8SK3Eou28i0IhwEsXNIPHD2LnANpenf8tr0nEOTAeJV61a8NHPXB WUAcAmYMtKN6666VlV59Skdjx3E3GCO2PgVcGebkRhnrWpGIq8JlqRi4uvvZ 5+BhhEIRVQIwoI5HpnEOqqWw/c39wzI28lxYScaOXg3Vsvc4FNe86xhosXLL gQ9xeYCxXto0WLWbbMaUhayR+TW7dBQpvThqnE3MFPsEyf1qGbkypGDWnHmj xk4cOmzkoUPfeyiAJ1A+//zzq1evfvGFREjDZdNp3x0CisAYYIvP30I74+Do FZX8g88RrrT8dKfkkLQGi9UZenEsxoh/eJE0Jr4APqMkFXWXdaT0V8WmfRxk 7COuwA8eHAJewkapUF0Q1EMJHLG57cAp/UJ+5so0JDQgVGmJ8u38i1Ta9yOu URVnL0p0O+gUBQg1IRTfHC+5FJOKt2LXAAzcizEFD/XNHbCQftEBtvmAuKIf 1UxlcWJhU0BKHYjF3cBm4ci0Hzvnr1IwozO5FGhEF+HjwE54AVSS+jMicqra cD3Q8IDE2isXzwUeg13BJE8E5U5zTNFZsfBEaK5SFWMTgTrFLoFmVJs9JWZI oophxXM5yoRdOu2sUyY9ePDg2rVr2JenC4zvqcji9uAShjPuNrqLdqB/sQul 9bLzC+D1M/OTzJsSFbNg3YZ9mJi5qzktMSxDYuBjGWnbEfPD8EahLO3yu4TL rAGw4Vtacox1dETWRsmZsjYTHJouS4B/MBk6lUBwWgOWS8VJvrHUt+D23Xuh GRs4WcddRGhhFnHZ9Kw6nixmcewiSbB1QEI35x86eRGLBk/Sd5gwjNE810zZ Zusk6aGX+cpSf2vPHPyLz+9/oeLEXsOb4CuV+CMPtDMi9MIe/EQMt62ym4w1 pLhnnCQK5DR+8s5UfwyuWoARDbcj8FYEl1q556SUtHARRhymv6R+j0wZ+BXq YBcOamtt1eaPsYy2PnmyXULlztDrJb5F4uPntOh45vQOfSovA+ncjI26MRmG GeWtGCYdgdx4cayFyk5O/6K36S8YL6uyTSKQzw8PSq1nCK8ILcXH1AuEABjE Bb3ADDqALQS1yCMXe9fLxPttU2/IARKDHxj1kiVNRYWq3doBMRbX74EHuC9n cuX9R84CSJjt8MkLnNl+7DyaEIbBrO8/LLOHCDmVIzV7d/sZHa6ql6kPeokr c98sNWVZ2rBH52JLKtra2HYY/w6c4LyMXBAB/2AuMbs2Hrn4rXgfqE3cWFoA 1IElfhiUUuefVMM5aPuCml14xAAeswvLMQBlEYXEjgtDHmCvqYO9SupE4/gl SlhgUB2YWuebWK2Tjj3tbn/SRbJFy2reDugLyZq2rsXGKxdaMJf5C9k2SEvi afJhmlOKThr4/uygaWoZPMYOyyWJBWOrFrnn0JK37txDz4M6eg2ZjXCy8yuU 9OVrMuggBrJbtGQSoSuNzPzG20gIaPQ5YkZn3tQLP5JLWtZKjMpMcGvvXwjq 9Np+z9iqY6cvRSkUAaEuFc6X43sPdupk9O6xlbCxb2ItGttNtiLKZI1HjOTH UcsbNk1ZnqBfiKlsCMU6MqrONWDvLwmtUkqa8QKQVRAU1MdXs1XgJvDDU2Al wzM3zFuTAbfjaeq9yQhRdJfam5YN2HAheVJGGe2DGwvHgmfcoqK63d9HzN7n ouidHQgD18iKMYuiF6zNispuhPOnK3cbmIExDIRzSNlaNbRBl+SanBU8zTGJ cyYtjRfffEUq6oLf6iXHOFNNu4/pVSgDpsnmaL3g8GTXFbp+VXgZN5qzKn2A BC2XoDfYQY4gk6BQ9HNqKRirBDDcS89nXb72KcIJGENK8CRSytojB//ik1t3 XSPLsZ4QrJ+KFKTWNMZyHRuvPMkhqzLt9prkjfGix/VuHYzvvkOdOjZF+aZ9 RkpeYtcYHWfOXVuqEl6AFuqvAnfHT1ShaLnF0DkhPDvPu8QrT6J6RpbraC0z nVPhZ4aYlXs2+nD+miwx6DL1eQiLv+fgmafdyU+5QN34TVhMxv681TL7v0S9 NKAvQA6dQn8haxmk6BOJJ7Y2i7GP+cMsjlCxhXWyuf7mfiUNe+PymyDDVbJk Oun85ZuSAcc7zz6wGMbDX0CTYNH6m/kCRf5llW8HJ2+beMXkbT5y6hI/4S71 LQfxQJF5kqzTORXGgzQgHxuPnIaWDs7BniIguR2+BnXTawI5AbcXr0EvIAHk uVU7epl6A8j86l0uoWU84ACV0YxRA7Ollm2zDyxCa3GpW3c+Az+MIC7un1wL Z4ovI1eWtOw40faSjUvyVlisyvBNqqF6DIdBM4OHzJFMJVwQTQvHAk7c27mr ZKtUYuFWjuiIx4aic8JC5jjskoBS5V+Y6pgsubNdcS3TaeSexp4QF8qHwbtM 7e6B9Mo27GXkYhpwwYAi0kv8dKsIVBNCGh8QygJgQwQJofQyPmPznuORWRtR 6TgXWKLUkhZEy9xVGXpjFxpeEhbQoX4FhXW7a5sPSiZWywj+B4cj1IvND+fL 9rEBUwNGLYh4d3pgfs1OyAfht0ziYX4M0YFnJNZ8iV1TisjkAZGRgBAZVrO1 PVtFJoRz+C23w9SCKL+k2rMXr+tFHfIUs4KxqlhqneucYSLJtnzyGRQL3WBa WYOBCaZ9ZNW9SxptxcCknjrqPi2DZ6QDmxvKowKZQ+n4O0jcqfZJkpNdrczH 0mEIGKeDVMIykVWr091iKkGdR+z6ja2HgArUVFC9E4SgZt+bLmHx3lHbRmh/ BjLeFmqZi6QUN+sNOzmVbdgsScLoJ0nudJBG7B137D7OXYy1q2xl4hw6PbOi tWHbwTWRFavDy/tPkVw5KLSKxv06wKneXDxfRXV4Y7w7ZEsvT1oWDzb2He5y Ci7lLjxCdHajDlW3btP+8YtjgiRMU6sKbZEN2LCkqDv+90msxs/FN4TruEJt c0dYhiSkcI2snLc6Q3YBTPLh0fBYZdWNY7LOQsuwgv20j4NX0rLnSQTyeh4L lA4e0FqwlunShMGzg3ub+gycHoBNnLAkVoUkijcy9xsxXxaRMsCHKMezZmsH tjU0XaIwIZKD0xpABeYVQYUBUoDMcFF7qMEhojo+vwldZ+df2EcFh4QzETPm DrI3EPsL1TiHlqktAL6yVnBrO8rqRNcVFdmseMzCKHuVrGFn+2mkI8SLXe43 xY9vgd8i92zgEZqxAZMHPh2V54uqX6zCD2KmqTZImCo51qu4BajGUOpwasZL YgNS6vgfXgrL3IBKrGn6GMqSN8+rhWAxf9AmGIOxjSWAfNS7KoEallrFt0yh 3dAGOn6doXxTgdihd0hJx6PuO9nzzbFrsAgDZwTiLtGzdBDCY5xKd8LY19Oa si1XrWtCn9Q1d6xWK/OhIx3OCyoYPk9ywg6dE9p7kjcH4Trg4RZVsRK15pB0 9PTFLTuOYHoY+xeufILHt9RHQnbT705BxbirsBZguHX7M4zap7fvchydD1zx UHQ6D5wLEHX09KWOY+e4Y9mGfWcv3pi+ImWZbyGqHr9AkpsvjMLC8i3/j7aM oBoYvpELwrG/knXXpwDljyY8piJ2ojBR/jwd58yVbXoSQ9vMPnGOSwZ+xKAZ gT0nevYYt6avqTv0NUKiQiUhYu8+kRiqP4BCR9OhrxiZ/ft/vv2fPd998e3R PYw9NOHoTAToDQmGny57kBnIJrIvJlmn/VWb3yGZVFkJnFgtQeld0pOKmgRU jQfo7nE2MYhnDC5yDgsFk+BpYpfz1u+A8eAxWAhP/9rN2xAjHge8AYeY2SUe OnEBgJ29cJ3bWXvkqWDFkjGq8/w1qIxLod7dVaQplFVScfMclaQ4OK1+0Kxg tR8hHEnGXSRGa8V2UCRphpJq+BO44veprBYpY2WCW+Jwcn0br1ys6pTliSra dr6lcnD6qpU5L7wx7MVXe7/yhtEr/UzgbVyPp91pz1kpraj5W0+jxKKmzMqd YybN/UvPUfhWOqkZ7YwXiQiRKHYJ1dE5jeotVhGEhuHDViL+nUNKq7e0wwwo It9EyRWCRsJdRThJzLH8LQAYIzvfNRPwAF3sC1odonAIKL5z994SnzzfxBqd 0Affv6ap3VLlhx1g7g+N8AG2CU6tR4nBq55x68Ek7jCVAeSADUJDLIEWUI0H gQkDzNi76qZ2vEVJMbM8YW207BHILN9evmn/cr9CiJef863KyyN8GJm9MSxz I/SrMwotULHp4GHa4ZUBU9/s8156eVvautbubw9ITMt52t31/JXU1NQlzn56 VYlPVN6Lbw6BqSSBiAVSxJ9mXyQLiVMHq4CiEBdOAZYLnTxAbaKHx8ao1Tgj 1YePrCIHTg/UztcEYbBgk6UJ4OqDORIue/KyBJ2FBIHX29QbFa0TUCJsMEyA EzXYTx3Bwg6ayf/8MERHX8TCck3cinencV8f/XqNCqDz35cMyGHcZcLiGK4A erGGYu6nB462jKRKPAsEKwnE1erH/uZ+/af4mtslUj3AOVVdGTADfjgNXA2d G8odB80KgtLXBCTpxnHyjAoOCXna3fX8lcbGRqOBQ1LLJFbn0NGmrw+cgkYy tU0Q2lmTqeIqhOM3Reds5giyvGLzgcXeeY1tR5b5FUEF9M4QWWiX7hFTBXFh +JDQcJeE1ZU4eOvxtjZul522CHuUm1t0hXNoaUByPUaNTreTEBPherJpiqz9 iNMpWZHrNVvbo7IbpzlKQm0dYESWXgcWgSVziSIikTH8EmuQhXxlbBtX23KQ eoakN3BrtDreKEaTylAr+Gqa2mcNSsV9VlXiV+s27veKr0YMaAZGDwBI/oRv YTZu9/p7U0cZz9AAGzjkw7KysqfdXc9liYtPGDFq7MD3h5qYTrp+81bVlgP0 r6VrlorPJgEzJaz3qgx8PY7DAyrfYshMFRNjsl3C3NXpDPyhFiGi0n3y3WMq veKq/ZJqZSfsoih+iF3bsvOozmKcXdGGgoJq0E7b95/UU+0wCRA1WRoHH9L7 rpHlHMfY6Wy5esaZD5au2foNbUn9HmjNSeUVwlWcrTIDUjfIFqDaeOWBc2+V L4mLI8s/sAgFurOcU/WWpRkrUiBGPmC+JWdi/mYVtj0JecbzLveXpTv8K9u4 9/ond9a4un04xvi9wcOcV7o87Y56jsvly5cvXrz46M8vv/xy/+GuyOxNy/wK 0SfJxc2LVNgrWCgyaxM9mFmxfaFHjmNgsX6RpQPIYDcxfBjBISoFJN3tEiZL GScvS0Qd4U7y21Fq7y3upM7vwzlQDVIfBxB1DdWAXowp6hrvYJpDMrcAtGiw kDRJTC+ZHB2ScQT2Hu6ErBCK3nHVm9oOq4Cx8YiotVHlMme6PAF67DvJFxtK rTB5aDZZbeuaydUWSsqwVm6HsAeWMPa8NTIhHpG1UfLMptbvaj/9+KwijfNc L3h+lsvla58W1+/BkNH4sARdDHUgpVT26rSZzmmS+d2nAGVOF89zzdT5wlTo Zj/1CjcUEqOvoSY00owVqVwH7EEgEeo9f2nDHpfwdW5RlRg1MDDdUYKZoIVw KrGAiyWOVioX5FuwB9rxAhzVAjAkn8ykZ27g1giz4WoJ9ChJCRSKoEJlUQec PqBo5Z5jruJFwE78w+3FAkJ0pssSeBbIdsuOI5CzJJKo2vHsh4z4QZb7XzzY tu8EgkfSzdfsisjaBAAs12ZjLhHSknJrbth4yWUQQ6fDS+rttyw50Pt8LVzS 6UfvhOrhKl3yQvdsPEpUuryqUmF/OE2WDgaVAFdAZe0hUTe5BZ2ONAKB/OSr 7OqTfIZZhBqpCJ9IQYAKnJBh/sk1GEpsNLiiGnyr0zJCmKZLE8ZZR/Nb9L9k sJWpxnSwqmLs7IZOsemMnWc51s2/Tjl97mrGulaEjV+SBFRZ6lswwyl1nErr JhsxJnjqvY3wwyQJ4y9pTBE5qCA02zLfwvyaXZKD3ioSZHqqWAG4CcDJToIa SdxFrgP19VfBdfvKnlnxKEEg3yLgEWb8fM7KdPQVBlE2U8v81G4ntZsYRpqv YhdwX1PFsbI9RDmt1Or9mcFjVH6upb754BaJyFMkFW3FWD/tRjWUfyy3795r 2HZodQTEkgNZAbDBs0L6mLi92Gdit94Tuo92etvEC7zBGMAMogMPUB8egQo2 WAAk0su2zVyRBkRnr0yHcLBreq8rptBYdgnF6gQZJrZxfAsgFf+EQI8oOn4F Pcbkbi7bsM8xSJIxmao1Zj4JNcgq7C/E2G+yL3XoMX7tv/ea8GIf456j7QVg i6I4E4WGd7B+y8d6R7mhPMvl4PHzSCkEfK8JK//y17etHX0sl7v95a9v9TFx /8AiBLRALEPmhOppSsBgH1hs7pA0dlE0qIB2nENK1QLFSmtPCf6G1yn7d1Sc +bFqdttkaTze5SL3XNwKkMmZsgcksOQruC6SzXf8kMui0vkJ9pF/ct/ZIX0m uv75lZ7zl7ouWen/4mu93xrrPMEmNkD2/HY913tg/wULvvwsK4eF9p76fZG1 ozekISG/1DymvX+ho4rzgEaauCQWPw7Ng/4BYLCftSyDSQcnQE5NNIehqd6Z GjBAberUKz1gsHE2gqWZK1JtPIUzMakBybWeapEttpIrL/bKl81HgSU6liCM +nJ/M/O5y3WVVnhFjzKeYVi19fyW0LDwR9MBVnYe/UbOnLgkTi07zMKiwTzB qQ0JhU1ZFdvx11wjy+XlxvKERep1k5ldkko6FoVZHDgjqN8U3+4j7V56Z8Zr w2wlM7js45bJdGwfp+ES6tkroLs6ojwmb3N2ZVti4daQ9A3uMVUYSiu3HAyo ydK4d8ZYmkxfqKvk6B7p5u75tBvJUL59uX79+uAPhls7ei1e4Tv4gxGdnZ0P FbMdO3Np294TFZv2p5a2wFp6P/6aiPKwjA0ciVX74LB9OJX4AmAM+np1iNXL f+tjOlty9/zHwOmDZgXBbBarMsCkjUo4FZPbyG8jszetjarUMW38k+uSiyWV XvPuY4dPXrh24zZG8M6dOx8MGzlvyarla0IGDR7W3t7+tBvJUL5TOX36dERk FFR248aNf3La/S8eXLh88+Oj5xrbDhfW7oLQcCehMln5vyzh3ak+L3U3isyo gXYSCjZ3e7WX0WQPvR1A29bo3M35KnHV/sNdZy/e0Hm9v6lcuXIlKio6KDj4 woV/lX1khvJN5dade6fOXm1sPfB2v/ceBdkYPNK4tKbpeOdlHWTYUAzlu5cP R43+aOL0qKy6cZPnTJ8x+8GD5yngpKE8++XevXvuHp7GJpMnmpjevWsgLkMx FEMxFEMxFEMxFEMxFEMxFEMxFEMxFEMxFEMxFEMxFEMxFEMxFEP5Z+XIkSNr 1qz5b79at25ddnb2d7n44cOHIyIiWltb/+tXqampe/bs+S4XN5Rnv3z55ZcD Bw6Mj4//b789c+bMH/7wB0Dy7S4+bdq0n//850OHDv3973/fvXv3zz//f4GV CgoKfvSjH0VFRX27KxvK81LgqD//+c/373/j4sB58+aBk29xZYjxJz/5yZYt Wx6q/de//OUvc3Nz9VddXV1//OMfDQD7IRUTE5PXXnvt/Pnz+k9ra+vhw4c/ ePCA/1esWKEPlpeXGxkZ/frXv54wYcLIkSMzMjI42NTU9NOf/vRbbM/ft29f YGCg/gxPduvWzd7eXn/mpnPmzHnppZcMAPvBlF27dsEhPj4+fM7Ly+MzAPjk k08wYbW1tRzs6Oj41a9+ZWlp2djYCMCgl7CwsIcqCQ6Qy8zMfPxq7e3tvl8v If80epI2iA0NDXwODQ0FWtzaALAfWJkyZUq/fv1OnTqFIkpMTHyoUEe/c4TP fn5+v/3tb7VMOnv27I9//GMNMEqvXr1Wrlz5+KWAypCvlzFjxnzTfaurq8Gz ra0tnw8cOACMtd00AOwHVsrKyoDTm2++OWPGDH0E7uKITmaH1kLtPzr5xRdf fASwYcOGwWzf7qbJyck/+9nPnJyc9J/9+/fv0aNHrCrIMDMzs7q6um//SIby LJU7d+5gEF999dVbt27pI21tbY8YLC0t7Te/+Y1msAsXLjzOYKDiEUJ0aWlp mfH1smDBgv96R+wmOv9x6/nRRx8Z/b384he/AMbOzs7f0/MayhMuq1atAk7Y u0dHrl69CgC0BuMzVGNlZYUGmzRp0iMNhib/05/+lJSU9PilduzYsfjrxcHB 4R9u19raCkpnz569+e/lH153GEzkD6lUVVUhhMLDw0EO8v7R8QEDBjzikKKi IjxNJL2pqSknx8TEPFSqCZygyv6nd5w7d+6Pvl4sLCweP+Hll1+Ojo7+bo9l KM9EwQgieCIjIx88ePDCCy8sX7780Vfp6endunXj+O7du4OCgvTBS5cuYb9K Skr4DDXhVD6dehvKc1IQUePHj9ef7e3tf/e736Wmpuo/79+/371797y8PKQ+ Ggw1FRAQgLMJld28eRO7iX18rnOmG8oTKNbW1leuXNGfL1++jCDHuXv0LYLK xsbmoVJNmEtjY2MPD49z5849VG/M/vkLLkMxFEMxFEMxFEMxlG9d/i+b3d3D "], {{0, 227}, {203, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{142.59765625, Automatic}, ImageSizeRaw->{203, 227}, PlotRange->{{0, 203}, {0, 227}}]], "Output", TaggingRules->{}, CellLabel->"Out[191]=", CellID->382530249] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell[TextData[{ "Compute on larger graphs than was possible before (with ", Cell[BoxData[ ButtonBox["Combinatorica`", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/Combinatorica/tutorial/\ Combinatorica.html"], None}, ButtonNote-> "https://reference.wolfram.com/language/Combinatorica/tutorial/\ Combinatorica.html"]], "InlineFormula", FontFamily->"Source Sans Pro"], "):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.854028539079213*^9, 3.8540285626601667`*^9}}, CellID->147729893], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChromaticNumber", "@", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28}, {Null, SparseArray[ Automatic, {28, 28}, 0, { 1, {{0, 20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240, 260, 280, 300, 320, 340, 360, 380, 400, 420, 440, 460, 480, 500, 520, 540, 560}, CompressedData[" 1:eJxt0UkSgyAQBVAGjRoHnGVwkxvkLDmCF8j9dwEaBSEbrHr1fzXYr+P7OQhC 6K0PrL+EZvmjKKtn3bQd64dxmhdMM6ATVi4w0bEwtEml7V40Bl1vtktzH1s3 LtUemg45y245EZnJgcGQjtkBGxfe3FAw9zafk5f5nLRd+AnNOFtSoU1LbHX7 z6Juaa89pMb60IoqzYFdOZJsiItzRd6kile02u49ZSxekZ6yxys3lk6V6gcl piGU "]}, Pattern}]}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAVP3SIQjuyD/mt5GRwKjXP4wiNCbd cOI/wEURU4upoD8r5r0fh9PpP7gz0SjJZOg/0GvwxaS25z/cYgNoUgDxPwAA AAAAAAAAevEabEhH8T/4hjqnYqTwPxYIY67ZfPI/PgzN77xO+j/KTnG1bBDt P34kFNd379Y/HrIKcTOj8j9l0q9ovcvyP/6zTLbPxug/NSOd2ir+9T8Yiniv si/WP9vqTWF/1fg/cHJJVsBWwj/GRAnZ9tHhP7DQXUEQPfw/UrOCfrt75z9k NxRN1WD3P/A5dVkpTd0/46tcmixp6z/bgFV6/PHtPxER8aGmsvs/0TPrOz9w 8j9uBgy/1ID3P3NP/8fP+fE/AAAAAAAAAABWb+onjBfqP23pwG+7/tk/oMuo iV872D+x7dbkYff3P3xbe9Dv1vA/AALd4fL+zj8eG5Pe+NT3P+1JCWXg6+U/ pE7Vh9onxT8+lH1DXVjmP9ctSDvsePo/MAC0KOOd9z/WIWCNWOf2P/QFdOBl 3PI/H6MXOWi43z/Ak/StCuLeP0ab7WM0jfU/H0AAe5VK/D/4fZlPdAL+P235 8B6poOM/6iKLraxz/T/0OFOXZ37zP7pi6Pg= "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwVxbeRGDEMAMAD6L0nQZOoJZXwDXz/mUab7J+f378/+H0fwff9HxAYcBAg QYEGAxYceAgQIUGGAhUadBjIkKNEhRoNWnQYMWHGghUbdhw4kXAzwSRTzDLH PAssssQyK6yyxjobbLHDLhdcc8Mtd9zzwCNPPPPCK2+888EXP/wKKZTQwggv gogiiSyKqKKJLoaYgsSWVjrpZZBRJpllkVU2OeWSJI+88imrnPIqqKiSyqqo roaaailSR131tNVOex101ElnXXTVTU+99NZHX/2MNc54E0w0yWRTTDfDTLPM Nsdc82y0yVbbbLfDTrss2W2vfS674qprrrvhpluO3HbXPR998tU33/3w0y9P fvvjX8ihhBpa6GGEGVagsMMJL9bY44wrUtzxxBtfammkmVaitNNJN73c8sgz r0x555NvfqWWXmZZhcoup9zy6qyrUt311Ftfm201aruddtvrs69OfffTb39j jjVo7HHGHW/S3OusS4cuvX323e+8+/4BVKYhfA== "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.021594025128350208], DiskBox[2, 0.021594025128350208], DiskBox[3, 0.021594025128350208], DiskBox[4, 0.021594025128350208], DiskBox[5, 0.021594025128350208], DiskBox[6, 0.021594025128350208], DiskBox[7, 0.021594025128350208], DiskBox[8, 0.021594025128350208], DiskBox[9, 0.021594025128350208], DiskBox[10, 0.021594025128350208], DiskBox[11, 0.021594025128350208], DiskBox[12, 0.021594025128350208], DiskBox[13, 0.021594025128350208], DiskBox[14, 0.021594025128350208], DiskBox[15, 0.021594025128350208], DiskBox[16, 0.021594025128350208], DiskBox[17, 0.021594025128350208], DiskBox[18, 0.021594025128350208], DiskBox[19, 0.021594025128350208], DiskBox[20, 0.021594025128350208], DiskBox[21, 0.021594025128350208], DiskBox[22, 0.021594025128350208], DiskBox[23, 0.021594025128350208], DiskBox[24, 0.021594025128350208], DiskBox[25, 0.021594025128350208], DiskBox[26, 0.021594025128350208], DiskBox[27, 0.021594025128350208], DiskBox[28, 0.021594025128350208]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{96.36328125, Automatic}]}], "//", "AbsoluteTiming"}]], "Input",\ TaggingRules->{}, CellID->400923033], Cell[BoxData[ RowBox[{"{", RowBox[{"1.244067`", ",", "7"}], "}"}]], "Output", TaggingRules->{}, CellLabel->"Out[135]=", CellID->190361114] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell[TextData[{ Cell[BoxData["ChromaticNumber"], "InlineFormula", FontFamily->"Source Sans Pro"], " does not work on the output of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["GraphPlot", "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/GraphPlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8540285807347383`*^9, 3.854028580736259*^9}}, CellID->732171609], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChromaticNumber", "@", RowBox[{"GraphPlot", "[", RowBox[{"PetersenGraph", "[", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[109]:=", CellID->892714403], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ChromaticNumber", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ChromaticNumber", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/29847ae2-a86b-4ac0-8dd9-bcbcccbc77b4/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ChromaticNumber"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChromaticNumber"], Selectable->False], "[", GraphicsBox[ GraphicsComplexBox[{{0.9510565162951535, 0.30901699437494745`}, { 0.5877852522924732, -0.8090169943749473}, {-0.587785252292473, \ -0.8090169943749475}, {-0.9510565162951536, 0.30901699437494723`}, {-2.4492935982947064`*^-16, 1.}, { 1.902113032590307, 0.6180339887498949}, { 1.1755705045849465`, -1.6180339887498947`}, {-1.175570504584946, \ -1.618033988749895}, {-1.9021130325903073`, 0.6180339887498945}, {-4.898587196589413*^-16, 2.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 3}, {1, 4}, {1, 6}, {2, 4}, {2, 5}, {2, 7}, {3, 5}, {3, 8}, {4, 9}, {5, 10}, {6, 7}, {6, 10}, {7, 8}, {8, 9}, {9, 10}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03574187784409402], DiskBox[2, 0.03574187784409402], DiskBox[3, 0.03574187784409402], DiskBox[4, 0.03574187784409402], DiskBox[5, 0.03574187784409402], DiskBox[6, 0.03574187784409402], DiskBox[7, 0.03574187784409402], DiskBox[8, 0.03574187784409402], DiskBox[9, 0.03574187784409402], DiskBox[10, 0.03574187784409402]}}], FormatType->TraditionalForm, FrameTicks->None], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.770139253288968*^9}, CellLabel->"Out[109]=", CellID->565268717] }, 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["Szabolcs Horv\[AAcute]t and Michael Sollami", "Text", CellID->454962937] }, 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["Graph theory", "Item", CellID->879801183], Cell["Chromatic number", "Item", CellID->380857092], Cell["Vertex Coloring", "Item", CellID->497673063] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Graphs & Networks", {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Programming Utilities", {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVT9tKw0AQBbU2kSL44LN58i0fEWKrBbXS0Q/\ YpqfJ0r2xM4vk791UEX2aGc6Zc2mKmmYkowFdbpKEJDXN2wHdEfvDOV88axa6eYwqDFzdV6+QTx+\ PTHdPuh8QqxclA6wS3SlTtd5mgXx4R7dv0fdRWatdX32INlo0OJutBZa5bJL4019NRaYGRBnpqlWC3\ scTc74JkxIfzr5jTHObDLhY7rWoXd5mK2UYv0D5AIO/\ yNTFm2Tdf8PrtRPEEPGTtWzcSGnHyOUXW7BPscP7GEDFKrlu4nwBqeRoXg=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->489732007] }, 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["ChromaticPolynomial", "Item", CellID->691725988] }, 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["Stan Wagon and Michael Trick", "Text", CellID->989555383] }, 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[TextData[ButtonBox["Mathematica stuff\[Dash]Szabolcs Horv\[AAcute]t", BaseStyle->"Hyperlink", ButtonData->{ URL["http://szhorvat.net/pelican/pages/mathematica.html"], None}, ButtonNote->"http://szhorvat.net/pelican/pages/mathematica.html"]], "Item", CellID->997609737] }, 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[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"36", ",", " ", "36"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "10", ",", " ", "11", ",", " ", "12", ",", " ", "13", ",", " ", "14", ",", " ", "16", ",", " ", "17", ",", " ", "18", ",", " ", "19", ",", " ", "20"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "4"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "3"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "2"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "5"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "3"}], ",", " ", "4"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "7"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"1", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"2", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"1", ",", " ", "3"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"4", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"5", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"2", ",", " ", "3"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"7", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"8", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"10", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"11", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"4", ",", " ", "3"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"13", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"14", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"5", ",", " ", "3"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"16", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Rational", "[", RowBox[{"17", ",", " ", "9"}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "5"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "3"}], ",", " ", "4"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "7"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "4"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "3"}], ",", " ", "8"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "2"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", RowBox[{"Rational", "[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "8"}], "]"}]}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "2"}], "]"}]], "Input", CellID->684258960], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "11", ",", " ", "12", ",", " ", "13", ",", " ", "14", ",", " ", "15", ",", " ", "16", ",", " ", "17", ",", " ", "18"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"18", ",", " ", "18"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "3", ",", " ", "6", ",", " ", "9", ",", " ", "12", ",", " ", "15", ",", " ", "18", ",", " ", "21", ",", " ", "24", ",", " ", "27", ",", " ", "30", ",", " ", "33", ",", " ", "36", ",", " ", "39", ",", " ", "42", ",", " ", "45", ",", " ", "48", ",", " ", "51", ",", " ", "54"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "17", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", " ", "1.4667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.2333", ",", " ", "0.7333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.4667", ",", " ", "0.7333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.6", ",", " ", "0.8667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.6333", ",", " ", "1.1333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.7", ",", " ", "0.4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.8667", ",", " ", "0.6667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.6333", ",", " ", "0.1667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.0333", ",", " ", "0.7333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.1667", ",", " ", "0.6333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.4", ",", " ", "0.1667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.3333", ",", " ", "0.4333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.1667", ",", " ", "1.0667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.5", ",", " ", "0.7333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.4333", ",", " ", "0.9667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.8333", ",", " ", "0.7333"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.5667", ",", " ", "1.4667"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.0333", ",", " ", "1.7667"}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "3"}], "]"}]], "Input", CellID->534394820], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "11", ",", " ", "12", ",", " ", "13", ",", " ", "14", ",", " ", "15", ",", " ", "16", ",", " ", "17", ",", " ", "18", ",", " ", "19", ",", " ", "20", ",", " ", "21", ",", " ", "22", ",", " ", "23", ",", " ", "24", ",", " ", "25", ",", " ", "26", ",", " ", "27", ",", " ", "28", ",", " ", "29", ",", " ", "30"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"30", ",", " ", "30"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "4", ",", " ", "8", ",", " ", "12", ",", " ", "16", ",", " ", "20", ",", " ", "24", ",", " ", "28", ",", " ", "32", ",", " ", "36", ",", " ", "40", ",", " ", "44", ",", " ", "48", ",", " ", "52", ",", " ", "56", ",", " ", "60", ",", " ", "64", ",", " ", "68", ",", " ", "72", ",", " ", "76", ",", " ", "80", ",", " ", "84", ",", " ", "88", ",", " ", "92", ",", " ", "96", ",", " ", "100", ",", " ", "104", ",", " ", "108", ",", " ", "112", ",", " ", "116", ",", " ", "120"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.20791169081776012"}], ",", " ", "0.9781476007338058"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7431448254773939"}], ",", " ", RowBox[{"-", "0.6691306063588576"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9510565162951536", ",", " ", RowBox[{"-", "0.3090169943749485"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.40673664307579926", ",", " ", "0.9135454576426005"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9945218953682733"}], ",", " ", RowBox[{"-", "0.10452846326765261"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5877852522924735", ",", " ", RowBox[{"-", "0.8090169943749481"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.8660254037844384", ",", " ", "0.4999999999999993"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.866025403784439"}], ",", " ", "0.5000000000000008"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4.692636237225556*^-10", ",", " ", RowBox[{"-", "1."}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9945218953682734", ",", " ", RowBox[{"-", "0.1045284632676543"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.406736643075801"}], ",", " ", "0.9135454576426011"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877852522924728"}], ",", " ", RowBox[{"-", "0.8090169943749468"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.7431448254773947", ",", " ", RowBox[{"-", "0.6691306063588588"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.20791169081775893", ",", " ", "0.9781476007338054"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951534"}], ",", " ", RowBox[{"-", "0.30901699437494645"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.20791169081775998", ",", " ", RowBox[{"-", "0.9781476007338058"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.7431448254773942", ",", " ", "0.6691306063588571"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951538"}], ",", " ", "0.3090169943749484"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4067366430757996"}], ",", " ", RowBox[{"-", "0.9135454576426005"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9945218953682733", ",", " ", "0.10452846326765204"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877852522924737"}], ",", " ", "0.8090169943749478"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8660254037844383"}], ",", " ", RowBox[{"-", "0.4999999999999994"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.8660254037844389", ",", " ", RowBox[{"-", "0.5000000000000012"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.00005947935188028423", ",", " ", "1."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9945218953682734"}], ",", " ", "0.10452846326765418"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.40673664307580065", ",", " ", RowBox[{"-", "0.9135454576426014"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5877852522924732", ",", " ", "0.8090169943749468"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7431448254773948"}], ",", " ", "0.6691306063588587"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.20791169081775882"}], ",", " ", RowBox[{"-", "0.9781476007338054"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9510565162951535", ",", " ", "0.30901699437494634"}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "3"}], "]"}]], "Input", CellID->202039220], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"36", ",", " ", "36"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "15", ",", " ", "30", ",", " ", "45", ",", " ", "60", ",", " ", "75", ",", " ", "90", ",", " ", "105", ",", " ", "122", ",", " ", "139", ",", " ", "156", ",", " ", "173", ",", " ", "188", ",", " ", "203", ",", " ", "220", ",", " ", "239", ",", " ", "258", ",", " ", "275", ",", " ", "290", ",", " ", "305", ",", " ", "322", ",", " ", "341", ",", " ", "360", ",", " ", "377", ",", " ", "392", ",", " ", "407", ",", " ", "424", ",", " ", "441", ",", " ", "458", ",", " ", "475", ",", " ", "490", ",", " ", "505", ",", " ", "520", ",", " ", "535", ",", " ", "550", ",", " ", "565", ",", " ", "580"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "25", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "26", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "27", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "35", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "21", "}"}], ",", " ", RowBox[{"{", "23", "}"}], ",", " ", RowBox[{"{", "28", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "36", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "22", "}"}], ",", " ", RowBox[{"{", "24", "}"}], ",", " ", RowBox[{"{", "29", "}"}], ",", " ", RowBox[{"{", "30", "}"}], ",", " ", RowBox[{"{", "31", "}"}], ",", " ", RowBox[{"{", "32", "}"}], ",", " ", RowBox[{"{", "33", "}"}], ",", " ", RowBox[{"{", "34", "}"}], ",", " ", RowBox[{"{", "35", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], "}"}]}], "]"}], "]"}], ",", " ", "7"}], "]"}]], "Input", CellID->228984385], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"10", ",", " ", "10"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "5", ",", " ", "10", ",", " ", "15", ",", " ", "20", ",", " ", "25", ",", " ", "30", ",", " ", "35", ",", " ", "40", ",", " ", "45", ",", " ", "50"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.809"}], ",", " ", "0.5878"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.809", ",", " ", RowBox[{"-", "0.5878"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.309"}], ",", " ", "0.9511"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.", ",", " ", "0."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", " ", "0."}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.309", ",", " ", RowBox[{"-", "0.9511"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.309", ",", " ", "0.9511"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.809"}], ",", " ", RowBox[{"-", "0.5878"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.809", ",", " ", "0.5878"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.309"}], ",", " ", RowBox[{"-", "0.9511"}]}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "4"}], "]"}]], "Input", CellID->885238049], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "11", ",", " ", "12", ",", " ", "13", ",", " ", "14", ",", " ", "15", ",", " ", "16", ",", " ", "17", ",", " ", "18", ",", " ", "19", ",", " ", "20"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"20", ",", " ", "20"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "5", ",", " ", "10", ",", " ", "15", ",", " ", "20", ",", " ", "25", ",", " ", "30", ",", " ", "35", ",", " ", "40", ",", " ", "45", ",", " ", "50", ",", " ", "55", ",", " ", "60", ",", " ", "65", ",", " ", "70", ",", " ", "75", ",", " ", "80", ",", " ", "85", ",", " ", "90", ",", " ", "95", ",", " ", "100"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "10", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.9510565162951535", ",", " ", "0.3090169943749474"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9510565162951535", ",", " ", RowBox[{"-", "0.3090169943749476"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5877852522924729", ",", " ", RowBox[{"-", "0.8090169943749476"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1."}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877852522924732"}], ",", " ", RowBox[{"-", "0.8090169943749473"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951536"}], ",", " ", RowBox[{"-", "0.3090169943749473"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951535"}], ",", " ", "0.3090169943749475"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.587785252292473"}], ",", " ", "0.8090169943749475"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1."}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5877852522924732", ",", " ", "0.8090169943749473"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8090169943749475"}], ",", " ", RowBox[{"-", "0.587785252292473"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8090169943749473"}], ",", " ", "0.5877852522924732"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.30901699437494734"}], ",", " ", "0.9510565162951536"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.30901699437494745", ",", " ", "0.9510565162951535"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.8090169943749475", ",", " ", "0.5877852522924731"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.8090169943749473", ",", " ", RowBox[{"-", "0.5877852522924732"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.30901699437494723", ",", " ", RowBox[{"-", "0.9510565162951536"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.30901699437494756"}], ",", " ", RowBox[{"-", "0.9510565162951535"}]}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "2"}], "]"}]], "Input", CellID->767617438], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"10", ",", " ", "10"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "9", ",", " ", "18", ",", " ", "27", ",", " ", "36", ",", " ", "45", ",", " ", "54", ",", " ", "63", ",", " ", "72", ",", " ", "81", ",", " ", "90"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.309"}], ",", " ", RowBox[{"-", "0.951"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.309", ",", " ", RowBox[{"-", "0.951"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.809", ",", " ", RowBox[{"-", "0.588"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.", ",", " ", "0."}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.809", ",", " ", "0.588"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.309", ",", " ", "0.951"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.309"}], ",", " ", "0.951"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.809"}], ",", " ", "0.588"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", " ", "0."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.809"}], ",", " ", RowBox[{"-", "0.588"}]}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "10"}], "]"}]], "Input", CellID->365065391], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"ChromaticNumber", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10", ",", " ", "11", ",", " ", "12", ",", " ", "13", ",", " ", "14", ",", " ", "15", ",", " ", "16", ",", " ", "17", ",", " ", "18", ",", " ", "19", ",", " ", "20"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Null", ",", " ", RowBox[{"SparseArray", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"20", ",", " ", "20"}], "}"}], ",", " ", "0", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "8", ",", " ", "16", ",", " ", "24", ",", " ", "32", ",", " ", "40", ",", " ", "48", ",", " ", "56", ",", " ", "64", ",", " ", "72", ",", " ", "80", ",", " ", "88", ",", " ", "96", ",", " ", "104", ",", " ", "112", ",", " ", "120", ",", " ", "128", ",", " ", "136", ",", " ", "144", ",", " ", "152", ",", " ", "160"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "1", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "4", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "6", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "8", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "7", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "11", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "19", "}"}], ",", " ", RowBox[{"{", "9", "}"}], ",", " ", RowBox[{"{", "10", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "2", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "17", "}"}], ",", " ", RowBox[{"{", "20", "}"}], ",", " ", RowBox[{"{", "3", "}"}], ",", " ", RowBox[{"{", "12", "}"}], ",", " ", RowBox[{"{", "13", "}"}], ",", " ", RowBox[{"{", "14", "}"}], ",", " ", RowBox[{"{", "15", "}"}], ",", " ", RowBox[{"{", "16", "}"}], ",", " ", RowBox[{"{", "18", "}"}], ",", " ", RowBox[{"{", "19", "}"}]}], "}"}]}], "}"}], ",", " ", "Pattern"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"FormatType", " ", "->", " ", "TraditionalForm"}], ",", " ", RowBox[{"VertexCoordinates", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3090169943749481"}], ",", " ", "0.9510565162951538"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5877852522924737", ",", " ", RowBox[{"-", "0.8090169943749481"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9510565162951539", ",", " ", RowBox[{"-", "0.30901699437494845"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877852522924737"}], ",", " ", "0.809016994374948"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.309016994374948", ",", " ", RowBox[{"-", "0.9510565162951539"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.8090169943749479", ",", " ", RowBox[{"-", "0.587785252292474"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951538"}], ",", " ", "0.30901699437494834"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1.", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8090169943749479"}], ",", " ", "0.5877852522924739"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.809016994374947", ",", " ", "0.5877852522924722"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1."}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.30901699437494673", ",", " ", "0.9510565162951532"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.9510565162951533", ",", " ", "0.30901699437494634"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5877852522924726", ",", " ", "0.8090169943749468"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951534"}], ",", " ", RowBox[{"-", "0.30901699437494645"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.30901699437494684"}], ",", " ", RowBox[{"-", "0.9510565162951532"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.809016994374947"}], ",", " ", RowBox[{"-", "0.5877852522924722"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877852522924727"}], ",", " ", RowBox[{"-", "0.8090169943749468"}]}], "}"}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], ",", " ", "6"}], "]"}]], "Input", CellID->843120863] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function 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->695575686], 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["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function 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->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "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->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function 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->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function 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->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["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->"ChromaticNumber | 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.870436464699191`16.34033493183315*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.870436464740418`16.34033493183778*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], 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.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 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.044444]], 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.044444]], 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.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], 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.66667], 0], Thickness[ NCache[2/45, 0.044444]], 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.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], 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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], 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.99412, 0.7098, 0.60196]], "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 function 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 function 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.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { 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.95686, 0.80196, 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/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], 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.055556], 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:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, 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.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, 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 -> True], 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 -> True], 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.88072, 0.61104, 0.14205], 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.36842, 0.50678, 0.7098], 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.56018, 0.69157, 0.19488], 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`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 = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], 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`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 = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"97338554-5efe-439e-871d-43911336dcae", CellTags->{"Name", "TemplateCell", "Title"}, CellID->905669356]}, "TemplateCell"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"97338554-5efe-439e-871d-43911336dcae", CellTags->{"Name", "TemplateCell", "Title"}, CellID->905669356], Cell[732, 27, 126, 2, 70, "Text",ExpressionUUID->"140cb4bd-3973-469c-9ec6-7f1167e9ed2e", CellTags->{"Description", "TemplateCell"}, CellID->908069296]}, "Title"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"97338554-5efe-439e-871d-43911336dcae", CellTags->{"Name", "TemplateCell", "Title"}, CellID->905669356]}, "Description"->{ Cell[732, 27, 126, 2, 70, "Text",ExpressionUUID->"140cb4bd-3973-469c-9ec6-7f1167e9ed2e", CellTags->{"Description", "TemplateCell"}, CellID->908069296]}, "Definition"->{ Cell[883, 33, 1206, 29, 70, "Section",ExpressionUUID->"05e038a3-2d78-4455-8192-5f635790722b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[883, 33, 1206, 29, 70, "Section",ExpressionUUID->"05e038a3-2d78-4455-8192-5f635790722b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[883, 33, 1206, 29, 70, "Section",ExpressionUUID->"05e038a3-2d78-4455-8192-5f635790722b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[11286, 284, 1980, 50, 70, "Subsection",ExpressionUUID->"30a25cf7-95e0-4797-8f93-54f0a65c6fe2", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[13869, 364, 1429, 32, 70, "Subsection",ExpressionUUID->"63c5b8cc-da3a-4263-a07e-c41b06a572c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[16641, 440, 7025, 152, 70, "Section",ExpressionUUID->"8fec2ae5-5f14-466f-b7a5-dde519a5b03d", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[149412, 2920, 1026, 26, 70, "Subsection",ExpressionUUID->"38bc0196-1090-4843-97a8-5235738983a8", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[150557, 2954, 996, 26, 70, "Subsection",ExpressionUUID->"4e72fb37-6640-4fe5-bb38-fabcdccd9f2b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[151750, 2994, 221, 6, 70, "Subsection",ExpressionUUID->"186b1c21-4bad-4eda-a66f-95c0e8832eb0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[160373, 3260, 980, 26, 70, "Subsection",ExpressionUUID->"52a200bb-4944-4ac3-b629-575cdd2b6aec", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[161448, 3294, 1039, 26, 70, "Subsection",ExpressionUUID->"bb508cb8-de8d-4da0-b9a4-2dedd6bbbd94", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[163055, 3335, 1084, 26, 70, "Subsection",ExpressionUUID->"5e374354-0d05-48e6-9802-c8fde94225ff", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[164243, 3369, 923, 26, 70, "Subsection",ExpressionUUID->"68d4e291-451d-4307-92ab-77599997bef6", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[165486, 3407, 1874, 45, 70, "Subsection",ExpressionUUID->"0e822daf-ca32-4f25-b6f8-559c3703a1db", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[265604, 5496, 955, 25, 70, "Subsection",ExpressionUUID->"1277c6a9-af7d-417c-aeef-36b3c053a2bf", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[266584, 5525, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8c96dfdb-3ba9-448f-a775-d8a0de7c8f0c", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[267887, 5565, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4d55a271-bd85-44eb-bfc6-189269d45664", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[271138, 5663, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d5171561-687a-4efc-a1b2-8fe2867406ad", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[274607, 5766, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b0aec8cd-8121-48f7-ad30-ce9238c3ef02", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[280551, 5936, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c9e31628-3e86-44ab-aa0f-b970710d9dfd", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[282904, 6008, 1155, 28, 70, "Section",ExpressionUUID->"ea6420ca-49be-4db7-9103-87f3ac987a6b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[284628, 6051, 1033, 26, 70, "Section",ExpressionUUID->"a9fee84d-ace9-4c5b-b9e4-17bd8003dd47", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[11066, 275, 195, 5, 70, "Section",ExpressionUUID->"54dd13d6-c975-48da-bd37-6ad93dbf8de7", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[11066, 275, 195, 5, 70, "Section",ExpressionUUID->"54dd13d6-c975-48da-bd37-6ad93dbf8de7", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[149138, 2911, 249, 5, 70, "Section",ExpressionUUID->"1e3925d2-9450-4aab-9339-e10497c79a16", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[11286, 284, 1980, 50, 70, "Subsection",ExpressionUUID->"30a25cf7-95e0-4797-8f93-54f0a65c6fe2", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[13869, 364, 1429, 32, 70, "Subsection",ExpressionUUID->"63c5b8cc-da3a-4263-a07e-c41b06a572c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[13869, 364, 1429, 32, 70, "Subsection",ExpressionUUID->"63c5b8cc-da3a-4263-a07e-c41b06a572c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[15561, 406, 435, 11, 70, "Notes",ExpressionUUID->"5369e89b-4977-4d28-a974-2a11bca3a101", CellTags->"TabNext", CellID->578947237], Cell[162490, 3322, 528, 8, 70, "Item",ExpressionUUID->"fec51982-7382-4f1b-97bf-2f62c183237f", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[284062, 6038, 529, 8, 70, "Text",ExpressionUUID->"020a60bc-7ce1-497e-8f32-40d2e6580781", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[285664, 6079, 515, 8, 70, "Text",ExpressionUUID->"e4281e39-40e7-4ad7-8b80-bb3e9b34f965", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[16641, 440, 7025, 152, 70, "Section",ExpressionUUID->"8fec2ae5-5f14-466f-b7a5-dde519a5b03d", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[149138, 2911, 249, 5, 70, "Section",ExpressionUUID->"1e3925d2-9450-4aab-9339-e10497c79a16", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[149412, 2920, 1026, 26, 70, "Subsection",ExpressionUUID->"38bc0196-1090-4843-97a8-5235738983a8", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[149412, 2920, 1026, 26, 70, "Subsection",ExpressionUUID->"38bc0196-1090-4843-97a8-5235738983a8", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[150557, 2954, 996, 26, 70, "Subsection",ExpressionUUID->"4e72fb37-6640-4fe5-bb38-fabcdccd9f2b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[151750, 2994, 221, 6, 70, "Subsection",ExpressionUUID->"186b1c21-4bad-4eda-a66f-95c0e8832eb0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[151974, 3002, 8362, 253, 70, "Output",ExpressionUUID->"239680e3-508b-46ae-aa84-4878d687caba", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->489732007]}, "Categories-Checkboxes"->{ Cell[151974, 3002, 8362, 253, 70, "Output",ExpressionUUID->"239680e3-508b-46ae-aa84-4878d687caba", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->489732007]}, "CheckboxCell"->{ Cell[151974, 3002, 8362, 253, 70, "Output",ExpressionUUID->"239680e3-508b-46ae-aa84-4878d687caba", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->489732007], Cell[269003, 5596, 2098, 62, 70, "Output",ExpressionUUID->"184f1bb0-e0c3-4466-bf1d-5cac010aae5d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[272421, 5698, 2149, 63, 70, "Output",ExpressionUUID->"0cfaba76-ae07-43bc-a135-15c035719362", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[276523, 5814, 3991, 117, 70, "Output",ExpressionUUID->"a683d067-3f7d-4365-b7e8-a2b1f8cfc7b7", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[281625, 5965, 1218, 36, 70, "Output",ExpressionUUID->"32172c41-a3e9-418d-a893-276b966201fe", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[160373, 3260, 980, 26, 70, "Subsection",ExpressionUUID->"52a200bb-4944-4ac3-b629-575cdd2b6aec", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[161448, 3294, 1039, 26, 70, "Subsection",ExpressionUUID->"bb508cb8-de8d-4da0-b9a4-2dedd6bbbd94", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "DefaultContent"->{ Cell[162490, 3322, 528, 8, 70, "Item",ExpressionUUID->"fec51982-7382-4f1b-97bf-2f62c183237f", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[267761, 5558, 89, 2, 70, "Text",ExpressionUUID->"da3963d9-e5c4-4abd-b51d-c23c918774cb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[284062, 6038, 529, 8, 70, "Text",ExpressionUUID->"020a60bc-7ce1-497e-8f32-40d2e6580781", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[285664, 6079, 515, 8, 70, "Text",ExpressionUUID->"e4281e39-40e7-4ad7-8b80-bb3e9b34f965", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source/Reference Citation"->{ Cell[163055, 3335, 1084, 26, 70, "Subsection",ExpressionUUID->"5e374354-0d05-48e6-9802-c8fde94225ff", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[164243, 3369, 923, 26, 70, "Subsection",ExpressionUUID->"68d4e291-451d-4307-92ab-77599997bef6", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[165486, 3407, 1874, 45, 70, "Subsection",ExpressionUUID->"0e822daf-ca32-4f25-b6f8-559c3703a1db", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[165486, 3407, 1874, 45, 70, "Subsection",ExpressionUUID->"0e822daf-ca32-4f25-b6f8-559c3703a1db", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[265604, 5496, 955, 25, 70, "Subsection",ExpressionUUID->"1277c6a9-af7d-417c-aeef-36b3c053a2bf", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[266584, 5525, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8c96dfdb-3ba9-448f-a775-d8a0de7c8f0c", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[266584, 5525, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8c96dfdb-3ba9-448f-a775-d8a0de7c8f0c", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[267761, 5558, 89, 2, 70, "Text",ExpressionUUID->"da3963d9-e5c4-4abd-b51d-c23c918774cb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[267887, 5565, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4d55a271-bd85-44eb-bfc6-189269d45664", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[269003, 5596, 2098, 62, 70, "Output",ExpressionUUID->"184f1bb0-e0c3-4466-bf1d-5cac010aae5d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[267887, 5565, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4d55a271-bd85-44eb-bfc6-189269d45664", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[269003, 5596, 2098, 62, 70, "Output",ExpressionUUID->"184f1bb0-e0c3-4466-bf1d-5cac010aae5d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[271138, 5663, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d5171561-687a-4efc-a1b2-8fe2867406ad", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[272421, 5698, 2149, 63, 70, "Output",ExpressionUUID->"0cfaba76-ae07-43bc-a135-15c035719362", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[271138, 5663, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d5171561-687a-4efc-a1b2-8fe2867406ad", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[272421, 5698, 2149, 63, 70, "Output",ExpressionUUID->"0cfaba76-ae07-43bc-a135-15c035719362", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[274607, 5766, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b0aec8cd-8121-48f7-ad30-ce9238c3ef02", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[276523, 5814, 3991, 117, 70, "Output",ExpressionUUID->"a683d067-3f7d-4365-b7e8-a2b1f8cfc7b7", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[274607, 5766, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b0aec8cd-8121-48f7-ad30-ce9238c3ef02", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[276523, 5814, 3991, 117, 70, "Output",ExpressionUUID->"a683d067-3f7d-4365-b7e8-a2b1f8cfc7b7", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[280551, 5936, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c9e31628-3e86-44ab-aa0f-b970710d9dfd", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[280551, 5936, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c9e31628-3e86-44ab-aa0f-b970710d9dfd", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[281625, 5965, 1218, 36, 70, "Output",ExpressionUUID->"32172c41-a3e9-418d-a893-276b966201fe", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[281625, 5965, 1218, 36, 70, "Output",ExpressionUUID->"32172c41-a3e9-418d-a893-276b966201fe", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[282904, 6008, 1155, 28, 70, "Section",ExpressionUUID->"ea6420ca-49be-4db7-9103-87f3ac987a6b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[284628, 6051, 1033, 26, 70, "Section",ExpressionUUID->"a9fee84d-ace9-4c5b-b9e4-17bd8003dd47", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 410967, 8441}, {"TemplateCell", 411149, 8445}, {"Title", 411484, 8452}, {"Description", 411665, 8456}, {"Definition", 411843, 8460}, {"Function", 412039, 8464}, {"TemplateCellGroup", 412244, 8468}, {"Documentation", 416098, 8529}, {"TemplateSection", 416292, 8533}, {"Usage", 416667, 8540}, {"Details & Options", 416862, 8544}, {"Notes", 417066, 8548}, {"TabNext", 417272, 8552}, {"Examples", 417920, 8565}, {"Source & Additional Information", 418130, 8569}, {"Contributed By", 418343, 8573}, {"ContributorInformation", 418579, 8577}, {"Keywords", 418801, 8581}, {"Categories", 418993, 8585}, {"Categories-Checkboxes", 419391, 8592}, {"CheckboxCell", 419605, 8596}, {"Related Symbols", 420731, 8612}, {"Related Resource Objects", 420944, 8616}, {"DefaultContent", 421157, 8620}, {"Source/Reference Citation", 421847, 8633}, {"Links", 422052, 8637}, {"Tests", 422236, 8641}, {"VerificationTests", 422454, 8645}, {"Compatibility", 422668, 8649}, {"CompatibilityWolframLanguageVersionRequired", 422898, 8653}, {"Wolfram Language Version", 423171, 8657}, {"ScrapeDefault", 423433, 8661}, {"CompatibilityOperatingSystem", 423637, 8665}, {"Operating System", 424108, 8672}, {"CompatibilityOperatingSystem-Checkboxes", 424373, 8676}, {"CompatibilityFeatures", 424631, 8680}, {"Required Features", 425083, 8687}, {"CompatibilityFeatures-Checkboxes", 425335, 8691}, {"CompatibilityEvaluationEnvironment", 425592, 8695}, {"Environments", 426074, 8702}, {"CompatibilityEvaluationEnvironment-Checkboxes", 426347, 8706}, {"Cloud Support", 426610, 8710}, {"CompatibilityCloudSupport", 426855, 8714}, {"CompatibilityCloudSupport-Checkboxes", 427334, 8721}, {"Author Notes", 427577, 8725}, {"Submission Notes", 427777, 8729} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"97338554-5efe-439e-871d-43911336dcae", CellTags->{"Name", "TemplateCell", "Title"}, CellID->905669356], Cell[732, 27, 126, 2, 70, "Text",ExpressionUUID->"140cb4bd-3973-469c-9ec6-7f1167e9ed2e", CellTags->{"Description", "TemplateCell"}, CellID->908069296], Cell[CellGroupData[{ Cell[883, 33, 1206, 29, 70, "Section",ExpressionUUID->"05e038a3-2d78-4455-8192-5f635790722b", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2092, 64, 8937, 206, 70, "Input",ExpressionUUID->"d746e09a-6f92-47ea-bd8e-7ed2984f7ca6", InitializationCell->True, CellID->656371987] }, Open ]], Cell[CellGroupData[{ Cell[11066, 275, 195, 5, 70, "Section",ExpressionUUID->"54dd13d6-c975-48da-bd37-6ad93dbf8de7", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[11286, 284, 1980, 50, 70, "Subsection",ExpressionUUID->"30a25cf7-95e0-4797-8f93-54f0a65c6fe2", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[13291, 338, 145, 4, 70, "UsageInputs",ExpressionUUID->"a781011e-8fe5-4f20-a9e3-1343d0c1a7c5", CellID->961993820], Cell[13439, 344, 381, 14, 70, "UsageDescription",ExpressionUUID->"432aff1b-97b6-4b93-a957-8c4f099efb60", CellID->770901027] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13869, 364, 1429, 32, 70, "Subsection",ExpressionUUID->"63c5b8cc-da3a-4263-a07e-c41b06a572c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[15301, 398, 257, 6, 70, "Notes",ExpressionUUID->"66a31041-bf1e-4edb-ba30-434e29068e0a", CellID->886816873], Cell[15561, 406, 435, 11, 70, "Notes",ExpressionUUID->"5369e89b-4977-4d28-a974-2a11bca3a101", CellTags->"TabNext", CellID->578947237], Cell[15999, 419, 593, 15, 70, "Notes",ExpressionUUID->"87a4408c-3181-4b4f-8f33-77e7e816e36b", CellID->920239501] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16641, 440, 7025, 152, 70, "Section",ExpressionUUID->"8fec2ae5-5f14-466f-b7a5-dde519a5b03d", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[23691, 596, 75, 2, 70, "Subsection",ExpressionUUID->"7bac1982-219c-42e5-bc67-7645194103e0", CellID->904125756], Cell[23769, 600, 98, 2, 70, "Text",ExpressionUUID->"49e30f14-2edb-44ba-9bda-6032bfa91d93", CellID->255090658], Cell[CellGroupData[{ Cell[23892, 606, 167, 5, 70, "Input",ExpressionUUID->"df7fb746-084e-4eee-86a6-6ba167e206d3", CellID->841816279], Cell[24062, 613, 92, 3, 70, "Output",ExpressionUUID->"7034e8b9-689d-4f08-8985-d05dcb34814b", CellID->621297439] }, Open ]], Cell[CellGroupData[{ Cell[24191, 621, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"44da2953-6e6b-43d0-9d63-31f63db93114", CellID->14107562], Cell[24337, 627, 91, 2, 70, "Text",ExpressionUUID->"84d1644f-fe02-4d5c-933d-785670301126", CellID->238556339], Cell[CellGroupData[{ Cell[24453, 633, 14684, 255, 70, "Input",ExpressionUUID->"4f177551-81fd-4c3a-8fd5-dcff61e9903c", CellID->813661189], Cell[39140, 890, 146, 5, 70, "Output",ExpressionUUID->"e70ea87b-84ab-4f48-9391-0857712516dd", CellID->684232025] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39335, 901, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d3c1f9bb-82aa-4f84-bb21-276fd5b892f3", CellID->14107563], Cell[39481, 907, 108, 2, 70, "Text",ExpressionUUID->"30ae01fc-e724-4ea8-9880-3120f0f69e42", CellID->760958534], Cell[CellGroupData[{ Cell[39614, 913, 405, 13, 70, "Input",ExpressionUUID->"989627c1-9a9f-4a3c-bbca-1800532c143a", CellID->183608193], Cell[40022, 928, 225, 7, 70, "Output",ExpressionUUID->"eb175ea4-d7be-47b8-a8e4-087cdfd3029b", CellID->579080950] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40308, 942, 66, 2, 70, "Subsection",ExpressionUUID->"70fc10c9-f98f-46d2-96ee-f0487fea9679", CellID->204653245], Cell[40377, 946, 95, 2, 70, "Text",ExpressionUUID->"00abd690-9845-4bde-9fed-68cd8bcbcaf5", CellID->378795837], Cell[CellGroupData[{ Cell[40497, 952, 278, 9, 70, "Input",ExpressionUUID->"ca1ad666-1149-4b25-9f25-4853f37f3ce5", CellID->180358545], Cell[40778, 963, 10999, 187, 70, "Output",ExpressionUUID->"a79eed39-6d86-48f7-b0b5-5dc60928fb56", CellID->495027337] }, Open ]], Cell[CellGroupData[{ Cell[51814, 1155, 134, 4, 70, "Input",ExpressionUUID->"6bf65034-bdf6-4a4d-87fb-f4f0302a2184", CellID->432656013], Cell[51951, 1161, 136, 5, 70, "Output",ExpressionUUID->"00d57487-24cb-43af-91eb-b7b737624f9f", CellID->28343062] }, Open ]], Cell[52102, 1169, 104, 2, 70, "Text",ExpressionUUID->"b0ec4e0a-690b-4961-b2a2-da38f9142d3d", CellID->580479948], Cell[CellGroupData[{ Cell[52231, 1175, 425, 13, 70, "Input",ExpressionUUID->"19331bfd-4d67-4ad4-b201-fd3c3a40e686", CellID->668578218], Cell[52659, 1190, 82309, 1356, 70, "Output",ExpressionUUID->"e1ec149d-c45a-4bc3-9ada-4aa06773ef9c", CellID->382530249] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[135017, 2552, 73, 2, 70, "Subsection",ExpressionUUID->"433b5dda-fe4e-40e4-bc88-7629d295fac1", CellID->605265931], Cell[135093, 2556, 552, 16, 70, "Text",ExpressionUUID->"1ebd1b58-6d21-4e9b-b11c-efb5b45529d5", CellID->147729893], Cell[CellGroupData[{ Cell[135670, 2576, 3906, 79, 70, "Input",ExpressionUUID->"06218cdb-953e-4f6c-a830-bf6f3356ce09", CellID->400923033], Cell[139579, 2657, 145, 5, 70, "Output",ExpressionUUID->"c563dfba-1496-4c4e-a5ba-64f34b52fb53", CellID->190361114] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[139773, 2668, 76, 2, 70, "Subsection",ExpressionUUID->"007e4e3e-ed31-4230-a116-83e62da4a757", CellID->158766396], Cell[139852, 2672, 726, 22, 70, "Text",ExpressionUUID->"140025ae-e14e-4422-81ad-014693f9b57b", CellID->732171609], Cell[CellGroupData[{ Cell[140603, 2698, 199, 6, 70, "Input",ExpressionUUID->"9a5ffe0e-0c55-4234-a03a-c2df25492edf", CellID->892714403], Cell[140805, 2706, 8272, 198, 70, "Output",ExpressionUUID->"9f3bdd79-8c39-44e6-a55c-fab0ffc33b81", CellID->565268717] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[149138, 2911, 249, 5, 70, "Section",ExpressionUUID->"1e3925d2-9450-4aab-9339-e10497c79a16", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[149412, 2920, 1026, 26, 70, "Subsection",ExpressionUUID->"38bc0196-1090-4843-97a8-5235738983a8", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[150441, 2948, 79, 1, 70, "Text",ExpressionUUID->"b5472215-a6ff-42fa-92e5-be12693f00a9", CellID->454962937] }, Open ]], Cell[CellGroupData[{ Cell[150557, 2954, 996, 26, 70, "Subsection",ExpressionUUID->"4e72fb37-6640-4fe5-bb38-fabcdccd9f2b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[151556, 2982, 48, 1, 70, "Item",ExpressionUUID->"35a81d24-05e5-4fee-9bb3-d284930ae3d1", CellID->879801183], Cell[151607, 2985, 52, 1, 70, "Item",ExpressionUUID->"e0b92cc3-422a-4424-96b4-81dc43f53d30", CellID->380857092], Cell[151662, 2988, 51, 1, 70, "Item",ExpressionUUID->"c1e2a87f-c84e-4e57-89d0-9b3a58a2aa47", CellID->497673063] }, Open ]], Cell[CellGroupData[{ Cell[151750, 2994, 221, 6, 70, "Subsection",ExpressionUUID->"186b1c21-4bad-4eda-a66f-95c0e8832eb0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[151974, 3002, 8362, 253, 70, "Output",ExpressionUUID->"239680e3-508b-46ae-aa84-4878d687caba", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->489732007] }, Open ]], Cell[CellGroupData[{ Cell[160373, 3260, 980, 26, 70, "Subsection",ExpressionUUID->"52a200bb-4944-4ac3-b629-575cdd2b6aec", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[161356, 3288, 55, 1, 70, "Item",ExpressionUUID->"baf6e21d-6e3f-49cb-9668-ac8fb498e8ae", CellID->691725988] }, Open ]], Cell[CellGroupData[{ Cell[161448, 3294, 1039, 26, 70, "Subsection",ExpressionUUID->"bb508cb8-de8d-4da0-b9a4-2dedd6bbbd94", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[162490, 3322, 528, 8, 70, "Item",ExpressionUUID->"fec51982-7382-4f1b-97bf-2f62c183237f", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[163055, 3335, 1084, 26, 70, "Subsection",ExpressionUUID->"5e374354-0d05-48e6-9802-c8fde94225ff", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[164142, 3363, 64, 1, 70, "Text",ExpressionUUID->"cc59cfde-afa9-4c47-a921-e9d8b250e213", CellID->989555383] }, Open ]], Cell[CellGroupData[{ Cell[164243, 3369, 923, 26, 70, "Subsection",ExpressionUUID->"68d4e291-451d-4307-92ab-77599997bef6", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[165169, 3397, 280, 5, 70, "Item",ExpressionUUID->"fb3fa2f4-f668-4f15-bc22-589fa962c5e3", CellID->997609737] }, Open ]], Cell[CellGroupData[{ Cell[165486, 3407, 1874, 45, 70, "Subsection",ExpressionUUID->"0e822daf-ca32-4f25-b6f8-559c3703a1db", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[167363, 3454, 10348, 250, 70, "Input",ExpressionUUID->"fed9a9d7-7bd8-4e4d-ac29-c962672b0c51", CellID->684258960], Cell[177714, 3706, 6256, 131, 70, "Input",ExpressionUUID->"8a48b98d-44d4-4422-8013-f3e40bdc09ca", CellID->534394820], Cell[183973, 3839, 13109, 270, 70, "Input",ExpressionUUID->"2f638c2f-2357-4b7a-8cf6-47b0d2312703", CellID->202039220], Cell[197085, 4111, 32936, 626, 70, "Input",ExpressionUUID->"7ba51231-316a-423e-919d-2b750870e344", CellID->228984385], Cell[230024, 4739, 5214, 116, 70, "Input",ExpressionUUID->"bd769bca-190b-49b1-996a-0d640e767448", CellID->885238049], Cell[235241, 4857, 9935, 207, 70, "Input",ExpressionUUID->"3f1aa6bc-1680-41d9-9034-0846074b0e04", CellID->767617438], Cell[245179, 5066, 7291, 156, 70, "Input",ExpressionUUID->"edfae466-5ebd-440f-b429-9de16c73dec9", CellID->365065391], Cell[252473, 5224, 13094, 267, 70, "Input",ExpressionUUID->"af23a15e-c583-49ac-8327-a9b04c1dd079", CellID->843120863] }, Open ]], Cell[CellGroupData[{ Cell[265604, 5496, 955, 25, 70, "Subsection",ExpressionUUID->"1277c6a9-af7d-417c-aeef-36b3c053a2bf", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[266584, 5525, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8c96dfdb-3ba9-448f-a775-d8a0de7c8f0c", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[267761, 5558, 89, 2, 70, "Text",ExpressionUUID->"da3963d9-e5c4-4abd-b51d-c23c918774cb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[267887, 5565, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4d55a271-bd85-44eb-bfc6-189269d45664", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[269003, 5596, 2098, 62, 70, "Output",ExpressionUUID->"184f1bb0-e0c3-4466-bf1d-5cac010aae5d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[271138, 5663, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d5171561-687a-4efc-a1b2-8fe2867406ad", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[272421, 5698, 2149, 63, 70, "Output",ExpressionUUID->"0cfaba76-ae07-43bc-a135-15c035719362", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[274607, 5766, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b0aec8cd-8121-48f7-ad30-ce9238c3ef02", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[276523, 5814, 3991, 117, 70, "Output",ExpressionUUID->"a683d067-3f7d-4365-b7e8-a2b1f8cfc7b7", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[280551, 5936, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c9e31628-3e86-44ab-aa0f-b970710d9dfd", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[281625, 5965, 1218, 36, 70, "Output",ExpressionUUID->"32172c41-a3e9-418d-a893-276b966201fe", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[282904, 6008, 1155, 28, 70, "Section",ExpressionUUID->"ea6420ca-49be-4db7-9103-87f3ac987a6b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[284062, 6038, 529, 8, 70, "Text",ExpressionUUID->"020a60bc-7ce1-497e-8f32-40d2e6580781", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[284628, 6051, 1033, 26, 70, "Section",ExpressionUUID->"a9fee84d-ace9-4c5b-b9e4-17bd8003dd47", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[285664, 6079, 515, 8, 70, "Text",ExpressionUUID->"e4281e39-40e7-4ad7-8b80-bb3e9b34f965", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)