(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 166766, 3821] NotebookOptionsPosition[ 77933, 2057] NotebookOutlinePosition[ 153524, 3537] CellTagsIndexPosition[ 152840, 3514] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["CaesarDecipher", "Title", CellTags->"Title"], Cell["Decipher a Caesar-enciphered string", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ 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"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"caesarrules", ",", "CaesarDecipher"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "CaesarDecipher", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"caesarrules", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"caesarrules", "[", "n", "]"}], "=", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[Rule]", RowBox[{"RotateRight", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", "n"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[Rule]", RowBox[{"RotateRight", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", "n"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CaesarDecipher", "[", "s_List", "]"}], ":=", RowBox[{"CaesarDecipher", "/@", "s"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CaesarDecipher", "[", "s_String", "]"}], ":=", RowBox[{"CaesarDecipher", "[", RowBox[{"s", ",", "13"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{"s_String", ",", "n_Integer"}], "]"}], ":=", RowBox[{"StringReplace", "[", RowBox[{"s", ",", RowBox[{"caesarrules", "[", "n", "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{"s_List", ",", "n_Integer"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{"#", ",", "n"}], "]"}], "&"}], "/@", "s"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CaesarDecipher", "[", "n_Integer", "]"}], "[", "s_String", "]"}], ":=", RowBox[{"CaesarDecipher", "[", RowBox[{"s", ",", "n"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CaesarDecipher", "[", "n_Integer", "]"}], "[", "s_List", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{"#", ",", "n"}], "]"}], "&"}], "/@", "s"}]}]}], "Input", 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}, CellChangeTimes->{{3.763391250357704*^9, 3.763391295229578*^9}, { 3.763391329460428*^9, 3.763391386484123*^9}, {3.7633914225464153`*^9, 3.7633914846152687`*^9}, {3.763391591054343*^9, 3.7633915993341713`*^9}, { 3.763397939630505*^9, 3.763397969065466*^9}, {3.763398123584696*^9, 3.763398185785985*^9}, {3.763398218767116*^9, 3.763398242770253*^9}, { 3.7634006696006308`*^9, 3.763400669765993*^9}, {3.7634022465263844`*^9, 3.763402283602257*^9}, {3.7634023351022882`*^9, 3.763402427217182*^9}, { 3.768750117077537*^9, 3.768750138652588*^9}, {3.7687562064147787`*^9, 3.768756274025031*^9}, {3.76953733249414*^9, 3.76953735344214*^9}}, CellTags->"TabNext", CellLabel->"In[69]:=", CellID->778396829] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{ StyleBox["string", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "deciphers a Caesar-enciphered string that was enciphered by shifting \ letters in ", Cell[BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " by ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " places further in the Latin alphabet." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["s", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["s", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "deciphers each string ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["s", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", StyleBox["n", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "represents an operator form of ", Cell[BoxData["CaesarDecipher"], "InlineFormula", FontFamily->"Source Sans Pro"], " that can be applied to an expression." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ Cell[BoxData["CasearDecipher"], "InlineFormula", FontFamily->"Source Sans Pro"], " replaces each plain text character with a different one a fixed number of \ places ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " up the alphabet. As an example, here we show it for ", Cell[BoxData[ RowBox[{ StyleBox["n", "TI"], "=", "3"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Notes", CellID->1945198046], Cell[TextData[{ "\[LineSeparator]", Cell[BoxData[ GraphicsBox[ {CapForm[None], JoinForm[None], Arrowheads[0.03], { {GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None], ArrowBox[BSplineCurveBox[{{4.5, -2.}, {4.5, -1.}, {1.5, -1.}, {1.5, 0.}}]]}, {GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None], ArrowBox[BSplineCurveBox[{{5.5, -2.}, {5.5, -1.}, {2.5, -1.}, {2.5, 0.}}]]}, {GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None], ArrowBox[BSplineCurveBox[{{6.5, -2.}, {6.5, -1.}, {3.5, -1.}, {3.5, 0.}}]]}, {EdgeForm[GrayLevel[0]], ArrowBox[BSplineCurveBox[{{7.5, -2.}, {7.5, -1.}, {4.5, -1.}, {4.5, 0.}}]]}, {EdgeForm[GrayLevel[0]], ArrowBox[BSplineCurveBox[{{8.5, -2.}, {8.5, -1.}, {5.5, -1.}, {5.5, 0.}}]]}, {EdgeForm[GrayLevel[0]], ArrowBox[BSplineCurveBox[{{9.5, -2.}, {9.5, -1.}, {6.5, -1.}, {6.5, 0.}}]]}, {EdgeForm[GrayLevel[0]], ArrowBox[BSplineCurveBox[{{10.5, -2.}, {10.5, -1.}, {7.5, -1.}, {7.5, 0.}}]]}, {GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None], ArrowBox[BSplineCurveBox[{{11.5, -2.}, {11.5, -1.}, {8.5, -1.}, {8.5, 0.}}]]}, {GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None], ArrowBox[BSplineCurveBox[{{12.5, -2.}, {12.5, -1.}, {9.5, -1.}, {9.5, 0.}}]]}, {GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None], ArrowBox[BSplineCurveBox[{{13.5, -2.}, {13.5, -1.}, {10.5, -1.}, {10.5, 0.}}]]}}, { {EdgeForm[{GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None]}], FaceForm[None], RectangleBox[{1, 0}], InsetBox[ StyleBox["\<\"x\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {1.5, 0.5}]}, {EdgeForm[{GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None]}], FaceForm[None], RectangleBox[{2, 0}], InsetBox[ StyleBox["\<\"y\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {2.5, 0.5}]}, {EdgeForm[{GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None]}], FaceForm[None], RectangleBox[{3, 0}], InsetBox[ StyleBox["\<\"z\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {3.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{4, 0}], InsetBox[ StyleBox["\<\"a\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {4.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{5, 0}], InsetBox[ StyleBox["\<\"b\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {5.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{6, 0}], InsetBox[ StyleBox["\<\"c\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Bold], {6.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{7, 0}], InsetBox[ StyleBox["\<\"d\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {7.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{8, 0}], InsetBox[ StyleBox["\<\"e\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {8.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{9, 0}], InsetBox[ StyleBox["\<\"f\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {9.5, 0.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{10, 0}], InsetBox[ StyleBox["\<\"g\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {10.5, 0.5}]}}, { {EdgeForm[{GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None]}], FaceForm[None], RectangleBox[{13, -3}], InsetBox[ StyleBox["\<\"j\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {13.5, -2.5}]}, {EdgeForm[{GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None]}], FaceForm[None], RectangleBox[{12, -3}], InsetBox[ StyleBox["\<\"i\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {12.5, -2.5}]}, {EdgeForm[{GrayLevel[0.5], Dashing[{0.005, 0.01}], CapForm[None], JoinForm[None]}], FaceForm[None], RectangleBox[{11, -3}], InsetBox[ StyleBox["\<\"h\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {11.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{10, -3}], InsetBox[ StyleBox["\<\"g\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {10.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{9, -3}], InsetBox[ StyleBox["\<\"f\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Bold], {9.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{8, -3}], InsetBox[ StyleBox["\<\"e\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {8.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{7, -3}], InsetBox[ StyleBox["\<\"d\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {7.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{6, -3}], InsetBox[ StyleBox["\<\"c\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {6.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{5, -3}], InsetBox[ StyleBox["\<\"b\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {5.5, -2.5}]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{4, -3}], InsetBox[ StyleBox["\<\"a\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}], {4.5, -2.5}]}}, {InsetBox[ StyleBox["\<\"\[CenterEllipsis]\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], {11.5, 0.5}], InsetBox[ StyleBox["\<\"\[CenterEllipsis]\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.5}]}, { InsetBox[ StyleBox["\<\"\[CenterEllipsis]\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], {3.5, -2.5}], InsetBox[ StyleBox["\<\"\[CenterEllipsis]\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->12, FontWeight->Plain, FontSlant->Plain, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], {14.5, -2.5}]}}, ImageSize->312]]] }], "Print", GeneratedCell->False, CellAutoOverwrite->False, CellID->15010725], Cell[TextData[{ " The letter ", StyleBox["f", FontSlant->"Italic"], " is converted to the letter ", StyleBox["c", FontSlant->"Italic"], ".\n" }], "Text", CellID->251286075], Cell[TextData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", StyleBox["string", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " performs the ROT13 substitution decipher." }], "Notes", CellTags->"TabNext", CellID->521904482], Cell[TextData[{ Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be negative, shifting the letters to the right." }], "Notes", CellID->1988064602], Cell[TextData[{ Cell[BoxData["CaesarDecipher"], "InlineFormula", FontFamily->"Source Sans Pro"], " lists over the first argument." }], "Notes", CellID->1732079674], Cell["Letters retain their case (lowercase/uppercase).", "Notes", CellID->204000346] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ 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 Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro 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 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 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 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 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 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 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"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Perform a Caesar decipher with a shift of 2:", "Text", CellChangeTimes->{{3.7633966718549547`*^9, 3.76339669120304*^9}, { 3.7687514389744253`*^9, 3.768751439069415*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.763402399030655*^9, 3.763402401746023*^9}, { 3.763402456455894*^9, 3.763402461697317*^9}, {3.768751429061678*^9, 3.768751441395987*^9}}, CellLabel->"In[252]:=", CellID->1828403463], Cell[BoxData["\<\"abcde\"\>"], "Output", CellChangeTimes->{{3.763402343484013*^9, 3.763402404326647*^9}, 3.7634024646544237`*^9, 3.763402691357464*^9, 3.763405939948049*^9, { 3.7687514353580027`*^9, 3.768751441734517*^9}}, CellLabel->"Out[252]=", CellID->989224448] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->53404187], Cell["Decipher a text by shifting the letters 9 positions back:", "Text", CellChangeTimes->{{3.7633966718549547`*^9, 3.763396814153328*^9}, { 3.763406119263125*^9, 3.763406120716313*^9}}, CellID->748682166], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", "9"}], "]"}]], "Input", CellChangeTimes->{{3.7633966977039833`*^9, 3.763396701869544*^9}, { 3.763396758115706*^9, 3.763396804639743*^9}, {3.7687514512674847`*^9, 3.7687514561184464`*^9}}, CellLabel->"In[255]:=", CellID->994476189], Cell[BoxData["\<\"Sander\"\>"], "Output", CellChangeTimes->{{3.763396702331215*^9, 3.7633967266550837`*^9}, { 3.763396760107668*^9, 3.763396818580154*^9}, 3.7634006845032473`*^9, 3.763402692011866*^9, 3.763405941556438*^9, 3.763406123741805*^9, { 3.768751449599319*^9, 3.7687514563861523`*^9}}, CellLabel->"Out[255]=", CellID->677748829] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->964056545], Cell[TextData[{ "Cipher/decipher using a shift of ", Cell[BoxData[ RowBox[{ StyleBox["n", "TI"], "=", "13"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", also known at the ROT13 cipher:" }], "Text", CellChangeTimes->{{3.763396949264307*^9, 3.763397014627419*^9}, { 3.763406140602293*^9, 3.7634061414019938`*^9}}, CellID->1961192500], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.763396939211032*^9, 3.763396941174177*^9}, { 3.763396986942259*^9, 3.763397022823022*^9}, {3.768751473418545*^9, 3.7687514752857428`*^9}}, CellLabel->"In[256]:=", CellID->836153427], Cell[BoxData["\<\"Purref!\"\>"], "Output", CellChangeTimes->{{3.7633969847348223`*^9, 3.763397023220738*^9}, 3.763400686822487*^9, 3.7634026932502127`*^9, 3.763405946141274*^9, 3.763406145579808*^9, 3.768751475629931*^9}, CellLabel->"Out[256]=", CellID->479244230] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{3.763397021211628*^9, 3.7687514778365173`*^9}, CellLabel->"In[257]:=", CellID->13540002], Cell[BoxData["\<\"Cheers!\"\>"], "Output", CellChangeTimes->{{3.763397003847114*^9, 3.763397024368682*^9}, 3.763400687564191*^9, 3.7634026938642807`*^9, 3.763405946725667*^9, 3.763406147854491*^9, 3.768751478246174*^9}, CellLabel->"Out[257]=", CellID->993903172] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->49226017], Cell["Decipher multiple strings:", "Text", CellChangeTimes->{{3.763396949264307*^9, 3.763397014627419*^9}, { 3.763398013619952*^9, 3.7633980221102257`*^9}, {3.768751484067721*^9, 3.7687514848763237`*^9}}, CellID->2058727803], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.763396939211032*^9, 3.763396941174177*^9}, { 3.763396986942259*^9, 3.763397022823022*^9}, {3.763397989142084*^9, 3.763398032311598*^9}, {3.768751488576625*^9, 3.7687514914113827`*^9}}, CellLabel->"In[259]:=", CellID->781664557], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Awesome\"\>", ",", "\<\"devil\"\>", ",", "\<\"epic\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.7633969847348223`*^9, 3.763397023220738*^9}, { 3.763398011112496*^9, 3.763398032651702*^9}, 3.763400689776511*^9, 3.763402695510189*^9, 3.763405948191822*^9, 3.763406149998631*^9, { 3.768751489086253*^9, 3.768751491674045*^9}}, CellLabel->"Out[259]=", CellID->2043941522] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1022980081], Cell["\<\ Create an operator form of the function that deciphers with a shift of 5:\ \>", "Text", CellChangeTimes->{{3.768756349647292*^9, 3.768756366377708*^9}, { 3.768756660128234*^9, 3.768756660212496*^9}, {3.7722021194656973`*^9, 3.7722021198844395`*^9}}, CellID->918529142], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"op", "=", RowBox[{"CaesarDecipher", "[", "5", "]"}]}]], "Input", CellChangeTimes->{{3.7687563689181147`*^9, 3.768756399156458*^9}, { 3.768756662726204*^9, 3.768756663798324*^9}}, CellLabel->"In[78]:=", CellID->2060571573], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"CaesarDecipher\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CaesarDecipher\""}], ResourceFunction["CaesarDecipher"], Selectable->False], "[", "5", "]"}]], "Output", CellChangeTimes->{{3.768756375417553*^9, 3.768756399402938*^9}, 3.768756664433704*^9, 3.76953737581814*^9}, CellLabel->"Out[78]=", CellID->396463631] }, Open ]], Cell["Use the operator:", "Text", CellChangeTimes->{{3.768756378085148*^9, 3.768756382401779*^9}}, CellID->217609577], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"op", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.76875639141494*^9, 3.768756406875669*^9}}, CellLabel->"In[318]:=", CellID->761625456], Cell[BoxData["\<\"epic\"\>"], "Output", CellChangeTimes->{{3.76875639532812*^9, 3.768756407224842*^9}, 3.768756665528035*^9}, CellLabel->"Out[318]=", CellID->1019106871] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->568056528], Cell["Decipher a message:", "Text", CellChangeTimes->{{3.763397134924664*^9, 3.763397140155352*^9}, { 3.7633971860165653`*^9, 3.763397192149291*^9}, {3.768751532434759*^9, 3.768751533312434*^9}}, CellID->1591288148], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", "21"}], "]"}]], "Input", CellChangeTimes->{{3.7633971437134123`*^9, 3.763397163556218*^9}, 3.763397195072219*^9, {3.763397276766411*^9, 3.763397277575789*^9}, { 3.768751538635111*^9, 3.7687515626957006`*^9}}, CellLabel->"In[319]:=", CellID->474259100], Cell[BoxData["\<\"This is a deciphered message for you!\"\>"], "Output", CellChangeTimes->{ 3.763397156738049*^9, 3.7633971956043587`*^9, 3.7633972783767*^9, 3.763400691015963*^9, 3.7634026968147717`*^9, 3.763405951282894*^9, { 3.7687515391961107`*^9, 3.7687515630213547`*^9}, 3.76875642303988*^9, 3.768756667831974*^9}, CellLabel->"Out[319]=", CellID->944835779] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->2017414949], Cell["Decipher a message:", "Text", CellChangeTimes->{{3.763397134924664*^9, 3.763397140155352*^9}, { 3.7633971860165653`*^9, 3.763397192149291*^9}, {3.763397257342449*^9, 3.7633972582764387`*^9}}, CellID->1326035979], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", "16"}], "]"}]], "Input", CellChangeTimes->{{3.7633971437134123`*^9, 3.763397163556218*^9}, 3.763397195072219*^9, {3.7633973315538816`*^9, 3.763397335812758*^9}, { 3.768751571973678*^9, 3.768751574868054*^9}}, CellLabel->"In[320]:=", CellID->101410487], Cell[BoxData["\<\"Secret message: The Wolfram language is fun!\"\>"], "Output", CellChangeTimes->{ 3.763397156738049*^9, 3.7633971956043587`*^9, {3.763397333016266*^9, 3.763397336071271*^9}, 3.763400692202841*^9, 3.763402697867466*^9, 3.763405955489521*^9, 3.768751575253592*^9, 3.768756423886882*^9, 3.768756668521988*^9}, CellLabel->"Out[320]=", CellID->1283964531] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->754506620], Cell["\<\ Enciphering can be done using the deciphering function but with a negative \ shift:\ \>", "Text", CellChangeTimes->{{3.763396863018111*^9, 3.763396879720821*^9}, 3.763401601003421*^9, {3.768751643052606*^9, 3.7687516519654818`*^9}, { 3.772202135569759*^9, 3.772202136018488*^9}}, CellID->2117513894], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\"\\"", ",", "10"}], "]"}], "===", RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", RowBox[{"-", "10"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7687515969140263`*^9, 3.7687516283991528`*^9}}, CellLabel->"In[321]:=", CellID->768562872], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.768751628842972*^9, 3.768751654657638*^9}, 3.768756424786941*^9, {3.7687564970718193`*^9, 3.7687565048842373`*^9}, 3.768756670513277*^9}, CellLabel->"Out[321]=", CellID->1731470819] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1842726787], Cell["\<\ If the shift is an integer multiple of 26, the Caesar decipher does not \ affect the input string:\ \>", "Text", CellChangeTimes->{{3.7634051555340433`*^9, 3.763405181198851*^9}, { 3.7687514982396584`*^9, 3.768751498310286*^9}, 3.772202164553873*^9}, CellID->611236494], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", RowBox[{"i", " ", "26"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7634051845475483`*^9, 3.7634051958588943`*^9}, { 3.763405236670053*^9, 3.7634052369287577`*^9}, {3.7687515045223417`*^9, 3.768751528943006*^9}}, CellLabel->"In[322]:=", CellID->450121358], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Input equals output.\"\>", ",", "\<\"Input equals output.\"\>", ",", "\<\"Input equals output.\"\>", ",", "\<\"Input equals output.\"\>", ",", "\<\"Input equals output.\"\>", ",", "\<\"Input equals output.\"\>", ",", "\<\"Input equals output.\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.763405196330636*^9, 3.763405237348304*^9, 3.76340594913006*^9, 3.763406152901754*^9, {3.768751511408259*^9, 3.768751529131094*^9}, 3.768756426344192*^9, 3.768756506439611*^9, 3.768756671601654*^9}, CellLabel->"Out[322]=", CellID->1929333842] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->540091361], Cell["\<\ Try out all 25 options to decipher a message and find the original message:\ \>", "Text", CellChangeTimes->{{3.763397232761281*^9, 3.763397252610507*^9}, { 3.7633991258406057`*^9, 3.7633991318683033`*^9}, {3.763402796093213*^9, 3.763402813854953*^9}, {3.763403395482889*^9, 3.763403425052958*^9}, 3.763404846333088*^9, 3.763404930931946*^9, 3.76340501682402*^9, { 3.7687516854986277`*^9, 3.76875169318445*^9}, {3.76875184115672*^9, 3.768751858600409*^9}, {3.772202171711452*^9, 3.7722021723730507`*^9}}, CellID->743341054], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "25"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQHcZrOEuG642jRn/kXBAdF1m+EESv3PRjCYguFZLe DKLnWz3fBaK/GdSdB9GXJuReANErnjx/AKKX5Eg/AtEmTFasskB6t8VtHhAd 6+gtCKI/7LGUBNFdH8vkQTTX3YkqIJqjMUUDRCupv9EG0QbPwwxBtBybiBGI XubE5CQPpNcIS4Hpex8n+YDoawJrwXSH+RdWBSD9kzWRDUTfqX/CC6JX2Zby gejaOyslQfT+y6flQbQRc5s7iP5y/ziYdluW6gOip03tAdNr/kVMAdHMsQum gei2mT/OBom8cdQ++Pk2iAYAmPl7tQ== "], CellLabel->"In[323]:=", CellID->58679055], Cell[BoxData[ TagBox[GridBox[{ {"1", "\<\"Grkd sc dro combod wocckqo drkd go gkxd?\"\>"}, {"2", "\<\"Fqjc rb cqn bnlanc vnbbjpn cqjc fn fjwc?\"\>"}, {"3", "\<\"Epib qa bpm amkzmb umaaiom bpib em eivb?\"\>"}, {"4", "\<\"Doha pz aol zljyla tlzzhnl aoha dl dhua?\"\>"}, {"5", "\<\"Cngz oy znk ykixkz skyygmk zngz ck cgtz?\"\>"}, {"6", "\<\"Bmfy nx ymj xjhwjy rjxxflj ymfy bj bfsy?\"\>"}, {"7", "\<\"Alex mw xli wigvix qiwweki xlex ai aerx?\"\>"}, {"8", "\<\"Zkdw lv wkh vhfuhw phvvdjh wkdw zh zdqw?\"\>"}, {"9", "\<\"Yjcv ku vjg ugetgv oguucig vjcv yg ycpv?\"\>"}, {"10", "\<\"Xibu jt uif tfdsfu nfttbhf uibu xf xbou?\"\>"}, {"11", "\<\"What is the secret message that we want?\"\>"}, {"12", "\<\"Vgzs hr sgd rdbqds ldrrzfd sgzs vd vzms?\"\>"}, {"13", "\<\"Ufyr gq rfc qcapcr kcqqyec rfyr uc uylr?\"\>"}, {"14", "\<\"Texq fp qeb pbzobq jbppxdb qexq tb txkq?\"\>"}, {"15", "\<\"Sdwp eo pda oaynap iaoowca pdwp sa swjp?\"\>"}, {"16", "\<\"Rcvo dn ocz nzxmzo hznnvbz ocvo rz rvio?\"\>"}, {"17", "\<\"Qbun cm nby mywlyn gymmuay nbun qy quhn?\"\>"}, {"18", "\<\"Patm bl max lxvkxm fxlltzx matm px ptgm?\"\>"}, {"19", "\<\"Ozsl ak lzw kwujwl ewkksyw lzsl ow osfl?\"\>"}, {"20", "\<\"Nyrk zj kyv jvtivk dvjjrxv kyrk nv nrek?\"\>"}, {"21", "\<\"Mxqj yi jxu iushuj cuiiqwu jxqj mu mqdj?\"\>"}, {"22", "\<\"Lwpi xh iwt htrgti bthhpvt iwpi lt lpci?\"\>"}, {"23", "\<\"Kvoh wg hvs gsqfsh asggous hvoh ks kobh?\"\>"}, {"24", "\<\"Jung vf gur frperg zrffntr gung jr jnag?\"\>"}, {"25", "\<\"Itmf ue ftq eqodqf yqeemsq ftmf iq imzf?\"\>"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{ 3.763398973583631*^9, 3.763399033700264*^9, 3.7633990801877747`*^9, 3.76340330440014*^9, 3.763403388791844*^9, {3.7634048515932493`*^9, 3.763404874560486*^9}, 3.763404934070545*^9, 3.763405019691701*^9, 3.763405068745397*^9, 3.7634053135068607`*^9, 3.763405388714623*^9, 3.7634054265276012`*^9, {3.7634059852701597`*^9, 3.763406018372561*^9}, { 3.768751768470909*^9, 3.768751859972291*^9}, 3.768756427448494*^9, 3.7687565099864397`*^9, 3.768756672967358*^9}, CellLabel->"Out[323]=", CellID->1545261082] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Sander Huisman", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["Caesar", "Item"], Cell["decipher", "Item"], Cell["decypher", "Item"], Cell["rot13", "Item"], Cell["rotate by 13 places", "Item"], Cell["shift cipher", "Item"], Cell["Caesar code", "Item"], Cell["substitution cipher", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Strings & Text", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["Encrypt", "Item"], Cell["Decrypt", "Item"], Cell["Hash", "Item"], Cell["StringReplace", "Item"], Cell["Alphabet", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["CaesarCipher", "Item"], Cell["VigenereCipher", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], 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[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "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 VerificationTest 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"Nest", "[", RowBox[{"CaesarDecipher", ",", "\"\\"", ",", "8"}], "]"}], "===", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.763391866533538*^9, 3.763391958272656*^9}, { 3.7687561563966627`*^9, 3.768756167831587*^9}, 3.7695375073081403`*^9}, CellLabel->"In[1]:=", CellID->667877521], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"Nest", "[", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"Ca\"", "\[Ellipsis]", "\"her\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"CaesarDecipher\""}], ResourceFunction["CaesarDecipher"], Selectable -> False], ",", "\"Sander\"", ",", "8"}], "]"}], "===", "\"Sander\""}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 4, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[Nest[$CellContext`CaesarDecipher, "Sander", 8] === "Sander"], "ExpectedOutput" -> HoldForm[True], "ActualOutput" -> HoldForm[True], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[7056, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.76953751385614*^9}, CellLabel->"Out[1]=", CellID->68596476] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{ RowBox[{"CaesarDecipher", "[", RowBox[{"\"\\"", ",", "11"}], "]"}], ",", RowBox[{"-", "11"}]}], "]"}], "===", "\"\\""}], "]"}]], "Input",\ CellChangeTimes->{{3.763391866533538*^9, 3.763391958272656*^9}, { 3.7687561563966627`*^9, 3.768756167831587*^9}, 3.7695375073081403`*^9}, CellLabel->"In[2]:=", CellID->368581357], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox["\"CaesarDecipher\"", "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> { "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"CaesarDecipher\""}], ResourceFunction["CaesarDecipher"], Selectable -> False], "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> Rational[10, 13] Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ StyleBox[ RowBox[{"\"C\"", "\[Ellipsis]", "\"r\""}], "ResourceFunctionLabel"], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False]}}]], "ResourceFunctionFrame"], FrameBoxOptions -> { FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> GrayLevel[0.5, 0.15], BaseStyle -> {"StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}}, GridBoxOptions -> { FrameStyle -> GrayLevel[1, 0], GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], { "FunctionResourceBox", GrayLevel[0.15], "\"CaesarDecipher\""}], ResourceFunction["CaesarDecipher"], Selectable -> False], "[", RowBox[{"\"Sander\"", ",", "11"}], "]"}], ",", RowBox[{"-", "11"}]}], "]"}], "===", "\"Sander\""}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0``7.150514997831988", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 5, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`CaesarDecipher[ $CellContext`CaesarDecipher["Sander", 11], -11] === "Sander"], "ExpectedOutput" -> HoldForm[True], "ActualOutput" -> HoldForm[True], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[13984, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.76953751394514*^9}, CellLabel->"Out[2]=", CellID->52052384] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], 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[ 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"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], 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, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], 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.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, 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 :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), 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.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`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.988235, 0.419608, 0.203922], 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 :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (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 :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, 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 :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, 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.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", 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[ "\"Function Repository \[RightGuillemet] \"", "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"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "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 -> 12, 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 -> 12, 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"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", 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.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 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"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 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"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, 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 SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, 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, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"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"]], 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.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], 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.905882]], 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["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 51, 1, 70, "Title",ExpressionUUID->"3bdc0ba1-f627-431b-a253-e14a23f18d59", CellTags->"Title"]}, "Description"->{ Cell[612, 23, 77, 1, 70, "Text",ExpressionUUID->"a49ed2ea-de23-478b-86ea-926e811c466a", CellTags->"Description"]}, "Definition"->{ Cell[714, 28, 887, 21, 70, "Section",ExpressionUUID->"c6b54439-08ea-4e19-9a62-60cba4a103f1", CellTags->"Definition", CellID->474513213]}, "TabNext"->{ Cell[1604, 51, 3601, 85, 70, "Input",ExpressionUUID->"44c35a1a-afd5-494f-9c84-5fc6790d80f0", CellTags->"TabNext", CellID->778396829], Cell[20357, 569, 253, 8, 70, "Notes",ExpressionUUID->"740db321-bbb8-4086-895f-0c2e4fc5b2a3", CellTags->"TabNext", CellID->521904482], Cell[48917, 1403, 496, 8, 70, "Text",ExpressionUUID->"3cf5a5c1-b889-4476-b292-6deace01fd4b", CellTags->"TabNext", CellID->343081869], Cell[50067, 1436, 485, 8, 70, "Item",ExpressionUUID->"4b47d936-a5f7-4888-9558-53473d9f60c4", CellTags->"TabNext", CellID->485448166], Cell[76153, 2012, 509, 8, 70, "Text",ExpressionUUID->"5d64e0c6-ecbe-444c-989c-693e5b2086e5", CellTags->"TabNext", CellID->567921317], Cell[77422, 2046, 495, 8, 70, "Text",ExpressionUUID->"9348199b-4928-4fcd-9c76-a35f0036b64b", CellTags->"TabNext", CellID->920818074]}, "Documentation"->{ Cell[5220, 139, 99, 3, 70, "Section",ExpressionUUID->"38fbbf05-7b02-4f1b-b007-2b304e5c676f", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[5344, 146, 1615, 42, 70, "Subsection",ExpressionUUID->"3d8740ea-c2ef-4272-8889-e0f9ed5d5b8a", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[8425, 255, 1131, 24, 70, "Subsection",ExpressionUUID->"b587a60a-c2aa-41a4-b36f-de086aa8875c", CellTags->"Details & Options", CellID->66019318]}, "Examples"->{ Cell[21104, 600, 6400, 143, 70, "Section",ExpressionUUID->"425999e4-a383-4dda-ac17-bd4b5746d947", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[44438, 1240, 135, 3, 70, "Section",ExpressionUUID->"190144aa-ca65-46a6-af46-1252d2cbfebc", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[44598, 1247, 683, 18, 70, "Subsection",ExpressionUUID->"cd4f29c9-44af-48a0-a8f9-67050c61a357", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[45351, 1272, 684, 18, 70, "Subsection",ExpressionUUID->"cafc5953-819d-43c9-ab98-1a64474817d5", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[46312, 1311, 126, 4, 70, "Subsection",ExpressionUUID->"29bc7202-0e6b-4c3d-892e-2a109c8133b9", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[46508, 1322, 661, 18, 70, "Subsection",ExpressionUUID->"de0f5495-8d2b-414f-9e34-00ed1e25d5ab", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[47340, 1355, 711, 18, 70, "Subsection",ExpressionUUID->"82036e2b-a38f-4129-bbc8-8d848de58f5a", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[48152, 1382, 762, 19, 70, "Subsection",ExpressionUUID->"c28d1df6-2847-4304-8fc6-307c12591630", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[49450, 1416, 614, 18, 70, "Subsection",ExpressionUUID->"e810ec77-29e1-4f4e-961f-4f5a27142ee8", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[50589, 1449, 767, 20, 70, "Subsection",ExpressionUUID->"7efc9757-4c12-41d6-a9eb-b1273c3ef066", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[76023, 2006, 127, 4, 70, "Section",ExpressionUUID->"36051564-6633-40a0-8b03-9f01f00ff7c3", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[76699, 2025, 720, 19, 70, "Section",ExpressionUUID->"a051f3cb-d076-41aa-9269-41a696cebbef", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 148893, 3422}, {"Description", 149026, 3425}, {"Definition", 149163, 3428}, {"TabNext", 149323, 3432}, {"Documentation", 150196, 3451}, {"Usage", 150357, 3455}, {"Details & Options", 150528, 3459}, {"Examples", 150701, 3463}, {"Source & Additional Information", 150888, 3467}, {"Contributed By", 151079, 3471}, {"Keywords", 151251, 3475}, {"Categories", 151419, 3479}, {"Related Symbols", 151593, 3483}, {"Related Resource Objects", 151782, 3487}, {"Source/Reference Citation", 151981, 3491}, {"Links", 152161, 3495}, {"Tests", 152321, 3499}, {"Author Notes", 152487, 3503}, {"Submission Notes", 152661, 3507} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 51, 1, 70, "Title",ExpressionUUID->"3bdc0ba1-f627-431b-a253-e14a23f18d59", CellTags->"Title"], Cell[612, 23, 77, 1, 70, "Text",ExpressionUUID->"a49ed2ea-de23-478b-86ea-926e811c466a", CellTags->"Description"], Cell[CellGroupData[{ Cell[714, 28, 887, 21, 70, "Section",ExpressionUUID->"c6b54439-08ea-4e19-9a62-60cba4a103f1", CellTags->"Definition", CellID->474513213], Cell[1604, 51, 3601, 85, 70, "Input",ExpressionUUID->"44c35a1a-afd5-494f-9c84-5fc6790d80f0", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[5220, 139, 99, 3, 70, "Section",ExpressionUUID->"38fbbf05-7b02-4f1b-b007-2b304e5c676f", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[5344, 146, 1615, 42, 70, "Subsection",ExpressionUUID->"3d8740ea-c2ef-4272-8889-e0f9ed5d5b8a", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[6984, 192, 141, 4, 70, "UsageInputs",ExpressionUUID->"b95537fa-a4f1-4be9-91e0-341a47b19c2f"], Cell[7128, 198, 362, 11, 70, "UsageDescription",ExpressionUUID->"1bedc702-251c-4f8f-b213-a4de62c93a55"] }, Open ]], Cell[CellGroupData[{ Cell[7527, 214, 327, 11, 70, "UsageInputs",ExpressionUUID->"4fece516-8241-4f1c-9405-090196aece05"], Cell[7857, 227, 186, 8, 70, "UsageDescription",ExpressionUUID->"8a932d10-5bde-404f-8eea-815539aacced"] }, Open ]], Cell[CellGroupData[{ Cell[8080, 240, 92, 2, 70, "UsageInputs",ExpressionUUID->"0fec42f3-d99d-488c-81c3-bb595d52f389"], Cell[8175, 244, 201, 5, 70, "UsageDescription",ExpressionUUID->"40e3ccbf-7e47-48a0-892d-51b95cf60128"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8425, 255, 1131, 24, 70, "Subsection",ExpressionUUID->"b587a60a-c2aa-41a4-b36f-de086aa8875c", CellTags->"Details & Options", CellID->66019318], Cell[9559, 281, 489, 15, 70, "Notes",ExpressionUUID->"53fe6c66-1627-4a86-8af5-eb96b7e4f5cf", CellID->1945198046], Cell[10051, 298, 10115, 258, 70, "Print",ExpressionUUID->"1eb3be9b-3472-4d5b-8602-4e88332c601a", CellID->15010725], Cell[20169, 558, 185, 9, 70, "Text",ExpressionUUID->"9088a96d-1081-49ef-8cdc-2a8dfefcd565", CellID->251286075], Cell[20357, 569, 253, 8, 70, "Notes",ExpressionUUID->"740db321-bbb8-4086-895f-0c2e4fc5b2a3", CellTags->"TabNext", CellID->521904482], Cell[20613, 579, 195, 6, 70, "Notes",ExpressionUUID->"2ee5b440-cbfe-442f-9a26-9da6c9bb60ba", CellID->1988064602], Cell[20811, 587, 168, 5, 70, "Notes",ExpressionUUID->"68e286cd-9525-41e1-a004-046d6167ad14", CellID->1732079674], Cell[20982, 594, 85, 1, 70, "Notes",ExpressionUUID->"8c666a8b-99f0-48dd-9eda-1361d34ac2b8", CellID->204000346] }, Open ]], Cell[CellGroupData[{ Cell[21104, 600, 6400, 143, 70, "Section",ExpressionUUID->"425999e4-a383-4dda-ac17-bd4b5746d947", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[27529, 747, 56, 1, 70, "Subsection",ExpressionUUID->"8749b8f9-84c4-422e-a62d-c77bdd168cd5", CellID->462042388], Cell[27588, 750, 197, 3, 70, "Text",ExpressionUUID->"93516186-50a9-40ab-bde7-c6d550aaf00a", CellID->13078159], Cell[CellGroupData[{ Cell[27810, 757, 312, 7, 70, "Input",ExpressionUUID->"c1299c57-7ecb-408d-b856-419b3cbc5884", CellID->1828403463], Cell[28125, 766, 275, 5, 70, "Output",ExpressionUUID->"26b8566b-7e39-4181-9d78-e9fd677c05bc", CellID->989224448] }, Open ]], Cell[CellGroupData[{ Cell[28437, 776, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"405ff0e2-dfb1-418a-b315-50eb54798900", CellID->53404187], Cell[28564, 781, 210, 3, 70, "Text",ExpressionUUID->"72b632b2-97dd-448f-9082-fb11beb7792d", CellID->748682166], Cell[CellGroupData[{ Cell[28799, 788, 318, 7, 70, "Input",ExpressionUUID->"de0d44cc-47e1-4004-9f37-c1c48ee3a32c", CellID->994476189], Cell[29120, 797, 350, 6, 70, "Output",ExpressionUUID->"21815a48-ed87-492f-a7a3-f8e3146c6c9f", CellID->677748829] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29531, 810, 66, 2, 70, "Subsection",ExpressionUUID->"23b0b666-b449-4c0c-b7a8-e354e8a5b818", CellID->964056545], Cell[29600, 814, 355, 10, 70, "Text",ExpressionUUID->"e73b03a9-8a01-44cc-8f2b-264c923dd0da", CellID->1961192500], Cell[CellGroupData[{ Cell[29980, 828, 292, 6, 70, "Input",ExpressionUUID->"62caf6fb-90bf-4a5f-bc59-056b0e3d6d6f", CellID->836153427], Cell[30275, 836, 275, 5, 70, "Output",ExpressionUUID->"68b78390-76bf-47ea-97f5-ea1dca0f61d7", CellID->479244230] }, Open ]], Cell[CellGroupData[{ Cell[30587, 846, 191, 4, 70, "Input",ExpressionUUID->"ff96a7b4-4e0c-482c-b4ff-c425d046853c", CellID->13540002], Cell[30781, 852, 273, 5, 70, "Output",ExpressionUUID->"346ce81f-ae6d-4ade-8af5-0e0cab382198", CellID->993903172] }, Open ]], Cell[CellGroupData[{ Cell[31091, 862, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"8ac65315-4515-44b6-a541-621bb38dda4a", CellID->49226017], Cell[31218, 867, 231, 4, 70, "Text",ExpressionUUID->"c78a1574-06ad-4c4b-82c5-d5a4afb6ecfb", CellID->2058727803], Cell[CellGroupData[{ Cell[31474, 875, 448, 10, 70, "Input",ExpressionUUID->"6b1fb114-8bf1-4a7f-bd7a-5f0d696c8504", CellID->781664557], Cell[31925, 887, 429, 9, 70, "Output",ExpressionUUID->"87e8a402-4f81-40dd-a851-6a4d63ead418", CellID->2043941522] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32403, 902, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"5ec68617-715a-4c06-a584-fc775478a0d7", CellID->1022980081], Cell[32532, 907, 285, 6, 70, "Text",ExpressionUUID->"34927621-e5d5-4c77-9b9f-12cf3ec370ae", CellID->918529142], Cell[CellGroupData[{ Cell[32842, 917, 253, 6, 70, "Input",ExpressionUUID->"b2a47272-4c99-4afd-bbd5-125a6037c3b8", CellID->2060571573], Cell[33098, 925, 1927, 47, 70, "Output",ExpressionUUID->"4049bf25-7547-41f1-b88d-ff6f63365f99", CellID->396463631] }, Open ]], Cell[35040, 975, 119, 2, 70, "Text",ExpressionUUID->"5576eb3e-4a25-45ad-b7e2-4fdfd2c17b65", CellID->217609577], Cell[CellGroupData[{ Cell[35184, 981, 176, 4, 70, "Input",ExpressionUUID->"a91b0704-1336-4c42-9138-745e8859965f", CellID->761625456], Cell[35363, 987, 176, 4, 70, "Output",ExpressionUUID->"c2ee56e1-ac03-4bdf-93fe-f22a499b6fa5", CellID->1019106871] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35600, 998, 73, 2, 70, "Subsection",ExpressionUUID->"fca5c679-5156-46a2-a65f-7f143f814efb", CellID->568056528], Cell[35676, 1002, 222, 4, 70, "Text",ExpressionUUID->"d5b99995-f075-42f1-bd3d-4a23c173cb79", CellID->1591288148], Cell[CellGroupData[{ Cell[35923, 1010, 375, 8, 70, "Input",ExpressionUUID->"bf013035-abae-4a1a-bbf9-c74b7792b44c", CellID->474259100], Cell[36301, 1020, 379, 7, 70, "Output",ExpressionUUID->"dc964ecf-684a-4c61-a652-fae20431d791", CellID->944835779] }, Open ]], Cell[CellGroupData[{ Cell[36717, 1032, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"509ba14f-5843-4b5f-90ee-12424ef40cda", CellID->2017414949], Cell[36846, 1037, 224, 4, 70, "Text",ExpressionUUID->"58eebf7d-666d-4de8-9abd-44f2e7794a41", CellID->1326035979], Cell[CellGroupData[{ Cell[37095, 1045, 382, 8, 70, "Input",ExpressionUUID->"eb4f3af5-6fd4-4d14-89f4-c69eb42918e6", CellID->101410487], Cell[37480, 1055, 384, 7, 70, "Output",ExpressionUUID->"0838337f-f818-46c5-a317-3c10117dfccc", CellID->1283964531] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37925, 1069, 85, 2, 70, "Subsection",ExpressionUUID->"7d31d6d9-3319-4082-b3db-25c5bb2b1503", CellID->754506620], Cell[38013, 1073, 318, 7, 70, "Text",ExpressionUUID->"6510b126-1ae4-4676-9d90-4115208f7d1e", CellID->2117513894], Cell[CellGroupData[{ Cell[38356, 1084, 412, 10, 70, "Input",ExpressionUUID->"6b1db713-6555-41c1-928c-3b5807dfbef1", CellID->768562872], Cell[38771, 1096, 245, 5, 70, "Output",ExpressionUUID->"ab66c077-5203-4b2b-b58b-d13fac1f8565", CellID->1731470819] }, Open ]], Cell[CellGroupData[{ Cell[39053, 1106, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"e6d4ae8b-5a8a-4264-b43a-4705a2ff93dd", CellID->1842726787], Cell[39182, 1111, 284, 6, 70, "Text",ExpressionUUID->"6b9ba1c3-8a26-4ad8-ac90-a4db3a4c40e5", CellID->611236494], Cell[CellGroupData[{ Cell[39491, 1121, 499, 13, 70, "Input",ExpressionUUID->"968fc161-a94b-4e33-855b-56d5cbf56178", CellID->450121358], Cell[39993, 1136, 600, 11, 70, "Output",ExpressionUUID->"ac08a31d-9ee8-4952-ae31-92bbddd6fc5c", CellID->1929333842] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40654, 1154, 74, 2, 70, "Subsection",ExpressionUUID->"43899fa7-6114-4a56-9b92-d67a11b1ff6c", CellID->540091361], Cell[40731, 1158, 552, 9, 70, "Text",ExpressionUUID->"3aa73190-8903-4027-9d8f-6b774cf87e79", CellID->743341054], Cell[CellGroupData[{ Cell[41308, 1171, 769, 20, 70, "Input",ExpressionUUID->"30715e6d-10fb-49ee-9691-d70b1cf07395", CellID->58679055], Cell[42080, 1193, 2297, 40, 70, "Output",ExpressionUUID->"32601af3-0b69-46dc-866a-8183a566753b", CellID->1545261082] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44438, 1240, 135, 3, 70, "Section",ExpressionUUID->"190144aa-ca65-46a6-af46-1252d2cbfebc", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[44598, 1247, 683, 18, 70, "Subsection",ExpressionUUID->"cd4f29c9-44af-48a0-a8f9-67050c61a357", CellTags->"Contributed By", CellID->127820888], Cell[45284, 1267, 30, 0, 70, "Text",ExpressionUUID->"58ccf8be-7850-4576-a428-558bc9856dce"] }, Open ]], Cell[CellGroupData[{ Cell[45351, 1272, 684, 18, 70, "Subsection",ExpressionUUID->"cafc5953-819d-43c9-ab98-1a64474817d5", CellTags->"Keywords", CellID->547400482], Cell[46038, 1292, 22, 0, 70, "Item",ExpressionUUID->"022e0f36-86da-4dc7-94e2-ae38481a2558"], Cell[46063, 1294, 24, 0, 70, "Item",ExpressionUUID->"d26cad08-acba-4e57-9f15-dc14e12d61df"], Cell[46090, 1296, 24, 0, 70, "Item",ExpressionUUID->"ac2af5e4-1efb-455c-9b6c-fb5c2649901f"], Cell[46117, 1298, 21, 0, 70, "Item",ExpressionUUID->"7bd5480a-0a67-474a-9e81-3927ab6d49fe"], Cell[46141, 1300, 35, 0, 70, "Item",ExpressionUUID->"be6cbcd6-dfb4-4bf7-aa17-c5ae98d38726"], Cell[46179, 1302, 28, 0, 70, "Item",ExpressionUUID->"0583867b-9674-44e0-9ff2-417cbb2b0a62"], Cell[46210, 1304, 27, 0, 70, "Item",ExpressionUUID->"988f4845-a9f3-47dd-b42b-090de15e078a"], Cell[46240, 1306, 35, 0, 70, "Item",ExpressionUUID->"4fd69077-4a1f-47c8-8a26-ef421e28403a"] }, Open ]], Cell[CellGroupData[{ Cell[46312, 1311, 126, 4, 70, "Subsection",ExpressionUUID->"29bc7202-0e6b-4c3d-892e-2a109c8133b9", CellTags->"Categories", CellID->749076926], Cell[46441, 1317, 30, 0, 70, "Item",ExpressionUUID->"7d4b6199-1997-436a-a03f-146bae9c9cb4"] }, Open ]], Cell[CellGroupData[{ Cell[46508, 1322, 661, 18, 70, "Subsection",ExpressionUUID->"de0f5495-8d2b-414f-9e34-00ed1e25d5ab", CellTags->"Related Symbols", CellID->161079978], Cell[47172, 1342, 23, 0, 70, "Item",ExpressionUUID->"0b0fa9af-43d7-4bd5-9361-85b4778f13f2"], Cell[47198, 1344, 23, 0, 70, "Item",ExpressionUUID->"248191cf-eb81-44a8-9923-b54c9f957ab6"], Cell[47224, 1346, 20, 0, 70, "Item",ExpressionUUID->"1d40dd8c-0dd9-433b-b312-961a45c25361"], Cell[47247, 1348, 29, 0, 70, "Item",ExpressionUUID->"f27446b0-8e95-4bf4-82b5-cc27d132e58b"], Cell[47279, 1350, 24, 0, 70, "Item",ExpressionUUID->"fed5de9f-b0d4-4b8f-994f-4ce1de02a1ba"] }, Open ]], Cell[CellGroupData[{ Cell[47340, 1355, 711, 18, 70, "Subsection",ExpressionUUID->"82036e2b-a38f-4129-bbc8-8d848de58f5a", CellTags->"Related Resource Objects", CellID->588449267], Cell[48054, 1375, 28, 0, 70, "Item",ExpressionUUID->"138579fd-1ab9-42ef-a8bd-f53266e93753"], Cell[48085, 1377, 30, 0, 70, "Item",ExpressionUUID->"dceafa3c-f273-4840-8687-4a720be7d432"] }, Open ]], Cell[CellGroupData[{ Cell[48152, 1382, 762, 19, 70, "Subsection",ExpressionUUID->"c28d1df6-2847-4304-8fc6-307c12591630", CellTags->"Source/Reference Citation", CellID->642091068], Cell[48917, 1403, 496, 8, 70, "Text",ExpressionUUID->"3cf5a5c1-b889-4476-b292-6deace01fd4b", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[49450, 1416, 614, 18, 70, "Subsection",ExpressionUUID->"e810ec77-29e1-4f4e-961f-4f5a27142ee8", CellTags->"Links", CellID->521525586], Cell[50067, 1436, 485, 8, 70, "Item",ExpressionUUID->"4b47d936-a5f7-4888-9558-53473d9f60c4", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[50589, 1449, 767, 20, 70, "Subsection",ExpressionUUID->"7efc9757-4c12-41d6-a9eb-b1273c3ef066", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[51381, 1473, 389, 9, 70, "Input",ExpressionUUID->"b9c4fe47-1ffa-47d1-9adf-b0c4a0077322", CellID->667877521], Cell[51773, 1484, 10638, 224, 70, "Output",ExpressionUUID->"4344f757-a7d3-452f-b2d7-91aeeb6575ed", CellID->68596476] }, Open ]], Cell[CellGroupData[{ Cell[62448, 1713, 468, 12, 70, "Input",ExpressionUUID->"a6ba6b09-45af-4d11-8bb5-875124e0a7ee", CellID->368581357], Cell[62919, 1727, 13043, 272, 70, "Output",ExpressionUUID->"804034a2-5776-48bc-ab00-c6d598066302", CellID->52052384] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[76023, 2006, 127, 4, 70, "Section",ExpressionUUID->"36051564-6633-40a0-8b03-9f01f00ff7c3", CellTags->"Author Notes", CellID->795110225], Cell[76153, 2012, 509, 8, 70, "Text",ExpressionUUID->"5d64e0c6-ecbe-444c-989c-693e5b2086e5", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[76699, 2025, 720, 19, 70, "Section",ExpressionUUID->"a051f3cb-d076-41aa-9269-41a696cebbef", CellTags->"Submission Notes", CellID->843283583], Cell[77422, 2046, 495, 8, 70, "Text",ExpressionUUID->"9348199b-4928-4fcd-9c76-a35f0036b64b", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)