(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 343155, 8179] NotebookOptionsPosition[ 171974, 4893] NotebookOutlinePosition[ 314840, 7589] CellTagsIndexPosition[ 313031, 7539] WindowTitle->GeneralizedDMSString | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["GeneralizedDMSString", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->466897182], Cell["\<\ Convert an angle into a customizable degree-minute-second string\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->831771808], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"GeoPosition", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "lat_", ")"}], "?", "NumericQ"}], ",", " ", RowBox[{ RowBox[{"(", "lon_", ")"}], "?", "NumericQ"}], ",", " ", "___"}], "}"}], ",", " ", "___"}], "]"}], ",", " ", "form___", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"lat", ",", " ", "lon"}], "}"}], ",", " ", "form", ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "lat_", ")"}], "?", "NumericQ"}], ",", " ", RowBox[{ RowBox[{"(", "lon_", ")"}], "?", "NumericQ"}]}], "}"}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"GeneralizedDMSString", "[", RowBox[{"ll", ",", " ", "\"\\"", ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "la_", ")"}], "?", "NumericQ"}], ",", " ", "\"\\""}], "}"}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"la", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"List", " ", "@*", " ", "First"}]}], "}"}], ",", " ", "\"\\"", ",", " ", "opts", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "la_", ")"}], "?", "NumericQ"}], ",", " ", "\"\\""}], "}"}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "la"}], "}"}], ",", " ", RowBox[{"List", " ", "@*", " ", "Last"}]}], "}"}], ",", " ", "\"\\"", ",", " ", "opts", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{ RowBox[{"(", "ll_", ")"}], "?", "NumericQ"}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ll", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"List", " ", "@*", " ", "First"}]}], "}"}], ",", " ", "\"\\"", ",", " ", "opts", ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\<\>\""}], "}"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{"x_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"GeneralizedDMSString", "[", RowBox[{"x", ",", " ", "\"\\"", ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "la_", ")"}], "?", "NumericQ"}], ",", " ", RowBox[{ RowBox[{"(", "lo_", ")"}], "?", "NumericQ"}]}], "}"}]}], ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"ll", ",", " ", "Identity"}], "}"}], ",", " ", "rest"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "la_", ")"}], "?", "NumericQ"}], ",", " ", "\"\\""}], "}"}]}], ",", " ", "form_String", ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"la", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"List", " ", "@*", " ", "First"}]}], "}"}], ",", " ", "form", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}], ",", " ", "rest"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "la_", ")"}], "?", "NumericQ"}], ",", " ", "\"\\""}], "}"}]}], ",", " ", "form_String", ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "la"}], "}"}], ",", " ", RowBox[{"List", " ", "@*", " ", "Last"}]}], "}"}], ",", " ", "form", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}], ",", " ", "rest"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{ RowBox[{"(", "ll_", ")"}], "?", "NumericQ"}], ",", " ", "form_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ll", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"List", " ", "@*", " ", "First"}]}], "}"}], ",", " ", "form", ",", " ", "opts", ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\<\>\""}], "}"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Options", "[", "GeneralizedDMSString", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "After"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "None"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}]}], "}"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "cardinalposition"}], " ", "=", " ", "\"\\""}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "cardinalsymbolspec"}], " ", "=", " ", "\"\\""}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "dmssymbolspec"}], " ", "=", " ", "\"\\""}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "form"}], " ", "=", " ", "\"\\""}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "leadingdigits"}], " ", "=", " ", "\"\\""}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "precision"}], " ", "=", " ", "\"\\""}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"GeneralizedDMSString", "::", "separatorspec"}], " ", "=", " ", "\"\\""}], ";"}]}], "Input", InitializationCell->True, CellID->894660288], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"iGeneralizedDMSString", "[", RowBox[{"in_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"iGeneralizedDMSString", "[", RowBox[{"in", ",", " ", "\"\\"", ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"iGeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", "la_", ")"}], "?", "NumericQ"}], ",", " ", RowBox[{ RowBox[{"(", "lo_", ")"}], "?", "NumericQ"}]}], "}"}], ",", " ", "selfunc_"}], "}"}], ",", " ", "form_", ",", " ", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dmssymbols", ",", " ", "seps", ",", " ", "ovcs", ",", " ", "carpos", ",", " ", "beforeorafter", ",", " ", "cs", ",", " ", "lz", ",", " ", "p", ",", " ", "f", ",", " ", "latstr", ",", " ", "lonstr", ",", " ", "tmp", ",", " ", "lencs", ",", " ", "cardsymbs", ",", " ", "latlonstr", ",", " ", "lat", ",", " ", "lon"}], "}"}], ",", " ", RowBox[{ RowBox[{"lat", " ", "=", " ", RowBox[{"N", "[", "la", "]"}]}], ";", " ", RowBox[{"lon", " ", "=", " ", RowBox[{"N", "[", "lo", "]"}]}], ";", " ", RowBox[{"dmssymbols", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", "_String", ",", " ", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", "_String", "}"}], ",", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\<\>\""}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"_String", ",", " ", "_String"}], "}"}], ",", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"{", "\"\<\>\"", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"_String", ",", " ", "_String", ",", " ", "_String"}], "}"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"None", " ", "|", " ", "False"}], ",", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\<\>\"", ",", " ", "\"\<\>\""}], "}"}], ",", " ", RowBox[{"Automatic", " ", "|", " ", "True"}], ",", " ", RowBox[{"{", RowBox[{ "\"\<\[Degree]\>\"", ",", " ", "\"\<'\>\"", ",", " ", "\"\<\\\"\>\""}], "}"}], ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "dmssymbolspec"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ";", " ", RowBox[{"{", RowBox[{ "\"\<\[Degree]\>\"", ",", " ", "\"\<'\>\"", ",", " ", "\"\<\\\"\>\""}], "}"}]}]}], "]"}]}], ";", " ", RowBox[{"seps", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", "_String", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"_String", ",", " ", "_String"}], "}"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"{", "_String", "}"}], ",", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ",", " ", RowBox[{"Automatic", " ", "|", " ", "True"}], ",", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\< \>\""}], "}"}], ",", " ", RowBox[{"None", " ", "|", " ", "False"}], ",", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\<\>\""}], "}"}], ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "separatorspec"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ";", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\< \>\""}], "}"}]}]}], "]"}]}], ";", " ", RowBox[{"carpos", " ", "=", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", " ", RowBox[{"Switch", "[", RowBox[{"carpos", ",", " ", RowBox[{"After", " ", "|", " ", "Before"}], ",", " ", RowBox[{"beforeorafter", " ", "=", " ", "carpos"}], ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "cardinalposition"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ";", " ", RowBox[{"beforeorafter", " ", "=", " ", "After"}], ";"}]}], " ", "]"}], ";", " ", RowBox[{"ovcs", " ", "=", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", " ", RowBox[{"cs", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{"ovcs", ",", " ", RowBox[{"None", " ", "|", " ", "False"}], ",", " ", RowBox[{"{", RowBox[{"None", ",", " ", "None"}], "}"}], ",", " ", RowBox[{ "Automatic", " ", "|", " ", "\"\\"", " ", "|", " ", "True"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], ",", " ", "\"\\"", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], ",", " ", "\"\\"", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", "\"\\"", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{"_String", ",", " ", "_String"}], "}"}], " ", "|", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_String", ",", " ", "_String"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"_String", ",", " ", "_String"}], "}"}]}], "}"}]}], ",", " ", "ovcs", ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "cardinalsymbolspec"}], ",", " ", "ovcs"}], "]"}], ";", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], ";", " ", RowBox[{"lencs", " ", "=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"cs", ",", " ", RowBox[{ RowBox[{"{", RowBox[{"_String", ",", " ", "_String"}], "}"}], " ", "|", " ", RowBox[{"{", RowBox[{"None", ",", " ", "None"}], "}"}]}]}], "]"}], ",", " ", "2", ",", " ", "4"}], "]"}]}], ";", " ", RowBox[{"lz", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"True", " ", "|", " ", "Automatic"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", " ", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}], ",", " ", RowBox[{"_Integer", " ", "|", " ", RowBox[{"{", "_Integer", "}"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"_Integer", ",", " ", "_Integer"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}]}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}]}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"_Integer", ",", " ", "_Integer", ",", " ", "_Integer"}], "}"}], ",", " ", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"#1", ",", " ", "#1"}], "}"}], " ", "&"}], " ", ")"}], "[", RowBox[{"Abs", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_Integer", ",", " ", "_Integer"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"_Integer", ",", " ", "_Integer"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"_Integer", ",", " ", "_Integer"}], "}"}]}], "}"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", " ", RowBox[{"None", " ", "|", " ", "False"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}], ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "leadingdigits"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ";", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}]}]}], "]"}]}], ";", " ", RowBox[{"f", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "form", "]"}], " ", "===", " ", "String"}], ",", " ", RowBox[{"ToLowerCase", "[", "form", "]"}], ",", " ", "form"}], "]"}], ",", " ", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], ",", " ", "1", ",", " ", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], ",", " ", "2", ",", " ", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "Automatic"}], ",", " ", "3", ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "form"}], ",", " ", "form"}], "]"}], ";", " ", "3"}]}], "]"}]}], ";", " ", RowBox[{"p", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}], ",", " ", RowBox[{"N", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ",", " ", RowBox[{"Automatic", " ", "|", " ", "True"}], ",", " ", RowBox[{"Switch", "[", RowBox[{"f", ",", " ", "1", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "6"}], "}"}], ",", " ", "2", ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", "4"}], "}"}], ",", " ", "3", ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "3"}], "}"}]}], "]"}], ",", " ", "_Real", ",", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}], "*", RowBox[{"Ramp", "[", RowBox[{"Ceiling", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"_Real", ",", " ", "_Real"}], "}"}], ",", " ", RowBox[{"Ramp", "[", RowBox[{"Ceiling", "[", RowBox[{"OptionValue", "[", "\"\\"", "]"}], "]"}], "]"}], ",", " ", "_", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "::", "precision"}], ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}], ";", " ", RowBox[{"{", RowBox[{"3", ",", " ", "3"}], "}"}]}]}], "]"}]}], ";", " ", RowBox[{"cardsymbs", " ", "=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"lencs", " ", "==", " ", "2"}], ",", " ", "cs", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"lat", " ", "<", " ", "0"}], ",", " ", RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", " ", RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"lon", " ", "<", " ", "0"}], ",", " ", RowBox[{"cs", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", " ", RowBox[{"cs", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{"latstr", " ", "=", " ", RowBox[{"makeLatLonString", "[", RowBox[{"lat", ",", " ", "f", ",", " ", "lencs", ",", " ", RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"lz", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", "dmssymbols", ",", " ", RowBox[{"seps", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"cardsymbs", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", "beforeorafter"}], "]"}]}], ";", " ", RowBox[{"lonstr", " ", "=", " ", RowBox[{"makeLatLonString", "[", RowBox[{"lon", ",", " ", "f", ",", " ", "lencs", ",", " ", RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", RowBox[{"lz", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", " ", "dmssymbols", ",", " ", RowBox[{"seps", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"cardsymbs", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "beforeorafter"}], "]"}]}], ";", " ", RowBox[{"latlonstr", " ", "=", " ", RowBox[{"selfunc", "[", RowBox[{"{", RowBox[{"latstr", ",", " ", "lonstr"}], "}"}], "]"}]}], ";", " ", RowBox[{"latlonstr", " ", "=", " ", RowBox[{"StringRiffle", "[", RowBox[{"latlonstr", ",", " ", RowBox[{"seps", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", " ", "latlonstr"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"Options", "[", "iGeneralizedDMSString", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "After"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "None"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}]}], "}"}]}]}], "Input", InitializationCell->True, CellID->838103494], Cell[BoxData[ RowBox[{ RowBox[{"makeLatLonString", "[", RowBox[{ RowBox[{ RowBox[{"(", "ll_", ")"}], "?", "NumericQ"}], ",", " ", "form_Integer", ",", " ", "lencs_Integer", ",", " ", "precision_", ",", " ", "leadingzeros_List", ",", " ", "dmssymbols_List", ",", " ", "sep_String", ",", " ", "cardinalsymbol_", ",", " ", "beforeorafter_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "llstr", "}"}], ",", " ", RowBox[{ RowBox[{"Switch", "[", RowBox[{"form", ",", " ", "1", ",", " ", RowBox[{ RowBox[{"llstr", " ", "=", " ", RowBox[{"trimfinalperiod", "[", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"DecimalForm", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"lencs", " ", "==", " ", "2"}], ",", " ", "ll", ",", " ", RowBox[{"Abs", "[", "ll", "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"Infinity", ",", " ", "precision"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"leadingzeros", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"llstr", " ", "=", " ", RowBox[{"{", "llstr", "}"}]}], ";"}], " ", ",", " ", "2", ",", " ", RowBox[{ RowBox[{"llstr", " ", "=", " ", RowBox[{"NumberDecompose", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"lencs", " ", "==", " ", "2"}], ",", " ", "ll", ",", " ", RowBox[{"Abs", "[", "ll", "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"1", "/", "60"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", RowBox[{"Abs", "[", RowBox[{"llstr", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"llstr", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", " ", RowBox[{"leadingzeros", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", RowBox[{"trimfinalperiod", "[", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"DecimalForm", "[", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"Infinity", ",", " ", "precision"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"leadingzeros", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], ";"}], " ", ",", " ", "3", ",", " ", RowBox[{ RowBox[{"llstr", " ", "=", " ", RowBox[{"NumberDecompose", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"lencs", " ", "==", " ", "2"}], ",", " ", "ll", ",", " ", RowBox[{"Abs", "[", "ll", "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", RowBox[{"1", "/", "60"}], ",", " ", RowBox[{"1", "/", "3600"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", RowBox[{"2", " ", ";;", " ", "All"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Abs", "[", RowBox[{"llstr", "[", RowBox[{"[", RowBox[{"2", " ", ";;", " ", "All"}], "]"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"llstr", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", " ", RowBox[{"leadingzeros", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"llstr", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", " ", RowBox[{"leadingzeros", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", RowBox[{"trimfinalperiod", "[", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"DecimalForm", "[", RowBox[{ RowBox[{"llstr", "[", RowBox[{"[", "3", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"Infinity", ",", " ", "precision"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"leadingzeros", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";"}]}], " ", "]"}], ";", " ", RowBox[{"llstr", " ", "=", " ", RowBox[{"MapThread", "[", RowBox[{"StringJoin", ",", " ", RowBox[{"{", RowBox[{"llstr", ",", " ", RowBox[{"Take", "[", RowBox[{"dmssymbols", ",", " ", RowBox[{"Length", "[", "llstr", "]"}]}], "]"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{"llstr", " ", "=", " ", RowBox[{"StringRiffle", "[", RowBox[{"llstr", ",", " ", "sep"}], "]"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"beforeorafter", " ", "===", " ", "Before"}], ",", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"cardinalsymbol", " ", "=!=", " ", "None"}], ",", " ", RowBox[{ RowBox[{"llstr", " ", "=", " ", RowBox[{"StringJoin", "[", RowBox[{"cardinalsymbol", ",", " ", "sep", ",", " ", "llstr"}], "]"}]}], ";"}]}], " ", "]"}], ";"}], " ", ",", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"cardinalsymbol", " ", "=!=", " ", "None"}], ",", " ", RowBox[{ RowBox[{"llstr", " ", "=", " ", RowBox[{"StringJoin", "[", RowBox[{"llstr", ",", " ", "sep", ",", " ", "cardinalsymbol"}], "]"}]}], ";"}]}], " ", "]"}], ";"}]}], " ", "]"}], ";", " ", "llstr"}]}], "]"}]}]], "Input", InitializationCell->True, CellID->401323950], Cell[BoxData[ RowBox[{ RowBox[{"trimfinalperiod", "[", "s_String", "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"StringLength", "[", "s", "]"}], " ", ">", " ", "0"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{"s", ",", " ", RowBox[{"-", "1"}]}], "]"}], " ", "===", " ", "\"\<.\>\""}], ",", " ", RowBox[{"StringDrop", "[", RowBox[{"s", ",", " ", RowBox[{"-", "1"}]}], "]"}], ",", " ", "s"}], "]"}], ",", " ", "s"}], "]"}]}]], "Input", InitializationCell->True, CellID->601937891], Cell[BoxData[ RowBox[{ RowBox[{"padLeadingZeros", "[", RowBox[{"num_String", ",", " ", "n_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "len", "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"StringStartsQ", "[", RowBox[{"num", ",", " ", "\"\<-\>\""}], "]"}], ",", " ", RowBox[{"StringJoin", "[", RowBox[{"\"\<-\>\"", ",", " ", RowBox[{"padLeadingZeros", "[", RowBox[{ RowBox[{"StringDrop", "[", RowBox[{"num", ",", " ", "1"}], "]"}], ",", " ", "n"}], "]"}]}], "]"}], ",", " ", RowBox[{ RowBox[{"len", " ", "=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"StringContainsQ", "[", RowBox[{"num", ",", " ", "\"\<.\>\""}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"num", ",", " ", "\"\<.\>\"", ",", " ", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "-", " ", "1"}], ",", " ", RowBox[{"StringLength", "[", "num", "]"}]}], "]"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"len", " ", "<", " ", "n"}], ",", " ", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"\"\<0\>\"", ",", " ", RowBox[{"n", " ", "-", " ", "len"}]}], "]"}], ",", " ", "num"}], "]"}], ",", " ", "num"}], "]"}]}]}], "]"}]}], "]"}]}]], "Input", InitializationCell->True, CellID->820960006] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", StyleBox["\[Theta]", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->491209017], Cell[TextData[{ "converts the angle ", Cell[BoxData[ StyleBox["\[Theta]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in decimal degrees to a DMS string." }], "UsageDescription", CellID->927165947] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ StyleBox["\[Theta]", "TI"], ",", StyleBox["form", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->816043252], Cell[TextData[{ "converts the angle ", Cell[BoxData[ StyleBox["\[Theta]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in decimal degrees to a ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " string." }], "UsageDescription", CellID->284877791] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"{", RowBox[{ StyleBox["lat", "TI"], ",", StyleBox["lon", "TI"]}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->220400300], Cell[TextData[{ "converts latitude ", Cell[BoxData[ StyleBox["lat", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and longitude ", Cell[BoxData[ StyleBox["lon", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in decimal degrees to a DMS latitude-longitude string." }], "UsageDescription", CellID->769684917] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ StyleBox["lat", "TI"], ",", StyleBox["lon", "TI"]}], "}"}], ",", StyleBox["form", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->990860711], Cell[TextData[{ "converts latitude ", Cell[BoxData[ StyleBox["lat", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and longitude ", Cell[BoxData[ StyleBox["lon", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in decimal degrees to a ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " latitude-longitude string." }], "UsageDescription", CellID->509258482] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{ TagBox[ ButtonBox[ StyleBox["GeoPosition", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/GeoPosition", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{"{", RowBox[{ StyleBox["lat", "TI"], ",", StyleBox["lon", "TI"]}], "}"}], "]"}], ",", StyleBox["form", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->651407643], Cell[TextData[{ "converts a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["GeoPosition", "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/GeoPosition", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to a ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " latitude-longitude string." }], "UsageDescription", CellID->341716589] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"{", RowBox[{ StyleBox["\[Theta]", "TI"], ",", "\"\\""}], "}"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " formats the angle ", Cell[BoxData[ StyleBox["\[Theta]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as a latitude." }], "Notes", CellID->367151171], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"{", RowBox[{ StyleBox["\[Theta]", "TI"], ",", "\"\\""}], "}"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " formats the angle ", Cell[BoxData[ StyleBox["\[Theta]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as a longitude." }], "Notes", CellID->549217331], Cell[TextData[{ Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be one of the following:" }], "Notes", CellID->535308954], Cell[BoxData[GridBox[{ {Cell[TextData[{ "\"DegreeMinuteSecond\" or \"DMS\" or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell[ "forms a string with degrees, minutes and seconds", "TableText"]}, {Cell["\"DegreeMinute\" or \"DM\"", "TableText"], Cell[ "forms a string with degrees and minutes", "TableText"]}, {Cell["\"Degree\" or \"D\"", "TableText"], Cell[ "forms a string with degrees", "TableText"]} }]], "TableNotes", CellID->166646001], Cell[TextData[{ Cell[BoxData["GeneralizedDMSString"], "InlineFormula", FontFamily->"Source Sans Pro"], " has the following options:" }], "Notes", CellID->985920442], Cell[BoxData[GridBox[{ {Cell["\"DMSSymbols\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "symbols to use for degree, minute and seconds", "TableText"]}, {Cell["\"CardinalSymbols\"", "TableText"], Cell["\"NESW\"", "TableText"], Cell["cardinal symbols to use", "TableText"]}, {Cell["\"CardinalPosition\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["After", "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/After", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "location of the cardinal symbols with respect to the numbers", "TableText"]}, {Cell["\"LeadingDigits\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["None", "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/None", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ number of digits before the period, padded with zeros on the left\ \>", "TableText"]}, {Cell["\"Precision\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "number of digits after the period for the last number", "TableText"]}, {Cell["\"Separators\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ separators to use between degrees, minutes and seconds parts and between the latitude and longitude parts\ \>", "TableText"]} }]], "TableNotes", CellID->39107159], Cell[TextData[{ "Possible forms for the options ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->330898909], Cell[BoxData[GridBox[{ {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell[ "uses \[Degree] for degrees, ' for minute and \" for seconds", "TableText"]}, {Cell[TextData[Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for degrees, minutes and seconds" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", StyleBox["d", "TI"], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["d", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for degrees and nothing for minutes and seconds" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["d", "TI"], ",", StyleBox["m", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["d", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for degrees, ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for minutes and nothing for seconds" }], "TableText"]}, {Cell[TextData[{ "{", Cell[BoxData[ StyleBox["d", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "}" }], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["d", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for degrees, ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for minutes and ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for seconds" }], "TableText"]}, {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["None", "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/None", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell["uses no symbols", "TableText"]} }]], "TableNotes", CellID->187422412], Cell[TextData[{ "Possible forms for the option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->957205335], Cell[BoxData[GridBox[{ {Cell[TextData[{ Cell[BoxData[ RowBox[{"\"\\"", " "}]], "InlineFormula", FontFamily->"Source Sans Pro"], "or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell[ "\"N\" for north, \"E\" for east, \"S\" for south, \"W\" for west", "TableText"]}, {Cell["\"NorthEastSouthWest\"", "TableText"], Cell["\<\ \"North\" for north, \"East\" for east, \"South\" for south, \"West\" for west\ \>", "TableText"]}, {Cell["\"NE\"", "TableText"], Cell["\<\ \"N\" for latitude, \"E\" for longitude; signs are used to indicate south and \ west\ \>", "TableText"]}, {Cell["\"NorthEast\"", "TableText"], Cell[TextData[{ Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " for latitude, \"East\" for longitude; signs are used to indicate south \ and west" }], "TableText"]}, {Cell[TextData[{ "{", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "}" }], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for latitude, and ", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for longitude; signs are used to indicate south and west" }], "TableText"]}, {Cell[TextData[{ "{{", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "},{", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ StyleBox["w", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "}}" }], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for north, ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for south, ", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for east, ", Cell[BoxData[ StyleBox["w", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for west" }], "TableText"]}, {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["None", "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/None", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell["\<\ uses no cardinal symbols; signs are used to indicate the hemispheres\ \>", "TableText"]} }]], "TableNotes", CellID->206467032], Cell[TextData[{ "Possible forms for the option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->16104591], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Before", "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/Before", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ cardinal symbols are placed before the degrees, minutes and seconds\ \>", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["After", "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/After", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ cardinal symbols are placed after the degrees, minutes and seconds\ \>", "TableText"]} }]], "TableNotes", CellID->53669101], Cell[TextData[{ "Possible forms for the option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->570469990], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " digits for the degrees in the latitude and the longitude" }], "TableText"]}, {Cell[TextData[{ "{", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "}" }], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " digits for the degrees in the latitude and the longitude" }], "TableText"]}, {Cell[TextData[{ "{", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "}" }], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " digits for the degrees and ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the minutes" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["m", "TI"], ",", StyleBox["o", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " digits for the degrees, ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the minutes and ", Cell[BoxData[ StyleBox["o", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the seconds" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]], " ", "or", " ", ButtonBox[ StyleBox["None", "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/None", ContentPadding->False]}], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "uses no leading zeros", "TableText"]}, {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell["\<\ uses two digits for the degree part of the latitude and three for the degree \ part of the longitude\ \>", "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["n", "TI"], StyleBox["lat", "TI"]], ",", SubscriptBox[ StyleBox["n", "TI"], StyleBox["lon", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["m", StyleBox["lat", "TI"]], ",", SubscriptBox[ StyleBox["m", "TI"], StyleBox["lon", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["o", "TI"], StyleBox["lat", "TI"]], ",", SubscriptBox[ StyleBox["o", "TI"], StyleBox["lon", "TI"]]}], "}"}]}], "}"}]]]], "TableText"], Cell["\<\ specification for the general case for the degrees, minutes and seconds for both the latitude and the longitude\ \>", "TableText"]} }]], "TableNotes", CellID->854316846], Cell[TextData[{ "Possible forms for the option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->244230029], Cell[BoxData[GridBox[{ {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell[TextData[{ "uses six digits for the ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " \"Degree\", four digits for the ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " \"DegreeMinute\" and three for the ", Cell[BoxData[ StyleBox["form", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " \"DegreeMinuteSecond\"" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " digits for the last number of both the latitude and the longitude" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["n", "TI"], StyleBox["lat", "TI"]], ",", SubscriptBox[ StyleBox["n", "TI"], StyleBox["lon", "TI"]]}], "}"}]]]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ SubscriptBox[ StyleBox["n", "TI"], StyleBox["lat", "TI"]]]], " digits for the last number of the latitude and ", Cell[BoxData[ SubscriptBox[ StyleBox["n", "TI"], StyleBox["lon", "TI"]]]], " for the last number of the longitude" }], "TableText"]} }]], "TableNotes", CellID->887482393], Cell[TextData[{ "Possible forms for the option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->958583275], Cell[BoxData[GridBox[{ {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell["\<\ uses no separator for degree, minute and seconds and a space to separate the \ latitude and longitude\ \>", "TableText"]}, {Cell[TextData[Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to separate the degree, minute and seconds and the latitude and \ longitude parts" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", StyleBox["s", "TI"], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to separate the degree, minute and seconds and the latitude and \ longitude parts" }], "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["s", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["s", "TI"], StyleBox["2", "TR"]]}], "}"}]]]], "TableText"], Cell[TextData[{ "uses ", Cell[BoxData[ SubscriptBox[ StyleBox["s", "TI"], StyleBox["1", "TR"]]]], "to separate the degree, minute and seconds and ", Cell[BoxData[ SubscriptBox[ StyleBox["s", "TI"], StyleBox["2", "TR"]]]], " for the latitude and longitude parts" }], "TableText"]}, {Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["None", "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/None", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"], Cell["uses no separators", "TableText"]} }]], "TableNotes", CellID->149577116], Cell[TextData[{ "Angles in radians can be converted to degrees for use in ", Cell[BoxData["GeneralizedDMSString"], "InlineFormula", FontFamily->"Source Sans Pro"], " by dividing by ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Degree", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Degree", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->750620294] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Convert an angle in a DMS string:", "Text", TaggingRules->{}, CellChangeTimes->{{3.768149187563402*^9, 3.7681491966810703`*^9}}, CellID->738844701], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", "52.22", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768149203774139*^9, 3.7681492231226587`*^9}, { 3.768150542774605*^9, 3.7681505800441093`*^9}, {3.7681510017754717`*^9, 3.768151002192387*^9}}, CellLabel->"In[131]:=", CellID->594350295], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7681505804090757`*^9, 3.768150761039081*^9, 3.768150820420088*^9, 3.768150856834914*^9, {3.768150998691614*^9, 3.768151002654747*^9}, 3.768151840679824*^9, 3.76847689233256*^9, 3.76847791201235*^9, 3.768478389820217*^9, 3.7695385050055113`*^9, 3.769538904598331*^9}, CellLabel->"Out[131]=", CellID->118345501] }, Open ]], Cell["Convert a latitude-longitude pair:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767303270869808*^9, 3.767303311777597*^9}, { 3.7684779699337387`*^9, 3.7684779720866613`*^9}}, CellID->883803022], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", RowBox[{"-", "6.89`"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7673031062225113`*^9, 3.767303116990251*^9}, 3.767478615358474*^9, {3.768149043939719*^9, 3.768149061799264*^9}, { 3.7681491001694193`*^9, 3.768149123879229*^9}, {3.7681492384099207`*^9, 3.768149238861455*^9}, {3.768150961171667*^9, 3.768150988039916*^9}}, CellLabel->"In[132]:=", CellID->631117126], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"S 6\[Degree]53'24.000\\\"W\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{ 3.7673031176522083`*^9, {3.767303218745606*^9, 3.7673032475160437`*^9}, { 3.767303309533763*^9, 3.767303312733918*^9}, 3.767478791491768*^9, 3.7674801449139*^9, 3.767567853491458*^9, 3.767567884500033*^9, { 3.768146412251115*^9, 3.768146437393298*^9}, {3.768146604151511*^9, 3.7681466243187017`*^9}, {3.768147123840988*^9, 3.7681471419786463`*^9}, 3.768148956628045*^9, {3.768149040324958*^9, 3.768149063536703*^9}, { 3.768149097887864*^9, 3.768149124348625*^9}, 3.76814923936567*^9, 3.7681503614766693`*^9, {3.7681509885405903`*^9, 3.76815099651583*^9}, 3.768151842589147*^9, 3.768476893639915*^9, 3.768477913216785*^9, 3.768478391061232*^9, 3.769538506094702*^9, 3.769538906242288*^9}, CellLabel->"Out[132]=", CellID->334216160] }, Open ]], Cell["Convert to a string with degrees and minutes:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767303644042738*^9, 3.767303677410616*^9}}, CellID->120159222], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.2233445566", ",", "6.89012345678"}], "}"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767303573000578*^9, 3.7673036172784843`*^9}, { 3.767303668638879*^9, 3.76730366939491*^9}, 3.767478615957025*^9, { 3.7674801534396276`*^9, 3.767480154260116*^9}, {3.767567894952932*^9, 3.767567896046894*^9}}, CellLabel->"In[133]:=", CellID->915118806], Cell[BoxData["\<\"52\[Degree]13.4007'N 6\[Degree]53.4074'E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767303582982596*^9, 3.76730361780867*^9}, { 3.767303670140587*^9, 3.7673036784560547`*^9}, 3.7674788003729973`*^9, 3.767479040416088*^9, {3.767480146295197*^9, 3.767480155367051*^9}, 3.767567854632761*^9, {3.767567886259739*^9, 3.767567900154602*^9}, 3.768147052907031*^9, 3.7681491306662273`*^9, 3.7681503659284286`*^9, 3.768151844281724*^9, 3.7684768951355743`*^9, {3.768478363102954*^9, 3.768478392762434*^9}, 3.769538333618513*^9, 3.769538507180661*^9, 3.7695389071827507`*^9}, CellLabel->"Out[133]=", CellID->160155750] }, Open ]], Cell["Convert to a string with only degrees:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767303644042738*^9, 3.767303658622967*^9}}, CellID->830781065], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.2233445566", ",", "6.89012345678"}], "}"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767303573000578*^9, 3.7673036172784843`*^9}, 3.767478616555972*^9, {3.767567897844569*^9, 3.7675678991089897`*^9}}, CellLabel->"In[134]:=", CellID->668101718], Cell[BoxData["\<\"52.223345\[Degree]N 6.890123\[Degree]E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767303582982596*^9, 3.76730361780867*^9}, { 3.767303674073641*^9, 3.7673036795899897`*^9}, 3.76747880255917*^9, { 3.767480147803996*^9, 3.767480160526546*^9}, {3.767567888735298*^9, 3.767567901531497*^9}, 3.768149132406611*^9, 3.768151845557398*^9, 3.768476897455537*^9, {3.7684783641387377`*^9, 3.768478393960203*^9}, 3.769538335470447*^9, 3.7695385084933662`*^9, 3.7695389089138203`*^9}, CellLabel->"Out[134]=", CellID->134563591] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ "Use a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["GeoPosition", "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/GeoPosition", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " instead: " }], "Text", TaggingRules->{}, CellChangeTimes->{{3.767303511252442*^9, 3.767303516967821*^9}, { 3.767303554224113*^9, 3.7673035642545958`*^9}, {3.767303757788718*^9, 3.76730376084076*^9}}, CellID->916338826], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"GeoPosition", "[", RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767303485090798*^9, 3.767303503995735*^9}, 3.767478618117785*^9, {3.76748016203034*^9, 3.767480163944768*^9}}, CellLabel->"In[135]:=", CellID->891807300], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"N 6\[Degree]53'24.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.7673034857618237`*^9, 3.767303504869549*^9}, 3.7673037630753508`*^9, 3.767478805139048*^9, {3.76748014965285*^9, 3.76748016433463*^9}, {3.7675678909841347`*^9, 3.7675679038929234`*^9}, 3.7681470583771257`*^9, 3.768149134299757*^9, 3.768151848527671*^9, { 3.768413810655197*^9, 3.768413820007825*^9}, 3.76847690022987*^9, 3.768478397126986*^9, 3.769538511072866*^9, 3.769538911279965*^9}, CellLabel->"Out[135]=", CellID->147475400] }, Open ]], Cell["Convert only a latitude into a DMS string:", "Text", TaggingRules->{}, CellChangeTimes->{{3.768149187563402*^9, 3.7681491966810703`*^9}, { 3.768149268472821*^9, 3.768149274875927*^9}, 3.7776493646870346`*^9}, CellID->256517032], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "52.22"}], ",", "\"\\""}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7681492778745947`*^9, 3.7681492800116453`*^9}, { 3.768477921141621*^9, 3.7684779271642942`*^9}}, CellLabel->"In[136]:=", CellID->474180865], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"S\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7681492785741034`*^9, 3.768149280362999*^9}, 3.76815092117179*^9, 3.768151857110611*^9, {3.768413808035164*^9, 3.768413823340045*^9}, 3.768476901692127*^9, {3.7684779216045103`*^9, 3.768477931412489*^9}, 3.7684783983301086`*^9, 3.769538512178114*^9, 3.769538912710618*^9}, CellLabel->"Out[136]=", CellID->259172889] }, Open ]], Cell["Convert only a longitude into a DMS string:", "Text", TaggingRules->{}, CellChangeTimes->{{3.768149187563402*^9, 3.7681491966810703`*^9}, { 3.768149268472821*^9, 3.768149303462241*^9}, 3.7776493675112867`*^9}, CellID->371368961], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.89`"}], ",", "\"\\""}], "}"}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "Before"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768149286881908*^9, 3.768149312553836*^9}, { 3.768151863057652*^9, 3.7681519118720407`*^9}, {3.768477945382229*^9, 3.768477945584343*^9}, {3.769538341410001*^9, 3.7695383449566727`*^9}, { 3.769538389386026*^9, 3.769538390285494*^9}, {3.76953851735819*^9, 3.769538526984543*^9}}, CellLabel->"In[137]:=", CellID->761489365], Cell[BoxData["\<\"West6\[Degree]53'24.000\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.768149310303019*^9, 3.768149312962401*^9}, { 3.768151858773365*^9, 3.7681519173056927`*^9}, 3.768413812574087*^9, 3.768476903454652*^9, 3.768477946049819*^9, 3.7684783994737167`*^9, { 3.76953826457511*^9, 3.769538276065673*^9}, {3.769538338581954*^9, 3.769538345754734*^9}, 3.769538390660948*^9, {3.7695385133042192`*^9, 3.769538527482435*^9}, 3.769538913582299*^9}, CellLabel->"Out[137]=", CellID->56830477] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell["DMSSymbols", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.777649428858319*^9, 3.777649431252837*^9}}, CellID->658240480], Cell["Use different symbols for degrees, minutes and seconds:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767304045262279*^9, 3.767304064777926*^9}, 3.7776493861947236`*^9}, CellID->972051145], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\< deg\>\"", ",", "\"\< min\>\"", ",", "\"\< sec\>\""}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\< \>\"", ",", "\"\<, \>\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767303975019359*^9, 3.767303982016111*^9}, { 3.767304068368116*^9, 3.767304097618834*^9}, {3.767304154583063*^9, 3.7673041599022083`*^9}, 3.7674786187415648`*^9, {3.767480172609889*^9, 3.7674801935560913`*^9}, {3.7675679076385803`*^9, 3.7675679084565687`*^9}, {3.768147078405237*^9, 3.768147080210832*^9}}, CellLabel->"In[138]:=", CellID->624784960], Cell[BoxData["\<\"52 deg 13 min 12.000 sec N, 6 deg 53 min 24.000 sec \ E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767304074728982*^9, 3.767304097943218*^9}, 3.767304160455996*^9, 3.7674788252479677`*^9, {3.767480167302642*^9, 3.767480199889556*^9}, 3.767567908831856*^9, {3.76814706166636*^9, 3.768147080842774*^9}, 3.7681491366628227`*^9, 3.768151933807378*^9, 3.768476907319028*^9, 3.768478413120302*^9, 3.769538531121717*^9, 3.769538916260848*^9}, CellLabel->"Out[138]=", CellID->29525668] }, Open ]], Cell["Use no symbols for degrees, minutes and seconds:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767304045262279*^9, 3.767304064777926*^9}, { 3.76730418493058*^9, 3.7673041851988697`*^9}, 3.7776493887181573`*^9}, CellID->542720561], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\< \>\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7673041754627743`*^9, 3.767304176129184*^9}, 3.767478619291259*^9, {3.7674802180431747`*^9, 3.767480229115893*^9}, { 3.7675679125716057`*^9, 3.767567913312387*^9}}, CellLabel->"In[139]:=", CellID->392235165], Cell[BoxData["\<\"52 13 12.000 N 6 53 24.000 E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7673041765793447`*^9, 3.767304189210182*^9}, 3.767478826326766*^9, 3.76748016855532*^9, {3.767480206556682*^9, 3.767480229483755*^9}, 3.767567913628743*^9, 3.768147070882876*^9, 3.768149139397818*^9, 3.768151937173376*^9, 3.7684769097509413`*^9, 3.7684784141591473`*^9, 3.7695385324660883`*^9, 3.769538918489555*^9}, CellLabel->"Out[139]=", CellID->381914099] }, Open ]], Cell["Use the default symbols for degrees, minutes and seconds:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767304045262279*^9, 3.767304064777926*^9}, { 3.76730418493058*^9, 3.7673041851988697`*^9}, {3.767304242442481*^9, 3.767304243801477*^9}, 3.767480170346127*^9, {3.767480204112331*^9, 3.767480212021274*^9}, 3.7776493916213675`*^9}, CellID->728476533], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7673041754627743`*^9, 3.767304176129184*^9}, { 3.767304237488172*^9, 3.767304238557684*^9}, 3.767478619785537*^9, { 3.767567917457135*^9, 3.767567918306312*^9}}, CellLabel->"In[140]:=", CellID->224421016], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"N 6\[Degree]53'24.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.7673041765793447`*^9, 3.767304189210182*^9}, { 3.7673042390229893`*^9, 3.76730424593956*^9}, 3.767478827362252*^9, { 3.7674802136949*^9, 3.767480232453652*^9}, {3.767567915556279*^9, 3.7675679187093067`*^9}, 3.7681470855337343`*^9, 3.76814914234851*^9, 3.76815194738758*^9, 3.768476910850659*^9, 3.7684784152217007`*^9, 3.7695385337428427`*^9, 3.7695389194733686`*^9}, CellLabel->"Out[140]=", CellID->242029567] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CardinalSymbols", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.76730495280275*^9, 3.767304953689806*^9}, {3.777649433554412*^9, 3.7776494353153296`*^9}}, CellID->993061085], Cell["Use no cardinal indicators:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305274032494*^9}, 3.767476940203534*^9}, CellID->918717084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "None"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.767305113555058*^9, 3.767305189525298*^9, 3.7674786204084*^9, { 3.7675679232364693`*^9, 3.767567924007824*^9}}, CellLabel->"In[141]:=", CellID->413390823], Cell[BoxData["\<\"-52\[Degree]13'12.000\\\" 6\[Degree]53'24.000\\\"\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{3.7673051140096617`*^9, 3.767305195515711*^9, 3.7674788293861237`*^9, 3.767480234953908*^9, 3.7675679244287653`*^9, 3.76756800541429*^9, 3.768147088372225*^9, 3.768149144948309*^9, 3.768152057912541*^9, 3.76815209290009*^9, 3.768476913964039*^9, 3.768478417629966*^9, 3.769538536489225*^9, 3.7695389214071827`*^9}, CellLabel->"Out[141]=", CellID->313376073] }, Open ]], Cell["\<\ Use N for the latitude and E for the longitude; signs indicate the hemisphere:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305363845862*^9}, { 3.769538569791993*^9, 3.7695385702530193`*^9}, {3.777649471633848*^9, 3.777649484348982*^9}}, CellID->774067188], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76730511874761*^9, 3.7673051220001307`*^9}, { 3.7673051699188843`*^9, 3.76730519139475*^9}, 3.7674786209507847`*^9, { 3.7675680028956127`*^9, 3.767568003693338*^9}, {3.769538542077716*^9, 3.769538559513547*^9}}, CellLabel->"In[142]:=", CellID->264834191], Cell[BoxData["\<\"-52\[Degree]13'12.000\\\"N 6\[Degree]53'24.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{ 3.767305122595148*^9, {3.7673051652425127`*^9, 3.767305196468821*^9}, 3.767305365086355*^9, 3.76747883040069*^9, 3.767480236881339*^9, 3.767568004064234*^9, 3.7681470944954863`*^9, 3.768149147057481*^9, 3.76815209597393*^9, 3.768476915667013*^9, 3.768478419069121*^9, { 3.769538556179963*^9, 3.769538574630323*^9}, 3.769538922711832*^9}, CellLabel->"Out[142]=", CellID->752810488] }, Open ]], Cell["\<\ Signs are removed and replaced by the proper cardinal direction:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.76730532869818*^9}, { 3.76730537429121*^9, 3.767305411209828*^9}}, CellID->665910318], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76730511874761*^9, 3.7673051220001307`*^9}, { 3.7673051699188843`*^9, 3.76730519139475*^9}, {3.767305335411873*^9, 3.767305341883836*^9}, {3.767305401312109*^9, 3.7673054020351458`*^9}, 3.767478621445166*^9, {3.767568009883523*^9, 3.767568010799696*^9}, { 3.769538562889422*^9, 3.769538563998007*^9}}, CellLabel->"In[143]:=", CellID->58740926], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"S 6\[Degree]53'24.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{ 3.767305122595148*^9, {3.7673051652425127`*^9, 3.767305196468821*^9}, 3.767305337129483*^9, 3.767305369823752*^9, 3.767305402458871*^9, 3.767478831605249*^9, 3.76748023829742*^9, 3.767568011174469*^9, 3.7681491490942173`*^9, 3.768152098859473*^9, 3.768476917322391*^9, 3.768478420017708*^9, {3.76953856438402*^9, 3.7695385764215803`*^9}, 3.769538923689252*^9}, CellLabel->"Out[143]=", CellID->775675157] }, Open ]], Cell["Use the standard four cardinal directions written fully out:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305256144767*^9}, { 3.767305515328287*^9, 3.7673055341382732`*^9}, {3.768476940801752*^9, 3.768476945602108*^9}, 3.769538584231709*^9, {3.7776494941009455`*^9, 3.7776494947375526`*^9}}, CellID->858716640], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\< \>\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7673051791196938`*^9, 3.767305193120059*^9}, { 3.7673054229968576`*^9, 3.767305430004026*^9}, {3.767305507472233*^9, 3.7673055120818*^9}, 3.767478621986889*^9, {3.767480246977519*^9, 3.7674802522570267`*^9}, {3.767568014422035*^9, 3.767568015281908*^9}, { 3.768476935565919*^9, 3.7684769381772413`*^9}, {3.7695385870124693`*^9, 3.769538587856884*^9}}, CellLabel->"In[144]:=", CellID->537899545], Cell[BoxData["\<\"52\[Degree] 13' 12.000\\\" South 6\[Degree] 53' 24.000\\\" \ East\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7673051826232443`*^9, 3.767305197282995*^9}, 3.767305431073193*^9, {3.767305512873188*^9, 3.7673055380556707`*^9}, 3.7674788326232977`*^9, {3.767480241397114*^9, 3.767480252568262*^9}, 3.767568015680402*^9, 3.768149151139826*^9, 3.768152102114464*^9, { 3.768476930345955*^9, 3.768476947684544*^9}, 3.768478421201943*^9, 3.7695385883083982`*^9, 3.76953892560448*^9}, CellLabel->"Out[144]=", CellID->143955979] }, Open ]], Cell["Use custom cardinal directions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305256144767*^9}}, CellID->502236162], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\< \>\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7673051791196938`*^9, 3.767305239909637*^9}, 3.767478622545664*^9, {3.767480258970072*^9, 3.767480259226369*^9}, { 3.767568018834792*^9, 3.767568019634652*^9}, {3.769538595954405*^9, 3.7695385977584553`*^9}}, CellLabel->"In[145]:=", CellID->443342150], Cell[BoxData["\<\"52\[Degree] 13' 12.000\\\" Zuid 6\[Degree] 53' 24.000\\\" \ Oost\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7673051826232443`*^9, 3.7673052404674892`*^9}, 3.7673055391757097`*^9, 3.767478834969158*^9, {3.7674802555013866`*^9, 3.767480265115489*^9}, 3.767568019950412*^9, 3.7681491523529663`*^9, 3.768152105582843*^9, 3.7684769505574827`*^9, 3.768478424258622*^9, 3.769538598306876*^9, 3.769538926909319*^9}, CellLabel->"Out[145]=", CellID->290140608] }, Open ]], Cell["Use a custom specification where the sign is retained:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305256144767*^9}, { 3.76730544845678*^9, 3.767305486307145*^9}}, CellID->744446935], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\< \>\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7673051791196938`*^9, 3.767305193120059*^9}, { 3.7673054229968576`*^9, 3.767305461172858*^9}, 3.767478623095798*^9, { 3.7674802622272587`*^9, 3.767480262422291*^9}, 3.767568021701112*^9}, CellLabel->"In[146]:=", CellID->946635149], Cell[BoxData["\<\"-52\[Degree] 13' 12.000\\\" Noord 6\[Degree] 53' 24.000\\\" \ Oost\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7673051826232443`*^9, 3.767305197282995*^9}, 3.767305431073193*^9, {3.767305461619463*^9, 3.767305489855262*^9}, 3.76730554080672*^9, 3.767478839262467*^9, 3.767480262791956*^9, 3.7675680221553926`*^9, 3.768149153464329*^9, 3.768152109745759*^9, 3.7684769523451853`*^9, 3.768478425704027*^9, 3.76953860066193*^9, 3.769538928718305*^9}, CellLabel->"Out[146]=", CellID->469111158] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CardinalPosition", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.76730495280275*^9, 3.767304953689806*^9}, {3.770611440333681*^9, 3.770611442222394*^9}, {3.777649518234413*^9, 3.7776495201222496`*^9}}, CellID->319240928], Cell["\<\ Place the cardinal symbols before the degrees, minutes and seconds:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305274032494*^9}, 3.767476940203534*^9, {3.769538614276835*^9, 3.769538625543524*^9}, 3.777649522523765*^9}, CellID->444854562], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "Before"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.767305113555058*^9, 3.767305189525298*^9, 3.7674786204084*^9, { 3.7675679232364693`*^9, 3.767567924007824*^9}, {3.7695386308591433`*^9, 3.7695386355913363`*^9}}, CellLabel->"In[147]:=", CellID->91403503], Cell[BoxData["\<\"S52\[Degree]13'12.000\\\" E6\[Degree]53'24.000\\\"\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{3.7673051140096617`*^9, 3.767305195515711*^9, 3.7674788293861237`*^9, 3.767480234953908*^9, 3.7675679244287653`*^9, 3.76756800541429*^9, 3.768147088372225*^9, 3.768149144948309*^9, 3.768152057912541*^9, 3.76815209290009*^9, 3.768476913964039*^9, 3.768478417629966*^9, 3.769538536489225*^9, 3.769538662583941*^9, 3.769538930845931*^9}, CellLabel->"Out[147]=", CellID->210075069] }, Open ]], Cell["\<\ Place the cardinal symbols after the degrees, minutes and seconds:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.767305232689988*^9, 3.767305363845862*^9}, { 3.769538569791993*^9, 3.7695385702530193`*^9}, {3.769538644957831*^9, 3.769538647828372*^9}, 3.777649526799159*^9}, CellID->954843311], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22`"}], ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "After"}]}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.76730511874761*^9, 3.7673051220001307`*^9}, { 3.7673051699188843`*^9, 3.76730519139475*^9}, 3.7674786209507847`*^9, { 3.7675680028956127`*^9, 3.767568003693338*^9}, {3.769538542077716*^9, 3.769538559513547*^9}, {3.7695386380577583`*^9, 3.7695386407511473`*^9}}, CellLabel->"In[148]:=", CellID->466213998], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"S 6\[Degree]53'24.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{ 3.767305122595148*^9, {3.7673051652425127`*^9, 3.767305196468821*^9}, 3.767305365086355*^9, 3.76747883040069*^9, 3.767480236881339*^9, 3.767568004064234*^9, 3.7681470944954863`*^9, 3.768149147057481*^9, 3.76815209597393*^9, 3.768476915667013*^9, 3.768478419069121*^9, { 3.769538556179963*^9, 3.769538574630323*^9}, {3.76953864110511*^9, 3.769538663843133*^9}, 3.769538932281095*^9}, CellLabel->"Out[148]=", CellID->779469617] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["LeadingDigits", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.767304958987962*^9, 3.767304960696409*^9}, {3.767305036878271*^9, 3.767305038858876*^9}, {3.77764952888894*^9, 3.7776495314414577`*^9}}, CellID->498822627], Cell["Use 3 digits for degrees:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674736768258667`*^9, 3.767473725910866*^9}}, CellID->957786531], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"3.0341666666666667`", ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767473583765168*^9, 3.767473667725573*^9}, 3.767473718836721*^9, 3.767478623824297*^9, {3.767568025292182*^9, 3.767568026226203*^9}, {3.7681521188507547`*^9, 3.7681521215219393`*^9}}, CellLabel->"In[150]:=", CellID->501438869], Cell[BoxData["\<\"003\[Degree]2'3.000\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473584422806*^9, 3.7674736335447617`*^9}, 3.767473668270002*^9, {3.767473710475193*^9, 3.767473731837782*^9}, 3.7674788414418697`*^9, 3.7674802734325647`*^9, 3.76756802657769*^9, 3.7681491561444263`*^9, {3.768152112438657*^9, 3.768152122074648*^9}, 3.768476962285927*^9, 3.768478428285891*^9, 3.769538666055879*^9, 3.769538955264998*^9}, CellLabel->"Out[150]=", CellID->309978517] }, Open ]], Cell["Use 3 digits for degrees and 2 for minutes:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674736768258667`*^9, 3.767473725910866*^9}, { 3.767473756500502*^9, 3.767473759077745*^9}, {3.7776495410718393`*^9, 3.777649561265068*^9}}, CellID->713874304], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"3.0341666666666667`", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767473583765168*^9, 3.767473667725573*^9}, 3.767473718836721*^9, {3.767473761085195*^9, 3.7674737631522417`*^9}, 3.767478624472636*^9, {3.7675680314266043`*^9, 3.7675680323320303`*^9}, { 3.7681521350477867`*^9, 3.768152137132415*^9}}, CellLabel->"In[151]:=", CellID->369061229], Cell[BoxData["\<\"003\[Degree]02'3.000\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473584422806*^9, 3.7674736335447617`*^9}, 3.767473668270002*^9, {3.767473710475193*^9, 3.767473731837782*^9}, 3.7674737635857973`*^9, 3.767478842805018*^9, 3.767480277952116*^9, 3.767568034027266*^9, 3.76814915714787*^9, {3.768152113781501*^9, 3.768152137991024*^9}, 3.768476963503141*^9, 3.768478429365901*^9, 3.7695386680984364`*^9, 3.7695389563818817`*^9}, CellLabel->"Out[151]=", CellID->794108929] }, Open ]], Cell["Use 3 digits for degrees, 2 for minutes and 2 for seconds:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674736768258667`*^9, 3.76747370875259*^9}, 3.7776495587425385`*^9}, CellID->175518802], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"3.0341666666666667`", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "2", ",", "2"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767473583765168*^9, 3.767473667725573*^9}, 3.767478624916317*^9, {3.76756803907977*^9, 3.767568039993781*^9}, { 3.7681521405703173`*^9, 3.768152143307369*^9}}, CellLabel->"In[152]:=", CellID->482754091], Cell[BoxData["\<\"003\[Degree]02'03.000\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473584422806*^9, 3.7674736335447617`*^9}, 3.767473668270002*^9, 3.767473710475193*^9, 3.7674788490236807`*^9, 3.767480284696129*^9, 3.767568040456071*^9, 3.768149158186304*^9, { 3.768152115574213*^9, 3.768152143657708*^9}, 3.768476964610854*^9, 3.768478430327112*^9, 3.769538669547237*^9, 3.7695389576397676`*^9}, CellLabel->"Out[152]=", CellID->147930703] }, Open ]], Cell["Use different specifications for the latitude and longitude:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674736768258667`*^9, 3.76747370875259*^9}, { 3.7674737734586363`*^9, 3.767473780513624*^9}, 3.76815216384858*^9}, CellID->318190755], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"3.0341666666666667`", ",", "5.017222222222222`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767473583765168*^9, 3.767473667725573*^9}, { 3.7674737876247*^9, 3.767473792231731*^9}, 3.767478625354319*^9, { 3.767568043965641*^9, 3.767568044815444*^9}}, CellLabel->"In[153]:=", CellID->815721412], Cell[BoxData["\<\"03\[Degree]02'03.000\\\"N 005\[Degree]01'02.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.767473584422806*^9, 3.7674736335447617`*^9}, 3.767473668270002*^9, 3.767473710475193*^9, 3.767473792677402*^9, 3.767478850106997*^9, 3.767480287160994*^9, 3.767568045156003*^9, 3.7681491597756147`*^9, 3.768152146044774*^9, 3.768476965959105*^9, 3.76847843172093*^9, 3.769538670678989*^9, 3.7695389596066637`*^9}, CellLabel->"Out[153]=", CellID->846613722] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Precision", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.7673050962357883`*^9, 3.767305097949357*^9}, {3.777649568572809*^9, 3.777649570340784*^9}}, CellID->730207542], Cell["\<\ Use 5 digits for the last number (in this case, the seconds):\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674738390951242`*^9, 3.7674738592896147`*^9}, 3.777649573082187*^9}, CellID->482930982], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.2231331`", ",", "6.89424342`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "5"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747381198129*^9, 3.7674738353533*^9}, 3.767478626034107*^9, {3.767568068568712*^9, 3.767568069440691*^9}}, CellLabel->"In[154]:=", CellID->557642335], Cell[BoxData["\<\"52\[Degree]13'23.27916\\\"N \ 6\[Degree]53'39.27631\\\"E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473816447133*^9, 3.7674738357902803`*^9}, 3.7674788513498697`*^9, 3.767480290196145*^9, 3.767568069815037*^9, 3.768149162566835*^9, 3.768152170082402*^9, 3.768476968775255*^9, 3.768478434731942*^9, 3.7695386732290373`*^9, 3.769538960886383*^9}, CellLabel->"Out[154]=", CellID->911339845] }, Open ]], Cell["\<\ Use 3 digits for the last number (in this case, the minutes):\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674738390951242`*^9, 3.767473883771205*^9}, 3.7776495751679654`*^9}, CellID->328990681], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.2231331`", ",", "6.89424342`"}], "}"}], ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747381198129*^9, 3.7674738353533*^9}, { 3.767473866553733*^9, 3.767473873410943*^9}, 3.7674786265122013`*^9, { 3.767568072024899*^9, 3.767568072874852*^9}}, CellLabel->"In[155]:=", CellID->171374251], Cell[BoxData["\<\"52\[Degree]13.388'N 6\[Degree]53.655'E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473816447133*^9, 3.7674738357902803`*^9}, { 3.767473871295547*^9, 3.767473884993765*^9}, 3.767478852278233*^9, 3.7674802916681337`*^9, 3.767568073204914*^9, 3.7681491637070827`*^9, 3.7681521747282476`*^9, 3.768476970109103*^9, 3.768478435900144*^9, 3.7695386747382107`*^9, 3.76953896171003*^9}, CellLabel->"Out[155]=", CellID->7986840] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Separators", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.767303943580228*^9, 3.767303965431281*^9}, { 3.767305099140707*^9, 3.767305101588121*^9}, {3.777649576880966*^9, 3.7776495790317135`*^9}}, CellID->330269613], Cell["\<\ Use underscores between degrees, minutes, seconds, latitude and longitude:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674738390951242`*^9, 3.767473883771205*^9}, { 3.7674739603162327`*^9, 3.7674739815266647`*^9}, {3.7776495885841465`*^9, 3.7776495945116906`*^9}, {3.7782333736552787`*^9, 3.778233400740298*^9}, { 3.7782545032505245`*^9, 3.7782545117319727`*^9}}, CellID->130492293], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\<_\>\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747381198129*^9, 3.7674738353533*^9}, { 3.767473866553733*^9, 3.767473873410943*^9}, {3.767473934766193*^9, 3.7674739574784718`*^9}, 3.767478627200136*^9, 3.7675680772419024`*^9}, CellLabel->"In[156]:=", CellID->546614336], Cell[BoxData["\<\"52\[Degree]_13'_12.000\\\"_N_6\[Degree]_53'_24.000\\\"_E\"\>\ "], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473816447133*^9, 3.7674738357902803`*^9}, { 3.767473871295547*^9, 3.767473884993765*^9}, {3.767473944582677*^9, 3.7674739829435043`*^9}, 3.767478854924816*^9, 3.7674802949908953`*^9, 3.767568077482703*^9, 3.768149165144528*^9, 3.768152177260351*^9, 3.768476998270687*^9, 3.768478437316009*^9, 3.769538676393095*^9, 3.769538963654859*^9}, CellLabel->"Out[156]=", CellID->493710484] }, Open ]], Cell["\<\ Use commas between degrees, minutes and seconds, and an underscore between \ the latitude and longitude:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674738390951242`*^9, 3.767473883771205*^9}, { 3.7674739603162327`*^9, 3.767474002950148*^9}, 3.7776495863084784`*^9, { 3.778254529498643*^9, 3.7782545671873245`*^9}}, CellID->175299440], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\<,\>\"", ",", "\"\<_\>\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747381198129*^9, 3.7674738353533*^9}, { 3.767473866553733*^9, 3.767473873410943*^9}, {3.767473934766193*^9, 3.7674739574784718`*^9}, {3.767474004863689*^9, 3.7674740160524178`*^9}, 3.7674786277338943`*^9, 3.767568079091387*^9}, CellLabel->"In[157]:=", CellID->793885971], Cell[BoxData["\<\"52\[Degree],13',12.000\\\",N_6\[Degree],53',24.000\\\",E\"\>\ "], "Output", TaggingRules->{}, CellChangeTimes->{{3.767473816447133*^9, 3.7674738357902803`*^9}, { 3.767473871295547*^9, 3.767473884993765*^9}, {3.767473944582677*^9, 3.767474016383209*^9}, 3.767478856041236*^9, 3.7674802964662437`*^9, 3.767568079315793*^9, 3.768149167434135*^9, 3.768152178739168*^9, 3.7684770000482273`*^9, 3.7684784394571333`*^9, 3.769538677575966*^9, 3.769538964811792*^9}, CellLabel->"Out[157]=", CellID->963905303] }, Open ]], Cell["Use no separators:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674738390951242`*^9, 3.767473883771205*^9}, { 3.7674739603162327`*^9, 3.767474031535342*^9}}, CellID->178927827], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{"52.22`", ",", "6.89`"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "None"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747381198129*^9, 3.7674738353533*^9}, { 3.767473866553733*^9, 3.767473873410943*^9}, {3.767473934766193*^9, 3.7674739574784718`*^9}, {3.767474004863689*^9, 3.7674740160524178`*^9}, { 3.7674740500182877`*^9, 3.7674740507352057`*^9}, 3.767478628268106*^9, 3.767568081413378*^9, {3.7681491686321983`*^9, 3.768149169382461*^9}}, CellLabel->"In[158]:=", CellID->120242957], Cell[BoxData["\<\"52\[Degree]13'12.000\\\"N6\[Degree]53'24.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.767473816447133*^9, 3.7674738357902803`*^9}, { 3.767473871295547*^9, 3.767473884993765*^9}, {3.767473944582677*^9, 3.767474016383209*^9}, 3.767474051133852*^9, 3.767478857216155*^9, { 3.7674802992029877`*^9, 3.767480309148343*^9}, 3.767568081775559*^9, 3.768149169824676*^9, 3.768152180629229*^9, 3.768477002435636*^9, 3.768478440489705*^9, 3.769538678781538*^9, 3.76953896577281*^9}, CellLabel->"Out[158]=", CellID->879578297] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ Make a function that produces a string generally used in geocaching:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.767474793689457*^9, 3.7674748148799667`*^9}, { 3.7674750431540127`*^9, 3.767475056573077*^9}, 3.767475292133072*^9, 3.76747692462024*^9, {3.767479264342277*^9, 3.767479268148552*^9}}, CellID->231724499], Cell[BoxData[{ RowBox[{"ClearAll", "[", "GeoCachingString", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GeoCachingString", "[", RowBox[{"gp", ":", RowBox[{"{", RowBox[{"lat_", ",", "lon_"}], "}"}]}], "]"}], ":=", RowBox[{"GeneralizedDMSString", "[", RowBox[{"gp", ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\< \>\""}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], ",", RowBox[{"\"\\"", "->", "Before"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Degree]\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7674748475125628`*^9, 3.767475010347027*^9}, { 3.767475064291461*^9, 3.767475091344309*^9}, 3.767478629158708*^9, { 3.769538686089425*^9, 3.76953869710769*^9}}, CellLabel->"In[159]:=", CellID->289275725], Cell["Apply this function to a location:", "Text", TaggingRules->{}, CellChangeTimes->{{3.767475259287747*^9, 3.767475289989757*^9}, { 3.767477153055131*^9, 3.767477169541815*^9}}, CellID->230457373], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeoCachingString", "[", RowBox[{"{", RowBox[{"52.23235`", ",", "6.9404`"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767475095537784*^9, 3.767475112308034*^9}, { 3.767479333021323*^9, 3.7674793432973957`*^9}}, CellLabel->"In[161]:=", CellID->734479941], Cell[BoxData["\<\"N 52\[Degree] 13.941 E 006\[Degree] 56.424\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.767475112638173*^9, {3.76747528581227*^9, 3.7674752946193438`*^9}, 3.76747717322225*^9, 3.76747886467909*^9, 3.767479271043057*^9, { 3.767479344237056*^9, 3.767479358587924*^9}, 3.767480312695709*^9, 3.767568086716505*^9, 3.7681491734197598`*^9, 3.76815218502518*^9, 3.768477007534423*^9, 3.768477307571706*^9, 3.768478443910611*^9, 3.769538699594037*^9, 3.7695389686211643`*^9}, CellLabel->"Out[161]=", CellID->29533081] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "For a latitude-longitude pair, and without any options, ", Cell[BoxData["GeneralizedDMSString"], "InlineFormula", FontFamily->"Source Sans Pro"], " gives the same output as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DMSString", "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/DMSString", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7674784308431063`*^9, 3.767478440391982*^9}, { 3.767478477340514*^9, 3.767478479624716*^9}, {3.767479878009863*^9, 3.767479902298678*^9}, {3.768152204154223*^9, 3.768152227797192*^9}, 3.777649635066053*^9}, CellID->677188239], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"location", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "52.22121`"}], ",", "6.89121`"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"DMSString", "[", "location", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.767478340501935*^9, 3.767478516639513*^9}}, CellLabel->"In[162]:=", CellID->239591995], Cell[BoxData["\<\"52\[Degree]13'16.356\\\"S 6\[Degree]53'28.356\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.767478347016138*^9, 3.767478518059901*^9}, 3.76747886830296*^9, {3.7674795008538313`*^9, 3.767479505151362*^9}, 3.767479594123865*^9, {3.76747974699844*^9, 3.767479751151655*^9}, 3.767480127881616*^9, 3.7674803151197863`*^9, 3.76756808948517*^9, 3.768149175006934*^9, 3.768152187297797*^9, 3.76815223126624*^9, 3.768413798605389*^9, 3.768477012061418*^9, 3.7684784465169353`*^9, 3.76953870439289*^9, 3.769538970316177*^9}, CellLabel->"Out[163]=", CellID->17250628] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", "location", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.767478629936329*^9, 3.767479591727272*^9, {3.7674796854520817`*^9, 3.7674796935790663`*^9}, 3.7674797486087418`*^9}, CellLabel->"In[164]:=", CellID->733176279], Cell[BoxData["\<\"52\[Degree]13'16.356\\\"S 6\[Degree]53'28.356\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.767478488186096*^9, 3.7674785188476686`*^9}, 3.7674788696501207`*^9, {3.767479501730146*^9, 3.7674795059322557`*^9}, { 3.7674795926760807`*^9, 3.767479594886137*^9}, {3.767479685931962*^9, 3.7674796941191883`*^9}, 3.7674797489765577`*^9, 3.7674801287266207`*^9, 3.7674803158605547`*^9, 3.767568090152054*^9, 3.768149176922839*^9, 3.7681521905001183`*^9, 3.768152232806723*^9, 3.768413800483572*^9, 3.768477013964581*^9, 3.7684784482451077`*^9, 3.769538706341577*^9, 3.769538971217299*^9}, CellLabel->"Out[164]=", CellID->676470819] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ Cell[BoxData["GeneralizedDMSString"], "InlineFormula", FontFamily->"Source Sans Pro"], " keeps the sign, as opposed to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DMSString", "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/DMSString", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7681522776055927`*^9, 3.7681523117716713`*^9}, 3.7776496448013835`*^9}, CellID->961701341], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"-", "6.89121"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7681522882186623`*^9, 3.76815229489992*^9}}, CellLabel->"In[165]:=", CellID->965548622], Cell[BoxData["\<\"-6\[Degree]53'28.356\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.768152295408454*^9, {3.7684137902871532`*^9, 3.768413791986208*^9}, 3.76847701550956*^9, 3.768478449624846*^9, 3.769538708645988*^9, 3.769538972289497*^9}, CellLabel->"Out[165]=", CellID->26281214] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DMSString", "[", RowBox[{"-", "6.89121"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.768152299906679*^9}, CellLabel->"In[166]:=", CellID->714276263], Cell[BoxData["\<\"6\[Degree]53'28.356\\\"\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.768152300242305*^9, 3.7684137938533077`*^9, 3.7684770190916557`*^9, { 3.768478450380393*^9, 3.768478451993155*^9}, 3.7695387101248903`*^9, 3.7695389743951397`*^9}, CellLabel->"Out[166]=", CellID->262602394] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell[TextData[{ "Exact values are approximated using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["N", "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/N", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.767478921142762*^9, 3.76747892554522*^9}, { 3.767479069849201*^9, 3.767479117132105*^9}}, CellID->55387491], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "6"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.76747887954704*^9, 3.7674789446623774`*^9}, { 3.767479048390774*^9, 3.7674790856588373`*^9}, 3.767479121732194*^9}, CellLabel->"In[167]:=", CellID->577102815], Cell[BoxData["\<\"10\[Degree]0'0.000\\\"S 6\[Degree]0'0.000\\\"E\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{{3.76747889154239*^9, 3.76747891483315*^9}, 3.7674789450173283`*^9, {3.76747904534788*^9, 3.767479085959951*^9}, 3.767479120112452*^9, {3.767480318005061*^9, 3.767480321052739*^9}, 3.767568091616514*^9, 3.768149179366372*^9, 3.768152235360347*^9, 3.768152318053897*^9, 3.768477026284647*^9, 3.768478454431036*^9, 3.76953871301182*^9, 3.7695389756011057`*^9}, CellLabel->"Out[167]=", CellID->951536770] }, Open ]], Cell["Do not show the zeros behind the period:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7674791326972*^9, 3.767479152826795*^9}, { 3.7776496515614367`*^9, 3.777649656339652*^9}}, CellID->479203899], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7674791253681726`*^9, 3.767479158371983*^9}}, CellLabel->"In[168]:=", CellID->256314951], Cell[BoxData["\<\"10\[Degree]0'0\\\"S 6\[Degree]0'0\\\"E\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.767479128840352*^9, 3.767479158872839*^9}, 3.767480325612207*^9, 3.767568093524393*^9, 3.768149180913211*^9, 3.768152236577415*^9, 3.768152319561022*^9, 3.768477027512362*^9, 3.768478456536677*^9, 3.769538714873405*^9, 3.769538976770125*^9}, CellLabel->"Out[168]=", CellID->997068786] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Sander Huisman", "Text", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["Geoposition string", "Item", CellID->300613635], Cell["geostring", "Item", CellID->738054484], Cell["geolocation form", "Item", CellID->605581225], Cell["geoform", "Item", CellID->728001091], Cell["degreee minute second", "Item", CellID->575383200], Cell["DMS", "Item", CellID->102344018], Cell["\[Degree]", "Item", CellID->557004941] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Array Manipulation"}], "\" \"", "\"Array Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Geographic Data & Computation", { False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Strings & Text", {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVjlFqwzAQRKHUjR1CbhDwV/\ 98COMkJVBIyOYCijKxRWRJaFdQ374ypKX92mFnmHlt2VBBMlnQ2zFJSNLQohugH7jdX/j107DQ5gO+\ jyoMRtdbJap+rzs/5qwS4x2tSaJxPef3BV+5oDgIRuaqTeLHnNENlafoA6JMtOyUoPfRgPPUMcwV/\ DM133Oy4HJ3M6KuWRV7ZRm/RrWFxV9n5vU2je7/\ 4PrgBDFEPCGr1k2UrozMtzqDfYoalymAyn1yes58A7mfXPY="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->682382985] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["DMSString", "Item", CellID->173966154], Cell["DMSList", "Item", CellID->156736791], Cell["FromDMS", "Item", CellID->13476602], Cell["Degree", "Item", CellID->289807963], Cell["GeoPosition", "Item", CellID->754833275], Cell["NumberDecompose", "Item", CellID->138746482], Cell["LatitudeLongitude", "Item", CellID->397229257] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22121"}], ",", " ", "6.89121"}], "}"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "After"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"\"\<\>\"", ",", " ", "\"\< \>\""}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "3"}]}], "]"}], ",", " ", "\"\<52\[Degree]13'16.356\\\"S 6\[Degree]53'28.356\\\"E\>\""}], "]"}]], "Input", CellID->876032573], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"GeneralizedDMSString", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "52.22121"}], ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Before"}]}], "]"}], ",", " ", "\"\\""}], "]"}]], "Input", CellID->996061805] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"GeneralizedDMSString | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.854802803401376`16.338577155312134*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.854802803447102`16.33857715531729*^9, "VersionInformation" -> {"ResourceVersion" -> "3.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"cf3bc561-805b-435f-b901-3bcfd9285935", CellTags->{"Name", "TemplateCell", "Title"}, CellID->466897182]}, "TemplateCell"->{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"cf3bc561-805b-435f-b901-3bcfd9285935", CellTags->{"Name", "TemplateCell", "Title"}, CellID->466897182], Cell[742, 27, 152, 4, 70, "Text",ExpressionUUID->"3e32bc9b-6fd7-4dde-aca1-6c7acf3906d9", CellTags->{"Description", "TemplateCell"}, CellID->831771808]}, "Title"->{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"cf3bc561-805b-435f-b901-3bcfd9285935", CellTags->{"Name", "TemplateCell", "Title"}, CellID->466897182]}, "Description"->{ Cell[742, 27, 152, 4, 70, "Text",ExpressionUUID->"3e32bc9b-6fd7-4dde-aca1-6c7acf3906d9", CellTags->{"Description", "TemplateCell"}, CellID->831771808]}, "Definition"->{ Cell[919, 35, 1206, 29, 70, "Section",ExpressionUUID->"d943013a-073d-4c58-846c-193b852abb6e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[919, 35, 1206, 29, 70, "Section",ExpressionUUID->"d943013a-073d-4c58-846c-193b852abb6e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[919, 35, 1206, 29, 70, "Section",ExpressionUUID->"d943013a-073d-4c58-846c-193b852abb6e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[39123, 1017, 1980, 50, 70, "Subsection",ExpressionUUID->"6f72fee9-d5d0-467c-8837-b475ca0bc3b2", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[44940, 1222, 1429, 32, 70, "Subsection",ExpressionUUID->"d7ad5edc-cd8d-42f6-a587-2a39e7914d51", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[76544, 2179, 7029, 152, 70, "Section",ExpressionUUID->"80083a56-333d-46cf-a70d-c09bd6d404b4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[134437, 3768, 1026, 26, 70, "Subsection",ExpressionUUID->"93b775a6-a36f-4fd4-8734-17077cfafa39", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[135553, 3802, 996, 26, 70, "Subsection",ExpressionUUID->"1f25d2b1-6e11-480b-8350-be63ec0ea9c9", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[136942, 3854, 221, 6, 70, "Subsection",ExpressionUUID->"a87dcce8-8cb3-4ada-9afa-a24cbe218391", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[144686, 4113, 980, 26, 70, "Subsection",ExpressionUUID->"c84a059c-61d8-4542-9d00-19b547ef68b6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[146047, 4165, 1039, 26, 70, "Subsection",ExpressionUUID->"7746019e-1c51-457a-a9b7-051c00335d8d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[147654, 4206, 1084, 26, 70, "Subsection",ExpressionUUID->"7349cadc-3042-4f2b-91c1-6d1f17cec9a7", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[149294, 4247, 923, 26, 70, "Subsection",ExpressionUUID->"c28cd153-bf61-4f00-821d-0acf57292630", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[150762, 4288, 1874, 45, 70, "Subsection",ExpressionUUID->"fb7f425f-e262-4fb3-9747-d78fef3be36d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[154307, 4384, 955, 25, 70, "Subsection",ExpressionUUID->"18a99fc0-fbe4-4d47-9f62-bc871c9803dc", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[155287, 4413, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4a6a5d9f-7ba2-4852-8ef3-1be546f68d56", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[156590, 4453, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f4f428ee-c2ac-4b7d-a451-5316980dbad7", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[159064, 4529, 1280, 33, 70, "Subsubsection",ExpressionUUID->"1f57231a-35c6-4a9f-be94-e868718db405", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[161749, 4610, 1913, 46, 70, "Subsubsection",ExpressionUUID->"461a0c30-a9be-4f90-a6b2-1564ead9c5d2", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[166598, 4746, 1071, 27, 70, "Subsubsection",ExpressionUUID->"690c95ed-9387-4b59-88ea-9d93845b13af", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[168671, 4810, 1155, 28, 70, "Section",ExpressionUUID->"4aedc56e-5c55-4769-9e91-bd2cd46d1b2b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[170395, 4853, 1033, 26, 70, "Section",ExpressionUUID->"41ae3841-f3d3-4357-a330-130f198dc889", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[38903, 1008, 195, 5, 70, "Section",ExpressionUUID->"25723e9e-0b7e-45d2-b217-c9b774da4713", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[38903, 1008, 195, 5, 70, "Section",ExpressionUUID->"25723e9e-0b7e-45d2-b217-c9b774da4713", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[134163, 3759, 249, 5, 70, "Section",ExpressionUUID->"bbb5c9a3-0183-45a9-80c0-e509e1d4f90b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[39123, 1017, 1980, 50, 70, "Subsection",ExpressionUUID->"6f72fee9-d5d0-467c-8837-b475ca0bc3b2", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[44940, 1222, 1429, 32, 70, "Subsection",ExpressionUUID->"d7ad5edc-cd8d-42f6-a587-2a39e7914d51", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[44940, 1222, 1429, 32, 70, "Subsection",ExpressionUUID->"d7ad5edc-cd8d-42f6-a587-2a39e7914d51", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[75788, 2151, 707, 22, 70, "Notes",ExpressionUUID->"dd48caae-c921-4df9-bb98-b47d09977fb1", CellTags->"TabNext", CellID->750620294], Cell[147089, 4193, 528, 8, 70, "Item",ExpressionUUID->"b2ab6a0b-f715-4345-af62-8b733460db0f", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[148741, 4234, 516, 8, 70, "Text",ExpressionUUID->"f0811cc2-87c9-4ce0-ab8f-e472de1a9d15", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[150220, 4275, 505, 8, 70, "Item",ExpressionUUID->"bf6d4a9c-5b5c-4a6e-b0a9-a7224e1b68d4", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[169829, 4840, 529, 8, 70, "Text",ExpressionUUID->"04eaaab2-8fb3-400b-b38c-f6d639fa6b4f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[171431, 4881, 515, 8, 70, "Text",ExpressionUUID->"798fbd4c-ae1d-482e-90a6-65b2465d8db5", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[76544, 2179, 7029, 152, 70, "Section",ExpressionUUID->"80083a56-333d-46cf-a70d-c09bd6d404b4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[134163, 3759, 249, 5, 70, "Section",ExpressionUUID->"bbb5c9a3-0183-45a9-80c0-e509e1d4f90b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[134437, 3768, 1026, 26, 70, "Subsection",ExpressionUUID->"93b775a6-a36f-4fd4-8734-17077cfafa39", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[134437, 3768, 1026, 26, 70, "Subsection",ExpressionUUID->"93b775a6-a36f-4fd4-8734-17077cfafa39", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[135553, 3802, 996, 26, 70, "Subsection",ExpressionUUID->"1f25d2b1-6e11-480b-8350-be63ec0ea9c9", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[136942, 3854, 221, 6, 70, "Subsection",ExpressionUUID->"a87dcce8-8cb3-4ada-9afa-a24cbe218391", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[137166, 3862, 7483, 246, 70, "Output",ExpressionUUID->"a85b5120-0dae-4832-89b8-d72c63f8d242", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->682382985]}, "Categories-Checkboxes"->{ Cell[137166, 3862, 7483, 246, 70, "Output",ExpressionUUID->"a85b5120-0dae-4832-89b8-d72c63f8d242", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->682382985]}, "CheckboxCell"->{ Cell[137166, 3862, 7483, 246, 70, "Output",ExpressionUUID->"a85b5120-0dae-4832-89b8-d72c63f8d242", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->682382985], Cell[157706, 4484, 1321, 40, 70, "Output",ExpressionUUID->"6ce5cb2d-1ab8-4505-88e6-5282cb7376f6", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[160347, 4564, 1365, 41, 70, "Output",ExpressionUUID->"7c614911-d815-451d-8317-e90218ee61f2", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[163665, 4658, 2896, 83, 70, "Output",ExpressionUUID->"7ea58864-5027-4c56-8f7f-7cbb882535e0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[167672, 4775, 938, 28, 70, "Output",ExpressionUUID->"baeff808-7f5b-4a6d-8482-226251816ad8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[144686, 4113, 980, 26, 70, "Subsection",ExpressionUUID->"c84a059c-61d8-4542-9d00-19b547ef68b6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[146047, 4165, 1039, 26, 70, "Subsection",ExpressionUUID->"7746019e-1c51-457a-a9b7-051c00335d8d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "DefaultContent"->{ Cell[147089, 4193, 528, 8, 70, "Item",ExpressionUUID->"b2ab6a0b-f715-4345-af62-8b733460db0f", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[148741, 4234, 516, 8, 70, "Text",ExpressionUUID->"f0811cc2-87c9-4ce0-ab8f-e472de1a9d15", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[150220, 4275, 505, 8, 70, "Item",ExpressionUUID->"bf6d4a9c-5b5c-4a6e-b0a9-a7224e1b68d4", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[156464, 4446, 89, 2, 70, "Text",ExpressionUUID->"7dd68bbb-9efb-4ee6-8082-1bf1348a6863", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[169829, 4840, 529, 8, 70, "Text",ExpressionUUID->"04eaaab2-8fb3-400b-b38c-f6d639fa6b4f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[171431, 4881, 515, 8, 70, "Text",ExpressionUUID->"798fbd4c-ae1d-482e-90a6-65b2465d8db5", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source/Reference Citation"->{ Cell[147654, 4206, 1084, 26, 70, "Subsection",ExpressionUUID->"7349cadc-3042-4f2b-91c1-6d1f17cec9a7", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[149294, 4247, 923, 26, 70, "Subsection",ExpressionUUID->"c28cd153-bf61-4f00-821d-0acf57292630", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[150762, 4288, 1874, 45, 70, "Subsection",ExpressionUUID->"fb7f425f-e262-4fb3-9747-d78fef3be36d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[150762, 4288, 1874, 45, 70, "Subsection",ExpressionUUID->"fb7f425f-e262-4fb3-9747-d78fef3be36d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[154307, 4384, 955, 25, 70, "Subsection",ExpressionUUID->"18a99fc0-fbe4-4d47-9f62-bc871c9803dc", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[155287, 4413, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4a6a5d9f-7ba2-4852-8ef3-1be546f68d56", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[155287, 4413, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4a6a5d9f-7ba2-4852-8ef3-1be546f68d56", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[156464, 4446, 89, 2, 70, "Text",ExpressionUUID->"7dd68bbb-9efb-4ee6-8082-1bf1348a6863", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[156590, 4453, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f4f428ee-c2ac-4b7d-a451-5316980dbad7", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[157706, 4484, 1321, 40, 70, "Output",ExpressionUUID->"6ce5cb2d-1ab8-4505-88e6-5282cb7376f6", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[156590, 4453, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f4f428ee-c2ac-4b7d-a451-5316980dbad7", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[157706, 4484, 1321, 40, 70, "Output",ExpressionUUID->"6ce5cb2d-1ab8-4505-88e6-5282cb7376f6", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[159064, 4529, 1280, 33, 70, "Subsubsection",ExpressionUUID->"1f57231a-35c6-4a9f-be94-e868718db405", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[160347, 4564, 1365, 41, 70, "Output",ExpressionUUID->"7c614911-d815-451d-8317-e90218ee61f2", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[159064, 4529, 1280, 33, 70, "Subsubsection",ExpressionUUID->"1f57231a-35c6-4a9f-be94-e868718db405", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[160347, 4564, 1365, 41, 70, "Output",ExpressionUUID->"7c614911-d815-451d-8317-e90218ee61f2", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[161749, 4610, 1913, 46, 70, "Subsubsection",ExpressionUUID->"461a0c30-a9be-4f90-a6b2-1564ead9c5d2", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[163665, 4658, 2896, 83, 70, "Output",ExpressionUUID->"7ea58864-5027-4c56-8f7f-7cbb882535e0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[161749, 4610, 1913, 46, 70, "Subsubsection",ExpressionUUID->"461a0c30-a9be-4f90-a6b2-1564ead9c5d2", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[163665, 4658, 2896, 83, 70, "Output",ExpressionUUID->"7ea58864-5027-4c56-8f7f-7cbb882535e0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[166598, 4746, 1071, 27, 70, "Subsubsection",ExpressionUUID->"690c95ed-9387-4b59-88ea-9d93845b13af", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[166598, 4746, 1071, 27, 70, "Subsubsection",ExpressionUUID->"690c95ed-9387-4b59-88ea-9d93845b13af", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[167672, 4775, 938, 28, 70, "Output",ExpressionUUID->"baeff808-7f5b-4a6d-8482-226251816ad8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[167672, 4775, 938, 28, 70, "Output",ExpressionUUID->"baeff808-7f5b-4a6d-8482-226251816ad8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[168671, 4810, 1155, 28, 70, "Section",ExpressionUUID->"4aedc56e-5c55-4769-9e91-bd2cd46d1b2b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[170395, 4853, 1033, 26, 70, "Section",ExpressionUUID->"41ae3841-f3d3-4357-a330-130f198dc889", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 295364, 7232}, {"TemplateCell", 295547, 7236}, {"Title", 295883, 7243}, {"Description", 296065, 7247}, {"Definition", 296243, 7251}, {"Function", 296439, 7255}, {"TemplateCellGroup", 296644, 7259}, {"Documentation", 300501, 7320}, {"TemplateSection", 300696, 7324}, {"Usage", 301072, 7331}, {"Details & Options", 301268, 7335}, {"Notes", 301473, 7339}, {"TabNext", 301680, 7343}, {"Examples", 302655, 7362}, {"Source & Additional Information", 302866, 7366}, {"Contributed By", 303079, 7370}, {"ContributorInformation", 303315, 7374}, {"Keywords", 303537, 7378}, {"Categories", 303729, 7382}, {"Categories-Checkboxes", 304127, 7389}, {"CheckboxCell", 304341, 7393}, {"Related Symbols", 305463, 7409}, {"Related Resource Objects", 305676, 7413}, {"DefaultContent", 305889, 7417}, {"Source/Reference Citation", 306905, 7436}, {"Links", 307110, 7440}, {"Tests", 307294, 7444}, {"VerificationTests", 307512, 7448}, {"Compatibility", 307726, 7452}, {"CompatibilityWolframLanguageVersionRequired", 307956, 7456}, {"Wolfram Language Version", 308229, 7460}, {"ScrapeDefault", 308491, 7464}, {"CompatibilityOperatingSystem", 308695, 7468}, {"Operating System", 309165, 7475}, {"CompatibilityOperatingSystem-Checkboxes", 309430, 7479}, {"CompatibilityFeatures", 309687, 7483}, {"Required Features", 310139, 7490}, {"CompatibilityFeatures-Checkboxes", 310391, 7494}, {"CompatibilityEvaluationEnvironment", 310648, 7498}, {"Environments", 311128, 7505}, {"CompatibilityEvaluationEnvironment-Checkboxes", 311401, 7509}, {"Cloud Support", 311662, 7513}, {"CompatibilityCloudSupport", 311907, 7517}, {"CompatibilityCloudSupport-Checkboxes", 312385, 7524}, {"Author Notes", 312627, 7528}, {"Submission Notes", 312827, 7532} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"cf3bc561-805b-435f-b901-3bcfd9285935", CellTags->{"Name", "TemplateCell", "Title"}, CellID->466897182], Cell[742, 27, 152, 4, 70, "Text",ExpressionUUID->"3e32bc9b-6fd7-4dde-aca1-6c7acf3906d9", CellTags->{"Description", "TemplateCell"}, CellID->831771808], Cell[CellGroupData[{ Cell[919, 35, 1206, 29, 70, "Section",ExpressionUUID->"d943013a-073d-4c58-846c-193b852abb6e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2128, 66, 8833, 247, 70, "Input",ExpressionUUID->"b59e612c-9848-4da0-8354-e01760d60883", InitializationCell->True, CellID->894660288], Cell[10964, 315, 18563, 445, 70, "Input",ExpressionUUID->"7d140410-ebe5-4cfd-b4a9-a26135390789", InitializationCell->True, CellID->838103494], Cell[29530, 762, 7039, 174, 70, "Input",ExpressionUUID->"c42eba07-afc3-4864-a581-34a863d3ca6b", InitializationCell->True, CellID->401323950], Cell[36572, 938, 645, 20, 70, "Input",ExpressionUUID->"242f6be1-0b6d-4509-9936-a56904d2d167", InitializationCell->True, CellID->601937891], Cell[37220, 960, 1646, 43, 70, "Input",ExpressionUUID->"73111bfa-c8b7-47fb-9d38-4970705d59d3", InitializationCell->True, CellID->820960006] }, Open ]], Cell[CellGroupData[{ Cell[38903, 1008, 195, 5, 70, "Section",ExpressionUUID->"25723e9e-0b7e-45d2-b217-c9b774da4713", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[39123, 1017, 1980, 50, 70, "Subsection",ExpressionUUID->"6f72fee9-d5d0-467c-8837-b475ca0bc3b2", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[41128, 1071, 157, 4, 70, "UsageInputs",ExpressionUUID->"6d937114-be66-4a21-8755-ea21ace646b7", CellID->491209017], Cell[41288, 1077, 220, 7, 70, "UsageDescription",ExpressionUUID->"7b6cafd4-3f51-4c9d-8c9e-d3b0f3daa1b9", CellID->927165947] }, Open ]], Cell[CellGroupData[{ Cell[41545, 1089, 204, 6, 70, "UsageInputs",ExpressionUUID->"ff2bd2c1-083b-4268-8769-e7c5049d4922", CellID->816043252], Cell[41752, 1097, 315, 11, 70, "UsageDescription",ExpressionUUID->"35e86e9d-e18d-4494-9c4d-a6ac65441a8e", CellID->284877791] }, Open ]], Cell[CellGroupData[{ Cell[42104, 1113, 224, 7, 70, "UsageInputs",ExpressionUUID->"77388ed9-4bf6-4cba-891b-c916a930140d", CellID->220400300], Cell[42331, 1122, 345, 11, 70, "UsageDescription",ExpressionUUID->"2ce10eed-7d9e-4d14-b1cd-9149793cd865", CellID->769684917] }, Open ]], Cell[CellGroupData[{ Cell[42713, 1138, 274, 9, 70, "UsageInputs",ExpressionUUID->"d74ab0a1-9677-4e79-b701-7317eaa7886e", CellID->990860711], Cell[42990, 1149, 440, 15, 70, "UsageDescription",ExpressionUUID->"afafc41d-ea6d-4ea4-9529-187e7f60a27d", CellID->509258482] }, Open ]], Cell[CellGroupData[{ Cell[43467, 1169, 729, 22, 70, "UsageInputs",ExpressionUUID->"e1734bae-313a-4a81-9f6d-fc933c0caf44", CellID->651407643], Cell[44199, 1193, 692, 23, 70, "UsageDescription",ExpressionUUID->"9c82b000-243e-4217-842f-244b09bbae9f", CellID->341716589] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44940, 1222, 1429, 32, 70, "Subsection",ExpressionUUID->"d7ad5edc-cd8d-42f6-a587-2a39e7914d51", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[46372, 1256, 396, 14, 70, "Notes",ExpressionUUID->"7a55284a-5cc8-4ae0-b4c7-90ae4215ce74", CellID->367151171], Cell[46771, 1272, 397, 14, 70, "Notes",ExpressionUUID->"a3811c27-57ea-4e4a-9c70-f31e397106a1", CellID->549217331], Cell[47171, 1288, 174, 6, 70, "Notes",ExpressionUUID->"ec974ad1-b5d7-4379-92fb-305d5c6e9611", CellID->535308954], Cell[47348, 1296, 987, 25, 70, "TableNotes",ExpressionUUID->"b3165a45-5b33-420e-8cb9-6cd75ad5bb0d", CellID->166646001], Cell[48338, 1323, 169, 5, 70, "Notes",ExpressionUUID->"6be088e5-03c7-4964-9c96-f8aef1c89f29", CellID->985920442], Cell[48510, 1330, 3611, 88, 70, "TableNotes",ExpressionUUID->"1eef8306-782e-420d-b0be-075d213c2b19", CellID->39107159], Cell[52124, 1420, 181, 6, 70, "Notes",ExpressionUUID->"9be693db-b19c-4ed0-b0bd-d393f1d8cad1", CellID->330898909], Cell[52308, 1428, 4465, 134, 70, "TableNotes",ExpressionUUID->"04a01c17-f111-4987-80f7-8f4fb3e2cde4", CellID->187422412], Cell[56776, 1564, 185, 6, 70, "Notes",ExpressionUUID->"33f22d57-18e3-4c00-8902-d05ced70bdb7", CellID->957205335], Cell[56964, 1572, 4853, 147, 70, "TableNotes",ExpressionUUID->"c64e641d-2915-4354-a546-7e4854f8b9e8", CellID->206467032], Cell[61820, 1721, 185, 6, 70, "Notes",ExpressionUUID->"c9e18314-5968-4027-b766-9b3adc96078b", CellID->16104591], Cell[62008, 1729, 1348, 36, 70, "TableNotes",ExpressionUUID->"1f319828-056d-463f-9040-bc0964bf65e2", CellID->53669101], Cell[63359, 1767, 183, 6, 70, "Notes",ExpressionUUID->"b9c4b942-8e75-4877-b8f2-e38c24fb42d5", CellID->570469990], Cell[63545, 1775, 5350, 162, 70, "TableNotes",ExpressionUUID->"fdac4d07-384e-4345-9cbb-a63ec6c4ae0f", CellID->854316846], Cell[68898, 1939, 179, 6, 70, "Notes",ExpressionUUID->"e85bed08-ace9-4414-9d98-485025b4a40e", CellID->244230029], Cell[69080, 1947, 2665, 79, 70, "TableNotes",ExpressionUUID->"c5c5e5fe-4e73-4b8f-b59f-3a77864954b3", CellID->887482393], Cell[71748, 2028, 180, 6, 70, "Notes",ExpressionUUID->"6e0affd2-87f4-4b73-8abe-e1a0d29b388d", CellID->958583275], Cell[71931, 2036, 3854, 113, 70, "TableNotes",ExpressionUUID->"4c863d8e-377a-4d43-b104-86f876e74e7e", CellID->149577116], Cell[75788, 2151, 707, 22, 70, "Notes",ExpressionUUID->"dd48caae-c921-4df9-bb98-b47d09977fb1", CellTags->"TabNext", CellID->750620294] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76544, 2179, 7029, 152, 70, "Section",ExpressionUUID->"80083a56-333d-46cf-a70d-c09bd6d404b4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[83598, 2335, 75, 2, 70, "Subsection",ExpressionUUID->"062066e7-06a6-4b74-b2b6-b06f4f72e92d", CellID->904125756], Cell[83676, 2339, 156, 3, 70, "Text",ExpressionUUID->"bdca6436-f645-4082-bb7d-6684b409cf58", CellID->738844701], Cell[CellGroupData[{ Cell[83857, 2346, 311, 7, 70, "Input",ExpressionUUID->"a8c57660-255b-48b8-abba-ca7294e1c2e0", CellID->594350295], Cell[84171, 2355, 426, 8, 70, "Output",ExpressionUUID->"0f1bafeb-70ff-439b-8034-9ed6411d391e", CellID->118345501] }, Open ]], Cell[84612, 2366, 208, 4, 70, "Text",ExpressionUUID->"d225153d-7c57-4566-bd6b-1b26d880434f", CellID->883803022], Cell[CellGroupData[{ Cell[84845, 2374, 523, 12, 70, "Input",ExpressionUUID->"86093e8e-b2a1-433a-89ce-3f5769be2081", CellID->631117126], Cell[85371, 2388, 894, 15, 70, "Output",ExpressionUUID->"09612c3b-adf1-41e8-a065-bdb2bf57e270", CellID->334216160] }, Open ]], Cell[86280, 2406, 166, 3, 70, "Text",ExpressionUUID->"5a2ac8fa-cd9e-43ef-bbcb-94bde3387859", CellID->120159222], Cell[CellGroupData[{ Cell[86471, 2413, 497, 12, 70, "Input",ExpressionUUID->"b80633b3-b1b8-46c6-bf6a-90ff8d11b7c4", CellID->915118806], Cell[86971, 2427, 670, 11, 70, "Output",ExpressionUUID->"a5a1f7bb-cf85-419e-b1ce-0ad3de9086ce", CellID->160155750] }, Open ]], Cell[87656, 2441, 159, 3, 70, "Text",ExpressionUUID->"a423b587-cda8-42c9-9257-1a24708b0e4c", CellID->830781065], Cell[CellGroupData[{ Cell[87840, 2448, 392, 10, 70, "Input",ExpressionUUID->"ededde46-0095-4cde-a2b9-002e48c78d29", CellID->668101718], Cell[88235, 2460, 567, 9, 70, "Output",ExpressionUUID->"ed28012d-2f07-4c71-bf93-b6d1afd831e8", CellID->134563591] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[88851, 2475, 66, 2, 70, "Subsection",ExpressionUUID->"2b2e9fe8-e06b-48e0-bb97-cdf6bda287ca", CellID->204653245], Cell[88920, 2479, 738, 23, 70, "Text",ExpressionUUID->"306f232a-807d-46a4-ba5d-6c1fb347bbab", CellID->916338826], Cell[CellGroupData[{ Cell[89683, 2506, 370, 9, 70, "Input",ExpressionUUID->"715ae538-5860-4e7f-9475-2c721e44aacb", CellID->891807300], Cell[90056, 2517, 580, 10, 70, "Output",ExpressionUUID->"cdd520e4-987f-4e6c-9792-4d0343b789ee", CellID->147475400] }, Open ]], Cell[90651, 2530, 239, 4, 70, "Text",ExpressionUUID->"bfd07139-fd81-4527-a9cc-a98b5a53f786", CellID->256517032], Cell[CellGroupData[{ Cell[90915, 2538, 338, 9, 70, "Input",ExpressionUUID->"fe99f2c6-1cf2-44c9-a60b-8c432bd382ec", CellID->474180865], Cell[91256, 2549, 435, 8, 70, "Output",ExpressionUUID->"b866d176-0e95-4ee8-96b7-a2449ce5559e", CellID->259172889] }, Open ]], Cell[91706, 2560, 240, 4, 70, "Text",ExpressionUUID->"54adb5eb-a4b1-4c3e-a0aa-9ed479de76ab", CellID->371368961], Cell[CellGroupData[{ Cell[91971, 2568, 710, 18, 70, "Input",ExpressionUUID->"5de9971f-6f0b-4a7c-99ea-98fb95444741", CellID->761489365], Cell[92684, 2588, 532, 9, 70, "Output",ExpressionUUID->"9b58985a-e055-4150-9970-a46111048b2c", CellID->56830477] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[93265, 2603, 68, 2, 70, "Subsection",ExpressionUUID->"3aeed3b9-4b68-46fd-b8cf-0de43cfabe81", CellID->890561554], Cell[CellGroupData[{ Cell[93358, 2609, 189, 4, 70, "Subsubsection",ExpressionUUID->"53d74c76-af48-4efe-9591-8ecf5f8f46fd", CellID->658240480], Cell[93550, 2615, 204, 4, 70, "Text",ExpressionUUID->"a11ea05f-c36b-4e4d-b969-9eb74fd2af3e", CellID->972051145], Cell[CellGroupData[{ Cell[93779, 2623, 834, 19, 70, "Input",ExpressionUUID->"70614c32-a677-4cae-ad0d-37f742cc37b6", CellID->624784960], Cell[94616, 2644, 532, 10, 70, "Output",ExpressionUUID->"ea2b4fd9-e0ab-4f3d-9ee2-45a173a75c57", CellID->29525668] }, Open ]], Cell[95163, 2657, 244, 4, 70, "Text",ExpressionUUID->"d99fca17-daa7-47e2-ac1a-716ec3926270", CellID->542720561], Cell[CellGroupData[{ Cell[95432, 2665, 527, 12, 70, "Input",ExpressionUUID->"7f3e577d-6940-4eb6-8b28-107997ad4bb7", CellID->392235165], Cell[95962, 2679, 482, 8, 70, "Output",ExpressionUUID->"09526151-9d4c-4433-ac63-7ed88cdea4e9", CellID->381914099] }, Open ]], Cell[96459, 2690, 375, 6, 70, "Text",ExpressionUUID->"b4da1d2e-190c-4218-9bf6-da21845a67a9", CellID->728476533], Cell[CellGroupData[{ Cell[96859, 2700, 463, 11, 70, "Input",ExpressionUUID->"d471c153-348d-45e4-9833-b008e9007f82", CellID->224421016], Cell[97325, 2713, 560, 10, 70, "Output",ExpressionUUID->"741c193c-7dd0-49ef-b264-15caf7715b2d", CellID->242029567] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[97934, 2729, 244, 5, 70, "Subsubsection",ExpressionUUID->"561143c9-ddbe-48a1-a1fd-28b511d830a2", CellID->993061085], Cell[98181, 2736, 174, 4, 70, "Text",ExpressionUUID->"b4ec01ab-539a-4bd8-ba8d-48cc8ccc2bdc", CellID->918717084], Cell[CellGroupData[{ Cell[98380, 2744, 433, 12, 70, "Input",ExpressionUUID->"5937531c-e827-4881-ab9a-c057ac5a9af7", CellID->413390823], Cell[98816, 2758, 496, 9, 70, "Output",ExpressionUUID->"4475330f-7178-4895-9616-10e37578f6c2", CellID->313376073] }, Open ]], Cell[99327, 2770, 307, 7, 70, "Text",ExpressionUUID->"3be03c18-8180-4c76-8f63-c4a965242188", CellID->774067188], Cell[CellGroupData[{ Cell[99659, 2781, 547, 14, 70, "Input",ExpressionUUID->"79e576dd-a0fd-4042-a38c-7636c80e4562", CellID->264834191], Cell[100209, 2797, 527, 10, 70, "Output",ExpressionUUID->"aa52bea9-2637-40eb-bdc6-1744aef7f7b1", CellID->752810488] }, Open ]], Cell[100751, 2810, 240, 6, 70, "Text",ExpressionUUID->"50a9ad98-1463-4180-bd33-2d39943b37d8", CellID->665910318], Cell[CellGroupData[{ Cell[101016, 2820, 642, 15, 70, "Input",ExpressionUUID->"5a981ecb-a008-4cd9-9047-8bae88aa754c", CellID->58740926], Cell[101661, 2837, 554, 11, 70, "Output",ExpressionUUID->"32d28b23-f16f-4134-b7d0-20464aa6c575", CellID->775675157] }, Open ]], Cell[102230, 2851, 359, 6, 70, "Text",ExpressionUUID->"298d77b8-8d20-4d8f-bbad-5e730e6123f1", CellID->858716640], Cell[CellGroupData[{ Cell[102614, 2861, 781, 18, 70, "Input",ExpressionUUID->"ef9155ce-6daf-4e3c-8173-31f80431e618", CellID->537899545], Cell[103398, 2881, 571, 10, 70, "Output",ExpressionUUID->"87f8ba3f-713b-43e3-aba6-b83db880108b", CellID->143955979] }, Open ]], Cell[103984, 2894, 152, 3, 70, "Text",ExpressionUUID->"2669ae99-e90e-4ea1-879a-e5704f41d6bc", CellID->502236162], Cell[CellGroupData[{ Cell[104161, 2901, 804, 20, 70, "Input",ExpressionUUID->"c49d2273-30d8-4e96-8444-93af01e3b151", CellID->443342150], Cell[104968, 2923, 501, 9, 70, "Output",ExpressionUUID->"46faca8e-b360-4f88-8c68-c5f4e4b37ad7", CellID->290140608] }, Open ]], Cell[105484, 2935, 223, 4, 70, "Text",ExpressionUUID->"8cfb9388-bbae-4fba-ab1c-297fab08412f", CellID->744446935], Cell[CellGroupData[{ Cell[105732, 2943, 646, 15, 70, "Input",ExpressionUUID->"18fb8fa2-a693-425c-b350-da4f313c399d", CellID->946635149], Cell[106381, 2960, 543, 10, 70, "Output",ExpressionUUID->"447cf771-e698-4a67-b649-444a1a1e6eab", CellID->469111158] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[106973, 2976, 291, 5, 70, "Subsubsection",ExpressionUUID->"5ce887f8-1634-4724-895a-bda20b494454", CellID->319240928], Cell[107267, 2983, 294, 7, 70, "Text",ExpressionUUID->"4346bf14-7845-4a89-aa4c-268a47f44857", CellID->444854562], Cell[CellGroupData[{ Cell[107586, 2994, 492, 14, 70, "Input",ExpressionUUID->"13fe82cf-abd1-4647-b232-e55185f92870", CellID->91403503], Cell[108081, 3010, 520, 10, 70, "Output",ExpressionUUID->"8999dd1e-e328-489e-b582-c7c075d70aca", CellID->210075069] }, Open ]], Cell[108616, 3023, 319, 7, 70, "Text",ExpressionUUID->"34042515-9f66-404d-ad77-50621275b166", CellID->954843311], Cell[CellGroupData[{ Cell[108960, 3034, 592, 14, 70, "Input",ExpressionUUID->"730e595d-8a46-4f8d-96d2-21456da19a14", CellID->466213998], Cell[109555, 3050, 575, 11, 70, "Output",ExpressionUUID->"5574c97c-e1d0-43b1-b728-49f045bb273c", CellID->779469617] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[110179, 3067, 288, 5, 70, "Subsubsection",ExpressionUUID->"661281d8-0e79-4b77-9623-e7a2986693be", CellID->498822627], Cell[110470, 3074, 148, 3, 70, "Text",ExpressionUUID->"a15cf4e6-0c56-4e0f-a0c9-0aec2155d1b6", CellID->957786531], Cell[CellGroupData[{ Cell[110643, 3081, 442, 9, 70, "Input",ExpressionUUID->"dc6374d6-6da0-4c0e-99ca-37bb27cc31fd", CellID->501438869], Cell[111088, 3092, 505, 9, 70, "Output",ExpressionUUID->"2080f1f8-e321-4223-bcaf-c8e39bad0f30", CellID->309978517] }, Open ]], Cell[111608, 3104, 266, 5, 70, "Text",ExpressionUUID->"52e84eb0-458a-4d63-b549-e4ef65f2a9a1", CellID->713874304], Cell[CellGroupData[{ Cell[111899, 3113, 547, 12, 70, "Input",ExpressionUUID->"8545392e-d203-4724-a825-3296cdcce574", CellID->369061229], Cell[112449, 3127, 528, 9, 70, "Output",ExpressionUUID->"7a7787e4-4baf-4678-b262-c203299c2531", CellID->794108929] }, Open ]], Cell[112992, 3139, 208, 4, 70, "Text",ExpressionUUID->"c1fa3304-56db-41e3-b513-49886e05b2c6", CellID->175518802], Cell[CellGroupData[{ Cell[113225, 3147, 478, 11, 70, "Input",ExpressionUUID->"dfae5f4b-52ac-4efe-8131-bd743f8482bf", CellID->482754091], Cell[113706, 3160, 478, 8, 70, "Output",ExpressionUUID->"ea1587ea-e78b-4bbf-ae9b-7881a12ae79c", CellID->147930703] }, Open ]], Cell[114199, 3171, 255, 4, 70, "Text",ExpressionUUID->"c0b535c9-8eec-4c4c-829b-880dcad73a77", CellID->318190755], Cell[CellGroupData[{ Cell[114479, 3179, 706, 19, 70, "Input",ExpressionUUID->"6221aa0b-fd12-4a26-941f-0874086dfb1b", CellID->815721412], Cell[115188, 3200, 504, 9, 70, "Output",ExpressionUUID->"ecac7e66-6895-4741-b08c-0bada0c99697", CellID->846613722] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[115741, 3215, 239, 5, 70, "Subsubsection",ExpressionUUID->"554b454b-c478-4f98-9efc-4a4273621639", CellID->730207542], Cell[115983, 3222, 220, 6, 70, "Text",ExpressionUUID->"8e0fb125-1f34-4454-88f1-c1152855d29e", CellID->482930982], Cell[CellGroupData[{ Cell[116228, 3232, 410, 10, 70, "Input",ExpressionUUID->"f181b8f8-02da-4662-ab09-154f9da660ca", CellID->557642335], Cell[116641, 3244, 437, 8, 70, "Output",ExpressionUUID->"ae60c983-8e3c-42b7-8a56-7d7b94d018ad", CellID->911339845] }, Open ]], Cell[117093, 3255, 220, 6, 70, "Text",ExpressionUUID->"31dbfc50-3731-4da3-bf51-08a62780fbae", CellID->328990681], Cell[CellGroupData[{ Cell[117338, 3265, 495, 12, 70, "Input",ExpressionUUID->"aa4fface-ae32-4d78-8272-f5627d4c4b20", CellID->171374251], Cell[117836, 3279, 470, 8, 70, "Output",ExpressionUUID->"d3aae9fe-8b1b-47c6-8916-c68acf5bc57f", CellID->7986840] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[118355, 3293, 240, 5, 70, "Subsubsection",ExpressionUUID->"2a246eb3-dc18-4609-88c4-207423ac3b9d", CellID->330269613], Cell[118598, 3300, 412, 8, 70, "Text",ExpressionUUID->"fa1c46e2-7f7f-4cba-80bd-f00771739654", CellID->130492293], Cell[CellGroupData[{ Cell[119035, 3312, 484, 11, 70, "Input",ExpressionUUID->"1eb81e78-5810-4848-85db-1ca34da7811f", CellID->546614336], Cell[119522, 3325, 539, 10, 70, "Output",ExpressionUUID->"4d414cf7-e8d0-4262-a27b-366047ed34cf", CellID->493710484] }, Open ]], Cell[120076, 3338, 363, 8, 70, "Text",ExpressionUUID->"9d168a6d-d989-4243-a91e-8b8db25213c1", CellID->175299440], Cell[CellGroupData[{ Cell[120464, 3350, 595, 14, 70, "Input",ExpressionUUID->"b8f120a1-179d-4045-8680-d716f4a8f484", CellID->793885971], Cell[121062, 3366, 541, 10, 70, "Output",ExpressionUUID->"bedb74a9-e8c4-4e19-8a4c-1e712470f52c", CellID->963905303] }, Open ]], Cell[121618, 3379, 192, 4, 70, "Text",ExpressionUUID->"af67ec23-e253-4640-b01b-d33d078e052f", CellID->178927827], Cell[CellGroupData[{ Cell[121835, 3387, 631, 13, 70, "Input",ExpressionUUID->"4bb2b39b-5f58-4eab-abda-5af3e88c022f", CellID->120242957], Cell[122469, 3402, 575, 10, 70, "Output",ExpressionUUID->"c8daeed5-27aa-4c06-a2ab-f7786ae3746d", CellID->879578297] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[123105, 3419, 73, 2, 70, "Subsection",ExpressionUUID->"2386bb77-fc7a-4652-af65-9a1e36911e98", CellID->605265931], Cell[123181, 3423, 344, 7, 70, "Text",ExpressionUUID->"aae4c281-53d1-4631-bf9a-85b2ab40b85b", CellID->231724499], Cell[123528, 3432, 1500, 37, 70, "Input",ExpressionUUID->"1d3bc354-c84a-4182-8560-25c304365f8a", CellID->289275725], Cell[125031, 3471, 204, 4, 70, "Text",ExpressionUUID->"0d443e28-6ce2-40c4-b66f-f58019063742", CellID->230457373], Cell[CellGroupData[{ Cell[125260, 3479, 311, 8, 70, "Input",ExpressionUUID->"c4be5417-9773-4cf2-9b36-be0a646908fb", CellID->734479941], Cell[125574, 3489, 563, 10, 70, "Output",ExpressionUUID->"f9813b4b-e8d5-48c0-a15b-b3969edf0e8d", CellID->29533081] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[126186, 3505, 85, 2, 70, "Subsection",ExpressionUUID->"303d238e-17f8-4cab-8cca-8068e6dc0dce", CellID->232113220], Cell[126274, 3509, 971, 27, 70, "Text",ExpressionUUID->"802bfffb-78f8-4e06-857e-b25e48e8c4d8", CellID->677188239], Cell[CellGroupData[{ Cell[127270, 3540, 364, 11, 70, "Input",ExpressionUUID->"23b67fd3-19fd-4dd6-a080-2eda07ba742c", CellID->239591995], Cell[127637, 3553, 619, 11, 70, "Output",ExpressionUUID->"b89d7b91-d475-4751-88de-ed9b8f6c902c", CellID->17250628] }, Open ]], Cell[CellGroupData[{ Cell[128293, 3569, 289, 7, 70, "Input",ExpressionUUID->"8d1f6e5a-3492-4dc7-b550-a59af251ba17", CellID->733176279], Cell[128585, 3578, 689, 12, 70, "Output",ExpressionUUID->"c95489f7-e6c6-46f0-b405-f60f914cfb5c", CellID->676470819] }, Open ]], Cell[CellGroupData[{ Cell[129311, 3595, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d82e148e-d1f5-4cf1-b55e-6b3fbc3782ef", CellID->14107562], Cell[129457, 3601, 773, 24, 70, "Text",ExpressionUUID->"1edea38a-0c9f-4acf-a4f5-d3c84ef5a2ab", CellID->961701341], Cell[CellGroupData[{ Cell[130255, 3629, 228, 6, 70, "Input",ExpressionUUID->"3360db2d-494e-4948-ba52-c063861b4c18", CellID->965548622], Cell[130486, 3637, 310, 7, 70, "Output",ExpressionUUID->"fa71958b-04b1-43b2-a6f4-34b02c589ea9", CellID->26281214] }, Open ]], Cell[CellGroupData[{ Cell[130833, 3649, 192, 6, 70, "Input",ExpressionUUID->"2f102d25-e246-4499-85cb-171ecb2607b0", CellID->714276263], Cell[131028, 3657, 317, 7, 70, "Output",ExpressionUUID->"7308bdc5-d09d-46d0-9580-ac01fcca859f", CellID->262602394] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[131406, 3671, 76, 2, 70, "Subsection",ExpressionUUID->"c7f8b1b7-06a0-4dc4-8ee8-e2d9d48f05a9", CellID->158766396], Cell[131485, 3675, 687, 22, 70, "Text",ExpressionUUID->"c71b234b-3404-4d69-9c12-5b08131886e1", CellID->55387491], Cell[CellGroupData[{ Cell[132197, 3701, 346, 9, 70, "Input",ExpressionUUID->"40ac8a49-3d52-4a20-b9da-9749378ce845", CellID->577102815], Cell[132546, 3712, 545, 10, 70, "Output",ExpressionUUID->"6b73d270-98c5-4a76-868c-d6113bba9aca", CellID->951536770] }, Open ]], Cell[133106, 3725, 210, 4, 70, "Text",ExpressionUUID->"c498548f-b785-494d-974a-77eed4347e8a", CellID->479203899], Cell[CellGroupData[{ Cell[133341, 3733, 345, 10, 70, "Input",ExpressionUUID->"6ed4b824-4d7e-4b19-9a94-b82743b979e1", CellID->256314951], Cell[133689, 3745, 413, 7, 70, "Output",ExpressionUUID->"41a46a5a-2d6a-489d-8bb2-29b1ec8ec272", CellID->997068786] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[134163, 3759, 249, 5, 70, "Section",ExpressionUUID->"bbb5c9a3-0183-45a9-80c0-e509e1d4f90b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[134437, 3768, 1026, 26, 70, "Subsection",ExpressionUUID->"93b775a6-a36f-4fd4-8734-17077cfafa39", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[135466, 3796, 50, 1, 70, "Text",ExpressionUUID->"817d7ffe-d2f1-4783-bd76-0a2997ea76ea", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[135553, 3802, 996, 26, 70, "Subsection",ExpressionUUID->"1f25d2b1-6e11-480b-8350-be63ec0ea9c9", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[136552, 3830, 54, 1, 70, "Item",ExpressionUUID->"a20a7111-31b5-4f8b-9e99-d1c658fc9f91", CellID->300613635], Cell[136609, 3833, 45, 1, 70, "Item",ExpressionUUID->"4db6d424-1d75-4c2f-bbc8-ce5447909330", CellID->738054484], Cell[136657, 3836, 52, 1, 70, "Item",ExpressionUUID->"5ad1f155-8681-44d8-97d6-96429b443baa", CellID->605581225], Cell[136712, 3839, 43, 1, 70, "Item",ExpressionUUID->"c62f9612-2d08-4735-aafa-294f46b2f525", CellID->728001091], Cell[136758, 3842, 57, 1, 70, "Item",ExpressionUUID->"bd10c309-3f74-44e4-9390-b1771c6146a6", CellID->575383200], Cell[136818, 3845, 39, 1, 70, "Item",ExpressionUUID->"6d0573b0-f557-4718-9740-e4e89cc4672b", CellID->102344018], Cell[136860, 3848, 45, 1, 70, "Item",ExpressionUUID->"d0a9cc1f-b1f9-4d93-a58e-ca86fb0be905", CellID->557004941] }, Open ]], Cell[CellGroupData[{ Cell[136942, 3854, 221, 6, 70, "Subsection",ExpressionUUID->"a87dcce8-8cb3-4ada-9afa-a24cbe218391", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[137166, 3862, 7483, 246, 70, "Output",ExpressionUUID->"a85b5120-0dae-4832-89b8-d72c63f8d242", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->682382985] }, Open ]], Cell[CellGroupData[{ Cell[144686, 4113, 980, 26, 70, "Subsection",ExpressionUUID->"c84a059c-61d8-4542-9d00-19b547ef68b6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[145669, 4141, 45, 1, 70, "Item",ExpressionUUID->"a7ac09eb-8ce9-478d-8841-6b94cc136e4a", CellID->173966154], Cell[145717, 4144, 43, 1, 70, "Item",ExpressionUUID->"343ca4a2-6720-44b0-b5c1-16ee8becb69c", CellID->156736791], Cell[145763, 4147, 42, 1, 70, "Item",ExpressionUUID->"ccf78bc7-13e0-4b39-9f7e-cad13319abad", CellID->13476602], Cell[145808, 4150, 42, 1, 70, "Item",ExpressionUUID->"274b3d45-e1fb-4446-b8f9-4bf7006651bb", CellID->289807963], Cell[145853, 4153, 47, 1, 70, "Item",ExpressionUUID->"46e698e9-2fc4-4c8b-9a66-da65475017e8", CellID->754833275], Cell[145903, 4156, 51, 1, 70, "Item",ExpressionUUID->"4d0ca8ed-f1ad-47d9-a136-7b6013704249", CellID->138746482], Cell[145957, 4159, 53, 1, 70, "Item",ExpressionUUID->"2ad25411-640d-4da9-b9f9-29e4d0569ad0", CellID->397229257] }, Open ]], Cell[CellGroupData[{ Cell[146047, 4165, 1039, 26, 70, "Subsection",ExpressionUUID->"7746019e-1c51-457a-a9b7-051c00335d8d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[147089, 4193, 528, 8, 70, "Item",ExpressionUUID->"b2ab6a0b-f715-4345-af62-8b733460db0f", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[147654, 4206, 1084, 26, 70, "Subsection",ExpressionUUID->"7349cadc-3042-4f2b-91c1-6d1f17cec9a7", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[148741, 4234, 516, 8, 70, "Text",ExpressionUUID->"f0811cc2-87c9-4ce0-ab8f-e472de1a9d15", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[149294, 4247, 923, 26, 70, "Subsection",ExpressionUUID->"c28cd153-bf61-4f00-821d-0acf57292630", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[150220, 4275, 505, 8, 70, "Item",ExpressionUUID->"bf6d4a9c-5b5c-4a6e-b0a9-a7224e1b68d4", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[150762, 4288, 1874, 45, 70, "Subsection",ExpressionUUID->"fb7f425f-e262-4fb3-9747-d78fef3be36d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[152639, 4335, 935, 24, 70, "Input",ExpressionUUID->"e6610659-d4a5-442a-a3c2-305dfc64be57", CellID->876032573], Cell[153577, 4361, 693, 18, 70, "Input",ExpressionUUID->"11ec85f8-2deb-41f5-a40e-39f46e2d1fe4", CellID->996061805] }, Open ]], Cell[CellGroupData[{ Cell[154307, 4384, 955, 25, 70, "Subsection",ExpressionUUID->"18a99fc0-fbe4-4d47-9f62-bc871c9803dc", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[155287, 4413, 1174, 31, 70, "Subsubsection",ExpressionUUID->"4a6a5d9f-7ba2-4852-8ef3-1be546f68d56", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[156464, 4446, 89, 2, 70, "Text",ExpressionUUID->"7dd68bbb-9efb-4ee6-8082-1bf1348a6863", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[156590, 4453, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f4f428ee-c2ac-4b7d-a451-5316980dbad7", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[157706, 4484, 1321, 40, 70, "Output",ExpressionUUID->"6ce5cb2d-1ab8-4505-88e6-5282cb7376f6", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[159064, 4529, 1280, 33, 70, "Subsubsection",ExpressionUUID->"1f57231a-35c6-4a9f-be94-e868718db405", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[160347, 4564, 1365, 41, 70, "Output",ExpressionUUID->"7c614911-d815-451d-8317-e90218ee61f2", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[161749, 4610, 1913, 46, 70, "Subsubsection",ExpressionUUID->"461a0c30-a9be-4f90-a6b2-1564ead9c5d2", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[163665, 4658, 2896, 83, 70, "Output",ExpressionUUID->"7ea58864-5027-4c56-8f7f-7cbb882535e0", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[166598, 4746, 1071, 27, 70, "Subsubsection",ExpressionUUID->"690c95ed-9387-4b59-88ea-9d93845b13af", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[167672, 4775, 938, 28, 70, "Output",ExpressionUUID->"baeff808-7f5b-4a6d-8482-226251816ad8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[168671, 4810, 1155, 28, 70, "Section",ExpressionUUID->"4aedc56e-5c55-4769-9e91-bd2cd46d1b2b", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[169829, 4840, 529, 8, 70, "Text",ExpressionUUID->"04eaaab2-8fb3-400b-b38c-f6d639fa6b4f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[170395, 4853, 1033, 26, 70, "Section",ExpressionUUID->"41ae3841-f3d3-4357-a330-130f198dc889", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[171431, 4881, 515, 8, 70, "Text",ExpressionUUID->"798fbd4c-ae1d-482e-90a6-65b2465d8db5", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)