(* 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[ 303098, 6321] NotebookOptionsPosition[ 147943, 3380] NotebookOutlinePosition[ 289723, 6041] CellTagsIndexPosition[ 287914, 5991] WindowTitle->RunLengthRandomnessTest | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["RunLengthRandomnessTest", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->704145614], Cell["\<\ Conduct a randomness test on a sequence of random reals between 0 and 1 using \ run lengths of increasing subsequences\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->309644963], 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[{"runsup", "[", "seq_", "]"}], ":=", RowBox[{"Split", "[", RowBox[{"seq", ",", RowBox[{ RowBox[{"#1", "<", "#2"}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$meanRunLengths", "=", "1.9997972637403931`"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stat", "[", "seq_", "]"}], ":=", RowBox[{"Total", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Length", "/@", RowBox[{"runsup", "[", "seq", "]"}]}], "-", "$meanRunLengths"}], ")"}], "2"], "$meanRunLengths"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"statdist\[Mu]", "[", "seqleng_", "]"}], ":=", RowBox[{"0.21819458420310864`", " ", "seqleng"}]}], RowBox[{"(*", RowBox[{ "Need", " ", "to", " ", "recalculate", " ", "with", " ", "more", " ", "points", " ", "and", " ", "a", " ", "larger", " ", "sample", " ", "size"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"statdist\[Sigma]", "[", "seqleng_", "]"}], ":=", RowBox[{"0.4208000593890539`", " ", SuperscriptBox["seqleng", "0.503677726169205`"]}]}], RowBox[{"(*", RowBox[{ "Need", " ", "to", " ", "recalculate", " ", "with", " ", "more", " ", "points", " ", "and", " ", "a", " ", "larger", " ", "sample", " ", "size"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RunLengthRandomnessTest", "::", "seqlength"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"seq_List", "/;", RowBox[{ RowBox[{"Length", "[", "seq", "]"}], "<", "600"}]}], "]"}], ":=", RowBox[{"Message", "[", RowBox[{"RunLengthRandomnessTest", "::", "seqlength"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"seq_List", "/;", RowBox[{"VectorQ", "[", RowBox[{"seq", ",", RowBox[{ RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "#"}], "]"}], "&&", RowBox[{"InexactNumberQ", "[", "#", "]"}]}], "&"}]}], "]"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"CDF", "[", "##", "]"}]}], ",", RowBox[{"CDF", "[", "##", "]"}]}], "}"}], "]"}]}], "&"}], "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"statdist\[Mu]", "[", RowBox[{"Length", "[", "seq", "]"}], "]"}], ",", RowBox[{"statdist\[Sigma]", "[", RowBox[{"Length", "[", "seq", "]"}], "]"}]}], "]"}], ",", RowBox[{"stat", "[", "seq", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{ RowBox[{"seq_List", "/;", RowBox[{"VectorQ", "[", RowBox[{"seq", ",", RowBox[{ RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "#"}], "]"}], "&&", RowBox[{"InexactNumberQ", "[", "#", "]"}]}], "&"}]}], "]"}]}], ",", "\"\\""}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"(*", RowBox[{"Should", " ", "this", " ", "two", " ", "be", " ", RowBox[{ RowBox[{"here", "?", " ", "We"}], "'"}], "re", " ", "performing", " ", "a", " ", "two", " ", "tailed", " ", RowBox[{"test", ".", " ", "I"}], " ", "think", " ", "it", " ", "should", " ", "be", " ", RowBox[{"here", "."}]}], " ", "*)"}], RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"CDF", "[", "##", "]"}]}], ",", RowBox[{"CDF", "[", "##", "]"}]}], "}"}], "]"}]}], "&"}], "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"statdist\[Mu]", "[", RowBox[{"Length", "[", "seq", "]"}], "]"}], ",", RowBox[{"statdist\[Sigma]", "[", RowBox[{"Length", "[", "seq", "]"}], "]"}]}], "]"}], ",", RowBox[{"stat", "[", "seq", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{ RowBox[{"seq_List", "/;", RowBox[{"VectorQ", "[", RowBox[{"seq", ",", RowBox[{ RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "#"}], "]"}], "&&", RowBox[{"InexactNumberQ", "[", "#", "]"}]}], "&"}]}], "]"}]}], ",", "\"\\""}], "]"}], ":=", RowBox[{"stat", "[", "seq", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.771236497267365*^9, 3.7712364977554293`*^9}, { 3.771238868511907*^9, 3.771239082094352*^9}, {3.771239253777796*^9, 3.7712392553066673`*^9}, {3.7712396342122726`*^9, 3.771239646609251*^9}, { 3.7712397026054688`*^9, 3.771239739431881*^9}, {3.771239883675467*^9, 3.771239898600957*^9}, {3.7712400331372128`*^9, 3.771240068591927*^9}, 3.7712413863577213`*^9, 3.7712415444501266`*^9, {3.771596927939753*^9, 3.771596930674251*^9}}, CellLabel->"In[11]:=", CellID->257056921] }, 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[{"RunLengthRandomnessTest", "[", StyleBox["sequence", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->687780567], Cell[TextData[{ "uses lengths of increasing runs to test the randomness of ", Cell[BoxData[ StyleBox["sequence", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and returns an associated ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "-value." }], "UsageDescription", CellID->670656086] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{ StyleBox["sequence", "TI"], ",", "\"\<\!\(\*StyleBox[\"property\", \"TI\"]\)\>\""}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->167811191], Cell["\<\ uses lengths of increasing runs and returns the associated property.\ \>", "UsageDescription", CellID->782813145] }, 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["Properties include:", "Notes", CellTags->"TabNext", CellID->235159090], Cell[BoxData[GridBox[{ {Cell["\"TestStatistic\"", "TableText"], Cell[ "returns the test statistic", "TableText"]}, {Cell["\"PValue\"", "TableText"], Cell[TextData[{ "returns the ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "-value associated with the test" }], "TableText"]} }]], "TableNotes", CellID->427896029], Cell["\<\ The test statistic is generated by creating a chi square\[Dash]like statistic \ that measures the difference between the lengths of runs up in a sequence and \ the expected mean lengths of runs up in the sequence.\ \>", "Notes", CellID->650284232], Cell["\<\ The test only works for sequences of random reals between 0 and 1.\ \>", "Notes", CellID->600152131], Cell[TextData[{ Cell[BoxData["RunLengthRandomnessTest"], "InlineFormula", FontFamily->"Source Sans Pro"], " results are valid only for sequence lengths greater than 600." }], "Notes", CellID->773770818], Cell[TextData[{ Cell[BoxData["RunLengthRandomnessTest"], "InlineFormula", FontFamily->"Source Sans Pro"], " function performs a two-tailed test on the test statistic." }], "Notes", CellID->422185314] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Generate a sequence of random integers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771165357209673*^9, 3.771165364983837*^9}, { 3.7711654702260933`*^9, 3.77116548074102*^9}, {3.771239944519287*^9, 3.7712399495886908`*^9}, 3.859393077567587*^9}, CellID->824778599], Cell[BoxData[ RowBox[{ RowBox[{"sequence", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "1000"}], "]"}]}], ";"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.771157000859314*^9, 3.7711570201609707`*^9}, { 3.771239817670186*^9, 3.771239818844409*^9}}, CellLabel->"In[337]:=", CellID->184984196], Cell["Visualize the sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771157061210312*^9, 3.771157065204805*^9}}, CellID->799483322], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ RowBox[{"Partition", "[", RowBox[{"sequence", ",", "16"}], "]"}], "\[Transpose]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", "SequenceIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["208", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Sequence[ImageSize -> Large, ColorFunction -> "CandyColors"], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771157020871545*^9, 3.771157056213524*^9}, { 3.771183873446562*^9, 3.7711838798597307`*^9}}, CellLabel->"In[338]:=", CellID->604625269], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJwUmnc8le8fxjNKKqtCilBKFBIa1lVmUYnSIln1FQoZkVGkSCoklaYGJRIt GtqUPY/NOcd5ziZUIqPf/fvD68XxnOe578/9+VzX++KoewY4HRCbMmWKLPky J1///74yVmj45hIfXZovxF4OdcDs3Y/3ZbpMeMxQPrp+BQcP134SLTVgI8ji mvn243wYc9avaornISVFS1S6jQkl7Re1H9Q4YIZ/vbv3LBepG39GHQtnoaGh 2vVaDxdvHortWbyHj4K7TN1dxxl4dHDTqpM5FHafrtAoudKJ9Qr1o1UpFQiT cpZq0KRBkadcJ3+EDoHNPPdXayvx665dyYogGlJuZWx6aMFC5xbtFT391bCL MaAy21owN/3ccL0dhbLsCZOYXQJsv2Jj8CVTCKfLd32ztTiw25s1KLGGjW+n pftdo/lYtfi5l4MRhXLeXfviDAHOy5/xsg4U4tLmih3jab3wye91V59XjU8W Hl5e3i24IDv88XEGH3KqalN2crrRvWO7mUVWL2wEv7S3G7dj0add298bVODl nIiE5f+akVg60y/rNRvLaqmKoog6RN1t4G060YZBYQP8XlDYMClSvaybh+VO AUkLPwjx9VvVk/iLHIzdaf5eN1aH/wSFcTul2rF7uVJn2hUG1IPrfmmnV8L0 T9gCtWs0nGnyLs9b0oX/pEau3MquwAPhisV79Wnge9n6X3xD4a9VKbf4Ew/R Sw0OthYJ0aY4q0omuBPl9CPe2ucqIDEvssNlCQ1T34ZeVRiiY/v5W/n2HpV4 fOhENzuOhiOG9vXx2jzMycJf0yO9mO544eG6jxxITdW7svYUGxIL7og176qD T0HFPMe9baiqU3e9lMZB35+WKu8iCvqVC6hWUT6qqtOXtLh3g5sr/CnTUgHL zONPT9nQEO76bOELUs8N+dNevR/oRqZy5bLuB70Qy7Z0UJjk4GuSWG2UNoWK jSt7HE7zsPmOnxXM2dgyzeRc53EOjJPTRvZfFWCapoW6UhzZb6G8k0toLayi JQM/PGlFZr4If0oChdsxBd57I2vRVt3qMq2olbzPK1TjJg+d56wiRU/S8Ob5 Ka3g5T3IUJwi4A10wqrIOi7uFqmn8r5VtTo0qC741WMUQWFX5oV5i2r56L03 a6vvsBC6ZiP2J9L4SInqMld80Q61zLuN6y8xMP9A6tbZ+7l4sTMkobeAhXBR n6tyc3m48E/pYtQVPn4bDJyyKumByx/aDqnpLLx2qnFd0chDOfN2dKR8C+a/ XMPgvujB/SMvvxjkcaFs9vA+25yFjKxs7/wsLi7IzWI8lePD5aQk88inFuB8 /WyZ5XTMXLWgVCSYj1+3Vmddd2AgbptJRyJZt8eHW/aL0/m4orTqj6tLJ0wr TUfFPZn4Jed6o/ArBf8oGcngyzzcC9XG4A0h9NlrDIU0Do6/Prk86Eo9avsv Pg+73Y6NLeK2srkURlfPnsuS5WPr5z8fHrUKIRzZlnC0gYLUuH9GuCsPHVb9 Lu6xQpi88kgrW8zAfh3Dn6mBlTh9592cS2dpoOxXqlh7U5B4XnG+YJYASUZ1 F2dWC1HiV3jPL5WPjLKUgYHbbTD6NcQ/N5OBXO+es0XXuMiJtlQI38dC0NjG sQufuMiefY7+geiKZVja5JyQJuT3vGhfaNMFLH+eZqLLQX3ywSFTfTbO7rmp JBbORxR3dVKzHge3mNuer9Zj45bN+f80wvhwGPeb/YPWAUUt02Ht4AoouBor 0ufTkB/lHc3yYWPR/GXnirQ5eL5pdkCAmwDJB8WjbW16sPdl/ZwdfyvwLPDc PYEzuf73o9COT0z8E7n/4aVSFVLub/98qo2G4kNxiWmvuIhx90sUiDch2TpC VLOnEwVzQrXyn1L4p76U2v2TB//p9s/dKoRIbX99fHY7hal1nRP/GfPQZaHn QhFd8o203uVL9Pm042U7n6wO3BhM2PhnGhM9wa5FxkwWUt52lPcX1sBZ9tKW uVateH08ZJnTEAcL9XNiXNdRmDl6bnLWJR4cLJ3UPTUpZPTqzXz4XgA/y6LW jzuE2MV2WBZwgUK92z/tHcl8SD17UuUxtw9q8359uUPm9EBx9udNnd3YKNLm 1Xa9Fx9t54oqPOfAMSvyqtyaerxdHsNcadMOq3fJk09921G+0T1K16QC7pYh fb6iNJT3Xb9QkUjBcKvZW+csPiyjZuxbJd+H3bMjTr6ezoMpLSVUOrsX7+gl h6wmOJh92cwR4e24d2kJZWlWgdITb4a2i9EQoGeW2jyfD82Hfx9bMBhg2Me7 GymwkWWdccK/lQNNXa/5SnspPNieOdeukNT1UPQTPXc+3sT++XL5eitUl67N vHuRjidaKsktpA8naJ0zrjrW4vu0GnET8vv4x5Nit04z0dgV7L67qxJvAvY2 KZbQUNQjM6fck8LBD7POzJYTwGhxTPU8cl7WOuf7eX4cKCxxbpVi16F803hR +u82NJXm39l5nPRtf+4Dv/MsuHwplzH5xUX7LeUQ6Qc8hJ/186y/x8Rx6++C KA4bjGG7YyuInuyMdimr9WiH1saDxRG+DFxIXvtpbRQDLGX3w5/OVaJf4fLX 4Ms0zHzH835zmY/udiXa499dKLgY6N2n3YvT12OrJ/X4+C/ho3BLKQMSAr+o 6wMUfp+dZfbrNhvnpR0nFCk2YmQmrmssFGCjW8BVI08OuuUsChN/UHDfsPSA kwkf965UKcqJcuEw59OvkCUUzijG2+ee5KFxvuaXA4fpyFV7vCGW+PIS6T9z 5YkvZ743b41eysbIo6B5kywO1B8mJRZXChCbfWvDYC0La2TUdNOv18BmdfhN +ppWMJcqmp1Q5ML+06WefTMoSKeaHb7/Hw8TOhX0/Kks9K0KGNtxvxqvy806 +U9b8CTWs+t2Ag/0DPWdkVY07H9SXrP1VzecGnWzr/W3QbhqPGfBsgp0XTHo kP/bDM21I9nGUWz8NAmZsmE2B+xoh/86bAVQfGW85yWp22qpX8uuDXTh4Eef mKBlvRiXeMbsWcnGq6b14SeX1MFr2RfR/Yvb4KsQ1XCdzQBtxcrasLxKKFi6 WLy7R8O7lGlXD/dRSH593K2/lwt20HljGVshtGUu6TtN8LAoyNtXbDbR2cU6 Cdl2bGxSbld8Qubo64FytQJeN/qj51/2udsLucC/jv8ieKi+WJswxGci11Ri 4J8BBzNWHj1mRdapuTw7WSmmC4JZ16d5DDDB1HbwmULjYnTdr3Xto73o3fzR 979dXCR/liy4WMsBlxWivuUABaVFbNx7w4OuX/tAVQQHceu9Hyf110H0Y3lZ 62QbTEWDkvp3kfqs7zJdvJ4DM+PYTWZHBVgnXDtnyjAP2+YP6zeFtuCHnOLy dAk6NqXODJ/5l4l0xuf2FfuqcNqSyt05ScPxu7TpDWd58JFzTLpgR8PrJpfD P0a70RqwruVdFg9TexhG9o9IHWyCGtz72LhMMdlh09mw4/TEa/hxYTvTdtvt WUKkfLBklSbz0Jf+fv7fSibqXkpeKiDn9umiSJPcEwp6i5vtJyd5OBRiryRS JwT3nzChSMCFtNbpvWK0XkxOVbJrX8mF6WBpw+wcsv47272j7jAxW2yhJ6eX Df7a6/NUQygojz87Y+1dC//nZv/8H7Qibiez7YUUC+Zhk4ZLn1Sj0Xfkuc1L wpNC3kJ/Ly6OxBkle+Wy8NfihPSENA8jIbP25BTRoX/ePalySyVkzKiZnsdp sLziZLFtFQVTX0PDhNsCBNCftOzxFeIWf0H84EoWFiVZda5pq0aNYeTs79Ut 6L3POPpuJw/7A1Xk8K4ZvPwOO8lj3Yj78PjaLXJeW7gnmAP1FM66zioaV+VD 5ebZ/6aEURgqdnyT0srH+sDY/+YMCNFkp/Cohfi7pkXTgeeyXRj/52FV95qJ Y9YPM3vJfn3u6dObO/gwGPH+QO8TkvN2WMQmOiNyesmCKOUOPDa/t5PxlYGa y37xgqQu3DbSDtV9WYHC7wkxS9fS8ExXOumMChv+6X//5inVYXK8mRWq0IZN V6wdtS5TcO1z1Lc5wsdMsUURLVOJX6y+wltN1uPRfUZVIaAThhsaN+f7MfHj oPG7AdLP3vItc7cu70ZWSKH/SutevGnFwH7y+k+FYf/ia10Q2b3AjjPBxOvq ZP2K6nbYF3EZh+wq8JF/3HO2JA2ie5V+vMqnoKMuyrs4hY+sJOmDn0k/3Lqj 8HFjHh2h+5ttaPaVmFiRKpcQQcNFFdPEegMK92Lfv55/XYA0f48Jp8NCeJef 1l36rhtjZ/m666kKaFYj4OVmGuYeX24f5kRh3pYd3yQ2CBCl/WFR1yPCe8Un X4Hsq9G9yHTgWCdkTbs4ooFM3O0pGrLKYeLS69ozE38q4T2RvnVBOQ0Ody6q SZzh4NeR8y1iw3UIjlviLSLRDmnbUOP5DhQG92zp4tgJcDc8e3zdPSGUVm8q VzzPx62Rp1rxGgw0lrc80LWnsMWgyce4kgL/8NotJVE8uGpTP/6mCDH1ycGf H8h6Pp5ZaNYz2gn784d17hYwsdBNf/DjJQo3Nxa/PxfCx53aT6b06X1Yvu/v xSs2FC6Yv2gTeAnwVk2k5lAa4YrvsfLi5D5mHh1Xx0w6IVZ/2z/HiQmHhJiW AHE6zkxzUzWbR/bluStr3JMG5vNGpYRxCuEr6l6E3+Hi1miVkf9SIeyfmsRL b+Ri24vAQ351DbjoubzI42MHbhoucPtsSeFi0cfzpv4CcP9IyjcmC3HDYsWC 54SH0x5dSlUZ7EHKdj77wGIW6uonvLdXsNBTJH/2ZXoN5qjzDdQNWzGWql8u Ra5ni/2a07uJ8Ff5raen6nvBdbCwWW/Pwf1xN8sLs9i4wPcUV9/JR6DXU8qj jELvhp7g/WmELwJ2rAm5LoSeqmveqXIG9ATNnzl3K/Hl2kPLlNs0LJbU/feK 1K2ycp9uMambddT3N79J3VRnrT/6q56LGQk3E89OYWHUIHfNVTcu8Qv1xxvV 2OiqqBgqmcKF4qlS/8VtAlwoyPRwusrH4Kofeaob6cia8sLIMYgF5U2Vtoxb PMzMM9wx9QkT9q+c48KG2Cj4xLh2lfi8f/bCnbvOVEKSKqqXv0RDx6u1gkLC w17LZnZfY7ch4jz0lugycK3f+t7Uqwykqp0320ry4POOw6f1SB4czMgJkCJz pFD5L/or4eC7V55c2tTMROcab6NTvnzkyb14f28fA9qa77/fIRz2PmZfTTvh SVft14ic3Qnb6PpVzuZMSFef3DHykELN/pvlZfIkryfNbJnWIUT0dU3vqzkc tMpSVxquUPgaZv95C5/w/mfm0DLSP03VP2VneXRi4zWtY9Xe5Lkbs+W07Plo qQrW8PNoRcRj19bCEDp8TmzZaRzBxtbZO3xKHOtg5X9rfvb2NjzofHzJiPDV t3t2BqWzBYg44OEy+k2InRZKv8YUCEfZjjeJzSTrmrhabObDg/2PjMdfQ+lo jjjiONekEnIDgZOGR2nI6TS1jTYi+zLdlWL8goEP8yMdW9kUlh4S+PQvYOJ6 ZaxWx9tKbH+wIoidS0PNaZUbBYcofPCRmftlnA/ZVTmvS1uEeLHK5veP9RT2 6nUPJYUI4JEKnlmCENdPjH+qI/rZyfmi9W9aB1LiD1e6vCHn98EwiEvqMDNj ddkl9S4U63humPOZiTUO3kb9bymsFp8vavOuFtbPbvaL0FrBKAgJ0Sd5Tu2V 0ToFR+Iv9LYNZi+4+MR19f35k4mfu162lDhXIVF1bon1Xxp6TmzakKZHYWve cH5GjgCbrlf/7vcWYsL1zLvueSSPC7pXtqlzYWGy65EWTwDdtp7ZkiQXn3Gb 4a3/gvRzzZ2MNok+hIbO2Vph1Yvrz3c7nCuuQmXEi/2rV7ag4yg1NeApD6vH jOdPSyXnx6tOs25kw3Mghtm/iYvGq5aON5ob8HHKm6cryzqg/LTWXJz0ucST nEWtanQMLJ1X2WbHAkr5bVVFPFyStnZWOU/66fS9OXK1bFAh7meedJM6B/WM 1S7hIeNj2tf+g0K875oxOJVwuHuXg/khKQHuB8/6dKFKiBzpbtdTzyiU+wWf yGOTvP7wwWyzL0IkBjhlBheysef5gYzRGjb+GpZveSkpQHk5ve36NZLnDhSq fOijY6mv0uz4ORQ+z192da8yBceL51Pm0AVwWCj98I+5EJdj5Y8680h+7Hai +G29eJjqfEzKiItd1jnjY3t64ZqpkxfcUAWh2ayHe81bEJtvodt6gwuuQcvd v68bQdfs+PgwsxN/p0alpnZw8bS4ze6kTxMs+5ROHTDpwrJnUt6fSX244WlG P07SYS7T8/rnQxYOpneFSuhwcL5m2dFb7+vQvWuLyO3KNhT80D2brUMhSLVx hmm+APfWx8Yv9hCi7O1rGRXi+8ZcyxOmxPfP7RCIbya+/6/8TohwF4V1Fn/E /q4UoPFx5Z6c50JY2Z76pvWNi0lF/c0vZVn4o2zsMBnAhUa5Fhb49KDqrMmi hH8VGGF2KuvvpiGmbXVDK9GB4paW3VGynQi+ypruYsZE3stvgwdIf35mLL1/ qbwRGZLHlu7I7sShqfeiNObyYNf46LbBpV4ULnjnPM7lIISfe3EW6Z9ZshEf HpL+edxXlvCL9M+cLdkLIkGhykCb2xAugM3lpK374oWY7HGPT1enMP3X8a6X dQLMm0HrtNskxAXjS/pHSP/095cWlZD+sTmibFNC+qfIriCqNaMbqzTdJ1x7 KrDLuUZMg/DmIpP0Q7kv6RBVf2Mt4VCJ8ItBowLCY5tyn7OqdPnwWcPeYPuB AdUPp6TfDFF4nZbOGHzHwY5PSaJpkSTvpt2YZ1THg2zY3D++hVyMaco3s36S 89VWD/aoJfu92+XTTfSnNnX9mt0bG1BU3afgbNmBCe002SGy/vLCyd57tQLs 057ME7MTIly5UM6kmoPaht/b4EP2V6bFdCnl4cYZhZmPkyns9589ay3RiYuR C8QM5vUh9d/nc2lET/5OHXsV9K0dnJzQitc3GCgKEs5KSWQgOO1C1vmLlahT XD5T+QoNIjTemSMlndi+Q3Tf2OUK/NCJj5LXpkGvR3nXvWVsPNcTLv2vg4OK Wcdoc8sF2KsbpV6qzUWQ5buZ20+Q+X1H41mEdUBRb+qq+Qw64rbk9M12rcRq +aPcWydpMHfcceajCakD47N0YieL5G9R8a1mPOS7x/p7rO/FZXW1fZrPqrDT YEjNWqcFd3ZNshaNMJHjX3erZW8VqhVycmUnaLCbsbAhR5SBF+b6kV4HK2Ep OxqgdpqGgrrfnMOqRAcUvjhLthCdkno+e6a1EH8mmMN73jDBtuvmnZWtwrpv iQ9im8j5DuZz1IMYWNvW/npPIlnnPrfEYeKPdA2H1twkPoQDUczTy0i9+Ibj 0YSrpnpEtR9UYOPpz8PG9BVcDNk/CDzRL4DIu+0/3Vw6IHu0hL/CvQL1LB+l 9Nk0JCbGSZ78xYGODFfVilePikbTHRaCdugsbHF6RHgjJK/fzobdgz1dM8cV FrJguGB1s90SDi6cvqmVZMpG6ci/xOA4Pv5d6gtqINenGLnq1ZK8VJnfHe28 igX+YgPRGzF8RJhwJYNMGUiI7hnnE727svzjsTHSB5122U+fGxLuDd4rGVTF xF+bgkDIsLEmOXUrbTMXHw90cH9PCNCcLv0syIPCQc2S4Ym5AiTFhXiElQux 8vrJn0m1XAwPu1w6Lc6CGm8oiOHJRfZQH4N+g4JoVnO1YkYtAq3n/rj1oRVL wiZUGzK7YPbUbdGd4gqMKh1pWLOOcG/0/o8zTlD4Q6XwJt6RPPEy4sEPkT78 WP5yuC2gF6sc5LJ1+6rQWzqbM7i5BfMuOtR/Xkk466ti3oF5rfht+t+nHic6 dPwnaZa36XjKmSxqtq0ET3vyePkxGvLyOAddwykMX9m6M6uej0Nc1dy3v4S4 UxbrvtCCiY/bFxy6+q0SpnOk7SSe0nBOszfi7TIuFhYaS5dFNGBqVMithUEd MN4X3/1pEYVUdUV182oBjGzbVt6xF6L52hfnL1EcKFdY7RmuJn0wsJbpoEzm f9uRTx81OJhqqR24xoyN9WYXM+ac4mNp6sS1bFcuuucf4AwVsRBo1LuSUiD5 7mLA8QhxHvwi5ZVz25qwfeOr3rX3uyAzmNE1upSF6pDRV9Orq9EeaBC1qLwF 2TrV7fQvdEyb3vT1wPZKlDz7fqUpigbe1iNvg4n+d9Y8NGDtpmPKxDbW21gW 5qhcn15H9HYjx+ditkQnthpZJEusY6JsUG2eWgkHWr6R2Y9iKbzUPVXc3MzD PHGZrM0k/3W10IKYbQzMEhu2spFmw6Y6ZMzCtB1djSJnZxpWYO9/mxs2/2vG WOf6GwGLiV8E++y3qBRgZ2hc6O/NQlz5/sH2bybh4dRD0nY7+NDfd03PelQI 5xO3VR4QzlygEXzmdVsbhg2e3WzRZODspjgdoww+Wu/XGqkEdkM753ch42Av DljM3JxHXh/tLGiic7qRWFCz5kxWL46JvqjZTPjTw6zILepMF9Ifq66N+sVE sb7Lvv3k/kH2/leuXWqDXfyugZNTGVh6rPvmjVEOJppeKCxZScHy/Ja7Z5N4 KJPLVdXJ4+DQBkp9ehqFFUdvHP7FIrn/+dizrdYsjL+bHq48VA29DKfU/R0t sNSzO+MSx8SNZxqtuzorcWSKw+ecYhoUQ/oerSbzOMX5dMTk0R4sfqkYdZ/q hZuu2bqalRzo7967a1yHcKjWFwnRUD5qtpQ3mfM5yGhyzqOq6iGe+e/337p2 UE6VDWfNWHA4ssPiJrca0/8zjF5Ja8GnYPpfe3E2EsNY6p+juUhZXeiVJS/E vG3B87StKEyRX3tV2k+AOYHa02+dF+LJqxnH5pP6ND3O+NG9vQubNbdcfdbB JPynQfMlOiBlNXrX7l4n6u/tXW92mol3Eg2MyBmEe6tOLJdf2oAq5rjN1cUd eOqu+XGok4PCCaVB9x0U+h5qZIvkEW6bG2fnPMbGGY3iu+lBbEzZcYUW9IyP X1EdWpck2Lgj6TKiQjige1XN+XPSQlRmn4na/YX4882Z5oqv2PA58Dcp+ycf fQlRmif+nyO+XRLOL+mCdMA+b2upXgzHHNH7TnzqbcqXBR7/2lGa/WDozisG uKEuCy/EUEhpyc6YFlSLkvolpl55rXDf6igvoc2Gxux6TUf1Ouy0OhhSvbAN SiIXDqjNYCBFa9qRAh+S0xWvbVQ/Q4NZw+0nbxXo2Nq0bXOXCuHzIfbXoAM0 nNS4ecSQ1GfO3JAXV/w7kVay8FmILxNHTrh4/J9rlo/fdDyRyYLGlT/WDlN4 +L10pM90iAuZ3T0+RpW9UDgQP8tkCRfpZ2NeaZF+iOvUVfp7oAcPdDZ9s+rp Bd3TVkGSzNslZbEW9WI+lu1d3NkztQ+CPcLgHw0M+I1Vp/pmVyL1xznuvCwa PhQ8zD37kosHbYZV0qJNSE6ssTjZ2Qm+vnpEahQbtE866xvlODi6UFoizFYA b39V035St/x3HkuyNDqQu1Fo2/2dgfe77TonQknejL1mdJVwneICtrs04TqR 3edSizhsbCtf/vtgEhuHLcIt91fw4cmNDGqR5MK2T3TgzgIKi98NWGcc46E1 +u8MC3U6CkL5VkrqlVBNNojoOEhD7IjxHKqCDkMF0w1wrsRdveUB96JpuLlO ZlNxDQ+Kbu/PaUm2IO/dG4cTuT0wMWr/ON+bDfmRm1M+kPn4FOadM81bgEdi 5iXhgzyoDnX1bT7UgupbSk/LROi44fXfFjMuBY/1fgXKY1zkbTxhauMkxKE/ KpVGxN+u27tkdM4SYEf3Hvs+wvNJOUpqdWNdOPR1YU5ieQV6b/TMfgMatjn+ 7buS3I6OOe7R3usr4DPD92mhOA3yOw9WMTIoLCyz3ZRxkPhwfvZ/qqJ9OGO0 KXWY1JOOqA4RnQ7MTJcOGqlm4IDr3H2F79nQaVejV0TVQXNtXVZuXBs+S89Y +Yzoz/qJpCA6pw0Vm2oVv5IcvWTALn7pEA+hAeNOxzSYGDoxjXXCjY35l4KZ Jup8qI/l73hKY6Cwqxu0GWyI/r7umLeN6PaXFKvHga2Y0u4v/ymSjrURalvZ OTxs3rV9puptJn6oV10LYJJ80r7K7NB6FpY3xZioCauxOrtZf0FrC/K7HKTF A9h4t8Jl5NciDgbaqdmbdgkwN8cp4ddSCg8zZY34HwSYb73SkbddiPM0c13p s1zMZXd++x1O/CPHfI06nYttpbzM0Vl8sJ8MzPB60YLDR66vFF9Ch6ezhUam Jg/jv8ILW4yb4WYfk2Q22YXS8UIxf5KP3qocpD9rpiP2OB1/xliQs8+z6Cbz 9SD3oPouxS6olHyRki1l4nv1LR23o4RfBy/PRC8fX95rP6C4QqwajFjU1En6 9sxBT0VdHtYH96kP+Aqx2rz65ieiGzHZP9/0j3fhC/t+ZqRuL2Y6S604uJNC 9qnCNaFGAjQ1yWy9XyjEfoHGR++jTJQsrDwd0FIJe5vOH3EvadBgbA36/98J G9hKH0SWd0Pr3LlZM617sfPgf/fDpvHxqEM/dv89or+7V27NU6ZDIlt/xvle HrZ9HLS+bMqE/g8f8aBwwmWVRjprLCloHW/Kaj0swCz7soWl5wgvGXjJZRL/ 4pnp8pKbu7Ht/uq65Ku98Kh+F/WklI2oNL/sFaR/HijcpyZi25Aorj8/SbYH cidto+SGKjC32ZHu4ERDYJ/quVHi70OHJq2W3aBjWUxo8o3PLPh8eb5pgPQr w6x3wTkvBkT0B+L+XqDg4Kv2gkt8X+9fvk2oWiea1Bbr6Vgzcfjw0q4awjnv 1JOFI4Rzdnhte7eFcM64yrmMsx58uA0vLHK63YpPKuvq9qXSYXouzLotl4LT k0xlTyk+bC61Ov6hCXFJf6pq71I2nB11s9b1cuCp9yirq0KAga7XGz2OcZH/ 9oeoVioL9uxst4I/XGTdeBWRtJ6OsoNyy15pEz5nt/6U9qOhjv3olNCai81b 9H/EVzTg4l5BLP9NB17QwlO2bu/G8QTJw2NNFbhWQ5e6bk1D/FZ+peFbHk5G XJ8z1Ex42u9Rt1RkD7pmqMbEbSe5/lFJwE8zAcJ+PpnofyzEQhZrftUmCioj UoMn9gpg8WBXT+lVIRqPhX9cTvQ5avUp9jSSU4/WXP9gTe9FmCl1OuYxhSgn saYTM/gQ5TcsTmsm+f3OxuIGkv+PqVdfb33Ehub8sge+HD62S0c2t6pxcHxN 0KtlFmxEjJtvu59AuMQ9J8dwGeGoV+tlV1QyYHnlce/RSQow08tYMrUT97e3 e1gfr0D7A5/wvyo0nPISX3KbcKNk2099L8KN1WlJIqaEG9OlunuX0zgYSb72 b9CVgsvNO3sFz3go3pbeZXCgG/Jt7tfetBCunuuWV2NDw5Nuen19GQczc2l0 lm89br5jPVwV1o7+XdqF+4IpBGw4Mu5A50NjT1xgN5/Up9WjMN+SjRN77969 6skBP8ow926yAJJGL1YEWFCYpj8UrxEogNac5slVSUIsKen+MWxCQSHXmL7s lAA3k8qEvtFCvLJl3fMx5UAcDw45qrJhcuf5vdD/+PDHiW8vvLhQ11rwSqDc CE+rbllM78T7mfqSvKcUzI2iD24huli9Ocqu67sQkidTK3YIONilHJrFrq1H 4O59lp8b28Gq0XGpJDpMKW3suijSAZcfC84VFTOQbun6ZsiOwgzTNp4K0TXe iw0D4teF+JETZxW0nOjnncs2jV8Z+Ly5+kzRCIVg6YnL1AUeXrqYHvL/xsS0 jPSZXdIcUIvCPOSI3w35P3PWXtQAjzjs+KPagT/pydmpC/l47pu7TbGDgfr9 oqfSSF56dwDe08DDNKPulfs298Igw7Pg+w0OntOWT6n5QMGGf+yL3WMe4jW3 n4rLESL7ZZ7kkBcPPzq/mJQzmnFxtMWHfrUbCWsk7sUSHc5Z+1Vg8kkA93Nq O6cRHd6h9VmMvZyHay6pvq9tmmHWKya/XrIbKwIN88dIH0hHHm2ev0iA7+tG 9LNLSX8mTURvtWHD4eb0+vadHEwenhb664wAIfyS4RNXeEi9yfA8GEhD4YPa 6AnlHsiGJ0s++8DF9FnzcmeosBBzQyZ+A+HKi+deD2VeI8813T/05iUTa5PD +c2E86TzubUmYXRkilN315pUok9fqtPqKA2m1uuMhaXdqHg8ffQ0VYE1ZQrC ps3E9ytkNzlqc9AwLXRIbzUbuZ1Bvpej+KizisiklNgIPlBbZ6HCRUCb78lB tgCzO+Og8bcN2z3zKhlaFdj9zhedf5vxyeD0TM1TXMQui7OzjWOhfCbcBnhc 3I79/H5Em48/17a7ZpYxMFVsbn7iKIUHZu+N5hRxcG+3+dpLSRRkZBbryXXz MHXP5flbKjlQP5v7ye5YPd5G2BY9iW1Ha+Ll9Nt/2PgxxWyFdRgbr20tPpe9 IvxnWDt76mcOhmfnPNUk3KQs3a+0sYKHBs7tPDbR1d6wul+HFnbC8/qtgRVW TKTceXOmxoIHddklfSo2vZDMa/xPLoODZo/Jj4/4FCKLNYs3DnDRJhmrLblF iCYX/GSROfkgPxR8TJSLkJag33/bBKCXD91if6NDSabS+e6OSqisWMN0Ixyl pzD5kHeSgq2q55oYwo2v0pu/ZhFuzDD7Ok1nN1mfztI1pisFGH5Rz1/6Qoic /LGHs++wwVE4kzjIYkNXKlhBZKEAqQZC1sq3bAT8Zv7MPl6HreUPw3acbEPo bNuTZd+5KFPZKGa7pgmjoTcfV0l1oaO24fz+hxT6E4q2B83jw/HwPynHTiGe 7T4/Z3cLFxMXvP3qXJswtm3+nLSVXVjZcj3BeDoHb+wXnLL1YCNFYaW2130+ dnxP3HtrHR2/nt/0zFhWCWsb7h81XxoYfvYRh7tIXW3Vn7Tpt6BEzllkZV0P ytd+UtxE/K5m0eS2EEs6Hkz6XSn1Z2HnQmt3kbls7A5oFr+8hgvJj/GH838K YJV2u59ypKDh9WjhUwsB9M1Nfrx/KMQxs/ijQyoUgv6KFHt3CLD9XNYhFQsh vA9P3usmvl/a8/bzAqVuJE23jbA17cWGndeYP1IIv7E1dsYvbsOzbZ24XUOH HO1Q8I6pfBS7NrwwvdNCSDI6cu0COqSfuzrbEh8x0h8U/XiqB43K4nvb+nrx wuFGhRrJI4av5EZKmzgwOVrk0vlZgHO1u3PefOFgU+CYhuqBekgUB1S3Bbbj e7p155+bPLy+cdjBPo6Glt90dopOD8IqhgczWlnwVg5dtTS7BpyoC0UPzFoh c6yj+MlWOjYtXiMrq1eJv9731X7707A563D+LrKutDUmb21VKyG5oHC+LOFz vbMbIte/Jny7t3NL6jcerGeN7MkjfXL29StVvj8PjdN751yc0ourze/UYM9B FDtmi6MeD35blFv0tjVDczRXSWx2N+zF7uRJEt6+YXLM2k2K6AuLrZ5BePt9 zYaf8eYU7jMmwrIjBXj7fva/sDghFH2L1hU590JnhusXo+oqrH03RSfGpAU7 HiX77ZRvR4qFqVBGtwJ+7Mk3BePNSKiWmep4lsLVn/diKm7ziU7oi5oq9GHP AWe1EKLzNT6zZNJ2C7D0F7NuRqYQ8oz7J7b9X/dG17TXE917er1q4QDRvTMm b0VoLmx4NDUmfEIdooYEJyTXt2Gz18exZvduTM9cUvb/zwcmKkfe+P/nA32q U2pSaxiont4/MftBJfK+suri7tAwTvlR0f0diKoK/vE9rAK6Vq4zQpVpSDFU uLeonkJTq5KxsycPl57t37c6XggdmaCSGj0K5fLRP1jZAlRvPOZ/8IAQVw2t ZUo7WDibUFA3JbcGu4IjzT+gFcd9NoZvl2LDVZAHf2cuLlwtsVIRFSK1ZJN9 HZm3qYl6y66xGNidvPp0FdFNQbpy23nig/oyjeeLP7fj9Pdvxb6ZDOzRGdZx KOPhwqTEyl5/JrI09mQfzGOj/HCc86QSBSvO9jdiHAEUr8XTtxgLsT0nc6HL MyaMGppaP0+rQlb6DNbyWsIPHaF/T3X14qPfgJtpcDX2MqWsF2a0YMuVvcI1 rVwoXNLJN9nfhJjM4ue1q7qwmMUK3x5Ih9vKmyX/ravE4kSdzxFBNGzSXiGl MUw4pttyQIPwsXCfgB9bwsc0i53mTzZQWO6157bLUQF2HpqkvUgU4prT0hf3 CU+KDvuEb2Nx4KFamOhdKcAX4bnDXxwYcP4Q9lcxphIZbYvCIy/SIL2mhBu/ lsKXc42nNp0XQKb0j+eNMCFOzXv5ST+KQv3WhBLXMj4M9LiBDuNCfLGy+LuS cGnLjBNzDhIuXXzCvoxDuJTF6kz65UbH4YabBbKGlVAU/ZKqEUBDScllMTcy p+HHWh8EE25S3rPT+QWZm1fnZiZT/8/XUSslqAUkX3/guF4hfPGXGV3js4aP 7i8Ou8q1WyH1qMnMy4WO6QOxp2I2c3B/5aHRMZLrOk9aHM7fwcf4UbeLTns5 cM9pHjlJfGuTgR4vwYoP8WOdpceJb30/MqCaeaIWVIKG0u7nraAt/XcxleRK aydmlVxZG752/nZes5ABeUNqICmVwt28m+zAGD76lqh/fSTVh6qVA4f6wMGD wuK33fPZ+O25pGOPFx/SqideG5Ncc704Xn+zGBPpJVvNG4zZaFsWIn7CgIFF m8uU/wutxL+DCYkF58g5yr+dKkZyXEx0mobwDh0ptdErbL+xIM2pO5dMfOHG qwuODxX5+CiVX/OjQ4iSR2ufLtxKuOrbUvrGqkoorHNm3Cuk4dKcgW0Rh3iY jOOdnD3YjAsulUYzc7qh+Du2TpZwcXoDSq9d42L8NG+d0mLCma5xkWahfLA0 ypcL7Bnobz3Yn0J82N3h4t1Usq+7Goc/Oi1go67kwNSvZF+nzDSdRdLZ8M7T KV/1i/DZtnGneSsEkDZcWZ9zm41CEXf51YfqcAy9mnaH27Dl78SGzxM8rNo4 7cFGOSZozbW3uzaxMar3fiSD+PGTf92h5rINEHZMHN8n04Et3yi1xopePBD5 7urlWo01Bn/TH5xtgc14xIeXyyjYv3evL30jwK0l78o9dwmhVdh6yrOtC6cn G4fMPhF9a+Fa+ZnRcOVwY0hxIQ8dzbXTB4ppOLChfFjXvQeTe+5MPrpJcln/ YDZ/JwuxYj03495w8Vy/fsiV+KB3UWlmwBY6/F8yJuLDWBCmdoTn76fQ8C3U XG++AGX7d/we+SzE6PvOqKYgCvF7ppc1svjwGr54u5kjxIW+TnMa4RbpaYsP U1KdULpqH6BA8qvBDNNejicfxoLCRENfBoIXzhrXyCBztWTXbu1YCh8si+d+ IDyUcfhCivq0Psxb9kC/fQ0bi1OXeB65QnLJy+Neq4jOPeC5BK45ReG/krqb xYV8OGxeP6g7ow8+sUGdM0n/8Vv/sK4oc+FXdbT2FuG9TR1vfVUd+JAsQzIz icz3jxWzNpdQGB0fkxgU5yGu0rzfIa8XV85NyP4T44L3VP2/I694eFLymh92 moluP4lwWhkbq7+FPvr0hoMJ+2DhjhgKpxU+yH5q4KF0t2+QNslJvUtiX8cl M7HzyNhXX5LfzHiUKtSIHv7c6nK3SYCH4r//e2gjxGRRneoUVjfWDkj8WCuo QKVbtLWTAw3L6mbxo9wJDzvmXFvd2owo8SY98ZRuZGuYtLiVUuD9puq0X/Kw /O23w1/zhLD1cYjI5/RA1P4ptWhOJUw7RqZ8cid+YZ0lXNrJgV3QQKanM4WH f49m/8gjfVDbppayifhH7pOKX8a96Jr2c7ZsErlu859kUyYbsnK6hltT2Zhf WJX9vo6Pp7krv4S+bYdpxYq/720rIL/KIYYrQcPXOSceriY+uLNmw2brXRzQ gkZGNBMEqKgfe9hK5rd1j2ON4ywGaHoiFcH6FOZESN9VvM9DefzPINNLNGRK roiyMOuBmu+uYyxxLj42Zm24qdCAGyKuqlbyHVCk3nzVaqQQPT4hsN7DQ/KS g3ZNJ4j/anzKUSBzfdAiRZYxrRcTaf3nZjpxsOPcGZ0w0m999sY/t+Z3IE4u QL5yFhMvyhr3ZETyoNtZpunEZWLswuqCFfocpBWNJi47y0KjqIeHlHUNdHri Lj2Y3op5vBW3VYZ5sCtT+bEkrAWH1WumvZag48hxZ8aihTyU1Tpyc9Sasdt1 b/4Y1YXcAKsMf5KbX4adiZSbaMXcRDeV72/p8A066OGSwUezxZeZZzK6kXN7 gcvTiF6UGtlZd+uzob7sRLA2yQ2RpYsS1Z8J8Osyu/Yr0Z9Ag+I/kkR/zpzu LLgVQuHj49wWL5ILLv3JFfPxqIevweB7n8PtMP46tY/5hsKj47vaLD/y8Dyi l7e4SAj+29/1AdspFD1McdI2FyDtwahSxWMh5vcFSoYTH1lV0JpTkd8Ozxln uvMvMrD+ce9qUycKYpwNJ4s2CBBYwPX2fSSEy9Wlrl8NSO6b0Iszvy5A+wKT QePDQoQ0ROzi13Uiu3ed75VrFRCYMpc9Wk6DRo/6s2kkz8qCUftQmUK1waBo UjgPQ4Y313ZSvRj5++xVQHQ1Fkmp5xdcb8Hwnzve9nJstO87d7zQkovMrlX+ Z0eJr26beBNXTcd4+jMVqZ2VkOcG7ZsgeSRk/w35TO0eHLY0E50zXIEY51y6 zA4aGgY7eGZJdDid1zbZv6ESVDNKfoXQcPWotttnwsl+3QYdxlPoKDp0y4mn TXz49nX2QcLt51eti19iJQBjLGnkC8nLz4yvr6O7dWNh2tXsT7QKMB0jBR6E 01I36c6LVqXA/vvsaSdNgPvydnO1rIXIMmnqv76YDd/9anXdgxyEzdU+/rNe gLw/r7UcjjORyPgd1t1WiR0Xh+QuvaLB/tgX+5gJFpRDEnIsGmsw3TU9wHpn KyyDbM6dJX0y0jJK/fjSjYD4cUfflF6YqltYG22ikKSLrSauArQMyTHTrwgx V28bfd8jCr+ZMXUuD2pxtERf7de3Vlze8mSOZXknZAdUUhdcrcDLA8Nrxci5 /F3ef12H3Mdwu1ejI7nPVnHL96fJfR5ukdiZDzoK9w6vCNauRO5/NhsGST6i rxfk/TeVh4FZHbJmnU0wWZBofz27C7uPT+doXeEiUUI9LceD7KNW75xMOcnJ 5QPz59VzsChgvdw+LwoF+oEz2kp4ELPNuvzzPhdL7Kco+dQ34t7q4VUBBZ1Y c3U7c3NBO1Tv/Fn22roC7xw/bJxG9OTjpKDzOeHG1Qv9Czv+z42zV75+u04I Y8mg3/HVFLZps+qijvLwV09aUyKZ9HPAauljl7i4P574+PN/LPQPGP/LquZi g3uzm/IULlQLjgr7NCloqv/7PRTHQ06JW4Ee0SVxiVLu/ld0fElkj1p2s5CT oXjBm+QsoVbxeL44E4dW/KrZaspGd2bVNSdyffGeE459JB8PHNH0DPnBgmxD j0/HQR7uxU15kTKD+LP1zyuiJAe8NxpmhhO9z3nA1bbLJTmUEZ7UyCE8cTLd y4X0oQx/xTTBlR4cs549UPynF9cMmoPCic9+t/HQtiDcNuvCtm3S8SzUS/da KW4gfjJpLOoS2wyV6V3dF9ANZSfd3V2i5P7iXFWteC7WP8hoLZknxBhvsbKd Ig+zqWl1Uy4Qjva82ODdy0FdGHdYbiEF/tXiOdNJDqW60vNdSA7tGHTOn0Jy KGRuRg+u68Ks2MKLIrVMWO1mb7kXw8PbZSmTt0jfHAosd7ft6sYC/eKzN57w cLd4j+7Op2TO6R93rtndA5XsbxVuCyhE0D+//MMU4NVtuv40MyGUr2RxQie4 ePM+LfFxcS+UBv2k7eS4oK+ctzgjmg2bq488vXbUYboN79aFnW3IYSb+3BlN gYof5U9+4qNtfuzjtEnCzw3PpiUv68WiUgeRqRlVMP6XO7pPpQV1JG8++UxH w6mwbIntlYg2LIx4HEVDqIjz2V/jFOQN6BUXb3GRsN8278QSIaazrUw+MQlf eMYpXJvDQ33Wt56FbkJIo++ffQgPMqeK9Pb9YuLdlhARdXMO5j52KvlE5lHj SOvKw5PdMK7c8yiFcEFL71TZUML/+74vnBdO+J9nkDg3mvB/ecJi7+NEBzqU 7XJDhjgQ2BaMmjQI8K2q5tEPnW403iz+YVpbgb2RKx/Ps6ThaOwCk5lbiK+d yhP+2iaAoZJu27LbQnDd3z7imvSiCddEnuZXoeXWk02btFvQoTUYFazGh3vs Dw0rQQv6lr67OWJGR7yv23+vjHhwzy/PeedC9CLyrfiOfA7Udp0VjbIl+UI9 8krbiko0BnU/mvCjIXfweIG+B+mTgtGn2u3NUGq/d6QxtRsjemtuG60geenC 3eNHKznYL9H6xPW9AGZfU5/Vkv4PGVRg1Ukw0H4k6e0MHQrzFeQXnj3GwDvf gvuOSZWAUORxQzoNJ840J6zM4sH/gPxzQ8Lx6ytbDRuMevDhjMYidREGun4q eggOED2/FjMiiKfBv+CrkXQ68QvJbci92wi3W5oji+KJfl0Z7TzkQyecsU9i dHUl/sRdensokAY7a/7NKg0KFoEaJ9eXC3DDzOB3tgPxqYvPA3WIryWo3zhb 4dkO2XlPY38Rrtyrc2IsdwaFx7FpR/b11mBwbVWHzP5WmGv/NxpNOOFnECdr yYsO7ClNeJglS3KJWzdvYk43yWn7ZNZXVkB70ZmivRto8A5KkjJbzkeF6ekE rTIGxtwub5Uh+eniql8nr+owcKpo9eeM4EocPR74hJVEg+b5rLLb4RRW2qzd 3EH4acSu9suG3yRvnqwMCdflI1di07uGDwxIKbYpOv4k/l2VErS0lIfD9w5/ c+qgYdeK2xqSJ3twY4T5Uk2ZjY2+wVvs53CR1j8qr0rmLDAveJs/Wf+dWMrQ +14HJp3kx39IMLF4dF/u0o1sLNg5PEdhBwdrY37758YLcDAk3p5B8ukuuT8f d38hfmhvaZw7IQSDit70ZBsfaSGrchwSGbiUHWGf8JLCfee6fWpEl6bkhquO 6dKxuSmFXribhYGkdTK65+hQFkpKPyI+a9mL0bmhNEhqF337T4dN+O/vw/ll HNQciflR9laAlIK2ELsUCt7b1F9Mjydcc/pEhJtsH8wrtzuIk1z59avYfqm1 bcTHJl3zW+nQzlVTqnDi4/Ks6QON8QzUf781/1sRhT2ST6xOk/2azrwuHvm2 A4+9dIVr5zJxtX/cgu7BwObhVwqPTlVCayolwU+lQWFuwZcVWoTrzf8TeL0W YGGi8g/73ULQaObc6ySn9KWtUThO8bHP4GnLAZJTzj//x8oj9581TX2DE6sD hh6CideaTMS/XDFTlbwe/82t5ZlzB+JDf92iGAys27LR68JV4g9yd6ce7f// /021f5UvFcB/1g2n3d69+Hbch6XSUwWr2BF/K+sW3Npw8FZkCRdD7Gy/4WUs FLLnr5qbxMXqDYY01+cULP0TOHQmD8cOPBX/75MQYXq0WDPy3L2re4t3hHSg o2OBgDXAQJrp6xuHykiusJffLrOwCsKxCple0i87FS4fGlPn40mQtfvJHy3I XGpe0U98PU/X/bkMuf/FOzuTjhTVInPL9QGFulbMYE20sXLYeBySoIYjdUjY t9Pn+9E2RO0rDg+exoPx3PTU+ke9UGD6HdwmwkWBzD+Rz5t58Fo6Vz7PqBcu LZkiHvFEJ6ueL8mx5GDzWjcVLQU23M+Nm0zZz0fX47nduuR8ly78PL/Fsw0j v4/33Omjo+7lh8cRLRxYntmYMHK1HhaXnhkz7rQjr+aCkagdyTt6g5nTMptR NPXwkkM7u9GlvbjizHEKF/yoXiX/WoTI0OY+e9SKVT0jTd5En0X2Bb2adqcb q+OXxO+K6cVxt/vuGUHET+fc7/npyABdqHVamvR9oqSV13RtCq3CPW7drwQI 211UN7FHiM9am4u2mFIYmFfarhUngM27yu0KMULEB05hXjrMg8TeqTlh/5i4 cSgvUs6OA/Wt3xcbi3MQ+KA4eOdBNoJUv2ySecSHFlMlyYv8vNon94WRTR3m ux6bN9e2DbMN485FW1BQnx5i+zdAAHHJp54OSULInk/PP7Wei5L/ZujG01jY 2LXhwfs1PFz1o9mobWPD/9oVCxHyvFW4m7w3UgC2yt552osoaLz7pv+vhuSE C1luR+2EsNz39NSTvSy4Ltm31mxWDQb22Gfd5bXAwnPvKaliku86peQD45nY FskpffOVcPaHLwOvF5GcYLTu8fzIXqwevJkuW8uB4terl78yunDsmMWfhM8V WPxcOnDMjIbn5l2VhqQPr0eH5af5deDcUh2l60IG8ibq/b4fpLBV2jJv01QB 4i+sCRVvEEJj9Zsr9aQPv9yxLphF+jBhotqwhPThsGzDVw/CG+rVP8+mXO+C H6s1tGaSiexH7lbJbgw0ifStuBdXiSjVeTePkfmNfI59TeS5ud+CDUVmdcLK 8LuzlgkT5lqfarYd4WFbwOJUc/L+gBl23z5u5ED7n/MiDslH6x5brWv0rMed l7RVJUfa0f7yXF5ONw8vrE1fPrZiYl5KhapGLBsqX8zehQ9R+HddWvQg4cVV TqfilpkK8bJdNNOhhHDmS99jX6t4eHZf9N/zV0LUaKbYdV+mEDxryWMVP1IP lVyHbeJ92NX8/IhUIgfm6T5rit5TqPJoD1okw0dEQY1GM9lv2Z9s34sy3dCN Dr+auaYXX7ydi+49I/4Zz4jjF9aCnriop6a2FeP9Je01ZF42RBlGFIq1wytC he9lyoCHBcNk2SIOdq6XfXtyPRsGipEFymf4uJ/8YpWOJAccOYOC54/qkDPQ Wlf0rA2skaIj+lwudj1Mm3r4XBOKbU7FvnfpQqHm7ZW/D1OwPzBwzWiAj+o/ Y0Z6dCF2Kr1aPZP4uKe9x4A28fGEz8mfPhIfn95s7yNN6i8xRYc7atWB39V7 /zxvY+Ck7yBvMfGFZTL2Dz6vpMNwNPJnIOk/x2PFUj8f82At9p098pCGwEvJ w96OPUjvURlfrMmGmcS7FkUmB/7T+o44VgjgNvu1wzKS74vd8xZ4OlcgpTBe q0uKhs79rCcKZP9T5Pa1bVhegbNjv2aEjTVj3lGnr2djKCS7zrERCaqFa0WE s3seydl3smI2P+rEXIXT509eqsAu80XLp2jR0D/+6u66+RQmFl3yc2YL4GR5 efpnYyEkGHNuaLaxUbjGS/f7DTZKbxm57O0gHHDH1u/F/z+v3P1lkW1/J4ZP Xmj59YiJsai348Mknzo1j3QUkXltYb5KVBgRoMvk3jvxk8QnZ56Yr/qGj2cn v8V3ifWhSfPYp+JRLnRN/9xvLe3FKpeJmn5FLlgbD/s/PEt44J1z+vdbfDCv yRZwFfqQY5ysPZTAxsPeyq3Fe+tgOiVEL3xfG5bz7ms2F/Gw0XzBXbG3NGQe fJk43asHMizxwlMUF9GM43/E4psgeMxYy9zRBfFVZ4JXn2TC7uVxqYKOSnCy c6e5FdPALhuOMs5kY773ro4dQpJHZjyTb9IQ4Pb2teULRtiQ2bt/xcNQNm49 9S81esXHctWnDAMfPlTLbVNCiK9uF4mJf5NM8hPdIvIbyVFxe6fqR5YKMFC7 TyrZWYhp82iOL9K6oZQSs/J1dwVcxQyozk00NJr4xV6U5qKqi1736H8Vmocj Vf8fxhNSqVQoKw0jqdCQVT1W0SIZEYkilNJQiVBEJQ2kUGZllArfEiIzxc2M a697nbs1hCTq9/n9Afecz/l83s/zvJ5zjzQFD+XYV5Kkt/HrY6IXEp6Mow3Z lWT2g6F28ufXhkG88Ffa4Ud4uOPk18UztBvAcZ2Zm3azHVOjHqJeqzvxsGOl r++6WgRfNFm5+m8rgpXuWZ8g51Ui3BBGe9qNhbsGJS6EM5ATILHyuS4XY1ts DHrsmKgezV0mnclGdP3ncz6ED839m5etftqJsVj7n743B9AsRVfXdaLgeri2 eK5ZA7g5zir+se0oPDf09yjpa+fDJc/df9wHdplQic8UE/a2bhH1a0hPkSz8 nv+Kj4GeHprfIQFmi+uNgVw/irOj0OtcJ+4//lW50HcAzOqpH7N8KdzV5GbZ 9vLgF+T+fr1AgJWhP5vfEv9kdrLdA4l/RqS55A40CXDnzJ5mp1AOknqcNl3y /YLzKy6POjp0wzA95VPqPgrm1XeHrxnycdtMYt6GZwK8T2y29VZgQ3zOXqsy MxZKlhx8Xh/JQx77T7pc8gC6NVbGBtynIfW37r8VCXTEp8ifkd7EQvxeFxnb ZDZaw9+Nizzj4+y1nh8PzEj/UeOYmtXSkLHlVUgl6XkdVLHZxVUs6C/i2z8n ua0zb+L49g98NG3B8k+Er0tWhg67h9PwqDd3g0IMHYE72rfdvcNA0T3XZR79 NOi1Hqw+UUSHrKax9T/Cme9vGbHunm6HWnrWqTWX+jHNR2J9WxHhVCWVe0HB FMI3PRNq/cJFQa8MP9KbQuryufftR3jQ7+f7evQIiG46K96RnFQ4wXzpac/E f0+zLr/PYoOzpCrbQIMDhrPN74nrzTB49TN/Y3AXDJ60pDuR69peuKU5t4SH bwFDp6KmD4HXY/eH0ifce0h09a7sAZQq2dANeigMW68edKgjPL9yXO6/JzSE PLg6ZJ9Cx+qQYbU9uwg3WtTKS9nx4WHw6v7bhwIkvbPX013KQqO+9vIAUQ5e /9656xTp2Y4qKvEj53lIC6qZH9PZDiOfZu2GbNLHUq+bf9Al3BdopGzRPwhH t0qXWkMuPjxOVZYeYiL6TVWbSXgdml4bOV9JaYNRum97GuHYGe9ftM0s5MPk uYG2NuGWtXMvLna7z4VWOE1PvJgBznVqTqQQ8deSJ1kLJjkwPkObPl7EhMlp nfmVpDe4TQQLXRvohsRbRUmVR8QnHQ3zq9fQUaFwWmGlPQXnOJeEPVp8dDTK Gci/EWBaT8TkOsJXoRfVm9nevYjr1bls6c6EzLcNcdXOXGh+3afFW8zEyJRd trMbG/2Oq8Z50gMQ8h0/ZOlNQ/LBI5n51+gIlatdO0Z8Uhcaxx0KePjeufVK kegQKl5rf54mT+ZtYpZidDENvFrz69XP6HjYGvmjjPj5eHza2Wji5yNe9Ekx 4ueHwo1iGhMo9OVIuIrY8rAjcZFN8m8BFHyMJX+UcBEo4ln8xp+BJQbTR03f sfDl1KJq+R4WjAXr8moesDCnQimkmM7DDSvdKeYYA/dVdGutHD4jlxbVbzBJ emrUb6XwhTxsClXuKq5qg6zVOetla/qBla90Z7RzMCdDuiNkjImxjsV7G6w5 oN+bfVAum/Qcv6/tS6MpfFR3tp1NcUHJ7zZ3/P9372ZZZ0yjuxA7r9Dv1r8B PLaLz2DyuagSrZBp0GDg2X9xIileLDQUbKuMj/3/99mH/TWGWbDPNfE2UOcj tcVii1gD8cd58yOv2tEgZca6sS6Ijk31f6VvSPbD6K+W/YACDYcfDr0Wdqdj 6e9bFsf0KLx/91o3I4KP6OI/sa5+RC+9LlY8co7Xdc4qblbtQ8uvx1nzypg4 I/sv33klD8qMcr9bnwdwhKE6+9s/0peOn9y31IPw/nDbbifVL7CaMRU/Nb8b wUMJ+62WdsPvZtaaXUG1yG1XtyteSseT89ZltW0U6EqpfQ9MudgfLCr+5ZwA SJt79mcNGw/9yl65ER27bv5grFXBBbPWNOVKQBcq+AMeS9xrISFsEFQsRUfc wM0j+mROyquHPa8U8TBT9vYVM8JXH3e+fRfQzcb4xAf3XzYUycek5MhsLvSa 5IccIzmYLVH14NCtL3jz4h7H61Q3XIy+sROqKFRcc8jMqG6ATIRY/7Kudti6 hm6yXkeuk+ejb0N6albg5PujvjwU8biGMee4cE1CnOEwA31/Zod0GbChXN5j nB/Mhld6/qOVw424091+o3Z6JwyttoTminOxM7Q2Km2oBRZH7bIL8nuw0Tuv W4vsc/f0+mPVx3txTgi0ctID9xZ+eDl9ioviuMiK8IUMOIw9adiwi4Uy66ob rWKDmF4lZfsrvQ6NdSEjB/LacDmbViP8m0Ixu+mKeg4H32ZmTxfREKA8O3jD VpJHWdnswGj/PjRpZh47wGUitXH6BjvzPgiZ6M56OlGL1MMXhCTs6LDtdNOR jeXA0uQlZ777ICyEfH4V1ZI53hzESNhCISfmir9dEB9PPu6PybwswO0HzIDD 5hT+K8geTHfmw1yp9OxIrAAhARYMn+VkrtUrIrYEMuE853OrUxPZFzEJB88D bHgWiZ10J+vdS/f2O2nKg/tpzcAbGuQcrbd9SyG5IrVxOZN5WID9m99VSnyg 8Oh5mdz2OC7kPdvnWyYJ0Ii7W+MKBzA3VNY6JYkG8S8bC3IT6RAVUQormtYJ UT+ryUH1Wgw2PLu4h3Dg9HHTq6GdnbCW9LzlvJtwo8QRuaFZdHxM0517nehu JPj1MbPSLvxYvfvNA2kGDGUzNgV9YGDz2eTobwqfofhzbGob6cszY7IKrrky oSymKvai6zPGxzsTjpi0odBhU/JjFQrXWAdDP1XxIf92ZqGlFVnnqm+qt+9Q OO926I/VNR7O2qsFjC4Ygmv/gl9nCOdrlB1O7MjuwbNs+43bxJgotciK/hIx gGlDlz7hLg1nQ5N7vR7QMXLCVzR7OQs/FH86hU+wkfqu84ASnQ/7zg5VubWD 2EPZ0sJa6nDqzG6BLq0Nzet/x0h8YiE8o38950oj3Dy+ixpe78CjFdYeEaoc sF0PxDr8GsRO15A0STviLwHS9XzCRYpvRfeOKvfA/8LWBe+qGIjdOWWy7AcX L+We3FBTZZD+dZ9h5cKCjTjj26EU0uPbXbf8TKHwpy1PtniYi6QmD8bLd53Q vuLtmWpGfNg2SalLjA71sr6ACM1+dJy+sCdQhQZtS+uQak86xFVkzra6sxET V/HpJ49CmGLl1CIdHnZa2AcbmbCwXmar8CWSEz6jEWGRt/jQmz9QPjgyCIan d2Dpp3rcWvfj3PW97ZCJ3S4c9JqLiazGWqsIBl4s1XeT+MzCp7HjPzdPY2Pe N0n5rU8awXk7ffLdiw581wydPL+Z+Ns5u9LXWQPYqJi382wnhZePHZL02Vyc KXGf92t3G8KljUf2cPvAr4mYJfGRi4eGTsxfP+m47trm0XO/D6Nsjx29ZH58 r4os+SPdjeV0yW5xQwYy651sCgZZmHs1K0T9NguRC7J3dNQRHRotKPxmSpHf CV7VePKxuFL9gvIdAUKd9A6M3eXBPiBbIKLeAZFpmlb1Tf14xXca9gqloF1C E/91vgFrmC/Wpr5qh1tb6vrtpzm4lSsm6I8bhGXT++DGvxzc4SYkmpVzsLlA V19aYRDK6uVX9C5xULPu2tDqcgq5SjkrMrK46P71N+htugA3vHtyc0V4oPd4 n2kVZWBahmxK5BbC9w61sxvy2ZjRKm/74CqFTfL96yLauVinIV0pb0VhS4+x 6/RtfIx/KAvXyhDgZNmcwPSb/ThvGiRZb0SDGDlllXNEX6yTue5iPFzWutM8 8rQN3A7FhN4l/ZCSyz+8+jCFUixS617Ix4pL8nrUJwF57lI1G3UWzg4t8e/4 wkbetkSbE5V8vG4ct2CTc03JV3If76Xh3jPbqLpCOq45Xj0Za0lhu7FBQeAO Pu7Mtz2y9gnh6kDxllU1HBQ4zrSTkBhEwq2y/TonOUiWElssrElh0cG/wQZZ fGxtOry05YgAOnkWx58IMfBq8Xnz6tc05F/akO6cQYe2+A2ZPj0urhZqqB8+ 0YrMGyrv5q3thbLIhX1ZdApjkxnfnuzgonx+WrIpyc2ZSiVCu/ZTiE7edq9l PeH8FRZunv8JcH+yhvd3TR9KLb03nh6rha/Lnxl6NkTXilkyl4luVFu/2zOV GBg84v+2/yAL6pYHHdadIOdyJn1+VGk7Dh0z5O1O6YfTzmUuT0nupNkUZK4g uZOyNtniHcmdBV8qpPyJfsTsUguW/OCgfRF0Tu0R4NpL0fEj99gIOfY1QDaH woEVD9yLpvGgdLz1fizJHbPTnqpzmnrhN7vOyf4+E2p65YHpC1m42ZX3IW0L B/dmtq17OMbHTuez7NRJBm6Y1iXauXzGixSLF/OnEX04NdQ4yxL+uJmhmLiU 3JcjTUlx+Kg5+MgxY7IX/3z/CQl/q0XCgXdzJvYSzrf9ZBQlIHP4rLysms2B ID/Nj29O+qBZtmPRdRasuHuerXdsRGWie+UU6bNZO4qaPLTYOFwSXxuowUJ0 oHrCxXM8rHhxqSh1GxulLaUlmZIsvDE2Kspx4kHcW/hnlhkPr7fG1m18MID0 Uzf+RFZTuL2cY/SA6PTXLuG1UfVdiHjYIS21hIE922aWBr3hInLlaW3XSjqM yuU1u7z6sOl8wbp5ZH+YH1Xd+ea9GLDmJOdYM6Fan+x2gORp4i6lHB7R/1XO Sm+DX0zMNZPMUelnwyDheYHtXgpWK+ae2JbJRV6IZeaB3RTuPFs8/GcfHwso m+mfEwV48qpIN+JuP+S4r/osTGj4aPJ9ax3Ri46RhAZDn/TltkwXu3A+Br2i V5kHCFDqInLT0IoLyx0eq4w0mEhgHHQ/eono0+TQc04GhapFceeuyvEQ5MkS 3kf6zvDX8echZJ28GwldXqWE34bPF0iID+LQm8TOvAMsSEWxYuaTFD0/+5i+ GTrwn8ew7FzSryn6c4Opp/34cJJzbEvdIOKUQwdFM1jQrvx9RK2bhVPyMTFM aT7KJIa9s8HFG01lfZ/AVizTfiU+ZNALs4seveWzuLj8UcrD8QkTl5VTfU79 YSPyq72T8sN+qAsFGURtJz3R9l6x3gU6ptSGd//nxsXtxLyBHmYrWBrnnzUk 9CKr8u8coWQmct/EHmxWrUMYt8ra07sNa1hfXCcu92HR6Z7PDsI0rNeZ+bTb gY4cA84Cl3lsqI5tX8LIboQts5mu/rYDkhfmPn5N+HB6wduFcoU8/J6SEdUj PeLNwBFhVhwPR2+d7rWL7ofIWuPV/woHkefs8+i3GAepsxYcUl7ajJNCtUfU l3Th+65crsUSDtTlCl+pHWjGTLvXt1qtu+D113fP+jEuHt25ZPGJzFNQGvOo 5X4WRByXr2kcJ3xuk7eiypcF6vt1+SP5POy9+imWSeawT92r1UK+Gy0nvR5m GDMQ03qndpsZB5Wu0st/k33XWjp5qUuTC+uR0Q1RFAdXHD3sV11tAUumpl3E tgdha87cEr9PYdZx/XPWx0hv+H4q4KvwEKQffhatKh+As2uek1IqDe4aT1Nr kwgne7TmuJDzrVU5GD+9sR+XD5qvcBsbRLR9eEilPBt33339Nf8N4dXFdTTZ sg44pDfXp5P50df6WvOeSXxLZfRrB8mTgsXr23cwuEh9Lr3q+VYG8lSe7Hnl z8Llkr9x9nP7oRslYjQhR0NzfCZfw42OkMef/OOJjh65sQJHW3pRJl343DiO 8KfzynDPuRTuK7v+y2fV4+BH7TGmSzt0dkRQ4+S+a9ur0pTk+2HxoiDMZNsg 6C6bTxy9QGHOGZqjbwvhpudj+fRhAXwbOlvKjzNxoPeP51rOZ2TuDb6xaWcb qJP/wsYdu3DiVHKYqUstLsHYK2khHeO5MnNj2Gw41quuG95O+kf+Osv4ZC52 57zJC+ZTaH70nhsp4OBBYVOp/i4BblY9nVb5iEJ7vNADq908DN46KnxsVICE 8aIjEiQPb3uIxt21ZCDnXMes7kgWhi2sWs3sGMiKC5Gj1dMQuX3LqeI8OpQf 3VlwgfjB3xklHM0kBhau6HQ+OcCC+ezCzqlgLoTPzE4VH2Dg0g6+rsMqNt5/ VJr8R3hsvn6/LfR6UGZSb/2snoFj1358cyfn+Cxtae3T5n64iIc5/B4fRNe8 ns8H+Gy8yl3bqW5MYSkvfJ/mQy7KFNfveazdi+yaVVPHG2tRcr98XqIJHVx2 Vur3gxSKtlU27FxKeH659PKIMgFcQ9RfqP9k4eIL9aPsAJIDCr1fJ4p5eF5y T7XAnAOpk6dyDZub8Wb841Gpyi4cPbRO7HUMhdNfjnNrSC/KNvtg+XfmEO74 VShOTrEQ6Ps0TP8kyYenotoOOTxsPrV1qQjh5Ff6yg6J1Xx4V2xKlNorQJ30 Pov6UQ78u9/H7/3ARFEEbcGgIgellAq7LIeJpBr1j1c310HLIEXb0K8NHPOe JDchDsq8OicsVClY+J19efYKF+lyPJE5hgNIvkb7YnyRhuOPEkUO3SI917p+ 8bU7vQjf/3bWlt5a8BcI66XvIH7rwL+qr9KHm2tCYjBaC6p1X+h/1nT8GeF6 rdalIO4qem/vbT6Mx03v8Uk/TZDBy/lJ3RAV5YdVR9UiWnr9AqjRsczC7nTA LA6aLP03SyuQeVnunyfkx4XRG7niEaKP6Dz1f92SJIe17o3uJ5xSI7VE7KcJ A/HMQn+1GhpsN7Trbc+hw+dI8+5lDA40VmZRzRQTQlre8t1GhPPoLl5T31n4 XBLflhHEQnMRLSmslIfir1e2PnzMxvZRSZ8eMqer/4XJjn3lgvO7/F3Hfg64 uo65CpPNCMqa6OnkktxLHJKXsWIiceh9WuzHz6CPykh567ZhtdG4rIwKD7M3 BjspjLeRPiL2gG/SjwD79IUpeSxkylZVBNaxUBy/5vz+mXz80vz4XZz4Z+YB /7P5yoTnJnMePbYYxA839k8vwotRuyqfbnjJwzSadFDknCGctnIfaV5FeoKa 4smAAtIT+zMN7zkIsE9HSzmnlkLnWLje4voGGGy/+F2zrx2pRqaL//8eddy0 KeJFWh8qHn/NmZpkkrIt8bw1YAB13tq/Ht+kwUr2x/mjsXQkTR7kfj3BxeLX c9M9p1qxvdHquV9eL2ziJz41O1Nw6+qZm6fAh2+1Nd+8QgDTZaMhLTJkPz9l MWes4OCTlNYHcPl4GOB/bspzEB9XGzcULalHubZGkcbPNhQrWF774cXF4eKB KxdEmSgZ8UoN38vG342vdVzLBiC888zO/BQa2NyqPwnEbx/eTmrdMMKFu/Rg pORyBjZVivp2ktwdjvJ13qHHQ07Cy8qRlwPorXSfLttPoaHrTMLhUBZuT93R 0Z5F+s7VMdvL4ONuxdtPV66x8ML85YF/wmy4zwk0ztHnY3hwif6cFA5Cboc+ nNg3iLGcPbu2v+Vg8l9Gc9ycfvgUtO4uJT68tzpRXZr48ILKDVK5wgOId7aZ 8eYoDRfSLSRMwwifx56Qz1nFgqNP2tF8OhuGaS28BtJfX4harS+9SIHmHHP2 Nukti7PV4y/+EkCRNZrJK2dDc8N4TuR5ChELlnZH0bjYWK6lLhdF9L29IWyG RQfmK3UW+jD74XXoqdjnDxy4yAUGbFvTAg0VTlGCcA8uH1+/YFiEBS9tVZGM 2Y1I1haFxIwOHDG2m/MikYLd6aZRA3Me7ORZSqd+CmCpNlOxxYbCyn9qopLk +WcajUyLeCnA7h3lP/aT+85bwXytFNkBiei+io7/fy+icq2l0oCsf22wbGko H5eVTEdFAwW4O6Zz/v//T60QSmCLbetCffufpncdA5gbfLl0bT0bLfwNN+d4 ULi+fneYYQkXhhPPZuhsGsSs3T8uZ/XVwUdG5fqepjZ4/DmqbdDMxb7fq6+v c2CguXtesM7/3xeKcGwXPeLiaZvvxsWBdEQyw368V+vD8w45Fx0tDhbOkw66 cLsZitXGZTuudkFBqIAaqKNw6291fM8pLnYFlWzbelMAXrrmxpCAfgyYm1a2 babhpeQu7YkzdDgkqE55E72LydLZi8k+xUyKKKz59v+++qDam+jxycJn59xs SW4uPpNjGTSIN7MsF+YxKBi9lhc9xW9AjsLD+o3f2mGtZqjWVUXB5salFevi Caey2z+UJQkwb52fC21rH75amd9Z+7sWelO+E8ds6fgfK7rV2A== "], {{0, 0}, {62, 16}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Large, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7711570246112223`*^9, 3.7711570565790462`*^9}, 3.771165549590096*^9, 3.771183883386612*^9, 3.771239820359016*^9}, CellLabel->"Out[338]=", CellID->466958214] }, Open ]], Cell["Apply a run length-based test:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771165357209673*^9, 3.771165364983837*^9}, { 3.7711654702260933`*^9, 3.77116548074102*^9}, {3.771239944519287*^9, 3.7712399495886908`*^9}, 3.859393083502215*^9}, CellID->412672387], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771165555713615*^9, 3.7711655590568037`*^9}, { 3.77118105112236*^9, 3.771181052318335*^9}, {3.771181137031106*^9, 3.771181140485691*^9}, {3.7712398246490307`*^9, 3.771239826196941*^9}}, CellLabel->"In[361]:=", CellID->941302022], Cell[BoxData["214.01927229706308`"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771181052708378*^9, 3.771181140740326*^9, 3.7712398266038857`*^9, { 3.771239902690024*^9, 3.7712399041549807`*^9}}, CellLabel->"Out[361]=", CellID->120184455] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771165555713615*^9, 3.7711655590568037`*^9}, { 3.77118105112236*^9, 3.771181052318335*^9}, {3.771181137031106*^9, 3.771181146554532*^9}, {3.771239935637827*^9, 3.7712399366511307`*^9}}, CellLabel->"In[374]:=", CellID->565142203], Cell[BoxData["0.37984026534735515`"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771181052708378*^9, {3.771181140740326*^9, 3.771181146854631*^9}, { 3.771239905809705*^9, 3.771239936850526*^9}}, CellLabel->"Out[374]=", CellID->747098276] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Generate a sequence of random integers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771165357209673*^9, 3.771165364983837*^9}, { 3.7711654702260933`*^9, 3.77116548074102*^9}, {3.771239944519287*^9, 3.7712399495886908`*^9}, 3.859393077567587*^9}, CellID->824778600], Cell[BoxData[ RowBox[{ RowBox[{"subsequence", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "100"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711831441289387`*^9, 3.7711831629589653`*^9}, { 3.771239974297011*^9, 3.7712399752040243`*^9}}, CellLabel->"In[375]:=", CellID->1884934], Cell[BoxData[ RowBox[{ RowBox[{"sequence", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{"subsequence", ",", "20"}], "]"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711829413662777`*^9, 3.771182942159625*^9}, { 3.771183051211823*^9, 3.7711830694872828`*^9}, {3.7711831142591257`*^9, 3.771183165107781*^9}}, CellLabel->"In[376]:=", CellID->671832048], Cell["Visualize the sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771157061210312*^9, 3.771157065204805*^9}}, CellID->799483323], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"sequence", ",", "200"}], "]"}], ",", "25"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", "SequenceIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["208", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Sequence[ColorFunction -> "CandyColors", ImageSize -> Full], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711830785880833`*^9, 3.7711830793266687`*^9}, { 3.771183193432551*^9, 3.771183193496882*^9}}, CellLabel->"In[377]:=", CellID->292709817], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztluk/1GsfxydblBYHSenYOpbspcWh8zkVhVKUNVkrW5aQlkNJG46EKKYU EQpR7rQolSnKKErMWGaYMfMz208nLW6hOnP/D/dDD76v1/XoenC93tf7+9YN jtm+V5ZCoShKR1M6/ztz8yg23wwJvEpkSSSNEjhejvMmPUgMsMrWBOWIYZNI P3DoQi8S8xRHIhS46Hr1p0vxnn50RlVqUoPoqHiQaLVClYEyt7PqsXoEHhn4 pZq3S+95c+vKD2cS9ewmeao2F+/ehxk5xbRh/bzLsbLpDJgJLu5QCRLipmZK ht8tPhhKnwWPVUSgp3ktVr7Hh+e+wDoysR27SzrdqAY9uHZ0VHXGhACevI0L yy0IVFAfuav9LUKkj5ZqNFWM9cHKso0MDuJd6oiJKT5SjFuTNykOo+agwpbx fULwzWOa5eeQ+OqitarqixCdrUSC1UsexvO6XEU6Qpx+tcNFj0kgXuQQm7ZJ hMWz3PRwiIQ988iqGRfEaP2aE5D4OxsvjYNVHTqG8CJ+MG4Pk4u5Oht2tFa0 4bvTZ726awyYh29zbTIRQXNv3ZD7xm5U0kwVhxQH4FiSfDl+vwjLOzK23p8Y wlhygOmYvQBua1/RZzOEsD+VY2bj0wXVoeKsP8zY2P7evJz6oRfk8qmKxUZ0 sPNX9KtPdCOsJXXEIZJAS1nWOuOvYoQaL13ZzyLhqvzhls9OLozYRd3eKW2g U5+4CLIZ6BiOSdfZTSChpezc7PkSyOukZrTSSQQ4sfe0BIsx9v4Ba18EF+SN vuTAiwT6G/xL1bQIDOm+sOJyJPhuExgf9QcJtdvwddosQNwP91cnlIfxhSwK X+ApxofIFWcmhwncfh7p0EARIUlc+vi7O4msmasrZ54XIyWDuNNh14cLAevv +npz8Qvt+Nk1hwagkZVdcLyPjkuyLiFyjgwY5h1LSRohED5r/9MqnhCNSX4/ P2wksW1FlfntHQQ23u/Qi1orgVpIzDqnahKlNTsuKTMIFHkVawZtESFwW8Ku /CMkvAwrQsM9CMSayVnvWiNB87X+f27Xklgsk7dNiSKEw4S2oblSJ64Z00M7 FfthV+HhsFnKOb+e9WBvci/uhDw+UzjJgZjqbBSxm4faQkvaBPs1PJ1zTpTZ M9E8W+uLWiEf4qASa4td7TC81SezUb0HMzecp0lqBLhx6BSZdY6A37nyn0+5 IkwKD9vpXxTj7k/Zbar+A7DbVZym7M/DUf/NowbSd6w+2sGv3Cnl0dKWUS5H wnq1l+1BKW+ndP8Trnebjc4HFAFHkQcNpaRzWw8QyPe5P5XBFsNuJ8+5gSRR 8Dv1RJahGN8+Mtl2r7nQeNvhUfCTgFlPyj9n+0V4IiJcbpgyET3PLjewbRD+ Pg3icEsCO5Q+0bTKJDh7ulOeGkIibA4nojaVjYaoZNPaejpmSwZ4H1YzEEU7 nZ99nEDgaguFUw/FMH33W8eo3AjYJm7rqsLECEpo9K8N5MInZ26oIIPAfz0O l9cUD6O71N7blD+Mrn3un5yXSBBdXZSxp1sAY4vw6pW57+DWNKKUcbkPZlfO aa1cyEf2lP+vkw1voEDNe7mpkYmmHxLWXU0Cq36NvNMvkEDjF8uGxzYkZCZy V1zhD4HmeTV6Yv1r1HDyvyp9ZIDq/TFtr7kQXqpDLdHpnWC6bpoqSu7HVsPu aHfTQQgPLqB4jdHRlB2TZ+bOgLoGS1y0jICms8qYzj0JzthmmBn7ksi992ww az+B6hS5T5lCMebqlrq6EyQ8d8tuCDgi5crGL/ZGuxhrQutUHo+RcNNZ+FeI L4GB8RBuk4EEB/2215x+RCL7vi/v5nERDLos4v4ZlPpiXCXd0EgApsuY9tMZ HGTlLQ4N12iDGoejXxzMwKSl36TQn8BbLYWO/VoS1M860nyARiLYwfxk6nYu 9hdYe48ea8PuXfOi+rIY+I3+ez1rgQgH9FQ805S7kT2Xf9PrPRs5l+THFKQ+ TNgvJyco4UDW+89zq+l8LEn1fS4xGkZizud8/T4BlPfOdjncIsG1NtOs6+cJ cJ9F389L70DD0pAz9Ic9sJv8nCSQcnvVMb95t/4g3ka+Vqh8wsO+R1uPe0z0 4cr7I6Xr3ehQCFqmNl+ZgYGx2gv2csPQbh0z4R8V4vGT2oA76iQ8nvu/vawh 5Xx8qTDRUIgaknGdJ5Gg+Ho+jRNI4D6r52fFAgmyt9YrebeQMDfXDl2pTaDV 8e2+WqYEP90EsZftpX5TK3Tokv73NbZhcwhHEa73hNEFUj8vU7HI+3KBA92/ Dsz9Zt8GSub1yNSDDFh2LapnzGKjIDau6FgJHU9zn3eftWBgi76OK0W67+5Y Hch5+UyCnZnLqRSpr3Lzqpi2QgEas106tTYSMFS7tKbrqgj3IkZ2bqEJ0PJG pjvY/x36ZzakFUb0IZD4+JK6SoA3Vknqh5vfYorGmJjR2YtCVgf90iiBqdCP F25+78DQDcEJw289WPdi8syKTAJ/nz7pxJD6xmq+jKyyxgiSatO5D8QixDU8 Gy/2ZOIFvbxg3adB3EL8qiInAr1BCsOyvhIsynxnHlJAIvUHC76JBML8rq5/ /0qMR1+HyismSERMSsb9bEUQWaXOD9vOQ5gtpdCpVIA55lm04DEhRP3R/r4v eHh+XsGRtUTqV60gd/YIHxHsd2zDZ+3IjF3ZxtzcA9+9xmtTKoegyx6Y+Wmy DWUuzZMbWhlIyLl9sZYlwGjGi556dwKFKctUXatFmJ17ONde6muVYqH6Rx4P 88smaV0QYtN2uVSFTCHqCrickDg+MpIq7VV7hYj73pzrO5OPN7c2ILj8DbD6 Rq5SHRMmp6opAT1DsE4sN5e1fo0ZjV2VAwIG/qSMipe7CWGy5+5AZBMff2gr +9ovFUEmeqVJMpeA5aWGcDtNEXpzGgx6A0ksPMZpl5HuodYqI0rCXR5MlkSK mpSFsC2bp3ZN2hndKSPBJbHtiIpnBU7q9KCE0zI/Oo6LcqVZzKdpbYhd9FRf P48BPdoc+XR5IU7a2Zz+RZdA9MOFJ68kiRDzTf3ToTY+LBenGmhdbAe3d1MY 37oHts4iGZ9mLgjGrnVrS9owp2qoxaGIgem+mu6r6b6a7qvpvpruq+m+mu6r 6b76//bVv3Kwoyo= "], {{0, 0}, {25, 8}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Full, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771157696617467*^9, 3.771182503630843*^9, 3.771183079617614*^9, { 3.771183124938888*^9, 3.7711831956903687`*^9}, 3.7712399814754553`*^9}, CellLabel->"Out[377]=", CellID->336317723] }, Open ]], Cell["Attempt to reject a non-random sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77118292653251*^9, 3.771182937203691*^9}, { 3.8593931902223177`*^9, 3.8593931979666348`*^9}}, CellID->322115264], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771239989491234*^9, 3.771239999357135*^9}}, CellLabel->"In[379]:=", CellID->803471248], Cell[BoxData["299.98177490630667`"], "Output", TaggingRules->{}, CellChangeTimes->{{3.771239993295302*^9, 3.7712399996677513`*^9}}, CellLabel->"Out[379]=", CellID->461173432] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"sequence", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7712400031471653`*^9, 3.771240003922166*^9}}, CellLabel->"In[380]:=", CellID->780135399], Cell[BoxData["9.032159583004309`*^-13"], "Output", TaggingRules->{}, CellChangeTimes->{3.771240004206423*^9}, CellLabel->"Out[380]=", CellID->767556990] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["Visualize the sampling distribution of the test statistic:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771181150371621*^9, 3.77118117771231*^9}}, CellID->570185135], Cell[BoxData[ RowBox[{ RowBox[{"samp", "=", RowBox[{ RowBox[{ RowBox[{"RunLengthRandomnessTest", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}], "/@", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1000", ",", "1000"}], "}"}]}], "]"}]}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711811837793417`*^9, 3.7711811905034122`*^9}, { 3.771181224558073*^9, 3.771181230938673*^9}, {3.771182072840897*^9, 3.7711821035216923`*^9}, 3.771182209357997*^9, 3.771182262378454*^9, { 3.771182306473*^9, 3.7711823107234373`*^9}, {3.771240114888894*^9, 3.771240124856689*^9}}, CellLabel->"In[383]:=", CellID->783623153], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"samp", ",", "Automatic", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771182109354067*^9, 3.771182113173534*^9}, { 3.771182311885886*^9, 3.771182340315425*^9}}, CellLabel->"In[384]:=", CellID->91774142], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztndtTG1m25nvmvMzjPM/b/Bcn5mViHuf1TMz7nBPTXO3CoGoP95K5BzRu AwbKyDTddgHlgkLYgi7b0BR021AIMEWBAgi6ANEypgU2pgQI2ULMOqxwOp0p QJCJdl6+XxCEcu21c6+EvdennTsv//Xfsv4l5T/+6le/cvwn+vUv//r//kdO zr/m/a//TBv/+zNHeupnv/6///Ozz3+d+uucf/63fyLjf/8Pv/rVfyH/f/98 BAAAANiGlJQU0SEAAAAwPVATAAAA2oGaAAAA0E6KDNGxAAAAOBGfz9fe3t7U 1OR2uxcWFs70393d7e/vb2lpaWtrGxkZCYVCCoeNjY2enp7m5mba7fj4+P7+ /nn3IAciAgAAxqevry/lUyjPn+JPmd/hcMj9CwoKNjc3JYexsbH09HS5w40b N96+fZv4HhRATQAAwOAEAgHK/KmpqU+ePFlbW/N4PJzeZ2dnT6ricrnIoby8 fGlpaX5+3ul00mZFRQWXBoPBjIwMsjQ0NNBORkdHi4uLafPmzZsJ7kEN1AQA AAxOTU0N5erOzk7J8uDBA7LU19fH9V9YWKDStLS0nZ0dttAHnomsrKzQJs1r 6HN2dnYkEmGHn376iSzkEw6HE9mDGqgJAAAYGUr4NCuhXL26uioZaYZCFrKr FzuInp4ennfIjY2NjWTs6uo6OhaL7u7uZ8+eSaW//PILz3dev36dyB7UQE0A AMDI0FyAhSMWi8ntPFNYXl5WV6E5CxX19fXJjTwfqaurU/uTJP3xj3+k0uLi 4ovt4QhqAgAAxsbn81GidjgcCjsvkcddOqmqqqKi4eFhuZE21QsfwWCwpqaG hYl2uLS0dN49SEBNAADAyMzMzFCizsvLU9h53XxqakpdpaysjIpGR0flRq/X S0an0yk3/vjjj9IlW59//rmkTYnvQQJqAgAARmZubo4SdX5+vsJO+kJ20hp1 lcrKSioaGxuTG0kayEgyITe+e/duc3OTpj9ffvklawo1d649SKSouMDBAgAA uCQCgQBl5qysLIWdLGRfXFxUV2lubqaiwcFBuXFgYICMtbW1JzX0xRdfkMP9 +/cvtgfIBwAAGJlQKMRf9aWreYmDgwM2BoNBdZWOjg4q6u7ulhtpk4ytra30 meYjs7Ozb968kTt899135FBYWJjIHtRATYAu/Ob//DeNP6KPAADjwgvuXq9X soyPj/MNI3H9ebm8qKhIbiSZIOPQ0BB9vnXrFn3+9ttv5Q60ScaamppE9qAG agJ0geQg+qL4wj9QEwBOgR+rUlpaure3R5v0u6SkhCwej4cdtre3Jycnp6en eTMcDvN5MGkZ/fnz57SZk5PDz9riachnn3328uVLdlhdXb1y5UrKhwe2nLkH NVAToAtQEwAuD0rgnNtzc3NdLhf95murotEoO/BUJTU1VarS29vLlrpj+P5H cuPSg4MDviSMJyNNTU18kTCJ1Lt37xLZgxqoCdAFqAkAl8rGxgbNTaTLpSjt BwIBqXRiYoKMGRkZkiUWi9GMJjMzk/2pyO12y3f45s0bXmpn0tLSvvrqK/md 9WfuQQHUBOgC1ASAJECTFL/fv7W1pbgv/iQODw/X19dJd/jpW2pIPpaXl8nh /fv3F9uDBNQE6ALUBACbAzUBugA1AcDm4L5FoAtQEwBsDkQE6ALUBACbAzUB ugA1AcDmQE2ALkBNALA5UBOgC1ATAGwO1AToAtQEAJsDNQG6ADUBwOZATYAu QE0AsDlQE6ALUBMAbA7UBOgC1AQAm4N74YEuQE0AsDkQEaALUBMAbA7UBOgC 1AQAmwM1AboANQHA5kBNgC5ATQCwOVAToAtQEwBsDtQE6ALUBACbAzUBugA1 AcDmQE2ALkBNALA5uHsR6ALUBACbAxEBugA1AcDmQE2ALkBNALA5UBOgC1AT AGwO1AToAtQEAJsDNQG6ADUBwOZATYAuQE0AsDlQE6ALUBMAbA7UBOgC1AQA m4O7F4EuQE0AuGx8Pl97e3tTU5Pb7V5YWDjTf3d3t7+/v6Wlpa2tbWRkJBQK KRyCweCjR4/u3r17586d3t7etbU1eSn5P4nH5uZm3OYgIkAXoCYAXCp9fX0p n0JKcYo/aYHD4ZD7FxQUyIWA9CU9PV3ukJqaKt/nixcvUuIxPT0dt0WoCdAF qAkAl0cgEKDMT9mepgY0g/B4PJzYZ2dnT6ricrnIoby8fGlpaX5+3ul00mZF RQWXvnz5kqWktrZ2fHychOP27du8z8XFRfZ5+PAhbZaWlj74lPX19bgtQk2A LkBNALg8ampqKFd3dnZKFsrqZKmvr4/rv7CwQKVpaWk7OztsoQ8sHysrK7T5 6NEj+pyTkxONRtnh8PAwPz+fjF9//TVbWF+Gh4cTDBJqAnQBagLAJRGJRGhW Qrl6dXVVMtIMhc9N7e/vq6v09PRQaUNDg9zY2NhIxq6urqNjMbp+/Tr9ljtQ ETmQiPBmbm4ubS4vLycYJ9QE6ALUBIBLgmYTLByxWExu57lG3GxPcxYq6uvr kxv7+/vJWFdXd1JDVVVV5EBKdHS8gs8nvh4/fkx7Kysru3v37tTU1ClxQk2A LkBNALgkfD4fJWqHw6Gw8yJ73KUT1gXFSSralC+dKOBS0iyWp/n5+bhL8G1t bSfFCTUBugA1AeCSmJmZoUSdl5ensBcXF5M97nyBphJUNDo6Kjd6vV4yOp1O tT/thE+mSee+nj59yvLxzTff0OTI7/e3trayZWxsLG6cUBOgC1ATAC6Jubk5 StT5+fkKO+kL2Ulr1FUqKyvVaZ/EhYwkNApnmpWwlNTX179//56NwWCQqisu Bm5oaCC36urquHGqJzLnOkwAGKgJAJdEIBCgzJyVlaWwk0V+Qa+c5uZmKhoc HJQbBwYG+JJguZHX64mWlpZ3796dHsnk5CR5Xrt2LW4p5APoAtQEgEsiFApx wo9EIpLx4OCAjTSJUFfp6Oigou7ubrmRNsnY2trKm7FYrL29nXdCRYol/rdv 3/r9fvotN/I5N6gJuFSgJgBcHrzg7vV6Jcv4+DhZsrOz4/rzknpRUZHcWFhY SMahoSHevHfvHi+7j4yMqPdw8+ZNKm1sbJQbeSJTVVUVt1GoCdAFqAkAlwc/ VqW0tHRvb4826XdJSQlZPB4PO2xvb09OTkrLHOFwmM+DSQvxz58/59sV+Wld vBZDPHv2LPoph4eH5CDdbi9dgUwfMjMzT7mfEWoCdEG7mmj5EX30AFwuJAGs Drm5uS6Xi+8rdDqd0p3sPFWhiYZUpbe3ly11x/A6O7lx6Y0bN+JeAEzcunWL HPb39wsKCthSXV3d1NTEt7fU1NRIjSqAmgBd0K4mmNcAcAobGxs0N5FyPs1N AoGAVDoxMUHGjIwMyRKLxWhGw7MJLnK73VxEs4+0tLTT1YTY3NwkEZHsV69e 7ejoOElKjqAmQCegJgAkAZqk+P3+ra0txaL5SZBwrK+vk+6Ew+GLtUgVqfqr V6/4DNgpQE2ALkBNALA5UBOgC1ATAGyO/HSZ6FiAiYGaAGBzICJAF6AmANgc qAnQBagJADYHagJ0AWoCgM2BmgBG4/2DUBMAbA7UBDAC5QBqAoAFgJoABmoC ANAC1AQwUBMAgBagJoCBmgAAtIC7FwEDNQEAaAEiAhioCQBAC1ATwEBNAABa gJoABmoCANAC1AQwUBMAgBagJoCBmgAAtAA1AQzUBACgBagJYKAmAAAtQE0A AzUBAGgBagIYqAkAQAu4Fx4wUBMAgBYgIoCBmgAAtAA1AQzUBACgBagJYKAm AAAtQE0AAzUBAGgBagIYqAkAQAtQE8BATQAAWoCaWAnKq1p+oCYAgAsDNbES GnMy1AQAcGFw96KVgJoAYGF8Pl97e3tTU5Pb7V5YWDjTf3d3t7+/v6Wlpa2t bWRkJBQKKRyCweCjR4/u3r17586d3t7etbW18+5BDkTESkBNALAqfX19KZ9C ef4Uf8r8DodD7l9QULC5uSk5kDqkp6fLHVJTU+X7PHMPCqAmVgJqAoAlCQQC lPkp2z958oRmEB6Ph9P77OzsSVVcLhc5lJeXLy0tzc/PO51O2qyoqODSly9f spTU1taOj4+/ePHi9u3bvM/FxcVE9qAGamIlbKsmGn9E/98AOIOamhrK1Z2d nZLlwYMHZKmvr4/rv7CwQKVpaWk7OztsoQ8sHysrK7T56NEj+pyTkxONRtnh 8PAwPz+fjF9//XUie1ADNbEStlUTjU2L/r8BcBqRSIRmJZSrV1dXJSPNUPjc 1P7+vrpKT08PlTY0NMiNjY2NZOzq6jo6FqPr16/Tb7kDFZEDTVIS2YMaqImV gJpATYD1oLkAC0csFpPbeaawvLysrkJzFirq6+uTG/v7+8lYV1d3UkNVVVXk QDpysT1ATawE1ARqAqyHz+ejRO1wOBR2XiKPu3TCujA8PCw30uYpCx9cSprF 8nSBPUBNrATUBGoCrMfMzAwl6ry8PIW9uLiY7FNTU+oqZWVlVDQ6Oio3er1e MjqdTrU/7YRPpknnvs67hyOoibWAmkBNgPWYm5ujRJ2fn6+wk76QnbRGXaWy spKKxsbG5EaSBjKSTCicacbBUlJfX//+/fsL7IFJUXGuwwSGAmoCNQHWIxAI UGbOyspS2Mkiv6BXTnNzMxUNDg7KjQMDA3xJsNzIq+1ES0vLu3fvLrAHCciH lYCaQE2A9QiFQpzwI5GIZDw4OGBjMBhUV+no6KCi7u5uuZE2ydja2sqbsVis vb2dd0JFiiX+RPagAGpiJaAmUBNgSXjB3ev1Spbx8XGyZGdnx/Xn5fKioiK5 sbCwkIxDQ0O8ee/ePV52HxkZudgeFEBNrATUBGoCLAk/VqW0tHRvb4826XdJ SQlZPB4PO2xvb09OTk5PT/NmOBzm82DSMvrz58/5dkV+1havxRDPnj2Lfsrh 4WEie1ADNbESUBOoCbAklMA5t+fm5rpcLvrN11ZJd7LzVIUmGlKV3t5ettQd w+vs5MalN27cUC+aM7du3UpkD2qgJlYCagI1AVZlY2OD5iZSzqe5SSAQkEon JibImJGRIVlisRjNaDIzM9mfitxuNxfR7CMtLe1MNTllD3GBmlgJqAnUBFgb mqT4/f6trS3FovlJkHCsr6+T7oTD4Yu1mPgeoCZWAmoCNQFAFFATKwE1gZoA IAr56TLRsQCtQE2gJgCIAiJiJaAmUBMARAE1sRJQE6gJAKKAmlgJqAnUBABR QE2sBNQEagKAKKAmVgJqAjUBQBRQEysBNYGaACAKqImVgJpATQAQBdTESkBN oCYAiAJ3L1oJqAnUBABRQESsBNQEagKAKKAmVgJqAjUBQBRQEysBNYGaACAK qImVgJpATQAQBdTESkBNoCYAiAJqYiWgJlATAEQBNbESUBOoCQCigJpYCagJ 1AQAUeDuRSsBNYGaACAKiIiVgJpATQAQBdTESkBNoCYAiAJqYiWgJlATAEQB NbESUBOoCQCigJpYCagJ1AQAUUBNrATUBGoCgCigJlYCagI1AUAUUBMrATW5 WHWNP6L/7QAYAty9aCWgJkKqi/63A2AIICJWwtQ52YxNQ01AMvH5fO3t7U1N TW63e2Fh4Uz/3d3d/v7+lpaWtra2kZGRUCh0kufTp08bGhrIX24k/yfx2Nzc jLsTqImVMHVONmPTUBOQNPr6+lI+hZTiFH/SAofDIfcvKCiIKwQTExPs8Pr1 a7n9xYsXKfGYnp6O2yLUxEqYOiebsWmoCUgOgUAgPT09NTWVpgZra2sej4cT ++zs7ElVXC4XOZSXly8tLc3PzzudTtqsqKiQ+8RiseHh4czMzLhq8vDhQzKW lpY++JT19fW4LUJNrISpc7IZm4aagORQU1NDubqzs1OyUFYnS319fVz/hYUF Kk1LS9vZ2WELfSA9IuPKygpbgsEg71ZCoSa3b98mI8lNgkFCTayEqXOyGZuG moAkEIlEaFZCuXp1dVUy0gyFLGTf399XV+np6aHShoYGubGxsZGMXV1dvMmn zjIyMoaGhlhoFGqSm5tLxuXl5QTjhJoYCu1Xq5o3J5uxaagJSAI0m2DhiMVi cjtLQNxsT3MWKiK9kBv7+/vJWFdXx5vff//9/fv3eSWFNEWhJru7uzxhefz4 Me2trKzs7t27U1NTp8QJNTEUds7JZmw6CjUBl4/P56NE7XA4FHZeZI+7dFJV VaU+SUWb6qUTRj03mZ+fj7sE39bWdlKcUBNDYeecbMamo1ATcPnMzMxQos7L y1PYi4uLyR53vkBTCSoaHR2VG71eLxmdTqfaX60mT58+Zfn45ptvaHLk9/tb W1vZMjY2FjdOqImhsHNONmPTUagJuHzm5uYoUefn5yvspC9kJ61RV6msrFSn fRIXMpLQqP3VahIMBqm64mLghoYGcquuro4bp3oik+ABgsvAzjnZjE1HoSbg 8gkEApSZs7KyFHaykH1xcVFdpbm5mYoGBwflxoGBATLW1taq/eOuwquZnJwk t2vXrsUthXwYCjvnZDM2HYWagMsnFArxV/1IJCIZDw4O2EiTCHWVjo4OKuru 7pYbaZOMra2tan+1mrx9+9bv99NvuRufc4OamAI752QzNh2FmoCkwAvuXq9X soyPj5MlOzs7rj8vuBcVFcmNhYWFZBwaGlL7q9Xk5s2bZGlsbJS78YXHVVVV cRuFmhgKO+dkMzYdhZqApMD3hpSWlu7t7dEm/S4pKSGLx+Nhh+3t7cnJSWmZ IxwO83kwaSH++fPntJmTkxP3aV1qNZFut5euQKYPfNf8SfczQk0MhZ1zshmb jkJNQFIgCWB1yM3NdblcfF+h0+mMRqPswFOV1NRUqUpvby9b6o7h+x/JLe7+ 1Wqyv79fUFDAglJdXd3U1MQ+NTU1UqMKoCaGws452YxNR6EmIFlsbGzQ3ES6 XIrmJoFAQCrlJzdmZGRIllgsRjMa6RlcVOR2u0/a+ZUrV8iHJjhy4+bmJomI 1OLVq1c7OjpOkpIjqInBsHNONmPTUagJSC40SfH7/VtbW4r74k/i8PBwfX2d dCccDl+sRapI1V+9ekW7Ot0TamIo7JyTzdh0FGoCwAegJobCzjnZjE1HoSYA fAD3LRoKO+dkMzYdhZoA8AGIiKGwc042Y9NRqAkAH4CaGAo752QzNh2FmgDw AaiJobBzTjZj01GoCQAfgJoYCjvnZDM2HYWaAPABqImhsHNONmPTUagJAB+A mhgKO+dkMzYdhZoA8AGoiaGwc042Y9NRqAkAH4CaGAo752QzNh2FmgDwAdy9 aCjsnJPN2HQUagLAByAihsLOOdmMTUehJgB8AGpiKOyck83YdBRqAsAHoCaG ws452YxNR6EmAHwAamIo7JyTzdg0V9fyI7rHAaAbUBNDYeecbMamtUcuuscB oBtQE0OBnGyuprVHLrrHAaAbUBNDgZxsrqa1Ry66xwGgG1ATQ4GcbK6mtUcu uscBoBu4e9FQICebq2ntkYvucQDoBkTEUCAnm6tp7ZGL7nEA6AbUxFAgJ5ur ae2Ri+5xAOgG1MRQICebq2ntkYvucQDoBtTEUCAnm6tp7ZGL7nEA6AbUxFAg J5urae2Ri+5xAOgG1MRQICebq2ntkYvucQDoBtTEUCAnm6tp7ZGL7nEA6AbU xFAgJ5urae2Ri+5xAOgG7l40FMjJ5mpae+SiexwwEz6fr729vampye12Lyws nOm/u7vb39/f0tLS1tY2MjISCoVO8nz69GlDQwP5X3gPR5ibGAzkZHM1rT1y 0T0OmIa+vr6UT6E8f4o/ZX6HwyH3Lygo2NzcVHtOTEyww+vXry+2BwZqYiiQ k83VtPbIRfc4YA4CgUB6enpqauqTJ0/W1tY8Hg+n99nZ2ZOquFwucigvL19a Wpqfn3c6nbRZUVEh94nFYsPDw5mZmXHVJJE9yIGaGArkZHM1rT1y0T0OmIOa mhrK1Z2dnZLlwYMHZKmvr4/rv7CwQKVpaWk7OztsoQ+kR2RcWVlhSzAY5N1K yNUkkT0ogJoYCuRkczWtPXLRPQ6YgEgkQrMSytWrq6uSkWYoZCH7/v6+ukpP Tw+VNjQ0yI2NjY1k7Orq4k0+dZaRkTE0NMQyIVeTRPagAGpiKJCTzdW09shF 9zhgAmguwMIRi8XkdpaA5eVldRWas1AR6YXc2N/fT8a6ujre/P777+/fv8/r IKQpCjVJZA8KoCaGAjnZXE1rj1x0jwMmwOfzUaJ2OBwKOy+Rx106qaqqoqLh 4WG5kTZPWvhQz03Ou4cjqInBQE42V9PaIxfd44AJmJmZoUSdl5ensBcXF5N9 ampKXaWsrIyKRkdH5Uav10tGp9Op9leryXn3cAQ1MRjIyeZqWnvkonscMAFz c3OUqPPz8xV20heyk9aoq1RWVlLR2NiY3EjSQEaSCbW/Wk3Ou4ejT+9exD2M wkFONlfT2iMX3eOACQgEApSZs7KyFHaykH1xcVFdpbm5mYoGBwflxoGBATLW 1taq/dVqct49HGFuYjCQk83VtPbIRfc4YAJCoRB/1Y9EIpLx4OCAjcFgUF2l o6ODirq7u+VG2iRja2ur2l+tJufdwxHUxGAgJ5urae2Ri+5xwBzwgrvX65Us 4+PjZMnOzo7rz8vlRUVFcmNhYSEZh4aG1P5qNTnvHo6gJgYDOdlcTWuPXHSP A+aA7w0pLS3d29ujTfpdUlJCFo/Hww7b29uTk5PT09O8GQ6H+TyYtIz+/Plz 2szJyYn7rC21mpx3D0dQE4OBnGyuprVHLrrHAXNACZxze25ursvlot98bVU0 GmUHnqqkpqZKVXp7e9lSdwzf/0hucfevVpPz7uEIamIwkJPN1bT2yEX3OGAa NjY2aG4iXS5Fc5NAICCV8pMbMzIyJEssFqMZjfQMLipyu90n7fzKlSvkQxMc ufFceziCmhgM5GRzNa09ctE9DpgMmqT4/f6trS3FffEncXh4uL6+TroTDocv 1mLie4CaGArkZHM1rT1y0T0OAN2AmhgK5GRzNa09ctE9DgDdwH2LhgI52VxN a49cdI8DQDcgIoYCOdlcTWuPXHSPA0A3oCaGAjnZXE1rj1x0jwNAN6AmhgI5 2VxNa49cdI8DQDegJoYCOdlcTWuPXHSPA0A3oCaGAjnZXE1rj1x0jwNAN6Am hgI52VxNa49cdI8DQDegJoYCOdlcTWuPXHSPA0A3oCaGAjnZXE1rj1zjj+gO C8BHoCaGAjnZXE0Lj1x0hwXgI7gX3lCYOrMh8uQ3LbrDAvARiIihMHVmQ+TJ b1p0hwXgI1ATQ2HqzIbIk9+06A4LwEegJobC1JkNkSe/adEdFoCPQE0Mhakz GyJPftOiOywAH4GaGApTZzZEnvymRXdYAD4CNTEUps5siDz5TYvusAB8BGpi KEyd2RB58psW3WEB+AjUxFCYOrMh8uQ3LbrDAvAR3L1oKEyd2RB58psW3WEB +AhExFCYOrMh8uQ3LbrDAvARqImhMHVmQ+TJb1p0hwXgI1ATffmN5qfCmjez IfLkNy26vwPwEaiJvtg5syHy5Dctur8D8BGoib7YObMh8uQ3Lbq/A/ARqIm+ 2DmzIfLkNy26vwPwEaiJvtg5syHy5Dctur8D8BGoib7YObMh8uQ3Lbq/A/AR 3L2owLwXZQnPbIg8+U2LHi4gqfh8vvb29qamJrfbvbCwcKb/7u5uf39/S0tL W1vbyMhIKBQ6lwNtPonH5uZm3OYgIgrMm5qEZzZEnvymRQ8XkDz6+vpSPoWE 4BR/0gKHwyH3LygokAvBmQ4vXrxIicf09HTcFqEmCsybmoRnNkSe/KZFDxeQ JAKBQHp6empqKk0N1tbWPB4PJ/bZ2dmTqrhcLnIoLy9fWlqan593Op20WVFR kbjDw4cPyVJaWvrgU9bX1+O2CDVRYN7UJDyzIfLkNy16uIAkUVNTQ7m6s7NT slBWJ0t9fX1c/4WFBSpNS0vb2dlhC30gPSLjyspKIg7E7du3aXN4eDjBIKEm CsybmoRnNkSe/KZFDxeQDCKRCM1KKFevrq5KRpqhkIXs+/v76io9PT1U2tDQ IDc2NjaSsaurKxEHIjc3lzaXl5cTjBNqosC8qUl4ZkPkyW9a9HAByYAmCywc sVhMbuepRNxsT3MWKurr65Mb+/v7yVhXV5eIw+7uLp9Me/z4MTmXlZXdvXt3 amrqlDihJgrMm5qEZzZEnvymRQ8XkAx8Ph8laofDobDzGnrcpZOqqir1SSra lFZGznSYn5+PuwTf1tZ2UpxQEwXmTU3CMxsiT37ToocLSAYzMzOUqPPy8hT2 4uJissedL9BUgopGR0flRq/XS0an05mIw9OnT1k+vvnmG5oc+f3+1tZWtoyN jcWNE2qiwLypSXhmQ+TJb1r0cAHJYG5ujhJ1fn6+wk76QnbSGnWVyspKddon 7SAj6UgiDsFgkEoVFwM3NDSQQ3V1ddw41ROZ8x+rpTBvahKe2RB58psWPVxA MggEApSZs7KyFHaykH1xcVFdpbm5mYoGBwflxoGBATLW1tYm4hCXyclJcrh2 7VrcUsiHAvOmJuGZDZEnv2nRwwUkg1AoxF/1I5GIZDw4OGAjTSLUVTo6Oqio u7tbbqRNMra2tibi8PbtW7/fT7/lDnzODWqSIOZNTcIzGyJPftOihwtIErzg 7vV6Jcv4+DhZsrOz4/rzenpRUZHcWFhYSMahoaFEHG7evEmfGxsb5Q58XXFV VVXcRqEmCsybmoRnNkSe/KZFDxeQJPixKqWlpXt7e7RJv0tKSsji8XjYYXt7 e3JyUlrmCIfDfB5MWmd//vw5bebk5PDDuM50kG63l65Apg+ZmZnqK8EkoCYK zJuahGc2RJ78pjX+iB5tIFEow3Pyz83NdblcfF+h0+mMRqPswFOV1NRUqUpv by9b6o7h+x/JLUGH/f39goICFpTq6uqmpia+vaWmpkZqVAHURIF5U5PwzIbI TdR0FFMbs7GxsUFzE+lyKZqbBAIBqXRiYoKMGRkZkiUWi9GMhmcTXOR2u+U7 PNNhc3OTRERq8erVqx0dHSdJyZFF1UTjFzaTpiazZzYzNm32yEWPVHBuaJLi 9/u3trYU98WfxOHh4fr6OulOOBy+mAPZqfTVq1fkeXpbVlUT8w5wUdURuQ0j Fz1SgaWAmhhtgIuqjshtGLnokQoshSXvWzT1ABdVHZHbMHLRIxVYCiuJiISp B7io6ojchpGLHqnAUkBNjDbARVVH5DaMXPRIBZYCamK0AS6qOiK3YeSiRyqw FFATow1wUdURuQ0jFz1SgaWAmhhtgIuqjshtGLnokQosBdTEaANcVHVEbsPI RY9UYCmgJkYb4KKqI3IbRi56pAJLATUx2gAXVR2R2zBy0SMVWArcvWi0AS6q OiK3YeSiRyqwFFYSEQlTD3BR1RG5DSMXPVKBpYCaGG2Ai6qOyG0YueiRCiwF 1MRoA1xUdURuw8hFj1RgKaAmRhvgoqojchtGLnqkAksBNTHaABdVHZHbMHLR IxVYCqiJ0Qa4qOqI3IaRix6pwFJATYw2wEVVR+Q2jFz0SAWWAmpitAEuqjoi t2HkokcqsBRQE6MNcFHVEbkNIxc9UoGlwL3wRhvgoqojchtGrvFH9EAHxsJK IiJh6gEuqjoiR+TnrS56oANjATUx2ggVVR2RI/LzVhc90IGxgJoYbYSKqo7I Efl5q4se6MBYQE2MNkJFVUfkiPy81UUPdGAsoCZGG6GiqiNyRH7e6qIHOjAW UBOjjVBR1RE5Ij9vddEDHRgLqInRRqio6ogckZ+3Oq4uBnKgJkYboaKqI3JE nswDF50kgP4Y8+5FjV97MMDN1TQit1t17QNcdIoSg8/na29vb2pqcrvdCwsL Z/rv7u729/e3tLS0tbWNjIyEQiHdHeQYSkQkMMBx4KZo2raRCz9w0SlKAH19 fSmfQnn+FH/K/A6HQ+5fUFCwubmpo4MCqIlxhpjY6ogckZvowEWnqGQTCATS 09NTU1OfPHmytrbm8Xg4vc/Ozp5UxeVykUN5efnS0tL8/LzT6aTNiooKHR0U GFNNKCrz9nMt1XHgpotcS3WB/26zH7joFHVBLpxva2pqqG5nZ6dkefDgAVnq 6+vj+i8sLFBpWlrazs4OW+gD6REZV1ZWdHHQ8eguFSRVHLhZIoeaCDlw0Snq glws30YiEZqVUN3V1VXJSDMUspB9f39fXaWnp4dKGxoa5MbGxkYydnV16eJw rqPTIjQaRUpjZ9NSXWDTYqsjckRuogPXsoIvNrNdoBbNBVg4YrGY3M4zheXl ZXUVmrNQUV9fn9zY399Pxrq6Ol0cznV0UBNbVUfkiNw+By4ws12gls/no4oO h0Nh5yXyuEsnVVVVVDQ8PCw30qa08KHdQc3paqJF/TV+ebBtP8eBm6hp20Zu 9gM/LXefipBp0czMDFXMy8tT2IuL//1Ypqam1FXKysqoaHR0VG70er1kdDqd ujioOV1NzNtbzNg0Dtx0Tds2crMf+Gm5+1SEND03N0cV8/PzFXbSF7KT1qir VFZWUtHY2JjcSNJARpIJXRzUfxkAAABG4CQ1CQQCVJqVlaWwk4Xsi4uL6irN zc1UNDg4KDcODAyQsba2VheHuIJy0iEAAAAQTigUYrmJRCKS8eDggI3BYFBd paOjg4q6u7vlRtokY2trqy4OaqAmAABgcHjB3ev1Spbx8XGyZGdnx/Xn5fKi oiK5sbCwkIxDQ0O6OKiBmgAAgMHhx6qUlpbu7e3RJv0uKSkhi8fjYYft7e3J ycnp6WneDIfDfB5MWkZ//vw5bebk5PCztrQ7qIGaAACAwaEEzrk9NzfX5XLR 75Tja6ui0Sg78FQlNTVVqtLb28uWumP4/kdy09FBAdQEAACMz8bGBs1NpCV7 mpsEAgGpdGJigowZGRmSJRaL0YwmMzOT/anI7XbLd6jdQQHUBAAAzAJNUvx+ /9bWluK++JM4PDxcX18n3QmHw5fkAAAAAAAAAAAAAAAA0M6bN29u374d96Ll qampjo6OxsbGzs7OFy9eqB3O+y5LIxAMBh89enT37t07d+709vaura0pHBJ5 XaYlD1yXv4zRODw8/OGHH7gbf/XVVxT2+/fvT3KmI2ptbf36668Vdqse+KtX rx4/fkzHRUf99OlT9al4M/bzRA7ckplNOJFIhJ8n9oc//EFup/8IPzxfDlnI Lvmc912WRoC6Fj84WiI1NVUediKvy7TkgevylzEa0o0AcgoLC1+/fh3Xn7IH OVy/fl1utOqBj42NSRcIMXTg9N1ScjBjPz/zwK2a2YRDI+K3v/0t/7kUavL9 999zPunp6VlcXKTfnGr+/Oc/s8MF3mUpnJcvX/JR1NbWjo+P03cSmpRx2NLT dc58XaYlD1yXv4wBoXkWBXnt2rVvv/2WDoT+WZ9//nnKCY82+utf/yolVbnd kgdOsxK+YYFmJeRAE5Pf/OY3tEn/d3YwYz8/SuDALZnZhEN/vStXrkjiq1CT hoYGMtJXNcly584dsty6dYs3z/suSyPw6NGjlOO7R6WbjOgLSX5+Phn55EYi r8u05IHr8pcxGu/evcvIyKAIBwYGJCM/dpXY3d2VO//jH/+QhoNcTax64DTe 6TN9mZS+k09NTaUc38VA1Y/M2c8TOXBLZjbh8DeTqqqq+/fvq9WEX/UlN/IT xqqrq48u9C5LI0C9ghIF/ZYbu7q6pK9kZ74u06oHrv0vY0Do63dxcXF2drYk BEeyp/P5/X7JSBrKT/zmb7ZyNbHkgVM3ZkGUP6KQZGV6eprmX7FYzKT9PJH/ uCUzm3BIR8bHx6kLfffdd2o1oZlLyvFTl//2t78dHb+8kieMfP7wAu+yNCz8 UjNKGkcJvC7Tqgd+psMFXiRqTPjlFPQflD8A9uHDh3wyhP+/cjWx5IFvbGyk HL+hg77Mz8zMUDolZZycnJTmKVbq54r/uH0ymxD+9Kc/qdUkHA63tbWxpvMT aQiaA/7yyy9HF3qXpTHhJ3NS5+F+cubrMq164Gc6XOBFogZkb2+PX5Ann2tQ VqHDpE7++vVr+kaqUBNLHjifvisrK+OzOhL0/dxiA1z9H7dJZhNFXDV5+/Yt n2CU8+DBAz6neoF3WRoQipNntdIZnjNfl2nVAz/T4QIvEjUalEYoW1LAn332 mXTlEhkLCgrI+MMPP9CmWk0seeBjY2PSoG5tbR0fH3e73bzi4HK5jqzSz+P+ x+2Q2QQSV01+97vfpRxfCUliHQqF6Dc/S//mzZtHF3qXpdGgr5ecMOvr66XL 0c98XaZVD/xMh/O+SNRoUA5hXaCcSZ1ZsvNi9J07d3hTrSaWPHDp6jX525f4 FBBBczQL9POT/uOWz2xiUasJTQ/T0tIopcifirmxscEnD3d2di7wLktDwUur REtLC38nYc58XaZVD/xMhwu8SNQ4UNflZ4bTv0n+P+LTGinHlwCNHsMLKPRV lj7/9NNPRxY98NnZWT5wPr3D0LjmbxFUavZ+ftKBWz6zCUetJtPT02T5/PPP FZ58WxB9T7vAuywNQiwWa29vl76YKdbaznxdplUP/EyHC7xI1CD8/e9/55Pe lF5evnwpL+Llj5O4cePGkUUPnHMmobj5nb+lT01NmbefH5164BbObAZBrSZL S0tkIb2W/0kPDw+vX79Odn6h2HnfZWkQ7t27l3K8uDwyMqIuTeR1mZY88DMd LvAiUSNAafPatWspx2el3r59qyj9+eefOz+FZyIZGRn0+cmTJ0cWPXASEV4l kS8rk5HvuNne3j4ybT8//cAtnNkMglpNqF9dvXqVjG1tbdJ3VL4qkv4RfC33 me+yNCB8UpR49uxZ9FP42shEXpdpyQPX5S9jNKjr8hVZX3zxBQWpOK64VdTr JlY9cJ5z5eXl8ckuaWYqLRmYsZ+feeBWzWzGIe4q/F/+8hdOL/Q17Pe//z2v RRKPHz9mhzPfZWlAbty4cdJpDelO2DNfl2nJA9flL2M0+Obuk+DbDRSo1eTI ogf++vVrEsSU44eQfPnll+Xl5SnHkzJpacCM/TyRA7dkZjMO9GekP9e9e/cU 9omJCZ4AMjQBpG9lcofT32VpNOg7dlpa2kk9TcqZibwu02IHruNfxlBIT1iK y88//6yuwnc9Ky4QteqBv3nzpra2lsWRu/GPP/4o34+5+vlRwgduscxmIra3 t/1+v/zJogrO+y5LU5DI6zIteeBnYtsXiVr1wCORCGmo/FEkCqzaz+2Z2QAA AAAAAAAAAAAAAAAAAAAAAABD8f8BTqQkrQ== "], {{0, 319}, {538, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538, 319}, PlotRange->{{0, 538}, {0, 319}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771182836120946*^9, {3.771240118109858*^9, 3.771240130941201*^9}}, CellLabel->"Out[384]=", CellID->354999387] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dist", "=", RowBox[{"FindDistribution", "[", RowBox[{"samp", ",", RowBox[{"TargetFunctions", "\[Rule]", RowBox[{"{", "NormalDistribution", "}"}]}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771182277292694*^9, 3.771182323301115*^9}, { 3.771240135315916*^9, 3.771240138045678*^9}}, CellLabel->"In[385]:=", CellID->784608192], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{"218.5790176099509`", ",", "15.169424506331676`"}], "]"}]], "Output",\ TaggingRules->{}, CellChangeTimes->{{3.771182287975947*^9, 3.771182324026404*^9}, { 3.771182432342288*^9, 3.7711824418009443`*^9}, 3.771240138490991*^9}, CellLabel->"Out[385]=", CellID->475221601] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"samp", ",", "Automatic", ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{"dist", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7711823270217237`*^9, 3.7711823532935667`*^9}, { 3.771240144195161*^9, 3.771240149048267*^9}}, CellLabel->"In[388]:=", CellID->953526878], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvedTG9+/5/nb2Sf7cB7Ps/0vtu7cvffO1K3amrs7s1V3UtU++No4EG1j gv0lGQQimWQyBoGxiSYKEJhogk0SCDAGvoCxAWGBMRkLECKI/eAjjtutgACh Dvq8qkul/vQ53afD+bz79En/+y3vf3X9N3/729/8/jf4+VeXP/+Dr69L4H/9 t7Dy3x/4ebg9uHvnPz3wv+t21/f/uPW/gvEf/5e//e3fQfjT/ycIgiAI4jS4 urpynQQEQRBE8KCaIAiCIFcH1QRBEAS5Oq4MuE4LgiAIYpGJiYni4uLMzEy5 XD41NXVu+J2dnYaGhpycnPz8/K6uLq1WywqwvLxcXV2dlZUFu1UqlXt7exfd AxMUEQRBEP5TX1/v+jvg562EB8/v5+fHDB8cHLy6ukoD9PX1eXh4MAOEh4dv bW3ZvgcWqCYIgiA8R6PRgOd3c3Nrbm5eWFhQKBTEvY+NjVmKIpPJIEBUVNTM zMzk5KREIoHV6OhosnVlZcXT0xMsaWlpsJPe3t7Q0FBYTUpKsnEPpqCaIAiC 8Jz4+Hjw1aWlpdRSVlYGltTUVLPhp6amYKu7u/v29jaxwB9SEpmbm4NVKNfA fx8fH71eTwJ8/PgRLBBGp9PZsgdTUE0QBEH4DDh8KJWAr56fn6dGKKGABeym lR1AdXU1KXcwjRkZGWCsqKg4+SkWlZWV3d3ddOuPHz9IeWd9fd2WPZiCaoIg CMJnoCxAhMNgMDDtpKQwOztrGgXKLLCpvr6eaSTlkZSUFNPwIEmvXr2CraGh oZfbwwmqCYIgCL+ZmJgAR+3n58eykypys1UnsbGxsKmzs5NphFXTio+VlZX4 +HgiTLDDmZmZi+6BgmqCIAjCZ0ZHR8FRBwYGsuyk3nxoaMg0SmRkJGzq7e1l GgcGBsAokUiYxg8fPtAmW/7+/lSbbN8DBdUEQRCEz4yPj4OjDgoKYtlBX8AO WmMaJSYmBjb19fUxjSANYASZYBoPDg5WV1eh+PP8+XOiKXC4C+2B4mrCJU4W QRAEuSY0Gg14Zm9vb5YdLGCfnp42jZKVlQWb2tramMbW1lYwJiYmWjpQWFgY BCgsLLzcHlA+EARB+IxWqyWv+rQ1L7C/v0+MKysrplFKSkpgU2VlJdMIq2DM y8uD/1AeGRsb29jYYAZobGyEACEhIbbswRRUE8QuPLr5d1dcuD4DBOEvpMJ9 YGCAWpRKJekwYjY8qS5/8uQJ0wgyAcb29nb4n5ycDP+rqqqYAWAVjPHx8bbs wRRUE8QugBwcDYdeekE1QRArkGFVpFLp7u4urMJvREQEWBQKBQmwubmpUqlG RkbIqk6nI9/BaDV6T08PrPr6+pKxtkgx5MGDB4uLiyTA/Pz8vXv3XM8GbDl3 D6agmiB2AdUEQa4PcODEtwcEBMhkMvglbauOjo5IAFJUcXNzo1FqamqIJeUn pP8jBCNb9/f3SZMwUhjJzMwkjYRBpA4ODmzZgymoJohdQDVBkGtleXkZyia0 uRS4fY1GQ7cODg6C0dPTk1oMBgOUaLy8vEh42CSXy5k73NjYIFXtBHd396Ki ImbP+nP3wALVBLELqCYI4gCgkKJWq9fW1lj94i1xfHy8tLQEukNG3zIF5GN2 dhYCHB4eXm4PFFQTxC6gmiCIk4NqgtgFVBMEcXKw3yJiF1BNEMTJQRFB7AKq CYI4OagmiF1ANUEQJwfVBLELqCYI4uSgmiB2AdUEQZwcVBPELqCaIIiTg2qC 2AVUEwRxclBNELuAaoIgTg6qCWIXUE0QxMlBNUHsAqoJgjg52BcesQuoJgji 5KCIIHYB1QRBnBxUE8QuoJogiJODaoLYBVQTBHFyUE0Qu4BqgiBODqoJYhdQ TRDEyUE1QewCqgmCODmoJohdQDVBECcH1QSxC6gmCOLkYO9FxC6gmiCIk4Mi gtgFVBMEcXJQTRC7gGqCIE4OqgliF1BNEMTJQTVB7AKqCYI4OagmiF2wRU2+ d0eONie8q01tq05vr0lTNjz70hGrGwxDNUEQEYBqgtgFS2oCYtFXn5whe+UV U/NHeIPp4hKhCE997eHt/31jl+uTQBDk8qCaIHbBVE3mO2Ni0ks8omvNiojZ Ja5IOf5lletTQRDkMqCaIHaBqSbb/RJpaukf4fWmenEnsu5xQmVoclnws/L7 sXKzmhLzqk/9bZvrE0IQ5GJg70XELlA1GWtJ8IuvYqrDjfD6+Kzidnna4vuo w6Hfyi9aZfiHpsSCgrybT17/FiWioaT5L/3hEdenhSA8YmJiori4ODMzUy6X T01NnRt+Z2enoaEhJycnPz+/q6tLq9WyAqysrNTV1eXm5mZnZ9fU1CwsLDC3 Qvhmc6yumv+AgCKC2AVQE70qtKRI9nuRpD485fW37shzK+j9b/575cRSyPN3 TE0JzOxaXGU//wjinNTX17v+DiiFlfCgBX5+fszwwcHBTCEAffHw8GAGcHNz Y+5zeHjY1RwjIyNmj4hqgtgFv1v/HJVeytSCsOSy+c6YC7UQNhgM3aOa+wmt dCd3o5v6x5e4PjkE4RiNRgOeH7w9FA2gBKFQKIhjHxsbsxRFJpNBgKioqJmZ mcnJSYlEAqvR0dFk6+LiIpGSxMREpVIJwpGenk72OT09TcLU1tbCqlQqLfud pSXzWRLVBLk6mpUfN0OKqQR4P63+2Jxw6f4mO7qDrKoRpjDVdM1weHYIwjnx 8fHgq0tLS6kFvDpYUlNTzYafmpqCre7u7tvbxipI+EPkY25uDlbr6urgv6+v 79GR8Xvy8fFxUFAQGF+/fk0sRF86OzttTCSqCXJFPms23Z82U8//NLN4qz/8 6r0Xu4YXbkc20t0WvBmHkgsnJ4gg3KLX66FUAr56fn6eGqGEQr5N7e3tmUap rq6GrWlpaUxjRkYGGCsqKk5+itHjx4/hlxkANkEAEBGyGhAQAKuzs7M2phPV BLkK0+p115hfUlJaJDsYupiOWOkLP7u4dT+xje5cVjuKgoI4IVCaIMLBev5J WcOst4cyC2yqr69nGhsaGsCYkpJi6UCxsbEQAJTo5GcNPvnw1dTUBHuLjIzM zc0dGhqykk5UE+TSzCxs3I1uMnp7SX1LdbrdR1ZZ29p7lNZJBaWwcdzB54gg nDMxMQGO2s/Pj2Unlexmq06ILrA+UsEqs+qEBdkKmkXkaXJy0mwVfH5+vqV0 opogl0O9vO0e20wb9N6753ZpKbGiJsD2zn5Q1q+2XlUd0448TQThnNHRUXDU gYGBLHtoaCjYzZYXoCgBm3p7e5nGgYEBMEokEtPwsBPyMY1++2ppaSHyUV5e DoUjtVqdl5dHLH19fWbTiWqCXILNHzrvpLdn3Ukaej9qrnXUxy3t/qO0Dioo jX22fshFEBEwPj4OjjooKIhlB30BO2iNaZSYmBhTtw/iAkYQGlZgKJUQKUlN TT08PCTGlZUViM5qDJyWlgbB4uLizKbTtCBzodNEnBD9wVFoTjf17R1D6pPr H0N4bWvv4bO39KADE9hsGHEWNBoNeGZvb2+WHSzMBr1MsrKyYFNbWxvT2Nra SpoEM42kvh7Iyck5ODiwnhKVSgUhHz58aHYrygdyIQwGQ1rFEPXqle3GJ9kB I9IvrWq94o1dUe5ENc4vbV3zuSIIL9BqtcTh6/V6atzf3ydGKESYRikpKYFN lZWVTCOsgjEvL4+sQl4uLi4mO4FNrCr+ra0ttVoNv0wj+eaGaoLYhaqOaSol 6RVD9Al0zPwmnzWbt6OMzYZ9k9u1u/rz4yCI8CEV7gMDA9SiVCrB4uPjYzY8 qVJ/8uQJ0xgSEgLG9vZ2slpQUECq3bu6ukz3kJSUBFszMjKYRlKQiY2NNXtQ VBPEdkamv//q6i7r1h/8GkfLYbNl9Y4t/hpzuFB5jG2GESeADKsilUp3d08n boDfiIgIsCgUChJgc3NTpVLRag6dTke+g9GK+J6eHtJdkYzWRepigO7u7qPf OT4+hgC0uz1tgQx/vLy8rPRnRDVBbGR1c4/2UvROatvU7jO3Xl1NbF/cfZ9Q QfH09seZthDRAxJA1CEgIEAmk5F+hRKJhPZkJ0UVKGjQKDU1NcSS8hNSzw7B yNbw8HCzDYCB5ORkCLC3txccHEwscXFxmZmZpHtLfHw8PSgLVBPEFuB9JTyv xzi/lfTNp4UNVoCrq4ntgQ+GQumYYDcj6h+6/TdOrgmCOJLl5WUom1CfD2UT jUZDtw4ODoLR09OTWgwGA5RoSGmCbJLL5WQTlD7c3d2tqwmwuroKIkLt9+/f LykpsSQlJ6gmiG1Utk/9aqDb+8U0gCPVBJbVXqlHtHEyR5eQor39c9qiIIg4 gEKKWq1eW1uzcVwIEI6lpSXQHZ1Od7kjQkSI/u3bN/IFzAqoJsi5fNZs3ogw SkliyYDZMA5WE1gG3yRRgcusMj9ENoIgDgPVBLGO/vDoz3Tj2Cb3Elq3d/bN BnO8msDy8lUeFZTesUUHXxkEQZgwP5dxnRaEj5S2/EU99tDksqVgnKiJbjAs MKmCpM3jaQurYQCCII4ERQSxwqeFjRtnUvK82trXJE7UBJbZjtg/JHUkhSll KoddGQRBWKCaIJbQHx7R8XsfJLbt7Fmr6eZKTWDxePiYlp4G//rmsOuDIAgT VBPEEhVvf7XjGpn+bj0wh2rif/Pvg88GGb6f2Larw/ZdCMIBqCYIgdVD0Ofu f6FfkFz9Y23pVMiVmkDcL4xWZwVvcA4UBOEAVBOEwPLn0jRj90CP6JrNvohr lYOrqwmkv6hpgk62ggNCIojjQTVBCEx/3lWbSr9xddamXrcc2EVN9vYP6bS/ 4bk9OOcvgjgYVBOEQP25Vhl+L8bYzRxKKIe2zfPOuZqc/D4gZOfwArfXE0Gc DVQThED9eUmRjA6BNd8Z4wA5sJeaADGv+oyjQca1aPdwvHoEcRzYexEhEH++ 9D7KJUJBHPLLV3mOkQM7qsniitZF+oak/1UDVscjiONAEUEIxJ8/yy4krtg9 unarP1xwanLC6Lx/I6JBs/KDq+uJIM4GqglCAJ881pLwa6DgygyHyYF91WRv //BegnHC3/giJVfXE0GcDVQThOB/8++Czsa8+jOxUq9ynBzYV02AjiE1lcWP n83Mmo0giN1BNUEI9+55/Or53pToSDmwu5ocGwy0dzz8wdl+EcQBoJoggP7g 6OYTY3fFuMxiB8uB3dUEgCIJFcd3I18df0kRxNlANUGA2nczxprr8Au0Cuaz mgBxhUpyUj7Jbw8OLU4/iiCIXUA1QbR7erfYZuJ4s/NeOl4OrklN5r9t0+JJ U/+sg68qgjgbqCYIbVJ7S6pY6YkUjZoAGZXD5NS84lv39g8deVURxNlANXFy Nn7obkc2EpdbXJjLiRxcn5osr+/cjDB2Zqzu/OTIC4sgzgb2hXdyXjWMG2tM wqq3+s8fK1hYagLk148Zx9WPafqxi2OtIMh1gSLizKxt7dFxSDwe/smVHFyr mpwWvqKMha/Slr8cdm0RxNlANXFm8uo+GsdRedrs5/IfRKkmwOvWSXKad6Kx eIIg1wWqidPyfWOXFkxq381wKAfXrSbbO/ugI+RMy9omHXN5EcTZQDVxWnJq PtDB23X6QxGryQmj3ZprTBOOVI8g1wGqiXPybW2HTqTe0PPlxGQmX5GpyZZ2 n9aeVLyduv4LjCBOB6qJc5ItNxZM7iW07h+c9hMXt5oAxWcTx7vGNO/sHVzz BUYQpwPVREyAX7Vl8bnzL39IjFNieT54SO3iVpNNRs+aqo7p674XCOJsoJqI CRt9cs6LfGMP8Zia3QEJ53LgGDUBChuNnWvcY5t3dVg8QRB7gr0XxYQtPnm5 O5LO1asoz+KDHDhMTda3dbfOiidy7BqPCI2JiYni4uLMzEy5XD41dX71387O TkNDQ05OTn5+fldXl1arZQVYWVmpq6vLzc3Nzs6uqalZWFi46B6YoIiICVt8 cv7LF8buitE1O2cFEydRkxNG33/3p817+1g8QQRDfX296++An7cSHjy/n58f M3xwcPDq6ioNAOrg4eHBDODm5sbc57l7YIFqIibO9clrvdJbUmPBRP76OU/k wJFqwuz+X/tu5vruBYLYEY1GA54fvH1zczOUIBQKBXHvY2NjlqLIZDIIEBUV NTMzMzk5KZFIYDU6OppsXVxcJFKSmJioVCqHh4fT09PJPqenp23ZgymoJmLi XJ9cWiQjjtQtqvaHMpwncnB1NbnQ4uYnNQ5NFlrh5/KPFxIjBOGE+Ph48NWl paXUUlZWBpbU1FSz4aempmCru7v79vY2scAfIh9zc3OwWldXB/99fX2PjoxT /xwfHwcFBYHx9evXtuzBFFQTMWHdJ2uV4SAixJG+LpbxRw6uriYXCs+sOaor z0I1QXiOXq+HUgn46vn5eWqEEgr5NrW3t2capbq6GrampaUxjRkZGWCsqKg4 +SlGjx8/hl9mANgEAaCQYsseTEE1ERPW/Sp4TjqPyXqvlD9y4GA1gUWWb2zV 9uCp3P/m33N93xDEGlAWIMJhMBiYdlJSmJ01MxMclFlgU319PdPY0NAAxpSU FEsHio2NhQCgI5fbA6qJmLDiV/dVYQ9i5cSF5ubn80oOHK8mX99F/xFeb+y/ eQ+zAMJrJiYmwFH7+fmx7KSK3GzVCdGFzs5OphFWrVR8kK2gWUSeLrEHVBMx YcWvttek0ZnfF99F8UoOHK8msCQ9LzKW1IJecH3fEMQao6Oj4KgDAwNZ9tDQ ULAPDQ2ZRomMjIRNvb29TOPAwAAYJRKJaXjYCfmYRr99XXQPJ6gm4sKSXz0c Cn2cWEmcZ0pOId/kgBM1+as1ns4aP/7FYqNHBOGc8fFxcNRBQUEsO+gL2EFr TKPExMTApr6+PqYRpAGMIBOswFDiIFKSmpp6eHh4iT0QXE240GkivMKSXx1o eEY956e3T/kmB5yoCSyhyWXkmsQVKbm+dQhiEY1GA57Z29ubZQcLs0Evk6ys LNjU1tbGNLa2tpImwUwjqW0HcnJyDg4OLrEHCsqHmLDkV8NTXxO3GZVeykM5 4EpNehXJVGS/fv/B9d1DEPNotVri8PX6X5Mp7O/vE+PKyopplJKSEthUWVnJ NMIqGPPy8siqwWAoLi4mO4FNrCp+W/bAAtVETJj1q8xPOsONiTyUA67U5GAo 1CeumlwZWY2ZzwUIwhNIhfvAwAC1KJVKsPj4+JgNT6rLnzx5wjSGhISAsb29 nawWFBSQaveurq7L7YEFqomYMOtXE7KM1c1BSRX8lAOu1ASWN5WZ5OK4SN9s ave5voEIYh4yrIpUKt3d3YVV+I2IiACLQqEgATY3N1Uq1cjICFnV6XTkOxit Ru/p6SHdFclYW6QuBuju7j76nePjY1v2YAqqiZgw9avqrhjaFPZdXQo/5YBD NdEOSG6EVeEsWgjPAQdOfHtAQIBMJoNf0raK9mQnRRUoaNAoNTU1xJLyE1LP DsHI1vDwcNNKc0JycrItezAF1URMmPrV53kviat8GFetV/FUDjhUE1jcfUKM w2A+bSEThyEID1leXoayCfX5UDbRaDR06+DgIBg9PT2pxWAwQInGy8uLhIdN crmcbILSh7u7+7lqYmUPZkE1ERMsv7rS82sIkcbKDN7KAbdq4nv7/6LjQLYo 57i+hwhiDSikqNXqtbU1VqW5JUA4lpaWQHd0Ot3ljmj7HlBNxATLrxYV5p4N Pl+7yxh8nm9ywK2aQPTn1SPkQvmndhzblkkRBGGBaiImmH71hzLcNbKOOMnK 0mw+ywHnajL/bZs2exuYWOL6NiKIIGF+LuM6LchVYfrVesYYjxt9EXyWA87V BC5dbEE/uVzheT1c30YEESQoImKC+lW9KvThWU8Ks2M88koO+KAmozMrtHgy s7DB9Z1EEOGBaiImqF/t+dXLu36hK5rncsAHNTEYDIGZXcahzMpUXN9JBBEe qCZigvrVsBTjCFTxWcX8lwM+qAnQNbxwNsxyw/L6Dre3EkEEB6qJmCB+dbIt jn60GW1O4L8c8ERNDg6P7ie0kutW8Gac21uJIIID1URMEL+anF1IXGKg1aFU +CMHPFEToPbdDLl0d6KbtHt6K5caQRAWqCZiAhzj0vuoG2dDqXTWpgpCDvij JqAgd6IaydUDZeHwViKI4EA1ERPgGAsK8owT1MbU7KvCBCEH/FET4FXDOLmA 9xNaD4+OubqVCCI4UE3EhJ/LP9Eei1U29FjkiRzwSk2W13dunNU6dY0scHUr EURwYO9FMeH54OGFeizyRA54pSZASpnKWPGUaWbeBwRBzIIiIhqODYabIcXE Dea8sKnHIk/kgG9q8mlh41ejuBkzE9shCGIKqoloUE1+oz5wvjNGQHLANzUB wnN7yJWMLeh3/K1EECGCaiIaol72EQcYnV4iLDngoZoMTCxRaVZ/23b83UQQ wYFqIg6Yo+Cq3iQJSw54qCbHxwa/lHZyPbPlHxx/QxFEcKCaiANZzShxfX7x VQdDApMDHqoJ0KKco1PGb+GU8QhyHqgmIuDHrv52ZKONcyzyUA74qSY6/aFb bDO5qtWdnxx8TxFEcKCaiAA6HsiNsGqtMlxwcsBPNQGKmyawJyOC2AiqidA5 Oj72TmojTs/N95zpevkpB7xVk+8bu7QnY/eoxpG3FUEEB/ZeFDp9Y4u0/t3n zv8tRDngrZoAz14PkmsbmtPtsHuKIEIERUTo0J4RCcUD3PpkUarJxOwqFetP OCcjglgG1UTQfNFsUl/38fMKqond1QQIynpHrnB6xbBjbiuCCBFUE0GTVTVC HN2f6Z0GgwHV5DrUpGNITS7yzYg369s6x9xZBBEcqCbCZVO77yJ9Qxxd2+D8 CWMmX2HJAc/VRH9w5PG0hVznirdTDrm3CCI8UE2ES1XHNHFx7rHN+/rDE1ST 61EToKx1klxqz7gW/eHR9d9bBBEeqCYC5fDo+N7ZJOYlzX8RI6rJNanJ2tbe jYizSU+GcdITBDEDqolAef/hq7HHYnjDysYuMaKaXJOaAGnlQ+SCBz9/d503 FkGECqqJQAnNeU+cW/JrFTWimlwuui2Lt9v/pM3nvN3/J3MTh48BgvAH7L0o RKbV69SzTcyuUTuqybVGD3lWTq55Sk4hMzqHTwKC8AcUESGSXmH86hKU9dtX F0H4ZOGqSWdt6tnXxfrl7khUE8TBTExMFBcXZ2ZmyuXyqanzmxfu7Ow0NDTk 5OTk5+d3dXVptVpLIVtaWtLS0iA80wjhm82xurpqdieoJoJjfXvvZoSxYXDH kJq5SRA+WbhqohsM84qpMbZ8KJKhmiCOpL6+3vV3QCmshAct8PPzY4YPDg42 KwSDg4MkwPr6OtM+PDzsao6RkRGzR0Q1ERzlbVPEoXnEtegPfmutKgifLFw1 gaW8JMfYKju6dndAgmqCOAaNRuPh4eHm5gZFg4WFBYVCQRz72NiYpSgymQwC REVFzczMTE5OSiQSWI2OjmaGMRgMnZ2dXl5eZtWktrYWjFKptOx3lpaWzB4R 1URY6A+PPOOMPenK2iZZW4Xik4WrJqu9UpcIhbHHaHU6qgniGOLj48FXl5aW Ugt4dbCkpqaaDT81NQVb3d3dt7eN81DDH9AjMM7NzRHLysoK2S2FpSbp6elg BLmxMZGoJsKia3iBjvKxtrXH2ioUnyxcNYElQ/aK3IKAxApUE8QB6PV6KJWA r56fn6dGKKGABex7e2w/AFRXV8PWtLQ0pjEjIwOMFRUVZJV8OvP09GxvbydC w1KTgIAAMM7OztqYTlQTXnFuO9VbQS+IK7v7OMFsAKH4ZOGqyfTbONqgbrQ5 AdUEuW6gNEGEw2AwMO1EAsx6eyizwCbQC6axoaEBjCkpKWS1o6OjsLCQ1KSA prDUZGdnhxRYmpqaYG+RkZG5ublDQ0NW0olqwiuse7bxlnjqx/5qjRO0TxZ0 ysNSyshdSMwqQjVBrpuJiQlw1H5+fiw7qWQ3W3USGxtr+pEKVk2rTgimZZPJ yUmzVfD5+fmW0olqwiuse7bk7ELixEKelYvAJws35e/rUmhTYZ87/8L1U4OI nNHRUXDUgYGBLHtoaCjYzZYXoCgBm3p7e5nGgYEBMEokEtPwpmrS0tJC5KO8 vBwKR2q1Oi8vj1j6+vrMphPVhFdY8WzL3ZHgu4gT66xNFYFPFm7K91Vh92Pl xsZdvmFcPzWIyBkfHwdHHRQUxLKDvoAdtMY0SkxMjKnbB3EBIwiNaXhTNVlZ WYHorMbAaWlpECwuLs5sOk0LMjaeIHIdWPFsJUUy4r68Ymp0g2Ei8MmCTnlV abaxeBJWrfs5gDOCXBMajQY8s7e3N8sOFrBPT0+bRsnKyoJNbW1tTGNraysY ExMTTcObrYU3RaVSQbCHDx+a3YrywSssebbdAYl7dC1xX+UlOaLxycJN+UZf xC2psalwi3KO6wcHETNarZa86uv1emrc398nRihEmEYpKSmBTZWVlUwjrIIx Ly/PNLypmmxtbanVavhlBiPf3FBNBIElz9ZanU4cl0uEYrVXKhqfLOiUP897 SW7Ko7ROVmMbBLEvpMJ9YGCAWpRKJVh8fHzMhicV7k+ePGEaQ0JCwNje3m4a 3lRNkpKSwJKRkcEMRhoex8bGmj0oqgmvsOTZAhIriOPKyH0lMp8s3JR/aY+l Tew+fPrO9bODiBnSN0Qqle7unk4/Ab8RERFgUSgUJMDm5qZKpaLVHDqdjnwH oxXxPT09sOrr62t2tC5TNaHd7WkLZPhDes1b6s+IasIrzHq20eYE6rWm3z4V mU8WdMqlaa/JfYkrUnL97CBiBiSAqENAQIBMJiP9CiUSydGRcWwlUlRxc3Oj UWpqaogl5Sek/yMEM7t/UzXZ29sLDg4mghIXF5eZmUnCxMfH04OyQDXhFWY9 W0JWEXFZkpQyUfpk4aa8rz6ZCv3iqsUBWhHk6iwvL0PZhDaXgrKJRqOhW8nI jZ6entRiMBigREPH4IJNcrnc0s7v3bsHYaCAwzSurq6CiNAj3r9/v6SkxJKU nKCa8AxTz7b4LuqPs4bB3YoUUfpk4aZcrwq9+aSU3J2XDRbH30MQewGFFLVa vba2ZmNV3fHx8dLSEuiOTqe73BEhIkT/9u0b7Mp6SFQTXmHq2fJfGYdSefBU vq8y3zBY6D5Z0Cn39PYjN+hOdNOO7oDrJwhBOAPVhFewPNtWf/idyDrirGrL novYJws35X63/uPtqEZyjxp6vnD9BCEIZ2C/RV7B8mzy18+N772Rddv94SL2 yYJO+QvFR3KbfJLfHh9jU2HESUER4RVMz7avCrt3NnzHy1d5ovfJQjw0ia5Z +UHr4pUT5icSQhDRg2rCK5ieraPm1yzkS++jRO+ThXjoo7P5TeIKleRmSV/0 nnuXEUSUoJrwCqZnC0wy9lhMzi50Bp8sxEMfnanJh0/fafHki2bz3BuNIOID 1YRXUM/2oSmReqepNjNTmYjPJwvx0EdnamIwGP5M7yT3K7Nq5NwbjSDiA9WE V1DP9jSz2MYei6LxyUI89BFjJt+3g/PGsdSkb9a3L9m2H0GEC6oJryCebb4z hhZM+uqTncQnC/HQRww12T848njaQu5aWesktw8SgjgeVBNeQTxb9tngtD5x 1QdDzuKThXjoI4aaAOVtU8YptJ427+OkJ4iTgWrCK8A1rfdKXSKME2c0VmY4 j08W4qGPfleTjR86F+kbcu9aB+a4e44QhAOw9yKvANdUXpJD3JFbVO3OgMR5 fLIQD330u5oAz6tHyO3zT+04xklPEGcCRYRX+Lv8g8fZHIulRTKn8slCPPSR iZrML23ROq+hyWWuHiQEcTyoJrzC6/59OsfiSk+kU/lkIR76yERNgOiXfeQm Rr3s4+QpQhBOQDXhD8cGg0tIobHPgtU5FkXpk4V46CNzajI8tUyLJ7OLW2bv NYKID1QT/qCa/ParP3V7rLP5ZCEemkRnLf43/84lpIDcx7uP4k0DMBeuHzoE sRuoJvwhMr+XuKDo9BIn9MlCPLSl6G3ydDrG2rdui2OsoZogYgLVhCd80Wz+ qr1tTEKfLIhDW4quGwzziqk5d/xnVBNETKCa8IT0imHifB4nVh5epMeiiH0y /w9tJTpzbpqt/ghLcbl+7hDEbqCa8IHVzb0bEcaCSZs8HX2yUA5tJTpz3syq 0mxLcbl+9BDEbmDvRT5Q3DRh/MweWq4bPGfyd6fyyTw/tPXoBQV55LZ6xdTs mbutqCaImEAR4Zy9/QPXmCbidjwe/ok+WUCHth59uTvyZkQ9ubMt1WaKnKgm iJhANeGcN71fiMO5Hdnod+uf0ScL6NDnRs+QvSI31y++ynQAT1QTREygmnDL 0fHxw2dvicPJq/uIPllYhz43+peOWCuTC6CaIGIC1YRbescWqbdZXNGiTxbW oW2JHptRQu5vmMnEZ6gmiJhANeGW0Jz3xNUkFA+c/D4vPPpk/h/aluijzQn0 hWG8JZ4Vl+sHEEHsBqoJh0zOrVE/MzG7eoJqIrRD2xg9+Fm58Z0hq4gVl+tn EEHsBqoJh8QXKYmTCXn+jljQJwvr0DZG765LOXttqFd3xTDjcvsEIogdQTXh itnFXxNh9I4tEiP6ZGEd2sboelXow7hqcq+z814y43L7ECKIHcHei1yRUqb6 NUnfsXGSPvTJwjq07dHfVGaazlyDaoJciImJieLi4szMTLlcPjU1dW74nZ2d hoaGnJyc/Pz8rq4urVZrKWRLS0taWhqEv/QeTrBswhGalR+0YNI5vEDt6JOF dWjbo+8OSOismgUFeTQuhw8hIizq6+tdfwf8vJXw4Pn9/PyY4YODg1dXV01D Dg4OkgDr6+uX2wMB1YQT6Ozh3klvD4+OqR19srAOfaHolaXZdBzIjb6II1QT xGY0Go2Hh4ebm1tzc/PCwoJCoSDufWxszFIUmUwGAaKiomZmZiYnJyUSCaxG R0czwxgMhs7OTi8vL7NqYssemKCaOJ7vG7t0jMcW5RxzE/pkYR36QtG3+sPv no0DWVacc4RqgthMfHw8+OrS0lJqKSsrA0tqaqrZ8FNTU7DV3d19e3ubWOAP 6BEY5+bmiGVlZYXslsJUE1v2wALVxPG8UHw0DgYY36o/OGJuQp8srENfNHpx YS659W5RtT+U4agmiC3o9XoolYCvnp+fp0YooYAF7Ht7e6ZRqqurYWtaWhrT mJGRAcaKigqySj6deXp6tre3E5lgqokte2CBauJg1rd1LtI3xKUouj+ztqJP FtahLxp9rVd6S6ogd1/++jmqCWILUBYgwmEwGJh2IgGzs7OmUaDMAptAL5jG hoYGMKakpJDVjo6OwsJCUg8CmsJSE1v2wALVxMEUnQ0+7x7bvLd/yNqKPllY h75E9PxXL4zjRUfX+Ln8IxfPICIwJiYmwFH7+fmx7KSK3GzVSWxsLGzq7Oxk GmHVUsWHadnkons4QTVxLNs7+3eiGo0zKHVMmwZAnyysQ18i+nJ3pEuEsXji 6e3r+IcQERyjo6PgqAMDA1n20NBQsA8NDZlGiYyMhE29vb1M48DAABglEolp eFM1uegeTlBNHEvF2yniRu5GN2l39aYB0CcL69CXiy57kU8nR9v/veIMQUwZ Hx8HRx0UFMSyg76AHbTGNEpMTAxs6uvrYxpBGsAIMmEa3lRNLrqHk997L2If xmtlV3fgGtNM3Ehpy19mw6BPFtahLxd96X0UnUWrsfeLg59DRHBoNBrwzN7e 3iw7WMA+PW3mK0dWVhZsamtrYxpbW1vBmJiYaBreVE0uuocTLJs4kJquT3RW rE3tvtkw6JOFdehLR3+e95I8DPcT2O36EISFVqslr/p6/a8PGvv7+8S4srJi GqWkpAQ2VVZWMo2wCsa8vDzT8KZqctE9nKCaOAoomLg/NRZMXjZY7HCEPllY h7509MV3UTfCjcWT5v45Bz6JiCAhFe4DAwPUolQqweLj42M2PKkuf/LkCdMY EhICxvb2dtPwpmpy0T2coJo4iupOY8HERfpmbctM+3AC+mRhHfoq0TNzjZP8 Pkhsw+IJYh3SN0Qqle7u7sIq/EZERIBFoVCQAJubmyqVamRkhKzqdDryHYxW o/f09MCqr6+v2bG2TNXkons4QTVxCDtQMIk9v2BygmoitENfJfrXrug/JMbi yRusPUGsAg6c+PaAgACZTAa/pG3V0ZHxPYQUVdzc3GiUmpoaYkn5Cen/CMHM 7t9UTS66hxNUE4dQ1TFNnMatyMb1bZ2VkOiThXXoK0Z39TfOGu8Z12La+QhB mCwvL0PZhDaXgrKJRqOhW8nIjZ6entRiMBigREPH4IJNcrnc0s7v3bsHYaCA wzReaA8nqCbXz87egdtZwaTgzbj1wOiThXXoK0b3ufMvdGCEmq5PjnkgEUED hRS1Wr22tsbqF2+J4+PjpaUl0B2dztp7rF32gGpy3VS2T9GmXBs/zrkd6JOF deirpzz/bNA2eOWAFw/HPJMIch2gmlwr2zv7d6ObiLsobDynYHKCaiK0Q189 5evbOnjNMA4s3DbpgGcSQa4J7Ld4rZQ0/2Wc0iLKYh8TJuiThXXoq6ccbnrx 2dBt8JBs2fCQIAg/QRG5PjZ+/HrtfN1q02sn+mRhHfrqKT+5eAEWQfgJqsn1 QT+Ju8Y0a/fMjMplCvpkYR366ikn950O4HYrstFKdyQE4TOoJtfE8vrOzQhj cx15p63NddAnC+vQV085ue/MHkl5dR+v7alEkGsE1eSaSCsfohMs2t6VAH2y sA599ZTTW1/7boY8MPASAq8i1/NUIsg1gmpyHcwsbBDPAEtTv5mZ0SyBPllY h756yumt39cfwosHeWYyq0au4alEkOsF1eQ6CM/rIW7BP7Xj8OjY9ojok4V1 6KunnHn3m/pmjfOehDeol7ft/VQiyPWCamJ3lBNLtGAyMLF0objok4V16Kun nHn39YdH3klvyZMTV2RxNCQE4SeoJvYFSiJ+Ke3EIUhf9J4f4XfQJwvr0FdP OWu5d8+dvoo8cP//TAOwlut4hhHkcqCa2JfGs48VsMx83bhodPTJwjq03VN+ MBQamFRBnp/gZ+Wwaj36dTzDCHI5sC+8HdnZ+zUlVnrF0CX2wCvPJpToIkv5 SFMifSHpqEm1Ht3uzzCCXBoUETtSfDaOiov0zcrG7iX2wDfPJojo4kv508xi 48euWPnugMRKdLs/wwhyaVBN7MX3jV06unhJ81+X2wkPPRv/o4sv5fOdMXSe 3/KSHCvR7fsMI8hVQDWxF2kVxu6KHk9bLj20OA89G/+jizLlufn5xrFWpIrl 7khL0e37DCPIVUA1sQszXxndFfsu0F2RBT89G8+jizLlG30RblG15IlKzSmw FN2OzzCCXBFUk6tjMBgksu7LdVdkwU/PxvPoYk15Q0UmfUWZaI03G92OjzGC XBFUk6vTObxw6e6KLHjr2fgcXawp31eFPUqotNJaGNUE4RWoJldkZ++ADq8U W9B/xb3x1rPxObqIUz7UmPTrC2pVhml0uzzDCGIXUE2uyKuGcdoqeHFFe8W9 8dmz8Ta6uFMen2VsLewaVbvaK2VFt8szjCB2AXsvXgX1t+0bEQ1XbBXMhOee jZ/RxZ3ypfdRt6UKs9XxqCYIr0ARuTQGgyHibKzg+4lttk9iYgWeezZ+Rhd9 ymvLntPvXcONiczoV3/kEMReoJpcmo4hNc3jPR81dtkn/z0bD6OLPuX7qrCA ROPgXT5x1bR3PKoJwitQTS7H9s6+x9MWksFjXvVR+6PzBn09d+G5Z+NhdGdI +V+t8X+c9Y4vLZLR6BxmAQRhgWpyObKqRn5Vvq/+qnx3Bs/Gt+hOknLZC2Pv eJcIxXxnzBGqCcIzUE0uwceZFfqNq7J9mrnJSTwbr6I7Scq3+sM9Y2rIUxeR +vpwCNUE4ReoJhdlb//g4TPjBHmP0joPDo+YW53Es/EquvOkvKs2lb7GvJWn oZogvALV5KLIakdpjp6cW2NtdR7Pxp/oTpXyqPRS8uy5R9f63fpnTrIAgpgF 1eRCjEx/p1JS8GbcNIBTeTaeRHeqlH99F+0SYex+cvdxguOzAIJYAnsvsrDS 2srv1n+8+eS1sSY0pNDf5R941SjL8Z6NJ9GdLeWVpdn0lUZ5tXHhEGExMTFR XFycmZkpl8unpqbODb+zs9PQ0JCTk5Ofn9/V1aXVsgfrsB4AVpvNsbq6avZw KCIsrGTwDNkrkoVvhNdPtcXxzTVx4tn4EN3ZUr6vCqNzx3vGtWxp97nONIgj qK+vd/0dEAIr4UEL/Pz8mOGDg4OZQnBugOHhYVdzjIyMmD0iqgkLSxm8rz6Z vhDSBv+8ck2ceDY+RHfClH9pj70ZYex+8qx0kOtMg1w7Go3Gw8PDzc0NigYL CwsKhYI49rGxMUtRZDIZBIiKipqZmZmcnJRIJLAaHR1te4Da2lqwSKXSst9Z WjJfIkY1YWE2g2/0RdDGmQGJFbrBMB66Jq48G+fRnTPlVYzvXV3DC1znG+R6 iY+PB19dWlpKLeDVwZKammo2/NTUFGx1d3ff3t4mFvgDegTGubk5WwIA6enp sNrZ2WljIlFNWJjN4M+yC0m2hRdCeC3kp2vi0LNhyh0fV68KvRUkM1bHRzct r+9wnXWQ60Kv10OpBHz1/Pw8NUIJBSxg39vbM41SXV0NW9PS0pjGjIwMMFZU VNgSAAgICIDV2VlbJ5NFNWFhmsHfMRr5V5Zm89Y1cejZMOWcHNrn7n++HdVI nszQnO6rTPqJ8BkoLBDhMBgMTDspSpj19lBmgU319fVMY0NDAxhTUlJsCbCz s0M+pjU1NUHgyMjI3NzcoaEhK+lENWHByuBL76Po9NwhyeXwQshb18StZ8OU c3Lot4Pz9FWnrHWS69yDXAsTExPgqP38/Fh2UodutuokNjbW9CMVrNKakXMD TE5Omq2Cz8/Pt5ROVBMWzAy+rwoLTSkjWfWWVKHuiuGza+Lcs2HKHX9oeGKT X6vOmho2TMyab7qJCJrR0VFw1IGBgSx7aGgo2M2WF6AoAZt6e3uZxoGBATBK JBJbArS0tBD5KC8vh8KRWq3Oy8sjlr6+vhNzoJqwYGbwwoJc+uLXbDKPKt9c E+eeDVPu+EPDE6vd1T9IbGNMAPqD6zyE2Jnx8XFw1EFBQSw76AvYQWtMo8TE xJi6fdAOMIKO2BJgZWUFtrIaA6elpUGAuLg4s+k0Lchc/FxFBc3gqje/puRO zi7kv2vi3LNhyh1/aPLQQpGEPquecS1Hx1iBIio0Gg14Zm9vb5YdLGCfnp42 jZKVlQWb2tramMbW1lYwJiYm2hLALCqVCgI8fPjQ7FaUDxYkgy93R3pE19L5 iX4ow/nvmjj3bJhyxx+aPrd0GlBYsuUfOMxBiN3RarXkVV+v11Pj/v4+MUIh wjRKSUkJbKqsrGQaYRWMeXl5tgTY2tpSq9XwywxAvrmhmtgI5FDdYFhIcjmd S2L6rflu73xzTZx7Nky54w9Nn9vDw2O32GZagfLh03cOMxFid0iF+8DAALUo lUqw+Pj4mA1P6tOfPHnCNIaEhICxvb3dlgBJSUnwPyMjgxmAtCuOjY01e1BU ExaQQ3NevKSveW8qM4Ximjj3bJhyxx+a+eiqv215xbcaRxh+2ow9UMQEGVZF KpXu7u7CKvxGRESARaFQkACbm5sqlYpWc+h0OvIdjNaz9/T0wKqvry8ZjOvc ALS7PW2BDH+8vLxMW4JRUE1YeN1/QKUkLadAQK6Jc8+GKXf8oVmLt9v/+ENi HGHYJfiln8s/mYZhLlznNsRWwMMT5x8QECCTyUi/QolEcnRknF+JFFXc3Nxo lJqaGmJJ+Qnp/wjBbAywt7cXHBxMBCUuLi4zM5N0b4mPj6cHZYFqwuTDp+80 MwYkVuwMSATkmjj3bJhyPhy6sTKDvg4lZhUdDFmLznWGQy7A8vIylE1ocyko m2g0Grp1cHAQjJ6entRiMBigRENKE2STXC5n7vDcAKurqyAi9Ij3798vKSmx JCUnIlUT6+9jlpaHrv96I0xOpyJafB/FE/8gXM+GKefk0HQG+XNHKOU6pyIX BgoparV6bW2N1S/eEsfHx0tLS6A7Op3ucgHADlu/fft2fF5bQbGqyUUz5nJ3 5L1YOa15H2tJ4JV/EK5nw5Q7/tD7qjBp2msqKO9qUy1F5zqnIqIC1QSW7f7w PxMrjblPUv++LoVv/kG4ng1TzsmhN/oifOKq6dvReEu82ehc51REVIiy3+KF MqluMIzOtX3a+cvbX6CuibeeDVPOyaFnO2LvRtaRp9otqna+kz0uEKoJYl/E JCIU2zPp4VBouqyASkneyxfCdU189myYck4OPdyYeCPcOKnWg6fy792RrOhc 51REVDi5mpQWyaiUJPxsACNc18Rzz4Yp5+TQb+Vp9Al/lFC53hfBjM51TkVE hTOrCbMtZWhy2e7P9sDCdU3892yYck4OzZylMTCpYqs/nEbnOqciosJp1aSl Op1mMd+4KvrOJlzXJAjPhinn5NCvXuUxX5y0P8edQzVB7ItzqkmbHKTE+D3Z M6bma1c0H3yLk3g2TLnjD304FJrD6IQSkfoaBAXVBLEvTqgm7adfko1S4hFd M9sRe7kcyjfXJBTPhinn5NAHQ6EZsldUUEKelfvd+meucyoiKpxNTZqrMqiU uEfXfvldSgTtmgTk2TDlnBxarwpNzi6kguISUrC6ucd1ZkXEg1OpSU3Zc5qV 3KJqP7c/5TyD8yc6ptwZUg6CkpX7q4TindS2uKLlOr8iIsFJei9CMZ85La9H dM2XdnaphHPf4myeDVPOyaEPh0ILCn5VynvEtXzWbHKdZRExICYRobBy2d5g GLOAfz9Wru5i9wvmg29xQs+GKefq0Mxmw3ejm8a/rHKdaxHBI3o1We+LCE0p oxnHP77qW7e1wYGF65quGB1T7mwp97p//1cdivRN//gS1xkXETbiVpP5zhg6 9h0skpTXG4y+wDzM4E7r2TDlnETvHVsEHaEZRN75ycZxzhHEFBGrSV998p2z Ue9gSc0p0A2G8T+DcxUdU+6EKT/5OUPcnahGmk1SylR7+4dc52BEkIhSTfxv /vviwl917rC8LpYdWp6EjlcZnKvomHInTDnJL180m/cT22hm+TO9U728zW0W RoSI+NTk+8bu7cBfNYy3pApLswXxM4NzFR1T7oQpp7lmfVsnye2mueZ2ZONb lZrDXIwIEZGpSfeoxjWmmWYKn7hqs51K+JzBuYqOKXfClDPzzsHhUV7dR2aJ Pr1iaEd3wFVeRgSHaNRkZ+8gs2qEmRcSs4rocKkCyuBcRceUO2HKTfNR70fN 3egmmokePnuLjYcRGxGHmgxNLjM//P4RVttclSHQDM5VdEy5E6bcbG76trYT 8vwd88UMyiy7WEhBzkPofeHXtvZSy4eYT35gZpfP3f9XuBmcq+iYcidMuaXF /+b/6e4b+oeknmarm0/K7nndYQXjOvcj/EKgIgIcHh3XvZ9hNm68Ed5Q2vKX /vBI0Bmcq+iYckw5axlvifeLr2K+qsVmlHx9F02jc+0DEH4hUDUZ/Oubf2oH q0jy+atxuCERZ/Dri44px5SbLrsDksKCXDq5/Gmv+QgFWLb6cXoUhI3g1GRq fl36opepI3ejm+q7P0NRhYYRdwa/puiYcky5pWW2I1bCGJ6IDMHt6e2v02M/ R+QXAlKTybm1mFf9zEcalszK4fVtHSukM2Rwu0fHlGPKrSwHQ6Ft1emeMTXM 3OcZ16Lo/ryPmoL8hP9qYjAYPnz6HpXfy9IRSW73tHrdbBQnyeD2jY4px5Sf u/xQhhcXyW5JFSxNkXd+0u7qHewZEL7BZzWBcvTbwfk/MzpZOhKQ0TUwYW28 U6fK4PaKjinHlNu4fO+OzM3P/0NSx8yVt6MaXyg+4pAszgw/1WR+aStf8dE1 pomlI0FZ75QTS+cOc+qEGfzq0THlmPILLb53/pOrf9QfEgUrk94OzL53z83f 5R+stEDGGnxRwis12fiha+z9Evx7zymySF/0Dk0u2zhcttNmcOc8cUw5h9GX uyNfvcpjDtZNq+ll+fnjLfEH5kZbRTURJXzovbiyudvUPwt6ccNERP6Q1Lo+ evrQ7b9Zf88xXQSdQzmJjinHlF86+g9leH15Fqtzyh9nU52+fJU31pLAlJWL Zmcs2hAmJiaKi4szMzPlcvnU1NS54Xd2dhoaGnJycvLz87u6urRard0DMOFK RI6Oj3s/aiLze5ndD5nLo4TK+orMrf5zJrfCDI4njinnSfTDodDR5oTk7EKX CPbnL1g8omuycl9116Vs9EVc/dCceC1uqa+vd/0d8PNWwoPn9/PzY4YPDg5e XV21YwAWjlST42PD3NJWY99sYsmgaZ2I8ZF72pKv+Ojt9t8xg+OJ8//QTpty 69FBLxorM0J/76LCWOpvBb8oKsxVvUnavvi4rEdOqSYajcbDw8PNza25uXlh YUGhUBD3PjY2ZimKTCaDAFFRUTMzM5OTkxKJBFajo6PtGIDFdavJ+vbe0ORy xdup2IJ+SwoCi/vT5ry6jx8/r0CZhaTKOTM4nrjgUn6V6BzebsdE/9YdpSjP CjuVlXpmfocTp8oSkFghe5HfJk//0h67rzp/dtQjIavJpf1tfHw8xC0tLaWW srIysKSmppoNPzU1BVvd3d23t42t7OAP6BEY5+bm7BLAjmdnFu2e/tPCRtfw QnHTBMiHZ1yLJfkwVtXFNktk3S3KuYOjI1aquMomwnWqTnvi/Heq13HWwjrx 1R4p6EXS80LXn/X1DDX5bXGJUAQ/K8/Ke1lXnqVqTFp6HyWySvzL+Vu9Xg+l Eog7Pz9PjVBCAQvY9/b2TKNUV1fD1rS0NKYxIyMDjBUVFXYJcKGzs7Lp8Oj4 +8buX3Nr7z98re78lC3/EJHX4xXfau7dw6RCJK0DiiH944vbO/tWDn2V5/wq 0Tk8NLfRMeWYcgdE16tCp9riTr+fpJfelpqpXmEtt6QKKLwkPS8qKsxtqspQ vUma7YiF6Fepwb/KK/QVX78vFx3KAkQ4WI1aSUlhdnbWNAqUWWBTfX0909jQ cOqZU1JS7BLAlrM7PjZAEWN5fQc2ffj0vXtU09j75XXrJEhGfJEy+Pk7pmpY Wphq4hrTFP2yr7Tlr8G/vm1pLSoIK1WYwfHE+X9op025XU58XxU2/TauoSIz TVZgtj2YFfcCSuQfXyVNK03NKXj1Kk/++jmUfZQNzyZa4+c7Y1Z7pXuDFj+a CU5NJiYmIKKfnx/LTqrIzVadxMaeam5nZyfTCKu04oMGAIU6Oj7WHx7p9Ict rW/BKJVGrm3tSSOj4X91XePs4tbMwsbk3NrHzyuFZXVgDAyRdAypm/vnFN2f qzqmwbe/rB8DgYBNTwuV4bk9gZld3klvmVUbVsoX1haJwiWkEOJ6+ATe97rt c+f/8b/UywNmcDxx/h/aaVN+HSe+3R8+1pLwpjIz50W+JOW1W1StLS+rVhaX CIVXTA2ITkhyORSFErOKMmSvZPn5p99q3k7VvpuB9+S2wfl3I1/7xhbhXRde nse/rE6r179oNtXftjUrP+Cl+tPCxtzSFvzf3tnf2z+EuP43//4SPu0qxSL/ 2JLTKox7Pj7Jb29FNsJyN7rpz4xO9/v+YH8YVfAorfNRWod/aodfSrsvLMnt 7g/+hE1eYbn3E9vuJbRCEcAjrsXtSa7rqdX/TlTj3XuP4e/NP7OYV+zmnzlg vOPpB//veD2yHuBC9+XcWwaFUP+EqtiMkryXLxTlWfBioO6KIfVoInvOnSE6 phxTzrcThyIG6AsUOkqLZFAGeZJcToadvOSL7hXfk03i3givB8GCUtKdyDrX qFqQP4/oGtCve7DEyh/Eyr2fVsPiE3e6QOELltNvdGkd4Pwfp3f+CUtGZ0BG F7zJkyUo6x0swWR5frqE/FxuBp4q4B2Ph6zEgOXU4QfkmabzjtefP7Xg+e9a kHW6H69HdglgemUQBEEQPmBJwm6ElMLWu26eLDtYwH4j6JVplNsPwmCTy6NU phFWwXj7XtBFA7hI30BpCEo3nsGZYPT0CQnJfh+R1xNb0J9UOpheMSyrHS14 Mw6b6t7PtCjn3n/4CmW9idlVKNZ939jd0R3YOIwJgiAIf9AfHG380H39/mNa vf7h0/fescV2lfpN75fqjuni5r/yFR+fV4+klKnii5RR+b1hsm4oDkB54eGz t17xrW6xzbcjG80MysHp0tI3ReSmtmsqr240r+5jYeN4h2qWGJvef4Rz7Btb 7B9fVE4swTIwsZSccfpRKyOnYHhqeWT6O1yHjzMrz3MLwJiUkjk1v56Zc1re yXtZPL+0pV4+/ay3tKp9VXgqW1nPc7Z39gsKi+B/+e/NtyorK09j5eWZvfKu fBqnC0EQhA8cHxtAlfb2D76tacHZznzdWFrTflvbWVzRgk7Nf9ueXdz6rNmc WdgAzZqcW5uYXRv/svrx88rozAq47pHpZXDjQ5PL8IoOC3Hy/eOwnLp9cP69 HzU9HzXdo6cLvMmT5d3I6dI1snC6DJ8unT+Xk7MK94GBAZpCpVIJFh8fH7Pp JxXuT548YRpDQkLA2N7ebpcApqCaIAiC8BwyrIpUKt3d3YVV+I2IiACLQqEg ATY3N1Uq1cjICFnV6XTe3t4QoLe3l1h6enpg1dfXl4y1dfUApqCaIAiC8Bxw 4MS3BwQEyGQy+IX/Eonk6KzfNymquLm50Sg1NTXEkvIT0v8RgtkxAAtUEwRB EP6zvLwMZRNaZQ9lE41GQ7cODg6e1o97elKLwWCAEo2XlxcJD5vkcjlzh1cP wALVBEEQRChAIUWtVq+trdnYSur4+HhpaQl0R6fTXVMABEEQBEEQBEEQBEEQ BEGuzsbGRnp6utlGy0NDQyUlJRkZGaWlpcPDw6YBLjqXJR9YWVmpq6vLzc3N zs6uqalZWFhgBbBlukxRnrhdrgzfOD4+7u/vJ49xUVERJPvw8NBSYDijvLy8 169fs+xiPfFv3741NTXBecFZt7S0mH6KF+JzbsuJi9KzcY5er4+MjHR1dX35 8iXTDneEDJ7PBCzHP+fPIlx0Lks+AI8WGTia4ubmxky2LdNlivLE7XJl+Abt CMAkJCRkfX3dbHjwHhDg8ePHTKNYT7yvr482ECLAicO7JQ0gxOf83BMXq2fj HMgRCQkJ5HKx1KSjo4P4k+rq6unpafglrubt27ckwCXmsuScxcVFchaJiYlK pRLeSaBQRpIN50jCnDtdpihP3C5XhodAOQsS+fDhw6qqKjgRuFn+/v7kNE0D v3//njpVpl2UJw6lEtJhAUolEAAKJo8enY5SC/edBBDic35iw4mL0rNxDly9 e/fuUfFlqUlaWhoY4VWNWrKzs8GSnJxMVi86lyUfqKs7nQ7A19eXdjKCF5Kg oCAwko8btkyXKcoTt8uV4RsHBweenqcD8bW2tlJjb28veeB3dnaYgb9//06z A1NNxHrikN/hP7xM0nfyoaEh15+9GCD6iTCfc1tOXJSejXPIm0lsbGxhYaGp mpCpvphGMsJYXFzcyaXmsuQD8FSAo4BfprGiooK+kp07XaZYT/zqV4aHwOt3 aGioj48PFQJgf3+f+Ba1Wk2NoKExMTFgJG+2TDUR5YnDY0wEcWVlhQYAWRkZ GYHyl8FgEOhzbssdF6Vn4xzQEaVSCY9QY2OjqZpAyQWM3t7enz9/Pvk5eSUp MJLvh5eYy5K3kFnPwGmc2DBdplhP/NwAl5hIlJ+Mj4+TOwh+gxpra2vJxxBy f5lqIsoTX15ehv9Q9oSX+dHRUXCnoIwqlYqWU8T0nLPuuPN4Nk548+aNqZro dLr8n9OikStP/kAZ8MePHyeXmsuSn5CROeHhIc/JuRNuivXEzw1w7pURBLu7 u/DuyiprgFeB04SHfH19Hd5IWWoiyhMnn+8iIyPJVx0KvJ+LLIOb3nEn8Wxc YVZNtra2yAdGJmVlZeSbKrzPwGpgYCBrV+TGDQ0NOS71VwDSSUq19AsPad5G R+kkDAwMuP4c0u1EvCd+boBzrwz/ATcC3hIS/ODBA9pyCYzBwcFg7O/vh1VT NRHliff19dFMnZeXp1Qq5XI5qXGQyWQnYnnOzd5xZ/BsHGJWTZ49e+b6syUk iLVWq4VfMpZ+UlLSyVnhEUrKrF3BXQA73BHHpf6ywOslcZipqam0OTr5eA55 jRmS1OKBVzkR74mfG+DcK8NzwIcQXQCfCQ8ztZPK6OzsbLJqqiaiPHHaeq2y spKGJJ+AACijieA5t3THRe/ZuMVUTaB46O7uDi6FOSrm8vIy+Xi4vb0NdlJO ZO2KlBxpm1LeQqpWgZycHPJOQsjKOp1nua2tjRm4tbXV9ayFoVhP/NwA514Z PgOPLhkzHG4T8x6RzxquP5sA9f6EVKDAqyz8//jx44lIT3xsbIycOPm8Q4B8 Td4iYKvQn3NLJy56z8Y5pmoyMjICFn9/f1ZI0i0I3tNA08nTyKzKpG0nmA1F +IbBYCguLqYvZqy6tpKSEtYL28nv02WK9cTPDXDuleEtX79+JR+9wb0sLi4y N5HqD0uEh4efiPTEic8EWJ3fyVv60NCQcJ/zE6snLmLPxhNM1WRmZgYsoNfM S3p8fPz48WOwkwnFLjqXJU8oKDidixleTrq6uky32jJdpihP/NwAl5hIlA+A 23z48KHrz69SW1tbrK1fvnwp/R1SEvH09IT/zc3NJyI9cRARUkvCrFYGI+lx s7m5eSLY59z6iYvYs/EEUzWB5+r+/ftgzM/Pp++opFUk3AjSlvvcuSx5CPko CnR3dx/9Dmkbact0maI8cbtcGb4Bjy5pkRUWFgaJZJ2X2Sim9SZiPXFS5goM DCQfu2jJlFYZCPE5P/fExerZ+IPZWvh3794R9wKvYS9evCB1kUBTUxMJcO5c ljwkPDzc0mcN2hP23OkyRXnidrkyfIN07rYE6W7AwlRNTkR64uvr6yCIrj8H IXn+/HlUVJTrz0IZrRoQ4nNuy4mL0rPxB7iMcLkKCgpY9sHBQVIAJEABEN7K mAGsz2XJN+Ad293d3dKTRn2mLdNliuzE7XhleAUdYcksX758MY1Cej2zGoiK 9cQ3NjYSExOJOJLH+MOHD8z9COs5P7H5xEXm2QTE5uamWq1mjizK4qJzWQoC W6bLFOWJn4vTTiQq1hPX6/WgocyhSFiI9Tl3Ts+GIAiCIAiCIAiCIAiCIAiC IAiCIAiCILzi/wdKdrKO "], {{0, 319}, {538, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538, 319}, PlotRange->{{0, 538}, {0, 319}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.771182346568776*^9, 3.771182353839611*^9}, { 3.771182434787858*^9, 3.7711824429111547`*^9}, {3.771240142034581*^9, 3.771240149597237*^9}}, CellLabel->"Out[388]=", CellID->458650964] }, 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["\<\ Emmy/Noah Blumenthal noahb320@gmail.com emmyb320@bu.edu\ \>", "Text", CellID->581387932] }, 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["Randomness", "Item", CellID->94201197], Cell["Statistics", "Item", CellID->450262977] }, 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[ "Data Manipulation & Analysis", { 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[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "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[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { 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" -> "OEM6eJxVkE1Ow0AMhSWgkCDECRBkxS6HiFIqKgFFdS8wSV+bEfOnsWcxt2dSECorW/r8np/\ dVS0tSLIBXW+ShCQt3fQTxi/\ sD5d89aZZ6GGpRDXvyumQjBLtXfPcdE6ZzJrp6VUfJ8TCZYIteFSm6b0tXqdZeqRsB2/\ 0WFQfySKW7oyXAGuBZa67JP5k0FL1GX1AlEy3vRIcfdTgEm0TZgkfLn6izXWbDLh62WtRQ+\ kWK2UYf6BewuCczPd5k6z7v/B+7QQxRPyGrjuXKQ2M8pC7LdinOGKXA6haJTfOM9/6qW9O"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->438801245] }, 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["DistributionFitTest", "Item", CellID->4012908] }, 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["OPERM5RandomnessTest", "Item", CellID->493652050], Cell["ChiSquareRandomnessTest", "Item", CellID->413349416], Cell["RunCountRandomnessTest", "Item", CellID->967511318] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[TextData[{ "Knuth, D. E., ", StyleBox["The Art of Computer Programing", FontSlant->"Italic"], ", 3rd ed. Boston, MA: Addison Wesley, 1997." }], "Text", CellID->379658379] }, 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["Wikipedia\[Dash]Randomness test", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Randomness_test"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Randomness_test"]], "Item", CellID->813822342] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["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->"RunLengthRandomnessTest | 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.867775334175737`16.340036228624307*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.867775334227194`16.340036228630087*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[639, 23, 106, 2, 70, "Title",ExpressionUUID->"bbcb3d81-2d77-40f3-a52c-620e90324e36", CellTags->{"Name", "TemplateCell", "Title"}, CellID->704145614]}, "TemplateCell"->{ Cell[639, 23, 106, 2, 70, "Title",ExpressionUUID->"bbcb3d81-2d77-40f3-a52c-620e90324e36", CellTags->{"Name", "TemplateCell", "Title"}, CellID->704145614], Cell[748, 27, 206, 5, 70, "Text",ExpressionUUID->"101ea1f6-5828-43bd-bf53-83cd3e15ed52", CellTags->{"Description", "TemplateCell"}, CellID->309644963]}, "Title"->{ Cell[639, 23, 106, 2, 70, "Title",ExpressionUUID->"bbcb3d81-2d77-40f3-a52c-620e90324e36", CellTags->{"Name", "TemplateCell", "Title"}, CellID->704145614]}, "Description"->{ Cell[748, 27, 206, 5, 70, "Text",ExpressionUUID->"101ea1f6-5828-43bd-bf53-83cd3e15ed52", CellTags->{"Description", "TemplateCell"}, CellID->309644963]}, "Definition"->{ Cell[979, 36, 1206, 29, 70, "Section",ExpressionUUID->"161424b3-4c56-46b1-b410-551a99b14829", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[979, 36, 1206, 29, 70, "Section",ExpressionUUID->"161424b3-4c56-46b1-b410-551a99b14829", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[979, 36, 1206, 29, 70, "Section",ExpressionUUID->"161424b3-4c56-46b1-b410-551a99b14829", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[8151, 238, 1980, 50, 70, "Subsection",ExpressionUUID->"ee294895-93e3-4eb8-8a2e-c5210b5f1b40", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[11117, 331, 1429, 32, 70, "Subsection",ExpressionUUID->"5a328e3a-ef7e-4163-8c92-4cb2202c33bb", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[13870, 412, 7029, 152, 70, "Section",ExpressionUUID->"4f838347-a981-4885-be94-e91ede738dad", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[109278, 2224, 1026, 26, 70, "Subsection",ExpressionUUID->"017ef9da-1e9a-4209-9849-13885d73f30a", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[110443, 2262, 996, 26, 70, "Subsection",ExpressionUUID->"325aed3e-540e-4fa4-a845-fabc97d11fcf", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[111573, 2299, 221, 6, 70, "Subsection",ExpressionUUID->"222e5f12-7989-49b9-8a9b-d4868b0e7de1", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[120261, 2568, 980, 26, 70, "Subsection",ExpressionUUID->"b1d68be5-8424-4666-9f8c-975054167709", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[121334, 2602, 1039, 26, 70, "Subsection",ExpressionUUID->"0407935a-1458-4bad-b1ce-589eae96aebf", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[122592, 2642, 1084, 26, 70, "Subsection",ExpressionUUID->"e381f6cd-ce5b-42f7-b9ae-810beb0c2525", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[123897, 2681, 923, 26, 70, "Subsection",ExpressionUUID->"756f1c12-3c60-4f2a-8e62-b96c982207d4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[125114, 2719, 1874, 45, 70, "Subsection",ExpressionUUID->"e58ae0d3-f263-424c-9ff8-7ca9e85863d9", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[127345, 2785, 955, 25, 70, "Subsection",ExpressionUUID->"a3ca6aee-f941-4eeb-b83a-06cf0ee6b47c", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[128325, 2814, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b25ef771-053b-49a4-b9f0-2d1089b4a0d5", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[129628, 2854, 1113, 29, 70, "Subsubsection",ExpressionUUID->"198f2bc3-6cfd-4dbf-9b08-38ced80d5018", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[132879, 2952, 1280, 33, 70, "Subsubsection",ExpressionUUID->"7f049a49-9c5b-425e-afb3-49243faf594f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[136348, 3055, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b5a3dd33-e18d-4ccc-b7f4-fb862aeafaaa", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[142287, 3225, 1071, 27, 70, "Subsubsection",ExpressionUUID->"6ad2db85-b2d6-47e8-9f34-099c26c2f687", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[144640, 3297, 1155, 28, 70, "Section",ExpressionUUID->"73ca599d-16c7-4016-bf8a-1a140c218c9f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[146364, 3340, 1033, 26, 70, "Section",ExpressionUUID->"4eba6427-2f34-4c61-a394-888acd44ff7a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[7931, 229, 195, 5, 70, "Section",ExpressionUUID->"19516697-9dbb-4444-aaea-4f3b3fc27468", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[7931, 229, 195, 5, 70, "Section",ExpressionUUID->"19516697-9dbb-4444-aaea-4f3b3fc27468", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[109004, 2215, 249, 5, 70, "Section",ExpressionUUID->"f9f21cb7-f5e5-43c6-8ad0-023953d8c355", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[8151, 238, 1980, 50, 70, "Subsection",ExpressionUUID->"ee294895-93e3-4eb8-8a2e-c5210b5f1b40", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[11117, 331, 1429, 32, 70, "Subsection",ExpressionUUID->"5a328e3a-ef7e-4163-8c92-4cb2202c33bb", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[11117, 331, 1429, 32, 70, "Subsection",ExpressionUUID->"5a328e3a-ef7e-4163-8c92-4cb2202c33bb", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[12549, 365, 78, 2, 70, "Notes",ExpressionUUID->"dcd80e48-31ef-4afb-8a6f-0046987fba24", CellTags->"TabNext", CellID->235159090], Cell[145798, 3327, 529, 8, 70, "Text",ExpressionUUID->"916ae9b9-0de4-4a06-a421-49cdcfa5d293", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[147400, 3368, 515, 8, 70, "Text",ExpressionUUID->"6c4a4e64-52eb-4baf-b369-9c7a89d5101f", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[13870, 412, 7029, 152, 70, "Section",ExpressionUUID->"4f838347-a981-4885-be94-e91ede738dad", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[109004, 2215, 249, 5, 70, "Section",ExpressionUUID->"f9f21cb7-f5e5-43c6-8ad0-023953d8c355", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[109278, 2224, 1026, 26, 70, "Subsection",ExpressionUUID->"017ef9da-1e9a-4209-9849-13885d73f30a", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[109278, 2224, 1026, 26, 70, "Subsection",ExpressionUUID->"017ef9da-1e9a-4209-9849-13885d73f30a", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[110443, 2262, 996, 26, 70, "Subsection",ExpressionUUID->"325aed3e-540e-4fa4-a845-fabc97d11fcf", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[111573, 2299, 221, 6, 70, "Subsection",ExpressionUUID->"222e5f12-7989-49b9-8a9b-d4868b0e7de1", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[111797, 2307, 8427, 256, 70, "Output",ExpressionUUID->"d6993132-32bf-4bf6-8ed7-75aee2531b4b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->438801245]}, "Categories-Checkboxes"->{ Cell[111797, 2307, 8427, 256, 70, "Output",ExpressionUUID->"d6993132-32bf-4bf6-8ed7-75aee2531b4b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->438801245]}, "CheckboxCell"->{ Cell[111797, 2307, 8427, 256, 70, "Output",ExpressionUUID->"d6993132-32bf-4bf6-8ed7-75aee2531b4b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->438801245], Cell[130744, 2885, 2098, 62, 70, "Output",ExpressionUUID->"58ab3b7a-1601-4da2-9e49-19716a2612fa", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[134162, 2987, 2149, 63, 70, "Output",ExpressionUUID->"f14db7ec-bbe3-4d0f-8e0f-399b21a2c067", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[138264, 3103, 3986, 117, 70, "Output",ExpressionUUID->"e2876948-ecbb-4c5a-89d0-04366f3d0223", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[143361, 3254, 1218, 36, 70, "Output",ExpressionUUID->"267e03de-9210-4a9a-a8ba-a4e3bae13f75", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[120261, 2568, 980, 26, 70, "Subsection",ExpressionUUID->"b1d68be5-8424-4666-9f8c-975054167709", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[121334, 2602, 1039, 26, 70, "Subsection",ExpressionUUID->"0407935a-1458-4bad-b1ce-589eae96aebf", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[122592, 2642, 1084, 26, 70, "Subsection",ExpressionUUID->"e381f6cd-ce5b-42f7-b9ae-810beb0c2525", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[123897, 2681, 923, 26, 70, "Subsection",ExpressionUUID->"756f1c12-3c60-4f2a-8e62-b96c982207d4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[125114, 2719, 1874, 45, 70, "Subsection",ExpressionUUID->"e58ae0d3-f263-424c-9ff8-7ca9e85863d9", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[125114, 2719, 1874, 45, 70, "Subsection",ExpressionUUID->"e58ae0d3-f263-424c-9ff8-7ca9e85863d9", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "DefaultContent"->{ Cell[127013, 2768, 158, 5, 70, "Input",ExpressionUUID->"f6170249-5b98-485a-b368-4063594a9d83", CellTags->"DefaultContent", CellID->946203791], Cell[127174, 2775, 122, 4, 70, "Output",ExpressionUUID->"68105276-0227-48c1-bdd1-1d207b0641b6", CellTags->"DefaultContent", CellID->168370258], Cell[129502, 2847, 89, 2, 70, "Text",ExpressionUUID->"f3b67ea1-98d1-452c-97bd-c2d59d7448fb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[145798, 3327, 529, 8, 70, "Text",ExpressionUUID->"916ae9b9-0de4-4a06-a421-49cdcfa5d293", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[147400, 3368, 515, 8, 70, "Text",ExpressionUUID->"6c4a4e64-52eb-4baf-b369-9c7a89d5101f", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Compatibility"->{ Cell[127345, 2785, 955, 25, 70, "Subsection",ExpressionUUID->"a3ca6aee-f941-4eeb-b83a-06cf0ee6b47c", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[128325, 2814, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b25ef771-053b-49a4-b9f0-2d1089b4a0d5", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[128325, 2814, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b25ef771-053b-49a4-b9f0-2d1089b4a0d5", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[129502, 2847, 89, 2, 70, "Text",ExpressionUUID->"f3b67ea1-98d1-452c-97bd-c2d59d7448fb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[129628, 2854, 1113, 29, 70, "Subsubsection",ExpressionUUID->"198f2bc3-6cfd-4dbf-9b08-38ced80d5018", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[130744, 2885, 2098, 62, 70, "Output",ExpressionUUID->"58ab3b7a-1601-4da2-9e49-19716a2612fa", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[129628, 2854, 1113, 29, 70, "Subsubsection",ExpressionUUID->"198f2bc3-6cfd-4dbf-9b08-38ced80d5018", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[130744, 2885, 2098, 62, 70, "Output",ExpressionUUID->"58ab3b7a-1601-4da2-9e49-19716a2612fa", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[132879, 2952, 1280, 33, 70, "Subsubsection",ExpressionUUID->"7f049a49-9c5b-425e-afb3-49243faf594f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[134162, 2987, 2149, 63, 70, "Output",ExpressionUUID->"f14db7ec-bbe3-4d0f-8e0f-399b21a2c067", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[132879, 2952, 1280, 33, 70, "Subsubsection",ExpressionUUID->"7f049a49-9c5b-425e-afb3-49243faf594f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[134162, 2987, 2149, 63, 70, "Output",ExpressionUUID->"f14db7ec-bbe3-4d0f-8e0f-399b21a2c067", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[136348, 3055, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b5a3dd33-e18d-4ccc-b7f4-fb862aeafaaa", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[138264, 3103, 3986, 117, 70, "Output",ExpressionUUID->"e2876948-ecbb-4c5a-89d0-04366f3d0223", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[136348, 3055, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b5a3dd33-e18d-4ccc-b7f4-fb862aeafaaa", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[138264, 3103, 3986, 117, 70, "Output",ExpressionUUID->"e2876948-ecbb-4c5a-89d0-04366f3d0223", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[142287, 3225, 1071, 27, 70, "Subsubsection",ExpressionUUID->"6ad2db85-b2d6-47e8-9f34-099c26c2f687", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[142287, 3225, 1071, 27, 70, "Subsubsection",ExpressionUUID->"6ad2db85-b2d6-47e8-9f34-099c26c2f687", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[143361, 3254, 1218, 36, 70, "Output",ExpressionUUID->"267e03de-9210-4a9a-a8ba-a4e3bae13f75", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[143361, 3254, 1218, 36, 70, "Output",ExpressionUUID->"267e03de-9210-4a9a-a8ba-a4e3bae13f75", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[144640, 3297, 1155, 28, 70, "Section",ExpressionUUID->"73ca599d-16c7-4016-bf8a-1a140c218c9f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[146364, 3340, 1033, 26, 70, "Section",ExpressionUUID->"4eba6427-2f34-4c61-a394-888acd44ff7a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 270929, 5696}, {"TemplateCell", 271112, 5700}, {"Title", 271448, 5707}, {"Description", 271630, 5711}, {"Definition", 271808, 5715}, {"Function", 272004, 5719}, {"TemplateCellGroup", 272209, 5723}, {"Documentation", 276062, 5784}, {"TemplateSection", 276255, 5788}, {"Usage", 276629, 5795}, {"Details & Options", 276823, 5799}, {"Notes", 277027, 5803}, {"TabNext", 277233, 5807}, {"Examples", 277716, 5817}, {"Source & Additional Information", 277926, 5821}, {"Contributed By", 278139, 5825}, {"ContributorInformation", 278375, 5829}, {"Keywords", 278597, 5833}, {"Categories", 278789, 5837}, {"Categories-Checkboxes", 279187, 5844}, {"CheckboxCell", 279401, 5848}, {"Related Symbols", 280526, 5864}, {"Related Resource Objects", 280739, 5868}, {"Source/Reference Citation", 280963, 5872}, {"Links", 281168, 5876}, {"Tests", 281352, 5880}, {"VerificationTests", 281570, 5884}, {"DefaultContent", 281785, 5888}, {"Compatibility", 282603, 5904}, {"CompatibilityWolframLanguageVersionRequired", 282833, 5908}, {"Wolfram Language Version", 283106, 5912}, {"ScrapeDefault", 283368, 5916}, {"CompatibilityOperatingSystem", 283572, 5920}, {"Operating System", 284043, 5927}, {"CompatibilityOperatingSystem-Checkboxes", 284308, 5931}, {"CompatibilityFeatures", 284566, 5935}, {"Required Features", 285018, 5942}, {"CompatibilityFeatures-Checkboxes", 285270, 5946}, {"CompatibilityEvaluationEnvironment", 285527, 5950}, {"Environments", 286008, 5957}, {"CompatibilityEvaluationEnvironment-Checkboxes", 286281, 5961}, {"Cloud Support", 286543, 5965}, {"CompatibilityCloudSupport", 286788, 5969}, {"CompatibilityCloudSupport-Checkboxes", 287267, 5976}, {"Author Notes", 287510, 5980}, {"Submission Notes", 287710, 5984} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[639, 23, 106, 2, 70, "Title",ExpressionUUID->"bbcb3d81-2d77-40f3-a52c-620e90324e36", CellTags->{"Name", "TemplateCell", "Title"}, CellID->704145614], Cell[748, 27, 206, 5, 70, "Text",ExpressionUUID->"101ea1f6-5828-43bd-bf53-83cd3e15ed52", CellTags->{"Description", "TemplateCell"}, CellID->309644963], Cell[CellGroupData[{ Cell[979, 36, 1206, 29, 70, "Section",ExpressionUUID->"161424b3-4c56-46b1-b410-551a99b14829", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2188, 67, 5706, 157, 70, "Input",ExpressionUUID->"b5df11f9-3cb9-4a8b-a2b3-5ea9e1e87a43", CellID->257056921] }, Open ]], Cell[CellGroupData[{ Cell[7931, 229, 195, 5, 70, "Section",ExpressionUUID->"19516697-9dbb-4444-aaea-4f3b3fc27468", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[8151, 238, 1980, 50, 70, "Subsection",ExpressionUUID->"ee294895-93e3-4eb8-8a2e-c5210b5f1b40", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[10156, 292, 160, 4, 70, "UsageInputs",ExpressionUUID->"a794129b-5a25-434b-88a0-3bfbccdd3b89", CellID->687780567], Cell[10319, 298, 352, 11, 70, "UsageDescription",ExpressionUUID->"0395ff23-a2bf-4754-9a15-d42f995c63d6", CellID->670656086] }, Open ]], Cell[CellGroupData[{ Cell[10708, 314, 233, 6, 70, "UsageInputs",ExpressionUUID->"5cd8f031-9166-4b9f-a7fb-eed3c7249708", CellID->167811191], Cell[10944, 322, 124, 3, 70, "UsageDescription",ExpressionUUID->"39e50938-69b1-411b-8d93-ce1da4fd6aed", CellID->782813145] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11117, 331, 1429, 32, 70, "Subsection",ExpressionUUID->"5a328e3a-ef7e-4163-8c92-4cb2202c33bb", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[12549, 365, 78, 2, 70, "Notes",ExpressionUUID->"dcd80e48-31ef-4afb-8a6f-0046987fba24", CellTags->"TabNext", CellID->235159090], Cell[12630, 369, 399, 11, 70, "TableNotes",ExpressionUUID->"1616178d-49ea-46bd-acc9-b60bc57eff0c", CellID->427896029], Cell[13032, 382, 258, 5, 70, "Notes",ExpressionUUID->"6666f143-d0d8-4f31-b82f-416fb9880e30", CellID->650284232], Cell[13293, 389, 111, 3, 70, "Notes",ExpressionUUID->"258d2686-5770-4a00-92ee-f317961e0049", CellID->600152131], Cell[13407, 394, 207, 5, 70, "Notes",ExpressionUUID->"9a859ed4-dc31-46c0-848e-227f86f6b1f7", CellID->773770818], Cell[13617, 401, 204, 5, 70, "Notes",ExpressionUUID->"18303355-e52c-43c5-b35a-2c21f5d8fba0", CellID->422185314] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13870, 412, 7029, 152, 70, "Section",ExpressionUUID->"4f838347-a981-4885-be94-e91ede738dad", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[20924, 568, 75, 2, 70, "Subsection",ExpressionUUID->"9321bb5e-1dc4-4c38-af95-887a135fb83f", CellID->904125756], Cell[21002, 572, 285, 5, 70, "Text",ExpressionUUID->"8f5046e4-7cc4-4cfc-9bbc-175909d7a743", CellID->824778599], Cell[21290, 579, 376, 12, 70, "Input",ExpressionUUID->"9121bff7-c932-497e-8dd9-d4269be22e16", CellID->184984196], Cell[21669, 593, 144, 3, 70, "Text",ExpressionUUID->"6e7fe686-8671-4475-9ddf-dfd41a159b1c", CellID->799483322], Cell[CellGroupData[{ Cell[21838, 600, 1307, 33, 70, "Input",ExpressionUUID->"0d84d357-196e-41a0-b2a4-2c5a05b450de", CellID->604625269], Cell[23148, 635, 31196, 520, 70, "Output",ExpressionUUID->"d453d64d-3c20-40c2-a7bb-1a5e519f51f3", CellID->466958214] }, Open ]], Cell[54359, 1158, 276, 5, 70, "Text",ExpressionUUID->"e7df88bb-9e0b-4156-8277-71e3b3e44446", CellID->412672387], Cell[CellGroupData[{ Cell[54660, 1167, 403, 8, 70, "Input",ExpressionUUID->"cc519f5e-1a15-4542-b456-bd3b00a696e0", CellID->941302022], Cell[55066, 1177, 253, 6, 70, "Output",ExpressionUUID->"144f61b7-6720-4caa-8081-5f250d424e55", CellID->120184455] }, Open ]], Cell[CellGroupData[{ Cell[55356, 1188, 396, 8, 70, "Input",ExpressionUUID->"c638cb10-b553-4afe-a23c-8fb3cf1e86e4", CellID->565142203], Cell[55755, 1198, 252, 6, 70, "Output",ExpressionUUID->"64a595dd-57c7-46be-8148-f53ea3b40c47", CellID->747098276] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56056, 1210, 66, 2, 70, "Subsection",ExpressionUUID->"cc97caf5-8369-4075-990f-db444383d1f3", CellID->204653245], Cell[56125, 1214, 285, 5, 70, "Text",ExpressionUUID->"90dd7daa-b196-4a42-a1c6-f9b5a851e1b4", CellID->824778600], Cell[56413, 1221, 378, 11, 70, "Input",ExpressionUUID->"7239dd22-dbc8-4e55-9fe8-7885aedd82a6", CellID->1884934], Cell[56794, 1234, 414, 11, 70, "Input",ExpressionUUID->"0f3e05c9-858d-44a2-955b-3b83d64be3b1", CellID->671832048], Cell[57211, 1247, 144, 3, 70, "Text",ExpressionUUID->"4443825a-9d40-4ca1-bf27-1bad1fa1eeb3", CellID->799483323], Cell[CellGroupData[{ Cell[57380, 1254, 1339, 34, 70, "Input",ExpressionUUID->"69574e12-d3b7-43d9-85e9-abdd4b91e74b", CellID->292709817], Cell[58722, 1290, 4099, 77, 70, "Output",ExpressionUUID->"c0872589-a1c9-44cb-8a9b-fcbecfcf2cc1", CellID->336317723] }, Open ]], Cell[62836, 1370, 213, 4, 70, "Text",ExpressionUUID->"bae1e935-a631-4a4b-b020-0e8bd5c267e9", CellID->322115264], Cell[CellGroupData[{ Cell[63074, 1378, 256, 6, 70, "Input",ExpressionUUID->"4574cea3-eb4d-41ad-9d8c-3a3155c1993e", CellID->803471248], Cell[63333, 1386, 178, 4, 70, "Output",ExpressionUUID->"d84e3adc-003c-41cb-9013-7cc1588c4437", CellID->461173432] }, Open ]], Cell[CellGroupData[{ Cell[63548, 1395, 251, 6, 70, "Input",ExpressionUUID->"a0bd81b0-5034-45a0-b3dc-f27495c07923", CellID->780135399], Cell[63802, 1403, 156, 4, 70, "Output",ExpressionUUID->"7da3c704-4927-4ce2-962f-8acc2082d79a", CellID->767556990] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[64007, 1413, 74, 2, 70, "Subsection",ExpressionUUID->"9e8f6f55-8922-4b20-90a3-87e46f2b9304", CellID->461278909], Cell[64084, 1417, 178, 3, 70, "Text",ExpressionUUID->"362a9cdb-79eb-48d0-957b-9f6a81b785f9", CellID->570185135], Cell[64265, 1422, 775, 20, 70, "Input",ExpressionUUID->"62cfd37c-58d8-4779-b81a-55d3bc3a0903", CellID->783623153], Cell[CellGroupData[{ Cell[65065, 1446, 294, 7, 70, "Input",ExpressionUUID->"19ea2635-5c60-4280-9738-1f80ed87676b", CellID->91774142], Cell[65362, 1455, 15999, 269, 70, "Output",ExpressionUUID->"d0ffea5f-e77b-427e-aca7-fccd98ec7938", CellID->354999387] }, Open ]], Cell[CellGroupData[{ Cell[81398, 1729, 389, 10, 70, "Input",ExpressionUUID->"6f8eeb2f-35ee-4c54-82aa-013f9e54a7ab", CellID->784608192], Cell[81790, 1741, 336, 8, 70, "Output",ExpressionUUID->"c3caa670-3293-4653-b6e5-fdfe2494781f", CellID->475221601] }, Open ]], Cell[CellGroupData[{ Cell[82163, 1754, 593, 16, 70, "Input",ExpressionUUID->"3771566a-2a40-4f64-b8c2-13953d1cd9cf", CellID->953526878], Cell[82759, 1772, 26184, 436, 70, "Output",ExpressionUUID->"4bc858f0-93b2-49b1-8441-ce09c98eee10", CellID->458650964] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[109004, 2215, 249, 5, 70, "Section",ExpressionUUID->"f9f21cb7-f5e5-43c6-8ad0-023953d8c355", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[109278, 2224, 1026, 26, 70, "Subsection",ExpressionUUID->"017ef9da-1e9a-4209-9849-13885d73f30a", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[110307, 2252, 99, 5, 70, "Text",ExpressionUUID->"f2e9bc40-b095-4fca-b065-f7fcf1b4e4ab", CellID->581387932] }, Open ]], Cell[CellGroupData[{ Cell[110443, 2262, 996, 26, 70, "Subsection",ExpressionUUID->"325aed3e-540e-4fa4-a845-fabc97d11fcf", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[111442, 2290, 45, 1, 70, "Item",ExpressionUUID->"d8cb4803-077d-44a8-9af2-c49c07076498", CellID->94201197], Cell[111490, 2293, 46, 1, 70, "Item",ExpressionUUID->"1c039d4f-544e-4b4c-a02f-4805be6ad7dd", CellID->450262977] }, Open ]], Cell[CellGroupData[{ Cell[111573, 2299, 221, 6, 70, "Subsection",ExpressionUUID->"222e5f12-7989-49b9-8a9b-d4868b0e7de1", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[111797, 2307, 8427, 256, 70, "Output",ExpressionUUID->"d6993132-32bf-4bf6-8ed7-75aee2531b4b", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->438801245] }, Open ]], Cell[CellGroupData[{ Cell[120261, 2568, 980, 26, 70, "Subsection",ExpressionUUID->"b1d68be5-8424-4666-9f8c-975054167709", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[121244, 2596, 53, 1, 70, "Item",ExpressionUUID->"8902379e-3460-4d69-a42c-5ac1c599eb74", CellID->4012908] }, Open ]], Cell[CellGroupData[{ Cell[121334, 2602, 1039, 26, 70, "Subsection",ExpressionUUID->"0407935a-1458-4bad-b1ce-589eae96aebf", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[122376, 2630, 56, 1, 70, "Item",ExpressionUUID->"fdfff568-1e96-4add-b177-719791e5a9d7", CellID->493652050], Cell[122435, 2633, 59, 1, 70, "Item",ExpressionUUID->"5b96b232-5a6b-4877-80f0-f9f17ff4ce26", CellID->413349416], Cell[122497, 2636, 58, 1, 70, "Item",ExpressionUUID->"2d286c81-b68b-4d7e-aa16-708e5f385803", CellID->967511318] }, Open ]], Cell[CellGroupData[{ Cell[122592, 2642, 1084, 26, 70, "Subsection",ExpressionUUID->"e381f6cd-ce5b-42f7-b9ae-810beb0c2525", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[123679, 2670, 181, 6, 70, "Text",ExpressionUUID->"ab843795-6810-40e6-9bd8-0f69c22aa131", CellID->379658379] }, Open ]], Cell[CellGroupData[{ Cell[123897, 2681, 923, 26, 70, "Subsection",ExpressionUUID->"756f1c12-3c60-4f2a-8e62-b96c982207d4", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[124823, 2709, 254, 5, 70, "Item",ExpressionUUID->"d9a940c8-66aa-41ad-a13b-bb223889c60b", CellID->813822342] }, Open ]], Cell[CellGroupData[{ Cell[125114, 2719, 1874, 45, 70, "Subsection",ExpressionUUID->"e58ae0d3-f263-424c-9ff8-7ca9e85863d9", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[127013, 2768, 158, 5, 70, "Input",ExpressionUUID->"f6170249-5b98-485a-b368-4063594a9d83", CellTags->"DefaultContent", CellID->946203791], Cell[127174, 2775, 122, 4, 70, "Output",ExpressionUUID->"68105276-0227-48c1-bdd1-1d207b0641b6", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[127345, 2785, 955, 25, 70, "Subsection",ExpressionUUID->"a3ca6aee-f941-4eeb-b83a-06cf0ee6b47c", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[128325, 2814, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b25ef771-053b-49a4-b9f0-2d1089b4a0d5", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[129502, 2847, 89, 2, 70, "Text",ExpressionUUID->"f3b67ea1-98d1-452c-97bd-c2d59d7448fb", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[129628, 2854, 1113, 29, 70, "Subsubsection",ExpressionUUID->"198f2bc3-6cfd-4dbf-9b08-38ced80d5018", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[130744, 2885, 2098, 62, 70, "Output",ExpressionUUID->"58ab3b7a-1601-4da2-9e49-19716a2612fa", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[132879, 2952, 1280, 33, 70, "Subsubsection",ExpressionUUID->"7f049a49-9c5b-425e-afb3-49243faf594f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[134162, 2987, 2149, 63, 70, "Output",ExpressionUUID->"f14db7ec-bbe3-4d0f-8e0f-399b21a2c067", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[136348, 3055, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b5a3dd33-e18d-4ccc-b7f4-fb862aeafaaa", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[138264, 3103, 3986, 117, 70, "Output",ExpressionUUID->"e2876948-ecbb-4c5a-89d0-04366f3d0223", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[142287, 3225, 1071, 27, 70, "Subsubsection",ExpressionUUID->"6ad2db85-b2d6-47e8-9f34-099c26c2f687", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[143361, 3254, 1218, 36, 70, "Output",ExpressionUUID->"267e03de-9210-4a9a-a8ba-a4e3bae13f75", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[144640, 3297, 1155, 28, 70, "Section",ExpressionUUID->"73ca599d-16c7-4016-bf8a-1a140c218c9f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[145798, 3327, 529, 8, 70, "Text",ExpressionUUID->"916ae9b9-0de4-4a06-a421-49cdcfa5d293", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[146364, 3340, 1033, 26, 70, "Section",ExpressionUUID->"4eba6427-2f34-4c61-a394-888acd44ff7a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[147400, 3368, 515, 8, 70, "Text",ExpressionUUID->"6c4a4e64-52eb-4baf-b369-9c7a89d5101f", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)