(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 215435, 4770] NotebookOptionsPosition[ 90895, 2346] NotebookOutlinePosition[ 204176, 4519] CellTagsIndexPosition[ 203225, 4488] WindowTitle->CistercianNumberEncode | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["CistercianNumberEncode", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->266986481], Cell["\<\ Encode a number according to the system devised by Cistercian monks\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->672088670], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Definition", 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"CistercianNumberEncodeHelper", ",", "CistercianNumberEncode"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "=", "0.25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "0", "]"}], ":=", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "1", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "2", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "3", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "4", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "5", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "6", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "7", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "8", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", "9", "]"}], ":=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "\[Delta]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CistercianNumberEncode", "::", "nnarg"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CistercianNumberEncode", "[", "n_Integer", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "digs", "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"0", "\[LessEqual]", "n", "\[LessEqual]", "9999"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"digs", "=", RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "10", ",", "4"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CistercianNumberEncodeHelper", "[", RowBox[{"digs", "[", RowBox[{"[", "4", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", RowBox[{"digs", "[", RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", RowBox[{"ReflectionTransform", "[", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", RowBox[{"digs", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", RowBox[{"ReflectionTransform", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"CistercianNumberEncodeHelper", "[", RowBox[{"digs", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", RowBox[{"RotationTransform", "[", RowBox[{"Pi", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1.5"}], "\[Delta]"}], ",", RowBox[{"1.5", "\[Delta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", "-", RowBox[{"0.5", "\[Delta]"}]}], ",", RowBox[{"1", "+", RowBox[{"0.5", "\[Delta]"}]}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "50"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Message", "[", RowBox[{ RowBox[{"CistercianNumberEncode", "::", "nnarg"}], ",", "n"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{ 3.814817360260323*^9, {3.8148182510605497`*^9, 3.814818285189303*^9}}, CellLabel->"In[1]:=", CellID->197232240] }, Open ]], Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->"Documentation", CellID->475424634], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "[", StyleBox["n", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->948196814], Cell[TextData[{ "encodes the number ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to the Cisterian number system." }], "UsageDescription", CellID->67610096] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Details & Options", 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell["Only works for integer numbers from 0 to 9999.", "Notes", CellTags->"TabNext", CellID->913372777], Cell[TextData[{ "The output of ", Cell[BoxData["CistercianNumberEncode"], "InlineFormula", FontFamily->"Source Sans Pro"], " is a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "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/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object." }], "Notes", CellID->151579978] }, 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.2863], 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.2863], 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.2863], 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.2863], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.8164272507935247`*^9, 3.816427254325131*^9}}, CellID->904125756], Cell["Encode the number 1987 to the Cistercian number system:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818174818647*^9, 3.814818208808382*^9}, { 3.814818782647772*^9, 3.814818791911521*^9}}, CellID->733488227], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "[", "1987", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8148182162676973`*^9, 3.81481824255324*^9}}, CellLabel->"In[15]:=", CellID->31355493], Cell[BoxData[ GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{1, 0}, { 0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8148182180662394`*^9, 3.8148182909846354`*^9, 3.814818794962818*^9, 3.814818876596542*^9}, CellLabel->"Out[15]=", CellID->726454021] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.8164272907974443`*^9, 3.816427291675042*^9}}, CellID->204653245], Cell["Show the digits 0\[Dash]9:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818299829729*^9, 3.8148183062621727`*^9}, { 3.8160196920146923`*^9, 3.816019692892604*^9}}, CellID->207266895], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "9"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814818225808428*^9, 3.814818239489347*^9}, { 3.81481830769783*^9, 3.81481831630135*^9}, {3.814818730035193*^9, 3.814818735187635*^9}}, CellLabel->"In[16]:=", CellID->962524343], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 0.75}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.814818312110091*^9, 3.8148183167709312`*^9}, 3.814818736923172*^9, 3.814818878380443*^9}, CellLabel->"Out[16]=", CellID->96232104] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Show the digits 0\[Dash]90 in steps of 10:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818299829729*^9, 3.8148183328338413`*^9}, { 3.816019664183681*^9, 3.816019665647603*^9}}, CellID->278879507], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "90", ",", "10"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814818225808428*^9, 3.814818239489347*^9}, { 3.81481830769783*^9, 3.814818336066835*^9}}, CellLabel->"In[17]:=", CellID->665344731], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.814818312110091*^9, 3.814818336776064*^9}, 3.814818881628183*^9}, CellLabel->"Out[17]=", CellID->931047793] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Show the digits 0\[Dash]900 in steps of 100:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818299829729*^9, 3.814818347316312*^9}, { 3.816019669785388*^9, 3.81601967102293*^9}}, CellID->558707000], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "900", ",", "100"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814818225808428*^9, 3.814818239489347*^9}, { 3.81481830769783*^9, 3.814818350880918*^9}}, CellLabel->"In[18]:=", CellID->454055807], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{1, 0}, { 0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.814818312110091*^9, 3.814818351282675*^9}, 3.814818882669436*^9}, CellLabel->"Out[18]=", CellID->158945676] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Show the digits 0\[Dash]9000 in steps of 1000:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818299829729*^9, 3.8148183613452473`*^9}, { 3.816019674442912*^9, 3.8160196755679083`*^9}}, CellID->187013084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "9000", ",", "1000"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814818225808428*^9, 3.814818239489347*^9}, { 3.81481830769783*^9, 3.814818364164283*^9}}, CellLabel->"In[19]:=", CellID->671402761], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], ",", GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, { 0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.814818312110091*^9, 3.81481836454027*^9}, 3.8148188843869343`*^9}, CellLabel->"Out[19]=", CellID->925385267] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.816427300968204*^9, 3.816427302857112*^9}}, CellID->158766396], Cell["Negative numbers can not be encoded:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818406889291*^9, 3.8148184165139923`*^9}}, CellID->263067246], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "[", RowBox[{"-", "10"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81481839620627*^9, 3.8148184027507057`*^9}}, CellLabel->"In[20]:=", CellID->630914359], Cell[BoxData[ TemplateBox[{ "CistercianNumberEncode", "nnarg", "\"The argument \\!\\(\\*RowBox[{\\\"-\\\", \\\"10\\\"}]\\) should be an \ integer between 0 and 9999 (inclusive).\"", 2, 20, 1, 31920836025433933874, "Local", "Global`CistercianNumberEncode"}, "MessageTemplate2"]], "Message", "MSG", TaggingRules->{"AttachedInlineCell" -> CellObject[422545]}, CellChangeTimes->{3.814818403261409*^9, 3.814818885857506*^9}, CellLabel->"During evaluation of In[20]:=", CellID->23524006] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Numbers larger than 9999 can not be encoded:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818406889291*^9, 3.8148184296699333`*^9}}, CellID->159400865], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "[", "12345", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81481839620627*^9, 3.814818435830143*^9}}, CellLabel->"In[21]:=", CellID->795918763], Cell[BoxData[ TemplateBox[{ "CistercianNumberEncode", "nnarg", "\"The argument \\!\\(\\*RowBox[{\\\"12345\\\"}]\\) should be an integer \ between 0 and 9999 (inclusive).\"", 2, 21, 2, 31920836025433933874, "Local", "Global`CistercianNumberEncode"}, "MessageTemplate2"]], "Message", "MSG", TaggingRules->{"AttachedInlineCell" -> CellObject[422625]}, CellChangeTimes->{3.814818403261409*^9, 3.814818436557963*^9, 3.814818887283785*^9}, CellLabel->"During evaluation of In[21]:=", CellID->605023004] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["Only whole numbers can be encoded:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818406889291*^9, 3.8148184165139923`*^9}, { 3.8148184512577*^9, 3.8148184565981293`*^9}}, CellID->214150665], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CistercianNumberEncode", "[", "13.37", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81481839620627*^9, 3.8148184027507057`*^9}, { 3.814818458848708*^9, 3.8148184639946947`*^9}}, CellLabel->"In[22]:=", CellID->91922982], Cell[BoxData[ RowBox[{"CistercianNumberEncode", "[", "13.37`", "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.814818464316924*^9, 3.81481888928701*^9}, CellLabel->"Out[22]=", CellID->181721548] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.8164273101026983`*^9, 3.8164273119919167`*^9}}, CellID->461278909], Cell["Encode the current year:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818475215663*^9, 3.81481848013162*^9}}, CellID->363323298], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"CistercianNumberEncode", "[", "#", "]"}]}], "}"}], ",", "Center"}], "]"}], "&"}], "[", RowBox[{"First", "[", RowBox[{"DateList", "[", "]"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814818481556397*^9, 3.814818497696147*^9}, { 3.814818901131435*^9, 3.814818925764556*^9}}, CellLabel->"In[27]:=", CellID->219669784], Cell[BoxData[ TagBox[GridBox[{ {"2020"}, { GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8148184842725*^9, 3.8148184980372343`*^9}, { 3.814818890434072*^9, 3.8148189261097803`*^9}}, CellLabel->"Out[27]=", CellID->290676292] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["Show a random collection of numbers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.814818406889291*^9, 3.8148184165139923`*^9}, { 3.8148185090565157`*^9, 3.81481851360987*^9}}, CellID->918035169], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"CistercianNumberEncode", "[", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"0", ",", "9999"}], "}"}], "]"}], "]"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], "//", "Grid"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81481839620627*^9, 3.8148184027507057`*^9}, { 3.814818515773292*^9, 3.814818555008127*^9}}, CellLabel->"In[24]:=", CellID->435022789], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, { 0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, { 0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}, { GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{1, 0}, { 0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, { 0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, { 0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}, { GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, { 0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, { 0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, { 0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}, { GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{1, 0}, { 0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, { 0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, { 0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]}, { GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, { 0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[{}, {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], {}, GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{1, 0}, { 0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}, {0.25, 0.75}, {0, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 0.75}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 1}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[{}, {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 1}, {0, 1}}], {{{-1, 0}, {0, -1}}, {0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}], GraphicsBox[{LineBox[{{0, 0}, {0, 1}}], LineBox[{{0, 1}, {0.25, 0.75}}], GeometricTransformationBox[ LineBox[{{0, 1}, {0.25, 0.75}}], {{{-1, 0}, {0, 1}}, {0, 0}}], GeometricTransformationBox[ LineBox[{{0.25, 0.75}, {0.25, 1}, {0, 1}}], {{{1, 0}, {0, -1}}, {0, 1}}], GeometricTransformationBox[ LineBox[{{0, 0.75}, {0.25, 0.75}, {0.25, 1}}], {{{-1, 0}, {0, -1}}, { 0, 1}}]}, ImageSize->50, PlotRange->{{-0.375, 0.375}, {-0.125, 1.125}}]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8148185456225443`*^9, 3.814818561491263*^9}, 3.8148188929957247`*^9}, CellLabel->"Out[24]=", CellID->391333413] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->"Source & Additional Information", CellID->346918952], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell["Cisterian", "Item", CellID->359255436], Cell["monks", "Item", CellID->675202613], Cell["number system", "Item", CellID->415668456], Cell["encode", "Item", CellID->562439226], Cell["cipher", "Item", CellID->289063341] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["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, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell", CellID->98679341] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell["SymbolName (documented Wolfram Language symbol)", "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->"TabNext", CellID->79477165] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell["PigpenCipher", "Item", CellID->519395064] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell["\<\ King, D.A. (2001). The Ciphers of the Monks: A Forgotten Number-notation of \ the Middle Ages. F. Steiner. ISBN\[NonBreakingSpace]9783515076401.\ \>", "Text", CellID->396317840] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], 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->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Tests", 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.3961, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], 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->"TabNext", CellID->567921317] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], 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->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CistercianNumberEncode | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.818937632778408`16.334517555110814*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.818937632989858`16.33451755513486*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.4.0"}, CreateCellID->True, FrontEndVersion->"12.2 for Linux x86 (64-bit) (November 16, 2020)", 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.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], 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[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 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[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 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.0444]], 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[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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], Graphics[{ RGBColor[0.9882, 0.4196, 0.2039], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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"]], 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.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TemplateInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`LiteralInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DelimiterInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`SubscriptInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ActionMenuBox[ 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`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[2]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[3]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableRowInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableSort[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableMerge[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ 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`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentInsert[]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentToggle[]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`ExclusionToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> { DefinitionNotebookClient`$ButtonsDisabled}]]}}, 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 -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], 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 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 8, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 8, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[-0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]& , "\"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.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], 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.0635], 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[ GrayLevel[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[ GrayLevel[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"], With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], 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[ GrayLevel[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[ GrayLevel[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"], With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]& , "\"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.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9569, 0.802, 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, #2[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic]& )}], 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], 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.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {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.0556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, 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[ 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[ 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[ StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.9686, 0.4667, 0.], GrayLevel[0.4667]]]], 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["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.9059]], 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["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, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], 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.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], 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.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], 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.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", 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"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", 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"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}]}, Visible -> False, FrontEndVersion -> "12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[616, 21, 105, 2, 70, "Title",ExpressionUUID->"1d208ccf-5258-471f-b133-2b96ed5362a8", CellTags->{"Name", "TemplateCell", "Title"}, CellID->266986481]}, "TemplateCell"->{ Cell[616, 21, 105, 2, 70, "Title",ExpressionUUID->"1d208ccf-5258-471f-b133-2b96ed5362a8", CellTags->{"Name", "TemplateCell", "Title"}, CellID->266986481], Cell[724, 25, 155, 4, 70, "Text",ExpressionUUID->"c1a77a40-35b1-41ba-9eb4-888eb05f6317", CellTags->{"Description", "TemplateCell"}, CellID->672088670]}, "Title"->{ Cell[616, 21, 105, 2, 70, "Title",ExpressionUUID->"1d208ccf-5258-471f-b133-2b96ed5362a8", CellTags->{"Name", "TemplateCell", "Title"}, CellID->266986481]}, "Description"->{ Cell[724, 25, 155, 4, 70, "Text",ExpressionUUID->"c1a77a40-35b1-41ba-9eb4-888eb05f6317", CellTags->{"Description", "TemplateCell"}, CellID->672088670]}, "Definition"->{ Cell[904, 33, 1108, 27, 70, "Section",ExpressionUUID->"cce5da25-4750-4479-8e2e-3f3535738464", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "Function"->{ Cell[904, 33, 1108, 27, 70, "Section",ExpressionUUID->"cce5da25-4750-4479-8e2e-3f3535738464", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "TemplateCellGroup"->{ Cell[904, 33, 1108, 27, 70, "Section",ExpressionUUID->"cce5da25-4750-4479-8e2e-3f3535738464", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[9771, 285, 1879, 48, 70, "Subsection",ExpressionUUID->"7a73fb2b-cfc5-4f9b-9218-fe0eba268bfd", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[12087, 356, 1349, 30, 70, "Subsection",ExpressionUUID->"74f825ad-316d-4987-b050-5f6715a66027", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[14242, 419, 6918, 150, 70, "Section",ExpressionUUID->"e9f1cbc0-4564-497f-8e4d-d6b629e99255", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[72048, 1754, 918, 24, 70, "Subsection",ExpressionUUID->"918bd824-fe23-4406-8d72-98f91b2ce8f7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[73056, 1786, 893, 24, 70, "Subsection",ExpressionUUID->"410ec81e-9533-413e-bcdf-a7962949b489", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[74220, 1830, 166, 5, 70, "Subsection",ExpressionUUID->"c51b3f74-e39e-4feb-9fda-275ad4c54d12", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[80841, 2058, 870, 24, 70, "Subsection",ExpressionUUID->"275d790a-5333-4784-8545-e9830835f749", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[82252, 2097, 920, 24, 70, "Subsection",ExpressionUUID->"acc66259-0ee9-4a8d-9f7b-445a2631f2b7", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[83260, 2129, 971, 25, 70, "Subsection",ExpressionUUID->"e24fd460-ec38-46ff-be55-07630988330d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[84459, 2165, 823, 24, 70, "Subsection",ExpressionUUID->"2fb7e986-6007-4c79-85d6-fa3ae640079a", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[85807, 2204, 1737, 43, 70, "Subsection",ExpressionUUID->"5f44565a-c3ab-4214-8e88-0b878bb9526d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[87855, 2267, 1048, 26, 70, "Section",ExpressionUUID->"45c9b899-c3fa-49c8-8a6a-bc407785e8e5", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[89452, 2308, 929, 25, 70, "Section",ExpressionUUID->"432ada13-da17-4edd-ab83-2fabe7bbb19a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]}, "Documentation"->{ Cell[9629, 277, 117, 4, 70, "Section",ExpressionUUID->"9cce89d0-4eca-4e41-801d-fef293615559", CellTags->"Documentation", CellID->475424634]}, "Usage"->{ Cell[9771, 285, 1879, 48, 70, "Subsection",ExpressionUUID->"7a73fb2b-cfc5-4f9b-9218-fe0eba268bfd", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143]}, "Details & Options"->{ Cell[12087, 356, 1349, 30, 70, "Subsection",ExpressionUUID->"74f825ad-316d-4987-b050-5f6715a66027", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "Notes"->{ Cell[12087, 356, 1349, 30, 70, "Subsection",ExpressionUUID->"74f825ad-316d-4987-b050-5f6715a66027", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "TabNext"->{ Cell[13439, 388, 105, 2, 70, "Notes",ExpressionUUID->"b0f404bc-fd6a-4b8e-8575-fae0c83fec78", CellTags->"TabNext", CellID->913372777], Cell[81714, 2084, 501, 8, 70, "Item",ExpressionUUID->"e6c4621e-c679-4cc5-961a-7b2845cd0a13", CellTags->"TabNext", CellID->79477165], Cell[85285, 2191, 485, 8, 70, "Item",ExpressionUUID->"247902fa-8017-4049-880c-6f12305a037e", CellTags->"TabNext", CellID->485448166], Cell[88906, 2295, 509, 8, 70, "Text",ExpressionUUID->"4ada8b6e-7711-4b8e-8624-bb36389789d8", CellTags->"TabNext", CellID->567921317], Cell[90384, 2335, 495, 8, 70, "Text",ExpressionUUID->"86768571-6bad-4b0c-918e-5538ec63d608", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[14242, 419, 6918, 150, 70, "Section",ExpressionUUID->"e9f1cbc0-4564-497f-8e4d-d6b629e99255", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145]}, "Source & Additional Information"->{ Cell[71870, 1746, 153, 4, 70, "Section",ExpressionUUID->"821d6dbe-817a-4cfc-8441-7321bdb41437", CellTags->"Source & Additional Information", CellID->346918952]}, "Contributed By"->{ Cell[72048, 1754, 918, 24, 70, "Subsection",ExpressionUUID->"918bd824-fe23-4406-8d72-98f91b2ce8f7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "ContributorInformation"->{ Cell[72048, 1754, 918, 24, 70, "Subsection",ExpressionUUID->"918bd824-fe23-4406-8d72-98f91b2ce8f7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "Keywords"->{ Cell[73056, 1786, 893, 24, 70, "Subsection",ExpressionUUID->"410ec81e-9533-413e-bcdf-a7962949b489", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615]}, "Categories"->{ Cell[74220, 1830, 166, 5, 70, "Subsection",ExpressionUUID->"c51b3f74-e39e-4feb-9fda-275ad4c54d12", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632]}, "CategoriesCell"->{ Cell[74389, 1837, 6415, 216, 70, "Output",ExpressionUUID->"9e2b7bb4-ad06-4a9c-8fcb-ef1f2dc87afc", CellTags->"CategoriesCell", CellID->98679341]}, "Related Symbols"->{ Cell[80841, 2058, 870, 24, 70, "Subsection",ExpressionUUID->"275d790a-5333-4784-8545-e9830835f749", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636]}, "Related Resource Objects"->{ Cell[82252, 2097, 920, 24, 70, "Subsection",ExpressionUUID->"acc66259-0ee9-4a8d-9f7b-445a2631f2b7", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071]}, "Source/Reference Citation"->{ Cell[83260, 2129, 971, 25, 70, "Subsection",ExpressionUUID->"e24fd460-ec38-46ff-be55-07630988330d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317]}, "Links"->{ Cell[84459, 2165, 823, 24, 70, "Subsection",ExpressionUUID->"2fb7e986-6007-4c79-85d6-fa3ae640079a", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789]}, "Tests"->{ Cell[85807, 2204, 1737, 43, 70, "Subsection",ExpressionUUID->"5f44565a-c3ab-4214-8e88-0b878bb9526d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "VerificationTests"->{ Cell[85807, 2204, 1737, 43, 70, "Subsection",ExpressionUUID->"5f44565a-c3ab-4214-8e88-0b878bb9526d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "Author Notes"->{ Cell[87855, 2267, 1048, 26, 70, "Section",ExpressionUUID->"45c9b899-c3fa-49c8-8a6a-bc407785e8e5", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130]}, "Submission Notes"->{ Cell[89452, 2308, 929, 25, 70, "Section",ExpressionUUID->"432ada13-da17-4edd-ab83-2fabe7bbb19a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 194830, 4323}, {"TemplateCell", 195013, 4327}, {"Title", 195349, 4334}, {"Description", 195531, 4338}, {"Definition", 195709, 4342}, {"Function", 195906, 4346}, {"TemplateCellGroup", 196112, 4350}, {"Documentation", 198668, 4393}, {"Usage", 198830, 4397}, {"Details & Options", 199023, 4401}, {"Notes", 199226, 4405}, {"TabNext", 199431, 4409}, {"Examples", 200156, 4425}, {"Source & Additional Information", 200366, 4429}, {"Contributed By", 200557, 4433}, {"ContributorInformation", 200792, 4437}, {"Keywords", 201013, 4441}, {"Categories", 201204, 4445}, {"CategoriesCell", 201399, 4449}, {"Related Symbols", 201575, 4453}, {"Related Resource Objects", 201787, 4457}, {"Source/Reference Citation", 202009, 4461}, {"Links", 202212, 4465}, {"Tests", 202395, 4469}, {"VerificationTests", 202612, 4473}, {"Author Notes", 202824, 4477}, {"Submission Notes", 203023, 4481} } *) (*NotebookFileOutline Notebook[{ Cell[616, 21, 105, 2, 70, "Title",ExpressionUUID->"1d208ccf-5258-471f-b133-2b96ed5362a8", CellTags->{"Name", "TemplateCell", "Title"}, CellID->266986481], Cell[724, 25, 155, 4, 70, "Text",ExpressionUUID->"c1a77a40-35b1-41ba-9eb4-888eb05f6317", CellTags->{"Description", "TemplateCell"}, CellID->672088670], Cell[CellGroupData[{ Cell[904, 33, 1108, 27, 70, "Section",ExpressionUUID->"cce5da25-4750-4479-8e2e-3f3535738464", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[2015, 62, 7599, 212, 70, "Input",ExpressionUUID->"7cfb77bd-77c9-4775-9d41-89942bd15c46", CellID->197232240] }, Open ]], Cell[9629, 277, 117, 4, 70, "Section",ExpressionUUID->"9cce89d0-4eca-4e41-801d-fef293615559", CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[9771, 285, 1879, 48, 70, "Subsection",ExpressionUUID->"7a73fb2b-cfc5-4f9b-9218-fe0eba268bfd", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[11675, 337, 152, 4, 70, "UsageInputs",ExpressionUUID->"64da654b-4075-4ee8-97cb-801c46a2129a", CellID->948196814], Cell[11830, 343, 208, 7, 70, "UsageDescription",ExpressionUUID->"0fb3b947-0ccb-4540-b8ac-62cab5347ed0", CellID->67610096] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12087, 356, 1349, 30, 70, "Subsection",ExpressionUUID->"74f825ad-316d-4987-b050-5f6715a66027", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[13439, 388, 105, 2, 70, "Notes",ExpressionUUID->"b0f404bc-fd6a-4b8e-8575-fae0c83fec78", CellTags->"TabNext", CellID->913372777], Cell[13547, 392, 658, 22, 70, "Notes",ExpressionUUID->"3aea094c-e35c-40f8-b530-147fd5588437", CellID->151579978] }, Open ]], Cell[CellGroupData[{ Cell[14242, 419, 6918, 150, 70, "Section",ExpressionUUID->"e9f1cbc0-4564-497f-8e4d-d6b629e99255", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell[21185, 573, 143, 3, 70, "Subsection",ExpressionUUID->"76efc60f-2267-4aa5-a33f-ce161f618cb6", CellID->904125756], Cell[21331, 578, 225, 4, 70, "Text",ExpressionUUID->"5f035abe-6688-41c5-b151-bda8a6708af1", CellID->733488227], Cell[CellGroupData[{ Cell[21581, 586, 207, 5, 70, "Input",ExpressionUUID->"9faf0d00-49d5-4c17-8e44-0322c2d0b149", CellID->31355493], Cell[21791, 593, 698, 16, 70, "Output",ExpressionUUID->"5eb63d53-54b7-48f8-a107-4233e53c5217", CellID->726454021] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22538, 615, 134, 3, 70, "Subsection",ExpressionUUID->"f8228c5f-c063-49a8-8d35-929790609267", CellID->204653245], Cell[22675, 620, 200, 4, 70, "Text",ExpressionUUID->"d0340323-fcdf-46c8-9c91-c8f34ae5bd70", CellID->207266895], Cell[CellGroupData[{ Cell[22900, 628, 352, 9, 70, "Input",ExpressionUUID->"fa467d79-7d9c-49f5-a0af-24e3bdccaa0e", CellID->962524343], Cell[23255, 639, 3844, 71, 70, "Output",ExpressionUUID->"1180aa5d-87e7-42c1-afb2-95dd3f793071", CellID->96232104] }, Open ]], Cell[CellGroupData[{ Cell[27136, 715, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"7cfaca60-4d01-429f-b037-73273195c085", CellID->14107562], Cell[27282, 721, 214, 4, 70, "Text",ExpressionUUID->"a3b33789-0769-426c-b3bf-cc0e4cc546d5", CellID->278879507], Cell[CellGroupData[{ Cell[27521, 729, 316, 8, 70, "Input",ExpressionUUID->"ab985b6e-d9ad-437b-a72e-c89d1b15e157", CellID->665344731], Cell[27840, 739, 3872, 77, 70, "Output",ExpressionUUID->"d9bcb762-9249-48bc-82f6-6c207aa10405", CellID->931047793] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31761, 822, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0fe4c859-5413-4f0d-ad6f-d2f5e5b81cb7", CellID->14107563], Cell[31907, 828, 213, 4, 70, "Text",ExpressionUUID->"94c00178-9c93-4973-b056-8e26fc27d5e0", CellID->558707000], Cell[CellGroupData[{ Cell[32145, 836, 318, 8, 70, "Input",ExpressionUUID->"682cf214-c150-4d9c-a6d7-99ffcd74f35a", CellID->454055807], Cell[32466, 846, 3872, 77, 70, "Output",ExpressionUUID->"e5a4cd1b-f33c-40a8-b5bf-63efac1ec776", CellID->158945676] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36387, 929, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3bc7f6ab-4c9c-4931-9fe9-317534e24a38", CellID->14107564], Cell[36533, 935, 220, 4, 70, "Text",ExpressionUUID->"e0bc1681-f5e4-4a7a-be09-bf5c38ed2432", CellID->187013084], Cell[CellGroupData[{ Cell[36778, 943, 320, 8, 70, "Input",ExpressionUUID->"5f4e535a-e78c-418b-9db9-073e2ceab300", CellID->671402761], Cell[37101, 953, 3890, 80, 70, "Output",ExpressionUUID->"59949b30-61f1-4c62-9aee-757debed14f2", CellID->925385267] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41052, 1040, 142, 3, 70, "Subsection",ExpressionUUID->"cf0687d4-75f3-47b9-8d09-581f2645a7d3", CellID->158766396], Cell[41197, 1045, 159, 3, 70, "Text",ExpressionUUID->"958cd3e5-a157-4933-a4c6-d94240fade10", CellID->263067246], Cell[CellGroupData[{ Cell[41381, 1052, 224, 6, 70, "Input",ExpressionUUID->"08bde8e6-f3cf-4ac5-b2b6-68678f72cbfe", CellID->630914359], Cell[41608, 1060, 498, 10, 70, "Message",ExpressionUUID->"1bf2acd6-e796-4fcb-bca7-65892d2330ce", CellID->23524006] }, Open ]], Cell[CellGroupData[{ Cell[42143, 1075, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3b6be47b-607a-4aab-8873-780b50240b52", CellID->14107565], Cell[42289, 1081, 167, 3, 70, "Text",ExpressionUUID->"84e34d83-45e9-441b-a01d-18cdb69b56ab", CellID->159400865], Cell[CellGroupData[{ Cell[42481, 1088, 207, 5, 70, "Input",ExpressionUUID->"83495eff-b6c8-4d34-b438-d54d4c7f8ac9", CellID->795918763], Cell[42691, 1095, 516, 11, 70, "Message",ExpressionUUID->"2e61b867-77cc-436c-81a5-058b2cf28cf9", CellID->605023004] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43256, 1112, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"91efbb17-310a-4a89-9200-1faadfd6606d", CellID->14107566], Cell[43402, 1118, 206, 4, 70, "Text",ExpressionUUID->"32567831-b430-465e-969e-3a62cb35e8b6", CellID->214150665], Cell[CellGroupData[{ Cell[43633, 1126, 259, 6, 70, "Input",ExpressionUUID->"75f4154a-a235-4014-b741-24b725ea52b9", CellID->91922982], Cell[43895, 1134, 207, 5, 70, "Output",ExpressionUUID->"582461fd-1fd8-47f1-8ffe-6a48c690538d", CellID->181721548] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44163, 1146, 144, 3, 70, "Subsection",ExpressionUUID->"7e26b60a-bcbf-42a5-bbe0-a47c48ff2dc1", CellID->461278909], Cell[44310, 1151, 144, 3, 70, "Text",ExpressionUUID->"459e996a-bd1d-4ffc-a523-4c35f8620f4f", CellID->363323298], Cell[CellGroupData[{ Cell[44479, 1158, 490, 15, 70, "Input",ExpressionUUID->"9bfc24a6-a031-482e-ba3c-ad04a7004c77", CellID->219669784], Cell[44972, 1175, 831, 21, 70, "Output",ExpressionUUID->"28b5956b-85b5-4ab5-bfc7-7cd7bc588b99", CellID->290676292] }, Open ]], Cell[CellGroupData[{ Cell[45840, 1201, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9e9da872-3d3f-4730-a0b3-91db3c67d810", CellID->14107567], Cell[45986, 1207, 209, 4, 70, "Text",ExpressionUUID->"3c557c5d-d854-4cd1-a4a7-35323d45c3e1", CellID->918035169], Cell[CellGroupData[{ Cell[46220, 1215, 501, 14, 70, "Input",ExpressionUUID->"a1e796ec-54a4-4e59-93b9-4869c5bbe8ae", CellID->435022789], Cell[46724, 1231, 25073, 507, 70, "Output",ExpressionUUID->"9ac7ee72-a1d4-439a-87a8-32b1ee48420b", CellID->391333413] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71870, 1746, 153, 4, 70, "Section",ExpressionUUID->"821d6dbe-817a-4cfc-8441-7321bdb41437", CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[72048, 1754, 918, 24, 70, "Subsection",ExpressionUUID->"918bd824-fe23-4406-8d72-98f91b2ce8f7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[72969, 1780, 50, 1, 70, "Text",ExpressionUUID->"9a66e729-c697-4d32-ad5a-67159b020638", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[73056, 1786, 893, 24, 70, "Subsection",ExpressionUUID->"410ec81e-9533-413e-bcdf-a7962949b489", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[73952, 1812, 45, 1, 70, "Item",ExpressionUUID->"df89fc23-2a1d-49a3-823f-083eec41d5db", CellID->359255436], Cell[74000, 1815, 41, 1, 70, "Item",ExpressionUUID->"a93dc39f-c446-4efa-8d71-a223445a7685", CellID->675202613], Cell[74044, 1818, 49, 1, 70, "Item",ExpressionUUID->"830130b0-2102-4d9c-90f9-f3a38b1a8c55", CellID->415668456], Cell[74096, 1821, 42, 1, 70, "Item",ExpressionUUID->"05542963-7f08-4355-8548-e1c6e36527eb", CellID->562439226], Cell[74141, 1824, 42, 1, 70, "Item",ExpressionUUID->"c446b987-08fe-4ca8-bc11-c8fa25f5473f", CellID->289063341] }, Open ]], Cell[CellGroupData[{ Cell[74220, 1830, 166, 5, 70, "Subsection",ExpressionUUID->"c51b3f74-e39e-4feb-9fda-275ad4c54d12", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[74389, 1837, 6415, 216, 70, "Output",ExpressionUUID->"9e2b7bb4-ad06-4a9c-8fcb-ef1f2dc87afc", CellTags->"CategoriesCell", CellID->98679341] }, Open ]], Cell[CellGroupData[{ Cell[80841, 2058, 870, 24, 70, "Subsection",ExpressionUUID->"275d790a-5333-4784-8545-e9830835f749", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[81714, 2084, 501, 8, 70, "Item",ExpressionUUID->"e6c4621e-c679-4cc5-961a-7b2845cd0a13", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[82252, 2097, 920, 24, 70, "Subsection",ExpressionUUID->"acc66259-0ee9-4a8d-9f7b-445a2631f2b7", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[83175, 2123, 48, 1, 70, "Item",ExpressionUUID->"9edae617-6491-4190-8494-3f3ecc700076", CellID->519395064] }, Open ]], Cell[CellGroupData[{ Cell[83260, 2129, 971, 25, 70, "Subsection",ExpressionUUID->"e24fd460-ec38-46ff-be55-07630988330d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[84234, 2156, 188, 4, 70, "Text",ExpressionUUID->"d599cd10-ccc0-4a35-a01d-d0cfd6b0ae75", CellID->396317840] }, Open ]], Cell[CellGroupData[{ Cell[84459, 2165, 823, 24, 70, "Subsection",ExpressionUUID->"2fb7e986-6007-4c79-85d6-fa3ae640079a", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[85285, 2191, 485, 8, 70, "Item",ExpressionUUID->"247902fa-8017-4049-880c-6f12305a037e", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[85807, 2204, 1737, 43, 70, "Subsection",ExpressionUUID->"5f44565a-c3ab-4214-8e88-0b878bb9526d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[CellGroupData[{ Cell[87569, 2251, 129, 4, 70, "Input",ExpressionUUID->"53ab9e2d-3be9-4ea2-9cb8-74bec07cc5ab", CellID->667877521], Cell[87701, 2257, 93, 3, 70, "Output",ExpressionUUID->"aef8f131-7047-42ab-a5a5-18452096b4a7", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[87855, 2267, 1048, 26, 70, "Section",ExpressionUUID->"45c9b899-c3fa-49c8-8a6a-bc407785e8e5", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[88906, 2295, 509, 8, 70, "Text",ExpressionUUID->"4ada8b6e-7711-4b8e-8624-bb36389789d8", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[89452, 2308, 929, 25, 70, "Section",ExpressionUUID->"432ada13-da17-4edd-ab83-2fabe7bbb19a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], Cell[90384, 2335, 495, 8, 70, "Text",ExpressionUUID->"86768571-6bad-4b0c-918e-5538ec63d608", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)