(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 330180, 8001] NotebookOptionsPosition[ 166166, 4845] NotebookOutlinePosition[ 309286, 7547] CellTagsIndexPosition[ 307477, 7497] WindowTitle->BinListsBy | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BinListsBy", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->187806206], Cell["\<\ Bin data into lists based on applying a function to each item\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->310601298], 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[{"BinListsBy", "[", RowBox[{"data_List", ",", " ", "binspecs__List"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "fs", ",", " ", "idata", ",", " ", "len", ",", " ", "out", ",", " ", "dims"}], "}"}], ",", " ", RowBox[{ RowBox[{"len", " ", "=", " ", RowBox[{"Length", "[", "data", "]"}]}], ";", " ", RowBox[{"fs", " ", "=", " ", RowBox[{"{", "binspecs", "}"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{"fs", ",", " ", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"#1", ",", " ", RowBox[{ RowBox[{"{", RowBox[{"_", ",", " ", RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], " ", "|", " ", RowBox[{"{", RowBox[{"_", ",", " ", RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}]}]}], "]"}], " ", "&"}]}], " ", "]"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"len", " ", ">", " ", "0"}], ",", " ", RowBox[{ RowBox[{"idata", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", " ", "/@", " ", "data"}], ",", " ", RowBox[{"{", RowBox[{"f", ",", " ", RowBox[{"fs", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{"AppendTo", "[", RowBox[{"idata", ",", " ", RowBox[{"Range", "[", "len", "]"}]}], "]"}], ";", " ", RowBox[{"out", " ", "=", " ", RowBox[{"BinLists", "[", RowBox[{ RowBox[{"Transpose", "[", "idata", "]"}], ",", " ", RowBox[{"Sequence", " ", "@@", " ", RowBox[{"Rest", " ", "/@", " ", "fs"}]}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"len", " ", "+", " ", "1"}], ",", " ", RowBox[{"len", " ", "+", " ", "1"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{"out", " ", "=", " ", RowBox[{"out", "[", RowBox[{"[", RowBox[{ RowBox[{"Sequence", " ", "@@", " ", RowBox[{"ConstantArray", "[", RowBox[{"All", ",", " ", RowBox[{"Length", "[", "fs", "]"}]}], "]"}]}], ",", "1", ",", "All", ",", RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "#1", "]"}], "]"}], " ", "&"}], " ", ",", " ", "out", ",", " ", RowBox[{"{", RowBox[{"Length", "[", "fs", "]"}], "}"}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"dims", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Range", " ", "@@", " ", "#1"}], "]"}], " ", "-", " ", "1"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"Rest", " ", "/@", " ", "fs"}]}]}], ";", " ", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", "dims"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Message", "[", RowBox[{ RowBox[{"BinListsBy", "::", "invalidspec"}], ",", " ", "fs"}], "]"}]}], "]"}]}]}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"BinListsBy", "::", "invalidspec"}], " ", "=", " ", "\"\\""}], ";"}]}], "Input", InitializationCell->True, CellID->473744812] }, 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[{"BinListsBy", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["f", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]]}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->504613791], Cell[TextData[{ "gives lists of the elements ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " for which the values of ", Cell[BoxData[ RowBox[{ StyleBox["f", "TI"], "[", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], "]"}], TraditionalForm]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " lie in bins from ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], TraditionalForm]]], " to ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]], TraditionalForm]]], " with unit width." }], "UsageDescription", CellID->811774047] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinListsBy", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["f", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]], ",", StyleBox["\[CapitalDelta]", "TR"], StyleBox["x", "TI"]}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->185833972], Cell[TextData[{ "gives lists of the elements ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " for which the values of ", Cell[BoxData[ RowBox[{ StyleBox["f", "TI"], "[", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], "]"}], TraditionalForm]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " lie in bins from ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], TraditionalForm]]], " to ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]], TraditionalForm]]], " with width ", Cell[BoxData[ StyleBox["\[CapitalDelta]", "TR"]], "InlineFormula", FontFamily->"Source Sans Pro"], Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->490064215] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinListsBy", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", SubscriptBox[ StyleBox["binspec", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["binspec", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->418984576], Cell[TextData[{ "gives an array of lists of the elements ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " for which each index is determined by applying ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["f", "TI"], "i"], TraditionalForm]]], " of the binning specifications ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["binspec", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " to the value ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], "." }], "UsageDescription", CellID->821577020] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData["BinListsBy"], "InlineFormula", FontFamily->"Source Sans Pro"], " drops those elements for which the function evaluates to values that are \ outside the binning specification." }], "Notes", CellTags->"TabNext", CellID->880024722], Cell[TextData[{ Cell[BoxData["BinListsBy"], "InlineFormula", FontFamily->"Source Sans Pro"], " drops those elements for which the function evaluates to complex numbers \ or to non-numerical data." }], "Notes", CellTags->"TabNext", CellID->532328405], Cell["\<\ Within each bin, elements appear in the same order as in the original data.\ \>", "Notes", CellTags->"TabNext", CellID->745132117], Cell[TextData[{ Cell[BoxData["BinListsBy"], "InlineFormula", FontFamily->"Source Sans Pro"], " places elements in bin ", Cell[BoxData[ StyleBox["i", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " when their function values satisfy ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], "+", RowBox[{ RowBox[{"(", RowBox[{ StyleBox["i", "TI"], "-", "1"}], ")"}], StyleBox["\[CapitalDelta]", "TR"], StyleBox["x", "TI"]}]}], " ", "\[LessEqual]", " ", StyleBox["x", "TI"], " ", "<", " ", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], "+", RowBox[{ StyleBox["i", "TI"], " ", StyleBox["\[CapitalDelta]", "TR"], StyleBox["x", "TI"]}]}]}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], "." }], "Notes", CellID->167025862] }, 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["Bin some data based only on the first element of each list:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525118825795*^9, 3.76252513862075*^9}}, CellID->871084589], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4.2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2.2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1.4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5.3", ",", "2"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"First", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", "Column"}]}], "Input", TaggingRules->{}, CellChangeTimes->{ 3.762525115930554*^9, {3.7625252768089314`*^9, 3.762525278533762*^9}}, CellLabel->"In[82]:=", CellID->124250290], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{"{", RowBox[{"1.4`", ",", "1"}], "}"}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.2`", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9`", ",", "3"}], "}"}]}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"4.2`", ",", "5"}], "}"}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.1`", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5.3`", ",", "2"}], "}"}]}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"7.1`", ",", "6"}], "}"}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762525116644456*^9, 3.762525141154107*^9}, 3.762525278840766*^9, 3.762527022707518*^9, 3.762528264227338*^9, 3.7625292297367477`*^9, 3.762627185586095*^9, 3.762627402130766*^9, 3.762629432418747*^9, 3.762707723308351*^9, 3.763137544782978*^9}, CellLabel->"Out[83]=", CellID->158209385] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797627], Cell["Bin a list of data based on the string length of each item:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525118825795*^9, 3.762525162566979*^9}, { 3.7625252048834753`*^9, 3.7625252556875668`*^9}}, CellID->177099424], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"StringLength", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", "Column"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762525267201323*^9, 3.7625252853717833`*^9}}, CellLabel->"In[84]:=", CellID->324399296], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", "}"}]}, { RowBox[{"{", "\<\"is\"\>", "}"}]}, { RowBox[{"{", "\<\"ok?\"\>", "}"}]}, { RowBox[{"{", RowBox[{"\<\"This\"\>", ",", "\<\"just\"\>", ",", "\<\"some\"\>", ",", "\<\"test\"\>", ",", "\<\"data\"\>", ",", "\<\"from\"\>"}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "\<\"Sander\"\>", "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762525256988558*^9, 3.762525285781752*^9}, 3.762527025653071*^9, 3.762528268749542*^9, 3.7625292348849297`*^9, 3.7626274113714733`*^9, 3.7626294448720407`*^9, 3.763137549572997*^9}, CellLabel->"Out[85]=", CellID->231780043] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797628], Cell["Bin some data based on the total of each list:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525118825795*^9, 3.762525162566979*^9}, { 3.762525670838627*^9, 3.762525670909096*^9}}, CellID->873518912], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"Total", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", "Column"}]}], "Input", TaggingRules->{}, CellChangeTimes->{ 3.762525167518146*^9, {3.762525270632996*^9, 3.762525273520734*^9}}, CellLabel->"In[86]:=", CellID->440852861], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "5"}], "}"}]}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}]}], "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762525164578225*^9, 3.7625251678562717`*^9}, 3.7625252738776827`*^9, 3.762527024274872*^9, 3.7625282662869577`*^9, 3.762529232789875*^9, 3.76262740453017*^9, {3.7626294342434483`*^9, 3.762629454983304*^9}, 3.7631375537610197`*^9}, CellLabel->"Out[87]=", CellID->774225614] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797629], Cell["Bin some data with some \[OpenCurlyQuote]auxiliary\[CloseCurlyQuote] \ data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525118825795*^9, 3.762525162566979*^9}, { 3.7625252048834753`*^9, 3.7625252556875668`*^9}, {3.762526847676643*^9, 3.7625268549133263`*^9}, {3.7625270021694307`*^9, 3.762527004932725*^9}}, CellID->21318515], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.2", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Missing", "[", "\"\\"", "]"}]}]}], "|>"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.1", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "25"}]}], "|>"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "41"}]}], "|>"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.1", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "20"}]}], "|>"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.4", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "72"}]}], "|>"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7.1", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "42"}]}], "|>"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.2", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "31"}]}], "|>"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"First", ",", "1", ",", "10"}], "}"}]}], "]"}], "//", "Column"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.76252667561906*^9, 3.76252687516331*^9}, { 3.762526908367257*^9, 3.762526995217814*^9}, {3.762527077461388*^9, 3.762527089523921*^9}}, CellLabel->"In[88]:=", CellID->863300951], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"2.5`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Eric\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "41"}]}], "\[RightAssociation]"}]}], "}"}], "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"3.1`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Paul\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "20"}]}], "\[RightAssociation]"}]}], "}"}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.1`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Tanya\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "25"}]}], "\[RightAssociation]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Henry\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "72"}]}], "\[RightAssociation]"}]}], "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{"{", RowBox[{"6.2`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Natalie\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "31"}]}], "\[RightAssociation]"}]}], "}"}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.2`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Sander\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"Disputed\"\>", "]"}]}]}], "\[RightAssociation]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7.1`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Emma\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "42"}]}], "\[RightAssociation]"}]}], "}"}]}], "}"}]}, { RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.76252695002507*^9, 3.7625269954565563`*^9}, 3.7625270271202183`*^9, {3.762527082531267*^9, 3.762527090006153*^9}, 3.762528270996517*^9, 3.76252923657874*^9, 3.762627414213151*^9, 3.7626294564768353`*^9, 3.763137556623563*^9}, CellLabel->"Out[89]=", CellID->260136756] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ Perform a 2 dimensional binning based on the value of the first element, and \ the string length of the last element:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525719337405*^9, 3.762525747383472*^9}, { 3.762525830266765*^9, 3.7625258611793623`*^9}, {3.7626274266097517`*^9, 3.762627428898068*^9}}, CellID->554528607], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "2.3", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"5.1", ",", "1.2", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "3.1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"3.1", ",", "1.87", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"2.4", ",", "1.6", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"7.1", ",", "1.4", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"6.2", ",", "7.3", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"3.14", ",", "9.1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", "0.8", ",", "\"\\""}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"First", ",", RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"StringLength", "@*", "Last"}], ",", "1", ",", "7", ",", "1"}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"Grid", "[", RowBox[{"%", ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellLabel->"In[90]:=", CellID->50203380], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7`"}], ",", "0.8`", ",", "\<\"ok?\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"1.2`", ",", "2.3`", ",", "\<\"This\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"2.4`", ",", "1.6`", ",", "\<\"test\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"3.1`", ",", "1.87`", ",", "\<\"some\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"3.14`", ",", "9.1`", ",", "\<\"Sander\"\>"}], "}"}], "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"4.5`", ",", "3.1`", ",", "\<\"just\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"5.1`", ",", "1.2`", ",", "\<\"is\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"6.2`", ",", "7.3`", ",", "\<\"from\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]}, { RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}], RowBox[{"{", RowBox[{"{", RowBox[{"7.1`", ",", "1.4`", ",", "\<\"data\"\>"}], "}"}], "}"}], RowBox[{"{", "}"}], RowBox[{"{", "}"}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{3.762525866723637*^9, 3.76252827348365*^9, 3.7625292395030813`*^9, 3.762627430884645*^9, 3.7626294592790213`*^9, 3.763137560718575*^9}, CellLabel->"Out[92]=", CellID->439418996] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797630], Cell["\<\ Perform a 3 dimensional binning based on the value of the first element, the \ value of the middle element, and the length of the last element:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525719337405*^9, 3.762525747383472*^9}, { 3.762525830266765*^9, 3.7625258611793623`*^9}, {3.762529247801495*^9, 3.762529261949025*^9}}, CellID->17394310], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "2.3", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"5.1", ",", "1.2", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "3.1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"3.1", ",", "1.87", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"2.4", ",", "1.6", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"7.1", ",", "1.4", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"6.2", ",", "7.3", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"3.14", ",", "9.1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", "0.8", ",", "\"\\""}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"First", ",", RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "0", ",", "10", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"StringLength", "@*", "Last"}], ",", "1", ",", "7", ",", "1"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762528627852508*^9, 3.762528679848937*^9}}, CellLabel->"In[86]:=", CellID->955409396], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7`"}], ",", "0.8`", ",", "\<\"ok?\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1.2`", ",", "2.3`", ",", "\<\"This\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"2.4`", ",", "1.6`", ",", "\<\"test\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"3.1`", ",", "1.87`", ",", "\<\"some\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"3.14`", ",", "9.1`", ",", "\<\"Sander\"\>"}], "}"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"4.5`", ",", "3.1`", ",", "\<\"just\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"5.1`", ",", "1.2`", ",", "\<\"is\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"6.2`", ",", "7.3`", ",", "\<\"from\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"7.1`", ",", "1.4`", ",", "\<\"data\"\>"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.762525866723637*^9, 3.76252827348365*^9, {3.762528649570414*^9, 3.762528680302911*^9}, {3.7625292430680733`*^9, 3.762529264466254*^9}, 3.762627437431057*^9, 3.7626294616416492`*^9}, CellLabel->"Out[87]=", CellID->212588981] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797631], Cell["\<\ The lists do not need to have the same length, structure, or type, allowing \ to bin data with auxiliary data:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762528299628598*^9, 3.76252834368624*^9}, { 3.762528497760683*^9, 3.762528518601933*^9}}, CellID->86805214], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"6.1", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "5"}]}], "|>"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"4.5", ",", RowBox[{"10", "+", RowBox[{"2", "Pi"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"3.1", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "125"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"2.4", ",", "1.6", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "7.1", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"6.2", ",", RowBox[{"{", RowBox[{"7.3", ",", "\"\\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"3.14", ",", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "^", "3"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\n", RowBox[{"Grid", "[", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"First", ",", "0", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762528314240883*^9, 3.762528384735777*^9}, { 3.762528421843051*^9, 3.762528494552603*^9}, {3.762528548373601*^9, 3.762528562717389*^9}}, CellLabel->"In[93]:=", CellID->475035898], Cell[BoxData[ TagBox[GridBox[{ {"", ""}, { RowBox[{"{", RowBox[{"1.2`", ",", "\<\"This\"\>"}], "}"}], ""}, { RowBox[{"{", RowBox[{"2.4`", ",", "1.6`", ",", "\<\"test\"\>"}], "}"}], ""}, { RowBox[{"{", RowBox[{"3.1`", ",", GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV 5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g 8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106 z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/ GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93 boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG 9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+ GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84 J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48 42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka /3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR 61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1 tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i 48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6 m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8 NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9 MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7 risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39 68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH 9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo 67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8 go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5 gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0 BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC 2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6 xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR +XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb 65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2 K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W 2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC 5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim WQjmSrO1dK793/8D/wMuq3uF "]]}, Annotation[#, "Charting`Private`Tag$258376#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->125, 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"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{ 0, 3.141592653589793}, {0., 0.9999999707682925}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "}"}], RowBox[{"{", RowBox[{"3.14`", ",", RowBox[{ SuperscriptBox["x", "3"], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{"3", " ", "x", " ", SuperscriptBox["y", "2"]}], "+", SuperscriptBox["y", "3"]}]}], "}"}]}, { RowBox[{"{", RowBox[{"4.5`", ",", RowBox[{"10", "+", RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ""}, {"", ""}, { RowBox[{"{", RowBox[{"6.1`", ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "3"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "5"}]}], "\[RightAssociation]"}]}], "}"}], RowBox[{"{", RowBox[{"6.2`", ",", RowBox[{"{", RowBox[{"7.3`", ",", "\<\"from\"\>"}], "}"}]}], "}"}]}, { RowBox[{"{", "7.1`", "}"}], ""}, {"", ""} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762528423609589*^9, 3.7625285630027847`*^9}, 3.7625292751394777`*^9, 3.7626274488948517`*^9, 3.762629463304956*^9, 3.76313756932135*^9}, CellLabel->"Out[94]=", CellID->200704894] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ Bin some data based on the number of unique letters in each string: \ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7625259286082172`*^9, 3.762525964897393*^9}}, CellID->385983574], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{ "Length", "@*", "DeleteDuplicates", "@*", "Characters", "@*", "ToLowerCase"}], ",", "1", ",", "10"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.762525922856474*^9, 3.762525974924403*^9}, CellLabel->"In[95]:=", CellID->385629139], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "\<\"is\"\>", "}"}], ",", RowBox[{"{", RowBox[{"\<\"test\"\>", ",", "\<\"data\"\>", ",", "\<\"ok?\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"This\"\>", ",", "\<\"just\"\>", ",", "\<\"some\"\>", ",", "\<\"from\"\>"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "\<\"Sander\"\>", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.762525924817177*^9, {3.762525966800063*^9, 3.762525975335402*^9}, 3.762529282453861*^9, 3.762627456325972*^9, 3.7626294661747627`*^9, 3.763137573072509*^9}, CellLabel->"Out[96]=", CellID->563772124] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797632], Cell["Bin complex numbers based on their imaginary and real parts:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762527593455703*^9, 3.762527619212366*^9}, { 3.762527680783457*^9, 3.762527681189354*^9}}, CellID->556998602], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1234", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"RandomComplex", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"4", "+", RowBox[{"4", "I"}]}]}], "}"}], ",", "30"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"out", "=", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"Im", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"Re", ",", "0", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{"Column", ",", "out", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762527629181835*^9, 3.76252766985962*^9}}, CellLabel->"In[97]:=", CellID->662206008], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { RowBox[{"0.3448937078165297`", "\[VeryThinSpace]", "+", RowBox[{"0.8464121911039584`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"0.4221533685726113`", "\[VeryThinSpace]", "+", RowBox[{"0.9611648925248675`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"1.9173266818896986`", "\[VeryThinSpace]", "+", RowBox[{"0.03127182826603292`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"1.8850465977947328`", "\[VeryThinSpace]", "+", RowBox[{"0.8048927174478138`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"1.239997989189706`", "\[VeryThinSpace]", "+", RowBox[{"0.18988063781354825`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"2.0878570008075084`", "\[VeryThinSpace]", "+", RowBox[{"0.8654721205714955`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"2.784635731441389`", "\[VeryThinSpace]", "+", RowBox[{"0.9079770214239673`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"2.53096503047468`", "\[VeryThinSpace]", "+", RowBox[{"0.5986118473576436`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"3.538916674819812`", "\[VeryThinSpace]", "+", RowBox[{"0.10210517464036695`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"3.1608585219258947`", "\[VeryThinSpace]", "+", RowBox[{"0.48360589759776396`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ { RowBox[{"0.04657829187698681`", "\[VeryThinSpace]", "+", RowBox[{"1.6326019929598425`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"1.6953408915884616`", "\[VeryThinSpace]", "+", RowBox[{"1.561864191457464`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"2.3517706247781405`", "\[VeryThinSpace]", "+", RowBox[{"1.5062891859790701`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"3.0395840062463515`", "\[VeryThinSpace]", "+", RowBox[{"1.2955578958723937`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ { RowBox[{"0.9813969111228191`", "\[VeryThinSpace]", "+", RowBox[{"2.607206083431822`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"1.8360687477003523`", "\[VeryThinSpace]", "+", RowBox[{"2.4240060328423505`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"1.0558926700001212`", "\[VeryThinSpace]", "+", RowBox[{"2.4640567890444647`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"2.335417143960595`", "\[VeryThinSpace]", "+", RowBox[{"2.4647802302069106`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"3.7090646533686478`", "\[VeryThinSpace]", "+", RowBox[{"2.714704655422297`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"3.9399719901772174`", "\[VeryThinSpace]", "+", RowBox[{"2.631517551675909`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ { RowBox[{"0.8681804862533546`", "\[VeryThinSpace]", "+", RowBox[{"3.067907834733834`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"0.33121957357971343`", "\[VeryThinSpace]", "+", RowBox[{"3.603457677089734`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"1.5116518172195432`", "\[VeryThinSpace]", "+", RowBox[{"3.517511807356832`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"1.6061969073453177`", "\[VeryThinSpace]", "+", RowBox[{"3.2586675797998303`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"2.1750270678042725`", "\[VeryThinSpace]", "+", RowBox[{"3.4241501400075824`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"3.506433970296772`", "\[VeryThinSpace]", "+", RowBox[{"3.127209283387434`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"3.678240649456516`", "\[VeryThinSpace]", "+", RowBox[{"3.3873729232407133`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"3.9491612466652333`", "\[VeryThinSpace]", "+", RowBox[{"3.7523233279707577`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"3.007464935434178`", "\[VeryThinSpace]", "+", RowBox[{"3.94535168257282`", " ", "\[ImaginaryI]"}]}]}, { RowBox[{"3.2975788834915374`", "\[VeryThinSpace]", "+", RowBox[{"3.623178635675247`", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762527621995281*^9, 3.7625276828906803`*^9}, 3.7625292844134073`*^9, 3.7626274592664843`*^9, 3.762629468780552*^9, 3.7631375760171833`*^9}, CellLabel->"Out[100]=", CellID->852845676] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797633], Cell["Bin some strings based on their first letter:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525719337405*^9, 3.762525747383472*^9}}, CellID->964756314], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"out", "=", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{"First", "@*", "LetterNumber", "@*", "ToLowerCase"}], ",", "1", ",", "27"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"out", ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "}"}]}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7626294880148582`*^9, 3.762629528470584*^9}, { 3.76262960745582*^9, 3.762629663195546*^9}}, CellLabel->"In[101]:=", CellID->381648967], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"a\"\>", "\<\"about\"\>", "\<\"\"\>"}, {"\<\"b\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"c\"\>", "\<\"comate\"\>", "\<\"\"\>"}, {"\<\"d\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"e\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"f\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"g\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"h\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"i\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"j\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"k\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"l\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"m\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"n\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"o\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"p\"\>", "\<\"pink-slipped\"\>", "\<\"perceptual\"\>"}, {"\<\"q\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"r\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"s\"\>", "\<\"superconducting\"\>", "\<\"snared\"\>"}, {"\<\"t\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"u\"\>", "\<\"ungodly\"\>", "\<\"\"\>"}, {"\<\"v\"\>", "\<\"votive\"\>", "\<\"\"\>"}, {"\<\"w\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"x\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"y\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"z\"\>", "\<\"zenzizenzizenzic\"\>", "\<\"\"\>"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], TableForm[{{"about"}, {}, { "comate"}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { "pink-slipped", "perceptual"}, {}, {}, { "superconducting", "snared"}, {}, {"ungodly"}, {"votive"}, {}, {}, {}, { "zenzizenzizenzic"}}, TableHeadings -> {{ "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762629627763694*^9, 3.762629663717382*^9}, 3.7631375815421543`*^9}, CellLabel->"Out[103]//TableForm=", CellID->675371826] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797634], Cell["Bin some person entities based on their birth century:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7625262143496523`*^9, 3.762526240438936*^9}, { 3.762629666917791*^9, 3.762629667638842*^9}}, CellID->335718196], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ TemplateBox[{"\"Albert Einstein\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"AlbertEinstein::6tb7g\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"AlbertEinstein::6tb7g\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Jane Goodall\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"JaneGoodall::4k9zt\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"JaneGoodall::4k9zt\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Claude\[Hyphen]Louis Navier\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"Claude-LouisNavier::2g48v\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"Claude-LouisNavier::2g48v\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Marie Curie\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"MarieCurie::v9f84\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"MarieCurie::v9f84\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Isaac Newton\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"IsaacNewton::bhz5x\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"IsaacNewton::bhz5x\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Grace Brewster Murray Hopper\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"GraceBrewsterMurrayHopper::g9sk6\""}], "]"}], "\"Entity[\\\"Person\\\", \ \\\"GraceBrewsterMurrayHopper::g9sk6\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Leonardo da Vinci\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"LeonardoDaVinci::47w36\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"LeonardoDaVinci::47w36\\\"]\"", "\"person\""}, "Entity"], ",", TemplateBox[{"\"Hendrik Lorentz\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"HendrikLorentz::765z3\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"HendrikLorentz::765z3\\\"]\"", "\"person\""}, "Entity"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"out", "=", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"DateValue", "[", RowBox[{ RowBox[{"#", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "&"}], ",", "1401", ",", "2001", ",", "100"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Row", "/@", "out"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\\""}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"15", ",", "20"}], "]"}]}], "}"}]}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7622601152868023`*^9, 3.762260133078743*^9}, { 3.762260178940082*^9, 3.762260378721719*^9}, {3.762260447809967*^9, 3.762260448969556*^9}, {3.7622604816135073`*^9, 3.7622605042803783`*^9}, 3.762260537093316*^9, {3.762260586120508*^9, 3.762260656346546*^9}, { 3.7622606877571993`*^9, 3.762260726512507*^9}, {3.7625262484968567`*^9, 3.7625262597357483`*^9}, 3.7625263023761587`*^9}, CellLabel->"In[117]:=", CellID->799616386], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"15th\"\>", HoldForm], TemplateBox[{ TemplateBox[{"\"Leonardo da Vinci\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"LeonardoDaVinci::47w36\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"LeonardoDaVinci::47w36\\\"]\"", "\"person\""}, "Entity"]}, "RowDefault"]}, { TagBox["\<\"16th\"\>", HoldForm], TemplateBox[{}, "RowDefault"]}, { TagBox["\<\"17th\"\>", HoldForm], TemplateBox[{ TemplateBox[{"\"Isaac Newton\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"IsaacNewton::bhz5x\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"IsaacNewton::bhz5x\\\"]\"", "\"person\""}, "Entity"]}, "RowDefault"]}, { TagBox["\<\"18th\"\>", HoldForm], TemplateBox[{ TemplateBox[{"\"Claude\[Hyphen]Louis Navier\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"Claude-LouisNavier::2g48v\""}], "]"}], "\"Entity[\\\"Person\\\", \ \\\"Claude-LouisNavier::2g48v\\\"]\"", "\"person\""}, "Entity"]}, "RowDefault"]}, { TagBox["\<\"19th\"\>", HoldForm], TemplateBox[{ TemplateBox[{"\"Albert Einstein\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"AlbertEinstein::6tb7g\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"AlbertEinstein::6tb7g\\\"]\"", "\"person\""}, "Entity"], TemplateBox[{"\"Marie Curie\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"MarieCurie::v9f84\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"MarieCurie::v9f84\\\"]\"", "\"person\""}, "Entity"], TemplateBox[{"\"Hendrik Lorentz\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"HendrikLorentz::765z3\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"HendrikLorentz::765z3\\\"]\"", "\"person\""}, "Entity"]}, "RowDefault"]}, { TagBox["\<\"20th\"\>", HoldForm], TemplateBox[{ TemplateBox[{"\"Jane Goodall\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"JaneGoodall::4k9zt\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"JaneGoodall::4k9zt\\\"]\"", "\"person\""}, "Entity"], TemplateBox[{"\"Grace Brewster Murray Hopper\"", RowBox[{"Entity", "[", RowBox[{"\"Person\"", ",", "\"GraceBrewsterMurrayHopper::g9sk6\""}], "]"}], "\"Entity[\\\"Person\\\", \\\"GraceBrewsterMurrayHopper::g9sk6\\\"]\ \"", "\"person\""}, "Entity"]}, "RowDefault"]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "Rows" -> {{False}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], OutputFormsDump`HeadedColumn], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{ "15th", "16th", "17th", "18th", "19th", "20th"}}]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7625262442153397`*^9, 3.762526260404161*^9}, { 3.762526307943706*^9, 3.762526334627799*^9}, 3.762529292939994*^9, 3.762627476023162*^9, 3.762629669167592*^9}, CellLabel->"Out[119]//TableForm=", CellID->828471293] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797635], Cell["Bin some associations based on age:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7625262143496523`*^9, 3.762526240438936*^9}, { 3.76252647116613*^9, 3.7625264780983152`*^9}}, CellID->816948169], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "76"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "|>"}], ",", "\[IndentingNewLine]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "64"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "|>"}], ",", "\[IndentingNewLine]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "51"}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "|>"}], ",", "\[IndentingNewLine]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "66"}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "|>"}], ",", "\[IndentingNewLine]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "85"}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "|>"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"#", "[", "\"\\"", "]"}], "&"}], ",", "0", ",", "100", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7625264891043863`*^9, 3.7625265040262127`*^9}}, CellLabel->"In[104]:=", CellID->419217436], Cell[BoxData[ TagBox[GridBox[{ {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, { RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Claude\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "51"}], ",", RowBox[{"\<\"Occupation\"\>", "\[Rule]", "\<\"Mathematical Physicist\"\>"}]}], "\[RightAssociation]"}], ""}, { RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Bernard\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "64"}], ",", RowBox[{"\<\"Occupation\"\>", "\[Rule]", "\<\"Physicist\"\>"}]}], "\[RightAssociation]"}], RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Marie\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "66"}], ",", RowBox[{"\<\"Occupation\"\>", "\[Rule]", "\<\"Physicist, Chemist\"\>"}]}], "\[RightAssociation]"}]}, { RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Albert\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "76"}], ",", RowBox[{"\<\"Occupation\"\>", "\[Rule]", "\<\"Physicist\"\>"}]}], "\[RightAssociation]"}], ""}, { RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Grace\"\>"}], ",", RowBox[{"\<\"Age\"\>", "\[Rule]", "85"}], ",", RowBox[{"\<\"Occupation\"\>", "\[Rule]", "\<\"Computer scientist\"\>"}]}], "\[RightAssociation]"}], ""}, {"", ""} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762526492649785*^9, 3.7625265042423477`*^9}, 3.762529295063159*^9, 3.762627481143259*^9, 3.762629673986309*^9, 3.763137591769176*^9}, CellLabel->"Out[105]=", CellID->579075794] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell["\<\ BinLists can sometimes perform similar tasks as BinListsBy by giving a single \ large bin in the \[OpenCurlyQuote]other\[CloseCurlyQuote] dimensions:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762525719337405*^9, 3.762525747383472*^9}, { 3.76252605093239*^9, 3.762526162911482*^9}}, CellID->28656764], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"29", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "63"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "77"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "91"}], "}"}], ",", RowBox[{"{", RowBox[{"93", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "97"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"98", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"78", ",", "85"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "92"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"91", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "94"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"91", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"74", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", "91"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "82"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"62", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "99"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "90"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"First", ",", "0", ",", "100", ",", "10"}], "}"}]}], "]"}], "===", RowBox[{ RowBox[{"BinLists", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"0", ",", "100", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1000"}], ",", "1000", ",", "2000"}], "}"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7625260063515053`*^9, 3.7625260342998543`*^9}, { 3.7625261302392483`*^9, 3.762526137401651*^9}}, CellLabel->"In[106]:=", CellID->292371377], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.762526008032647*^9, 3.7625260350832872`*^9}, { 3.762526127617663*^9, 3.762526138082096*^9}, 3.762529298448888*^9, 3.762627488949963*^9, 3.762629695804707*^9, 3.7631375984104424`*^9}, CellLabel->"Out[107]=", CellID->791890678] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797636], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["GatherBy", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/GatherBy", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " gives similar output as BinListsBy, but BinListsBy always returns an \ output with the same dimensions, the bins are sorted, and includes empty \ lists where necessary:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7625288782781143`*^9, 3.762528915979513*^9}, { 3.762528956824338*^9, 3.762528972178253*^9}, {3.762529023233449*^9, 3.762529050590211*^9}, {3.762529476716426*^9, 3.762529483374696*^9}}, CellID->87093551], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.762525922856474*^9, 3.762525974924403*^9, {3.76252885542798*^9, 3.762528871120665*^9}, {3.762528931539865*^9, 3.762528940974944*^9}, { 3.76252949761985*^9, 3.7625295007740803`*^9}, {3.76262749515421*^9, 3.762627496761471*^9}}, CellLabel->"In[108]:=", CellID->679931941], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"out1", "=", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"StringLength", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input",\ TaggingRules->{}, CellChangeTimes->{ 3.762525922856474*^9, 3.762525974924403*^9, {3.76252885542798*^9, 3.762528871120665*^9}, {3.762528931539865*^9, 3.762528940974944*^9}, { 3.76252949761985*^9, 3.7625295007740803`*^9}, {3.76262749515421*^9, 3.762627496761471*^9}}, CellLabel->"In[109]:=", CellID->463039607], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "\<\"is\"\>", "}"}], ",", RowBox[{"{", "\<\"ok?\"\>", "}"}], ",", RowBox[{"{", RowBox[{"\<\"This\"\>", ",", "\<\"just\"\>", ",", "\<\"some\"\>", ",", "\<\"test\"\>", ",", "\<\"data\"\>", ",", "\<\"from\"\>"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "\<\"Sander\"\>", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762528853685446*^9, 3.762528871516078*^9}, { 3.7625289186533117`*^9, 3.762528941563675*^9}, 3.7625293053546124`*^9, { 3.762529485931176*^9, 3.762529502086322*^9}, {3.762627491186928*^9, 3.7626275012567883`*^9}, 3.762629710012206*^9, 3.763137602178007*^9}, CellLabel->"Out[109]=", CellID->157732540] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"out2", "=", RowBox[{"GatherBy", "[", RowBox[{"data", ",", "StringLength"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.762525922856474*^9, 3.762525974924403*^9, {3.76252885542798*^9, 3.762528871120665*^9}, {3.762528931539865*^9, 3.762528940974944*^9}, { 3.76252949761985*^9, 3.7625295007740803`*^9}, {3.76262749515421*^9, 3.762627496761471*^9}}, CellLabel->"In[110]:=", CellID->15661001], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"This\"\>", ",", "\<\"just\"\>", ",", "\<\"some\"\>", ",", "\<\"test\"\>", ",", "\<\"data\"\>", ",", "\<\"from\"\>"}], "}"}], ",", RowBox[{"{", "\<\"is\"\>", "}"}], ",", RowBox[{"{", "\<\"Sander\"\>", "}"}], ",", RowBox[{"{", "\<\"ok?\"\>", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762528853685446*^9, 3.762528871516078*^9}, { 3.7625289186533117`*^9, 3.762528941563675*^9}, 3.7625293053546124`*^9, { 3.762529485931176*^9, 3.762529502086322*^9}, {3.762627491186928*^9, 3.7626275012567883`*^9}, 3.762629710012206*^9, 3.763137602183529*^9}, CellLabel->"Out[110]=", CellID->260657257] }, Open ]], Cell["Explicitly check they return the same:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762529522741791*^9, 3.762529532356532*^9}}, CellID->862199411], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sort", "[", RowBox[{"DeleteCases", "[", RowBox[{"out1", ",", RowBox[{"{", "}"}]}], "]"}], "]"}], "===", RowBox[{"Sort", "[", "out2", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762529504259164*^9, 3.7625295178325987`*^9}, { 3.7626275125520353`*^9, 3.762627513300577*^9}}, CellLabel->"In[111]:=", CellID->757623012], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.762529518177925*^9, 3.76252953386828*^9}, { 3.762627503036558*^9, 3.762627514190637*^9}, 3.762627546485507*^9, 3.762629712453681*^9, 3.7631376033617373`*^9}, CellLabel->"Out[111]=", CellID->822334957] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell["\<\ If the function does not return a number it will not be binned:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762527388508847*^9, 3.762527397787945*^9}, 3.76252906169144*^9}, CellID->353439455], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{"1", ",", "4", ",", RowBox[{"-", "2"}], ",", "3", ",", "2", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"g", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762529574696179*^9, 3.762529598909779*^9}}, CellLabel->"In[128]:=", CellID->869692502], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7625290646834593`*^9, 3.762529307555868*^9, {3.762529575144107*^9, 3.762529599307953*^9}, 3.76262754983032*^9, 3.762629717443317*^9}, CellLabel->"Out[129]=", CellID->855141985] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797637], Cell["Values outside the binning range are discarded:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762627561350527*^9, 3.76262757485222*^9}}, CellID->400240419], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "1", ",", "4", ",", "2", ",", "5", ",", "2", ",", "6", ",", "2", ",", "8"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"Identity", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762529574696179*^9, 3.762529598909779*^9}, { 3.762627583122821*^9, 3.762627640303138*^9}}, CellLabel->"In[130]:=", CellID->666628286], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7625290646834593`*^9, 3.762529307555868*^9, {3.762529575144107*^9, 3.762529599307953*^9}, 3.76262754983032*^9, {3.762627595390196*^9, 3.762627640611641*^9}, 3.762629719858741*^9}, CellLabel->"Out[131]=", CellID->197350030] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["Bin some datasets based on their regressed slope:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762527768792156*^9, 3.7625277800674677`*^9}, 3.7625281298606567`*^9}, CellID->68476146], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"2", ",", "8"}], "}"}], "]"}]}], ";", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"t", " ", "x"}], "+", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ",", "6"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"out", "=", RowBox[{"BinListsBy", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"LinearModelFit", "[", RowBox[{"#", ",", "x", ",", "x"}], "]"}], "[", "\"\\"", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.762528099843145*^9, 3.762528127324017*^9}, { 3.762529091020238*^9, 3.7625291036605053`*^9}}, CellLabel->"In[132]:=", CellID->386395320], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.505010438271984`"}], ",", "5.491447419521245`", ",", "9.724533671056413`", ",", "14.461862090476803`", ",", "18.30452788814753`", ",", "22.271258953794305`", ",", "26.63872550579934`", ",", "31.920676234866164`", ",", "35.55447283759441`", ",", "40.446789824426475`", ",", "45.79506310054848`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6399344735703592`", ",", "3.994194224271027`", ",", "8.87350291157648`", ",", "13.068022018921663`", ",", "16.71199094687728`", ",", "21.662586427795105`", ",", "26.67526897349717`", ",", "29.428109523559808`", ",", "34.381681979525375`", ",", "39.67102910828534`", ",", "42.45886829446386`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08219564728310269`"}], ",", "4.265348105882926`", ",", "9.15035025201069`", ",", "13.624107578939451`", ",", "16.91717154078653`", ",", "21.333320302426948`", ",", "25.973723475286413`", ",", "29.544229984891857`", ",", "34.744409415575234`", ",", "39.605518325407814`", ",", "42.882606347397974`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.1253178573495144`", ",", "5.80402440833183`", ",", "11.483932664548092`", ",", "15.177613077348138`", ",", "21.103039210717984`", ",", "25.996337770674074`", ",", "31.01083288829775`", ",", "36.961567395528185`", ",", "42.07740589867905`", ",", "46.97406975932924`", ",", "52.78311172157445`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0840564178848906`", ",", "6.143065237673886`", ",", "11.168023360313663`", ",", "15.798932932350338`", ",", "21.95151192756402`", ",", "27.48690347276696`", ",", "32.16577695554589`", ",", "36.9971783204205`", ",", "42.523221636779965`", ",", "49.10764144307261`", ",", "54.006301919258696`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7771607777375271`"}], ",", "7.48338893029413`", ",", "13.184280175464908`", ",", "20.19573275799458`", ",", "26.74882528312327`", ",", "34.606177946151384`", ",", "40.88833065963061`", ",", "48.122370750282165`", ",", "55.635643092095904`", ",", "61.5626844273461`", ",", "69.54068317323018`"}], "}"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762528111218482*^9, 3.762528127730975*^9}, { 3.762529084709138*^9, 3.762529104221382*^9}, 3.762529309820684*^9, 3.762627661371828*^9, 3.762629754618162*^9}, CellLabel->"Out[134]=", CellID->807342594] }, Open ]], Cell["Plot the datasets with similar slopes together:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762529108609261*^9, 3.762529182502057*^9}}, CellID->783708892], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "/@", RowBox[{"Select", "[", RowBox[{"out", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], ">", "0"}], "&"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762529117055244*^9, 3.762529125682602*^9}}, CellLabel->"In[135]:=", CellID->292653029], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., -0.505010438271984}, {2., 5.491447419521245}, {3., 9.724533671056413}, {4., 14.461862090476803`}, {5., 18.30452788814753}, {6., 22.271258953794305`}, {7., 26.63872550579934}, {8., 31.920676234866164`}, {9., 35.55447283759441}, {10., 40.446789824426475`}, {11., 45.79506310054848}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.6399344735703592}, {2., 3.994194224271027}, {3., 8.87350291157648}, {4., 13.068022018921663`}, {5., 16.71199094687728}, {6., 21.662586427795105`}, {7., 26.67526897349717}, {8., 29.428109523559808`}, {9., 34.381681979525375`}, {10., 39.67102910828534}, {11., 42.45886829446386}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., -0.08219564728310269}, {2., 4.265348105882926}, {3., 9.15035025201069}, {4., 13.624107578939451`}, {5., 16.91717154078653}, {6., 21.333320302426948`}, {7., 25.973723475286413`}, {8., 29.544229984891857`}, {9., 34.744409415575234`}, {10., 39.605518325407814`}, {11., 42.882606347397974`}}]}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.012833333333333334`], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.012833333333333334`], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 11.}, {-0.505010438271984, 45.79506310054848}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.1253178573495144}, {2., 5.80402440833183}, {3., 11.483932664548092`}, {4., 15.177613077348138`}, {5., 21.103039210717984`}, {6., 25.996337770674074`}, {7., 31.01083288829775}, {8., 36.961567395528185`}, {9., 42.07740589867905}, {10., 46.97406975932924}, {11., 52.78311172157445}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.0840564178848906}, {2., 6.143065237673886}, {3., 11.168023360313663`}, {4., 15.798932932350338`}, {5., 21.95151192756402}, {6., 27.48690347276696}, {7., 32.16577695554589}, {8., 36.9971783204205}, {9., 42.523221636779965`}, {10., 49.10764144307261}, {11., 54.006301919258696`}}]}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}, {}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[ 1.6]}, {}, {}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 11.}, {0, 54.006301919258696`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., -0.7771607777375271}, {2., 7.48338893029413}, {3., 13.184280175464908`}, {4., 20.19573275799458}, {5., 26.74882528312327}, {6., 34.606177946151384`}, {7., 40.88833065963061}, {8., 48.122370750282165`}, {9., 55.635643092095904`}, {10., 61.5626844273461}, {11., 69.54068317323018}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 11.}, {-0.7771607777375271, 69.54068317323018}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.76252912642045*^9, 3.7625291848086777`*^9}, 3.762529311501443*^9, 3.7626276630421867`*^9, 3.762629756325047*^9}, CellLabel->"Out[135]=", CellID->869362503] }, 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["Sander Huisman", "Text", CellID->130075600] }, 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["binning", "Item", CellID->293002592], Cell["bucketing", "Item", CellID->665915820], Cell["data-binning", "Item", CellID->409314489], Cell["histogram", "Item", CellID->558193949] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Array Manipulation"}], "\" \"", "\"Array Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "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, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "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, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "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, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Programming Utilities", {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "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, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "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, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj81KA1EMhUGsnRFx587FrNzNQwythYJSafQB0mkcg/\ ePm2Rx3957BUVXCZwv55xM3Qgr0OIIrg6myXSE9eaD5k86v1/\ I5ROLwv0WFYdnDJzMoXIMw8MwBXRFWODuJcclo/\ ccluFN2bEySbXdK3mRfjKNvl7NI3QVTZS1wPUGlZaYv8n1ITVT+Qls82iOpHs8s+KpbqsdOqFfod+\ So79Kax2d+fA/8HYflHLKlW0J0E+hgJ2E6ps3R5JoeabXkgi6nYW5MV+uy2AP"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->669448033] }, 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["BinLists", "Item", CellID->328269704], Cell["BinCounts", "Item", CellID->170950227], Cell["Histogram", "Item", CellID->55735047], Cell["Gather", "Item", CellID->249185583], Cell["GatherBy", "Item", CellID->889108153], Cell["Tally", "Item", CellID->609279010] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[BoxData[ Marketplace`Private`getTemplateTests[ "Function", <| "Name" -> "BinListsBy", "UUID" -> "84989bac-a3ee-46ae-81f1-a0dd95c01de5", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Bin data into lists based on applying a function to each item", "Keywords" -> {"binning", "bucketing", "data-binning", "histogram"}, "Attributes" -> {}, "AutoUpdate" -> Automatic, "LatestUpdate" -> DateObject[{2019, 4, 1}, "Day", "Gregorian", -5.], "ShortName" -> "BinListsBy", "AlternativeNames" -> {}, "AutoCopyExampleNotebook" -> True, "Categories" -> {"Data Manipulation & Analysis", "Programming Utilities"}, "ContributedBy" -> "Sander Huisman", "DefinitionNotebook" -> "marketplacestorage/resources/849/84989bac-a3ee-46ae-81f1-a0dd95c01de5/\ DefinitionNotebook/original.nb", "Details" -> "", "Discoverable" -> Automatic, "DisplayedSourceFields" -> {}, "Documentation" -> <|"Usage" -> {<|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BinListsBy\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["f", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]]}], "}"}]}], "]"}]], "Description" -> TextData[{"gives lists of the elements ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " for which the values of ", Cell[ BoxData[ RowBox[{ StyleBox["f", "TI"], "[", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], "]"}], TraditionalForm]}]], "InlineFormula", FontFamily -> "Source Sans Pro"], " lie in bins from ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], TraditionalForm]]], " to ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]], TraditionalForm]]], " with unit width."}]|>, <|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BinListsBy\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["f", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]], ",", StyleBox["\[CapitalDelta]", "TR"], StyleBox["x", "TI"]}], "}"}]}], "]"}]], "Description" -> TextData[{"gives lists of the elements ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " for which the values of ", Cell[ BoxData[ RowBox[{ StyleBox["f", "TI"], "[", FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], "]"}], TraditionalForm]}]], "InlineFormula", FontFamily -> "Source Sans Pro"], " lie in bins from ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], TraditionalForm]]], " to ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]], TraditionalForm]]], " with width ", Cell[ BoxData[ StyleBox["\[CapitalDelta]", "TR"]], "InlineFormula", FontFamily -> "Source Sans Pro"], Cell[ BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}]|>, <|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BinListsBy\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", SubscriptBox[ StyleBox["binspec", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["binspec", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "Description" -> TextData[{"gives an array of lists of the elements ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " for which each index is determined by applying ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["f", "TI"], "i"], TraditionalForm]]], " of the binning specifications ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["binspec", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " to the value ", Cell[ BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], "."}]|>}, "Notes" -> { Cell[ TextData[{ Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BinListsBy\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " drops those elements for which the function evaluates to values \ that are outside the binning specification."}], "Notes", CellTags -> {"TabNext"}, CellID -> 880024722], Cell[ TextData[{ Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BinListsBy\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " drops those elements for which the function evaluates to complex \ numbers or to non-numerical data."}], "Notes", CellTags -> {"TabNext"}, CellID -> 532328405], Cell[ "Within each bin, elements appear in the same order as in the original \ data.", "Notes", CellTags -> {"TabNext"}, CellID -> 745132117], Cell[ TextData[{ Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BinListsBy\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " places elements in bin ", Cell[ BoxData[ StyleBox["i", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " when their function values satisfy ", Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], "+", RowBox[{ RowBox[{"(", RowBox[{ StyleBox["i", "TI"], "-", "1"}], ")"}], StyleBox["\[CapitalDelta]", "TR"], StyleBox["x", "TI"]}]}], " ", "\[LessEqual]", " ", StyleBox["x", "TI"], " ", "<", " ", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], "+", RowBox[{ StyleBox["i", "TI"], " ", StyleBox["\[CapitalDelta]", "TR"], StyleBox["x", "TI"]}]}]}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], "."}], "Notes", CellID -> 167025862]}|>, "ExampleNotebook" -> CloudObject[ "https://www.wolframcloud.com/objects/69bc0251-c8bb-4cb5-bae8-\ 976fbab7dec5"], "ExternalLinks" -> {}, "OriginalUUID" -> "008c11ed-e2db-4c02-ad0f-899f64514399", "Originator" -> Missing["NoInput"], "PermissionsGroups" -> {}, "PricingInformation" -> 0, "Public" -> True, "PublisherUUID" -> "c58af695-1f8f-408b-87bd-05e709ec6cb5", "RelatedSymbols" -> { "BinLists", "BinCounts", "Histogram", "Gather", "GatherBy", "Tally"}, "ReleaseDate" -> DateObject[{2019, 4, 1}, "Day", "Gregorian", -5.], "SeeAlso" -> {}, "SourceMetadata" -> <||>, "StoredElements" -> {Automatic}, "SubmissionID" -> "9764", "SubmissionUUID" -> "16f24b69-7890-447e-a9bf-351f3b4a7de0", "Submitter" -> "s.g.huisman@gmail.com", "SymbolName" -> "FunctionRepository`$008c11ede2db4c02ad0f899f64514399`BinListsBy", "VersionHistory" -> <| "1.0.0" -> <| "Timestamp" -> DateObject[{2019, 4, 1, 15, 1, 20.782326`8.070269136764008}, "Instant", "Gregorian", -5.], "Approver" -> "danl@wolfram.com", "SubmissionID" -> "9764", "Submitter" -> "s.g.huisman@gmail.com", "SubmissionUUID" -> "16f24b69-7890-447e-a9bf-351f3b4a7de0", "OriginalUUID" -> "008c11ed-e2db-4c02-ad0f-899f64514399"|>|>, "WolframLanguageVersionRequired" -> "11.3", "VerificationTests" -> Missing["NotFound"]|>, Missing[]]], "Input", CellID->522556689] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BinListsBy | 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.8545552871241`16.338549268436942*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.85455528717558`16.338549268442744*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"8d123853-a7ff-4f6d-878c-a6b5f8f640f5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->187806206]}, "TemplateCell"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"8d123853-a7ff-4f6d-878c-a6b5f8f640f5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->187806206], Cell[722, 27, 149, 4, 70, "Text",ExpressionUUID->"1cc5baf3-954e-4dad-b642-e2b8e790f771", CellTags->{"Description", "TemplateCell"}, CellID->310601298]}, "Title"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"8d123853-a7ff-4f6d-878c-a6b5f8f640f5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->187806206]}, "Description"->{ Cell[722, 27, 149, 4, 70, "Text",ExpressionUUID->"1cc5baf3-954e-4dad-b642-e2b8e790f771", CellTags->{"Description", "TemplateCell"}, CellID->310601298]}, "Definition"->{ Cell[896, 35, 1206, 29, 70, "Section",ExpressionUUID->"a77c6e42-0b3d-451b-ac23-9bcdf6d2274c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[896, 35, 1206, 29, 70, "Section",ExpressionUUID->"a77c6e42-0b3d-451b-ac23-9bcdf6d2274c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[896, 35, 1206, 29, 70, "Section",ExpressionUUID->"a77c6e42-0b3d-451b-ac23-9bcdf6d2274c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[6557, 186, 1980, 50, 70, "Subsection",ExpressionUUID->"483e3602-6c60-40f1-a4eb-0e3893088eaf", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[12927, 425, 1429, 32, 70, "Subsection",ExpressionUUID->"7a3ec988-fefe-4060-ac0a-ea4398433c1c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[16103, 524, 7029, 152, 70, "Section",ExpressionUUID->"fadb9f0f-c850-4717-98c6-b46c1fb41bdf", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[118692, 3492, 1026, 26, 70, "Subsection",ExpressionUUID->"b08e04fb-4e3d-48f6-bd17-91b4211d3165", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[119808, 3526, 996, 26, 70, "Subsection",ExpressionUUID->"7343a44a-9e88-43bc-951b-2c7aca0de198", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[121034, 3569, 221, 6, 70, "Subsection",ExpressionUUID->"edea7577-f9bb-43cf-b603-aab07ff79502", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[128797, 3829, 980, 26, 70, "Subsection",ExpressionUUID->"f8e8c4c3-9dc3-4d60-9325-3a1feb1e755a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[130092, 3878, 1039, 26, 70, "Subsection",ExpressionUUID->"f88d039e-fb97-4730-80cd-632cddf3e9dc", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[131699, 3919, 1084, 26, 70, "Subsection",ExpressionUUID->"eda174af-6e42-4a6d-9b9e-99cfdd6fda0a", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[133339, 3960, 923, 26, 70, "Subsection",ExpressionUUID->"52687f38-ad01-4d97-8a4c-6d9560a8422c", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[134807, 4001, 1874, 45, 70, "Subsection",ExpressionUUID->"fb71fda8-31b2-4611-a2ca-4f8307b24605", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[148499, 4336, 955, 25, 70, "Subsection",ExpressionUUID->"fefd56dd-fff7-4245-9b9e-e77e3ca17fe3", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[149479, 4365, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c96d9967-2f8c-4995-ba38-c2ea78e057a3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[150782, 4405, 1113, 29, 70, "Subsubsection",ExpressionUUID->"09a88d37-b449-457a-8508-68aed9e20109", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[153256, 4481, 1280, 33, 70, "Subsubsection",ExpressionUUID->"02050f66-8d8d-42f5-ad01-68fa793f3ed4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[155941, 4562, 1913, 46, 70, "Subsubsection",ExpressionUUID->"853b14e6-9e11-4aae-81d0-dac70d9e2f60", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[160790, 4698, 1071, 27, 70, "Subsubsection",ExpressionUUID->"e2f21f16-486f-4dd5-b442-3b5286e0ee2d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[162863, 4762, 1155, 28, 70, "Section",ExpressionUUID->"1c77d3f9-c760-4ecc-95f7-e50210a62a77", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[164587, 4805, 1033, 26, 70, "Section",ExpressionUUID->"2fdbfc91-df1e-4d26-bc8d-0f6880f619a6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[6337, 177, 195, 5, 70, "Section",ExpressionUUID->"78df7a9c-1cf9-4503-8b48-f4dc00b06f63", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[6337, 177, 195, 5, 70, "Section",ExpressionUUID->"78df7a9c-1cf9-4503-8b48-f4dc00b06f63", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[118418, 3483, 249, 5, 70, "Section",ExpressionUUID->"1d0a5db3-5894-4afd-bf00-b738a13b226e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[6557, 186, 1980, 50, 70, "Subsection",ExpressionUUID->"483e3602-6c60-40f1-a4eb-0e3893088eaf", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[12927, 425, 1429, 32, 70, "Subsection",ExpressionUUID->"7a3ec988-fefe-4060-ac0a-ea4398433c1c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[12927, 425, 1429, 32, 70, "Subsection",ExpressionUUID->"7a3ec988-fefe-4060-ac0a-ea4398433c1c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[14359, 459, 264, 7, 70, "Notes",ExpressionUUID->"2fad405a-21d0-4a7d-820f-4e648a3b0052", CellTags->"TabNext", CellID->880024722], Cell[14626, 468, 255, 7, 70, "Notes",ExpressionUUID->"151a6a93-05ca-46f0-a376-202020ea846b", CellTags->"TabNext", CellID->532328405], Cell[14884, 477, 142, 4, 70, "Notes",ExpressionUUID->"e25fee87-98ad-4c1d-89f3-1b00d7f13d6f", CellTags->"TabNext", CellID->745132117], Cell[131134, 3906, 528, 8, 70, "Item",ExpressionUUID->"75c53d15-e51b-4e9c-9341-a42d466eef15", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[132786, 3947, 516, 8, 70, "Text",ExpressionUUID->"29d3959b-e0f2-49af-a9a9-86857dd3dfe1", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[134265, 3988, 505, 8, 70, "Item",ExpressionUUID->"9bdc989b-5b9d-433e-94b8-d1483b70f1db", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[164021, 4792, 529, 8, 70, "Text",ExpressionUUID->"9ce457a3-e6d1-49c0-9738-97b791df5dab", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[165623, 4833, 515, 8, 70, "Text",ExpressionUUID->"2eab48bb-3de3-4b98-b426-3e39ca6bd95a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[16103, 524, 7029, 152, 70, "Section",ExpressionUUID->"fadb9f0f-c850-4717-98c6-b46c1fb41bdf", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[118418, 3483, 249, 5, 70, "Section",ExpressionUUID->"1d0a5db3-5894-4afd-bf00-b738a13b226e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[118692, 3492, 1026, 26, 70, "Subsection",ExpressionUUID->"b08e04fb-4e3d-48f6-bd17-91b4211d3165", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[118692, 3492, 1026, 26, 70, "Subsection",ExpressionUUID->"b08e04fb-4e3d-48f6-bd17-91b4211d3165", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[119808, 3526, 996, 26, 70, "Subsection",ExpressionUUID->"7343a44a-9e88-43bc-951b-2c7aca0de198", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[121034, 3569, 221, 6, 70, "Subsection",ExpressionUUID->"edea7577-f9bb-43cf-b603-aab07ff79502", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[121258, 3577, 7502, 247, 70, "Output",ExpressionUUID->"7ed7ed12-577b-4723-99fc-38f1c0a2dd24", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->669448033]}, "Categories-Checkboxes"->{ Cell[121258, 3577, 7502, 247, 70, "Output",ExpressionUUID->"7ed7ed12-577b-4723-99fc-38f1c0a2dd24", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->669448033]}, "CheckboxCell"->{ Cell[121258, 3577, 7502, 247, 70, "Output",ExpressionUUID->"7ed7ed12-577b-4723-99fc-38f1c0a2dd24", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->669448033], Cell[151898, 4436, 1321, 40, 70, "Output",ExpressionUUID->"a8774610-658e-4397-b325-c0bd0c186c4a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[154539, 4516, 1365, 41, 70, "Output",ExpressionUUID->"289daa8c-ff9d-4128-a6a2-9251a9cd3e87", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[157857, 4610, 2896, 83, 70, "Output",ExpressionUUID->"42399178-25fe-4b7c-8fd8-684e96aa672e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[161864, 4727, 938, 28, 70, "Output",ExpressionUUID->"53e61920-2059-4c19-a7b8-bfd3d15efeb7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[128797, 3829, 980, 26, 70, "Subsection",ExpressionUUID->"f8e8c4c3-9dc3-4d60-9325-3a1feb1e755a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[130092, 3878, 1039, 26, 70, "Subsection",ExpressionUUID->"f88d039e-fb97-4730-80cd-632cddf3e9dc", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "DefaultContent"->{ Cell[131134, 3906, 528, 8, 70, "Item",ExpressionUUID->"75c53d15-e51b-4e9c-9341-a42d466eef15", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[132786, 3947, 516, 8, 70, "Text",ExpressionUUID->"29d3959b-e0f2-49af-a9a9-86857dd3dfe1", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[134265, 3988, 505, 8, 70, "Item",ExpressionUUID->"9bdc989b-5b9d-433e-94b8-d1483b70f1db", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[150656, 4398, 89, 2, 70, "Text",ExpressionUUID->"21a1236d-c634-4734-89cd-bb310da4d73e", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[164021, 4792, 529, 8, 70, "Text",ExpressionUUID->"9ce457a3-e6d1-49c0-9738-97b791df5dab", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[165623, 4833, 515, 8, 70, "Text",ExpressionUUID->"2eab48bb-3de3-4b98-b426-3e39ca6bd95a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source/Reference Citation"->{ Cell[131699, 3919, 1084, 26, 70, "Subsection",ExpressionUUID->"eda174af-6e42-4a6d-9b9e-99cfdd6fda0a", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[133339, 3960, 923, 26, 70, "Subsection",ExpressionUUID->"52687f38-ad01-4d97-8a4c-6d9560a8422c", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[134807, 4001, 1874, 45, 70, "Subsection",ExpressionUUID->"fb71fda8-31b2-4611-a2ca-4f8307b24605", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[134807, 4001, 1874, 45, 70, "Subsection",ExpressionUUID->"fb71fda8-31b2-4611-a2ca-4f8307b24605", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[148499, 4336, 955, 25, 70, "Subsection",ExpressionUUID->"fefd56dd-fff7-4245-9b9e-e77e3ca17fe3", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[149479, 4365, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c96d9967-2f8c-4995-ba38-c2ea78e057a3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[149479, 4365, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c96d9967-2f8c-4995-ba38-c2ea78e057a3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[150656, 4398, 89, 2, 70, "Text",ExpressionUUID->"21a1236d-c634-4734-89cd-bb310da4d73e", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[150782, 4405, 1113, 29, 70, "Subsubsection",ExpressionUUID->"09a88d37-b449-457a-8508-68aed9e20109", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[151898, 4436, 1321, 40, 70, "Output",ExpressionUUID->"a8774610-658e-4397-b325-c0bd0c186c4a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[150782, 4405, 1113, 29, 70, "Subsubsection",ExpressionUUID->"09a88d37-b449-457a-8508-68aed9e20109", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[151898, 4436, 1321, 40, 70, "Output",ExpressionUUID->"a8774610-658e-4397-b325-c0bd0c186c4a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[153256, 4481, 1280, 33, 70, "Subsubsection",ExpressionUUID->"02050f66-8d8d-42f5-ad01-68fa793f3ed4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[154539, 4516, 1365, 41, 70, "Output",ExpressionUUID->"289daa8c-ff9d-4128-a6a2-9251a9cd3e87", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[153256, 4481, 1280, 33, 70, "Subsubsection",ExpressionUUID->"02050f66-8d8d-42f5-ad01-68fa793f3ed4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[154539, 4516, 1365, 41, 70, "Output",ExpressionUUID->"289daa8c-ff9d-4128-a6a2-9251a9cd3e87", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[155941, 4562, 1913, 46, 70, "Subsubsection",ExpressionUUID->"853b14e6-9e11-4aae-81d0-dac70d9e2f60", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[157857, 4610, 2896, 83, 70, "Output",ExpressionUUID->"42399178-25fe-4b7c-8fd8-684e96aa672e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[155941, 4562, 1913, 46, 70, "Subsubsection",ExpressionUUID->"853b14e6-9e11-4aae-81d0-dac70d9e2f60", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[157857, 4610, 2896, 83, 70, "Output",ExpressionUUID->"42399178-25fe-4b7c-8fd8-684e96aa672e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[160790, 4698, 1071, 27, 70, "Subsubsection",ExpressionUUID->"e2f21f16-486f-4dd5-b442-3b5286e0ee2d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[160790, 4698, 1071, 27, 70, "Subsubsection",ExpressionUUID->"e2f21f16-486f-4dd5-b442-3b5286e0ee2d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[161864, 4727, 938, 28, 70, "Output",ExpressionUUID->"53e61920-2059-4c19-a7b8-bfd3d15efeb7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[161864, 4727, 938, 28, 70, "Output",ExpressionUUID->"53e61920-2059-4c19-a7b8-bfd3d15efeb7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[162863, 4762, 1155, 28, 70, "Section",ExpressionUUID->"1c77d3f9-c760-4ecc-95f7-e50210a62a77", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[164587, 4805, 1033, 26, 70, "Section",ExpressionUUID->"2fdbfc91-df1e-4d26-bc8d-0f6880f619a6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 289544, 7184}, {"TemplateCell", 289726, 7188}, {"Title", 290061, 7195}, {"Description", 290242, 7199}, {"Definition", 290420, 7203}, {"Function", 290616, 7207}, {"TemplateCellGroup", 290821, 7211}, {"Documentation", 294674, 7272}, {"TemplateSection", 294867, 7276}, {"Usage", 295241, 7283}, {"Details & Options", 295435, 7287}, {"Notes", 295639, 7291}, {"TabNext", 295845, 7295}, {"Examples", 297102, 7320}, {"Source & Additional Information", 297312, 7324}, {"Contributed By", 297525, 7328}, {"ContributorInformation", 297761, 7332}, {"Keywords", 297983, 7336}, {"Categories", 298175, 7340}, {"Categories-Checkboxes", 298573, 7347}, {"CheckboxCell", 298787, 7351}, {"Related Symbols", 299909, 7367}, {"Related Resource Objects", 300122, 7371}, {"DefaultContent", 300335, 7375}, {"Source/Reference Citation", 301351, 7394}, {"Links", 301556, 7398}, {"Tests", 301740, 7402}, {"VerificationTests", 301958, 7406}, {"Compatibility", 302172, 7410}, {"CompatibilityWolframLanguageVersionRequired", 302402, 7414}, {"Wolfram Language Version", 302675, 7418}, {"ScrapeDefault", 302937, 7422}, {"CompatibilityOperatingSystem", 303141, 7426}, {"Operating System", 303611, 7433}, {"CompatibilityOperatingSystem-Checkboxes", 303876, 7437}, {"CompatibilityFeatures", 304133, 7441}, {"Required Features", 304585, 7448}, {"CompatibilityFeatures-Checkboxes", 304837, 7452}, {"CompatibilityEvaluationEnvironment", 305094, 7456}, {"Environments", 305574, 7463}, {"CompatibilityEvaluationEnvironment-Checkboxes", 305847, 7467}, {"Cloud Support", 306108, 7471}, {"CompatibilityCloudSupport", 306353, 7475}, {"CompatibilityCloudSupport-Checkboxes", 306831, 7482}, {"Author Notes", 307073, 7486}, {"Submission Notes", 307273, 7490} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"8d123853-a7ff-4f6d-878c-a6b5f8f640f5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->187806206], Cell[722, 27, 149, 4, 70, "Text",ExpressionUUID->"1cc5baf3-954e-4dad-b642-e2b8e790f771", CellTags->{"Description", "TemplateCell"}, CellID->310601298], Cell[CellGroupData[{ Cell[896, 35, 1206, 29, 70, "Section",ExpressionUUID->"a77c6e42-0b3d-451b-ac23-9bcdf6d2274c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2105, 66, 4195, 106, 70, "Input",ExpressionUUID->"9ed331e2-068c-4607-a83b-647e371cad0e", InitializationCell->True, CellID->473744812] }, Open ]], Cell[CellGroupData[{ Cell[6337, 177, 195, 5, 70, "Section",ExpressionUUID->"78df7a9c-1cf9-4503-8b48-f4dc00b06f63", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[6557, 186, 1980, 50, 70, "Subsection",ExpressionUUID->"483e3602-6c60-40f1-a4eb-0e3893088eaf", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[8562, 240, 604, 22, 70, "UsageInputs",ExpressionUUID->"e64031d0-9a71-4c13-a87e-2d89c9735174", CellID->504613791], Cell[9169, 264, 763, 32, 70, "UsageDescription",ExpressionUUID->"8d9f99b3-ede8-4cb3-b4c8-0fcee04465c3", CellID->811774047] }, Open ]], Cell[CellGroupData[{ Cell[9969, 301, 677, 24, 70, "UsageInputs",ExpressionUUID->"41eb84af-be32-4668-9ca6-22974e1872d2", CellID->185833972], Cell[10649, 327, 958, 39, 70, "UsageDescription",ExpressionUUID->"ae5f30a4-9aff-40bf-88f2-f0c5bc1aafcc", CellID->490064215] }, Open ]], Cell[CellGroupData[{ Cell[11644, 371, 569, 20, 70, "UsageInputs",ExpressionUUID->"39ebdf02-7ad7-4d7e-9e3c-79bd72a11246", CellID->418984576], Cell[12216, 393, 662, 26, 70, "UsageDescription",ExpressionUUID->"fd9a2529-222b-4aa2-837e-7df1425311f4", CellID->821577020] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12927, 425, 1429, 32, 70, "Subsection",ExpressionUUID->"7a3ec988-fefe-4060-ac0a-ea4398433c1c", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[14359, 459, 264, 7, 70, "Notes",ExpressionUUID->"2fad405a-21d0-4a7d-820f-4e648a3b0052", CellTags->"TabNext", CellID->880024722], Cell[14626, 468, 255, 7, 70, "Notes",ExpressionUUID->"151a6a93-05ca-46f0-a376-202020ea846b", CellTags->"TabNext", CellID->532328405], Cell[14884, 477, 142, 4, 70, "Notes",ExpressionUUID->"e25fee87-98ad-4c1d-89f3-1b00d7f13d6f", CellTags->"TabNext", CellID->745132117], Cell[15029, 483, 1025, 35, 70, "Notes",ExpressionUUID->"3e1880a2-394c-4fa2-9b8a-5e2f0dad5263", CellID->167025862] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16103, 524, 7029, 152, 70, "Section",ExpressionUUID->"fadb9f0f-c850-4717-98c6-b46c1fb41bdf", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[23157, 680, 75, 2, 70, "Subsection",ExpressionUUID->"a7c9730d-b38c-4f09-a13c-604024290b08", CellID->904125756], Cell[23235, 684, 179, 3, 70, "Text",ExpressionUUID->"1e9099f1-f93e-455e-9db8-884b0014f083", CellID->871084589], Cell[CellGroupData[{ Cell[23439, 691, 904, 30, 70, "Input",ExpressionUUID->"0a3c89eb-6e30-46e9-a935-0ce2f491152b", CellID->124250290], Cell[24346, 723, 1335, 47, 70, "Output",ExpressionUUID->"ea143325-712b-403c-95fc-1988fc89675c", CellID->158209385] }, Open ]], Cell[CellGroupData[{ Cell[25718, 775, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"2070db58-bd45-4fbf-a379-1d59b6303555", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797627], Cell[26305, 796, 233, 4, 70, "Text",ExpressionUUID->"a484a010-a1a7-4c79-946d-a50b46650eb6", CellID->177099424], Cell[CellGroupData[{ Cell[26563, 804, 636, 18, 70, "Input",ExpressionUUID->"96208850-bd60-4af7-9a9c-4521a313b6a9", CellID->324399296], Cell[27202, 824, 969, 32, 70, "Output",ExpressionUUID->"4fed4471-7906-4218-9490-0430228720ef", CellID->231780043] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28220, 862, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"8436d248-a389-44e8-bc35-b5276e028bad", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797628], Cell[28807, 883, 216, 4, 70, "Text",ExpressionUUID->"e2dd9a4c-6c90-469f-9fe7-8743b28ced6c", CellID->873518912], Cell[CellGroupData[{ Cell[29048, 891, 845, 28, 70, "Input",ExpressionUUID->"147f0073-31ae-4b91-a7c7-4fecd81cc9d6", CellID->440852861], Cell[29896, 921, 1266, 46, 70, "Output",ExpressionUUID->"7a13e73f-2796-4fd2-b8d5-a72ffe8dfab0", CellID->774225614] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31211, 973, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"883a6510-4099-451d-82d6-af09af58187a", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797629], Cell[31798, 994, 348, 6, 70, "Text",ExpressionUUID->"015dbe14-b24a-4f6a-a861-5f1cd4316fd8", CellID->21318515], Cell[CellGroupData[{ Cell[32171, 1004, 2193, 61, 70, "Input",ExpressionUUID->"2927c1cd-75e9-438a-ad10-357cfeaa85bf", CellID->863300951], Cell[34367, 1067, 2879, 83, 70, "Output",ExpressionUUID->"ef4ee660-14f8-4055-aadf-2218946e62e9", CellID->260136756] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37307, 1157, 66, 2, 70, "Subsection",ExpressionUUID->"74d27347-dea7-480e-b698-00032508bf1f", CellID->204653245], Cell[37376, 1161, 348, 8, 70, "Text",ExpressionUUID->"5f9c9339-f96c-4f56-9d6d-f6d265fae522", CellID->554528607], Cell[CellGroupData[{ Cell[37749, 1173, 1392, 40, 70, "Input",ExpressionUUID->"dd6f3853-4638-4a17-b034-87f713bda121", CellID->50203380], Cell[39144, 1215, 2877, 102, 70, "Output",ExpressionUUID->"b13dd354-939d-4203-9077-f77f7a8ae756", CellID->439418996] }, Open ]], Cell[CellGroupData[{ Cell[42058, 1322, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"1a35316a-d46b-45a6-88f9-dea7b2c1ec5d", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797630], Cell[42645, 1343, 371, 8, 70, "Text",ExpressionUUID->"d4e4fdce-6e77-45b4-86ce-4ef99d3efa12", CellID->17394310], Cell[CellGroupData[{ Cell[43041, 1355, 1499, 43, 70, "Input",ExpressionUUID->"efd2ff14-2044-40e0-9b98-4888e3d0c4a7", CellID->955409396], Cell[44543, 1400, 6460, 217, 70, "Output",ExpressionUUID->"129bd5b6-52b3-4874-a69a-0a31bf0864ba", CellID->212588981] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51052, 1623, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"c70a610a-1491-48f9-ae7a-799543d4c478", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797631], Cell[51639, 1644, 286, 7, 70, "Text",ExpressionUUID->"13b20c5d-5df1-4b1b-bc17-66b3a345baa1", CellID->86805214], Cell[CellGroupData[{ Cell[51950, 1655, 1954, 55, 70, "Input",ExpressionUUID->"cf3b3602-de0e-4c53-9239-4e94db2d5e68", CellID->475035898], Cell[53907, 1712, 8962, 190, 70, "Output",ExpressionUUID->"66ea31d0-7a35-445f-a1f8-bf93cd36e2fe", CellID->200704894] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[62930, 1909, 73, 2, 70, "Subsection",ExpressionUUID->"005b22bc-62bf-4e91-ab73-9f714876141e", CellID->605265931], Cell[63006, 1913, 199, 5, 70, "Text",ExpressionUUID->"4a287ab3-1a9c-4102-90a7-3029a41d7e88", CellID->385983574], Cell[CellGroupData[{ Cell[63230, 1922, 687, 19, 70, "Input",ExpressionUUID->"1d85e9d2-29ac-455c-9f8e-dd34e072b656", CellID->385629139], Cell[63920, 1943, 774, 22, 70, "Output",ExpressionUUID->"fa3eac10-0f1a-4cbb-a6ff-3948c4166a39", CellID->563772124] }, Open ]], Cell[CellGroupData[{ Cell[64731, 1970, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"6619bff7-d73d-450e-8eea-19e9dd6826ed", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797632], Cell[65318, 1991, 230, 4, 70, "Text",ExpressionUUID->"69622737-c666-4d4b-bf49-e1a0fee99f39", CellID->556998602], Cell[CellGroupData[{ Cell[65573, 1999, 953, 30, 70, "Input",ExpressionUUID->"5d8208d5-6d1f-4e0b-bb21-923c16aabd0c", CellID->662206008], Cell[66529, 2031, 8206, 202, 70, "Output",ExpressionUUID->"7cb281be-4dad-47a4-8a0c-981cff4e49c0", CellID->852845676] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74784, 2239, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"4ecb9f75-8241-4a3c-82d3-4f861fb74556", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797633], Cell[75371, 2260, 166, 3, 70, "Text",ExpressionUUID->"2eda9645-c24f-455b-bae2-640002350056", CellID->964756314], Cell[CellGroupData[{ Cell[75562, 2267, 1061, 29, 70, "Input",ExpressionUUID->"4c5a1c8e-0efc-4883-b06c-d028f524a737", CellID->381648967], Cell[76626, 2298, 2150, 50, 70, "Output",ExpressionUUID->"36e828cc-1bcc-4199-a390-a38def1f842b", CellID->675371826] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78825, 2354, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"360ae3db-ff51-4258-99fe-6c7102d264f2", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797634], Cell[79412, 2375, 226, 4, 70, "Text",ExpressionUUID->"cdbd35f3-b11e-4056-bcf4-7d6c60738ffc", CellID->335718196], Cell[CellGroupData[{ Cell[79663, 2383, 3455, 82, 70, "Input",ExpressionUUID->"ffa6a3ba-7a40-498c-9093-e3d9ebabf8de", CellID->799616386], Cell[83121, 2467, 3647, 97, 70, "Output",ExpressionUUID->"949e0c8b-464f-489c-9a91-fa6318a6c8df", CellID->828471293] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86817, 2570, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"0a848782-27b1-43e7-bc9c-12ecbb020c30", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797635], Cell[87404, 2591, 208, 4, 70, "Text",ExpressionUUID->"ada92b51-0821-48a4-9b45-f3a1c0dfcfd6", CellID->816948169], Cell[CellGroupData[{ Cell[87637, 2599, 1998, 51, 70, "Input",ExpressionUUID->"c783a6b9-994e-4a3c-830e-d740fe0da2bc", CellID->419217436], Cell[89638, 2652, 2022, 55, 70, "Output",ExpressionUUID->"24053f64-fdc4-4efc-96ec-c861ed6d9c2f", CellID->579075794] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[91721, 2714, 85, 2, 70, "Subsection",ExpressionUUID->"d8cad46c-df83-4d73-af7f-c2ddb3be9585", CellID->232113220], Cell[91809, 2718, 325, 7, 70, "Text",ExpressionUUID->"0809ccae-8275-447b-b606-0e128db63291", CellID->28656764], Cell[CellGroupData[{ Cell[92159, 2729, 4021, 124, 70, "Input",ExpressionUUID->"6f8ce53a-8534-4173-86e5-383c0321f419", CellID->292371377], Cell[96183, 2855, 307, 6, 70, "Output",ExpressionUUID->"88fd647c-6d1b-494c-89f0-98d120584a85", CellID->791890678] }, Open ]], Cell[CellGroupData[{ Cell[96527, 2866, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"4eb2db7b-ceb4-48f3-ad71-ecebac8c81e0", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797636], Cell[97114, 2887, 968, 25, 70, "Text",ExpressionUUID->"8696a354-ab6b-40eb-bb3d-e92a482f82a3", CellID->87093551], Cell[98085, 2914, 633, 16, 70, "Input",ExpressionUUID->"e3f57573-f9c5-431b-a9ad-d75ea3c5f514", CellID->679931941], Cell[CellGroupData[{ Cell[98743, 2934, 517, 14, 70, "Input",ExpressionUUID->"874d2871-d7ab-4b28-a179-cb9e0c416e2c", CellID->463039607], Cell[99263, 2950, 859, 21, 70, "Output",ExpressionUUID->"d3a3284b-7485-43f4-89a5-4c4fa9797501", CellID->157732540] }, Open ]], Cell[CellGroupData[{ Cell[100159, 2976, 450, 11, 70, "Input",ExpressionUUID->"d3276668-21b2-4101-be95-7a9c66436fa1", CellID->15661001], Cell[100612, 2989, 714, 16, 70, "Output",ExpressionUUID->"57156104-9896-4255-8471-cc350c97a27c", CellID->260657257] }, Open ]], Cell[101341, 3008, 159, 3, 70, "Text",ExpressionUUID->"cf0d5ad8-db0f-4697-897f-30ac6a445d31", CellID->862199411], Cell[CellGroupData[{ Cell[101525, 3015, 387, 11, 70, "Input",ExpressionUUID->"0c950448-bb26-4f41-8757-59cd4b68ae43", CellID->757623012], Cell[101915, 3028, 282, 6, 70, "Output",ExpressionUUID->"27cbcdb2-93ca-4171-9d9a-e40af41b16f9", CellID->822334957] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[102258, 3041, 76, 2, 70, "Subsection",ExpressionUUID->"37e0cee5-9dbd-419e-9d88-83517329eed1", CellID->158766396], Cell[102337, 3045, 217, 6, 70, "Text",ExpressionUUID->"e89394a4-a729-485e-b201-2bd339e822c9", CellID->353439455], Cell[CellGroupData[{ Cell[102579, 3055, 465, 14, 70, "Input",ExpressionUUID->"8c7f8d75-1267-405b-b9e6-8747475b80b8", CellID->869692502], Cell[103047, 3071, 540, 17, 70, "Output",ExpressionUUID->"bc9099ab-008e-4caa-8029-3b799d177b39", CellID->855141985] }, Open ]], Cell[CellGroupData[{ Cell[103624, 3093, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"5e617f2b-864b-418d-9a33-c1f3a4a2e084", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797637], Cell[104211, 3114, 167, 3, 70, "Text",ExpressionUUID->"1887bf81-72af-486f-b7e2-e358e9ec7235", CellID->400240419], Cell[CellGroupData[{ Cell[104403, 3121, 527, 15, 70, "Input",ExpressionUUID->"5f4e84b1-3c4b-49b1-a138-c67b01010cd5", CellID->666628286], Cell[104933, 3138, 432, 12, 70, "Output",ExpressionUUID->"6fa498f8-5247-4e3a-be10-c3057f776b50", CellID->197350030] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[105426, 3157, 74, 2, 70, "Subsection",ExpressionUUID->"0e914cb0-3926-4b3f-8c7e-ba38a1146db5", CellID->461278909], Cell[105503, 3161, 199, 4, 70, "Text",ExpressionUUID->"526c6e55-65e1-4aca-aa2c-33a1045a6dd1", CellID->68476146], Cell[CellGroupData[{ Cell[105727, 3169, 1316, 40, 70, "Input",ExpressionUUID->"624e3002-1313-4c1d-a34f-dd84af6cf2da", CellID->386395320], Cell[107046, 3211, 2969, 67, 70, "Output",ExpressionUUID->"7ac67908-ea63-4973-88f8-b13556541142", CellID->807342594] }, Open ]], Cell[110030, 3281, 168, 3, 70, "Text",ExpressionUUID->"b1a16ee4-e4c0-4079-a5d9-aebeb98cdcd0", CellID->783708892], Cell[CellGroupData[{ Cell[110223, 3288, 333, 11, 70, "Input",ExpressionUUID->"71119e47-d0fe-4e8d-ab4e-594f13cc7538", CellID->292653029], Cell[110559, 3301, 7798, 175, 70, "Output",ExpressionUUID->"46dd5359-8325-446b-8f9a-a022ecfe8357", CellID->869362503] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[118418, 3483, 249, 5, 70, "Section",ExpressionUUID->"1d0a5db3-5894-4afd-bf00-b738a13b226e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[118692, 3492, 1026, 26, 70, "Subsection",ExpressionUUID->"b08e04fb-4e3d-48f6-bd17-91b4211d3165", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[119721, 3520, 50, 1, 70, "Text",ExpressionUUID->"ce84f42a-4a21-41d6-a4ab-2f76f33271d0", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[119808, 3526, 996, 26, 70, "Subsection",ExpressionUUID->"7343a44a-9e88-43bc-951b-2c7aca0de198", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[120807, 3554, 43, 1, 70, "Item",ExpressionUUID->"da586044-533b-4f3c-aa0a-b86ee3a504a6", CellID->293002592], Cell[120853, 3557, 45, 1, 70, "Item",ExpressionUUID->"13bc05f4-f3fd-4b66-8fb4-77e9226ecc11", CellID->665915820], Cell[120901, 3560, 48, 1, 70, "Item",ExpressionUUID->"7aec24c8-0064-47f2-ae6c-f86c0b041525", CellID->409314489], Cell[120952, 3563, 45, 1, 70, "Item",ExpressionUUID->"2742bd07-4a06-4a9a-a6d2-20d4315fe4f4", CellID->558193949] }, Open ]], Cell[CellGroupData[{ Cell[121034, 3569, 221, 6, 70, "Subsection",ExpressionUUID->"edea7577-f9bb-43cf-b603-aab07ff79502", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[121258, 3577, 7502, 247, 70, "Output",ExpressionUUID->"7ed7ed12-577b-4723-99fc-38f1c0a2dd24", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->669448033] }, Open ]], Cell[CellGroupData[{ Cell[128797, 3829, 980, 26, 70, "Subsection",ExpressionUUID->"f8e8c4c3-9dc3-4d60-9325-3a1feb1e755a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[129780, 3857, 44, 1, 70, "Item",ExpressionUUID->"9a7e2e29-9e02-4674-8b37-b39ef9cf74a5", CellID->328269704], Cell[129827, 3860, 45, 1, 70, "Item",ExpressionUUID->"4cac3d30-3e73-496a-8ee1-085c89997111", CellID->170950227], Cell[129875, 3863, 44, 1, 70, "Item",ExpressionUUID->"18cf0224-6483-4de3-9f2c-bd34654d1b44", CellID->55735047], Cell[129922, 3866, 42, 1, 70, "Item",ExpressionUUID->"24bbb46d-a83b-450c-97c5-b2499b9657ff", CellID->249185583], Cell[129967, 3869, 44, 1, 70, "Item",ExpressionUUID->"1a0f8139-d077-42ab-8070-75d4534ef3de", CellID->889108153], Cell[130014, 3872, 41, 1, 70, "Item",ExpressionUUID->"b3a7eabc-1ee1-4660-b35a-8b8b7697d644", CellID->609279010] }, Open ]], Cell[CellGroupData[{ Cell[130092, 3878, 1039, 26, 70, "Subsection",ExpressionUUID->"f88d039e-fb97-4730-80cd-632cddf3e9dc", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[131134, 3906, 528, 8, 70, "Item",ExpressionUUID->"75c53d15-e51b-4e9c-9341-a42d466eef15", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[131699, 3919, 1084, 26, 70, "Subsection",ExpressionUUID->"eda174af-6e42-4a6d-9b9e-99cfdd6fda0a", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[132786, 3947, 516, 8, 70, "Text",ExpressionUUID->"29d3959b-e0f2-49af-a9a9-86857dd3dfe1", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[133339, 3960, 923, 26, 70, "Subsection",ExpressionUUID->"52687f38-ad01-4d97-8a4c-6d9560a8422c", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[134265, 3988, 505, 8, 70, "Item",ExpressionUUID->"9bdc989b-5b9d-433e-94b8-d1483b70f1db", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[134807, 4001, 1874, 45, 70, "Subsection",ExpressionUUID->"fb71fda8-31b2-4611-a2ca-4f8307b24605", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[136684, 4048, 11778, 283, 70, "Input",ExpressionUUID->"bd569281-2d3d-4c13-b97e-7070c9379af9", CellID->522556689] }, Open ]], Cell[CellGroupData[{ Cell[148499, 4336, 955, 25, 70, "Subsection",ExpressionUUID->"fefd56dd-fff7-4245-9b9e-e77e3ca17fe3", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[149479, 4365, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c96d9967-2f8c-4995-ba38-c2ea78e057a3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[150656, 4398, 89, 2, 70, "Text",ExpressionUUID->"21a1236d-c634-4734-89cd-bb310da4d73e", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[150782, 4405, 1113, 29, 70, "Subsubsection",ExpressionUUID->"09a88d37-b449-457a-8508-68aed9e20109", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[151898, 4436, 1321, 40, 70, "Output",ExpressionUUID->"a8774610-658e-4397-b325-c0bd0c186c4a", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[153256, 4481, 1280, 33, 70, "Subsubsection",ExpressionUUID->"02050f66-8d8d-42f5-ad01-68fa793f3ed4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[154539, 4516, 1365, 41, 70, "Output",ExpressionUUID->"289daa8c-ff9d-4128-a6a2-9251a9cd3e87", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[155941, 4562, 1913, 46, 70, "Subsubsection",ExpressionUUID->"853b14e6-9e11-4aae-81d0-dac70d9e2f60", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[157857, 4610, 2896, 83, 70, "Output",ExpressionUUID->"42399178-25fe-4b7c-8fd8-684e96aa672e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[160790, 4698, 1071, 27, 70, "Subsubsection",ExpressionUUID->"e2f21f16-486f-4dd5-b442-3b5286e0ee2d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[161864, 4727, 938, 28, 70, "Output",ExpressionUUID->"53e61920-2059-4c19-a7b8-bfd3d15efeb7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[162863, 4762, 1155, 28, 70, "Section",ExpressionUUID->"1c77d3f9-c760-4ecc-95f7-e50210a62a77", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[164021, 4792, 529, 8, 70, "Text",ExpressionUUID->"9ce457a3-e6d1-49c0-9738-97b791df5dab", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[164587, 4805, 1033, 26, 70, "Section",ExpressionUUID->"2fdbfc91-df1e-4d26-bc8d-0f6880f619a6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[165623, 4833, 515, 8, 70, "Text",ExpressionUUID->"2eab48bb-3de3-4b98-b426-3e39ca6bd95a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)