(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 346544, 7434] NotebookOptionsPosition[ 215136, 4871] NotebookOutlinePosition[ 328300, 7041] CellTagsIndexPosition[ 327349, 7010] WindowTitle->CheckHyperlinks | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["CheckHyperlinks", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->256181082], Cell["\<\ Checks hyperlinks in an expression, webpage, or notebook, on your computer or \ in the cloud\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->772261120], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{ "CheckHyperlinks", ",", "checkHyperlinks0", ",", "checkHyperlinks", ",", "getLinks", ",", "notebookLinks", ",", "exprLinks", ",", "keyValues", ",", "unwrapURL"}], "]"}]], "Input", CellChangeTimes->{{3.779123652516368*^9, 3.779123667056574*^9}, { 3.779478110842794*^9, 3.779478124983079*^9}, {3.779478352976864*^9, 3.779478353392838*^9}, {3.779737769022451*^9, 3.779737769461813*^9}, { 3.779748382983776*^9, 3.779748390140798*^9}, {3.7797488991053*^9, 3.779748910344409*^9}, {3.7798756048472157`*^9, 3.779875605310232*^9}, 3.7798756481361713`*^9, {3.7798805281479483`*^9, 3.7798805285567617`*^9}}, CellLabel->"In[715]:=", CellID->852468413], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "CheckHyperlinks", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Authentication", "\[Rule]", "Automatic"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"200", ",", "401"}], "}"}]}], ",", RowBox[{"TimeConstraint", "\[Rule]", "Infinity"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$tag", "=", "\"\<59f11393-30e0-4b1b-9181-a22a958db3fa\>\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CheckHyperlinks", "::", "properr"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CheckHyperlinks", "::", "invalid"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CheckHyperlinks", "::", "frmt"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"unwrapURL", "[", RowBox[{ RowBox[{"URL", "[", "url_", "]"}], "|", "url_"}], "]"}], ":=", "url"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"keyValues", "[", RowBox[{"assoc_", ",", "keys_List"}], "]"}], ":=", RowBox[{"Values", "[", RowBox[{"KeyTake", "[", RowBox[{"assoc", ",", "keys"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"keyValues", "[", RowBox[{"assoc_", ",", "key_"}], "]"}], ":=", RowBox[{ RowBox[{"keyValues", "[", RowBox[{"assoc", ",", RowBox[{"{", "key", "}"}]}], "]"}], "//", "First"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CheckHyperlinks", "[", "args__", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"checkHyperlinks0", "[", "args", "]"}], ",", "$tag"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"res", "/;", RowBox[{"res", "=!=", "$Failed"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "-"}]}]}]}]}]}]}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkHyperlinks0", "[", RowBox[{"e_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "CheckHyperlinks", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"checkHyperlinks", "[", RowBox[{"e", ",", "opts"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkHyperlinks0", "[", RowBox[{"e_", ",", RowBox[{"props", ":", RowBox[{"_String", "|", RowBox[{"{", "___String", "}"}]}]}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "CheckHyperlinks", "]"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ivValidProp", ",", RowBox[{"validProps", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "}"}], ",", RowBox[{ RowBox[{"isValidProp", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "props", "]"}], "===", "String"}], ",", RowBox[{"ContainsOnly", "[", RowBox[{ RowBox[{"{", "props", "}"}], ",", "validProps"}], "]"}], ",", RowBox[{"ContainsOnly", "[", RowBox[{"props", ",", "validProps"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"isValidProp", "\[Equal]", "False"}], ",", RowBox[{ RowBox[{"Message", "[", RowBox[{"CheckHyperlinks", "::", "properr"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"keyValues", "[", RowBox[{ RowBox[{"checkHyperlinks", "[", RowBox[{"e", ",", "opts"}], "]"}], ",", "props"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "-"}]}]}]}]}]}]}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkHyperlinks", "[", RowBox[{ RowBox[{"nb", ":", RowBox[{"(", RowBox[{"_NotebookObject", "|", "_Notebook", "|", RowBox[{"File", "[", RowBox[{"f_", "/;", RowBox[{ RowBox[{"FileFormat", "[", "f", "]"}], "\[Equal]", "\"\\""}]}], "]"}]}], ")"}]}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "CheckHyperlinks", "]"}]}]}], "]"}], ":=", RowBox[{"getLinks", "[", RowBox[{"\"\<\>\"", ",", "\"\<\>\"", ",", RowBox[{"notebookLinks", "[", "nb", "]"}], ",", "opts"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkHyperlinks", "[", RowBox[{ RowBox[{"url", ":", RowBox[{"(", RowBox[{"_String", "|", "_URL", "|", "_CloudObject"}], ")"}]}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "CheckHyperlinks", "]"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"links", ",", "type", ",", "check", ",", "url2", ",", RowBox[{"scheme", "=", RowBox[{"URLParse", "[", RowBox[{"url", ",", "\"\\""}], "]"}]}], ",", "ffrmt"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"scheme", "===", "\"\\""}], ",", RowBox[{"url2", "=", RowBox[{"StringDrop", "[", RowBox[{ RowBox[{"unwrapURL", "[", "url", "]"}], ",", RowBox[{"(*", " ", RowBox[{"StringLength", "[", "\"\\"", "]"}], " ", "*)"}], "7"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "check", " ", "if", " ", "url", " ", "is", " ", "a", " ", "cloudobject", " ", "and", " ", "not", " ", RowBox[{"html", ".", "If"}], " ", RowBox[{"it", "'"}], "s", " ", "a", " ", "co"}], ",", RowBox[{"wrap", " ", "in", " ", "CloudObject"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Head", "[", "url", "]"}], "===", "CloudObject"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Head", "[", "url", "]"}], "===", "String"}], "&&", RowBox[{"FileExistsQ", "[", "url", "]"}]}], ")"}]}], ",", RowBox[{"url2", "=", "url"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"Quiet", "[", RowBox[{ RowBox[{"!", RowBox[{"FailureQ", "[", RowBox[{"CloudObject", "[", "url", "]"}], "]"}]}], ",", RowBox[{"CloudObject", "::", "invuri"}]}], "]"}], ",", RowBox[{"url2", "=", RowBox[{"CloudObject", "[", "url", "]"}]}], ",", RowBox[{"url2", "=", "url"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"type", "=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ContainsAny", "[", RowBox[{ RowBox[{"{", "scheme", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "&&", RowBox[{"!", RowBox[{"SameQ", "[", RowBox[{ RowBox[{"Head", "[", "url2", "]"}], ",", "CloudObject"}], "]"}]}]}], ",", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ffrmt", StyleBox["=", FontSize->14], RowBox[{"FileFormat", "[", "url2", "]"}]}], ";", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"scheme", "===", "\"\\""}], " ", "&&", " ", RowBox[{"ffrmt", "===", "\"\\""}]}], ")"}], " ", "||", " ", RowBox[{"ffrmt", "\[Equal]", "\"\\""}]}]}], ",", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"StringMatchQ", "[", RowBox[{"ffrmt", ",", "\"\<*html*\>\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{ "ffrmt", "\[Equal]", "\"\\""}], ",", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"StringMatchQ", "[", RowBox[{ "ffrmt", ",", "\"\\""}], "]"}], ",", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"StringMatchQ", "[", RowBox[{"ffrmt", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"CheckHyperlinks", "::", "frmt"}], ",", "ffrmt"}], "]"}], ";", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"CheckHyperlinks", "::", "invalid"}], ",", "url"}], "]"}], ";", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"links", "=", RowBox[{"Switch", "[", RowBox[{"type", ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"notebookLinks", "[", "url2", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"Import", "[", RowBox[{"url2", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"exprLinks", "[", RowBox[{"Import", "[", RowBox[{"url2", ",", "\"\\""}], "]"}], "]"}], ",", "\[IndentingNewLine]", "_", ",", " ", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"Check", "[", RowBox[{ RowBox[{"Import", "[", RowBox[{ RowBox[{"HTTPRequest", "[", RowBox[{"url2", ",", RowBox[{"Authentication", "->", RowBox[{"OptionValue", "[", "Authentication", "]"}]}]}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"Import", "::", "noelem"}]}], "]"}], ",", RowBox[{"Import", "::", "noelem"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"FailureQ", "[", "links", "]"}], ",", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"getLinks", "[", RowBox[{"url2", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"StringQ", "[", "scheme", "]"}], ",", RowBox[{"scheme", "<>", "\"\<://\>\""}], ",", "\"\<\>\""}], "]"}], ",", "links", ",", "opts"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"checkHyperlinks", "[", RowBox[{"e_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "CheckHyperlinks", "]"}]}]}], "]"}], ":=", RowBox[{"getLinks", "[", RowBox[{"\"\<\>\"", ",", "\"\<\>\"", ",", RowBox[{"exprLinks", "[", "e", "]"}], ",", "opts"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"notebookLinks", "[", "nb_", "]"}], ":=", RowBox[{ RowBox[{"StringDelete", "[", "\"\<\\\"\>\"", "]"}], "@@@", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"NotebookImport", "[", RowBox[{"nb", ",", RowBox[{"_", "\[Rule]", "\"\\""}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Hyperlink", "[", RowBox[{"e_", "/;", RowBox[{"!", RowBox[{"StringQ", "[", "e", "]"}]}]}], "]"}], "|", RowBox[{"Hyperlink", "[", RowBox[{"_", ",", RowBox[{"e_", "/;", RowBox[{"!", RowBox[{"StringQ", "[", "e", "]"}]}]}]}], "]"}]}]}], "]"}]}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"exprLinks", "[", "str_String", "]"}], ":=", RowBox[{"exprLinks", "[", RowBox[{"ToExpression", "[", RowBox[{"str", ",", "InputForm", ",", "HoldComplete"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"exprLinks", "[", RowBox[{"e", ":", "$Failed"}], "]"}], ":=", RowBox[{"Throw", "[", RowBox[{"e", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"exprLinks", "[", "e_", "]"}], ":=", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{ RowBox[{"e", "/.", RowBox[{"assoc_Association", "\[RuleDelayed]", RowBox[{"Normal", "[", "assoc", "]"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Hyperlink", "[", "url_String", "]"}], "|", RowBox[{"Hyperlink", "[", RowBox[{"_", ",", "url_String"}], "]"}]}], ")"}], "\[RuleDelayed]", "url"}], ",", RowBox[{"{", RowBox[{"0", ",", "Infinity"}], "}"}]}], "]"}], "//", "Flatten"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"getLinks", "[", RowBox[{"url2_", ",", "schemePlus_", ",", "links0_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "CheckHyperlinks", "]"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"links", "=", "links0"}], ",", "results", ",", "successes", ",", "failures", ",", "failureDetails", ",", "urlString", ",", RowBox[{"valid", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"FailureQ", "[", "links", "]"}], ",", RowBox[{"Return", "[", "links", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "http", " ", "request", " ", "reutrns", " ", "links", " ", "that", " ", "are", " ", "relative", " ", "and", " ", "to", " ", "failures", " ", "with", " ", "this", " ", "add", " ", "an", " ", "absolute", " ", "path", " ", "which", " ", "is", " ", "the", " ", "main", " ", "site"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"StringQ", "[", "url2", "]"}], ",", "\[IndentingNewLine]", RowBox[{"urlString", "=", "url2"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"urlString", "=", RowBox[{"Information", "[", RowBox[{"url2", ",", "\"\\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"should", " ", "be", " ", "treated", " ", "eventually"}], ",", " ", RowBox[{"ignore", " ", "for", " ", "now"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"links", "=", RowBox[{"DeleteCases", "[", RowBox[{"links", ",", RowBox[{"s_", "/;", RowBox[{"StringStartsQ", "[", RowBox[{"s", ",", "\"\\""}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"links", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"StringQ", "[", "#", "]"}], "&&", RowBox[{"StringStartsQ", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}], ",", RowBox[{"scheme", "<>", "#"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"StringQ", "[", "#", "]"}], "&&", RowBox[{"StringStartsQ", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}], ",", RowBox[{"urlString", "<>", "#"}], ",", "\[IndentingNewLine]", "True", ",", "#"}], "\[IndentingNewLine]", "]"}], "&"}], "/@", "links"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "show", " ", "progress", " ", "indicator", " ", "as", " ", "links", " ", "are", " ", "checked"}], "*)"}], RowBox[{"Monitor", "[", RowBox[{ RowBox[{ RowBox[{"results", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{ RowBox[{"links", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ "RegularExpression", "[", "\"\<^(http|https).*\>\"", "]"}]}], "]"}], ",", RowBox[{"URLRead", "[", RowBox[{ RowBox[{"links", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{ "\"\\"", "\[Rule]", "False"}], ",", RowBox[{"TimeConstraint", "\[Rule]", RowBox[{"OptionValue", "[", "TimeConstraint", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"FileExistsQ", "[", RowBox[{"links", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", "True", ",", RowBox[{"Failure", "[", RowBox[{"\"\\"", ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"CheckHyperlinks", "::", "nso"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"{", RowBox[{"links", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}]}]}], "|>"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"links", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "links", "]"}]}], "}"}]}], "]"}]}], ";"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"ProgressIndicator", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Length", "[", "links", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"\"\< Checking Links \>\"", "<>", RowBox[{"ToString", "[", "i", "]"}], "<>", "\"\< out of \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"Length", "[", "links", "]"}], "]"}]}], ",", "\"\<\\n\>\"", ",", RowBox[{"\"\\"", "<>", RowBox[{"links", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", ".5"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "successes", " ", "default", " ", "to", " ", "a", " ", "response", " ", "of", " ", "200", " ", RowBox[{"(", "OK", ")"}], " ", "or", " ", "401", " ", RowBox[{"(", "Unauthorized", ")"}]}], "*)"}], RowBox[{"successes", "=", RowBox[{"Select", "[", RowBox[{"results", ",", RowBox[{ RowBox[{"#", "||", RowBox[{"ContainsAny", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "[", "\"\\"", "]"}], "}"}], ",", "valid"}], "]"}]}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"failures", "=", RowBox[{"Complement", "[", RowBox[{"results", ",", "successes"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"failureDetails", "=", RowBox[{"AssociationThread", "[", RowBox[{ RowBox[{"failures", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"failures", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"successes", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"failures", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "failureDetails"}]}], "|>"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.7710652688553057`*^9, {3.7710655830880117`*^9, 3.771065593454883*^9}, { 3.771067467619752*^9, 3.771067632635487*^9}, {3.771086204924646*^9, 3.771086208070836*^9}, {3.771086295675741*^9, 3.771086296788813*^9}, { 3.774173552627844*^9, 3.774173552816826*^9}, {3.774173886811124*^9, 3.7741739017410297`*^9}, {3.7741787654966927`*^9, 3.774178775988452*^9}, { 3.7741891211939087`*^9, 3.774189172606889*^9}, {3.774192237241455*^9, 3.774192353355247*^9}, {3.7741947215801783`*^9, 3.77419472180389*^9}, 3.774198848763048*^9, {3.7791285285343103`*^9, 3.779128530208984*^9}, 3.77912876550564*^9, {3.7791328985866623`*^9, 3.779132914392836*^9}, { 3.779132945999626*^9, 3.779132946927245*^9}, {3.7791329782896767`*^9, 3.779133001562957*^9}, {3.779198170520645*^9, 3.779198261525229*^9}, { 3.7791982951768103`*^9, 3.779198302087591*^9}, {3.779198339984344*^9, 3.779198352741781*^9}, {3.779201418190536*^9, 3.779201444632622*^9}, { 3.779201494215201*^9, 3.779201509075284*^9}, {3.7792016376208563`*^9, 3.7792017101600323`*^9}, {3.779467679813452*^9, 3.779467694990871*^9}, { 3.7794724979153852`*^9, 3.779472506513173*^9}, {3.7794729400809383`*^9, 3.779472954045555*^9}, {3.779473028057926*^9, 3.779473033897826*^9}, { 3.779473077899954*^9, 3.779473083647608*^9}, {3.779473505586042*^9, 3.77947353640174*^9}, {3.779473707993391*^9, 3.7794737311455717`*^9}, { 3.779473762859305*^9, 3.779473763676203*^9}, {3.779473806662648*^9, 3.7794739788034077`*^9}, {3.779474263543144*^9, 3.7794743257180223`*^9}, { 3.779474380022793*^9, 3.779474384375301*^9}, {3.779474816998817*^9, 3.7794748401423264`*^9}, {3.7794748751471987`*^9, 3.779474878849514*^9}, { 3.779474960073036*^9, 3.779475058967718*^9}, {3.779475097114245*^9, 3.779475107056435*^9}, {3.779476007436077*^9, 3.779476013335363*^9}, 3.779477215776382*^9, 3.779477282244247*^9, {3.779477378010762*^9, 3.779477385162298*^9}, {3.779477448127083*^9, 3.7794774493021097`*^9}, { 3.779477842174024*^9, 3.779477852888633*^9}, {3.779477927608404*^9, 3.779477943575457*^9}, {3.779477985273231*^9, 3.7794780985952587`*^9}, { 3.779478148792832*^9, 3.779478226343067*^9}, {3.779478288017006*^9, 3.779478336594179*^9}, {3.779492115040626*^9, 3.779492200788476*^9}, { 3.7794922313243504`*^9, 3.779492239764359*^9}, {3.779492321555236*^9, 3.779492322784397*^9}, {3.7794927009487963`*^9, 3.7794927275183907`*^9}, { 3.779492802759231*^9, 3.779492813663451*^9}, {3.7794931901272697`*^9, 3.779493216154911*^9}, {3.779493294983837*^9, 3.7794932964376087`*^9}, { 3.7795361275951147`*^9, 3.779536164209405*^9}, {3.779536205161479*^9, 3.779536216112062*^9}, {3.779536270481043*^9, 3.779536299580061*^9}, { 3.779536615646346*^9, 3.779536617371051*^9}, {3.7795368600016947`*^9, 3.779536874336533*^9}, 3.779536952277967*^9, {3.779537692447619*^9, 3.7795377577069397`*^9}, {3.779541996855996*^9, 3.779542015035322*^9}, 3.779549999457931*^9, {3.779550132230896*^9, 3.779550184680127*^9}, { 3.7795503421179047`*^9, 3.7795503554186697`*^9}, {3.779550473012368*^9, 3.779550480647108*^9}, {3.7795505569361897`*^9, 3.77955055810037*^9}, 3.779550788955975*^9, {3.779550837058916*^9, 3.7795508389652367`*^9}, { 3.7795512372304783`*^9, 3.779551255625711*^9}, {3.779562233866518*^9, 3.7795622386627207`*^9}, {3.779563461140252*^9, 3.779563466786886*^9}, { 3.779563579424272*^9, 3.779563603079801*^9}, {3.779563836779272*^9, 3.779563866921632*^9}, 3.779564277124042*^9, {3.779619251965806*^9, 3.779619275123255*^9}, {3.7796276123977823`*^9, 3.779627635710331*^9}, { 3.7796276823701553`*^9, 3.779627686837453*^9}, {3.779631251063469*^9, 3.779631269586789*^9}, {3.779631306614661*^9, 3.7796313190530148`*^9}, { 3.77963142069963*^9, 3.77963143449644*^9}, {3.779632796697814*^9, 3.779632797548903*^9}, {3.7796330831138573`*^9, 3.7796330849838343`*^9}, { 3.779634070242838*^9, 3.779634090486287*^9}, {3.779634271272723*^9, 3.779634288952574*^9}, {3.779634341222533*^9, 3.7796343858751717`*^9}, { 3.7797295341294193`*^9, 3.779729545072447*^9}, 3.7797296310237207`*^9, { 3.779732769482287*^9, 3.779732773946636*^9}, {3.7797328098402987`*^9, 3.7797328132408133`*^9}, {3.77973330310498*^9, 3.779733432825335*^9}, { 3.7797334836106863`*^9, 3.779733517770454*^9}, {3.779733562011815*^9, 3.7797335969414463`*^9}, 3.779733639660993*^9, {3.779734560718967*^9, 3.7797345679229*^9}, {3.779736066992241*^9, 3.779736148142249*^9}, { 3.7797361892058363`*^9, 3.779736370536439*^9}, {3.779736830972032*^9, 3.779736944554098*^9}, {3.77973698125562*^9, 3.779737056742177*^9}, { 3.7797370869857607`*^9, 3.779737180529525*^9}, {3.779737345264172*^9, 3.779737362144929*^9}, {3.779737403298706*^9, 3.779737465954727*^9}, 3.7797375417268343`*^9, {3.779737614119388*^9, 3.779737615420918*^9}, { 3.77973769275359*^9, 3.7797376942162237`*^9}, {3.779737729187924*^9, 3.7797377301929197`*^9}, 3.779737806337399*^9, {3.7797484157138853`*^9, 3.7797484848258266`*^9}, {3.779748530487081*^9, 3.7797487161676188`*^9}, { 3.779748794518178*^9, 3.779748817884667*^9}, {3.779748854619926*^9, 3.779748858771707*^9}, {3.779748915173953*^9, 3.779748924998114*^9}, { 3.779749055952578*^9, 3.7797490608083143`*^9}, {3.779749143134412*^9, 3.779749177445245*^9}, {3.77974926098108*^9, 3.779749327269515*^9}, { 3.779749421936571*^9, 3.779749470056566*^9}, {3.77974950193432*^9, 3.7797496232703123`*^9}, {3.779749744310739*^9, 3.779749809333818*^9}, 3.7797498697853394`*^9, {3.779749926197915*^9, 3.7797499383967123`*^9}, { 3.779750109890092*^9, 3.779750138532432*^9}, {3.779750190494136*^9, 3.7797501964114037`*^9}, 3.779750349482904*^9, {3.779750455230788*^9, 3.77975046368785*^9}, {3.779750576999196*^9, 3.77975058310141*^9}, { 3.77975067268159*^9, 3.779750702175419*^9}, {3.77975083284603*^9, 3.779750878501338*^9}, {3.7797509176493483`*^9, 3.779750919973106*^9}, { 3.779750977539558*^9, 3.77975101163332*^9}, {3.779751066375917*^9, 3.779751116630887*^9}, {3.779804421009865*^9, 3.779804453474846*^9}, { 3.779808016285906*^9, 3.7798080210773153`*^9}, 3.779808088795347*^9, { 3.779814658755768*^9, 3.779814759860962*^9}, {3.779814900192265*^9, 3.7798149618173313`*^9}, {3.779815097611849*^9, 3.779815109981244*^9}, { 3.779815357919704*^9, 3.779815362950562*^9}, 3.77981654100467*^9, { 3.779816572124477*^9, 3.779816667459478*^9}, 3.779816721048481*^9, { 3.7798168031882772`*^9, 3.7798168038183804`*^9}, {3.779816965581533*^9, 3.779817010442358*^9}, {3.779817046420541*^9, 3.779817166190727*^9}, { 3.7798174326542587`*^9, 3.779817433665934*^9}, {3.77981752267223*^9, 3.779817553524641*^9}, {3.779819042966497*^9, 3.779819084192646*^9}, { 3.7798191211739483`*^9, 3.779819181656148*^9}, {3.779829771652355*^9, 3.779829786959703*^9}, {3.779829923241975*^9, 3.779829940537306*^9}, { 3.779830799199025*^9, 3.779830802693272*^9}, {3.779836366175549*^9, 3.779836367917725*^9}, {3.7798364060299187`*^9, 3.779836484462985*^9}, { 3.779836552198947*^9, 3.779836553911276*^9}, {3.779836672104836*^9, 3.779836680815596*^9}, {3.7798367183497467`*^9, 3.7798367311367807`*^9}, { 3.779837643297773*^9, 3.779837671711626*^9}, {3.779837731785343*^9, 3.779837731952063*^9}, {3.779837855984268*^9, 3.779837856402079*^9}, { 3.7798379020471163`*^9, 3.779837932465514*^9}, 3.779838337518132*^9, { 3.779838503134169*^9, 3.7798385710871487`*^9}, {3.779838868523633*^9, 3.7798389144115458`*^9}, {3.779838949605732*^9, 3.7798389504273252`*^9}, { 3.779839077330974*^9, 3.779839238088833*^9}, {3.7798398565501747`*^9, 3.779839857334114*^9}, {3.779840233639847*^9, 3.779840241068123*^9}, { 3.779840310060719*^9, 3.779840358886742*^9}, {3.779840584324029*^9, 3.77984059772161*^9}, 3.779840665041059*^9, {3.779840805664115*^9, 3.779840838093316*^9}, {3.779841209309319*^9, 3.77984131021303*^9}, { 3.779841396029995*^9, 3.7798414512542048`*^9}, {3.779841500619718*^9, 3.779841501808818*^9}, {3.7798419852917147`*^9, 3.7798420065848293`*^9}, { 3.779842045051778*^9, 3.779842073265594*^9}, {3.779842222955008*^9, 3.779842226443097*^9}, {3.7798422619590683`*^9, 3.779842267475964*^9}, { 3.7798424884979763`*^9, 3.7798425637464647`*^9}, 3.779842610618783*^9, { 3.7798738157194233`*^9, 3.779873843810861*^9}, {3.7798740334744177`*^9, 3.77987403820968*^9}, {3.7798742786149063`*^9, 3.7798744468766623`*^9}, 3.779874489148376*^9, {3.779874582782441*^9, 3.7798746058602333`*^9}, { 3.779874646807267*^9, 3.779874653414751*^9}, {3.779874684856905*^9, 3.779874716406761*^9}, {3.77987475636427*^9, 3.779874763351824*^9}, { 3.77987481393159*^9, 3.779874831864526*^9}, {3.779875622221447*^9, 3.779875682484755*^9}, {3.77987588615187*^9, 3.779875903068262*^9}, { 3.779877665667871*^9, 3.779877666528653*^9}, {3.77987870687741*^9, 3.779878728310376*^9}, {3.779878776613244*^9, 3.779878777647053*^9}, { 3.7798803609071093`*^9, 3.779880368464476*^9}, {3.77988045424959*^9, 3.77988058358744*^9}, {3.780162570077408*^9, 3.780162570963703*^9}, { 3.780162719430295*^9, 3.78016272065432*^9}, {3.780162788256822*^9, 3.780162791876904*^9}, {3.78016284018427*^9, 3.780162893960486*^9}, { 3.7801631171391773`*^9, 3.780163118027666*^9}, {3.7801632376390467`*^9, 3.7801632818709993`*^9}, {3.780164131716642*^9, 3.780164156586732*^9}, { 3.780164332893833*^9, 3.780164341774077*^9}, {3.780164417974997*^9, 3.7801645314072866`*^9}, {3.780164562115583*^9, 3.780164563129068*^9}, { 3.780164594657372*^9, 3.780164605312608*^9}, {3.780164645379465*^9, 3.780164663344822*^9}, {3.780164864966291*^9, 3.780164877698675*^9}, { 3.7801721196902742`*^9, 3.7801721204961987`*^9}, {3.7801763737641563`*^9, 3.780176374728784*^9}, 3.780176584512022*^9, {3.780176707527966*^9, 3.780176725694126*^9}, 3.780176894610553*^9}, CellLabel->"In[1]:=", CellID->322920330] }, Open ]], Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", StyleBox["expr", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->45015192], Cell[TextData[{ "checks hyperlinks in ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and reports which can be successfully followed and which are broken." }], "UsageDescription", CellID->776838703] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["props", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->572278371], Cell[TextData[{ "gives only the specified properties ", Cell[BoxData[ StyleBox["props", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the hyperlinks." }], "UsageDescription", CellID->65225851] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> 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"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[TextData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{ StyleBox["expr", "TI"], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " checks hyperlinks either in ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " itself or in an object to which ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is pointing." }], "Notes", CellID->110221340], Cell["\<\ The following expressions are interpreted as pointers to the target object:\ \>", "Notes", CellID->5861709], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CloudObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "cloud object representing an API or a notebook", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["NotebookObject", "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/NotebookObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "open notebook in the front end", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["URL", "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/URL", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "URL object", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["File", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/File", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "file object", "TableText"]}, {Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["String", "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/String", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ string representing a URL, or a path to a notebook or HTML file\ \>", "TableText"]} }]], "TableNotes", CellID->9073654], Cell["\<\ Strings that do not point to a notebook or HTML file give an error.\ \>", "Notes", CellID->626308774], Cell[TextData[{ "Unless ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " has special interpretation rules, ", Cell[BoxData["CheckHyperlinks"], "InlineFormula", FontFamily->"Source Sans Pro"], " follows only elements with the explicit head ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Hyperlink", "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/Hyperlink", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->367002812], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Notebook", "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/Notebook", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " expressions have special interpretation rules." }], "Notes", CellID->303182033], Cell[TextData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", StyleBox["obj", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns results in the form: ", Cell[BoxData[ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["vurl", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["vurl", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], ",", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["burl", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["burl", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], ",", RowBox[{"\"\\"", "->", StyleBox["assoc", "TI"]}]}], "|>"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ SubscriptBox[ StyleBox["vurl", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ SubscriptBox[ StyleBox["burl", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " are vaild and broken urls, respectively, and the association ", Cell[BoxData[ StyleBox["assoc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is in the form ", Cell[BoxData[ RowBox[{"<|", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["burl", "TI"], StyleBox["1", "TR"]], "->", SubscriptBox[ StyleBox["resp", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["burl", "TI"], StyleBox["2", "TR"]], "->", SubscriptBox[ StyleBox["resp", "TI"], StyleBox["2", "TR"]]}], ",", "\[Ellipsis]"}], "|>"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ SubscriptBox[ StyleBox["resp", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " are response or failure objects for ", Cell[BoxData[ SubscriptBox[ StyleBox["burl", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->172429068], Cell[TextData[{ "Possible properties in ", Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{ StyleBox["obj", "TI"], ",", StyleBox["props", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " are:" }], "Notes", CellID->809797326], Cell[BoxData[GridBox[{ {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "valid URLs", "TableText"]}, {Cell["\"Broken\"", "TableText"], Cell["broken URLs", "TableText"]}, {Cell["\"BrokenData\"", "TableText"], Cell["\<\ association giving broken URLs and corresponding response or failure objects\ \>", "TableText"]} }]], "TableNotes", CellID->252828933] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Check a hyperlink:", "Text", CellChangeTimes->{{3.779818155231985*^9, 3.779818173230228*^9}, { 3.779873115345954*^9, 3.779873120450328*^9}}, CellID->219424864], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"Hyperlink", "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.779873132401806*^9, 3.7798731399387827`*^9}}, CellLabel->"In[20]:=", CellID->540364064], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.779873146686631*^9, {3.779875811070448*^9, 3.779875820783236*^9}, 3.779875911462648*^9, 3.780158707564911*^9, 3.780178188331958*^9}, CellLabel->"Out[20]=", CellID->873338076] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031726], Cell["Check only for broken links:", "Text", CellChangeTimes->{{3.779873617864779*^9, 3.779873631513836*^9}}, CellID->136777709], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{ RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.779873132401806*^9, 3.7798731399387827`*^9}, { 3.7798736819230022`*^9, 3.7798736864431753`*^9}, {3.7798760340756273`*^9, 3.7798760452034483`*^9}}, CellLabel->"In[1]:=", CellID->915419261], Cell[BoxData[ RowBox[{"{", "\<\"https://www.wolfram.com/broken\"\>", "}"}]], "Output", CellChangeTimes->{3.779873146686631*^9, 3.779873688487144*^9, 3.779876014388012*^9, 3.779876046393504*^9, 3.780158714002666*^9, 3.7801781925736628`*^9}, CellLabel->"Out[1]=", CellID->92537557] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031727], Cell["Check several hyperlinks:", "Text", CellChangeTimes->{{3.779818155231985*^9, 3.779818173230228*^9}, { 3.7798733625855827`*^9, 3.77987336926903*^9}}, CellID->450172761], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ",", RowBox[{"Hyperlink", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.779818296495698*^9, 3.779818383611017*^9}, { 3.7798193446126223`*^9, 3.779819405958005*^9}, {3.779819439317696*^9, 3.779819440261561*^9}}, CellLabel->"In[1]:=", CellID->981668858], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"\"https://www.wolfram.com\"", "https://www.wolfram.com"}, "HyperlinkURL"], ",", TemplateBox[{"\"bad URL\"", "https://wolfram.com/does-not-exist"}, "HyperlinkURL"]}], "}"}]], "Output", CellChangeTimes->{3.779819377403942*^9, 3.7798194083738413`*^9, 3.779819443098983*^9, 3.779876072444838*^9, 3.780158719769841*^9, 3.780178194837493*^9}, CellLabel->"Out[1]=", CellID->961388496] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.779818175728163*^9, 3.7798182110797777`*^9}, { 3.779818258686392*^9, 3.77981828454347*^9}, {3.779818409265533*^9, 3.77981841606763*^9}}, CellLabel->"In[2]:=", CellID->552448694], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "\<\"https://wolfram.com/does-not-exist\"\>", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"https://wolfram.com/does-not-exist\"\>", "\[Rule]", 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["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[CompressedData[" 1:eJztPe2S2zaSub95CkSp2vxYczQzHjvOrcap8djeeGM7cx5nXVd3Vy6QhCR6 SIIByFG0de9xz7Cvce9x73KNL4rkkCIJiRrFVlLJSCLR6G6gG92NRuMbl75z /+Wrr776n//76qvJNz710mVC0DyNwqdfT8QfFOJ4dj4i8Qh5Ieb8fHR2fDYS Dwn2n36N4J9JRFKMvDlmnKTnoyydOk9G+lEapCF5+px6WUTiFL2lKXpJs9if jNWTAoAYR+R8xKhLUw6d0TiFFuejmAaxT35/gGI6pWFIFwD668k3joNcMgti NGXQbkHZDRIYIRIjx4E3VnDnaZo45LcsuD0f/e5k2PFolOA0cENS6CYg58Sf kdFdjG4DskgoSwsvLwI/nZ/75DbwiCO/PEBBHKQBDh3u4ZCcn4zaeVPoI+I4 ScLAA7RoDAjG02BW6G/sMrrghKkHR79HoYERBvENYiQ8H/F0GRI+JwQQnTMy hVbjxWJxtKChYJHnx0dA+HgKMPmY04wB6hzH3EkYHZ8cHY9nIXVxeORx3gk4 AItoPM7ZP4aGq29HJN4M0iwLKjC4x4IkRZx5DaQBdziwC/7Sm4A4+uvRJ4Aw GavWdaB095/wLVa/jxc4HIc4JVx+fE2x3xXIioZPfCzmo6ChKwJ8/Om3jLDl +PTo9OhMfzmKAgsISZiBbAAK9JawQM4iGOMnMMqFX3qBXnEHxzhcpoHHK22V UJLYXyuSXWYCYYwyLqeB+riaCZOx0jsTl/rLdYqAsLzfif4e+Oejj+qzmVN+ cFv82UlzLfcxwTMt22ge+OTjx8fHx7qZbJqF5lUhUg4P/kGch84ZSrDvB/HM SZ0T5xRQCRh3XMwcl6QLAiipX/yAJyFeOoFbgKkZ9HSCNUOE6vrX0lzHYTLH crb/qGT4PMa3I+TjFDswVwUtf/311U+ayA+q0YVpNBnjlt54uTsvpJnft7tL 06i9u3JvsiNGVE+8U5cXYYiuAxBV9CccJX9BV5kLahS9M0COjo5KWEzGWajH fgyD3zAN3Npp4E2L4z8/UU1COqPVMWwhsQNhpn9visxUqc4U2VMQzZo0EDwa 8yS4IUshPkkMCwoOYTEZIbV8jc6ejMRsnM3hx0fHoxU5jmpm0Z+hstShnhZ5 vyePj1cdn54WO9btbSiF9jgud3wJC32WyjUVvQE9w9HPMV2Ecp2vReb7EhMk xOrQlifT/KTwDYZTNZfjqgdQ6A4t89OQ4tQRS3cZZD77oJ1Yjf3MkxaQnoHi 1xTXjn7LPDOw+kw42V0I5suVbjzhCY6L1Hz8eHJ6fJxPy0BrRi2A14QJq4jD ugDtnk6CHHAAC7LDThzvRCvUH0SzyRhUQlVP5Gyp8MDRFlENL+40KQiuUcku 6OSGptXm0FlI1BxxplkYrmlWbaoGWzU9gQWh/P2hpnstOAlytcBI8oFt8q9c wDu0lzA66Fv92aEx6TNPwHYIFELhKYxi82CfmjFWr8j/a43w37/ExPxeNwVs SYpwOifwP7Cnt07SKZBUQ9GbVZdDUGQGSS7/TkxT4oKR6xA/EMptkHF7uGbc pEEhnDmJxp9ilyd/eaFwGYJ60GMz+BwJGQ6xO8SY1lF7teoWvcbuEJRNgxjH 4IiBJk2nlPUyDbqS9riGtJeqX3Sl+x2CNr7kKYmciPokJGwIyr6voexa9vpG dTrIZIRFbxhyHjVLnBio5TD0kBicp+2r/ofr6Xkhex1QVWpndYBhWrOgXctO +1C18kfWvlW1BU67GwAbGxEage4v6447zLyUsIQFHPQfC25xShzpb9oOmiYN cyeEubVucXtSM4QvcmzQlcIGSUe27xztw4GCoeIUuDHgsv7Deso3MGPW0W0c kbtRDBn2FEvRIDbMcasNc2H6tyG3m/DKN79xnMkYOCMCUh25WBJcLbAlZ6wz G+oM1sKgX9MwE/Mt99nUn3tTDtzg0zdYongBptwlZQllUoQBTBamYMKJkZVD sHUp5lki9gfGKfHmMUhO6HDtBFsh/96AKfjS20K9WRDdjIPS5HYol2XqmQZV nFh9CeghWp3h1sqUjEUgPqcLE5CohkMFD3xGE6uYaP06RX73wswnzpTRyHEz Nstlu9biqFPaz6E79BzQ2oG18RC5lIm4KHPiruGLRobXcDgP+W6RxZ1MgYcN a4QJHyPlTVitDRsrRTP3GEkoD1LKlhuxJxdWOXPe5UA3X+BbhvAtyRgO35J0 1acV3goOAkC7xP5lFntCh22IvAFji/o9mBpb2oTq617V2eal9eV+pLGJA2L3 fPMl84rRbTsYZRThPzckkTMjMQHDiPYKYORIXyko6K8GyuDeQWCF58XVq72W rtIGyOD2xk5Mi/W0NhpYdWEBmAx4EP/3tGG5N1tdaEoZemG6H4j6Jg+ut1VY 69a9oW4QEuHW7os3VwiaOuDtb6Is8yjoAKEYKWV3EQTzayYStz66IY5veiMs I0hiNAZWlJEc9i0sREIC1BzaOcbfLnBCF4QR3w5350q11pN/39X/QEqhLjpd 3ZPfB42w5aDJFQ58YUV9Il6KrhXsQfSE2YnNNlJkv24Ft3ylrHA2ivptUOXo XcumSG987oUQWYYszoom1kBu0Haslf4ivmMTxibqfDBPtozhwTw5mCcd3ry3 baaD6XEwPb4806OQQ978WPQ5PpIJpU29roFzJw12SmkKjCodOliX1DpYjnCP fIvHRY/n8XGNAZPnu8/JLYNWeCqIjGk6F0l/8ptsqekWR0fyzGNxBiC3f+qz kJtmUwPjiwNXzT2ujmHh3W9LGdz5mZfSUOaJ3lL70JDOArKVZO8iPKuE7/cF AF982vbDLhnaLSMiTk5mQI69aPVJ9a4u2Ws3Pddk5r3WWFus2JPk6Ttyqzf9 MVuiG3PcwnExB9OnkMiLDHeOJuOkiy7usr3dMiAmb3oDZTfUiKxJKszzrG2M KBiS93MCjCcEUBBHcEl8G4CGlcdxhTmN4yXKLSEkztNMQ7rgOxwWyf/VaZ69 G5s1mfBI7pW8NLjbDdA1iXCcBl7hBKMYGEbAMoVvoS+5sKUBaTFZ5Cutb8i3 unis+zeYZ2sGs5zv2WsML0GcRHZCEAMknjIwADJG5Dhq6N9xJFmCkrKpYnyP HQpc/5Tv3YxNj4TxfgJGp+kCw3AowlEQJSERClCsQymox+rat8OxyOIAuMlB 1H2ShHQp0HLU0Yn9G6C6oyS5X2kIQc9zQqr5U71G7VXMU9CLaMUXhD1GuZaj B/CA36Q0eYBUsOYBLGU+fGbbGr6dqUrj2HMvID1ToXcz7nUHbcy4XyukLW0T 43MsHRKD7S4EUnMB0amUTW91iBfmlhaXnVqNOBWJZ44xWJ0shhEQc1N4J/s3 WGsSqNBbRUuu6EBqC7RsJK4/l239B8hlFPvhUssvWP+akfdh+eeOiMBt/4as LgvHDNnPRdQtjZNM5ML7RpSEi5wzBMmgthj8UrR6Nyr0jxAg2yyusldBslKE 5x4iY0VWtkTH8jMg2wiN5cCs4mKrUwxfelBsnRjlre+ULdhw/7048Y1MrdWn Z/XxLeVASFX3AL2TvtfzvdqVyidpEPsZuJDLMSZg7ibYIw5ZIW+XEGsgaafz OZmSmG9nE7UDIaCwIrnRtikdlxoQKozmzogAeWU01M6Z3V7hpYKhDa1+u1wb oE5C4qVsKyPwIgd1H2MQREITJox6hHNbEl4JIGLHSAPZGfLqQ7CFUXiVg7qP UYhgHcfxVqbTmxzUfRBCE3GMQfzmMMIJZt7ciopfcjii8piEMzAJ/bEsGYXA eBEnqRRHa0XxM8qTrUuiu5s3twd2gVWC4WrhF/XxzKypJgfe/9DvuPyFdXrT Wf0ukC6j8wBdiwAVF0UxtYGVn4G+ENUyebBfCVA1pqaXZpip+rUy/GZn31wY MCYsuDMTxw1oEItSRqJ4hR3yz0ogdoW4RM468mvO8+ZR2B0ZlCAVNCLCELTj 9YsCgF0hrYptiTnOAn7jRDgGO1DsK9id6DXQ0DuAht7k0HZFDs91jl3CXd78 YKrsr6lyVp8aku9oqtXmA3H3aX3xyS0JhW1tNzENbc8VmF3KlHKUKTgkTiIq CfO5dcQlS+dUxtULhYkluN25mylhUxE98leMtPQ2NaT7GJIFcTcmAOTDGvX9 sny3WoqlFLu2Svk/eFH7MJc0E7bm6tTl4bxnJPb3youZErGfTDhJxxH2QLMS JySYxdahKAUEvdZAtqbgokRgoE1867I9b0QZswQz7AcznXc4pNEvV4+YpA6d OnJ/0c7KfKXBiGyO9xLMwOvGPPGsEP0pmM2dK1jmhP8n0k9U8fih1us59m4w WAhW9jFgmzffa/2z3iou7ub1torr8jhXMYf90VJ1sRYuTEwa2VWSujCtdxhZ EVv23qaxoWcSzs7QlnuO8pP1RqNofXCO/zhH9W1snYN3ffCuD9715+Zda45s LaHoYG0crI2DtfEHszY+g+TjDYZurzKP75aY32Hacc7EtpxjVbtjKxnHusSI Tb5xHn8qMr7DxWum8kjjMH9RucrbuWcNGXAWGSczFviVy99OS98FfX3cHo2t xQLR2zF6VJ9DvQqNWpk81kSUiKmIHnwmTEZWt1N7oVAqJz8lZe6v7h/xb8O+ sWbEFOw2JxDZwuKwsLgVekqZYwooEGZnFb0EqOhVAarczLhaQR2UuPsqYNQH R3lqzQM2WeH4d1CwNC9C4zECExNg2bG1u+GUt+jrI/XvpqAuzUKUsr5aTAKq KqbC4qRuFNwL9dIooEQdIcdsWRLT7SicXEQpW6JnlN7sSC7F3fWxj+1CSx+I G8SYmen/nuHAah9tHep7VXesL58ta88Ib1aVf/kclMhO8oPrTLgup9ckNFuL qS6U/JYQH/1EwuTH+wwTaXekfCS61z2qBXmRoNDLi3/bSrACUImyOEiXJeQ2 UaKXBuIwwRTt2QmPCHt2VsKlamtVLHK/BO3hvQha/WW9JAqyqOoG70NQtngd dcICT2x6JAJdwkzl0aNknthdyCLBmHqHg874Qa+32//5/zlEE22jUnsVSzRB iPq4104Di6rrlrCiqLqB4+U2wooalFVY8VK1PQQGtxsYHHaxe1wfh7twabZX S5yZmC72bmaMZrF/NE+j0M44kqDQsxzUVlY1N6SzrZmYzwDYtqxfQWwJMRzH QLUnowuWp/CKEAbDk9xaI/jidmuYNc3Ebdjnv/5BTBP51h74wI+b6tiyG8AA 9P6ve5UskU8VzIhtQP1StUU4NfWzhp3VG6CqUrH5POh5/UQTjvWeuzYIfvQy 9h7Pzj9Rl0s7zaaqArhN7E5tTvQ3APkHlstal/kL2158XO/Dv4LZFICffGud VGVNR4meZmGcCntExZ8ps0tdNPP5ZQ5qqzFnEWyQRaN7GzvVu4Tuno9J5x8E 5K3HyFVdQsJk4UhBgDVzLzUk55msNy9QHiqiv9l5nkpe1QV6Sxbo5yD2xUEZ 23M9HTHfxgEUM4tXBVzlTrLluZS+yFeXQxzB1OHYt7zW+DrNfFFe+CIHY/aD Po8tF/n2F75vy0G9pVmy2WwXU/xaA9rqBPdJBDKT6iJSG/upz0vgzOVUg4qk 9gbTVUFnWOl1Zs44AIf0VtwX7uAFZha3AhTG4JWBhS4ErGEVDcM8cQljS8fy JnKD9Z/ROwMKXQWHLfGcwUQheE+5yTmq+6ayD5sXW4t979XmhYnC38NuhWZg WxK0rF7Ya7NiPFaNNlu2RJy7ZkjO6oek5s2Hehdj9VJ9AjUoOF2hsXkMql57 h60O8MwlExUvnAXDSVIg0puum/vi1DnCMoGsgZ8jFBEwrKEHcNJG8K5HktTx 5phx4bRl6dR5kncWU8edeh22SICRMThMKF0m5HyUkt8BdIwj+PxbRthyhG5x mMG3D3OcInFqcEkzFFJ6I/bfAOkfAZMspWJqhSSFF+l0OirxQcIX49F+l0YR FRguMMkNMmou5disptA6lSZ42jBW65SrVKa2G4KK5vUSps+2V+fXnXne/9BB kBInwhZ3GDfI3iPL3cCCzj+Bf5/U0bKJJlMcLLF5MoYHxXc0jFLbuaTdccXD yVh9qzwTMMUviIArvrqPSz2FH5F6I8JBrlnApqNmJk4SYGQ0Q5x5IMciQkrj sXyBj+H38ZQRfEN8HgUhWR4l8QzkJwTx/c//eKmeXMsn/zVSkcHz0cnZDyMR 1ZvN4a2TH6RmS/K+fqEJfyBvSRGbq0I4vwMZLcgn8nD8XYpccROV2JSTjSdj gb4h1CUzoKV49ZhctnNS9Xc5fdXnfPKshvl75wkSi6ujUJXDbhb7CQxHsblT OGFT2BOW8czCxvBpJbj5qPL9rOq8lrZ8VytBeSrVGUqFoGph4o7yO9XrGnTO qaWFi7YM+yoi+VL9nF8X/UtcH/rpm2vUsds3qybW3Rpq5QXajrln0SF+UMqJ 7sgAdde3ufYQvVBQrJEr3DrphNjtis1V4bLK19i16X51nzjgYMcFwGITwst3 +6qev1X3ZYnb5HnzrJDvNF9W3qlCkyqP6yQhTsVq3JUDuqwuutLtrBFQpfqd iPokLDjDLd2r4vxvVCN75od42b1PEye4kq2sO63c7NexU3O33mbCzz0WJGnP vq9lo81nuFi6XBIX6rd3pP2DaWiNg0hSSRzKZjgO/iEDMeBneiQu3U/Qgs3f aZhFpt7INdhx6LUBscFcANAJC7i4MCG4xWAclu/kbMHpRd4elJBsby7IrEfo 7hr6CKwCs+hjkbJlqbCa2RaQBRhQYV3Y525QpODUVetSdbYJTM6qnTpqz6Rt Ibhj8mzb1pU5EF3y1Fu6vqQMkJezAFqKYnQ1c7PM9IrT19FAq9lXOAzPEMOj +d2duy/BobjMeErFSVE7XUlSxwh5b+7+EgsXA12nlHVcrDigkEE3ZSUDY4zD sbbu34H7Y3ZKuhuGoiUqNt0cH1H1JC5lTXZE4zldxCHFDTshw+Kgp7kwW2KO npGYTIOGxL666dGER8fef+Vim0I26U479jxwhdPaYGVLf/8Ob6EL1b7/etNb lyl11ImRLQe82kax5UyXzbko8CiDzgNplMracyybnM5qVZ7rD2QNY0vIomWe uDFIbYHZe5c2nmVnHnfYm27pt8d2dK3I5puEpnNpx/bBwPA4v+G2M+3qbnYL omFOxUAl8UVtNAGkP90Css9oYk22cXJkteDnAMlasGo3wjv23mHv2yLXqmPn 63Kp7PLRWse9Wwpa/+S99R1X8/da8vUsc8RaiG/J/+qXEeAVb/6WRahverjU l6V7w9/r1gM6r3dTGbbmvW7uSNk5uwcLZGMshrRAuo+kOTPZiaSOFZU6KuAe RZS2Wn+lL3rdSq4MVMOpLSBuVbZpC7iKBcnhKj12Q2zFcoR0pq09vmtK1bQN eI/qNHbFrDrOuPr6VdaZfa2atT2Zz64uVuvqJkph2fdXqpXT0ld9eZz7DkYe /LuDf7eW7oN/d/DvDv7dwb9btzYVz3J2WKEaMgcbViidjdxpHLuXKmhhS3t1 AssKBG372c1FB7ZQ4qKNaFGxY+0R8U2OgbeJinp9826tfNqO0fRihqCn1tY8 T1AkJoOQBrPY8VR6vcoFNOmCIROnn/vN/mK2uF7L17XMq267JsO8VyG7jqvZ 5dradX3Qaax30hGTxhInPXnSojNisuAhSdPuDs3bvEUbemY2cSqvaY5g/Qxi RySnnuVF1JswvysCcoZ0RfJONvX3onzQXX7VZVc3Lg2lHGdNW54svcox10/c 2ixbIzHlwkvFBUfm4Xo0DHHCSVHY1EqEiz95Mseo+MsdSa0uWHfQDEflpe7U eVQnw/Ksxv/+U30oQVgSDBw/PT75QZ/oaE2Urwzi04JaPkLilA4TScwcicsl 2S0RadN3T7TWnGi4SxyrU2Gm7MPDekoLS7pkqYsBEEkXhMSayat51HwYpT3y Q2bdd9pfi5cFf3T0pBtwmXbmLU2opHvirWyGrii4z81VPDtFY6tHItqiJSL1 7g2u96M6dGrrsl+Ydt075uWebX3HS9OuXpveXaorpmqN5VqSAC+XgILqQSVp qNEZJa1XOMFhoKoTHOpb5Zk8tJCjYeKb4NZ6N2QljnJPZLUiFFVVne7WZY3U c3lYqw66CJlGzYewJlxegFbfVD2rakuayPgpCLw4lekj9Rbxn75nOOahSPcC v4nL4x+TsXq7ODjqfcNIdSJK8xa4FFOVs6vPJulvDcc7GInoLSwIjGB/OVot OoXuxOEXyacXsazW9zd8i1WCL0opkjemiT0OWQrKHBXCMVCVuVEgTg2xiCMg 19ggC+IKAeZHtfqGyE6cT9CJQlyfk6vWMWlwp+sOcuqNEjSnCyEOq6M2imWw AGsewWfNutJJn/wUzfgTH7vUXwKSR5+4mDymXd3pIjVzV0duZFN5RAkcjKf/ D3NP9Zc= "]], Association[ "Headers" -> {{"Date", "Wed, 16 Oct 2019 01:29:55 GMT"}, { "Server", "Apache"}, {"Connection", "close"}, { "Content-Type", "text/html; charset=utf-8"}, { "Content-Language", "en"}}, "StatusCode" -> 404, "Cookies" -> {}], CharacterEncoding -> Automatic], Editable->False, SelectWithContents->True, Selectable->False]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.779818417870984*^9, 3.779819238422289*^9, 3.779819381653829*^9, 3.779819413675293*^9, 3.779819445376631*^9, 3.779876074288353*^9, 3.780158722873386*^9, 3.78017819673036*^9}, CellLabel->"Out[2]=", CellID->884524409] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031728], Cell["Check hyperlinks on a webpage:", "Text", CellChangeTimes->{{3.779751742241871*^9, 3.779751767491078*^9}}, CellID->628260795], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.77975177515035*^9, 3.779751785692493*^9}, { 3.77981524536203*^9, 3.7798152804583597`*^9}, {3.779817292380728*^9, 3.779817295291087*^9}, 3.779818084713675*^9}, CellLabel->"In[1]:=", CellID->60629318], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"https://enable-javascript.com/\"\>", ",", "\<\"https://products.wolframalpha.com\"\>", ",", "\<\"https://products.wolframalpha.com/api\"\>", ",", "\<\"https://products.wolframalpha.com/business\"\>", ",", "\<\"https://products.wolframalpha.com/mobile\"\>", ",", "\<\"https://www.wolframalpha.com/\"\>", ",", "\<\"https://www.wolframalpha.com/about\"\>", ",", "\<\"https://www.wolframalpha.com/contact-us\"\>", ",", "\<\"https://www.wolframalpha.com/examples/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/everyday-life/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/everyday-life/personal-\ finance\"\>", ",", "\<\"https://www.wolframalpha.com/examples/everyday-life/personal-\ health/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/everyday-life/surprises/\ \"\>", ",", "\<\"https://www.wolframalpha.com/examples/mathematics/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/mathematics/algebra/\"\>\ ", ",", "\<\"https://www.wolframalpha.com/examples/mathematics/elementary-\ math/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/pro-features/step-by-\ step-solutions/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/science-and-technology/\ \"\>", ",", \ "\<\"https://www.wolframalpha.com/examples/science-and-technology/chemistry/\"\ \>", ",", \ "\<\"https://www.wolframalpha.com/examples/science-and-technology/physics/\"\>\ ", ",", "\<\"https://www.wolframalpha.com/examples/science-and-technology/\ units-measures/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/society-and-culture/\"\>\ ", ",", "\<\"https://www.wolframalpha.com/examples/society-and-culture/\ culture-media/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/society-and-culture/\ dates-and-times/\"\>", ",", "\<\"https://www.wolframalpha.com/examples/society-and-culture/\ people/\"\>", ",", "\<\"https://www.wolframalpha.com/pro\"\>", ",", "\<\"https://www.wolframalpha.com/social\"\>", ",", "\<\"https://www.wolframalpha.com/termsofuse\"\>", ",", "\<\"https://www.wolframalpha.com/tour/\"\>", ",", "\<\"https://www.wolfram.com/legal/privacy/wolfram/\"\>"}], "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.779815251638465*^9, 3.779815281242557*^9}, 3.779817296382329*^9, 3.779818093244666*^9, 3.780158740128483*^9, 3.780178209626685*^9}, CellLabel->"Out[1]=", CellID->218429430] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031729], Cell["Check hyperlinks in a cloud object: ", "Text", CellChangeTimes->{{3.779751544349298*^9, 3.779751608565741*^9}, { 3.779873402068726*^9, 3.779873454270824*^9}}, CellID->385684762], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"co", "=", RowBox[{"CloudPublish", "[", RowBox[{"{", RowBox[{ RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ",", RowBox[{ "Hyperlink", "[", "\"\\"", "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.77311903946178*^9, 3.773119087397456*^9}, { 3.779751502254019*^9, 3.779751503413506*^9}, 3.779751779144863*^9}, CellLabel->"In[1]:=", CellID->401992375], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/obj/d578c38b-1b76-4ce9-9cc1-6d2b35d4e05e\"\ ", "https://www.wolframcloud.com/obj/d578c38b-1b76-4ce9-9cc1-6d2b35d4e05e"}, "HyperlinkURL"], "]"}], CloudObject[ "https://www.wolframcloud.com/obj/d578c38b-1b76-4ce9-9cc1-6d2b35d4e05e"], SelectWithContents->True]], "Output", CellChangeTimes->{3.7731190905051928`*^9, 3.779027175571948*^9, 3.779128848809205*^9, 3.77919836657336*^9, 3.779751504585767*^9, 3.779819505978116*^9, 3.780158755657999*^9, 3.780178212938953*^9}, CellLabel->"Out[1]=", CellID->19878844] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7731191002274113`*^9, 3.7731191042457523`*^9}, { 3.773119169305847*^9, 3.773119181023602*^9}}, CellLabel->"In[2]:=", CellID->552448695], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "\<\"http://www.wolfram.com/does-not-exist\"\>", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"http://www.wolfram.com/does-not-exist\"\>", "\[Rule]", 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["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[CompressedData[" 1:eJztPe2S2zaSub95CkSp2vxYczQzHjvOrcap8djeeGM7cx5nXVd3Vy6QhCR6 SIIByFG0de9xz7Cvce9x73KNL4rkkCIJiRrFVlLJSCLR6G6gG92NRuMbl75z /+Wrr776n//76qvJNz710mVC0DyNwqdfT8QfFOJ4dj4i8Qh5Ieb8fHR2fDYS Dwn2n36N4J9JRFKMvDlmnKTnoyydOk9G+lEapCF5+px6WUTiFL2lKXpJs9if jNWTAoAYR+R8xKhLUw6d0TiFFuejmAaxT35/gGI6pWFIFwD668k3joNcMgti NGXQbkHZDRIYIRIjx4E3VnDnaZo45LcsuD0f/e5k2PFolOA0cENS6CYg58Sf kdFdjG4DskgoSwsvLwI/nZ/75DbwiCO/PEBBHKQBDh3u4ZCcn4zaeVPoI+I4 ScLAA7RoDAjG02BW6G/sMrrghKkHR79HoYERBvENYiQ8H/F0GRI+JwQQnTMy hVbjxWJxtKChYJHnx0dA+HgKMPmY04wB6hzH3EkYHZ8cHY9nIXVxeORx3gk4 AItoPM7ZP4aGq29HJN4M0iwLKjC4x4IkRZx5DaQBdziwC/7Sm4A4+uvRJ4Aw GavWdaB095/wLVa/jxc4HIc4JVx+fE2x3xXIioZPfCzmo6ChKwJ8/Om3jLDl +PTo9OhMfzmKAgsISZiBbAAK9JawQM4iGOMnMMqFX3qBXnEHxzhcpoHHK22V UJLYXyuSXWYCYYwyLqeB+riaCZOx0jsTl/rLdYqAsLzfif4e+Oejj+qzmVN+ cFv82UlzLfcxwTMt22ge+OTjx8fHx7qZbJqF5lUhUg4P/kGch84ZSrDvB/HM SZ0T5xRQCRh3XMwcl6QLAiipX/yAJyFeOoFbgKkZ9HSCNUOE6vrX0lzHYTLH crb/qGT4PMa3I+TjFDswVwUtf/311U+ayA+q0YVpNBnjlt54uTsvpJnft7tL 06i9u3JvsiNGVE+8U5cXYYiuAxBV9CccJX9BV5kLahS9M0COjo5KWEzGWajH fgyD3zAN3Npp4E2L4z8/UU1COqPVMWwhsQNhpn9visxUqc4U2VMQzZo0EDwa 8yS4IUshPkkMCwoOYTEZIbV8jc6ejMRsnM3hx0fHoxU5jmpm0Z+hstShnhZ5 vyePj1cdn54WO9btbSiF9jgud3wJC32WyjUVvQE9w9HPMV2Ecp2vReb7EhMk xOrQlifT/KTwDYZTNZfjqgdQ6A4t89OQ4tQRS3cZZD77oJ1Yjf3MkxaQnoHi 1xTXjn7LPDOw+kw42V0I5suVbjzhCY6L1Hz8eHJ6fJxPy0BrRi2A14QJq4jD ugDtnk6CHHAAC7LDThzvRCvUH0SzyRhUQlVP5Gyp8MDRFlENL+40KQiuUcku 6OSGptXm0FlI1BxxplkYrmlWbaoGWzU9gQWh/P2hpnstOAlytcBI8oFt8q9c wDu0lzA66Fv92aEx6TNPwHYIFELhKYxi82CfmjFWr8j/a43w37/ExPxeNwVs SYpwOifwP7Cnt07SKZBUQ9GbVZdDUGQGSS7/TkxT4oKR6xA/EMptkHF7uGbc pEEhnDmJxp9ilyd/eaFwGYJ60GMz+BwJGQ6xO8SY1lF7teoWvcbuEJRNgxjH 4IiBJk2nlPUyDbqS9riGtJeqX3Sl+x2CNr7kKYmciPokJGwIyr6voexa9vpG dTrIZIRFbxhyHjVLnBio5TD0kBicp+2r/ofr6Xkhex1QVWpndYBhWrOgXctO +1C18kfWvlW1BU67GwAbGxEage4v6447zLyUsIQFHPQfC25xShzpb9oOmiYN cyeEubVucXtSM4QvcmzQlcIGSUe27xztw4GCoeIUuDHgsv7Deso3MGPW0W0c kbtRDBn2FEvRIDbMcasNc2H6tyG3m/DKN79xnMkYOCMCUh25WBJcLbAlZ6wz G+oM1sKgX9MwE/Mt99nUn3tTDtzg0zdYongBptwlZQllUoQBTBamYMKJkZVD sHUp5lki9gfGKfHmMUhO6HDtBFsh/96AKfjS20K9WRDdjIPS5HYol2XqmQZV nFh9CeghWp3h1sqUjEUgPqcLE5CohkMFD3xGE6uYaP06RX73wswnzpTRyHEz Nstlu9biqFPaz6E79BzQ2oG18RC5lIm4KHPiruGLRobXcDgP+W6RxZ1MgYcN a4QJHyPlTVitDRsrRTP3GEkoD1LKlhuxJxdWOXPe5UA3X+BbhvAtyRgO35J0 1acV3goOAkC7xP5lFntCh22IvAFji/o9mBpb2oTq617V2eal9eV+pLGJA2L3 fPMl84rRbTsYZRThPzckkTMjMQHDiPYKYORIXyko6K8GyuDeQWCF58XVq72W rtIGyOD2xk5Mi/W0NhpYdWEBmAx4EP/3tGG5N1tdaEoZemG6H4j6Jg+ut1VY 69a9oW4QEuHW7os3VwiaOuDtb6Is8yjoAKEYKWV3EQTzayYStz66IY5veiMs I0hiNAZWlJEc9i0sREIC1BzaOcbfLnBCF4QR3w5350q11pN/39X/QEqhLjpd 3ZPfB42w5aDJFQ58YUV9Il6KrhXsQfSE2YnNNlJkv24Ft3ylrHA2ivptUOXo XcumSG987oUQWYYszoom1kBu0Haslf4ivmMTxibqfDBPtozhwTw5mCcd3ry3 baaD6XEwPb4806OQQ978WPQ5PpIJpU29roFzJw12SmkKjCodOliX1DpYjnCP fIvHRY/n8XGNAZPnu8/JLYNWeCqIjGk6F0l/8ptsqekWR0fyzGNxBiC3f+qz kJtmUwPjiwNXzT2ujmHh3W9LGdz5mZfSUOaJ3lL70JDOArKVZO8iPKuE7/cF AF982vbDLhnaLSMiTk5mQI69aPVJ9a4u2Ws3Pddk5r3WWFus2JPk6Ttyqzf9 MVuiG3PcwnExB9OnkMiLDHeOJuOkiy7usr3dMiAmb3oDZTfUiKxJKszzrG2M KBiS93MCjCcEUBBHcEl8G4CGlcdxhTmN4yXKLSEkztNMQ7rgOxwWyf/VaZ69 G5s1mfBI7pW8NLjbDdA1iXCcBl7hBKMYGEbAMoVvoS+5sKUBaTFZ5Cutb8i3 unis+zeYZ2sGs5zv2WsML0GcRHZCEAMknjIwADJG5Dhq6N9xJFmCkrKpYnyP HQpc/5Tv3YxNj4TxfgJGp+kCw3AowlEQJSERClCsQymox+rat8OxyOIAuMlB 1H2ShHQp0HLU0Yn9G6C6oyS5X2kIQc9zQqr5U71G7VXMU9CLaMUXhD1GuZaj B/CA36Q0eYBUsOYBLGU+fGbbGr6dqUrj2HMvID1ToXcz7nUHbcy4XyukLW0T 43MsHRKD7S4EUnMB0amUTW91iBfmlhaXnVqNOBWJZ44xWJ0shhEQc1N4J/s3 WGsSqNBbRUuu6EBqC7RsJK4/l239B8hlFPvhUssvWP+akfdh+eeOiMBt/4as LgvHDNnPRdQtjZNM5ML7RpSEi5wzBMmgthj8UrR6Nyr0jxAg2yyusldBslKE 5x4iY0VWtkTH8jMg2wiN5cCs4mKrUwxfelBsnRjlre+ULdhw/7048Y1MrdWn Z/XxLeVASFX3AL2TvtfzvdqVyidpEPsZuJDLMSZg7ibYIw5ZIW+XEGsgaafz OZmSmG9nE7UDIaCwIrnRtikdlxoQKozmzogAeWU01M6Z3V7hpYKhDa1+u1wb oE5C4qVsKyPwIgd1H2MQREITJox6hHNbEl4JIGLHSAPZGfLqQ7CFUXiVg7qP UYhgHcfxVqbTmxzUfRBCE3GMQfzmMMIJZt7ciopfcjii8piEMzAJ/bEsGYXA eBEnqRRHa0XxM8qTrUuiu5s3twd2gVWC4WrhF/XxzKypJgfe/9DvuPyFdXrT Wf0ukC6j8wBdiwAVF0UxtYGVn4G+ENUyebBfCVA1pqaXZpip+rUy/GZn31wY MCYsuDMTxw1oEItSRqJ4hR3yz0ogdoW4RM468mvO8+ZR2B0ZlCAVNCLCELTj 9YsCgF0hrYptiTnOAn7jRDgGO1DsK9id6DXQ0DuAht7k0HZFDs91jl3CXd78 YKrsr6lyVp8aku9oqtXmA3H3aX3xyS0JhW1tNzENbc8VmF3KlHKUKTgkTiIq CfO5dcQlS+dUxtULhYkluN25mylhUxE98leMtPQ2NaT7GJIFcTcmAOTDGvX9 sny3WoqlFLu2Svk/eFH7MJc0E7bm6tTl4bxnJPb3youZErGfTDhJxxH2QLMS JySYxdahKAUEvdZAtqbgokRgoE1867I9b0QZswQz7AcznXc4pNEvV4+YpA6d OnJ/0c7KfKXBiGyO9xLMwOvGPPGsEP0pmM2dK1jmhP8n0k9U8fih1us59m4w WAhW9jFgmzffa/2z3iou7ub1torr8jhXMYf90VJ1sRYuTEwa2VWSujCtdxhZ EVv23qaxoWcSzs7QlnuO8pP1RqNofXCO/zhH9W1snYN3ffCuD9715+Zda45s LaHoYG0crI2DtfEHszY+g+TjDYZurzKP75aY32Hacc7EtpxjVbtjKxnHusSI Tb5xHn8qMr7DxWum8kjjMH9RucrbuWcNGXAWGSczFviVy99OS98FfX3cHo2t xQLR2zF6VJ9DvQqNWpk81kSUiKmIHnwmTEZWt1N7oVAqJz8lZe6v7h/xb8O+ sWbEFOw2JxDZwuKwsLgVekqZYwooEGZnFb0EqOhVAarczLhaQR2UuPsqYNQH R3lqzQM2WeH4d1CwNC9C4zECExNg2bG1u+GUt+jrI/XvpqAuzUKUsr5aTAKq KqbC4qRuFNwL9dIooEQdIcdsWRLT7SicXEQpW6JnlN7sSC7F3fWxj+1CSx+I G8SYmen/nuHAah9tHep7VXesL58ta88Ib1aVf/kclMhO8oPrTLgup9ckNFuL qS6U/JYQH/1EwuTH+wwTaXekfCS61z2qBXmRoNDLi3/bSrACUImyOEiXJeQ2 UaKXBuIwwRTt2QmPCHt2VsKlamtVLHK/BO3hvQha/WW9JAqyqOoG70NQtngd dcICT2x6JAJdwkzl0aNknthdyCLBmHqHg874Qa+32//5/zlEE22jUnsVSzRB iPq4104Di6rrlrCiqLqB4+U2wooalFVY8VK1PQQGtxsYHHaxe1wfh7twabZX S5yZmC72bmaMZrF/NE+j0M44kqDQsxzUVlY1N6SzrZmYzwDYtqxfQWwJMRzH QLUnowuWp/CKEAbDk9xaI/jidmuYNc3Ebdjnv/5BTBP51h74wI+b6tiyG8AA 9P6ve5UskU8VzIhtQP1StUU4NfWzhp3VG6CqUrH5POh5/UQTjvWeuzYIfvQy 9h7Pzj9Rl0s7zaaqArhN7E5tTvQ3APkHlstal/kL2158XO/Dv4LZFICffGud VGVNR4meZmGcCntExZ8ps0tdNPP5ZQ5qqzFnEWyQRaN7GzvVu4Tuno9J5x8E 5K3HyFVdQsJk4UhBgDVzLzUk55msNy9QHiqiv9l5nkpe1QV6Sxbo5yD2xUEZ 23M9HTHfxgEUM4tXBVzlTrLluZS+yFeXQxzB1OHYt7zW+DrNfFFe+CIHY/aD Po8tF/n2F75vy0G9pVmy2WwXU/xaA9rqBPdJBDKT6iJSG/upz0vgzOVUg4qk 9gbTVUFnWOl1Zs44AIf0VtwX7uAFZha3AhTG4JWBhS4ErGEVDcM8cQljS8fy JnKD9Z/ROwMKXQWHLfGcwUQheE+5yTmq+6ayD5sXW4t979XmhYnC38NuhWZg WxK0rF7Ya7NiPFaNNlu2RJy7ZkjO6oek5s2Hehdj9VJ9AjUoOF2hsXkMql57 h60O8MwlExUvnAXDSVIg0puum/vi1DnCMoGsgZ8jFBEwrKEHcNJG8K5HktTx 5phx4bRl6dR5kncWU8edeh22SICRMThMKF0m5HyUkt8BdIwj+PxbRthyhG5x mMG3D3OcInFqcEkzFFJ6I/bfAOkfAZMspWJqhSSFF+l0OirxQcIX49F+l0YR FRguMMkNMmou5disptA6lSZ42jBW65SrVKa2G4KK5vUSps+2V+fXnXne/9BB kBInwhZ3GDfI3iPL3cCCzj+Bf5/U0bKJJlMcLLF5MoYHxXc0jFLbuaTdccXD yVh9qzwTMMUviIArvrqPSz2FH5F6I8JBrlnApqNmJk4SYGQ0Q5x5IMciQkrj sXyBj+H38ZQRfEN8HgUhWR4l8QzkJwTx/c//eKmeXMsn/zVSkcHz0cnZDyMR 1ZvN4a2TH6RmS/K+fqEJfyBvSRGbq0I4vwMZLcgn8nD8XYpccROV2JSTjSdj gb4h1CUzoKV49ZhctnNS9Xc5fdXnfPKshvl75wkSi6ujUJXDbhb7CQxHsblT OGFT2BOW8czCxvBpJbj5qPL9rOq8lrZ8VytBeSrVGUqFoGph4o7yO9XrGnTO qaWFi7YM+yoi+VL9nF8X/UtcH/rpm2vUsds3qybW3Rpq5QXajrln0SF+UMqJ 7sgAdde3ufYQvVBQrJEr3DrphNjtis1V4bLK19i16X51nzjgYMcFwGITwst3 +6qev1X3ZYnb5HnzrJDvNF9W3qlCkyqP6yQhTsVq3JUDuqwuutLtrBFQpfqd iPokLDjDLd2r4vxvVCN75od42b1PEye4kq2sO63c7NexU3O33mbCzz0WJGnP vq9lo81nuFi6XBIX6rd3pP2DaWiNg0hSSRzKZjgO/iEDMeBneiQu3U/Qgs3f aZhFpt7INdhx6LUBscFcANAJC7i4MCG4xWAclu/kbMHpRd4elJBsby7IrEfo 7hr6CKwCs+hjkbJlqbCa2RaQBRhQYV3Y525QpODUVetSdbYJTM6qnTpqz6Rt Ibhj8mzb1pU5EF3y1Fu6vqQMkJezAFqKYnQ1c7PM9IrT19FAq9lXOAzPEMOj +d2duy/BobjMeErFSVE7XUlSxwh5b+7+EgsXA12nlHVcrDigkEE3ZSUDY4zD sbbu34H7Y3ZKuhuGoiUqNt0cH1H1JC5lTXZE4zldxCHFDTshw+Kgp7kwW2KO npGYTIOGxL666dGER8fef+Vim0I26U479jxwhdPaYGVLf/8Ob6EL1b7/etNb lyl11ImRLQe82kax5UyXzbko8CiDzgNplMracyybnM5qVZ7rD2QNY0vIomWe uDFIbYHZe5c2nmVnHnfYm27pt8d2dK3I5puEpnNpx/bBwPA4v+G2M+3qbnYL omFOxUAl8UVtNAGkP90Css9oYk22cXJkteDnAMlasGo3wjv23mHv2yLXqmPn 63Kp7PLRWse9Wwpa/+S99R1X8/da8vUsc8RaiG/J/+qXEeAVb/6WRahverjU l6V7w9/r1gM6r3dTGbbmvW7uSNk5uwcLZGMshrRAuo+kOTPZiaSOFZU6KuAe RZS2Wn+lL3rdSq4MVMOpLSBuVbZpC7iKBcnhKj12Q2zFcoR0pq09vmtK1bQN eI/qNHbFrDrOuPr6VdaZfa2atT2Zz64uVuvqJkph2fdXqpXT0ld9eZz7DkYe /LuDf7eW7oN/d/DvDv7dwb9btzYVz3J2WKEaMgcbViidjdxpHLuXKmhhS3t1 AssKBG372c1FB7ZQ4qKNaFGxY+0R8U2OgbeJinp9826tfNqO0fRihqCn1tY8 T1AkJoOQBrPY8VR6vcoFNOmCIROnn/vN/mK2uF7L17XMq267JsO8VyG7jqvZ 5dradX3Qaax30hGTxhInPXnSojNisuAhSdPuDs3bvEUbemY2cSqvaY5g/Qxi RySnnuVF1JswvysCcoZ0RfJONvX3onzQXX7VZVc3Lg2lHGdNW54svcox10/c 2ixbIzHlwkvFBUfm4Xo0DHHCSVHY1EqEiz95Mseo+MsdSa0uWHfQDEflpe7U eVQnw/Ksxv/+U30oQVgSDBw/PT75QZ/oaE2Urwzi04JaPkLilA4TScwcicsl 2S0RadN3T7TWnGi4SxyrU2Gm7MPDekoLS7pkqYsBEEkXhMSayat51HwYpT3y Q2bdd9pfi5cFf3T0pBtwmXbmLU2opHvirWyGrii4z81VPDtFY6tHItqiJSL1 7g2u96M6dGrrsl+Ydt075uWebX3HS9OuXpveXaorpmqN5VqSAC+XgILqQSVp qNEZJa1XOMFhoKoTHOpb5Zk8tJCjYeKb4NZ6N2QljnJPZLUiFFVVne7WZY3U c3lYqw66CJlGzYewJlxegFbfVD2rakuayPgpCLw4lekj9Rbxn75nOOahSPcC v4nL4x+TsXq7ODjqfcNIdSJK8xa4FFOVs6vPJulvDcc7GInoLSwIjGB/OVot OoXuxOEXyacXsazW9zd8i1WCL0opkjemiT0OWQrKHBXCMVCVuVEgTg2xiCMg 19ggC+IKAeZHtfqGyE6cT9CJQlyfk6vWMWlwp+sOcuqNEjSnCyEOq6M2imWw AGsewWfNutJJn/wUzfgTH7vUXwKSR5+4mDymXd3pIjVzV0duZFN5RAkcjKf/ D3NP9Zc= "]], Association[ "Headers" -> {{"Date", "Wed, 16 Oct 2019 01:30:14 GMT"}, { "Server", "Apache"}, {"Connection", "close"}, { "Content-Type", "text/html; charset=utf-8"}, { "Content-Language", "en"}}, "StatusCode" -> 404, "Cookies" -> {}], CharacterEncoding -> Automatic], Editable->False, SelectWithContents->True, Selectable->False]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.773119104651104*^9, {3.773119169948402*^9, 3.773119183549313*^9}, 3.779027193547426*^9, 3.77912885628603*^9, 3.7791983806861067`*^9, 3.779549903240501*^9, 3.7797515187406073`*^9, 3.7798195098754883`*^9, 3.7801587583328648`*^9, 3.780178215319607*^9}, CellLabel->"Out[2]=", CellID->516514809] }, Open ]], Cell["Check the same object given as a URL:", "Text", CellChangeTimes->{{3.7797516287094383`*^9, 3.779751670461196*^9}, { 3.779873477886593*^9, 3.7798734829826937`*^9}, {3.779876125827663*^9, 3.779876126580655*^9}}, CellID->740340940], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "[", "co", "]"}]], "Input", CellChangeTimes->{{3.7797516786260633`*^9, 3.779751683841711*^9}}, CellLabel->"In[3]:=", CellID->599585200], Cell[BoxData["\<\"https://www.wolframcloud.com/obj/d578c38b-1b76-4ce9-9cc1-\ 6d2b35d4e05e\"\>"], "Output", CellChangeTimes->{3.779751684535531*^9, 3.779819518913417*^9, 3.780158767184207*^9, 3.780178221723906*^9}, CellLabel->"Out[3]=", CellID->576957238] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7731191002274113`*^9, 3.7731191042457523`*^9}, { 3.773119169305847*^9, 3.773119181023602*^9}, 3.779751674671647*^9}, CellLabel->"In[4]:=", CellID->721706527], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "\<\"http://www.wolfram.com/does-not-exist\"\>", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"http://www.wolfram.com/does-not-exist\"\>", "\[Rule]", 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["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[CompressedData[" 1:eJztPe2S2zaSub95CkSp2vxYczQzHjvOrcap8djeeGM7cx5nXVd3Vy6QhCR6 SIIByFG0de9xz7Cvce9x73KNL4rkkCIJiRrFVlLJSCLR6G6gG92NRuMbl75z /+Wrr776n//76qvJNz710mVC0DyNwqdfT8QfFOJ4dj4i8Qh5Ieb8fHR2fDYS Dwn2n36N4J9JRFKMvDlmnKTnoyydOk9G+lEapCF5+px6WUTiFL2lKXpJs9if jNWTAoAYR+R8xKhLUw6d0TiFFuejmAaxT35/gGI6pWFIFwD668k3joNcMgti NGXQbkHZDRIYIRIjx4E3VnDnaZo45LcsuD0f/e5k2PFolOA0cENS6CYg58Sf kdFdjG4DskgoSwsvLwI/nZ/75DbwiCO/PEBBHKQBDh3u4ZCcn4zaeVPoI+I4 ScLAA7RoDAjG02BW6G/sMrrghKkHR79HoYERBvENYiQ8H/F0GRI+JwQQnTMy hVbjxWJxtKChYJHnx0dA+HgKMPmY04wB6hzH3EkYHZ8cHY9nIXVxeORx3gk4 AItoPM7ZP4aGq29HJN4M0iwLKjC4x4IkRZx5DaQBdziwC/7Sm4A4+uvRJ4Aw GavWdaB095/wLVa/jxc4HIc4JVx+fE2x3xXIioZPfCzmo6ChKwJ8/Om3jLDl +PTo9OhMfzmKAgsISZiBbAAK9JawQM4iGOMnMMqFX3qBXnEHxzhcpoHHK22V UJLYXyuSXWYCYYwyLqeB+riaCZOx0jsTl/rLdYqAsLzfif4e+Oejj+qzmVN+ cFv82UlzLfcxwTMt22ge+OTjx8fHx7qZbJqF5lUhUg4P/kGch84ZSrDvB/HM SZ0T5xRQCRh3XMwcl6QLAiipX/yAJyFeOoFbgKkZ9HSCNUOE6vrX0lzHYTLH crb/qGT4PMa3I+TjFDswVwUtf/311U+ayA+q0YVpNBnjlt54uTsvpJnft7tL 06i9u3JvsiNGVE+8U5cXYYiuAxBV9CccJX9BV5kLahS9M0COjo5KWEzGWajH fgyD3zAN3Npp4E2L4z8/UU1COqPVMWwhsQNhpn9visxUqc4U2VMQzZo0EDwa 8yS4IUshPkkMCwoOYTEZIbV8jc6ejMRsnM3hx0fHoxU5jmpm0Z+hstShnhZ5 vyePj1cdn54WO9btbSiF9jgud3wJC32WyjUVvQE9w9HPMV2Ecp2vReb7EhMk xOrQlifT/KTwDYZTNZfjqgdQ6A4t89OQ4tQRS3cZZD77oJ1Yjf3MkxaQnoHi 1xTXjn7LPDOw+kw42V0I5suVbjzhCY6L1Hz8eHJ6fJxPy0BrRi2A14QJq4jD ugDtnk6CHHAAC7LDThzvRCvUH0SzyRhUQlVP5Gyp8MDRFlENL+40KQiuUcku 6OSGptXm0FlI1BxxplkYrmlWbaoGWzU9gQWh/P2hpnstOAlytcBI8oFt8q9c wDu0lzA66Fv92aEx6TNPwHYIFELhKYxi82CfmjFWr8j/a43w37/ExPxeNwVs SYpwOifwP7Cnt07SKZBUQ9GbVZdDUGQGSS7/TkxT4oKR6xA/EMptkHF7uGbc pEEhnDmJxp9ilyd/eaFwGYJ60GMz+BwJGQ6xO8SY1lF7teoWvcbuEJRNgxjH 4IiBJk2nlPUyDbqS9riGtJeqX3Sl+x2CNr7kKYmciPokJGwIyr6voexa9vpG dTrIZIRFbxhyHjVLnBio5TD0kBicp+2r/ofr6Xkhex1QVWpndYBhWrOgXctO +1C18kfWvlW1BU67GwAbGxEage4v6447zLyUsIQFHPQfC25xShzpb9oOmiYN cyeEubVucXtSM4QvcmzQlcIGSUe27xztw4GCoeIUuDHgsv7Deso3MGPW0W0c kbtRDBn2FEvRIDbMcasNc2H6tyG3m/DKN79xnMkYOCMCUh25WBJcLbAlZ6wz G+oM1sKgX9MwE/Mt99nUn3tTDtzg0zdYongBptwlZQllUoQBTBamYMKJkZVD sHUp5lki9gfGKfHmMUhO6HDtBFsh/96AKfjS20K9WRDdjIPS5HYol2XqmQZV nFh9CeghWp3h1sqUjEUgPqcLE5CohkMFD3xGE6uYaP06RX73wswnzpTRyHEz Nstlu9biqFPaz6E79BzQ2oG18RC5lIm4KHPiruGLRobXcDgP+W6RxZ1MgYcN a4QJHyPlTVitDRsrRTP3GEkoD1LKlhuxJxdWOXPe5UA3X+BbhvAtyRgO35J0 1acV3goOAkC7xP5lFntCh22IvAFji/o9mBpb2oTq617V2eal9eV+pLGJA2L3 fPMl84rRbTsYZRThPzckkTMjMQHDiPYKYORIXyko6K8GyuDeQWCF58XVq72W rtIGyOD2xk5Mi/W0NhpYdWEBmAx4EP/3tGG5N1tdaEoZemG6H4j6Jg+ut1VY 69a9oW4QEuHW7os3VwiaOuDtb6Is8yjoAKEYKWV3EQTzayYStz66IY5veiMs I0hiNAZWlJEc9i0sREIC1BzaOcbfLnBCF4QR3w5350q11pN/39X/QEqhLjpd 3ZPfB42w5aDJFQ58YUV9Il6KrhXsQfSE2YnNNlJkv24Ft3ylrHA2ivptUOXo XcumSG987oUQWYYszoom1kBu0Haslf4ivmMTxibqfDBPtozhwTw5mCcd3ry3 baaD6XEwPb4806OQQ978WPQ5PpIJpU29roFzJw12SmkKjCodOliX1DpYjnCP fIvHRY/n8XGNAZPnu8/JLYNWeCqIjGk6F0l/8ptsqekWR0fyzGNxBiC3f+qz kJtmUwPjiwNXzT2ujmHh3W9LGdz5mZfSUOaJ3lL70JDOArKVZO8iPKuE7/cF AF982vbDLhnaLSMiTk5mQI69aPVJ9a4u2Ws3Pddk5r3WWFus2JPk6Ttyqzf9 MVuiG3PcwnExB9OnkMiLDHeOJuOkiy7usr3dMiAmb3oDZTfUiKxJKszzrG2M KBiS93MCjCcEUBBHcEl8G4CGlcdxhTmN4yXKLSEkztNMQ7rgOxwWyf/VaZ69 G5s1mfBI7pW8NLjbDdA1iXCcBl7hBKMYGEbAMoVvoS+5sKUBaTFZ5Cutb8i3 unis+zeYZ2sGs5zv2WsML0GcRHZCEAMknjIwADJG5Dhq6N9xJFmCkrKpYnyP HQpc/5Tv3YxNj4TxfgJGp+kCw3AowlEQJSERClCsQymox+rat8OxyOIAuMlB 1H2ShHQp0HLU0Yn9G6C6oyS5X2kIQc9zQqr5U71G7VXMU9CLaMUXhD1GuZaj B/CA36Q0eYBUsOYBLGU+fGbbGr6dqUrj2HMvID1ToXcz7nUHbcy4XyukLW0T 43MsHRKD7S4EUnMB0amUTW91iBfmlhaXnVqNOBWJZ44xWJ0shhEQc1N4J/s3 WGsSqNBbRUuu6EBqC7RsJK4/l239B8hlFPvhUssvWP+akfdh+eeOiMBt/4as LgvHDNnPRdQtjZNM5ML7RpSEi5wzBMmgthj8UrR6Nyr0jxAg2yyusldBslKE 5x4iY0VWtkTH8jMg2wiN5cCs4mKrUwxfelBsnRjlre+ULdhw/7048Y1MrdWn Z/XxLeVASFX3AL2TvtfzvdqVyidpEPsZuJDLMSZg7ibYIw5ZIW+XEGsgaafz OZmSmG9nE7UDIaCwIrnRtikdlxoQKozmzogAeWU01M6Z3V7hpYKhDa1+u1wb oE5C4qVsKyPwIgd1H2MQREITJox6hHNbEl4JIGLHSAPZGfLqQ7CFUXiVg7qP UYhgHcfxVqbTmxzUfRBCE3GMQfzmMMIJZt7ciopfcjii8piEMzAJ/bEsGYXA eBEnqRRHa0XxM8qTrUuiu5s3twd2gVWC4WrhF/XxzKypJgfe/9DvuPyFdXrT Wf0ukC6j8wBdiwAVF0UxtYGVn4G+ENUyebBfCVA1pqaXZpip+rUy/GZn31wY MCYsuDMTxw1oEItSRqJ4hR3yz0ogdoW4RM468mvO8+ZR2B0ZlCAVNCLCELTj 9YsCgF0hrYptiTnOAn7jRDgGO1DsK9id6DXQ0DuAht7k0HZFDs91jl3CXd78 YKrsr6lyVp8aku9oqtXmA3H3aX3xyS0JhW1tNzENbc8VmF3KlHKUKTgkTiIq CfO5dcQlS+dUxtULhYkluN25mylhUxE98leMtPQ2NaT7GJIFcTcmAOTDGvX9 sny3WoqlFLu2Svk/eFH7MJc0E7bm6tTl4bxnJPb3youZErGfTDhJxxH2QLMS JySYxdahKAUEvdZAtqbgokRgoE1867I9b0QZswQz7AcznXc4pNEvV4+YpA6d OnJ/0c7KfKXBiGyO9xLMwOvGPPGsEP0pmM2dK1jmhP8n0k9U8fih1us59m4w WAhW9jFgmzffa/2z3iou7ub1torr8jhXMYf90VJ1sRYuTEwa2VWSujCtdxhZ EVv23qaxoWcSzs7QlnuO8pP1RqNofXCO/zhH9W1snYN3ffCuD9715+Zda45s LaHoYG0crI2DtfEHszY+g+TjDYZurzKP75aY32Hacc7EtpxjVbtjKxnHusSI Tb5xHn8qMr7DxWum8kjjMH9RucrbuWcNGXAWGSczFviVy99OS98FfX3cHo2t xQLR2zF6VJ9DvQqNWpk81kSUiKmIHnwmTEZWt1N7oVAqJz8lZe6v7h/xb8O+ sWbEFOw2JxDZwuKwsLgVekqZYwooEGZnFb0EqOhVAarczLhaQR2UuPsqYNQH R3lqzQM2WeH4d1CwNC9C4zECExNg2bG1u+GUt+jrI/XvpqAuzUKUsr5aTAKq KqbC4qRuFNwL9dIooEQdIcdsWRLT7SicXEQpW6JnlN7sSC7F3fWxj+1CSx+I G8SYmen/nuHAah9tHep7VXesL58ta88Ib1aVf/kclMhO8oPrTLgup9ckNFuL qS6U/JYQH/1EwuTH+wwTaXekfCS61z2qBXmRoNDLi3/bSrACUImyOEiXJeQ2 UaKXBuIwwRTt2QmPCHt2VsKlamtVLHK/BO3hvQha/WW9JAqyqOoG70NQtngd dcICT2x6JAJdwkzl0aNknthdyCLBmHqHg874Qa+32//5/zlEE22jUnsVSzRB iPq4104Di6rrlrCiqLqB4+U2wooalFVY8VK1PQQGtxsYHHaxe1wfh7twabZX S5yZmC72bmaMZrF/NE+j0M44kqDQsxzUVlY1N6SzrZmYzwDYtqxfQWwJMRzH QLUnowuWp/CKEAbDk9xaI/jidmuYNc3Ebdjnv/5BTBP51h74wI+b6tiyG8AA 9P6ve5UskU8VzIhtQP1StUU4NfWzhp3VG6CqUrH5POh5/UQTjvWeuzYIfvQy 9h7Pzj9Rl0s7zaaqArhN7E5tTvQ3APkHlstal/kL2158XO/Dv4LZFICffGud VGVNR4meZmGcCntExZ8ps0tdNPP5ZQ5qqzFnEWyQRaN7GzvVu4Tuno9J5x8E 5K3HyFVdQsJk4UhBgDVzLzUk55msNy9QHiqiv9l5nkpe1QV6Sxbo5yD2xUEZ 23M9HTHfxgEUM4tXBVzlTrLluZS+yFeXQxzB1OHYt7zW+DrNfFFe+CIHY/aD Po8tF/n2F75vy0G9pVmy2WwXU/xaA9rqBPdJBDKT6iJSG/upz0vgzOVUg4qk 9gbTVUFnWOl1Zs44AIf0VtwX7uAFZha3AhTG4JWBhS4ErGEVDcM8cQljS8fy JnKD9Z/ROwMKXQWHLfGcwUQheE+5yTmq+6ayD5sXW4t979XmhYnC38NuhWZg WxK0rF7Ya7NiPFaNNlu2RJy7ZkjO6oek5s2Hehdj9VJ9AjUoOF2hsXkMql57 h60O8MwlExUvnAXDSVIg0puum/vi1DnCMoGsgZ8jFBEwrKEHcNJG8K5HktTx 5phx4bRl6dR5kncWU8edeh22SICRMThMKF0m5HyUkt8BdIwj+PxbRthyhG5x mMG3D3OcInFqcEkzFFJ6I/bfAOkfAZMspWJqhSSFF+l0OirxQcIX49F+l0YR FRguMMkNMmou5disptA6lSZ42jBW65SrVKa2G4KK5vUSps+2V+fXnXne/9BB kBInwhZ3GDfI3iPL3cCCzj+Bf5/U0bKJJlMcLLF5MoYHxXc0jFLbuaTdccXD yVh9qzwTMMUviIArvrqPSz2FH5F6I8JBrlnApqNmJk4SYGQ0Q5x5IMciQkrj sXyBj+H38ZQRfEN8HgUhWR4l8QzkJwTx/c//eKmeXMsn/zVSkcHz0cnZDyMR 1ZvN4a2TH6RmS/K+fqEJfyBvSRGbq0I4vwMZLcgn8nD8XYpccROV2JSTjSdj gb4h1CUzoKV49ZhctnNS9Xc5fdXnfPKshvl75wkSi6ujUJXDbhb7CQxHsblT OGFT2BOW8czCxvBpJbj5qPL9rOq8lrZ8VytBeSrVGUqFoGph4o7yO9XrGnTO qaWFi7YM+yoi+VL9nF8X/UtcH/rpm2vUsds3qybW3Rpq5QXajrln0SF+UMqJ 7sgAdde3ufYQvVBQrJEr3DrphNjtis1V4bLK19i16X51nzjgYMcFwGITwst3 +6qev1X3ZYnb5HnzrJDvNF9W3qlCkyqP6yQhTsVq3JUDuqwuutLtrBFQpfqd iPokLDjDLd2r4vxvVCN75od42b1PEye4kq2sO63c7NexU3O33mbCzz0WJGnP vq9lo81nuFi6XBIX6rd3pP2DaWiNg0hSSRzKZjgO/iEDMeBneiQu3U/Qgs3f aZhFpt7INdhx6LUBscFcANAJC7i4MCG4xWAclu/kbMHpRd4elJBsby7IrEfo 7hr6CKwCs+hjkbJlqbCa2RaQBRhQYV3Y525QpODUVetSdbYJTM6qnTpqz6Rt Ibhj8mzb1pU5EF3y1Fu6vqQMkJezAFqKYnQ1c7PM9IrT19FAq9lXOAzPEMOj +d2duy/BobjMeErFSVE7XUlSxwh5b+7+EgsXA12nlHVcrDigkEE3ZSUDY4zD sbbu34H7Y3ZKuhuGoiUqNt0cH1H1JC5lTXZE4zldxCHFDTshw+Kgp7kwW2KO npGYTIOGxL666dGER8fef+Vim0I26U479jxwhdPaYGVLf/8Ob6EL1b7/etNb lyl11ImRLQe82kax5UyXzbko8CiDzgNplMracyybnM5qVZ7rD2QNY0vIomWe uDFIbYHZe5c2nmVnHnfYm27pt8d2dK3I5puEpnNpx/bBwPA4v+G2M+3qbnYL omFOxUAl8UVtNAGkP90Css9oYk22cXJkteDnAMlasGo3wjv23mHv2yLXqmPn 63Kp7PLRWse9Wwpa/+S99R1X8/da8vUsc8RaiG/J/+qXEeAVb/6WRahverjU l6V7w9/r1gM6r3dTGbbmvW7uSNk5uwcLZGMshrRAuo+kOTPZiaSOFZU6KuAe RZS2Wn+lL3rdSq4MVMOpLSBuVbZpC7iKBcnhKj12Q2zFcoR0pq09vmtK1bQN eI/qNHbFrDrOuPr6VdaZfa2atT2Zz64uVuvqJkph2fdXqpXT0ld9eZz7DkYe /LuDf7eW7oN/d/DvDv7dwb9btzYVz3J2WKEaMgcbViidjdxpHLuXKmhhS3t1 AssKBG372c1FB7ZQ4qKNaFGxY+0R8U2OgbeJinp9826tfNqO0fRihqCn1tY8 T1AkJoOQBrPY8VR6vcoFNOmCIROnn/vN/mK2uF7L17XMq267JsO8VyG7jqvZ 5dradX3Qaax30hGTxhInPXnSojNisuAhSdPuDs3bvEUbemY2cSqvaY5g/Qxi RySnnuVF1JswvysCcoZ0RfJONvX3onzQXX7VZVc3Lg2lHGdNW54svcox10/c 2ixbIzHlwkvFBUfm4Xo0DHHCSVHY1EqEiz95Mseo+MsdSa0uWHfQDEflpe7U eVQnw/Ksxv/+U30oQVgSDBw/PT75QZ/oaE2Urwzi04JaPkLilA4TScwcicsl 2S0RadN3T7TWnGi4SxyrU2Gm7MPDekoLS7pkqYsBEEkXhMSayat51HwYpT3y Q2bdd9pfi5cFf3T0pBtwmXbmLU2opHvirWyGrii4z81VPDtFY6tHItqiJSL1 7g2u96M6dGrrsl+Ydt075uWebX3HS9OuXpveXaorpmqN5VqSAC+XgILqQSVp qNEZJa1XOMFhoKoTHOpb5Zk8tJCjYeKb4NZ6N2QljnJPZLUiFFVVne7WZY3U c3lYqw66CJlGzYewJlxegFbfVD2rakuayPgpCLw4lekj9Rbxn75nOOahSPcC v4nL4x+TsXq7ODjqfcNIdSJK8xa4FFOVs6vPJulvDcc7GInoLSwIjGB/OVot OoXuxOEXyacXsazW9zd8i1WCL0opkjemiT0OWQrKHBXCMVCVuVEgTg2xiCMg 19ggC+IKAeZHtfqGyE6cT9CJQlyfk6vWMWlwp+sOcuqNEjSnCyEOq6M2imWw AGsewWfNutJJn/wUzfgTH7vUXwKSR5+4mDymXd3pIjVzV0duZFN5RAkcjKf/ D3NP9Zc= "]], Association[ "Headers" -> {{"Date", "Wed, 16 Oct 2019 01:30:23 GMT"}, { "Server", "Apache"}, {"Connection", "close"}, { "Content-Type", "text/html; charset=utf-8"}, { "Content-Language", "en"}}, "StatusCode" -> 404, "Cookies" -> {}], CharacterEncoding -> Automatic], Editable->False, SelectWithContents->True, Selectable->False]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.779751689651102*^9, 3.77981952075266*^9, 3.7801587724112997`*^9, 3.7801782242231703`*^9}, CellLabel->"Out[4]=", CellID->517836758] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellLabel->"In[5]:=", CellID->912623285], Cell["Check hyperlinks in an expression:", "Text", CellChangeTimes->{{3.779818155231985*^9, 3.779818173230228*^9}, { 3.779873333534129*^9, 3.779873337861064*^9}}, CellID->717325139], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"Hold", "[", RowBox[{"If", "[", RowBox[{"True", ",", RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ",", RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ",", RowBox[{"Hyperlink", "[", "\"\\"", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.779818175728163*^9, 3.7798182110797777`*^9}, { 3.779818258686392*^9, 3.77981828454347*^9}, {3.779818409265533*^9, 3.77981841606763*^9}, {3.779828250837624*^9, 3.779828300734809*^9}}, CellLabel->"In[1]:=", CellID->212425671], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"https://www.wolfram.com/2\"\>", ",", "\<\"https://www.wolfram.com/3\"\>"}], "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"https://www.wolfram.com/2\"\>", "\[Rule]", 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["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[CompressedData[" 1:eJztPe2S2zaSub95CkSp2vxYczQzHjvOrcap8djeeGM7cx5nXVd3Vy6QhCR6 SIIByFG0de9xz7Cvce9x73KNL4rkkCIJiRrFVlLJSCLR6G6gG92NRuMbl75z /+Wrr776n//76qvJNz710mVC0DyNwqdfT8QfFOJ4dj4i8Qh5Ieb8fHR2fDYS Dwn2n36N4J9JRFKMvDlmnKTnoyydOk9G+lEapCF5+px6WUTiFL2lKXpJs9if jNWTAoAYR+R8xKhLUw6d0TiFFuejmAaxT35/gGI6pWFIFwD668k3joNcMgti NGXQbkHZDRIYIRIjx4E3VnDnaZo45LcsuD0f/e5k2PFolOA0cENS6CYg58Sf kdFdjG4DskgoSwsvLwI/nZ/75DbwiCO/PEBBHKQBDh3u4ZCcn4zaeVPoI+I4 ScLAA7RoDAjG02BW6G/sMrrghKkHR79HoYERBvENYiQ8H/F0GRI+JwQQnTMy hVbjxWJxtKChYJHnx0dA+HgKMPmY04wB6hzH3EkYHZ8cHY9nIXVxeORx3gk4 AItoPM7ZP4aGq29HJN4M0iwLKjC4x4IkRZx5DaQBdziwC/7Sm4A4+uvRJ4Aw GavWdaB095/wLVa/jxc4HIc4JVx+fE2x3xXIioZPfCzmo6ChKwJ8/Om3jLDl +PTo9OhMfzmKAgsISZiBbAAK9JawQM4iGOMnMMqFX3qBXnEHxzhcpoHHK22V UJLYXyuSXWYCYYwyLqeB+riaCZOx0jsTl/rLdYqAsLzfif4e+Oejj+qzmVN+ cFv82UlzLfcxwTMt22ge+OTjx8fHx7qZbJqF5lUhUg4P/kGch84ZSrDvB/HM SZ0T5xRQCRh3XMwcl6QLAiipX/yAJyFeOoFbgKkZ9HSCNUOE6vrX0lzHYTLH crb/qGT4PMa3I+TjFDswVwUtf/311U+ayA+q0YVpNBnjlt54uTsvpJnft7tL 06i9u3JvsiNGVE+8U5cXYYiuAxBV9CccJX9BV5kLahS9M0COjo5KWEzGWajH fgyD3zAN3Npp4E2L4z8/UU1COqPVMWwhsQNhpn9visxUqc4U2VMQzZo0EDwa 8yS4IUshPkkMCwoOYTEZIbV8jc6ejMRsnM3hx0fHoxU5jmpm0Z+hstShnhZ5 vyePj1cdn54WO9btbSiF9jgud3wJC32WyjUVvQE9w9HPMV2Ecp2vReb7EhMk xOrQlifT/KTwDYZTNZfjqgdQ6A4t89OQ4tQRS3cZZD77oJ1Yjf3MkxaQnoHi 1xTXjn7LPDOw+kw42V0I5suVbjzhCY6L1Hz8eHJ6fJxPy0BrRi2A14QJq4jD ugDtnk6CHHAAC7LDThzvRCvUH0SzyRhUQlVP5Gyp8MDRFlENL+40KQiuUcku 6OSGptXm0FlI1BxxplkYrmlWbaoGWzU9gQWh/P2hpnstOAlytcBI8oFt8q9c wDu0lzA66Fv92aEx6TNPwHYIFELhKYxi82CfmjFWr8j/a43w37/ExPxeNwVs SYpwOifwP7Cnt07SKZBUQ9GbVZdDUGQGSS7/TkxT4oKR6xA/EMptkHF7uGbc pEEhnDmJxp9ilyd/eaFwGYJ60GMz+BwJGQ6xO8SY1lF7teoWvcbuEJRNgxjH 4IiBJk2nlPUyDbqS9riGtJeqX3Sl+x2CNr7kKYmciPokJGwIyr6voexa9vpG dTrIZIRFbxhyHjVLnBio5TD0kBicp+2r/ofr6Xkhex1QVWpndYBhWrOgXctO +1C18kfWvlW1BU67GwAbGxEage4v6447zLyUsIQFHPQfC25xShzpb9oOmiYN cyeEubVucXtSM4QvcmzQlcIGSUe27xztw4GCoeIUuDHgsv7Deso3MGPW0W0c kbtRDBn2FEvRIDbMcasNc2H6tyG3m/DKN79xnMkYOCMCUh25WBJcLbAlZ6wz G+oM1sKgX9MwE/Mt99nUn3tTDtzg0zdYongBptwlZQllUoQBTBamYMKJkZVD sHUp5lki9gfGKfHmMUhO6HDtBFsh/96AKfjS20K9WRDdjIPS5HYol2XqmQZV nFh9CeghWp3h1sqUjEUgPqcLE5CohkMFD3xGE6uYaP06RX73wswnzpTRyHEz Nstlu9biqFPaz6E79BzQ2oG18RC5lIm4KHPiruGLRobXcDgP+W6RxZ1MgYcN a4QJHyPlTVitDRsrRTP3GEkoD1LKlhuxJxdWOXPe5UA3X+BbhvAtyRgO35J0 1acV3goOAkC7xP5lFntCh22IvAFji/o9mBpb2oTq617V2eal9eV+pLGJA2L3 fPMl84rRbTsYZRThPzckkTMjMQHDiPYKYORIXyko6K8GyuDeQWCF58XVq72W rtIGyOD2xk5Mi/W0NhpYdWEBmAx4EP/3tGG5N1tdaEoZemG6H4j6Jg+ut1VY 69a9oW4QEuHW7os3VwiaOuDtb6Is8yjoAKEYKWV3EQTzayYStz66IY5veiMs I0hiNAZWlJEc9i0sREIC1BzaOcbfLnBCF4QR3w5350q11pN/39X/QEqhLjpd 3ZPfB42w5aDJFQ58YUV9Il6KrhXsQfSE2YnNNlJkv24Ft3ylrHA2ivptUOXo XcumSG987oUQWYYszoom1kBu0Haslf4ivmMTxibqfDBPtozhwTw5mCcd3ry3 baaD6XEwPb4806OQQ978WPQ5PpIJpU29roFzJw12SmkKjCodOliX1DpYjnCP fIvHRY/n8XGNAZPnu8/JLYNWeCqIjGk6F0l/8ptsqekWR0fyzGNxBiC3f+qz kJtmUwPjiwNXzT2ujmHh3W9LGdz5mZfSUOaJ3lL70JDOArKVZO8iPKuE7/cF AF982vbDLhnaLSMiTk5mQI69aPVJ9a4u2Ws3Pddk5r3WWFus2JPk6Ttyqzf9 MVuiG3PcwnExB9OnkMiLDHeOJuOkiy7usr3dMiAmb3oDZTfUiKxJKszzrG2M KBiS93MCjCcEUBBHcEl8G4CGlcdxhTmN4yXKLSEkztNMQ7rgOxwWyf/VaZ69 G5s1mfBI7pW8NLjbDdA1iXCcBl7hBKMYGEbAMoVvoS+5sKUBaTFZ5Cutb8i3 unis+zeYZ2sGs5zv2WsML0GcRHZCEAMknjIwADJG5Dhq6N9xJFmCkrKpYnyP HQpc/5Tv3YxNj4TxfgJGp+kCw3AowlEQJSERClCsQymox+rat8OxyOIAuMlB 1H2ShHQp0HLU0Yn9G6C6oyS5X2kIQc9zQqr5U71G7VXMU9CLaMUXhD1GuZaj B/CA36Q0eYBUsOYBLGU+fGbbGr6dqUrj2HMvID1ToXcz7nUHbcy4XyukLW0T 43MsHRKD7S4EUnMB0amUTW91iBfmlhaXnVqNOBWJZ44xWJ0shhEQc1N4J/s3 WGsSqNBbRUuu6EBqC7RsJK4/l239B8hlFPvhUssvWP+akfdh+eeOiMBt/4as LgvHDNnPRdQtjZNM5ML7RpSEi5wzBMmgthj8UrR6Nyr0jxAg2yyusldBslKE 5x4iY0VWtkTH8jMg2wiN5cCs4mKrUwxfelBsnRjlre+ULdhw/7048Y1MrdWn Z/XxLeVASFX3AL2TvtfzvdqVyidpEPsZuJDLMSZg7ibYIw5ZIW+XEGsgaafz OZmSmG9nE7UDIaCwIrnRtikdlxoQKozmzogAeWU01M6Z3V7hpYKhDa1+u1wb oE5C4qVsKyPwIgd1H2MQREITJox6hHNbEl4JIGLHSAPZGfLqQ7CFUXiVg7qP UYhgHcfxVqbTmxzUfRBCE3GMQfzmMMIJZt7ciopfcjii8piEMzAJ/bEsGYXA eBEnqRRHa0XxM8qTrUuiu5s3twd2gVWC4WrhF/XxzKypJgfe/9DvuPyFdXrT Wf0ukC6j8wBdiwAVF0UxtYGVn4G+ENUyebBfCVA1pqaXZpip+rUy/GZn31wY MCYsuDMTxw1oEItSRqJ4hR3yz0ogdoW4RM468mvO8+ZR2B0ZlCAVNCLCELTj 9YsCgF0hrYptiTnOAn7jRDgGO1DsK9id6DXQ0DuAht7k0HZFDs91jl3CXd78 YKrsr6lyVp8aku9oqtXmA3H3aX3xyS0JhW1tNzENbc8VmF3KlHKUKTgkTiIq CfO5dcQlS+dUxtULhYkluN25mylhUxE98leMtPQ2NaT7GJIFcTcmAOTDGvX9 sny3WoqlFLu2Svk/eFH7MJc0E7bm6tTl4bxnJPb3youZErGfTDhJxxH2QLMS JySYxdahKAUEvdZAtqbgokRgoE1867I9b0QZswQz7AcznXc4pNEvV4+YpA6d OnJ/0c7KfKXBiGyO9xLMwOvGPPGsEP0pmM2dK1jmhP8n0k9U8fih1us59m4w WAhW9jFgmzffa/2z3iou7ub1torr8jhXMYf90VJ1sRYuTEwa2VWSujCtdxhZ EVv23qaxoWcSzs7QlnuO8pP1RqNofXCO/zhH9W1snYN3ffCuD9715+Zda45s LaHoYG0crI2DtfEHszY+g+TjDYZurzKP75aY32Hacc7EtpxjVbtjKxnHusSI Tb5xHn8qMr7DxWum8kjjMH9RucrbuWcNGXAWGSczFviVy99OS98FfX3cHo2t xQLR2zF6VJ9DvQqNWpk81kSUiKmIHnwmTEZWt1N7oVAqJz8lZe6v7h/xb8O+ sWbEFOw2JxDZwuKwsLgVekqZYwooEGZnFb0EqOhVAarczLhaQR2UuPsqYNQH R3lqzQM2WeH4d1CwNC9C4zECExNg2bG1u+GUt+jrI/XvpqAuzUKUsr5aTAKq KqbC4qRuFNwL9dIooEQdIcdsWRLT7SicXEQpW6JnlN7sSC7F3fWxj+1CSx+I G8SYmen/nuHAah9tHep7VXesL58ta88Ib1aVf/kclMhO8oPrTLgup9ckNFuL qS6U/JYQH/1EwuTH+wwTaXekfCS61z2qBXmRoNDLi3/bSrACUImyOEiXJeQ2 UaKXBuIwwRTt2QmPCHt2VsKlamtVLHK/BO3hvQha/WW9JAqyqOoG70NQtngd dcICT2x6JAJdwkzl0aNknthdyCLBmHqHg874Qa+32//5/zlEE22jUnsVSzRB iPq4104Di6rrlrCiqLqB4+U2wooalFVY8VK1PQQGtxsYHHaxe1wfh7twabZX S5yZmC72bmaMZrF/NE+j0M44kqDQsxzUVlY1N6SzrZmYzwDYtqxfQWwJMRzH QLUnowuWp/CKEAbDk9xaI/jidmuYNc3Ebdjnv/5BTBP51h74wI+b6tiyG8AA 9P6ve5UskU8VzIhtQP1StUU4NfWzhp3VG6CqUrH5POh5/UQTjvWeuzYIfvQy 9h7Pzj9Rl0s7zaaqArhN7E5tTvQ3APkHlstal/kL2158XO/Dv4LZFICffGud VGVNR4meZmGcCntExZ8ps0tdNPP5ZQ5qqzFnEWyQRaN7GzvVu4Tuno9J5x8E 5K3HyFVdQsJk4UhBgDVzLzUk55msNy9QHiqiv9l5nkpe1QV6Sxbo5yD2xUEZ 23M9HTHfxgEUM4tXBVzlTrLluZS+yFeXQxzB1OHYt7zW+DrNfFFe+CIHY/aD Po8tF/n2F75vy0G9pVmy2WwXU/xaA9rqBPdJBDKT6iJSG/upz0vgzOVUg4qk 9gbTVUFnWOl1Zs44AIf0VtwX7uAFZha3AhTG4JWBhS4ErGEVDcM8cQljS8fy JnKD9Z/ROwMKXQWHLfGcwUQheE+5yTmq+6ayD5sXW4t979XmhYnC38NuhWZg WxK0rF7Ya7NiPFaNNlu2RJy7ZkjO6oek5s2Hehdj9VJ9AjUoOF2hsXkMql57 h60O8MwlExUvnAXDSVIg0puum/vi1DnCMoGsgZ8jFBEwrKEHcNJG8K5HktTx 5phx4bRl6dR5kncWU8edeh22SICRMThMKF0m5HyUkt8BdIwj+PxbRthyhG5x mMG3D3OcInFqcEkzFFJ6I/bfAOkfAZMspWJqhSSFF+l0OirxQcIX49F+l0YR FRguMMkNMmou5disptA6lSZ42jBW65SrVKa2G4KK5vUSps+2V+fXnXne/9BB kBInwhZ3GDfI3iPL3cCCzj+Bf5/U0bKJJlMcLLF5MoYHxXc0jFLbuaTdccXD yVh9qzwTMMUviIArvrqPSz2FH5F6I8JBrlnApqNmJk4SYGQ0Q5x5IMciQkrj sXyBj+H38ZQRfEN8HgUhWR4l8QzkJwTx/c//eKmeXMsn/zVSkcHz0cnZDyMR 1ZvN4a2TH6RmS/K+fqEJfyBvSRGbq0I4vwMZLcgn8nD8XYpccROV2JSTjSdj gb4h1CUzoKV49ZhctnNS9Xc5fdXnfPKshvl75wkSi6ujUJXDbhb7CQxHsblT OGFT2BOW8czCxvBpJbj5qPL9rOq8lrZ8VytBeSrVGUqFoGph4o7yO9XrGnTO qaWFi7YM+yoi+VL9nF8X/UtcH/rpm2vUsds3qybW3Rpq5QXajrln0SF+UMqJ 7sgAdde3ufYQvVBQrJEr3DrphNjtis1V4bLK19i16X51nzjgYMcFwGITwst3 +6qev1X3ZYnb5HnzrJDvNF9W3qlCkyqP6yQhTsVq3JUDuqwuutLtrBFQpfqd iPokLDjDLd2r4vxvVCN75od42b1PEye4kq2sO63c7NexU3O33mbCzz0WJGnP vq9lo81nuFi6XBIX6rd3pP2DaWiNg0hSSRzKZjgO/iEDMeBneiQu3U/Qgs3f aZhFpt7INdhx6LUBscFcANAJC7i4MCG4xWAclu/kbMHpRd4elJBsby7IrEfo 7hr6CKwCs+hjkbJlqbCa2RaQBRhQYV3Y525QpODUVetSdbYJTM6qnTpqz6Rt Ibhj8mzb1pU5EF3y1Fu6vqQMkJezAFqKYnQ1c7PM9IrT19FAq9lXOAzPEMOj +d2duy/BobjMeErFSVE7XUlSxwh5b+7+EgsXA12nlHVcrDigkEE3ZSUDY4zD sbbu34H7Y3ZKuhuGoiUqNt0cH1H1JC5lTXZE4zldxCHFDTshw+Kgp7kwW2KO npGYTIOGxL666dGER8fef+Vim0I26U479jxwhdPaYGVLf/8Ob6EL1b7/etNb lyl11ImRLQe82kax5UyXzbko8CiDzgNplMracyybnM5qVZ7rD2QNY0vIomWe uDFIbYHZe5c2nmVnHnfYm27pt8d2dK3I5puEpnNpx/bBwPA4v+G2M+3qbnYL omFOxUAl8UVtNAGkP90Css9oYk22cXJkteDnAMlasGo3wjv23mHv2yLXqmPn 63Kp7PLRWse9Wwpa/+S99R1X8/da8vUsc8RaiG/J/+qXEeAVb/6WRahverjU l6V7w9/r1gM6r3dTGbbmvW7uSNk5uwcLZGMshrRAuo+kOTPZiaSOFZU6KuAe RZS2Wn+lL3rdSq4MVMOpLSBuVbZpC7iKBcnhKj12Q2zFcoR0pq09vmtK1bQN eI/qNHbFrDrOuPr6VdaZfa2atT2Zz64uVuvqJkph2fdXqpXT0ld9eZz7DkYe /LuDf7eW7oN/d/DvDv7dwb9btzYVz3J2WKEaMgcbViidjdxpHLuXKmhhS3t1 AssKBG372c1FB7ZQ4qKNaFGxY+0R8U2OgbeJinp9826tfNqO0fRihqCn1tY8 T1AkJoOQBrPY8VR6vcoFNOmCIROnn/vN/mK2uF7L17XMq267JsO8VyG7jqvZ 5dradX3Qaax30hGTxhInPXnSojNisuAhSdPuDs3bvEUbemY2cSqvaY5g/Qxi RySnnuVF1JswvysCcoZ0RfJONvX3onzQXX7VZVc3Lg2lHGdNW54svcox10/c 2ixbIzHlwkvFBUfm4Xo0DHHCSVHY1EqEiz95Mseo+MsdSa0uWHfQDEflpe7U eVQnw/Ksxv/+U30oQVgSDBw/PT75QZ/oaE2Urwzi04JaPkLilA4TScwcicsl 2S0RadN3T7TWnGi4SxyrU2Gm7MPDekoLS7pkqYsBEEkXhMSayat51HwYpT3y Q2bdd9pfi5cFf3T0pBtwmXbmLU2opHvirWyGrii4z81VPDtFY6tHItqiJSL1 7g2u96M6dGrrsl+Ydt075uWebX3HS9OuXpveXaorpmqN5VqSAC+XgILqQSVp qNEZJa1XOMFhoKoTHOpb5Zk8tJCjYeKb4NZ6N2QljnJPZLUiFFVVne7WZY3U c3lYqw66CJlGzYewJlxegFbfVD2rakuayPgpCLw4lekj9Rbxn75nOOahSPcC v4nL4x+TsXq7ODjqfcNIdSJK8xa4FFOVs6vPJulvDcc7GInoLSwIjGB/OVot OoXuxOEXyacXsazW9zd8i1WCL0opkjemiT0OWQrKHBXCMVCVuVEgTg2xiCMg 19ggC+IKAeZHtfqGyE6cT9CJQlyfk6vWMWlwp+sOcuqNEjSnCyEOq6M2imWw AGsewWfNutJJn/wUzfgTH7vUXwKSR5+4mDymXd3pIjVzV0duZFN5RAkcjKf/ D3NP9Zc= "]], Association[ "Headers" -> {{"Date", "Wed, 16 Oct 2019 01:30:29 GMT"}, { "Server", "Apache"}, {"Connection", "close"}, { "Content-Type", "text/html; charset=utf-8"}, { "Content-Language", "en"}}, "StatusCode" -> 404, "Cookies" -> {}], CharacterEncoding -> Automatic], Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{"\<\"https://www.wolfram.com/3\"\>", "\[Rule]", 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["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[CompressedData[" 1:eJztPe2S2zaSub95CkSp2vxYczQzHjvOrcap8djeeGM7cx5nXVd3Vy6QhCR6 SIIByFG0de9xz7Cvce9x73KNL4rkkCIJiRrFVlLJSCLR6G6gG92NRuMbl75z /+Wrr776n//76qvJNz710mVC0DyNwqdfT8QfFOJ4dj4i8Qh5Ieb8fHR2fDYS Dwn2n36N4J9JRFKMvDlmnKTnoyydOk9G+lEapCF5+px6WUTiFL2lKXpJs9if jNWTAoAYR+R8xKhLUw6d0TiFFuejmAaxT35/gGI6pWFIFwD668k3joNcMgti NGXQbkHZDRIYIRIjx4E3VnDnaZo45LcsuD0f/e5k2PFolOA0cENS6CYg58Sf kdFdjG4DskgoSwsvLwI/nZ/75DbwiCO/PEBBHKQBDh3u4ZCcn4zaeVPoI+I4 ScLAA7RoDAjG02BW6G/sMrrghKkHR79HoYERBvENYiQ8H/F0GRI+JwQQnTMy hVbjxWJxtKChYJHnx0dA+HgKMPmY04wB6hzH3EkYHZ8cHY9nIXVxeORx3gk4 AItoPM7ZP4aGq29HJN4M0iwLKjC4x4IkRZx5DaQBdziwC/7Sm4A4+uvRJ4Aw GavWdaB095/wLVa/jxc4HIc4JVx+fE2x3xXIioZPfCzmo6ChKwJ8/Om3jLDl +PTo9OhMfzmKAgsISZiBbAAK9JawQM4iGOMnMMqFX3qBXnEHxzhcpoHHK22V UJLYXyuSXWYCYYwyLqeB+riaCZOx0jsTl/rLdYqAsLzfif4e+Oejj+qzmVN+ cFv82UlzLfcxwTMt22ge+OTjx8fHx7qZbJqF5lUhUg4P/kGch84ZSrDvB/HM SZ0T5xRQCRh3XMwcl6QLAiipX/yAJyFeOoFbgKkZ9HSCNUOE6vrX0lzHYTLH crb/qGT4PMa3I+TjFDswVwUtf/311U+ayA+q0YVpNBnjlt54uTsvpJnft7tL 06i9u3JvsiNGVE+8U5cXYYiuAxBV9CccJX9BV5kLahS9M0COjo5KWEzGWajH fgyD3zAN3Npp4E2L4z8/UU1COqPVMWwhsQNhpn9visxUqc4U2VMQzZo0EDwa 8yS4IUshPkkMCwoOYTEZIbV8jc6ejMRsnM3hx0fHoxU5jmpm0Z+hstShnhZ5 vyePj1cdn54WO9btbSiF9jgud3wJC32WyjUVvQE9w9HPMV2Ecp2vReb7EhMk xOrQlifT/KTwDYZTNZfjqgdQ6A4t89OQ4tQRS3cZZD77oJ1Yjf3MkxaQnoHi 1xTXjn7LPDOw+kw42V0I5suVbjzhCY6L1Hz8eHJ6fJxPy0BrRi2A14QJq4jD ugDtnk6CHHAAC7LDThzvRCvUH0SzyRhUQlVP5Gyp8MDRFlENL+40KQiuUcku 6OSGptXm0FlI1BxxplkYrmlWbaoGWzU9gQWh/P2hpnstOAlytcBI8oFt8q9c wDu0lzA66Fv92aEx6TNPwHYIFELhKYxi82CfmjFWr8j/a43w37/ExPxeNwVs SYpwOifwP7Cnt07SKZBUQ9GbVZdDUGQGSS7/TkxT4oKR6xA/EMptkHF7uGbc pEEhnDmJxp9ilyd/eaFwGYJ60GMz+BwJGQ6xO8SY1lF7teoWvcbuEJRNgxjH 4IiBJk2nlPUyDbqS9riGtJeqX3Sl+x2CNr7kKYmciPokJGwIyr6voexa9vpG dTrIZIRFbxhyHjVLnBio5TD0kBicp+2r/ofr6Xkhex1QVWpndYBhWrOgXctO +1C18kfWvlW1BU67GwAbGxEage4v6447zLyUsIQFHPQfC25xShzpb9oOmiYN cyeEubVucXtSM4QvcmzQlcIGSUe27xztw4GCoeIUuDHgsv7Deso3MGPW0W0c kbtRDBn2FEvRIDbMcasNc2H6tyG3m/DKN79xnMkYOCMCUh25WBJcLbAlZ6wz G+oM1sKgX9MwE/Mt99nUn3tTDtzg0zdYongBptwlZQllUoQBTBamYMKJkZVD sHUp5lki9gfGKfHmMUhO6HDtBFsh/96AKfjS20K9WRDdjIPS5HYol2XqmQZV nFh9CeghWp3h1sqUjEUgPqcLE5CohkMFD3xGE6uYaP06RX73wswnzpTRyHEz Nstlu9biqFPaz6E79BzQ2oG18RC5lIm4KHPiruGLRobXcDgP+W6RxZ1MgYcN a4QJHyPlTVitDRsrRTP3GEkoD1LKlhuxJxdWOXPe5UA3X+BbhvAtyRgO35J0 1acV3goOAkC7xP5lFntCh22IvAFji/o9mBpb2oTq617V2eal9eV+pLGJA2L3 fPMl84rRbTsYZRThPzckkTMjMQHDiPYKYORIXyko6K8GyuDeQWCF58XVq72W rtIGyOD2xk5Mi/W0NhpYdWEBmAx4EP/3tGG5N1tdaEoZemG6H4j6Jg+ut1VY 69a9oW4QEuHW7os3VwiaOuDtb6Is8yjoAKEYKWV3EQTzayYStz66IY5veiMs I0hiNAZWlJEc9i0sREIC1BzaOcbfLnBCF4QR3w5350q11pN/39X/QEqhLjpd 3ZPfB42w5aDJFQ58YUV9Il6KrhXsQfSE2YnNNlJkv24Ft3ylrHA2ivptUOXo XcumSG987oUQWYYszoom1kBu0Haslf4ivmMTxibqfDBPtozhwTw5mCcd3ry3 baaD6XEwPb4806OQQ978WPQ5PpIJpU29roFzJw12SmkKjCodOliX1DpYjnCP fIvHRY/n8XGNAZPnu8/JLYNWeCqIjGk6F0l/8ptsqekWR0fyzGNxBiC3f+qz kJtmUwPjiwNXzT2ujmHh3W9LGdz5mZfSUOaJ3lL70JDOArKVZO8iPKuE7/cF AF982vbDLhnaLSMiTk5mQI69aPVJ9a4u2Ws3Pddk5r3WWFus2JPk6Ttyqzf9 MVuiG3PcwnExB9OnkMiLDHeOJuOkiy7usr3dMiAmb3oDZTfUiKxJKszzrG2M KBiS93MCjCcEUBBHcEl8G4CGlcdxhTmN4yXKLSEkztNMQ7rgOxwWyf/VaZ69 G5s1mfBI7pW8NLjbDdA1iXCcBl7hBKMYGEbAMoVvoS+5sKUBaTFZ5Cutb8i3 unis+zeYZ2sGs5zv2WsML0GcRHZCEAMknjIwADJG5Dhq6N9xJFmCkrKpYnyP HQpc/5Tv3YxNj4TxfgJGp+kCw3AowlEQJSERClCsQymox+rat8OxyOIAuMlB 1H2ShHQp0HLU0Yn9G6C6oyS5X2kIQc9zQqr5U71G7VXMU9CLaMUXhD1GuZaj B/CA36Q0eYBUsOYBLGU+fGbbGr6dqUrj2HMvID1ToXcz7nUHbcy4XyukLW0T 43MsHRKD7S4EUnMB0amUTW91iBfmlhaXnVqNOBWJZ44xWJ0shhEQc1N4J/s3 WGsSqNBbRUuu6EBqC7RsJK4/l239B8hlFPvhUssvWP+akfdh+eeOiMBt/4as LgvHDNnPRdQtjZNM5ML7RpSEi5wzBMmgthj8UrR6Nyr0jxAg2yyusldBslKE 5x4iY0VWtkTH8jMg2wiN5cCs4mKrUwxfelBsnRjlre+ULdhw/7048Y1MrdWn Z/XxLeVASFX3AL2TvtfzvdqVyidpEPsZuJDLMSZg7ibYIw5ZIW+XEGsgaafz OZmSmG9nE7UDIaCwIrnRtikdlxoQKozmzogAeWU01M6Z3V7hpYKhDa1+u1wb oE5C4qVsKyPwIgd1H2MQREITJox6hHNbEl4JIGLHSAPZGfLqQ7CFUXiVg7qP UYhgHcfxVqbTmxzUfRBCE3GMQfzmMMIJZt7ciopfcjii8piEMzAJ/bEsGYXA eBEnqRRHa0XxM8qTrUuiu5s3twd2gVWC4WrhF/XxzKypJgfe/9DvuPyFdXrT Wf0ukC6j8wBdiwAVF0UxtYGVn4G+ENUyebBfCVA1pqaXZpip+rUy/GZn31wY MCYsuDMTxw1oEItSRqJ4hR3yz0ogdoW4RM468mvO8+ZR2B0ZlCAVNCLCELTj 9YsCgF0hrYptiTnOAn7jRDgGO1DsK9id6DXQ0DuAht7k0HZFDs91jl3CXd78 YKrsr6lyVp8aku9oqtXmA3H3aX3xyS0JhW1tNzENbc8VmF3KlHKUKTgkTiIq CfO5dcQlS+dUxtULhYkluN25mylhUxE98leMtPQ2NaT7GJIFcTcmAOTDGvX9 sny3WoqlFLu2Svk/eFH7MJc0E7bm6tTl4bxnJPb3youZErGfTDhJxxH2QLMS JySYxdahKAUEvdZAtqbgokRgoE1867I9b0QZswQz7AcznXc4pNEvV4+YpA6d OnJ/0c7KfKXBiGyO9xLMwOvGPPGsEP0pmM2dK1jmhP8n0k9U8fih1us59m4w WAhW9jFgmzffa/2z3iou7ub1torr8jhXMYf90VJ1sRYuTEwa2VWSujCtdxhZ EVv23qaxoWcSzs7QlnuO8pP1RqNofXCO/zhH9W1snYN3ffCuD9715+Zda45s LaHoYG0crI2DtfEHszY+g+TjDYZurzKP75aY32Hacc7EtpxjVbtjKxnHusSI Tb5xHn8qMr7DxWum8kjjMH9RucrbuWcNGXAWGSczFviVy99OS98FfX3cHo2t xQLR2zF6VJ9DvQqNWpk81kSUiKmIHnwmTEZWt1N7oVAqJz8lZe6v7h/xb8O+ sWbEFOw2JxDZwuKwsLgVekqZYwooEGZnFb0EqOhVAarczLhaQR2UuPsqYNQH R3lqzQM2WeH4d1CwNC9C4zECExNg2bG1u+GUt+jrI/XvpqAuzUKUsr5aTAKq KqbC4qRuFNwL9dIooEQdIcdsWRLT7SicXEQpW6JnlN7sSC7F3fWxj+1CSx+I G8SYmen/nuHAah9tHep7VXesL58ta88Ib1aVf/kclMhO8oPrTLgup9ckNFuL qS6U/JYQH/1EwuTH+wwTaXekfCS61z2qBXmRoNDLi3/bSrACUImyOEiXJeQ2 UaKXBuIwwRTt2QmPCHt2VsKlamtVLHK/BO3hvQha/WW9JAqyqOoG70NQtngd dcICT2x6JAJdwkzl0aNknthdyCLBmHqHg874Qa+32//5/zlEE22jUnsVSzRB iPq4104Di6rrlrCiqLqB4+U2wooalFVY8VK1PQQGtxsYHHaxe1wfh7twabZX S5yZmC72bmaMZrF/NE+j0M44kqDQsxzUVlY1N6SzrZmYzwDYtqxfQWwJMRzH QLUnowuWp/CKEAbDk9xaI/jidmuYNc3Ebdjnv/5BTBP51h74wI+b6tiyG8AA 9P6ve5UskU8VzIhtQP1StUU4NfWzhp3VG6CqUrH5POh5/UQTjvWeuzYIfvQy 9h7Pzj9Rl0s7zaaqArhN7E5tTvQ3APkHlstal/kL2158XO/Dv4LZFICffGud VGVNR4meZmGcCntExZ8ps0tdNPP5ZQ5qqzFnEWyQRaN7GzvVu4Tuno9J5x8E 5K3HyFVdQsJk4UhBgDVzLzUk55msNy9QHiqiv9l5nkpe1QV6Sxbo5yD2xUEZ 23M9HTHfxgEUM4tXBVzlTrLluZS+yFeXQxzB1OHYt7zW+DrNfFFe+CIHY/aD Po8tF/n2F75vy0G9pVmy2WwXU/xaA9rqBPdJBDKT6iJSG/upz0vgzOVUg4qk 9gbTVUFnWOl1Zs44AIf0VtwX7uAFZha3AhTG4JWBhS4ErGEVDcM8cQljS8fy JnKD9Z/ROwMKXQWHLfGcwUQheE+5yTmq+6ayD5sXW4t979XmhYnC38NuhWZg WxK0rF7Ya7NiPFaNNlu2RJy7ZkjO6oek5s2Hehdj9VJ9AjUoOF2hsXkMql57 h60O8MwlExUvnAXDSVIg0puum/vi1DnCMoGsgZ8jFBEwrKEHcNJG8K5HktTx 5phx4bRl6dR5kncWU8edeh22SICRMThMKF0m5HyUkt8BdIwj+PxbRthyhG5x mMG3D3OcInFqcEkzFFJ6I/bfAOkfAZMspWJqhSSFF+l0OirxQcIX49F+l0YR FRguMMkNMmou5disptA6lSZ42jBW65SrVKa2G4KK5vUSps+2V+fXnXne/9BB kBInwhZ3GDfI3iPL3cCCzj+Bf5/U0bKJJlMcLLF5MoYHxXc0jFLbuaTdccXD yVh9qzwTMMUviIArvrqPSz2FH5F6I8JBrlnApqNmJk4SYGQ0Q5x5IMciQkrj sXyBj+H38ZQRfEN8HgUhWR4l8QzkJwTx/c//eKmeXMsn/zVSkcHz0cnZDyMR 1ZvN4a2TH6RmS/K+fqEJfyBvSRGbq0I4vwMZLcgn8nD8XYpccROV2JSTjSdj gb4h1CUzoKV49ZhctnNS9Xc5fdXnfPKshvl75wkSi6ujUJXDbhb7CQxHsblT OGFT2BOW8czCxvBpJbj5qPL9rOq8lrZ8VytBeSrVGUqFoGph4o7yO9XrGnTO qaWFi7YM+yoi+VL9nF8X/UtcH/rpm2vUsds3qybW3Rpq5QXajrln0SF+UMqJ 7sgAdde3ufYQvVBQrJEr3DrphNjtis1V4bLK19i16X51nzjgYMcFwGITwst3 +6qev1X3ZYnb5HnzrJDvNF9W3qlCkyqP6yQhTsVq3JUDuqwuutLtrBFQpfqd iPokLDjDLd2r4vxvVCN75od42b1PEye4kq2sO63c7NexU3O33mbCzz0WJGnP vq9lo81nuFi6XBIX6rd3pP2DaWiNg0hSSRzKZjgO/iEDMeBneiQu3U/Qgs3f aZhFpt7INdhx6LUBscFcANAJC7i4MCG4xWAclu/kbMHpRd4elJBsby7IrEfo 7hr6CKwCs+hjkbJlqbCa2RaQBRhQYV3Y525QpODUVetSdbYJTM6qnTpqz6Rt Ibhj8mzb1pU5EF3y1Fu6vqQMkJezAFqKYnQ1c7PM9IrT19FAq9lXOAzPEMOj +d2duy/BobjMeErFSVE7XUlSxwh5b+7+EgsXA12nlHVcrDigkEE3ZSUDY4zD sbbu34H7Y3ZKuhuGoiUqNt0cH1H1JC5lTXZE4zldxCHFDTshw+Kgp7kwW2KO npGYTIOGxL666dGER8fef+Vim0I26U479jxwhdPaYGVLf/8Ob6EL1b7/etNb lyl11ImRLQe82kax5UyXzbko8CiDzgNplMracyybnM5qVZ7rD2QNY0vIomWe uDFIbYHZe5c2nmVnHnfYm27pt8d2dK3I5puEpnNpx/bBwPA4v+G2M+3qbnYL omFOxUAl8UVtNAGkP90Css9oYk22cXJkteDnAMlasGo3wjv23mHv2yLXqmPn 63Kp7PLRWse9Wwpa/+S99R1X8/da8vUsc8RaiG/J/+qXEeAVb/6WRahverjU l6V7w9/r1gM6r3dTGbbmvW7uSNk5uwcLZGMshrRAuo+kOTPZiaSOFZU6KuAe RZS2Wn+lL3rdSq4MVMOpLSBuVbZpC7iKBcnhKj12Q2zFcoR0pq09vmtK1bQN eI/qNHbFrDrOuPr6VdaZfa2atT2Zz64uVuvqJkph2fdXqpXT0ld9eZz7DkYe /LuDf7eW7oN/d/DvDv7dwb9btzYVz3J2WKEaMgcbViidjdxpHLuXKmhhS3t1 AssKBG372c1FB7ZQ4qKNaFGxY+0R8U2OgbeJinp9826tfNqO0fRihqCn1tY8 T1AkJoOQBrPY8VR6vcoFNOmCIROnn/vN/mK2uF7L17XMq267JsO8VyG7jqvZ 5dradX3Qaax30hGTxhInPXnSojNisuAhSdPuDs3bvEUbemY2cSqvaY5g/Qxi RySnnuVF1JswvysCcoZ0RfJONvX3onzQXX7VZVc3Lg2lHGdNW54svcox10/c 2ixbIzHlwkvFBUfm4Xo0DHHCSVHY1EqEiz95Mseo+MsdSa0uWHfQDEflpe7U eVQnw/Ksxv/+U30oQVgSDBw/PT75QZ/oaE2Urwzi04JaPkLilA4TScwcicsl 2S0RadN3T7TWnGi4SxyrU2Gm7MPDekoLS7pkqYsBEEkXhMSayat51HwYpT3y Q2bdd9pfi5cFf3T0pBtwmXbmLU2opHvirWyGrii4z81VPDtFY6tHItqiJSL1 7g2u96M6dGrrsl+Ydt075uWebX3HS9OuXpveXaorpmqN5VqSAC+XgILqQSVp qNEZJa1XOMFhoKoTHOpb5Zk8tJCjYeKb4NZ6N2QljnJPZLUiFFVVne7WZY3U c3lYqw66CJlGzYewJlxegFbfVD2rakuayPgpCLw4lekj9Rbxn75nOOahSPcC v4nL4x+TsXq7ODjqfcNIdSJK8xa4FFOVs6vPJulvDcc7GInoLSwIjGB/OVot OoXuxOEXyacXsazW9zd8i1WCL0opkjemiT0OWQrKHBXCMVCVuVEgTg2xiCMg 19ggC+IKAeZHtfqGyE6cT9CJQlyfk6vWMWlwp+sOcuqNEjSnCyEOq6M2imWw AGsewWfNutJJn/wUzfgTH7vUXwKSR5+4mDymXd3pIjVzV0duZFN5RAkcjKf/ D3NP9Zc= "]], Association[ "Headers" -> {{"Date", "Wed, 16 Oct 2019 01:30:29 GMT"}, { "Server", "Apache"}, {"Connection", "close"}, { "Content-Type", "text/html; charset=utf-8"}, { "Content-Language", "en"}}, "StatusCode" -> 404, "Cookies" -> {}], CharacterEncoding -> Automatic], Editable->False, SelectWithContents->True, Selectable->False]}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.779818417870984*^9, 3.779819238422289*^9, 3.779819381653829*^9, 3.779819413675293*^9, 3.779819445376631*^9, 3.7798283046945744`*^9, 3.780158809828714*^9, 3.7801782303495903`*^9}, CellLabel->"Out[1]=", CellID->799807182] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031730], Cell["Check hyperlinks in a cloud object:", "Text", CellChangeTimes->{{3.779818155231985*^9, 3.779818173230228*^9}, { 3.7798283800777893`*^9, 3.779828388941928*^9}}, CellID->864119422], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"CloudPublish", "[", RowBox[{"Hyperlink", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.779818175728163*^9, 3.7798182110797777`*^9}, { 3.779818258686392*^9, 3.77981828454347*^9}, {3.779818409265533*^9, 3.77981841606763*^9}, {3.779828250837624*^9, 3.779828300734809*^9}, { 3.7798284242165937`*^9, 3.779828489537134*^9}}, CellLabel->"In[1]:=", CellID->32648985], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.7798284921885653`*^9, {3.780158814726103*^9, 3.780158834109671*^9}, 3.7801782404273663`*^9}, CellLabel->"Out[1]=", CellID->475293627] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031731], Cell["Check hyperlinks in the body of a cloud API function:", "Text", CellChangeTimes->{{3.770746380407489*^9, 3.770746392049159*^9}, { 3.7798195423506737`*^9, 3.779819551486302*^9}, {3.7798197485929823`*^9, 3.779819778954278*^9}, {3.779873563159507*^9, 3.779873563791947*^9}, { 3.779891514588697*^9, 3.77989151841255*^9}}, CellID->223927305], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudPublish", "[", RowBox[{"Delayed", "[", RowBox[{"{", RowBox[{ RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ";", RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7798196258108177`*^9, 3.779819653656701*^9}, 3.7798196986023407`*^9, {3.779891533405732*^9, 3.77989153851541*^9}}, CellLabel->"In[1]:=", CellID->69429909], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/obj/cb3f0cb5-4a34-409c-9246-763965eec893\"\ ", "https://www.wolframcloud.com/obj/cb3f0cb5-4a34-409c-9246-763965eec893"}, "HyperlinkURL"], "]"}], CloudObject[ "https://www.wolframcloud.com/obj/cb3f0cb5-4a34-409c-9246-763965eec893"], SelectWithContents->True]], "Output", CellChangeTimes->{ 3.7798197028433323`*^9, 3.7798915433572817`*^9, {3.7801588273281937`*^9, 3.780158836272642*^9}, 3.7801782448751802`*^9}, CellLabel->"Out[1]=", CellID->933487750] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.779819721560815*^9, 3.7798197262981367`*^9}}, CellLabel->"In[2]:=", CellID->552448696], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.77981972825104*^9, 3.7798915458681803`*^9, 3.780158837719153*^9, 3.780178249726685*^9}, CellLabel->"Out[2]=", CellID->972210173] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031732], Cell["Check hyperlinks in an open notebook object:", "Text", CellChangeTimes->{{3.779818155231985*^9, 3.779818173230228*^9}, { 3.7798283800777893`*^9, 3.779828388941928*^9}, {3.77982852720861*^9, 3.77982852924087*^9}, {3.77987634744691*^9, 3.779876349136376*^9}}, CellID->670014105], Cell[BoxData[ RowBox[{ RowBox[{"nb", "=", RowBox[{"CreateDocument", "[", RowBox[{"{", RowBox[{ RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Hyperlink", "[", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"ExpressionCell", "[", RowBox[{ RowBox[{"Hyperlink", "[", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "]"}], ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7790314575147343`*^9, 3.779031468216383*^9}, 3.779031530980076*^9, 3.779122745669907*^9, {3.779476864976527*^9, 3.779476865949073*^9}, {3.779478407414735*^9, 3.7794784692349854`*^9}, { 3.779828624817505*^9, 3.779828636376996*^9}, {3.779828685349427*^9, 3.77982875803511*^9}, {3.7798288338343687`*^9, 3.779828878862487*^9}, 3.779828998426876*^9, {3.779829560850512*^9, 3.779829561344327*^9}, { 3.779876219324767*^9, 3.7798762541495037`*^9}, {3.779876289498123*^9, 3.779876289957836*^9}, {3.779876325058547*^9, 3.77987632564762*^9}}, CellLabel->"In[1]:=", CellID->817276151], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3Ql8VHW+5/2eeWae17ye55m5fWemb99l7p25fe+dmb6tuC/dane70Hda bVTUVnFpRREUwQX39WqjIGKDKAooi2wiCGHfIXvIvqcqC6RYAgQJJJJokKC/ 5/xPUpVTVefUXqlU/p/36/U1SdU5p86/glX/b+qcqr8f/fjIh//tD37wg0n/ wfjPyAeeu/qppx544dYfGj/cPnHSI2MnjnnotxOfHjN2zFOXj/6/jAs7/s0P fvBvjW/+nfH96dOnxZru7m75+uuvpbOzUzo6OuTkyZNy4sQJaWtr88vx48dD 5ssvvwybY8eORZTW1ta4cvTo0UGbI0eOEEIIIYRonVTPx0Il3nlopPPdSObO 4ebfgfN1NYdXc3k1p1dzezXHV3N9p/m/Wk7ti8fjEZfLJRUVFVJcXCyFhYWy Z88eKSgocEx+fn7I5OXlRZTc3NyokpOTk9BkZ2cTQgghhJAhmETPG6Odt0Y6 Hw43rw41J1dzdjV3V3N4NZdXc3o1t1dzfDXXt/YB9VV1BNUj9u7dK1VVVebX tuNt0nmqU7o6u+Trrq8JIYQQQgghaRI1h1dzeTWnt87x1Zxfzf2/+eYbOXXq lPm6h7pu3759Zk849dUp6WjvkPaT7XLyxEk52UYIIYQQQghJmxhzeDWXV3N6 c25vzPHVXF/N+dXcX3UB9bW6uloOHz4sX3V8JSfaTsixo8ek9UgrIYQQQggh JM2j5vZqjq/m+mrOr+b+6pwD1QkOtxw2+wLzf0IIIYQQQoZm1FxfzfnV3L+p qck8Tki9bnD08FFCCCGEEELIEI+a+1dWVprnDhxpOUIIIYQQQgjRJE2NTeZr BKnuJIQQ4pSMjAxZvnx50qK2n+oxEkIIIQMddWxQqrsIIYQ4ZX/zfnOurt7T IBnUdtX2Uz1OQgghZMBz+IgcPnSYEEIGZZr/5ofS/Of/JikdwEv1gFSPkxBC CCGEENIf1QHoAYQQQkiaJTdfWma9J4cefVgO3jZCDgz/lRn1vbpMXaeWSdX+ HarNkkPZb8nBdb+X/csvE8+ifzCjvleXqevUMqnav93uLHl9z1S5adtdct66 q+RvvjjHjPpeXaauU8uk/PdMSBKT8dO/Nefp9ABCCCEksWk52JL45BfIoWcn yYFf/1y++d11InfcJHLPbSJ/uKM36nvjMnWdWkYtq9ZJyr7Y5FBdjhzc9KB4 FvyVdGX8tci2fxDZ/VOR7HN6o743LlPXqWXUsmqdgdq/THeO3LvrYfnhqn+U /7LzHPm7gsvkJyVXyP8s/5UZ9b26TF2nllHLqnUGav8IGcjsbdo7ID0g1eMc iHj2eeTgINgPQgghgyOHDhxKbBYtlP2/uVp6Rl4vMvpOkYfuFnnQIeo6Yxm1 rFpHrZvw/QnIwYLZ0vzpP8mZjf9DJHeYSP55Innn20ddZyyjllXrqHWTvX/v lXwkf/vFufKX2RfKTyuvln+uvlb+uaovlX3x/mxcp5ZRy6p11LrJ3j9CBjrR nh/wfU+PHBt9h/k1mh6Q6nEmMwf375Vlb4yRyy+9XC6/5D7Jq9kX1foH9tXK /GlT5a3Jr8tnW0oHdN9Lt3wmr09+S6ZOWyB1+w4kdNsNNTVSuqdISouLpbi4 QuobPFGt3+Sq9a1fVlItDU2J3T9CCEmrvPeenPrt1SJ3j/Sf/48eZR9rHzDW UeuqbSRr/w5mvSlfrfqRyK7/5T//z3WItQ8Y66h11TaStX//WjBFfrj1p/L3 RVf0z/+Nef9PK66xja8TGMuqddS6ahsp/3dASAIT7vyAM559fj93zJ0lBy/7 qfk11HLx9oCD+5tl0Yuj5arfXCUPv75MmvcfDLtO7spZxvL/R64a/riUuKOb c8Z1H7ry5SbVAfry1tKcKNffI3f0rfv4+9sG9Pe/9YNJff3lJsl3NSdkmyU7 1sjo31zpuz+sefSF2VJSF7on1Zdmykt/uMl2/VdnfC71Ce4rhBCSrBw0nrsS kkULezuAOu7Hdv5/Z0Bs+oCxrtqG2lbC9qsvBwo+7O0A6rgf6/w/Z1hvss/z j/dyax8w1lXbUNtK9P7NKpljzuP/qeyX/vP/8jCx9AG1rtqG2lai94+QVCXc +QFHb/+ttFx7sZz6YrmcbT0iLb+6QL7raDe/qp/V5S3XXGouF6oHRLtfBzxN 8u6918hll1wmvxr5jtQ37w+7zo65T5vLX3bx7yXPmGsm6j5qqsiUCffdL/fe 9pCsza8Lut7TVCGPXnJp720bWbSj0nL9fsn44DW531h/0uuLpclzIGj9fe4C ubdv/Umztgzo73/nvJd899meuO+z/bL23Sd894NzrpGNBS7bbRRvWhB+/YvG J2BfCSEkTZJXYJ7/a74OENQBjDn/A3fZx9oHvOsZ2zDPJTa2maj9O1CTbZ7/ a74OENgBAuf/dn3A2gWMbahtqW0mav8yXTnm+b/m6wB2HaDMITZdQG1DbUtt M+X/LghJQJoamkL2gC8fHyOe//6f5Ni4e+TAOf9Nvpr3vnm5+qp+Vper69Vy ie4BMy09wG7+HJjEzmn7U5O5xDcHXZpZZbtMfVmBbNm6XXbuKpL9AeOYdusv Q/aZodIDKncs8Zuvj3/9QykoqZT6ulrJ3b5aHhh+hWUu/5zUBNwX+6ozZYRl /dufnCpZ+aVSU1UhG5fN9tv2vzz8UUT/JgjRPXtdFbJy4aeycN6nUlzdaLvM PneVfPzuH2X8I4/0ZYIsz8gUT4j/x6JZx9NQJ0tnz5CnnnjSyEuydkeR/b7W lMmn8z6WBQu+kPp94f/2kw45YNwf8ebg00/JmZuv7z8WKJIO4NQFjG2obalt JmLfzGwYLd9u+Lv+Y4ECO0CWkcyAZDl0AWMbaltqm4nav3t2jJEfZ53feyyQ XQcovVr+ueQav6jLbLuAsQ21LbXNhN1/hKQw4c4POPnmK9I+Y4r5msBX8z+U Q1cOkzN7G82v6md1efuf3jKXC9UDot2v/c2NMuOeX8ulF18qv7xlmjQac8Zw 6+yY+6K5/KUX3S4FtXsTdh/VZX/eu10jn2fXRDmOvb5xXHP3u7bj2OvKl3su vsRc5qn3tgzo7z9x95lHlv/rXb776Y0F24L/rTWWy1PX/cK3zJLd1X7Xb58z yXfd2De/MOcT1uvrS7bJ7/quv/Tia2R7WeOA3leEpFvKsjbJhHHj5NG+bCkI fvxqrCyQSZZlrHnpneWy1+YxK5p1PPvqZebj44OWW7GtyG+b1uVenbVSmiN4 zNciOTly8JeX987nQ3WA+wMSqgsYP6ttqm3Hu3/7q3fL/vl/0XtOcKgOsDsg obqAsS21TbXtePdvZ91u+bPPf9J7TnCVcwf438X+cewCVb3nDqttqm2n/N8H IXHG7vwAdQ7w6apyc55/+LdXSseHM+TQVedJ26tPy/6f/pV4/vL/Nr+qn9Xl 6nq13FcLPpJvqyuCziFOfQ/wSF1FlZSXV0rj3t7t1JQVypa162X1qtWyJmOD 5BdXB21vX4NLqqpqZPeKmb756cwVO8VVVSVVxvbcDZ7+Zd0u87Kqirq++atH 3MZyleUFvrnvL659SooqetetqnL71o2sB3ikYk+OrDX2d7WZtZKZV2b7HB0Y T5Nb8nZs6RvrOtmxM19cffueqB6gfl/T77m6b1u/k1yHbRVvnGPpAZWO62fX 7rNdf/OsJ23XJ4T0x7O3XlZ/ND1o7h3YA9Tce9q4sX3XvyQFZbXSvHevZK75 1LfOovUFca1TV7TdvGzC429LbVOzVOVvMn9+8vl50riv/zF026fv9q4/9i1z uXBjdNW6ZJ3xeKYeT8Mtq5ZRy6p1Bvp3sd94jI4nB2fM6H1vUL/XAsJ0gFBd oO81AbVNte149+9A5uTe9wb1vhYQqgPsGtabUF2g7zUBtU217Xj377X8t8z3 //S9FhBBBwjVBbyvCahtqm3Hu3+EpDpB5wd8/70cveN6afn1hXJqyXw5XVkm LVdfbJ4bbPruOzk8/OfmV0Vdrq5Xy51a/Inx/UXm+oE9INr98uxrkD/d/Wu5 5KJL5Kqb35YG4/ki3Drb57xgLn/JhbdJfk2T7/KagjW9lxtZtCVT3n98pO9n a26dOFOqGpt9621971Hb5bxZsK3ct+wm77IX3ig5NXulqS5Pbgyx7s+vfkNc e3tvSy1790UXm5c/OXNT0LjcZZky8ZarbLfzi2vGyK4St+N9Urb7C8f9+Cgj x3jufcP2Pos2zXtdMvWWK/3uA7vlSrfM993+4l0Vluua5YvpL8ltI2+TR15d 6Pj73j3/JYf1CSHeZC6dJY+MHWtm+fpNMuP5ieb3m/Or/ZarLdzWt9x4yS5r 8Ltux6KZ5nWPTXhH3HubY17Hu/zsFVnmz/saKuXFvmW8j4FVeRt9+5tdVh/R GF9/7XVj+UfkicefkMKCQsfl1HVqGbWsWmegfxfq/aTjycGxD/Z+PoD1tYBI OoBtF7C8JmBsU2073v3bv+a23s8HCHwtwNoBvPP/wAR2AetrAsY21bbj3b8b N99hfhaA32sBEXQAxy7Q95qA2qbadrz7R0iqU++qDzo/4LuvOqTlusulu7jA /PnrbRvF8xf/Xs401ps/H77xV+ZX9bN6bUBdr6jlW669zFw/sAdEu1/Ne+vl 3VG/kosvvFiuvGmq1BvPF+HW2fbR8+byF19wq+RVN/our8z8rPfyCHLdg3Ol se+2tn74ZMhlP91Z7njbTXUFcmuIdS//9etS17TPXLexNldGXXiRefkTMzb6 jakqZ3VE+/1FZlXQ/VGyeWHE4w68z2LJ2mljfdubtjwn6Pp9TVXyys1X+JZZ V1Ab5W3sk3kTb+nb3xtkZ0VTyv//IWQwZueSaTLu4aclu6hG1P838199wvj5 YdmU5/84sXne2+blL0xdLvsCttFUWyRPGtep63cU1ca8TnX+FvPnN+dt7Fum RJ4xfh7/2J/EbTwGen9WyyxYmxfxGF9+8WVjnXFmnpj4hOzJ3xO0jLpMXedd Tq0z0L+LZuP5JJ4cuPV3vZ8LZvdagHW+7/0MMW/suoD1NQFjm2rb8e6fZ9ml vZ8L5u0B3r/t270OYNcDvF3Au563BxjbVNuOd/+Grb3S/FywwB4Q2AF+WnS1 X4K6QEAPUNtU2453/whJeRzODzhzpMV8T6Cjo0aI57//UI7cMtz83ADVD/b/ zx+bX9XP6nJ1vVpOLa/Wszs/INr92tfklul3XSUXXXCRXDFiivl8EW6drR8+ Zy5/0fkjJbeqwXd5xe7lvZd7c/5dkrGtUBoa9kmjq0bWfvKm3/Vf5FX37kND g7jdDVKwbp7vug/XFUiT2y3uOrc0WPbJ7rYbjGXqXRXy8k2/6BvHK1Jh9C61 rruuybduQ02O3HXBheYyj/9pg+/yvY0V8ljf5Sq3GM+bxZV1xuV7pa6yWKZO uNl33WW/flYqjcu96za5i+R+y7pXjHhKsoqqjDE3ibuqVOa+cn/AfeJ/n8WS hvLdcr1lmy9MWyolZdVSW10rRVmb5Km++0Hlt5MW+t1/kUS9l5Bvf8+bIBWW 8RJC+tNQUyV1rt7/P/Y1NcgnrzwuY8eMkQ25lb5l9ja65aNnHzMv/2xbSdA2 1PXv913vXS+WdRrKc+VR42d12aqN22TB2y+a3z8/ZYW5b3P79u35KUukKYrH BPV3/scnqHXHmlHfF+QV+K5X3wder9ZJ9e8m2uy/7pf97xWayB5gLKO2He/+ eRb+pP+9Qu16gFMHCHxNILAHGNtU2453//561c/Mzwj2Oz843h5gbEttU207 1f8+CIk7Dp8f8G19nXls0Ndb1pvH+nzXecq8XJ0LcOD8n5hfzdcOjMvV9eZy xvJqvUHdA86/XnaUNwatm/H2Y75lFu2o8LuuyrJ+4HXhbts6jl/dOc12HE49 oHjTh77bHT5+btC8eW9jrbx91y99y3yypf95ueCLGZYO8IpfR+jNXlnxx0cS 2gNU3CW7fGNxykNvLJbaKOfwqmOMtGxj4ZbgOQghJDhOPcB6+daCGtv15gas F8s6KtlrF5mX9ed5KalplJxVc/p+fknKXU1Rj82pC9h1AGtHGNj7f19cSXYP iHf/kt0D4t2/ZPeAePePkFTH7vMDeg4fMt8T9OidN8rBi/7R915BX+/cIod/ 8wv57tRX5lf1s/c9g9Ryanm1nlo/sAdEu197G13yzp1XyYXnXyi/+N1b4jLm jeHW2TL7WXP5C8+7RXIq632Xl+9a1nu5kYenrLJdt9KyzHMfbPG7zrr+wu2l Ud12JOOor86WO8+/wFxm4rvr+y5vkgVPj+zb5m9le3mD7e1WZ63w7dsj72b0 3Wa9fDT+Wss+l9uua73dwP2ONVnrlsotfbfrlJvHT5H8cnfE22ysLZTx3v00 f4cZKf//hpB0iXo8+PjlifLwQw/J+pzKsJf3p0lWznjFvP7dT7fHvI43teWl kp2ZLTnZe8TV0CS1e7aYy6lsya8xl1HHqda7GqManzr2Z+Jjap8eNqO+D/w5 Pzc/hff/3rhyYGQSjwsyth3v/nmWJvG4IGPb8e7fsIwkHhdkbDve/SMk1amr qQs6T7j1D7eZrxGo84G/3rzOfN9Qz9/8v+L50b+XU0sXmIupr+pndbm6Xr0e oJZX66n1A3tAtPvV1FAn0+64Qi447wL5+Y1vSp3xvBFunc0fPGMuf8GwmyW7 wu27vHzn0t7LjUyYvs523VDLWK9bsK0kqtuOZBzuqiy547zz/W5brTelbz2V 12cvlMWLFgdkuXz8pxeC9ttv3WF3SFaV23afmxrc8u4Dvwrab3X5++NH+LZr m2H3SV51vf99MPdlv2XuGv+qrFq3WTJ37ZQVC2fJzX7r3yzbSuvC/k4b68vk xd9d7lvvqt9Pler6xpT/f0NIukT9/zzvpQky5sEHZX12RdjL7a5fubUo5nXs 0lBbKi8Yy6jlPli2SxrqymXK04+aP6s8//pHUlHXEPEY1d/6J4xXtzvGL+qy vJy8FN//TXHlwMOjk3aesNp2vPvnWX1r0s4TVtuOd/+u3/T7pJ0nrLYd7/4R kuo4nR/wXftJ8+/96rh/9RlhZ/btlS8fuU8OXvgT8/MD1Ff1s3m5cb1aTi2v 1rM7Lija/Wqsr5W3f/8LOX/Y+XLl7VOk1pj7hVtn0/tPm8uff+5NklXu8l1e umNJ7+VGHntnre26oZaxXjd/a3FUt20dx+U3TLYdh6syU34/7Dy/27auF2m8 24/mvrPbb7X+H2+8LPTtnfsvsssyTlfJVrnCcv2iDQVBt9XgrpJ5L97rW+aa cR+KK8S+qeWn3/9L3/IXXzVJimrrU/7/DCHplMZ6l8x98TF5aPRoWZtV7nf5 h32XZ2SWhVxvozHnj3Wd4GXqZcmbk8xlHnvqA+MxwCUfTHqk9+dJL8nzjzxs fv/M5MVSH8Hjvjfqb/6PPaJu+yEz6vvc7NyU3//xxvPu9KS9b6jadrz717zz 9aS9b6jadrz793LOH5P2vqFq26n+90FIvHE6P8DrxOsvyDe5meb3Xz76B+mY O0s8f/v/Scec98yfFXW9Ws5JvD3g/HPvlT3V4ed/Q7kH3PvAI+bftpzy4AP3 yvPvrjDPA/a/zRek0t3geJ+tnj7epge4ZNXsP8mbf5wm77z9jk2mytS3F/lt d9enr/n29eU5mxxvr8FdIo/98mLfbVq7hP/v3yVznrq5v3ec86DkVrlT/v8L IekW5x7QPx+f+vGGoPXqa0rkGeM663qxrBOYnLULzesfGv2EFFS6xVWSKWON n8eOe0uqjMcUd2WBPNl3/Z7K6P6fV13g6aeeNqO+T/V9b95nDY1xZe+uXUn7 HDG17Xj3r6lsW9I+R0xtO97921K5LWmfI6a2He/+EZLq2J0fYPXlYw/IqS+W y7Fx98iBc/7O/EyBw9dfZX5VP6vLO1d/Zi4XqgdEu1/17kp548ZL5Txjfnze uSNkZ3ldyOUb6mvkzd//3Hb5kh2Ley83Mv6dDNv1Qy1jve6TrSW26298f5Lv tjMtt632a2rffl1x+1tSU98QtG5d5W65fdgwv9v2H//tkl3jSvh9F7hcZpj7 OFQ2zHrMdx8t3lEa8vc01fJ7sr/Neln21mjf9tT4d5XGvm+E6JyG+jqZ8+J4 eXD0A5KRVeZ3XcHmJeblDz7wspTWuf2uK965qve60U8b83FXXOt4U124re/6 B2TVzt7H0tKsjL7tTZEad72xv+6+/X1OimvccY8/1WkwHvPjjeepx+XMzdcH vCZg0wXsEtgBjG2obaltJmLfVJrX/UG+3fB3/a8JOHUBa5w6gLENtS21zUTt 313bRsuPs87vf03AoQtYY9sB+l4LUNtS20zU/hGSytRU14TsAeozwVof+L35 2QDff91lvjeo+dlhxlf1s7q89f7bgz47LLAHxLJvy1+7T4adO8zMo9PWhFy2 InuVb9lh59wtWZV1vuuKt38adjuhlrFe9+G6fNv1N8x6qu+2fye7y2p9l9e7 q2XK7Zeb1116/XNS7nIHrVtbsUtuO/fcoNu2jt/pds31q6ql2kit+RyqLnPL py/c7Vv3nRXZ9r/7gvXyc9995r/f0cY3fiPvrXbeV7d6H9UbLvHd5g6b21xr 2ZZaZsuempT/f0JIuqbeXSsfvfCojH7gflmTWep3XV1FvjxuXK6ue+7NBVLd 9/hUWbzbd/mLMz+Pex0VV12pvNZ3/eTZ/Y9zVXu2mpc98uR0qTK2VVeVL5PM 5R6X/Iq6hN0P6ZzGXbt73zfo7pG9c/lIu0BgB1AxtqG2pbaZsH0s3db7vkG7 /lfvXN6uCzjF2gFUjG2obaltJmr/tlRsN9/b5++Les8Xtu0CdgnsAMa6ahtq W2qbqf53QUgi0vxXfx7yuCD13kBWp1YtM5dXX0Mtl4geULBhXv980Mjs1faP W9XFO+SBc871LTfy+cV+18fdA7Yu8l03ZlqG7fqhesDkvh5gznsrgue9Tj3A uk+q2+wuCV533Ucv+JZ5ddEO3+VFWz62rHubbAuYS7tdxfLq7T/3m2/H0wP8 b89+X1V2Lpvav9zPxsmeGpf/9Z9O8dun9QWx7xMhpLcHfODQA1SyMuab16mM GTdBXnrxGd/Pox+YZDsXj34dt6yc+VLv8mMnS4Xl7yFuV6W80bfuky++Ji9N esz8/rHnP7T8bSON405M9s6bK6d+e3X/e4j6dYG+PuCXUcEdwFhXbUNtK1H7 5U1T1kz5atWP+t9D1NoF7PqA93JrBzDWVdtQ20r0/k3PnyU/3PpT+aeyX9p3 AadYOoBaV21DbSvR+0dIqhLu/IAg338vJ159xvwaKbMHxLBv9a5aefe+K435 4DBfbhz3mmzcni0lRSWyJzdLFs961e/6YT/7newsrvPbTvG2T33XP/r2Gtvb CrVMRc4Xltv4hUz+aLls3bxVSircvmU2vPeU7/Z3l9b6jWHOuBt86w+/7VnJ 2LBJtu/c41umttzoAarHBNy2u65CJt/2c8vYhssnyzdI0Z4iyd6+Ud564i6/ cVtv111XLs9ceYHffr/36WrJ3JUpG1cvlTuvvDDofrOuH21c1QUytm8M3n2d vWy9lJRVSIWR4rxdMvP50X63+czsDX7byPlidsA+3S1z5s6RGe/OCMrbU96W ZevyUv7/DyGDPfUulyyebMzT779f1meX2y6TtX65eb01Y8a+KvllNY7bjWad ivzNfcs8LplF1UHXVxZlyqSA7RSU18U03sGW3vdCTUz2vfNObxdQrwt4jxEK 6gM28/+Hel8HUOuqbSRyn6zZu/213i6gXhfwHiPk7QN2yes/Fkito9ZV20jW /r2Y9bo5jzdfF6i+1r8P2MQ7/1fLqnXUumobydo/QlKRcOcHJILafqz7p16D fva3F8u5Pzs3glwuy7YWBm2jaPNC3zKPTF1teztFWxc5LuOqLZOnrzg/6PbU Zwt7l1k349Hey//5RtleUuO3fl7GB0HrXvDzF6W81mVeX1OyU2782Tm2t11T tFMeuuKCsGOftnx30JiqCrf6tut0f/2Ld9s2+x1tKnLWyrUR/Z7OlV+PmeEb f+99XC4vRfx77s0Db6xM+f8/hAyVuCorZU/uHikpLJKCghJxJWkdp7jr6qSy vNJMnflZ7Km/TwZj9s6dI57hv5aekdf3/t3f2gcC81DvOcFqWbWOWjfZ+9eU +SfZt+gf5czG/9F77rC1DwRGXWcso5ZV66h1k71/0/Jmyt+sOkf+MvvC3nOH vX2grxP45v5983+1jFpWraPWTfXvn5BEp7qyelD3ABV3XY1sWDQz5Bzzgedm SEFZne36ZTlrfOu+NHeL7TKlmSvl8hDLVBdnyqtjb/e7zXmb9viu37Hwjb75 9CjJKq8NWN8lm5e+57f/l/yf16Wq77muripX7u+brz81Y33QbasesnDaM7bj vmfsq7Ilu8Txvqsry5Vpj98RtN51tz4hW/Mrwux39HGVF8nsV590/D1deMXN 8smKHUHzBfU7fn/s9VH1ALv7ihBCBlPcxuN8otOwfYd4nnxc9v/q8t73FFWf L6A+a8z7GWLqe+MydZ1aRi2r1knGvtilvniLNK/9g3jm/7j3PUXV5wuozxpT xwypqO+Ny9R1ahm1rFpnoPZvY+kWuWvraPmzlf9gvv+n+iwA9blg6jOCVdT3 6jJ1nVpGLavWGaj9I2Qgs++v/yy644Ji7AGJ2FdXbbXk7dohG9aslXXrN8pa 4+umrTulqKxm4O6zmjqprq41P3+tLob1ayuNdet6txH1+CsrpSh/j5SWlJnH BlVWRr6NqpJS2bOnVMqMr6VlVUm/n+oqyiR7+1bj97RZdm7fLhuNrzl5xTHd Z4QQQoLTsHWb7HtnmngeHi37b7nRPP/XjPG9ukxdp5ZJ2T4WbTSP82lefYs0 L7nEPP9XRX2vLlPXqWVStX/ryzaax/lcv+k2OXdN7/m/Kup7dZm6Ti2T6t8z IclM1OcHpLAHEEIIIekU829GhBAySLP2n/7KnKd3dnYmpQOo7artp3qchBBC CCGEkP5UVVSZ8/Rk5rPPPkv5OAkhhBBCCCH98X6O2M6dOyUzMzPhUdvl9QBC CCE6pra6lhBCBnW2btma1NcD1PZTPUZCCCFkoFNTVUMIIYQQQgghhBBCCCGE EEIIIYQQQggZYlGf1UkIIYQQQgjRK/m5+YQQQgghhBDNsjZjLSGEEEIIIUSz DBbbt283k+r1E/3e5D/4wQ8GdZLxfuyEEEIIIST6HD16VFpbW+X06dPy7bff mjlz5kzU6enp8YvTcoMFPYAeQAghhBCic+gB6bk+AAAAEA96QHquDwAAAMSD HpCe6wMAAADxoAek5/oAAABAPOgBkS0XbRJ1+wAAAEAyRNsD2tvbpaGhQYqL iyUnJ8eM+r6xsVE6OjroAfQAAAAApIFIe4C6vL6+XrKzs23j7QRqmVBdYrBI 9XE99AAAAACkUiQ9QF1WUVHh2AGsPUClsrLSsQsMFqmex9MDAAAAkEqR9IBQ rwPY9QDv6wL0gOStDwAAAMQjXA9Q5wOE6wB2PUBdptalByRnfQAAACAe4XqA Oic41h6g1h2sPWDnzp3mPFyd0xyLeObxZ8+epQcAAAAgpcL1gKKioph7gFp3 sPaA3Nxccx7e1dUV0/rxzOO/+eYbc111HwEAAACpEK4HRNIBnHqAymDtAeq8 ZzUXV2MfaOo21W2rfQAAAABSQdcesH//fnMuXlNTM+C3rW5T3bbaBwAAACAV dO0B3mNz1HkC3d3dA3a76n72npvw9ddfD9jtAgAAAFa69gClqqrKnI+rr0P5 NgEAAIBAOvcA9TrA7t27zXm5x+NJ+u2p21C3pW5zIF+DAAAAAALp3AOUY8eO mXPzHTt2yMGDB5N2O2rb6jbUbanbBAAAAFJJ9x6g1NXV+d4HtLKyMqHH7att eY8FUlG3BQAAAKQaPaDXkSNHJDMz03fusHpPH/V3e3U+8ffffx/xdtSyah21 rtqG95xgtW11GwAAAMBgQA/op+4D73t6JjJqm2rbAAAAwGBBDwim/p6v3ttf fc6XGkO08361jlpXbUNtCwAAABhs6AEAAACAfugBAAAAgH7oAQAAAIB+6AEA AACAfugBAAAAgH7oAQAAAIB+6AEAAACAfugBAAAAgH7oAQAAAIB+6AEAAACA fugBAAAAgH7oAQAAAIB+6AGJsWHDBkIIIYQQQiKfP67fEFEStV4gekBipPrf GyGEEEIIGRyJeP5IDwAAAAAQINL5fKzr0QMAAACAwYceAAAAAAxd8R7f47S9 cOgBAAAAQOrQAwAAAAB40QMAAAAA/dADAAAAAP3QAwAAAAD90AMAAAAA/dAD AAAAAP3QAwAAAAD90AMAAAAA/dADAAAAAP3QAwAAAAD90AMAAAAA/dADAAAA AP3QAwAAAAD90AMAAAAA/dADAAAAAP3QAwAAAAD90AMAAAAA/dADAAAAAP3Q AwAAAAD90AMAAAAA/dADAAAAAP3QAwAAAAD90AOGlp6O/fJl5jJxTRsnRaOH S96NP5acvuTdMVyKnp4kdUtXy7GmI/JdqncWAAAAKUMPGBq+P14t9X+8xTfn jyg33CZ1a/LkdE/i9qPb45aTTfW98RyQBG4aAAAACUQPSH/t29+Obv4f1Ad+ I41lB+Pah+6mnVL79PlB23ZVdSVolAAAAEgkekB6O77s7vg6gCXF8zMj//t9 T7d0e6rl4OfTpOTO/+q4TVdVexJHDwAAgFjRA9JXd9HU0HP7O4ZL6R8nS92c aVI77UkpGX9d2C6Q/cbG0F2gu0lcT18bcbegBwAAAAxO9IA0ddolZTf+yHbu nTtpshxt+tL+PODuk9Jetk6qbY7hUSldUxv6drtKpejGv6AHAAAApDl6QHr6 atMYh3l8RcTb6CxfKnssc/qCmZnhVzpNDwAAABgK6AHp6IQ0jv9Pwa8DvLEm +vfn6XRL7eg/l5xHPpbTkSx/ukoqR18oe8bfKkUB2XNn8OsT9AAAAIDBiR6Q hhyOzYn9vXm6pScBb/DZYXPOMj0AAABgcKIHpKHTpVIS2ANuuE2OdaZ2t9rp AQAAAGmDHpCGHI7R3+eJ6MiepKEHAAAApA96QBo6XRX8eoCR8m3xfRZYvOgB AAAA6YMekI5O2Z4nnHPDxXLg0NmU7RU9AAAAIH3QA9JRjxx979f279V5w2/E U3U8JXtFDwAAAEgf9IA09VWO33v/B6bw7U/l5PHuAd0legAAAED6oAekr/aV o8J+jlfBS9PNzxYekP2hBwAAAKQNekA6OyWH/jgsss/2feBRac6rkTMJ+JwA J/QAAACA9EEPSHfdcnRh8PzbMTdcLFVLtklHR+ILAT0AAAAgfdADhoZu1zop u/O/Rt4HjBSb5xAk7v2F6AEAAADpgx4wlPRIe+EyKRv9n6PqAxVLMiUR9xw9 AAAAIH3QA4am7qZccf3xlsj7wKPT5VSchwrRAwAAANIHPWBo6znulv0LnpC8 SLrA/dOlK47bogcAAACkD3qAJrqPSWvG2yE/c8B8n9GP8mO+CXoAAABA+qAH aKbnhNEH3gjxfkK/kcMxnjtMDwAAAEgf9AA9fX80R8pu/JH9awLzK2LaJj0A AAAgfdADNNa61v68gfs/jun9g+gBAAAA6YMeoLfjc24KmrtnP7KYHgAAADDE 0QP09m35zODXA65/VE52R78tegAAAED6oAfo7ax7gU0PeFpOxvBZAvQAAACA 9EEPSE/fH8qR5m21cW+nc8dEzg8AAADQED0gDXVW+d7rp3RJsXwX84ZOiefp /yf4/IAXN8a0TXoAAABA+qAHpJvD4hr9Q7+5du5L86QjhuP5v7J7LcBI5e6j Me0ZPQAAACB90APSSbccmvzvHD7/62Kp21AkpyM6rv+UfJnxgv12Yjw3QOmw 6QH1dadj2xgAAACSih6QTnrk+ILguXZgHyh9b54crq6Xbzo65buevkm98fXM 8f3SunGWFN34F47rO78W0COdrkL5skylPCCF0uYqE8+0q4M/k+yjDXLSuM5u nY7jMbyIAQAAgISgB6Sfk05/y48z2W9sFOeXAk5J/Z3/ObG3GeP5yAAAAIgf PSA9feteGfLv+tEm9401EvoInlOyd/x/pAcAAAAMEfSANNZzTFqWPhHfXPyG i6V2d0MEN0YPAAAAGEroAUNA9zH5cvscKRt/QeRz8Dtuk5oV26Qr4kP0k9AD HqEHAAAApAo9YGjp6Twm7a5CObhxuTQsmCZ1SzbIkY1zpGbONGn4fLm0FJZL x9GTcXzmAAAAAIYCegAAAACgH3oAAAAAoB96AAAAAKAfegAAAACgH3oAAAAA oB96AAAAAKAfegAAAACgH3oAAAAAoB96AAAAAKAfegAAAACgH3oAAAAAoB96 AAAAAKAfegAAAACgH3oAAAAAMPR45+vhEut2w6EHAAAAAAOPHgAAAAAgUegB AAAAgH7oAQAAAIB+6AEAAACAfugBAAAAgH7oAQAAAIB+6AEAAACAfugBAAAA gH7oAQAAAIB+6AEAAACAfugBAAAAgH7oAQAAAIB+6AEAAACAfugBAAAAgH7o AQAAAIB+6AEAAACAfugBAAAAgH7oAQAAAIB+6AEAAACAfugBAAAAgH7oAQAA AIB+6AEAAACAfugBAAAAgH7oAQAAAIB+6AEAAACAfugBAAAAgH7oAQAAAIB+ 6AEAAACAfugBAAAAgH7oAQAAAIB+6AEAAACAfugBAAAAwOCj5t0qyUIPAAAA AAYXNefO3J1pxjtfD5do0QMAAACAwcXbAyLtAPQAAAAAYGiwdgH11ekYIXoA AAAAMLRE0gXoAQAAAMDQE64L0AMAAACAoSlUF6AHAAAAAEOXUxegBwAAAABD m10XoAcAAAAAQ19gF6AHAAAAAHqw+3yBaNEDAPjrls+f/USGj5ovI4MyV66b sEsO9sR5Cy118sKY+TL8prkycsI2qWz7LjG7HvaGD8qLxm3eauThWfUS5zAA AEipwC7g9PkCTugBSA9n5GhLmxyKMUc7BmieOSR0y5KH5phzdNuMWC4lXfFs /6xse+Ujv23eveBgonY+tG6PjOu7zesezJH2gblVAACSxnp+AD0AQ1LXXrnP aV4aSUZkSEN3qgcRuZ6ur3o7TGtcE+4YnZGiVTtkxpydMrsvnyzcKuNG9feA yrh2y+gZE+ekrAc84esB+dI5MLcKAEBCWI8Bskus2wuHHoCUircH3DQ/zr9h D6QzsvHZvr+X3zVY/mZ9Vj73zt3j7gEiTWtX+f1+3so8mZjdDIceAABIY/QA aKmnS6qKGqUwIKXV++TDMf1/W75ncqF5WeByhUUHpD1tDgbv/3v5dRMGy1y1 O6E9QDnadEhc7v3i8nwd/8YiRQ8AAAxB9ADoqmnVZ74eMGbp4VTvTgL0z7mH cg9ICXoAAGAIogdAV+5l/T3g4ZiPM++WQ037ZfeOKtmwuVw27KiVUveX0hnu NYSebmnv6DLTHXLZM77l2juCT1To6TlrbOqMdKt0HJS3R/X1gId2y8Gubsu6 /hm4lzhi7QFnHfc9unGclU6bZdtbj0hhVqX5O1uTUS67yo+GnttH0QN6uiz7 2HU2wvECADDw6AHQVXw94IyUrd1ivo+k03kFb2V4xP4UY//3vbluQpHjvDJv 1qL+5R4MWM7yHjbRZfEAnvMQWw9wL1uSkHH0v+azWCpVETC60nz13qa254Sv kl0eh/dLiLAHdFTn+21zwsrWyAYMAEAK0AOgq9h7wAlZ8myI98e05ObJNfZd oKPebw7/3Mrg45I6ynf7zXlz2gIWiPkc6MHfA6oXLozgvZzCb8/6O56yNNc3 lw+1zZIOu2GE7wFt5dl+23p4QROfMwAAGNToAdBVbD3gjGx70/897KesrJdD Hd3mnK+n+yspWrsl4D1t7CaWxryxaLvfcl94LLPG7oN+c1bbbfR0SWm+u+98 5mYp3GG53VHrZYu6zOYc6dz8Zjk+YBPU2HpAd9sxKfSNzXJ+d1GNvD4m8u1Z f8fW12o+yKiX5pZTcrz1mGyctcLv+jFLbf4thOkBgR1gotEBAAAY7OgB0FUs PaCjOttvPrna9a3tcl1uy/EhI7aI09atx/30L3fW6Bof+72mENG0vae/O6hj jQbHxx4k+jzhM1FtL7AHqPMmGmzWKZu7tH8Zu88JC9EDWot2B3QAT1wjBABg oNADoKvoe4BlTquO5ckIdey3dS4/X3a1On0u8XGZOWqOZT880mrtGiM2SEOk f7sflO9pk+geEN32rL/j6ybkyBGnBdvqfOd62L7XUsB96+0Jrfnb6QAAgLRF D4Cuou4BfsfqLJY9bcbcXr1fj02UMssx7vPKvnHc7NmWCsfzjZc3RfE53/SA INbfccj3hrX8bm3vu4D7Vr3W0pLl3wFUhwMAIJ3QA6CrqHtAV6zvz2P0gCrn HqC0ZG0OWsfu3OGQ6AFBIv4dh7vvLNdf+0yRlAa8DhD+9SEAAAYfegB0Fcvr AS/G2APeD/F6gHLWUxiwzmLZY396cYj9owcESngPGBX697zcbX++CAAAgxE9 ALqK9/WA1dVfSrPniDQ2hc/RUJ8n1dMqb9jMKdW5vkHnq4ZincsO2c8TTv3r Ada8tskjRcss7zc0IkPqBscJ2gAAhEUPgK7iez1gsWRH+/d6W/7vDXTvK5vl CcvfnG3fw9Jx/6xz2Rz5MhG7F7eh2wNe2+Q9DqhTlljOH7/2mdJB0sEAAAiN HgBdRf9+QWf83i/o2pcr4/6cqJasDZa/JW+QfRJ8jFCoc4z9WD9fWH0e1oB9 Vlgo3ZY5ss1nocWwvcHQA97dftz/+o69fq8VTYj23A4AAFKAHgBdxfL5Aaeb 8v3m6BMX1Du/T3/3cdm9qdbxM7vOtlb7vU/Qoqr+Y8vdqyzve+/0GbdB/P8u PTjOW+2WjGcTuU+p7wHe9wsK5P/5z5wrAAAY/OgB0FVsnycsUjR3kd98b/io NfLZ9kZpbjkpx9tOSqO7QdbMWeeb47+26bjNVoI/N8Cf//w50uN8mlb5f27W 83MqpKrphBxtPSnNTftl66odMm7UctnV4vR5Bonn2Zzht0//urRaGlvapLHa JStmrY7yGKbB0QOcjvspsnwemXmuwKB4TQYAAHv0AOjKOke8O4oeoI4Pypy7 wr8LhIg6fsj/78dn/T9H+K7d9vPggPcnenhOU/hd6z5se85xYMYM5HErEbzP 0heeiD8sLcoesCQxPcByjnjo92I6IR+OsZ4rEOW53gAADCB6AHTVtHaVb772 1vaTUa/f5q6Rqc9+6ji3vfeZbbKr+kTQen6fG2bMZZ0/a9iYfjYVWo4dCvW5 xNaVDsv8V5z3a+RDK+WzwoSc5ByxnjaPzLQcs+R3Pz27Wfa0xtIDVoXtAdbX Ip5bGeKYpHDvtWTpMmHfi6mtzu9cgXCfHQEAQKrQA4D49HR1ySHPEXG5D5lp 9LRLe3eI9wkdsP36Spqb+vdLHbeU6v1qbzkiVdUHpErdT00npD3U+6kCAICk ogcAAAAA+qEHAAAAAPqhBwAAAAD6oQcAAAAA+qEHAAAAAPqhBwAAAAD6oQcA AAAA+qEHAAAAAPqhBwAAAAD6oQcAAAAAQ493vh4usW43HHoAAAAAMPDoAQAA AAAShR4AAAAA6IceAAAAAOiHHgAAAADohx4AAAAA6IceAAAAAOiHHgAAAADo hx4AAAAA6IceAAAAAOiHHgAAAADohx4AAAAA6IceAAAAAOiHHgAAAADohx4A AAAA6IceAAAAAOiHHgAAAADohx4AAAAA6IceAAAAAOiHHgAAAADohx4AAAAA 6IceAAAAAOiHHgAAAADohx4AAAAA6IceAAAAAOiHHgAAAADohx4AAAAA6Ice AAAAAOiHHgAAAADohx4AAAAA6IceAAAAAAw+at6tkiz0AAAAAGBwUXPuzN2Z Zrzz9XCJFj0AAAAAGFy8PSDSDkAPAAAAAIYGaxdQX52OEaIHAAAAAENLJF2A HgAAAAAMPeG6AD0AAAAAGJpCdQF6AAAAADB0OXUBegAAAAAwtNl1AXoAAAx1 nVK6o0A+WZAln23ySHtPqvcHAJAKgV2AHgBgqOly58vwm+bKyFHzgzJ8RIZU doVau1s+f/YTGW6z7q3GNicuPTyI993OWcmb/rG5TW+uecclyagC/ftuZMIu OUjfAIBBx+7zBaJFD0Da6DkuG5bmyuJVe2TFytBZvDRL1heeTPUeI05d7my/ ea9fRiyXkjA9YMnEOY7rP7zg4CDedzudsuQh//Fc92COtCd732PaVwDAQAjs Ak6fL+CEHoC00eWR+5zmVTa5+6NDqd7jJDgjG6d/LuMmLpd7J2yThu5U709y nW4qDDmXDvd6QMYrH6WsB8S373a65fOJgT0g32gHiRfYA6LfVwDAQLGeH0AP wJAVZQ+4ac7+VO9xEpyQmaPmaPd3Wu9hKR3VMcxPe872baDT7/WBZPcA3833 fY1p3wN0NVXIC2P6xjBqjWxpiu7xPuLboQcAQFrhuCAMeT0nZHdGsawxUy4b Vm0xj/P2zldueXabbNhc3nv9ynKpbB2CBzV3e2ScdX42xF8PCBTf/NT/7+kD 1QO80mlunU77CgCgB0BDPQflCUsPGBPmvM+erpPich8yc7RvXtPT0Sa5mwtk 9pydMnvWVvlgaYU0dHxnu357y5He9ZtO9V7Q1SaFO4rkE7WukU8zaqWhzb57 dLcd8912Y6vd33DPyKGmQ33LHJVOy2Y6207KoZY2afYck8byMstrIotldXmL NLoP+bZtt37iGfvq3idb1+7xjf2TpcWSU300/DEqPd3SWO2SNUuzeu/zOVmy Zrtbmh3ut0A69QDrv1en2P9bUs7KUU/fck3tvssOGff9igW9v7MZs3bK+qKj tucZR7Kvvv8fVKr3yyGH/28AAMlHD4B2uj1+PSDcvK564ULfsq9tOizuHZsd jylaVBYwo7X+Hf6m+TJ74Va/1yKseS0jsI90+53faXe80mm/c0rnW4736Zb5 o5zPdbXP/KQdL9RSlG+5H+yPe/+s/ITtuq3l+SGP65o4py5sj9CpB1j/vUZ9 7Jv1GLoRG8TVsl9mjrH/d3TtM/nyZZT72la0O+j3XtIR810DAIgTPQDaibIH uJd9FvlcesQqqbMecxNwW+HybqF1Rht+/uk87+oOeo+Y8FmclB5QtmxFzD3E s2NDROveHOZ9MOkB/nEcQ5T/XiesbI14X9vKA94Hyfh/hQ4AAKlFD4B2EtED jDnOxxlVsjXgXIOgubztvGqxfJBRK1XlLpkZ+P6Ud+22/I01nh4g0umpl8VL c2XFymKZ/Yr1dubLlAWF/u+ZuirXWLZcDib4vIGO8t1B9911EzbL+vxmqapu kDULN/nuvwkrA14Paa0Oum+nrKyT5taTcsgdfN990XTWcT906gHtnrq+37v3 91ssK95fFFcPGDs9W7ZmlcsM9bkKjv9end83tKM6P+j/nz1tHA8EAKlGD4B2 4uwB90yu8Hvvde9nJ3lzt3V7Abd1yzN5AZ+t1Bn0XvXL3d96V46rB1idbbLs o3rNYkBOhT4ubwfMJ4OPfTJ0HJY1K2sDju05Ixv93rtzsexqCZw3dsh8y2se d4d4nyedeoC9w/JiTD1gsax2n7IuIJ8/O8dvf6yv4QTuq/p3dtod3AF2tdIB AGAwoAdAO3H0gOse2h38+Ut+5wAEbC/gtha5gv9m3VG+3W+etKgq8T0gJe/j 0lbnd1z/zZNrIv8M255WecP6GsKD+XK8+4y0d3T50tndLXnvf+y3jNNnY2nf AyL9Nx+w3PuF3wQt4teLA/bHf19Xye6isoBzO1SfG4LvxwUAaYoeAO3E0wMm 2H3+Uqff36VD9YB5VcHzKunY69cjXtt+3LtyWveArmr/Y4Lm+fpNJCt7Qp9X bBP7303f5ugBMfUAu9+Z37FeoXqAXe6y6dEAgJShB0A78fQA289hDTFPjKQH BCzTf5x8eveAs55Sh9c5ItDjfxxLRLkrh9cDnMTcA4L/vYban7A94Cb1Pr0D e/8BAJzRA6CdQdYDTgfMnRY5nB9gN3867Xfcf4Q9QB2bMQDHZwe+HvBuXthP CbCs7P8ayfARW6SwulkKixod4pbc8i8djzuiBwyeHqDSfw4MACCV6AHQTsBc J9zfJxPZA+zODyibu9RvjjTP4fwA9d6YgapXfRFZD4jnGJ1YGXN5v2PDjbm8 4z3dcyZgDn9CPrR8/oE6LyPwveqj2hWH97GJjP/vIdT5yMkQ3773SWEPWK7+ zQd8dt/wERn+768LAEgJegCGvrPS3dUtnWbOSHdbvd/fmq+Z7JJuYx7a6V2m 23+unsgecMsz2VLX0T/j9eT7nyNszpV9V3cGfAbAYlnf9LXvNouWfRGwboi/ FQecs3vtM0UB8+qz0tnRHfl5vBHpCHovpGuN8ft/7vJZ8RQVmfsW+F70ZQv9 +9EtLxfavK9pt1TtKJD1VV8HXuEnsAdNXOrpv7KnW9q7nN9zNOizGNT73rf1 X9vZ0ZXg+81ffPveJ0U9YJFl/cDz4a99uVKoAgCQWvQADHnWz0iNIHd/dMhv 9UT2AG/ufXaNvDDxk6DL+88R7lU0a1HwuhOX238mcchjRjr8/r7u7RVT5mTJ 7OnrZNwo9fN82ZPgz3UKPEegf/zrZeqbq+W+UdbL58tm63uDBrxnkDfPT99l ft7B7Omr+++HEdudX2tQbM47vm7iGnn9zc/Nbdj/XvtVL1sSsB/z5fE318sT E+cn//WVOPfdlIoeYPSlSr+J/lnJC/j3/Nr2k1HeGQCARKIHYMjrju69ZwLn SMnoAXa5eXJF0LbPtlSEXm/UfL85WahjRtqKtofdh6iO4Y9QS37wZ4nZRr2v fMB7Sp5trYv4/gs3F68OeH0hcF4f8pyJwPMVAn937zQk4q5Kzr6b+x/ivW2t Av5fia8H2PTSoG433+ZzIQAAA4UegCGv+2BU7z0T+Lm27lWr+nuA7XtThjif N/DvsLN2yetjAv8uP1/eyvA4HiPRVl1o+3rGvy6tlx45Kxnez3VSf38Nc+x4 S1G+43x25EMr5dO85Px9trvVI5+8+bnDfb5YpiyoliNOd0D3Sdm2cK39ayBG xr65S/Y0nXJY2eqMFK1a6zD2NWHf1767td7md9f7+3t+Tn2Sj3GJb9/V/Pvt UaHPOTd1+x/HvyhsD1gV0APyHa/rX6bQb/+vnVwTxf0AAEgkegCQRLbnCZ+V 9tY2aWw6Is0tJ6UzkoPLe7ql2Vj+aEeXHPK0RbaOI+P229qk2dMux439UPsQ 0THmiWCM43jLMfM2jxpfD7VGc2x9334b90Nj05fGul/Fdj90fdW3DeP+95yQ 413RPG6cNfdfrdvoOWbuw4Ae4x7XvgMA4I8eACRRJJ8fAAAAkAL0ACCJ6AEA AGCQogcASUQPAAAAgxQ9AEiiCN5/BQAAIBXoAQAAAIB+6AEAAACAfugBAAAA gH7oAQAAAMDQ452vh0ui1gtEDwAAAAAGHj0AAAAAwECjBwAAAAD6oQcAAAAA +qEHAAAAAPqhBwAAAAD6oQcAAAAA+klmD8jNzaUHAAAAAINQuB5QVFQUcw8o Li6mBwAAAACDULge0NDQEHMPUOvSAwAAAIDBJ1wPaG9vj7kHqHXpAQAAAMDg E64HqNTX10fdA9Q6gduhBwAAAACDQyQ9QF1WUVERcQ+orKy03Q49AAAAABgc IukB3i4Q6nUB6+sATtugBwAAAACDQ6Q9wHq+gDr/1/s+Qmrur94XqLGxUTo6 OqSnp8cMPQAAAAAYvKLtAU7xzv/pAQAAAMDgRw8AAAAA9EMPAAAAAPRDDwAA AAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0 Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8A AAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA 9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMP AAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAA APRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRD DwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAA AAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0 Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8A AAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA 9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMP AAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAA APRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRD DwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAA AAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0 Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8A AAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA 9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMP AAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAA APRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRD DwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAA AAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0Qw8AAAAA9EMPAAAAAPRDDwAAAAD0 Qw8AAAAA9DPQPcDlchFCCCGDJup5kBBCdExbW9uAJtWP94QQQog16m9hhBCi Y1LVA06cOOGLutz71fq9b5k2y9e2gMsSkLC3H+fycd8+42f8jJ/xM/6Ej9/7 fKReDyeEEB2Tyh4Q6/NI4PNGYAK3F7z8CctX7zKJe54yr2tzXj7e51HGz/gZ P+Nn/PGP3/t85D0mlhBCdIvTY2my4n3cDf04HTrRPm9E/byW4OWjf55i/Iyf 8TN+xp/s8dMDCCG6J9LH3kTF7rigeJ/Hon2eifZ5KNrtJTuMn/EzfsbP+OPf X+/zUSzvjUEIIUMhTo+lyYrtcUGW15Ltjv+M93kn2c9bcT8vMX7Gz/gZP+Mf 8PHTAwghusfpsTtZieS4oHCP8+GWD7u9MMezRv08luz9ZfyMn/Ezfsaf8PHT AwghusfpsT9ZieS4oMDH8XDPS+GS6OeZcO9fEe3tMX7Gz/gZP+Mf+PHTAwgh usfpsTZZsb4e4PS4nujnrURfH+3zUrTrM37Gz/gZP+NP/vjpAYQQ3eP02Jys 2B0XFDZRvi9dtM8T8Sbe51nGz/gZP+Nn/AM/fnoAIUT3JHPOb5dY3jc03ue5 aK8Pd/vRPq8l+vYZP+Nn/Iyf8cc/fnoAIUT3OD32JiuxvB6Q6OedZC8f7/Pa YBsP42f8jJ/xD8Xx0wMIIbrH6bE6WYnk84ST/TwT9nkizteh431eY/yMn/Ez fsaf/PHTAwghusfpsTRZ8Xu/oCQ9z4R73kn082bY59XAJPl5lvEzfsbP+Bl/ +PHTAwghusfpuSFZScRxQUHPY5bnkkQ8r8T7vBfv8y7jZ/yMn/Ez/uSPnx5A CNE9To+tyUoyzhOONvE+zyX79hg/42f8jJ/xJ3/89ABCiO5xeuxNVgbi/IBw iff24n0eS/btMX7Gz/gZ/2DZn8E8fnoAIUT3xPpYGmvsPk843ON+uM+vjDdh bz/O5eO+fcbP+Bk/42f8CR+/9/mop6eHEEK0TCp7QKzPI4HPG4EJ3F7w8ics X73LJO55yrwuxPGp8T6PMn7Gz/gZP+OPf/z0AEKI7nF6LE1W3G531OcHhHuc jzbRPg/Fu3z0z1OMn/EzfsbP+JM9fnoAIUT3RPrYm6hUV1cHHRcU7/NYtM8z 0T4PRbu9ZIfxM37Gz/gZf/z7Sw8ghOgep8fSZCUzMzP4uKCA930zH7/bnB/3 o33eSfbzVtzPS4yf8TN+xs/4B3z8nCdMCNE9To/dycqKFSvCHhcU7nE+3PJh txfmeNaon8eSvb+Mn/EzfsbP+BM+fnoAIUT3OD32JysLFiyQsrIyx8d4u8fx cM9L4ZLo55lw718R7e0xfsbP+Bk/4x/48dMDCCG6x+mxNln5/PPPzdcEQj2u J/p5K9HXR/u8FO36jJ/xM37Gz/iTP356ACFE9zg9NicrW7duNV8TUOcJOD2u ByXK96WL9nki3sT7PMv4GT/jZ/yMf+DHTw8ghOieZM/7rZk5c6ZkZ2fLxo0b ZeHChZKVlWX7OB2YeJ/nor0+3O1H+7yW6Ntn/Iyf8TN+xh//+OkBhBDd4/TY m+ioDjB37lz5/wGq+bq7 "], {{0, 496}, {770, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], AspectRatio->Full, DefaultBaseStyle->"ImageGraphics", ImageSize->{338.98984375, 200.}, ImageSizeRaw->{770, 496}, PlotRange->{{0, 770}, {0, 496}}]], "Input", CellLabel->"In[3]:=", CellID->384422265], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "nb", "]"}]], "Input", CellChangeTimes->{{3.779122762202269*^9, 3.779122764098984*^9}, { 3.7794768789372263`*^9, 3.779476879870902*^9}}, CellLabel->"In[2]:=", CellID->197922289], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"https://www.wolfram.com/1\"\>", ",", "\<\"http://www.wolfram.com\"\>"}], "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.779476880467738*^9, 3.779476995129644*^9, 3.77947739808455*^9, 3.7794774676778603`*^9, 3.779478365401226*^9, 3.779478480672616*^9, 3.779828669984021*^9, 3.779828719995817*^9, {3.779828893177094*^9, 3.779828913909914*^9}, {3.779876237491037*^9, 3.77987626159729*^9}, 3.77987633396408*^9, 3.780158853098708*^9, 3.7801782614671783`*^9}, CellLabel->"Out[2]=", CellID->245028521] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031733], Cell["\<\ Check hyperlinks in a notebook file, using different representations a \ pointer to the file:\ \>", "Text", CellChangeTimes->{{3.7798291412268963`*^9, 3.779829165490018*^9}, { 3.779888718365302*^9, 3.7798887494049*^9}, {3.779891599597949*^9, 3.779891646727957*^9}}, CellID->67255376], Cell[BoxData[ RowBox[{ RowBox[{"file", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.779829471479979*^9, 3.779829502313526*^9}, { 3.779839734173279*^9, 3.779839751345413*^9}, 3.7798401216333323`*^9}, CellLabel->"In[1]:=", CellID->228738408], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "file", "]"}]], "Input", CellChangeTimes->{{3.77982951578615*^9, 3.7798295220471373`*^9}}, CellLabel->"In[2]:=", CellID->181029163], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"http://mathworld.wolfram.com/Cosine.html\"\>", ",", "\<\"http://mathworld.wolfram.com/Sine.html\"\>", ",", "\<\"http://www.wolframalpha.com\"\>", ",", "\<\"http://www.wolfram.com\"\>"}], "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.779829524890354*^9, 3.779838427025159*^9, 3.7798385894215527`*^9, 3.779839337069497*^9, 3.779839755161736*^9, 3.7798398647372227`*^9, 3.779840139394238*^9, 3.779841537531644*^9, 3.7798763680558443`*^9, 3.78015922815346*^9, 3.7801782681554813`*^9}, CellLabel->"Out[2]=", CellID->269270589] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"File", "[", "file", "]"}], "]"}]], "Input", CellChangeTimes->{{3.77982951578615*^9, 3.7798295220471373`*^9}, { 3.779841620998047*^9, 3.779841631428123*^9}}, CellLabel->"In[3]:=", CellID->646699294], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"http://mathworld.wolfram.com/Cosine.html\"\>", ",", "\<\"http://mathworld.wolfram.com/Sine.html\"\>", ",", "\<\"http://www.wolframalpha.com\"\>", ",", "\<\"http://www.wolfram.com\"\>"}], "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.779841632429016*^9, 3.7798426511386642`*^9, 3.7798763730604973`*^9, 3.7801592345660973`*^9, 3.780178271296763*^9}, CellLabel->"Out[3]=", CellID->842165637] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"\"\\"", "<>", "file"}], "]"}]], "Input", CellChangeTimes->{{3.77982951578615*^9, 3.7798295220471373`*^9}, { 3.779841620998047*^9, 3.779841631428123*^9}, {3.779888679115138*^9, 3.779888692268894*^9}}, CellLabel->"In[4]:=", CellID->852353362], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"http://mathworld.wolfram.com/Cosine.html\"\>", ",", "\<\"http://mathworld.wolfram.com/Sine.html\"\>", ",", "\<\"http://www.wolframalpha.com\"\>", ",", "\<\"http://www.wolfram.com\"\>"}], "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.7798886948088303`*^9, 3.7801592371439037`*^9, 3.780178273882382*^9}, CellLabel->"Out[4]=", CellID->652357784] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031734], Cell[TextData[{ "Check hyperlinks in a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Notebook", "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/Notebook", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object:" }], "Text", CellChangeTimes->{{3.77988765756952*^9, 3.779887701951951*^9}, { 3.779888272236435*^9, 3.779888274332657*^9}}, CellID->130432974], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"Notebook", "[", RowBox[{"{", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}], "]"}], ",", "\"\\""}], "]"}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7798878202607813`*^9, 3.779887825412643*^9}, { 3.779888067169456*^9, 3.7798880944653482`*^9}, {3.779888184025375*^9, 3.779888184467946*^9}}, CellLabel->"In[1]:=", CellID->623623061], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"http://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.7798878265165*^9, {3.779888070533828*^9, 3.779888096151799*^9}, 3.7798881862094316`*^9, 3.7801592512599907`*^9, 3.780178276523533*^9}, CellLabel->"Out[1]=", CellID->436170300] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031735], Cell["Check only for the specified properties of the links:", "Text", CellChangeTimes->{{3.7798883308684387`*^9, 3.779888359806573*^9}}, CellID->402031346], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expr", "=", RowBox[{"{", RowBox[{ RowBox[{"Hyperlink", "[", "\"\\"", "]"}], ",", RowBox[{ "Hyperlink", "[", "\"\\"", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.779888380601461*^9, 3.779888411086813*^9}}, CellLabel->"In[1]:=", CellID->707859552], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"\"https://www.wolfram.com\"", "https://www.wolfram.com"}, "HyperlinkURL"], ",", TemplateBox[{ "\"https://www.wolfram.com/broken\"", "https://www.wolfram.com/broken"}, "HyperlinkURL"]}], "}"}]], "Output", CellChangeTimes->{3.7798884127708397`*^9, 3.780159258462556*^9, 3.7801782789076653`*^9}, CellLabel->"Out[1]=", CellID->785616012] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"expr", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.779818175728163*^9, 3.7798182110797777`*^9}, { 3.779818258686392*^9, 3.77981828454347*^9}, {3.779818409265533*^9, 3.77981841606763*^9}, {3.779828250837624*^9, 3.779828300734809*^9}, { 3.779888424120452*^9, 3.779888430007566*^9}}, CellLabel->"In[2]:=", CellID->407691966], Cell[BoxData[ RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}]], "Output", CellChangeTimes->{3.779888431275566*^9, 3.780159266048112*^9, 3.780178281288925*^9}, CellLabel->"Out[2]=", CellID->795282143] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"expr", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.779818175728163*^9, 3.7798182110797777`*^9}, { 3.779818258686392*^9, 3.77981828454347*^9}, {3.779818409265533*^9, 3.77981841606763*^9}, {3.779828250837624*^9, 3.779828300734809*^9}, { 3.779888424120452*^9, 3.779888437134675*^9}}, CellLabel->"In[3]:=", CellID->852927894], Cell[BoxData[ RowBox[{"{", "\<\"https://www.wolfram.com/broken\"\>", "}"}]], "Output", CellChangeTimes->{3.779888439400403*^9, 3.780159267561592*^9, 3.780178282619555*^9}, CellLabel->"Out[3]=", CellID->826048607] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"expr", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.779818175728163*^9, 3.7798182110797777`*^9}, { 3.779818258686392*^9, 3.77981828454347*^9}, {3.779818409265533*^9, 3.77981841606763*^9}, {3.779828250837624*^9, 3.779828300734809*^9}, { 3.779888424120452*^9, 3.779888460160286*^9}}, CellLabel->"In[4]:=", CellID->339593431], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "\<\"https://www.wolfram.com\"\>", "}"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"https://www.wolfram.com/broken\"\>", "\[Rule]", 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["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[1, 0.5, 0], DiskBox[{0, 0}], InsetBox[ FormBox[ StyleBox["\"404\"", 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["\"Not Found\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Content type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"text/html;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[CompressedData[" 1:eJztPe2S2zaSub95CkSp2vxYczQzHjvOrcap8djeeGM7cx5nXVd3Vy6QhCR6 SIIByFG0de9xz7Cvce9x73KNL4rkkCIJiRrFVlLJSCLR6G6gG92NRuMbl75z /+Wrr776n//76qvJNz710mVC0DyNwqdfT8QfFOJ4dj4i8Qh5Ieb8fHR2fDYS Dwn2n36N4J9JRFKMvDlmnKTnoyydOk9G+lEapCF5+px6WUTiFL2lKXpJs9if jNWTAoAYR+R8xKhLUw6d0TiFFuejmAaxT35/gGI6pWFIFwD668k3joNcMgti NGXQbkHZDRIYIRIjx4E3VnDnaZo45LcsuD0f/e5k2PFolOA0cENS6CYg58Sf kdFdjG4DskgoSwsvLwI/nZ/75DbwiCO/PEBBHKQBDh3u4ZCcn4zaeVPoI+I4 ScLAA7RoDAjG02BW6G/sMrrghKkHR79HoYERBvENYiQ8H/F0GRI+JwQQnTMy hVbjxWJxtKChYJHnx0dA+HgKMPmY04wB6hzH3EkYHZ8cHY9nIXVxeORx3gk4 AItoPM7ZP4aGq29HJN4M0iwLKjC4x4IkRZx5DaQBdziwC/7Sm4A4+uvRJ4Aw GavWdaB095/wLVa/jxc4HIc4JVx+fE2x3xXIioZPfCzmo6ChKwJ8/Om3jLDl +PTo9OhMfzmKAgsISZiBbAAK9JawQM4iGOMnMMqFX3qBXnEHxzhcpoHHK22V UJLYXyuSXWYCYYwyLqeB+riaCZOx0jsTl/rLdYqAsLzfif4e+Oejj+qzmVN+ cFv82UlzLfcxwTMt22ge+OTjx8fHx7qZbJqF5lUhUg4P/kGch84ZSrDvB/HM SZ0T5xRQCRh3XMwcl6QLAiipX/yAJyFeOoFbgKkZ9HSCNUOE6vrX0lzHYTLH crb/qGT4PMa3I+TjFDswVwUtf/311U+ayA+q0YVpNBnjlt54uTsvpJnft7tL 06i9u3JvsiNGVE+8U5cXYYiuAxBV9CccJX9BV5kLahS9M0COjo5KWEzGWajH fgyD3zAN3Npp4E2L4z8/UU1COqPVMWwhsQNhpn9visxUqc4U2VMQzZo0EDwa 8yS4IUshPkkMCwoOYTEZIbV8jc6ejMRsnM3hx0fHoxU5jmpm0Z+hstShnhZ5 vyePj1cdn54WO9btbSiF9jgud3wJC32WyjUVvQE9w9HPMV2Ecp2vReb7EhMk xOrQlifT/KTwDYZTNZfjqgdQ6A4t89OQ4tQRS3cZZD77oJ1Yjf3MkxaQnoHi 1xTXjn7LPDOw+kw42V0I5suVbjzhCY6L1Hz8eHJ6fJxPy0BrRi2A14QJq4jD ugDtnk6CHHAAC7LDThzvRCvUH0SzyRhUQlVP5Gyp8MDRFlENL+40KQiuUcku 6OSGptXm0FlI1BxxplkYrmlWbaoGWzU9gQWh/P2hpnstOAlytcBI8oFt8q9c wDu0lzA66Fv92aEx6TNPwHYIFELhKYxi82CfmjFWr8j/a43w37/ExPxeNwVs SYpwOifwP7Cnt07SKZBUQ9GbVZdDUGQGSS7/TkxT4oKR6xA/EMptkHF7uGbc pEEhnDmJxp9ilyd/eaFwGYJ60GMz+BwJGQ6xO8SY1lF7teoWvcbuEJRNgxjH 4IiBJk2nlPUyDbqS9riGtJeqX3Sl+x2CNr7kKYmciPokJGwIyr6voexa9vpG dTrIZIRFbxhyHjVLnBio5TD0kBicp+2r/ofr6Xkhex1QVWpndYBhWrOgXctO +1C18kfWvlW1BU67GwAbGxEage4v6447zLyUsIQFHPQfC25xShzpb9oOmiYN cyeEubVucXtSM4QvcmzQlcIGSUe27xztw4GCoeIUuDHgsv7Deso3MGPW0W0c kbtRDBn2FEvRIDbMcasNc2H6tyG3m/DKN79xnMkYOCMCUh25WBJcLbAlZ6wz G+oM1sKgX9MwE/Mt99nUn3tTDtzg0zdYongBptwlZQllUoQBTBamYMKJkZVD sHUp5lki9gfGKfHmMUhO6HDtBFsh/96AKfjS20K9WRDdjIPS5HYol2XqmQZV nFh9CeghWp3h1sqUjEUgPqcLE5CohkMFD3xGE6uYaP06RX73wswnzpTRyHEz Nstlu9biqFPaz6E79BzQ2oG18RC5lIm4KHPiruGLRobXcDgP+W6RxZ1MgYcN a4QJHyPlTVitDRsrRTP3GEkoD1LKlhuxJxdWOXPe5UA3X+BbhvAtyRgO35J0 1acV3goOAkC7xP5lFntCh22IvAFji/o9mBpb2oTq617V2eal9eV+pLGJA2L3 fPMl84rRbTsYZRThPzckkTMjMQHDiPYKYORIXyko6K8GyuDeQWCF58XVq72W rtIGyOD2xk5Mi/W0NhpYdWEBmAx4EP/3tGG5N1tdaEoZemG6H4j6Jg+ut1VY 69a9oW4QEuHW7os3VwiaOuDtb6Is8yjoAKEYKWV3EQTzayYStz66IY5veiMs I0hiNAZWlJEc9i0sREIC1BzaOcbfLnBCF4QR3w5350q11pN/39X/QEqhLjpd 3ZPfB42w5aDJFQ58YUV9Il6KrhXsQfSE2YnNNlJkv24Ft3ylrHA2ivptUOXo XcumSG987oUQWYYszoom1kBu0Haslf4ivmMTxibqfDBPtozhwTw5mCcd3ry3 baaD6XEwPb4806OQQ978WPQ5PpIJpU29roFzJw12SmkKjCodOliX1DpYjnCP fIvHRY/n8XGNAZPnu8/JLYNWeCqIjGk6F0l/8ptsqekWR0fyzGNxBiC3f+qz kJtmUwPjiwNXzT2ujmHh3W9LGdz5mZfSUOaJ3lL70JDOArKVZO8iPKuE7/cF AF982vbDLhnaLSMiTk5mQI69aPVJ9a4u2Ws3Pddk5r3WWFus2JPk6Ttyqzf9 MVuiG3PcwnExB9OnkMiLDHeOJuOkiy7usr3dMiAmb3oDZTfUiKxJKszzrG2M KBiS93MCjCcEUBBHcEl8G4CGlcdxhTmN4yXKLSEkztNMQ7rgOxwWyf/VaZ69 G5s1mfBI7pW8NLjbDdA1iXCcBl7hBKMYGEbAMoVvoS+5sKUBaTFZ5Cutb8i3 unis+zeYZ2sGs5zv2WsML0GcRHZCEAMknjIwADJG5Dhq6N9xJFmCkrKpYnyP HQpc/5Tv3YxNj4TxfgJGp+kCw3AowlEQJSERClCsQymox+rat8OxyOIAuMlB 1H2ShHQp0HLU0Yn9G6C6oyS5X2kIQc9zQqr5U71G7VXMU9CLaMUXhD1GuZaj B/CA36Q0eYBUsOYBLGU+fGbbGr6dqUrj2HMvID1ToXcz7nUHbcy4XyukLW0T 43MsHRKD7S4EUnMB0amUTW91iBfmlhaXnVqNOBWJZ44xWJ0shhEQc1N4J/s3 WGsSqNBbRUuu6EBqC7RsJK4/l239B8hlFPvhUssvWP+akfdh+eeOiMBt/4as LgvHDNnPRdQtjZNM5ML7RpSEi5wzBMmgthj8UrR6Nyr0jxAg2yyusldBslKE 5x4iY0VWtkTH8jMg2wiN5cCs4mKrUwxfelBsnRjlre+ULdhw/7048Y1MrdWn Z/XxLeVASFX3AL2TvtfzvdqVyidpEPsZuJDLMSZg7ibYIw5ZIW+XEGsgaafz OZmSmG9nE7UDIaCwIrnRtikdlxoQKozmzogAeWU01M6Z3V7hpYKhDa1+u1wb oE5C4qVsKyPwIgd1H2MQREITJox6hHNbEl4JIGLHSAPZGfLqQ7CFUXiVg7qP UYhgHcfxVqbTmxzUfRBCE3GMQfzmMMIJZt7ciopfcjii8piEMzAJ/bEsGYXA eBEnqRRHa0XxM8qTrUuiu5s3twd2gVWC4WrhF/XxzKypJgfe/9DvuPyFdXrT Wf0ukC6j8wBdiwAVF0UxtYGVn4G+ENUyebBfCVA1pqaXZpip+rUy/GZn31wY MCYsuDMTxw1oEItSRqJ4hR3yz0ogdoW4RM468mvO8+ZR2B0ZlCAVNCLCELTj 9YsCgF0hrYptiTnOAn7jRDgGO1DsK9id6DXQ0DuAht7k0HZFDs91jl3CXd78 YKrsr6lyVp8aku9oqtXmA3H3aX3xyS0JhW1tNzENbc8VmF3KlHKUKTgkTiIq CfO5dcQlS+dUxtULhYkluN25mylhUxE98leMtPQ2NaT7GJIFcTcmAOTDGvX9 sny3WoqlFLu2Svk/eFH7MJc0E7bm6tTl4bxnJPb3youZErGfTDhJxxH2QLMS JySYxdahKAUEvdZAtqbgokRgoE1867I9b0QZswQz7AcznXc4pNEvV4+YpA6d OnJ/0c7KfKXBiGyO9xLMwOvGPPGsEP0pmM2dK1jmhP8n0k9U8fih1us59m4w WAhW9jFgmzffa/2z3iou7ub1torr8jhXMYf90VJ1sRYuTEwa2VWSujCtdxhZ EVv23qaxoWcSzs7QlnuO8pP1RqNofXCO/zhH9W1snYN3ffCuD9715+Zda45s LaHoYG0crI2DtfEHszY+g+TjDYZurzKP75aY32Hacc7EtpxjVbtjKxnHusSI Tb5xHn8qMr7DxWum8kjjMH9RucrbuWcNGXAWGSczFviVy99OS98FfX3cHo2t xQLR2zF6VJ9DvQqNWpk81kSUiKmIHnwmTEZWt1N7oVAqJz8lZe6v7h/xb8O+ sWbEFOw2JxDZwuKwsLgVekqZYwooEGZnFb0EqOhVAarczLhaQR2UuPsqYNQH R3lqzQM2WeH4d1CwNC9C4zECExNg2bG1u+GUt+jrI/XvpqAuzUKUsr5aTAKq KqbC4qRuFNwL9dIooEQdIcdsWRLT7SicXEQpW6JnlN7sSC7F3fWxj+1CSx+I G8SYmen/nuHAah9tHep7VXesL58ta88Ib1aVf/kclMhO8oPrTLgup9ckNFuL qS6U/JYQH/1EwuTH+wwTaXekfCS61z2qBXmRoNDLi3/bSrACUImyOEiXJeQ2 UaKXBuIwwRTt2QmPCHt2VsKlamtVLHK/BO3hvQha/WW9JAqyqOoG70NQtngd dcICT2x6JAJdwkzl0aNknthdyCLBmHqHg874Qa+32//5/zlEE22jUnsVSzRB iPq4104Di6rrlrCiqLqB4+U2wooalFVY8VK1PQQGtxsYHHaxe1wfh7twabZX S5yZmC72bmaMZrF/NE+j0M44kqDQsxzUVlY1N6SzrZmYzwDYtqxfQWwJMRzH QLUnowuWp/CKEAbDk9xaI/jidmuYNc3Ebdjnv/5BTBP51h74wI+b6tiyG8AA 9P6ve5UskU8VzIhtQP1StUU4NfWzhp3VG6CqUrH5POh5/UQTjvWeuzYIfvQy 9h7Pzj9Rl0s7zaaqArhN7E5tTvQ3APkHlstal/kL2158XO/Dv4LZFICffGud VGVNR4meZmGcCntExZ8ps0tdNPP5ZQ5qqzFnEWyQRaN7GzvVu4Tuno9J5x8E 5K3HyFVdQsJk4UhBgDVzLzUk55msNy9QHiqiv9l5nkpe1QV6Sxbo5yD2xUEZ 23M9HTHfxgEUM4tXBVzlTrLluZS+yFeXQxzB1OHYt7zW+DrNfFFe+CIHY/aD Po8tF/n2F75vy0G9pVmy2WwXU/xaA9rqBPdJBDKT6iJSG/upz0vgzOVUg4qk 9gbTVUFnWOl1Zs44AIf0VtwX7uAFZha3AhTG4JWBhS4ErGEVDcM8cQljS8fy JnKD9Z/ROwMKXQWHLfGcwUQheE+5yTmq+6ayD5sXW4t979XmhYnC38NuhWZg WxK0rF7Ya7NiPFaNNlu2RJy7ZkjO6oek5s2Hehdj9VJ9AjUoOF2hsXkMql57 h60O8MwlExUvnAXDSVIg0puum/vi1DnCMoGsgZ8jFBEwrKEHcNJG8K5HktTx 5phx4bRl6dR5kncWU8edeh22SICRMThMKF0m5HyUkt8BdIwj+PxbRthyhG5x mMG3D3OcInFqcEkzFFJ6I/bfAOkfAZMspWJqhSSFF+l0OirxQcIX49F+l0YR FRguMMkNMmou5disptA6lSZ42jBW65SrVKa2G4KK5vUSps+2V+fXnXne/9BB kBInwhZ3GDfI3iPL3cCCzj+Bf5/U0bKJJlMcLLF5MoYHxXc0jFLbuaTdccXD yVh9qzwTMMUviIArvrqPSz2FH5F6I8JBrlnApqNmJk4SYGQ0Q5x5IMciQkrj sXyBj+H38ZQRfEN8HgUhWR4l8QzkJwTx/c//eKmeXMsn/zVSkcHz0cnZDyMR 1ZvN4a2TH6RmS/K+fqEJfyBvSRGbq0I4vwMZLcgn8nD8XYpccROV2JSTjSdj gb4h1CUzoKV49ZhctnNS9Xc5fdXnfPKshvl75wkSi6ujUJXDbhb7CQxHsblT OGFT2BOW8czCxvBpJbj5qPL9rOq8lrZ8VytBeSrVGUqFoGph4o7yO9XrGnTO qaWFi7YM+yoi+VL9nF8X/UtcH/rpm2vUsds3qybW3Rpq5QXajrln0SF+UMqJ 7sgAdde3ufYQvVBQrJEr3DrphNjtis1V4bLK19i16X51nzjgYMcFwGITwst3 +6qev1X3ZYnb5HnzrJDvNF9W3qlCkyqP6yQhTsVq3JUDuqwuutLtrBFQpfqd iPokLDjDLd2r4vxvVCN75od42b1PEye4kq2sO63c7NexU3O33mbCzz0WJGnP vq9lo81nuFi6XBIX6rd3pP2DaWiNg0hSSRzKZjgO/iEDMeBneiQu3U/Qgs3f aZhFpt7INdhx6LUBscFcANAJC7i4MCG4xWAclu/kbMHpRd4elJBsby7IrEfo 7hr6CKwCs+hjkbJlqbCa2RaQBRhQYV3Y525QpODUVetSdbYJTM6qnTpqz6Rt Ibhj8mzb1pU5EF3y1Fu6vqQMkJezAFqKYnQ1c7PM9IrT19FAq9lXOAzPEMOj +d2duy/BobjMeErFSVE7XUlSxwh5b+7+EgsXA12nlHVcrDigkEE3ZSUDY4zD sbbu34H7Y3ZKuhuGoiUqNt0cH1H1JC5lTXZE4zldxCHFDTshw+Kgp7kwW2KO npGYTIOGxL666dGER8fef+Vim0I26U479jxwhdPaYGVLf/8Ob6EL1b7/etNb lyl11ImRLQe82kax5UyXzbko8CiDzgNplMracyybnM5qVZ7rD2QNY0vIomWe uDFIbYHZe5c2nmVnHnfYm27pt8d2dK3I5puEpnNpx/bBwPA4v+G2M+3qbnYL omFOxUAl8UVtNAGkP90Css9oYk22cXJkteDnAMlasGo3wjv23mHv2yLXqmPn 63Kp7PLRWse9Wwpa/+S99R1X8/da8vUsc8RaiG/J/+qXEeAVb/6WRahverjU l6V7w9/r1gM6r3dTGbbmvW7uSNk5uwcLZGMshrRAuo+kOTPZiaSOFZU6KuAe RZS2Wn+lL3rdSq4MVMOpLSBuVbZpC7iKBcnhKj12Q2zFcoR0pq09vmtK1bQN eI/qNHbFrDrOuPr6VdaZfa2atT2Zz64uVuvqJkph2fdXqpXT0ld9eZz7DkYe /LuDf7eW7oN/d/DvDv7dwb9btzYVz3J2WKEaMgcbViidjdxpHLuXKmhhS3t1 AssKBG372c1FB7ZQ4qKNaFGxY+0R8U2OgbeJinp9826tfNqO0fRihqCn1tY8 T1AkJoOQBrPY8VR6vcoFNOmCIROnn/vN/mK2uF7L17XMq267JsO8VyG7jqvZ 5dradX3Qaax30hGTxhInPXnSojNisuAhSdPuDs3bvEUbemY2cSqvaY5g/Qxi RySnnuVF1JswvysCcoZ0RfJONvX3onzQXX7VZVc3Lg2lHGdNW54svcox10/c 2ixbIzHlwkvFBUfm4Xo0DHHCSVHY1EqEiz95Mseo+MsdSa0uWHfQDEflpe7U eVQnw/Ksxv/+U30oQVgSDBw/PT75QZ/oaE2Urwzi04JaPkLilA4TScwcicsl 2S0RadN3T7TWnGi4SxyrU2Gm7MPDekoLS7pkqYsBEEkXhMSayat51HwYpT3y Q2bdd9pfi5cFf3T0pBtwmXbmLU2opHvirWyGrii4z81VPDtFY6tHItqiJSL1 7g2u96M6dGrrsl+Ydt075uWebX3HS9OuXpveXaorpmqN5VqSAC+XgILqQSVp qNEZJa1XOMFhoKoTHOpb5Zk8tJCjYeKb4NZ6N2QljnJPZLUiFFVVne7WZY3U c3lYqw66CJlGzYewJlxegFbfVD2rakuayPgpCLw4lekj9Rbxn75nOOahSPcC v4nL4x+TsXq7ODjqfcNIdSJK8xa4FFOVs6vPJulvDcc7GInoLSwIjGB/OVot OoXuxOEXyacXsazW9zd8i1WCL0opkjemiT0OWQrKHBXCMVCVuVEgTg2xiCMg 19ggC+IKAeZHtfqGyE6cT9CJQlyfk6vWMWlwp+sOcuqNEjSnCyEOq6M2imWw AGsewWfNutJJn/wUzfgTH7vUXwKSR5+4mDymXd3pIjVzV0duZFN5RAkcjKf/ D3NP9Zc= "]], Association[ "Headers" -> {{"Date", "Wed, 16 Oct 2019 01:31:24 GMT"}, { "Server", "Apache"}, {"Connection", "close"}, { "Content-Type", "text/html; charset=utf-8"}, { "Content-Language", "en"}}, "StatusCode" -> 404, "Cookies" -> {}], CharacterEncoding -> Automatic], Editable->False, SelectWithContents->True, Selectable->False]}], "\[RightAssociation]"}]}], "}"}]], "Output", CellChangeTimes->{3.779888461303546*^9, 3.780159269717464*^9, 3.780178284384005*^9}, CellLabel->"Out[4]=", CellID->348318366] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell["\<\ Some front end objects are not currently recognized as special objects:\ \>", "Text", CellChangeTimes->{{3.779890677268117*^9, 3.779890754998513*^9}, { 3.779890809631885*^9, 3.779890810375415*^9}, {3.779891041355421*^9, 3.779891042139339*^9}}, CellID->905471614], Cell[BoxData[ RowBox[{ RowBox[{"cell", "=", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.779890773457596*^9, 3.779890778637288*^9}, { 3.7798910794569197`*^9, 3.77989108104989*^9}, 3.7798911296289387`*^9}, CellLabel->"In[5]:=", CellID->336301188], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", "cell", "]"}]], "Input", CellChangeTimes->{{3.779890781817533*^9, 3.7798907871670732`*^9}, 3.77989110073995*^9, {3.779891137490768*^9, 3.779891138234132*^9}}, CellLabel->"In[6]:=", CellID->340375998], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.7798907878752747`*^9, 3.779891105312522*^9, 3.7798911391140947`*^9, 3.7801782944761753`*^9}, CellLabel->"Out[6]=", CellID->427651182] }, Open ]], Cell[TextData[{ "Apply the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Notebook", "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/Notebook", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " wrapper to check links: " }], "Text", CellChangeTimes->{{3.779880902614251*^9, 3.7798809667838793`*^9}, { 3.779881009729156*^9, 3.77988105871509*^9}, {3.7798905996988707`*^9, 3.779890653852152*^9}, {3.779890834261997*^9, 3.7798908879367123`*^9}, 3.779890936086225*^9}, CellID->858866339], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CheckHyperlinks", "[", RowBox[{"Notebook", "[", RowBox[{"{", "cell", "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.779890781817533*^9, 3.7798907871670732`*^9}, { 3.779890894832778*^9, 3.779890902936323*^9}, {3.779890986316427*^9, 3.7798909883128223`*^9}}, CellLabel->"In[7]:=", CellID->999457628], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Valid\"\>", "\[Rule]", RowBox[{"{", "\<\"http://www.wolfram.com\"\>", "}"}]}], ",", RowBox[{"\<\"Broken\"\>", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"\<\"BrokenData\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.779890903837879*^9, 3.779890989697075*^9, 3.779891142352788*^9, 3.7801783011727457`*^9}, CellLabel->"Out[7]=", CellID->244013875] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell["Wolfram Staff", "Text", CellID->95771488] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell["links", "Item", CellID->663811624], Cell["hyperlinks", "Item", CellID->509118405], Cell["link checking", "Item", CellID->57123495], Cell["link validation", "Item", CellID->418389322] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Cloud & Deployment", {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "External Interfaces & Connections", { False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Programming Utilities", {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell", CellID->978017031] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell["Import", "Item", CellID->300517464], Cell["NotebookImport", "Item", CellID->759339940], Cell["CloudImport", "Item", CellID->201519537] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], 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[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Tests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.3961, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"file", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], "]"}]}], ";"}], " ", ",", " ", "Null", ",", " ", RowBox[{"{", "}"}]}], "]"}]], "Input", CellID->733153360], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"url", " ", "=", " ", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", "file"}], "]"}]}], ",", " ", "\"\\"", ",", " ", RowBox[{"{", "}"}]}], "]"}]], "Input", CellID->204715838], Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"CheckHyperlinks", "[", "file", "]"}], " ", "===", " ", RowBox[{"CheckHyperlinks", "[", RowBox[{"File", "[", "file", "]"}], "]"}], " ", "===", " ", RowBox[{"CheckHyperlinks", "[", "url", "]"}], " ", "===", " ", RowBox[{"CheckHyperlinks", "[", RowBox[{"URL", "[", "url", "]"}], "]"}], " ", "===", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Association", "[", "]"}]}]}], "]"}]}], ",", " ", "True", ",", " ", RowBox[{"{", "}"}]}], "]"}]], "Input", CellID->54039376] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell["\<\ CheckHyperlinks could have an AuthenticationRules option to handle \ authentication in sub-URLs. (Currently, it simply treats 401 authentication \ failure codes as \[OpenCurlyDoubleQuote]valid\[CloseCurlyDoubleQuote].)\ \>", "Text", CellChangeTimes->{{3.7749677194319763`*^9, 3.7749677590661793`*^9}, { 3.779830342922876*^9, 3.779830395038968*^9}}, CellID->644541148], Cell["\<\ Hyperlinks with Wolfram Language\[CloseCurlyQuote]s own URI are currently \ ignored (e.g., \[OpenCurlyDoubleQuote]paclet:ref/foo\[CloseCurlyDoubleQuote].\ \ \>", "Text", CellChangeTimes->{{3.7749677194319763`*^9, 3.7749677590661793`*^9}, { 3.779830342922876*^9, 3.779830481588993*^9}, {3.779839451510894*^9, 3.7798395447447863`*^9}, {3.7802423704653997`*^9, 3.780242372297042*^9}}, CellID->195489096], Cell["\<\ Properly integrating options with all the underlying functions will require a \ little more work. For now, use at your own risk. \ \>", "Text", CellChangeTimes->{{3.780242386004827*^9, 3.780242391145685*^9}, { 3.7802424224988737`*^9, 3.780242459555505*^9}}, CellID->848134235] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], 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, WindowTitle->"CheckHyperlinks | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.819051418548466`16.334530494781646*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.819051418692392`16.33453049479801*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.4.0"}, CreateCellID->True, FrontEndVersion->"12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], 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.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 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.0444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ 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.9882, 0.4196, 0.2039], 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 :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], 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 :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TemplateInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], 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 :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`LiteralInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DelimiterInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`SubscriptInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[2]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[3]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableRowInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableSort[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableMerge[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\"\ "}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`ExclusionToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> { DefinitionNotebookClient`$ButtonsDisabled}]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> 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[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "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"], DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "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 -> 8, 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 -> 8, 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"], DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]& , "\"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.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], 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[ GrayLevel[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[ GrayLevel[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"], With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], 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[ GrayLevel[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[ GrayLevel[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"], With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9569, 0.802, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, #2[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], 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, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.0556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.9686, 0.4667, 0.], GrayLevel[0.4667]]]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["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.9059]], 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["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}]}, Visible -> False, FrontEndVersion -> "12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[609, 21, 98, 2, 70, "Title",ExpressionUUID->"1405d6d2-d8e8-4615-8b33-726a0da15c01", CellTags->{"Name", "TemplateCell", "Title"}, CellID->256181082]}, "TemplateCell"->{ Cell[609, 21, 98, 2, 70, "Title",ExpressionUUID->"1405d6d2-d8e8-4615-8b33-726a0da15c01", CellTags->{"Name", "TemplateCell", "Title"}, CellID->256181082], Cell[710, 25, 180, 5, 70, "Text",ExpressionUUID->"3f73b0fb-f332-4031-b15f-435a0ad16417", CellTags->{"Description", "TemplateCell"}, CellID->772261120]}, "Title"->{ Cell[609, 21, 98, 2, 70, "Title",ExpressionUUID->"1405d6d2-d8e8-4615-8b33-726a0da15c01", CellTags->{"Name", "TemplateCell", "Title"}, CellID->256181082]}, "Description"->{ Cell[710, 25, 180, 5, 70, "Text",ExpressionUUID->"3f73b0fb-f332-4031-b15f-435a0ad16417", CellTags->{"Description", "TemplateCell"}, CellID->772261120]}, "Definition"->{ Cell[915, 34, 1108, 27, 70, "Section",ExpressionUUID->"ab11bc1d-f281-47c4-94cd-5094ad05bee0", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "Function"->{ Cell[915, 34, 1108, 27, 70, "Section",ExpressionUUID->"ab11bc1d-f281-47c4-94cd-5094ad05bee0", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "TemplateCellGroup"->{ Cell[915, 34, 1108, 27, 70, "Section",ExpressionUUID->"ab11bc1d-f281-47c4-94cd-5094ad05bee0", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[35449, 802, 1879, 48, 70, "Subsection",ExpressionUUID->"6e336b00-b998-4075-9231-bb76c3b880c3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[38255, 893, 1349, 30, 70, "Subsection",ExpressionUUID->"8b6870c8-0cc3-479c-b033-4195a6f02bbd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[47860, 1193, 6918, 150, 70, "Section",ExpressionUUID->"7a426432-dbbc-4efc-96fb-5916ca1f1e94", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[193408, 4211, 918, 24, 70, "Subsection",ExpressionUUID->"82c10723-5e55-4c0a-bfb6-441d233720fc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[194414, 4243, 893, 24, 70, "Subsection",ExpressionUUID->"b24d26ab-695c-4d56-b9bb-cfad32b382c4", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[195542, 4284, 166, 5, 70, "Subsection",ExpressionUUID->"80400f70-ca9c-465f-b868-6bc9c53554f0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[202216, 4514, 870, 24, 70, "Subsection",ExpressionUUID->"80e4e304-7346-48b9-b5cf-ecc45de2b624", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[203271, 4552, 920, 24, 70, "Subsection",ExpressionUUID->"3552918c-3a07-4052-bdeb-7f9f04135a8a", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[204739, 4591, 971, 25, 70, "Subsection",ExpressionUUID->"3f8a7076-a6e7-4ac1-9a52-aa05b0256dc0", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[206246, 4631, 823, 24, 70, "Subsection",ExpressionUUID->"dd8252bb-f2d9-48b5-8d41-4ee20fcd4664", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[207594, 4670, 1737, 43, 70, "Subsection",ExpressionUUID->"93110f8e-9ab9-432e-9994-e6c6819a17ca", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[211510, 4775, 1048, 26, 70, "Section",ExpressionUUID->"14052aac-1e2d-42db-8788-3eadfd1bfd0e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[213693, 4833, 929, 25, 70, "Section",ExpressionUUID->"788a4346-57ad-4fbb-b13e-2bf91d546b99", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]}, "Documentation"->{ Cell[35307, 794, 117, 4, 70, "Section",ExpressionUUID->"743567fd-a6be-4477-be33-6b3b73bc9df4", CellTags->"Documentation", CellID->475424634]}, "Usage"->{ Cell[35449, 802, 1879, 48, 70, "Subsection",ExpressionUUID->"6e336b00-b998-4075-9231-bb76c3b880c3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143]}, "Details & Options"->{ Cell[38255, 893, 1349, 30, 70, "Subsection",ExpressionUUID->"8b6870c8-0cc3-479c-b033-4195a6f02bbd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "Notes"->{ Cell[38255, 893, 1349, 30, 70, "Subsection",ExpressionUUID->"8b6870c8-0cc3-479c-b033-4195a6f02bbd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "Examples"->{ Cell[47860, 1193, 6918, 150, 70, "Section",ExpressionUUID->"7a426432-dbbc-4efc-96fb-5916ca1f1e94", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145]}, "Source & Additional Information"->{ Cell[193230, 4203, 153, 4, 70, "Section",ExpressionUUID->"074aa9df-384c-4c53-967b-ec250712619b", CellTags->"Source & Additional Information", CellID->346918952]}, "Contributed By"->{ Cell[193408, 4211, 918, 24, 70, "Subsection",ExpressionUUID->"82c10723-5e55-4c0a-bfb6-441d233720fc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "ContributorInformation"->{ Cell[193408, 4211, 918, 24, 70, "Subsection",ExpressionUUID->"82c10723-5e55-4c0a-bfb6-441d233720fc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "Keywords"->{ Cell[194414, 4243, 893, 24, 70, "Subsection",ExpressionUUID->"b24d26ab-695c-4d56-b9bb-cfad32b382c4", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615]}, "Categories"->{ Cell[195542, 4284, 166, 5, 70, "Subsection",ExpressionUUID->"80400f70-ca9c-465f-b868-6bc9c53554f0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632]}, "CategoriesCell"->{ Cell[195711, 4291, 6468, 218, 70, "Output",ExpressionUUID->"c7d370ab-166f-4f6d-8b41-5aa50ab27c86", CellTags->"CategoriesCell", CellID->978017031]}, "Related Symbols"->{ Cell[202216, 4514, 870, 24, 70, "Subsection",ExpressionUUID->"80e4e304-7346-48b9-b5cf-ecc45de2b624", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636]}, "Related Resource Objects"->{ Cell[203271, 4552, 920, 24, 70, "Subsection",ExpressionUUID->"3552918c-3a07-4052-bdeb-7f9f04135a8a", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071]}, "TabNext"->{ Cell[204194, 4578, 508, 8, 70, "Item",ExpressionUUID->"62230a41-8a45-4c97-970d-7b1a58d29b3d", CellTags->"TabNext", CellID->960273585], Cell[205713, 4618, 496, 8, 70, "Text",ExpressionUUID->"88049cde-e089-421d-a01a-a74f1bb7525f", CellTags->"TabNext", CellID->343081869], Cell[207072, 4657, 485, 8, 70, "Item",ExpressionUUID->"7ebba8bc-055e-4795-983b-577609fd6072", CellTags->"TabNext", CellID->485448166], Cell[214625, 4860, 495, 8, 70, "Text",ExpressionUUID->"bb73aebf-622e-4546-9d9d-17e91320349f", CellTags->"TabNext", CellID->920818074]}, "Source/Reference Citation"->{ Cell[204739, 4591, 971, 25, 70, "Subsection",ExpressionUUID->"3f8a7076-a6e7-4ac1-9a52-aa05b0256dc0", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317]}, "Links"->{ Cell[206246, 4631, 823, 24, 70, "Subsection",ExpressionUUID->"dd8252bb-f2d9-48b5-8d41-4ee20fcd4664", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789]}, "Tests"->{ Cell[207594, 4670, 1737, 43, 70, "Subsection",ExpressionUUID->"93110f8e-9ab9-432e-9994-e6c6819a17ca", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "VerificationTests"->{ Cell[207594, 4670, 1737, 43, 70, "Subsection",ExpressionUUID->"93110f8e-9ab9-432e-9994-e6c6819a17ca", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "Author Notes"->{ Cell[211510, 4775, 1048, 26, 70, "Section",ExpressionUUID->"14052aac-1e2d-42db-8788-3eadfd1bfd0e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130]}, "Submission Notes"->{ Cell[213693, 4833, 929, 25, 70, "Section",ExpressionUUID->"788a4346-57ad-4fbb-b13e-2bf91d546b99", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 319064, 6848}, {"TemplateCell", 319246, 6852}, {"Title", 319581, 6859}, {"Description", 319762, 6863}, {"Definition", 319940, 6867}, {"Function", 320137, 6871}, {"TemplateCellGroup", 320343, 6875}, {"Documentation", 322911, 6918}, {"Usage", 323074, 6922}, {"Details & Options", 323268, 6926}, {"Notes", 323471, 6930}, {"Examples", 323677, 6934}, {"Source & Additional Information", 323888, 6938}, {"Contributed By", 324080, 6942}, {"ContributorInformation", 324316, 6946}, {"Keywords", 324538, 6950}, {"Categories", 324730, 6954}, {"CategoriesCell", 324926, 6958}, {"Related Symbols", 325104, 6962}, {"Related Resource Objects", 325317, 6966}, {"TabNext", 325522, 6970}, {"Source/Reference Citation", 326127, 6983}, {"Links", 326331, 6987}, {"Tests", 326515, 6991}, {"VerificationTests", 326733, 6995}, {"Author Notes", 326946, 6999}, {"Submission Notes", 327146, 7003} } *) (*NotebookFileOutline Notebook[{ Cell[609, 21, 98, 2, 70, "Title",ExpressionUUID->"1405d6d2-d8e8-4615-8b33-726a0da15c01", CellTags->{"Name", "TemplateCell", "Title"}, CellID->256181082], Cell[710, 25, 180, 5, 70, "Text",ExpressionUUID->"3f73b0fb-f332-4031-b15f-435a0ad16417", CellTags->{"Description", "TemplateCell"}, CellID->772261120], Cell[CellGroupData[{ Cell[915, 34, 1108, 27, 70, "Section",ExpressionUUID->"ab11bc1d-f281-47c4-94cd-5094ad05bee0", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[2026, 63, 722, 13, 70, "Input",ExpressionUUID->"a34771f7-748b-436f-b96b-999c5b49758b", CellID->852468413], Cell[2751, 78, 32541, 713, 70, "Input",ExpressionUUID->"9502cffe-aee1-457f-a317-b33e0806a79d", InitializationCell->True, CellID->322920330] }, Open ]], Cell[35307, 794, 117, 4, 70, "Section",ExpressionUUID->"743567fd-a6be-4477-be33-6b3b73bc9df4", CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[35449, 802, 1879, 48, 70, "Subsection",ExpressionUUID->"6e336b00-b998-4075-9231-bb76c3b880c3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[37353, 854, 147, 4, 70, "UsageInputs",ExpressionUUID->"537c7c19-9efe-42a5-9e09-956c0365efc0", CellID->45015192], Cell[37503, 860, 251, 7, 70, "UsageDescription",ExpressionUUID->"0a84612e-33b9-4dc6-ba72-330f4db82ac3", CellID->776838703] }, Open ]], Cell[CellGroupData[{ Cell[37791, 872, 196, 6, 70, "UsageInputs",ExpressionUUID->"bf7e6934-3b68-491a-afdf-bf2fe438ed7a", CellID->572278371], Cell[37990, 880, 216, 7, 70, "UsageDescription",ExpressionUUID->"97e0589d-edd3-4bc4-82ff-2f9493ef7ed9", CellID->65225851] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38255, 893, 1349, 30, 70, "Subsection",ExpressionUUID->"8b6870c8-0cc3-479c-b033-4195a6f02bbd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[39607, 925, 494, 16, 70, "Notes",ExpressionUUID->"34daf4be-dc41-4c7a-b9af-98f4a1a2dc7f", CellID->110221340], Cell[40104, 943, 118, 3, 70, "Notes",ExpressionUUID->"f6121ecf-2b12-4dc2-830d-e10a8c9c91a2", CellID->5861709], Cell[40225, 948, 3114, 83, 70, "TableNotes",ExpressionUUID->"2f6b2cda-5bdf-4555-83c3-748137dac25f", CellID->9073654], Cell[43342, 1033, 112, 3, 70, "Notes",ExpressionUUID->"9525baf3-b404-4f4c-947c-2b5ad456af80", CellID->626308774], Cell[43457, 1038, 812, 26, 70, "Notes",ExpressionUUID->"9abeed6b-fe28-4871-80f3-5071dc2f48d2", CellID->367002812], Cell[44272, 1066, 575, 18, 70, "Notes",ExpressionUUID->"6a7e86f1-9813-43d5-9b38-0bf97f0c6292", CellID->303182033], Cell[44850, 1086, 2257, 79, 70, "Notes",ExpressionUUID->"78b79e9e-5b6a-43d6-b405-48cf0814fe40", CellID->172429068], Cell[47110, 1167, 270, 10, 70, "Notes",ExpressionUUID->"01d59d24-a353-4e7a-8ee7-a7cefe6732e0", CellID->809797326], Cell[47383, 1179, 440, 9, 70, "TableNotes",ExpressionUUID->"015d7e9a-d2a4-462f-b19a-ce810003d429", CellID->252828933] }, Open ]], Cell[CellGroupData[{ Cell[47860, 1193, 6918, 150, 70, "Section",ExpressionUUID->"7a426432-dbbc-4efc-96fb-5916ca1f1e94", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell[54803, 1347, 56, 1, 70, "Subsection",ExpressionUUID->"c14477c4-fc6b-48a0-8eb7-bb5f01db928a", CellID->462042388], Cell[54862, 1350, 169, 3, 70, "Text",ExpressionUUID->"053ae045-9337-42b7-bbf6-dd0f86612205", CellID->219424864], Cell[CellGroupData[{ Cell[55056, 1357, 249, 6, 70, "Input",ExpressionUUID->"15bd4d90-a75b-4e74-b322-3781df192ff3", CellID->540364064], Cell[55308, 1365, 588, 14, 70, "Output",ExpressionUUID->"a85f68e2-5405-4c2e-9c3d-2193c5188c16", CellID->873338076] }, Open ]], Cell[CellGroupData[{ Cell[55933, 1384, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"d9fe7564-ebf8-4c60-9172-c026f2bf70bb", CellID->224031726], Cell[56061, 1389, 130, 2, 70, "Text",ExpressionUUID->"1e1eb079-1fd3-4a1e-aff4-df2191b489dc", CellID->136777709], Cell[CellGroupData[{ Cell[56216, 1395, 399, 9, 70, "Input",ExpressionUUID->"41af6c28-130c-4137-99db-15702b1dc880", CellID->915419261], Cell[56618, 1406, 289, 6, 70, "Output",ExpressionUUID->"1dbf5dbc-32bd-4b25-ae29-c34300c8c653", CellID->92537557] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56956, 1418, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"b4d44a86-8d64-4d8f-a809-5139f55f7216", CellID->224031727], Cell[57084, 1423, 177, 3, 70, "Text",ExpressionUUID->"fdaf4593-9ebf-47bf-ab3d-4e7807489032", CellID->450172761], Cell[CellGroupData[{ Cell[57286, 1430, 475, 12, 70, "Input",ExpressionUUID->"d86aa5e4-f973-430c-a609-82324de0c183", CellID->981668858], Cell[57764, 1444, 455, 11, 70, "Output",ExpressionUUID->"09827022-42b0-484f-afb2-ae8617ed1e87", CellID->961388496] }, Open ]], Cell[CellGroupData[{ Cell[58256, 1460, 275, 6, 70, "Input",ExpressionUUID->"26778a6e-9400-41de-b855-536261d7f25f", CellID->552448694], Cell[58534, 1468, 13869, 253, 70, "Output",ExpressionUUID->"0859407f-9070-4cbd-92cb-08dd8a2cb02d", CellID->884524409] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72452, 1727, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"2528cdd8-5fbc-42fb-855b-bbc09ea0f4c4", CellID->224031728], Cell[72580, 1732, 132, 2, 70, "Text",ExpressionUUID->"dd1c61b1-6bda-4a2f-9352-181181c07f96", CellID->628260795], Cell[CellGroupData[{ Cell[72737, 1738, 336, 7, 70, "Input",ExpressionUUID->"7876a4c4-6f3a-413d-9d2e-9f83069b1a20", CellID->60629318], Cell[73076, 1747, 2818, 54, 70, "Output",ExpressionUUID->"8cf4e6ca-ef2b-40f7-aa0d-1e69cb7cd77c", CellID->218429430] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75943, 1807, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"ed7cf984-01f8-4194-a9b8-05fd2f7949ed", CellID->224031729], Cell[76071, 1812, 187, 3, 70, "Text",ExpressionUUID->"8cc8c407-bf45-4ed8-bdc6-07cf31b5ae00", CellID->385684762], Cell[CellGroupData[{ Cell[76283, 1819, 489, 13, 70, "Input",ExpressionUUID->"46d522c9-e97e-48c8-bbdd-a2d5c734515e", CellID->401992375], Cell[76775, 1834, 642, 14, 70, "Output",ExpressionUUID->"1deb7a56-4ce4-4b23-b9d8-69ea0e60726e", CellID->19878844] }, Open ]], Cell[CellGroupData[{ Cell[77454, 1853, 230, 5, 70, "Input",ExpressionUUID->"b5abc615-4aa0-4cd1-b888-b90ee6797048", CellID->552448695], Cell[77687, 1860, 13964, 256, 70, "Output",ExpressionUUID->"0641dbe4-7851-41b0-b238-6cd0dfb02a91", CellID->516514809] }, Open ]], Cell[91666, 2119, 241, 4, 70, "Text",ExpressionUUID->"6c467b84-88b1-47f5-b34a-274891dc5d4a", CellID->740340940], Cell[CellGroupData[{ Cell[91932, 2127, 170, 4, 70, "Input",ExpressionUUID->"4b9423cb-6396-4140-84dc-3cbf0d6ac5b2", CellID->599585200], Cell[92105, 2133, 260, 5, 70, "Output",ExpressionUUID->"c808b96f-4876-44fb-8b4a-7d1a42729333", CellID->576957238] }, Open ]], Cell[CellGroupData[{ Cell[92402, 2143, 253, 5, 70, "Input",ExpressionUUID->"22c06b51-6113-404b-81bb-dfc01360dc4e", CellID->721706527], Cell[92658, 2150, 13792, 253, 70, "Output",ExpressionUUID->"d2619e84-1d64-4b5c-bea0-6f69246821cc", CellID->517836758] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[106511, 2410, 70, 2, 70, "Subsection",ExpressionUUID->"aaf9d78a-f0c1-4b4c-8ed7-8b05111fcc5b", CellID->912623285], Cell[106584, 2414, 185, 3, 70, "Text",ExpressionUUID->"1cd2deaa-bf56-46f1-adaf-eac119bea530", CellID->717325139], Cell[CellGroupData[{ Cell[106794, 2421, 658, 15, 70, "Input",ExpressionUUID->"1bb632fb-401c-4937-99f4-a56bebfac9d9", CellID->212425671], Cell[107455, 2438, 27257, 495, 70, "Output",ExpressionUUID->"6c3674d7-54fa-4d8a-83e7-3f367ec0e423", CellID->799807182] }, Open ]], Cell[CellGroupData[{ Cell[134749, 2938, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"4d34f8b5-489f-4c00-b2c4-b92293aadf5a", CellID->224031730], Cell[134877, 2943, 188, 3, 70, "Text",ExpressionUUID->"a1016473-0078-4bd8-9b59-7d0a40b4fc7a", CellID->864119422], Cell[CellGroupData[{ Cell[135090, 2950, 480, 10, 70, "Input",ExpressionUUID->"56ca13cd-8b1d-483c-85f6-5ed498b7f61b", CellID->32648985], Cell[135573, 2962, 547, 14, 70, "Output",ExpressionUUID->"9dd27095-c4ea-4991-987b-23b889ae82bf", CellID->475293627] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136169, 2982, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"9188bad7-cf55-4875-b008-4b1b3265e7cc", CellID->224031731], Cell[136297, 2987, 351, 5, 70, "Text",ExpressionUUID->"38a0767b-181e-4381-a714-8e46e1ff0675", CellID->223927305], Cell[CellGroupData[{ Cell[136673, 2996, 441, 11, 70, "Input",ExpressionUUID->"e5c8dd94-5ba5-4f94-95bf-ee27bf352981", CellID->69429909], Cell[137117, 3009, 587, 14, 70, "Output",ExpressionUUID->"93ea09d2-7479-43b1-8606-7584642a3f48", CellID->933487750] }, Open ]], Cell[CellGroupData[{ Cell[137741, 3028, 179, 4, 70, "Input",ExpressionUUID->"234f7f7e-ef0a-4d63-a25e-e27384999b17", CellID->552448696], Cell[137923, 3034, 538, 13, 70, "Output",ExpressionUUID->"5e019969-2642-4e8b-a0ec-8f2fce375c63", CellID->972210173] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[138510, 3053, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"cad9be37-833d-41fd-8877-6e641e5ca8fe", CellID->224031732], Cell[138638, 3058, 289, 4, 70, "Text",ExpressionUUID->"d0990ec0-5adb-482f-9025-23ea708ee042", CellID->670014105], Cell[138930, 3064, 1350, 30, 70, "Input",ExpressionUUID->"65be9dcd-0b75-4b44-aeb9-90bf2185c370", CellID->817276151], Cell[140283, 3096, 25532, 425, 70, "Input",ExpressionUUID->"0e8ed3aa-8aaf-45da-9e6b-40587eca58f9", CellID->384422265], Cell[CellGroupData[{ Cell[165840, 3525, 229, 5, 70, "Input",ExpressionUUID->"41d323e5-64c8-4d73-b397-970d6b6bfe4e", CellID->197922289], Cell[166072, 3532, 864, 19, 70, "Output",ExpressionUUID->"0c1184aa-23dd-486f-b792-43a02175676a", CellID->245028521] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[166985, 3557, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"875ecc25-e272-41a7-9298-249d27a7f9c5", CellID->224031733], Cell[167113, 3562, 300, 7, 70, "Text",ExpressionUUID->"bfb4eeeb-68b4-4bfc-9ce8-0641f61a8f9e", CellID->67255376], Cell[167416, 3571, 539, 13, 70, "Input",ExpressionUUID->"d17ab375-822f-44c9-9ed9-29df891fe717", CellID->228738408], Cell[CellGroupData[{ Cell[167980, 3588, 181, 4, 70, "Input",ExpressionUUID->"25ad1ed2-39ad-419f-af7b-2c1eba0dd507", CellID->181029163], Cell[168164, 3594, 896, 19, 70, "Output",ExpressionUUID->"2f56ba26-cbf3-43db-8991-d7e348de9c4f", CellID->269270589] }, Open ]], Cell[CellGroupData[{ Cell[169097, 3618, 261, 6, 70, "Input",ExpressionUUID->"3a80b74d-a631-4f75-8e69-b6586d428a25", CellID->646699294], Cell[169361, 3626, 757, 17, 70, "Output",ExpressionUUID->"749fa116-24c2-4466-bcbc-79f7681a6ebb", CellID->842165637] }, Open ]], Cell[CellGroupData[{ Cell[170155, 3648, 317, 7, 70, "Input",ExpressionUUID->"40182556-7467-4489-b83b-7866ff91f63a", CellID->852353362], Cell[170475, 3657, 711, 17, 70, "Output",ExpressionUUID->"ce9f8220-1fe1-4765-975f-a3b5626100d6", CellID->652357784] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[171235, 3680, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"bf2240f2-96ce-4f24-b5c9-8f1a5f5b712b", CellID->224031734], Cell[171363, 3685, 676, 21, 70, "Text",ExpressionUUID->"63e03b88-2772-47ec-ab5a-879115baf0d5", CellID->130432974], Cell[CellGroupData[{ Cell[172064, 3710, 656, 17, 70, "Input",ExpressionUUID->"63f1e5a1-7145-423a-977b-20a49d19f10f", CellID->623623061], Cell[172723, 3729, 588, 14, 70, "Output",ExpressionUUID->"6f08ae3a-e795-4bf6-8efa-b35b1f7ecd23", CellID->436170300] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[173360, 3749, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"20e1fa78-00a2-478b-bea9-5d31d5ba8290", CellID->224031735], Cell[173488, 3754, 157, 2, 70, "Text",ExpressionUUID->"f14c52cf-e010-4d7f-a142-83e0bfcf5f64", CellID->402031346], Cell[CellGroupData[{ Cell[173670, 3760, 360, 10, 70, "Input",ExpressionUUID->"0467669f-316d-4951-9d5a-ca37003a4041", CellID->707859552], Cell[174033, 3772, 412, 11, 70, "Output",ExpressionUUID->"1414b619-266c-419b-8341-05c387e03f84", CellID->785616012] }, Open ]], Cell[CellGroupData[{ Cell[174482, 3788, 408, 8, 70, "Input",ExpressionUUID->"43b1ef25-d01f-49ca-b3a5-23fa0b73f4a6", CellID->407691966], Cell[174893, 3798, 212, 5, 70, "Output",ExpressionUUID->"5066de0e-1806-47ae-af6a-1ef650960e38", CellID->795282143] }, Open ]], Cell[CellGroupData[{ Cell[175142, 3808, 409, 8, 70, "Input",ExpressionUUID->"be8a675a-a257-4fad-808a-409823e06c77", CellID->852927894], Cell[175554, 3818, 219, 5, 70, "Output",ExpressionUUID->"1de7a93f-fca2-4f6d-835d-1ae1c6e5f25f", CellID->826048607] }, Open ]], Cell[CellGroupData[{ Cell[175810, 3828, 477, 11, 70, "Input",ExpressionUUID->"b8fc8981-2e95-4148-913c-a6f3b4132743", CellID->339593431], Cell[176290, 3841, 13393, 245, 70, "Output",ExpressionUUID->"3b43c497-69a2-4855-ba31-7cb28c4ceda5", CellID->348318366] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[189744, 4093, 56, 1, 70, "Subsection",ExpressionUUID->"79788569-e47e-448c-8724-3f1ec25c50db", CellID->92483860], Cell[189803, 4096, 279, 6, 70, "Text",ExpressionUUID->"09611b8e-c405-4b0f-89a7-b4a74a0ff963", CellID->905471614], Cell[190085, 4104, 563, 15, 70, "Input",ExpressionUUID->"d6183019-636c-4444-967b-af7b674c4800", CellID->336301188], Cell[CellGroupData[{ Cell[190673, 4123, 253, 5, 70, "Input",ExpressionUUID->"01eee9e6-18c6-4548-a3d0-14ff2123dce2", CellID->340375998], Cell[190929, 4130, 508, 13, 70, "Output",ExpressionUUID->"8a76dfa6-41cf-46ff-85fe-3d13b0bd54a9", CellID->427651182] }, Open ]], Cell[191452, 4146, 810, 23, 70, "Text",ExpressionUUID->"bf3ade36-ca56-4f5d-8f7b-c978993cada7", CellID->858866339], Cell[CellGroupData[{ Cell[192287, 4173, 341, 8, 70, "Input",ExpressionUUID->"5bc0fec6-2737-4637-baaa-1b88f5c90c7d", CellID->999457628], Cell[192631, 4183, 538, 13, 70, "Output",ExpressionUUID->"b2a4935b-5f87-4bdd-8e5a-4106ac615c75", CellID->244013875] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[193230, 4203, 153, 4, 70, "Section",ExpressionUUID->"074aa9df-384c-4c53-967b-ec250712619b", CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[193408, 4211, 918, 24, 70, "Subsection",ExpressionUUID->"82c10723-5e55-4c0a-bfb6-441d233720fc", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[194329, 4237, 48, 1, 70, "Text",ExpressionUUID->"11374157-727c-4319-87e7-d82a9a4bd0ed", CellID->95771488] }, Open ]], Cell[CellGroupData[{ Cell[194414, 4243, 893, 24, 70, "Subsection",ExpressionUUID->"b24d26ab-695c-4d56-b9bb-cfad32b382c4", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[195310, 4269, 41, 1, 70, "Item",ExpressionUUID->"f26b04de-85e1-4ef1-9c95-b35d60e76d18", CellID->663811624], Cell[195354, 4272, 46, 1, 70, "Item",ExpressionUUID->"da504ec8-27cd-4e1a-a840-fe52ddafa523", CellID->509118405], Cell[195403, 4275, 48, 1, 70, "Item",ExpressionUUID->"c21af2cb-5b98-457b-95d7-e4b913f2e224", CellID->57123495], Cell[195454, 4278, 51, 1, 70, "Item",ExpressionUUID->"7b90fad2-3319-456b-9aaf-6db88161e7f6", CellID->418389322] }, Open ]], Cell[CellGroupData[{ Cell[195542, 4284, 166, 5, 70, "Subsection",ExpressionUUID->"80400f70-ca9c-465f-b868-6bc9c53554f0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[195711, 4291, 6468, 218, 70, "Output",ExpressionUUID->"c7d370ab-166f-4f6d-8b41-5aa50ab27c86", CellTags->"CategoriesCell", CellID->978017031] }, Open ]], Cell[CellGroupData[{ Cell[202216, 4514, 870, 24, 70, "Subsection",ExpressionUUID->"80e4e304-7346-48b9-b5cf-ecc45de2b624", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[203089, 4540, 42, 1, 70, "Item",ExpressionUUID->"cffb616e-f14e-491b-8fd8-113b4446497c", CellID->300517464], Cell[203134, 4543, 50, 1, 70, "Item",ExpressionUUID->"a6f8f45d-2daa-4794-9ba1-511d89af28ea", CellID->759339940], Cell[203187, 4546, 47, 1, 70, "Item",ExpressionUUID->"80c1f8d7-62e8-4647-9578-4ba11d649c79", CellID->201519537] }, Open ]], Cell[CellGroupData[{ Cell[203271, 4552, 920, 24, 70, "Subsection",ExpressionUUID->"3552918c-3a07-4052-bdeb-7f9f04135a8a", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[204194, 4578, 508, 8, 70, "Item",ExpressionUUID->"62230a41-8a45-4c97-970d-7b1a58d29b3d", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[204739, 4591, 971, 25, 70, "Subsection",ExpressionUUID->"3f8a7076-a6e7-4ac1-9a52-aa05b0256dc0", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[205713, 4618, 496, 8, 70, "Text",ExpressionUUID->"88049cde-e089-421d-a01a-a74f1bb7525f", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[206246, 4631, 823, 24, 70, "Subsection",ExpressionUUID->"dd8252bb-f2d9-48b5-8d41-4ee20fcd4664", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[207072, 4657, 485, 8, 70, "Item",ExpressionUUID->"7ebba8bc-055e-4795-983b-577609fd6072", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[207594, 4670, 1737, 43, 70, "Subsection",ExpressionUUID->"93110f8e-9ab9-432e-9994-e6c6819a17ca", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[209334, 4715, 554, 14, 70, "Input",ExpressionUUID->"fcffdb99-b2f0-458b-a6ec-69ac0da567c4", CellID->733153360], Cell[209891, 4731, 466, 11, 70, "Input",ExpressionUUID->"63a676b7-1b54-40a1-b4b0-d8c70863e191", CellID->204715838], Cell[210360, 4744, 1101, 25, 70, "Input",ExpressionUUID->"15a1d112-4f8a-4c81-87f8-6596ede72bce", CellID->54039376] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[211510, 4775, 1048, 26, 70, "Section",ExpressionUUID->"14052aac-1e2d-42db-8788-3eadfd1bfd0e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[212561, 4803, 382, 7, 70, "Text",ExpressionUUID->"507cf955-dc54-4741-9eb5-a4d744c25308", CellID->644541148], Cell[212946, 4812, 417, 8, 70, "Text",ExpressionUUID->"e1c892be-9b83-49da-a27f-9738f169f5aa", CellID->195489096], Cell[213366, 4822, 290, 6, 70, "Text",ExpressionUUID->"366bb4bb-d120-4f81-94f7-5c0ce8d255c0", CellID->848134235] }, Open ]], Cell[CellGroupData[{ Cell[213693, 4833, 929, 25, 70, "Section",ExpressionUUID->"788a4346-57ad-4fbb-b13e-2bf91d546b99", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], Cell[214625, 4860, 495, 8, 70, "Text",ExpressionUUID->"bb73aebf-622e-4546-9d9d-17e91320349f", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)