(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 205018, 4927] NotebookOptionsPosition[ 110518, 3044] NotebookOutlinePosition[ 187480, 4553] CellTagsIndexPosition[ 186768, 4529] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["FileDownloadResponse", "Title", CellTags->"Title"], Cell["\<\ Generate an HTTP response that prompts the browser to download as a given \ file name\ \>", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ "expr_", ",", " ", "filename_String", ",", " ", "fmt_String", ",", " ", "metadata_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"HTTPResponse", "[", RowBox[{ RowBox[{"ExportByteArray", "[", RowBox[{"expr", ",", " ", "fmt"}], "]"}], ",", " ", RowBox[{"joinMetadata", "[", RowBox[{ RowBox[{"Association", "[", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"getContentType", "[", RowBox[{"fmt", ",", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", "filename"}], "]"}]}], "}"}]}]}], "]"}], ",", " ", "metadata"}], "]"}], ",", " ", RowBox[{"CharacterEncoding", " ", "->", " ", RowBox[{"OptionValue", "[", "CharacterEncoding", "]"}]}], ",", " ", RowBox[{"CachePersistence", " ", "->", " ", RowBox[{"OptionValue", "[", "CachePersistence", "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ "expr_", ",", " ", "filename_String", ",", " ", "Automatic", ",", " ", "metadata_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"FileDownloadResponse", "[", RowBox[{"expr", ",", " ", "filename", ",", " ", RowBox[{"getFormat", "[", "filename", "]"}], ",", " ", "metadata", ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ "expr_", ",", " ", "filename_String", ",", " ", "fmt_String", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"FileDownloadResponse", "[", RowBox[{"expr", ",", " ", "filename", ",", " ", "fmt", ",", " ", RowBox[{"Association", "[", "]"}], ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{"expr_", ",", " ", "filename_String", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"FileDownloadResponse", "[", RowBox[{"expr", ",", " ", "filename", ",", " ", RowBox[{"getFormat", "[", "filename", "]"}], ",", " ", RowBox[{"Association", "[", "]"}], ",", " ", "opts"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"Options", "[", "FileDownloadResponse", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"CharacterEncoding", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"CachePersistence", " ", "->", " ", "Inherited"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "Automatic"}]}], "}"}]}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"joinMetadata", "[", RowBox[{ RowBox[{"a", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"\"\\"", " ", "->", " ", "ah_"}], "]"}]}], ",", " ", RowBox[{"b", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"\"\\"", " ", "->", " ", "bh_"}], "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"Append", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"KeyDrop", "[", RowBox[{ RowBox[{"Association", "[", "a", "]"}], ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{"KeyDrop", "[", RowBox[{ RowBox[{"Association", "[", "b", "]"}], ",", " ", "\"\\""}], "]"}]}], "]"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"DeleteDuplicatesBy", "[", RowBox[{ RowBox[{"Normal", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Association", "[", "ah", "]"}], ",", " ", RowBox[{"Association", "[", "bh", "]"}]}], "]"}], "]"}], ",", " ", "normalizedHeaderKey"}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"joinMetadata", "[", RowBox[{ RowBox[{"a", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"{", "}"}], "]"}]}], ",", " ", RowBox[{"b", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Association", "[", "a", "]"}], ",", " ", RowBox[{"Association", "[", "b", "]"}]}], "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{"normalizedHeaderKey", "[", RowBox[{"key_String", " ", "->", " ", "value_"}], "]"}], " ", ":=", " ", RowBox[{"StringDelete", "[", RowBox[{ RowBox[{"ToLowerCase", "[", "key", "]"}], ",", " ", RowBox[{"Except", "[", "LetterCharacter", "]"}]}], "]"}]}]], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getContentType", "[", RowBox[{"fmt_String", ",", " ", "Automatic"}], "]"}], " ", ":=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"ToLowerCase", "[", "fmt", "]"}], ",", " ", "$fmtToMIMETypeRules"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"getContentType", "[", RowBox[{"_", ",", " ", "mtype_String"}], "]"}], " ", ":=", " ", "mtype"}], "\n", " "}], "\n", RowBox[{ RowBox[{"getContentType", "[", "___", "]"}], " ", ":=", " ", "\"\\""}]}], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{"$fmtToMIMETypeRules", " ", ":=", " ", RowBox[{"$fmtToMIMETypeRules", " ", "=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"get", ",", " ", "types", ",", " ", "rules"}], "}"}], ",", " ", RowBox[{ RowBox[{"get", " ", "=", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quiet", "[", RowBox[{"Check", "[", RowBox[{ RowBox[{"ToLowerCase", "[", RowBox[{"ImportExport`GetMIMEType", "[", "#1", "]"}], "]"}], ",", " ", "$Failed"}], "]"}], "]"}], ",", " ", "#1"}], "}"}], " ", "&"}]}], " ", ";", " ", RowBox[{"types", " ", "=", " ", RowBox[{"get", " ", "/@", " ", "$ImportFormats"}]}], ";", " ", RowBox[{"rules", " ", "=", " ", RowBox[{"Cases", "[", RowBox[{"types", ",", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"mtype_String", ",", " ", "___"}], "}"}], ",", " ", "fmt_String"}], "}"}], " ", ":>", " ", RowBox[{ RowBox[{"ToLowerCase", "[", "fmt", "]"}], " ", "->", " ", "mtype"}]}]}], "]"}]}], ";", " ", RowBox[{"Dispatch", "[", RowBox[{"Replace", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"rules", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "\"\\"", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"___", " ", "->", " ", "\"\\""}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"\"\\"", " ", "->", " ", "_"}], "]"}], " ", "->", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}]}], ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"\"\\"", " ", "->", " ", "_"}], "]"}], " ", "->", " ", RowBox[{"\"\\"", " ", "->", " ", "\"\\""}]}]}], "}"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], "]"}]}]}], "]"}]}]}]], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getFormat", "[", "filename_String", "]"}], " ", ":=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"FileExtension", "[", "filename", "]"}], ",", " ", "$fileExtensionToFMTRules"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"getFormat", "[", "___", "]"}], " ", ":=", " ", "\"\\""}]}], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{"$fileExtensionToFMTRules", " ", ":=", " ", RowBox[{"$fileExtensionToFMTRules", " ", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Cases", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ImportExport`GetFormatExtension", "[", "#1", "]"}], " ", "->", " ", "#1"}], " ", "&"}], " ", ")"}], " ", "/@", " ", "$ImportFormats"}], ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"ext_String", " ", "->", " ", "fmt_"}], "]"}], " ", ":>", " ", RowBox[{ RowBox[{"StringDelete", "[", RowBox[{"ext", ",", " ", RowBox[{"StartOfString", "~~", "\"\<.\>\""}]}], "]"}], " ", "->", " ", "fmt"}]}]}], "]"}], ",", " ", RowBox[{"___", " ", "->", " ", "\"\\""}]}], "]"}], "]"}]}]}]], "Input", InitializationCell->True] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ StyleBox["expr", "TI"], ",", "\"\<\!\(\*StyleBox[\"filename\", \"TI\"]\)\>\""}], "]"}]], "UsageInputs"], Cell[TextData[{ "generates an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HTTPResponse", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/HTTPResponse"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " that informs the browser that the content should be downloaded as the \ given ", StyleBox["filename", "TI"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ StyleBox["expr", "TI"], ",", "\"\<\!\(\*StyleBox[\"filename\", \"TI\"]\)\>\"", ",", StyleBox["fmt", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["fmt", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ExportForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/ExportForm"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ StyleBox["expr", "TI"], ",", "\"\<\!\(\*StyleBox[\"filename\", \"TI\"]\)\>\"", ",", StyleBox["fmt", "TI"], ",", StyleBox["metadata", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "includes ", Cell[BoxData[ StyleBox["metadata", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as part of the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HTTPResponse", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/HTTPResponse"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ Cell[BoxData["FileDownloadResponse"], "InlineFormula", FontFamily->"Source Sans Pro"], " is usually stored in a ", Cell[BoxData[ TemplateBox[{"CloudObject","paclet:ref/CloudObject"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " or specified as the result in an ", Cell[BoxData[ TemplateBox[{"APIFunction","paclet:ref/APIFunction"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TemplateBox[{"FormFunction","paclet:ref/FormFunction"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->1067943069], Cell[TextData[{ "The value for ", Cell[BoxData[ StyleBox["metadata", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in ", Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ StyleBox["expr", "TI"], ",", "\"\<\!\(\*StyleBox[\"filename\", \"TI\"]\)\>\"", ",", StyleBox["fmt", "TI"], ",", StyleBox["metadata", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/Association"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " including the following possible elements:" }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->675488068], Cell[BoxData[GridBox[{ {"\"\\"", "200", Cell["HTTP status code", "TableText"]}, {"\"\\"", "\"\\"", Cell[ "MIME type for content", "TableText"]}, {"\"\\"", RowBox[{"{", "}"}], Cell[TextData[{ "cookies to handle (using ", Cell[BoxData[ TemplateBox[{"CookieFunction","paclet:ref/CookieFunction"}, "RefLink", BaseStyle->{"3ColumnTableMod"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ")" }], "TableText"]}, {"\"\\"", RowBox[{"{", "}"}], Cell[ "a list of rules giving HTTP response headers", "TableText"]} }]], "TableNotes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->12269591], Cell[TextData[{ "Properties of the resulting ", Cell[BoxData[ TemplateBox[{"HTTPResponse","paclet:ref/HTTPResponse"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " object can be accessed using ", Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"HTTPResponse","paclet:ref/HTTPResponse"}, "RefLink", BaseStyle->{"InlineFormula"}], "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "[", "\"\<\!\(\*StyleBox[\"prop\", \"TI\"]\)\>\"", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->1016255396], Cell["\<\ Possible properties include all metadata items, together with:\ \>", "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->1587209875], Cell[BoxData[GridBox[{ {"\"\\"", Cell["response body as a string", "TableText"]}, {"\"\\"", Cell[TextData[{ "response body as a ", Cell[BoxData[ TemplateBox[{"ByteArray","paclet:ref/ByteArray"}, "RefLink", BaseStyle->{"2ColumnTableMod"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " object" }], "TableText"]}, {"\"\\"", Cell[ "response body as a list of byte values", "TableText"]}, {"\"\\"", Cell[TextData[{ "character encoding in the response body (e.g. ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ")" }], "TableText"]}, {"\"\\"", Cell["list of available properties", "TableText"]}, {"\"\\"", Cell[ "plain text description of status code", "TableText"]} }]], "TableNotes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->80428445], Cell[TextData[{ Cell[BoxData["FileDownloadResponse"], "InlineFormula", FontFamily->"Source Sans Pro"], " has the following options:" }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->1874800733], Cell[BoxData[GridBox[{ { TagBox[ ButtonBox[ StyleBox["CharacterEncoding", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/CharacterEncoding"], MouseAppearanceTag["LinkHand"]], 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"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/Automatic"], MouseAppearanceTag["LinkHand"]], RowBox[{ "character", " ", "encoding", " ", "to", " ", "apply", " ", "to", " ", "the", " ", "response"}]}, { TagBox[ ButtonBox[ StyleBox["CachePersistence", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/CachePersistence"], MouseAppearanceTag["LinkHand"]], TagBox[ ButtonBox[ StyleBox["Inherited", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/Inherited"], MouseAppearanceTag["LinkHand"]], RowBox[{ RowBox[{"how", " ", "long", " ", "to", " ", "keep", " ", "server"}], "\[Hyphen]", RowBox[{ "side", " ", "cached", " ", "versions", " ", "of", " ", "computations", " ", "that", " ", "are", " ", "done"}]}]}, {"\"\\"", 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"}], ImageSizeCache -> {412., {3., 10.}}], ButtonData->"paclet:ref/Automatic"], MouseAppearanceTag["LinkHand"]], RowBox[{ RowBox[{"specify", " ", "a", " ", "content"}], "\[Hyphen]", RowBox[{"type", " ", "header"}]}]} }]], "TableNotes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->579661471], Cell[TextData[{ "The setting ", Cell[BoxData[ RowBox[{ TemplateBox[{"CharacterEncoding","paclet:ref/CharacterEncoding"}, "RefLink", BaseStyle->{"InlineFormula"}], "->", "\"\<\!\(\*StyleBox[\"enc\", \"TI\"]\)\>\""}]], "InlineFormula", FontFamily->"Source Sans Pro"], " specifies that the body in the resulting ", Cell[BoxData[ RowBox[{ TemplateBox[{"HTTPResponse","paclet:ref/HTTPResponse"}, "RefLink", BaseStyle->{"InlineFormula"}], "[", RowBox[{ StyleBox["body", "TI"], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " should be encoded using the encoding ", Cell[BoxData[ StyleBox["enc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " before being returned from a server as an HTTP response." }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->1931941888], Cell[TextData[{ "The setting ", Cell[BoxData[ RowBox[{ TemplateBox[{"CharacterEncoding","paclet:ref/CharacterEncoding"}, "RefLink", BaseStyle->{"InlineFormula"}], "->", TemplateBox[{"None","paclet:ref/None"}, "RefLink", BaseStyle->{"InlineFormula"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " specifies that no change should be made to ", Cell[BoxData[ StyleBox["body", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " before returning it." }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->883382785], Cell[TextData[{ "The ", Cell[BoxData[ TemplateBox[{"Automatic","paclet:ref/Automatic"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " setting for the ", Cell[BoxData[ TemplateBox[{"CharacterEncoding","paclet:ref/CharacterEncoding"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " option will use an encoding given from the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " metadata property if it includes a ", StyleBox["charset", "InlineCode"], " specification (as in ", StyleBox["\"text/html; charset=latin1\"", "InlineCode"], "). It will also use an encoding from the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " metadata property. If no encoding is otherwise given, then the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " encoding is used for text-based MIME types and ", Cell[BoxData[ TemplateBox[{"None","paclet:ref/None"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " for other MIME types." }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->613596363], Cell[TextData[{ "If a specific encoding is given for the ", Cell[BoxData[ TemplateBox[{"CharacterEncoding","paclet:ref/CharacterEncoding"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " option and the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " metadata property is a text-based MIME type, a ", StyleBox["charset", "InlineCode"], " specification will be automatically added to indicate the encoding to \ browsers." }], "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->36296399] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell[TextData[{ "Generate an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HTTPResponse", "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/HTTPResponse"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.7555234921018534`*^9, 3.7555235004816036`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.755523511925259*^9, 3.7555235265248203`*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"application/csv\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"application/csv\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{49, 44, 50, 44, 51, 10, 52, 44, 53, 44, 54, 10}], Association[ "ContentType" -> "application/csv", "Headers" -> { "content-disposition" -> "attachment; filename=download.csv"}], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7555235294577317`*^9, {3.755525316053199*^9, 3.7555253206490593`*^9}, 3.755525954824201*^9, 3.7555289541220865`*^9, 3.755529050728183*^9, 3.7555290909819736`*^9, 3.755529172146535*^9, {3.755529251346155*^9, 3.7555292740044737`*^9}, 3.7555298851336775`*^9}, CellLabel->"Out[1]=", CellID->163465164] }, Open ]], Cell["The content disposition is set with the given file name:", "Text", CellChangeTimes->{{3.7555235564359236`*^9, 3.755523570052513*^9}}, CellID->13231713], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.755523541503389*^9, 3.7555235437083187`*^9}}, CellLabel->"In[2]:=", CellID->43156365], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"content-disposition\"\>", "\[Rule]", "\<\"attachment; filename=download.csv\"\>"}], ",", RowBox[{"\<\"content-type\"\>", "\[Rule]", "\<\"application/csv\"\>"}]}], "}"}]], "Output", CellChangeTimes->{3.75552354416829*^9, 3.755525320740057*^9, 3.755525954921198*^9, 3.755529274153469*^9, 3.7555298854486685`*^9}, CellLabel->"Out[2]=", CellID->518763241] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882]], Cell["Specify a format:", "Text", CellChangeTimes->{{3.7555236155651627`*^9, 3.7555236185810747`*^9}}, CellID->482158387], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.755523600421625*^9, 3.7555236651736526`*^9}}, CellLabel->"In[1]:=", CellID->32331410], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"application/vnd.wolfram.mathematica.package\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"application/vnd.wolfram.mathematica.package\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{40, 42, 32, 67, 114, 101, 97, 116, 101, 100, 32, 119, 105, 116, 104, 32, 116, 104, 101, 32, 87, 111, 108, 102, 114, 97, 109, 32, 76, 97, 110, 103, 117, 97, 103, 101, 32, 58, 32, 119, 119, 119, 46, 119, 111, 108, 102, 114, 97, 109, 46, 99, 111, 109, 32, 42, 41, 10, 123, 123, 49, 44, 32, 50, 44, 32, 51, 125, 44, 32, 123, 52, 44, 32, 53, 44, 32, 54, 125, 125, 10}], Association[ "ContentType" -> "application/vnd.wolfram.mathematica.package", "Headers" -> { "content-disposition" -> "attachment; filename=download.data"}], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.7555236201960063`*^9, 3.7555236658796325`*^9}, 3.755525320904052*^9, 3.7555259550561943`*^9, 3.7555292744584613`*^9, 3.7555298856506624`*^9}, CellLabel->"Out[1]=", CellID->274118922] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882]], Cell[TextData[{ "Provide additional metadata for the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HTTPResponse", "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/HTTPResponse"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.755523755452962*^9, 3.7555237679835653`*^9}}, CellID->4543498], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Automatic", ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "418"}], "|>"}]}], "]"}]], "Input", CellChangeTimes->{{3.755523772598428*^9, 3.7555237993726206`*^9}, { 3.7555238996166115`*^9, 3.755523910909273*^9}}, CellLabel->"In[1]:=", CellID->39617927], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"418\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Missing", "[", "\"Undefined\"", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"text/plain;charset=iso-8859-1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"418\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Missing", "[", "\"Undefined\"", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"text/plain;charset=iso-8859-1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{73, 39, 109, 32, 97, 32, 116, 101, 97, 112, 111, 116}], Association[ "ContentType" -> "text/plain", "Headers" -> { "content-disposition" -> "attachment; filename=download.txt"}, "StatusCode" -> 418], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7555238028765173`*^9, 3.755523875844323*^9, {3.75552390760437*^9, 3.7555239160821147`*^9}, 3.7555253210840464`*^9, 3.75552595519919*^9, 3.7555292746954536`*^9, 3.7555298858486567`*^9}, CellLabel->"Out[1]=", CellID->134349987] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["\<\ The MIMEType is determined automatically from the file name when a format is \ not explicitly given:\ \>", "Text", CellChangeTimes->{{3.7555248663827133`*^9, 3.755524899253724*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\""}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.755524903558592*^9, 3.7555249172151804`*^9}}, CellLabel->"In[1]:=", CellID->836153427], Cell[BoxData["\<\"application/csv\"\>"], "Output", CellChangeTimes->{3.7555249191821237`*^9, 3.755525334382648*^9, 3.7555259553251867`*^9, 3.755529282192228*^9, 3.7555298860626497`*^9}, CellLabel->"Out[1]=", CellID->2296455] }, Open ]], Cell["It defaults to text if unknown:", "Text", CellChangeTimes->{{3.755524940861473*^9, 3.7555249580619726`*^9}, { 3.755525342990413*^9, 3.755525343438403*^9}}, CellID->376270969], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\""}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7555249333107185`*^9, 3.755524933789688*^9}}, CellLabel->"In[2]:=", CellID->112041126], Cell[BoxData["\<\"text/plain;charset=iso-8859-1\"\>"], "Output", CellChangeTimes->{3.755524936501602*^9, 3.755525339065505*^9, 3.755525955405184*^9, 3.7555292823082247`*^9, 3.7555298861766453`*^9}, CellLabel->"Out[2]=", CellID->185664609] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882]], Cell["\<\ A format can be given explicitly to override the content type:\ \>", "Text", CellChangeTimes->{{3.7555278786482277`*^9, 3.7555278945449233`*^9}}, CellID->15762461], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7555278711455364`*^9, 3.7555278736878705`*^9}}, CellLabel->"In[1]:=", CellID->44925703], Cell[BoxData["\<\"application/csv\"\>"], "Output", CellChangeTimes->{3.755527896496953*^9, 3.7555292825152187`*^9, 3.7555298865106363`*^9}, CellLabel->"Out[1]=", CellID->642573542] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882]], Cell["Specify custom headers:", "Text", CellChangeTimes->{{3.7555283018157015`*^9, 3.755528306808556*^9}}, CellID->911704416], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "Automatic", ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], "}"}]}], "|>"}]}], "]"}]], "Input", CellChangeTimes->{{3.7555283085434985`*^9, 3.7555283915299916`*^9}}, CellLabel->"In[1]:=", CellID->10382576], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"text/plain;charset=iso-8859-1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"text/plain;charset=iso-8859-1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{72, 101, 108, 108, 111, 32, 119, 111, 114, 108, 100}], Association[ "ContentType" -> "text/plain", "Headers" -> { "content-disposition" -> "attachment; filename=hello.txt", "My-Header" -> "Does it work?"}], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7555283953808756`*^9, 3.755529282737212*^9, 3.7555298866866293`*^9}, CellLabel->"Out[1]=", CellID->25289303] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.755528396645838*^9, 3.7555284003857517`*^9}}, CellLabel->"In[2]:=", CellID->709706383], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"content-disposition\"\>", "\[Rule]", "\<\"attachment; filename=hello.txt\"\>"}], ",", RowBox[{"\<\"my-header\"\>", "\[Rule]", "\<\"Does it work?\"\>"}], ",", RowBox[{"\<\"content-type\"\>", "\[Rule]", "\<\"text/plain;charset=iso-8859-1\"\>"}]}], "}"}]], "Output", CellChangeTimes->{3.7555284009247074`*^9, 3.755529282870208*^9, 3.755529886790628*^9}, CellLabel->"Out[2]=", CellID->232361803] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->776923543], Cell[CellGroupData[{ Cell["CharacterEncoding", "Subsubsection", CellChangeTimes->{{3.755528420697139*^9, 3.7555284233370376`*^9}}, CellID->39130611], Cell["Specify a character encoding:", "Text", CellChangeTimes->{{3.7555293062975297`*^9, 3.7555293131303234`*^9}}, CellID->477807850], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"CharacterEncoding", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.755528469873639*^9, 3.7555284799173374`*^9}}, CellLabel->"In[1]:=", CellID->545319455], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/plain;charset=utf-8\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/plain;charset=utf-8\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{72, 101, 108, 108, 111, 32, 119, 111, 114, 108, 100}], Association[ "ContentType" -> "text/plain", "Headers" -> {"content-disposition" -> "attachment; filename=hello.txt"}], CharacterEncoding -> "UTF-8", CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7555284812012963`*^9, 3.7555285427644463`*^9, 3.755529298312742*^9, 3.7555298870616198`*^9}, CellLabel->"Out[1]=", CellID->283962344] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"CharacterEncoding", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7555293236580067`*^9, 3.755529324496957*^9}}, CellLabel->"In[2]:=", CellID->728584313], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/plain;charset=us-ascii\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/plain;charset=us-ascii\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{72, 101, 108, 108, 111, 32, 119, 111, 114, 108, 100}], Association[ "ContentType" -> "text/plain", "Headers" -> {"content-disposition" -> "attachment; filename=hello.txt"}], CharacterEncoding -> "ASCII", CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755529325613922*^9, 3.755529887221614*^9}, CellLabel->"Out[2]=", CellID->131426129] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["CachePersistence", "Subsubsection", CellChangeTimes->{{3.755528420697139*^9, 3.755528435312673*^9}}, CellID->134504426], Cell["Deploy a file download that is cached for 3 seconds:", "Text", CellChangeTimes->{{3.7555293989297247`*^9, 3.7555294196911144`*^9}, 3.755529464524768*^9}, CellID->430297600], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"obj", "=", RowBox[{"CloudDeploy", "[", RowBox[{"Delayed", "[", RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"DateString", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<.\>\"", ",", "\"\\""}], "}"}], "]"}], ",", "\"\\"", ",", RowBox[{"CachePersistence", "\[Rule]", "3"}]}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.755529337508571*^9, 3.755529389907016*^9}, 3.7555294634617825`*^9, 3.7555295516201324`*^9}, CellLabel->"In[1]:=", CellID->457020193], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/objects/b4462743-8bdd-4098-96c9-\ 281d07be7875\"", "https://www.wolframcloud.com/objects/b4462743-8bdd-4098-96c9-\ 281d07be7875"}, "HyperlinkURL"], "]"}], CloudObject[ "https://www.wolframcloud.com/objects/b4462743-8bdd-4098-96c9-281d07be7875"], SelectWithContents->True]], "Output", CellChangeTimes->{3.755529431180778*^9, 3.755529466224701*^9, 3.7555295535050755`*^9, 3.755529888015606*^9}, CellLabel->"Out[1]=", CellID->248863604] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Pause", "[", "1", "]"}], ";", RowBox[{"URLRead", "[", RowBox[{"obj", ",", "\"\\""}], "]"}]}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.755529433181696*^9, 3.7555294801743054`*^9}}, CellLabel->"In[2]:=", CellID->191906581], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"12:44:51.448\"\>", ",", "\<\"12:44:51.448\"\>", ",", "\<\"12:44:51.448\"\>", ",", "\<\"12:44:55.297\"\>", ",", "\<\"12:44:55.297\"\>"}], "}"}]], "Output", CellChangeTimes->{3.755529488278063*^9, 3.755529562263815*^9, 3.7555298949063854`*^9}, CellLabel->"Out[2]=", CellID->506955346] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ContentType", "Subsubsection", CellChangeTimes->{{3.755528420697139*^9, 3.7555284516261845`*^9}}, CellID->410978497], Cell["Specify a MIMEType for the response:", "Text", CellChangeTimes->{{3.755529852561675*^9, 3.755529861401408*^9}}, CellID->318438657], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\"", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7555298244555016`*^9, 3.7555298277174053`*^9}}, CellLabel->"In[1]:=", CellID->23800260], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"application/octet-stream\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"application/octet-stream\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{123, 49, 44, 32, 50, 44, 32, 51, 44, 32, 52, 44, 32, 53, 44, 32, 54, 44, 32, 55, 44, 32, 56, 44, 32, 57, 44, 32, 49, 48, 125}], Association[ "ContentType" -> "application/octet-stream", "Headers" -> {"content-disposition" -> "attachment; filename=download"}], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755529830844309*^9, 3.755529895342371*^9}, CellLabel->"Out[1]=", CellID->394527099] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->568056528], Cell[TextData[{ "Generate an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HTTPResponse", "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/HTTPResponse"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " from a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["FormFunction", "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/FormFunction"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " for downloading an image:" }], "Text", CellChangeTimes->{{3.755525741670632*^9, 3.7555257571751413`*^9}, { 3.75552584046264*^9, 3.755525846143468*^9}}, CellID->292960548], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FormFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{ RowBox[{"ExampleData", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"ExampleData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "#image"}], "}"}], "]"}], ",", RowBox[{"#image", "<>", "\"\<.png\>\""}]}], "]"}], "&"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7555255789106197`*^9, 3.7555255939200726`*^9}, { 3.7555258034037547`*^9, 3.755525832464882*^9}}, CellLabel->"In[1]:=", CellID->289645948], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl8Tde+xw19RbRU8Qx9+i7Vq1yq6BNc97r66H36tJ9bVS+mq1SiMSTm iCGmiKGGXF5FSkInpEjyirqUGmOqElUJMg+NjJI4Mpxpr/c/Z8VpmsgRsnaO vc7v+1nyWWvttdfefvn/f2etk5Od9hO8h3nUq1OnzqyG9GXYeJ+BM2eO933v OWq87zXLc5KX+8QhXrPdJ7nP7DOhPnWup38f1K1Tx1JnAAAABHETAOlwdFbJ A8QEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQE koGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQ FgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjE BJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKB kBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFoiTiKnT6XJy crKBUPLy8q4n5vlFmvwiDL8pkdZSrmdxpGHTUX3ULX0tfK+dJKRrB2cQs6Cg IDc312g0OvpGJCS7iE3dzbzCflu+rtQTxqaGsfE7zOGXVLcIZwjpWsMZxMzK ynL0LUhLSp7i/plp0udGS/nifqWKMnknc//MkFmgrlE7Q0jXGtKLqdfrCwsL HX0X0pKSq3yw3TiByg7r17Ji+iDUSGW8rWeHicrEz0yjtpmvJMMfNIP0YhYX F9+9e9fRdyEtybnK6K2mv4eYxm4zUqHKmG2mcaGmozHm07cUMgo6OrbsqKV/ ZAi7mAB/0AzSiwl/UJWkHGXEFpPbpya3YEvhdTIHs8LMZnY2Xhmz1fT+lrKj I7ea3vuUXYg3qHpL0od0baKqmDqd7ssvv7x27Zp6l3go8AdVSchhf/vENGyz pbz7iWl4kOnIdcVoYuuPmAMOmkuN7Eyc8j/BlkM04L0g09ub2Xn4g3ZQVUya fOLEicHBwepd4qHAH1QlPpsNCTQN3UjFPHi9ae+PCq0c1h9RqD54vdn/oJm8 4p8/K29usAx4e5P5rxvZuTjsLzSD2mLevn3bYFD39cI+8AdVictib6wlZ7CU gWvNAd8qyw8of/nYPMjaM+Bj88IIZd1h5Y11luabNGY9i7oFf9AMqoqZnZ29 cOHCb7/9luqbNm0KDQ2ltcTkyZMDAgKSkpLWrVs3bdq0nTt3cgO5ePEi9dPR lStXRkdH8xlOnDgxe/ZsDw+P+fPn01T79++nziNHjsyZM2fKlClbt24tKSmx fw/wB1W5mcn6rzL/eU1Z6bvS3Gflr80BvCfg12a/NezMTfiDZlBVzIyMDNpf hIWFUd3Pz4/qCxYsWLp06UQr/v7+8+bNo8qNGzdowMaNG5cvX7579+4ZM2ZM nz5dUZT09HQ6SqZBtsDPvXz58oULF3gnmYO7u3t4eLj9e4A/qMqNTNZ7hdJ3 JRVzufLgnn4rld4r2Wn4g3aoTX/w9vaml/vc3FzqXLFihdlspnyn+oEDB2gA HdLr9TExMWQU1JmcnMyt4OzZs3R07ty5a9asocratWv50aysLFpRkKXYvwf4 g6rAH+SmNv2BNgVUoYUBdQYGBlKd0pzqe/fupfqZM2dou0FLAto4UCdtMTIz M6lJ2w3aoVDPV199xaxGMbEcPj4+9u8B/qAqN26z1/0V1wAqtLNQeiw3v7bM bG2WdVp7ypp9ApTXA9ipG/AHzVD7/kDY/CElJYX7Ay0eyApox1FQUHD8+HHu D0aj0dfXl1Yds2bNCg4OvnfvHp1CCw86mpiYmGWFViP27wH+oCqxGezVJQo5 AJWuS5T5EcqcvUoXv7Kezn6K1y5l6X6lm3VMj2VKt+XsZCz8QTM8If6g0+k8 PDxosxAVFUW7Bu4PZAJU2bdvX1xcHNWLioroFL6W2LBhww8//BAZGRkfH2// HuAPqnI9g3VaxMgHyBM6zFe2nab1IfONYFTv4Kt47VYMJvb1JeWlBYwGdFms dFrMTsAftIOqYtIGgXJ5z549VF+yZInNH2ipUMEfqL5z504PK5T71Hn16lVa VPC9BmfSpEmxsbG0qPj8889pBuqho7QrsX8P8AdV+fkX9jtfRun/0nzWwZf9 fqGy6yIjT5gexjy+YMUGtv8q67KYtZ9vHbOAtV/AjsfAHzTDEyUmrSJKS0tt ze+++45MICYmJi0tjdYVVA8JCeGHDAZDXl6e2Wx+6JzwB1W5ls7azmbt5lqL D2s7x/L1i/PMrDCTmUVeYe19yzr5gBfmse+vwx80w5MsJv+x5rZt22hPsWbN GqrTnuJRJ4E/qMpP6azFDNZqlrXMtnxtMdNiCCFnGC0kXvSxNHk/Ly3nsKM/ wx80w5MsJi0SwsPDV61aFRAQEBwc/Hi/x0ELkvz8fOH3BjhX01hTb/b8jPtl uuVrs+msiRdr6sWe8/61k5fnvBW8P6khpBdTURTanjj6LqQlOo25TGXPerEm 0yzl2WmW+gMKPzSdtZttTMmBP2gGZxAz3Ypjfw1EVmKy2dNTmYuXpTSqVFzK F2/WcIqyen+R2rfkDCFdaziDmLSESE1NjQWioeA5dDbBdVlJH2txXVqx9Ll/ qO+ykvc33v3yZCF9L9T+djtDSNcaziOm0WgsLS0tAaIprgY0zGQy1c432nlC uhaAmEAyENICgZhAMhDSAoGYQDIQ0jXh5MmTi63QrpBBTCAdPKTj4+N5nMfF xTn6jrTEsmXLzp49m5mZyd9Jhj8AyeAhbTAYKMiDgoIOHjzo6DvSEuQP5R0V /gAko3xI7969G/7wSMAfgNzAH2oC/AHIjXP6Q0JCwvjx4/mjXGsC/AHIjX1/ iIiIqFOnTt1y8OeSCUHVyTl+fn7Z2dmV+w8fPvz000/zR6nUBPgDkBv7/rBv 377mzZsXlEPgpVWdnNOgQYOqFglCPqEKfwBy81B/aNWqVeWzzp075+rq6uLi 0rVr12+++cbWP3To0Ojo6EWLFr388st09MiRI9TZs2dPT0/PZs2aBQYGDhgw gA799NNPVU2en5/fuXPnxMRE3vT39587dy5VYmJiBg8efODAgV69erVu3Xre vHlGY9lvttIV6VDTpk3btWs3c+bMEusfeRkxYkS3bt1ofdKhQ4fOVs6fP0/9 dAOd73Px4kXbdfPy8kaPHk032bZtW5qc/36inYty4A9Abqqzfoi7T2FhIbM+ KLVJkyZTp06lNA8ICKhfv/6VK1f4+E6dOlEq9e/fPyws7NChQ3xt36hRo3fe eYeW+pStQUFBvXv3Xrx4cVWT5+bm0jDbiz5dZcyYMVS5dOkSXahHjx5Hjx7d smUL1fmfckhNTSVncHNzowHHjh0bMmRIZmYm9V+4cIGMi6YKDQ09boU/2CQq Koo3aX9x4sQJ2//0rbfeosnJ90gBci2yODsXtQF/AHLzUH+gFKt3H8oRZv2j Kh07drQ9rnDQoEGTJ0/mdfIHWlFUeAQZ+QNlJZkJrRyoSS/xY8eOrWpyO/5A /bY3E2hNQtbErO8w0ErggZsFMoTyU1WgYcOGNn9ISUmhkXQJ3gwODm7RooWd i9qAPwC5eYz9xUcfffTuu+/amnPmzKFFOK+TP2zfvr3CePIHWttfv379lVde 4eN5yj9wcvv+YFveDxs2jD/AmfYREyZMeOB/rfr+8P3339NIm8nQvoOadHpV F7UBfwBy8xj+sHTpUldXV1tz5MiR48aN43Xyhx07dlQY/0j+oNPp6tatS+sN 3vT09LTvD97e3gMHDnzgf42molP4ex2VKe8PMTExNJJWEbwZHh7euHFjRVHg D8DJeQx/uHz5Mu3Ed+3aRfXTp0/TRj4iIoIfqrk/EN27d6dlQ1FREQ1o0KDB 6NGjWdX+cOrUKfKTzZs3UzrTKeRdSUlJtqlom7B69Wqq6PX6Cj88Le8PtHLo 0qWLm5sbDaMFTK9evUaNGmXnojbgD0Bu7PsDvZK2bt268lkhISFNmzalxKcs oxyx9ZMDVPYHFxcXWrFX9oeqJqcZ2rRpU69evX79+vn4+PDBP/74Y/lUHT58 OP+5Br8Z8gFyEnIq2ukkJyfbpgoNDaXOli1bPvPMMxVurLw/ENeuXXv11Vep 86mnnhoyZEhOTo79i3LgD0BuHvvzk2azmTJRpeeU0gv6Az/XZIf09HTaUFTu Ly4ujo+Pr+Ynr8gWHuljGPAHIDfO+flqUcAfgNzAH2oC/AHIDfyhJsAfgNzA H2oC/EG7GDPSE5rV0XpJ+/NrqqoEf6gJ8Aft4vDUFlUKgjeqpxL8oSbAH7SL w/NaVEls3UA9leAPNSEyMtLDw8PT07OoyPKXEOEPGsLheS2wqKcSD+nY2FgK 8g8//DA6Olq9a0kP/EFDODypNeQPQAgQU0M4PKnhD84GxNQQDk9q+IOzATE1 hMOTGv7gbEBMDeHwpIY/OBsQU0OokqqtGuTM8kz/z96PcW7iC42T/r0p/EFi IKaGqH72Jb3UIn/jx8VRJ4u+O5Tnv5ASucqR7Z+nme+s9X+MHDekJJmLivjk qa//PqFZXfiDZEBMDVH97Cu9YnkwqSEpQX8zlirFZ0+p4Q8Fn27S7fkqocVT iS82oUmy3EfBHyQDYmqIaqZecpcXaHDx6eO8mRfgl+U57uH+8Hw9OrHygMR2 z1L6l9VbN0x6+V8fcMWu7WiSbK+J8AfJgJgaopqpl9rb8tAz3f/trdB/d+cO XXgYr1Mu0+oioeW/cH8wpqUY01Kpor8Rkz64Dw34ZehfqLNg8wbaQSilpWQg Ob7TTfl3aMy9/eFlE4Z9UXziaGrfP+jjLFFkys2hOdMG9IQ/SAPE1BDVfXVu Xp9vK0p+OJ81aSy96PN+yv2Sc2fKtgZb/mGZ8L4/EAVb/zdvxSJyA+PtDDol e+ZH1GkqyM/fsMoQf4vqil5Puwm+cyELokmKTx4jZ0h+pQ2fTRe5J3fR7OTO beEP0gAxNUT1V+9JHVsWhgSZrY8oNGZl3nZ7274/5P9jDe+/8/FyatISgvvD L/89wLLYmDGJ6llTxlM9Y8RbVM/2drf5A1XS3/gPhv2FjEBMDVH97OMl8cUm 9IJOSwKzTpfYppEdf7C9P5k1+QNq3h75DveHtP7dLZ4w7E1L5+i/WTYvrp2p nuPjBX9wBiCmhqiuLbR1yRj+X7amLuJrOjele/vSa9GGlCTeeXfXZ+xB/lCw 7RNqpv2x22P4Q87sKfAHyYCYGqKaqZcfaPn7KUXHDufM86aNg1Jaasz4JeH5 eoXbg6n/zroV3ARYOX8wpqflLpx1Z/VSxWDQX7+W0Lz+I/lDSs+O1FlyPirz Qze8/yATEFNDVHf98ELjwpDN5sICc3ExnaW/dSN9kKvlVf7NvlSnTlNBfvHp 47TvIB+gweQJhtRkRVFosCH+Vmq/rjSY+0PKax0sJ/61H7vvD8ld29FI/l7E vYOR3B+oFB0+yC/H35qAP8gBxNQQ1V+9W0tdWhskd2pdsbNjS7KFyuOTftcs 6aUWj3iJ387QoXnyH/4N+wuZgJgaoibJ+6QV9VRCSAsEYmoIhyc1/MHZgJga wuFJDX9wNiCmhnB4UsMfnA2IqSEcntTwB2cDYmoIhyc1/MHZgJgawuFJDX9w NiCmhnB4Uosq6YP7qKcSQlogEFNDpP2pu8NTW0hRSkvVUwkhLRCIqS0KggLt PEzyyS/pb7yu6PWqSoSQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYI xASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASS gZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAW CMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQE koGQFgjEBJKBkBYIxASSgZAWCMQEkoGQFgjEBJKBkBYIxASSgZAWCMQEkoGQ FgjEBJKBkBbITQCkw9FZBQDQHv8P64u1iA== "], {{0, 142}, {352, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{352, 142}, PlotRange->{{0, 352}, {0, 142}}]], "Output", CellChangeTimes->{ 3.7555255948000174`*^9, {3.7555256674088364`*^9, 3.7555256852903004`*^9}, 3.755525854416219*^9, 3.755525956786169*^9, 3.755529896279341*^9}, CellLabel->"Out[1]="] }, Open ]], Cell["Deploy it to the cloud:", "Text", CellChangeTimes->{{3.755525886558272*^9, 3.7555258893111687`*^9}}, CellID->117669851], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudDeploy", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7555258721636868`*^9, 3.7555258774465427`*^9}}, CellLabel->"In[2]:=", CellID->37134042], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/objects/f3d176e0-2de3-4930-91f6-\ 08f23918b5b0\"", "https://www.wolframcloud.com/objects/f3d176e0-2de3-4930-91f6-\ 08f23918b5b0"}, "HyperlinkURL"], "]"}], CloudObject[ "https://www.wolframcloud.com/objects/f3d176e0-2de3-4930-91f6-08f23918b5b0"], SelectWithContents->True]], "Output", CellChangeTimes->{3.7555258917130985`*^9, 3.7555259588591*^9, 3.755529896852324*^9}, CellLabel->"Out[2]=", CellID->2961916] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell["\<\ Specifying the content type in the metadata will override the format:\ \>", "Text", CellChangeTimes->{{3.7555280004636965`*^9, 3.755528028144393*^9}}, CellID->69262740], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], "|>"}]}], "]"}]], "Input", CellChangeTimes->{{3.7555279648247957`*^9, 3.75552799028903*^9}}, CellLabel->"In[1]:=", CellID->169497164], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"text/html;charset=iso-8859-1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"text/html;charset=iso-8859-1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{49, 44, 50, 44, 51, 10, 52, 44, 53, 44, 54, 10}], Association[ "ContentType" -> "text/html", "Headers" -> { "content-disposition" -> "attachment; filename=download.csv"}], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7555279935973153`*^9, 3.75552989738131*^9}, CellLabel->"Out[1]=", CellID->670766020] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882]], Cell["\<\ Providing a content disposition header in the metadata can override the given \ file name:\ \>", "Text", CellChangeTimes->{{3.755528103183673*^9, 3.755528124456033*^9}}, CellID->38721182], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileDownloadResponse", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"<|", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], "}"}]}], "|>"}]}], "]"}]], "Input", CellChangeTimes->{{3.755528047162757*^9, 3.755528077864835*^9}}, CellLabel->"In[1]:=", CellID->154725578], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HTTPResponse", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"application/csv\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GraphicsBox[{ RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"200\"", Directive[10, GrayLevel[1], Bold], StripOnInput -> False], TraditionalForm], Scaled[{0.53, 0.48}]]}, ImageSize -> Dynamic[{ Automatic, (3 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}], Background -> None], GridBox[{{ RowBox[{ TagBox["\"Status: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"OK\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"application/csv\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HTTPResponse[ ByteArray[{49, 44, 50, 44, 51, 10, 52, 44, 53, 44, 54, 10}], Association[ "ContentType" -> "application/csv", "Headers" -> { "content-disposition" -> "attachment; filename=override.csv"}], CharacterEncoding -> Automatic, CachePersistence -> Inherited], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755528088068512*^9, 3.7555298977063*^9}, CellLabel->"Out[1]=", CellID->80834448] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.755528092220006*^9, 3.7555280945038886`*^9}}, CellLabel->"In[2]:=", CellID->347799586], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"content-disposition\"\>", "\[Rule]", "\<\"attachment; filename=override.csv\"\>"}], ",", RowBox[{"\<\"content-type\"\>", "\[Rule]", "\<\"application/csv\"\>"}]}], "}"}]], "Output", CellChangeTimes->{3.7555280949619007`*^9, 3.7555298978282957`*^9}, CellLabel->"Out[2]=", CellID->646359991] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Richard Hennigan (Wolfram Research)", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["download", "Item"], Cell["HTTP response", "Item"], Cell["attachment", "Item"], Cell["content disposition", "Item"], Cell["MIME type", "Item"], Cell["content type", "Item"], Cell["HTTP headers", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Cloud & Deployment", "Item"], Cell["External Interfaces & Connections", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["HTTPResponse", "Item"], Cell["ExportForm", "Item"], Cell["ResponseForm", "Item"], Cell["CloudDeploy", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["ChannelMessages", "Item"], Cell["CloudPutByHash", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell[TextData[ButtonBox["Guide: HTTP Requests & Responses", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/guide/HTTPRequestsAndResponses.\ html"], None}, ButtonNote-> "http://reference.wolfram.com/language/guide/HTTPRequestsAndResponses.html"]\ ], "Item"], Cell[TextData[ButtonBox["Guide: Web Browser Automation", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/guide/WebBrowserAutomation.\ html"], None}, ButtonNote-> "http://reference.wolfram.com/language/guide/WebBrowserAutomation.html"]], \ "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 57, 1, 70, "Title",ExpressionUUID->"8196d858-a21a-42e8-8f13-398e300aeb2c", CellTags->"Title"]}, "Description"->{ Cell[618, 23, 135, 4, 70, "Text",ExpressionUUID->"cc39daaf-0e91-41a5-b186-84ed86570abd", CellTags->"Description"]}, "Definition"->{ Cell[778, 31, 887, 21, 70, "Section",ExpressionUUID->"38fd2e76-44bb-4d46-9024-9ff76b3aaac6", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[11276, 315, 99, 3, 70, "Section",ExpressionUUID->"3e69dd26-f2f6-42b0-bb44-e7ba9a0590a3", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[11400, 322, 1615, 42, 70, "Subsection",ExpressionUUID->"7a3dace3-7fa6-4e9a-9bd7-b0bfd69e058a", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[15783, 467, 1131, 24, 70, "Subsection",ExpressionUUID->"5036eb9a-be0c-44fd-b90f-fd441c5bcd6c", CellTags->"Details & Options", CellID->66019318]}, "Nothing"->{ Cell[16917, 493, 841, 28, 70, "Notes",ExpressionUUID->"5c6eb4a7-8cc6-4658-8fc1-483bdaa6321c", CellTags->"Nothing", CellID->1067943069], Cell[17761, 523, 1116, 36, 70, "Notes",ExpressionUUID->"6f926f71-20c4-4ac3-a49c-79a73b54201e", CellTags->"Nothing", CellID->675488068], Cell[18880, 561, 787, 23, 70, "TableNotes",ExpressionUUID->"d7eabd02-7310-491b-80ca-2c6e43a69a77", CellTags->"Nothing", CellID->12269591], Cell[19670, 586, 712, 24, 70, "Notes",ExpressionUUID->"4b731ba8-0098-4c08-989a-88f47310c1d5", CellTags->"Nothing", CellID->1016255396], Cell[20385, 612, 213, 8, 70, "Notes",ExpressionUUID->"548c7ef6-6d6f-403b-820b-521e8d6d14db", CellTags->"Nothing", CellID->1587209875], Cell[20601, 622, 1034, 28, 70, "TableNotes",ExpressionUUID->"456815c9-e946-44bf-a3cc-89338a4ef658", CellTags->"Nothing", CellID->80428445], Cell[21638, 652, 275, 10, 70, "Notes",ExpressionUUID->"9adf7c71-87a7-4d35-8acb-d58618b9c490", CellTags->"Nothing", CellID->1874800733], Cell[21916, 664, 2954, 82, 70, "TableNotes",ExpressionUUID->"301ebe82-41a1-41c8-979d-037449f0c698", CellTags->"Nothing", CellID->579661471], Cell[24873, 748, 951, 30, 70, "Notes",ExpressionUUID->"edb9ffce-6fbc-4d19-b70c-5c273508996a", CellTags->"Nothing", CellID->1931941888], Cell[25827, 780, 636, 22, 70, "Notes",ExpressionUUID->"1f153665-f926-43f2-810d-16b5035ece55", CellTags->"Nothing", CellID->883382785], Cell[26466, 804, 1362, 39, 70, "Notes",ExpressionUUID->"d1d35925-8413-4f96-99b0-1f1ae25a8317", CellTags->"Nothing", CellID->613596363], Cell[27831, 845, 665, 20, 70, "Notes",ExpressionUUID->"5680b04f-2098-4664-bb0d-da770a69993b", CellTags->"Nothing", CellID->36296399]}, "Examples"->{ Cell[28533, 870, 6400, 143, 70, "Section",ExpressionUUID->"ebe35692-0676-4a11-bf8f-4becc98bb47b", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[101233, 2738, 135, 3, 70, "Section",ExpressionUUID->"7e051dcc-660e-4ea2-83a4-426ee693d323", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[101393, 2745, 683, 18, 70, "Subsection",ExpressionUUID->"814c1fba-a19b-4a3a-9bbb-5795a9c265c5", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[102167, 2770, 684, 18, 70, "Subsection",ExpressionUUID->"202cb95f-7aed-4b9e-84ef-317dc4883f76", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[103104, 2807, 126, 4, 70, "Subsection",ExpressionUUID->"9fe0c5d1-3503-405b-a9a1-9f11912ae3dc", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[103356, 2820, 661, 18, 70, "Subsection",ExpressionUUID->"5b572f71-31a6-47ae-86f5-6436341f3c40", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[104175, 2851, 711, 18, 70, "Subsection",ExpressionUUID->"5b522176-78cd-478f-aa2d-c40e1ec4ccc6", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[104990, 2878, 762, 19, 70, "Subsection",ExpressionUUID->"de4a5088-176f-47a8-bd50-0dd29ecbaf28", CellTags->"Source/Reference Citation", CellID->642091068]}, "TabNext"->{ Cell[105755, 2899, 496, 8, 70, "Text",ExpressionUUID->"6b199078-d3d1-444b-a7be-4f0fb4fbdf82", CellTags->"TabNext", CellID->343081869], Cell[108738, 2999, 509, 8, 70, "Text",ExpressionUUID->"56756b52-1888-48db-98d4-e4072542e168", CellTags->"TabNext", CellID->567921317], Cell[110007, 3033, 495, 8, 70, "Text",ExpressionUUID->"e9871184-9c67-4947-9ef6-0429becf9251", CellTags->"TabNext", CellID->920818074]}, "Links"->{ Cell[106288, 2912, 614, 18, 70, "Subsection",ExpressionUUID->"62e6ea63-04fd-429b-ae3a-0d0ed9177ce1", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[107530, 2953, 767, 20, 70, "Subsection",ExpressionUUID->"46800439-e8d1-4fbc-8ef2-711c73fee66c", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[108608, 2993, 127, 4, 70, "Section",ExpressionUUID->"bd9e3226-be96-4bae-bb65-66146d66f303", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[109284, 3012, 720, 19, 70, "Section",ExpressionUUID->"f6d6441b-b6cd-4731-91b2-c2c909acc24e", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 181478, 4409}, {"Description", 181611, 4412}, {"Definition", 181749, 4415}, {"Documentation", 181915, 4419}, {"Usage", 182077, 4423}, {"Details & Options", 182249, 4427}, {"Nothing", 182422, 4431}, {"Examples", 184174, 4468}, {"Source & Additional Information", 184361, 4472}, {"Contributed By", 184553, 4476}, {"Keywords", 184726, 4480}, {"Categories", 184895, 4484}, {"Related Symbols", 185070, 4488}, {"Related Resource Objects", 185260, 4492}, {"Source/Reference Citation", 185460, 4496}, {"TabNext", 185643, 4500}, {"Links", 186085, 4510}, {"Tests", 186246, 4514}, {"Author Notes", 186413, 4518}, {"Submission Notes", 186588, 4522} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 57, 1, 70, "Title",ExpressionUUID->"8196d858-a21a-42e8-8f13-398e300aeb2c", CellTags->"Title"], Cell[618, 23, 135, 4, 70, "Text",ExpressionUUID->"cc39daaf-0e91-41a5-b186-84ed86570abd", CellTags->"Description"], Cell[CellGroupData[{ Cell[778, 31, 887, 21, 70, "Section",ExpressionUUID->"38fd2e76-44bb-4d46-9024-9ff76b3aaac6", CellTags->"Definition", CellID->474513213], Cell[1668, 54, 3206, 76, 70, "Input",ExpressionUUID->"bf7e3311-e1c6-47d7-8b9b-4d4a68460211", InitializationCell->True], Cell[4877, 132, 1666, 47, 70, "Input",ExpressionUUID->"9a57d760-3193-4150-a3a8-79daf0e1c376", InitializationCell->True], Cell[6546, 181, 341, 8, 70, "Input",ExpressionUUID->"dd551b5e-1d2b-4360-b3f0-1724735723c4", InitializationCell->True], Cell[6890, 191, 613, 17, 70, "Input",ExpressionUUID->"af619fcf-03eb-461d-98a5-04e91019406a", InitializationCell->True], Cell[7506, 210, 2350, 61, 70, "Input",ExpressionUUID->"2b04193e-74e5-49ad-b12c-45a363c2de07", InitializationCell->True], Cell[9859, 273, 406, 11, 70, "Input",ExpressionUUID->"596a7649-ea0d-4b52-953c-63aadadd776c", InitializationCell->True], Cell[10268, 286, 993, 26, 70, "Input",ExpressionUUID->"5b5eac9f-047b-446a-8576-2c0b50a8e8b6", InitializationCell->True] }, Open ]], Cell[11276, 315, 99, 3, 70, "Section",ExpressionUUID->"3e69dd26-f2f6-42b0-bb44-e7ba9a0590a3", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[11400, 322, 1615, 42, 70, "Subsection",ExpressionUUID->"7a3dace3-7fa6-4e9a-9bd7-b0bfd69e058a", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[13040, 368, 174, 4, 70, "UsageInputs",ExpressionUUID->"32449fc3-dfc8-48de-9f85-8d62fc404ab4"], Cell[13217, 374, 669, 20, 70, "UsageDescription",ExpressionUUID->"a49251ea-c94b-47b1-84cd-18154778394d"] }, Open ]], Cell[CellGroupData[{ Cell[13923, 399, 206, 5, 70, "UsageInputs",ExpressionUUID->"1199d2c2-decd-4fa8-9230-b996e0d61db4"], Cell[14132, 406, 649, 21, 70, "UsageDescription",ExpressionUUID->"ccd8ae3c-c58f-4917-9a28-859e5ab0bdb2"] }, Open ]], Cell[CellGroupData[{ Cell[14818, 432, 243, 6, 70, "UsageInputs",ExpressionUUID->"744887f0-13f0-4570-9bc2-f829da59352b"], Cell[15064, 440, 670, 21, 70, "UsageDescription",ExpressionUUID->"1a5e0bb4-78fd-443e-a5e2-3b349f92362a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15783, 467, 1131, 24, 70, "Subsection",ExpressionUUID->"5036eb9a-be0c-44fd-b90f-fd441c5bcd6c", CellTags->"Details & Options", CellID->66019318], Cell[16917, 493, 841, 28, 70, "Notes",ExpressionUUID->"5c6eb4a7-8cc6-4658-8fc1-483bdaa6321c", CellTags->"Nothing", CellID->1067943069], Cell[17761, 523, 1116, 36, 70, "Notes",ExpressionUUID->"6f926f71-20c4-4ac3-a49c-79a73b54201e", CellTags->"Nothing", CellID->675488068], Cell[18880, 561, 787, 23, 70, "TableNotes",ExpressionUUID->"d7eabd02-7310-491b-80ca-2c6e43a69a77", CellTags->"Nothing", CellID->12269591], Cell[19670, 586, 712, 24, 70, "Notes",ExpressionUUID->"4b731ba8-0098-4c08-989a-88f47310c1d5", CellTags->"Nothing", CellID->1016255396], Cell[20385, 612, 213, 8, 70, "Notes",ExpressionUUID->"548c7ef6-6d6f-403b-820b-521e8d6d14db", CellTags->"Nothing", CellID->1587209875], Cell[20601, 622, 1034, 28, 70, "TableNotes",ExpressionUUID->"456815c9-e946-44bf-a3cc-89338a4ef658", CellTags->"Nothing", CellID->80428445], Cell[21638, 652, 275, 10, 70, "Notes",ExpressionUUID->"9adf7c71-87a7-4d35-8acb-d58618b9c490", CellTags->"Nothing", CellID->1874800733], Cell[21916, 664, 2954, 82, 70, "TableNotes",ExpressionUUID->"301ebe82-41a1-41c8-979d-037449f0c698", CellTags->"Nothing", CellID->579661471], Cell[24873, 748, 951, 30, 70, "Notes",ExpressionUUID->"edb9ffce-6fbc-4d19-b70c-5c273508996a", CellTags->"Nothing", CellID->1931941888], Cell[25827, 780, 636, 22, 70, "Notes",ExpressionUUID->"1f153665-f926-43f2-810d-16b5035ece55", CellTags->"Nothing", CellID->883382785], Cell[26466, 804, 1362, 39, 70, "Notes",ExpressionUUID->"d1d35925-8413-4f96-99b0-1f1ae25a8317", CellTags->"Nothing", CellID->613596363], Cell[27831, 845, 665, 20, 70, "Notes",ExpressionUUID->"5680b04f-2098-4664-bb0d-da770a69993b", CellTags->"Nothing", CellID->36296399] }, Open ]], Cell[CellGroupData[{ Cell[28533, 870, 6400, 143, 70, "Section",ExpressionUUID->"ebe35692-0676-4a11-bf8f-4becc98bb47b", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[34958, 1017, 56, 1, 70, "Subsection",ExpressionUUID->"3876d160-bc80-4ecb-bff9-3354ecabec2d", CellID->462042388], Cell[35017, 1020, 637, 20, 70, "Text",ExpressionUUID->"872fd3c2-0740-4f9d-a7dd-5ccc62831e80", CellID->13078159], Cell[CellGroupData[{ Cell[35679, 1044, 405, 12, 70, "Input",ExpressionUUID->"04b71419-3490-431e-9d94-d7d1a824bd42", CellID->443871870], Cell[36087, 1058, 4449, 99, 70, "Output",ExpressionUUID->"857626fa-1b0a-4a08-bb0f-b849cf4794a9", CellID->163465164] }, Open ]], Cell[40551, 1160, 159, 2, 70, "Text",ExpressionUUID->"ec00da91-baae-4479-b670-82ce42e0e7c3", CellID->13231713], Cell[CellGroupData[{ Cell[40735, 1166, 178, 4, 70, "Input",ExpressionUUID->"ba9c710a-9c6c-46d8-a9fb-e1bd76ecb4bc", CellID->43156365], Cell[40916, 1172, 425, 10, 70, "Output",ExpressionUUID->"9e049aac-1b97-4b30-80fc-876aed568577", CellID->518763241] }, Open ]], Cell[CellGroupData[{ Cell[41378, 1187, 545, 17, 70, "ExampleDelimiter",ExpressionUUID->"0c0a9755-c15f-4e51-9d83-8029e9bee7af", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}], Cell[41926, 1206, 123, 2, 70, "Text",ExpressionUUID->"f4539e29-e1d9-466f-bbe7-dfc874d60699", CellID->482158387], Cell[CellGroupData[{ Cell[42074, 1212, 429, 12, 70, "Input",ExpressionUUID->"30db2640-b314-446e-b29a-244d499742bb", CellID->32331410], Cell[42506, 1226, 4827, 106, 70, "Output",ExpressionUUID->"2dba8702-dfb6-4727-a05e-7ba2dc110fb1", CellID->274118922] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47382, 1338, 545, 17, 70, "ExampleDelimiter",ExpressionUUID->"f65d4235-53f9-4e74-886b-25c33db374f8", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}], Cell[47930, 1357, 658, 20, 70, "Text",ExpressionUUID->"69d9f5a6-9687-404d-9fc8-db1afb5eedfd", CellID->4543498], Cell[CellGroupData[{ Cell[48613, 1381, 409, 11, 70, "Input",ExpressionUUID->"6c5b8706-bd39-4e1e-a3ff-697034ecf851", CellID->39617927], Cell[49025, 1394, 4472, 101, 70, "Output",ExpressionUUID->"977a1804-728e-433a-81b1-bab662091df9", CellID->134349987] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53558, 1502, 47, 1, 70, "Subsection",ExpressionUUID->"18e0aab7-ed88-4cd3-b4dc-b250ea080530", CellID->964056545], Cell[53608, 1505, 212, 5, 70, "Text",ExpressionUUID->"d6a184d8-d169-4acf-806f-76dd50b38713", CellID->649685796], Cell[CellGroupData[{ Cell[53845, 1514, 462, 14, 70, "Input",ExpressionUUID->"86c0c22d-b101-4115-8472-e82c74e3b1fc", CellID->836153427], Cell[54310, 1530, 230, 4, 70, "Output",ExpressionUUID->"d2e44599-af30-4936-a862-9524c8ec87ec", CellID->2296455] }, Open ]], Cell[54555, 1537, 184, 3, 70, "Text",ExpressionUUID->"01980d33-0954-4b60-8f0f-4dcc3c67ffdd", CellID->376270969], Cell[CellGroupData[{ Cell[54764, 1544, 455, 13, 70, "Input",ExpressionUUID->"2391f37a-58f2-4b32-bc1f-9467071788cb", CellID->112041126], Cell[55222, 1559, 244, 4, 70, "Output",ExpressionUUID->"ad6a7a3b-81df-4882-a6f4-b809cbf6b4dd", CellID->185664609] }, Open ]], Cell[CellGroupData[{ Cell[55503, 1568, 545, 17, 70, "ExampleDelimiter",ExpressionUUID->"1ed209b7-2329-4a27-bce9-e46f3b3ded66", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}], Cell[56051, 1587, 175, 4, 70, "Text",ExpressionUUID->"59cad15d-4df6-47b4-aaa7-a1d0bfc25bfd", CellID->15762461], Cell[CellGroupData[{ Cell[56251, 1595, 479, 14, 70, "Input",ExpressionUUID->"c0e90e2b-ce30-40bf-9fe7-c36cf40cc1bb", CellID->44925703], Cell[56733, 1611, 186, 4, 70, "Output",ExpressionUUID->"baab12c1-5b9f-40a8-8b4f-fda1f9353034", CellID->642573542] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56968, 1621, 545, 17, 70, "ExampleDelimiter",ExpressionUUID->"0092443e-a57f-40ca-a6cc-e5da598a6e96", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}], Cell[57516, 1640, 127, 2, 70, "Text",ExpressionUUID->"9564a663-48f4-4474-b6d4-f20651b35755", CellID->911704416], Cell[CellGroupData[{ Cell[57668, 1646, 446, 11, 70, "Input",ExpressionUUID->"2f73219a-7c7a-4447-a77a-b68d81c80ec0", CellID->10382576], Cell[58117, 1659, 4348, 99, 70, "Output",ExpressionUUID->"7f6b4905-101d-457e-b871-92c4db34ee93", CellID->25289303] }, Open ]], Cell[CellGroupData[{ Cell[62502, 1763, 179, 4, 70, "Input",ExpressionUUID->"b78bda53-451a-4214-81d7-8f8bb17e3e92", CellID->709706383], Cell[62684, 1769, 471, 11, 70, "Output",ExpressionUUID->"6fd6b1b2-43b1-4fb7-9b60-de9efb99b56c", CellID->232361803] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63216, 1787, 49, 1, 70, "Subsection",ExpressionUUID->"c6a8a166-3d49-43fb-88ea-b9be281c6a2c", CellID->776923543], Cell[CellGroupData[{ Cell[63290, 1792, 129, 2, 70, "Subsubsection",ExpressionUUID->"0d4503f0-f4fa-46ba-b618-6f3729cad40c", CellID->39130611], Cell[63422, 1796, 135, 2, 70, "Text",ExpressionUUID->"a81b875a-2740-41a0-bba8-e9362701e04b", CellID->477807850], Cell[CellGroupData[{ Cell[63582, 1802, 312, 7, 70, "Input",ExpressionUUID->"2e1f90c9-a2f2-47a8-9bcd-2e83766041c7", CellID->545319455], Cell[63897, 1811, 4280, 95, 70, "Output",ExpressionUUID->"504ae86a-bedd-4eba-a920-f4e1d34d8c1b", CellID->283962344] }, Open ]], Cell[CellGroupData[{ Cell[68214, 1911, 312, 7, 70, "Input",ExpressionUUID->"68494e45-f3a4-4064-8ac6-cdc302729892", CellID->728584313], Cell[68529, 1920, 4233, 94, 70, "Output",ExpressionUUID->"0937616f-e6df-4330-9610-9950b0fe87fa", CellID->131426129] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72811, 2020, 127, 2, 70, "Subsubsection",ExpressionUUID->"04faa8ec-520a-478c-8d5d-a2a89f4b079e", CellID->134504426], Cell[72941, 2024, 184, 3, 70, "Text",ExpressionUUID->"d3a75cdf-25e6-4b3f-a7ba-2fa79d49674e", CellID->430297600], Cell[CellGroupData[{ Cell[73150, 2031, 599, 16, 70, "Input",ExpressionUUID->"ed5a4efc-9b15-4f75-b2b7-1d36e32e98e7", CellID->457020193], Cell[73752, 2049, 572, 15, 70, "Output",ExpressionUUID->"d81f03f8-627f-4c43-85ca-43c4114785d1", CellID->248863604] }, Open ]], Cell[CellGroupData[{ Cell[74361, 2069, 328, 10, 70, "Input",ExpressionUUID->"f7b19119-ee42-4c3b-b644-db504d43f440", CellID->191906581], Cell[74692, 2081, 340, 8, 70, "Output",ExpressionUUID->"bf6fba17-ac1e-41e4-9747-9d5d3d9d282e", CellID->506955346] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75081, 2095, 124, 2, 70, "Subsubsection",ExpressionUUID->"0ab08e6d-a16d-4280-8037-fa553971d574", CellID->410978497], Cell[75208, 2099, 138, 2, 70, "Text",ExpressionUUID->"8b9cb40c-35cd-46e9-9a1c-1fd4ff57e0fd", CellID->318438657], Cell[CellGroupData[{ Cell[75371, 2105, 353, 9, 70, "Input",ExpressionUUID->"fc92812d-24aa-4fb7-ba30-99ce981260c5", CellID->23800260], Cell[75727, 2116, 4320, 95, 70, "Output",ExpressionUUID->"90249010-bb84-4591-88c7-b7adb23dd1ec", CellID->394527099] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80108, 2218, 54, 1, 70, "Subsection",ExpressionUUID->"25d099cb-0742-4770-af9e-0986e6f4319e", CellID->568056528], Cell[80165, 2221, 1221, 37, 70, "Text",ExpressionUUID->"2f56ed29-81e5-4798-9d1f-1eeed77f6b33", CellID->292960548], Cell[CellGroupData[{ Cell[81411, 2262, 776, 21, 70, "Input",ExpressionUUID->"dc1e9f2e-5651-4f3b-9a9a-c7a91f0a9ca2", CellID->289645948], Cell[82190, 2285, 6693, 115, 70, "Output",ExpressionUUID->"9a571594-7618-4005-9016-f1b696f573fd"] }, Open ]], Cell[88898, 2403, 127, 2, 70, "Text",ExpressionUUID->"23ff6995-ea7b-4d3a-a07f-77e9cfe3fb0c", CellID->117669851], Cell[CellGroupData[{ Cell[89050, 2409, 176, 4, 70, "Input",ExpressionUUID->"6fbb78fc-207a-4bd3-9d77-9bd8e0d5a7fc", CellID->37134042], Cell[89229, 2415, 546, 15, 70, "Output",ExpressionUUID->"b23048c9-e1cf-48a6-9e07-c903744807a5", CellID->2961916] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[89824, 2436, 56, 1, 70, "Subsection",ExpressionUUID->"683b43ea-8a6f-4043-a746-7f546f00151c", CellID->92483860], Cell[89883, 2439, 180, 4, 70, "Text",ExpressionUUID->"bd55c80a-dd25-42f7-9842-6233955d5ccc", CellID->69262740], Cell[CellGroupData[{ Cell[90088, 2447, 528, 15, 70, "Input",ExpressionUUID->"ef1096e8-3143-4958-bc90-55349a2abc0e", CellID->169497164], Cell[90619, 2464, 4277, 97, 70, "Output",ExpressionUUID->"38a4fd7b-3d2b-4e52-b27e-0e8c6b7d8343", CellID->670766020] }, Open ]], Cell[CellGroupData[{ Cell[94933, 2566, 545, 17, 70, "ExampleDelimiter",ExpressionUUID->"61606a0a-3372-49bb-95f2-82018aa0172d", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}], Cell[95481, 2585, 199, 5, 70, "Text",ExpressionUUID->"19e559e8-aa17-4aff-9484-666b64e3dc30", CellID->38721182], Cell[CellGroupData[{ Cell[95705, 2594, 657, 19, 70, "Input",ExpressionUUID->"77560a24-6b06-4943-8ca0-1a376f27b76e", CellID->154725578], Cell[96365, 2615, 4217, 95, 70, "Output",ExpressionUUID->"da949953-e0db-4661-acf9-a836d577e98e", CellID->80834448] }, Open ]], Cell[CellGroupData[{ Cell[100619, 2715, 179, 4, 70, "Input",ExpressionUUID->"b43aa800-71d9-491a-a227-2c028ee2af6c", CellID->347799586], Cell[100801, 2721, 359, 9, 70, "Output",ExpressionUUID->"aba4dda5-03f9-4f5c-8ea2-e6ce192bfe2e", CellID->646359991] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101233, 2738, 135, 3, 70, "Section",ExpressionUUID->"7e051dcc-660e-4ea2-83a4-426ee693d323", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[101393, 2745, 683, 18, 70, "Subsection",ExpressionUUID->"814c1fba-a19b-4a3a-9bbb-5795a9c265c5", CellTags->"Contributed By", CellID->127820888], Cell[102079, 2765, 51, 0, 70, "Text",ExpressionUUID->"d0900189-056e-46fb-82f3-195480db7fd7"] }, Open ]], Cell[CellGroupData[{ Cell[102167, 2770, 684, 18, 70, "Subsection",ExpressionUUID->"202cb95f-7aed-4b9e-84ef-317dc4883f76", CellTags->"Keywords", CellID->547400482], Cell[102854, 2790, 24, 0, 70, "Item",ExpressionUUID->"2b24812a-ddd5-4bc8-be25-ffb6acf0753d"], Cell[102881, 2792, 29, 0, 70, "Item",ExpressionUUID->"44e954c5-6a5c-4d24-a8ed-a8fa6270e38b"], Cell[102913, 2794, 26, 0, 70, "Item",ExpressionUUID->"aaf928b9-11f3-4669-a808-64bf8fd1e35b"], Cell[102942, 2796, 35, 0, 70, "Item",ExpressionUUID->"cb1813e9-61b8-435c-9f78-317eb07cc9ad"], Cell[102980, 2798, 25, 0, 70, "Item",ExpressionUUID->"59f774a7-487f-4bfa-a0da-e6002cb0277f"], Cell[103008, 2800, 28, 0, 70, "Item",ExpressionUUID->"ea1eb75a-6d59-4202-ab06-e1038140be73"], Cell[103039, 2802, 28, 0, 70, "Item",ExpressionUUID->"60a91105-e7c0-4353-af34-fa2d3b781017"] }, Open ]], Cell[CellGroupData[{ Cell[103104, 2807, 126, 4, 70, "Subsection",ExpressionUUID->"9fe0c5d1-3503-405b-a9a1-9f11912ae3dc", CellTags->"Categories", CellID->749076926], Cell[103233, 2813, 34, 0, 70, "Item",ExpressionUUID->"9c174f26-dbda-49d0-87e6-b064e13c3e4c"], Cell[103270, 2815, 49, 0, 70, "Item",ExpressionUUID->"15b7e411-7bfb-4199-aae9-2fdc8b877093"] }, Open ]], Cell[CellGroupData[{ Cell[103356, 2820, 661, 18, 70, "Subsection",ExpressionUUID->"5b572f71-31a6-47ae-86f5-6436341f3c40", CellTags->"Related Symbols", CellID->161079978], Cell[104020, 2840, 28, 0, 70, "Item",ExpressionUUID->"c61de03c-86ca-4626-8032-4a0a484ea84a"], Cell[104051, 2842, 26, 0, 70, "Item",ExpressionUUID->"4ef301d4-16f2-492e-827e-395a3d2d2044"], Cell[104080, 2844, 28, 0, 70, "Item",ExpressionUUID->"257af784-cf53-4640-bf12-92b44e957fa4"], Cell[104111, 2846, 27, 0, 70, "Item",ExpressionUUID->"fbac749f-035e-425d-9b64-caca182f22cc"] }, Open ]], Cell[CellGroupData[{ Cell[104175, 2851, 711, 18, 70, "Subsection",ExpressionUUID->"5b522176-78cd-478f-aa2d-c40e1ec4ccc6", CellTags->"Related Resource Objects", CellID->588449267], Cell[104889, 2871, 31, 0, 70, "Item",ExpressionUUID->"1891dbb3-42a2-4224-88ce-f96e89ceab21"], Cell[104923, 2873, 30, 0, 70, "Item",ExpressionUUID->"58f515bb-66d3-4f6f-8446-43aa0d8a5b56"] }, Open ]], Cell[CellGroupData[{ Cell[104990, 2878, 762, 19, 70, "Subsection",ExpressionUUID->"de4a5088-176f-47a8-bd50-0dd29ecbaf28", CellTags->"Source/Reference Citation", CellID->642091068], Cell[105755, 2899, 496, 8, 70, "Text",ExpressionUUID->"6b199078-d3d1-444b-a7be-4f0fb4fbdf82", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[106288, 2912, 614, 18, 70, "Subsection",ExpressionUUID->"62e6ea63-04fd-429b-ae3a-0d0ed9177ce1", CellTags->"Links", CellID->521525586], Cell[106905, 2932, 298, 7, 70, "Item",ExpressionUUID->"486d7977-15b4-449c-b3cd-45c3e178fc6e"], Cell[107206, 2941, 287, 7, 70, "Item",ExpressionUUID->"6d649849-f246-4138-bbfe-5c6f1cb76754"] }, Open ]], Cell[CellGroupData[{ Cell[107530, 2953, 767, 20, 70, "Subsection",ExpressionUUID->"46800439-e8d1-4fbc-8ef2-711c73fee66c", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[108322, 2977, 129, 4, 70, "Input",ExpressionUUID->"0f1d3b17-b389-4cf9-b6f8-27276987adce", CellID->667877521], Cell[108454, 2983, 93, 3, 70, "Output",ExpressionUUID->"e365e08d-af8e-45fa-aabd-23688f882fb3", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[108608, 2993, 127, 4, 70, "Section",ExpressionUUID->"bd9e3226-be96-4bae-bb65-66146d66f303", CellTags->"Author Notes", CellID->795110225], Cell[108738, 2999, 509, 8, 70, "Text",ExpressionUUID->"56756b52-1888-48db-98d4-e4072542e168", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[109284, 3012, 720, 19, 70, "Section",ExpressionUUID->"f6d6441b-b6cd-4731-91b2-c2c909acc24e", CellTags->"Submission Notes", CellID->843283583], Cell[110007, 3033, 495, 8, 70, "Text",ExpressionUUID->"e9871184-9c67-4947-9ef6-0429becf9251", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)