(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 260990, 5639] NotebookOptionsPosition[ 102674, 2631] NotebookOutlinePosition[ 246524, 5332] CellTagsIndexPosition[ 244715, 5282] WindowTitle->SquareSpiralPoints | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["SquareSpiralPoints", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->84974813], Cell["\<\ Get the coordinates of the points on a square spiral with sides parallel to \ the axes\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->460779721], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{ RowBox[{"SquareSpiralPoints", "[", "n_", "]"}], " ", ":=", " ", RowBox[{"AnglePath", "[", RowBox[{ RowBox[{"Join", " ", "@@", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"#1", ",", " ", "90"}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"0", "*", RowBox[{"Range", "[", RowBox[{"k", "/", "2"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "0", ",", " ", RowBox[{"n", " ", "-", " ", "1"}]}], "}"}]}], "]"}]}]}], "*", "Degree"}], "]"}]}]], "Input", InitializationCell->True, CellID->92882463], Cell[BoxData[""], "Input", InitializationCell->True, CellID->725771529] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], StyleBox["[", "ResourceFunctionHandle"], StyleBox["\"\\"", "ResourceFunctionName"], StyleBox["]", "ResourceFunctionHandle"]}], "[", StyleBox["n", "TI", FontSlant->"Italic"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->34886219], Cell[TextData[{ "gives the list of coordinate pairs on a square spiral with ", StyleBox["n", "TI", FontSlant->"Italic"], " sides starting at the origin." }], "UsageDescription", CellID->508486543] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell["\<\ The list starts at the origin and goes up, left, down, right and repeats.\ \>", "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, 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.758294496295189*^9, 3.758294538485161*^9}, { 3.758305370581717*^9, 3.7583053996226387`*^9}, {3.758306092246955*^9, 3.758306098254079*^9}, 3.7675440941706657`*^9}, CellTags->"TabNext", CellID->827412616] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Here are the points on the first four sides of the spiral:", "Text", TaggingRules->{}, CellChangeTimes->{{3.758294603410687*^9, 3.758294606202675*^9}, { 3.7583064174114933`*^9, 3.7583064332259207`*^9}, 3.758309304050318*^9, { 3.758309393776804*^9, 3.758309394247013*^9}}, CellID->630195989], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SquareSpiralPoints", "[", "4", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758294572868843*^9, 3.758294589685771*^9}, { 3.758306108060484*^9, 3.7583061083655787`*^9}, 3.759008191839807*^9}, CellLabel->"In[29]:=", CellID->379167163], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.758294583720296*^9, 3.7582945905008698`*^9}, 3.758306109400671*^9, 3.759008208355113*^9}, CellLabel->"Out[29]=", CellID->266520822] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["\<\ This shows the sequence of points in order on the first six sides:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758294807060244*^9, 3.7582948264117727`*^9}, { 3.7583094234073353`*^9, 3.7583094303261538`*^9}}, CellID->703461519], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"s", "=", RowBox[{"SquareSpiralPoints", "[", "6", "]"}]}], "}"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Pink", ",", RowBox[{"PointSize", "[", ".03", "]"}], ",", RowBox[{"Point", "[", "s", "]"}]}], "}"}], ",", RowBox[{"Arrow", "@", RowBox[{"Partition", "[", RowBox[{"s", ",", "2", ",", "1"}], "]"}]}]}], "}"}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7582946129978724`*^9, 3.758294769246249*^9}, { 3.758309535829677*^9, 3.758309536530854*^9}, 3.759008191845257*^9}, CellLabel->"In[30]:=", CellID->575777827], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0.5, 0.5], PointSize[0.03], PointBox[{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}, {-1, -1}, {0, -1}, {1, -1}, { 1, 0}, {1, 1}, {1, 2}, {0, 2}, {-1, 2}, {-2, 2}}]}, ArrowBox[{{{0, 0}, {0, 1}}, {{0, 1}, {-1, 1}}, {{-1, 1}, {-1, 0}}, {{-1, 0}, {-1, -1}}, {{-1, -1}, {0, -1}}, {{0, -1}, {1, -1}}, {{1, -1}, {1, 0}}, {{1, 0}, {1, 1}}, {{1, 1}, {1, 2}}, {{1, 2}, {0, 2}}, {{0, 2}, {-1, 2}}, {{-1, 2}, {-2, 2}}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.75829467184791*^9, 3.7582946791628733`*^9}, { 3.758294719670157*^9, 3.7582947702423143`*^9}, 3.758306115459806*^9, { 3.758309537678234*^9, 3.7583095409134007`*^9}, 3.759008211489224*^9}, CellLabel->"Out[30]=", CellID->667782668] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Forty black sides with 20 red sides overlaid:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7582948913614197`*^9, 3.7582948958539753`*^9}, { 3.758403960906299*^9, 3.758403962286571*^9}, {3.758405931354084*^9, 3.7584059436661863`*^9}, {3.7675443150573053`*^9, 3.767544316411009*^9}}, CellID->193148865], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "@", RowBox[{"SquareSpiralPoints", "[", "40", "]"}]}], ",", "Red", ",", RowBox[{"Line", "@", RowBox[{"SquareSpiralPoints", "[", "20", "]"}]}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758294852948044*^9, 3.758294882009931*^9}, { 3.7583061345745792`*^9, 3.7583061351011066`*^9}, {3.7583061709626017`*^9, 3.7583062164984818`*^9}, {3.758308720401732*^9, 3.758308724991219*^9}, { 3.759008191851617*^9, 3.7590081918525257`*^9}}, CellLabel->"In[31]:=", CellID->989047456], Cell[BoxData[ GraphicsBox[{LineBox[CompressedData[" 1:eJxd2H9sVfUZx/HbUjgHYbbsnnCP3Cvtve1wOnRdYGRTLvfxV2GRBEQjLE7B bTBkG1uMKPMHNujIwhRhOHFbZphmjEkibDPLnK33UZQE549OCanIZqODEca0 AmLF0m67z/ub9Bn/nLxuDt/zPJ/v93vO6Sl+/XsLltZnMplf12Uy/zv+/7/o a8m0Kds2zTT1V4Zr/96v1mF+r9px10x+rw5xHr93ZfzvlTr3/8I4u7rCuOG8 enfdYc5T6snIoKsnI/b/hqv0IpynDYzDeWqHnpmcpwOMMwoPMs4YV/cw9fZ2 hXFPun4yepo66/04lQY/Dn30hHFkwI8jg34c+ook9DGMQx92jMM45BGHccgj DuPoKGzjxTgjZ2H6rjRh+p45EdN3tYDpu1rCZ7hOiRyoV68ghzo37oRu6tHV 5DAad5FDhP9O32PxQeeMHsCf5jq9LqfjXfvxQa6zD7/HdV7HH3HscW6UrZz3 ARbG+Re266Tdh/AS6ngbt1Pnm86xvoHTmpv0FZx1juRs/HPqGIunU0cDrh06 z+m2+W7UZdRxEk+jjqPOsfbhSYzTx7yFOpjI6njcyToYPfK6mabyIOMI6+g9 3GInSJ9zLK9jW29N8gKOnCP2U6P8iDqoX5qoo9fNw+TyHryaOp7CbBh5zDmW jXgy113jnOCIeUlk0AKuxHjgjM2Drf+s1SHt3cdxQ53Nwz/xWubhoHOsf8WX kuse50SfwdPxbdR5nnMkk/Ax6vwU7qXODLY6v9B9wsbVhDoP4/XU+aZzrC/j K6mz6pwo+ekM50hDneRXTTH5Vce6utrLpxmX/NhvWSU/9nNwLK9g8pNnnRPZ idvxjdTZ7Bzp2biLOsO8rqbOY26ep5ffwldQ50v4Mep82jmW7fhq6tzinMg6 51TGM88V50guxCnznMftgzbPY3Ht0Dmr2+5nOTnCPB/CJ5nnN5xjfQ7fwTzv dE70l86p/hgvc87KAjyRPmY5R3IBnkofE/Ei+qjHlma52+4rOd1HHwfwUfrY 4xzr7/Eq+njUOdH1zinO6mKcsE6+4hxx/0z1s6yTc/F8q7sajay7s1z+gOv0 sk7ewsdYJy86x6zXnN7GOvmZcyL3OqfyXXyjc1Y78IEh6+Mi50jJW56yhc77 Sk6Wf2J9HMa105ZcVn4Vz623Pv6Ip9gDXh51jlnPOdlMHyudE7nOOZVZzgWc lR/gu6wPWewcyZV4wB4Ylc/h/o9tHU3AVuUc9kNe4lG2jv6G77M+dLdzrL/F z7OOHnROdJVzqtc7F/RSvM05J+uds7ISr6XPBc6RzMANNl+VSTg+bX3a/OVt 3fXN7n4HD9p8VffgNfT5hHOsG3CVPm9xTvQ651Qvdi7gnP7KOav34ltZh0ud I52Nj9j8Vc/HPTZ/1XHYqp5T/jfXTW3+Kq/h+1mHv3OOZTPewzpc5ZzIQudU vuxckDze5pzTdc5Z3rsKMoM+O5wjnYK/Q59jcO+A9XmYdVL7eetc3mfy8hB9 bsMv0ec651iW4UP02eGcyBTnVMY4F+TwkPmWmltwTm5yzsp8/PIZW6cV50gu wo98Yuv0XNz+ka3T8dj6vLr7VO20ZlneYOt0H55uDwDu48GxbsST6mydrnRO dK5zqhc4/3e/4AesDrW+muVO57zc7JyThc5Z7jstGnKY5hxJEYccGnHIwd5z mjXksB+HHOhbQw4bnGNdgUMOHc6JlpxTHRoa6YIewCEHc17vcM7pt5yzei22 50Yj71nBEc+ZFrXnyHA1j3tO2TqPce2wZEH5KHU+Yn1XXsD2nAnPleBYVmN7 zjTJAudEpjqHdR5ckD763sw6/DO+xzmv33bO6ULnrF6ObyWHzztHSt9yxCaa 94IW6fnQcjjMOrQcri0/i9PRlsPD+H5yWOkcs7+bpYMcJjsncmpopFN51bkg 2/Dj1LXGuYTzssE5x/M4OCvfxIODtg/mOUdyMR742PbBZ3D/CdsHTdjKWNRt y6Yoce0GGf4uKUqDfTjg76Xg8N2gKGvZB79xTvQnzqne7VzQ5fg51uU1ziWd hXfgu8jpp855ucc5x/0jOCvX4AFyKjtH/D1X0n5ymoD7yIlc1FbDIr47FLWJ nF7DMTk97Rzr4/g+cnrAOdHbnVO9ybmgV+HnyemLziVdwT7a4ZzXh5xzerdz eG6WdJ/lovOcI/0S3m65VIt4vuVSPQvXDku+Wj5BXYssl8pBPNVy4X07OJYn 8cPsoy3OiXQ6p3Kzc4H7T1H/YrnIJc4lacN/wHPI6RfOed6TgnPcf4KzyvqR jeR0iXOkrbiFnMZhOW45kYvUfu68nr9fi9JHTrvx98lph3N4jyrKn8jpTudE vuGcylXOBZmGD5JT3rkko5zbZAz7bLdzXp5wzskm5yzff9pkPPtssXMkHTi1 D6iVC3F7fy2nSoJrh62LuR+1ypHaDby/+g4+yT7b6xzrLnyafbbFOXwXCU51 qXOB95dWOWM56TTnkk5ybtM6/K5zUfbienLc6Zzn/hWc4/0nOMt7X5s2kONs 5/Adok1jcsziJnK0ZdiqtZ/7Fne/jQfI8UU8SI47nGPdhIfI8XbnRG9wTvVy 54Kej4fJsdG5pB8OjXQbLuo/8NHac7xZ9zrn9UnnHO8RwVll/em+2sJp1Buc I70Mb7c/RKvn4fnv13Lje2ub5bZrCd8PWnVR7cWpv7IfT7UPwPKMc8x361ad WHtPaJIfOieywjmVec4FmY7H1XJskXOcSzI0NNJt8i7+D9F0DbI= "]], {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJxdk7FrU1EUxm/S1HcjalLzkFikaAddIy1OCe8I+g84O4igazfpJMVJnHR1 EgdXO7iZ9J1BOlmIVSSVoFlUUKlaC4aSGjX3d8Hjg3D5XU6+853v3nvq6tKl a0Xn3NKf39/1/y+5nC6cfnSvGehbNp58X/MCzH4e1tUm+/kv6thvO7ufFcz/ os5qO+rGuqLpO6ZO8eNkZPw4Cf8b58wi1GkJHeo0LN0mdTpEZwoeoXPA+B7j t9eOurtmHqd7+CxanaxkdZijG3VkaHVkZHWYK5E4xxiOc4TVRx3y8FGHPHzU 0Sk46HnYyUGYubMqzNzNYzBz5ydg5s7n4X36zJMDfvUCORSM7kwHP7pMDtNw mxwS+C1zl+G+Yadv4KP06Zmcdtqv4T59XsHb9NmEf7J2DVfkAXXfYUHnMxz6 1Dvv4Sv4eAc38Lll2OtLuD7hqm7ANcOJHIHv46MML+KjBE+WleOdcN4VvY6P XXgBH58Mex3As+gMOLfog4PMD8Er3IPpf/u6amuEjnCPtuGToUAGhr1swuG+ VeUZnBhOeE8VuY0P/EsVHz1zDnOtdXgZH09gHow8NOzlLjxH35uGUzjhXFIZ hYAzDw/3wzmE+18LPqTR2YFLhXAOH+FbnEPfsNcX8HlyXTec6lN4Eb6BzzOG E5mFv+DzMNzDp4ODz7OdH0FXU3x+gO/gc8uw1+fwRXzmhlMlPz1nONHok/zy Okx+edn4arT20CU/3ltNyY/3HNnLBkx+smY4lcfwbzsIIPw= "]]}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.758306187279694*^9, 3.758306217224358*^9}, { 3.7583087216780043`*^9, 3.758308726111217*^9}, 3.759008215890807*^9}, CellLabel->"Out[31]=", CellID->27204386] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ "The number of points in ", StyleBox["n", "TI", FontSlant->"Italic"], " sides:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.758306755439684*^9, 3.75830678229506*^9}, 3.758309307200746*^9}, CellID->513213899], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Length", "@", RowBox[{"SquareSpiralPoints", "@", "#"}]}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75830649989918*^9, 3.758306518662984*^9}, { 3.758306704517927*^9, 3.7583067078887453`*^9}, 3.75900819186019*^9}, CellLabel->"In[32]:=", CellID->658241633], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "7", ",", "10", ",", "13", ",", "17", ",", "21", ",", "26", ",", "31"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.758306520814324*^9, 3.758306708756362*^9, 3.759008220190514*^9}, CellLabel->"Out[32]=", CellID->952552108] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75830666712463*^9, 3.758306688329217*^9}, { 3.758306720284157*^9, 3.7583067353839273`*^9}}, CellLabel->"In[33]:=", CellID->872851787], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "7", ",", "10", ",", "13", ",", "17", ",", "21", ",", "26", ",", "31"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758306690098545*^9, {3.758306726023838*^9, 3.758306736226756*^9}, 3.7590082222746477`*^9}, CellLabel->"Out[33]=", CellID->274126339] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["\<\ This finds the coordinate pairs that are a prime distance along the square \ spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758306295846785*^9, 3.758306331221492*^9}, { 3.758306361349299*^9, 3.758306373619851*^9}, {3.75830727691092*^9, 3.7583073676611*^9}, {3.758307457319818*^9, 3.758307467215272*^9}, { 3.758308231526018*^9, 3.758308241381768*^9}, {3.7583799809230328`*^9, 3.758379981641348*^9}}, CellID->165298313], Cell[BoxData[ RowBox[{ RowBox[{"UlamSquareSpiralPoints", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"SquareSpiralPoints", "[", "n", "]"}], "[", RowBox[{"[", RowBox[{"Prime", "@", RowBox[{"Range", "@", RowBox[{"PrimePi", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}], "]"}]}]}], " ", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758379907525497*^9, 3.758379934902039*^9}, { 3.759008191866889*^9, 3.75900819186782*^9}}, CellLabel->"In[148]:=", CellID->949973073], Cell["\<\ The larger points correspond to the primes 2, 3, 5, 7, 11, 13:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307624514155*^9, 3.758307664760827*^9}, { 3.758308151929039*^9, 3.758308154000259*^9}, {3.758379534945084*^9, 3.7583795385852737`*^9}}, CellID->728273076], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "6"}], "}"}], ",", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"LightGray", ",", RowBox[{"Line", "@", RowBox[{"SquareSpiralPoints", "@", "n"}]}]}], "}"}], ",", RowBox[{"Point", "@", RowBox[{"SquareSpiralPoints", "@", "n"}]}], ",", RowBox[{"PointSize", "[", ".08", "]"}], ",", RowBox[{"Point", "@", RowBox[{"UlamSquareSpiralPoints", "@", "n"}]}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75830772123131*^9, 3.7583077253989677`*^9}, { 3.758307783767869*^9, 3.75830781817214*^9}, {3.7583080226757507`*^9, 3.7583080873792677`*^9}, {3.7583081610428534`*^9, 3.758308203597548*^9}, { 3.758379522484634*^9, 3.758379522969658*^9}, {3.759008191872649*^9, 3.759008191874323*^9}}, CellLabel->"In[35]:=", CellID->634203181], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.85], LineBox[{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}, {-1, -1}, {0, -1}, {1, -1}, {1, 0}, {1, 1}, {1, 2}, {0, 2}, {-1, 2}, {-2, 2}}]}, PointBox[{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}, {-1, -1}, {0, -1}, {1, -1}, {1, 0}, {1, 1}, {1, 2}, {0, 2}, {-1, 2}, {-2, 2}}], {PointSize[0.08], PointBox[{{0, 1}, {-1, 1}, {-1, -1}, {1, -1}, {0, 2}, {-2, 2}}]}}, ImageSize->100]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7583077269025803`*^9, {3.758307794978922*^9, 3.758307819182971*^9}, { 3.758308049748094*^9, 3.7583080881187963`*^9}, {3.758308163301917*^9, 3.758308204686307*^9}, 3.758379524429496*^9, 3.7583799395581903`*^9, 3.759008228341543*^9}, CellLabel->"Out[35]=", CellID->248168340] }, Open ]], Cell["About 12% of the numbers up to 10101 are prime:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7583795874872713`*^9, 3.758379623502143*^9}, { 3.758380038448084*^9, 3.758380047527424*^9}}, CellID->29028281], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "200"}], "}"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758375292071919*^9, 3.7583752997461653`*^9}, { 3.758380024475266*^9, 3.758380025056052*^9}, {3.7590082563725224`*^9, 3.7590082668818407`*^9}}, CellLabel->"In[39]:=", CellID->286343217], Cell[BoxData["10101"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758375302946665*^9, 3.758380025805532*^9, {3.759008231542358*^9, 3.75900826803205*^9}}, CellLabel->"Out[39]=", CellID->246930881] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrimePi", "@", "%"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758375321539419*^9, 3.758375329136567*^9}}, CellLabel->"In[40]:=", CellID->268959573], Cell[BoxData["1240"], "Output", TaggingRules->{}, CellChangeTimes->{3.7583753301199007`*^9, 3.758380029555534*^9, 3.7590082736313677`*^9}, CellLabel->"Out[40]=", CellID->943330099] }, Open ]], Cell["\<\ Here are the first 1240 primes plotted along the square spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307737030126*^9, 3.758307749085785*^9}, { 3.758308123305419*^9, 3.758308138992836*^9}, {3.758375357599758*^9, 3.758375360055704*^9}, {3.758380032855719*^9, 3.758380033816297*^9}, { 3.75838023056177*^9, 3.7583802470647984`*^9}}, CellID->494085935], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "@", RowBox[{"Point", "@", RowBox[{"UlamSquareSpiralPoints", "@", "250"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758307753302867*^9, 3.7583077543096848`*^9}, { 3.758307831758318*^9, 3.75830795246375*^9}, 3.758307987633847*^9, { 3.758308096308929*^9, 3.7583081098521347`*^9}, {3.75838000506779*^9, 3.758380005329404*^9}, {3.758405292855157*^9, 3.7584053024645777`*^9}, 3.759008191880224*^9}, CellLabel->"In[41]:=", CellID->245290846], Cell[BoxData[ GraphicsBox[PointBox[CompressedData[" 1:eJxV3Xlc1HX+B3DOYTgUVFRUjEMERJDhPgfeMDCA4FG5Za21drtl5ZqVa27R ZVaWR23baVRmVm5ZuWUl+U5b18oK+1lZmVJeeILIfYy/mffrjY8P+w89Z2c+ n/fnen/vrzHX3n7JDT5eXl4pAV5enr8Bc8Iz4tevLvSS/7UUn5f/NW/zVuvf bS79XP9e+By/Y/29F+H/P7/NR+2rX+jTz8F9W/X7rN8vBhu2dg2q36rlBbCv OhZ/uV8/X6zx+OvnB/A5Bap/VO/X76GeiPoj4lAaKg7j5zUOP7X8qR1Tzxp3 iH4ere1qxO85DJ/TF+rNWq52CN2r9Y8QhtMDGtce+XwEncNfDvdGf25Tl+P7 rL/nBLUfvld8Ur+n5dE36iit52r9HdpRVN8pHk1LtB3vqpPQH5yMji72USN6 e30iPt823vy81m4/i9/zXficblUf1XLl47ml9mXqp7SflrrQH2hfJD3kjf54 U743jrZrO+9U/4G/3OeD/nlLfa/+Ll+NiRWpHsEPqndqPeP0e04t94j201EX 4rtGHE27+zF+xWr5U3dxfYf8LorGeqMfktRP4HuMcqLofXzOmehI/gWf88D3 5vWiP8ep473RL5fo7+AIsqgdGscixKX9G6X9O8v+jHqFj843F+bV9cJY+hx/ uUi+F0N/VS/V79nVXX0YF6yLGA6zoL/34nPO1e8l+2K+vaPfu0XrqUR5XKBe pb/7VettRHnF1eot3hiXkD7091/kd3HUhoXOX8r3JlC/9lOG+kt8j320v1PU ViSO4qvwPXbpOLW74PP6vQ1YCNsS1MHe6N8x+js4jg7p785pvfL1hmvsn6oX IVHQCPV4LQcJMoawTuOprwf9epsX/IAP5vd6+d1EKvFGv5YOcjyHqY/jdxzt wrz9HZ9zozfKuUrHYbd+7xMdh4fUmBdWatPfObXfN6of1riu13L2aL0L9Hcf qHNRH/qBL6uPkP9IpPnazw3yvQRag881/iiaoyZsAIrj1S3yN4zDBzlC83cC Lx74XPNPoboMvyOtn2MH5o3+LlbjalKHqRHfaN3eJKAdXon2VrVNyz01yBE6 z8dpfUm0Tv5aecCXeGEcBjzJC+M54FT8VcdTiRrlh1OFei7KpVvUTToedw/y JD4jjuQQ/XyVzPvm4kL1ozpei9Xb8DuyYtx5jMbV0o95eY16qf5uqfZnnXgy dWm/NKnRbzPsaE8yWTHOOl7J9BC+x6zmQY4j5JFk9sI6p0UD7sE4J3pjXK/X 39VhnWn/JfM+rEtqGeQEwvYzmWs1TszfCH5rkMN0/LUdtdfVJ2qchARf3KPe peUe9sO4YP6k0AKZIM3bMH5TKFLyeYCO3xR6Uvp1nLZ3Cv0Vv+NarHP6QY32 h1MwvsdeFtRz94CbUM9ZzQ+Z+rs/8DveqC7swji+qL8LdWG8d3nDP7gQt58P yrlC22H1QzlRGicfxDw6ou7qxbwf6oNx2yTlpFKk/C6C6DwsX1+wwI75aKPD vVhni9Wt/RhHzD8bPYlyeLaUm0jp+B66ixfaH1DXyXiEco96g5QzgWO9TSfw YcTH67RcOJq71KvQwYz8kMq5Ms+iaLeWG4lyqUPd0I92NSE+TnKZjuNcbXeD P+ZTrrYrAu2kHh/0H+KxqZNo7yDHEsbTRk3BGPcv1BFtmE+zJJ40ski5E3X/ MI0eRDm8Th2F33GlzIt4+jM+5y19+N3KQXbnD3yPXVrOllCpX/eTbRzXhXE/ jPp5OH5Hy7Qch7bjsC/m12SNe1eAx5H8iMadK+WMoF51pJQTQ296m04hL5lP yTRPyk1TJ2r/uW3FfJt9Xt2F+YUJk05efRjXU95qfM40TP6DSA3db9ffMZ/B /MK6TOdNvZhfPMgJXOsD75NxSGMvGfdknuMynchrBzmaY8+rJV+E0jsDcci8 Hq35y23UQx9qvbO0HVbEQ/E+plPpIn/ML+TvdCoMkn4nbG/T6Y8ejPuzUk4G 1eN7vMUH/Y7tu7v9IzHvsD+YwV6yA9687T9qOoF5OA3lcHS7zAtO84FX9WA+ jfTFvHhG60mSPJbE6S7T8VyrniWJIpxv1jg2nsN8K9J6TvZhPn3hYzqdhvvC K7XdcRbMv98HOYkfdpmO5Xu0X1ZFYJ7fpP2yvxvzMckX/Yv1m0Gz5HdxOh8z aC4OrLbNlX7JpNkSbxTP8YY3dmOeIL9m0o99Ou6+8AGUyxssmOfIfwOOI5mG bteNxQxdi3qYv0K9FpTDs7sxzz9Ub+zD7+YHYD5+0m86kcNdpqN5l3oTDuR0 vWdgOWx6ot6m9SaexfzEeGTy012Yd9oePb7KoAY5cA7TPJVJjARWHKb9YtNy bhvkKHpV4oklm8STSWWSf8KpUb38IsxL5NlM2tqCeYf1kkWpmA/avwN294+6 tx/ehHlHt6Ac5rEo9z6UwzjQCeCnvOGZmA/8ho/pFL4L8fJ+xMf7xmMedWi5 dctl3RS/r+UmygFrAIVpuY9J/6VQGeLjQMRHV/th3fxJ27l4GNbFb9rOsN9Q zmlt16u9mMdegZg3u6ScLPIaLuNAbS61/G+Nfet59RbMo2j5PJu8ZMKN5qZB juIab7i2F/MXJ26yKRr1cJgV83e2y3Q0rUI9TKiAcvE7bunEfK1Td2m5jfK7 OM0HWepoPqWOlt9NplX6u1W9mG97/eBf+tAukjzo3l5pu2uDUK7XQLslv0Xw bYMcxlMH2i3/+2e9j4/6JOZnjba7th1xFPij/7sl32WrM+iWXviuIMzn1/vh cClnBO+Q8nPosXbMo34f+L89mDeX+sGYD9n8mIxrEv1jkOPpBhccLieQIunn QQ7X484cPnUK9f7gCxdIfDau8jOdztdKvPEcrOXAsfygevkkzG+cX8rmxisw v39Fe3jxj5iXl2q9a6V9k+htrfc7tI8e94dfRrkUIvk3ki/XdvfL+rJRtb/p TPKRdZtJn0g5OeQn24tEer8PbvnO8zeUX5V4cqnrGOZztDfcJ/l5Akf6wK5u zLtwP/helMORwZjPrkFOJFe/6Wg9/5jDqO4ZO8475fKu46jXhXr4sOy3JbDL 13Qqu6R9mbykF+XA6exSh8mBRSi9peX6ye8mULav6QT6RO0j/ZJGTn/TWTTd Ag9FufQ9+pG3uODKcVgPU7Xf5E/lC/WXab8t+BJx7FdvOSzto9tQL81pRRxL /EynUgjqpSndiOOtIR5PoRckjlx1LOX1wxuyZX7RTy74MilnIr8k/ZinTuH3 fOHJmBc8wx/+M8rl66TeNHoc5fLOENSTeh6OyEA9OL7O4zo5gdS87ScL5mVK D743R/olnO36u3XS7hE0BPHwJa2Y39P84Ek6b2/1N51N4wNM59K/1Qd7TGfw RG+049ntWEerUS6tl+1cCk3Qdl7ahXo2y+/Saa6Uk0fzZHsZR9ifz6MG2V5G 0OF+2PY75uU8qSefaqScDH7AH14q8eVxmZTrzlc9pt3b417TNlqHcnn5UKyH +efh6HzpWMpEPdz4X6zL633gFtkORul523xefBbrMtnP9GRuQ1y8VePcGoB5 PFvjhDN1f3PA6ZyscS6W/khkL42zESc09fxIPsuflrX1G9TLW7C+NvvCZV1Y T9hfHHAWzQmAr0Q99LRsp2y8wAXPjMV6ikP7aNNvWC/bBzmKXkR7aZ9sZyfT Ph2H+Z2o9y6L6Qx62Yp5XS7tzaeuMszjD1xwtGwom7fhNGY+PST1jOPfZBwK aPsZrJ8b/OBrOrF+qi2mc3llAHy/zKN8vlZOlMXTMJTLy0tQb7m0p4ALD6Ke NJTLa5tlXfB4lMvfSbnp/G+r6Xx1Go/uhTfHYr0FaD3rJd4YetkXv4MnUbPW cynKpWMW07l00Go6nx4JhF/2Qruiv5N+Kq7Sftn1AdbbC9ovradQj0P74e+y Q5dJ/7KazqVnArEOsmU8CihZtruJtKYXni0nNMNoqgve8DPm/dXSb4W09xTm +Tw/+OYOzNOlVnisxF/ASYGYB0ndpjNJNs9ehZjHs161L/GFN57GekryM53A bwXCP3agnJnTsB5weq2A594g/1F8rTe+t0kuWITSKB8tR+JN1e1JIV/WgfVw s9V0Hn2v9RxGvLQsCOvS0geHjMS6PKD9EiEXmgb2vwpJ/oS8Xh+L9lDTD1gv zwWh/3+S/YpCdR6t7jCdRf5dpjNom/p6qSeSxvXDN7Vj/lfIONvV2extNV3I qUHwC52mc+i7btNpVNELXy0nrpPoHtTDWxNRb47LdDi9LP1q57KfsH5G+8Gv yg7WRL4PcfAejasg0HQuf4A4eBjap87iPerdSVhPe7TeZ//ksZVXn4efP4F5 vtof5U5rx3rag/7gGLSPVsv+TgaX4He0fA7KuRjx01Y5cTCCfvaFDzRh3b7k Z3oiTbSYTqHj6ttlP8ZGh4Ixr09IP9tp52isJ59eWObFzjfsuD5ip0WyfzSa u2S+FlG+lJvKP/rD46XcNH7RYtp9HGY1XcBLgkzbGSdei+ieDtO5dGsPXDvK 42TK6TWdqNdr9TRS7Xr7EemPIq49jvX4rp/pBH4FcTBrXF+iHo5D+9XpvLwb XiP9kczRvaaj+aF+o941b9Rv9kK5+9E/FKFx3Cb9k0BL0T+cg/bTfrSXK7rQ rxtkA5nJo7tNp/NHaD/NHIM4bkI9GJeZb9b/5APjvMhouhvtpU1yYXICfRQA 4zxJGv0v2HQBnZd68ugGmYdF6gz6tRN2jcG6urgH9pFyY/hyaV+xOoW/8Ye9 pVwbv2wxnc8fB8GpKJevknqy6Ncu02l0VS/8iRyfxNMhaV8xr/gW6/Vj1MvO Y4jjWAD8mtSTzidDsI7uaUM5cB5P7jCdw74ax49onx6PFXHdtdhOTfBGubN2 Y539n8aRdBTrNwPt45Hn0C9fD4G/aTNdwNd0ms5ie5fpDG7vhp+R/d4p/Gif 6Vi+oR9OzvE4kp9AHLR3F+Iq94NvPoz1/1sInCX7yYU0PRLrZKGMXzHmzfSN up6LadV4+Y9tuK5NdP3/sL7RfqL3D2Hd3OED/3wW63uHr+kMzvAznccP+sPH pb3FvF7aa6Ovu+EaaV8y/a3PdDTVo16eJ8c/UTwE9fBmad9k/jfK5StbUQ/2 dwZcwD1DsK6KzqFcOJ2f0TgabpeG8odoP4va3q7HZpnYJidQQilN4wg5jHX0 CNrPFqknh173N11Aj1pM26lX7UR76RfZX7fxCO3HZ+X8XBRdrv0Wj36lD/xN 51CCxXQeLZH9azuVecq9j9QF9Mkgp5G1D26T45EpOM52u0n2x8NptwvmMOy/ TvF8XEtkkwuGAbxOHSLHL5O41cd0Cs/zhZfJ/nsuf+hvuogjAuDXERdHapwr US5HP4J6fkO5vEvrudTXdAq/gnL5sNbzd5TLC7tQbutQrLNfuk2ncTrayxyD 9Xyz1psr/T6OvveGh0q/ptOrfqaLaKHW8wjqoRPqPdqPG6KwXotdpmNxX4Tb M+WGlXB+Rfux1h9xhGo/bmLEcYUFTkb76P8GOZ/65DigiBpk/pLaRpl9cFeM x3GE629ELbKQI6jOZTqMIs/DMs37Ntlxnb+E/OS4IYcP+5vO47kWeAnq5TqN 40y36Vz6FvUyxWD9foZ6sK7qNtnTZR2VcG098sp6Hxg3FiSwTwA8V+q1c5vM k2xe14Ny4EyO7TVt44vQfm6Sfo/jZ/tNR/Mol8aJE8y8SuOaW4v1HaRxRciN Y5Op1hcOkX7PoB4/08V0RuNchrhoH9rPFu3Xueh3XjbIYWxBPVTbKgEVW9B+ qpMTwqNpmfZzIsaBlllNF1PERI+T6LjMuxJ1LJ3uh22yAx9Jt7vguU97bKU7 zsN1t2Cddcs8LKGG/3g8gu/xhhfJcYqNH/EznclyvtDtTzqkHB4TCM9GPbyr EnnkD5TLuR+h3Hk+8Ityo9FEXoRy+FspN5trrVhHt3SiHK9hWL+dXabT+PFe dRnW0Wtar9dyaR8nnFc39su6StU4vLZiXX3qrZZ5lkJf+6qlXzPpcn/TRXQy AK7txPq93QpbEBed07g3IS46KnFmcKmOw+4JMk68V8fhWTnRFcmNOg62lYh7 ofZ7wwIZF+pSz5PrAiPoGR2HzP2IO1LHYawch9uoRsdhiMaZJAs5n/4m67JE nU6re2GZ/Umb7VfIf5TSJrkRMZT/6g1vlOOgCeztC/8ox0FZnGYxncMfD7Kd L7bCJ2W/sYSPB8IPdsLfj0C+OOeCV+FCGj2OOHjBNYjD4QdPkePcNL7U33QW 3xFg2s7BUg/xZK1n1HCsw0vRfk6O8ziRV/bBGz7COtP28l6ZlxPoHz6mEyjA 13QqjdO4hnShH+/Tev+k/eqSejO5G/VQn6zLZH6433QiH9F+DpuHvPOo9rPf L4gjxd90KnlrP/rIerHTySCZd3SZjLe7/+U4PoNye+GNkz2eQrP64Fl7Zd7w eplHpZR0Aut5psV0PvcEwCPbZR7xukA4S9Z7KbPWewT1cq3UW0D+3aZz6J+D nEXtiIO9JK5Yet2l3ijzn+S0pMczZd1uk8PjWrdnIU/5+6jl/EMMZ1nhWom7 iI8gTqZ2lAOXcIP6K5l3xdyi7Xg6AevSq890PK9SJ87AOt3UD+/bhHUo1wtr BzyO6tTz93k8iWb6wtmnsC4XoL95j45TdDjieKTbdB7be01n8DU6biTnJ6bw m+gvqp2JuB5EveT1F+SL14LglnbklT45Ds6l92X+l6qzydlj2kY+fXCX3KCZ SEn9puPoM3XLnz2O0PtwBxxGS87DYetkPen5NAf5yXF1Bt9sMZ3H8VbTdp4e CD8gx0elvDYYXtAJF8pxdSGld5vOpqGolxs/Rv7AaW4H0woJcFuDOtqJfLIG cfFyOT8ygXcGYR13ab0wcVwHvGIk8sfSLjhiMtbxzb2mozkZ/cNzZR578Rn0 Dze8ifyC+zgd3LQX+cTqCy+SeZtDKyymC2hLAJwv+dO93x5ouoTCgmCcnyyl 9eISfh79RTUSdxFf2206l3sGOZtbddyflfNSifxYv+k4nqrj2PAW2jHcD573 A9rhgzhos8RdTOk6bldqnMlynG6nUNlOOmi23Lgwhcr74A1yfXASvyfrw0F7 5bg9ne+zwCfOyff4wRA4tt10Ca3tgS1ynJ5GQ/vhELlRLZb+cMG2XR5bSW4r qHXPj4N9kl/OeMNNL8g65nTUyz1yHJ/JFqvpfP4lEP6HxEX8TrDEwf9pQz0w 8cUa5xyZpzl8FdrPW+RAKp790X5u/ETi4js1zlWvIp/cr3FVyjyNofE+8Do5 X5ROk/xN59NzAfAliINKguF5nfADss7t3IB6yHqlx+G43u522GbE8Rb6hzgV +01yvtftvu8RR5+f6RTK1XG69zji2mQ1nU8fyPmGEpoh89RBN8o45dLt3abT aUYvvFvGLZGk+guOo+/Uz96AfIPnIdzz8Hnkm+9knpbR8zJOabzSYjqDUwNM 23lGEDxNzgOUcGoI3Cx28O1DMI9/aDdNJOPo9oGxaIejx3Q63Yo4eWuW5AW6 FHFyy4+SF2Sz5LHowCf2XyUvlPHyp9GOz33hMrmfKIHf8Idjj6Bde6ymC/iK YHh1K9qRL/2ZyUc0zkXSf8n8tcYZIfM8ij7XelfIecEJdB36j3dK/xTQSKvp YroiEL4O/UO/a73/0nHdPhr5Ri7juvtR/mz/qH6HjktXHep9BOVSkczbPPou 0LSd7ggyXUx/GoL5tFDmdZma6PoO+C3p92IK6jSdR31dprOosgee+QPygJz2 qC2j2f/01DOCP/SBL5N+tfHzFvhtT7+6jyMWhMDnZF2X8ReRqPdkp+k8eqrL dA492Acvz5N1T/e44LA7ZP3RDlnnZdyyAnHc4mN6HMv5HrcLDyGuP1tMp/Ol VtO5/EIwvPYs4n4K/cVF6D+OH4c88KS249n5mgf6YdvPyAOjNM7Ncp5tEl3m i3LhFHKpf5HzX7nkDDCdj+Nht2+V/iulbI2rXscpROZpHg/rNp3Fnw5yBof2 whEyj6fwR4iTbPLATCQHIA5q+gb5yd/fdAr5Ig5qQz7Hdf0LzqY3ERctkXzu 3l/SdV4r89o9b8dhndu6TWfS8h64Rc67JtOKPjhMzrumcp3kn3KyHsa6rQkw XcAbgkzbeVYw7KfrePYQ0w7eNBSeK+uvjOfIeQ4H3dxumii2C95yEeJO7jGd Tst74QV2xP3ieZjbZcXSeskL5UxBns9DGfe9lfOq7chHC61wpZx/y+FvA00X 8CrEyetaUG70eOSFLW2mM/kijdNrtNRDTi/8jv+LfDTTB26U+xKy6HqL6QK6 zWraTpEaRyPqIRvGkes64bnI13q/eBnVyo20EUxoL3mlIA7Zb3ebvkYc0aiH 6iQv5FBtoOkCsgWZthOFwA0YR9rg6Q93/vpV5lc5zRyPvPFah+k8+rjLdBaN 74HrZId2CmX0wXOlf1L4FckD5bRJ2l/I9wXDs2XdO7h7qOkyfjsU3i95oJyv CpO8QHNRL38S7aknh8K7TWfRZhfcJDf6h5Mcprrd4O/pOCttlfVWzis+Q1zJ qJdfa0YciVHINyu1XjiH30b7uW4p1nE12sebPveUMxHXYd3l7JMTJDb61M90 Ot2u9c5vQX7ZEWy6jCYP0e+fRb8dxHaEn2w1XcqROg6fybou4LYu0xn8gPb7 UlnnsXhuwe0WufHTiucV3f0aJjeQB9BaX/ihXWhHkL/pFEoOgEsPIx/9McjZ tEDHMUbiJIoPMV1CV8g6L6MsyQPl6lJ6vQ1+X9Z5EX3TYTqX2rtMZ9O/u+Hr JQ/EUX8/vEseOB14PrScch/2/I3iOyUPOGm6rPM8Ph1k2q7X55z0hqz7En54 KOwr+amcb5DzYUR3Iy7+Su4rKaS/dJvOpCd64aflgdNk8u43HUfHERfPHIUL MFfJHyfP/T/54rY7LPD8TzxM1eu5Ts6W+26yeGSQ6TyeHAq/IOfPHPyynLct 5cfPoh6Y2Bf9zUVyHruIt6k98nqZ63e44LAOl+QRPFfp5O0HkCdwXsrJ18j5 RKLiYNMOumMIfHEr+v3kUMTxsY7jj5IXcvk39A9tlArieBjqpdnyIFKYPk/m zmee//1YX4/ndp1UF4vzy7h+5qQNch/0aLoC/UNJkkdy6Ikg03Zq13EcKf1R RqGSNxzUIvPRqSZKaocvkrxhp/UdptNobC+MO0mm0D51ixfySI2sIyf9cdBT Tz7fFgyfbUZeuHqYaSdHDofTWk076G89cG4c6n3vPMwxqEeez6p1MsmNLgH8 nj+8Ss4DTuK0IHiXnOfL5b+FmC7itCHw4dOyPvm9oaZL+b1hpp3qEn7nLHyt nAe2c9s50zmc36FxPuXpmObiSzTuwo+RN+r8UO7a/cgbRy2mc3G/j9szziBv LAw27SRXKByj49QnebiAT3aZTmPJC253yfWpKXx3v46TXCcJ5zwX3CgP6Fq5 HnFSrZxAay729cG4hMl1lHH0r0DYT/J2Pv2m4+rTgjivGWK6lL6S9VZGp2S+ OdWltOic6RLKbYOfxnokbjdt0+f8nJToQN6Y1w/zUeQJeZmCVwXNP4A8YAuG s2U9lrBfqOkynjkM3i75zcn75Pyue/vcZproRsTBmyYiLpneXhXIE/u22/F8 bwXXfi95gg/4wXXyIoIJvM7fdAJXBsEz5fxvDu8NNl3ARYiLE08jzq+GI4+0 nEYcidXIE7noD+b10v5iPB/qjhv16vmoCnUqzdU45ks9eVQZaLpAzz8NuJjq NK4nm9HPERJXGd+l42aT/F7Ez3SYzmY8f+MeF7luE8Fr+02HMZ5jq3BvOJCv XBa4QfJ3Bj1pNZ1DlwWaziPLULhJ8nspXR1mupwek/VJFCj7JxUULuuxgG7q MJ1BK7vhRCfy14ReeOYKjyOp2gXXRSDPHDwPzz2GPGOXdVFB+2Q9T+Qb/OFT sn5tvCPAdDbHBMF3yfot4d+Gmi7jgmGmnfzdcHiorKMKfs5zntu937Cw1XQp vdoOp8t5bjt92wdfP93jeLoR7eBdL6JdV0ueqeAXJZFO4g7Eyd/uQ9yfhZgu 5MeGmC7iZYiTbzqFuE+MMF2hdnLWadMlXHAW3itx5nBoh+ks/m2Q0/jvXfDc z6W/SZ6Td9czW87Px1Az+p9HSb0O8g417aRbNM7DiIvysH3hyBbTpRyr82Sh bF8KuAP10mG53jmF5/aajuUp6F/atVr6kxfqOD8p25NMIqvpbHoryHQhOdG/ 9D9sbyh8iOkSmoH1TudlPleoiQ6eg9fGIQ+922Y6l6I64cIqj5MptRdeLC8E iMD1YrevlTjSOFXWWaXazqFD4Pckz5TwfaFwguTHCv6LXL8op5daTZdSSZtp ovPd8GdyfSOd7uyDl17scSKNcZmOJn/JU5Uc9gny5zQL/JA8+J/AOxAnl/6E uN8dYtrOlyJOfkWuUxJ/Ocy0g4fJeXEnV51GvbCD/9sMx8p58XyubzOdy6vb 4TJ5wC6a07QdW9+WuOjvfqgHTqUYjfuAnEdPo/ZBLqAxwXCznFd30hPD4VsQ F10j17HKeUSzaQcf1HHeHo+4Hukwncl/7jSdzj+h/+khucEpkc/5YByXyn3G E3CcdcGpVIC4qEjum7bTRzoPXpbrXCWUEWa6jMZgfVOjzNdKtYOubTFdSrln 4XSJqwDb0QvOo8IO01nU1Gk6gz7rghd8i3zbIvt5lZR7kyeOEbzTB35R7iuP 4YV+plO4zQJ/K+3K5LsC4WOSD4iXDDXtYLnPxu1/Sf6t5KSRaOd3raZL6CDi 5FkyT3Loph7TafS/fniDzJtYbObcnvmmx+H0BurljTIvinhlOPzjCclbXOw5 r19bxkUaB1zCu9G/fG+yp5xirm01ncdD203ncJO6b7bH8ezXC3e9J3HwGo3T Ot0Txzh6B/3JD/wf8ta9gaZzaXYQ/Plx5Knnh5ouJ5/h8GqdB6ukXcS36DyI noS4H+kwncEju2G8yCOJv+wxHcuXI07ykgcJrOztj3Hif8s406/qRnkuzkad QaYL6eEh8IKTiDsv1LSDmkZgfh+QfFGpLqPpzaZL6I+zcINsn7JxfvqC02l7 F1wn15cT6bJe2COvph32e+U/qojnej4fzXieesBR+l6AKrLJdjaDRwWaLuai oXAE1iV3hJqu5J6R8PtnTDuxf+B2m1zXLCS8r2LA2TS223QmLeiHmy73OI7w nGoV1/0Fx+cfWuGIDZI/eGYwHCLXQbN4kVw3cPJ6jQsu52Wn4YarPE7mnd2m E3l9D2x7FXnK6Ydy4VQcH3nqletnabQzwHQBzqu4vUJ2hB104zDTZeQcbrqC jobD849jnHZKf1Xqc5wDLuMVHfAK6Z90TkbcFHE54g7pMR3H813GuO/8bz3e i1BFDRfLONNGHecm6b8EqkG7aNFetGt3oOk8WhFs2k67w+D8E2jXVllnZZQh +aKKFsu6stN95+AWrCO6tA9ufF3WP412wV57PA1o3lbv+bi2iqKvlHzA1/nC YVhnfNICL5d1lc7vWk1n8upAuEzWVSm/Ema6kk+PNF3F342CtzSbLqPKc6aJ tnbCa+W+hRyq6zKdRfN6TKdReD9cKPcxxOt9G1Uc9hS2IxsQN3+xDu1aNBxO O464/UaZdvLcNOlPHqFxwQXcPcg5/N922Otx5KnPXeq9ngnTXPwE+pe97sT+ 7B3ecK080D+OijXOOrnvPZMeDTRdRAFD4Zme6+nufHvLCNNOujgctp7AuPp6 1p17f7fyLGyZgnbYWk0XcKPOAyqWeVAs79twj0vba556Y2hxCNyzB3FE6Lj2 e9aRJ38OM+0+fg43XUl9WFd0hczXKnUJvdcCd8m6KqL7W01nU0wH3KJ5CPe3 uefvux6HUZULriUc/3vLOptK0TM9HM17fGAr1hHj+uaA7fzeENhP4qrgn0ea dm/XRsHPSD6t4jeRx2jWWdOllHjONNHRdvgSuUExn2r64HVXS76gZZLXpvKW UsQZEQjPeUXyHOPByan8jjxXksOXDIMvl7xFvEKuozn4a40LJl6pceG522x9 /mHANm7ugm03Ik990Gs6ml/WOPXFJXzdebjhOc/fybTDgjia5PmIDH3eb8BZ ep13Ki+S63BEvaGmHbRtOCzn0dzjViH3kZTy92dMl/Bi9Cc9KfeV5LKt07SN 63TcPfKq2FV/s477LnmAeDTF+sOH1yLuUwHwwu8Q95oQ03ZyjMZ8tcl8nUrL ZF0U09KzprMotsN0BoV1wiGy/YqlD3vhCLn/I5LW9cFN5Z56RnCurKup1Cbb sxg8D3/BKXzAAtdLHCWcFGbawZbhpsu4bZCn8vIIOOWs6RL6rR0OkzyVh+sI F5xD/0DcHH2tx0l0a5/peJrmgukLtAvXW6dy40ueuCdxSijcInmqkG8dizx0 s8YFV/D0E6YdPOqMaeJTLfAvmZ567CzX2y44Dfdrub1ZrvPF8yUad8N65Nux 5+GaZ5C3dqJ/OV6u+2XSwiDT+VQ5xHQRJWs7njoi/U3av3zdcYzjGs86c+fT y0+YLudOnSdxss4K+DXESZWyrpL4pn44+jnEKacv3ePUeCO2A73+8BZZZyn0 QTC8fzfi/IuO821HZdypYKTpCpow2nQVrca6ouWyrqaqiRa0wLEy7pmU2AGX yTgnk1+36UTqUi+XcY8gvIdyKtbd6l12OQ3j9taXkLdmyjqrpgPfIm9FB8O3 y/1fTn5xpOkKXjUK9pa8P5XnI4/Rz+3wPrk/IJc+7TKdTm/0wJtuQNy4n7ia 6+SFXqM51QLPlPuIJvA5xMGJcv9AFt8zGn76KOK6VK4LlvP1p1Au7OBZ6D9e L+9LKOLMVtOZHNJpOp39NE7bf5A/8TqeqSz9denX9XjhbjVvXuP5PEHvD6zm K+X+ixyaEwK/chT9eliub1fxC8dMV/LK46ad/I9Tph18BeKkXXK/Uj5XtJvO 5CzESavkRYfJPF7HNfonGWcOPm+M8+Gv6vHezmrii3EdrNsbbkyU/qZj6H9a 8DTahetr1RQp189L6Knhph10VNZNJT0h+y3Vagfdfso00VXN8G6sK6puhZ+V ByKTSJ6bveBYGtkLz12L87W+LrjuGuz3nZV1V00NNk8cI/ikN5wp68zG/wsw nc3/CYLHyroi/leo6RJeHWbayXeMNF3F10TAPXKepJr/hLxHrc2mS+izPnjW X9GODxE3b/je43C8z9btma+jXfI8TW01b7oS7VoyBL5M8lgu3zXUdD47x8Jv H0FcRZGmq9WV/HqT6Qp+7bjpcn75pOlSfu4M3LVAxoPv74Fbfvc4kuW5bLdr WzwTrrkY+7vVHHaR9D/d7mt6HN3qB2/33PfkznPVI01XUHmE6Wqyazu2nzTt 4O1n4SXyossC3t5qOo+3d8JtEvcUluP2C07i7YibGnYgX2/XeWMrRL7ejjgp ZKUn7om03WI6hbbrvFkmz1Vm03adJzsk7hIqHYf14JD7A6rVleQ4ZrqEHGfg h5B/yNECh/3icRg5+mFZnqVf2x3nYf6XLGh9vrOGuiTfTGaHBV6KfMOOYNPF 7AiFP5O4StgxzHQ5O0aarmbHOHj7UdNTqeG0aQf92GLavX/cBS+TdtnoVC8c cqvHA++RrWbbZpxvwHPnNVyn7XL5wU0TPYxiPyvcpu0MCYGXSLuyeHio6QKO DIfrpR2lnDjWdCUnjTNdxVPkOn01f34EccGV/E2TaeLT2s45cn9PLve3mU7n QG33FnnhaiKP1HbLME35pj5F21n5uOfzCVRiMZ1A5QHwOrlfKI0uDoK/l+v6 JXTnCNMO+sdI0056NMJ0Ff1T27nvEObNS9rOvuOmyzn9HJxfgHZN7TRt4zk9 8CJ5EXkcLzlvzMuXvqlf44t5EiEvao6iXRgf2ikbyDzaO9S0nVw6z66TOMsp bIzpSnpd1rmT/CRf1ahLKPY0PFXuyyyg/LOm02h2B5woL1gNp6V98MyvkFcf 6Ic3ZSGvymN1tTU0/wlZ17zFAn+40+N83h8C3yH5voazJY4qerDJdAW9cNJ0 GX3abJroa8TJ8yU/2elQm+kcPG91wVnU22k6jRySV2u4tlXy7DZ5fsrtRMlH k/jxIPhpyUfp/PZQ0/m8Yxj8leQn4l/DTTv45CjT5TzBc7+Re7/4wBHEAVdx 01HTFdzXZNrJlhOwU16UnMX3dphO4zVd8Ap5cW28PndXwxGy4Q5nuQzg9iJ5 jjiGwjEe/NvvEie9NdK0k3ZFmK6k/WNNu7fL4+ExxzDuflGI237CdJk+B1BD 1iLE/U2H6TTu74HD5L63WB6p8yi6C3GXY3wILwYOoL/6wS0Poh1PBJhOodcD 4S65by6drhgD9zWiHTeMNV1FoXL/VzU9KeujRl1OPzaZLiHLafgi6e9cKm01 baOFHfDyUFmn7CPrdhp9If09meMt8B87ZN3ybSGm7bxsKHxW7h8r519Gmq7g 1tGmp/KocaarOTYSfkPOu9cM5FUK7IQ1j9Lfz8ON32P7gPfdTmP5M+Ub+6+I cyBvsn8QrHmTY0JMZ/G/R8HIi2V8bpzpKh4fZbpGPZXxHowBV3D6cdMOXoj+ 5nyZJ4XYD7lgG8d2ww14wTSv0XZEBCBP/uEP75R5kEWXDIEPyX03pfT9SNNV VDoeDjiEcVwYLfOCHz5huow/PW26hKt13A+T9C/fj7ho1/0eJ/KX/fAqX0+c Yfoe/2nEZ2UDVrwyEI7cJv1LjnD4yYOI86Uxpivo3bGmK+nIeNPVVBuF+S3P ad83TV1Nyb+brqJZh0w7aPdx06XUeAL2kvueCqisxXSe3kc74Ax6uk1tRf6X 3cFatx+Qdcpy3v6CJzL7mU7hJgtcK3ETvxhmuoxPhZuu4pljTU/juovgOadM l9KC06ZLaG8rjH84Io+W98Fecr93JOG8kttyIDeOCxEX1z6MuOU4/YIn8eJA mOV+cBvL+7Xcniv9XcIUbrqU540yXcbrxpiu4Lbxpqs50jPP3NuLVw8jTriK txyB8SbELPbpMJ3GU7rgVfdJnLTYinLhFHpS494l8y6X+oaazqfh6H8+7JlX 7u3BvjGmK8kvEi5DXLQwBnGtOGbayZnN8OFST1zFvLHNdBZ/0W46g9s64V1y w8oUvA/dPa4L5AWxI+hp9B89eUD6j/aPMV1BIZGm3fM8yrR7uyDrtpJekv3T aWon7TkKt8h743Lph7Nwo/xDLMl0eScsy3dpg33IeThM7vPO4slyPDBdXcB/ H2razk+FwlZZp9N4TDS87ojpSoo/adpBYe0w3gyeSUkdptPp6i74+lrEifdU TGdZfiEN9mt94dzznv4bzbWIg7/dhjhvHgMfk7ic/NBY0xUcHWN6mrqaCw6Z ruI7jpgu50PHTTt43CmYZJyL+PEW07mM+3Pc60r+4Y9kvqXbdCI/0gNL81Y1 1Kd6Iy7ccJlG2v/qAvooDG6U+xnL6J4I0zX0Z23X04ib7pb77yq54ZhpJyed NO3gh86YJn61GT5Thnb1tZrO5dx205n6/rkBp3OPP+ZB3F2ezyeQvAfmghNo 6yj4Ubl/z0Gjxpp2UuY40xW0YLzpKvoq2nQN4q6tpI8l/09XO6n7iGmij0/B iDODnmuDFyR4FqSVnuuHEedE/ruchx1wCn8cAA+Xf3Amk+X+nQsu5OdCYYnL nSe7h5t2cN5I005+LsJ0FXePM13DV0TBX0p+ms7PSf6pocA/TE+lR4+adtKX TabL6M0WOF1OABTQm93w9cs8jqdJLnjVGPTDo7J/Op0XyH20AfylL5wrL3IY x48Gwd/Kezbcx7GhpvM5EO3imyQ/lfOkMaad/OVFpqt5kozPNH5U2wlX8ze/ m67kDIwnXyLjl8Onz5lOw3sn3a4c5mlAJPf3wXyn5/9oLn5Y27XlDPLuQLvm yA05EykV48vvyHhmU+8Q+CcZj1I6jvFjB+Ki+ycgzscPma7iR06aLuURXbDf k544p/BriIuskYjzHsRBXYcQ1w6dd31/88QRQ6mBplNoG+Ii1xbEeccI+D7P faX3ER0cZdpBv15keir1T8D6GS7rZ7q6mh5qND2V3vrddDnNOwb3yHtNiqjm jOl0srXDTVGyX0j5/fBcvMB8Gx6bn+Hej/O0M4ov8oMt0o48XjQU9pX7Y0s4 Pdy0e79itOlKLoyE7zwo9XC0xFlDn/9ueirJvLngCrriqGknfX3ctIMebYbx wFohvdtiOp9u7TBtI/9euFbuE46mu12wVzpe9HVc8voM9pIXJYXyGwFwrbyg ZzJ/YzWdyhNGwI3STuLfI0yXc8BY004+GW26hnMmmJ6uruHZjaYrueuwaQfz Cfg2tJM3nYX3S7sSeVe3tssznV7YU78F48mr5B9oC9X7y2dwnLQjgTZoO9fI /dBZtGCI6QJqCoO/RDtpbrjpqdQSZbqG8A8NzuAX/sC8WiX3uU7lkydNl/Kw Njha7nvN5kOIm/APYSXy4xgfqo3D8ctVOg9rf5X9CcLz1jOoUV4Ql0byHoIL zqD+UfACuU+2lO4Za7qc7o4xXU2PeZ4TcO+vpUsemaGuoPzDpp104xHTZfTZ MdMOOtEEh8v9/gV63WDAWST34V9wGn3bDic+43Es3dsDz0z2tDsc/y6G23f9 InmC10reGHA5d0SYdnLsWNOVvCTSdBWvH296Oj8wAf5/+ehzTw== "]]]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758307755656063*^9, {3.758307870490513*^9, 3.758307953289554*^9}, 3.758307988560357*^9, {3.758308098772533*^9, 3.758308112444116*^9}, { 3.758380002196607*^9, 3.7583800077657003`*^9}, 3.758405303383477*^9, 3.759008278278935*^9}, CellLabel->"Out[41]=", CellID->961529890] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "About 11% of the numbers to 10101 are ", ButtonBox["lucky", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Lucky_number"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Lucky_number"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.758380281559568*^9, 3.758380325918171*^9}, { 3.8540215355058107`*^9, 3.8540215355068913`*^9}}, CellID->3731436], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "@", "10101"}], "//", "Length"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7583796714853697`*^9, 3.758379735561987*^9}, { 3.758380088569213*^9, 3.758380088766447*^9}, {3.758380318513714*^9, 3.7583803193748627`*^9}, 3.759503922388315*^9}, CellLabel->"In[149]:=", CellID->64205406], Cell[BoxData["1130"], "Output", TaggingRules->{}, CellChangeTimes->{{3.758379681624024*^9, 3.7583797376296864`*^9}, 3.758380092896823*^9, 3.758380321230467*^9, 3.759008286666294*^9, 3.759503924497974*^9}, CellLabel->"Out[149]=", CellID->917581415] }, Open ]], Cell["\<\ This finds the coordinate pairs that are at lucky number distances along the \ square spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307737030126*^9, 3.758307749085785*^9}, { 3.758308123305419*^9, 3.758308138992836*^9}, {3.758375357599758*^9, 3.758375360055704*^9}, {3.758380032855719*^9, 3.758380033816297*^9}, { 3.75838023056177*^9, 3.7583802470647984`*^9}, {3.758380391566204*^9, 3.75838041562714*^9}}, CellID->637951467], Cell[BoxData[ RowBox[{ RowBox[{"LuckySquareSpiralPoints", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"SquareSpiralPoints", "[", "n", "]"}], "[", RowBox[{"[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}], "]"}], "\[IndentingNewLine]", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758374801067741*^9, 3.758374890744421*^9}, 3.758374922745802*^9, {3.7583797997804203`*^9, 3.758379800348208*^9}, { 3.758380111494788*^9, 3.758380116925457*^9}, {3.758380158183619*^9, 3.758380175827964*^9}, {3.7590081918881483`*^9, 3.759008191888863*^9}, 3.7595039380694304`*^9}, CellLabel->"In[152]:=", CellID->683139682], Cell["\<\ Here are the first 1130 lucky numbers plotted along the square spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307737030126*^9, 3.758307749085785*^9}, { 3.758308123305419*^9, 3.758308138992836*^9}, {3.758375357599758*^9, 3.758375360055704*^9}, {3.758380032855719*^9, 3.758380033816297*^9}, { 3.75838023056177*^9, 3.7583802470647984`*^9}, {3.758380344111113*^9, 3.758380351461541*^9}}, CellID->252553438], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "@", RowBox[{"Point", "@", RowBox[{"LuckySquareSpiralPoints", "@", "200"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758374960742985*^9, 3.758374972060505*^9}, { 3.758375030188692*^9, 3.75837506018578*^9}, {3.758375182688324*^9, 3.758375182973997*^9}, {3.758380128182886*^9, 3.7583801289972897`*^9}, { 3.7584052802773123`*^9, 3.758405284392745*^9}, 3.759008191893168*^9}, CellLabel->"In[153]:=", CellID->519928303], Cell[BoxData[ GraphicsBox[PointBox[CompressedData[" 1:eJxlm3t8lNXRxzfJZndzgQQSSJTULCFAyIVsbpvrZid3tKhoqaV+qsZ7a7Gg 8ipV1NQLRgSLipRWq2mlmFqLoCiIYEZEpKAYFVERaVSKFIGES8hlL3l35zfh c/K+/PPwfXLOzJw5M/Oc5zxnJ1437/IbIy0Wyy1WiyV8/b//huRfd0eEUI83 CPYq/7/7uA51qCzC3y2MS2fVIP7u1b+z/p38eh/97Rwltx0UiyvbVE+GckDb HcSVYvT+J8p9em1TuSflkkBncOUi1c9qb7xgotqZ6PFru0QwbVfW+9Sq/TYo V+k4rBHwy/dyP4mmyu1kvlPt+RL3eYna2x+Af2O0XQ2u9Iq2C6ichdpO/txS vRXjS6EzOo5Ple8WTOXHlC9XHq927sd9PmrOS4vHc1LvN6I97Q9ivIdVjtxu rvVcofyUtqtW+34rnEbn48qOQcTDS/L3CXxfBMZ7u3KHjndBEPPYpP1SozDP H2m7HSp3wjDjSiu0XaPyf9Rvq3yY7x8JO6kYgcavyu10Oj8C8/wb5WVox4eD YIw7hW/W+xsC8EON8kzIo+fQn59SPZvRn1eq3KXarlG5EXppjep5Qfv1nIaf EGcZ9EAE/PKk9JtI7+A+Vyu/iSs7ouDPZcoPab9bgvDTCu231w//limvRDtq 0X6Vqne5trtH9WzSdhOUD2i7eD/i6BrhTHoaV46E32hA2k9CXHVds/U9ZT8S mqcpD6k/2xHIHVNVzvhI+OlhbRcXAT3fBcHXq96lPsxLjnKqynkL/WiBFf7v +QH+RX5OoRqRN4UTpd1kKsd9brFLPHWMUmb176Noxz3qv6vUbx9ou83q73bl zl7R16H6NI6m0E5tp/KJzqJdt9rRJfb2eH+u/Ky2W6F+bRbOoizEI81Qhlev 2Jqq/AaujPo0lVqUMd4UQr2cygv1/kH181zlLWjHs4flWODHTOUM1XNE5QRV D5plefqVm7XfMWWXYCodVoa9TlorPEE5m2Zo/Rxm1K9kHslp53garue4ZARn 0K+Vj+i83aXzgufAND4xUj5noh6pf7N1/ifSXGW76uE+xJVHuR/zS9cqL9J5 vGMET6NFOu5NwjnUL5yo/syhHjwQ1Z+55MQDp8OljDzOZQvyidYpt2jdOqZM Oq9ZEZi3GyCfWeJuyNus7dYFEBftyleoHWXSz8kvKc9HXvLlw3Yh/ygzAoz4 zqGd8iDr8cL+6fR+EPnjjAAHhPO4JQJ+iUM7tsgD3kE1wxwPOZein45vIj88 gifzScjhLSo3Ae1olrYDT6alIziPrJHgy0ZwNn82gjP4V2q3PwA5x0dwHpU5 MA+d4qd8Wt5tzpeLdkqcJGg+uehUAPPgiDA5n3OVHw+C54j+LCpEP5YL3+65 UpmOQ08G+nF7APl40QjO4UOQw7NU7nI4XOM/H3Kdd23NVLlpkEPOCJPzaYFy mdqZCvk0CL/RXpHvUp5C1iHwmegwJ9MK5c4UzOsZ5WZxXHcH9BeQDX7m5Ajw g5DLq5VPox3PlwfNBH4X93mTH/N/QBI0jW+BfM6UgpREa7XfWD/i4/wIk/No i/JGHcchya8pnKN27lS5N47gZE5Su/kdGYe3RO1M8yNeLFbM42qRW6CcSV3D 3IV5RL0pJEs/8phHcDr7hxn9OCsSTCPYRVjPFnCbxGWi1v9CbvkaeiwR4OY+ 1aO8zof4sUQjXp5TuRZZgKdq/Qix1I90KtR+Fh/ioF/5ch1XP8bNO9XuROmX Ql1oRw7tN1fH8VAA/XqyEB+oh4XkXIv4QD4V0fZezDvyp4i+lXXmNO5SPi76 C3m+jCODyiGHu2QcafRHtOPl0m8i3xtpch5nSx3K4D0qZ3Y85vkWlfOyrNcm ULXK2TeAeFqq7AnA7rFRiKciyKFMG+Lpc+UZ8YinaUMmJ/OHw+MuED90pOu4 +c+Ir1dgL53wIw5ni1wnof4VUTMEdDRLv2JaJw/cBN6gPF3sK+LZUfD7QeV2 kZOr6/kiniULlVQ6odyGhT2dhRxu/g/kXhIBXncK8WSLAs8Rv+Tz1cov+xE/ cyVvMvk3sJcvwn26UtuBi2iDMurBMLt4FeyhNizwta4WE+MFzdsaCV7Vj/j6 qx1x4BJ9xZToQXwtHwIv/CZ8tTOJnBK6uh9xgXVICeWLPaHxRIGfD4DXib+y 6TXI5eZRiK+vIIfbxB9J/Bb6cbvKARfpuIr5TrFvOm8bwdnsDJqcwQeUl4h9 kwnjLFHOo3rV8yL00NVW6HlCx73FATnn6Ti7GhBfXysnSn2wk1fH3SoTn0Q3 Qg/V90GvJQZxYhF7S8iCwk1zhpSlXzrPFDluapE8L2GHFYw6PcwuwnqxhEWK c7nHhX7c1Y14WjWC07ktCtzvQzzNFzmF3Klyu2Scufr8U7n8xFasp93cckDi Vp9nbkaAD9clNy+HXPol7OUg7CeKRjzu95vs4ieD4BapL04+MOyHbGjeHKV+ kLqVTyvVDzyIOK4UOQX0tehxU/IPiJt3pXspLZF+k/m8SPB70s/F86JMLuRv lJ8W+9y8ROZpOt0bMHkKnRzBGbpeLuXmm8P3uzsutIIrfZC7dQQXc0E04ipH 9VwXi/idEDA5m59S3p4secG+IPijQYwzyga5BWhHtnj0e0TH3eYVe7zvRYMD A2gXaYP/sJFUqlxIZT6TXfSGslXkZtGrfnD/94grrG/KKDiAOEq2mlzET47g Un48GnxfAJwm66hMCgbBZePDnIjHcYhlGGUrPffhP+x8Uf7QEYRcvh3zz8Fo xC/irJT9IjeLl6ieflkvDe/flLLjCOJ1eiTkWGUhlUPVKrdV/fIJ/MRTIIdW j4LcTthDXdhg8Fp0XNPhB/oM80J3CJcpF9EjgyYX0Bgf+KVRiKtX/ODZE2S+ 6d0AuHky4krCOsRXSF2cxlMlXsspZwBx9p4V/D3k8o54xO9jAZMzKB9yOFU2 8Bz0qYynnI98EL5v5wmQwxXynM7jF5X/PIC8+VzsL+GtGA+vHYX4vRX28ya3 yNXncGjeYL/3uOqZBnspEA3+t/rln3bkxdPqhysTEM9fB8EbLghzsu53llOn bNT1dNyqfljTE243mYZG8DSaBD30EymULvrSZrKbNojeYtoldpVTG15ICe/7 5eSS51s6B0VxBc3sR9w9EG1yCafaTC7nejv45UGTC2mBH9w6Gnm1OmCyk/wS lxW8UDYUJ/EvoIe39CPPtogcF+/0oV/PBYhvvD+E9PRrnkI/XwD9tELqejEX Qx9ljZH845d1nG31Mm4+YoHduuHqXazjbpaNoQR61gr+4gTy5nmRW0IR4r8K 5SJ6Qbl6DOLw+0GTs+lRn8kZ9KEf3POozKv3p0Pgh+S5msSVYkclbRO9E/n+ SJPz+EYrGM+BCr4uEXrGQA631iDe/4t+/Fw35CyLMnkyf2Y1OSTXDv5Int9u /ifGy+9jfNy5BHH4MwvarYF99LzK/Ukf4s5rM7mCHokBB0ZwOV82YHIJX6p+ Gp2EPDutfjgkG+FJ1AQ9dOoY9K6Mwfx0yvtCpbKbcvtNdpF7EJwrcnPpkPKc KWFOpIuC4LabxIEdWCdW0S1nEf+320wuYacdvF/sr+TsGMT7UR949ljE+5/8 Jmfq94kqlsvsv3o2KzffCr3ZVvDL8r4+lfeP4By+yAHeJ3aU8mwZTxbfqXpm XYy4xneTSp4jfkuhXZEqR/w2iQpV7hUip4Ai7SaX0C2qZ6H6cbEY7ubbA+D4 cWF2Mt4Pq6jtZ8ifjCjwkc/CmE710eAzR5E/aZBLd/dCzx9jkT8doqdKuYB+ OwDecxRx+jeR66GbpV8hL7OZ7OYIh8lVnB8LfqbP5FKK8oOvlnXGFJoq9nu4 Vd4b7fz7aPBff0A+2O3gj1VvX4zJFXyT+CGbP/ZB7p+OIi7HWNEOPJk+HsF5 dBns54t7kS9jVM9nZzHuJ+KQHxMHTC7iW6GHMlKgV8wNjTPxTeTlv5S7loUD utt7LcZDB2UdMI0GYD/Nk3VAGf0uzuQq+k64jK4WOzzKbsrsM9lFdw6Ad6Qg ziN94KX5yKfzg+BS3OeW8Wj3dABsyQtzKsljN8zhfy1rPBNknqvZIh+o0vnX MWBsQJVySazJ5fyvOMTp0l7IAZex2qtcyK2wl58UezN1/8fDmWJvqu53eXh+ HeIY+43VXAq9VB9rsofa48H2XpOr+K4+k938/YDJLu7D+KmtEHrfD5qcyJ9L nlbre3kKbbSD55xGnvbFmlxOf4g32UNDwuV0o9hVTX5Z9yTTHwNgZ7PERYcs NyxeijyM/JpmBUecRpzfZje5ih+LAz8IuXyV6snvM7mEovtNLqLXg+Aj14XZ QePkvpdfULk/xCPu7zmDduDQc0P17JMX0Cmc5AfPkQ8kDr5jCNwuL/h28kVA bvZhxHmRzeQ8isN4eJzoLaanYsAnT8Mvu0fBjofPmlzKN6rfckvDnMbLIuGH vTvD95N0XeelWw5B7+vqt5JTyOs3R5lcTVNl3RNaX8h4vcrFNHgWfEmaxCfN 8oHLbpOJ0v1yLy3/kQy8ow636dXvwpjD30WCv5R1VAm/YDXZy5/awG+dAq8Z hbi5ttfkMprcZ3IxpSAd2HUrFOL9n7hT3gcS+N4o8AYZf77WZeIrTyGfBiGX j6oesJv3YLws4s78Y+vFKrfZCYUdyjbYS7fawftOg/ePRr7d2WdyMU8fBG+Q /Z5cfkP99stK5NdG9VvzWOhJUr+tkv2gdHpEeea3YZ5EeG8e5hy6OwHzuScc 5/eTcgml+cBHZD2dRlcEwZ33IO5rh8BtfWHu8W5STt0mccSyv9xCFP8N8nFR JHixrOsrONdmchX/VXl3QORwmayLMygPcrlrIfRGQy4vfxd6boZc3ql6To1G vsk6JtTvkPgtmzNU7s5KxP0SjIed3WJ/xynVkyZ+mUgXqdzREm9uejIaPG8Q 49wrfirnj/3gdtmonM4/DpiczfJdNzQuCkDP0+qXdYx8e1T9MqcLej9VP+TC T3Sx3eQq8su6uIpmSh0m6p8ocUHr/OAeSaREShsCd2FDgVYpOw4irs9IHNSQ VdbJlXzABr5b6h1xWyLy6cSAyWV0y6DJbrrOZ3Ih7QiCW2phx/mStzXcLHoK eOUILmKs04bZw/eNYC+fET9X88tq15F05MGzfpOz+PwAuFO+vKXyCrWjWT70 J1BsBOSmip+nUmSUyfkUVF4MPTTXgfxcrH7+An7XfcvQ/MHvbAuanKnndGpC HeU/bMN4adZB5JstBryiD/2WyjraQ19K/tUol9I1g+CWtWGF3R3y3balhjpf R9zfEwE+IgdapvGDUeAFsq528SNWk908ygau6hO5fF6MxiX0cqHasW0EV9KO AZNLaY8PfIPse07HeZEQL38C+SnDDDG/Cbvnwi5+9qvwH/L4FOziPWJXMS+0 mVzBlnrkZ7rKtYjAPNqtcizdyIvvbCZX0c12cEsf8m+eAzwW9tNheU/14DvP OS5it9/kAq4NgD+YhPzdCztoVRPsunLI5GR8bw75FRs+3d5E9XuxbIROo7Xq 9/NPoI58EgMehXmgcbGIh8skHmooOxn5/d9+k8toYAD88ucSv/yoxGst7ZN1 fTnX2MF4b6/hT5KQnz/2g1dLIcqiT0dwJuG8S8iP4X+fvObBZ/Va7tomgd3x TAR407owpvNuK3j6MeTvHXaTPewbwV4ePxb5+zrGx7mZyJPzAuA58uEvUb87 1nD7RtFDp1Xv3q+Qr/Yok3PoCeWjEjde+rUD/Dv14/3IM93XqqGg2OHiMdBD /smw40OMl+QSfHXrz6GXnJ140N4WCXbIQbcUWhYDjlS9++R9yUuHZD5rlcvp 8QGTSyltENzejvyV/faWWpq9N8yTeUmUydM41QrOlverQt4WDX7vrMjhFtX7 9IDJJfSZD2yRg0HZ9HBA+QqJX4qW502I5X12Ir8eZXIe90IPtxxF3XjPAaZe ySveJXFVyYn9kAsuZZfasULiagrLeaoQ82LkhTy+Qjz3C+TFLNU74Szytcdh ci0lxoKvhx5yJiN/PT6Ti1jHR5QFvXIuK+QnS23YwT0dJ4d5EewYh/FTixww TNK6UksseTWZ/mUHd0leldFxh8mh56+891XQBZJntcpuahwE98t7YC6t9Jvs JHwXDsnRBZssUyx1lLgaeXUqEuyQA5yTeHGUyflcGw22/jfMlbzZAX5A1t21 /FwcuP6syUS2fnBVCuzeOWByMY0eAne9CbtmS37XcevH0PuyDbxd3rdL+Qu7 yZX8G4fJHk6VuMtiC8bPLom7VP2+F4qjF5FX+Jxax0f2Ir9xnq+OF0jcFdAu q8mltFTtqOhF/kp8hHhQ52GmxL+bM9TPq+T7k5OPYnzU/JIoxLo05Cf6B+y4 W/38S4n/SfSS1eQcwj5ZHW0QQUUUaze5hCJjTfbSHPlQn0FJ8tyoo2Y5wOgg WZ6GmOWAY49XltEtddQmH5zt/EoEeNbzqA8XRoLbP0KeyntJiPd+j7x8zW5y Ff8uBrz4jOjhB+MRt0/2gW3y3llJFT5wvLyfT8d5uZY67iyFHUugl898CL3y HfUc5/F+6OF7T6Me/ELiyMvHeyF30/QwZ/OvfCZn8F/8YP4f5OUY+INXS9y4 aJnqAbvpWhv4chlPDcXEmlxHNXFgie8QPyB5WMmrR3A5F+o8OOTgUBpnqB/9 klcTaZ0DfJ/kVQVlQS51qN7X4jG/CRJ3dcpE3WfBN4lfqyi/H/yB+DWTPgqY 7KR5QbBrN/LsUrnU05/kfb6I8+0mV/IrMeC7oIcPSsJU038GTXbRbj94Swn0 4nxXHS+Ug3+p9AfoYScKUMdXEeBWOZCUouc/hjmd34kC1++SvOQXo8EZct6h gJfZTS5lXxz4iVPI7wrxRzW/BX8pV/CQjmOB+COXdw+a7OT1Oo4jN6Be/AT+ 49RnxE5KV7t3HEbe5dtM9tBGB/h6eZ8m8sWYXEN/jgXvHsA8bEP94ySfyS7+ XOelCwevvDfDH7SoE/XhFavJOfQM7KDqI6gPd8Sa7KVr4sHpqNP00/B+QWj9 97bkSz29JPPooXV94LaXUB+2S17W0xXi50Imu8luXuowuYrviwU/JfFfz9tl 36WUKgdMLqHHBk0uoCIfuLUc9eCeIDhRDm4m0wSpS/XcdR7qQ1IUeOEO1Icf Qy9Xyb6N7neF+LmTyO+nZLzE1Wcgd8oE5OXBsyaX8PR+k4t4n/JMN+rJnkGT M/gCP9j1ZZgdPF7tbn4V9eVt5f2HUF/WWGEXuJjORpvspuds4I0BzIPrBtSL a3QeWg6GFXZ7f452dEbirhDfPc+xm/4eB777NOqHfxTmv1PisJ76ZXxuOjBg sou6fOCeUuTxoQBYwrH/LQ9+SNJALfjC3nFM2bkceYzzLw3kOIR6gu+HDbRF 4q6efyHv0TWUeha8SfZXqmn/oMkukvehEM+XfZ8sPV8Xmn/5XptK4yGXZ3wD Pc4Yk8t5UazJHs6OM9nLzh+hPmxSu8Bunt9nciF/0A+mCrGD96mdlunIS+xn 1DPLAfupFIyEnq5vUQ/S1K75J5H/U9SO5b3wazPqKTcPmuxi1nngYuid7zc5 k3FcUeelefPWtkidF/nhQ7qeb2wg2g271o3gHHI6wG2on4RzecPspfbwwjD0 3F4m+dKgXEPeXvAs8Y+XXjhrcin9esDkIpJzJiFuFv9MZo/EewOtE/+U8YRY k6u5IB48R/K2ga9KBB84YzJRMvTwZifqicsHXlCD+nFoBGfTzIDJGSS/02hp YNdgUOpJWSQ49d6wHUk83wZu/Lfkrda5YXZz12jwC93I7xXhuA6tA+LUbnAN 33EKnJWO+nJNH7hNDqAn85AfTAOoH6+pnWwL67GTLLtC3Pxg+D8TqFTt/qIL eT8v2uRqejEG/Dj00r+l7tXyJzpPb2vda+0zuZTP9JtcxIughxxPiD+oMNLk CfStHVyrdWuVw+QyOqDzOFHsqKUZo02up59LHaij41KPGuhVyfsqerjPZDf9 c8DkYrpxEHyDB/UpEADvlLqQSPI6bWmkZ2X/N59/agdfonVC3iPPcTkfjzXZ y+NGgX+AHbxLfmhRRst84BVyXi+XmvwmZ+nviBpZLje+42mwguduDrebxHfY TM7njdDDz8h+TA0/L/t6Ndx0CnIX1SLPU1Sv85gM1Hv/ENghGyYp1Kd6H9qK PM+JMjmHvlfedhB5/hT8wdfKflUtbYw3uYF+GA3+ssfkev4fnZd9WicjIuCn WbKATqDfRoLbW1F/vsF4KVvyuoj+bDe5hC6MM9lL5dBL46RO1tH6BJMbKEHy vpbWyvOskS6QvK+kG/pMLqJfDIKrCHXgCx+4Rz6oO2hm+HZLIyUOIe8XR4Jb 70fey/MrxCclr2v4ptEm1/G3CSbXY785xOt7RA+njUWcrx8Al2XCrtsC4Pmy z5RBt0l9aeTlss+UxwV28M6vUG/Wx5lcxQWjwIfC+z2h95314X3CUL3JVr3g Wj6mfN0k5PHb8A9vlx8UTudatatVfnCXhnO+IV54O/J8H/zDVfIDtzxqs4Kf O4A8b7ebXEG5MSZX0QnlS0/A70H4i8d0m9zA/4Qd1O+FXfMGTc7m0z6TM7g8 CO6SH6w5+MNo+N0qdc9Fl9lNLqY/xJhcQV/DnxQp/iHalYj4ukHivFG5jnB+ upFWyD56FT10FtwWLwFP+L1WEzWfDhuUwNsjwXMPor4ccpjs5UWjwG7kG+9M MLmOlyaCWyXOG/kL2R+sJ/lOFOLmH0sdoLVBMK8McyrtEHOa2PI3adgxOg48 az/q2p/iTfbwrrHI657jkAOu4xk9Jtdy4kmTSc9PN/IKKaxlzL0mF3Jqv9r5 qfhDfwfVxHP3o960OEyu1P2SJnYfR57zaJPrqRX+wTo95HeX1N8qtvWaXMFX 95lczG8MgJtl3z6Xb4K/qGWMOEp/btVIlq9RRy/ReaO7UK9kXR7iNjmflkNr 4U/q/Br16U74k45IvSayjTa5lq5ONLmBlkg+1tM3Em9NyqH102lwsuRnKfn6 wFmSn9l03Ac+hnzjibI+aqJYWf808R/D+5yh9c8n/eBC2ecswfewc1yA5XKI l5ej7l0nda6J5+9A3cu2g59dj/qzzQHeI/uihXwiAXxzeP/8/lrenGhyHV8+ 1uQGviDJ5EY+moQ8jzoBO9ovRZ43DZiczePU7jmyrz+ZtkZBTu4XqCc+jJ/H H4NfylVvywmT63nxKfDtUm+9jPfaYS7lrH6TC3hVEOxsCjump+Mm+Iv4tvAE dHvxvaiJ0jbCrn3R4MdRn2m1zeRCWhhncjVdKvnTQB9Jnjcp19PzPeCqC8Oc RUM+kzPpIz9Y0ujSbZ5/y39mkPMN5Lnsz4W4Vc61pXO6Fbz9jTBP5Y5o8Hrk E3ePMbmBO8aa3MTXJIMfPGFyE807bXINJfWC35b97Wp6tM/kMhoaMLmQ/g67 2HEV7LzYBn5oLex8BnbwX36AnbcmmdzAY2QftYF/pHaBa/jWk+AM2Vet1nMn w+zib/rB9XLQMIsfHQR3XYW8/yn8yQt/hrz/OBK85R9iF/1W7T4o+65F2Ic/ x+XUEAvuPoq89ySA3/0B83atjKOJrz8F3jYFdr7Wa7KbP4e/6KGLYef7UZiH Ra/CDpyjmUHVX0LvY6PBzx+D3qJEk+vplbEmN9F5kn+1VCbvIzOUa2j0KXCh 2OGh5WdMLqAVA+Cdq8KcRrJfHmLn9ZInXimvLTPo2dfCeqbxBTbwHrHTxbvs Jrt5ZqzJZZwRZ3IV74kHf691pH0seKPk6wyeLfNaQr8fMLmIUvzgdpnnbHo/ YHIGPR8Ez/o7xiHnEVtmMP0N43glCrxOfmibxKUYB8+ROJjM3vC+baiuVJ+A HDDxGviT78sV//GVp00u5SO9YP+cME9hqw/cvz7Myfyk2um4JKxnAq2NhF6r /C5hIrWqXQ/IOb1iWu0AvxPeFw6tW+SH6+e4lhYkmDyDlieDB07rvMkPs8v5 kbMmF3EB/EOWJ1H/4oaUD4QTptv7K+ilrn0yj/Qw9NL8cJzfX0PXjDa5lo4n mtxA9ySZPIOOSF400kqpO8NcT5d0m1xHsp4NcZs8H3Lp7kGTM6nQD3bJ88HL 1ZIXF1LqMdSNm5LA2ZJ/M3hQ6kbo+dwHPpODerXBBz7yM+hplry/kF2zwvdT OM0GTpXvpJP46ChwvHwnquSHEsE2qQPE140xuYY3jTO5kVeON7mJF6Sgbhw+ CjvADbz4uMk1bDsJ7rxKxs+L1e4wWRa8vxW/45/BzfWoZzdFqd3y3ayAdthN LqI1DpO9dFjHtVT2iWtoTYLJtbQ40eQGmgL/8v8CwGk9/g== "]]]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758405329154948*^9, 3.759008294214582*^9, {3.759503929674161*^9, 3.7595039411493998`*^9}}, CellLabel->"Out[153]=", CellID->735044486] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["George Beck", "Text", CellID->576933829] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["number theory", "Item", CellID->879453066], Cell["plane filling", "Item", CellID->587835022], Cell["Ulam", "Item", CellID->551055969], Cell["primes", "Item", CellID->114918744], Cell["square spiral", "Item", CellID->413465348] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Geometry", {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVjl0KwjAQhFH8SUW8SQ9R1IogVLpeoNZRg2kSspuH3N4UQfRpBuZjZipV0pwkGdCiie\ KjlLTcPtG/cLtPeHbSLKQOcAMkpMweBQNzUUVxQye6L0mdg/\ MIkmi17QQPFzQ4tzRetLN8n35aRm2jAav9TUt3zW5ed4bxDYodDH6T8YozcbD/\ g5ujFQQfMjsuUFHZRPHKyN/XLdjF0OOSPEjV0fYj8wZ18lBK"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["AnglePath", "Item", CellID->132713432], Cell["PrimeQ", "Item", CellID->77885042] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["TriangularSpiralPoints", "Item", CellID->467898325], Cell["HexagonalSpiralPoints", "Item", CellID->968653604], Cell["LuckyNumbers", "Item", CellID->486499423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Prime Spiral\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/PrimeSpiral.html"], None}, ButtonNote->"http://mathworld.wolfram.com/PrimeSpiral.html"]], "Item", CellID->593755232], Cell[TextData[ButtonBox["Lucky Number\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/LuckyNumber.html"], None}, ButtonNote->"http://mathworld.wolfram.com/LuckyNumber.html"]], "Item", CellID->931444669] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SquareSpiralPoints | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.886069369821666`16.34208553803871*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.886069369876897`16.342085538044884*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "TryRealOnly" -> False, "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.2 for Linux x86 (64-bit) (December 11, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.66667], 0], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[3216557251994556740] ], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.99412, 0.7098, 0.60196]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; ( DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]), DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your function submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your function submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.95686, 0.80196, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.055556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.88072, 0.61104, 0.14205], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.36842, 0.50678, 0.7098], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.56018, 0.69157, 0.19488], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.2 for Linux x86 (64-bit) (December 11, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[634, 23, 100, 2, 70, "Title",ExpressionUUID->"b0c32c39-aade-4929-ad6a-1461d484c310", CellTags->{"Name", "TemplateCell", "Title"}, CellID->84974813]}, "TemplateCell"->{ Cell[634, 23, 100, 2, 70, "Title",ExpressionUUID->"b0c32c39-aade-4929-ad6a-1461d484c310", CellTags->{"Name", "TemplateCell", "Title"}, CellID->84974813], Cell[737, 27, 174, 5, 70, "Text",ExpressionUUID->"011303fa-3d88-4252-a711-84e403b244bb", CellTags->{"Description", "TemplateCell"}, CellID->460779721]}, "Title"->{ Cell[634, 23, 100, 2, 70, "Title",ExpressionUUID->"b0c32c39-aade-4929-ad6a-1461d484c310", CellTags->{"Name", "TemplateCell", "Title"}, CellID->84974813]}, "Description"->{ Cell[737, 27, 174, 5, 70, "Text",ExpressionUUID->"011303fa-3d88-4252-a711-84e403b244bb", CellTags->{"Description", "TemplateCell"}, CellID->460779721]}, "Definition"->{ Cell[936, 36, 1206, 29, 70, "Section",ExpressionUUID->"a1c21a28-8d80-4c7f-8cd7-84bc5e390021", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[936, 36, 1206, 29, 70, "Section",ExpressionUUID->"a1c21a28-8d80-4c7f-8cd7-84bc5e390021", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[936, 36, 1206, 29, 70, "Section",ExpressionUUID->"a1c21a28-8d80-4c7f-8cd7-84bc5e390021", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[3208, 107, 1980, 50, 70, "Subsection",ExpressionUUID->"87e11358-bec5-47ab-87f3-3588c9ead49f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[5847, 185, 1429, 32, 70, "Subsection",ExpressionUUID->"e8f22121-c46f-41e1-8fa9-0bf13987a732", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[8140, 242, 7025, 152, 70, "Section",ExpressionUUID->"6bb90ad9-9143-40f4-8542-73d48b6d3b56", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[63510, 1465, 1026, 26, 70, "Subsection",ExpressionUUID->"f6b2ec0f-e78c-40b6-bafb-1f8a75db35cb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[64623, 1499, 996, 26, 70, "Subsection",ExpressionUUID->"426991b5-64c3-44a9-afed-dbf94f40a965", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[65900, 1545, 221, 6, 70, "Subsection",ExpressionUUID->"0359d286-2ab7-44e6-afda-6d01dfb9f40d", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[74359, 1807, 980, 26, 70, "Subsection",ExpressionUUID->"10c4081a-7e75-4064-ade4-abca94388c79", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[75468, 1844, 1039, 26, 70, "Subsection",ExpressionUUID->"d4b88660-b05d-4bda-8158-578af2622617", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[76716, 1884, 1084, 26, 70, "Subsection",ExpressionUUID->"5ccbfd1a-008a-43d8-8a44-c3b7d00cd386", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[78356, 1925, 923, 26, 70, "Subsection",ExpressionUUID->"627e3711-d788-4514-89ea-28e905c0f172", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[79840, 1970, 1874, 45, 70, "Subsection",ExpressionUUID->"1b0421d9-2cba-49b1-9a39-0a690641ccd5", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[82071, 2036, 955, 25, 70, "Subsection",ExpressionUUID->"1f76721a-8f68-4f7a-b53c-854ea6001585", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[83051, 2065, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a0a53af2-d0b7-42fb-b667-05d87ca982e0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[84354, 2105, 1113, 29, 70, "Subsubsection",ExpressionUUID->"207cc232-1a32-4d9b-bbef-92312fcb1159", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[87605, 2203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"3f576f94-a66c-46b2-a063-de04362d87a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[91074, 2306, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1444c4c1-6903-447f-8f61-2d0e56dc37dd", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[97018, 2476, 1071, 27, 70, "Subsubsection",ExpressionUUID->"874bae20-3d15-43c4-a97d-a4722c0f06da", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[99371, 2548, 1155, 28, 70, "Section",ExpressionUUID->"6718acef-a3f1-4ca2-a636-fcb2b4c59255", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[101095, 2591, 1033, 26, 70, "Section",ExpressionUUID->"f2db4eea-cbf3-48e7-8a82-c72ec8abfbb6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[2988, 98, 195, 5, 70, "Section",ExpressionUUID->"85b7ce70-94c5-41b9-8fa6-88c267173889", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[2988, 98, 195, 5, 70, "Section",ExpressionUUID->"85b7ce70-94c5-41b9-8fa6-88c267173889", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[63236, 1456, 249, 5, 70, "Section",ExpressionUUID->"6dc18f37-c97d-422b-ad0c-27c3301d7899", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[3208, 107, 1980, 50, 70, "Subsection",ExpressionUUID->"87e11358-bec5-47ab-87f3-3588c9ead49f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[5847, 185, 1429, 32, 70, "Subsection",ExpressionUUID->"e8f22121-c46f-41e1-8fa9-0bf13987a732", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[5847, 185, 1429, 32, 70, "Subsection",ExpressionUUID->"e8f22121-c46f-41e1-8fa9-0bf13987a732", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[7279, 219, 812, 17, 70, "Notes",ExpressionUUID->"ef0a1a67-ea87-4da5-bd26-cb37275561cf", CellTags->"TabNext", CellID->827412616], Cell[77803, 1912, 516, 8, 70, "Text",ExpressionUUID->"4d1acda6-01c7-4fd2-b1ac-8c99d56bfed1", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[100529, 2578, 529, 8, 70, "Text",ExpressionUUID->"97230618-ad9e-4ccc-9931-3d7ab4daccbd", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[102131, 2619, 515, 8, 70, "Text",ExpressionUUID->"b9e0c1de-8c53-41d5-9a85-49c3aa43d329", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[8140, 242, 7025, 152, 70, "Section",ExpressionUUID->"6bb90ad9-9143-40f4-8542-73d48b6d3b56", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[63236, 1456, 249, 5, 70, "Section",ExpressionUUID->"6dc18f37-c97d-422b-ad0c-27c3301d7899", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[63510, 1465, 1026, 26, 70, "Subsection",ExpressionUUID->"f6b2ec0f-e78c-40b6-bafb-1f8a75db35cb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[63510, 1465, 1026, 26, 70, "Subsection",ExpressionUUID->"f6b2ec0f-e78c-40b6-bafb-1f8a75db35cb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[64623, 1499, 996, 26, 70, "Subsection",ExpressionUUID->"426991b5-64c3-44a9-afed-dbf94f40a965", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[65900, 1545, 221, 6, 70, "Subsection",ExpressionUUID->"0359d286-2ab7-44e6-afda-6d01dfb9f40d", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[66124, 1553, 8198, 249, 70, "Output",ExpressionUUID->"7a3b0408-02cc-4fea-b39e-86b04b039487", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336]}, "Categories-Checkboxes"->{ Cell[66124, 1553, 8198, 249, 70, "Output",ExpressionUUID->"7a3b0408-02cc-4fea-b39e-86b04b039487", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336]}, "CheckboxCell"->{ Cell[66124, 1553, 8198, 249, 70, "Output",ExpressionUUID->"7a3b0408-02cc-4fea-b39e-86b04b039487", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336], Cell[85470, 2136, 2098, 62, 70, "Output",ExpressionUUID->"c6d51349-78d5-4c5c-896f-56b78e116e23", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[88888, 2238, 2149, 63, 70, "Output",ExpressionUUID->"82b6b876-51a7-40dc-b4bf-d1d80b72e843", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[92990, 2354, 3991, 117, 70, "Output",ExpressionUUID->"03534f7a-dc9a-4daf-bd4c-ceda5b4c4e07", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[98092, 2505, 1218, 36, 70, "Output",ExpressionUUID->"785c20c6-68e7-40a3-baf8-291d37a3e3a7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[74359, 1807, 980, 26, 70, "Subsection",ExpressionUUID->"10c4081a-7e75-4064-ade4-abca94388c79", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[75468, 1844, 1039, 26, 70, "Subsection",ExpressionUUID->"d4b88660-b05d-4bda-8158-578af2622617", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[76716, 1884, 1084, 26, 70, "Subsection",ExpressionUUID->"5ccbfd1a-008a-43d8-8a44-c3b7d00cd386", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[77803, 1912, 516, 8, 70, "Text",ExpressionUUID->"4d1acda6-01c7-4fd2-b1ac-8c99d56bfed1", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[81739, 2019, 158, 5, 70, "Input",ExpressionUUID->"5375eba4-0d81-48c3-95f9-bceeb6c18a5e", CellTags->"DefaultContent", CellID->946203791], Cell[81900, 2026, 122, 4, 70, "Output",ExpressionUUID->"722153be-a63e-490d-bb26-78bee411dad6", CellTags->"DefaultContent", CellID->168370258], Cell[84228, 2098, 89, 2, 70, "Text",ExpressionUUID->"80034122-169d-4599-84d6-15e828ea9fe7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[100529, 2578, 529, 8, 70, "Text",ExpressionUUID->"97230618-ad9e-4ccc-9931-3d7ab4daccbd", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[102131, 2619, 515, 8, 70, "Text",ExpressionUUID->"b9e0c1de-8c53-41d5-9a85-49c3aa43d329", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[78356, 1925, 923, 26, 70, "Subsection",ExpressionUUID->"627e3711-d788-4514-89ea-28e905c0f172", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[79840, 1970, 1874, 45, 70, "Subsection",ExpressionUUID->"1b0421d9-2cba-49b1-9a39-0a690641ccd5", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[79840, 1970, 1874, 45, 70, "Subsection",ExpressionUUID->"1b0421d9-2cba-49b1-9a39-0a690641ccd5", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[82071, 2036, 955, 25, 70, "Subsection",ExpressionUUID->"1f76721a-8f68-4f7a-b53c-854ea6001585", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[83051, 2065, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a0a53af2-d0b7-42fb-b667-05d87ca982e0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[83051, 2065, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a0a53af2-d0b7-42fb-b667-05d87ca982e0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[84228, 2098, 89, 2, 70, "Text",ExpressionUUID->"80034122-169d-4599-84d6-15e828ea9fe7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[84354, 2105, 1113, 29, 70, "Subsubsection",ExpressionUUID->"207cc232-1a32-4d9b-bbef-92312fcb1159", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[85470, 2136, 2098, 62, 70, "Output",ExpressionUUID->"c6d51349-78d5-4c5c-896f-56b78e116e23", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[84354, 2105, 1113, 29, 70, "Subsubsection",ExpressionUUID->"207cc232-1a32-4d9b-bbef-92312fcb1159", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[85470, 2136, 2098, 62, 70, "Output",ExpressionUUID->"c6d51349-78d5-4c5c-896f-56b78e116e23", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[87605, 2203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"3f576f94-a66c-46b2-a063-de04362d87a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[88888, 2238, 2149, 63, 70, "Output",ExpressionUUID->"82b6b876-51a7-40dc-b4bf-d1d80b72e843", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[87605, 2203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"3f576f94-a66c-46b2-a063-de04362d87a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[88888, 2238, 2149, 63, 70, "Output",ExpressionUUID->"82b6b876-51a7-40dc-b4bf-d1d80b72e843", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[91074, 2306, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1444c4c1-6903-447f-8f61-2d0e56dc37dd", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[92990, 2354, 3991, 117, 70, "Output",ExpressionUUID->"03534f7a-dc9a-4daf-bd4c-ceda5b4c4e07", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[91074, 2306, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1444c4c1-6903-447f-8f61-2d0e56dc37dd", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[92990, 2354, 3991, 117, 70, "Output",ExpressionUUID->"03534f7a-dc9a-4daf-bd4c-ceda5b4c4e07", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[97018, 2476, 1071, 27, 70, "Subsubsection",ExpressionUUID->"874bae20-3d15-43c4-a97d-a4722c0f06da", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[97018, 2476, 1071, 27, 70, "Subsubsection",ExpressionUUID->"874bae20-3d15-43c4-a97d-a4722c0f06da", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[98092, 2505, 1218, 36, 70, "Output",ExpressionUUID->"785c20c6-68e7-40a3-baf8-291d37a3e3a7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[98092, 2505, 1218, 36, 70, "Output",ExpressionUUID->"785c20c6-68e7-40a3-baf8-291d37a3e3a7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[99371, 2548, 1155, 28, 70, "Section",ExpressionUUID->"6718acef-a3f1-4ca2-a636-fcb2b4c59255", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[101095, 2591, 1033, 26, 70, "Section",ExpressionUUID->"f2db4eea-cbf3-48e7-8a82-c72ec8abfbb6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 227470, 4981}, {"TemplateCell", 227652, 4985}, {"Title", 227987, 4992}, {"Description", 228168, 4996}, {"Definition", 228346, 5000}, {"Function", 228542, 5004}, {"TemplateCellGroup", 228747, 5008}, {"Documentation", 232583, 5069}, {"TemplateSection", 232775, 5073}, {"Usage", 233147, 5080}, {"Details & Options", 233341, 5084}, {"Notes", 233544, 5088}, {"TabNext", 233749, 5092}, {"Examples", 234395, 5105}, {"Source & Additional Information", 234604, 5109}, {"Contributed By", 234816, 5113}, {"ContributorInformation", 235051, 5117}, {"Keywords", 235272, 5121}, {"Categories", 235463, 5125}, {"Categories-Checkboxes", 235859, 5132}, {"CheckboxCell", 236072, 5136}, {"Related Symbols", 237193, 5152}, {"Related Resource Objects", 237405, 5156}, {"Source/Reference Citation", 237628, 5160}, {"DefaultContent", 237841, 5164}, {"Links", 238810, 5183}, {"Tests", 238993, 5187}, {"VerificationTests", 239210, 5191}, {"Compatibility", 239423, 5195}, {"CompatibilityWolframLanguageVersionRequired", 239652, 5199}, {"Wolfram Language Version", 239924, 5203}, {"ScrapeDefault", 240185, 5207}, {"CompatibilityOperatingSystem", 240388, 5211}, {"Operating System", 240857, 5218}, {"CompatibilityOperatingSystem-Checkboxes", 241121, 5222}, {"CompatibilityFeatures", 241378, 5226}, {"Required Features", 241828, 5233}, {"CompatibilityFeatures-Checkboxes", 242079, 5237}, {"CompatibilityEvaluationEnvironment", 242335, 5241}, {"Environments", 242815, 5248}, {"CompatibilityEvaluationEnvironment-Checkboxes", 243087, 5252}, {"Cloud Support", 243349, 5256}, {"CompatibilityCloudSupport", 243593, 5260}, {"CompatibilityCloudSupport-Checkboxes", 244070, 5267}, {"Author Notes", 244312, 5271}, {"Submission Notes", 244511, 5275} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[634, 23, 100, 2, 70, "Title",ExpressionUUID->"b0c32c39-aade-4929-ad6a-1461d484c310", CellTags->{"Name", "TemplateCell", "Title"}, CellID->84974813], Cell[737, 27, 174, 5, 70, "Text",ExpressionUUID->"011303fa-3d88-4252-a711-84e403b244bb", CellTags->{"Description", "TemplateCell"}, CellID->460779721], Cell[CellGroupData[{ Cell[936, 36, 1206, 29, 70, "Section",ExpressionUUID->"a1c21a28-8d80-4c7f-8cd7-84bc5e390021", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2145, 67, 730, 22, 70, "Input",ExpressionUUID->"b7be482e-df66-4a5a-b4f4-d9b8636d4b3b", InitializationCell->True, CellID->92882463], Cell[2878, 91, 73, 2, 70, "Input",ExpressionUUID->"ea6beb9e-cd9d-4c0e-a61a-bcaecfc9beda", InitializationCell->True, CellID->725771529] }, Open ]], Cell[CellGroupData[{ Cell[2988, 98, 195, 5, 70, "Section",ExpressionUUID->"85b7ce70-94c5-41b9-8fa6-88c267173889", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[3208, 107, 1980, 50, 70, "Subsection",ExpressionUUID->"87e11358-bec5-47ab-87f3-3588c9ead49f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[5213, 161, 380, 10, 70, "UsageInputs",ExpressionUUID->"74782e65-fbb4-4c91-a297-7d154651d321", CellID->34886219], Cell[5596, 173, 202, 6, 70, "UsageDescription",ExpressionUUID->"0d360509-1d48-49a5-bb59-ab847bf95723", CellID->508486543] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5847, 185, 1429, 32, 70, "Subsection",ExpressionUUID->"e8f22121-c46f-41e1-8fa9-0bf13987a732", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[7279, 219, 812, 17, 70, "Notes",ExpressionUUID->"ef0a1a67-ea87-4da5-bd26-cb37275561cf", CellTags->"TabNext", CellID->827412616] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8140, 242, 7025, 152, 70, "Section",ExpressionUUID->"6bb90ad9-9143-40f4-8542-73d48b6d3b56", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[15190, 398, 75, 2, 70, "Subsection",ExpressionUUID->"ff8cb71e-8bc5-4b26-aab3-bd261d8c0cbf", CellID->904125756], Cell[15268, 402, 305, 5, 70, "Text",ExpressionUUID->"67c3bfa6-3ac7-42f8-adaf-02c2fa31f77a", CellID->630195989], Cell[CellGroupData[{ Cell[15598, 411, 274, 6, 70, "Input",ExpressionUUID->"e7da1de1-9920-422a-8386-4d9d37c7b2cf", CellID->379167163], Cell[15875, 419, 771, 27, 70, "Output",ExpressionUUID->"39b9fdc1-a1bf-46cc-80ae-a365607bb186", CellID->266520822] }, Open ]], Cell[CellGroupData[{ Cell[16683, 451, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4f365d41-89b9-48ca-b125-c8010ef0770f", CellID->14107562], Cell[16829, 457, 250, 6, 70, "Text",ExpressionUUID->"e4a9803b-c74e-4467-a81e-a96f8aa63094", CellID->703461519], Cell[CellGroupData[{ Cell[17104, 467, 731, 21, 70, "Input",ExpressionUUID->"d611bcbe-6e1d-424a-99f1-7b85bab0ff44", CellID->575777827], Cell[17838, 490, 761, 14, 70, "Output",ExpressionUUID->"4c122135-271e-4bed-9367-9bec78f42045", CellID->667782668] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18648, 510, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"37d1e354-8bd4-4402-8c0c-feeac2f84442", CellID->14107563], Cell[18794, 516, 318, 5, 70, "Text",ExpressionUUID->"d21767d2-3807-4911-b6fd-9fe9bd623e72", CellID->193148865], Cell[CellGroupData[{ Cell[19137, 525, 609, 15, 70, "Input",ExpressionUUID->"998f5052-b32b-4201-81b4-ffb1077ff997", CellID->989047456], Cell[19749, 542, 3919, 68, 70, "Output",ExpressionUUID->"31ebf3e8-a525-4a60-9485-c466347be060", CellID->27204386] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23717, 616, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"aa546b39-5c91-4199-a72a-854bfd2efb1d", CellID->14107564], Cell[23863, 622, 242, 9, 70, "Text",ExpressionUUID->"904c3c9a-ad4f-425d-b2e5-39bad4aff818", CellID->513213899], Cell[CellGroupData[{ Cell[24130, 635, 397, 11, 70, "Input",ExpressionUUID->"6ba8c000-78ef-4f87-b4a0-6e35b975c827", CellID->658241633], Cell[24530, 648, 328, 9, 70, "Output",ExpressionUUID->"f8cede15-2b86-441b-8239-63747226cf40", CellID->952552108] }, Open ]], Cell[CellGroupData[{ Cell[24895, 662, 493, 16, 70, "Input",ExpressionUUID->"23a4a758-b850-49e2-8364-81f4633e336b", CellID->872851787], Cell[25391, 680, 358, 10, 70, "Output",ExpressionUUID->"96c454c3-906a-49f8-84b3-0c2827a690fd", CellID->274126339] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25810, 697, 74, 2, 70, "Subsection",ExpressionUUID->"04937dfa-f7ba-4a88-839f-c237d6f7f0ed", CellID->461278909], Cell[25887, 701, 454, 10, 70, "Text",ExpressionUUID->"4fb8e647-cad3-4550-82b6-b3057fe6a4f4", CellID->165298313], Cell[26344, 713, 679, 20, 70, "Input",ExpressionUUID->"0261025f-1c95-4919-86cf-0bb0008d8860", CellID->949973073], Cell[27026, 735, 291, 7, 70, "Text",ExpressionUUID->"14fc6ad7-8511-42e6-8a2e-01495cce80e2", CellID->728273076], Cell[CellGroupData[{ Cell[27342, 746, 1031, 26, 70, "Input",ExpressionUUID->"d4f70377-b596-41e8-83bd-70c3a7d41bb3", CellID->634203181], Cell[28376, 774, 771, 17, 70, "Output",ExpressionUUID->"0311093c-fc85-45e0-ac40-2b8036024012", CellID->248168340] }, Open ]], Cell[29162, 794, 218, 4, 70, "Text",ExpressionUUID->"e2b1d2a8-04db-4b01-9edc-bc150246c3eb", CellID->29028281], Cell[CellGroupData[{ Cell[29405, 802, 537, 17, 70, "Input",ExpressionUUID->"8b4ff469-1e45-4769-91b7-9af69d94e933", CellID->286343217], Cell[29945, 821, 211, 6, 70, "Output",ExpressionUUID->"31a43be3-7d9e-400c-8aae-f96cc9c38742", CellID->246930881] }, Open ]], Cell[CellGroupData[{ Cell[30193, 832, 184, 5, 70, "Input",ExpressionUUID->"e4c47c1c-0d68-48c6-8fd4-06dfdf944bb6", CellID->268959573], Cell[30380, 839, 187, 5, 70, "Output",ExpressionUUID->"80382bb9-bfc6-4bc6-ae86-01dcc1b62557", CellID->943330099] }, Open ]], Cell[30582, 847, 386, 8, 70, "Text",ExpressionUUID->"d55d37b8-286c-42c7-8412-76e1f350399f", CellID->494085935], Cell[CellGroupData[{ Cell[30993, 859, 507, 11, 70, "Input",ExpressionUUID->"2c21f93d-7c18-459b-8d4f-4500607db97e", CellID->245290846], Cell[31503, 872, 17289, 287, 70, "Output",ExpressionUUID->"cab33aa3-9103-4f3b-a95f-6671c6fcbb28", CellID->961529890] }, Open ]], Cell[CellGroupData[{ Cell[48829, 1164, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3340b681-a7b2-4b4d-aedf-b23eb05620aa", CellID->14107565], Cell[48975, 1170, 416, 12, 70, "Text",ExpressionUUID->"459e9d0b-ccaf-42ab-8e1b-373d6f3668a2", CellID->3731436], Cell[CellGroupData[{ Cell[49416, 1186, 404, 10, 70, "Input",ExpressionUUID->"e62cdc65-ff9c-4969-a957-579e98b9e134", CellID->64205406], Cell[49823, 1198, 259, 6, 70, "Output",ExpressionUUID->"ab418726-7d9c-484d-a734-d0026090c667", CellID->917581415] }, Open ]], Cell[50097, 1207, 464, 10, 70, "Text",ExpressionUUID->"d2471803-1a4f-4329-90aa-e5550bda3ca8", CellID->637951467], Cell[50564, 1219, 907, 22, 70, "Input",ExpressionUUID->"671a596e-ec3e-4de0-b2f3-1515bc558c86", CellID->683139682], Cell[51474, 1243, 442, 9, 70, "Text",ExpressionUUID->"6f890aec-4444-4168-919a-e6c585a458bf", CellID->252553438], Cell[CellGroupData[{ Cell[51941, 1256, 482, 10, 70, "Input",ExpressionUUID->"a9637cfe-dbdc-46b4-8a38-7414d61fb97f", CellID->519928303], Cell[52426, 1268, 10737, 180, 70, "Output",ExpressionUUID->"a3b1e1e2-773c-46c5-964b-9f67f00d515a", CellID->735044486] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[63236, 1456, 249, 5, 70, "Section",ExpressionUUID->"6dc18f37-c97d-422b-ad0c-27c3301d7899", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[63510, 1465, 1026, 26, 70, "Subsection",ExpressionUUID->"f6b2ec0f-e78c-40b6-bafb-1f8a75db35cb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[64539, 1493, 47, 1, 70, "Text",ExpressionUUID->"d331b658-6624-4e12-922d-027e58724904", CellID->576933829] }, Open ]], Cell[CellGroupData[{ Cell[64623, 1499, 996, 26, 70, "Subsection",ExpressionUUID->"426991b5-64c3-44a9-afed-dbf94f40a965", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[65622, 1527, 49, 1, 70, "Item",ExpressionUUID->"36b0f711-8118-415a-8063-436baef8d9ce", CellID->879453066], Cell[65674, 1530, 49, 1, 70, "Item",ExpressionUUID->"9d477a7c-ae3a-4f10-adf4-82508e15b528", CellID->587835022], Cell[65726, 1533, 40, 1, 70, "Item",ExpressionUUID->"fbafb82c-3317-4936-840e-984f4f1f8b17", CellID->551055969], Cell[65769, 1536, 42, 1, 70, "Item",ExpressionUUID->"6d0d684a-4e62-4837-b91e-b46636afa2cd", CellID->114918744], Cell[65814, 1539, 49, 1, 70, "Item",ExpressionUUID->"3effe4ac-d424-489d-b929-b9e1b04f43f7", CellID->413465348] }, Open ]], Cell[CellGroupData[{ Cell[65900, 1545, 221, 6, 70, "Subsection",ExpressionUUID->"0359d286-2ab7-44e6-afda-6d01dfb9f40d", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[66124, 1553, 8198, 249, 70, "Output",ExpressionUUID->"7a3b0408-02cc-4fea-b39e-86b04b039487", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336] }, Open ]], Cell[CellGroupData[{ Cell[74359, 1807, 980, 26, 70, "Subsection",ExpressionUUID->"10c4081a-7e75-4064-ade4-abca94388c79", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[75342, 1835, 45, 1, 70, "Item",ExpressionUUID->"bd8bc037-daeb-4b55-8168-ec64ad1aaa06", CellID->132713432], Cell[75390, 1838, 41, 1, 70, "Item",ExpressionUUID->"34ee92ff-e213-4399-a42c-3252fffa143f", CellID->77885042] }, Open ]], Cell[CellGroupData[{ Cell[75468, 1844, 1039, 26, 70, "Subsection",ExpressionUUID->"d4b88660-b05d-4bda-8158-578af2622617", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[76510, 1872, 58, 1, 70, "Item",ExpressionUUID->"0e778234-2910-4580-9c5d-2bd4152fdef9", CellID->467898325], Cell[76571, 1875, 57, 1, 70, "Item",ExpressionUUID->"85247517-eca7-4a5e-8d86-b3b13075ee9b", CellID->968653604], Cell[76631, 1878, 48, 1, 70, "Item",ExpressionUUID->"3c04fee9-8c07-4b25-a41f-0e95c47a8085", CellID->486499423] }, Open ]], Cell[CellGroupData[{ Cell[76716, 1884, 1084, 26, 70, "Subsection",ExpressionUUID->"5ccbfd1a-008a-43d8-8a44-c3b7d00cd386", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[77803, 1912, 516, 8, 70, "Text",ExpressionUUID->"4d1acda6-01c7-4fd2-b1ac-8c99d56bfed1", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[78356, 1925, 923, 26, 70, "Subsection",ExpressionUUID->"627e3711-d788-4514-89ea-28e905c0f172", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[79282, 1953, 259, 5, 70, "Item",ExpressionUUID->"68490c17-3acb-4ba7-91ed-bad1d0340aa8", CellID->593755232], Cell[79544, 1960, 259, 5, 70, "Item",ExpressionUUID->"095c893e-00fc-45fb-bc69-4adc63ea0554", CellID->931444669] }, Open ]], Cell[CellGroupData[{ Cell[79840, 1970, 1874, 45, 70, "Subsection",ExpressionUUID->"1b0421d9-2cba-49b1-9a39-0a690641ccd5", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[81739, 2019, 158, 5, 70, "Input",ExpressionUUID->"5375eba4-0d81-48c3-95f9-bceeb6c18a5e", CellTags->"DefaultContent", CellID->946203791], Cell[81900, 2026, 122, 4, 70, "Output",ExpressionUUID->"722153be-a63e-490d-bb26-78bee411dad6", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82071, 2036, 955, 25, 70, "Subsection",ExpressionUUID->"1f76721a-8f68-4f7a-b53c-854ea6001585", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[83051, 2065, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a0a53af2-d0b7-42fb-b667-05d87ca982e0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[84228, 2098, 89, 2, 70, "Text",ExpressionUUID->"80034122-169d-4599-84d6-15e828ea9fe7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[84354, 2105, 1113, 29, 70, "Subsubsection",ExpressionUUID->"207cc232-1a32-4d9b-bbef-92312fcb1159", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[85470, 2136, 2098, 62, 70, "Output",ExpressionUUID->"c6d51349-78d5-4c5c-896f-56b78e116e23", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[87605, 2203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"3f576f94-a66c-46b2-a063-de04362d87a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[88888, 2238, 2149, 63, 70, "Output",ExpressionUUID->"82b6b876-51a7-40dc-b4bf-d1d80b72e843", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[91074, 2306, 1913, 46, 70, "Subsubsection",ExpressionUUID->"1444c4c1-6903-447f-8f61-2d0e56dc37dd", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[92990, 2354, 3991, 117, 70, "Output",ExpressionUUID->"03534f7a-dc9a-4daf-bd4c-ceda5b4c4e07", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[97018, 2476, 1071, 27, 70, "Subsubsection",ExpressionUUID->"874bae20-3d15-43c4-a97d-a4722c0f06da", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[98092, 2505, 1218, 36, 70, "Output",ExpressionUUID->"785c20c6-68e7-40a3-baf8-291d37a3e3a7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[99371, 2548, 1155, 28, 70, "Section",ExpressionUUID->"6718acef-a3f1-4ca2-a636-fcb2b4c59255", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[100529, 2578, 529, 8, 70, "Text",ExpressionUUID->"97230618-ad9e-4ccc-9931-3d7ab4daccbd", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[101095, 2591, 1033, 26, 70, "Section",ExpressionUUID->"f2db4eea-cbf3-48e7-8a82-c72ec8abfbb6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[102131, 2619, 515, 8, 70, "Text",ExpressionUUID->"b9e0c1de-8c53-41d5-9a85-49c3aa43d329", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)