(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 137296, 3264] NotebookOptionsPosition[ 47846, 1479] NotebookOutlinePosition[ 123779, 2967] CellTagsIndexPosition[ 123067, 2943] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["EnsureFilePath", "Title", CellTags->"Title"], Cell["\<\ Create the directory for a given file if it does not already exist\ \>", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"EnsureFilePath", "[", RowBox[{"path", ":", RowBox[{"_String", " ", "|", " ", "_CloudObject"}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"new", " ", "=", " ", RowBox[{"Catch", "[", RowBox[{ RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"ensureDirectory", "[", RowBox[{"directoryName", "[", "path", "]"}], "]"}], ",", " ", RowBox[{"fileNameTake", "[", "path", "]"}]}], "}"}], "]"}], ",", " ", "EnsureFilePath"}], "]"}]}], "}"}], ",", " ", RowBox[{"new", " ", "/;", " ", RowBox[{"FreeQ", "[", RowBox[{"new", ",", " ", RowBox[{"_", "?", "FailureQ"}]}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"EnsureFilePath", "[", RowBox[{"File", "[", "path_", "]"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"new", " ", "=", " ", RowBox[{"EnsureFilePath", "[", "path", "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"File", "[", "new", "]"}], " ", "/;", " ", RowBox[{"FreeQ", "[", RowBox[{"new", ",", " ", RowBox[{"_", "?", "FailureQ"}]}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"EnsureFilePath", "[", "path_LocalObject", "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"new", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"ensureDirectory", "[", RowBox[{"directoryName", "[", "path", "]"}], "]"}], ",", " ", RowBox[{"fileNameTake", "[", "path", "]"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"LocalObject", "[", "new", "]"}], " ", "/;", " ", RowBox[{"FreeQ", "[", RowBox[{"new", ",", " ", RowBox[{"_", "?", "FailureQ"}]}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"EnsureFilePath", "[", "___", "]"}], " ", ":=", " ", "$Failed"}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ensureDirectory", "[", "path_", "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"type", " ", "=", " ", RowBox[{"fileType", "[", "path", "]"}]}], "}"}], ",", " ", RowBox[{"Replace", "[", RowBox[{"type", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"None", " ", ":>", " ", RowBox[{"CreateDirectory", "[", "path", "]"}]}], ",", " ", RowBox[{"Directory", " ", ":>", " ", "path"}], ",", " ", RowBox[{"File", " ", ":>", " ", RowBox[{"moveIntoDir", "[", "path", "]"}]}], ",", " ", RowBox[{"other___", " ", ":>", " ", RowBox[{"(", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"EnsureFilePath", "::", "filetype"}], ",", " ", "path", ",", " ", RowBox[{"HoldForm", "[", "other", "]"}]}], "]"}], ";", " ", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", " ", "EnsureFilePath"}], "]"}]}], ")"}]}]}], "}"}]}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"ensureDirectory", "[", "___", "]"}], " ", ":=", " ", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", " ", "EnsureFilePath"}], "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fileType", "[", "\"\<\>\"", "]"}], " ", ":=", " ", "Directory"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"fileType", "[", RowBox[{"path_String", " ", "/;", " ", RowBox[{"StringEndsQ", "[", RowBox[{"path", ",", " ", RowBox[{"\"\\"", " ", "|", " ", "\"\<\\\\\>\""}]}], "]"}]}], "]"}], " ", ":=", " ", RowBox[{"fileType", "[", RowBox[{"StringDelete", "[", RowBox[{"path", ",", " ", RowBox[{ RowBox[{"Longest", "[", RowBox[{ RowBox[{"(", RowBox[{"\"\\"", " ", "|", " ", "\"\<\\\\\>\""}], ")"}], ".."}], "]"}], "~~", "EndOfString"}]}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"fileType", "[", "other___", "]"}], " ", ":=", " ", RowBox[{"FileType", "[", "other", "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{"moveIntoDir", "[", "file_", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "temp", "}"}], ",", " ", RowBox[{ RowBox[{"temp", " ", "=", " ", RowBox[{"temporaryFile", "[", "file", "]"}]}], ";", " ", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"RenameFile", "[", RowBox[{"file", ",", " ", "temp"}], "]"}], ",", " ", RowBox[{"_", "?", "FileExistsQ"}], ",", " ", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", " ", "EnsureFilePath"}], "]"}]}], "]"}], ";", " ", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"RenameFile", "[", RowBox[{"temp", ",", " ", RowBox[{"EnsureFilePath", "[", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"file", ",", " ", RowBox[{"fileNameTake", "[", "file", "]"}]}], "}"}], "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"_", "?", "FileExistsQ"}], ",", " ", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", " ", "EnsureFilePath"}], "]"}]}], "]"}], ";", " ", "file"}]}], "]"}]}]], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"temporaryFile", "[", RowBox[{"_String", " ", "|", " ", "_File"}], "]"}], " ", ":=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"$TemporaryDirectory", ",", " ", RowBox[{"CreateUUID", "[", "]"}]}], "}"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"temporaryFile", "[", "_CloudObject", "]"}], " ", ":=", " ", RowBox[{"CloudObject", "[", RowBox[{"CreateUUID", "[", "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"temporaryFile", "[", "_LocalObject", "]"}], " ", ":=", " ", RowBox[{"LocalObject", "[", "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fileNameTake", "[", "path_CloudObject", "]"}], " ", ":=", " ", RowBox[{"Last", "[", RowBox[{"URLParse", "[", RowBox[{"path", ",", " ", "\"\\""}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"fileNameTake", "[", RowBox[{"path_CloudObject", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "take_"}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"trimPath", "[", RowBox[{"CloudObject", "[", RowBox[{"URLBuild", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"URLParse", "[", "path", "]"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Take", "[", RowBox[{ RowBox[{"URLParse", "[", RowBox[{"path", ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "take"}], "}"}]}], "]"}]}]}], "]"}], "]"}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"fileNameTake", "[", RowBox[{"path_CloudObject", ",", " ", "take_"}], "]"}], " ", ":=", " ", RowBox[{"StringRiffle", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"URLParse", "[", RowBox[{"path", ",", " ", "\"\\""}], "]"}], ",", " ", "take"}], "]"}], ",", " ", "\"\\""}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"fileNameTake", "[", RowBox[{"path_LocalObject", ",", " ", "take___"}], "]"}], " ", ":=", " ", RowBox[{"FileNameTake", "[", RowBox[{ RowBox[{"LocalObjects`PathName", "[", "path", "]"}], ",", " ", "take"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"fileNameTake", "[", "other___", "]"}], " ", ":=", " ", RowBox[{"FileNameTake", "[", "other", "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"trimPath", "[", "path_String", "]"}], " ", ":=", " ", RowBox[{"StringDelete", "[", RowBox[{"path", ",", " ", RowBox[{ RowBox[{"Longest", "[", RowBox[{ RowBox[{"(", RowBox[{"\"\\"", " ", "|", " ", "\"\<\\\\\>\""}], ")"}], ".."}], "]"}], "~~", "EndOfString"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"trimPath", "[", RowBox[{ RowBox[{"(", RowBox[{"h", ":", RowBox[{ "File", " ", "|", " ", "LocalObject", " ", "|", " ", "CloudObject"}]}], ")"}], "[", RowBox[{"path_String", ",", " ", "opts___"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"h", "[", RowBox[{ RowBox[{"trimPath", "[", "path", "]"}], ",", " ", "opts"}], "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"directoryName", "[", "path_CloudObject", "]"}], " ", ":=", " ", RowBox[{"trimPath", "[", RowBox[{"CloudObject", "[", RowBox[{"URLBuild", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"URLParse", "[", "path", "]"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Most", "[", RowBox[{"URLParse", "[", RowBox[{"path", ",", " ", "\"\\""}], "]"}], "]"}]}]}], "]"}], "]"}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"directoryName", "[", "path_LocalObject", "]"}], " ", ":=", " ", RowBox[{"trimPath", "[", RowBox[{"DirectoryName", "[", RowBox[{"LocalObjects`PathName", "[", "path", "]"}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"directoryName", "[", "other___", "]"}], " ", ":=", " ", RowBox[{"trimPath", "[", RowBox[{"DirectoryName", "[", "other", "]"}], "]"}]}]}], "Input", InitializationCell->True] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", StyleBox["path", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "creates the parent directory of ", Cell[BoxData[ StyleBox["path", "TI"]], "InlineFormula"], " if it does not already exist and returns the full ", Cell[BoxData[ StyleBox["path", "TI"]], "InlineFormula"], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{"EnsureFilePath", "[", StyleBox["path", "TI"], "]"}]], "InlineFormula"], ", ", Cell[BoxData[ StyleBox["path", "TI"]], "InlineFormula"], " can be any of the following:" }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{{3.7490425259662027`*^9, 3.749042545316491*^9}, { 3.74904787672252*^9, 3.749047881866102*^9}, 3.763313451334993*^9}, CellTags->"TabNext", CellID->107622986], Cell[TextData[Cell[BoxData[GridBox[{ {"\"\<\!\(\*StyleBox[\"string\", \"TI\"]\)\>\"", RowBox[{ "a", " ", "file", " ", "path", " ", "given", " ", "as", " ", "a", " ", ButtonBox["String", BaseStyle->"Link"]}]}, { RowBox[{ ButtonBox["File", BaseStyle->"Link"], "[", StyleBox["\[Ellipsis]", "TR"], "]"}], RowBox[{"a", " ", ButtonBox["File", BaseStyle->"Link"]}]}, { RowBox[{ ButtonBox["LocalObject", BaseStyle->"Link"], "[", StyleBox["\[Ellipsis]", "TR"], "]"}], RowBox[{"a", " ", ButtonBox["LocalObject", BaseStyle->"Link"]}]}, { RowBox[{ ButtonBox["CloudObject", BaseStyle->"Link"], "[", StyleBox["\[Ellipsis]", "TR"], "]"}], RowBox[{"a", " ", ButtonBox["CloudObject", BaseStyle->"Link"]}]} }]]]], "TableNotes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{{3.749042552329146*^9, 3.749042704375128*^9}, 3.749047934774971*^9, 3.763313451422182*^9}, CellTags->"Nothing", CellID->1010277188], Cell["\<\ If the parent directory is a file that already exists, it will be moved into \ a directory of that name.\ \>", "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{{3.749047937804555*^9, 3.749047955283312*^9}, { 3.749048021701653*^9, 3.749048023091099*^9}, 3.7633134514885683`*^9}, CellTags->"Nothing", CellID->108042399] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Make sure the parent directory of a file exists:", "Text", CellChangeTimes->{{3.749042365837904*^9, 3.7490423885699387`*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.749042393458439*^9, 3.74904240261722*^9}}, CellLabel->"In[312]:=", CellID->7099978], Cell[BoxData["\<\"/Users/richardh/path/to/file.txt\"\>"], "Output", CellChangeTimes->{3.7490424127308407`*^9, 3.749044512351419*^9, 3.749047454535791*^9, 3.7490474973752327`*^9}, CellLabel->"Out[312]=", CellID->2009257908] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirectoryQ", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7490424157490587`*^9, 3.749042421911961*^9}}, CellLabel->"In[313]:=", CellID->1190339970], Cell[BoxData["True"], "Output", CellChangeTimes->{3.749042422977701*^9, 3.749044513497663*^9, 3.7490474832772713`*^9, 3.749047530749461*^9}, CellLabel->"Out[313]=", CellID->1919237192] }, Open ]], Cell[TextData[{ "Ensure a file path for a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CloudObject"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.749042724447813*^9, 3.749042738254756*^9}}, CellID->974490629], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.749042740626717*^9, 3.749042748726812*^9}, { 3.749044551947732*^9, 3.749044552440254*^9}}, CellLabel->"In[315]:=", CellID->1084857361], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/objects/rhennigan/path/to/file.txt\"", "https://www.wolframcloud.com/objects/rhennigan/path/to/file.txt"}, "HyperlinkURL"], "]"}], CloudObject[ "https://www.wolframcloud.com/objects/rhennigan/path/to/file.txt"], SelectWithContents->True]], "Output", CellChangeTimes->{3.7490427535611753`*^9, 3.7490445547363653`*^9, 3.749047553609565*^9}, CellLabel->"Out[315]=", CellID->2013918453] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirectoryQ", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.74904456120424*^9, 3.749044569935751*^9}}, CellLabel->"In[316]:=", CellID->1087546116], Cell[BoxData["True"], "Output", CellChangeTimes->{3.749044571743338*^9, 3.749047557503108*^9}, CellLabel->"Out[316]=", CellID->1188820922] }, Open ]], Cell[TextData[{ "Ensure a file path for a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["LocalObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/LocalObject"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.749042349254971*^9, 3.7490423588258743`*^9}}, CellID->1914330819], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", RowBox[{"LocalObject", "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7490422541465273`*^9, 3.749042271257551*^9}}, CellLabel->"In[320]:=", CellID->1290225619], Cell[BoxData[ RowBox[{"LocalObject", "[", "\<\"file:///Users/richardh/Library/Wolfram/Objects/path/to/file\"\>", "]"}]], "Output", CellChangeTimes->{ 3.749042277481017*^9, 3.749044592032237*^9, {3.7490475636463223`*^9, 3.7490475885398703`*^9}}, CellLabel->"Out[320]=", CellID->2019492367] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirectoryQ", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7490422827193604`*^9, 3.749042300879283*^9}}, CellLabel->"In[321]:=", CellID->1619781369], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.749042301717177*^9, 3.74904459339732*^9, {3.749047567888111*^9, 3.749047589984231*^9}}, CellLabel->"Out[321]=", CellID->733478567] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell[TextData[{ Cell[BoxData["EnsureFilePath"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " can also handle ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["File", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/File"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " expressions:" }], "Text", CellChangeTimes->{{3.7490486039151297`*^9, 3.749048620527053*^9}}, CellID->876583545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", RowBox[{"File", "[", "\"\\"", "]"}], "]"}]], "Input",\ CellChangeTimes->{{3.749048624575425*^9, 3.749048647442603*^9}}, CellLabel->"In[438]:=", CellID->908345087], Cell[BoxData[ RowBox[{"File", "[", TemplateBox[{"\"/Users/richardh/file/example/data.txt\""}, "FileArgument"], "]"}]], "Output", CellChangeTimes->{3.749048651279682*^9, 3.7490486858036137`*^9, 3.749048792273107*^9}, CellLabel->"Out[438]=", CellID->1359737663] }, Open ]], Cell[TextData[{ Cell[BoxData["EnsureFilePath"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " does not create the target file, only the parent directory:" }], "Text", CellChangeTimes->{{3.749044623456833*^9, 3.749044642271832*^9}, 3.749048198550705*^9}, CellID->1118121473], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.749044664878124*^9, 3.749044677483797*^9}}, CellLabel->"In[322]:=", CellID->334372553], Cell[BoxData["\<\"/Users/richardh/path/to/new/file.txt\"\>"], "Output", CellChangeTimes->{3.749044681772572*^9, 3.7490475947247677`*^9}, CellLabel->"Out[322]=", CellID->2021182115] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileExistsQ", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.749044682778294*^9, 3.749044686069333*^9}}, CellLabel->"In[323]:=", CellID->1304196213], Cell[BoxData["False"], "Output", CellChangeTimes->{3.749044689035716*^9, 3.749047596992413*^9}, CellLabel->"Out[323]=", CellID->1536385633] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirectoryQ", "[", RowBox[{"DirectoryName", "[", "%%", "]"}], "]"}]], "Input", CellChangeTimes->{{3.749044690173766*^9, 3.749044696058695*^9}}, CellLabel->"In[324]:=", CellID->651862862], Cell[BoxData["True"], "Output", CellChangeTimes->{3.749044697003626*^9, 3.7490475982125797`*^9}, CellLabel->"Out[324]=", CellID->629549627] }, Open ]], Cell["\<\ If the parent directory is a file that already exists, it will be moved into \ a directory of that name:\ \>", "Text", CellChangeTimes->{{3.749047692878366*^9, 3.749047718494595*^9}}, CellID->306784732], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Put", "[", RowBox[{"1", ",", "\"\\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"EnsureFilePath", "[", "\"\\"", "]"}]}], "Input", CellLabel->"In[332]:=", CellID->9375209], Cell[BoxData["\<\"data/file\"\>"], "Output", CellChangeTimes->{{3.74904766729743*^9, 3.749047685731045*^9}}, CellLabel->"Out[333]=", CellID->1589133153] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirectoryQ", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.749047734882648*^9, 3.7490477382160254`*^9}}, CellLabel->"In[335]:=", CellID->661325983], Cell[BoxData["True"], "Output", CellChangeTimes->{3.749047739917927*^9}, CellLabel->"Out[335]=", CellID->213419694] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.749047723176853*^9, 3.749047726568893*^9}}, CellLabel->"In[336]:=", CellID->123313016], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.749047728400056*^9, 3.749047741759768*^9}}, CellLabel->"Out[336]=", CellID->1678753480] }, Open ]], Cell[TextData[{ "The same is true for a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CloudObject"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.749048403390088*^9, 3.749048416991893*^9}}, CellID->342610839], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"CloudPut", "[", RowBox[{"1", ",", "\"\\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"EnsureFilePath", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.74904826429036*^9, 3.749048268274687*^9}, { 3.749048373759089*^9, 3.74904839157672*^9}}, CellLabel->"In[372]:=", CellID->740961685], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/objects/rhennigan/data/file\"", "https://www.wolframcloud.com/objects/rhennigan/data/file"}, "HyperlinkURL"], "]"}], CloudObject["https://www.wolframcloud.com/objects/rhennigan/data/file"], SelectWithContents->True]], "Output", CellChangeTimes->{3.749048269305378*^9, 3.7490484252542133`*^9}, CellLabel->"Out[373]=", CellID->1480446426] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DirectoryQ", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.749048429427462*^9, 3.749048434717149*^9}}, CellLabel->"In[374]:=", CellID->731208818], Cell[BoxData["True"], "Output", CellChangeTimes->{3.749048436009063*^9}, CellLabel->"Out[374]=", CellID->1107467074] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudGet", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7490483544623623`*^9, 3.749048367071419*^9}}, CellLabel->"In[375]:=", CellID->1128195591], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7490483679222593`*^9, 3.749048439555649*^9}, CellLabel->"Out[375]=", CellID->580165697] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->20767984], Cell["Make sure a target directory exists when writing to a file:", "Text", CellChangeTimes->{{3.749044771317177*^9, 3.7490447823899508`*^9}, { 3.749044826986257*^9, 3.749044827224699*^9}}, CellID->1039493336], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Put", "[", RowBox[{ RowBox[{"10", "!"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.749044716235475*^9, 3.7490447436540003`*^9}}, CellLabel->"In[326]:=", CellID->470522550], Cell[BoxData[ TemplateBox[{ "Put","noopen", "\"Cannot open \ \\!\\(\\*RowBox[{\\\"\\\\\\\"this/path/does/not/exist/data.wl\\\\\\\"\\\"}]\\)\ .\"",2,326,22,17438611306626307874,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.749044756034971*^9, 3.74904762019736*^9}, CellLabel->"During evaluation of In[326]:=", CellID->1070506725], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.749044756048871*^9, 3.749047620321269*^9}, CellLabel->"Out[326]=", CellID->388532509] }, Open ]], Cell[BoxData[ RowBox[{"Put", "[", RowBox[{ RowBox[{"10", "!"}], ",", RowBox[{ "EnsureFilePath", "[", "\"\\"", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.749044790904953*^9, 3.749044794446179*^9}, { 3.7490448518802423`*^9, 3.74904485493357*^9}}, CellLabel->"In[327]:=", CellID->1494548066], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.749044804258156*^9, 3.749044805438869*^9}}, CellLabel->"In[328]:=", CellID->1520505813], Cell[BoxData["3628800"], "Output", CellChangeTimes->{3.7490448060487347`*^9, 3.749047625052452*^9}, CellLabel->"Out[328]=", CellID->1963618615] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->95944414], Cell["\<\ The file will only be moved into the target directory if it differs by one \ level:\ \>", "Text", CellChangeTimes->{{3.749048987827338*^9, 3.749049037073164*^9}}, CellID->629214689], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Put", "[", RowBox[{"1", ",", "\"\\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"EnsureFilePath", "[", "\"\\"", "]"}]}], "Input", CellChangeTimes->{{3.7490488170422163`*^9, 3.7490488751942587`*^9}}, CellLabel->"In[531]:=", CellID->1387227139], Cell[BoxData[ TemplateBox[{ "CreateDirectory","dirf", "\"The specified path \ \\!\\(\\*RowBox[{\\\"\\\\\\\"/Users/richardh/data/file\\\\\\\"\\\"}]\\) \ refers to a file; a directory was expected.\"",2,532,32,17438611306626307874, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.749048877632213*^9, 3.749048922289198*^9, 3.7490489777721157`*^9}, CellLabel->"During evaluation of In[531]:=", CellID->136228247], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.749048877649426*^9, 3.749048922333394*^9, 3.7490489778139963`*^9}, CellLabel->"Out[532]=", CellID->370579627] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnsureFilePath", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.749049058025318*^9, 3.749049058103359*^9}}, CellLabel->"In[533]:=", CellID->1249759136], Cell[BoxData["\<\"data/file/ok\"\>"], "Output", CellChangeTimes->{3.749049060702487*^9}, CellLabel->"Out[533]=", CellID->528860345] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Richard Hennigan (Wolfram Research)", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["directory", "Item"], Cell["file", "Item"], Cell["path", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Core Language & Structure", "Item"], Cell["System Operation & Setup", "Item"], Cell["Programming Utilities", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["SymbolName (documented Wolfram Language symbol)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["DirectorySize", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (March 31, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (March 31, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 51, 1, 70, "Title",ExpressionUUID->"1d9af7f1-e386-4f1c-969e-0e5765b0cb15", CellTags->"Title"]}, "Description"->{ Cell[612, 23, 116, 3, 70, "Text",ExpressionUUID->"a112fd78-6d08-4c4b-89dd-8b924ffbe97a", CellTags->"Description"]}, "Definition"->{ Cell[753, 30, 887, 21, 70, "Section",ExpressionUUID->"3db9ccac-7e11-41d8-bd70-aca30cc222b5", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[11808, 344, 99, 3, 70, "Section",ExpressionUUID->"907cbd09-8c5c-4e3d-85ca-d8403064d321", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[11932, 351, 1615, 42, 70, "Subsection",ExpressionUUID->"f0df68d1-bdba-4ebe-9439-20347638c066", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[13976, 415, 1131, 24, 70, "Subsection",ExpressionUUID->"fe3d4483-015c-4078-ac98-feaf234495a9", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[15110, 441, 502, 17, 70, "Notes",ExpressionUUID->"ac87f5a7-fd24-422e-87c6-8db8efe90812", CellTags->"TabNext", CellID->107622986], Cell[41103, 1283, 501, 8, 70, "Item",ExpressionUUID->"15c042da-48b3-426d-a699-dfd31e76e067", CellTags->"TabNext", CellID->79477165], Cell[43186, 1342, 496, 8, 70, "Text",ExpressionUUID->"10804739-df91-4e50-a40d-47b5f64e86a8", CellTags->"TabNext", CellID->343081869], Cell[44336, 1375, 485, 8, 70, "Item",ExpressionUUID->"a115e9f6-6968-436f-b6b2-17adb55e054f", CellTags->"TabNext", CellID->485448166], Cell[46066, 1434, 509, 8, 70, "Text",ExpressionUUID->"c79658ef-aa38-42c4-a924-df97f44becc2", CellTags->"TabNext", CellID->567921317], Cell[47335, 1468, 495, 8, 70, "Text",ExpressionUUID->"abd5620f-9a36-4da1-988d-c33c76a156d6", CellTags->"TabNext", CellID->920818074]}, "Nothing"->{ Cell[15615, 460, 1098, 38, 70, "TableNotes",ExpressionUUID->"f2a213cf-9209-44ef-828a-63995325d9f6", CellTags->"Nothing", CellID->1010277188], Cell[16716, 500, 394, 11, 70, "Notes",ExpressionUUID->"ec410412-c9c7-4f1a-9656-8364632089ac", CellTags->"Nothing", CellID->108042399]}, "Examples"->{ Cell[17147, 516, 6400, 143, 70, "Section",ExpressionUUID->"55ce8076-5885-4ab6-8d4d-17f65e6c9a77", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[38420, 1187, 135, 3, 70, "Section",ExpressionUUID->"f96bcd20-f133-421c-b249-30e0f820272b", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[38580, 1194, 683, 18, 70, "Subsection",ExpressionUUID->"315c4273-d71b-4bfe-8a9e-c2bc410649bf", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[39354, 1219, 684, 18, 70, "Subsection",ExpressionUUID->"4cb45370-2fcc-487a-a569-2cbc522d50f7", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[40149, 1248, 126, 4, 70, "Subsection",ExpressionUUID->"a908e906-6cef-4fd3-9e1b-6ae97c2e1f04", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[40439, 1263, 661, 18, 70, "Subsection",ExpressionUUID->"0589a5ba-193f-4ad8-b7f6-6ccd56539001", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[41641, 1296, 711, 18, 70, "Subsection",ExpressionUUID->"5feacceb-280b-4fdc-aa19-f836bf1df96c", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[42421, 1321, 762, 19, 70, "Subsection",ExpressionUUID->"a22ab5f1-63f7-4544-8352-2b1e12611163", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[43719, 1355, 614, 18, 70, "Subsection",ExpressionUUID->"252cf142-c8fc-4343-8353-4c17c320069f", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[44858, 1388, 767, 20, 70, "Subsection",ExpressionUUID->"ef305a50-d555-4ffb-9522-9f05c8afec54", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[45936, 1428, 127, 4, 70, "Section",ExpressionUUID->"d833365f-7e71-4de8-9d36-fb8679a69946", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[46612, 1447, 720, 19, 70, "Section",ExpressionUUID->"eb42f6dd-c215-413d-a703-7684230f66d5", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 118808, 2844}, {"Description", 118941, 2847}, {"Definition", 119079, 2850}, {"Documentation", 119245, 2854}, {"Usage", 119407, 2858}, {"Details & Options", 119579, 2862}, {"TabNext", 119752, 2866}, {"Nothing", 120619, 2885}, {"Examples", 120928, 2892}, {"Source & Additional Information", 121115, 2896}, {"Contributed By", 121306, 2900}, {"Keywords", 121478, 2904}, {"Categories", 121646, 2908}, {"Related Symbols", 121820, 2912}, {"Related Resource Objects", 122009, 2916}, {"Source/Reference Citation", 122208, 2920}, {"Links", 122388, 2924}, {"Tests", 122548, 2928}, {"Author Notes", 122714, 2932}, {"Submission Notes", 122888, 2936} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 51, 1, 70, "Title",ExpressionUUID->"1d9af7f1-e386-4f1c-969e-0e5765b0cb15", CellTags->"Title"], Cell[612, 23, 116, 3, 70, "Text",ExpressionUUID->"a112fd78-6d08-4c4b-89dd-8b924ffbe97a", CellTags->"Description"], Cell[CellGroupData[{ Cell[753, 30, 887, 21, 70, "Section",ExpressionUUID->"3db9ccac-7e11-41d8-bd70-aca30cc222b5", CellTags->"Definition", CellID->474513213], Cell[1643, 53, 2194, 63, 70, "Input",ExpressionUUID->"99350395-cfa0-46c7-afff-00c5004db4d2", InitializationCell->True], Cell[3840, 118, 1356, 33, 70, "Input",ExpressionUUID->"a393a1cc-ff50-44fb-a1e2-957ddda9425d", InitializationCell->True], Cell[5199, 153, 891, 25, 70, "Input",ExpressionUUID->"b546edf7-ed45-447d-bc48-8d460cf2d78a", InitializationCell->True], Cell[6093, 180, 1313, 33, 70, "Input",ExpressionUUID->"dfbb074a-b217-4c32-a2e0-0ad70c9809b7", InitializationCell->True], Cell[7409, 215, 670, 17, 70, "Input",ExpressionUUID->"6302a702-2f7b-45b9-975d-1ef97c8240a1", InitializationCell->True], Cell[8082, 234, 1855, 51, 70, "Input",ExpressionUUID->"0776a070-e6c8-4f78-89c9-2061626d39c3", InitializationCell->True], Cell[9940, 287, 832, 26, 70, "Input",ExpressionUUID->"827d160d-e110-479e-88b1-4166ed352067", InitializationCell->True], Cell[10775, 315, 1018, 26, 70, "Input",ExpressionUUID->"6226ecb0-3192-4f5e-ab51-1c1e6ee90005", InitializationCell->True] }, Open ]], Cell[11808, 344, 99, 3, 70, "Section",ExpressionUUID->"907cbd09-8c5c-4e3d-85ca-d8403064d321", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[11932, 351, 1615, 42, 70, "Subsection",ExpressionUUID->"f0df68d1-bdba-4ebe-9439-20347638c066", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[13572, 397, 95, 2, 70, "UsageInputs",ExpressionUUID->"59c3f80b-ee12-40cd-b39b-882147f42a0d"], Cell[13670, 401, 257, 8, 70, "UsageDescription",ExpressionUUID->"e4a27934-8772-49a5-8c71-d2fcea804402"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13976, 415, 1131, 24, 70, "Subsection",ExpressionUUID->"fe3d4483-015c-4078-ac98-feaf234495a9", CellTags->"Details & Options", CellID->66019318], Cell[15110, 441, 502, 17, 70, "Notes",ExpressionUUID->"ac87f5a7-fd24-422e-87c6-8db8efe90812", CellTags->"TabNext", CellID->107622986], Cell[15615, 460, 1098, 38, 70, "TableNotes",ExpressionUUID->"f2a213cf-9209-44ef-828a-63995325d9f6", CellTags->"Nothing", CellID->1010277188], Cell[16716, 500, 394, 11, 70, "Notes",ExpressionUUID->"ec410412-c9c7-4f1a-9656-8364632089ac", CellTags->"Nothing", CellID->108042399] }, Open ]], Cell[CellGroupData[{ Cell[17147, 516, 6400, 143, 70, "Section",ExpressionUUID->"55ce8076-5885-4ab6-8d4d-17f65e6c9a77", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[23572, 663, 56, 1, 70, "Subsection",ExpressionUUID->"8db4505c-359b-4c68-8bb4-d2498a053f38", CellID->285421464], Cell[23631, 666, 152, 2, 70, "Text",ExpressionUUID->"dae6d095-e0cc-4041-a36d-410070fe8477", CellID->221583938], Cell[CellGroupData[{ Cell[23808, 672, 198, 4, 70, "Input",ExpressionUUID->"e3f831e5-0f6b-4ba5-9c1e-eb43b7b98194", CellID->7099978], Cell[24009, 678, 228, 4, 70, "Output",ExpressionUUID->"75018082-468c-43ca-8133-2f66b90ea240", CellID->2009257908] }, Open ]], Cell[CellGroupData[{ Cell[24274, 687, 191, 4, 70, "Input",ExpressionUUID->"344ae554-5acb-40a0-a1ad-20300c1f2218", CellID->1190339970], Cell[24468, 693, 190, 4, 70, "Output",ExpressionUUID->"85efc80b-6cfe-4b05-9ee5-988c1e2c553c", CellID->1919237192] }, Open ]], Cell[24673, 700, 645, 20, 70, "Text",ExpressionUUID->"f59ac42b-631d-4b5d-b5da-5550a46ebe2b", CellID->974490629], Cell[CellGroupData[{ Cell[25343, 724, 292, 7, 70, "Input",ExpressionUUID->"3e90dd2e-b731-410c-b55e-567684efc8d8", CellID->1084857361], Cell[25638, 733, 521, 13, 70, "Output",ExpressionUUID->"8d1b280a-a5b6-4820-a5b8-bab33c2f116c", CellID->2013918453] }, Open ]], Cell[CellGroupData[{ Cell[26196, 751, 226, 5, 70, "Input",ExpressionUUID->"4cd39af8-aad9-4d35-a205-d64a63ac4081", CellID->1087546116], Cell[26425, 758, 141, 3, 70, "Output",ExpressionUUID->"f00134d0-e9ac-49ea-95b1-82ebfb09f917", CellID->1188820922] }, Open ]], Cell[26581, 764, 648, 20, 70, "Text",ExpressionUUID->"e25d6771-c132-4bd1-99f3-3c2c9db1ef29", CellID->1914330819], Cell[CellGroupData[{ Cell[27254, 788, 238, 5, 70, "Input",ExpressionUUID->"06816cbe-5504-4fa3-b29f-b093cacfc711", CellID->1290225619], Cell[27495, 795, 304, 8, 70, "Output",ExpressionUUID->"d3cb401d-4cd6-4072-8806-7137c9e5122c", CellID->2019492367] }, Open ]], Cell[CellGroupData[{ Cell[27836, 808, 234, 5, 70, "Input",ExpressionUUID->"5ee88494-1e31-4b7b-8031-02f6246abe44", CellID->1619781369], Cell[28073, 815, 192, 5, 70, "Output",ExpressionUUID->"264bbdee-6f07-4aba-8ac2-2fc338bf0a5a", CellID->733478567] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28314, 826, 47, 1, 70, "Subsection",ExpressionUUID->"1ec837a6-c873-46b8-8a5d-6709e08bac74", CellID->267254639], Cell[28364, 829, 763, 23, 70, "Text",ExpressionUUID->"3a6dcd16-cdf8-479a-b08b-f224eeb3cb77", CellID->876583545], Cell[CellGroupData[{ Cell[29152, 856, 239, 6, 70, "Input",ExpressionUUID->"80f30aec-56d3-478b-9d2a-71daf3f520b2", CellID->908345087], Cell[29394, 864, 272, 7, 70, "Output",ExpressionUUID->"bfc4ce1d-5f39-4c45-a15a-22d2acb043c5", CellID->1359737663] }, Open ]], Cell[29681, 874, 330, 8, 70, "Text",ExpressionUUID->"8c7225d5-c270-499c-be21-e815129538a1", CellID->1118121473], Cell[CellGroupData[{ Cell[30036, 886, 208, 5, 70, "Input",ExpressionUUID->"8107177c-0478-4d6d-af2f-7d1e1acd4f2a", CellID->334372553], Cell[30247, 893, 183, 3, 70, "Output",ExpressionUUID->"68f7dc36-6f22-4967-a6c9-053bfda2f335", CellID->2021182115] }, Open ]], Cell[CellGroupData[{ Cell[30467, 901, 176, 4, 70, "Input",ExpressionUUID->"31ee0493-ef66-48e9-8edc-6ce65185cfac", CellID->1304196213], Cell[30646, 907, 142, 3, 70, "Output",ExpressionUUID->"1af46afa-1963-4d17-b77d-7a244cb363c0", CellID->1536385633] }, Open ]], Cell[CellGroupData[{ Cell[30825, 915, 215, 5, 70, "Input",ExpressionUUID->"98d44430-b4a0-4ff5-96b2-2a89c374aa05", CellID->651862862], Cell[31043, 922, 142, 3, 70, "Output",ExpressionUUID->"9da320b3-7d00-428e-9a32-0c5d3d3ea203", CellID->629549627] }, Open ]], Cell[31200, 928, 214, 5, 70, "Text",ExpressionUUID->"672c0e13-f963-412e-ab26-320aa91ec094", CellID->306784732], Cell[CellGroupData[{ Cell[31439, 937, 238, 6, 70, "Input",ExpressionUUID->"04b1d373-c91f-4bdd-8ac2-1f9dded11fd7", CellID->9375209], Cell[31680, 945, 155, 3, 70, "Output",ExpressionUUID->"d1537461-72b4-40ad-86f5-54477d210794", CellID->1589133153] }, Open ]], Cell[CellGroupData[{ Cell[31872, 953, 187, 4, 70, "Input",ExpressionUUID->"290d4177-134f-4b3d-aad3-eaadd5b90db9", CellID->661325983], Cell[32062, 959, 118, 3, 70, "Output",ExpressionUUID->"f65dc27d-e448-4a04-911f-f4c5ce615cfe", CellID->213419694] }, Open ]], Cell[CellGroupData[{ Cell[32217, 967, 183, 4, 70, "Input",ExpressionUUID->"8dcfe34e-cbb0-4b43-882c-cd4eb948d172", CellID->123313016], Cell[32403, 973, 140, 3, 70, "Output",ExpressionUUID->"98399f96-9733-4105-a992-8a1f9380f7ee", CellID->1678753480] }, Open ]], Cell[32558, 979, 643, 20, 70, "Text",ExpressionUUID->"5d782959-ea6b-4f17-b918-91b4c00bc6bf", CellID->342610839], Cell[CellGroupData[{ Cell[33226, 1003, 396, 9, 70, "Input",ExpressionUUID->"211c2365-667e-4608-9424-9657cb85eb15", CellID->740961685], Cell[33625, 1014, 470, 11, 70, "Output",ExpressionUUID->"bda2f07f-cfd0-4a44-ac97-7364f5005d79", CellID->1480446426] }, Open ]], Cell[CellGroupData[{ Cell[34132, 1030, 223, 5, 70, "Input",ExpressionUUID->"05cae52c-d4dd-43a2-be34-cfa6eeae51d6", CellID->731208818], Cell[34358, 1037, 119, 3, 70, "Output",ExpressionUUID->"55a990bf-8898-4364-8181-57d4d491d19a", CellID->1107467074] }, Open ]], Cell[CellGroupData[{ Cell[34514, 1045, 191, 4, 70, "Input",ExpressionUUID->"a6ebb493-e75f-41b6-bdcd-47c2ac63c0c7", CellID->1128195591], Cell[34708, 1051, 139, 3, 70, "Output",ExpressionUUID->"2a12af67-80f0-4935-8708-52d8bae76fd6", CellID->580165697] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34896, 1060, 53, 1, 70, "Subsection",ExpressionUUID->"983ebb9c-5455-47cd-8e1c-1dcef878597a", CellID->20767984], Cell[34952, 1063, 213, 3, 70, "Text",ExpressionUUID->"a8c8634f-4753-453d-9fc0-034ca569952a", CellID->1039493336], Cell[CellGroupData[{ Cell[35190, 1070, 254, 7, 70, "Input",ExpressionUUID->"5fc1a4a1-c1cf-423c-8795-b5251766c998", CellID->470522550], Cell[35447, 1079, 362, 9, 70, "Message",ExpressionUUID->"dd37214f-a0e5-4f2e-bbc1-6e796ed5badc", CellID->1070506725], Cell[35812, 1090, 143, 3, 70, "Output",ExpressionUUID->"877093c2-ce0b-47d6-b88e-6056503ff808", CellID->388532509] }, Open ]], Cell[35970, 1096, 349, 10, 70, "Input",ExpressionUUID->"df3cd081-9862-4c95-84c6-aca7457150d9", CellID->1494548066], Cell[CellGroupData[{ Cell[36344, 1110, 210, 5, 70, "Input",ExpressionUUID->"0f1c6f6c-b07f-4a61-bd1e-f2635b396409", CellID->1520505813], Cell[36557, 1117, 146, 3, 70, "Output",ExpressionUUID->"8acbbc3e-1d1b-463d-8e8f-2c836f668db3", CellID->1963618615] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36752, 1126, 56, 1, 70, "Subsection",ExpressionUUID->"206f1991-8b81-4abf-9de1-bec20085254d", CellID->95944414], Cell[36811, 1129, 193, 5, 70, "Text",ExpressionUUID->"54c25a46-5145-4e76-a90b-042db44ba63a", CellID->629214689], Cell[CellGroupData[{ Cell[37029, 1138, 336, 9, 70, "Input",ExpressionUUID->"0f715c56-286f-41a1-b73c-924647e33d81", CellID->1387227139], Cell[37368, 1149, 446, 11, 70, "Message",ExpressionUUID->"75f9e6ba-c9cb-4338-8d71-67c8fe10ea85", CellID->136228247], Cell[37817, 1162, 170, 4, 70, "Output",ExpressionUUID->"7fae5598-5712-4575-ba77-e4fbcc3383a3", CellID->370579627] }, Open ]], Cell[CellGroupData[{ Cell[38024, 1171, 198, 4, 70, "Input",ExpressionUUID->"e08a6561-e0ef-4966-8894-b5a995cdc168", CellID->1249759136], Cell[38225, 1177, 134, 3, 70, "Output",ExpressionUUID->"d9ad08b5-a0c0-496c-a39f-95850b6c4867", CellID->528860345] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38420, 1187, 135, 3, 70, "Section",ExpressionUUID->"f96bcd20-f133-421c-b249-30e0f820272b", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[38580, 1194, 683, 18, 70, "Subsection",ExpressionUUID->"315c4273-d71b-4bfe-8a9e-c2bc410649bf", CellTags->"Contributed By", CellID->127820888], Cell[39266, 1214, 51, 0, 70, "Text",ExpressionUUID->"5f15442c-44b0-46ba-a580-d2085b46d4a1"] }, Open ]], Cell[CellGroupData[{ Cell[39354, 1219, 684, 18, 70, "Subsection",ExpressionUUID->"4cb45370-2fcc-487a-a569-2cbc522d50f7", CellTags->"Keywords", CellID->547400482], Cell[40041, 1239, 25, 0, 70, "Item",ExpressionUUID->"1e3c2ad7-2a84-46dd-a77b-98006ac6296a"], Cell[40069, 1241, 20, 0, 70, "Item",ExpressionUUID->"a8159f55-76a1-4080-b047-8ec4dc4dd11d"], Cell[40092, 1243, 20, 0, 70, "Item",ExpressionUUID->"835c8cad-3a1c-400b-a870-29b6050fd746"] }, Open ]], Cell[CellGroupData[{ Cell[40149, 1248, 126, 4, 70, "Subsection",ExpressionUUID->"a908e906-6cef-4fd3-9e1b-6ae97c2e1f04", CellTags->"Categories", CellID->749076926], Cell[40278, 1254, 41, 0, 70, "Item",ExpressionUUID->"2bdedd6d-d94a-459f-973f-a842558ec3a5"], Cell[40322, 1256, 40, 0, 70, "Item",ExpressionUUID->"c23e8c48-8fa1-4b56-b2ab-6a19eddf2bb7"], Cell[40365, 1258, 37, 0, 70, "Item",ExpressionUUID->"8444660e-a4c1-4f77-ac61-92b8681541f9"] }, Open ]], Cell[CellGroupData[{ Cell[40439, 1263, 661, 18, 70, "Subsection",ExpressionUUID->"0589a5ba-193f-4ad8-b7f6-6ccd56539001", CellTags->"Related Symbols", CellID->161079978], Cell[41103, 1283, 501, 8, 70, "Item",ExpressionUUID->"15c042da-48b3-426d-a699-dfd31e76e067", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[41641, 1296, 711, 18, 70, "Subsection",ExpressionUUID->"5feacceb-280b-4fdc-aa19-f836bf1df96c", CellTags->"Related Resource Objects", CellID->588449267], Cell[42355, 1316, 29, 0, 70, "Item",ExpressionUUID->"ebe86d74-cf7d-40c3-a48a-223384b6881a"] }, Open ]], Cell[CellGroupData[{ Cell[42421, 1321, 762, 19, 70, "Subsection",ExpressionUUID->"a22ab5f1-63f7-4544-8352-2b1e12611163", CellTags->"Source/Reference Citation", CellID->642091068], Cell[43186, 1342, 496, 8, 70, "Text",ExpressionUUID->"10804739-df91-4e50-a40d-47b5f64e86a8", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[43719, 1355, 614, 18, 70, "Subsection",ExpressionUUID->"252cf142-c8fc-4343-8353-4c17c320069f", CellTags->"Links", CellID->521525586], Cell[44336, 1375, 485, 8, 70, "Item",ExpressionUUID->"a115e9f6-6968-436f-b6b2-17adb55e054f", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[44858, 1388, 767, 20, 70, "Subsection",ExpressionUUID->"ef305a50-d555-4ffb-9522-9f05c8afec54", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[45650, 1412, 129, 4, 70, "Input",ExpressionUUID->"bd29b9ba-cc69-4d0f-a2dd-16eaf7ce05b9", CellID->667877521], Cell[45782, 1418, 93, 3, 70, "Output",ExpressionUUID->"5309684c-61ca-4499-bf31-599a60443a24", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[45936, 1428, 127, 4, 70, "Section",ExpressionUUID->"d833365f-7e71-4de8-9d36-fb8679a69946", CellTags->"Author Notes", CellID->795110225], Cell[46066, 1434, 509, 8, 70, "Text",ExpressionUUID->"c79658ef-aa38-42c4-a924-df97f44becc2", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[46612, 1447, 720, 19, 70, "Section",ExpressionUUID->"eb42f6dd-c215-413d-a703-7684230f66d5", CellTags->"Submission Notes", CellID->843283583], Cell[47335, 1468, 495, 8, 70, "Text",ExpressionUUID->"abd5620f-9a36-4da1-988d-c33c76a156d6", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)