(* 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[ 364505, 7969] NotebookOptionsPosition[ 206799, 4957] NotebookOutlinePosition[ 349774, 7656] CellTagsIndexPosition[ 347965, 7606] WindowTitle->TallyMarks | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["TallyMarks", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->654377294], Cell["Represent an integer in various forms of tally marks", "Text", CellTags->{"Description", "TemplateCell"}, CellID->706433968], 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[{"ClearAll", "[", RowBox[{ "TallyMarks", ",", "TallyMarksHelper", ",", "maxperline", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", "0.065"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Options", "[", "TallyMarks", "]"}], "=", RowBox[{"{", RowBox[{"\"\\"", "->", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{ RowBox[{"n", ":", RowBox[{"(", RowBox[{"0", "|", "1", "|", "2", "|", "3", "|", "4"}], ")"}]}], ",", RowBox[{"type", ":", RowBox[{"(", RowBox[{"\"\\"", "|", "\"\\"", "|", "\"\\""}], ")"}]}]}], "]"}], ":=", RowBox[{"Take", "[", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"5", ",", "type"}], "]"}], ",", "n"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{ RowBox[{"n", ":", RowBox[{"(", RowBox[{ "0", "|", "1", "|", "2", "|", "3", "|", "4", "|", "5", "|", "6", "|", "7", "|", "8", "|", "9"}], ")"}]}], ",", RowBox[{"type", ":", RowBox[{"(", "\"\\"", ")"}]}]}], "]"}], ":=", RowBox[{"Take", "[", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"10", ",", "type"}], "]"}], ",", "n"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"5", ",", "\"\\""}], "]"}], ":=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0.2", ",", "0.4", ",", "0.6", ",", "0.8"}], "}"}]}], "}"}]}], "]"}], "//", RowBox[{"Append", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", RowBox[{"1", "-", RowBox[{"3", "\[Alpha]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9", ",", RowBox[{"3", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"5", ",", "\"\\""}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"0.5", "+", "\[Alpha]"}], ")"}], "/", "2"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"0.5", "+", "\[Alpha]"}], ")"}], "/", "2"}], ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"5", ",", "\"\\""}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"10", ",", "\"\\""}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", "\[Beta]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", "\[Beta]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}], ",", "\[Beta]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", "\[Beta]"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxperline", "[", RowBox[{"\[Infinity]", ",", "_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"$VersionNumber", "\[GreaterEqual]", "12.2"}], ",", "\[Infinity]", ",", RowBox[{"2", "^", "25"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxperline", "[", RowBox[{"n_", ",", "_"}], "]"}], ":=", "n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxperline", "[", RowBox[{"Automatic", ",", "len_"}], "]"}], ":=", RowBox[{"Ceiling", "[", RowBox[{"Sqrt", "[", "len", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AddGraphicalNoise", "[", RowBox[{ RowBox[{"Line", "[", "bla_", "]"}], ",", "\[Delta]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"bla", "+", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "\[Delta]"}], "]"}], ",", RowBox[{"Dimensions", "[", "bla", "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AddGraphicalNoise", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"p", ":", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}]}], ",", "r_"}], "]"}], ",", "\[Delta]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"p", "+", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "\[Delta]"}], "]"}], ",", "2"}], "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Max", "[", RowBox[{"0.75", ",", RowBox[{"1", "+", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "\[Delta]"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AddGraphicalNoise", "[", RowBox[{"grdirs_List", ",", "\[Delta]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "out", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"out", "=", RowBox[{"grdirs", "/.", RowBox[{ RowBox[{"p", ":", RowBox[{"Disk", "[", RowBox[{"_", ",", "_"}], "]"}]}], ":>", RowBox[{"AddGraphicalNoise", "[", RowBox[{"p", ",", "\[Delta]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"out", "=", RowBox[{"out", "/.", RowBox[{ RowBox[{"p", ":", RowBox[{"Line", "[", "__", "]"}]}], ":>", RowBox[{"AddGraphicalNoise", "[", RowBox[{"p", ",", "\[Delta]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "out"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarks", "[", RowBox[{"n_Integer", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"TallyMarks", "[", RowBox[{"n", ",", "\"\\"", ",", "opts"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarks", "[", RowBox[{"n_Integer", ",", "type_String", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"TallyMarks", "[", RowBox[{"n", ",", "type", ",", "\[Infinity]", ",", "opts"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TallyMarks", "[", RowBox[{"n_Integer", ",", "type_String", ",", RowBox[{"charsperline_", ":", "\[Infinity]"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "lens", ",", "chars", ",", "positions", ",", "out", ",", "mpl", ",", "size", ",", "nval"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"size", "=", RowBox[{"Switch", "[", RowBox[{ "type", ",", "\[IndentingNewLine]", "\"\\"", ",", "5", ",", "\[IndentingNewLine]", "\"\\"", ",", "5", ",", "\[IndentingNewLine]", "\"\\"", ",", "5", ",", "\[IndentingNewLine]", "\"\\"", ",", "10"}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"lens", "=", RowBox[{"QuotientRemainder", "[", RowBox[{"n", ",", "size"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"chars", "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"TallyMarksHelper", "[", RowBox[{"size", ",", "type"}], "]"}], ",", RowBox[{"lens", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"TallyMarksHelper", "[", RowBox[{ RowBox[{"lens", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "type"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"positions", "=", RowBox[{"Range", "[", RowBox[{ RowBox[{"lens", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mpl", "=", RowBox[{"maxperline", "[", RowBox[{"charsperline", ",", RowBox[{ RowBox[{"lens", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"positions", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Mod", "[", RowBox[{"positions", ",", "mpl", ",", "1"}], "]"}], ",", RowBox[{"-", RowBox[{"Quotient", "[", RowBox[{"positions", ",", "mpl", ",", "1"}], "]"}]}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"out", "=", RowBox[{"MapThread", "[", RowBox[{"Translate", ",", RowBox[{"{", RowBox[{"chars", ",", "positions"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nval", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"NumericQ", "[", "nval", "]"}], "\[And]", RowBox[{ RowBox[{"Im", "[", "nval", "]"}], "===", "0"}], "\[And]", RowBox[{"nval", ">", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"AddGraphicalNoise", "[", RowBox[{"out", ",", "nval"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TrueQ", "[", "nval", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"AddGraphicalNoise", "[", RowBox[{"out", ",", "0.02"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "out", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->CompressedData[" 1:eJwd0FFIU3EUBvA7UTdmmsk0SF3pYg9X62USYihuzU3CKUQ605ixmKgjbVYK S22DQgXNNiK2VZJRE3KDhJmYbhM2coWORFAKCWQRmxvpRAsiW/f7Pxx+cPg4 53AK1F2XNEkURdFMQd6foURfZ0ycZdUl9zM2nXAcgapuYw5s1AXy4Pqtr8SG Y+U0lD8/WQF/9p6XwNFzcikUfDleA+dnnCr4a2tDDXd0bdfhy39zWpgRcOlh u9r5Di5NHX6CR2WrQWjZKf8Mq4e//SB7fI/CsKTDkzfAyP+t5ENHA6sE2i8v 1cJND62F3I2RHqLi9TgUpeVOk/zFGzOQsp6eJX3XdgDW3YlvwdZXjigUfnyW eY9R8TZeBLUhdjE0NDrDUG7aj0DNm7LSmpsxMU/YT6yaulIBuV63FJqLPUqY b4xchVJFa0vCx/zHpmiHC0/yu+G4/YIRiuwPH8BK28QgpOjOMejqqTdDdcdT C+T5787Cvt0yN9SO+YkaW7WPzC0cDMLJsGwNcox1REtvfQgWiqzfYcbwhwj8 Oz8XJXfo0/bgiil0AFUvogmY2iVhUf6Y+H1SPBW2Kc1suNfCSofT7PRMGBAY sqHp0JsDK/XXcuHybpAPhbJmAVQuptDw8cTqGXgqxj0L+d7N+5BzO0L8D+L/ ZEg= "], CellLabel->"In[625]:=", CellID->781439609] }, 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[{"TallyMarks", "[", StyleBox["n", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->656321099], Cell[TextData[{ "outputs tally marks displaying the integer ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->5614454] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["type", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->837090091], Cell[TextData[{ "outputs ", Cell[BoxData[ StyleBox["type", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " tally marks." }], "UsageDescription", CellID->945131856] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["type", "TI"], ",", StyleBox["m", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->198395678], Cell[TextData[{ "uses at most ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " characters per line." }], "UsageDescription", CellID->566449076] }, 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[{ "The value for ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " should be a non-negative integer." }], "Notes", TaggingRules->{}, CellTags->"TabNext", CellID->626580324], Cell["The following types are supported:", "Notes", TaggingRules->{}, CellID->412202905], Cell[BoxData[GridBox[{ {Cell["\"Default\"", "TableText"], Cell["\<\ uses tick marks used in e.g. Europe, Americas, Africa, Australia, and New \ Zealand\ \>", "TableText"]}, {Cell["\"Chinese\"", "TableText"], Cell["\<\ uses tick marks used in e.g. China, Taiwan, Japan, Korea, and countries that \ use Chinese characters\ \>", "TableText"]}, {Cell["\"Box\"", "TableText"], Cell["\<\ uses tick marks used in e.g. France, Spain, and their former colonies and \ Brazil\ \>", "TableText"]}, {Cell["\"DotsLines\"", "TableText"], Cell[ "uses tick marks used in forestry and related fields", "TableText"]} }]], "TableNotes", TaggingRules->{}, CellID->428263531], Cell[TextData[{ "The value for ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " should be a positive integer, \[Infinity] or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". For the setting ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the marks will be set in a roughly square arrangement." }], "Notes", TaggingRules->{}, CellID->50325076], Cell[TextData[{ Cell[BoxData["TallyMarks"], "InlineFormula", FontFamily->"Source Sans Pro"], " has the following option:" }], "Notes", TaggingRules->{}, CellChangeTimes->{{3.8608573787753897`*^9, 3.860857389981802*^9}}, CellID->629908824], Cell[BoxData[GridBox[{ {Cell["\"Noise\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ fraction of noise to add to the position of the lines and the position and \ size of the dots.\ \>", "TableText"]} }]], "TableNotes", TaggingRules->{}, CellChangeTimes->{{3.860857285801759*^9, 3.860857313653508*^9}, { 3.860858013459639*^9, 3.860858013459647*^9}, {3.860858107352067*^9, 3.860858107589675*^9}}, CellID->561644267], Cell["Possible forms for the option \"Noise\" are:", "Notes", TaggingRules->{}, CellChangeTimes->{{3.8608574214628477`*^9, 3.860857429746664*^9}}, CellID->949800178], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "Adds 0.02 (2%) noise.", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "Adds no noise (Default).", "TableText"]}, {Cell[TextData[Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "Adds an amount ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of noise." }], "TableText"]} }]], "TableNotes", TaggingRules->{}, CellChangeTimes->{{3.860857437831505*^9, 3.860857514345001*^9}, { 3.860857900636415*^9, 3.860857902706745*^9}}, CellID->349781227] }, 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["Display 37 in tally marks:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8160291860590553`*^9, 3.81602919012184*^9}}, CellID->30134928], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", "37", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8160289894123087`*^9, 3.816029044226386*^9}, { 3.816029153953083*^9, 3.816029174150289*^9}, {3.860856227671896*^9, 3.860856230780064*^9}, {3.860856376815426*^9, 3.860856403640349*^9}, { 3.860856441217987*^9, 3.8608564807338123`*^9}, {3.860856980518094*^9, 3.860856983691901*^9}, {3.860857542164638*^9, 3.860857549623562*^9}}, CellLabel->"In[649]:=", CellID->978783858], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {5, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {6, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {7, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}]}, {8, 0}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8608558231550827`*^9, {3.8608559500412073`*^9, 3.8608559572425013`*^9}, { 3.860856224845087*^9, 3.860856260658409*^9}, 3.860856306787075*^9, { 3.8608563722939672`*^9, 3.860856406250902*^9}, {3.860856439626727*^9, 3.8608564811746893`*^9}, {3.860856981185421*^9, 3.860856983929771*^9}, { 3.860857542690633*^9, 3.860857549988576*^9}, 3.860858022218416*^9}, CellLabel->"Out[649]=", CellID->787655094] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Use the Chinese type of tally marks instead:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8160291860590553`*^9, 3.816029202162444*^9}}, CellID->89905735], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{"37", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8160289894123087`*^9, 3.816029044226386*^9}, { 3.816029153953083*^9, 3.816029174150289*^9}, {3.816029206485824*^9, 3.816029208282791*^9}}, CellLabel->"In[650]:=", CellID->69267654], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 1, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 2, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 3, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 4, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 5, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 6, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 7, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}]}, {8, 0}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.816028990719233*^9, 3.816029044601342*^9}, { 3.816029155203199*^9, 3.8160291744269943`*^9}, 3.8160292086680517`*^9, 3.816030038718309*^9, 3.8169730459495773`*^9, 3.860855961448749*^9, 3.860856486089048*^9, 3.8608575520186357`*^9, 3.86085802348477*^9}, CellLabel->"Out[650]=", CellID->257177312] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Set a maximum of 5 characters per line:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8160291860590553`*^9, 3.816029231194229*^9}}, CellID->264189357], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{"37", ",", "\"\\"", ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8160289894123087`*^9, 3.816029044226386*^9}, { 3.816029153953083*^9, 3.816029174150289*^9}, {3.816029206485824*^9, 3.816029233156135*^9}}, CellLabel->"In[651]:=", CellID->681393188], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 1, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 2, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 3, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 4, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 5, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 1, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, { 2, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}]}, {3, -1}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.816028990719233*^9, 3.816029044601342*^9}, { 3.816029155203199*^9, 3.8160291744269943`*^9}, {3.8160292086680517`*^9, 3.8160292339394913`*^9}, 3.816030039890367*^9, 3.816973050491241*^9, 3.860855964118072*^9, 3.860856487872232*^9, 3.860857553594698*^9, 3.860858024522687*^9}, CellLabel->"Out[651]=", CellID->137992636] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Show the various types of tally marks for the number 42:", "Text", TaggingRules->{}, CellChangeTimes->{{3.816029330009354*^9, 3.816029332777316*^9}, { 3.816029497158436*^9, 3.816029503044138*^9}}, CellID->188522981], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"TallyMarks", "[", RowBox[{"42", ",", "t"}], "]"}]}], "}"}], ",", "Center"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], "]"}], "//", "Column"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.816029248320985*^9, 3.816029343717991*^9}, { 3.860856762044022*^9, 3.86085680136806*^9}, 3.860857040355398*^9, { 3.860857561612369*^9, 3.860857565495397*^9}}, CellLabel->"In[652]:=", CellID->361583626], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ {"\<\"Default\"\>"}, { GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {5, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {6, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {7, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {8, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}]}, {9, 0}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ {"\<\"Chinese\"\>"}, { GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {5, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {6, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {7, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {8, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}]}, {9, 0}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ {"\<\"Box\"\>"}, { GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {5, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {6, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {7, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, {8, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}]}, {9, 0}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ {"\<\"DotsLines\"\>"}, { GraphicsBox[{ GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065], DiskBox[{0.1, 0.1}, 0.065], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.9}}]}, {1, 0}], GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065], DiskBox[{0.1, 0.1}, 0.065], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.9}}]}, {2, 0}], GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065], DiskBox[{0.1, 0.1}, 0.065], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.9}}]}, {3, 0}], GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065], DiskBox[{0.1, 0.1}, 0.065], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.9}}]}, {4, 0}], GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065]}, {5, 0}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8160292936958*^9, 3.816029344220387*^9}, 3.816030042325163*^9, 3.816973076113709*^9, 3.860855834357039*^9, 3.860855967300291*^9, 3.8608564907816896`*^9, 3.860856570324671*^9, { 3.860856757374572*^9, 3.860856848352057*^9}, {3.8608570367673893`*^9, 3.860857058002503*^9}, {3.86085755639211*^9, 3.860857565825913*^9}, 3.860858026828199*^9}, CellLabel->"Out[652]=", CellID->478786597] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Set the number of symbols per line to 1:", "Text", TaggingRules->{}, CellChangeTimes->{{3.816029330009354*^9, 3.816029332777316*^9}, { 3.8160293860990267`*^9, 3.816029403285502*^9}}, CellID->994438999], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{"27", ",", "\"\\"", ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.816029248320985*^9, 3.816029383604663*^9}, { 3.816030048872259*^9, 3.816030061996642*^9}}, CellLabel->"In[653]:=", CellID->915159858], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, -1}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, -2}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, -3}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, -4}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}]}, {1, -5}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8160292936958*^9, 3.816029344220387*^9}, { 3.8160293749439907`*^9, 3.81602938380768*^9}, 3.816029506730455*^9, { 3.816030044128976*^9, 3.8160300625565023`*^9}, 3.816973082110794*^9, 3.860855983521576*^9, 3.860856493375984*^9, 3.860856574482437*^9, 3.860857569436932*^9, 3.860858028718458*^9}, CellLabel->"Out[653]=", CellID->940488739] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Set the number of symbols per line to 5:", "Text", TaggingRules->{}, CellChangeTimes->{{3.816029330009354*^9, 3.816029332777316*^9}, { 3.8160293860990267`*^9, 3.816029415063582*^9}}, CellID->141061331], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{"62", ",", "\"\\"", ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.816029401199683*^9, 3.816029409147011*^9}}, CellLabel->"In[654]:=", CellID->904658309], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {5, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, -1}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {2, -1}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {3, -1}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {4, -1}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {5, -1}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, -2}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {2, -2}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}]}, {3, -2}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.816029406464856*^9, 3.816029417638036*^9}, { 3.816030046354368*^9, 3.816030065380652*^9}, 3.8608559862418118`*^9, 3.860856495821999*^9, 3.860856577075975*^9, 3.8608575717898006`*^9, 3.86085803076023*^9}, CellLabel->"Out[654]=", CellID->542314893] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["Create a roughly square arrangement:", "Text", TaggingRules->{}, CellChangeTimes->{{3.816029330009354*^9, 3.816029332777316*^9}, { 3.8160293860990267`*^9, 3.816029447169353*^9}}, CellID->834681338], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{"333", ",", "\"\\"", ",", "Automatic"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8160294270163317`*^9, 3.8160294583674593`*^9}}, CellLabel->"In[655]:=", CellID->172568284], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, -1}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, -2}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, -3}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, -4}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, -5}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 4, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 5, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 6, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 7, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 8, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 9, -6}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 1, -7}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 2, -7}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}]}, { 3, -7}], GeometricTransformationBox[{LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}]}, { 4, -7}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.816029448601083*^9, 3.816029458647822*^9}, 3.816030068012088*^9, 3.8169730877751923`*^9, 3.860855987921118*^9, 3.860856498113667*^9, 3.860857573542992*^9, 3.860858032411264*^9}, CellLabel->"Out[655]=", CellID->230565354] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->859239780], Cell[CellGroupData[{ Cell["Noise", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.7673050962357883`*^9, 3.767305097949357*^9}, {3.86085759373245*^9, 3.8608575945198803`*^9}, {3.860858170473751*^9, 3.860858172371269*^9}}, CellID->348568699], Cell["Add the default amount of noise:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8608578302485313`*^9, 3.860857865051276*^9}, { 3.860857918446899*^9, 3.860857922084642*^9}}, CellID->209661656], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TallyMarks", "[", RowBox[{"23", ",", RowBox[{"\"\\"", "->", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8608578282776947`*^9, 3.8608579149645863`*^9}}, CellLabel->"In[656]:=", CellID->260099429], Cell[BoxData[ GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.19661031907403442`, 0.11391547937606993`}, { 0.21710468467532218`, 0.9044135642561354}}], LineBox[{{0.39606191683441583`, 0.10409943007204046`}, { 0.3968947092748161, 0.8974535855127256}}], LineBox[{{0.5289203661500643, 0.06940660041064642}, {0.6492087393496713, 0.8967483310603132}}], LineBox[{{0.7958894419525042, 0.0832187672043193}, {0.7747229148775416, 0.9148701592261667}}], LineBox[{{0.09725950357703494, 0.7035539823481847}, {0.8848779437003048, 0.33411578329673297`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.2314304955893417, 0.09975219874572018}, { 0.19333360483756368`, 0.9157978086301548}}], LineBox[{{0.39877300469957416`, 0.11653402863431676`}, { 0.40755894938935006`, 0.8961950265048076}}], LineBox[{{0.632725658129332, 0.10953438833529233`}, {0.6124552798483996, 0.8736971439968277}}], LineBox[{{0.7981728817805381, 0.09075477254833444}, {0.7938791586225287, 0.8859066911103414}}], LineBox[{{0.09487255544974577, 0.6930587479421955}, {0.9029044663553948, 0.31917020012808045`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.19793312348939449`, 0.1190726799533395}, {0.1758371996433489, 0.8862645407966381}}], LineBox[{{0.4131368463265104, 0.15294945690016204`}, {0.3967335888830111, 0.8727602031349415}}], LineBox[{{0.6145858177719291, 0.0887059722311407}, {0.5969612363688365, 0.8897364523662326}}], LineBox[{{0.7976554779460048, 0.0908015020524917}, {0.8319680379891405, 0.903705924895239}}], LineBox[{{0.09629998996705216, 0.7092916746229259}, {0.8994677344260188, 0.2540066695707584}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.20478507048191288`, 0.0958407220877193}, { 0.21181093442291968`, 0.8968029924192473}}], LineBox[{{0.39423615335506934`, 0.09533350777456354}, { 0.41220161507756964`, 0.9267695415303765}}], LineBox[{{0.6173134987080773, 0.06944894123327472}, {0.6256081941595987, 0.9074011998658033}}], LineBox[{{0.8270605722592351, 0.11063364395225567`}, {0.8143804827387385, 0.8923108991700478}}], LineBox[{{0.09963682481214413, 0.7026645034075706}, {0.8936803700237269, 0.31304714748738016`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.22050130108342061`, 0.12197163663756125`}, { 0.20859671742066846`, 0.91262208584409}}], LineBox[{{0.4281964347238585, 0.07386393728561483}, { 0.42485616643971896`, 0.9033083506229436}}], LineBox[{{0.6101055531602766, 0.0913420930909341}, {0.6034274536336856, 0.9036164443512735}}]}, {5, 0}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.86085782905949*^9, 3.860857840093917*^9}, { 3.8608578812615013`*^9, 3.860857923153412*^9}, 3.860858034247012*^9}, CellLabel->"Out[656]=", CellID->241104556] }, Open ]], Cell["Add different levels of noise:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674738390951242`*^9, 3.7674738592896147`*^9}, { 3.860857596294456*^9, 3.860857601957252*^9}}, CellID->194488193], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{"Prepend", "[", RowBox[{"{", "\"\\"", "}"}], "]"}], "@", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "\[IndentingNewLine]", RowBox[{"TallyMarks", "[", RowBox[{"23", ",", RowBox[{"\"\\"", "->", "i"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TallyMarks", "[", RowBox[{"23", ",", "\"\\"", ",", RowBox[{"\"\\"", "->", "i"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TallyMarks", "[", RowBox[{"23", ",", "\"\\"", ",", RowBox[{"\"\\"", "->", "i"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{ "False", ",", "0.005", ",", "0.01", ",", "True", ",", "0.025", ",", "0.05", ",", "0.1", ",", "0.2"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747381198129*^9, 3.7674738353533*^9}, 3.767478626034107*^9, {3.767568068568712*^9, 3.767568069440691*^9}, { 3.860857615490786*^9, 3.860857712303767*^9}, {3.86085775016564*^9, 3.860857815095999*^9}, {3.86085794257172*^9, 3.8608579758548307`*^9}}, CellLabel->"In[657]:=", CellID->934692661], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Noise level\"\>", "", "", ""}, {"False", GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}], LineBox[{{0.8, 0.1}, {0.8, 0.9}}], LineBox[{{0.1, 0.7}, {0.9, 0.30000000000000004`}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.2, 0.1}, {0.2, 0.9}}], LineBox[{{0.4, 0.1}, {0.4, 0.9}}], LineBox[{{0.6, 0.1}, {0.6, 0.9}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065], DiskBox[{0.1, 0.1}, 0.065], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.9}}]}, {1, 0}], GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065], DiskBox[{0.1, 0.1}, 0.065], LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.9, 0.9}, {0.9, 0.1}}], LineBox[{{0.9, 0.1}, {0.1, 0.1}}], LineBox[{{0.1, 0.1}, {0.1, 0.9}}], LineBox[{{0.1, 0.9}, {0.9, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.9}}]}, {2, 0}], GeometricTransformationBox[{DiskBox[{0.1, 0.9}, 0.065], DiskBox[{0.9, 0.9}, 0.065], DiskBox[{0.9, 0.1}, 0.065]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {1, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {2, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {3, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}], LineBox[{{0.3, 0.5}, {0.3, 0.1}}], LineBox[{{0.1, 0.1}, {0.9, 0.1}}]}, {4, 0}], GeometricTransformationBox[{LineBox[{{0.1, 0.9}, {0.9, 0.9}}], LineBox[{{0.5, 0.1}, {0.5, 0.9}}], LineBox[{{0.5, 0.5}, {0.9, 0.5}}]}, {5, 0}]}]}, {"0.005`", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.21243121900305478`, 0.1041086598115001}, { 0.19682408134433027`, 0.8996514624317019}}], LineBox[{{0.3945516119900955, 0.10431499961035713`}, { 0.4018665327018518, 0.8993044893252988}}], LineBox[{{0.6127455596323467, 0.09868425889242874}, { 0.5901291497898046, 0.8995305671706962}}], LineBox[{{0.7933874430072063, 0.09371760668381726}, { 0.8021020468960743, 0.9010613437752806}}], LineBox[{{0.10837097268802426`, 0.6908337782773458}, { 0.8989527995603088, 0.31149132061313517`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.20200152523705822`, 0.0941866074828841}, { 0.1978164787795603, 0.8949628437054625}}], LineBox[{{0.4067791166228429, 0.09988375896917284}, { 0.39180992333799164`, 0.9015690047315581}}], LineBox[{{0.5929446174794789, 0.09413669220936696}, { 0.612140238554937, 0.9004310750081256}}], LineBox[{{0.7994186664522465, 0.10198525542299995`}, { 0.8000671354349365, 0.9008591243572259}}], LineBox[{{0.10280732048609707`, 0.6965001489701313}, { 0.8959032118183002, 0.30496087883324796`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.19459188115294784`, 0.09644692122473238}, { 0.20200899651518944`, 0.8933893412823402}}], LineBox[{{0.4003070680034006, 0.09960902951366067}, { 0.39629587667375027`, 0.8989744670592706}}], LineBox[{{0.5969938259777934, 0.10453254329150048`}, { 0.6066163386162281, 0.9039179070057389}}], LineBox[{{0.7927549561587313, 0.10271261629916807`}, { 0.8022592911122742, 0.8971867370466808}}], LineBox[{{0.09836168102648221, 0.700710945323279}, { 0.9056917803023736, 0.3040699505628666}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.20458373111458822`, 0.10056076734801911`}, { 0.1991195048279723, 0.8973334814000115}}], LineBox[{{0.39988763777131037`, 0.101961095543372}, { 0.39851817090560343`, 0.9088924969323214}}], LineBox[{{0.5985479988826901, 0.09669980280224932}, { 0.595803908405171, 0.9050327441167837}}], LineBox[{{0.7977463527098374, 0.09737381654446105}, { 0.8053896552258394, 0.9017797541749587}}], LineBox[{{0.0913212261116059, 0.6980133953456965}, { 0.8923482640338211, 0.3058158678406077}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.20227063619603752`, 0.10070107802111535`}, { 0.20273982969513077`, 0.8969761277072644}}], LineBox[{{0.3993688127617468, 0.09340664934519988}, { 0.39857903041049214`, 0.8954206165898208}}], LineBox[{{0.5920977627094065, 0.10109574470201464`}, { 0.6057941877163656, 0.8887170530108546}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.10593045441905258, 0.9047804233382023}, 0.06465000209616631], DiskBox[{0.8925542508997654, 0.8939457499937956}, 0.06511446556297432], DiskBox[{0.9026766096378837, 0.10014687654460214}, 0.06492273604487515], DiskBox[{0.1069872210957942, 0.09711205097358748}, 0.06522465411953926], LineBox[{{0.10621214587041333`, 0.9055710707915176}, { 0.8960282698261948, 0.902478604442726}}], LineBox[{{0.8923211641708153, 0.8955234836296506}, { 0.9076376535944997, 0.10527988809049524`}}], LineBox[{{0.9091620166207757, 0.09314713330220768}, { 0.0954540076150361, 0.10071379096263451`}}], LineBox[{{0.10342223476326293`, 0.10873615385096753`}, { 0.0956663316165356, 0.888369153284437}}], LineBox[{{0.10076124236276142`, 0.9020625784279085}, { 0.8982000389696344, 0.09540377115099193}}], LineBox[{{0.09162064464437303, 0.09116671870749068}, { 0.9076908417369784, 0.8954274514504688}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{0.09977948952047463, 0.9009101129547235}, 0.06525209612222149], DiskBox[{0.9016715553437709, 0.9021717682710726}, 0.06436938396356269], DiskBox[{0.8967489327187737, 0.10485792527413831}, 0.06487799577059794], DiskBox[{0.09300895549498343, 0.0990980468298028}, 0.06458226974868353], LineBox[{{0.1083394074303723, 0.8972182765011406}, { 0.9028708848967547, 0.9034315016539235}}], LineBox[{{0.893265076458953, 0.8997869613122584}, { 0.9011461613560311, 0.10388372707243912`}}], LineBox[{{0.8993801787851897, 0.10198166780713068`}, { 0.10715909697405473`, 0.09150037104379509}}], LineBox[{{0.09891796999339843, 0.10064513326003127`}, { 0.10363791246697422`, 0.9080585941442133}}], LineBox[{{0.10577431645448633`, 0.9087501115261389}, { 0.8989891226897336, 0.10200129759782557`}}], LineBox[{{0.1003007745654932, 0.09816239370124664}, { 0.9104038594294689, 0.9026670143830569}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{0.10547860098162991, 0.8947439393335622}, 0.0649749438554531], DiskBox[{0.8950674883751601, 0.8976621154860974}, 0.06515498276393544], DiskBox[{0.9017123935898701, 0.1007789362207384}, 0.06518226495436383]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.10371505091663527`, 0.8993108840671956}, { 0.9018510238184225, 0.9115691756636327}}], LineBox[{{0.4984525390384252, 0.10345585718199678`}, { 0.493900263084712, 0.8973244041289475}}], LineBox[{{0.49957539117578154`, 0.5047700399963428}, { 0.8976657699100564, 0.489714241397285}}], LineBox[{{0.2975246065691483, 0.5025694033199499}, { 0.3080597385401702, 0.09441231282051973}}], LineBox[{{0.09207042021634029, 0.10039408064301479`}, { 0.9031688204853795, 0.10506004223871682`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.09238611612990112, 0.9050233244535452}, { 0.8964234391610638, 0.8939859102827308}}], LineBox[{{0.5041485936274354, 0.10354618821352658`}, { 0.5003001007203829, 0.9015367559200149}}], LineBox[{{0.4879530910313235, 0.5017115674739911}, { 0.8984724715548829, 0.4894367099580039}}], LineBox[{{0.3125331316195326, 0.5021740858730295}, { 0.29568232739376166`, 0.09940171521940325}}], LineBox[{{0.09338063808100924, 0.1003214914946375}, { 0.8964554628804021, 0.10170754896887046`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.10038194342035056`, 0.9028729664315647}, { 0.8913040378685169, 0.8967683226116651}}], LineBox[{{0.4978352014994002, 0.08377447471765544}, { 0.5077302686709549, 0.9050713088646515}}], LineBox[{{0.5012436386921534, 0.49563967768937156`}, { 0.9044827989574745, 0.4956373435346272}}], LineBox[{{0.29836696569603555`, 0.503594192308264}, { 0.30308878708707543`, 0.10146163503337999`}}], LineBox[{{0.10289915650892754`, 0.09256609388903055}, { 0.893809525487209, 0.09756935172828761}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.10172744057718283`, 0.901397195827779}, { 0.9045208535707753, 0.8987749361780085}}], LineBox[{{0.4997673237909939, 0.09561531179216244}, { 0.4979664544178803, 0.8992419865049219}}], LineBox[{{0.49891251418307414`, 0.5091321613374679}, { 0.9030813421221611, 0.5003586781391763}}], LineBox[{{0.29861709449751084`, 0.5020854693253138}, { 0.2968938470098379, 0.10095923547270574`}}], LineBox[{{0.09600141251438894, 0.0932893629911269}, { 0.8983385816629248, 0.10615231464151087`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.09488911963631981, 0.8982797437071641}, { 0.9035879901901623, 0.8991083937389668}}], LineBox[{{0.5006668251221742, 0.10224564844275924`}, { 0.4981301407392473, 0.8985020733331308}}], LineBox[{{0.4906586553689334, 0.5066225249247298}, { 0.8965094184712973, 0.49944493896981473`}}]}, {5, 0}]}]}, {"0.01`", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.20893523652715051`, 0.10144857617081753`}, { 0.18281688779556363`, 0.8958794842366528}}], LineBox[{{0.38921223441062713`, 0.11598160558038056`}, { 0.40763764647535766`, 0.8844222582057002}}], LineBox[{{0.5970922404895235, 0.10686437312662678`}, { 0.5769560601891878, 0.8964313919450559}}], LineBox[{{0.7871755061171847, 0.09181198935575303}, { 0.8106524341040141, 0.8843810368935258}}], LineBox[{{0.09979675441180325, 0.6952371862393645}, { 0.896026556736817, 0.28513978433644294`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.1966743915309525, 0.09134940312849678}, { 0.19621950521870188`, 0.9109036708963191}}], LineBox[{{0.39865578207408864`, 0.09855993326245449}, { 0.41194379540299436`, 0.9038602896783947}}], LineBox[{{0.5898029262259585, 0.09942904476483014}, { 0.6116925740230441, 0.9058104679805881}}], LineBox[{{0.8087536789046442, 0.08842221561685894}, { 0.7886561823997986, 0.891878045962067}}], LineBox[{{0.09340340008307604, 0.7079463008216521}, { 0.8868606413993693, 0.3094584129005007}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.17999127460403372`, 0.10363380698554596`}, { 0.20741555092102096`, 0.8935177289498067}}], LineBox[{{0.41133664892522204`, 0.10529325210681395`}, { 0.3990458348632091, 0.9040945148096914}}], LineBox[{{0.5973973932926859, 0.10143693109831488`}, { 0.5883890648255463, 0.9062589149234958}}], LineBox[{{0.8011974272624689, 0.1105724480934947}, { 0.8019206435754882, 0.9059179522834145}}], LineBox[{{0.11725355982404467`, 0.6912077933982517}, { 0.8973520399154217, 0.30499254590482433`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.1881378092436862, 0.11438158977906043`}, { 0.208367526253688, 0.8970033370893511}}], LineBox[{{0.3974768170514354, 0.094612828464654}, { 0.39660642677730673`, 0.898141922371956}}], LineBox[{{0.6084337059021515, 0.10317674825941878`}, { 0.6122001604306612, 0.9038438616678968}}], LineBox[{{0.7974687113564182, 0.10671590114228487`}, { 0.7919830434727917, 0.9189832232682927}}], LineBox[{{0.09763097588331357, 0.7107583240627557}, { 0.9053985686691707, 0.30322827099051763`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.19493621289835844`, 0.10384716677891631`}, { 0.20246082706692856`, 0.8948138222708126}}], LineBox[{{0.4115484663644057, 0.09595945679782183}, { 0.40774774629717825`, 0.8921906089569991}}], LineBox[{{0.6072886541954863, 0.10320812504203161`}, { 0.6005924613644879, 0.9104239694778814}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.12227755312859892, 0.9024291176042538}, 0.0650083582308253], DiskBox[{0.9160604146026307, 0.8885165306133566}, 0.06369357183451142], DiskBox[{0.8990311755493026, 0.1024537985887384}, 0.06410521592251502], DiskBox[{0.10572851793852725, 0.10349035932030681}, 0.06534577180074487], LineBox[{{0.10826315271505046`, 0.9043627489991102}, { 0.8969551878851103, 0.8995673478291669}}], LineBox[{{0.887559592336344, 0.8724169286672165}, {0.916811688924454, 0.1008147289668237}}], LineBox[{{0.9077501531690876, 0.10433001069520734`}, { 0.08253440878707015, 0.090516286502257}}], LineBox[{{0.09924250646549314, 0.0912935144930112}, { 0.11133920665384284`, 0.8856628664306433}}], LineBox[{{0.09147605048454541, 0.8826965526869488}, { 0.9051589726349151, 0.09079670174314462}}], LineBox[{{0.09573387574720987, 0.10669609155650571`}, { 0.896107796390562, 0.884320388611633}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{0.09064468891339922, 0.8994478991668285}, 0.06459123877559703], DiskBox[{0.8953210129671254, 0.9065847407084752}, 0.06410207621122137], DiskBox[{0.8993628758549373, 0.11894524023496333}, 0.06511364376170273], DiskBox[{0.10131990523814553, 0.09862046757141013}, 0.06649005058786314], LineBox[{{0.08211855625403071, 0.8992714153621596}, { 0.8940429006234858, 0.8982267228274667}}], LineBox[{{0.9114542744767412, 0.89287279731345}, {0.925416535740735, 0.10183919326262784`}}], LineBox[{{0.8983639204874004, 0.10425253141178678`}, { 0.09436267101873033, 0.12909092312716208`}}], LineBox[{{0.09846220290269102, 0.11603913193095955`}, { 0.10248747274353368`, 0.9133166913441988}}], LineBox[{{0.10535308708118443`, 0.9074779408374226}, { 0.8900266458349859, 0.0969056614035442}}], LineBox[{{0.11545023723608612`, 0.11878426524298283`}, { 0.8982863649407624, 0.8955447688721534}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{0.11431027682648387, 0.9114431316868037}, 0.06389377840669788], DiskBox[{0.9051339667602294, 0.8987746510668553}, 0.0640689924718085], DiskBox[{0.9065612885206964, 0.10680475002018981}, 0.0646968028405825]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.10119804509113374`, 0.8886652496114092}, { 0.9001598227788498, 0.8843411731589296}}], LineBox[{{0.4931866377338988, 0.10826672348312254`}, { 0.5035028347639143, 0.9057573160253164}}], LineBox[{{0.4922829407576155, 0.4981856940347236}, { 0.9035834554836546, 0.5170921011392985}}], LineBox[{{0.2911995439148161, 0.5145978345592568}, { 0.2912625440318642, 0.1011922073940166}}], LineBox[{{0.10962402689095231`, 0.08648002157094625}, { 0.8952636204528863, 0.1017906964113004}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.08758257202463779, 0.8838331559795056}, { 0.9109126060127385, 0.9119556171596569}}], LineBox[{{0.49350825453608343`, 0.09441138013950971}, { 0.5030675666001603, 0.9126120561606742}}], LineBox[{{0.5112701470604182, 0.48857517304430886`}, { 0.8964150691977971, 0.500317289048358}}], LineBox[{{0.290526636086753, 0.48856444463150656`}, { 0.3174930875924475, 0.09378821274779003}}], LineBox[{{0.09017589517237887, 0.10707622020021026`}, { 0.8841212175467301, 0.10343907125137007`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.09956416701548693, 0.8836098659822204}, { 0.9053354202125574, 0.896667761298803}}], LineBox[{{0.49145523527323615`, 0.09015277329492552}, { 0.4913113432703703, 0.8968261890523079}}], LineBox[{{0.491655571554917, 0.5026148772511243}, { 0.8852930721522803, 0.5016237001337355}}], LineBox[{{0.3039919320082647, 0.517559595624239}, {0.296045561350015, 0.09431659781057802}}], LineBox[{{0.09607832360237228, 0.08829327576494414}, { 0.8953931858860457, 0.11312328388662007`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.09148436338251573, 0.8989105227700364}, { 0.8968759018764142, 0.8841741529080743}}], LineBox[{{0.49213002202158695`, 0.08770767967109395}, { 0.5024942084061957, 0.9186506835925188}}], LineBox[{{0.503429963863077, 0.49824837764000884`}, { 0.909819774752451, 0.49563473289849047`}}], LineBox[{{0.31272166825732056`, 0.4936863355436924}, { 0.300369195325319, 0.09057160703074801}}], LineBox[{{0.09197622451432673, 0.11342165402522983`}, { 0.9016023608150595, 0.08633771926224806}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.09901145160691754, 0.901192825633915}, { 0.889969958511204, 0.8977700303688619}}], LineBox[{{0.5146712104719587, 0.09403089823691438}, { 0.503852677312591, 0.8976319268415425}}], LineBox[{{0.5191677088721939, 0.48964247365792}, {0.9012124717476734, 0.47842569502618076`}}]}, {5, 0}]}]}, {"True", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.2206370009534409, 0.11948911246839944`}, { 0.240471816700509, 0.9184226567085462}}], LineBox[{{0.39266695595797496`, 0.11976967418597141`}, { 0.374243425562792, 0.8641153144137259}}], LineBox[{{0.595521306532939, 0.09927220099918341}, { 0.5943027290747447, 0.8771673516964429}}], LineBox[{{0.8029538966386217, 0.12741509151247637`}, { 0.8058294644873935, 0.8968907459056003}}], LineBox[{{0.12830379188589025`, 0.6758573563665679}, { 0.9089448412314409, 0.2839163773484685}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.2051863101635431, 0.08406105518676817}, { 0.183719562983993, 0.8618918480276707}}], LineBox[{{0.401177115803879, 0.07282865037876463}, { 0.3917980780727112, 0.8941681604380208}}], LineBox[{{0.5831183585095455, 0.08139619445642593}, { 0.6057854930455014, 0.9126055492041834}}], LineBox[{{0.7960406546572973, 0.08304045117026965}, { 0.7859546344897288, 0.924154972211085}}], LineBox[{{0.09434296776024391, 0.7165591395162938}, { 0.8851090268378738, 0.3253014983489262}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.19466894016285058`, 0.13662790097614824`}, { 0.19484104538251532`, 0.9148143160978717}}], LineBox[{{0.3975705861789488, 0.10170091669801719`}, { 0.3737526030120608, 0.877593790811201}}], LineBox[{{0.6062073232322158, 0.10959223627002819`}, { 0.5936895109446824, 0.9116448751283817}}], LineBox[{{0.8059545320359157, 0.08535295731780387}, { 0.8073294077104183, 0.8754794517638532}}], LineBox[{{0.11334678440815343`, 0.692583843244606}, { 0.9070469368191942, 0.2943104862602676}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.2203988086359403, 0.12849799895924968`}, { 0.1918220058451805, 0.8777832233356859}}], LineBox[{{0.3964053435769518, 0.0761779809505443}, { 0.4108032998181417, 0.8862665585057282}}], LineBox[{{0.6220585103326814, 0.0777684571606195}, { 0.6129125667987289, 0.8954215714640938}}], LineBox[{{0.8014176889917906, 0.0795010261055762}, { 0.7867982132383945, 0.8970382885965641}}], LineBox[{{0.10128954791037983`, 0.6945271591694849}, { 0.9076099271142603, 0.2864398612960647}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.18177127198615156`, 0.10620680988082401`}, { 0.1762482892628853, 0.8852364945082862}}], LineBox[{{0.3859041100817287, 0.07496060559908901}, { 0.3951682402498086, 0.897660537776283}}], LineBox[{{0.59893415553559, 0.054154475734602324`}, { 0.5718477912214882, 0.9403728533990762}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.1142746508202318, 0.9008183328210223}, 0.0657756593564786], DiskBox[{0.8922208313392948, 0.8714067972552189}, 0.064241012203231], DiskBox[{0.9038906393907232, 0.0941078040606542}, 0.06550942237823737], DiskBox[{0.1263614999670366, 0.14984317663310245}, 0.0660594818033215], LineBox[{{0.0732164469926441, 0.8822315403843016}, { 0.8903317752003491, 0.9325070239435621}}], LineBox[{{0.9248925832204065, 0.8598101544456175}, { 0.9296185172252185, 0.09764064931299023}}], LineBox[{{0.8872024935534177, 0.10191372767035617`}, { 0.12595093790058626`, 0.11778971471271434`}}], LineBox[{{0.11076422751142431`, 0.09292263971610126}, { 0.1344412028935937, 0.9018954168743235}}], LineBox[{{0.09688097540961635, 0.9190294239479547}, { 0.8948974118721423, 0.11057846289852923`}}], LineBox[{{0.09785080382024221, 0.1131622530621892}, { 0.9168201457495696, 0.9075023345853552}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{0.09820019675038548, 0.9000542129875503}, 0.06538527735595609], DiskBox[{0.9404478686710623, 0.8926172873060426}, 0.06662920417283603], DiskBox[{0.8832739623508513, 0.11239082396818952}, 0.06526568963269548], DiskBox[{0.09412450357017065, 0.1262491694412782}, 0.06459013680237023], LineBox[{{0.10781888709699913`, 0.9377765032788475}, { 0.8903444015373376, 0.8797275283511573}}], LineBox[{{0.9158470650461994, 0.9032377326079062}, { 0.9064178872726463, 0.0974339347450974}}], LineBox[{{0.9041661767249025, 0.10519362073124391`}, { 0.0923095956007634, 0.09339730233213342}}], LineBox[{{0.10360094985109627`, 0.11925204129256048`}, { 0.12847721147472219`, 0.8493265493847564}}], LineBox[{{0.12887357607064726`, 0.9172251527545725}, { 0.9331743566435832, 0.11386136021811412`}}], LineBox[{{0.10767256399182208`, 0.09920388611650942}, { 0.8874676231611041, 0.915087526256877}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{0.05329196292069189, 0.890273885262673}, 0.06586612384232765], DiskBox[{0.8839448064326151, 0.9058764657787864}, 0.0647020891808241], DiskBox[{0.888635641630067, 0.10499278374801979}, 0.06425410738557658]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.06375526065722131, 0.8886735817918243}, { 0.9062880705809004, 0.9082315421362249}}], LineBox[{{0.5503810381361663, 0.0972674783160667}, { 0.5183563526695438, 0.9353658888760348}}], LineBox[{{0.49533231229653396`, 0.5404432256729728}, { 0.9120149267488777, 0.4707851024221347}}], LineBox[{{0.33712404178784944`, 0.5269020500202624}, { 0.27372493404269477`, 0.12690105903129112`}}], LineBox[{{0.1090689660888115, 0.09360980182820641}, { 0.887486218834859, 0.08749671123562414}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.08902397973132248, 0.9059320970485365}, { 0.8835842186173566, 0.9097130519695801}}], LineBox[{{0.4793114256595062, 0.11240951855840858`}, { 0.5204104364438746, 0.9226982409237033}}], LineBox[{{0.5053971686798138, 0.49319359949399444`}, { 0.9219813805615683, 0.4747531790576941}}], LineBox[{{0.3060667644933909, 0.508141261048396}, { 0.31674013472979085`, 0.12601000151528033`}}], LineBox[{{0.0886720393138426, 0.11835181548639086`}, { 0.9049391160301931, 0.10926999895784084`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.1339449938686681, 0.895868635635398}, { 0.9393723256749149, 0.9081281228278616}}], LineBox[{{0.5143394346723238, 0.053998528071297076`}, { 0.5095939732943758, 0.9210848304166099}}], LineBox[{{0.4878441230849007, 0.5361936409297057}, { 0.9138113746415811, 0.4666640515576548}}], LineBox[{{0.2849168651288785, 0.4830429529146369}, { 0.35411617142373597`, 0.11184462660560099`}}], LineBox[{{0.1110053368556938, 0.11234196254810111`}, { 0.9348673605015135, 0.0998342030564743}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.10502484409703947`, 0.9233926147134425}, { 0.9148308664337198, 0.8681486682261528}}], LineBox[{{0.49947370332921137`, 0.08555406210898737}, { 0.5021108718335848, 0.9274213408088379}}], LineBox[{{0.49772102297569865`, 0.4962438566424941}, { 0.934459166099109, 0.48073863037164094`}}], LineBox[{{0.3117798325537162, 0.46957732941355407`}, { 0.2862119126829316, 0.09002669346909892}}], LineBox[{{0.07569439050017866, 0.10383452660281967`}, { 0.9370019659949717, 0.047766141770348644`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.09419338772309901, 0.9555828551795784}, { 0.9056750450364223, 0.9130644455553415}}], LineBox[{{0.5211624529313071, 0.13666678218910466`}, { 0.5151541391020866, 0.9057662414068572}}], LineBox[{{0.4604987244533088, 0.5104621546591122}, { 0.8974248916627726, 0.5063143734718455}}]}, {5, 0}]}]}, {"0.025`", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.18982512855932543`, 0.08445612031596521}, { 0.2249984217853726, 0.8942125458075708}}], LineBox[{{0.4050732553573571, 0.07754786242994918}, { 0.42481805162905295`, 0.9095138587575918}}], LineBox[{{0.6325341898514032, 0.08472923532125415}, { 0.6304058828491209, 0.9118421586498441}}], LineBox[{{0.8018610191929318, 0.11798878690000277`}, { 0.7524728213099469, 0.9031612531601835}}], LineBox[{{0.12105072183972114`, 0.7128349804126288}, { 0.9226909951763099, 0.2914963542418589}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.18557562841504052`, 0.081244256020335}, { 0.18510011731930992`, 0.8662254613781499}}], LineBox[{{0.4294472629329951, 0.1310372810983301}, { 0.3941952914375015, 0.9204758131286584}}], LineBox[{{0.6381809443617802, 0.09093179904998241}, { 0.657724511544029, 0.9184145499598421}}], LineBox[{{0.7954854456120602, 0.09324136596442842}, { 0.777030495608665, 0.9000256941116996}}], LineBox[{{0.10598834115789206`, 0.7257166471365553}, { 0.8965320154046483, 0.30592603517594824`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.1866950385880376, 0.08727529083457705}, { 0.17691274406974725`, 0.8933156149795888}}], LineBox[{{0.41019691638034256`, 0.07143734352622202}, { 0.3748057962747936, 0.9215005619975902}}], LineBox[{{0.6361665559882441, 0.10572089040165839`}, { 0.6125377578370715, 0.9420165031452038}}], LineBox[{{0.8076216864832, 0.09821547773223593}, {0.8395530372251128, 0.9002871096886076}}], LineBox[{{0.05301785709574817, 0.6904846823867817}, { 0.8886963499987243, 0.33685870603452533`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.15611795642292087`, 0.10255692625048105`}, { 0.24659379993886102`, 0.8806403086729154}}], LineBox[{{0.4068385728079166, 0.094804329513715}, {0.378489156574429, 0.91419726817798}}], LineBox[{{0.6541689967255373, 0.1279534626532431}, { 0.6016108449637574, 0.8991487147841026}}], LineBox[{{0.7695093040385228, 0.09515460362180224}, { 0.7557609692745164, 0.9400835056740149}}], LineBox[{{0.11226999931984956`, 0.6950309167998173}, { 0.8754472474659495, 0.28155235735375933`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.20229852561112305`, 0.11925151883299595`}, { 0.19651742199678016`, 0.9024852490574375}}], LineBox[{{0.3994978763291431, 0.08502154676129102}, { 0.41565352682197226`, 0.8943650276150908}}], LineBox[{{0.6207217427703831, 0.10219184110551517`}, { 0.6501515496731763, 0.9230886117828812}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.07723330827133362, 0.9133153015487333}, 0.06489577718487698], DiskBox[{0.9427703689294464, 0.8940983086607516}, 0.06559121349264366], DiskBox[{0.8865933493947423, 0.09829737347911059}, 0.06532059801998774], DiskBox[{0.07828906143486405, 0.10364873627668865}, 0.06542338568919925], LineBox[{{0.11425618497339948`, 0.9549184700488339}, { 0.8865466436467127, 0.9233312978242894}}], LineBox[{{0.9872743416239651, 0.9239553547904882}, { 0.8806204379201797, 0.12203527171094607`}}], LineBox[{{0.8940823296090772, 0.11334355696726817`}, { 0.12014196401790889`, 0.11216460178717974`}}], LineBox[{{0.12595346496464752`, 0.08126086661390414}, { 0.09681509611591396, 0.9374816205909935}}], LineBox[{{0.050010251389446786`, 0.9221212719970512}, { 0.9400060496098963, 0.05011385370561116}}], LineBox[{{0.10955465209060421`, 0.0698269233337789}, { 0.9189785720410348, 0.8849136617482873}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{0.10644234232701516, 0.9083967182183473}, 0.06685303998677107], DiskBox[{0.9302672884778133, 0.8958836596524249}, 0.06531724621659935], DiskBox[{0.9231753728289962, 0.08046401053578565}, 0.067191022230592], DiskBox[{0.059912279787050916, 0.1255341209878945}, 0.06708204020482632], LineBox[{{0.12814544991264779`, 0.8494289589552837}, { 0.9261169307250249, 0.9270502659885096}}], LineBox[{{0.9135182393321759, 0.915285444896066}, { 0.9205168731930276, 0.0577807480541739}}], LineBox[{{0.8754459581137249, 0.08572561744988795}, { 0.09407428647485304, 0.11545495229586702`}}], LineBox[{{0.11204525132676474`, 0.0848056024701448}, { 0.13995564605071914`, 0.9149094542129994}}], LineBox[{{0.09971117568012489, 0.9095156720580163}, { 0.8863430608949433, 0.13961668054798798`}}], LineBox[{{0.0646371602269796, 0.09963157708475193}, { 0.9072538998991562, 0.8933406748006251}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{0.09900704356305925, 0.920264849472329}, 0.06801770046377234], DiskBox[{0.9027486063224738, 0.8890185165455229}, 0.06401447107778892], DiskBox[{0.9037716187796834, 0.11365358644190215}, 0.06271409009830936]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.10806449863231164`, 0.8502939703125763}, { 0.869221663888203, 0.9177459803719428}}], LineBox[{{0.45241912780829896`, 0.07552058756471569}, { 0.4704943541832047, 0.9275779616108591}}], LineBox[{{0.4919887135029333, 0.5089103450518618}, { 0.9398848042136052, 0.48261621386473474`}}], LineBox[{{0.31438427367663674`, 0.532059994320125}, { 0.3119741829720043, 0.1501570285440905}}], LineBox[{{0.10148338296808791`, 0.06776977079531754}, { 0.8642483689845033, 0.11590833014190535`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.10353697993098421`, 0.8476391424706092}, { 0.9003529381661867, 0.8917843953198791}}], LineBox[{{0.507691172094165, 0.07400193320010165}, { 0.5159098779014651, 0.8894969110838757}}], LineBox[{{0.49163873071013436`, 0.535750663203888}, { 0.8396609470900764, 0.5020615740008303}}], LineBox[{{0.2691087431924824, 0.4933745175733456}, { 0.30045014330553604`, 0.1177914023645995}}], LineBox[{{0.09420014149651111, 0.08995105413145646}, { 0.9045907040850865, 0.09781771201246255}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.0802279986115412, 0.9295742769419808}, { 0.8883352975920179, 0.9561078683215716}}], LineBox[{{0.5011313034751533, 0.08204544577810392}, { 0.4867628511204483, 0.8779618113924624}}], LineBox[{{0.48795825493003064`, 0.4799012454144828}, { 0.9489533210659119, 0.5343021399261184}}], LineBox[{{0.36663148580444527`, 0.5065933930672694}, { 0.31043903255849, 0.11301906689676995`}}], LineBox[{{0.08221628059150332, 0.131746138067251}, { 0.8992182366715811, 0.12909640334888134`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.07982130022828136, 0.8834963938283288}, { 0.8820964245769025, 0.909253998266754}}], LineBox[{{0.4810294841756518, 0.08178584151819518}, { 0.508085859419298, 0.8802016525674698}}], LineBox[{{0.5407410480438931, 0.5430375210071151}, { 0.9127251549690986, 0.5010027718571255}}], LineBox[{{0.2664062386215271, 0.5381450512610548}, { 0.2760068586762478, 0.09684834171892552}}], LineBox[{{0.10061004576701282`, 0.1371281714409439}, { 0.9230293421970186, 0.05691056619863876}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.09855012083911452, 0.8959209909631093}, { 0.8974603675132636, 0.9192023073978773}}], LineBox[{{0.5391313539440831, 0.0894426523784253}, { 0.4761532930195511, 0.8685462319140853}}], LineBox[{{0.5462234570627044, 0.47503983391874255`}, { 0.8975680442181205, 0.5711916963555985}}]}, {5, 0}]}]}, {"0.05`", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.18527048939663998`, 0.06780944329350869}, { 0.22764787637788148`, 0.8950694718045569}}], LineBox[{{0.43204271856952503`, 0.15646382932139766`}, { 0.38263680982394027`, 0.8940319889237188}}], LineBox[{{0.6322318687307944, 0.09397927584397539}, { 0.5625225166354392, 0.8970444122756531}}], LineBox[{{0.7200292284384294, 0.107512335418928}, { 0.7832917577794103, 0.820956900661198}}], LineBox[{{0.14730147357100354`, 0.6907864204738907}, { 0.8532632383203503, 0.30236026465312843`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.2544103013384741, 0.15257587177058748`}, { 0.25019070898184376`, 0.9728409025886571}}], LineBox[{{0.3964923010554395, 0.09792565307344106}, { 0.45339247528173626`, 0.8768851526055661}}], LineBox[{{0.6294638901441716, 0.1440332514251281}, { 0.6038866237188304, 0.8778274706125657}}], LineBox[{{0.8211813552578493, 0.11220863532764186`}, { 0.8355267374026993, 0.9333239621089449}}], LineBox[{{0.007400220421728804, 0.762295536592748}, { 0.8816796900042317, 0.4450887646631033}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.21954256374446457`, 0.09104580051865035}, { 0.21108802185458153`, 0.8974877576596768}}], LineBox[{{0.2505686133950882, 0.17577549874552562`}, { 0.3438472719916314, 0.9535772419509864}}], LineBox[{{0.5515820956487058, 0.12285397834644905`}, { 0.5398219809440529, 0.9135179605158911}}], LineBox[{{0.8795813083421051, 0.09318049278295226}, { 0.8359110150237187, 0.8569703051805642}}], LineBox[{{-0.004766672656526347, 0.7375681815507018}, { 0.8242061716990194, 0.3704428637173508}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.17373000425703747`, 0.0986813567992405}, { 0.17763349833156405`, 0.8396191854289083}}], LineBox[{{0.3139934642526396, 0.10533522760461417`}, { 0.3450875286715044, 0.8920972762083356}}], LineBox[{{0.5814407299475114, 0.10645144617963974`}, { 0.5190458189407945, 0.8824987190139124}}], LineBox[{{0.8108504353223567, 0.10415762241571566`}, { 0.7057336255550902, 0.9685875415321225}}], LineBox[{{-0.028487871900490652`, 0.6355851609104738}, { 0.8626690771596237, 0.29900996301230076`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.1731162869684928, 0.13303008591100315`}, { 0.24319481320034858`, 0.9383776609943586}}], LineBox[{{0.46132994342460965`, 0.2070215415214762}, { 0.3873941895521384, 0.9261187656788072}}], LineBox[{{0.45030808989453186`, 0.08666095209012763}, { 0.5323619611263121, 0.884852842885205}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.01003469798354878, 0.7394373046848268}, 0.057930051634203776], DiskBox[{0.9227149777084689, 0.8569689188167405}, 0.0667126498816082], DiskBox[{0.9219486100324807, 0.07300288154542497}, 0.06373791292804254], DiskBox[{0.16113380866463023, 0.012317060653874431}, 0.0684076390980062], LineBox[{{0.114218540046405, 0.8455491429586152}, { 0.9061259340590249, 0.9108348687130108}}], LineBox[{{0.9502901022851947, 0.8405753669635097}, { 0.9015959423110956, 0.10344959226619596`}}], LineBox[{{0.8699696712799303, 0.142431836717845}, { 0.0766743514810456, 0.03910720695744145}}], LineBox[{{0.04652326392917411, 0.10606437832548318`}, { 0.11625017497473293`, 0.9390357233841197}}], LineBox[{{0.12017083031011289`, 0.8581094750354767}, { 0.9147087602421147, 0.10553752329961083`}}], LineBox[{{0.16731984394610858`, 0.02074220545618019}, { 0.8983314793675311, 0.9081005704071341}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{0.11515005026146866, 0.8724196764348519}, 0.06128018819882083], DiskBox[{0.9615141635243811, 0.8778675813932858}, 0.06360692456357467], DiskBox[{0.9340789527475941, 0.1356648667912581}, 0.06124665282741463], DiskBox[{0.11712098857521511, 0.059223707825673585}, 0.06209094740367489], LineBox[{{0.09230517789012184, 0.892168798484026}, { 0.8995127789431862, 0.9308830530107911}}], LineBox[{{0.821030655844331, 0.9253505178400493}, {0.856084825923057, 0.16618837209169912`}}], LineBox[{{0.9256788769935625, 0.09905137787072127}, { 0.14967081082504147`, 0.03848209059922639}}], LineBox[{{0.22935187052448458`, 0.09700512450254392}, { 0.1322020748412377, 0.7616830065390077}}], LineBox[{{-0.0011257505889875202`, 0.9517065990590057}, { 0.9255361301765681, -0.023927305541369445`}}], LineBox[{{0.13034915635102828`, 0.15668024157261493`}, { 0.9756502562427494, 0.9186650490558753}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{0.06429206859905344, 0.7936511734149283}, 0.06677331532908594], DiskBox[{0.8630768655257876, 0.87209663977195}, 0.06823352057144408], DiskBox[{0.8547599427228061, 0.014688263988695924}, 0.06322660552150504]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.15046973054378657`, 0.9149171408631765}, { 0.8753493421761593, 0.9541065818635862}}], LineBox[{{0.49329617363178174`, 0.02800252036758412}, { 0.5753106448963604, 0.8694384067059132}}], LineBox[{{0.47723919075230775`, 0.5121037674177726}, { 0.8588635728749037, 0.440968106283759}}], LineBox[{{0.303028126228511, 0.49973939293556446`}, { 0.3397912200895829, 0.1446012033821153}}], LineBox[{{0.07132499976878956, 0.08402196042891599}, { 0.8647620787908674, 0.12032654369118963`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.09361640013369421, 0.846080930971846}, { 0.9353443616875659, 0.8772608304764639}}], LineBox[{{0.47728232219590555`, 0.0568598556059588}, { 0.5500759997500525, 0.8605864832755489}}], LineBox[{{0.4941600114957298, 0.47459689739880984`}, { 0.9114387448877085, 0.48737113143208394`}}], LineBox[{{0.3166687786134552, 0.5134471188034117}, { 0.2582614015347844, 0.09972755260205868}}], LineBox[{{0.07032137167273622, 0.12377307827520319`}, { 0.97242444423963, -0.04232058658219587}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.018311600636514422`, 0.9506537345954963}, { 0.8495881842275838, 0.8883694636286192}}], LineBox[{{0.46908812936178085`, 0.10473078243869059`}, { 0.509266678880515, 0.8584977106894277}}], LineBox[{{0.5443063145910644, 0.47567535926146254`}, { 0.8863162880189773, 0.48715149982728473`}}], LineBox[{{0.2396983088238836, 0.45633288019060525`}, { 0.34877239585964176`, 0.046737442627483784`}}], LineBox[{{0.06432905943951861, 0.14163525820694356`}, { 0.8939046593242683, 0.0769772159605742}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.19796695864065728`, 0.8322392818477019}, { 0.9603763677644871, 0.8574738788390639}}], LineBox[{{0.5166424576821604, 0.21193302061387753`}, { 0.5322682035384085, 0.9043207523646977}}], LineBox[{{0.5700357311545652, 0.6087798290274244}, { 0.8708324490405699, 0.493923650321062}}], LineBox[{{0.36492905525418146`, 0.597782671402044}, { 0.40012340664891, 0.01930290220787305}}], LineBox[{{0.0659878198602645, 0.11118053168986904`}, { 0.8392199556237439, 0.18435889172918335`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.10345140196200794`, 0.886472574229074}, { 0.9286235650674759, 0.7562256387864228}}], LineBox[{{0.5765898742865336, 0.09298268089918185}, { 0.5253228665950213, 0.9146628106769863}}], LineBox[{{0.5442806896500362, 0.5312307400354309}, { 0.875861744234963, 0.5346052879572478}}]}, {5, 0}]}]}, {"0.1`", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.15402335595903166`, -0.02188453080773993}, { 0.3594813378765788, 0.8155415183922519}}], LineBox[{{0.540168201932511, 0.046561329603594034`}, { 0.3519657008127185, 0.9826015368036659}}], LineBox[{{0.7322547875220609, -0.1123243640311328}, { 0.5186585584804091, 0.8593053248965694}}], LineBox[{{0.9199493883542333, 0.11371123935151613`}, { 0.8561063633549687, 0.8059670873270036}}], LineBox[{{0.3588852669422936, 0.6567543755034659}, { 0.8353150076459978, 0.21148487475996636`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.24849464339076108`, 0.29417182439803014`}, { 0.27723215770973786`, 0.9305985349998876}}], LineBox[{{0.4710005191365719, 0.06624140751834437}, { 0.46154737501564425`, 0.9299092081810962}}], LineBox[{{0.7363204729241282, 0.12370012949857703`}, { 0.5274249846898548, 0.7929282569318717}}], LineBox[{{0.9609237632867967, 0.12786440486612302`}, { 0.7630184287606464, 0.8938059513559213}}], LineBox[{{-0.10564032613858865`, 0.6572379966132289}, { 1.03032832487836, 0.4193129767779226}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.26883246309451225`, 0.2099879937224712}, { 0.1056947343591971, 0.721218677632143}}], LineBox[{{0.2266247106339837, 0.10147793125856554`}, { 0.3823382522280717, 0.9403127726255707}}], LineBox[{{0.5476801945761574, 0.06566300948983686}, { 0.7196094643355029, 0.8333645669807792}}], LineBox[{{0.6345997666554299, 0.1533942037546133}, { 0.7133613099764446, 0.8893413610112954}}], LineBox[{{0.1899909624985965, 0.727364611153891}, { 0.8104070308759519, 0.29470863284835297`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.177917127717856, -0.15030252738528063`}, { 0.33351914112756076`, 0.9070818805179772}}], LineBox[{{0.22294323937101793`, -0.09634413561005623}, { 0.4011210884020442, 0.9019624477525944}}], LineBox[{{0.4680792209306674, 0.08262335118400368}, { 0.6179732961388337, 0.963750088419168}}], LineBox[{{0.8064644655593967, 0.022381764038086754`}, { 0.804640318087734, 0.8955246238234791}}], LineBox[{{-0.19365891555549034`, 0.6348367971900846}, { 0.9199745704752866, 0.2825772068265647}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.2859138097754221, 0.16773412367525242`}, { 0.35732307545361547`, 0.9370091738834401}}], LineBox[{{0.32044691193106506`, 0.24383011278846425`}, { 0.22153780769284112`, 0.7065393511870979}}], LineBox[{{0.7181245914444808, 0.16604365066192608`}, { 0.6618891887359535, 0.8782891397551552}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.13419261104599534, 1.120993911927828}, 0.07503695865609865], DiskBox[{0.912056147312235, 0.9443131600199157}, 0.05863599497659903], DiskBox[{0.9658954943932334, 0.05337508504354952}, 0.06905477217400385], DiskBox[{-0.1329345499106985, 0.0984943681983175}, 0.06336224467710286], LineBox[{{-0.03565552958564938, 1.0618576571171952`}, { 0.9119957612880593, 0.7164143471999219}}], LineBox[{{1.024437973051043, 0.8434049942300912}, { 0.9288530828058732, -0.003200689546816196}}], LineBox[{{0.8830093579334883, 0.23240023817762528`}, { 0.09597164561723986, 0.08447068741156086}}], LineBox[{{0.07513328603942239, 0.22925980485915845`}, { 0.16849237308332693`, 0.9737357292846207}}], LineBox[{{0.06625481632092492, 0.9198826330066237}, { 0.9222026509084797, 0.03615111138745082}}], LineBox[{{0.1873663057510747, 0.10224863436588383`}, { 0.9603292574230444, 0.7902697231051659}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{0.06727731391518306, 0.8827421342075106}, 0.06937215990249486], DiskBox[{0.9138795036314985, 0.909068616303488}, 0.06856196539840463], DiskBox[{0.9772240003914888, 0.3790651821468951}, 0.06602204052138169], DiskBox[{0.3918499591658361, 0.2305506911731173}, 0.05292833912589351], LineBox[{{0.15509150032565697`, 0.9186400404506532}, { 0.8988686850877453, 0.7365598719897876}}], LineBox[{{0.9210271431400653, 0.8975797595494337}, { 0.8082420262752098, -0.0009096886558197653}}], LineBox[{{ 0.7658731018475754, -0.12101324083522627`}, {-0.1559663959524247, 0.16761227230883685`}}], LineBox[{{-0.0006552185466763283, 0.05874143143101389}, { 0.05752520908899954, 0.8170216412675971}}], LineBox[{{0.04478909787893671, 0.788963425832184}, { 0.8065282676109676, 0.11508497886764814`}}], LineBox[{{-0.04990333680650261, 0.2007975714104171}, { 0.7985489886428698, 0.9152745888498643}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{-0.041174380035477104, 0.9252017057278878}, 0.06678853511758619], DiskBox[{0.7812181836220303, 1.0065768043970533}, 0.06151644868602333], DiskBox[{0.9514453451501423, 0.1692250102080948}, 0.0651060950478046]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{-0.07147736370578286, 0.8826699950102883}, { 0.9595111166343442, 0.9303345432724592}}], LineBox[{{0.5515555406283269, -0.03342435152045531}, { 0.5587669671309532, 0.94572026937565}}], LineBox[{{0.4680622588184278, 0.5716971444590925}, { 0.5846531669213038, 0.533122774759407}}], LineBox[{{0.075601177021029, 0.3715175087413015}, { 0.5235833990210439, 0.07446196225309913}}], LineBox[{{0.267061869104149, 0.29790483943221585`}, { 0.8015429742116675, 0.2921385675053073}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.04712197150902177, 0.9865375805972086}, { 0.7009757636382744, 0.8652555795701717}}], LineBox[{{0.5582583486138586, 0.0942444230445762}, { 0.5875563891207448, 1.0116806350742609`}}], LineBox[{{0.6141641880547157, 0.6111288851639405}, { 0.8717016787829136, 0.5425818856516413}}], LineBox[{{0.46903535301266575`, 0.4354305608749476}, { 0.2741532056942634, 0.015332340941077272`}}], LineBox[{{0.19533248598804592`, 0.018525827167949482`}, { 0.8957706753784872, 0.13321738133096384`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.0629069379063877, 0.8595554185145855}, { 0.8589332949692164, 0.8033673079370596}}], LineBox[{{0.5908718638820436, 0.05171713256777248}, { 0.513483336137923, 0.888294493701917}}], LineBox[{{0.6306600306309175, 0.5040027265545873}, { 0.8212552763074085, 0.43452872256912806`}}], LineBox[{{0.37148000049465696`, 0.526613697382024}, { 0.08802830090072014, 0.15718629903484715`}}], LineBox[{{0.045097716792669336`, 0.0975542034397403}, { 0.9146558718530683, 0.19174804817086766`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{0.011352194235832225`, 0.919443816833599}, { 0.8169537206942243, 0.9312969809782804}}], LineBox[{{0.4839620266303892, 0.09088140439039323}, { 0.6132793822109166, 0.8825359644901707}}], LineBox[{{0.6444906229860243, 0.47414498524034954`}, { 0.8353447933427276, 0.2479274974241707}}], LineBox[{{0.32206419785879226`, 0.609839266225937}, { 0.1807825162345285, -0.06254009029448576}}], LineBox[{{0.14356749645475378`, 0.28313467218147514`}, { 1.0120650367500241`, -0.058082254263344735`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.1037161429871738, 0.8760564800722014}, { 0.9945408154036711, 0.846015827711435}}], LineBox[{{0.4443577070281862, 0.07751421314088965}, { 0.44773309920614995`, 0.9316433694411459}}], LineBox[{{0.5462382044149353, 0.5512649652378844}, { 0.6012576683423225, 0.6361912077260095}}]}, {5, 0}]}]}, {"0.2`", GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{0.08871610384330443, -0.0882772414742094}, { 0.6256362213956015, 0.8311501805644173}}], LineBox[{{0.5964245228180239, 0.051840057556402704`}, { 0.370738856907005, 1.0960331461606776`}}], LineBox[{{0.5164370286761112, 0.36161524346106577`}, { 0.7883544335007491, 1.056304133374606}}], LineBox[{{0.7932123053408613, 0.02249963761487013}, { 0.7705453828470253, 1.0748045334721348`}}], LineBox[{{0.07361712386932918, 0.657735275889239}, { 1.2145556495484062`, 0.43654665969399675`}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.09189946717150238, 0.2269730006617695}, { 0.38982503422739445`, 0.7398643777027663}}], LineBox[{{0.1368823738651299, 0.3607410141212164}, { 0.38754594877210846`, 0.7494193013457101}}], LineBox[{{0.7841507155017513, 0.022036929873829214`}, { 0.8346906740460052, 0.9302255569764266}}], LineBox[{{0.2361833238012232, 0.12950245567195817`}, { 1.169132304373077, 0.6543349939015775}}], LineBox[{{0.02676800655338671, 0.6103990989843027}, { 0.5458632310460199, 0.3913148512539928}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.39419681725831734`, -0.2733684917722401}, { 0.4816636089074687, 0.7429428004595582}}], LineBox[{{0.642584689349698, -0.16113312043595693`}, { 0.4612812866044874, 0.6020070239334101}}], LineBox[{{0.586764804042801, -0.17715024707620738`}, { 0.8981807622920464, 1.0042906052041791`}}], LineBox[{{0.7683295412223307, -0.14596183125310755`}, { 0.665874520417614, 0.9006725286572504}}], LineBox[{{0.01554014023288465, 0.3054150322549191}, { 1.1026605582223035`, 0.17299679309253355`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{-0.09081253963851876, 0.14408514857577226`}, { 0.5425324896031007, 0.4373512393652705}}], LineBox[{{0.19219500950444654`, -0.10431475664048645`}, { 0.4162154720509866, 0.7110953089309169}}], LineBox[{{0.866591476319756, 0.45050212944259194`}, { 0.3831910677940732, 1.2474858488415657`}}], LineBox[{{0.7531729462800734, 0.11910790256060771`}, { 0.4200735919306765, 1.106335537017219}}], LineBox[{{-0.26886575038902116`, 0.9211345281244727}, { 0.7717857351565918, 0.2754314897385809}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.3861608032491643, 0.6502266156474091}, { 0.050447324552519796`, 1.0206722835979336`}}], LineBox[{{0.33747366338003215`, 0.3210967713604793}, { 0.6752023299472864, 0.8709920661480571}}], LineBox[{{0.6647087160718023, -0.17953092794098244`}, { 0.31454451102455194`, 0.9044850734442264}}]}, {5, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ DiskBox[{0.20712023451407552, 1.0971517036228473}, 0.04875], DiskBox[{0.9988227805429202, 0.8220444224932147}, 0.07270834804733792], DiskBox[{1.1050010772441035, 0.1251430438895108}, 0.09036438132283962], DiskBox[{-0.23783547910755956, 0.043018227727096826}, 0.0845414672093546], LineBox[{{0.3634165205370393, 1.1600223048577623`}, { 0.6833614034394608, 0.9812916558555852}}], LineBox[{{0.9534065706735467, 1.022746641928767}, { 0.8082924158105529, -0.11787089435899134`}}], LineBox[{{0.943935540875487, 0.1899474831700338}, { 0.07055818808626914, 0.026420345114106403`}}], LineBox[{{0.4212303138932977, -0.42596943922205055`}, { 0.04697476677027177, 0.6639799122939373}}], LineBox[{{-0.39144397852397694`, 0.8520851832363833}, { 0.9715000813519595, 0.3256961092219267}}], LineBox[{{0.13664020211815772`, 0.11338069093561759`}, { 0.7725712469987005, 0.8570298453938228}}]}, {1, 0}], GeometricTransformationBox[{ DiskBox[{-0.25329016052753495, 1.0655804036878511}, 0.0856934829767263], DiskBox[{0.5766289997469298, 0.8735408900779206}, 0.04875], DiskBox[{1.32133013888709, 0.048157232039196536}, 0.07469606340497205], DiskBox[{0.416385251179495, 0.35905540110865264}, 0.054245100126616944], LineBox[{{0.25695259639520684`, 0.9918543289480518}, { 0.9679233759816879, 0.9734819030219022}}], LineBox[{{0.7453626701848489, 0.6760589165901529}, { 0.8449594795140515, 0.05074896616382525}}], LineBox[{{ 0.8378580654658044, -0.13426536977543324`}, {-0.07686831845582981, \ -0.10128509581640563`}}], LineBox[{{-0.27699202322563776`, 0.30259555224366896`}, { 0.111991639409771, 0.6491527526591921}}], LineBox[{{-0.05339583675388529, 0.8117811969461959}, { 1.0438490699747824`, -0.033880997365319715`}}], LineBox[{{0.008491627251638531, -0.007641708476454498}, { 0.7568012031785485, 0.709438924600821}}]}, {2, 0}], GeometricTransformationBox[{ DiskBox[{0.23623092471784185, 0.5360259615739954}, 0.06360434199154158], DiskBox[{1.1142272932172972, 0.8960162368256884}, 0.04875], DiskBox[{0.9860467697300358, 0.47348172670874467}, 0.06802657276817488]}, {3, 0}]}], GraphicsBox[{ GeometricTransformationBox[{ LineBox[{{-0.18842231475279073`, 1.1815090069667846`}, { 1.0020998335423248`, 0.7545194774993405}}], LineBox[{{0.24387368363698514`, 0.22661167731174217`}, { 0.7811167617614594, 1.3461535125017843`}}], LineBox[{{0.6435766473646934, 0.6642635561166729}, { 0.6745717590616822, 0.667594787139365}}], LineBox[{{0.2628497834705555, 0.9709490173788122}, { 0.17414353578608172`, 0.09920614313796826}}], LineBox[{{0.38427924302353733`, -0.07172966748311652}, { 1.0978891610838395`, 0.2431484247754749}}]}, {1, 0}], GeometricTransformationBox[{ LineBox[{{0.16909366153152103`, 1.007378584959655}, { 0.8582113882721274, 1.1335401024688307`}}], LineBox[{{0.45453070564083764`, 0.40942950697427327`}, { 0.5455448050189411, 0.7263853578759825}}], LineBox[{{0.027523300267551787`, 0.42618459216628185`}, { 1.1101455666768798`, 0.14729064165144934`}}], LineBox[{{0.5201060435914177, 0.30201983087316164`}, { 0.358065989596736, -0.03900191864030039}}], LineBox[{{-0.18405648605308625`, 0.34657599604597283`}, { 0.6446514884813486, -0.11250577057545993`}}]}, {2, 0}], GeometricTransformationBox[{ LineBox[{{0.024432087607292277`, 0.6403233022041404}, { 0.6781538824951862, 0.5591667780070624}}], LineBox[{{0.2174439665305542, 0.33044584948004374`}, { 0.26342800604776156`, 0.9302691843538983}}], LineBox[{{0.4144726968170037, 0.4528973521012907}, { 0.5588371060742136, 0.7019593488625796}}], LineBox[{{0.5957277220412128, 0.17212389313942428`}, { 0.010775518242082172`, 0.19265306939707405`}}], LineBox[{{0.2378093340809658, 0.03187131202311856}, { 0.6011211409654025, -0.24683178851067186`}}]}, {3, 0}], GeometricTransformationBox[{ LineBox[{{-0.10964646005583195`, 1.0154937099742143`}, { 1.213227155263645, 0.8767393458585573}}], LineBox[{{0.8046925781186092, -0.24790587849254783`}, { 0.3845856158483363, 0.879176228506062}}], LineBox[{{0.5601001457157178, 0.6373879203717713}, { 0.7458055169072086, 0.3864887532537575}}], LineBox[{{0.21343874148512215`, 0.5881589044931377}, { 0.5945025112804156, 0.1966724020273326}}], LineBox[{{0.2489331615247217, 0.3148426224423301}, { 0.8546957398432852, 0.32733086295734876`}}]}, {4, 0}], GeometricTransformationBox[{ LineBox[{{0.10877623057375321`, 1.043215578468045}, { 0.9206367841654076, 0.4757814421195901}}], LineBox[{{0.5431057685672889, -0.17792083339515216`}, { 0.5127982136323825, 1.2850917066153258`}}], LineBox[{{0.5987663008729012, 0.4013494606350533}, { 0.624896464012659, 0.42001578237622483`}}]}, {5, 0}]}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473816447133*^9, 3.7674738357902803`*^9}, 3.7674788513498697`*^9, 3.767480290196145*^9, 3.767568069815037*^9, 3.768149162566835*^9, 3.768152170082402*^9, 3.768476968775255*^9, 3.768478434731942*^9, 3.7695386732290373`*^9, 3.769538960886383*^9, { 3.860857645141176*^9, 3.8608577127067947`*^9}, {3.860857750762438*^9, 3.860857815518066*^9}, 3.860857926709927*^9, 3.860857976613125*^9, 3.860858036441246*^9}, CellLabel->"Out[657]=", CellID->47927501] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Sander Huisman", "Text", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["tally marks", "Item", CellID->123310895], Cell["hash marks", "Item", CellID->395371633], Cell["tallying", "Item", CellID->856958742] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[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["Just For Fun", {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[False, {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Social, Cultural & Linguistic Data", { False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj8FKA0EMhkGt3ZXi2ePgwZP7EMu2K5VCpZHe02naDp2dGSbJYX16ZxFETwn8X/\ jztVUDM5DRE9xvVZJKA/PuQvZKx9Mt320cCyzelcX0MZteAzxDtA79q+\ nUi2b05sVsXDhrQZ01SxSEp71jRe++\ UFwMBXjLmC7OcmlbCw3MdasShxLbBqqPHBNlGeGhQ6FzzI4KOd+m6ZpPNz9/\ THOnnrhaHZ3goWyzHj3Tb1AvydPfZJKJXofwv/BxHYRyyoWdGqBuwwh6YCr2ix1x1Gzpc0wEVTG2E/\ MNyJ1nMQ=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->610305000] }, 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["Tally", "Item", CellID->609279010] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["TallyBy", "Item", CellID->588429624], Cell["MetaTally", "Item", CellID->325301315] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"TallyMarks | 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.861196911427262`16.339296939285855*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.861196911484912`16.339296939292343*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (February 4, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (February 4, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"6d16f42b-6b61-4ed9-88df-a1fd9c314f85", CellTags->{"Name", "TemplateCell", "Title"}, CellID->654377294]}, "TemplateCell"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"6d16f42b-6b61-4ed9-88df-a1fd9c314f85", CellTags->{"Name", "TemplateCell", "Title"}, CellID->654377294], Cell[722, 27, 132, 2, 70, "Text",ExpressionUUID->"b93f96a6-3678-4df4-900b-cac4922cbe09", CellTags->{"Description", "TemplateCell"}, CellID->706433968]}, "Title"->{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"6d16f42b-6b61-4ed9-88df-a1fd9c314f85", CellTags->{"Name", "TemplateCell", "Title"}, CellID->654377294]}, "Description"->{ Cell[722, 27, 132, 2, 70, "Text",ExpressionUUID->"b93f96a6-3678-4df4-900b-cac4922cbe09", CellTags->{"Description", "TemplateCell"}, CellID->706433968]}, "Definition"->{ Cell[879, 33, 1206, 29, 70, "Section",ExpressionUUID->"45149b73-a1ee-41bd-9b52-b94c3e0d1903", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[879, 33, 1206, 29, 70, "Section",ExpressionUUID->"45149b73-a1ee-41bd-9b52-b94c3e0d1903", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[879, 33, 1206, 29, 70, "Section",ExpressionUUID->"45149b73-a1ee-41bd-9b52-b94c3e0d1903", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[18730, 550, 1980, 50, 70, "Subsection",ExpressionUUID->"70aabb90-9796-4c5f-95ba-1e4dc2db65da", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[21985, 664, 1429, 32, 70, "Subsection",ExpressionUUID->"71b6c0f1-3933-422d-acff-fe2293c0e271", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[28783, 866, 7029, 152, 70, "Section",ExpressionUUID->"6f0700d3-8b79-4361-86d1-d99b283c489c", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[150262, 3166, 1026, 26, 70, "Subsection",ExpressionUUID->"541e8061-c173-4fe4-87ca-8cbadcceeea7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[151378, 3200, 996, 26, 70, "Subsection",ExpressionUUID->"45706e4c-ba62-435b-b950-576e8d3f9969", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[152557, 3240, 221, 6, 70, "Subsection",ExpressionUUID->"7e82417f-e70f-4392-be42-b929cafba6e8", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[181562, 4229, 980, 26, 70, "Subsection",ExpressionUUID->"7f4fd1ea-d227-469f-a041-80d84a73669e", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[182623, 4263, 1039, 26, 70, "Subsection",ExpressionUUID->"ed9823e7-f10e-4223-9110-0a820fb9f942", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[183793, 4300, 1084, 26, 70, "Subsection",ExpressionUUID->"697287cf-75aa-48e6-9703-ce0be90cf693", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[185433, 4341, 923, 26, 70, "Subsection",ExpressionUUID->"17ccfd83-deb9-445f-92c2-9fce4a9f2a8c", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[186901, 4382, 1874, 45, 70, "Subsection",ExpressionUUID->"a449540c-8117-43ed-b015-29551bebf9e6", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[189132, 4448, 955, 25, 70, "Subsection",ExpressionUUID->"014b77a6-ddaf-4e87-b06b-3a61001ebb0e", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[190112, 4477, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c345d4f6-38c0-468b-b85d-1f937766ead4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[191415, 4517, 1113, 29, 70, "Subsubsection",ExpressionUUID->"2f0cf066-db50-4360-91ed-2e1a2fe748fb", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[193889, 4593, 1280, 33, 70, "Subsubsection",ExpressionUUID->"52a54caf-d107-4257-8e5f-d64e327f31fa", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[196574, 4674, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4fb81ca5-47dc-4863-970b-d88e8517bf69", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[201423, 4810, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4f9b4618-5342-4fde-ae1f-0bc754fbc703", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[203496, 4874, 1155, 28, 70, "Section",ExpressionUUID->"bec9e517-00d3-42c9-b016-7c1d3538c4d1", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[205220, 4917, 1033, 26, 70, "Section",ExpressionUUID->"fe6233fe-4ce2-4a35-9046-2a27c3995039", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[18510, 541, 195, 5, 70, "Section",ExpressionUUID->"bc792fe0-00ce-4fd9-83c3-41b59bfd30da", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[18510, 541, 195, 5, 70, "Section",ExpressionUUID->"bc792fe0-00ce-4fd9-83c3-41b59bfd30da", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[149988, 3157, 249, 5, 70, "Section",ExpressionUUID->"09728f9d-2755-4bfd-9098-4cffa2d800ae", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[18730, 550, 1980, 50, 70, "Subsection",ExpressionUUID->"70aabb90-9796-4c5f-95ba-1e4dc2db65da", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[21985, 664, 1429, 32, 70, "Subsection",ExpressionUUID->"71b6c0f1-3933-422d-acff-fe2293c0e271", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[21985, 664, 1429, 32, 70, "Subsection",ExpressionUUID->"71b6c0f1-3933-422d-acff-fe2293c0e271", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[23417, 698, 236, 9, 70, "Notes",ExpressionUUID->"dc84e8d5-336a-4d26-b35f-f92fa3812b7a", CellTags->"TabNext", CellID->626580324], Cell[184880, 4328, 516, 8, 70, "Text",ExpressionUUID->"338f256f-b9e8-4c9f-8bb9-d614f4913a1f", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[186359, 4369, 505, 8, 70, "Item",ExpressionUUID->"c3830792-82d3-49cc-a290-e55eb6795e86", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[204654, 4904, 529, 8, 70, "Text",ExpressionUUID->"d7a8cec8-a190-4960-9866-2ca461fa2c0f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[206256, 4945, 515, 8, 70, "Text",ExpressionUUID->"8506ba3a-e139-48a9-9d14-dd4e227d098a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[28783, 866, 7029, 152, 70, "Section",ExpressionUUID->"6f0700d3-8b79-4361-86d1-d99b283c489c", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "DefaultContent"->{ Cell[80030, 1853, 97, 3, 70, "Subsection",ExpressionUUID->"69221c7b-ac8a-4568-bce3-e821ee8e5c84", CellTags->"DefaultContent", CellID->859239780], Cell[184880, 4328, 516, 8, 70, "Text",ExpressionUUID->"338f256f-b9e8-4c9f-8bb9-d614f4913a1f", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[186359, 4369, 505, 8, 70, "Item",ExpressionUUID->"c3830792-82d3-49cc-a290-e55eb6795e86", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[188800, 4431, 158, 5, 70, "Input",ExpressionUUID->"8799de12-4c46-42d9-ae7e-b98dcb1490f4", CellTags->"DefaultContent", CellID->946203791], Cell[188961, 4438, 122, 4, 70, "Output",ExpressionUUID->"3e112ac9-ac6a-467f-add2-f1e7c1297ae1", CellTags->"DefaultContent", CellID->168370258], Cell[191289, 4510, 89, 2, 70, "Text",ExpressionUUID->"e640fbe5-4508-4e8e-8741-66a0e2b2a1f4", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[204654, 4904, 529, 8, 70, "Text",ExpressionUUID->"d7a8cec8-a190-4960-9866-2ca461fa2c0f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[206256, 4945, 515, 8, 70, "Text",ExpressionUUID->"8506ba3a-e139-48a9-9d14-dd4e227d098a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source & Additional Information"->{ Cell[149988, 3157, 249, 5, 70, "Section",ExpressionUUID->"09728f9d-2755-4bfd-9098-4cffa2d800ae", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[150262, 3166, 1026, 26, 70, "Subsection",ExpressionUUID->"541e8061-c173-4fe4-87ca-8cbadcceeea7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[150262, 3166, 1026, 26, 70, "Subsection",ExpressionUUID->"541e8061-c173-4fe4-87ca-8cbadcceeea7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[151378, 3200, 996, 26, 70, "Subsection",ExpressionUUID->"45706e4c-ba62-435b-b950-576e8d3f9969", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[152557, 3240, 221, 6, 70, "Subsection",ExpressionUUID->"7e82417f-e70f-4392-be42-b929cafba6e8", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[152781, 3248, 28744, 976, 70, "Output",ExpressionUUID->"cfef5472-2c44-4fda-8255-848faaa6782a", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->610305000]}, "Categories-Checkboxes"->{ Cell[152781, 3248, 28744, 976, 70, "Output",ExpressionUUID->"cfef5472-2c44-4fda-8255-848faaa6782a", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->610305000]}, "CheckboxCell"->{ Cell[152781, 3248, 28744, 976, 70, "Output",ExpressionUUID->"cfef5472-2c44-4fda-8255-848faaa6782a", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->610305000], Cell[192531, 4548, 1321, 40, 70, "Output",ExpressionUUID->"88a4e98e-3f39-419d-8589-fd3fdceff0fc", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[195172, 4628, 1365, 41, 70, "Output",ExpressionUUID->"d66d2b7e-84e8-4498-ae76-514f30d81dc1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[198490, 4722, 2896, 83, 70, "Output",ExpressionUUID->"03e1b7db-f48d-459b-b75a-2cab8e8e0021", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[202497, 4839, 938, 28, 70, "Output",ExpressionUUID->"083bed0b-846c-48d0-af6d-a03e24b187b9", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[181562, 4229, 980, 26, 70, "Subsection",ExpressionUUID->"7f4fd1ea-d227-469f-a041-80d84a73669e", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[182623, 4263, 1039, 26, 70, "Subsection",ExpressionUUID->"ed9823e7-f10e-4223-9110-0a820fb9f942", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[183793, 4300, 1084, 26, 70, "Subsection",ExpressionUUID->"697287cf-75aa-48e6-9703-ce0be90cf693", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[185433, 4341, 923, 26, 70, "Subsection",ExpressionUUID->"17ccfd83-deb9-445f-92c2-9fce4a9f2a8c", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[186901, 4382, 1874, 45, 70, "Subsection",ExpressionUUID->"a449540c-8117-43ed-b015-29551bebf9e6", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[186901, 4382, 1874, 45, 70, "Subsection",ExpressionUUID->"a449540c-8117-43ed-b015-29551bebf9e6", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[189132, 4448, 955, 25, 70, "Subsection",ExpressionUUID->"014b77a6-ddaf-4e87-b06b-3a61001ebb0e", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[190112, 4477, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c345d4f6-38c0-468b-b85d-1f937766ead4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[190112, 4477, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c345d4f6-38c0-468b-b85d-1f937766ead4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[191289, 4510, 89, 2, 70, "Text",ExpressionUUID->"e640fbe5-4508-4e8e-8741-66a0e2b2a1f4", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[191415, 4517, 1113, 29, 70, "Subsubsection",ExpressionUUID->"2f0cf066-db50-4360-91ed-2e1a2fe748fb", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[192531, 4548, 1321, 40, 70, "Output",ExpressionUUID->"88a4e98e-3f39-419d-8589-fd3fdceff0fc", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[191415, 4517, 1113, 29, 70, "Subsubsection",ExpressionUUID->"2f0cf066-db50-4360-91ed-2e1a2fe748fb", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[192531, 4548, 1321, 40, 70, "Output",ExpressionUUID->"88a4e98e-3f39-419d-8589-fd3fdceff0fc", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[193889, 4593, 1280, 33, 70, "Subsubsection",ExpressionUUID->"52a54caf-d107-4257-8e5f-d64e327f31fa", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[195172, 4628, 1365, 41, 70, "Output",ExpressionUUID->"d66d2b7e-84e8-4498-ae76-514f30d81dc1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[193889, 4593, 1280, 33, 70, "Subsubsection",ExpressionUUID->"52a54caf-d107-4257-8e5f-d64e327f31fa", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[195172, 4628, 1365, 41, 70, "Output",ExpressionUUID->"d66d2b7e-84e8-4498-ae76-514f30d81dc1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[196574, 4674, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4fb81ca5-47dc-4863-970b-d88e8517bf69", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[198490, 4722, 2896, 83, 70, "Output",ExpressionUUID->"03e1b7db-f48d-459b-b75a-2cab8e8e0021", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[196574, 4674, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4fb81ca5-47dc-4863-970b-d88e8517bf69", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[198490, 4722, 2896, 83, 70, "Output",ExpressionUUID->"03e1b7db-f48d-459b-b75a-2cab8e8e0021", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[201423, 4810, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4f9b4618-5342-4fde-ae1f-0bc754fbc703", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[201423, 4810, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4f9b4618-5342-4fde-ae1f-0bc754fbc703", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[202497, 4839, 938, 28, 70, "Output",ExpressionUUID->"083bed0b-846c-48d0-af6d-a03e24b187b9", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[202497, 4839, 938, 28, 70, "Output",ExpressionUUID->"083bed0b-846c-48d0-af6d-a03e24b187b9", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[203496, 4874, 1155, 28, 70, "Section",ExpressionUUID->"bec9e517-00d3-42c9-b016-7c1d3538c4d1", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[205220, 4917, 1033, 26, 70, "Section",ExpressionUUID->"fe6233fe-4ce2-4a35-9046-2a27c3995039", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 330178, 7296}, {"TemplateCell", 330360, 7300}, {"Title", 330695, 7307}, {"Description", 330876, 7311}, {"Definition", 331054, 7315}, {"Function", 331250, 7319}, {"TemplateCellGroup", 331455, 7323}, {"Documentation", 335309, 7384}, {"TemplateSection", 335503, 7388}, {"Usage", 335878, 7395}, {"Details & Options", 336073, 7399}, {"Notes", 336277, 7403}, {"TabNext", 336483, 7407}, {"Examples", 337293, 7423}, {"DefaultContent", 337486, 7427}, {"Source & Additional Information", 338802, 7452}, {"Contributed By", 339015, 7456}, {"ContributorInformation", 339251, 7460}, {"Keywords", 339473, 7464}, {"Categories", 339665, 7468}, {"Categories-Checkboxes", 340064, 7475}, {"CheckboxCell", 340279, 7479}, {"Related Symbols", 341402, 7495}, {"Related Resource Objects", 341615, 7499}, {"Source/Reference Citation", 341839, 7503}, {"Links", 342044, 7507}, {"Tests", 342228, 7511}, {"VerificationTests", 342446, 7515}, {"Compatibility", 342660, 7519}, {"CompatibilityWolframLanguageVersionRequired", 342890, 7523}, {"Wolfram Language Version", 343163, 7527}, {"ScrapeDefault", 343425, 7531}, {"CompatibilityOperatingSystem", 343629, 7535}, {"Operating System", 344099, 7542}, {"CompatibilityOperatingSystem-Checkboxes", 344364, 7546}, {"CompatibilityFeatures", 344621, 7550}, {"Required Features", 345073, 7557}, {"CompatibilityFeatures-Checkboxes", 345325, 7561}, {"CompatibilityEvaluationEnvironment", 345582, 7565}, {"Environments", 346062, 7572}, {"CompatibilityEvaluationEnvironment-Checkboxes", 346335, 7576}, {"Cloud Support", 346596, 7580}, {"CompatibilityCloudSupport", 346841, 7584}, {"CompatibilityCloudSupport-Checkboxes", 347319, 7591}, {"Author Notes", 347561, 7595}, {"Submission Notes", 347761, 7599} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 93, 2, 70, "Title",ExpressionUUID->"6d16f42b-6b61-4ed9-88df-a1fd9c314f85", CellTags->{"Name", "TemplateCell", "Title"}, CellID->654377294], Cell[722, 27, 132, 2, 70, "Text",ExpressionUUID->"b93f96a6-3678-4df4-900b-cac4922cbe09", CellTags->{"Description", "TemplateCell"}, CellID->706433968], Cell[CellGroupData[{ Cell[879, 33, 1206, 29, 70, "Section",ExpressionUUID->"45149b73-a1ee-41bd-9b52-b94c3e0d1903", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2088, 64, 16385, 472, 70, "Input",ExpressionUUID->"e243f92d-7ff2-431b-9047-8693c9e3737b", CellID->781439609] }, Open ]], Cell[CellGroupData[{ Cell[18510, 541, 195, 5, 70, "Section",ExpressionUUID->"bc792fe0-00ce-4fd9-83c3-41b59bfd30da", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[18730, 550, 1980, 50, 70, "Subsection",ExpressionUUID->"70aabb90-9796-4c5f-95ba-1e4dc2db65da", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[20735, 604, 140, 4, 70, "UsageInputs",ExpressionUUID->"fca5a43b-e4fc-400e-85df-55a29806e0d4", CellID->656321099], Cell[20878, 610, 200, 7, 70, "UsageDescription",ExpressionUUID->"5c931560-fd44-4caf-a38e-cf228f254525", CellID->5614454] }, Open ]], Cell[CellGroupData[{ Cell[21115, 622, 187, 6, 70, "UsageInputs",ExpressionUUID->"1f252243-3bd5-4a85-92b8-8854e71e561c", CellID->837090091], Cell[21305, 630, 182, 7, 70, "UsageDescription",ExpressionUUID->"36ed5b35-19d3-40e9-9a27-d920f7d96db2", CellID->945131856] }, Open ]], Cell[CellGroupData[{ Cell[21524, 642, 217, 7, 70, "UsageInputs",ExpressionUUID->"48308b33-f0f8-4e2e-a56b-c939423f27c8", CellID->198395678], Cell[21744, 651, 192, 7, 70, "UsageDescription",ExpressionUUID->"8d8a0dfb-3a79-440a-940f-d991a80c82cf", CellID->566449076] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21985, 664, 1429, 32, 70, "Subsection",ExpressionUUID->"71b6c0f1-3933-422d-acff-fe2293c0e271", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[23417, 698, 236, 9, 70, "Notes",ExpressionUUID->"dc84e8d5-336a-4d26-b35f-f92fa3812b7a", CellTags->"TabNext", CellID->626580324], Cell[23656, 709, 90, 2, 70, "Notes",ExpressionUUID->"6c324af8-3d94-44a1-8ea6-040b257ab14d", CellID->412202905], Cell[23749, 713, 673, 17, 70, "TableNotes",ExpressionUUID->"e6e85009-5113-4927-bc53-36f4f8d3d3de", CellID->428263531], Cell[24425, 732, 1265, 40, 70, "Notes",ExpressionUUID->"4f73b641-cf79-4aa6-9c87-015e7bced4c9", CellID->50325076], Cell[25693, 774, 245, 7, 70, "Notes",ExpressionUUID->"28fda463-7c7c-4ae5-8c23-812641aa63d6", CellID->629908824], Cell[25941, 783, 939, 24, 70, "TableNotes",ExpressionUUID->"f0db15e9-97c9-49c3-a39b-632e6e459490", CellID->561644267], Cell[26883, 809, 168, 3, 70, "Notes",ExpressionUUID->"14dc1946-2cc8-4a88-9f00-dacf03e5c736", CellID->949800178], Cell[27054, 814, 1680, 46, 70, "TableNotes",ExpressionUUID->"7bc32d58-79ed-4b5a-a5c7-11124f007212", CellID->349781227] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28783, 866, 7029, 152, 70, "Section",ExpressionUUID->"6f0700d3-8b79-4361-86d1-d99b283c489c", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[35837, 1022, 75, 2, 70, "Subsection",ExpressionUUID->"01a69e5b-1fc6-4a91-b3c9-f8f5266a4799", CellID->904125756], Cell[35915, 1026, 147, 3, 70, "Text",ExpressionUUID->"30cdcae0-30b8-4bd1-a6b9-316c4d7df9a5", CellID->30134928], Cell[CellGroupData[{ Cell[36087, 1033, 486, 9, 70, "Input",ExpressionUUID->"ea150e7b-5bb5-468b-a73e-aecf1b962ed7", CellID->978783858], Cell[36576, 1044, 2377, 40, 70, "Output",ExpressionUUID->"98dca28d-9e67-43e3-b20c-dccab19af881", CellID->787655094] }, Open ]], Cell[CellGroupData[{ Cell[38990, 1089, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b4286f1f-b064-479b-8863-3b1192e7b098", CellID->14107562], Cell[39136, 1095, 166, 3, 70, "Text",ExpressionUUID->"db0722e5-7ae4-4058-89c8-e26c30336a5e", CellID->89905735], Cell[CellGroupData[{ Cell[39327, 1102, 330, 8, 70, "Input",ExpressionUUID->"5c37dd71-8e32-44e8-a07e-221ebbcb9c09", CellID->69267654], Cell[39660, 1112, 2117, 31, 70, "Output",ExpressionUUID->"10177a5e-c755-47a2-aed3-62e29d5c57c5", CellID->257177312] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41826, 1149, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"fe5380cd-32f1-4253-82fa-9858cdd3da69", CellID->14107563], Cell[41972, 1155, 162, 3, 70, "Text",ExpressionUUID->"c61712c3-ca09-434e-8fb0-5f14a06f90d1", CellID->264189357], Cell[CellGroupData[{ Cell[42159, 1162, 341, 8, 70, "Input",ExpressionUUID->"55a64ee0-7bcd-4116-8553-dd97805408fb", CellID->681393188], Cell[42503, 1172, 2147, 32, 70, "Output",ExpressionUUID->"332381d9-2557-4907-84ab-9beccd5b5ff2", CellID->137992636] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44711, 1211, 66, 2, 70, "Subsection",ExpressionUUID->"0b63e03a-2a6a-4b18-b95a-ca4e21cb0d1d", CellID->204653245], Cell[44780, 1215, 226, 4, 70, "Text",ExpressionUUID->"01d5fb64-d494-468c-82a9-d51acfcd8031", CellID->188522981], Cell[CellGroupData[{ Cell[45031, 1223, 762, 23, 70, "Input",ExpressionUUID->"23630a60-5c37-4808-bbfc-db05596c4e75", CellID->361583626], Cell[45796, 1248, 11080, 215, 70, "Output",ExpressionUUID->"6e7a83fb-48ac-4627-81ce-61f877ae1a11", CellID->478786597] }, Open ]], Cell[CellGroupData[{ Cell[56913, 1468, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3e3c2d34-73a2-41b0-98c7-6e1aff666a5c", CellID->14107564], Cell[57059, 1474, 212, 4, 70, "Text",ExpressionUUID->"6ce97e9f-5860-4f9b-ac03-7e846a8a6421", CellID->994438999], Cell[CellGroupData[{ Cell[57296, 1482, 290, 7, 70, "Input",ExpressionUUID->"a62be835-bd85-40f0-a21c-2387154af9c4", CellID->915159858], Cell[57589, 1491, 1816, 31, 70, "Output",ExpressionUUID->"949b8faa-f089-4585-8f09-e81e04812ade", CellID->940488739] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59454, 1528, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1a6b15ed-5cc4-4247-a2d1-06d4b0999f3d", CellID->14107565], Cell[59600, 1534, 212, 4, 70, "Text",ExpressionUUID->"67dcf4ef-8ba7-41ef-a6eb-ee990cb2f779", CellID->141061331], Cell[CellGroupData[{ Cell[59837, 1542, 241, 6, 70, "Input",ExpressionUUID->"5886d847-be43-4ade-a1c4-45d3b5b0114b", CellID->904658309], Cell[60081, 1550, 3491, 58, 70, "Output",ExpressionUUID->"fa367736-c3ae-427c-a621-c323b5e3ff5e", CellID->542314893] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63621, 1614, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"7877bf04-c610-463c-8ec2-915d2252a691", CellID->14107566], Cell[63767, 1620, 208, 4, 70, "Text",ExpressionUUID->"79418dfa-2a36-4e4d-9648-9ab259620e5a", CellID->834681338], Cell[CellGroupData[{ Cell[64000, 1628, 250, 6, 70, "Input",ExpressionUUID->"d7e8f743-4ae6-4a8d-bba4-91a77df2c2fa", CellID->172568284], Cell[64253, 1636, 15716, 210, 70, "Output",ExpressionUUID->"1caba55b-5688-4815-b09a-20d31274392a", CellID->230565354] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[80030, 1853, 97, 3, 70, "Subsection",ExpressionUUID->"69221c7b-ac8a-4568-bce3-e821ee8e5c84", CellTags->"DefaultContent", CellID->859239780], Cell[CellGroupData[{ Cell[80152, 1860, 282, 5, 70, "Subsubsection",ExpressionUUID->"4bc4f8fc-376e-430c-9df5-f80bdd5fcd8c", CellID->348568699], Cell[80437, 1867, 204, 4, 70, "Text",ExpressionUUID->"0fdb2190-49a8-4b31-9834-e94aec166497", CellID->209661656], Cell[CellGroupData[{ Cell[80666, 1875, 261, 7, 70, "Input",ExpressionUUID->"b41dcdf6-eea9-4ac4-9fd8-0a6c551bf600", CellID->260099429], Cell[80930, 1884, 2991, 57, 70, "Output",ExpressionUUID->"44ebb26b-1231-4ae1-b477-04fadfea71bc", CellID->241104556] }, Open ]], Cell[83936, 1944, 204, 4, 70, "Text",ExpressionUUID->"36172547-6a38-4324-93cf-34e046738053", CellID->194488193], Cell[CellGroupData[{ Cell[84165, 1952, 1593, 38, 70, "Input",ExpressionUUID->"d137c9b0-7181-45c1-b987-fc49c109f815", CellID->934692661], Cell[85761, 1992, 64154, 1157, 70, "Output",ExpressionUUID->"0d06f377-612a-4e8e-9f90-d6fbb2a29453", CellID->47927501] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[149988, 3157, 249, 5, 70, "Section",ExpressionUUID->"09728f9d-2755-4bfd-9098-4cffa2d800ae", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[150262, 3166, 1026, 26, 70, "Subsection",ExpressionUUID->"541e8061-c173-4fe4-87ca-8cbadcceeea7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[151291, 3194, 50, 1, 70, "Text",ExpressionUUID->"41b3da4c-6e86-4be2-aa2c-aa78434edf35", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[151378, 3200, 996, 26, 70, "Subsection",ExpressionUUID->"45706e4c-ba62-435b-b950-576e8d3f9969", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[152377, 3228, 47, 1, 70, "Item",ExpressionUUID->"47e6e72f-f5b5-41af-a8b7-e7e12c1eae84", CellID->123310895], Cell[152427, 3231, 46, 1, 70, "Item",ExpressionUUID->"8b66210c-bca9-4bb7-a364-20e6cc129d3a", CellID->395371633], Cell[152476, 3234, 44, 1, 70, "Item",ExpressionUUID->"f8be0980-5216-4e5e-8499-73838137f301", CellID->856958742] }, Open ]], Cell[CellGroupData[{ Cell[152557, 3240, 221, 6, 70, "Subsection",ExpressionUUID->"7e82417f-e70f-4392-be42-b929cafba6e8", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[152781, 3248, 28744, 976, 70, "Output",ExpressionUUID->"cfef5472-2c44-4fda-8255-848faaa6782a", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->610305000] }, Open ]], Cell[CellGroupData[{ Cell[181562, 4229, 980, 26, 70, "Subsection",ExpressionUUID->"7f4fd1ea-d227-469f-a041-80d84a73669e", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[182545, 4257, 41, 1, 70, "Item",ExpressionUUID->"57ede48f-9dbe-49f1-a5b0-1b5942b31b31", CellID->609279010] }, Open ]], Cell[CellGroupData[{ Cell[182623, 4263, 1039, 26, 70, "Subsection",ExpressionUUID->"ed9823e7-f10e-4223-9110-0a820fb9f942", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[183665, 4291, 43, 1, 70, "Item",ExpressionUUID->"90833a65-fbf8-493b-b330-9b6fba93ea84", CellID->588429624], Cell[183711, 4294, 45, 1, 70, "Item",ExpressionUUID->"2f617e41-c6ce-487d-8939-f42151cd45e0", CellID->325301315] }, Open ]], Cell[CellGroupData[{ Cell[183793, 4300, 1084, 26, 70, "Subsection",ExpressionUUID->"697287cf-75aa-48e6-9703-ce0be90cf693", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[184880, 4328, 516, 8, 70, "Text",ExpressionUUID->"338f256f-b9e8-4c9f-8bb9-d614f4913a1f", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[185433, 4341, 923, 26, 70, "Subsection",ExpressionUUID->"17ccfd83-deb9-445f-92c2-9fce4a9f2a8c", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[186359, 4369, 505, 8, 70, "Item",ExpressionUUID->"c3830792-82d3-49cc-a290-e55eb6795e86", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[186901, 4382, 1874, 45, 70, "Subsection",ExpressionUUID->"a449540c-8117-43ed-b015-29551bebf9e6", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[188800, 4431, 158, 5, 70, "Input",ExpressionUUID->"8799de12-4c46-42d9-ae7e-b98dcb1490f4", CellTags->"DefaultContent", CellID->946203791], Cell[188961, 4438, 122, 4, 70, "Output",ExpressionUUID->"3e112ac9-ac6a-467f-add2-f1e7c1297ae1", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[189132, 4448, 955, 25, 70, "Subsection",ExpressionUUID->"014b77a6-ddaf-4e87-b06b-3a61001ebb0e", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[190112, 4477, 1174, 31, 70, "Subsubsection",ExpressionUUID->"c345d4f6-38c0-468b-b85d-1f937766ead4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[191289, 4510, 89, 2, 70, "Text",ExpressionUUID->"e640fbe5-4508-4e8e-8741-66a0e2b2a1f4", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[191415, 4517, 1113, 29, 70, "Subsubsection",ExpressionUUID->"2f0cf066-db50-4360-91ed-2e1a2fe748fb", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[192531, 4548, 1321, 40, 70, "Output",ExpressionUUID->"88a4e98e-3f39-419d-8589-fd3fdceff0fc", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[193889, 4593, 1280, 33, 70, "Subsubsection",ExpressionUUID->"52a54caf-d107-4257-8e5f-d64e327f31fa", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[195172, 4628, 1365, 41, 70, "Output",ExpressionUUID->"d66d2b7e-84e8-4498-ae76-514f30d81dc1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[196574, 4674, 1913, 46, 70, "Subsubsection",ExpressionUUID->"4fb81ca5-47dc-4863-970b-d88e8517bf69", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[198490, 4722, 2896, 83, 70, "Output",ExpressionUUID->"03e1b7db-f48d-459b-b75a-2cab8e8e0021", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[201423, 4810, 1071, 27, 70, "Subsubsection",ExpressionUUID->"4f9b4618-5342-4fde-ae1f-0bc754fbc703", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[202497, 4839, 938, 28, 70, "Output",ExpressionUUID->"083bed0b-846c-48d0-af6d-a03e24b187b9", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[203496, 4874, 1155, 28, 70, "Section",ExpressionUUID->"bec9e517-00d3-42c9-b016-7c1d3538c4d1", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[204654, 4904, 529, 8, 70, "Text",ExpressionUUID->"d7a8cec8-a190-4960-9866-2ca461fa2c0f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[205220, 4917, 1033, 26, 70, "Section",ExpressionUUID->"fe6233fe-4ce2-4a35-9046-2a27c3995039", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[206256, 4945, 515, 8, 70, "Text",ExpressionUUID->"8506ba3a-e139-48a9-9d14-dd4e227d098a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)