(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 209922, 4496]
NotebookOptionsPosition[ 57476, 1596]
NotebookOutlinePosition[ 200726, 4301]
CellTagsIndexPosition[ 198917, 4251]
WindowTitle->OrdinalNumberString | Definition Notebook
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["OrdinalNumberString", "Title",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->591885671],
Cell["\<\
Convert integers to strings representing ranks: 1st, 2nd, 3rd, etc.\
\>", "Text",
CellTags->{"Description", "TemplateCell"},
CellID->970147877],
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[{
RowBox[{"OrdinalNumberString", "[", "n_Integer", "]"}], " ", "/;", " ",
RowBox[{"n", " ", ">=", " ", "0"}]}], " ", ":=", " ",
RowBox[{"StringJoin", "[",
RowBox[{
RowBox[{"ToString", "[", "n", "]"}], ",", " ",
RowBox[{"Switch", "[",
RowBox[{
RowBox[{"Take", "[",
RowBox[{
RowBox[{"Reverse", "[",
RowBox[{"IntegerDigits", "[", "n", "]"}], "]"}], ",", " ",
RowBox[{"UpTo", "[", "2", "]"}]}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"1", " ", "|", " ", "2", " ", "|", " ", "3"}], ",", " ",
"1"}], "}"}], ",", " ", "\"\
\"", ",", " ",
RowBox[{"{",
RowBox[{"1", ",", " ", "___"}], "}"}], ",", " ", "\"\\"", ",",
" ",
RowBox[{"{",
RowBox[{"2", ",", " ", "___"}], "}"}], ",", " ", "\"\\"", ",",
" ",
RowBox[{"{",
RowBox[{"3", ",", " ", "___"}], "}"}], ",", " ", "\"\\"", ",",
" ", "_", ",", " ", "\"\\""}], "]"}]}], "]"}]}]], "Input",
InitializationCell->True,
CellID->327850396]
}, 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[{"OrdinalNumberString", "[",
StyleBox["n", "TI"], "]"}]], "UsageInputs",
FontFamily->"Source Sans Pro",
CellID->424218856],
Cell[TextData[{
"generates a string representing the ordering position ",
Cell[BoxData[
StyleBox["n", "TI"]], "InlineFormula",
FontFamily->"Source Sans Pro"],
" (\"1st\", \"2nd\", \"3rd\", etc.)."
}], "UsageDescription",
CellID->872262235]
}, 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["Additional information about usage and options.", "Notes",
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->273771548]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Examples",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Examples",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Demonstrate the function\[CloseCurlyQuote]s usage, starting with \
the most basic use case and describing each example in a preceding text cell.\
\n\nWithin a group, individual examples can be delimited by inserting page \
breaks between them (either using ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"[Right-click]\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275],
FontSize -> 14, StripOnInput -> False],
StyleBox[
"\" \[FilledRightTriangle] \"", FontFamily ->
"Source Sans Pro", FontSize -> 13.86, FontColor ->
GrayLevel[0.5], StripOnInput -> False],
StyleBox[
"\"Insert Page Break\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275],
FontSize -> 14, StripOnInput -> False]}, "RowDefault"],
ShowStringCharacters -> False]]],
" between cells or through the menu using ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14,
StripOnInput -> False],
StyleBox[
"\" \[FilledRightTriangle] \"", FontFamily ->
"Source Sans Pro", FontSize -> 13.86, FontColor ->
GrayLevel[0.5], StripOnInput -> False],
StyleBox[
"\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14,
StripOnInput -> False]}, "RowDefault"],
ShowStringCharacters -> False]]],
").\n\nExamples should be grouped into Subsection and \
Subsubsection cells similarly to existing documentation pages. Here are some \
typical Subsection names and the types of examples they normally contain:\n \
",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Basic Examples: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"most basic function usage\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontSize -> 14, StripOnInput -> False]},
"RowDefault"], ShowStringCharacters -> False]]],
"input and display conventions, standard computational attributes \
(e.g. threading over lists)\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontSize -> 14, StripOnInput -> False]},
"RowDefault"], ShowStringCharacters -> False]]],
"available options and parameters for the function\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Applications: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"standard industry or academic applications\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Properties and Relations: \"", FontFamily ->
"Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14,
StripOnInput -> False]}, "RowDefault"], ShowStringCharacters ->
False]]], "how the function relates to other functions\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Possible Issues: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"limitations or unexpected behavior a user might experience\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Neat Examples: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"particularly interesting, unconventional, or otherwise unique \
usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoExamples"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Examples"},
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011],
Cell[CellGroupData[{
Cell["Basic Examples", "Subsection",
TaggingRules->{},
CellID->904125756],
Cell["The first ordinal:", "Text",
TaggingRules->{},
CellChangeTimes->{{3.760712206784164*^9, 3.760712217430146*^9}},
CellID->502614690],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"OrdinalNumberString", "[", "1", "]"}]], "Input",
TaggingRules->{},
CellLabel->"In[2]:=",
CellID->247897358],
Cell[BoxData["\<\"1st\"\>"], "Output",
TaggingRules->{},
CellLabel->"Out[2]=",
CellID->128270260]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Scope", "Subsection",
TaggingRules->{},
CellID->204653245],
Cell["All positive integers are supported:", "Text",
TaggingRules->{},
CellChangeTimes->{3.76071219238367*^9},
CellID->797764842],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Table", "[",
RowBox[{
RowBox[{"OrdinalNumberString", "[", "i", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "103"}], "}"}]}], "]"}]], "Input",
TaggingRules->{},
CellLabel->"In[3]:=",
CellID->370988442],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\<\"1st\"\>", ",", "\<\"2nd\"\>", ",", "\<\"3rd\"\>",
",", "\<\"4th\"\>", ",", "\<\"5th\"\>", ",", "\<\"6th\"\>",
",", "\<\"7th\"\>", ",", "\<\"8th\"\>", ",", "\<\"9th\"\>",
",", "\<\"10th\"\>", ",", "\<\"11th\"\>", ",", "\<\"12th\"\>",
",", "\<\"13th\"\>", ",", "\<\"14th\"\>", ",", "\<\"15th\"\>",
",", "\<\"16th\"\>", ",", "\<\"17th\"\>", ",", "\<\"18th\"\>",
",", "\<\"19th\"\>", ",", "\<\"20th\"\>", ",", "\<\"21st\"\>",
",", "\<\"22nd\"\>", ",", "\<\"23rd\"\>", ",", "\<\"24th\"\>",
",", "\<\"25th\"\>", ",", "\<\"26th\"\>", ",", "\<\"27th\"\>",
",", "\<\"28th\"\>", ",", "\<\"29th\"\>", ",", "\<\"30th\"\>",
",", "\<\"31st\"\>", ",", "\<\"32nd\"\>", ",", "\<\"33rd\"\>",
",", "\<\"34th\"\>", ",", "\<\"35th\"\>", ",", "\<\"36th\"\>",
",", "\<\"37th\"\>", ",", "\<\"38th\"\>", ",", "\<\"39th\"\>",
",", "\<\"40th\"\>", ",", "\<\"41st\"\>", ",", "\<\"42nd\"\>",
",", "\<\"43rd\"\>", ",", "\<\"44th\"\>", ",", "\<\"45th\"\>",
",", "\<\"46th\"\>", ",", "\<\"47th\"\>", ",", "\<\"48th\"\>",
",", "\<\"49th\"\>", ",", "\<\"50th\"\>", ",", "\<\"51st\"\>",
",", "\<\"52nd\"\>", ",", "\<\"53rd\"\>", ",", "\<\"54th\"\>",
",", "\<\"55th\"\>", ",", "\<\"56th\"\>", ",", "\<\"57th\"\>",
",", "\<\"58th\"\>", ",", "\<\"59th\"\>", ",", "\<\"60th\"\>",
",", "\<\"61st\"\>", ",", "\<\"62nd\"\>", ",", "\<\"63rd\"\>",
",", "\<\"64th\"\>", ",", "\<\"65th\"\>", ",", "\<\"66th\"\>",
",", "\<\"67th\"\>", ",", "\<\"68th\"\>", ",", "\<\"69th\"\>",
",", "\<\"70th\"\>", ",", "\<\"71st\"\>", ",", "\<\"72nd\"\>",
",", "\<\"73rd\"\>", ",", "\<\"74th\"\>", ",", "\<\"75th\"\>",
",", "\<\"76th\"\>", ",", "\<\"77th\"\>", ",", "\<\"78th\"\>",
",", "\<\"79th\"\>", ",", "\<\"80th\"\>", ",", "\<\"81st\"\>",
",", "\<\"82nd\"\>", ",", "\<\"83rd\"\>", ",", "\<\"84th\"\>",
",", "\<\"85th\"\>", ",", "\<\"86th\"\>", ",", "\<\"87th\"\>",
",", "\<\"88th\"\>", ",", "\<\"89th\"\>", ",", "\<\"90th\"\>",
",", "\<\"91st\"\>", ",", "\<\"92nd\"\>", ",", "\<\"93rd\"\>",
",", "\<\"94th\"\>", ",", "\<\"95th\"\>", ",", "\<\"96th\"\>",
",", "\<\"97th\"\>", ",", "\<\"98th\"\>", ",", "\<\"99th\"\>",
",", "\<\"100th\"\>", ",", "\<\"101st\"\>", ",", "\<\"102nd\"\>",
",", "\<\"103rd\"\>"}], "}"}]], "Output",
TaggingRules->{},
CellLabel->"Out[3]=",
CellID->406300609]
}, 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["Jon McLoone", "Text",
CellID->180302432]
}, 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["keyword 1", "Item",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->744507960]
}, Open ]],
Cell[CellGroupData[{
Cell["Categories", "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Categories"},
DefaultNewCellStyle->"Item",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[BoxData[
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "3D Visualization"}], "\" \"",
"\"3D Visualization\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Accessibility"}], "\" \"",
"\"Accessibility\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Array Manipulation"}], "\" \"",
"\"Array Manipulation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"",
"\"Cloud & Deployment\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"",
"\"Core Language & Structure\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"",
"\"Data Manipulation & Analysis\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Engineering Data & Computation"}],
"\" \"", "\"Engineering Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "External Interfaces & Connections"}],
"\" \"", "\"External Interfaces & Connections\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"",
"\"Financial Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"",
"\"Geographic Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"",
"\"Graphs & Networks\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Higher Mathematical Computation"}],
"\" \"", "\"Higher Mathematical Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Just For Fun"}], "\" \"",
"\"Just For Fun\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[
"Knowledge Representation & Natural Language", {
False, "Knowledge Representation & Natural Language"}], "\" \"",
"\"Knowledge Representation & Natural Language\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Machine Learning"}], "\" \"",
"\"Machine Learning\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Notebook Documents & Presentation"}],
"\" \"", "\"Notebook Documents & Presentation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Programming Utilities"}], "\" \"",
"\"Programming Utilities\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Repository Tools"}], "\" \"",
"\"Repository Tools\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[
False, {False, "Scientific and Medical Data & Computation"}], "\" \"",
"\"Scientific and Medical Data & Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}],
"\" \"", "\"Social, Cultural & Linguistic Data\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Sound & Video"}], "\" \"",
"\"Sound & Video\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["Strings & Text", {False, "Strings & Text"}], "\" \"",
"\"Strings & Text\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Symbolic & Numeric Computation"}],
"\" \"", "\"Symbolic & Numeric Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"",
"\"System Operation & Setup\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"",
"\"Time-Related Computation\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "User Interface Construction"}], "\" \"",
"\"User Interface Construction\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"",
"\"Visualization & Graphics\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"",
"\"Wolfram Physics Project\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxVjtFKxDAQRUGstiL7DX3yRfoRZXVhcXGlsz+Qba8xmCYhM4P2700RRZ9m4M7cc/\
q6o4pk8aCro0pS6eh6+4bxHdPrBV8eHAvdP4X44TFZtANSBiOIERdDe9c+\
G9FsfHswwaqxoA1JdsFyyU74LHXVXjAzN71KnMvb2FH9kmNCloVutkZgY3bgAj6mtZV/\
wOsc1IPrx8mJOZet2hnP+A2aB3j8TVb76HUO/4GbfRDkov7tTU0fFtIzo/\
jdDuCoecRpSaB6p2Fcb74Aj/ZijA=="},
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->497342009]
}, 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["ToString", "Item",
CellID->826797679],
Cell["SpokenString", "Item",
CellID->18022048]
}, 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["Resource Name (resources from any Wolfram repository)", "Item",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->873143661]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Source/Reference Citation",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Source/Reference Citation",
Cell[
BoxData[
FrameBox[
Cell[
"Give a bibliographic-style citation for the original source of the \
function and/or its components (e.g. a published paper, algorithm, or code \
repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins ->
20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoSourceReferenceCitation"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"},
DefaultNewCellStyle->"Text",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552],
Cell["Source, reference or citation information", "Text",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Links",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Links",
Cell[
BoxData[
FrameBox[
Cell[
"List additional URLs or hyperlinks for external information related \
to the function.", "MoreInfoText"], Background -> GrayLevel[0.95],
FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5,
ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoLinks"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Links"},
DefaultNewCellStyle->"Item",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773],
Cell["Link to other related material", "Item",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Tests",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"VerificationTests",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Specify an optional list of tests for verifying that the function \
is working properly in any environment. Tests can be specified as \
Input/Output cell pairs or as symbolic ",
Cell[
BoxData[
StyleBox[
TagBox[
ButtonBox[
StyleBox[
"VerificationTest", "SymbolsRefLink", ShowStringCharacters ->
True, FontFamily -> "Source Sans Pro"], BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {
"Link"}]], ButtonData -> "paclet:ref/VerificationTest",
ContentPadding -> False],
MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True,
FontFamily -> "Source Sans Pro"]]],
" expressions for including additional options."}],
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoVerificationTests"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "VerificationTests"},
DefaultNewCellStyle->"Input",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448],
Cell[BoxData[
Marketplace`Private`getTemplateTests[
"Function", <|
"Name" -> "OrdinalNumberString", "UUID" ->
"9d6bdca5-6ea8-45a8-9516-1f8de14171ad", "ResourceType" -> "Function",
"Version" -> "1.0.0", "Description" ->
"Convert integers to strings representing ranks: 1st, 2nd, 3rd, etc.",
"Keywords" -> {}, "Attributes" -> {}, "AutoUpdate" -> Automatic,
"LatestUpdate" -> DateObject[{2019, 3, 4}, "Day", "Gregorian", -6.],
"ShortName" -> "OrdinalNumberString", "AlternativeNames" -> {},
"AutoCopyExampleNotebook" -> True,
"Categories" -> {
"Strings & Text", "Knowledge Representation & Natural Language"},
"ContributedBy" -> "Jon McLoone", "DefinitionNotebook" ->
"marketplacestorage/resources/9d6/9d6bdca5-6ea8-45a8-9516-1f8de14171ad/\
DefinitionNotebook/original.nb", "Details" -> "", "Discoverable" -> Automatic,
"DisplayedSourceFields" -> {},
"Documentation" -> <|"Usage" -> {<|"Usage" -> BoxData[
RowBox[{
StyleBox[
RowBox[{
StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[",
StyleBox["\"OrdinalNumberString\"", "ResourceFunctionName"],
"]"}], "ResourceFunctionHandle"], "[",
StyleBox["n", "TI"], "]"}]], "Description" ->
TextData[{"generates a string representing the ordering position ",
Cell[
BoxData[
StyleBox["n", "TI"]], "InlineFormula", FontFamily ->
"Source Sans Pro"], " (\"1st\", \"2nd\", \"3rd\", etc.)."}]|>}|>,
"ExampleNotebook" ->
CloudObject[
"https://www.wolframcloud.com/objects/24a867c1-614b-431c-8adb-\
5529f17f04c5"], "ExternalLinks" -> {}, "OriginalUUID" ->
"e36ab9ef-2578-496c-8c77-f6bcaa68a686", "Originator" -> Missing["NoInput"],
"PermissionsGroups" -> {}, "PricingInformation" -> 0, "Public" -> True,
"PublisherUUID" -> "b0b42389-a05f-4e1f-8f92-490e92ea4ce1",
"RelatedSymbols" -> {"ToString", "SpokenString"}, "ReleaseDate" ->
DateObject[{2019, 3, 4}, "Day", "Gregorian", -6.], "SeeAlso" -> {},
"SourceMetadata" -> <||>, "StoredElements" -> {Automatic}, "SubmissionID" ->
"7619", "SubmissionUUID" -> "2e4c4291-26fe-4061-ae42-f97db43ca19b",
"Submitter" -> "jonm@wolfram.com", "SymbolName" ->
"FunctionRepository`$e36ab9ef2578496c8c77f6bcaa68a686`OrdinalNumberString",
"VersionHistory" -> <|
"1.0.0" -> <|
"Timestamp" ->
DateObject[{2019, 3, 4, 12, 19, 27.659012`8.194411644531618},
"Instant", "Gregorian", -6.], "Approver" -> "danl@wolfram.com",
"SubmissionID" -> "7619", "Submitter" -> "jonm@wolfram.com",
"SubmissionUUID" -> "2e4c4291-26fe-4061-ae42-f97db43ca19b",
"OriginalUUID" -> "e36ab9ef-2578-496c-8c77-f6bcaa68a686"|>|>,
"WolframLanguageVersionRequired" -> "11.3", "VerificationTests" ->
Missing["NotFound"]|>,
Missing[]]], "Input",
CellID->289872353]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Compatibility",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Compatibility",
Cell[
BoxData[
FrameBox[
Cell[
"Specify any known compatibilities for your resource to ensure it is \
discoverable on the correct platforms.", "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibility"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Compatibility"},
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822],
Cell[CellGroupData[{
Cell[TextData[{
"Wolfram Language Version",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityWolframLanguageVersionRequired",
Cell[
BoxData[
FrameBox[
Cell[
"Enter required Wolfram Language Version (e.g. 12.1+).",
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {
"SectionMoreInfoCompatibilityWolframLanguageVersionRequired"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{
"TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"},
DefaultNewCellStyle->"Text",
FontSize->16,
CellTags->{
"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup",
"Wolfram Language Version"},
CellID->901090016],
Cell["12.3+", "Text",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Operating System",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityOperatingSystem",
Cell[
BoxData[
FrameBox[
Cell[
"Select all operating systems where your resource is expected to \
function properly.", "MoreInfoText"], Background -> GrayLevel[0.95],
FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5,
ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"},
DefaultNewCellStyle->"Item",
FontSize->16,
CellTags->{
"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[BoxData[
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\
3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\
TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\
BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\
V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"},
CellTags->{
"CheckboxCell", "CompatibilityOperatingSystem",
"CompatibilityOperatingSystem-Checkboxes"},
CellID->40078524]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Required Features",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityFeatures",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{"Choose any other features that are ",
Cell[
BoxData[
StyleBox[
StyleBox["required", "TI"], ShowStringCharacters -> True,
FontFamily -> "Source Sans Pro"]]],
" in order to use your resource."}], "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityFeatures"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"},
DefaultNewCellStyle->"Item",
FontSize->16,
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[BoxData[
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"",
"\"Parallel Kernels\""},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox[False, {False, "Cloud Access"}], "\" \"",
"\"Cloud Access\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\
GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\
5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\
xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\
obsYtD4mTxC2UWr58w3NfBx2Q=="},
CellTags->{
"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->396992059]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Environments",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityEvaluationEnvironment",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Select all evaluation environments where your resource is expected \
to be compatible. See ",
Cell[
BoxData[
StyleBox[
TagBox[
ButtonBox[
StyleBox[
"$EvaluationEnvironment", "SymbolsRefLink",
ShowStringCharacters -> True, FontFamily ->
"Source Sans Pro"], BaseStyle -> Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {
"Link"}]], ButtonData ->
"paclet:ref/$EvaluationEnvironment", ContentPadding -> False],
MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True,
FontFamily -> "Source Sans Pro"]]], " for more details."}],
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"},
DefaultNewCellStyle->"Item",
FontSize->16,
CellTags->{
"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[BoxData[
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox["Session", {False, "Session"}], "\" \"",
TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["Script", {False, "Script"}], "\" \"",
TemplateBox[{"\"Script\"", "\"Script run in batch mode\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"",
TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"",
TemplateBox[{
"\"WebEvaluation\"",
"\"Cloud evaluation initiated by an HTTP request\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"",
TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12],
StyleBox[
TemplateBox[{
CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"",
TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12]},
{
StyleBox[
TemplateBox[{
CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"",
TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""},
"PrettyTooltipTemplate"]},
"RowDefault"],
StripOnInput->False,
FontSize->12], "\<\"\"\>", "\<\"\"\>"}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\
nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\
tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\
sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\
CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\
"},
CellTags->{
"CheckboxCell", "CompatibilityEvaluationEnvironment",
"CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->62394308]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Cloud Support",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"CompatibilityCloudSupport",
Cell[
BoxData[
FrameBox[
Cell[
"Specify whether your resource is expected to work in the public \
cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Subsubsection",
Editable->False,
Deletable->False,
CellMargins->{{Inherited, Inherited}, {4, 6}},
TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"},
DefaultNewCellStyle->"Text",
FontSize->16,
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[BoxData[
TagBox[GridBox[{
{
StyleBox[
TemplateBox[{
CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""},
"RowDefault"],
StripOnInput->False,
FontSize->12]}
},
AutoDelete->False,
BaseStyle->{"ControlStyle"},
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}],
"Grid"]], "Output",
Editable->False,
Deletable->False,
TaggingRules->{
"CheckboxData" ->
"OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\
u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\
5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\
82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\
JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="},
CellTags->{
"CheckboxCell", "CompatibilityCloudSupport",
"CompatibilityCloudSupport-Checkboxes"},
CellID->454919203]
}, Closed]]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Author Notes",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Author Notes",
Cell[
BoxData[
FrameBox[
Cell[
"This section, when used, will appear near the bottom of the \
published resource. Content displayed in this section can include background, \
possible improvements, additional information and/or implementation details \
that are otherwise beyond the scope of the function documentation.",
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoAuthorNotes"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Author Notes"},
DefaultNewCellStyle->"Text",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591],
Cell["Additional information about limitations, issues, etc.", "Text",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Submission Notes",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Submission Notes",
Cell[
BoxData[
FrameBox[
Cell[
"Enter any additional information that you would like to communicate \
to the reviewer here. This section will not be included in the published \
resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins ->
20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> {
Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoSubmissionNotes"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]]]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{"TemplateGroupName" -> "Submission Notes"},
DefaultNewCellStyle->"Text",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765],
Cell["Additional information for the reviewer.", "Text",
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]
}, Open ]]
}, Open ]]
},
WindowSize->Automatic,
WindowMargins->Automatic,
WindowTitle->"OrdinalNumberString | 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.854033447314873`16.33849046853005*^9, "DefinitionNotebookFramework" ->
"DefinitionNotebookClient", "ResourceCreateNotebook" -> True,
"ResourceType" -> "Function",
"RuntimeConfiguration" -> {
"LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource",
"Contexts" -> {
"FunctionResource`", "FunctionResource`DefinitionNotebook`"},
"DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False,
"UpdatedTimestamp" -> 3.854033447349688`16.338490468533973*^9,
"VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" ->
"1.6.3", "StatusMessage" -> "",
"SubmissionReviewData" -> {"Review" -> False}},
CreateCellID->True,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)",
StyleDefinitions->Notebook[{
Cell[
StyleData[StyleDefinitions -> "Default.nb"]],
Cell[
StyleData[All, "Working"], DockedCells -> {
Cell[
BoxData[
TemplateBox[{}, "MainGridTemplate"]], "DockedCell",
CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background ->
RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"},
CacheGraphics -> False],
Cell[
BoxData[
TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell",
TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"},
CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}},
CacheGraphics -> False, CellOpen -> Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]},
PrivateNotebookOptions -> {
"FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"},
CellLabelAutoDelete -> False,
CodeAssistOptions -> {"AutoDetectHyperlinks" -> False},
AutoQuoteCharacters -> {}],
Cell["Hint Styles", "Section"],
Cell[
StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]],
FontColor -> GrayLevel[0.25]],
Cell[
StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]],
ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}},
CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0},
FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]],
Cell[
StyleData["WarningText", StyleDefinitions -> StyleData["Text"]],
ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize ->
14, GridBoxOptions -> {BaseStyle -> {}}],
Cell["Template Boxes", "Section"],
Cell[
StyleData["MoreInfoOpenerIconTemplate"],
TemplateBoxOptions -> {
DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
Thickness[0.09090909090909091],
StyleBox[{
JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
"], CurveClosed -> {1}]}, {
JoinForm[{"Miter", 3.25}],
Thickness[0.04581818181818182],
RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput ->
False],
StyleBox[{
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m
N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4
1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j
1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/
oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP
Mx8WPjD7YeEHcx8sfNHDHwBu/qSR
"], CompressedData["
1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/
8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D
W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN
DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL
wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef
X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+
5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67
"]}]}, {
FaceForm[
RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput ->
False]}, ImageSize -> {11., 11.},
PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic],
True -> GraphicsBox[{
Thickness[0.09090909090909091],
StyleBox[{
JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
"], CurveClosed -> {1}]}, {
JoinForm[{"Miter", 3.25}],
Thickness[0.04581818181818182],
RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False],
StyleBox[{
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
"]]}, {
FaceForm[
RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False],
StyleBox[{
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m
N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4
1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j
1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/
oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP
Mx8WPjD7YeEHcx8sfNHDHwBu/qSR
"], CompressedData["
1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/
8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D
W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN
DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL
wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef
X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+
5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67
"]}]}, {
FaceForm[
RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput ->
False]}, ImageSize -> {11., 11.},
PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins ->
0]& )}],
Cell[
StyleData["MoreInfoOpenerButtonTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
DynamicModuleBox[{
RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$,
RSNB`horizontalRegion$$, RSNB`verticalRegion$$,
RSNB`chooseAttachLocation$$},
TagBox[
TemplateBox[{
TemplateBox[{}, "MoreInfoOpenerIconTemplate"],
"\"Click for more information\""}, "PrettyTooltipTemplate"],
EventHandlerTag[{"MouseDown" :> AttachCell[
ParentBox[
EvaluationBox[]], #2,
RSNB`chooseAttachLocation$$[],
RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}],
Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp ->
True}]],
DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[
RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[
Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[
RSNB`mPosRegion$$[
Pattern[RSNB`reg, {
Blank[Integer],
Blank[Integer]}]]] :> RSNB`reg, HoldPattern[
RSNB`mPosRegion$$[
BlankNullSequence[]]] :> None}}, {
DownValues[RSNB`attachPos$$] = {HoldPattern[
RSNB`attachPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[RSNB`h$],
RSNB`verticalRegion$$[RSNB`v$]}}}, {
DownValues[RSNB`offsetPos$$] = {HoldPattern[
RSNB`offsetPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[4 - RSNB`h$],
RSNB`verticalRegion$$[4 - RSNB`v$]}}}, {
DownValues[RSNB`horizontalRegion$$] = {HoldPattern[
RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[
RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[
RSNB`horizontalRegion$$[3]] :> Right}}, {
DownValues[RSNB`verticalRegion$$] = {HoldPattern[
RSNB`verticalRegion$$[1]] :> Top, HoldPattern[
RSNB`verticalRegion$$[2]] :> Top, HoldPattern[
RSNB`verticalRegion$$[3]] :> Top}}, {
DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[
RSNB`chooseAttachLocation$$[]] :>
With[{RSNB`p$ = RSNB`mPosRegion$$[]},
Apply[Sequence, {
RSNB`offsetPos$$[RSNB`p$], {-30, 30},
RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5,
BoxMargins -> 0.2]& )}],
Cell[
StyleData["InlineMoreInfoOpenerButtonTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
DynamicModuleBox[{
RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$,
RSNB`horizontalRegion$$, RSNB`verticalRegion$$,
RSNB`chooseAttachLocation$$},
TagBox[
TemplateBox[{
TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4},
"PrettyTooltipTemplate"],
EventHandlerTag[{"MouseDown" :> AttachCell[
ParentBox[
EvaluationBox[]], #2,
RSNB`chooseAttachLocation$$[],
RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}],
Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp ->
True}]],
DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[
RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[
Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[
RSNB`mPosRegion$$[
Pattern[RSNB`reg, {
Blank[Integer],
Blank[Integer]}]]] :> RSNB`reg, HoldPattern[
RSNB`mPosRegion$$[
BlankNullSequence[]]] :> None}}, {
DownValues[RSNB`attachPos$$] = {HoldPattern[
RSNB`attachPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[RSNB`h$],
RSNB`verticalRegion$$[RSNB`v$]}}}, {
DownValues[RSNB`offsetPos$$] = {HoldPattern[
RSNB`offsetPos$$[{
Pattern[RSNB`h$,
Blank[Integer]],
Pattern[RSNB`v$,
Blank[Integer]]}]] :> {
RSNB`horizontalRegion$$[4 - RSNB`h$],
RSNB`verticalRegion$$[4 - RSNB`v$]}}}, {
DownValues[RSNB`horizontalRegion$$] = {HoldPattern[
RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[
RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[
RSNB`horizontalRegion$$[3]] :> Right}}, {
DownValues[RSNB`verticalRegion$$] = {HoldPattern[
RSNB`verticalRegion$$[1]] :> Top, HoldPattern[
RSNB`verticalRegion$$[2]] :> Top, HoldPattern[
RSNB`verticalRegion$$[3]] :> Top}}, {
DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[
RSNB`chooseAttachLocation$$[]] :>
With[{RSNB`p$ = RSNB`mPosRegion$$[]},
Apply[Sequence, {
RSNB`offsetPos$$[RSNB`p$], {-30, 30},
RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5,
BoxMargins -> 0.2]& )}],
Cell[
StyleData["ClickToCopyTemplate"],
TemplateBoxOptions -> {
DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
GridBox[{{#,
ButtonBox[
GraphicsBox[{
GrayLevel[0.85],
Thickness[
NCache[2/45, 0.044444444444444446`]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12.,
18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75,
16.5}, {9.75, 16.5}}}],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25,
9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25,
7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]},
ImageSize -> 12], ButtonFunction :> Null,
Appearance -> {
"Default" -> None, "Hover" -> None, "Pressed" -> None},
Evaluator -> Automatic, Method -> "Preemptive"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True ->
DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.},
TagBox[
GridBox[{{#,
TagBox[
ButtonBox[
DynamicBox[
ToBoxes[
Refresh[
If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$,
RawBoxes[
TemplateBox[{
PaneSelectorBox[{False -> GraphicsBox[{
GrayLevel[0.65],
Thickness[
NCache[2/45, 0.044444444444444446`]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5,
18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5,
18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75,
17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25,
14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25,
11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25,
6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{
RGBColor[0.988235, 0.419608, 0.203922],
Thickness[
NCache[2/45, 0.044444444444444446`]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5,
18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5,
18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75,
17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25,
14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25,
11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25,
6.75}}}]}, ImageSize -> 12]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic,
FrameMargins -> 0], "\"Click to copy to the clipboard\""},
"PrettyTooltipTemplate"]],
RawBoxes[
TemplateBox[{
GraphicsBox[{
RGBColor[0,
NCache[2/3, 0.6666666666666666], 0],
Thickness[
NCache[2/45, 0.044444444444444446`]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5,
18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5,
18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75,
17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25,
14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25,
11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25,
6.75}}}]}, ImageSize -> 12], "\"Copied\""},
"PrettyTooltipTemplate"]]], UpdateInterval -> 1,
TrackedSymbols :> {RSNB`clickTime$$}], StandardForm],
Evaluator -> "System"],
ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[];
CopyToClipboard[
BinaryDeserialize[
BaseDecode[#2], Defer]]),
Appearance -> {
"Default" -> None, "Hover" -> None, "Pressed" -> None},
Method -> "Queued", Evaluator -> "System"],
MouseAppearanceTag["LinkHand"]]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"],
DynamicModuleValues :> {}]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins ->
0]& )}],
Cell[
StyleData["PrettyTooltipTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (TagBox[
TooltipBox[#,
FrameBox[
StyleBox[#2, "Text", FontColor ->
RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight ->
"Plain", FontTracking -> "Plain", StripOnInput -> False],
Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle ->
RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8,
StripOnInput -> False], TooltipDelay -> 0.1,
TooltipStyle -> {Background -> None, CellFrame -> 0}],
Annotation[#,
Framed[
Style[
RSNB`$$tooltip, "Text", FontColor ->
RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight ->
"Plain", FontTracking -> "Plain"], Background ->
RGBColor[0.960784, 0.960784, 0.960784], FrameStyle ->
RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8],
"Tooltip"]& ]& )}],
Cell[
StyleData["ToolsGridTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
TagBox[
GridBox[{{
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Template Input\"", "Text", FontFamily -> "Source Sans Pro",
FontSize -> 11, StripOnInput -> False],
"\"Format selection automatically using appropriate \
documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
2790153672590285854;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton =
"Template Input";
DefinitionNotebookClient`TemplateInput[]]]],
DefinitionNotebookClient`ButtonCodeID[
2790153672590285854]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True]},
Background -> GrayLevel[0.9], Method -> "Queued",
ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle ->
Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro",
FontSize -> 11, StripOnInput -> False],
"\"Format selection as literal Wolfram Language code\""},
"PrettyTooltipTemplate"], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
4138174468017918531;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Literal Input";
DefinitionNotebookClient`LiteralInput[]]]],
DefinitionNotebookClient`ButtonCodeID[
4138174468017918531]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True]},
Background -> GrayLevel[0.9], Method -> "Queued",
ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle ->
Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Insert Delimiter\"", "Text", FontFamily ->
"Source Sans Pro", FontSize -> 11, StripOnInput -> False],
"\"Insert example delimiter\""}, "PrettyTooltipTemplate"],
ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
1887802176716758884;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton =
"Insert Delimiter";
DefinitionNotebookClient`DelimiterInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
1887802176716758884]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True]},
Background -> GrayLevel[0.9], Method -> "Queued",
ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle ->
Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
"\"Subscripted Variable\"", "Text", FontFamily ->
"Source Sans Pro", FontSize -> 11, StripOnInput -> False],
"\"Insert subscripted variable placeholder\""},
"PrettyTooltipTemplate"], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3787878858871814623;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton =
"Subscripted Variable";
DefinitionNotebookClient`SubscriptInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
3787878858871814623]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True]},
Background -> GrayLevel[0.9], Method -> "Queued",
ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle ->
Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False],
ActionMenuBox[
FrameBox[
ButtonBox[
TemplateBox[{
StyleBox[
TemplateBox[{
"\"Tables\"",
"\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\
\[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily ->
"Source Sans Pro", FontSize -> 11, StripOnInput -> False],
"\"Table functions\""}, "PrettyTooltipTemplate"],
ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3216557251994556740;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]],
DefinitionNotebookClient`ButtonCodeID[
3216557251994556740]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True]}, Background -> GrayLevel[0.9], Method -> "Queued",
ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle ->
Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False], {
"\"Insert table with two columns\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
5800166344906378520;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Insert table with two columns";
DefinitionNotebookClient`TableInsert[2]]]],
DefinitionNotebookClient`ButtonCodeID[
5800166344906378520]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Insert table with three columns\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
533841403879783297;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Insert table with three columns";
DefinitionNotebookClient`TableInsert[3]]]],
DefinitionNotebookClient`ButtonCodeID[
533841403879783297]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Add a row to the selected table\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
4413051590217973467;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Add a row to the selected table";
DefinitionNotebookClient`TableRowInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
4413051590217973467]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Sort the selected table\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
9150037060110806081;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Sort the selected table";
DefinitionNotebookClient`TableSort[]]]],
DefinitionNotebookClient`ButtonCodeID[
9150037060110806081]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Merge selected tables\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
2347719643166780208;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Tables";
DefinitionNotebookClient`$ClickedAction =
"Merge selected tables";
DefinitionNotebookClient`TableMerge[]]]],
DefinitionNotebookClient`ButtonCodeID[
2347719643166780208]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]]}, Appearance -> None, Method -> "Queued"],
ActionMenuBox[
FrameBox[
ButtonBox[
StyleBox[
TemplateBox[{
"\"Cells\"",
"\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\
\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11,
StripOnInput -> False], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3216557251994556740;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]],
DefinitionNotebookClient`ButtonCodeID[
3216557251994556740]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
FEPrivate`If[
CurrentValue["MouseOver"], {
FontColor -> GrayLevel[1],
TaggingRules -> {"ButtonHovering" -> True}}, {
FontColor ->
RGBColor[0.8274509803921568, 0.20784313725490197`, 0.],
TaggingRules -> {"ButtonHovering" -> False}}], {
FontColor ->
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75],
TaggingRules -> {"ButtonHovering" -> False}}], Evaluator ->
"System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ
nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA
cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ
xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q
K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU=
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo
Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA
EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs
CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk
E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX
r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH
KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS
mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS
LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B
"], "Byte",
ColorSpace -> "RGB", ImageResolution -> 144, Interleaving ->
True]}, Background -> GrayLevel[0.9], Method -> "Queued",
ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle ->
Directive[
GrayLevel[0.9],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding ->
False, StripOnInput -> False], {
"\"Insert comment for reviewer\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
2572781756330727330;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Cells";
DefinitionNotebookClient`$ClickedAction =
"Insert comment for reviewer";
DefinitionNotebookClient`CommentInsert[]]]],
DefinitionNotebookClient`ButtonCodeID[
2572781756330727330]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Mark/unmark selected cells as comments\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3646530685697756512;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Cells";
DefinitionNotebookClient`$ClickedAction =
"Mark/unmark selected cells as comments";
DefinitionNotebookClient`CommentToggle[]]]],
DefinitionNotebookClient`ButtonCodeID[
3646530685697756512]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]], "\"Mark/unmark selected cells as excluded\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
1866935765212102190;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Cells";
DefinitionNotebookClient`$ClickedAction =
"Mark/unmark selected cells as excluded";
DefinitionNotebookClient`ExclusionToggle[]]]],
DefinitionNotebookClient`ButtonCodeID[
1866935765212102190]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]]}, Appearance -> None, Method -> "Queued"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
AutoDelete -> False,
GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
GrayLevel[0.9]}},
GridBoxFrame -> {
"Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle ->
GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[
Not[
TrueQ[DefinitionNotebookClient`$ButtonsDisabled]],
TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]},
StripOnInput -> False]& )}],
Cell[
StyleData["MainGridTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{
Thickness[0.022222222222222223`], {
FaceForm[{
RGBColor[0.87451, 0.278431, 0.03137260000000001],
Opacity[1.]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926,
0.}, {22.5, 0.}, {10.074, 0.}, {0.,
10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074,
45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45.,
22.5}}}]}, {
FaceForm[{
RGBColor[1., 1., 1.],
Opacity[1.]}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
"], {{19.051000000000002`, 14.242}, {19.051000000000002`,
27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426,
26.308999999999997`}, {21.375, 26.258000000000003`}, {
21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375,
15.602}, {21.426, 15.547}, {23.828,
15.315999999999999`}, {23.828, 14.242}}, {{24.578,
18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {
24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {
30.203, 23.91}, {30.578, 23.539}, {30.578,
23.078000000000003`}, {30.578, 18.75}, {
30.581999999999997`, 18.288999999999998`}, {30.207,
17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953,
17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328,
14.242}, {31.328, 15.315999999999999`}, {33.684,
15.539000000000001`}, {33.789, 15.602}, {33.789,
17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684,
26.281}, {31.328, 26.512000000000004`}, {31.328,
27.586}, {36.113, 27.586}, {36.113,
14.234000000000002`}}}]}}, {
ImageSize -> {Automatic, 32},
ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition ->
Scaled[0.25], AspectRatio -> Automatic, Background ->
RGBColor[0.988235, 0.419608, 0.203922],
ImageSize -> {45., 45.},
PlotRange -> {{0., 45.}, {0., 45.}}}],
StyleBox[
TagBox[
GridBox[{{
StyleBox[
"\"Function Resource\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", StripOnInput -> False],
StyleBox[
"\"DEFINITION NOTEBOOK\"", FontFamily ->
"Source Sans Pro", FontTracking -> "SemiCondensed",
FontVariations -> {"CapsType" -> "AllSmallCaps"},
StripOnInput -> False]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]},
"Rows" -> {{None}}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.],
StripOnInput -> False]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
"\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]",
"\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]",
"\[SpanFromLeft]",
TemplateBox[{
StyleBox[
TemplateBox[{
"\"Function Repository\"", "\" \[RightGuillemet] \""},
"RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.],
StripOnInput -> False],
"https://resources.wolframcloud.com/FunctionRepository"},
"HyperlinkURL"]}, {
TemplateBox[{
TemplateBox[{
"\"Open Sample\"",
"\"View a completed sample definition notebook\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034;
DefinitionNotebookClient`$ClickedButton = "Open Sample";
DefinitionNotebookClient`ViewExampleNotebook[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& ,
"\"View a completed sample definition notebook\"", False},
"OrangeButtonTemplate"],
TemplateBox[{
TemplateBox[{
"\"Style Guidelines\"",
"\"View general guidelines for authoring resource \
functions\""}, "PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171;
DefinitionNotebookClient`$ClickedButton = "Style Guidelines";
DefinitionNotebookClient`ViewStyleGuidelines[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& ,
"\"View general guidelines for authoring resource functions\"",
False}, "OrangeButtonTemplate"],
TemplateBox[{
TemplateBox[{
TagBox[
GridBox[{{"\"Tools\"",
PaneSelectorBox[{False -> GraphicsBox[{
RGBColor[1., 1., 1.],
AbsoluteThickness[1.],
LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}],
LineBox[{{5, 2.5}, {5, 7.5}}],
LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9,
PlotRangePadding -> 1.5], True -> GraphicsBox[{
RGBColor[1., 1., 1.],
AbsoluteThickness[1.],
LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}],
LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9,
PlotRangePadding -> 1.5]},
Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]],
BaselinePosition -> Scaled[0]]}},
GridBoxAlignment -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"],
"\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401;
DefinitionNotebookClient`$ClickedButton = "Tools";
DefinitionNotebookClient`ToggleToolbar[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& ,
"\"Toggle documentation toolbar\"", False},
"OrangeButtonTemplate"],
TagBox[
GridBox[{{"\"\"", "\"\""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxDividers -> {
"ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{2}}},
GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle ->
RGBColor[0.994118, 0.709804, 0.601961]], "Grid"],
TemplateBox[{
TemplateBox[{
"\"Check\"", "\"Check notebook for potential errors\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191;
DefinitionNotebookClient`$ClickedButton = "Check";
DefinitionNotebookClient`CheckDefinitionNotebook[
ButtonNotebook[]],
DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& ,
"\"Check notebook for potential errors\"", False},
"OrangeButtonTemplate"],
TemplateBox[{
TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021;
DefinitionNotebookClient`$ClickedButton = "Preview";
DefinitionNotebookClient`PreviewResource[
ButtonNotebook[], "Notebook"],
DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& ,
"\"Generate a preview notebook\"", True},
"OrangeButtonTemplate"],
ActionMenuBox[
TemplateBox[{
TemplateBox[{"\"Deploy\"",
TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""},
"RowDefault"], Annotation[
DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298;
Null,
DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& ,
"\"\"", True}, "OrangeButtonTemplate"], {
"\"Locally on this computer\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
8714502586816766511;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"Locally on this computer";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "Local"]]]]],
DefinitionNotebookClient`ButtonCodeID[
8714502586816766511]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]], "\"For my cloud account\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
1389539917011878958;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"For my cloud account";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "CloudPrivate"]]]]],
DefinitionNotebookClient`ButtonCodeID[
1389539917011878958]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]], "\"Publicly in the cloud\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
5593410685219912767;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"Publicly in the cloud";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "CloudPublic"]]]]],
DefinitionNotebookClient`ButtonCodeID[
5593410685219912767]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]],
"\"In this session only (without documentation)\"" :>
With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False,
DefinitionNotebookClient`$SuppressDynamicEvents = True,
DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True;
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID =
8586347731213964380;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode =
HoldForm[
DefinitionNotebookClient`$ClickedButton = "Deploy";
DefinitionNotebookClient`$ClickedAction =
"In this session only (without documentation)";
DefinitionNotebookClient`DisplayStripe[
ButtonNotebook[],
DefinitionNotebookClient`DeployResource[
ButtonNotebook[], "KernelSession"]]]]],
DefinitionNotebookClient`ButtonCodeID[
8586347731213964380]],
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
""; DefinitionNotebookClient`$ButtonsDisabled = False;
Null]; Null]]]}, Appearance -> None, Method -> "Queued"],
ItemBox[
StyleBox[
DynamicBox[
ToBoxes[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""],
StandardForm], Initialization :> (CurrentValue[
EvaluationNotebook[], {TaggingRules, "StatusMessage"}] =
"")], "Text",
GrayLevel[1], StripOnInput -> False], ItemSize -> Fit,
StripOnInput -> False],
DynamicBox[
ToBoxes[
If[
CurrentValue[
EvaluationNotebook[], {
TaggingRules, "SubmissionReviewData", "Review"}, False],
RawBoxes[
TemplateBox[{
TemplateBox[{
TagBox[
GridBox[{{
GraphicsBox[{
Thickness[0.06349],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0,
2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
"]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0,
2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0,
1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False]},
ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}},
AspectRatio -> 1.15], "\"Submit Update\""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5},
"Rows" -> {{0}}}], "Grid"],
"\"Submit changes to update your resource submission\""},
"PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3196298050911436087;
DefinitionNotebookClient`$ClickedButton = "SubmitUpdate";
With[{RSNB`nb = ButtonNotebook[]},
DefinitionNotebookClient`DisplayStripe[RSNB`nb,
DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb],
"ShowProgress" -> True]],
DefinitionNotebookClient`ButtonCodeID[
3196298050911436087]]& ,
"\"Submit changes to update your resource submission\"",
True}, "OrangeButtonTemplate"]],
RawBoxes[
TemplateBox[{
TemplateBox[{
TagBox[
GridBox[{{
GraphicsBox[{
Thickness[0.06349],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0,
2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
"]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1,
0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0,
2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0,
1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
"]]}, {
FaceForm[
RGBColor[1., 1., 1.]]}, StripOnInput -> False]},
ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}},
AspectRatio -> 1.15], "\"Submit to Repository\""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5},
"Rows" -> {{0}}}], "Grid"],
"\"Submit your function to the Wolfram Function \
Repository\""}, "PrettyTooltipTemplate"], Annotation[
DefinitionNotebookClient`$ButtonCodeID =
3704832848557640569;
DefinitionNotebookClient`$ClickedButton = "Submit";
With[{RSNB`nb = ButtonNotebook[]},
DefinitionNotebookClient`DisplayStripe[RSNB`nb,
DefinitionNotebookClient`SubmitRepository[RSNB`nb],
"ShowProgress" -> True]],
DefinitionNotebookClient`ButtonCodeID[
3704832848557640569]]& ,
"\"Submit your function to the Wolfram Function \
Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator ->
"System", SingleEvaluation -> True]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right},
"Rows" -> {{Center}}}, AutoDelete -> False,
GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
RGBColor[0.988235, 0.419608, 0.203922],
RGBColor[0.921569, 0.341176, 0.105882]}},
GridBoxFrame -> {
"Columns" -> False,
"RowsIndexed" -> {
1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 ->
RGBColor[0.921569, 0.341176, 0.105882]}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {
"Columns" -> {5, {0.9}, 5},
"RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle ->
RGBColor[0.988235, 0.419608, 0.203922]], "Grid"],
ButtonBoxOptions -> {Enabled -> Dynamic[
Not[
TrueQ[DefinitionNotebookClient`$ButtonsDisabled]],
TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]},
StripOnInput -> False]& )}],
Cell[
StyleData["ReviewerCommentLabelTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (TagBox[
GridBox[{{#,
TemplateBox[{
GraphicsBox[{
Thickness[0.022222222222222223`], {
FaceForm[{
RGBColor[0.87451, 0.278431, 0.03137260000000001],
Opacity[1.]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926,
0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {
0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926,
45.}, {45., 34.926}, {45., 22.5}}}]}, {
FaceForm[{
RGBColor[1., 1., 1.],
Opacity[1.]}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0,
2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
"], {{19.051000000000002`, 14.242}, {19.051000000000002`,
27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426,
26.308999999999997`}, {21.375, 26.258000000000003`}, {
21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375,
15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {
23.828, 14.242}}, {{24.578, 18.75}, {24.578,
23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, {
25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578,
23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, {
30.581999999999997`, 18.288999999999998`}, {30.207,
17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953,
17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328,
14.242}, {31.328, 15.315999999999999`}, {33.684,
15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {
33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {
31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113,
27.586}, {36.113, 14.234000000000002`}}}]}}, {
ImageSize -> 12, AspectRatio -> Automatic, Background -> None,
ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}],
"Wolfram Function Repository Reviewer"},
"PrettyTooltipTemplate"]}},
GridBoxAlignment -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}],
Cell[
StyleData["CommentCellLabelTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
TagBox[
GridBox[{{
StyleBox[#, FontSize -> 11]}, {
StyleBox[
DynamicBox[
ToBoxes[
DateString[
TimeZoneConvert[
DateObject[#2, TimeZone -> 0]], {
"Month", "/", "Day", "/", "Year", " ", "Hour24", ":",
"Minute"}], StandardForm], SingleEvaluation -> True],
FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}],
"Grid"], "CommentLabel", ShowStringCharacters -> False]& )}],
Cell[
StyleData["OrangeButtonTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
ButtonBox[
StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor ->
Dynamic[
FEPrivate`If[
CurrentValue[Enabled],
GrayLevel[1],
RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]],
Evaluator -> "System"], StripOnInput -> False], ButtonFunction :>
With[{RSNB`nb$ = ButtonNotebook[]},
If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] =
ProgressIndicator[Appearance -> "Necklace"]];
With[{RSNB`$cp$ = $ContextPath},
Quiet[
Block[{$ContextPath = RSNB`$cp$,
ResourceSystemClient`$AsyncronousResourceInformationUpdates =
False, DefinitionNotebookClient`$ButtonCodeID = None},
Internal`WithLocalSettings[
DefinitionNotebookClient`$ButtonsDisabled = True; Once[
ReleaseHold[
CurrentValue[
RSNB`nb$, {TaggingRules, "CompatibilityTest"}]],
"KernelSession"]; Needs["DefinitionNotebookClient`"],
Annotation[
DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908;
DefinitionNotebookClient`CheckForUpdates[RSNB`nb$,
ReleaseHold[
DefinitionNotebookClient`$ButtonCode = HoldForm[
#2[]]]],
DefinitionNotebookClient`ButtonCodeID[3145484069433207908]],
DefinitionNotebookClient`$ButtonsDisabled = False; Null];
Null]]];
CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = "";
Null], FrameMargins -> {{5, 5}, {0, 0}},
Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF
gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/
iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU
SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4=
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True], "Hover" ->
Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF
gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX
SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh
VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8=
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" ->
Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi
xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA
EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y
IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS
TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg==
"], "Byte", ColorSpace ->
"RGB", ImageResolution -> 144, Interleaving -> True]},
Background -> RGBColor[0.921569, 0.341176, 0.105882], Method ->
"Queued", ImageSize -> {All, 23}, Evaluator -> Automatic],
FrameStyle -> Directive[
RGBColor[0.921569, 0.341176, 0.105882],
AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False,
StripOnInput -> False]& )}],
Cell[
StyleData["SuggestionGridTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
FrameBox[
AdjustmentBox[
TagBox[
GridBox[{{
TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}},
"SuggestionIconTemplate"],
PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition ->
Baseline, ImageSize -> Full],
RowBox[{
AdjustmentBox[
TemplateBox[{
ActionMenuBox[
TagBox[
PaneSelectorBox[{False -> GraphicsBox[{
EdgeForm[
Directive[
GrayLevel[1, 0],
Thickness[0.025]]],
FaceForm[#4],
RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius ->
0.2],
Thickness[0.15], #5,
LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]},
ImageSize -> {Automatic, 15}, ImageMargins -> 0], True ->
GraphicsBox[{
EdgeForm[
Directive[#5,
Thickness[0.025]]],
FaceForm[#2],
RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius ->
0.2],
Thickness[0.15],
GrayLevel[1],
LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]},
ImageSize -> {Automatic, 15}, ImageMargins -> 0]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic,
FrameMargins -> 0],
MouseAppearanceTag["LinkHand"]], #6, Appearance -> None,
Method -> "Queued"], "\"View suggestions\""},
"PrettyTooltipTemplate"], BoxBaselineShift -> -0.5],
" "}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {Automatic, Automatic, Fit},
"Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"],
BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}],
RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None,
FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}},
StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14,
FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold",
FontTracking -> "Plain",
PrivateFontOptions -> {"OperatorSubstitution" -> False},
LineBreakWithin -> False]& )}],
Cell[
StyleData["SuggestionIconTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
Thickness[0.05555555555555555],
StyleBox[{
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO
m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD
jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh
MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z
"]]},
FaceForm[#]],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001,
7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001,
13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, {
9.741542500000001, 7.416875}, {8.175292500000001,
7.416875}}, CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW
1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa
iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7
2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro
0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/
ACBxmlc=
"]}]},
FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio ->
Automatic, BaselinePosition -> Scaled[0.1]]& )}],
Cell[
StyleData["FormEditValuesButtonTemplate"],
TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{
TagBox[
PaneBox[
PaneSelectorBox[{False -> GraphicsBox[
TagBox[
RasterBox[CompressedData["
1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV
hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv
tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K
0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/
ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I
Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF
cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd
uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+
iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce
7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0
ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6
q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT
yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X
PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf
Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc
8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft
RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ
cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk
fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn
QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU
mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o
Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR
kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM
3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6
7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja
xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58
MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW
x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF
fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B
fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+
Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk
dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe
TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf
IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx
N3kqZvY=
"], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction ->
GrayLevel],
BoxForm`ImageTag[
"Byte", ColorSpace -> "Grayscale", Interleaving -> False],
Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}],
True -> GraphicsBox[
TagBox[
RasterBox[CompressedData["
1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf
YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs
Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb
1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh
WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u
t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E
+1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ
4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS
X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ
t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse
nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/
cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr
qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC
9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz
LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf
gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp
pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV
cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4
5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG
VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO
YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP
DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN
/AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF
N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11
4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7
U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf
gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU
Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu
/S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h
pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx
HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+
Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N
/4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy//
DcvuuIyle//vxt/PCE6d
"], {{0, 50.}, {50., 0}}, {0, 255},
ColorFunction -> GrayLevel],
BoxForm`ImageTag[
"Byte", ColorSpace -> "Grayscale", Interleaving -> False],
Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
ImageSizeRaw -> {50., 50.},
PlotRange -> {{0, 50.}, {0, 50.}}]},
Dynamic[
CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins ->
0], ImageSize -> {Automatic, 15}, ImageSizeAction ->
"ResizeToFit"],
MouseAppearanceTag["LinkHand"]], "\"Edit values\""},
"PrettyTooltipTemplate"]& )}],
Cell["Documentation", "Section"],
Cell["Usage", "Subsection"],
Cell[
StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]],
CellMargins -> {{66, 10}, {0, 8}},
StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False,
CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[
EvaluationCell[]]}, SelectionMove[
EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$,
Cell["", "UsageDescription"], All];
SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :>
Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]]},
ShowAutoStyles -> False, ShowCodeAssist -> False,
CodeAssistOptions -> {"DynamicHighlighting" -> False},
LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text",
FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"],
Cell[
StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]],
CellMargins -> {{86, 10}, {7, 0}},
StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules ->
"OutputGrouping",
CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[
EvaluationCell[]]}, SelectionMove[
EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$,
Cell[
BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All];
SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :>
Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]]},
ShowAutoSpellCheck -> False],
Cell["Details & Options", "Subsection"],
Cell[
StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat ->
StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]],
CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False,
StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck ->
False, GridBoxOptions -> {BaseStyle -> "TableNotes"}],
Cell[
StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]],
CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553],
StyleMenuListing -> None,
ButtonBoxOptions -> {Appearance -> {Automatic, None}},
GridBoxOptions -> {
FrameStyle -> GrayLevel[0.906],
GridBoxAlignment -> {
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}},
GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}],
Cell[
StyleData["TableText"], DefaultInlineFormatType ->
"DefaultInputInlineFormatType", AutoQuoteCharacters -> {},
StyleMenuListing -> None],
Cell["Examples", "Subsection"],
Cell[
StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket ->
Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True,
CellGroupingRules -> {"SectionGrouping", 58},
CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False,
CellLabelAutoDelete -> True, TabFilling ->
"\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100},
StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold,
FontSlant -> "Plain", FontColor -> GrayLevel[0.906]],
Cell[
StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]],
Cell[
StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
Selectable -> False, CellFrame -> {{0, 0}, {1, 0}},
CellMargins -> {{66, 14}, {15, -5}},
CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True,
CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor ->
GrayLevel[
Rational[77, 85]]],
Cell[
StyleData["Subsection"], Evaluatable -> True,
CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False],
Cell[
StyleData["Subsubsection"], Evaluatable -> True,
CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False],
Cell[
StyleData["ExampleImage"], PageWidth :> 650,
CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel ->
False, MenuSortingValue -> 10000,
RasterBoxOptions -> {ImageEditMode -> False}],
Cell["Links", "Section"],
Cell[
StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[
If[
CurrentValue["MouseOver"],
RGBColor[0.855, 0.396, 0.145],
RGBColor[0.02, 0.286, 0.651]]]],
Cell[
StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]],
FontColor -> Dynamic[
If[
CurrentValue["MouseOver"],
RGBColor[0.969, 0.467, 0.],
GrayLevel[0.467]]]],
Cell[
StyleData["CharactersRefLink"], ShowSpecialCharacters -> False],
Cell["Annotation", "Section"],
Cell[
StyleData["Excluded"],
CellBracketOptions -> {
"Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2},
GeneratedCellStyles -> {
"Graphics" -> {"Graphics", "Excluded"},
"Message" -> {"Message", "MSG", "Excluded"},
"Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"},
"PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins ->
4, CellFrameLabels -> {{None,
Cell[
BoxData[
TemplateBox[{
StyleBox[
"\"excluded\"", "ExcludedCellLabel", StripOnInput -> False],
"\"Excluded cells will not appear anywhere in the published \
resource except for the definition notebook\""}, "PrettyTooltipTemplate"]],
"ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None,
Background -> RGBColor[1, 0.95, 0.95]],
Cell[
StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]],
ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize ->
9, FontWeight -> Plain, FontSlant -> Italic, FontColor ->
RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None],
Cell[
StyleData["Comment", StyleDefinitions -> StyleData["Text"]],
CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}},
CellElementSpacings -> {"ClosedCellHeight" -> 0},
GeneratedCellStyles -> {
"Graphics" -> {"Graphics", "Comment"},
"Message" -> {"Message", "MSG", "Comment"},
"Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"},
"PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor ->
RGBColor[0.880722, 0.611041, 0.142051],
CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25],
Background -> RGBColor[0.982, 0.942, 0.871]],
Cell[
StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]],
GeneratedCellStyles -> {
"Graphics" -> {"Graphics", "AuthorComment"},
"Message" -> {"Message", "MSG", "AuthorComment"},
"Output" -> {"Output", "AuthorComment"},
"Print" -> {"Print", "AuthorComment"},
"PrintTemporary" -> {"PrintTemporary", "AuthorComment"}},
CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background ->
RGBColor[0.905, 0.926, 0.956]],
Cell[
StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]],
GeneratedCellStyles -> {
"Graphics" -> {"Graphics", "ReviewerComment"},
"Message" -> {"Message", "MSG", "ReviewerComment"},
"Output" -> {"Output", "ReviewerComment"},
"Print" -> {"Print", "ReviewerComment"},
"PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}},
CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background ->
RGBColor[0.934, 0.954, 0.879]],
Cell[
StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]],
ShowStringCharacters -> False, FontSlant -> "Italic", FontColor ->
GrayLevel[0.5]],
Cell["Special Input", "Section"],
Cell[
StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}],
Cell[
StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]],
CellFrameLabels -> {{None,
Cell[
BoxData[
ButtonBox[
"\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}},
BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic,
Method -> "Queued", ButtonFunction :>
With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell =
ParentCell[
EvaluationCell[]]},
If[
RSNB`file =!= $Canceled,
SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[
Notebooks[RSNB`cell],
RowBox[{"File", "[",
ToBoxes[RSNB`file], "]"}]]]], Appearance :>
FEPrivate`FrontEndResource[
"FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, {
None, None}}],
Cell[
StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]],
CellFrameLabels -> {{None,
Cell[
BoxData[
ButtonBox[
"\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}},
BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic,
Method -> "Queued", ButtonFunction :>
With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell =
ParentCell[
EvaluationCell[]]},
If[
RSNB`file =!= $Canceled,
SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[
Notebooks[RSNB`cell],
RowBox[{"File", "[",
ToBoxes[RSNB`file], "]"}]]]], Appearance :>
FEPrivate`FrontEndResource[
"FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, {
None, None}}],
Cell["Misc", "Section"],
Cell[
StyleData["Item"], DefaultNewCellStyle -> "Item"],
Cell[
StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11,
FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]],
Cell[
StyleData["InlineFormula"],
HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1,
SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None,
FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited,
ButtonBoxOptions -> {Appearance -> {Automatic, None}},
FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}},
GridBoxOptions -> {
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
"RowsIndexed" -> {}}}],
Cell[
StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background ->
GrayLevel[0.9]]}, Visible -> False, FrontEndVersion ->
"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions ->
"PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"Name"->{
Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"f715bd8a-5c3c-46fd-9777-74e94c26fe37",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->591885671]},
"TemplateCell"->{
Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"f715bd8a-5c3c-46fd-9777-74e94c26fe37",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->591885671],
Cell[740, 27, 155, 4, 70, "Text",ExpressionUUID->"f1f357e4-19db-4b3d-a1c5-b1f61c922098",
CellTags->{"Description", "TemplateCell"},
CellID->970147877]},
"Title"->{
Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"f715bd8a-5c3c-46fd-9777-74e94c26fe37",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->591885671]},
"Description"->{
Cell[740, 27, 155, 4, 70, "Text",ExpressionUUID->"f1f357e4-19db-4b3d-a1c5-b1f61c922098",
CellTags->{"Description", "TemplateCell"},
CellID->970147877]},
"Definition"->{
Cell[920, 35, 1206, 29, 70, "Section",ExpressionUUID->"e3815f9e-9531-4ebe-8516-d103348749c4",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326]},
"Function"->{
Cell[920, 35, 1206, 29, 70, "Section",ExpressionUUID->"e3815f9e-9531-4ebe-8516-d103348749c4",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326]},
"TemplateCellGroup"->{
Cell[920, 35, 1206, 29, 70, "Section",ExpressionUUID->"e3815f9e-9531-4ebe-8516-d103348749c4",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326],
Cell[3493, 109, 1980, 50, 70, "Subsection",ExpressionUUID->"bb3e4527-fd01-4eee-b071-3529d8f111ce",
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310],
Cell[5946, 182, 1429, 32, 70, "Subsection",ExpressionUUID->"d3b0c0cb-b460-4faa-a969-24ad555c6134",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236],
Cell[7950, 230, 7029, 152, 70, "Section",ExpressionUUID->"bb100360-d11e-4770-b24b-1dd436f78b3d",
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011],
Cell[18746, 488, 1026, 26, 70, "Subsection",ExpressionUUID->"f4eee0c3-9f75-4b8a-8cc0-0ff71f329ab9",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256],
Cell[19859, 522, 996, 26, 70, "Subsection",ExpressionUUID->"38fe0302-7184-46a1-a264-dce85c31fb34",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425],
Cell[21379, 563, 221, 6, 70, "Subsection",ExpressionUUID->"30007dec-dd47-4f95-b944-c9e5babe3c35",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[29140, 821, 980, 26, 70, "Subsection",ExpressionUUID->"31668ea3-f11f-427c-a904-836c19527f4a",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169],
Cell[30254, 858, 1039, 26, 70, "Subsection",ExpressionUUID->"eded5117-d23d-4cd7-9c7d-afe133498e4a",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472],
Cell[31861, 899, 1084, 26, 70, "Subsection",ExpressionUUID->"9449770a-5116-422e-a5a8-dd3dfd3d6ca9",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552],
Cell[33501, 940, 923, 26, 70, "Subsection",ExpressionUUID->"0f2e8076-ccab-4063-8bb4-24df29c2a112",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773],
Cell[34969, 981, 1874, 45, 70, "Subsection",ExpressionUUID->"921184dd-dbd1-432c-ad38-0551212bdb55",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448],
Cell[39809, 1087, 955, 25, 70, "Subsection",ExpressionUUID->"8edbaed1-7edc-4257-b1da-45243905e174",
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822],
Cell[40789, 1116, 1174, 31, 70, "Subsubsection",ExpressionUUID->"82294427-55a3-4a9d-a095-1f0b21998522",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016],
Cell[42092, 1156, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42017ef2-f874-4d2a-90b3-6fcbcd388f5c",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[44566, 1232, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a6c212cb-695d-4641-bad4-68cad518a75e",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[47251, 1313, 1913, 46, 70, "Subsubsection",ExpressionUUID->"a04fb57b-198f-45c1-9d81-f495beb32bb1",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[52100, 1449, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5d53d1f0-8624-4988-88b9-85780cfac267",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[54173, 1513, 1155, 28, 70, "Section",ExpressionUUID->"7d25c1a3-f283-4379-88f6-77d53f364a48",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591],
Cell[55897, 1556, 1033, 26, 70, "Section",ExpressionUUID->"fca85c4e-85f9-40c3-8a5a-e65f82436f42",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765]},
"Documentation"->{
Cell[3273, 100, 195, 5, 70, "Section",ExpressionUUID->"71c720be-dc98-43b9-8162-6a05d2403f54",
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307]},
"TemplateSection"->{
Cell[3273, 100, 195, 5, 70, "Section",ExpressionUUID->"71c720be-dc98-43b9-8162-6a05d2403f54",
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307],
Cell[18472, 479, 249, 5, 70, "Section",ExpressionUUID->"b1580ac5-6261-41bb-8de7-a9052e36a42b",
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116]},
"Usage"->{
Cell[3493, 109, 1980, 50, 70, "Subsection",ExpressionUUID->"bb3e4527-fd01-4eee-b071-3529d8f111ce",
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310]},
"Details & Options"->{
Cell[5946, 182, 1429, 32, 70, "Subsection",ExpressionUUID->"d3b0c0cb-b460-4faa-a969-24ad555c6134",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236]},
"Notes"->{
Cell[5946, 182, 1429, 32, 70, "Subsection",ExpressionUUID->"d3b0c0cb-b460-4faa-a969-24ad555c6134",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236]},
"DefaultContent"->{
Cell[7378, 216, 523, 8, 70, "Notes",ExpressionUUID->"917640ef-486d-4b64-bdb3-287a0177691d",
CellTags->{"DefaultContent", "TabNext"},
CellID->273771548],
Cell[20858, 550, 484, 8, 70, "Item",ExpressionUUID->"53a6962a-4a7b-4e2c-867d-17ede34e5466",
CellTags->{"DefaultContent", "TabNext"},
CellID->744507960],
Cell[31296, 886, 528, 8, 70, "Item",ExpressionUUID->"7396120b-16b4-4c17-85c0-8e9791f45319",
CellTags->{"DefaultContent", "TabNext"},
CellID->873143661],
Cell[32948, 927, 516, 8, 70, "Text",ExpressionUUID->"b0e3c363-a2c9-474b-98c5-2c16f4edb686",
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423],
Cell[34427, 968, 505, 8, 70, "Item",ExpressionUUID->"2d63b902-72c7-4746-9c19-d1135176d501",
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746],
Cell[41966, 1149, 89, 2, 70, "Text",ExpressionUUID->"93688266-1e98-46df-ae9f-0d8c33f6d8a5",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768],
Cell[55331, 1543, 529, 8, 70, "Text",ExpressionUUID->"ca1264e8-9c4d-48ad-b1fe-a41241d58245",
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487],
Cell[56933, 1584, 515, 8, 70, "Text",ExpressionUUID->"16e4dfde-ae49-4144-8701-03fd77e43d5e",
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]},
"TabNext"->{
Cell[7378, 216, 523, 8, 70, "Notes",ExpressionUUID->"917640ef-486d-4b64-bdb3-287a0177691d",
CellTags->{"DefaultContent", "TabNext"},
CellID->273771548],
Cell[20858, 550, 484, 8, 70, "Item",ExpressionUUID->"53a6962a-4a7b-4e2c-867d-17ede34e5466",
CellTags->{"DefaultContent", "TabNext"},
CellID->744507960],
Cell[31296, 886, 528, 8, 70, "Item",ExpressionUUID->"7396120b-16b4-4c17-85c0-8e9791f45319",
CellTags->{"DefaultContent", "TabNext"},
CellID->873143661],
Cell[32948, 927, 516, 8, 70, "Text",ExpressionUUID->"b0e3c363-a2c9-474b-98c5-2c16f4edb686",
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423],
Cell[34427, 968, 505, 8, 70, "Item",ExpressionUUID->"2d63b902-72c7-4746-9c19-d1135176d501",
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746],
Cell[55331, 1543, 529, 8, 70, "Text",ExpressionUUID->"ca1264e8-9c4d-48ad-b1fe-a41241d58245",
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487],
Cell[56933, 1584, 515, 8, 70, "Text",ExpressionUUID->"16e4dfde-ae49-4144-8701-03fd77e43d5e",
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]},
"Examples"->{
Cell[7950, 230, 7029, 152, 70, "Section",ExpressionUUID->"bb100360-d11e-4770-b24b-1dd436f78b3d",
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011]},
"Source & Additional Information"->{
Cell[18472, 479, 249, 5, 70, "Section",ExpressionUUID->"b1580ac5-6261-41bb-8de7-a9052e36a42b",
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116]},
"Contributed By"->{
Cell[18746, 488, 1026, 26, 70, "Subsection",ExpressionUUID->"f4eee0c3-9f75-4b8a-8cc0-0ff71f329ab9",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256]},
"ContributorInformation"->{
Cell[18746, 488, 1026, 26, 70, "Subsection",ExpressionUUID->"f4eee0c3-9f75-4b8a-8cc0-0ff71f329ab9",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256]},
"Keywords"->{
Cell[19859, 522, 996, 26, 70, "Subsection",ExpressionUUID->"38fe0302-7184-46a1-a264-dce85c31fb34",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425]},
"Categories"->{
Cell[21379, 563, 221, 6, 70, "Subsection",ExpressionUUID->"30007dec-dd47-4f95-b944-c9e5babe3c35",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[21603, 571, 7500, 245, 70, "Output",ExpressionUUID->"310d804d-7321-44b9-8d3a-33079bf290c3",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->497342009]},
"Categories-Checkboxes"->{
Cell[21603, 571, 7500, 245, 70, "Output",ExpressionUUID->"310d804d-7321-44b9-8d3a-33079bf290c3",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->497342009]},
"CheckboxCell"->{
Cell[21603, 571, 7500, 245, 70, "Output",ExpressionUUID->"310d804d-7321-44b9-8d3a-33079bf290c3",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->497342009],
Cell[43208, 1187, 1321, 40, 70, "Output",ExpressionUUID->"7de9d332-baad-4adf-bc33-0e32fd308dcb",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->40078524],
Cell[45849, 1267, 1365, 41, 70, "Output",ExpressionUUID->"b085fb61-4b50-4f84-b193-cd702627511d",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->396992059],
Cell[49167, 1361, 2896, 83, 70, "Output",ExpressionUUID->"e864a617-0f25-4aab-a661-bd8992b92345",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->62394308],
Cell[53174, 1478, 938, 28, 70, "Output",ExpressionUUID->"8b3e276f-b74c-4366-af41-41c73e9de3d6",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->454919203]},
"Related Symbols"->{
Cell[29140, 821, 980, 26, 70, "Subsection",ExpressionUUID->"31668ea3-f11f-427c-a904-836c19527f4a",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169]},
"Related Resource Objects"->{
Cell[30254, 858, 1039, 26, 70, "Subsection",ExpressionUUID->"eded5117-d23d-4cd7-9c7d-afe133498e4a",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472]},
"Source/Reference Citation"->{
Cell[31861, 899, 1084, 26, 70, "Subsection",ExpressionUUID->"9449770a-5116-422e-a5a8-dd3dfd3d6ca9",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552]},
"Links"->{
Cell[33501, 940, 923, 26, 70, "Subsection",ExpressionUUID->"0f2e8076-ccab-4063-8bb4-24df29c2a112",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773]},
"Tests"->{
Cell[34969, 981, 1874, 45, 70, "Subsection",ExpressionUUID->"921184dd-dbd1-432c-ad38-0551212bdb55",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448]},
"VerificationTests"->{
Cell[34969, 981, 1874, 45, 70, "Subsection",ExpressionUUID->"921184dd-dbd1-432c-ad38-0551212bdb55",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448]},
"Compatibility"->{
Cell[39809, 1087, 955, 25, 70, "Subsection",ExpressionUUID->"8edbaed1-7edc-4257-b1da-45243905e174",
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822]},
"CompatibilityWolframLanguageVersionRequired"->{
Cell[40789, 1116, 1174, 31, 70, "Subsubsection",ExpressionUUID->"82294427-55a3-4a9d-a095-1f0b21998522",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016]},
"Wolfram Language Version"->{
Cell[40789, 1116, 1174, 31, 70, "Subsubsection",ExpressionUUID->"82294427-55a3-4a9d-a095-1f0b21998522",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016]},
"ScrapeDefault"->{
Cell[41966, 1149, 89, 2, 70, "Text",ExpressionUUID->"93688266-1e98-46df-ae9f-0d8c33f6d8a5",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768]},
"CompatibilityOperatingSystem"->{
Cell[42092, 1156, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42017ef2-f874-4d2a-90b3-6fcbcd388f5c",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[43208, 1187, 1321, 40, 70, "Output",ExpressionUUID->"7de9d332-baad-4adf-bc33-0e32fd308dcb",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->40078524]},
"Operating System"->{
Cell[42092, 1156, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42017ef2-f874-4d2a-90b3-6fcbcd388f5c",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406]},
"CompatibilityOperatingSystem-Checkboxes"->{
Cell[43208, 1187, 1321, 40, 70, "Output",ExpressionUUID->"7de9d332-baad-4adf-bc33-0e32fd308dcb",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->40078524]},
"CompatibilityFeatures"->{
Cell[44566, 1232, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a6c212cb-695d-4641-bad4-68cad518a75e",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[45849, 1267, 1365, 41, 70, "Output",ExpressionUUID->"b085fb61-4b50-4f84-b193-cd702627511d",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->396992059]},
"Required Features"->{
Cell[44566, 1232, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a6c212cb-695d-4641-bad4-68cad518a75e",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156]},
"CompatibilityFeatures-Checkboxes"->{
Cell[45849, 1267, 1365, 41, 70, "Output",ExpressionUUID->"b085fb61-4b50-4f84-b193-cd702627511d",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->396992059]},
"CompatibilityEvaluationEnvironment"->{
Cell[47251, 1313, 1913, 46, 70, "Subsubsection",ExpressionUUID->"a04fb57b-198f-45c1-9d81-f495beb32bb1",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[49167, 1361, 2896, 83, 70, "Output",ExpressionUUID->"e864a617-0f25-4aab-a661-bd8992b92345",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->62394308]},
"Environments"->{
Cell[47251, 1313, 1913, 46, 70, "Subsubsection",ExpressionUUID->"a04fb57b-198f-45c1-9d81-f495beb32bb1",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563]},
"CompatibilityEvaluationEnvironment-Checkboxes"->{
Cell[49167, 1361, 2896, 83, 70, "Output",ExpressionUUID->"e864a617-0f25-4aab-a661-bd8992b92345",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->62394308]},
"Cloud Support"->{
Cell[52100, 1449, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5d53d1f0-8624-4988-88b9-85780cfac267",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371]},
"CompatibilityCloudSupport"->{
Cell[52100, 1449, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5d53d1f0-8624-4988-88b9-85780cfac267",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[53174, 1478, 938, 28, 70, "Output",ExpressionUUID->"8b3e276f-b74c-4366-af41-41c73e9de3d6",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->454919203]},
"CompatibilityCloudSupport-Checkboxes"->{
Cell[53174, 1478, 938, 28, 70, "Output",ExpressionUUID->"8b3e276f-b74c-4366-af41-41c73e9de3d6",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->454919203]},
"Author Notes"->{
Cell[54173, 1513, 1155, 28, 70, "Section",ExpressionUUID->"7d25c1a3-f283-4379-88f6-77d53f364a48",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591]},
"Submission Notes"->{
Cell[55897, 1556, 1033, 26, 70, "Section",ExpressionUUID->"fca85c4e-85f9-40c3-8a5a-e65f82436f42",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"Name", 180865, 3935},
{"TemplateCell", 181048, 3939},
{"Title", 181384, 3946},
{"Description", 181566, 3950},
{"Definition", 181744, 3954},
{"Function", 181940, 3958},
{"TemplateCellGroup", 182145, 3962},
{"Documentation", 185972, 4023},
{"TemplateSection", 186165, 4027},
{"Usage", 186537, 4034},
{"Details & Options", 186731, 4038},
{"Notes", 186934, 4042},
{"DefaultContent", 187146, 4046},
{"TabNext", 188457, 4071},
{"Examples", 189602, 4093},
{"Source & Additional Information", 189811, 4097},
{"Contributed By", 190022, 4101},
{"ContributorInformation", 190256, 4105},
{"Keywords", 190476, 4109},
{"Categories", 190666, 4113},
{"Categories-Checkboxes", 191060, 4120},
{"CheckboxCell", 191272, 4124},
{"Related Symbols", 192388, 4140},
{"Related Resource Objects", 192599, 4144},
{"Source/Reference Citation", 192821, 4148},
{"Links", 193024, 4152},
{"Tests", 193206, 4156},
{"VerificationTests", 193422, 4160},
{"Compatibility", 193634, 4164},
{"CompatibilityWolframLanguageVersionRequired", 193863, 4168},
{"Wolfram Language Version", 194135, 4172},
{"ScrapeDefault", 194396, 4176},
{"CompatibilityOperatingSystem", 194599, 4180},
{"Operating System", 195067, 4187},
{"CompatibilityOperatingSystem-Checkboxes", 195331, 4191},
{"CompatibilityFeatures", 195587, 4195},
{"Required Features", 196037, 4202},
{"CompatibilityFeatures-Checkboxes", 196288, 4206},
{"CompatibilityEvaluationEnvironment", 196544, 4210},
{"Environments", 197022, 4217},
{"CompatibilityEvaluationEnvironment-Checkboxes", 197294, 4221},
{"Cloud Support", 197554, 4225},
{"CompatibilityCloudSupport", 197798, 4229},
{"CompatibilityCloudSupport-Checkboxes", 198274, 4236},
{"Author Notes", 198515, 4240},
{"Submission Notes", 198714, 4244}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[635, 23, 102, 2, 70, "Title",ExpressionUUID->"f715bd8a-5c3c-46fd-9777-74e94c26fe37",
CellTags->{"Name", "TemplateCell", "Title"},
CellID->591885671],
Cell[740, 27, 155, 4, 70, "Text",ExpressionUUID->"f1f357e4-19db-4b3d-a1c5-b1f61c922098",
CellTags->{"Description", "TemplateCell"},
CellID->970147877],
Cell[CellGroupData[{
Cell[920, 35, 1206, 29, 70, "Section",ExpressionUUID->"e3815f9e-9531-4ebe-8516-d103348749c4",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->72845326],
Cell[2129, 66, 1107, 29, 70, "Input",ExpressionUUID->"1823528e-2e15-4687-a65b-6e7d3a1d638c",
InitializationCell->True,
CellID->327850396]
}, Open ]],
Cell[CellGroupData[{
Cell[3273, 100, 195, 5, 70, "Section",ExpressionUUID->"71c720be-dc98-43b9-8162-6a05d2403f54",
CellTags->{"Documentation", "TemplateSection"},
CellID->429741307],
Cell[CellGroupData[{
Cell[3493, 109, 1980, 50, 70, "Subsection",ExpressionUUID->"bb3e4527-fd01-4eee-b071-3529d8f111ce",
CellTags->{"TemplateCellGroup", "Usage"},
CellID->542419310],
Cell[CellGroupData[{
Cell[5498, 163, 149, 4, 70, "UsageInputs",ExpressionUUID->"db6dc413-5398-4e01-acab-8ede57addc04",
CellID->424218856],
Cell[5650, 169, 247, 7, 70, "UsageDescription",ExpressionUUID->"0a9a8e5c-a0e0-45f6-a408-7bf9292bd0b2",
CellID->872262235]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[5946, 182, 1429, 32, 70, "Subsection",ExpressionUUID->"d3b0c0cb-b460-4faa-a969-24ad555c6134",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->908801236],
Cell[7378, 216, 523, 8, 70, "Notes",ExpressionUUID->"917640ef-486d-4b64-bdb3-287a0177691d",
CellTags->{"DefaultContent", "TabNext"},
CellID->273771548]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[7950, 230, 7029, 152, 70, "Section",ExpressionUUID->"bb100360-d11e-4770-b24b-1dd436f78b3d",
CellTags->{"Examples", "TemplateCellGroup"},
CellID->530638011],
Cell[CellGroupData[{
Cell[15004, 386, 75, 2, 70, "Subsection",ExpressionUUID->"427c3c0a-57fb-4bdb-b8f0-2dd953500c6e",
CellID->904125756],
Cell[15082, 390, 139, 3, 70, "Text",ExpressionUUID->"8ea12145-607a-4b66-8e14-99e9fce1cd6f",
CellID->502614690],
Cell[CellGroupData[{
Cell[15246, 397, 134, 4, 70, "Input",ExpressionUUID->"1d954f5e-28ea-44f8-ad67-4e4006a6cfd7",
CellID->247897358],
Cell[15383, 403, 100, 3, 70, "Output",ExpressionUUID->"ef5f6587-0eff-4091-a5d5-72bc2fb3b3c1",
CellID->128270260]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[15532, 412, 66, 2, 70, "Subsection",ExpressionUUID->"ddf47a7f-7805-4674-990a-d8fdbd8eb891",
CellID->204653245],
Cell[15601, 416, 132, 3, 70, "Text",ExpressionUUID->"8bb6cb02-0641-4906-badc-356822bcab9a",
CellID->797764842],
Cell[CellGroupData[{
Cell[15758, 423, 241, 8, 70, "Input",ExpressionUUID->"af27c8eb-9eb9-452f-a1f4-009aebfb1c2e",
CellID->370988442],
Cell[16002, 433, 2409, 39, 70, "Output",ExpressionUUID->"eaa031b6-2a37-4411-8564-562744623f98",
CellID->406300609]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[18472, 479, 249, 5, 70, "Section",ExpressionUUID->"b1580ac5-6261-41bb-8de7-a9052e36a42b",
CellTags->{"Source & Additional Information", "TemplateSection"},
CellID->611501116],
Cell[CellGroupData[{
Cell[18746, 488, 1026, 26, 70, "Subsection",ExpressionUUID->"f4eee0c3-9f75-4b8a-8cc0-0ff71f329ab9",
CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
CellID->86203256],
Cell[19775, 516, 47, 1, 70, "Text",ExpressionUUID->"e4537d80-3d5e-4af5-ae1f-c86488c211eb",
CellID->180302432]
}, Open ]],
Cell[CellGroupData[{
Cell[19859, 522, 996, 26, 70, "Subsection",ExpressionUUID->"38fe0302-7184-46a1-a264-dce85c31fb34",
CellTags->{"Keywords", "TemplateCellGroup"},
CellID->696375425],
Cell[20858, 550, 484, 8, 70, "Item",ExpressionUUID->"53a6962a-4a7b-4e2c-867d-17ede34e5466",
CellTags->{"DefaultContent", "TabNext"},
CellID->744507960]
}, Open ]],
Cell[CellGroupData[{
Cell[21379, 563, 221, 6, 70, "Subsection",ExpressionUUID->"30007dec-dd47-4f95-b944-c9e5babe3c35",
CellTags->{"Categories", "TemplateCellGroup"},
CellID->362094786],
Cell[21603, 571, 7500, 245, 70, "Output",ExpressionUUID->"310d804d-7321-44b9-8d3a-33079bf290c3",
CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"},
CellID->497342009]
}, Open ]],
Cell[CellGroupData[{
Cell[29140, 821, 980, 26, 70, "Subsection",ExpressionUUID->"31668ea3-f11f-427c-a904-836c19527f4a",
CellTags->{"Related Symbols", "TemplateCellGroup"},
CellID->659846169],
Cell[30123, 849, 44, 1, 70, "Item",ExpressionUUID->"a46d2af8-2bbb-49c1-b861-3bb809188174",
CellID->826797679],
Cell[30170, 852, 47, 1, 70, "Item",ExpressionUUID->"0f6d2d61-984f-4ef7-be1f-5eeb777e9cff",
CellID->18022048]
}, Open ]],
Cell[CellGroupData[{
Cell[30254, 858, 1039, 26, 70, "Subsection",ExpressionUUID->"eded5117-d23d-4cd7-9c7d-afe133498e4a",
CellTags->{"Related Resource Objects", "TemplateCellGroup"},
CellID->465534472],
Cell[31296, 886, 528, 8, 70, "Item",ExpressionUUID->"7396120b-16b4-4c17-85c0-8e9791f45319",
CellTags->{"DefaultContent", "TabNext"},
CellID->873143661]
}, Open ]],
Cell[CellGroupData[{
Cell[31861, 899, 1084, 26, 70, "Subsection",ExpressionUUID->"9449770a-5116-422e-a5a8-dd3dfd3d6ca9",
CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
CellID->515669552],
Cell[32948, 927, 516, 8, 70, "Text",ExpressionUUID->"b0e3c363-a2c9-474b-98c5-2c16f4edb686",
CellTags->{"DefaultContent", "TabNext"},
CellID->436399423]
}, Open ]],
Cell[CellGroupData[{
Cell[33501, 940, 923, 26, 70, "Subsection",ExpressionUUID->"0f2e8076-ccab-4063-8bb4-24df29c2a112",
CellTags->{"Links", "TemplateCellGroup"},
CellID->571756773],
Cell[34427, 968, 505, 8, 70, "Item",ExpressionUUID->"2d63b902-72c7-4746-9c19-d1135176d501",
CellTags->{"DefaultContent", "TabNext"},
CellID->132505746]
}, Open ]],
Cell[CellGroupData[{
Cell[34969, 981, 1874, 45, 70, "Subsection",ExpressionUUID->"921184dd-dbd1-432c-ad38-0551212bdb55",
CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
CellID->561308448],
Cell[36846, 1028, 2926, 54, 70, "Input",ExpressionUUID->"ec22358f-f7f4-4506-b604-44224cff3e0f",
CellID->289872353]
}, Open ]],
Cell[CellGroupData[{
Cell[39809, 1087, 955, 25, 70, "Subsection",ExpressionUUID->"8edbaed1-7edc-4257-b1da-45243905e174",
CellTags->{"Compatibility", "TemplateCellGroup"},
CellID->559974822],
Cell[CellGroupData[{
Cell[40789, 1116, 1174, 31, 70, "Subsubsection",ExpressionUUID->"82294427-55a3-4a9d-a095-1f0b21998522",
CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"},
CellID->901090016],
Cell[41966, 1149, 89, 2, 70, "Text",ExpressionUUID->"93688266-1e98-46df-ae9f-0d8c33f6d8a5",
CellTags->{"DefaultContent", "ScrapeDefault"},
CellID->913148768]
}, Open ]],
Cell[CellGroupData[{
Cell[42092, 1156, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42017ef2-f874-4d2a-90b3-6fcbcd388f5c",
CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"},
CellID->499582406],
Cell[43208, 1187, 1321, 40, 70, "Output",ExpressionUUID->"7de9d332-baad-4adf-bc33-0e32fd308dcb",
CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"},
CellID->40078524]
}, Closed]],
Cell[CellGroupData[{
Cell[44566, 1232, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a6c212cb-695d-4641-bad4-68cad518a75e",
CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"},
CellID->989275156],
Cell[45849, 1267, 1365, 41, 70, "Output",ExpressionUUID->"b085fb61-4b50-4f84-b193-cd702627511d",
CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"},
CellID->396992059]
}, Closed]],
Cell[CellGroupData[{
Cell[47251, 1313, 1913, 46, 70, "Subsubsection",ExpressionUUID->"a04fb57b-198f-45c1-9d81-f495beb32bb1",
CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"},
CellID->605308563],
Cell[49167, 1361, 2896, 83, 70, "Output",ExpressionUUID->"e864a617-0f25-4aab-a661-bd8992b92345",
CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"},
CellID->62394308]
}, Closed]],
Cell[CellGroupData[{
Cell[52100, 1449, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5d53d1f0-8624-4988-88b9-85780cfac267",
CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"},
CellID->129998371],
Cell[53174, 1478, 938, 28, 70, "Output",ExpressionUUID->"8b3e276f-b74c-4366-af41-41c73e9de3d6",
CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"},
CellID->454919203]
}, Closed]]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[54173, 1513, 1155, 28, 70, "Section",ExpressionUUID->"7d25c1a3-f283-4379-88f6-77d53f364a48",
CellTags->{"Author Notes", "TemplateCellGroup"},
CellID->681870591],
Cell[55331, 1543, 529, 8, 70, "Text",ExpressionUUID->"ca1264e8-9c4d-48ad-b1fe-a41241d58245",
CellTags->{"DefaultContent", "TabNext"},
CellID->958952487]
}, Open ]],
Cell[CellGroupData[{
Cell[55897, 1556, 1033, 26, 70, "Section",ExpressionUUID->"fca85c4e-85f9-40c3-8a5a-e65f82436f42",
CellTags->{"Submission Notes", "TemplateCellGroup"},
CellID->916799765],
Cell[56933, 1584, 515, 8, 70, "Text",ExpressionUUID->"16e4dfde-ae49-4144-8701-03fd77e43d5e",
CellTags->{"DefaultContent", "TabNext"},
CellID->604291542]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)
| |