(* 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[ 294491, 6951] NotebookOptionsPosition[ 132557, 3846] NotebookOutlinePosition[ 275049, 6536] CellTagsIndexPosition[ 273240, 6486] WindowTitle->TakeSmaller | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["TakeSmaller", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->406547212], Cell["\<\ Take values smaller than a threshold in a list or association\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->841144362], 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[{"ClearAll", "[", RowBox[{ "TakeSmaller", ",", "takeSmaller", ",", "throwFailed", ",", "selectLessThan", ",", "takeLargestBy", ",", "keyPosition", ",", "takeSmallerAll"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.768709566494084*^9, 3.768709569860264*^9}, { 3.768710086509428*^9, 3.7687101181165743`*^9}, {3.770982963503117*^9, 3.770982963982294*^9}, {3.7709853562285643`*^9, 3.770985356604498*^9}, { 3.7710680122597513`*^9, 3.771068012663929*^9}, {3.771126243585371*^9, 3.77112624398913*^9}, {3.771133443245428*^9, 3.771133443690695*^9}, { 3.771138353939721*^9, 3.771138357610899*^9}, 3.771143322744275*^9, { 3.771143372450529*^9, 3.7711433867873793`*^9}, {3.771144111073332*^9, 3.771144114295025*^9}, {3.771145098726071*^9, 3.7711451053463907`*^9}, 3.7711473410848513`*^9, 3.776094504733345*^9}, CellLabel->"In[90]:=", CellID->734505535], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "TakeSmaller", "]"}], "=", RowBox[{ RowBox[{"Options", "[", "takeSmaller", "]"}], "=", RowBox[{"Options", "[", "TakeSmallest", "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$tag", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$allProperties", "=", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"selectLessThan", "[", RowBox[{"list_", ",", "x_"}], "]"}], ":=", " ", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{"LessThan", "[", "x", "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SetAttributes", "[", RowBox[{"throwFailed", ",", "HoldFirst"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"throwFailed", "[", RowBox[{"head_", "[", "args___", "]"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "#", "]"}], "===", "head"}], ",", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}], ",", "#"}], "]"}], "&"}], "@", RowBox[{"head", "[", "args", "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLargestBy", "[", RowBox[{"list_", ",", "x_", ",", "n_", ",", "opts___"}], "]"}], ":=", RowBox[{"Flatten", "@", RowBox[{"Last", "@", RowBox[{"Transpose", "@", RowBox[{"throwFailed", "@", RowBox[{"TakeLargestBy", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Extract", "[", RowBox[{"list", ",", "#"}], "]"}], ",", "#"}], "}"}], "]"}], "&"}], "@", RowBox[{"Position", "[", RowBox[{"list", ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{"#", "<", "x"}], "&"}], ")"}]}], ",", RowBox[{"{", "1", "}"}]}], "]"}]}], ",", "First", ",", "n", ",", "opts"}], "]"}]}]}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"keyPosition", "[", RowBox[{"assoc_", ",", "keys_"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"allkeys", "=", RowBox[{"Keys", "[", "assoc", "]"}]}], "}"}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"allkeys", ",", "#", ",", RowBox[{"{", "1", "}"}]}], "]"}], "&"}], "/@", "keys"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmallerAll", "[", RowBox[{"ll_", ",", "val_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"Thread", "/@", RowBox[{"Thread", "[", RowBox[{"$allProperties", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"ll", "\[Rule]", "#"}], ",", "val", ",", "n", ",", "opts"}], "]"}], "&"}], "/@", "$allProperties"}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{"l_", ",", "x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{"l", ",", "x", ",", "n", ",", "opts"}], "]"}], ",", "$tag"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", "TakeSmaller", "]"}], "[", RowBox[{"x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "[", "list_", "]"}], ":=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{"list", ",", "x", ",", "n", ",", "opts"}], "]"}], ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"list_List", ",", "\"\\""}], "]"}], ",", "x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"takeLargestBy", "[", RowBox[{"list", ",", "x", ",", "n", ",", "opts"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"assoc_Association", ",", "\"\\""}], "]"}], ",", "x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AssociationThread", "[", RowBox[{"#", "->", RowBox[{"keyPosition", "[", RowBox[{"assoc", ",", "#"}], "]"}]}], "]"}], "&"}], "[", RowBox[{"First", "/@", RowBox[{"takeLargestBy", "[", RowBox[{"assoc", ",", "x", ",", "n", ",", "opts"}], "]"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_List", ",", RowBox[{"props", ":", RowBox[{"{", "__", "}"}]}]}], "]"}], ",", "val_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"ll", "\[Rule]", "#"}], ",", "val", ",", "n", ",", "opts"}], "]"}], "&"}], "/@", "props"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"list_Association", ",", RowBox[{"props", ":", RowBox[{"{", "__", "}"}]}]}], "]"}], ",", "x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AssociationThread", "[", RowBox[{ RowBox[{"Keys", "[", RowBox[{"First", "[", "#", "]"}], "]"}], "\[Rule]", RowBox[{"Transpose", "[", RowBox[{"Values", "[", "#", "]"}], "]"}]}], "]"}], "&"}], "[", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "#"}], ",", "x", ",", "n", ",", "opts"}], "]"}], "&"}], "/@", "props"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_List", ",", "All"}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Association", "/@", RowBox[{"Transpose", "[", RowBox[{"takeSmallerAll", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_Association", ",", "All"}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"keys", ",", "rkeys", ",", RowBox[{"all", "=", RowBox[{"takeSmallerAll", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"keys", "=", RowBox[{"Keys", "[", "all", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rkeys", "=", RowBox[{"Keys", "[", RowBox[{"all", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AssociationThread", "[", RowBox[{"rkeys", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AssociationThread", "[", RowBox[{"keys", "\[Rule]", "#"}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", RowBox[{"Values", "[", RowBox[{"Values", "[", "all", "]"}], "]"}], "]"}]}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"list_", ",", "props_"}], "]"}], ",", "x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", " ", RowBox[{"throwFailed", "[", RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{ RowBox[{"selectLessThan", "[", RowBox[{"list", ",", "x"}], "]"}], "\[Rule]", "props"}], ",", "n", ",", "opts"}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"takeSmaller", "[", RowBox[{ RowBox[{"list", ":", RowBox[{"(", RowBox[{"_List", "|", "_Association"}], ")"}]}], ",", "x_", ",", "n_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"throwFailed", "[", RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"selectLessThan", "[", RowBox[{"list", ",", "x"}], "]"}], ",", "n", ",", "opts"}], "]"}], "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.768709302371666*^9, {3.768709391914365*^9, 3.7687094291193657`*^9}, { 3.7687095856611233`*^9, 3.768709630705289*^9}, {3.768709666041834*^9, 3.7687096889043016`*^9}, {3.768709789615506*^9, 3.768709804454095*^9}, { 3.768709973111093*^9, 3.768710058402985*^9}, {3.768710113709116*^9, 3.768710115746467*^9}, 3.768710155363846*^9, {3.76871027251221*^9, 3.7687103087509527`*^9}, {3.768710377565337*^9, 3.768710378227107*^9}, { 3.7687104663126917`*^9, 3.768710513790998*^9}, {3.7687105546720037`*^9, 3.768710564806035*^9}, {3.770636490091095*^9, 3.770636532184126*^9}, { 3.770970776328617*^9, 3.770970827994668*^9}, {3.770970863724427*^9, 3.77097087315551*^9}, {3.770971421474177*^9, 3.7709714550329323`*^9}, { 3.770971549344069*^9, 3.7709715529072113`*^9}, {3.770971632486294*^9, 3.770971680996251*^9}, {3.770972024383711*^9, 3.770972076870294*^9}, { 3.770985295993945*^9, 3.7709853063854837`*^9}, {3.7709853758218727`*^9, 3.770985422441516*^9}, {3.7709854632983828`*^9, 3.770985473470992*^9}, { 3.770985539387082*^9, 3.770985744376791*^9}, {3.770985783414707*^9, 3.7709858193414373`*^9}, {3.770985913280575*^9, 3.770985933557795*^9}, { 3.77098817640976*^9, 3.770988177487237*^9}, {3.770988337736795*^9, 3.7709883712938137`*^9}, {3.771006945543889*^9, 3.771006947953776*^9}, { 3.771067940047658*^9, 3.771068087962384*^9}, {3.7710681213779583`*^9, 3.7710681254334297`*^9}, {3.77106817421924*^9, 3.7710681837699957`*^9}, { 3.7710682236051483`*^9, 3.7710682244970818`*^9}, {3.77107143816461*^9, 3.771071476066782*^9}, 3.77107166671059*^9, {3.771088580818364*^9, 3.771088596895488*^9}, {3.771126233687811*^9, 3.7711262344499826`*^9}, { 3.771126332421844*^9, 3.771126358678609*^9}, {3.7711263907561417`*^9, 3.771126408530477*^9}, {3.771126501500581*^9, 3.771126514540064*^9}, { 3.771126603159665*^9, 3.7711266828903*^9}, {3.771126818545603*^9, 3.771126883148809*^9}, {3.7711269542714167`*^9, 3.771127067927772*^9}, { 3.771127361134554*^9, 3.771127364634214*^9}, {3.77112740865138*^9, 3.771127411017458*^9}, {3.7711279975088673`*^9, 3.771127999946089*^9}, { 3.771128181158256*^9, 3.771128183659916*^9}, 3.771128380185053*^9, { 3.771128506584803*^9, 3.771128509630722*^9}, {3.771128705858128*^9, 3.771128707513855*^9}, {3.771132149028659*^9, 3.7711322192476673`*^9}, { 3.7711329996838903`*^9, 3.7711330006497507`*^9}, {3.771133054029887*^9, 3.771133104715232*^9}, {3.771133312174576*^9, 3.7711333924467173`*^9}, { 3.771133430516612*^9, 3.77113343175634*^9}, {3.7711334662346067`*^9, 3.771133498808873*^9}, {3.7711337314182863`*^9, 3.771133732256873*^9}, 3.7711338143962317`*^9, {3.771133993081008*^9, 3.7711340450599403`*^9}, { 3.7711383615609493`*^9, 3.771138364980474*^9}, {3.77114332395223*^9, 3.7711433346324043`*^9}, {3.7711433881947517`*^9, 3.771143392796322*^9}, { 3.7711439881083*^9, 3.771144014150092*^9}, {3.771144124835154*^9, 3.771144128720849*^9}, {3.771144410692102*^9, 3.771144534138674*^9}, { 3.77114459676197*^9, 3.771144597215087*^9}, 3.771144678147801*^9, { 3.77114481474158*^9, 3.771144821174226*^9}, {3.7711450925277433`*^9, 3.771145213677106*^9}, {3.771145325447134*^9, 3.771145337980369*^9}, { 3.771147180809952*^9, 3.771147334116478*^9}, {3.771147368193372*^9, 3.771147370354024*^9}, {3.771150298806119*^9, 3.7711502995218487`*^9}, { 3.771150866628443*^9, 3.771150893088195*^9}, {3.771152979348899*^9, 3.7711529840831127`*^9}, {3.772475267719493*^9, 3.7724752702139683`*^9}, 3.776523435866769*^9, {3.776525387277748*^9, 3.776525389866352*^9}, { 3.776533122220359*^9, 3.776533123188678*^9}, 3.776533162200993*^9, { 3.776533212129423*^9, 3.776533224765963*^9}, 3.7765332631197042`*^9, 3.776535934313735*^9, {3.776536231235547*^9, 3.7765362380343113`*^9}, { 3.776536516784341*^9, 3.776536519223744*^9}}, CellLabel->"In[1]:=", CellID->401828875] }, 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[{"TakeSmaller", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->557163263], Cell[TextData[{ "gives the largest ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " elements in ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " that are smaller than ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->12788047] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{ StyleBox["list", "TI"], "\[Rule]", StyleBox["prop", "TI"]}], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->872986325], Cell[TextData[{ "gives the property ", Cell[BoxData[ StyleBox["prop", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " elements in ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " that are smaller than ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->876804056] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->81068984], Cell[TextData[{ "represents an operator form of ", Cell[BoxData["TakeSmaller"], "InlineFormula", FontFamily->"Source Sans Pro"], " that can be applied to an expression." }], "UsageDescription", CellID->981508847] }, 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["TakeSmaller"], "InlineFormula", FontFamily->"Source Sans Pro"], " sorts by numerical magnitude." }], "Notes", CellTags->"TabNext", CellID->689667490], Cell[TextData[{ Cell[BoxData["TakeSmaller"], "InlineFormula", FontFamily->"Source Sans Pro"], " handles the same objects and properties as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TakeSmallest", "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/TakeSmallest", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->618471656], Cell[TextData[{ Cell[BoxData["TakeSmaller"], "InlineFormula", FontFamily->"Source Sans Pro"], " expects all objects to be comparable with one another." }], "Notes", CellID->129740255], Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["val", "TI"], ",", RowBox[{ TagBox[ ButtonBox[ StyleBox["UpTo", "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/UpTo", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", StyleBox["n", "TI"], "]"}]}], "]"}], " "}]], "InlineFormula", FontFamily->"Source Sans Pro"], "takes ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " elements, or as many as are available." }], "Notes", CellID->97861127], Cell[TextData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ StyleBox["assoc", "TI"], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " gives an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "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/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of length ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " by taking the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " largest values that are smaller then ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in ", Cell[BoxData[ StyleBox["assoc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", preserving their keys." }], "Notes", CellID->958866083], Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}], "[", StyleBox["list", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}], "."}]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "Notes", CellID->598641709] }, 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["Take two numbers smaller than the specified value in a list:", "Text", TaggingRules->{}, CellChangeTimes->{{3.76855702132609*^9, 3.7685570735544033`*^9}, 3.771143288705996*^9}, CellID->817848414], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{"1", ",", "3", ",", "0", ",", "4", ",", "5"}], "}"}], " "}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768557289383438*^9, 3.768557291375001*^9}, { 3.771143642048952*^9, 3.77114364520804*^9}, {3.776525458376193*^9, 3.776525484638089*^9}, {3.776527290903276*^9, 3.776527297367798*^9}, 3.77791711153813*^9}, CellID->954043248], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "0", ",", "4", ",", "5"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.768557294461158*^9, 3.768620201679276*^9, 3.768706403813225*^9, 3.768709371568816*^9, 3.7687094355383577`*^9, 3.7687100955347643`*^9, 3.768710578467513*^9, 3.768713205551283*^9, 3.7687138330601892`*^9, 3.770985947669963*^9, 3.7710619776664133`*^9, 3.7711436154524117`*^9, 3.771143647050901*^9, 3.771144549765449*^9, 3.772390448810199*^9, 3.772477278161819*^9, 3.776525404619484*^9, 3.776525485612651*^9, 3.7765272986573677`*^9, 3.776537350431686*^9, 3.776554599680448*^9}, CellLabel->"Out[1]=", CellID->951381292] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{"list", ",", "4", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767331170366127*^9, 3.7673312087824*^9}, 3.7673320043587646`*^9, 3.7685570091184063`*^9, {3.7685570837136374`*^9, 3.768557094057536*^9}, {3.768557282298853*^9, 3.768557285005403*^9}, 3.771138365649312*^9, {3.7711436251226683`*^9, 3.7711436266729593`*^9}}, CellLabel->"In[2]:=", CellID->327554506], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.767331202929103*^9, 3.767331209434271*^9}, 3.767341236797263*^9, 3.7685570946269903`*^9, 3.768557296404207*^9, 3.7686202029392443`*^9, 3.768706404629634*^9, 3.768709374736012*^9, 3.768709441065898*^9, {3.768710097110087*^9, 3.768710126238578*^9}, 3.768710581955449*^9, 3.768713207365308*^9, {3.768713833764011*^9, 3.768713847866315*^9}, 3.770985951201339*^9, {3.771061979101465*^9, 3.771061997989029*^9}, {3.7711436168172407`*^9, 3.7711436485663*^9}, 3.771144550896957*^9, 3.771144837225512*^9, 3.771145228430965*^9, 3.7723904989437733`*^9, 3.772477280242429*^9, 3.7765254056910152`*^9, 3.7765254873444366`*^9, 3.7765273009641123`*^9, 3.776533138989789*^9, 3.776533232512314*^9, 3.776533268599263*^9, 3.776537352732758*^9, 3.7765546009572887`*^9}, CellLabel->"Out[2]=", CellID->378205377] }, Open ]], Cell[TextData[{ "Do the same using the operator form of ", Cell[BoxData["TakeSmaller"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.768620225977667*^9, 3.768620238654806*^9}, { 3.771138365651156*^9, 3.771138365651209*^9}}, CellID->347647917], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "//", RowBox[{"TakeSmaller", "[", RowBox[{"4", ",", "2"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7685572589035587`*^9, 3.7685572629981127`*^9}, { 3.768557302696157*^9, 3.76855730370181*^9}, 3.771138365654807*^9, { 3.771143656006228*^9, 3.771143656734604*^9}}, CellLabel->"In[3]:=", CellID->151719944], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7685572693419447`*^9, 3.768557304321534*^9, 3.768620244265407*^9, 3.768709379414955*^9, 3.768709442264168*^9, 3.768710129250886*^9, 3.768713208388226*^9, 3.768713849861867*^9, 3.770985955230385*^9, 3.771062005448391*^9, 3.771143657372449*^9, 3.771144552177264*^9, 3.771144765817706*^9, 3.771144832010002*^9, 3.771145236256579*^9, 3.7723905468888187`*^9, 3.7724772816445017`*^9, 3.776533290622705*^9, 3.776537354293545*^9, 3.776554602023409*^9}, CellLabel->"Out[3]=", CellID->556886065] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{"4", ",", "2"}], "]"}], " ", "@", " ", "list"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7685572538874683`*^9, 3.7685572668702383`*^9}, { 3.7685573099120903`*^9, 3.768557310709876*^9}, 3.771138365657715*^9, { 3.771143661044713*^9, 3.7711436623265944`*^9}}, CellLabel->"In[4]:=", CellID->104318858], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.768557270891272*^9, 3.768557311287347*^9, 3.768620245165338*^9, 3.7687094435721207`*^9, 3.768710130219042*^9, 3.768713209210187*^9, 3.768713850717863*^9, 3.770985958834648*^9, 3.771062011656127*^9, 3.77114366295807*^9, 3.7711448348936234`*^9, 3.771145237384472*^9, 3.772390548537569*^9, 3.772477282923853*^9, 3.7765332918273687`*^9, 3.776537355398735*^9, 3.776554603040792*^9}, CellLabel->"Out[4]=", CellID->788585758] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["\<\ Take the largest two values smaller than the specified threshold in an \ association:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.768557421396988*^9, 3.7685574770510406`*^9}, { 3.7686202560758877`*^9, 3.768620256999488*^9}, 3.771143289735383*^9, { 3.777915833448742*^9, 3.777915837384585*^9}}, CellID->122979698], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"a", "\[Rule]", "0"}], ",", RowBox[{"b", "\[Rule]", "1"}], ",", RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"d", "\[Rule]", "5"}], ",", RowBox[{"e", "\[Rule]", "4"}]}], "|>"}], ",", "3", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7685574948032017`*^9, 3.7685575454828253`*^9}, 3.77113836566223*^9, {3.776533335644808*^9, 3.7765333613152742`*^9}}, CellLabel->"In[1]:=", CellID->559225850], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"c", "\[Rule]", "2"}], ",", RowBox[{"b", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.768557534227331*^9, 3.7685575490038633`*^9}, 3.768620263149602*^9, 3.768709447905155*^9, 3.768710132340288*^9, 3.7687101653337603`*^9, 3.768713211643491*^9, 3.768713852607143*^9, 3.771062028925371*^9, 3.7711437746249027`*^9, 3.771145359657942*^9, 3.77246320272121*^9, 3.772477285895452*^9, 3.776533306894417*^9, 3.776533364272077*^9, 3.776537359271511*^9, 3.776554605612298*^9}, CellLabel->"Out[1]=", CellID->725803821] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Take the largest four numbers smaller than the specified value, or as many as \ are available:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{ 3.7685627275027122`*^9, {3.7685693452084703`*^9, 3.768569374352441*^9}, { 3.768620859880774*^9, 3.76862086275799*^9}, 3.771062037861629*^9, 3.77114329078765*^9, {3.777915846560176*^9, 3.777915859442165*^9}}, CellID->360146575], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "7", ",", "1", ",", "3"}], "}"}], ",", "5", ",", RowBox[{"UpTo", "[", "4", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768562747689541*^9, 3.76856275859368*^9}, 3.771138365667664*^9, {3.771143818299367*^9, 3.771143873904312*^9}, { 3.776533409734178*^9, 3.776533410623807*^9}}, CellLabel->"In[1]:=", CellID->616012074], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7711438747795277`*^9, 3.7711453619482603`*^9, 3.772463247600264*^9, 3.772477288893922*^9, {3.776533390795582*^9, 3.7765334121064873`*^9}, 3.776537361416411*^9, 3.77655460782483*^9}, CellLabel->"Out[1]=", CellID->295894557] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Take all numbers with values under the threshold:", "Text", TaggingRules->{}, CellChangeTimes->{ 3.7685627275027122`*^9, {3.7685693452084703`*^9, 3.768569374352441*^9}, { 3.768570082564971*^9, 3.7685701090354156`*^9}, 3.7711432918455353`*^9, { 3.771143927003207*^9, 3.771143938259901*^9}, {3.777915870057253*^9, 3.777915874712776*^9}}, CellID->77233899], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "7", ",", "4", ",", "5"}], "}"}], ",", "5", ",", RowBox[{"UpTo", "[", "Infinity", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768562747689541*^9, 3.76856275859368*^9}, { 3.768570117636232*^9, 3.768570132490511*^9}, 3.771138365672328*^9, { 3.771143901478314*^9, 3.7711439024844*^9}, 3.776533454215809*^9}, CellLabel->"In[1]:=", CellID->326820761], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7685627605664463`*^9, {3.768570121125108*^9, 3.768570133479171*^9}, 3.7687094549670877`*^9, 3.7687101714238653`*^9, 3.768713216393091*^9, 3.768713859184094*^9, 3.771062083675893*^9, {3.771143888163796*^9, 3.771143903180235*^9}, 3.771145363919689*^9, 3.77246325336094*^9, 3.772477292279215*^9, {3.776533436821948*^9, 3.776533466260996*^9}, 3.776537363540352*^9, 3.776554610658299*^9}, CellLabel->"Out[1]=", CellID->509701875] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Take two values in a list of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "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/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, 3.768569486854299*^9, {3.768569519797564*^9, 3.7685695281527023`*^9}, {3.7686209133740873`*^9, 3.768620914496344*^9}}, CellID->662065906], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"100", "\"g\"", "grams", "\"Grams\""}, "Quantity"], ",", TemplateBox[{"2", "\"kg\"", "kilograms", "\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"3", "\"kg\"", "kilograms", "\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"4", "\"kg\"", "kilograms", "\"Kilograms\""}, "Quantity"]}], "}"}], ",", TemplateBox[{"3", "\"kg\"", "kilogram", "\"Kilograms\""}, "Quantity"], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.633287542921975*^9, 3.633287556377145*^9}, { 3.635530393794684*^9, 3.6355304378284283`*^9}, {3.6355304694544086`*^9, 3.635530495760744*^9}, {3.768569401766696*^9, 3.7685694262839108`*^9}, { 3.768569459470092*^9, 3.768569466766659*^9}, 3.768569545220078*^9, 3.771138365694132*^9, {3.77114543025215*^9, 3.771145448189382*^9}, { 3.77653350072705*^9, 3.776533514761569*^9}, 3.776533552427281*^9}, CellLabel->"In[1]:=", CellID->100035331], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"2", "\"kg\"", "kilograms", "\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"100", "\"g\"", "grams", "\"Grams\""}, "Quantity"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.776533553367577*^9, 3.776537386654776*^9, 3.776537424793036*^9, 3.776554613935958*^9}, CellLabel->"Out[1]=", CellID->821688345] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ Get the two largest elements that are smaller than 23 in a list:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.768562835720717*^9, 3.7685628948956003`*^9}, { 3.768563695974169*^9, 3.768563697158484*^9}, {3.768564120227631*^9, 3.76856412514892*^9}, 3.771143293101717*^9, 3.771143468149255*^9, 3.771147017175961*^9}, CellID->556301151], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], ",", RowBox[{"7", " ", "\[Pi]"}], ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", "23"}], "}"}], ",", "23", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768562850081156*^9, 3.7685628508405523`*^9}, { 3.768562903863101*^9, 3.768562912827676*^9}, 3.771138365705675*^9, 3.771147020697699*^9}, CellLabel->"In[1]:=", CellID->225401017], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", RowBox[{"7", " ", "\[Pi]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.768562906218191*^9, 3.768562913480205*^9}, 3.768709461405074*^9, 3.768710179072196*^9, 3.768713222062511*^9, 3.768713866198147*^9, 3.771062102546386*^9, 3.771146599997575*^9, 3.7711470253321733`*^9, 3.772463274881278*^9, 3.7724772981337023`*^9, 3.776533587176158*^9, 3.7765347926071033`*^9, 3.776537432065178*^9, 3.776554616499016*^9}, CellLabel->"Out[1]=", CellID->586116833] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["\<\ Get the positions of the two largest elements smaller than 3:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.7471455722677383`*^9, 3.74714557317101*^9}, { 3.768563947966243*^9, 3.768563967983004*^9}, {3.768564200369567*^9, 3.768564207137981*^9}, 3.771143294137507*^9, 3.7711434695092573`*^9}, CellID->239384120], Cell[BoxData[ RowBox[{ RowBox[{"list", "=", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], ",", RowBox[{"7", " ", "\[Pi]"}], ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", "23"}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.74707923006997*^9, 3.7470792342121058`*^9}}, CellLabel->"In[1]:=", CellID->576252014], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "23", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.747078662923678*^9, 3.747078674172188*^9}, { 3.747078869296501*^9, 3.747078953264*^9}, {3.747079136755979*^9, 3.7470792271723146`*^9}, {3.768563981137578*^9, 3.7685639855908337`*^9}, 3.7711383657107*^9, 3.771147044838282*^9, 3.77115037445862*^9}, CellLabel->"In[2]:=", CellID->445658925], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.747078898143775*^9, 3.7470789267962914`*^9}, 3.7470792704133244`*^9, {3.768563973522469*^9, 3.768563986335044*^9}, 3.768564216855557*^9, 3.7687094649611197`*^9, 3.768709725202335*^9, 3.7687101824647512`*^9, 3.7687132253167143`*^9, 3.7687138697315893`*^9, 3.771062117934657*^9, 3.771147045434977*^9, 3.771147392550221*^9, { 3.771150357265069*^9, 3.771150378690898*^9}, 3.772463287726849*^9, 3.772477303618689*^9, 3.776535207203022*^9, 3.776536412656557*^9, 3.776536618527398*^9, 3.776537437795685*^9, 3.7765546202996683`*^9}, CellLabel->"Out[2]=", CellID->18415488] }, Open ]], Cell["Get the elements along with their positions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.747079240292006*^9, 3.747079252515952*^9}, { 3.747079317205257*^9, 3.747079359413822*^9}, {3.768564239940761*^9, 3.768564253691382*^9}, {3.7685643794318*^9, 3.768564382777308*^9}}, CellID->632208645], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "23", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7470793058611813`*^9, 3.747079312277268*^9}, { 3.747079368072706*^9, 3.747079372518093*^9}, {3.76856426631446*^9, 3.768564271465495*^9}, 3.7711383657151003`*^9, 3.7711503972592793`*^9}, CellLabel->"In[3]:=", CellID->272231517], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"7", " ", "\[Pi]"}], ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7470793290894947`*^9, 3.7470793746759253`*^9, {3.7685642593979673`*^9, 3.7685642721105833`*^9}, 3.768710183544767*^9, 3.768713226511519*^9, 3.768713870652875*^9, 3.7710621357491617`*^9, {3.7711503907490597`*^9, 3.7711503984494553`*^9}, 3.7711509084202957`*^9, 3.77246329517231*^9, 3.772477306580065*^9, 3.776536432362101*^9, 3.7765366058922367`*^9, 3.776537438963627*^9, 3.776554621592*^9}, CellLabel->"Out[3]=", CellID->789966723] }, Open ]], Cell["Let positions come first in the result:", "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.747079240292006*^9, 3.747079252515952*^9}, { 3.747079317205257*^9, 3.747079359413822*^9}, {3.747079410662528*^9, 3.747079418518485*^9}, {3.7470794839276342`*^9, 3.74707949605579*^9}, { 3.747394917772523*^9, 3.7473949181390343`*^9}, {3.768564337513895*^9, 3.768564363290863*^9}, {3.768564410448473*^9, 3.7685644218338614`*^9}, { 3.768620978658252*^9, 3.768620981774328*^9}, 3.7779158921381683`*^9}, CellID->876749419], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "23", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7470793058611813`*^9, 3.747079312277268*^9}, { 3.747079368072706*^9, 3.747079372518093*^9}, {3.747079428231888*^9, 3.747079431192359*^9}, {3.7685643108112803`*^9, 3.7685643180097847`*^9}, 3.771138365719656*^9, 3.7711509266781883`*^9}, CellLabel->"In[4]:=", CellID->642024804], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"7", " ", "\[Pi]"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.747079433080809*^9, 3.768564320606319*^9, 3.768710184886897*^9, 3.768713228118298*^9, 3.768713871600048*^9, 3.7710621580621977`*^9, { 3.7711509215744953`*^9, 3.7711509275764837`*^9}, 3.7724773349776297`*^9, 3.7765366634976397`*^9, 3.7765374406322603`*^9, 3.776554624111433*^9}, CellLabel->"Out[4]=", CellID->375115678] }, Open ]], Cell["Get associations containing the element and the position:", "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.747079240292006*^9, 3.747079252515952*^9}, { 3.747079317205257*^9, 3.747079359413822*^9}, {3.747079410662528*^9, 3.747079418518485*^9}, {3.7470794839276342`*^9, 3.747079534088512*^9}, { 3.747394924410492*^9, 3.747394925234466*^9}, {3.7685644538179007`*^9, 3.7685644553428593`*^9}, {3.768621006995688*^9, 3.768621007460178*^9}}, CellID->895519703], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "All"}], ",", "23", ",", "2"}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.747079442519002*^9, 3.747079442902876*^9}, { 3.768564430018107*^9, 3.76856443402376*^9}, 3.771138365724189*^9, 3.7711509412672367`*^9}, CellLabel->"In[5]:=", CellID->997780171], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "3"}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", RowBox[{"7", " ", "\[Pi]"}]}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.747079446237217*^9, 3.768564459628977*^9, 3.76871018595229*^9, 3.768713232766136*^9, 3.768713872430698*^9, 3.7710621912528343`*^9, 3.771150941831038*^9, 3.7724773571843243`*^9, 3.776536678975422*^9, 3.776537443327516*^9, 3.776554626225017*^9}, CellLabel->"Out[5]=", CellID->715119763] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["\<\ Get the two largest planets with the radii smaller than the Earth\ \[CloseCurlyQuote]s:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747145833579183*^9, 3.7471458348264027`*^9}, {3.747146323370648*^9, 3.747146331785553*^9}, {3.747146376767943*^9, 3.747146381527944*^9}, { 3.7471465929208393`*^9, 3.747146606048129*^9}, {3.747409639007351*^9, 3.747409655710464*^9}, {3.768569767689541*^9, 3.7685697949994383`*^9}, { 3.768569905548943*^9, 3.768569907957243*^9}, {3.7686210232299623`*^9, 3.768621026252595*^9}, 3.771143295202795*^9, 3.771143472452763*^9, { 3.7748024973580503`*^9, 3.774802506685586*^9}, {3.77791592203452*^9, 3.777915938721795*^9}, {3.7819743699075403`*^9, 3.7819743703682566`*^9}}, CellID->210895323], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"EntityValue", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{ RowBox[{"Entity", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "[", "\"\\"", "]"}], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7471460409946404`*^9, 3.747146054595138*^9}, { 3.7471461354989967`*^9, 3.747146223205854*^9}, {3.747146255741007*^9, 3.7471463061961412`*^9}, {3.7471463511222754`*^9, 3.747146384472095*^9}, { 3.74714657734829*^9, 3.7471465897531633`*^9}, {3.7471466301062593`*^9, 3.747146630735024*^9}, {3.768569880826612*^9, 3.7685699020238934`*^9}, 3.7711383657291927`*^9}, CellLabel->"In[1]:=", CellID->321906307], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ TemplateBox[{"\"Venus\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Venus\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Venus\\\"]\"", "\"planet\""}, "Entity"], "\[Rule]", TemplateBox[{ "6051.8`5.082914562680098", "\"km\"", "kilometers", "\"Kilometers\""}, "Quantity"]}], ",", RowBox[{ TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], "\[Rule]", TemplateBox[{ "3389.5`4.831165633909443", "\"km\"", "kilometers", "\"Kilometers\""}, "Quantity"]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.747146181006139*^9, 3.747146186688869*^9}, 3.747146225454111*^9, {3.747146262488927*^9, 3.747146306900158*^9}, { 3.747146341448924*^9, 3.747146384758585*^9}, {3.7471465869840097`*^9, 3.747146590091401*^9}, 3.74714663125377*^9, 3.747147042756321*^9, { 3.768569892422748*^9, 3.768569910407051*^9}, 3.768710190404139*^9, 3.768713235990638*^9, 3.7687138748873034`*^9, 3.771062211553534*^9, 3.771150959880538*^9, 3.772477362439789*^9, 3.776536698078932*^9, 3.776537447128274*^9, 3.7765546299515657`*^9}, CellLabel->"Out[1]=", CellID->733578120] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Wolfram Staff", "Text", CellID->95771488] }, 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["elements by value", "Item", CellID->555967736] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Core Language & Structure", {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Data Manipulation & Analysis", { False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Visualization"}], "\" \"", "\"Data Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Date & Time"}], "\" \"", "\"Date & Time\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Decorations"}], "\" \"", "\"Decorations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Differential Geometry"}], "\" \"", "\"Differential Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dimension Reduction"}], "\" \"", "\"Dimension Reduction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Discrete Mathematics"}], "\" \"", "\"Discrete Mathematics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dynamic Interactivity Language"}], "\" \"", "\"Dynamic Interactivity Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Error Handling"}], "\" \"", "\"Error Handling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Expressions"}], "\" \"", "\"Expressions\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Language Interfaces"}], "\" \"", "\"External Language Interfaces\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "File Operations"}], "\" \"", "\"File Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Front End Utilities"}], "\" \"", "\"Front End Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Functional Programming"}], "\" \"", "\"Functional Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Function Visualization"}], "\" \"", "\"Function Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Games"}], "\" \"", "\"Games\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data and Entities"}], "\" \"", "\"Geographic Data and Entities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Visualization"}], "\" \"", "\"Geographic Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Region Properties"}], "\" \"", "\"Geometric Region Properties\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Transforms"}], "\" \"", "\"Geometric Transforms\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Construction & Representation"}], "\" \"", "\"Graph Construction & Representation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Properties & Measurements"}], "\" \"", "\"Graph Properties & Measurements\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Visualization"}], "\" \"", "\"Graph Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Handling Arrays of Data"}], "\" \"", "\"Handling Arrays of Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Image Filtering & Neighborhood Processing"}], "\" \"", "\"Image Filtering & Neighborhood Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Image Processing & Analysis"}], "\" \"", "\"Image Processing & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Importing and Exporting"}], "\" \"", "\"Importing and Exporting\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Interactive Manipulation"}], "\" \"", "\"Interactive Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Iterated Maps & Fractals"}], "\" \"", "\"Iterated Maps & Fractals\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Layout & Tables"}], "\" \"", "\"Layout & Tables\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Life Sciences & Medicine: Data & Computation"}], "\" \"", "\"Life Sciences & Medicine: Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Linguistic Data"}], "\" \"", "\"Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "List Manipulation"}], "\" \"", "\"List Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Logic & Boolean Algebra"}], "\" \"", "\"Logic & Boolean Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Low-Level Notebook Programming"}], "\" \"", "\"Low-Level Notebook Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Maps & Cartography"}], "\" \"", "\"Maps & Cartography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Mathematical Functions"}], "\" \"", "\"Mathematical Functions\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Matrices and Linear Algebra"}], "\" \"", "\"Matrices and Linear Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Molecular Structure & Computation"}], "\" \"", "\"Molecular Structure & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Natural Language Processing"}], "\" \"", "\"Natural Language Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Neural Networks"}], "\" \"", "\"Neural Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Basics"}], "\" \"", "\"Notebook Basics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Document Generation"}], "\" \"", "\"Notebook Document Generation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Formatting & Styling"}], "\" \"", "\"Notebook Formatting & Styling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Number Theory"}], "\" \"", "\"Number Theory\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Numeric Approximation"}], "\" \"", "\"Numeric Approximation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Optimization"}], "\" \"", "\"Optimization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Computing"}], "\" \"", "\"Parallel Computing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Persistent Storage"}], "\" \"", "\"Persistent Storage\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Physics & Chemistry: Data and Computation"}], "\" \"", "\"Physics & Chemistry: Data and Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Plane Geometry"}], "\" \"", "\"Plane Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Polynomial Algebra"}], "\" \"", "\"Polynomial Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Precollege Education"}], "\" \"", "\"Precollege Education\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Presentations with the Wolfram System"}], "\" \"", "\"Presentations with the Wolfram System\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Probability & Statistics"}], "\" \"", "\"Probability & Statistics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Random Stuff"}], "\" \"", "\"Random Stuff\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Real & Complex Analysis"}], "\" \"", "\"Real & Complex Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Recreational Math"}], "\" \"", "\"Recreational Math\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "RepositoryTools"}], "\" \"", "\"RepositoryTools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Rules & Patterns"}], "\" \"", "\"Rules & Patterns\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Scientific Data Analysis"}], "\" \"", "\"Scientific Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Segmentation Analysis"}], "\" \"", "\"Segmentation Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sequence Analysis"}], "\" \"", "\"Sequence Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Shortcuts and Idioms", {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVkMFqwzAMhmFb12SUnXYZ7OBTb3mIkLYQ6Oio9gKqo6Zmjm0s6ZC3n8NgbCcJvl/\ 6f6mtGliBzJ7g8aSSVBpYdzeyXzRc7/\ nh6FjgtYuZzBHDqDiS2RqQrFY0E7ztUNC8Y3BJPYqLoeA2oJ/\ ZMbzALWaxKmwwDKYfXJy4GPZCE3PdqsSpDNkGqo8cE2WZ4alDoTFmR0W5PqVlJ1/\ vfqIs9ayeuNoPTvBSutUBPdMvqHfk6S9Z7olep/Df8LkPQjnlol0coG7DDHphKg/\ YnImjZkufcyKoDhrsovkGeDxoxw=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->236990655] }, 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["TakeSmallest", "Item", CellID->780404600], Cell["TakeLargest", "Item", CellID->852462482], Cell["Nearest", "Item", CellID->821571633] }, 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["TakeLarger", "Item", CellID->57675028] }, 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[ RowBox[{ RowBox[{"list", "=", RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "7", ",", "11", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.768105741166148*^9, 3.7681057430148497`*^9}, { 3.768109135414792*^9, 3.7681091362953587`*^9}, {3.768561289740423*^9, 3.768561300057577*^9}, {3.76862172674162*^9, 3.768621737750124*^9}, 3.771150983634935*^9}, CellLabel->"In[2]:=", CellID->594690683], Cell[BoxData[ RowBox[{"assoc", ":=", RowBox[{"AssociationThread", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", RowBox[{"FromLetterNumber", "[", RowBox[{"Length", "[", "list", "]"}], "]"}]}], "]"}], "\[Rule]", "list"}], "]"}]}]], "Input", CellChangeTimes->{{3.768106775737216*^9, 3.768106798778117*^9}, { 3.768106886641954*^9, 3.768107065712653*^9}, 3.768622090781774*^9}, CellLabel->"In[3]:=", CellID->835687048], Cell[BoxData[ RowBox[{ RowBox[{"propList", "=", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "All"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.771134121640008*^9, 3.7711341468832817`*^9}}, CellLabel->"In[4]:=", CellID->767574489], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "All"}], ",", "6.5", ",", "4"}], "]"}], "\[Equal]", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{ RowBox[{"list", "\[Rule]", "All"}], ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768292008948488*^9, 3.768292009636879*^9}, {3.768621684514674*^9, 3.768621685256473*^9}, 3.7711383659731293`*^9, {3.772477661704482*^9, 3.7724776628102617`*^9}, {3.776537110431547*^9, 3.776537112748171*^9}}, CellLabel->"In[5]:=", CellID->450481909], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7724776633691683`*^9, 3.776537059021483*^9, 3.776537114305441*^9, 3.776537476443437*^9, 3.776554651278071*^9}, CellLabel->"Out[5]=", CellID->993604659] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "All"}], ",", "6.5", ",", "4"}], "]"}], "==", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "All"}], ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768292008948488*^9, 3.768292009636879*^9}, 3.768621682080118*^9, 3.7711368050993643`*^9, 3.771138365979907*^9, {3.772477727712469*^9, 3.772477728509795*^9}, 3.776537126735183*^9}, CellLabel->"In[6]:=", CellID->872176186], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.768289260229788*^9, 3.7682920103343163`*^9, 3.768292675716073*^9, 3.768292731806727*^9, 3.768292782265285*^9, 3.768293226917829*^9, 3.768293607564715*^9, 3.7682946053283453`*^9, {3.768294652748663*^9, 3.7682946764654503`*^9}, 3.768294723345222*^9, 3.7682947709544477`*^9, 3.768294839805902*^9, 3.768294878430437*^9, 3.768295141229279*^9, 3.768295205106655*^9, 3.768298926397049*^9, 3.7686216757426577`*^9, 3.768621769521449*^9, 3.7686221009398746`*^9, 3.768713913978661*^9, 3.771136807231039*^9, 3.7724776821232*^9, 3.772477729334548*^9, { 3.776537123951956*^9, 3.776537127227344*^9}, 3.77653747737081*^9, 3.776554652590899*^9}, CellLabel->"Out[6]=", CellID->340631766] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}]], "Input", CellChangeTimes->{3.771138365984713*^9}, CellLabel->"In[7]:=", CellID->544467066], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.768623432026449*^9, 3.768713915903426*^9, 3.772477736027834*^9, 3.776537133327449*^9, 3.776537478378566*^9, 3.776554653767343*^9}, CellLabel->"Out[7]=", CellID->479384511] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"TakeSmaller", "[", RowBox[{"list", ",", "6.5", ",", "4"}], "]"}]}]], "Input", CellChangeTimes->{{3.771137150849579*^9, 3.771137161634428*^9}, { 3.7711383659890327`*^9, 3.771138365989661*^9}}, CellLabel->"In[8]:=", CellID->293250000], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.771137162597225*^9, 3.771137174983066*^9}, 3.772477743362211*^9, 3.776537189501669*^9, 3.77653747967455*^9, 3.776554655107985*^9}, CellLabel->"Out[8]=", CellID->140965890] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"TakeSmaller", "[", RowBox[{"assoc", ",", "6.5", ",", "4"}], "]"}]}]], "Input", CellChangeTimes->{{3.771137150849579*^9, 3.771137184345615*^9}, { 3.771138365993883*^9, 3.771138365994494*^9}}, CellLabel->"In[9]:=", CellID->676070039], Cell[BoxData["True"], "Output", CellChangeTimes->{3.771137184949687*^9, 3.772477773038028*^9, 3.7765371955827913`*^9, 3.776537480805623*^9, 3.7765546571509047`*^9}, CellLabel->"Out[9]=", CellID->36836560] }, Open ]], Cell["Unique elements:", "Text", CellChangeTimes->{{3.771137202064062*^9, 3.77113721075159*^9}}, CellID->128266333], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "8", ",", "7", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.768105741166148*^9, 3.7681057430148497`*^9}, { 3.768109135414792*^9, 3.7681091362953587`*^9}, {3.768561289740423*^9, 3.768561300057577*^9}, {3.76862172674162*^9, 3.768621737750124*^9}, { 3.768622315103222*^9, 3.76862233423774*^9}, 3.76862281139528*^9, 3.7686233823381968`*^9}, CellLabel->"In[10]:=", CellID->412945004], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "8", ",", "7", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7686233828991528`*^9, 3.7710625475498037`*^9, 3.771136974269723*^9, 3.771137005947115*^9, {3.771137188655959*^9, 3.771137213606337*^9}, 3.772477776422778*^9, 3.776537204398868*^9, 3.776537481888648*^9, 3.7765546632144136`*^9}, CellLabel->"Out[10]=", CellID->27574504] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.768122097643079*^9, 3.768122163167774*^9}, { 3.768218250951972*^9, 3.7682182614068813`*^9}, {3.768623307859413*^9, 3.7686233230256977`*^9}, {3.768623355634701*^9, 3.7686233596734333`*^9}, { 3.768623415144622*^9, 3.768623448239097*^9}, {3.771138365999613*^9, 3.771138366000276*^9}, 3.772477784927949*^9, 3.776537211621583*^9}, CellLabel->"In[11]:=", CellID->273286101], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.768623448936386*^9, 3.768713917961918*^9, 3.771062386858729*^9, 3.7711370076015263`*^9, {3.771137215658914*^9, 3.771137227510433*^9}, { 3.772477779023691*^9, 3.772477785636649*^9}, {3.7765372091884203`*^9, 3.776537212495173*^9}, 3.776537482967703*^9, 3.7765546644908943`*^9}, CellLabel->"Out[11]=", CellID->541699544] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "#"}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "#"}], ",", "4"}], "]"}]}]}], ")"}], "&"}], "/@", "propList"}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768289320310939*^9, 3.7682893345469503`*^9}, {3.76828969144718*^9, 3.768289702335135*^9}, {3.768292149769287*^9, 3.768292150145955*^9}, { 3.768622265512848*^9, 3.768622274079466*^9}, {3.7686224318133993`*^9, 3.768622432787587*^9}, {3.768622827962534*^9, 3.7686228870301743`*^9}, { 3.768622953182488*^9, 3.7686229683795567`*^9}, {3.771132059762281*^9, 3.771132070738051*^9}, {3.771133533933428*^9, 3.7711335431542177`*^9}, { 3.771134155924767*^9, 3.771134157747945*^9}, {3.771138366006056*^9, 3.771138366006733*^9}, 3.772477790757421*^9, 3.7765372230966387`*^9}, CellLabel->"In[12]:=", CellID->867269369], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output", CellChangeTimes->{ 3.7711331213921013`*^9, 3.771133508215847*^9, 3.77113354447157*^9, 3.771134053601366*^9, 3.771134158171179*^9, {3.77113696129587*^9, 3.7711369787509212`*^9}, 3.771137009738752*^9, 3.771137230488751*^9, 3.772477792960374*^9, {3.776537220606237*^9, 3.776537223605896*^9}, 3.776537483920231*^9, 3.776554665547798*^9}, CellLabel->"Out[12]=", CellID->527850167] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "#"}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{ RowBox[{"list", "\[Rule]", "#"}], ",", "4"}], "]"}]}]}], ")"}], "&"}], "/@", "propList"}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768289320310939*^9, 3.7682893345469503`*^9}, {3.76828969144718*^9, 3.768289702335135*^9}, {3.768292149769287*^9, 3.768292150145955*^9}, { 3.768622265512848*^9, 3.768622274079466*^9}, {3.7686224318133993`*^9, 3.768622432787587*^9}, {3.768622827962534*^9, 3.7686228870301743`*^9}, { 3.768622953182488*^9, 3.7686229683795567`*^9}, {3.771132059762281*^9, 3.771132070738051*^9}, {3.771133533933428*^9, 3.771133564972464*^9}, { 3.7711340625465593`*^9, 3.771134063361071*^9}, {3.771134106783222*^9, 3.771134141763709*^9}, {3.7711383660126877`*^9, 3.771138366013653*^9}, 3.772477798765451*^9, 3.7765372324162493`*^9}, CellLabel->"In[13]:=", CellID->422211685], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output", CellChangeTimes->{ 3.771133566271736*^9, 3.771133828649315*^9, {3.7711340547903147`*^9, 3.771134064574401*^9}, 3.771134108275873*^9, 3.771134150681223*^9, 3.7711367174231977`*^9, 3.771136751220557*^9, 3.77113701145229*^9, 3.7711372325096188`*^9, 3.7724777995235863`*^9, 3.776537233310441*^9, 3.776537486087369*^9, 3.776554667160693*^9}, CellLabel->"Out[13]=", CellID->148552537] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Extract", "[", RowBox[{"list", ",", RowBox[{"List", "/@", RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}]}]}], "]"}], "===", RowBox[{"Extract", "[", RowBox[{"list", ",", RowBox[{"List", "/@", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "4"}], "]"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.768122097643079*^9, 3.768122163167774*^9}, { 3.768218250951972*^9, 3.7682182614068813`*^9}, {3.768623307859413*^9, 3.7686233230256977`*^9}, {3.768623355634701*^9, 3.7686233596734333`*^9}, 3.768623406174144*^9, {3.77113836601868*^9, 3.771138366019417*^9}, 3.77247782465381*^9, 3.7765372546402082`*^9}, CellLabel->"In[14]:=", CellID->656879453], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.768122165126514*^9, 3.768123876518827*^9, 3.768129250838537*^9, 3.768215887430183*^9, 3.7682180425277367`*^9, 3.7682182187411118`*^9, { 3.768218252598523*^9, 3.768218262136158*^9}, 3.768284659064168*^9, 3.768623323596766*^9, 3.768623360799428*^9, 3.7686234075346518`*^9, 3.768713919144227*^9, 3.7710624023526697`*^9, 3.77113724048914*^9, 3.772477825705801*^9, 3.77653725605657*^9, 3.776537487961182*^9, 3.776554668389452*^9}, CellLabel->"Out[14]=", CellID->660772100] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{"assoc", ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeSmallest", "[", RowBox[{"assoc", ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768289320310939*^9, 3.7682893345469503`*^9}, {3.76828969144718*^9, 3.768289702335135*^9}, {3.768292149769287*^9, 3.768292150145955*^9}, { 3.768622265512848*^9, 3.76862228652672*^9}, {3.7686223942035418`*^9, 3.76862239802738*^9}, {3.7686230585945587`*^9, 3.768623072048943*^9}, { 3.7711383660243053`*^9, 3.771138366024919*^9}, 3.772477838549021*^9, 3.776537263727037*^9}, CellLabel->"In[15]:=", CellID->341263560], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.768622398912101*^9, {3.768623039206802*^9, 3.768623072456418*^9}, 3.771137315172304*^9, 3.772477839110263*^9, {3.776537260917798*^9, 3.7765372642271357`*^9}, 3.776537491870213*^9, 3.776554669514345*^9}, CellLabel->"Out[15]=", CellID->593357767] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeSmaller", "[", RowBox[{ RowBox[{"{", RowBox[{"Yesterday", ",", "Today", ",", "Tomorrow", ",", RowBox[{"next", "=", RowBox[{"NextDate", "[", "\"\\"", "]"}]}]}], "}"}], ",", "Tomorrow", ",", "2"}], "]"}], "===", RowBox[{"{", RowBox[{"Today", ",", "Yesterday"}], "}"}]}]], "Input", CellChangeTimes->{{3.633287542921975*^9, 3.633287556377145*^9}, { 3.635530393794684*^9, 3.6355304378284283`*^9}, {3.6355304694544086`*^9, 3.635530495760744*^9}, {3.635530591378139*^9, 3.635530594416222*^9}, { 3.768565549762683*^9, 3.76856555158634*^9}, {3.768565641607688*^9, 3.7685656520166492`*^9}, {3.76856568416282*^9, 3.768565686599103*^9}, 3.768565748910166*^9, {3.76862145457515*^9, 3.768621503960997*^9}, 3.771138366029282*^9, 3.772477941414591*^9, {3.772477980476729*^9, 3.772477981364869*^9}, {3.776537311018284*^9, 3.776537317703208*^9}}, CellLabel->"In[16]:=", CellID->546301165], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7686214396130953`*^9, 3.7686214579865713`*^9}, 3.768621504652196*^9, 3.7711373197238894`*^9, 3.77247784617305*^9, { 3.772477982190769*^9, 3.7724779950200357`*^9}, 3.776537269561693*^9, 3.776537318410007*^9, 3.7765374930313387`*^9, 3.776554670741385*^9}, CellLabel->"Out[16]=", CellID->850872638] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"TakeSmaller | 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.858959896448076`16.33904525442692*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.858959896503439`16.33904525443315*^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[627, 23, 94, 2, 70, "Title",ExpressionUUID->"bb14798b-3db5-44db-b082-5f08fdf5e533", CellTags->{"Name", "TemplateCell", "Title"}, CellID->406547212]}, "TemplateCell"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"bb14798b-3db5-44db-b082-5f08fdf5e533", CellTags->{"Name", "TemplateCell", "Title"}, CellID->406547212], Cell[724, 27, 149, 4, 70, "Text",ExpressionUUID->"e4659f17-2087-438d-8625-d089d313d33b", CellTags->{"Description", "TemplateCell"}, CellID->841144362]}, "Title"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"bb14798b-3db5-44db-b082-5f08fdf5e533", CellTags->{"Name", "TemplateCell", "Title"}, CellID->406547212]}, "Description"->{ Cell[724, 27, 149, 4, 70, "Text",ExpressionUUID->"e4659f17-2087-438d-8625-d089d313d33b", CellTags->{"Description", "TemplateCell"}, CellID->841144362]}, "Definition"->{ Cell[898, 35, 1206, 29, 70, "Section",ExpressionUUID->"9c864656-682f-4cb3-8e37-211cdabdb11e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[898, 35, 1206, 29, 70, "Section",ExpressionUUID->"9c864656-682f-4cb3-8e37-211cdabdb11e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[898, 35, 1206, 29, 70, "Section",ExpressionUUID->"9c864656-682f-4cb3-8e37-211cdabdb11e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[17062, 439, 1980, 50, 70, "Subsection",ExpressionUUID->"07626ccf-1f6f-450f-8923-fd46a6b6e293", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[21021, 577, 1429, 32, 70, "Subsection",ExpressionUUID->"d3d5d476-f8ff-441a-9f82-6e18b59c2ad0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[26225, 748, 7029, 152, 70, "Section",ExpressionUUID->"f182f7aa-4de8-4a64-a337-31b37dd255e6", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[60380, 1644, 1026, 26, 70, "Subsection",ExpressionUUID->"233fd738-496a-496b-95a4-c94c7426751b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[61494, 1678, 996, 26, 70, "Subsection",ExpressionUUID->"63376ee1-6f8c-4549-ab0d-da1f89a366d3", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[62583, 1712, 221, 6, 70, "Subsection",ExpressionUUID->"69c238cc-63bd-4482-9f94-582f64b5f217", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[91595, 2701, 980, 26, 70, "Subsection",ExpressionUUID->"91005f32-50ee-4843-ab88-134b4bb7b2e7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[92759, 2741, 1039, 26, 70, "Subsection",ExpressionUUID->"c76c399e-303e-46dd-b32f-cbc933de26dd", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[93883, 2775, 1084, 26, 70, "Subsection",ExpressionUUID->"c5b01cc8-5fae-4d71-aca6-70b1b0c278b9", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[95523, 2816, 923, 26, 70, "Subsection",ExpressionUUID->"e819bca9-a866-4e92-ab98-42b7fd795155", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[96991, 2857, 1874, 45, 70, "Subsection",ExpressionUUID->"4fa9b28d-6318-4756-9e4e-ebe30cb6162b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[114890, 3337, 955, 25, 70, "Subsection",ExpressionUUID->"217b9b67-f131-4e62-98f8-8d7755b8ec47", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[115870, 3366, 1174, 31, 70, "Subsubsection",ExpressionUUID->"87c5be04-1f65-43a4-904b-757f17a208fd", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[117173, 3406, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ac8892f9-3bd2-4831-b182-2b592c329533", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[119647, 3482, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c44f79c-a539-4e5d-ab0a-90e86a9aae1e", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[122332, 3563, 1913, 46, 70, "Subsubsection",ExpressionUUID->"5a5b9d49-6d3f-43ee-9a18-3eea92a7c162", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[127181, 3699, 1071, 27, 70, "Subsubsection",ExpressionUUID->"f42573f2-71a1-41b9-99fa-5a6cc4f7a248", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[129254, 3763, 1155, 28, 70, "Section",ExpressionUUID->"ac75e140-e14f-4f40-af51-f3ff95723310", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[130978, 3806, 1033, 26, 70, "Section",ExpressionUUID->"042553ab-cde2-4219-923d-30d8f7e15624", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[16842, 430, 195, 5, 70, "Section",ExpressionUUID->"b2f168d7-5a57-48b9-9c2d-ad4ec676649b", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[16842, 430, 195, 5, 70, "Section",ExpressionUUID->"b2f168d7-5a57-48b9-9c2d-ad4ec676649b", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[60106, 1635, 249, 5, 70, "Section",ExpressionUUID->"bd86b75b-fb03-4c21-b073-5be23bfba8e7", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[17062, 439, 1980, 50, 70, "Subsection",ExpressionUUID->"07626ccf-1f6f-450f-8923-fd46a6b6e293", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[21021, 577, 1429, 32, 70, "Subsection",ExpressionUUID->"d3d5d476-f8ff-441a-9f82-6e18b59c2ad0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[21021, 577, 1429, 32, 70, "Subsection",ExpressionUUID->"d3d5d476-f8ff-441a-9f82-6e18b59c2ad0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[22453, 611, 185, 6, 70, "Notes",ExpressionUUID->"ba989bc8-5949-49c4-bd3e-e891bfbd45fb", CellTags->"TabNext", CellID->689667490], Cell[94970, 2803, 516, 8, 70, "Text",ExpressionUUID->"c7c8c3bd-8e99-4c28-87e2-02de80cdabca", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[96449, 2844, 505, 8, 70, "Item",ExpressionUUID->"88d40307-214f-48e3-9133-f0cab14872f9", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[130412, 3793, 529, 8, 70, "Text",ExpressionUUID->"d37fe728-44c0-4e0b-9765-1b84f5aadd77", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[132014, 3834, 515, 8, 70, "Text",ExpressionUUID->"698d0770-cde2-4d56-9ca4-d4a44e203424", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[26225, 748, 7029, 152, 70, "Section",ExpressionUUID->"f182f7aa-4de8-4a64-a337-31b37dd255e6", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[60106, 1635, 249, 5, 70, "Section",ExpressionUUID->"bd86b75b-fb03-4c21-b073-5be23bfba8e7", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[60380, 1644, 1026, 26, 70, "Subsection",ExpressionUUID->"233fd738-496a-496b-95a4-c94c7426751b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[60380, 1644, 1026, 26, 70, "Subsection",ExpressionUUID->"233fd738-496a-496b-95a4-c94c7426751b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[61494, 1678, 996, 26, 70, "Subsection",ExpressionUUID->"63376ee1-6f8c-4549-ab0d-da1f89a366d3", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[62583, 1712, 221, 6, 70, "Subsection",ExpressionUUID->"69c238cc-63bd-4482-9f94-582f64b5f217", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[62807, 1720, 28751, 976, 70, "Output",ExpressionUUID->"176bf337-01e4-4047-ad50-59f823504075", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->236990655]}, "Categories-Checkboxes"->{ Cell[62807, 1720, 28751, 976, 70, "Output",ExpressionUUID->"176bf337-01e4-4047-ad50-59f823504075", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->236990655]}, "CheckboxCell"->{ Cell[62807, 1720, 28751, 976, 70, "Output",ExpressionUUID->"176bf337-01e4-4047-ad50-59f823504075", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->236990655], Cell[118289, 3437, 1321, 40, 70, "Output",ExpressionUUID->"c12c471d-69b6-4c15-8cd3-43e2825182b0", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[120930, 3517, 1365, 41, 70, "Output",ExpressionUUID->"b298aba1-ab5b-4b19-8a7a-b18df7f7bc45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[124248, 3611, 2896, 83, 70, "Output",ExpressionUUID->"df61cded-83ef-4e68-bda9-bf9ddee199d0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[128255, 3728, 938, 28, 70, "Output",ExpressionUUID->"e9e49191-c0d3-480b-9aa1-e10cf4e4513f", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[91595, 2701, 980, 26, 70, "Subsection",ExpressionUUID->"91005f32-50ee-4843-ab88-134b4bb7b2e7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[92759, 2741, 1039, 26, 70, "Subsection",ExpressionUUID->"c76c399e-303e-46dd-b32f-cbc933de26dd", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[93883, 2775, 1084, 26, 70, "Subsection",ExpressionUUID->"c5b01cc8-5fae-4d71-aca6-70b1b0c278b9", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[94970, 2803, 516, 8, 70, "Text",ExpressionUUID->"c7c8c3bd-8e99-4c28-87e2-02de80cdabca", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[96449, 2844, 505, 8, 70, "Item",ExpressionUUID->"88d40307-214f-48e3-9133-f0cab14872f9", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[117047, 3399, 89, 2, 70, "Text",ExpressionUUID->"2fb06bbe-a6a3-42ec-8071-1561d97f11b7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[130412, 3793, 529, 8, 70, "Text",ExpressionUUID->"d37fe728-44c0-4e0b-9765-1b84f5aadd77", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[132014, 3834, 515, 8, 70, "Text",ExpressionUUID->"698d0770-cde2-4d56-9ca4-d4a44e203424", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[95523, 2816, 923, 26, 70, "Subsection",ExpressionUUID->"e819bca9-a866-4e92-ab98-42b7fd795155", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[96991, 2857, 1874, 45, 70, "Subsection",ExpressionUUID->"4fa9b28d-6318-4756-9e4e-ebe30cb6162b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[96991, 2857, 1874, 45, 70, "Subsection",ExpressionUUID->"4fa9b28d-6318-4756-9e4e-ebe30cb6162b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[114890, 3337, 955, 25, 70, "Subsection",ExpressionUUID->"217b9b67-f131-4e62-98f8-8d7755b8ec47", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[115870, 3366, 1174, 31, 70, "Subsubsection",ExpressionUUID->"87c5be04-1f65-43a4-904b-757f17a208fd", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[115870, 3366, 1174, 31, 70, "Subsubsection",ExpressionUUID->"87c5be04-1f65-43a4-904b-757f17a208fd", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[117047, 3399, 89, 2, 70, "Text",ExpressionUUID->"2fb06bbe-a6a3-42ec-8071-1561d97f11b7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[117173, 3406, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ac8892f9-3bd2-4831-b182-2b592c329533", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[118289, 3437, 1321, 40, 70, "Output",ExpressionUUID->"c12c471d-69b6-4c15-8cd3-43e2825182b0", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[117173, 3406, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ac8892f9-3bd2-4831-b182-2b592c329533", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[118289, 3437, 1321, 40, 70, "Output",ExpressionUUID->"c12c471d-69b6-4c15-8cd3-43e2825182b0", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[119647, 3482, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c44f79c-a539-4e5d-ab0a-90e86a9aae1e", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[120930, 3517, 1365, 41, 70, "Output",ExpressionUUID->"b298aba1-ab5b-4b19-8a7a-b18df7f7bc45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[119647, 3482, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c44f79c-a539-4e5d-ab0a-90e86a9aae1e", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[120930, 3517, 1365, 41, 70, "Output",ExpressionUUID->"b298aba1-ab5b-4b19-8a7a-b18df7f7bc45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[122332, 3563, 1913, 46, 70, "Subsubsection",ExpressionUUID->"5a5b9d49-6d3f-43ee-9a18-3eea92a7c162", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[124248, 3611, 2896, 83, 70, "Output",ExpressionUUID->"df61cded-83ef-4e68-bda9-bf9ddee199d0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[122332, 3563, 1913, 46, 70, "Subsubsection",ExpressionUUID->"5a5b9d49-6d3f-43ee-9a18-3eea92a7c162", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[124248, 3611, 2896, 83, 70, "Output",ExpressionUUID->"df61cded-83ef-4e68-bda9-bf9ddee199d0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[127181, 3699, 1071, 27, 70, "Subsubsection",ExpressionUUID->"f42573f2-71a1-41b9-99fa-5a6cc4f7a248", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[127181, 3699, 1071, 27, 70, "Subsubsection",ExpressionUUID->"f42573f2-71a1-41b9-99fa-5a6cc4f7a248", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[128255, 3728, 938, 28, 70, "Output",ExpressionUUID->"e9e49191-c0d3-480b-9aa1-e10cf4e4513f", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[128255, 3728, 938, 28, 70, "Output",ExpressionUUID->"e9e49191-c0d3-480b-9aa1-e10cf4e4513f", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[129254, 3763, 1155, 28, 70, "Section",ExpressionUUID->"ac75e140-e14f-4f40-af51-f3ff95723310", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[130978, 3806, 1033, 26, 70, "Section",ExpressionUUID->"042553ab-cde2-4219-923d-30d8f7e15624", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 255937, 6185}, {"TemplateCell", 256119, 6189}, {"Title", 256454, 6196}, {"Description", 256635, 6200}, {"Definition", 256813, 6204}, {"Function", 257009, 6208}, {"TemplateCellGroup", 257214, 6212}, {"Documentation", 261060, 6273}, {"TemplateSection", 261254, 6277}, {"Usage", 261628, 6284}, {"Details & Options", 261823, 6288}, {"Notes", 262027, 6292}, {"TabNext", 262233, 6296}, {"Examples", 263041, 6312}, {"Source & Additional Information", 263251, 6316}, {"Contributed By", 263463, 6320}, {"ContributorInformation", 263698, 6324}, {"Keywords", 263919, 6328}, {"Categories", 264110, 6332}, {"Categories-Checkboxes", 264507, 6339}, {"CheckboxCell", 264721, 6343}, {"Related Symbols", 265843, 6359}, {"Related Resource Objects", 266055, 6363}, {"Source/Reference Citation", 266278, 6367}, {"DefaultContent", 266491, 6371}, {"Links", 267322, 6387}, {"Tests", 267505, 6391}, {"VerificationTests", 267722, 6395}, {"Compatibility", 267935, 6399}, {"CompatibilityWolframLanguageVersionRequired", 268165, 6403}, {"Wolfram Language Version", 268438, 6407}, {"ScrapeDefault", 268700, 6411}, {"CompatibilityOperatingSystem", 268904, 6415}, {"Operating System", 269374, 6422}, {"CompatibilityOperatingSystem-Checkboxes", 269639, 6426}, {"CompatibilityFeatures", 269896, 6430}, {"Required Features", 270348, 6437}, {"CompatibilityFeatures-Checkboxes", 270600, 6441}, {"CompatibilityEvaluationEnvironment", 270857, 6445}, {"Environments", 271337, 6452}, {"CompatibilityEvaluationEnvironment-Checkboxes", 271610, 6456}, {"Cloud Support", 271871, 6460}, {"CompatibilityCloudSupport", 272116, 6464}, {"CompatibilityCloudSupport-Checkboxes", 272594, 6471}, {"Author Notes", 272836, 6475}, {"Submission Notes", 273036, 6479} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"bb14798b-3db5-44db-b082-5f08fdf5e533", CellTags->{"Name", "TemplateCell", "Title"}, CellID->406547212], Cell[724, 27, 149, 4, 70, "Text",ExpressionUUID->"e4659f17-2087-438d-8625-d089d313d33b", CellTags->{"Description", "TemplateCell"}, CellID->841144362], Cell[CellGroupData[{ Cell[898, 35, 1206, 29, 70, "Section",ExpressionUUID->"9c864656-682f-4cb3-8e37-211cdabdb11e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2107, 66, 942, 17, 70, "Input",ExpressionUUID->"44d05bb1-dd90-4079-977a-5a2f15945d4d", CellID->734505535], Cell[3052, 85, 13753, 340, 70, "Input",ExpressionUUID->"a465fc7a-a73b-4b11-8694-230015b8bc41", InitializationCell->True, CellID->401828875] }, Open ]], Cell[CellGroupData[{ Cell[16842, 430, 195, 5, 70, "Section",ExpressionUUID->"b2f168d7-5a57-48b9-9c2d-ad4ec676649b", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[17062, 439, 1980, 50, 70, "Subsection",ExpressionUUID->"07626ccf-1f6f-450f-8923-fd46a6b6e293", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[19067, 493, 220, 7, 70, "UsageInputs",ExpressionUUID->"33f7e7f3-99dc-4431-a2ab-5d4d1978cf0b", CellID->557163263], Cell[19290, 502, 407, 15, 70, "UsageDescription",ExpressionUUID->"4a2a4f21-c788-4dba-8149-bd156e3fb5da", CellID->12788047] }, Open ]], Cell[CellGroupData[{ Cell[19734, 522, 275, 9, 70, "UsageInputs",ExpressionUUID->"a0c491ca-8313-4b61-8bf7-907b6a1b5803", CellID->872986325], Cell[20012, 533, 516, 19, 70, "UsageDescription",ExpressionUUID->"5da6f6fb-0d5d-4168-9c9a-0447cafec691", CellID->876804056] }, Open ]], Cell[CellGroupData[{ Cell[20565, 557, 186, 6, 70, "UsageInputs",ExpressionUUID->"8ebb7c56-7727-4ffe-af36-6f3b02c0ce20", CellID->81068984], Cell[20754, 565, 218, 6, 70, "UsageDescription",ExpressionUUID->"02d07471-9926-43c8-bef2-83f1b81f32bb", CellID->981508847] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21021, 577, 1429, 32, 70, "Subsection",ExpressionUUID->"d3d5d476-f8ff-441a-9f82-6e18b59c2ad0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[22453, 611, 185, 6, 70, "Notes",ExpressionUUID->"ba989bc8-5949-49c4-bd3e-e891bfbd45fb", CellTags->"TabNext", CellID->689667490], Cell[22641, 619, 667, 21, 70, "Notes",ExpressionUUID->"789567e9-61d0-4651-a2e0-0b9970cbaa43", CellID->618471656], Cell[23311, 642, 188, 5, 70, "Notes",ExpressionUUID->"82c043a7-5a6d-4e6a-b47d-653500278e6d", CellID->129740255], Cell[23502, 649, 906, 29, 70, "Notes",ExpressionUUID->"9574bb87-87ad-4b64-b5c3-68a3ff0cc063", CellID->97861127], Cell[24411, 680, 1226, 41, 70, "Notes",ExpressionUUID->"625c7e73-0e63-4306-98a1-9a45012b4eb0", CellID->958866083], Cell[25640, 723, 536, 19, 70, "Notes",ExpressionUUID->"f8f92e91-0660-454e-8822-8792e80087c1", CellID->598641709] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26225, 748, 7029, 152, 70, "Section",ExpressionUUID->"f182f7aa-4de8-4a64-a337-31b37dd255e6", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[33279, 904, 75, 2, 70, "Subsection",ExpressionUUID->"d7b7c3e1-a35d-4027-9f0b-37c0f5dbc2cb", CellID->904125756], Cell[33357, 908, 208, 4, 70, "Text",ExpressionUUID->"9716ff2c-0a82-44b3-9567-482d8bf54c27", CellID->817848414], Cell[CellGroupData[{ Cell[33590, 916, 412, 10, 70, "Input",ExpressionUUID->"f10801a7-38b7-40cc-9118-606f7b6db72d", CellID->954043248], Cell[34005, 928, 680, 13, 70, "Output",ExpressionUUID->"e92feb0a-df64-47b5-8124-15d0cf397a8c", CellID->951381292] }, Open ]], Cell[CellGroupData[{ Cell[34722, 946, 452, 9, 70, "Input",ExpressionUUID->"4dbe70ef-32f8-433b-9495-b3f1a43d94e7", CellID->327554506], Cell[35177, 957, 949, 17, 70, "Output",ExpressionUUID->"63b744b0-299f-4c19-86ac-d3f3d64d35f3", CellID->378205377] }, Open ]], Cell[36141, 977, 311, 9, 70, "Text",ExpressionUUID->"c636cb5d-5d41-4585-8e67-abb522737239", CellID->347647917], Cell[CellGroupData[{ Cell[36477, 990, 368, 9, 70, "Input",ExpressionUUID->"9a5b0ca6-fbba-4ec9-b606-c4fb9199afa9", CellID->151719944], Cell[36848, 1001, 619, 12, 70, "Output",ExpressionUUID->"50bb9c8c-4fa9-46ec-b345-412bebe5b260", CellID->556886065] }, Open ]], Cell[CellGroupData[{ Cell[37504, 1018, 382, 9, 70, "Input",ExpressionUUID->"2447e78a-ff84-42c9-bc6f-ffaab0d8343e", CellID->104318858], Cell[37889, 1029, 549, 11, 70, "Output",ExpressionUUID->"e0f49bea-a9ea-4551-8dab-a714f423820c", CellID->788585758] }, Open ]], Cell[CellGroupData[{ Cell[38475, 1045, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1fb4a63d-9ff0-4139-8353-6e66b95188c3", CellID->14107562], Cell[38621, 1051, 340, 8, 70, "Text",ExpressionUUID->"eff26712-e10d-459f-9fb5-90251eb9c100", CellID->122979698], Cell[CellGroupData[{ Cell[38986, 1063, 546, 15, 70, "Input",ExpressionUUID->"0675fdf0-f4d8-4b26-bdb8-73ac71849014", CellID->559225850], Cell[39535, 1080, 651, 13, 70, "Output",ExpressionUUID->"ad290ee4-3dc2-4756-aaed-e85a062b2a71", CellID->725803821] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40235, 1099, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2a8c04f2-8a19-46bc-a6b6-47d94ceea9e1", CellID->14107563], Cell[40381, 1105, 394, 9, 70, "Text",ExpressionUUID->"ac75372b-2859-4f8f-8736-4371ecfc87f1", CellID->360146575], Cell[CellGroupData[{ Cell[40800, 1118, 447, 11, 70, "Input",ExpressionUUID->"b741159b-017f-4890-a807-42d97a642abe", CellID->616012074], Cell[41250, 1131, 359, 9, 70, "Output",ExpressionUUID->"469db265-a76f-44fe-909c-359f2c0b8504", CellID->295894557] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41658, 1146, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6a0409c3-b080-4ce3-ab30-d34ce8f674c2", CellID->14107564], Cell[41804, 1152, 374, 7, 70, "Text",ExpressionUUID->"520ec6cf-c897-4914-aa94-789b549a421e", CellID->77233899], Cell[CellGroupData[{ Cell[42203, 1163, 474, 11, 70, "Input",ExpressionUUID->"d8d5fa3f-cb5b-4476-a0d3-aaff99d7fac4", CellID->326820761], Cell[42680, 1176, 563, 12, 70, "Output",ExpressionUUID->"4943abe1-e196-4667-9467-bd46b23b6fa0", CellID->509701875] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43292, 1194, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"514ad95c-9242-4e6c-ad6d-4b9b426ee2c3", CellID->14107565], Cell[43438, 1200, 1025, 26, 70, "Text",ExpressionUUID->"9bb361f3-353a-4737-a54e-219cd410bdf8", CellID->662065906], Cell[CellGroupData[{ Cell[44488, 1230, 1043, 23, 70, "Input",ExpressionUUID->"716535d3-0d59-4926-a586-3a188c7feae1", CellID->100035331], Cell[45534, 1255, 389, 11, 70, "Output",ExpressionUUID->"221a435b-417f-4ed5-9af6-837563324f90", CellID->821688345] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45984, 1273, 66, 2, 70, "Subsection",ExpressionUUID->"97d00730-f3ec-4634-9f4c-6a8bc654de90", CellID->204653245], Cell[46053, 1277, 364, 8, 70, "Text",ExpressionUUID->"242babed-da9a-428d-bbc9-c6047bd56e5b", CellID->556301151], Cell[CellGroupData[{ Cell[46442, 1289, 520, 14, 70, "Input",ExpressionUUID->"b9d2700b-6395-446b-ba29-334326433a99", CellID->225401017], Cell[46965, 1305, 584, 13, 70, "Output",ExpressionUUID->"0f4db2ac-473a-4dbc-97e5-8614859e3ac7", CellID->586116833] }, Open ]], Cell[CellGroupData[{ Cell[47586, 1323, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ae5b65b1-d973-4220-84af-4658d0c94bc9", CellID->14107566], Cell[47732, 1329, 782, 13, 70, "Text",ExpressionUUID->"4a584118-3581-4e03-a01a-3aeca39425bf", CellID->239384120], Cell[48517, 1344, 392, 12, 70, "Input",ExpressionUUID->"e04bceb1-8ee2-4f6f-b796-f4b650f86162", CellID->576252014], Cell[CellGroupData[{ Cell[48934, 1360, 488, 11, 70, "Input",ExpressionUUID->"ed003c7e-d610-4681-9eb9-5fad00d4299c", CellID->445658925], Cell[49425, 1373, 708, 13, 70, "Output",ExpressionUUID->"db1bbf71-a9bf-43bb-9310-291439e76899", CellID->18415488] }, Open ]], Cell[50148, 1389, 745, 11, 70, "Text",ExpressionUUID->"353718be-bee5-41f3-ad19-355845dd2f75", CellID->632208645], Cell[CellGroupData[{ Cell[50918, 1404, 489, 12, 70, "Input",ExpressionUUID->"13de3c12-b764-4898-a696-c7876e90bc2d", CellID->272231517], Cell[51410, 1418, 743, 18, 70, "Output",ExpressionUUID->"ae268462-b26e-4d5a-a225-2574fc9f9337", CellID->789966723] }, Open ]], Cell[52168, 1439, 975, 14, 70, "Text",ExpressionUUID->"0ef133f8-4a4d-4914-a38b-332aa466312c", CellID->876749419], Cell[CellGroupData[{ Cell[53168, 1457, 542, 13, 70, "Input",ExpressionUUID->"b1141796-c40c-4ec5-87d2-49871c52f07f", CellID->642024804], Cell[53713, 1472, 621, 16, 70, "Output",ExpressionUUID->"4f9874b8-54ba-4f46-8810-362c9a95ad4c", CellID->375115678] }, Open ]], Cell[54349, 1491, 910, 13, 70, "Text",ExpressionUUID->"4f428534-4b58-4469-8014-e32f36031df7", CellID->895519703], Cell[CellGroupData[{ Cell[55284, 1508, 362, 10, 70, "Input",ExpressionUUID->"3d6f7ecb-ecab-4154-a613-178ceefbe2f0", CellID->997780171], Cell[55649, 1520, 841, 21, 70, "Output",ExpressionUUID->"2b7c443e-c5d3-49dd-bf4b-ffec85b69b7c", CellID->715119763] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56539, 1547, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"67037b06-a5ae-40ce-a90b-4bd0f1c5cff4", CellID->14107567], Cell[56685, 1553, 1110, 18, 70, "Text",ExpressionUUID->"3baa84bf-c509-452c-8bf8-fdaf7cdae2c7", CellID->210895323], Cell[CellGroupData[{ Cell[57820, 1575, 826, 19, 70, "Input",ExpressionUUID->"762c4f48-125d-4851-a48b-e55e72fd5476", CellID->321906307], Cell[58649, 1596, 1384, 31, 70, "Output",ExpressionUUID->"6c1bb597-5129-4c28-a20d-00d1df9e59b2", CellID->733578120] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[60106, 1635, 249, 5, 70, "Section",ExpressionUUID->"bd86b75b-fb03-4c21-b073-5be23bfba8e7", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[60380, 1644, 1026, 26, 70, "Subsection",ExpressionUUID->"233fd738-496a-496b-95a4-c94c7426751b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[61409, 1672, 48, 1, 70, "Text",ExpressionUUID->"3ee1db23-1fa3-4691-83f3-9d1a67816921", CellID->95771488] }, Open ]], Cell[CellGroupData[{ Cell[61494, 1678, 996, 26, 70, "Subsection",ExpressionUUID->"63376ee1-6f8c-4549-ab0d-da1f89a366d3", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[62493, 1706, 53, 1, 70, "Item",ExpressionUUID->"afa8f0d4-def5-484e-9cf6-f51fe2123889", CellID->555967736] }, Open ]], Cell[CellGroupData[{ Cell[62583, 1712, 221, 6, 70, "Subsection",ExpressionUUID->"69c238cc-63bd-4482-9f94-582f64b5f217", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[62807, 1720, 28751, 976, 70, "Output",ExpressionUUID->"176bf337-01e4-4047-ad50-59f823504075", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->236990655] }, Open ]], Cell[CellGroupData[{ Cell[91595, 2701, 980, 26, 70, "Subsection",ExpressionUUID->"91005f32-50ee-4843-ab88-134b4bb7b2e7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[92578, 2729, 48, 1, 70, "Item",ExpressionUUID->"8f222bb2-0929-42a0-b129-bf4be8e8cc6d", CellID->780404600], Cell[92629, 2732, 47, 1, 70, "Item",ExpressionUUID->"8c0e02ba-fcbe-4a82-80eb-edbe05e02a86", CellID->852462482], Cell[92679, 2735, 43, 1, 70, "Item",ExpressionUUID->"82505627-bd81-42f0-b84b-884a4ff36723", CellID->821571633] }, Open ]], Cell[CellGroupData[{ Cell[92759, 2741, 1039, 26, 70, "Subsection",ExpressionUUID->"c76c399e-303e-46dd-b32f-cbc933de26dd", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[93801, 2769, 45, 1, 70, "Item",ExpressionUUID->"c5a532ed-bcba-484d-9109-6a36d1661892", CellID->57675028] }, Open ]], Cell[CellGroupData[{ Cell[93883, 2775, 1084, 26, 70, "Subsection",ExpressionUUID->"c5b01cc8-5fae-4d71-aca6-70b1b0c278b9", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[94970, 2803, 516, 8, 70, "Text",ExpressionUUID->"c7c8c3bd-8e99-4c28-87e2-02de80cdabca", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[95523, 2816, 923, 26, 70, "Subsection",ExpressionUUID->"e819bca9-a866-4e92-ab98-42b7fd795155", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[96449, 2844, 505, 8, 70, "Item",ExpressionUUID->"88d40307-214f-48e3-9133-f0cab14872f9", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[96991, 2857, 1874, 45, 70, "Subsection",ExpressionUUID->"4fa9b28d-6318-4756-9e4e-ebe30cb6162b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[98868, 2904, 553, 13, 70, "Input",ExpressionUUID->"0c912845-609a-4dfd-84ec-44ea037f619f", CellID->594690683], Cell[99424, 2919, 482, 12, 70, "Input",ExpressionUUID->"6f8ec66d-e845-4b7f-a30d-21a2e4233061", CellID->835687048], Cell[99909, 2933, 553, 14, 70, "Input",ExpressionUUID->"0b5d9573-a38a-409c-a548-2273ca00b2e3", CellID->767574489], Cell[CellGroupData[{ Cell[100487, 2951, 705, 16, 70, "Input",ExpressionUUID->"153639fd-fa5b-414c-a9ef-24b5d812648b", CellID->450481909], Cell[101195, 2969, 209, 4, 70, "Output",ExpressionUUID->"6d00a1a3-ec56-44d3-8f6d-9aa8d1ee397e", CellID->993604659] }, Open ]], Cell[CellGroupData[{ Cell[101441, 2978, 673, 16, 70, "Input",ExpressionUUID->"c8cf1c5a-3966-44e3-9368-5db0222fc53c", CellID->872176186], Cell[102117, 2996, 762, 13, 70, "Output",ExpressionUUID->"314c3874-fd92-4c83-8ba2-0fb4ea284b15", CellID->340631766] }, Open ]], Cell[CellGroupData[{ Cell[102916, 3014, 234, 7, 70, "Input",ExpressionUUID->"b1bad7c2-8f24-4769-a639-155e2137709f", CellID->544467066], Cell[103153, 3023, 294, 7, 70, "Output",ExpressionUUID->"d2c666f9-6a2a-44a6-806c-e643649ed0eb", CellID->479384511] }, Open ]], Cell[CellGroupData[{ Cell[103484, 3035, 414, 11, 70, "Input",ExpressionUUID->"75fd5450-a590-4cd8-b23d-0f2612a709da", CellID->293250000], Cell[103901, 3048, 235, 5, 70, "Output",ExpressionUUID->"e4bbd112-5650-412e-82dc-0b5f606a929d", CellID->140965890] }, Open ]], Cell[CellGroupData[{ Cell[104173, 3058, 414, 11, 70, "Input",ExpressionUUID->"c203ce32-8cf3-43ce-b3e0-635f2baf9f1d", CellID->676070039], Cell[104590, 3071, 210, 4, 70, "Output",ExpressionUUID->"5d93845c-3494-4b0d-b8db-0abc7fbd38d2", CellID->36836560] }, Open ]], Cell[104815, 3078, 117, 2, 70, "Text",ExpressionUUID->"24cbe81c-490e-4ff1-97eb-346959c0bc0f", CellID->128266333], Cell[CellGroupData[{ Cell[104957, 3084, 602, 13, 70, "Input",ExpressionUUID->"6e3411cd-5291-40d4-bf85-82b5880c3755", CellID->412945004], Cell[105562, 3099, 522, 12, 70, "Output",ExpressionUUID->"d55cb77f-d69a-4376-891f-8d437d890c1a", CellID->27574504] }, Open ]], Cell[CellGroupData[{ Cell[106121, 3116, 731, 17, 70, "Input",ExpressionUUID->"8a39389c-aa31-4d6e-96be-890a0348ffbc", CellID->273286101], Cell[106855, 3135, 386, 7, 70, "Output",ExpressionUUID->"d91d2b11-39c8-4201-87e9-0a91d294cdb3", CellID->541699544] }, Open ]], Cell[CellGroupData[{ Cell[107278, 3147, 1167, 24, 70, "Input",ExpressionUUID->"91c7ef45-27d4-499e-8dd0-54d5aaef2a7f", CellID->867269369], Cell[108448, 3173, 548, 12, 70, "Output",ExpressionUUID->"825c0cdc-95ab-4ba6-a34e-739fbe8e9cfc", CellID->527850167] }, Open ]], Cell[CellGroupData[{ Cell[109033, 3190, 1216, 25, 70, "Input",ExpressionUUID->"dad00605-6ef4-481a-9ffb-a51de41a911e", CellID->422211685], Cell[110252, 3217, 551, 12, 70, "Output",ExpressionUUID->"f646e3fb-be3f-4d1e-a667-ab0af10b0fd1", CellID->148552537] }, Open ]], Cell[CellGroupData[{ Cell[110840, 3234, 906, 23, 70, "Input",ExpressionUUID->"7035f723-0116-45b9-a385-5af7b547ae30", CellID->656879453], Cell[111749, 3259, 548, 10, 70, "Output",ExpressionUUID->"be3b003e-5828-42b7-ac74-3a49161c4cdd", CellID->660772100] }, Open ]], Cell[CellGroupData[{ Cell[112334, 3274, 806, 16, 70, "Input",ExpressionUUID->"0f8084be-1882-434d-81e5-4f0a5be259eb", CellID->341263560], Cell[113143, 3292, 310, 6, 70, "Output",ExpressionUUID->"0246d500-8457-4ee5-8f4a-de429a24a048", CellID->593357767] }, Open ]], Cell[CellGroupData[{ Cell[113490, 3303, 986, 20, 70, "Input",ExpressionUUID->"c0b2a2b8-139d-4d4d-aa9b-65512d50353e", CellID->546301165], Cell[114479, 3325, 362, 6, 70, "Output",ExpressionUUID->"fd2620ab-cc44-46e1-8de8-053aa83bfec2", CellID->850872638] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[114890, 3337, 955, 25, 70, "Subsection",ExpressionUUID->"217b9b67-f131-4e62-98f8-8d7755b8ec47", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[115870, 3366, 1174, 31, 70, "Subsubsection",ExpressionUUID->"87c5be04-1f65-43a4-904b-757f17a208fd", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[117047, 3399, 89, 2, 70, "Text",ExpressionUUID->"2fb06bbe-a6a3-42ec-8071-1561d97f11b7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[117173, 3406, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ac8892f9-3bd2-4831-b182-2b592c329533", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[118289, 3437, 1321, 40, 70, "Output",ExpressionUUID->"c12c471d-69b6-4c15-8cd3-43e2825182b0", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[119647, 3482, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c44f79c-a539-4e5d-ab0a-90e86a9aae1e", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[120930, 3517, 1365, 41, 70, "Output",ExpressionUUID->"b298aba1-ab5b-4b19-8a7a-b18df7f7bc45", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[122332, 3563, 1913, 46, 70, "Subsubsection",ExpressionUUID->"5a5b9d49-6d3f-43ee-9a18-3eea92a7c162", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[124248, 3611, 2896, 83, 70, "Output",ExpressionUUID->"df61cded-83ef-4e68-bda9-bf9ddee199d0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[127181, 3699, 1071, 27, 70, "Subsubsection",ExpressionUUID->"f42573f2-71a1-41b9-99fa-5a6cc4f7a248", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[128255, 3728, 938, 28, 70, "Output",ExpressionUUID->"e9e49191-c0d3-480b-9aa1-e10cf4e4513f", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[129254, 3763, 1155, 28, 70, "Section",ExpressionUUID->"ac75e140-e14f-4f40-af51-f3ff95723310", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[130412, 3793, 529, 8, 70, "Text",ExpressionUUID->"d37fe728-44c0-4e0b-9765-1b84f5aadd77", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[130978, 3806, 1033, 26, 70, "Section",ExpressionUUID->"042553ab-cde2-4219-923d-30d8f7e15624", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[132014, 3834, 515, 8, 70, "Text",ExpressionUUID->"698d0770-cde2-4d56-9ca4-d4a44e203424", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)