(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 452564, 10806] NotebookOptionsPosition[ 271415, 7310] NotebookOutlinePosition[ 414100, 10003] CellTagsIndexPosition[ 412291, 9953] WindowTitle->ObjectExistsQ | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ObjectExistsQ", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->225756145], Cell["Check if an object exists", "Text", CellTags->{"Description", "TemplateCell"}, CellID->556430571], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "co_CloudObject", "]"}], "]"}], ":=", RowBox[{"FileExistsQ", "[", "co", "]"}]}]], "Input", CellChangeTimes->{{3.782748905157037*^9, 3.7827489288465757`*^9}}, CellLabel->"In[21]:=", CellID->832818521], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{ RowBox[{"HoldPattern", "[", "File", "]"}], "[", RowBox[{"str_", ",", "___"}], "]"}], "]"}], ":=", RowBox[{"FileExistsQ", "[", "str", "]"}]}]], "Input", CellChangeTimes->{{3.78274893656087*^9, 3.7827489443076773`*^9}}, CellLabel->"In[22]:=", CellID->211704106], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "lo_LocalObject", "]"}], "]"}], ":=", RowBox[{"FileExistsQ", "[", "lo", "]"}]}]], "Input", CellChangeTimes->{{3.78274989729887*^9, 3.782749907684248*^9}}, CellLabel->"In[23]:=", CellID->194963373], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{ RowBox[{"HoldPattern", "[", "URL", "]"}], "[", RowBox[{"url_", ",", "___"}], "]"}], "]"}], ":=", RowBox[{"urlExistsQ", "[", "url", "]"}]}]], "Input", CellChangeTimes->{{3.7827489649427767`*^9, 3.78274896521494*^9}, { 3.782749115831545*^9, 3.7827491228689117`*^9}}, CellLabel->"In[24]:=", CellID->48954150], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "pg_PermissionsGroup", "]"}], "]"}], ":=", RowBox[{"ObjectExistsQ", "[", RowBox[{"CloudObject", "@@", "pg"}], "]"}]}]], "Input", CellChangeTimes->{{3.7827494814378033`*^9, 3.782749498175909*^9}}, CellLabel->"In[25]:=", CellID->50425300], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "ext_ExternalSessionObject", "]"}], "]"}], ":=", RowBox[{"TrueQ", "[", RowBox[{"Quiet", "[", RowBox[{"ext", "[", "\"\\"", "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.782755057305867*^9, 3.782755093652899*^9}, { 3.78275515687356*^9, 3.7827551584760027`*^9}}, CellLabel->"In[26]:=", CellID->197512458], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "sio_SearchIndexObject", "]"}], "]"}], ":=", RowBox[{"(", RowBox[{"TextSearch", ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", RowBox[{"AssociationQ", "[", RowBox[{"TextSearch`GetIndexMetadata", "[", "sio", "]"}], "]"}], "]"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.7827495049176407`*^9, 3.782749508572895*^9}, { 3.782749631863707*^9, 3.78274964410043*^9}, {3.782754386288097*^9, 3.782754386833699*^9}, {3.7827544271797113`*^9, 3.7827544366785603`*^9}}, CellLabel->"In[27]:=", CellID->681320725], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "ro_ResourceObject", "]"}], "]"}], ":=", RowBox[{"(", RowBox[{"ResourceObject", ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"$VersionNumber", ">", "12"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ "Symbol", "[", "\"\\"", "]"}], "[", "ro", "]"}], ",", "\[IndentingNewLine]", RowBox[{"StringQ", "[", RowBox[{"ro", "[", "\"\\"", "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], "]"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.7827495049176407`*^9, 3.782749508572895*^9}, { 3.782749631863707*^9, 3.782749702326104*^9}, {3.782749738932193*^9, 3.78274976577477*^9}, {3.785158908365498*^9, 3.7851589140800247`*^9}}, CellID->864205306], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "dbr_DatabaseReference", "]"}], "]"}], ":=", RowBox[{ RowBox[{"TrueQ", "[", "\[IndentingNewLine]", RowBox[{"dbr", "[", "\"\\"", "]"}], "]"}], "||", RowBox[{"Quiet", "[", RowBox[{"ObjectExistsQ", "[", RowBox[{"dbr", "[", "\"\\"", "]"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7827570087208033`*^9, 3.782757040943832*^9}, { 3.782757092233119*^9, 3.7827570933437967`*^9}}, CellLabel->"In[29]:=", CellID->341799438], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "rf_ResourceFunction", "]"}], "]"}], ":=", RowBox[{"ObjectExistsQ", "[", RowBox[{"ResourceObject", "[", "rf", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7827497836184683`*^9, 3.782749805605234*^9}, { 3.782749873090228*^9, 3.782749876817533*^9}}, CellLabel->"In[30]:=", CellID->108895361], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "db_Databin", "]"}], "]"}], ":=", RowBox[{"(", RowBox[{"Databin", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Symbol", "[", "\"\\"", "]"}], "[", "db", "]"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.782749815947197*^9, 3.782749857612908*^9}, { 3.785158925308537*^9, 3.7851589303462543`*^9}}, CellID->24693579], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "ch_ChannelObject", "]"}], "]"}], ":=", RowBox[{"(", RowBox[{"ChannelObject", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ "Symbol", "[", "\"\\"", "]"}], "[", "ch", "]"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.782750161407209*^9, 3.7827501809505787`*^9}, { 3.7851589177502823`*^9, 3.785158922721176*^9}}, CellID->563792210], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "nbo_NotebookObject", "]"}], "]"}], ":=", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"NotebookInformation", "[", "nbo", "]"}], ",", RowBox[{"KeyValuePattern", "[", RowBox[{"{", "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.78275022975805*^9, 3.7827502332112494`*^9}, { 3.782750292117408*^9, 3.782750294301779*^9}}, CellLabel->"In[33]:=", CellID->835137105], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "po_PersistentObject", "]"}], "]"}], ":=", RowBox[{"AssociationQ", "[", RowBox[{"po", "[", "All", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.782750371295806*^9, 3.782750383526613*^9}, 3.782753156012171*^9}, CellLabel->"In[34]:=", CellID->523363708], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "rso_ResourceSubmissionObject", "]"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"st", "=", RowBox[{"Quiet", "@", RowBox[{"rso", "[", "\"\\"", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"StringQ", "[", "st", "]"}], "||", RowBox[{"AssociationQ", "[", "st", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7827504254838963`*^9, 3.78275043423137*^9}, { 3.7827506215954027`*^9, 3.7827506232764378`*^9}, {3.782750740866768*^9, 3.782750779867979*^9}}, CellLabel->"In[35]:=", CellID->987521935], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "to_TaskObject", "]"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"st", "=", RowBox[{"Quiet", "@", RowBox[{"to", "[", "\"\\"", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"StringQ", "[", "st", "]"}], "&&", RowBox[{"st", "=!=", "\"\\""}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.782750862233347*^9, 3.782750883010809*^9}, { 3.782750917023604*^9, 3.782750921849443*^9}}, CellLabel->"In[36]:=", CellID->98115299], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", "ce_CloudExpression", "]"}], "]"}], ":=", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"Quiet", "@", RowBox[{"Options", "[", "ce", "]"}]}], ",", RowBox[{"KeyValuePattern", "[", RowBox[{"{", "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.78275147992309*^9, 3.782751510768065*^9}}, CellLabel->"In[37]:=", CellID->862776734], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", RowBox[{"stream", ":", RowBox[{"(", RowBox[{"_InputStream", "|", "_OutputStream"}], ")"}]}], "]"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"o", "=", RowBox[{"Options", "[", "stream", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"o", ",", RowBox[{"KeyValuePattern", "[", RowBox[{"{", "}"}], "]"}]}], "]"}], "&&", RowBox[{"o", "=!=", RowBox[{"{", "}"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.782756422903287*^9, 3.782756529258068*^9}}, CellLabel->"In[38]:=", CellID->697751319], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"HoldPattern", "[", RowBox[{"obj", ":", RowBox[{"(", RowBox[{"_CellObject", "|", "_BoxObject"}], ")"}]}], "]"}], "]"}], ":=", RowBox[{"!", RowBox[{"FailureQ", "@", RowBox[{"Developer`CellInformation", "@", "obj"}]}]}]}], ";"}]], "Input",\ CellChangeTimes->{{3.7834514635910473`*^9, 3.783451492885343*^9}}, CellLabel->"In[39]:=", CellID->504731999], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"str_", "?", "likelyURLQ"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"url", "=", RowBox[{ RowBox[{"Interpreter", "[", "\"\\"", "]"}], "[", "str", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"StringQ", "[", "url", "]"}], ",", "\[IndentingNewLine]", RowBox[{"urlExistsQ", "[", "url", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "likelyURLQ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"likelyURLQ", "[", "___", "]"}], ":=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"ObjectExistsQ", "[", "str", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.78274925264684*^9, 3.78274926332369*^9}, { 3.7827493439436398`*^9, 3.782749410573415*^9}, {3.782749467255411*^9, 3.7827494674787083`*^9}, 3.782753182978931*^9}, CellLabel->"In[40]:=", CellID->75514855], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", "str_String", "]"}], ":=", RowBox[{"FileExistsQ", "[", "str", "]"}]}]], "Input", CellChangeTimes->{{3.782748951013071*^9, 3.782748953568399*^9}}, CellLabel->"In[41]:=", CellID->27757556], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"\"\\"", ",", "head_", ",", "test_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"$objectexistencetests", "[", "head", "]"}], "=", "test"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.782757218630466*^9, 3.782757229035391*^9}, { 3.782757313352189*^9, 3.7827573457017393`*^9}}, CellLabel->"In[42]:=", CellID->177292963], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", "expr_", "]"}], ":=", RowBox[{"ObjectExistsQ", "[", RowBox[{ RowBox[{"Head", "[", "expr", "]"}], ",", "expr"}], "]"}]}]], "Input", CellChangeTimes->{{3.7827572423545637`*^9, 3.782757259090232*^9}}, CellLabel->"In[43]:=", CellID->31981493], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", RowBox[{"head_", ",", "expr_"}], "]"}], ":=", RowBox[{ RowBox[{"Lookup", "[", RowBox[{"$objectexistencetests", ",", "head", ",", RowBox[{"False", "&"}]}], "]"}], "[", "expr", "]"}]}]], "Input", CellChangeTimes->{{3.782757270634583*^9, 3.7827573017759132`*^9}}, CellLabel->"In[44]:=", CellID->638937648], Cell[BoxData[ RowBox[{ RowBox[{"ObjectExistsQ", "[", "___", "]"}], ":=", "False"}]], "Input", CellChangeTimes->{{3.782754333892325*^9, 3.7827543370711107`*^9}, { 3.78275516963238*^9, 3.78275517145997*^9}}, CellLabel->"In[45]:=", CellID->368891493], Cell[BoxData[ RowBox[{ RowBox[{"$objectexistencetests", "=", RowBox[{"<|", "|>"}]}], ";"}]], "Input", CellChangeTimes->{{3.7827573364181356`*^9, 3.782757339792416*^9}}, CellLabel->"In[46]:=", CellID->390079334], Cell[BoxData[ RowBox[{ RowBox[{"urlExistsQ", "[", "url_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sc", "=", RowBox[{"URLRead", "[", RowBox[{ RowBox[{"HTTPRequest", "[", RowBox[{"url", ",", RowBox[{"<|", RowBox[{"Method", "\[Rule]", "\"\\""}], "|>"}]}], "]"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"IntegerQ", "[", "sc", "]"}], "&&", RowBox[{"200", "\[LessEqual]", "sc", "\[LessEqual]", "400"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.782749125337027*^9, 3.7827492040065413`*^9}}, CellLabel->"In[47]:=", CellID->347714307], Cell[BoxData[ RowBox[{ RowBox[{"likelyURLQ", "[", "str_String", "]"}], ":=", RowBox[{ RowBox[{"StringContainsQ", "[", RowBox[{"str", ",", RowBox[{"\"\<://\>\"", "|", "\"\\""}]}], "]"}], "||", RowBox[{"StringStartsQ", "[", RowBox[{"str", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7827492760074368`*^9, 3.782749291668641*^9}, { 3.7827493304222603`*^9, 3.782749340147256*^9}, {3.782749438160975*^9, 3.782749452324888*^9}}, CellLabel->"In[48]:=", CellID->895376725], Cell[BoxData[ RowBox[{ RowBox[{"likelyURLQ", "[", "_", "]"}], ":=", "False"}]], "Input", CellChangeTimes->{{3.782749268103547*^9, 3.782749272626904*^9}}, CellLabel->"In[49]:=", CellID->966577279] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", StyleBox["obj", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->342444036], Cell[TextData[{ "gives ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " if the object exists and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " otherwise." }], "UsageDescription", CellID->604917646] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"\"\\"", ",", StyleBox["head", "TI"], ",", StyleBox["test", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->446890327], Cell[TextData[{ "registers ", Cell[BoxData[ StyleBox["test", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as the function to call for objects of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Head", "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/Head", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " ", Cell[BoxData[ StyleBox["head", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in ", Cell[BoxData["ObjectExistsQ"], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->12860400] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "The following types of objects are supported: ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["BoxObject", "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/BoxObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CellObject", "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/CellObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ChannelObject", "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/ChannelObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", 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"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Databin", "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/Databin", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DatabaseReference", "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/DatabaseReference", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ExternalSessionObject", "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/ExternalSessionObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", 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"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["InputStream", "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/InputStream", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["LocalObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/LocalObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", 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"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["OutputStream", "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/OutputStream", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PermissionsGroup", "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/PermissionsGroup", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PersistentObject", "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/PersistentObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "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/ResourceFunction", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceObject", "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/ResourceObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SearchIndexObject", "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/SearchIndexObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TaskObject", "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/TaskObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", 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"], "." }], "Notes", CellID->749507735], Cell["\<\ URLs are considered to exist if an http request gives a 2XX or 3XX status \ code.\ \>", "Notes", CellID->505350503], Cell["Tasks are considered to exist if the have not completed.", "Notes", CellID->469585339], Cell[TextData[{ Cell[BoxData["ObjectExistsQ"], "InlineFormula", FontFamily->"Source Sans Pro"], " returns ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for unknown object types." }], "Notes", CellID->558506896], Cell[TextData[{ "More object types can be added for the kernel session using ", Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"\"\\"", ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->819636715] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Check if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PermissionsGroup", "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/PermissionsGroup", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827518551256857`*^9, 3.782751896134129*^9}}, CellID->111666979], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"PermissionsGroup", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782751835322648*^9, 3.782751851391507*^9}, { 3.782752011585758*^9, 3.782752012099009*^9}}, CellLabel->"In[1]:=", CellID->462586070], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.782751852497492*^9, {3.782752012736668*^9, 3.782752028665456*^9}}, CellLabel->"Out[1]=", CellID->208652600] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CreatePermissionsGroup", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/CreatePermissionsGroup", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to create the group:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827518986392508`*^9, 3.7827519016020937`*^9}, { 3.8584336860041227`*^9, 3.858433690394223*^9}}, CellID->23534381], Cell[BoxData[ RowBox[{ RowBox[{"CreatePermissionsGroup", "[", "\"\\"", "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782751912731873*^9, 3.782751913966893*^9}, { 3.7827520302928257`*^9, 3.782752033943873*^9}}, CellLabel->"In[2]:=", CellID->983545837], Cell["Now it exists:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782752039241288*^9, 3.782752042801258*^9}}, CellID->264684125], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"PermissionsGroup", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.782752211631319*^9}, CellLabel->"In[3]:=", CellID->83041460], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827520362649508`*^9, 3.782752214022859*^9}, CellLabel->"Out[3]=", CellID->184226572] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[CellGroupData[{ Cell["BoxObject and CellObject", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.783451543794293*^9, 3.783451546128045*^9}, { 3.783451608520879*^9, 3.783451612632924*^9}}, CellID->364574021], Cell[TextData[{ "Create a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["BoxObject", "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/BoxObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CellObject", "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/CellObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.783451719159143*^9, 3.783451739575889*^9}}, CellID->634472109], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cell", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], ",", RowBox[{"DynamicWrapper", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], ",", RowBox[{"box", "=", RowBox[{"EvaluationBox", "[", "]"}]}]}], "]"}]}], "}"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.783451567802307*^9, 3.783451567804985*^9}, { 3.783451693454417*^9, 3.7834517042276917`*^9}, {3.7834520157240467`*^9, 3.783452019540791*^9}}, CellLabel->"In[1]:=", CellID->942963516], Cell[BoxData[ TemplateBox[{507601, "507601", "\"Print\""}, "CellObject"]], "Output", TaggingRules->{}, CellChangeTimes->{3.783451590056735*^9, 3.783451705233996*^9, 3.783451890538804*^9, 3.783452020237463*^9}, CellLabel->"Out[1]=", CellID->562300146] }, Open ]], Cell["Both exist:", "Text", TaggingRules->{}, CellChangeTimes->{{3.783451742594699*^9, 3.7834517596430063`*^9}, { 3.858433712220216*^9, 3.858433712771402*^9}}, CellID->707172777], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "/@", RowBox[{"{", RowBox[{"box", ",", "cell"}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.783451621544873*^9, 3.783451640814096*^9}}, CellLabel->"In[2]:=", CellID->362985150], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.783451623048925*^9, 3.783451650921485*^9}, 3.783451708159724*^9, 3.783452023352858*^9}, CellLabel->"Out[2]=", CellID->389347013] }, Open ]], Cell[TextData[{ "Both can be deleted with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["NotebookDelete", "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/NotebookDelete", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.783451742594699*^9, 3.7834517596430063`*^9}, 3.858433709260545*^9}, CellID->824791961], Cell[BoxData[ RowBox[{"NotebookDelete", "@", "box"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.783451635425988*^9, 3.7834516354298286`*^9}}, CellLabel->"In[3]:=", CellID->500734814], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "/@", RowBox[{"{", RowBox[{"box", ",", "cell"}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.783451621544873*^9, 3.783451640814096*^9}}, CellLabel->"In[4]:=", CellID->923429465], Cell[BoxData[ RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.78345166180509*^9, 3.7834517114431353`*^9, 3.783452027707263*^9}, CellLabel->"Out[4]=", CellID->631162799] }, Open ]], Cell[BoxData[ RowBox[{"NotebookDelete", "@", "cell"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.783451672911175*^9, 3.7834516729141283`*^9}}, CellLabel->"In[5]:=", CellID->816849157], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "/@", RowBox[{"{", RowBox[{"box", ",", "cell"}], "}"}]}]], "Input", TaggingRules->{}, CellLabel->"In[6]:=", CellID->876260259], Cell[BoxData[ RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7834516806401567`*^9, 3.78345171655971*^9, 3.783452032693749*^9}, CellLabel->"Out[6]=", CellID->712424510] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ChannelObject", "Subsubsection", TaggingRules->{}, CellID->93629416], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ChannelObject", "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/ChannelObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " does not actually create a channel:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782752171255755*^9, 3.782752189689212*^9}}, CellID->239589917], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"ChannelObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752191242839*^9, 3.782752223295142*^9}}, CellLabel->"In[1]:=", CellID->997852464], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.782752207900901*^9, 3.7827522283646183`*^9}}, CellLabel->"Out[1]=", CellID->208652601] }, Open ]], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CreateChannel", "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/CreateChannel", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " makes the channel live:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827522832508793`*^9, 3.782752297846799*^9}}, CellID->694982758], Cell[BoxData[ RowBox[{ RowBox[{"CreateChannel", "[", RowBox[{"ChannelObject", "[", "\"\\"", "]"}], "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752232723617*^9, 3.782752259340342*^9}}, CellLabel->"In[2]:=", CellID->81706942], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"ChannelObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->806736858], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.782752242184512*^9, 3.782752255587268*^9}}, CellLabel->"Out[3]=", CellID->184226573] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CloudObject", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.782752121157756*^9}, CellID->556765908], Cell[TextData[{ "Using ", 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"], " does not actually create a cloud object:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782752171255755*^9, 3.782752189689212*^9}, { 3.7827523412245827`*^9, 3.782752349452186*^9}}, CellID->268294060], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752191242839*^9, 3.782752223295142*^9}, { 3.7827523545558643`*^9, 3.782752378453331*^9}}, CellLabel->"In[1]:=", CellID->366146033], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.782752207900901*^9, 3.7827522283646183`*^9}, 3.7827523806582117`*^9}, CellLabel->"Out[1]=", CellID->208652602] }, Open ]], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudPut", "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/CloudPut", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or similar functions creates the object:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827522832508793`*^9, 3.782752297846799*^9}, { 3.782752454901924*^9, 3.782752470837964*^9}}, CellID->746022038], Cell[BoxData[ RowBox[{ RowBox[{"CloudPut", "[", RowBox[{ RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "True"}], ",", RowBox[{"\"\\"", "\[Rule]", "True"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "|>"}]}], "|>"}], ",", "\"\\""}], "]"}], ";"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.782752232723617*^9, 3.782752259340342*^9}, { 3.782752383604722*^9, 3.7827524429577513`*^9}}, CellLabel->"In[2]:=", CellID->702037153], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7827524760446987`*^9}, CellLabel->"In[3]:=", CellID->743748355], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.782752242184512*^9, 3.782752255587268*^9}, 3.782752476640156*^9, 3.782757358183674*^9}, CellLabel->"Out[3]=", CellID->184226574] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Databin", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.7827521211648684`*^9}, CellID->81163671], Cell[TextData[{ "Check if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Databin", "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/Databin", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827525062263527`*^9, 3.782752510831621*^9}, { 3.782752556073546*^9, 3.782752558896435*^9}}, CellID->643573116], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", InterpretationBox[ RowBox[{ TagBox["Databin", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{15.646999999999998`, 5.933000000000001}, {13.585, 7.263}, {15.533, 8.458}, { 17.332, 7.363999999999999}, {15.646999999999998`, 5.933000000000001}}, {{12.697, 3.425}, {10.245, 5.212}, { 12.491, 6.591}, {14.725999999999999`, 5.1499999999999995`}, {12.697, 3.425}}, {{8.666, 0.}, { 5.978000000000001, 2.285}, {8.666, 4.244}, { 11.354000000000001`, 2.285}, {8.666, 0.}}, {{4.635, 3.425}, {2.606, 5.1499999999999995`}, {4.841, 6.591}, { 7.087, 5.212}, {4.635, 3.425}}, {{0., 7.363999999999999}, { 1.799, 8.458}, {3.7470000000000003`, 7.263}, { 1.6840000000000002`, 5.933000000000001}, {0., 7.363999999999999}}, CompressedData[" 1:eJxTTMoPSmViYGAQBmIQrbtp7vvlbqIOP+uy9pQIqzr8Wfnxkm+SjIPIOveH VVNUHNgbpzp3v1Fw2Pb575WKk0YOpnG7PHmYFB1eB+6Qa+U2djDvdEx4OkHR AWTMMSA/PQ0Ilik61NgDVQLVF9hyXV9coOKwp2SyBMs0FYcFUvp3Vdg04PbJ twJNikPwV4Gsn6DhAFQdxrdWxWHWTCCI1HAAOSMnXcXB42GVyLrjig5nz4CA hEMWyOAWRQd+kEfUJaDmKzpoxvQf+qoh4RDQOz1P6LCCA5N2u9jNcxIOlltO lO2bLwI3TxJoja6RCNw+kO7GqSJw96CHDwDEr32g "]}]}, FaceForm[ RGBColor[0.44721600000000006`, 0.519288, 0.528528, 1.]], StripOnInput -> False]}, { Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, Frame -> True, FrameTicks -> None, PlotRangePadding -> 2.5, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], ImageSize -> {18., 19.}, PlotRange -> {{0., 18.}, {0., 19.}}, AspectRatio -> Automatic}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Bob's Besties\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Entry count: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Lookup[ Replace[ DataDropClient`Private`datadropclientcache[{ "DatabinStats", "DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c"}], Except[ Blank[Association]] -> {}, {0}], "EntryCount", Missing[]], StandardForm]], "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[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{15.646999999999998`, 5.933000000000001}, {13.585, 7.263}, {15.533, 8.458}, { 17.332, 7.363999999999999}, {15.646999999999998`, 5.933000000000001}}, {{12.697, 3.425}, {10.245, 5.212}, { 12.491, 6.591}, {14.725999999999999`, 5.1499999999999995`}, {12.697, 3.425}}, {{8.666, 0.}, { 5.978000000000001, 2.285}, {8.666, 4.244}, { 11.354000000000001`, 2.285}, {8.666, 0.}}, {{4.635, 3.425}, {2.606, 5.1499999999999995`}, {4.841, 6.591}, { 7.087, 5.212}, {4.635, 3.425}}, {{0., 7.363999999999999}, { 1.799, 8.458}, {3.7470000000000003`, 7.263}, { 1.6840000000000002`, 5.933000000000001}, {0., 7.363999999999999}}, CompressedData[" 1:eJxTTMoPSmViYGAQBmIQrbtp7vvlbqIOP+uy9pQIqzr8Wfnxkm+SjIPIOveH VVNUHNgbpzp3v1Fw2Pb575WKk0YOpnG7PHmYFB1eB+6Qa+U2djDvdEx4OkHR AWTMMSA/PQ0Ilik61NgDVQLVF9hyXV9coOKwp2SyBMs0FYcFUvp3Vdg04PbJ twJNikPwV4Gsn6DhAFQdxrdWxWHWTCCI1HAAOSMnXcXB42GVyLrjig5nz4CA hEMWyOAWRQd+kEfUJaDmKzpoxvQf+qoh4RDQOz1P6LCCA5N2u9jNcxIOlltO lO2bLwI3TxJoja6RCNw+kO7GqSJw96CHDwDEr32g "]}]}, FaceForm[ RGBColor[0.44721600000000006`, 0.519288, 0.528528, 1.]], StripOnInput -> False]}, { Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, Frame -> True, FrameTicks -> None, PlotRangePadding -> 2.5, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], ImageSize -> {18., 19.}, PlotRange -> {{0., 18.}, {0., 19.}}, AspectRatio -> Automatic}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Bob's Besties\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Entry count: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Lookup[ Replace[ DataDropClient`Private`datadropclientcache[{ "DatabinStats", "DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c"}], Except[ Blank[Association]] -> {}, {0}], "EntryCount", Missing[]], StandardForm]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Short ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"I5b8CGbd\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"ShortURL: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"https://wolfr.am/I5b8CGbd\"", "https://wolfr.am/I5b8CGbd"}, "HyperlinkURL"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Short ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"I5b8CGbd\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"ShortURL: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"https://wolfr.am/I5b8CGbd\"", "https://wolfr.am/I5b8CGbd"}, "HyperlinkURL"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Creator: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"bobs@wolfram.com\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Owner: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"bobs@wolfram.com\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Creation date: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Thu 14 Nov 2019 14:35:33\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Latest date: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Replace[ Lookup[ Replace[ DataDropClient`Private`datadropclientcache[{ "DatabinLatest", "DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c"}], Except[ Blank[Association]] -> {}, {0}], "Timestamp", Missing[]], Pattern[DataDropClient`Private`date, Blank[DateObject]] :> DateString[DataDropClient`Private`date], {0}], StandardForm]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ (If[ NumberQ[#], Round[#, 0.1], #]& )[ Lookup[ Replace[ DataDropClient`Private`datadropclientcache[{ "DatabinStats", "DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c"}], Except[ Blank[Association]] -> {}, {0}], "Size", Missing[]]], StandardForm]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Latest: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Lookup[ Replace[ DataDropClient`Private`datadropclientcache[{ "DatabinLatest", "DD56fc165e43d-4daa-4733-bf45-ff3bf0e33f0c"}], Except[ Blank[Association]] -> {}, {0}], "Data", Missing[]], StandardForm]], "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:>{}], "]"}], Databin["I5b8CGbd"], Editable->False, SelectWithContents->True, Selectable->False], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752549701707*^9, 3.78275255162181*^9}}, CellLabel->"In[1]:=", CellID->494384319], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.78275255238066*^9}, CellLabel->"Out[1]=", CellID->978554558] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DatabaseReference", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7827571144904118`*^9, 3.7827571170515833`*^9}}, CellID->448857031], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DatabaseReference", "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/DatabaseReference", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists if it is backed by a file that exists or if it is connected:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782757119769462*^9, 3.782757147312572*^9}}, CellID->817179552], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"DatabaseReference", "[", RowBox[{ "FindFile", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827571523029537`*^9, 3.7827571538543053`*^9}}, CellLabel->"In[1]:=", CellID->703695031], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782757154483149*^9}, CellLabel->"Out[1]=", CellID->978554559] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"DatabaseReference", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782757163526815*^9, 3.782757183766274*^9}}, CellLabel->"In[2]:=", CellID->647463773], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.78275718433055*^9}, CellLabel->"Out[2]=", CellID->41147768] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ExternalSessionObject", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.782755115951563*^9, 3.782755120594171*^9}}, CellID->209095808], Cell["External sessions exist while they are active:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782755226031625*^9, 3.782755236251272*^9}}, CellID->880335643], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"session", "=", RowBox[{"StartExternalSession", "[", "\"\\"", "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->735103041], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ExternalSessionObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ Hue[0.5766283524904214, 0.6682027649769585, 0.651], EdgeForm[None], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{58, 120}, { 60, 120}, {62, 118}, {62, 115}, {62, 112}, {60, 110}, {58, 110}, {55, 110}, {53, 112}, {53, 115}, {53, 118}, {55, 120}, {58, 120}}, {{72, 128}, {44, 128}, {46, 116}, {46, 116}, {46, 104}, {73, 104}, {73, 100}, {36, 100}, {36, 100}, {18, 102}, {18, 74}, {18, 45}, {33, 46}, {33, 46}, {43, 46}, {43, 59}, {43, 59}, {42, 75}, {58, 75}, {85, 75}, {85, 75}, {99, 75}, {99, 89}, {99, 114}, {99, 114}, {102, 128}, { 72, 128}}}]}, { Hue[0.1164, 0.745, 0.99], EdgeForm[None], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{88, 27}, {85, 27}, {83, 29}, {83, 32}, {83, 34}, {85, 37}, {88, 37}, {91, 37}, {93, 34}, {93, 32}, {93, 29}, {91, 27}, {88, 27}}, {{73, 18}, {101, 18}, {99, 31}, {99, 31}, {99, 43}, {73, 43}, {73, 47}, {110, 47}, {110, 47}, {128, 45}, {128, 73}, {128, 102}, {112, 101}, {112, 101}, {103, 101}, {103, 87}, {103, 87}, {104, 72}, {88, 72}, {61, 72}, {61, 72}, {46, 72}, {46, 57}, {46, 33}, {46, 33}, {44, 18}, {73, 18}}}]}}, { ImageSize -> {Automatic, Dynamic[3.5 CurrentValue["FontCapHeight"]]}, ImageSize -> {Automatic, Dynamic[3.5 CurrentValue["FontCapHeight"]]}}], GridBox[{{ RowBox[{ TagBox["\"System: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Python\"", "SummaryItem"]}], RowBox[{ TagBox["\"EvaluationCount: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ If[$SessionID === 20486459723245828231, ExternalSessionObject[ "f2d65097-b79a-416f-9125-00c08257756d"][ "EvaluationCount"], None], StandardForm], TrackedSymbols :> {$SessionID, ExternalEvaluate`Private`$Links}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"f2d65097-b79a-416f-9125-00c08257756d\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, 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[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ Hue[0.5766283524904214, 0.6682027649769585, 0.651], EdgeForm[None], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{58, 120}, { 60, 120}, {62, 118}, {62, 115}, {62, 112}, {60, 110}, {58, 110}, {55, 110}, {53, 112}, {53, 115}, {53, 118}, {55, 120}, {58, 120}}, {{72, 128}, {44, 128}, {46, 116}, {46, 116}, {46, 104}, {73, 104}, {73, 100}, {36, 100}, {36, 100}, {18, 102}, {18, 74}, {18, 45}, {33, 46}, {33, 46}, {43, 46}, {43, 59}, {43, 59}, {42, 75}, {58, 75}, {85, 75}, {85, 75}, {99, 75}, {99, 89}, {99, 114}, {99, 114}, {102, 128}, { 72, 128}}}]}, { Hue[0.1164, 0.745, 0.99], EdgeForm[None], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, {{{88, 27}, {85, 27}, {83, 29}, {83, 32}, {83, 34}, {85, 37}, {88, 37}, {91, 37}, {93, 34}, {93, 32}, {93, 29}, {91, 27}, {88, 27}}, {{73, 18}, {101, 18}, {99, 31}, {99, 31}, {99, 43}, {73, 43}, {73, 47}, {110, 47}, {110, 47}, {128, 45}, {128, 73}, {128, 102}, {112, 101}, {112, 101}, {103, 101}, {103, 87}, {103, 87}, {104, 72}, {88, 72}, {61, 72}, {61, 72}, {46, 72}, {46, 57}, {46, 33}, {46, 33}, {44, 18}, {73, 18}}}]}}, { ImageSize -> {Automatic, Dynamic[3.5 CurrentValue["FontCapHeight"]]}, ImageSize -> {Automatic, Dynamic[3.5 CurrentValue["FontCapHeight"]]}}], GridBox[{{ RowBox[{ TagBox["\"System: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Python\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"EvaluationCount: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ If[ And[ ValueQ[ExternalEvaluate`Private`$Links], KeyExistsQ[ ExternalEvaluate`Private`$Links, "f2d65097-b79a-416f-9125-00c08257756d"]], ExternalEvaluate`Private`$Links[ "f2d65097-b79a-416f-9125-00c08257756d", "EvaluationCount"], None], StandardForm]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"f2d65097-b79a-416f-9125-00c08257756d\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Process: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"ProcessObject", "[", RowBox[{"{", RowBox[{ RowBox[{"\"ManagedProcess\"", "\[Rule]", "True"}], ",", RowBox[{"\"UID\"", "\[Rule]", "6"}], ",", RowBox[{"\"PID\"", "\[Rule]", "41571"}], ",", RowBox[{"\"PPID\"", "\[Rule]", "18275"}], ",", RowBox[{"\"Program\"", "\[Rule]", "\"python3.7\""}], ",", RowBox[{ "\"Path\"", "\[Rule]", "\"/usr/local/Cellar/python/3.7.3/Frameworks/Python.\ framework/Versions/3.7/bin/python3.7\""}], ",", RowBox[{"\"User\"", "\[Rule]", "\"bobs\""}], ",", RowBox[{"\"StartTime\"", "\[Rule]", "1573766337"}]}], "}"}], "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Epilog: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Missing", "[", RowBox[{"\"KeyAbsent\"", ",", "\"Epilog\""}], "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Prolog: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Missing", "[", RowBox[{"\"KeyAbsent\"", ",", "\"Prolog\""}], "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"SessionEpilog: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"SessionProlog: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"3.7.3\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Executable: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"/usr/local/bin/python3\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"ReturnType: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Expression\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"SessionOptions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Active: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["True", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Socket: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ RowBox[{ TagBox["SocketObject", "SummaryHead"], "[", DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ GeometricTransformationBox[{{{ FilledCurveBox[{{ Line[{{36.558, 8.569}, {40.947, 8.569}, {40.947, 43.684000000000005`}, {36.558, 43.684000000000005`}, { 36.558, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{59.053, 8.569}, {63.443, 8.569}, {63.443, 43.684000000000005`}, {59.053, 43.684000000000005`}, { 59.053, 8.569}}]}}]}, {{ FilledCurveBox[{{ Line[{{55.487, 8.569}, {56.95, 8.569}, {56.95, 21.188000000000002`}, {55.487, 21.188000000000002`}, { 55.487, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{52.562, 8.569}, {54.025, 8.569}, {54.025, 21.188000000000002`}, {52.562, 21.188000000000002`}, { 52.562, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{49.636, 8.569}, {51.099000000000004`, 8.569}, { 51.099000000000004`, 21.188000000000002`}, {49.636, 21.188000000000002`}, {49.636, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{46.709, 8.569}, {48.172000000000004`, 8.569}, { 48.172000000000004`, 21.188000000000002`}, {46.709, 21.188000000000002`}, {46.709, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{43.783, 8.569}, {45.246, 8.569}, {45.246, 21.188000000000002`}, {43.783, 21.188000000000002`}, { 43.783, 8.569}}]}}]}}, { FilledCurveBox[{{ Line[{{40.947, 4.911}, {59.787000000000006`, 4.911}, { 59.787000000000006`, 6.922}, {40.947, 6.922}, {40.947, 4.911}}]}}]}, { FilledCurveBox[{{ Line[{{44.057, 31.675}, {56.678000000000004`, 31.675}, { 56.678000000000004`, 39.051}, {44.057, 39.051}, {44.057, 31.675}}]}}]}, { FilledCurveBox[{{ Line[{{44.057, 43.685}, {56.678000000000004`, 43.685}, { 56.678000000000004`, 65.089}, {44.057, 65.089}, {44.057, 43.685}}]}}]}}}, {{{1, 0}, {0, -1}}, Center}], { ImageSize -> {Automatic, Dynamic[3.5 CurrentValue["FontCapHeight"]]}, PlotRange -> {{20, 80}, {0, 70}}, BaseStyle -> {CacheGraphics -> False}, ImageSize -> 30}], GridBox[{{ RowBox[{ TagBox["\"IPAddress: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"127.0.0.1\"", "SummaryItem"]}], RowBox[{ TagBox["\"Port: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"52549\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"bd5b6370-42e5-47c1-90ea-d285f09f1c27\"", "SummaryItem"]}], RowBox[{ TagBox["\"Protocol: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"ZMQ_PAIR\"", "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[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ GeometricTransformationBox[{{{ FilledCurveBox[{{ Line[{{36.558, 8.569}, {40.947, 8.569}, {40.947, 43.684000000000005`}, {36.558, 43.684000000000005`}, { 36.558, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{59.053, 8.569}, {63.443, 8.569}, {63.443, 43.684000000000005`}, {59.053, 43.684000000000005`}, { 59.053, 8.569}}]}}]}, {{ FilledCurveBox[{{ Line[{{55.487, 8.569}, {56.95, 8.569}, {56.95, 21.188000000000002`}, {55.487, 21.188000000000002`}, { 55.487, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{52.562, 8.569}, {54.025, 8.569}, {54.025, 21.188000000000002`}, {52.562, 21.188000000000002`}, { 52.562, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{49.636, 8.569}, {51.099000000000004`, 8.569}, { 51.099000000000004`, 21.188000000000002`}, {49.636, 21.188000000000002`}, {49.636, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{46.709, 8.569}, {48.172000000000004`, 8.569}, { 48.172000000000004`, 21.188000000000002`}, {46.709, 21.188000000000002`}, {46.709, 8.569}}]}}]}, { FilledCurveBox[{{ Line[{{43.783, 8.569}, {45.246, 8.569}, {45.246, 21.188000000000002`}, {43.783, 21.188000000000002`}, { 43.783, 8.569}}]}}]}}, { FilledCurveBox[{{ Line[{{40.947, 4.911}, {59.787000000000006`, 4.911}, { 59.787000000000006`, 6.922}, {40.947, 6.922}, {40.947, 4.911}}]}}]}, { FilledCurveBox[{{ Line[{{44.057, 31.675}, {56.678000000000004`, 31.675}, { 56.678000000000004`, 39.051}, {44.057, 39.051}, {44.057, 31.675}}]}}]}, { FilledCurveBox[{{ Line[{{44.057, 43.685}, {56.678000000000004`, 43.685}, { 56.678000000000004`, 65.089}, {44.057, 65.089}, {44.057, 43.685}}]}}]}}}, {{{1, 0}, {0, -1}}, Center}], { ImageSize -> {Automatic, Dynamic[3.5 CurrentValue["FontCapHeight"]]}, PlotRange -> {{20, 80}, {0, 70}}, BaseStyle -> {CacheGraphics -> False}, ImageSize -> 30}], GridBox[{{ RowBox[{ TagBox[ "\"DestinationIPAddress: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"IPAddress", "[", "\"127.0.0.1\"", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"DestinationPort: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"52549\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"SourceIPAddress: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"IPAddress", "[", "\"::e400:39c0:b8f5:10b3\"", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"SourcePort: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"0\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Protocol: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"ZMQ_PAIR\"", "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 :> {}], "]"}], SocketObject["bd5b6370-42e5-47c1-90ea-d285f09f1c27"], Selectable -> False, Editable -> False, SelectWithContents -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"ProcessMemory: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ If[ And[ ValueQ[ExternalEvaluate`Private`$Links], KeyExistsQ[ ExternalEvaluate`Private`$Links, "f2d65097-b79a-416f-9125-00c08257756d"]], ExternalEvaluate`Private`$Links[ "f2d65097-b79a-416f-9125-00c08257756d", "ProcessMemory"], None], StandardForm]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"ProcessThreads: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ If[ And[ ValueQ[ExternalEvaluate`Private`$Links], KeyExistsQ[ ExternalEvaluate`Private`$Links, "f2d65097-b79a-416f-9125-00c08257756d"]], ExternalEvaluate`Private`$Links[ "f2d65097-b79a-416f-9125-00c08257756d", "ProcessThreads"], None], StandardForm]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"SessionTime: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ If[ And[ ValueQ[ExternalEvaluate`Private`$Links], KeyExistsQ[ ExternalEvaluate`Private`$Links, "f2d65097-b79a-416f-9125-00c08257756d"]], ExternalSessionObject[ "f2d65097-b79a-416f-9125-00c08257756d"]["SessionTime"], None], StandardForm]], "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:>{}], "]"}], ExternalSessionObject["f2d65097-b79a-416f-9125-00c08257756d"], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.782755137885159*^9}, CellLabel->"Out[1]=", CellID->506461526] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "session", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827551396028*^9, 3.782755143377707*^9}}, CellLabel->"In[2]:=", CellID->437764567], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782755144080202*^9, 3.7827552119856377`*^9}, CellLabel->"Out[2]=", CellID->738293886] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DeleteObject", "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/DeleteObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to end the session:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.78275523983401*^9, 3.782755252442294*^9}}, CellID->854765313], Cell[BoxData[ RowBox[{"DeleteObject", "[", "session", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782755213084889*^9, 3.7827552165272207`*^9}}, CellLabel->"In[3]:=", CellID->177168452], Cell["Now, the session no longer exists:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782755226031625*^9, 3.782755236251272*^9}, { 3.8584337783927917`*^9, 3.858433782280756*^9}}, CellID->404468113], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "session", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->506617662], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827552216440363`*^9}, CellLabel->"Out[4]=", CellID->282530333] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["File", "Subsubsection", TaggingRules->{}, CellID->711973067], Cell[TextData[{ "For a ", 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"], ", ", Cell[BoxData["ObjectExistsQ"], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["FileExistsQ", "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/FileExistsQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782752568209125*^9, 3.782752593972583*^9}, { 3.858433826720969*^9, 3.85843382685847*^9}}, CellID->638179526], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"File", "[", "$InstallationDirectory", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752597135977*^9, 3.782752618006199*^9}}, CellLabel->"In[1]:=", CellID->463121232], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782752618490553*^9}, CellLabel->"Out[1]=", CellID->978554560] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"File", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827526239294024`*^9, 3.782752629686934*^9}, { 3.7827542151460323`*^9, 3.782754223708989*^9}}, CellLabel->"In[2]:=", CellID->795406729], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.782752630131093*^9, 3.782754224805839*^9}, CellLabel->"Out[2]=", CellID->41147769] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["LocalObject", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.782752121229007*^9}, CellID->222165098], Cell[TextData[{ "For a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["LocalObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/LocalObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["ObjectExistsQ"], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["FileExistsQ", "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/FileExistsQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782752568209125*^9, 3.782752593972583*^9}, { 3.782752777843718*^9, 3.782752783202222*^9}, {3.858433822685727*^9, 3.858433822760149*^9}}, CellID->482150324], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"LocalObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752597135977*^9, 3.782752618006199*^9}, { 3.7827527873763103`*^9, 3.782752796015223*^9}, {3.782754065413282*^9, 3.782754107409726*^9}}, CellLabel->"In[1]:=", CellID->787872007], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.782752618490553*^9, 3.782752796488762*^9, {3.782754084322584*^9, 3.78275411022974*^9}}, CellLabel->"Out[1]=", CellID->208652603] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Put", "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/Put", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to create the local object:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782754186447394*^9, 3.7827541992325897`*^9}}, CellID->682077177], Cell[BoxData[ RowBox[{ RowBox[{"Put", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], ",", RowBox[{"LocalObject", "[", "\"\\"", "]"}]}], "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752802204722*^9, 3.782752815312348*^9}, { 3.782754087880377*^9, 3.78275414329004*^9}}, CellLabel->"In[2]:=", CellID->439397364], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"LocalObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827526239294024`*^9, 3.782752629686934*^9}, 3.782752822294818*^9, 3.7827541462928333`*^9}, CellLabel->"In[3]:=", CellID->668541881], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.782752630131093*^9, {3.782752817460291*^9, 3.7827528226003513`*^9}, 3.782754147187118*^9}, CellLabel->"Out[3]=", CellID->184226575] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["NotebookObject", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.782752121258081*^9}, CellID->420400785], Cell[TextData[{ "A ", 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"], " exists only if the window has not been closed:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782752832839881*^9, 3.7827528571350727`*^9}}, CellID->768045358], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nb", "=", RowBox[{"CreateDocument", "[", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752862103445*^9, 3.78275297866145*^9}}, CellLabel->"In[1]:=", CellID->915736431], Cell[BoxData[ TemplateBox[{ FrontEndObject[ LinkObject["ttin8_shm", 3, 1]], 318, "FrontEndObject[LinkObject[\"ttin8_shm\", 3, 1]]", "318", "\"Untitled-41\""}, "NotebookObjectUnsaved"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.782752937560079*^9, {3.782752971766856*^9, 3.7827529804002237`*^9}}, CellLabel->"Out[1]=", CellID->585865608] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "nb", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827529836188087`*^9, 3.782752985962429*^9}}, CellLabel->"In[2]:=", CellID->263968285], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782752986630314*^9}, CellLabel->"Out[2]=", CellID->738293887] }, Open ]], Cell[TextData[{ "Closing the window destroys the ", 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"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782753012529786*^9, 3.782753025908208*^9}}, CellID->248475636], Cell[BoxData[ RowBox[{"NotebookClose", "[", "nb", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752990779151*^9, 3.782752996795011*^9}}, CellLabel->"In[3]:=", CellID->520289788], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "nb", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782753002977347*^9, 3.78275300486944*^9}}, CellLabel->"In[4]:=", CellID->949223962], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.782753005370689*^9}, CellLabel->"Out[4]=", CellID->282530334] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["PermissionsGroup", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.782752121312889*^9}, CellID->472072086], Cell[TextData[{ "Check if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PermissionsGroup", "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/PermissionsGroup", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827518551256857`*^9, 3.782751896134129*^9}}, CellID->111666980], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"PermissionsGroup", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782751835322648*^9, 3.782751851391507*^9}, { 3.782752011585758*^9, 3.782752012099009*^9}}, CellLabel->"In[1]:=", CellID->462586071], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.782751852497492*^9, {3.782752012736668*^9, 3.782752028665456*^9}}, CellLabel->"Out[1]=", CellID->208652604] }, Open ]], Cell[TextData[{ "Create the group with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CreatePermissionsGroup", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/CreatePermissionsGroup", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827518986392508`*^9, 3.7827519016020937`*^9}, { 3.8584338482064047`*^9, 3.858433854957295*^9}}, CellID->838461646], Cell[BoxData[ RowBox[{ RowBox[{"CreatePermissionsGroup", "[", "\"\\"", "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782751912731873*^9, 3.782751913966893*^9}, { 3.7827520302928257`*^9, 3.782752033943873*^9}}, CellLabel->"In[2]:=", CellID->983545838], Cell["Now it exists:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782752039241288*^9, 3.782752042801258*^9}}, CellID->264684126], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"PermissionsGroup", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.782752211631319*^9}, CellLabel->"In[3]:=", CellID->83041461], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827520362649508`*^9, 3.782752214022859*^9}, CellLabel->"Out[3]=", CellID->184226576] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["PersistentObject", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.7827521213196783`*^9}, CellID->996220702], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PersistentObject", "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/PersistentObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " does not actually create a persistent object:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782752171255755*^9, 3.782752189689212*^9}, { 3.7827523412245827`*^9, 3.782752349452186*^9}, {3.78275310531287*^9, 3.782753122085538*^9}}, CellID->925876094], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"po", "=", RowBox[{"PersistentObject", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782753301427375*^9, 3.782753302028159*^9}}, CellLabel->"In[1]:=", CellID->634819237], Cell[BoxData[ RowBox[{"PersistentObject", "[", RowBox[{"\<\"MyBestBestie\"\>", ",", "\<\"KernelSession\"\>"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.782753302423901*^9}, CellLabel->"Out[1]=", CellID->355705342] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "po", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782752191242839*^9, 3.782752223295142*^9}, { 3.7827523545558643`*^9, 3.782752378453331*^9}, {3.782753125546999*^9, 3.782753138470992*^9}, {3.78275327170732*^9, 3.782753304515006*^9}}, CellLabel->"In[2]:=", CellID->49038790], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.782752207900901*^9, 3.7827522283646183`*^9}, 3.7827523806582117`*^9, 3.782753139143064*^9, 3.7827532078947773`*^9, { 3.782753282228898*^9, 3.7827533049648943`*^9}}, CellLabel->"Out[2]=", CellID->41147770] }, Open ]], Cell["Assign a value to create the object:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782753320252761*^9, 3.782753331965089*^9}}, CellID->178119234], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"po", "[", "\"\\"", "]"}], "=", "\"\\""}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782753260165307*^9, 3.7827533079242687`*^9}}, CellLabel->"In[3]:=", CellID->957729659], Cell[BoxData["\<\"Joel\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.782753289182472*^9, 3.782753308420874*^9}}, CellLabel->"Out[3]=", CellID->633230118] }, Open ]], Cell["Now it exists:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782753320252761*^9, 3.782753331965089*^9}, { 3.858434062903511*^9, 3.8584340662861023`*^9}}, CellID->264684127], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "po", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->195366319], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782753314734158*^9}, CellLabel->"Out[4]=", CellID->676276385] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ResourceFunction", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.7827521213496733`*^9}, CellID->332876200], Cell[TextData[{ "Check if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "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/ResourceFunction", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782753970703414*^9, 3.7827539834917727`*^9}, 3.782754242834402*^9}, CellID->49445880], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rf", "=", RowBox[{"DefineResourceFunction", "[", RowBox[{ RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"$BobsBesties", ",", "#"}], "]"}], "&"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827539849899673`*^9, 3.782754015657551*^9}}, CellLabel->"In[1]:=", CellID->931238824], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->GrayLevel[0.15]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"AddToBesties\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", GrayLevel[0.15], "\"AddToBesties\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[<|{ "Name" -> "AddToBesties", "ShortName" -> "AddToBesties", "ResourceType" -> "Function", "UUID" -> "a9dcb2e6-3524-4460-b5d7-530c636f5f5b", "FunctionLocation" -> None, "SymbolName" -> "FunctionRepository`$a9dcb2e635244460b5d7530c636f5f5b`AddToBesties", "Version" -> None}|>]], Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.782754016501727*^9}, CellLabel->"Out[1]=", CellID->683620754] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "rf", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827540209399853`*^9, 3.782754022874127*^9}}, CellLabel->"In[2]:=", CellID->370987501], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827540234970016`*^9}, CellLabel->"Out[2]=", CellID->738293888] }, Open ]], Cell["Delete the resource:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782754038565516*^9, 3.7827540537308826`*^9}}, CellID->271149672], Cell[BoxData[ RowBox[{"DeleteObject", "[", "rf", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754025876898*^9, 3.782754028511467*^9}}, CellLabel->"In[3]:=", CellID->992713386], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "rf", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827540320725403`*^9, 3.782754034075259*^9}}, CellLabel->"In[4]:=", CellID->528325768], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754034510858*^9}, CellLabel->"Out[4]=", CellID->282530335] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Functions published in the ", ButtonBox["Wolfram Function Repository", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/"], None}, ButtonNote->"https://resources.wolframcloud.com/FunctionRepository/"], " always exist:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782754815675991*^9, 3.7827548375957212`*^9}, { 3.858434095669318*^9, 3.858434120505014*^9}}, CellID->919606888], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754795683447*^9, 3.782754802677297*^9}}, CellLabel->"In[1]:=", CellID->570839747], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754805207312*^9}, CellLabel->"Out[1]=", CellID->978554561] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754843463443*^9, 3.782754856534748*^9}}, CellLabel->"In[2]:=", CellID->431573254], Cell[BoxData[ InterpretationBox[ PanelBox["\<\"I ain't migratin' nowhere\"\>", Appearance->Image[CompressedData[" 1:eJztfQdAVFe+98y9dwpTYOhNepEivVtBpQhoaAIi0pk+A2qiCCgmG8WGJNHE xFgSNWJXlDa4idnsJvl2s/sSd/f7krz93mbNxtRVo4KNMu+ceymXAYZBwJHx /vaEncHh3jPn/O6/n3NcisrShAiNRlvLBj/SCtfHrFlTuCFdAN4sV66ViJSl JUuUz5eKStdEFqHgl619/8HXagpPN6g5ojAifvjhhyvD8Pnnn+u7XxT0CcCB 2tralJQUGxsb2liIjIxMSEioqakBf6XvjlOYQty6dauhoaG8vBzM+JisGJMz 9fX1QPjo+ztRmDR8+eWXBQUFbDZ7gtwYjujo6H379t2/f1/fX5HC4+P8+fNA TegoHKKHQUeZIxAIKioqKMEyvQA0C3jAnZ2dtbMCqB6ggL755psxL/jpp5/q oqrEYjG49dR/PwoTRWtr62i2KKDNxI1PQIPDhw8Di3fEW4Bbgw5M0lehMPkA 0wdsjxHnDigdoHom/XbAfB1RXoHbUdrnKcSIAgQYq0AFAMN1Sm8NNFFgYKDG rYGhAgTOlN6Xgu4AzgWwG4fTo7a29klaCOB2wx0oSqQ8Dfj888+9vLw0pgaY l1MtPUYE4MNwZwqIFCpyq0eAwQdTMFyA6LdXQMto9Aq8pUK1egFwXTWMECBS gK+q735BAJGSnZ2twV7K63nCAAzRcCvKy8uftsgnECkUT/SF4QypqanRd6dG xnCeUC7PEwBwWDQs1aeWIQQ0eAJA8WRKARSKRkTiKWcIAcAKsncMXlP+ztRB LBaTGQLe6rtHugJYI2SeAKo/bRaUYQB4kWSGFBQU6LtH48P58+fJ/a+oqNB3 jwwN4LkjG6uRkZH67tHjQEMSPiUOu8GAPLzTV6drUB28ppTOZAE8cdPOWB0N Gt9lGplVTzPAs0b2ecHr6f70aaQjqYj9xKExpAagxzUc+ZSUFH33aHrjhx9+ IHuOBiOcgU1FZv40NbGeEtTX1w+MpI2NzXRXNGSQiwrKy8v13Z1pDLIvAAij 7+5MJshhEyAtqQrqx4PGMBpeiZcBPwJPDAYvkDWUqb67M/0AxC/ZZDVI007j O056Pb/Bo6GhYWD0pmkQXhcACTnwNbOzs/XdnWkG8gqaaR1i1Q6yLwxMFH13 Z5qBXEtskLpmAORvanjG+dSBnOAw+OeLvGKUMkt0x759+wbGbdrVjYwXQJka thM3RSAXBhh8AIFcTBUdHa3v7kwbkPNfBp8kBY7wwJcFHrEhpR6mFOTowbMQ ryY/FIZtpU8Wvvnmm2fHaiVA9vepBRe6gBw6eEZ0NLlmBhjt+u7ONMAzaMjV 1tYOfGUDjhxOIsgkMXj/lwB5lR9RWEWjdqXWCvKIPYMkIewTfffoaQdFEn13 ZxqAXGv0jIwYmSTUyj5dQLZJnpFKcjJJKMNVFzyD3g05faP37bymBcjBtMDA QH1350mACqaNFxq5DH1350kACMyBr2zwuarJAnld57OQyyB/X71sLjodQa7D aWho0Hd3phb3798nJzSpLLCOIIepDb4Oh2yoPyM22KSAHCox4FJ5AuTVNwb/ REwiyLYrzdDLg8lr0Axet04uyAa/AXuFGuuzdDmhicIAyGaJAcddybFWg1es kw5ySM2AKz/JusbgS76nAuTogUEOoMZWNoZtek0RyGY/IIy+uzP5IC8Efkay VJMOw150r7HTl4F9uycJ8rPG4XAMKa9BtswNUk4+MZw4cYKstQ3mcQNmOVmM GKTF9cSgcfyuwQRMyE6NgW0Y+IShYfw3Nzfru0eTA40TcKgo60RAFiMGE08D 9ip5QxJqd6OJQOPgEoOpKiEf4AjYQsVGJgKD3Fhb48gbgzGx9AKNwTQMMaJx Ri0VPZsgDE+MaJxACvxfKuE7ERieGBl+Ri21dcAEQRYjBnAsxTQ6xXi6wMD2 k79165bGGbUGQHu9gzyk073gEzBcgyHPyNLmKYUhiRHg3pKDZhRDJguGIUaA itFIOQEkJCTou1+GAMMQI62treRgyABDqBTepGByxQjgGJiXJ7lkEggQ8rrv AbZTuwRMFiZdjERERKAoimHY1atXJ6WHWgCc3IqKCg0LhIZXv1MLeycLGkeg TlCMAL75+vqSJys7O3uKDoq9cuUKOWFHBiVAJhfkgueJiBFgD2i4nGRER0fv 27dvskwd4LyQi/nJAL83gMOLnyoAMUK29B5PjIAnmrziTzvAJ8FjPt5yWaBT GhoaQPeAEhntyuCLgCtTNuqkY4JiRAs94uLiNPTOcIAZB38OLIqamhqgp66Q AGRFDQ7gzw53WIZfh8r7TxE0xMi4Nh7UQg/gZQzkWIHkH81smBSAe1HKZUrx eAeIf/7558OjVcPpQQbwT8GTrrtKGhNAdABKT9NgzjSChhjRZVnBY9BDA2Ba xzQtRgToKrj1YxgzFCaCcYkRLfQAv3+8cAS4I2F+gJ7U9CMhISEax8BvgK1C FQjpBbqLETBBoxkVgB4GUJJEYTToIkYAPYYHuil6PCMYU4xooQdQBBQ9ngVo ESPAsCQf5alBD8pofEYwmhgB9ABOB3kZNUWPZxbDxQhFj6cQPT09HR0dd+7c 1QX4pzrAn0zKrTVWwgIHczR6BAYGGsxGE9MIDx8+7OzsBPRQtV9etDg2NCwi MioqEiAiIjIichAR/Q0gKio0PGJBzKKm5hbwh/fu3QNXePDgwWP3gbwpDQ1P 1lD0eBoA5hTQ4/btO9u270xJTctYnhURORtF0RGNwxGBIGhoaMTyzOzMzOzU tPQX1lXcvHmrq6trvD3R2ACKoofe0YMDzOb6ig0KZZlYInN2cUNw0AEQFEFR BPwfaDQ6bPT+hr9FYKMh/Z+E/9/3t4iZuWVubl5lVfXNmzeJu+jYJQ0xQoaz szNFjycM8Jj/7qOPXtu7p6i4mMPhEIV8dBo+0XRcONDoLDpqwTRx4lp7Gc8I tXSPsQ+IdQxZaB8433pWlKVXiLmbr6mjE9eCh7JQGvwjOhQpkDHwB4KAyxYU FOzZs+fD3/3u0aNHY3ZpNDEC6EEl2Z8wwHx9/Mmnp8+cTUhKBPPIwDBIC6Rv Rhg0xJrJ8xXMiLHxy3ZZUO6Xtjksr36O8Ej8880pv2nPqG1+7qXziRtPxFe8 s2j1G/MlL4esFHslJM8IDbfw8OTbWDK4KCQLQRg6xsA4Rpy4+PjTp898/PEn QKlp6dhwMULRQy/o6upubm4NDgnjG5uwSI8tSkctmSaz+I7xNkEK36S3Fso/ ydz179Kjv0jO3BSfvSs6d0984b7sEmj3pBc7pY33JBc7JY23peduSs78KDrx 97y3GpNrdkcVC2cuXmDp7cazNsU4DKiVIFtYLBafLwgMCj1x8tQXX1wdjSpk MQI8X4oeegFQMZeaLgUEBdERbGA6gBwRMDiBJs6SWcknEiuv5r7xbdGRW8KT D6UXepUtamW7WtGulqvw1kZq4JftPQpVr1KlVrapZc33RI0/lZz6V/G7f8p+ 5c2Fyiy3BTO51maYERMhRAuNyWDZz3D08fF7a//bIyZiBuhRX19PFfg9eQB6 dHR0NjU1B4cEwscbtxyAyWGCGAULnMsDlp1KrvxbwVu/Ss+rFWDSVWpFW6+8 tYfUeokm62/424F/UsPWhv/tb8Hbn4Wn/rTyjQPxawu9Y2fxZvAQJgYsYDq9 T4m4uu59fS9wlvU9KhQG0Xnv3hv73lyRkxseEQmtUzoN/MeloyGmLs8HpwED 48tVBzpk53oUzWow+9JBDqiHtl5SG/mfZK09sjb4U9n2sLz1F+mZz3NePx2/ XuqT6GlkxQCOEQYtWuAHuXt6vLrnNYonTwnu33+w7839njO9UeilQo8Wo6G2 qHGqc8T+hWX/yD/YJWtRy9rVkja1VEMyjLtB2aJogX8OqaLqkbf3ytu65Je+ yHvr5dlFEZY+LIQFDVrcX3bzcN+zdy+lVvSOBw8fHjh4yN3dEw9mADuEbkTH Zpk4lvsu+yB9+6+S872AIdIW8OyrJapeWXsPUBngN49LEsgTRXOvHPAEUA5c UAXYopa0dJe1/Lv0+MFFa5IdIywxLnS0MWioAL0D7JOJhGcpTBDAiThy9KiL qysRvgBTw2eyo+1m7ZpT8nXhwXvy5l5pG1AuPaBBLdNGvO1TN5PVwNUk4BYt 3fKmG6KTTakvZ7nGmGM83J+CJoqjs/PbBw8QPOnt7dX3mD1bAMN++N13nFyd 6bjFCOSIGWa83GXupbTaHyXnoMOieF8tJ9oHU9/AXS4D/6hDfvHDzPqVbtHA QQYcISxZFzfXD3/3ob4H7JkDUPTg8QSDD+OgoKE0FMHm2/vvX1L+9+ID34ka vis5fk14/Jro+LdC2K5NaoPXBFcWNZDa8X8Lj10vOfqd8NiXxQf3xZdF2nlD uwSFLDEWmAA+375zG/hfd+92DAf4JWXiTi4AQ/a9+Za7hweNMBERhAZpgjhw LefZ+yY5By1zDF7qEJbkFJHkFJbc35KcQpMcH7MlOsGWRDRH+DMZtjDyZ5Kd QpIdQ5LhZ8Ii7fyseRYMGu4UI3QmixkQGLA4NnbR4thFi/Cfgy1ucWz8/AUx EomM4slkATDkzTff9PSciT+mUM3gQr0vQkG86G/0kd6OuyGkRvr9GHeh9b/V kvAlukzH++7nF3jnzh19j64hANghBw4c8PLyggzBs7EIDYZWNWeib3r6Z2lw 8h4HwOTBG4rQcRebmH96/13pGJ4qHEaR4VQYBUTFQnBIGEWSiQMw5NAh4O26 Eyl7IMdN2Wb+Fu4mTC6tX5RgGGZhbeYT4O7j78435QksjD18HP2C3V09Z7BY jMGJ0VGM0EeWA8YmHC9/15n+LiYWfDrGEFiYevg4zQrxcPNyYhsxCUqQmauF IdAJwkkSEhJOkWSCwBly2NnFhUYUeICZQnkZbjFbFwjdeXYD08HhccLn+q+p Ll5dVezmO8MnzLN0TfaGbZJcURrfhD+W5B8QQ4Ngs1mWVua2dhY2duZWNqYc Lgvc29PHcc3GYmVlnk+wG8JGfIN9SstWVNZKCuXLAS2HXmNEuTIC/AModTNR fHDlQ1c3Dxru7oIHj4ew4h1CLi578eOVr6Y4RLrxrM2YXIRG4/KYYXNnra4p Xru5NCjSKywmULg+d8MOSZEyw97dmmvKYXOYyMCkDX+uB/+przm4zMjITyyQ pa+SpK0oTp7pC2uWPH2d1taUrt5UFDrf19TeODQ6WPRCXtUOqXBNtpOnHV/A YRoRKT9SgQKhi4aJEfDTxMTE1s4+KXkpcHP0PczTGI8ePXrn3SM8ngkcaww1 ojMX2gQcj193U3TqrvjcX1e92ZqzfZnHHODnMJh0F0/75MzFywuSV5amrhSn LS9JTsuPX16YsEKyLFuYEhjpy+UbDeEIYXZqqBY6bmjQ6b4Bnms2l1bukGzY Llm/pTRsjh+CInaOVsuyYpcXJC4vTMoRgbukZ5UuS89PyCxIzBOn5pY85zbT Ab+eJkloJB02oGvS0tLe/+DK3/7+f7u7u/U90tMVgCHnzzeGhUcxGWyMRmfT GbPNfQ7ErPlZeKpH3qKWtaqV798raxL7JUNnGKFxuGxLG3NHd9tccWr5pqKY xChrRzP/SM+yzYVVO+XJWYus7S1ppGnq40k/WzRI4hfsAbixsU5cVQd4Uho2 zxeQhM1hWdqauXk7FCiWb9wpK6vOX7g0ytbRYlaIm7Iqv3KbJCDMm7BJtZME ABhRMpmMyu9MBIAh586dj4iMQhBo3bHpSJi5694Fsu+KG3pgrr+lVwqTd7fk 50U+CTAJi1cVgk8yjbD0vPi1LxVHzQtCULqdq5W8qqB6hywjN26Gk3W/Y0If FCk0TUlCuDK+wa7rthRX7xZvqBPjJPHBc7ywM0CtrJKlb9otW11TMGdRGIoh No6m0vW5FdvE/qFeo0gSuoauwzBUIpFQJHlsdHV1XbhwMSpyDixPRehsGjKL b183p/ha0bEuZTvM2RH5XFlbp7zpWMKGSCtvDDiqOANYfGZm4dLVNcI5i4JN zI28Q9xX15Ru2lWWkZ/g7u3AMWahTAwvcx6UHLShb8A/WtibJa1YWLEdMERS XSeq3CYKmeONoH2ei4kpN1+2fHP9mrLqonkJEQJL/swAl/JNJdW7ZBHRflwT NptjROLhoOzqvwu8O5AkJSVCiiSPB6CgL15qCguPIOqOmXTMg2u7KSTr6+JD QIbAoo6BzCzM8LZ3lDW9t2RDluv8eXa+wKxFOWjkotAVotRlOYuik8IT0mPS Vi3JKEjMKExckh49JzbM3ccVY2D9Fmo/NfCXKANxcLbzDHBJXrFww3ZZ1W7p hl2i6t2iyu2ixMx5ngEOdk6WQMhwOEYLEqKWFyZnFS97LjduYXJkfPqC1FWJ 6XlJCalzYpZEevl5IBjSLzQGeUJQhcFkBwWHLklMfv31fboUUVPQAGBIa5sq MCiEWMSA0lA3lu0Lfsu/zD/QpWhRSwE3WnpJNR7dsK5D1Slt/Flx5nRatSvH CsyCEYcRvsBfuC5rfa04X55lbmfKMWWlrExYt1W2bqs0JSfRiMMmW6z47ME5 5fBYmbmJ67eIKmpLq3YBa0RYVSeq2gWaZN3W0he2FC9dsZgFvSSUyWECkRU0 17f0+RygZYrKM60czNlc1rLM6KptcsBMBhOjkS3kAfMHaCtjwf63D96+fYdi yGMAaJnm5paAwGBYpwp9XpoV00Q8M+lqzluPYPnQ5V4gRhRDakJ6FK1d8Geb es0HH2Zsd+ZY0/BS9uDZftKqnM17FEXlK3gCPniuU1Ymbnq1fNMrSqCM2Fw2 HnRBBiQJTAHR6EY8Zm5x0ouvyivrhJU7hdWQJ4Ah4so6SeVu8aY9svTCBAaH qKEFri7dL9xbUpG7eY9StG6lwMoE3DclO/rlvauX5izEGOggSUiihAa9deOj R9/T92BPSzx8+PBC46Xg4BAMpkrgiAqYnHyvhZ9m1z+QXVSPUlvYVzMma+0t u/xRxq4QvgsX4bIYzIBIv5LynPVbpLnCDGMTY4zJSF4et36raP0WYWpOPJvH wucMGbBIEDxXY2zOyREmb9otrYTSQzzQKmETbnxFnFG0hGtmxGACPchAEMwv xKdEmbVhq6hQvtzU0hjYT0CjVW+TJ6fNHyTJoClCJ0xrC0vrEydOUW7veNHT 03PxIrRD+h48FDVB2Dke8z/I2npPfq6vbnBY3ekQtihUPxY1XEyuqY9ThFp7 CsyMPXyc/YI8XT0dmEwMQVF7ZzvfYHffYA9HVzuMgQyqApwoDAbdwdk2MT1m 9eb86joJmSEDrXq3RFGdn1mQtOS5+eaWJuBPTc0F7t5O4JpuXo5MNgauZudo 4xfsOcPRklgG1m+SDIb6zc3Nt2yt7ejo1PeQTz8AMVK7bTuLxcZHE+EjRhmO UarnfgMYopY2adSm9o5StwyVUXn7dcWZVLc5SJ/fOZB6Qwb0ykDQgvyUs4wY QeE+5RuLoBjZKRqRJFW7pNW7JC+9WrZ6Y4GDixXJnSWlhGl90mlYRLdPjLi6 uX3//ff6Hu/pByBGfv/7PyQlLUVhqSrNCGXF2gc1Jm+8KzkLLJBeGWyjlbWT jNi2LujvqL4XnVrmFIkOEgQGLJAhOX3aQPZ/wLlhc1hBUT6KqvyNuyWjk0RS tVO4sU6i3Jjv6esEPC9gySAkJpLvMlBdMPgCJ6qpqWllZfXdu1Qcfhzo7e39 5I//Jz4hgclkgmeNQUf9TZ0Pxa25ITyllreNRIaRJQnu6bSBFzfEp34Tlrdk RkgSLDeCFUfJjoNtqWNYMmhOocucwmIdQ+y5VkTUy4jHDpvnp6wGJBldktSJ gK1SXSctrykMivQBwgc3ZpAZXMs4h5BE5whw5aV4S8YbUbMEXiQ6hnoJnDC4 2gMSUiAwO3nq9GTteWLwAAz57M9/iY2LxTCMKNdwYJtXB2f+T8GhXgUMg2jR MiOYJVJIkm7FpZ8kJ/9FrjksPQHaNfwn8eKa8MR10ckvCt5Md52L4uYrh28U sSCgfFNhtTaSCCFJdkOSBITPZLChacqiY1muc68WvHFdCK7cAG8hPPlt6Ul4 I/zu/xY1/FP0Xs3sVWYoHwoe4ALzTd49cowyXHXEvfv3E6GWQfFYOPR7F1n7 f5r1ygMFmOuxGTKEJLJWPIpC/GwfUqisuDystasVv/2+5HiO2wIUVrjRODxI krKNhUBQaCFJ1S4REDXKTfk+wa4MPKvMx9giryU3RCf7Sq/Jd+krk/6gV/H+ hYSqcDMPBgqFj7GJ6YmTp6j6+TFBDNFPP/3k5Q1PUoC7hdBoM7hmVcHZP5Wc 7C17n9AdWugxkkcMF8X0Stq7ZZeJ1XZE6xnWuqUwpP996fFV7tG4JKEbcdmh c2fh6kam4f9qqBvwAUASD38nuBKMRrNk8cv8U34Un1Ar2rqlLeS79C27wNdx /CXz1cKZiwQoXDbO45scPvyu9l0IKBC4efNmXkG+scAEGnrQqqPPtvJqXFrT ITkHrREpsYh70CbRmS1tvfK2Yfwhrwdvw7M/qpuSs1LfZBbCAPdnsRnAk5Vu WFn1inhUkgDDdZcQkEReXeTi7Yj7MXQHI/MNIVm/iE8B6dRvYBN3GZCB8Jc/ lZ7YNqfAAjPC3W3WvPnRzS2tlFmiHR0dHYXFRQwWk7D9wIDjyn3eV4UHemSX 4GjLBkkyJj3Gu3izF4+r3JFdqAzNtmAZw8J2lO7kaStatwKSRIt3Q5CkqsjJ 0wF3pREXjvXm8Jwb4jMkkgy7l7y1S9lyKrHSi2uLx08QeILh9h1UWF47Gk6e 4PP5eEaUqEmkWWMmFf4ZN8Sn1dDnBWOr0kXdjLHKW8vnFaq70sYdc0rceNZE aMPKwax4TVZVvVYXeJewuk4iXp83w9UWj4kgHjzb7VEFtyRnAUl6+kmieS/w dRSqP2a8muY8h8uAGofFYtXVv0JJEu14Yd06lhEbJ0lfDbq/wPmtaAWYOEJf qMdJEt251P9C1Sm79NbCskBTZ6Li0MzaOFeaumEXkdEbhSTALNkpypNn2Nhb EIEzP1On1xdIbuMkIWoYyCpy8CsoVN/mH6sOz7VkmeB1AoziUuGtW7f0PQ9P NQQCARGBJKq2gDRJcgz5MK22S9pM7B+iu0x4XLa0PZBdOp9QPd/GlyCJiRkv LW/J+q3CURgihq5NneiFLSXLcuIsLE0Jksy3nnUmaWOH7ALQj8Bm1lCRJO3W dld49p1FaxyMrIh4LIfHXb+h4gFlvo6OwaQXNAhoGB0p8Y39V/G7eBambaoZ QpDkobTpSsr2ZKdwFI+F8gScuNR5a14sHC13A0iyabe4bFP+7NhQnjEHzwQj 6c6z/7zy9S7ZJSCaeuWjkgQ6WYqW1rSXvfgOxNcGz0ipiCo60gZyLQd4jo0R VlVo1m15o0aUdUpJ0i1ruZr9eq5nDIYXJXKM2fMSQhUbVwGSVI7iAm+ql4rX r3T3d2YwMRhdoTOVPkk/i04CO6qbqFgYZrL256nbestUn6yojzL3wvB1whiG SaRU+aI2EGlRYmsg8BjbswTb5xTfh7UiqifAkL4mU31XdEzut5SFb7PG5jKD 53lLKlbgJBnBLIFBkjpJgTLDwsGMhq/os2eb74gouC+HlQzduLjQQhK1UvXF yteXOkZwMCZBErFYTJFECwBHmAjGZRph+AQ5G1m8Mk/8QNGsJoU4pkyGwNYD nY72Tmnj5vBcAb5JEcpEnbxmFJZlbaqXwVojog2RJOKK2pKMvHhjc7gJCZOG hpnPbFi0rkvaNMDt4R5W3wspIEn71wUHxL5LzFn4HiYYJhSL71EkGR1gkPgo 25ojYKFMnCSWgCQPnyBJ4FMva+9StOxbqPTg2qB4ms/YnJuRn1y5U0ooFzJJ gAICEqaselV0fCgH1izBwE6ay9zfp+3qkbaM2W21VAXcn3+XHH0papUjz5wg iVQmo0IlWsBDOe48GzeetREKB9wJJ8mTkSS9g7pA1a1suZyyJdEhhI0LNJYR I2ZJVNmmwqpdUugI15UO1TVS4eos/xAPFgumYNgIY41/2ncFx4YnIkewXWVw 58//CE+9vVDpxbfBayyR1JTUX375j76n4unFTMGM5zyi/I0d2Sgb6PcnTxL8 +qoeReu/Cg6tC0ozRqCdwGSi3gGuBcrl1XWKyqEkga5NnWyVONXeyRLDk7km KGdHZNEDySXtfR7UOzJVp/h849LNgQIHYhcvNoudl19IbU4yGhbaB7w4tzDM zJ2BwF3fgU1SP1/4QNn0xNQN/nS3q6XtnfLG/TFlDpgZrCBC6Obm/JScuMod 8so68dComqhyhyQtN55vCvMvKB3z5Tu8s3jNI2Bs96/y0EpIGHd9KG38bfrW EDNnYp9GcJ3FsfHUQuDRIPZJaEjdNN/Kh4EvqnIystgNSKJowjfAfFKSRKYC JOkua1Wl1S60DWAhTDz7hkTM85dW5OMaZ4h3U15TGJMYRdQasRHWUoewy6lb gcIiSDImJwFJHska38+oDTF3HtjMM2FJEkWS0bB/nviDrF2x1v4sSBKaFcP4 xaj8DuBLwiT7kJU1U0kSYn7b/lFwqCokyxrfOJGOIDa2Zs+tiK3cISPzpLpO mi/PmOnvimFw8YUxwl7rn/Lfq97uxVcl66DaSCTplyRA48TFJ1AkGQ1/zNj1 Xyv2ZrjM5jGg4WqEMGR+y66XvDcw4FMadB0gCbQnpa2d0gsXk6vDTZxg1Sod wTAkZK6fclPRhp2SAY2zvlaYkLaAZ2qEFzSjjkYW+xcpOyTn1TildVc3l9O2 AJIQUUQvL69XX91DOTij4Ybw9D8LDlcEZ9iy8YQXHXnOKfyTtJ1d0A58gjzB 506tVH2Vd0Dms8SCxcWjwIiNk/WyVXHPby+p2i2sBo7wTrHohezAcC8E6kaE gzITZoR+mFHXo2xXDwugDb9R/4u2TvG580nV/gIYmUdRTFgqorav0YKHitY7 pWeOxT3vYWxPFKwHmTkfilbiWWBVrw7VrZPFE7y1/So+ezx5Q5CJMyxtARqQ gXgEOheuztiwXbRxl3jDNnFyVoy1nSmMDtMRe5bZlqiCa0XHYJ0kqataqEiQ 5Ibw1MFFq72M7QiSSCUyqj5NC7rlcNvt/8reM89iFgoTZTRzBm+tf+qP0rM9 SpWG0pkikvSShAm0TPIPl3kvtWUKiHU5XGN2+IIARWXBxp0yZWV+UJQPisHC EyYdm2/mdTl9axdw2KWqXnmzthgamSQK1fXShto5pS48K4IkEpGUCstrQa8Y ngzybcG7QvcES4xPJIIznGf/Pf/gQ1nzk5EkQ4SJ7PJDcdOV5TsS7YPYdAZ0 h+l0Sxuz5MxFazYVZeTF2TpZEct0bFiCF/zT/qfwkBpugqEiqhPHJgnM3bT/ o+jd8oAMG7Yp3LoRg5KEIokW9Mja1Yq2X0QnX5sr8eLbEwu2wy08TyVV3oFr suAWE1PNkCHzCKslW29JTu+PLgs0cyMOakSZiIuXQ+aqpOAobyaXQew1EmDm cmnpi/fFjZrZGe3Xl4KH4vLf8vZnu0bzGbDMAENRiZjKAmtDtwLqlPvSC1cy di2wnoXgWyhbsUwlsxK/Lj4A/Q7plDvCQ4UJPMOiW3bpv4vfWR+U6cC2IErm WEYMt5lOAgs+IUYEmFGee8zX+YfgGUm6MxCSpK1H2vK71G2zzWYC5Qq+L4PB KBWWUiTRgi6FqhsfwG+LjhW6xfLpLBSlA+PE19Rxf3z5r3D5nqZOn0JdQ5gl cOVOy31F0ycZ9QWuMXyEheFLePGdp/t2+Q0ROB9dWH5bdJoon9PlFvAFrj1/ KWl4Y65ohpEpbpCgwSHBx9471tU97vOFnx0Aw7Ubluio7kou7I9ZHWLqhuFV jDyMlewQ9oe0nQ+lF3unOKpGZohaiv9G1tYjV92TXToZuz7Swp1NIzan6FsS zqajK1znfr1qfw+wmsYjRuDFFW1/Wrk3130Bj8kiCqG31G6lsjbaMTCSPbLW b4uPvxC03IrJJ9ZdOzBNK4Oz/2fVYXz6WsYMREyOJBm8ODCHVN8UHtkascrZ yBTt34UVzKybic2OOSW3RRfUcHslnfoz4D11KVrOJFfPEjhiuBfNYDB37NxF rfQcA6TA+ENFy/vp29JcZrPoMBXLoGP+fJeji9bdlpzDH8M2wqp8EiKlr1eg S81/XPFKiVesKYNHFGqjdGSZa+RH2bu7pIMZPR37Awye60XvvRSea4HxcKGE CEzNX39932OcZf9sgayy5ao74vMHYsr9BS4sOgPMCBthJc0IO7Os5hfFmR55 8/Cz86aUKoRX2ym9cClpc7S5L4fOBLLElmX6YvhKuAhLelktG8dyD8goRetH GTtTXedw8AorDpe/obL6zt27+p6Dpx1DVLYMnpH3VcGhdSGZ1gwTFF+MY8bk JTlFHE9a/x/x8W7FJY3y0amN1eNHf4Je/VByYu9csYexLfBHFtsFXFxW0y1t BiSBNQZa+0ASSnheT968P0bpwrVB8VUkxsaC4w0n9D0D0wCaT66s5b6y6Ur6 rtQZ4Vw6gzjqyAQ1irPzO7xQcb342CMFvsIXmrIjbGgzWcwZch0ZrIP9quBA id8SF5bVusDl/yw+2i3Dd4CUjnG7/uvgikna/E3RO8qAZSyETWxczOXy3nnn CGWQjImhMwIez+ZeRcvPwlPHE9ZH2weyUViZDPwdDh2bLfConyv6svBwl6wZ 90GGLwaffJIMeD0d0gsty2vX+qSdiau+r2wBToouhjRJSLY9kF+6kFSzyNYf gxYXnc/lLHsu9bPP/kJtPTEmhs4IEO84T+TNP4tOHE+sTLYPN0e50ClGgVhB fbkOm8NX/imr/o7obA/cWkSlHnFOJ4kwGjy5Lb1wNXvftbwjvcSOBMOYoF3X /Cg9XRWaY8MUEKt7ZtjaXr78225qFbAOGIEkoMFkWdOvwjOqlC2ZbvPNmTwU 36Ud2LIObNNs9/nHEiq/yn/3rvA8/jj3zxc+F+phRsvEedJLqEJpyyNp0yNZ 85DZH4skxIseSfNnOXtTXOdi8KgvGoPBiIqKvHr1r/oe/umBEcU7IZ/Bi9uy c1cydhR5LbIFDyC+hxRowBsN4LsVuie8F1fx/4ve7RRfgFkz2WW1tB1mY6X4 rjVwHxvN/Twfgy1DuzQ+eUX8Hq7rkavuiS8cXLzaz8KFWK/oO2tW++XLlOer I0Y3A9rAkwvc3g7Zuc9yXlsflDnTyJZJQ4kNDcH/zBn8YAu3Iu+4hrj114uO PZA2PZS2dMvwNCtgi6wdP0y8vVeuU92pjkrn8VinVrRdLzkm9VoCTwrGM0GR s6OoKiPdMeqkEFufSaET0S1r+3LVgfrZwlj7EFOMhxKHZ9GhQQuGPcrSS+yz pG6u6GzSpr/m7PtVcqarvLW7rA2u2oZU6b+yjKSPhtVGPgZPdJZFbfekje+n 18YQ6Uv8PIKw8LC7VHhEZ2jMxbBHFUZZe4ASkbX9UnLy0tLfrAvKWmQTZMEw wQ8sgifSAOHCRhjOXOsFdv6FM+Neisg7HLe2Pa32q1X7b4vOdivbesrbe8ra e0FTgqaCjgm0eNt6x1lGO05u9DET3Ovn0pO7o4o8eDbE9hrOLi5ba2upUjTd of2xHZgUdX8w6rrweGNSjdIvNcrK15xhTOxNRMfDKUw6yqYzTFGON29GkkPY Gr+U1+aKGxIqGpfWtKds+Sh9x58yX72as++rvIP/Kjhyo+T0I0Vzj7KlR9E8 XgKMo+F1s98WvlvqlWDO4sNjtBAkNS3j1q+/6nvgpxPGFO+D04fnd4D2uS9t vCY8diG5Ruy1JELgbmdkwkHRgY2/oe9ARwBb+KiRGca3ZZm4c61DzFxjbGel Oc0umhm/OjC9Omzl3mjFHzNf6RSfU8u0lR0+dhuUJMr2r/MPJttHMBEGfrow kpmVTVWPjAu6mAFDqaIiHJ9O8flvCt+5+NyLLwSnJzqG+Bk7OLLMzDEum47R yMCT+/DULQTjYCxjBseSaWzDNp3Btihwif5sxWsP5U1TwZBBYivb/5q3f56l H0wi42cELs/M6uykzh0YB8Y77P17/7apla29itYOyYVrhUe+WLmvNfXlvQuk Eu/EBaY+LkxLS5RvQjfiICzw/KKQNhiN8IxI8OM7Hl649o7wvI6FQ48lSVqA TfKXlW+EmXnhy34JkmR3UgUk44EukkSDJ+ohH8OtUKXqkeLiT6ITV1e91Z66 7Ujs8y+F5uZ7LI61D46w8PQ2drBjW/BRLgcIEwQDIoWJYiwEizb3uphY0yma kl2VyJLk87w3w8296TTiMHskYzklScaH8crwkcMU0FwBWqO5t6ylp7z1vvzi d4VH/5z1qmrZy2eTqo7Ert23UFk3V/hSRG5FSKbC/7kS73jlrMTDC5XXio90 4zbJpEuS/o7hNknB4XTnuRyMDfepxUlClaKND6PHMHVs/TPSgkf1YR5ZLe0r 3uhRtHYrW7vKWkB7qGzqEJ//T8mpa/lH/1/O2//MP3hXerYH7nExwsa8k9L6 SKJQXS9+rzIoy45rQcO9m8ysFdSy3/FhsmaEdBpOX0AeX2kFk3HQJyKaCsbt Zaqevh1iW6Fro2ierD6MyBNg8NwSnj4Yo/Q2dSRW/kZERrWpVNQGv7qjR94y VU2m0foPHYD/2tr3gam7e38DPLkvufjbtNq5Vt7EiUgoii5evJgSJuMA3PLU oBsscVR9VfJOmvNsJh1F8XKj8PBwKnejO+5JGw27dUoaO+VN/5AcFc1KskSN MXzjvtmzZ1OSRHfsnS/R3vZofTvxz09xE4MOvD5fsXNuSZJLuDnTmNjdMSIi 4saNG/oe+2kDXxNH0Hz6msMozZH0sdE+M5HPT1Xzxn/OMrb3Mra14QjYKKPv JA5r68rKSipaoiNQGko0RGvT5TMT+fxUNgShDTlDlDhwwcHB8eOPP9b38E8P 9B3EauCNlErqPxfY0dHpo9//Qd/DPz0wcOy25inLQw9c1uVjj/35KcRgP2gD vSFI4uzs/Ic/UCShQIGCgQOIO313Qf2/u1qqOw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], BaseStyle->"Output"], "I ain't migratin' nowhere"]], "Output", TaggingRules->{}, CellChangeTimes->{3.7827548574060698`*^9}, CellLabel->"Out[2]=", CellID->451939250] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ResourceObject", "Subsubsection", TaggingRules->{}, CellID->599453063], Cell[TextData[{ "Check if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceObject", "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/ResourceObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782753970703414*^9, 3.7827539834917727`*^9}, { 3.782754242834402*^9, 3.782754257259349*^9}}, CellID->532923803], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"ResourceObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827540209399853`*^9, 3.782754022874127*^9}, { 3.782754261489293*^9, 3.782754265504055*^9}}, CellLabel->"In[1]:=", CellID->564506796], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827540234970016`*^9, 3.782754266184959*^9}, CellLabel->"Out[1]=", CellID->978554562] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["SearchIndexObject", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.782752121424223*^9}, CellID->235935704], Cell[TextData[{ "Check if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SearchIndexObject", "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/SearchIndexObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782753970703414*^9, 3.7827539834917727`*^9}, { 3.782754242834402*^9, 3.782754257259349*^9}, {3.782754292311432*^9, 3.782754300462648*^9}}, CellID->746311195], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"index", "=", RowBox[{ "CreateSearchIndex", "[", "\"\\"", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754346394305*^9, 3.782754359640602*^9}}, CellLabel->"In[1]:=", CellID->750263766], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SearchIndexObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Thickness[0.007142857142857143], { FaceForm[{ RGBColor[0., 0.502, 0.761], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{138.766, 61.273}, {79.874, 61.273}, {79.874, 73.503}, {138.766, 73.503}}}]}, { FaceForm[{ RGBColor[0.7, 0.7, 0.7], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 124.836}, {140.00099999999998`, 124.836}, { 140.00099999999998`, 137.066}, {0.706, 137.066}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 20.453}, {140.00099999999998`, 20.453}, {140.00099999999998`, 32.683}, {0.706, 32.683}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 81.81400000000001}, {80.757, 81.81400000000001}, {80.757, 94.04400000000001}, {0.706, 94.04400000000001}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 59.949999999999996`, 0.}, {140.001, 0.}, {140.001, 12.229999999999999`}, {59.949999999999996`, 12.229999999999999`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0., 0.}, {53.249, 0.}, {53.249, 12.229999999999999`}, {0., 12.229999999999999`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 108.96700000000001`, 81.81400000000001}, {87.45600000000002, 81.81400000000001}, {87.45600000000002, 94.04400000000001}, { 108.96700000000001`, 94.04400000000001}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{118.489, 81.81400000000001}, {140.001, 81.81400000000001}, {140.001, 94.04400000000001}, {118.489, 94.04400000000001}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 106.49900000000001`, 42.31699999999999}, {140.001, 42.31699999999999}, {140.001, 54.54699999999999}, { 106.49900000000001`, 54.54699999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 61.36}, {43.376000000000005`, 61.36}, {43.376000000000005`, 73.59}, {0.706, 73.59}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{74.408, 61.36}, {52.897, 61.36}, {52.897, 73.59}, {74.408, 73.59}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 102.973}, {51.13400000000001, 102.973}, {51.13400000000001, 115.203}, {0.706, 115.203}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 57.12800000000001, 102.973}, {140., 102.973}, {140., 115.203}, {57.12800000000001, 115.203}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 42.31699999999999}, {99.094, 42.31699999999999}, {99.094, 54.54699999999999}, {0.706, 54.54699999999999}}}]}}, AspectRatio -> Automatic, ImageSize -> {30., 28.}, PlotRange -> {{0., 140.}, {0., 137.066}}], GridBox[{{ RowBox[{ TagBox["\"Short name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"cfce1228\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Creation date: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Thu 14 Nov 2019 15:06:00\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Index size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "5", "\" \"", "\"documents\"", "\" \"", "\"(\"", "\"488.5 kB\"", "\")\""}, "RowDefault"], "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[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Thickness[0.007142857142857143], { FaceForm[{ RGBColor[0., 0.502, 0.761], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{138.766, 61.273}, {79.874, 61.273}, {79.874, 73.503}, {138.766, 73.503}}}]}, { FaceForm[{ RGBColor[0.7, 0.7, 0.7], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 124.836}, {140.00099999999998`, 124.836}, { 140.00099999999998`, 137.066}, {0.706, 137.066}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 20.453}, {140.00099999999998`, 20.453}, {140.00099999999998`, 32.683}, {0.706, 32.683}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 81.81400000000001}, {80.757, 81.81400000000001}, {80.757, 94.04400000000001}, {0.706, 94.04400000000001}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 59.949999999999996`, 0.}, {140.001, 0.}, {140.001, 12.229999999999999`}, {59.949999999999996`, 12.229999999999999`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0., 0.}, {53.249, 0.}, {53.249, 12.229999999999999`}, {0., 12.229999999999999`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 108.96700000000001`, 81.81400000000001}, {87.45600000000002, 81.81400000000001}, {87.45600000000002, 94.04400000000001}, { 108.96700000000001`, 94.04400000000001}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{118.489, 81.81400000000001}, {140.001, 81.81400000000001}, {140.001, 94.04400000000001}, {118.489, 94.04400000000001}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 106.49900000000001`, 42.31699999999999}, {140.001, 42.31699999999999}, {140.001, 54.54699999999999}, { 106.49900000000001`, 54.54699999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 61.36}, {43.376000000000005`, 61.36}, {43.376000000000005`, 73.59}, {0.706, 73.59}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{74.408, 61.36}, {52.897, 61.36}, {52.897, 73.59}, {74.408, 73.59}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 102.973}, {51.13400000000001, 102.973}, {51.13400000000001, 115.203}, {0.706, 115.203}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 57.12800000000001, 102.973}, {140., 102.973}, {140., 115.203}, {57.12800000000001, 115.203}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.706, 42.31699999999999}, {99.094, 42.31699999999999}, {99.094, 54.54699999999999}, {0.706, 54.54699999999999}}}]}}, AspectRatio -> Automatic, ImageSize -> {30., 28.}, PlotRange -> {{0., 140.}, {0., 137.066}}], GridBox[{{ RowBox[{ TagBox["\"Short name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"cfce1228\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Creation date: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Thu 14 Nov 2019 15:06:00\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Index size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "5", "\" \"", "\"documents\"", "\" \"", "\"(\"", "\"488.5 kB\"", "\")\""}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"cfce1228-1711-4bae-847d-e92d563f9553\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Location: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"/Users/bobs/Library/Mathematica/SearchIndices/cfce1228-\ 1711-4bae-847d-e92d563f9553\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Indexed paths: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ GridBox[{{ "\"/Applications/Mathematica \ 12.0.app/Contents/SystemFiles/Components/TextSearch/ExampleData/Text\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, BaselinePosition -> 1, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "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:>{}], "]"}], SearchIndexObject[ File["/Users/bobs/Library/Mathematica/SearchIndices/cfce1228-1711-4bae-\ 847d-e92d563f9553"]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.78275436379292*^9}, CellLabel->"Out[1]=", CellID->397823337] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "index", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827540209399853`*^9, 3.782754022874127*^9}, { 3.782754261489293*^9, 3.782754265504055*^9}, {3.782754304657579*^9, 3.7827543199558973`*^9}, {3.7827543643947077`*^9, 3.7827543657253428`*^9}}, CellLabel->"In[2]:=", CellID->254566968], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754450812208*^9}, CellLabel->"Out[2]=", CellID->738293889] }, Open ]], Cell["Delete the index:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7827544718119917`*^9, 3.782754475253886*^9}}, CellID->96345561], Cell[BoxData[ RowBox[{"DeleteSearchIndex", "[", "index", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827544535885267`*^9, 3.782754459551641*^9}}, CellLabel->"In[3]:=", CellID->495312656], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "index", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->603424415], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754467609668*^9}, CellLabel->"Out[4]=", CellID->282530336] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["TaskObject", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.782752121454878*^9}, CellID->271615852], Cell["A task only exists until it is complete:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7827544822119923`*^9, 3.782754494620737*^9}}, CellID->942272418], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"task", "=", RowBox[{"SessionSubmit", "[", RowBox[{"ScheduledTask", "[", RowBox[{ RowBox[{"Speak", "[", "\"\\"", "]"}], ",", RowBox[{"{", "3", "}"}]}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827544984035063`*^9, 3.782754550140383*^9}}, CellLabel->"In[1]:=", CellID->500607184], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl8FEXa/4MICLIQQEBQVBRF5FhdcHVdRZRDRVlgEQEvFJcjiKAEOUQh ISE3CYGQcAbCESCBHBBIQCBcIVxJuAKBcAQCgZBEyMXs7qu7/987z0v9y+6Z nk7SORie70f5TFdXV9VUd/r5dnV1T9sRE/4+6gEHBwfnh/DP37+c8tbEiV9O G+SIhcHjnZ1Gjx/5j/fGTxo5euTEV0fURmIy/q+PD//7+b8MwzAMwzAMw2jy 66+/FhYW5uXl3bx5M8/8n8Tvl/5vPf/H//F//B//x/9V5X//94/F2IT4hSiG WFbd4ZSxE3As5eXjoCq6c+eOiWEYhmHuNRC/igqL8vLy2Y4YQ4Bp44iq7uOa YRiGYSpEoZnqDqqMPVCQn8/jRQzDMMy9DmJZfn5BdQdVxh7Iz8+v7sOZYRiG YQwgPz+vuoMqYw8UsBoxDMMwdkFBQX51B1XGHigoKKjuY5lhGIZhDAARrbqD KmMP/FLwS3UfywzDMAxjAL/88kt1B1XGHsCBVN3HMsMwDMMYwC+3WI0YA2A1 YhiGYewDViPGEFiNGIZhGPuA1YgxBFYjhmEYxj5gNWIMgdWIYRiGsQ9YjRhD YDViGIZh7ANWI8YQWI0YhmEY+4DViDEEViOGYRjGPmA1YgyB1YhhGIaxD1iN GP0sWrRoikRmZqZYxWrEMAzD2AeyGpWWlsqBz8XFpTrCL1NzmTt37rlz5yyu YjViGIZh7ANro0Z37tz5/vvvKzPMMvcerEYMwzCM3cNqxOjnvlKjkpKSCxcu 7N27d/369cuWLVuwYMGcOXOK7oK1paWl+DOp7mYayZkzZ1xcXPbs2VPdDWEY hqlOWI0Y/dwnapSVlRUbGwsR8lZRpKK4uBiaVKmOVFhY6GKLtWvXVryicqjR sWPHsMnWrVvVq6KiorAKZdLipk2bsHjq1Cl1ThxXWAXVpMXDhw9j8eeffxYZ /P39xTd1c3Pz8fFZunQpKs3OztbfVIZhGJ2wGjH6sXs1ysjICA0NVRuRhhrJ jiSCu7FAvTZIwIJgCNADOTEpKaniFdVwNdpkJiYmZt26dYGBgWRKSLGzsTuG YaodViNGP3asRvn5+QjlGlJkU42EIFV2U2/cuAElWLp0qeEl13A1UmyFQ5E2 jIuL099ghmEYm7AaMfqxVzU6e/ZseHi4WoSCg4MR0FNSUq5cuZKXlwfzEZsg jpeUlECE1HZUWFiIVZXXWg01oluBQUFBHh4es2fPXrhw4aFDhxR5UlNTlyxZ gm/n7u4+Z86cNWvWXLx4kVap1Qh1YaejNHSRxcZUoxpR89A2V1fXnJwci81j GIYpB6xGjH7sUo2OHj0KBYJpzJ8/n4yI7lVBBvTcqUFAlwUJXlRgRvYoY9FQ I+gHbCciIiI+Ph6ORMohO8b+/fuRMm/ePMgM0qOjo5Fn3759tFahRtnZ2X5+ fuiQS5cuWWtM9aoRwNfEqt27d4uUZcuWIUWjzQzDMNqwGjH6sT812rt374K7 rF27FhqwYsWKK1eulKMoEqTbt28X3AWaZHiDTZpqlJeXJ+scZCMsLMzNzU3s nZCQENiOQtvQZvogq9HFixfRGxCtq1evajSm2tUoLS0Nq9atWydSWI0Yhqkg 9qRGq1atGjduHAJcJZWP6InyExISyrf5v//97+DgYGdn58jISGMbVmXYmRod PXp0gQS0ITU1tSJzektKSgp+T2WMHemZa4R6880cOHAAmU+cOEHp+I7QDGsT ooQaZWRkeHh4BAYG5ubmajem2tUoMzMTq0JDQ+Um7du3D52v3XKGYRhrsBrp p4JqhDP2uLvgvG1s26oGe1Kjs2fPwlSFFy1ZsuTChQsVL1ZtR4bPO9JQo8LC wvj4+Dlz5ige7YcgUYbExEQsYj9u27YN0qIwN1KjFStWuLm5oXNgVjYbUwPV iGEYpoKUT41wLhqnD5RjTFTWQfnUCFfQOGm7u7tPnDhx8uTJOEsnJyf/5z// UeesoBpdvnyZ+sTZ2Rk9X75CjGL9+vVoycmTJ8u0ld2oEYwFLiR7kYHzeBHi ZTVCzxj7dLmGGi1fvhyrIiIiDh06BAlJT0/fuXMnUsRsIgBNwlcmZcJhHx0d rbih5uXlhX9jY2P1NOb48ePIvGXLFvWqjRs3YlVGRgYtbt68GYs45NQ5AwIC sEr0UpnUKDU1VXFDjWEYpoKUT41wRv3291DQnzBhgiK9hqvR+fPnp06dqjY6 Pz8/XOwrMldQjQDiAjQMjlTuEowCV9nVrkabDaIchz1CuXwfTTyiZRSKsSPh HoZgTY2ysrKQHhUVJScePHhQoUZEXl5eSkoKqdSGDRsokdQoMTGRXp1kcSxI AW0SGRmpXrV69Wp5zs+2bduwqH5iDniYEYsVnIbNMAxTQQy5ofbvf/+bjAKm UaZQayxlVaPc3FxnZ2dsglMrrj0LCwsRL7Zv3/7dd98h0dfX97fffpPzV1yN ag7z58+/b9UoMzNTnmKEXV/WEvRQVFRUSbfVrKnRiRMnkJ6cnCwnRkREWFQj An/mAQEB3t7etCjmGpWWlq5ZswafcbRrNyY/P5/u0KlL9vHxmTVrlrhnR8M7 CnMDV65cQfqSJUtESjke3r9+/bp2OxmGYfRzP6sR6QFOuYoBIoTOCRMmYNXO nTvldHtSIy8vr/tWjdavXy+8SD3cQc/v/6NcKIq6deuWUCN8Lms7rWFNjS5f vox0fDuRgiMZ2iCrUUZGhnx3D5cDuASYM2cOLcpPqOGPAn9QWMTFgnZ7aOgJ fyxyIrZS3OdCXZ6enm5ubqdPnxaJxcXFK1askGdDmcr+ykfF6BZPw2YYpoJU sRr961//SkpKWrRo0YwZM7799tvJkyfDT9LS0qzlx9VrfHy8n58fGgNd+eGH H0JCQlACylFntqZGv/32G65JaSDon//8JyXm5ORQm0+dOqUuCtfaWPXTTz/J k45IjXDGRiKuzXG6dnZ2RsNwfj569Ki6EFwgW5x/hQ21ewmagW1xxf3dd9+h fOTfu3fvr7/+qrFJVlZWeHg4Npk4cSJahRiEeKG4m0n9ow2+i0YtdqBG2dnZ wouCg4PVT6YbqEaKSUdG/YyIxlwjJGIVXGXbtm2wPngI3RoTajR79uyAgAAc 3sgQFxdHaoGji9Yq3msEO1q5ciVSduzYodGea9eu+fj4IBv+llHyxo0bg4KC sIjjNi8vT84JacEhSmNEyIbM+JPEYlhYmCxs1tQoxkx0dDQOdZqeBHAAKKZy 8cP7DMNUkCpTI0R2nOvgQpRz/PjxdDOL2LRpk3oThAC4ENZ+8803UCmc1adN m0b5p06ditOsIr9FNYLG4LIU6dgcsUmkb9myRS0/AiFOFy5cEImkRjg54yqb 1tLgEqFWsoSEhB9/D7rUphodPHiQ7uihi3CGx1ZUPqIPLrHV+WGJiF+iGRBO 2hyguzIzM0VOhELPu6BwZJg5c6bn71mzZo1G2ypDjeIkZOH5p4Q6p5y/TJVC CYQaafzABKmORlcosKhGJvNQieGvOdJQI5JqXEq4u7svXLgwNTU1PT1dViN8 wNGCIxDWBC2BRInn+k2W3oaNQw7egsRdu3ZpNAkKhB0RGBjobgaOhCsai4cE jGX9+vVoIRwJx9vixYv379+vkEY9Py8LuUIVFn9eltWIYZgKUmVqhAhObgC1 wAmNhAQnT5oPDC5evKjYBGfaceYZ0Tdv3hSJubm5uGacOHHilStXFPnVaoRa Vq9ePc581wyBSc5MnoNNrDWYNEy+p0abwNPwLXAdXVRUhESEPGEmKSkpGr0E sJW2GiGWfWMGrihEDl9/3rx52DA4OFiR/7fffsMVOnlUbGys6CioHfVGcnKy xYqmTJkyrmbcUKtKNSopKYESR0dH0+Np8EZrOY1SI5qPjc65detWfn4+/xAq wzBMzacqb6jhOk792BegQRiFpcBqaGTD4g0vk6WH39VqRPfFoGTq9wi5urpi 1bZt26y1lsQMJYgUUiNc7SLGKZpKfuLt7W2tNEJbjdDnZCxbt25VrIJY0gsT 5FEssHv3bvKi9PR0dYFqexTUNDVS3yb71YysRvTD6+qt9NcIJw8zA2G2NsFY vqGmv2esqZHJ/KKA69ev55ipgh+fZRiGYSpITZiGvWfPHmzr7u6uSJ8xYwbS w8PDFU+KWUOhRjExMXTrDYFJnZkGhfbu3WutNJqetGLFCpGiMQ0bZkI9QENJ 1tBWo8TERLrxZ/EeHywOa6Ojo+XEn376SeFvOrk/1Sg1NTXsLtZ+X95wNYJI 59zFwMnYDMMwTCVRLWqE0I8wcfToUUQ3+Aw9LQVXUWTLyMigaTOurq7bt2/P zc3VLlZWI5pKZG3QCdAsJsRHa6UtXrwYGVauXClSNNSosLCQqrNmDoS2GgUH B2MtWm5xLb1Me+HChSIFykeVXr16VaNSi9QcNbKG+oaaNfTX+PPPPws1kp+T UmOgGt2+fVuokWJaMsMwDFMDqWI1unz5MgSG4vI483uhZ8+e7enpic9IVOe/ cePGkiVLvvnmG8pPL5fLysqyWLhQIzIQIigoyOIgjLu7O9bGx8dba2pAQAAy yL93pqFG4vafenK4jLYaoSvG2UJ+goyGqtA5OkfVZO5PNYqNjRVqpP0mHLUa FRQU/Otf/8KOxmGADsdnfGWxVkONSkpKhBrZ/EkyhmEYptqpSjWKjo5GHJ8w YUJoaOjRo0dFZEGAtqZGBK679+3bt3DhwokTJ1JF8Bb1bTJSI3qk67vvvoOl 0Oddu3apy1y0aBFWLV++3Fql9DCdPKykrUbkbxbn/Ai01YhszcvLK9Q68uQo e1Kjf5aR8qlRRESEUCNr772xdkMNhxNSZs6cGRgYCEXH5+PHj4u1GmpUWloq 1AiqX9ZeYhiGYaqYKlOjQ4cOIcP06dPVSmNTjeSKjhw5gvBEk4gUD7OL9/Z8 ++23Z86c+a/5lhzMAYuISoqitm/fTnfxLHpFVlYWFSXPZNZQo5s3b+q5t6Wt RjSXOyYmRqMEGdRFlVqcTKUNdoTNMS4197oarV69WqiRtddTW1SjX3/9FZvg aBk7duzIkSPxLz7jePuf//kfyqChRvhTEmrEL21mGIap+VSZGoWEhCAD3EC9 Sr8aETCiSZMmYZOkpCQ5ndRowoQJ8mAIPaTm6ekpohiRn59P4zwWn7inR/5d XV3lRA012rVrF1ZNnjzZ4s07gbYaka2hUp2jQKiLBn8Uc7P14OPjgw337dtX pq3uBzUiFGrkawb7Fwce0iHbzs7OlEgZWI0YhmHshipTI5q6o35YHmGOngVT qBGu03fv3m3tFdD08JoispMaIfwp2jZr1iykR0VFKQpZunQp3YBTPFZ2+vRp sqb9+/fL6aRGK1euVPgPNqfn3dRVKNBWI5RDr8FEuNcuR4CcZIMWjSUrK8va gBJ998WLF+usiLjX1UjPDTVCoUaocfr06U5OTiNHjkQ6/v3666/R7Ti6KAPf UGMYhrEbqkyNNm7cSHfBRGxF7UlJSTATmkGkUCMK+q6urvATWV2Ki4vXr19P s4nkebD/tf5DITCE8ePHw3bOnj0rp9+6dQvtwSYQraNHj2Lx5s2bCQkJ3377 LU14VigQqREIDAzMyMiAtiEDPpB6/fDDDxbfVi1j85WPBw8epCqCgoKys7NF +rVr18LDw0NCQhT5EbJpEjvaHBcXJ164hC+CDse39vHxsTiQlZKSQvOU8H0p viMbNtd+a+X9MA3b4g017DJ05tixY+Gu8KKZM2fi8MMH7HTKwNOwGYZh7IYq UyMU6ObmRtlQMoyIHumaN28eTdRRqFFhYeGKFSsoDyI4YpC7u/tPP/1EKQhM qampiio0fl6WnuVHpfJvhQDoh/glDhnIj0n1VklSI8Ri+r0PtET8UAgU6/Ll yzY7yqYagQMHDohf+kBF0Da6ezjO/EpJdavgjfQ7ucR3ZugzulSeKiwDEaJb nDToNG3aNPou+FKKLpK519VIz8P7ajX67bff6Pfs0EvQIXweaWb69Onr1q2j u5/88D7DMIzdUJVPqKFMBDJccdMPxS5ZskQ8z4W6LM41QijZunUrXIJiN/1w alRUlPrt1v/VVCPEL5pdExoaqm4VxGn27NkTJ06cPHkyov+hQ4csjrSQGsEB YCNoA6QFTXJxcdm4caP2mx4FetTov+Yn8mJjY728vPB9v/32Wwghmn3q1CmN iUxYizzIifzoTD8/P/rBdI1afv31V7QHtUw04+rqumjRon379v3z7i/wqqk8 NVK/+PE3M8aqkZ5XPhLqJ9R27doFKXJyckI6/sVnedYZv/KRYRjGbjBEjRid 0ButAwMDq7sh5eReVyP5h0K0f01erUbFxcVQ6IyMDKTjX3yW759qqNF1M/xD IQzDMPcKrEZVSWRkpMWRq3uFqlQj+Yaa/BMhFVGjkpKS+Ph4CGp0dPSGDRuu XLmizmPzh0Is/u6eNTVCt5w9ezYzMxN1QY3452UZhmFqPqxGVcZ//vMfmrC9 ffv26m5LObnX1QgcPHhww13279+vzmDsb6hlZ2efvcvVq1fL2kU1hylTpjg4 OCQlJVUwT7WDCxM0cuXKldXdEHumJnfyX/7yl4cffri6W1E2tmzZgv709PTk uqoMVqPKY8eOHeJ339CfiMX0KJnFiVL3BJX387Iy2rfPKqhG169fF2q0ceNG a4+MGaJGRUVFZyUKCwvL2kVVz7Fjx+rVq4fzFY5VOd1YNVq2bNlLL71Uv379 Jk2aDBgw4MSJE/LatLS0UaNGvfjii82aNUNjnn766SFDhhw5ckSjwE8++cTB jM03R1Vj1Kb76a+99hpCM9owYcIERYajR486WKFnz57lrtdi5+Tl5Tk7O7/+ +uutWrWqW7du69atUUVUVJRi28aNG6sb4+/vr11j+Tq5uLh4wYIF3bp1a9q0 aaNGjTp16jRjxoyyvu9i7dq1JD/g5ZdfXrVqlSKDsWq0d+/eXr16oZdQJvZs bGysIoPODkSAWLx4MdqGL46inn/++a+//lqs1a8Q2uXoaY+xupKfnz99+vQO HTrgj93R0RF7JCgoqKx14UTq5ub2wgsv4GyAQvr27XvgwAF1Npv7okywGlUS UAjxyNgPP/wgHrUr61sWaxR2oEYm83Nqwo527txpMY8hanTp0iXhRfhc1nZW PaWlpa+88goF7spTo5kzZyLbY4895uTk9OGHH9apUwdnMyiZyIBzOxL/9Kc/ 9evXDxkgUcj/4IMPRkZGWiwwJiYGGajZNVmNhg4diqobNmzYrl07i2p04cKF T1U8++yzyOzq6lq+Sq11TkZGRq1atdq3b//uu+9+9NFHb775JvoceXC+kjfH roGgKpq0detW7UrL18nY3djqiSeeGDFiBNwYbcMiAqL+cwsdWmjzsGHDvvzy SxxjWJw1a5acx0A1SkhIQKehNPQJ/vxhdKguLCxMzqOnA+GEuEDAto888gg6 4e9//3vXrl1r164tMuhUCJvl6GmPgWqEkx7tRBzwgwYN+uCDD7DYvXv3MtVV UlLSu3dvZMMlEjp58ODBDRo0gMzjQkPOpmdflAlWo0oCR+mOHTv8/PxwaSae yMvMzKzudlWIqnx4v/LU6MqVKxskzpw5I6+Vb6iVFbmcmzdvykNG5eifqgdf HOec2bNnV54anTx5EpKDs5wI0xEREdjq7bffFnmwStFdkCLkee6559QF5ubm IgLCOsigarIa7d+/Py0tDf5JX1mtRmpwHkZfIbrBmspRo0bnFBYWXrt2Tc58 6tQphFT40sWLF0UiIimu9Mtabzk6GdeM2KRLly7iKU50FMVElKanhNOnT6Oj EPdxmqWUGzdudOrUCcebPCxplBrhDI9dg78XMYIB20R3NWnSRB6L1tOB06dP x9f84osv5CdYc3JyxGedumKzHD3tMUqNcOjCgnA4LViwQE6XD0I9dS1duhR5 3njjDXFOSElJqV+/PjpfPNWic1+UCVYjRj/2oUYmc5ASahQVFSXPAjJEjXBq QkcJL8rOzi5HIw0EsfjNN9/EuaJevXq4DMe5SP07KYiMOOH8+OOPGzdutKZG 6DcfHx9cA6Ic/Ovr6ytPLNefJyQkRC78lVdeQSLOZhpfASEPV4Xq9C+//BKr sActqtHt27dxHoMePPTQQwi7CNbliNpFRUVz5syBvLVq1QptePTRRz/55BPs VjlPcnLy6NGjO3To0LBhQ1zVojELFy60VqB+Ndq+fTtyvvPOO/pbK6PdOWoG DhyIbLt27RIpeiK7IZ2MzNhk/PjxciK6HYk4hORE9B72BRqG6mgkgbzR398f madNmyZnXr58ORJxfSpSSI1w5YL91aJFCxTSrVu3TZs26W8qQWF92LBhciL6 AYm4ChYpNjsQ/oYDpn379hqPrwqFiImJQWvxd4qWOzk5yXFfTzl62qOnLuLw 4cODBg1q3rw5/ijatGmDPPKJNC4uDuXgCKxgXTQOFh8fL2+IYpEobpnp3Bdl gtWI0Y+xalSNQF3wxyjsCJ9xqjSqcFyPy16Ea1jt32urbGA7OEXgnDlq1CiE HpyCsNi/f385D/7eX3/9dUR2NF5DjRCjEWrHmX8ukG70yPdf9OR57bXXkIL+ kQunq11cHlr7CgjWNKSgSN+6dSvSEf7w2WL0/+CDD5CIWIAqRowYgXNvnz59 yhq1ccKvXbs23BJReOLEif369cNiy5Yts7KyRJ4xY8bADT766CN8WfRz27Zt UQsqtVigfjWiaULh4eH6Wyuw2TkKrly50rp1a1x6yyaPSAr9wK78/PPP8d0R jNRPWRrSyYiztIshWpSCilDOAw88cOjQIZENLUE2HGAIjhAehGa0kELk1KlT sWrRokVysbt376a2iRSoERTijTfewNGOI/brr792dHTEDsV5QH9rRXWKg3bb tm1IRF+JFJsdGBYWRnf9cJgFBQX98MMP8+fPVwwSUujv3bs3Ljc+/fRT9DOO RqS8+uqrQoT0lKOnPXrqApBJWGXTpk2pHBwD2FPPPPOMGKT66quvsBX6//jx 415eXjgLoYX5+fllrYvOGIqxfXxN2Xh17osywWrE6Mdu1AggrsEBZDsyZGwH 0gUXkm+laf9YW2WTmJhYq1YtXIiVlpaKRAgSThrR0dEiBVfcOLPhPIbPGmqE 86oYLcEe79y5M7Y6evSo/jy4KkTwVZyN6dJecb0PHYKKDB8+HGdLRC4Uq5gY lpeX9+STTyJ60qI6+q9bt44kUFSHEtAb5Rg1unz5spyCsy6+lOw2Fy9elHsY J/ZevXrhhK+4aUXoVCPo+sMPP4zoU44J/DY7h8Axj06GzyC0NWzYEJ3j5+cn Z1DP2oVayIMDRnUyGD16NLZCs9EkGoKDtMiqQ8GuU6dO8hfB3xct+vr6Yi2U QC6ThKFJkyYiBe0nWRK9evLkScgStBA7Wn9rP/zwQ5SDvy85ESqCxL/+9a8i xWYH4jBAIlwFjRR5cOTI96FIIQCOHJGIvYYUnJP1l6OnPXrqwtEFO0UfyleU dNdbXAfRIefu7o4/XlEXLij27dtXprpoBlpCQoL8Lci7xPWdzn1RJliNGP3Y kxqZzJMT5ElHUILz589X5NVDN27ckMeLgIGDUeVj2LBhODXhm16VoCv0MWPG UJ6MjAyE4LFjx9Kihhop5uiuWbMGiThR6M9Tv359xHpFI9H5yKN4lCY4OFic UVu1avXzzz8rtkL0RDQXGqaO/n/729+QkpqaKm/17rvvliNqEyUlJVCdLDO4 9FaPYpnMj+TAo5Bh3rx5inO+QKcaUQ8oukUnNjuHOHXqlBxGRTwSwDQgzDk5 Odg2Pj6+a9euDubLfJHB2E52c3OTI6nixiVFQMRTi9seO3YMSgb3Fo88IIL/ 8Y9/xCbyVGRSI/m6wHTXysp0d/6dd97BJsL5Cfy9IxGXAyLFZgd++umn1EIU mJaWhnMI/mTghOJSxXRXIf70pz/JdcHG69Sp88orr+gvR0979NQVEhLiYJ7k fPX3QGtfeOEFyvPEE09gd6B2/O3DUvBH4eLigkXsIHG/TE9d8+fPdzDPRRQq e+LECXqsoEePHmXaF2WC1YjRj52pkck8o0+oEYIvrk2SkpIUo756wNc/fvx4 cnIyTgLCixQTIKsFuqVlEXHN9dZbb7Vp00b8vpuGGikCPU5iSEQc1J/noYce wvWmopEW1YgoKChAr+LK8cEHH5QHELCzFEMc6ujftm1bXCMrCnR1dZWj9j/+ 8Y/e1hGDRQgi3bt3p9caCJo3by6KRe/BCemRKBn6NUYFOtWIpmDJt5N0NlhP 58gUFxenp6dPmjQJW33xxRcaTUJQQ8hDUeJdCkZ1MiIO3YyDUl65cgVNxeaw aERSMa0aOoqgqXF7moZDmzRpMnz48JEjR6KprVu3hh7g4BF5SI0UXbFixQok enh46G8w3TTECUQux2Y4Vnfgxx9/7GAeTpGHlxcvXozEjz76iBZJIRR/kqBd u3YNGjTQX46e9uipiwZtLCIG6B5//HEsfvDBB3Ih5G/i+X09dcGI/vznPzuY n8JwcnKCLcP5O3bs6CA9u1G+faENqxGjH/tTI5N57AgysGnTph07diSY2bZt Gy5AdIoN/gBRwsGDB5PNYEO6oVbt40UEPAShYYslDh8+bLp78pQvojXUSJ6g azKHVCS+9tpr+vPov6GmKKRTp044W9LIPxafeeYZnDDle1jq6I/AimyKouiC V0RtXORaO8k73J0ZjkMCF+OIIIj44eHhMTExsbGxcE5ZCaCXyD9kyJCFCxei A5FhxowZDqopxIQeNYJpI8+LL76oSLfZYJ2dY5FRo0Y5qEZUFODAcJCm9BjV yXTny8XFRS6HDgwERFrEwQzV0f4KqBpfFgbeqFGjAQMGnDp1CkL76KOPigxQ I9mUCJqXNXXqVP0NLvdNHEUH4tvRkSPnuXbtmoP0SCYphKJzTHfn4ZAr6ilH T3v01EXT9bGJ+qxCv90JyF4Ut/PWrl2LRPHEip66TObrI9gIiTF2JQR48+bN DpLy8Q01pnqxSzUymecd7d+/P0HF7t2709LSLl26lJeXd/v2bfypItzgKgZf FjEa/oPrlGQVZ86cqTm9QfOBNd6bRydGa4iJjkaNGpVvGrbp97c8EOI12gzo 4WU9Axp6eP/992vVqqV4JK1Vq1aicOx0lDl8+HA5A4KCQwXUaOLEicgTEBCg v52Ezs6xiOLup0VoZ82bN48Wjerkzz//HJsoppPhKsPBPBmGFuFg2qNGapKS klBC3759RYqeUSM9lHvqr6ID6Sk8SKmcp6ioCIdcmzZtaFHP6IqecvS0R09d ONSRx9p7xoj+/fsjz+rVq+VEUtBPPvlEf10W8fT0xIZeXl60yNOwmerFXtXI ZB62heeo7UiBWoTUXlSjfkN28ODBOD8EBwdby7Bq1aovfk+vXr0czK/aw+d1 69ZRNtKeb7/9Vt7W4lwjPXkUD7a/+uqrDrYe3qcxc5qNiYPtCxXNmjVDho8/ /hifaRfQNBjFMHs5psF06dKlZcuWcsrJkycRcYQSkOrMnz9fzkMveCyfGiH6 4+q4Xr16Nsd51OjsHIu4u7s7qGYyK6DxMTEtx6hOpu5av369nHjgwAEHaUoJ HczW5hpZBN8XmyxbtkykkBop3vtdjrlGFNbRpXIiPUC3ePFijQ0VHXjkyBEH 83t75Dw0G/D111+X69Kek6OnHD3t0T//B7tMo1hSNcVDmn5+fvIBpqcuNTiA 27dv/8ADD4gzRrn3hQasRox+7FiNiJycHIvDR3rU6NixYzXkJpoMLsMdzDMQ 0tPT5XRcTaelpVncROcTagUFBXAGGILGE2rqPPTKR1wVioEserAF52dRF8xB frCrtLQ0KCiIStZ43K/ynlDr168fthIzjXFmptAv1OjQoUNY/PDDD8UmqAin 7nKrEe0CucAKou6cHTt2KH6fZffu3fT4krgxgQ+nTp0SGSBsbm5uyABtE0NP RnUyzi3YpFu3bmKmH65W3n//fSTOmDGDUiw+oYYzj1g8ffq0PKaEwwYtQX75 0TPxhJp4SwA9odaqVasyPaFGrxmEvh48eJBScNg7OjrKrxnU04Gmu5PKYmJi aBHNoC8Ou6AUPU9y6SlHT3v01IUviK+JvlW88eDChQviBUTZ2dl/+MMfHnnk ETFV7PLly23atHGQps/p/F7YQeIz2kljVvJ75PTsi7LCasToZ8mSJdMkzp8/ L1bZhxoRMBx4Ds3KtqlG+DOv9if0taG7Gzj5DxkyBPaCC2ToClIQfy3m11Cj 9957r2nTpmPHjnV2dn7mmWccLL3XSDuP6e6vOTz++ONOTk6DBw9W/1AIwhbO ci+++CKc5J133qFpohCqNWvWaHxNi9NpKDR07doVbcMZ9aGHHqKHWcoUtenl dTjNosGTJk164YUXnnvuOfwr1AhnS7pR2KNHD1SEq9e6devSq+pkNYIz0O8y 0MtbUAItqt9KR0Mx5XudqUXUnYO9g9D2/PPPo0PQz507d6YgJe93fBfkQTuh gn379qW4Vr9+fXSIXLghnUzvecBWrVu3RiFfffUVHTzoavl2ML3HDwEXART7 Aoc0IqB49d/QoUNbtGjRq1evgQMH0gMIKE0OrKa77zXq3r17+/btUcKYMWOw H+GxZX2vkenuj1M0bNjw888/t/jjFDo78MiRI40aNapduzZ2xKhRozp06EBD PULVSCH69OmD42rYsGE492ItUuBC8higzXL0tEdnXdgE3YjSevfujW4cP348 rm7wRyoLPw5sbIgd9Mknn6CLmjdvjkVkLmtd2InYmx+Ywa5HBuw+xSnX5r4o K7Ia4epMDnyzZs2qjvDL3JPYkxoR+HPAORnagxPO/v37ccEFWYIIHT16FHE8 PT09KysLV7gVedi/ysApCGdCeqE0zjM4sSBkW7tZY/Nt2IhZOJXhMg2frb0N 21oeYunSpX/84x8RQ3Ha7N+///Hjx+W1kZGRH330Udu2bXHuhSPhA053NGlc A4tqhGtMBFN8ZZSDyFu+FzWD9evXo8H0tl40BlfE8Dd5js3Vq1cR0HH1jTxo yapVqxCvFWpEM97VKH5iBkVhN0Ed5XnUFUTdOTiSYQUdO3bEt0BEa9myJQxH oQc45qF5iEq4/MfefPLJJ/EdFTvLZFwn45Jk8uTJsDWUg+ratWv37bffqo/S tWvXvvHGG2gSuhp54ADil03Cw8MRWxEW6VeJEabV75VSvA0bOSF15f4p0j17 9sDE0BgcqyhZjNgQOjvQZB4YGTRoEFqOXY8v9cMPP8jDSuq3RkMzsPvUQyLa 5ehpj/66sCH+FnCgoi6cW3CMYffJo1Im85shsbNgLCgH/ayYDqSzrp9++gnH FQrBjsMVE/6mLN4U1t4XZcXaqBHDlAn7UyOGYRjm/oTViDEEViOGYRjGPmA1 YgyB1YhhGIaxD1iNGENgNWIYhmHsA1YjxhBYjRiGYRj7gNWIMQRWI4ZhGMY+ YDViDIHViGEYhrEPWI0YQ2A1YhiGYewDViPGEFiNGIZhGPuA1YgxBFYjhmEY xj5gNWIMgdWIYRiGsQ9YjRhDYDViGIZh7ANWI8YQWI3sgDNnzri4uOzZs6e6 G2KBffv2oW1oYXU3hLFBv379HBwcLP4AKMPcK7AaMYbAalR5FBYWuthi7dq1 Fa+I1aiGkJiYiC979uzZcmybl5f3448/durUqb6Zp5566r333vPx8bl586bh 7bQIqxFjB7AaMYbAalR5lJSUbJCABSFuItjJiUlJSRWvqCarESJ+Zmbm7du3 q7shVUG51Sg3N7djx44wkxYtWgwcOHD48OE9evRwdHREyqFDhyqjqWrS0tJ2 7txZNXUxTCXBasQYAqtRlXHjxg3EzaVLlxpeck1Wo/uKcqvRzJkzYUEDBgwo LCwUiUVFRZGRkVlZWYa2kWHsGVYjxhBYjaoMDTVC+IuNjQ0KCvLw8Jg9e/bC hQvVYwWpqalLlizx9vZ2d3efM2fOmjVrLl68SKvUaoS65s6di9K0w/SJEydC Q0M9PT3d3NxQO0q4c+eOWIumojElJSUJCQmoEXkWLFiATUQGbDtr1qyCggJF sYsWLcKGFOUVN9REU9GwZcuWoYXBwcG0ClXv3bsXVeALoklhYWHnzp2Ti7XZ HpGnuLg4Li7Oz88Pn9HIK1euYFVOTg46DSWj0oiICPVAlnZvbNu2DS2/dOkS dg3WIo+/v/+uXbtEBjRYcbdUvwb37dsXagSzspkTLX/zzTcbN25cr169F154 Aa1Fh4i158+fHzlyZNu2bbG2SZMmXbp0mTJlis616htq6LFx48Y98cQTdevW bdmy5SeffJKRkSHWIifyv/feexcuXBg8eLCjo2ODBg169uyZkpKi81szjOGw GjGGwGpUZWio0aZNmxDrEfXi4+PhSLAa5Pz5559Fhv379yNl3rx5W7duRXp0 dDTywDporUKNsrOzYQWQKMRxjfbs2LEDW82fPx81btmyBT6DxfDwcJGBNGPV qlVwgKioKDQP0uLq6pqZmUkZDh48iE0U9wSvX7+OxPXr19OiRTWCosCpUH6U GVq1bt06ag86AV8QAoO6jh07pr89Is/KlSvRPzExMaiIbmKiT9AhcEt0NX1T VFem3iA1wlZoGP5F4ehkpAifgTbgWyMFOY+aOX36NK2CBJJWWdsXn332GTRj 9erVGvsL/Pjjj8jWvn37UaNGjR8/vlu3bljs378/rc3Pz2/Tpk2dOnUGDRo0 ffp0ZHj33XebN2+uZ61JpUbYj88++yxS3nrrrUmTJqGWWrVqNWvW7OTJk5SB 1Ojll19GsS+99NLo0aP79OlD9wSxrfYXYZhKgtWIMQRWoypDQ43y8vLkAYrS 0tKwsDA3Nzexd0JCQhCIi4qK5K3EuIesRhcvXoQDQLSuXr2q0Zjz589jE3iC XC+UAImnTp2iRTQViwjr4i5Penq6LBVoABoJ35BLJscQAdSiGgGYg7zV8ePH kRgaGorvTiloPyTHy8tLfGub7RF5li9fLkI8TBIpnp6eQjXxlZENTpWbm6u/ N0iNYFki7kM2UKyvr6/YxNoNNZtqhKohFY0bN546dSoKsTg1C+mQEycnJ9FF AIaDDWGS+BwZGYnPaKG8lfiO2mtNKjUaO3YsFidPniwyoNOQ0qtXL1okNQJo g+i3iRMnIiUwMNDaN2WYSoXViDEEVqMqQ89cI2hAvpkDBw4gs7hbBDXy9/e3 9vSQUKOMjAwPDw8EJjnkWQSBEm6AKP+LxJUrV8gQKA9phrhtR0C65s6dKxbD w8ORB19NpMyfPx8+I8K3RTVSdwIN70BR5MTNmzcjMS0tTX97KI8sITk5OaQ0 8o0nGoWDWenvDVKj3bt3y7VHREQgUfS2NTU6duwY+kF951EmICAAakSyUadO nW7duqFJcscOGzasdu3ap0+fvipx+PBh5B8zZozprvygHIvla681/V6NoDqO jo5NmjTBoSjn6dy5M/JcvnzZdFeNkOfWrVsiA0wSicOHD9f4pgxTebAaMYbA alRlaKhRYWFhfHw8orxisgoEiTJQzIUDIEDDLhTDR+QbK1ascHNzCw4OVoQz i8ybN8/a+wTEXSQaWpGNAixevBjmIxYR9OWbSllZWViMiYkRGSyq0ZYtWxTt QchG4xWJVDi+sv72UB55XIVeoRAaGqouWUzo0tMbpEbyZBuQkJCARJrLZKrY w/sAf4wQGGdn5+7du9etWxeO8dhjjwldpNtbFqF7alC75s2bQ5+wiMNAjHcR 2mtNv1ejc+fO4XPPnj0VeZycnJAeFxdnuqtGr732mpwBmiTf42OYKobViDEE VqMqQ0ONli9fjlUREREI1ohZ6enpO3fuRIqYTQSgSQsWLKB47e7uHh0drbih BkPAv7GxsXoa4+3tjfxnLCECPc3bUWyIRE9PT7EIUcEiGkaLW7duRRvkyT8W 1Ugx9kLtgRkqElGOYhTLZnvUeRDBXcyzm+TEEydOyOappzfENGy5HEqkURRT hdVIJicnZ8CAAdCMgQMHUkqzZs0cHR23WOLw4cOUB0fO4MGDGzZsSMrUoUMH utemZ62sRkePHsXnYcOGKVpFT9LRy7jENGw5AyWiqIr3AMOUA1YjxhBYjaoM a2pEIy1iNjJBM5xlNSLy8vJSUlJIpTZs2ECJ5BuIy/TqJPiJzcbQTG/t1w3p URGAlouRE+iNv7+/vNbaE2qKYnWOGlWSGunpjSpWI5N5IhDNfKbFtm3bwjrk W2zWKCoq2rt379SpUxs3bly3bt3jx4/rWVu+USNWI6ZGwWrEGAKrUZVhTY0o TCcnJ8uJNIlFrUbEnTt34BLe3t60KHyjtLSUJu0kJCRoN4aepYKAaeTRqUYZ GRlUI5RAXbVONaJmX7hwQU5ECFbMNaokNdLTG3rUaPfu3eqbbuUmPz+/du3a 9erVo8XBgwfDOsS7DvSwaNEibKKQVWtrFXONmphRzI/q0qWLYq4RqxFTo2A1 YgyB1ajKsKZGCDQu0tPuJvONJFdXV1mNEG3lh6cKCwt9fX3FHSjZN0pKSlat WoXF7du3azSG7lWhEMVz1gj94tE2nWqEhvn5+SHCRkdHyxNvCJ1qRE+oLV++ XEwTunbtmvoJtUpSIz29oUeNDh06hMUjR44oGmlzGjaq3rx5szxFCvtxwoQJ 0Izu3btTys6dO7HYsmVLMXucSEpKIntMSUlRNM/DwwObhISE2FxrsvKE2rRp 00R+7B31E2qsRkyNgtWIMQRWoypDY66ReOQcoTYyMtLNzY1ujQk1QrgPCAiI iIhAhri4OLoBtHfvXlqr8A1E1ZUrVyJlx44dGu3ZtWsX8qBkKjY2NjY4ONjl 9w/v61Ej090pRrNmzRKTjgQ61ch0971GQUFB8fHxMTExqMXie42021M+NdLT G3rUCGaFNkNZ8RVgMsKRbD68T9OKmjdv/v7773/11VeDBg1q06YNUho1aiQP J6JwJDZo0GDIkCFTpkwZPXo0DeNs3LgRa9EPDz74YM+ePZ2cnKZOndq/f//a tWujHPI97bUm6+81evvtt7///vuBAwc+8MAD6vcasRoxNQpWI8YQWI2qDA01 wl6Iiory8/Nzd3dfuHBhamoqvbFHqBE+wHb8/f1hTb6+vpAo+S3Qat9AhKKX M8uva1aDDVetWuXt7Q2rQUAPDQ1FRWLKjX41oulSLtKjagL9aiTeho3viCpW rFhh8W3Y2u0ptxrZ7A09amQyD87QV5D3tU01wjfF3u/Tpw+9qrp+/frt27eH w6jvzW3ZsqVv375QlDp16rRu3bp79+5isAsmNmbMmM6dOzdu3Bj69Nxzz40f P178zoj2WpOlt2Ffu3bt66+/phdFtmjR4uOPP5Z/JpjViKmBsBoxhsBqxDAM w9gHrEaMIbAaMQzDMPYBqxFjCKxGDMMwjH3AasQYAqsRwzAMYx+wGjGGwGrE MAzD2AesRowhsBoxDMMw9gGrEWMIrEYMwzCMfcBqxBgCqxHDMAxjH7AaMYbA asQwDMPYB6xGjCGwGjEMwzD2AasRYwisRgzDMIx9wGrEGAKrkR2g8cNk9zMW f+TLKEJDQ1H4ypUry7RV48aN//KXv1RL1QxzP8BqxBgCq1HlUVhY6GKLtWvX VryicqjRhQsXsMnPP/9c8dorj7y8vB9//LFTp071zTz11FPwHB8fn5s3b+rZ nNWIYe43WI0YQ2A1qjxKSko2SMCCYCOI7HJiUlJSxSuySzXKzc3t2LEjHKBF ixYDBw4cPnx4jx49HB0dkXLo0CE9JbAaMcz9BqsRYwisRlXGjRs3YCNLly41 vGS7VKOZM2dCAAYMGFBYWCgSi4qKIiMjs7Ky9JTAasQw9xusRowhsBpVGRpq hFgfGxsbFBTk4eExe/bshQsXqgdGUlNTlyxZ4u3t7e7uPmfOnDVr1ly8eJFW qdUIdc2dOxelnT17Vl1dYmKi+tYeDMTT0xNtUGTGEeLm5oZwTItoP1qIzGiw r68vGrNo0aLTp08rtiooKIiLiwsICMC2aPPatWuvXLlSlt4y9e3bFwKAptrM GRER8fbbb8M6Hnrooaeffvof//gHxM8kqREWBw8e7Ojo2KBBg549e6akpChK yM7OHjdu3FNPPVW3bt1mzZrBx44cOSJnuH379vfff//YY4+hii5dukBLFH6S kZGBRVQtb0WJY8aMESlqNap41QzDCFiNGENgNaoyNNRo06ZNsB2E+Pj4eCgH rEYxpLN//36kzJs3b+vWrUiPjo5Gnn379tFahRoh2vr5+UFILl26ZLElyLBj xw5sEh4efvQuSEfVSBTGRaAWJFIG0101WrZsGSRq27Ztmzdv9vLycnV1PXny pNgkNzfX398fUgQjwjfasGEDJA0SRcZCoAQUa62F4LPPPoMArF69WrNTTZMn T0Y2SMWXX37p7Ow8aNAg6Ae+iOmuGr388stt2rR56aWXRo8e3adPH7pDd/36 dVHCuXPnkAFmAi2ZOHHip59+2rBhw/r16+/du1fk+eCDD6io6dOnjxgxAmup qAqqkSFVMwwjYDViDIHVqMrQUKO8vLw7d+6IxdLS0rCwMKiF2DshISGwnaKi Inmr27dv0wdZjSA2kCKI1tWrVzUaY/GGWlZWFhJjYmLkxODgYE9PT2gGLaL9 yLN48eKSkhJKycnJgSyhRjSbUtB4tEFuAL47DGrRokUixaYaQRchAHCJqVOn JiYmii8rAzdDnk6dOsmqU1BQQIukRmD8+PGie2EgSAkMDBT5e/fu3bRp07S0 NJECpWnSpEnXrl1pcd26ddikf//+opCdO3fWqlWr4mpkSNUMwwhYjRhDYDWq MvTMNYL85Js5cOAAMp84cYLSoUb+/v7CTxQINUJg9fDwQNzPzc3Vboy1uUao SBYhtSyRGp06dUreioab6LYatASfITa//J6IiAikw1tok2PHju3bt08sWiQg IAAuQXpTp06dbt26ubq6ohtFhg8//BCrtmzZYnFzUiOYxq1bt0QiWo7E4cOH 02J6ejrZy9XfM3ToUKRnZ2cjz9/+9jd8Tk1NlQt/9913K6hGRlXNMIyA1Ygx BFajKkNDjQoLC+Pj4+fMmaOY/wNBogw0O2ju3Lnbtm2DCCmGj0iNVqxY4ebm FhwcDLOy2RhrakRKJmbjwHAUt9hIjRRjOMiPxN27d4vP1ijrjCMcn5GRkc7O zt27d69bty6U4LHHHjt//jytffrpp6FMYvxKAanRa6+9JidCk2gchhbDwsIc rEPTftq2bQulURQOSaugGhlVNcMwAlYjxhBYjaoMDTVavnw5VkVERBw6dOjU qVPp6ek7d+5EiphNZDJLy4IFC0gw3N3do6OjFTfUvLy88C9Ns7GJNTVCmbNn z0Z7TOaXD6BMVCpnQPtnzZql2AoOgNK2b9+Oz0lJSfgcFxd3xhLy42ZlJScn Z8CAAbCCgQMHUkqzZs1at25tLb/FJ9QosV+/frQYEBCAxXHjxm2xRF5eHvI0 bdr0mWeeURQeEhJSQTUyqmqGYQSsRowhsBpVGdbUiG5aRUVFyYkHDx5UqBGB iJmSkkIqtWHDBkokNUpMTKRXJ23dutVmYzQe3kexWIXWpqam4oM8JdikY9To 6NGj+GztJlcFyc3NrVWrFoyIFqENNkeNtNVo2bJlWPzmm280KtUzdHPu3Dks fvHFF3IeiK6GGhlVNcMwAlYjxhBYjaoMa2p04sQJpCcnJ8uJNDNHrUbEnTt3 AgICvL29aVHMNSotLV2zZg0+JyQkaDfm4sWLYpxHQWZmJllTWFjYrFmzFNOB bM41unbtGt37s2YsFSE/P7927dr16tWjxcGDB9uca6StRsePH8ciDERjOIsm /Cge+VdM+IGzYbFPnz5yHhresaZGRlXNMIyA1YgxBFajKsOaGl2+fBnp69ev FymQE1dXV1mNMjIy5EfYEEx9fX3nzJlDi/ITahCSVatWWdMeAU2W3rhxo8W1 8+fPR/log/p3TKw9oebn5yeeUFuxYgXyxMfHyxsWFRUdO3ZMLNqcho0GbN68 WZRJX23ChAmwgu7du1OKxSfUcEjLT6hpqxF4++23kfLdd9/JPYyGie+u8zGx du3awdmwL2jxwoULTzzxhPYTakZVzTAMwWrEGAKrUZWhMdeIfGP58uWI9ZGR kfRGIFmN4B4BAQERERHIEBcXRy8+Ere6FO81gkIgbiJlx44dGu1Bge7u7rGx sTvNyKtQFE1qUowOme6+1yg0NBT6lJCQsGnTJk9PT8V7jW7evEktXLBgwZYt W5AtPDwc2RYuXCjy2Hx4n6YVNW/e/P333//qq68GDRrUpk0bpDRq1EgeYfv+ +++R+Mgjj4wYMWLSpElDhgxxdHSU32tkU43Onz/ftm1bJHbu3Hn8+PHOzs5Q EdTy0ksviTxoAzJ07dp1ypQpw4cPf+ihh9555x2FnwQGBlJLvvzyy6FDhzZp 0oQeoNNQI6OqZhiGYDViDIHVqMrQUCPshaioKD8/P7gK/CE1NTU9PV1WI3xA KKT3KPr6+kKixHP9Jktvw4YAhIWFIXHXrl3W2gMtgZ/Ac8iC5PGZgoICpKA9 8mgGoXgbNtqzaNEitFaR7datW7C4oKAgfCMPDw94VHR09Llz50QGm2qEzGhA nz59IA/16tWrX79++/btnZycMjIyFDmhkW+88cYf/vAH5GnXrt2oUaPokTqd amQyj6FBPDp06ADxQDmoCKIlT8TC14GDtW7dGi2Bxlh7JTU6BK2tU6fO008/ jc/YL9pqZGDVDMOYWI0Yg2A1YtScPXvW2oQlUqOqbxLDMIxNWI0YQ2A1YtSs WrXK1dVVnsAjYDViGKbGwmrEGAKrESO4efNmYmLi+vXrXVxcIiMjLeZhNWIY psbCasQYAqsRI6DH9j08PNauXSv/uIYMqxHDMDUWViPGEFiNGIZhGPuA1Ygx BFYjhmEYxj5gNWIMgdWIYRiGsQ9YjRhDYDViGIZh7ANWI8YQWI0YhmEY+4DV iDEEViOGYRjGPmA1YgyB1YhhGIaxD1iNGENgNWIYhmHsA1YjxhBYjRiGYRj7 gNWIMQRWI4ZhGMY+YDViDIHVyD7Yt2+fi4vLmTNnqqY6T0/PpUuXVk1d9srl y5exy7Zt21bdDWEY+4HViDEEVqNK5caNGy5WiIiIMLCiSlKjxMREFHv27FlF OqtRxWE1YhjDYTViDIHVqFIhNfL19d2gIjk52cCKqliNLly4cOXKFWPrut8o KirKzMzMzc2t7oYwjP3AasQYAqtRpUJqtGzZssquqIrViGEYpgbCasQYAqtR pWJTjc6dO4cMcXFxivRTp04hffv27fhcWlq6f//+FStW+Pn5zZo1C/9u2LBB MdqgUKPDhw9jMTU1Vc5DiceOHaNFm8WGhYUpbgKKm2jqG2rZ2dlr16719vZ2 c3MLDAzctm1bUVGRWIuGYfM9e/ZkZmaiN2bPno2cGzduvH37ts0+PHHiRGho KGpEyUFBQSjkzp07tArO5urqipaIFJCUlIS6YmNjaREtweLFixf37t2LhlHz 0F1yFZTn0qVLycnJCxYsQB6xR9BL2DA4ONjd3d3DwwN1oT3ytih59erV6D1s 5evri2+XkpKiZ63FG2qV140Mcz/AasQYAqtRpaJn1Mjf3x9BUw7uICIiAhte vXoVn7GPIADQg5iYmPj4+DVr1mARm+Tn54v85VAjm8VmZGSsX7+ewvdRM6dP n6ZVCjWCAEAb4FdodkJCwuLFi7HVokWLSkpKKAPFdFSBiL9y5cpNmzZBNpAC +9LuwB07diDb/PnzoTpbtmxBmVgMDw8XGbZu3YqUxMREWkSPwWHmzZsnjIK0 B5XCIiA8WMRapOAri0IoD4rFtsgZFRUF/TCZvQjqSHsQtaMN2FlYhFLShrAp fGsvLy/0IZqK74Xvjq+pZ61ajYzqRrSWTE+7bxnG/mA1YgyB1ahSITXy8fGJ UHHhwgXKgxituBeGsI4QGRISQosI0LIFme6OlsAKREr5Ro1sFqtzGvaCBQuQ TYgTgF3IxkIxHYghF9SOEoT+WeT8+fPIAAGQvRGKgsRTp07RIrQBegCdyMrK QpnoNHyWrYC0Bw0WA2LFxcVoML6pmC4l8igmUNHXl7sR1S1ZsgQGRX841BhU LW8lxnC016rVyKhuZDVi7ltYjRhDYDWqVDSeUBMBF+EYixs3bhRbYRVS9u7d qygNhoD9lW9m7ty5UAKxqhxqpKdYPWpEIV4xcIGi3Nzc5s+fT4sU01euXCnn OXjwIBKPHj1qpfNMkZGREJjr16//IkHdBV8S2bKzs+EqqCsuLg6rdu7cKRdC 2iOPEYG0tDQkJiQkyHnUD4v5+/ujN375PQcOHBDdSPKDBlhsv/ZahRoZ2I1o G46HgoICi/UyjB3DasQYAqtRpaJzGvaCBQsgG8XFxbS4evVqKEFeXp7IkJGR ERoaiigpy5WPj4/IUD41slmsHjU6cuQI8uzatUv9pZBON4MoptPUKUF6erp8 c0oN3fmyiHxPTXx9sGTJEsWtSdIexQQh9C0SV61aJec5efKkOo81qNmZmZku 5uGm2NhYdKzCRrTXKtSo8rqRYe4fWI0YQ2A1qlR0qhEZCEnLrVu34CrLly8X a+k+l7+/P+Im8qSbgTYg5oo85VAjPcXqUSOa9nzo0CFFHnwFpNMBJuYPyxko UTEjWsbb29vLy+uMJRR3vq5fv47vgtLwHRWFkPbAUuTE0tJSF2lWuZiqLefJ zs5GItTRYgPE7TnSS6qdhn2uXbsmCtFYq1CjyutGhrl/YDViDIHVqFLRqUaI s2IkJDk5WREiV69ejRTFI2l+fn4aakRDEIp7VZRHqJGeYo0dNSprTJ87dy4y 2Hz86s6dO0uWLIF+oFW+vr6KQ1r/qJFicg7tFDHjS5vCwkKIZVRUFJoRGBgI 9bK5ttyjRqxGDGMNViPGEFiNKhX97zWCabi5uUEDkJk+iFXBwcGI+HLmnJwc ulMjUhRqdPLkSRdp+i4RGRkpq5GeYnfv3o2UjIwMRWvLN9eorDGdno87ePCg tQzEzp07yTHw1VzMD3DJa0l75LnlJitzjdTzltE/s2bN0pgormbDhg0oytr7 MOW15Z5rxGrEMNZgNWIMgdWoUtGvRjRYhCjv6uqqmEiDWO8izeYtLS1dtWqV thrdvHkTiwsWLBDPfZ87d45u6wg10lPsoUOHkHLkyBFFay0+oSYbVHR0tIvq 0aqyxnSaqwM/uX79upwOhxG6Qg/IL1y4kIZiyD3kMTf1E2pFRUX0zLviCTW1 Gu3atYt2n/xyoTt37qAPqWPPnz8vrwLUh9Rg7bXWnlCreDfyNGzmvoXViDEE VqNKReOHQhSTaW/dujXLjIvqITKKfV5eXps2bUpISAgKCpo3bx7+1VAjsG7d OqQgG7ZavXq1m5vb2rVr5cL1FEtzeObMmRMfHw9tE46kfq/R7NmzxQt5lixZ 4mLphTzlGO4gOUHhKBkWERsbS1ZDD+9DPNBmd3d3YUq3b98OCAjw8PAQNkXa Ayfx9vbevHkzmhcYGOhi6b1GajUSuujn54eqkW3jxo30aqPCwkKTWXXQFVDZ rVu3ii+O3qbNtddafK+RId3ID+8z9y2sRowhsBpVKhoP78vPyBM0+Ud+VE1w /PjxkJAQOAAsC9G5oKBg8eLF2moEbUA09/HxwVYIr6dPn1Y/oWazWJCSkkIv iHbR9zZsRPa5c+ci4pM8EBW5E4RsJDYoGZIWGhqKTeiGI76gi+rhrMzMTOic eFRN/TZsNE/xYgRramQyjxElJyejNOgWOgreBdVBn1DhMDRoDIqF0qBP0Jlo mzAZ7bXab8OuSDeyGjH3LaxGjCGwGjH2jYb2MAxjZ7AaMYbAasTYN6xGDHP/ wGrEGAKrEWPfsBoxzP0DqxFjCKxGjH3DasQw9w+sRowhsBoxDMMw9gGrEWMI rEYMwzCMfcBqxBgCqxHDMAxjH7AaMYbAasQwDMPYB6xGjCGwGjEMwzD2AasR YwisRgzDMIx9wGrEGAKrEcMwDGMfsBoxhsBqxDAMw9gHrEaMIbAaMQzDMPYB qxFjCKxGDMMwjH3AasQYAqsRY5Pi4mIHB4f33nvPWoZx48Y53GXKlCnG1v6X v/zl4YcfNrZM+6Bx48bonOpuRXk4dOiQgYfK0KFDxeHn7+9vSJnMPQqrEWMI rEY1lry8vB9//LFTp071zTz11FOQEx8fn5s3b1ZxS3Sq0aBBg5ydnTdv3oyU jIwMB4latWq1bNnyr3/964oVK+7cuVOm2sunRtSAN954o6wbVi8azfb19cUq /CtSKqJGBu4gbXr37o3yFYnGqtGqVatw4PXs2ZPViGE1YgyB1ahmkpub27Fj R5zqW7RoMXDgwOHDh/fo0cPR0REpCCtV3BidahQbGytSKPK2atVqjJmRI0f2 69evQYMGSETmMtXOakSo1WjPnj1HjhypSEWG7CBtLKpRfn7+zp07z507Z2BF kCJWI4bViDEEVqOaycyZM3GeHzBgQGFhoUgsKiqKjIzMysqq4saUW40UIT49 PR3Bt27dumU66liNCLUaGV5R+XaQNhbVqDJgNWJMrEaMQbAa1Uz69u2L83xi YqJGni1btiCPp6dnTExMt27d6tev36JFCycnp9zcXEXOiIiIN998s3HjxvXq 1XvhhRewSUlJiVh76dKlH374oWvXrk2bNkWGdu3aff/99/KBoVYjrMUiEr28 vEy61Qi8+OKLSM/OzhYpaImPj0+nTp0eeughtLBXr14///yzvAmp0c2bN0eP Ho0viGz4sps2bdLuQD1qlJKSMnDgwGbNmkEGnnnmmcmTJ+fn59Oq7du3Wxw/ iY6ORvq0adNEyuHDhwcNGtS8efM6deq0adMG/X/16lV5k5UrV77yyivoW7T8 scce69ev3759+8rRbJs31M6fPz9y5Mi2bdtiJzZp0qRLly4ad6z07yCTreNH o16kOPweWmXxhloFe5LViDGxGjEGwWpUM/nss89wnl+9erVGHlIjXJUjAH36 6afTp09H/ELKq6++CpkR2X788Ucktm/fftSoUePHj4dXYLF///4iQ3h4eMOG DRFoYALffPMNog8yoKjS0lLKoFAjqNfrr79eu3btkJAQStGpRufOnYPkIOrJ iYiGyPn8889/9913I0aM+MMf/oCS0SSRAdG/QYMGKKpDhw4Ipl9//bWjoyPy bNiwQaNzbKoRoiq+NaLwkCFDJk2a9Oc//xn50Tm3b9/G2jt37jz++OMtW7aU HcB0d8bvsWPHaBGGhjCNYP35559PnDjxgw8+eOCBB2BZOTk5lGHOnDnI/+yz z06YMAE76Msvv4RCaIz8lFuNIHXoWHwd9Ccqwo5+9913oRllqsjiDtI+frTr DQsL69y5M/KH3oVuB6vVqOI9yWrEmFiNGINgNaqZIFLgPI/YN3Xq1MTERIrX CkiNAC7qRSLsAilz586lRWxbq1YtXIALzwGIX8gTHR1Ni4g+isPgp59+QoaN GzfSoqxG2dnZL774Yt26dWV7saZGrVu3Hmdm7Nixf//736E9SNm2bZvItm7d OmTr3r17UVERpaSlpUGEmjRpIgZwEP2R5+WXXxb3Fk+ePIk8KEpspcamGlHI pknjxPDhw5Eya9YsWkSAxmJcXJzIUFBQAJvC16fFvLy8Zs2aoWHyxPjIyEhs Bc2jxT/+8Y+PPvooNpSrVg/rKZoNtRiq4qWXXtJQI6rXx8enTBXZ3EE2jx+b 9eqZhm1IT7IaMSZWI8YgWI1qLAEBAYh9JD+4KsfVuqur640bN0QGUqM//elP 8lYXL15E5ldeeYUWhw0bVrt27dOnT1+VOHz4MDYcM2aMokYIGMwnKyuLMojb SUKNMjMz27dv//DDD8vCYLKuRgrQkq+++ury5csiW79+/ZC+e/duuTSEaXnE jNRIiBwxevRohdgo0FYjCs29evWSE/HFoXzPP/88LVInfPbZZyLDypUrkeLt 7U2LISEhWAwLC7v6e5588skXXniB8iCgP/7447du3bLWTovN1kBbjXDMVKQi 9Q6yefzYrFePGhnSk6xGjInViDEIVqOaDPYOQo+zs3P37t0RtXHmf+yxx86f P09rSY3U82HatWvXoEED+vzss89aC7LyPbV58+Z17NjxgQcekDMMGjSI1pIa de7cuU2bNo6OjgqTMem7oQbxCA4Orl+//tNPP52Xl0eJTz31VL169RRPi69d uxbbTp48mRZJja5fvy7nWbFiBRI9PDysdZ22Gi1duhRroZqKdHRCrVq1xPAU Fhs1aiTC8fvvv48ugnzSIizCWt82adKE8syaNQuLbdu2xdfB/lIMepSp2do3 1NA/zZs3h8Zgt6KfT506VdaKLO4gm8ePzXr1qJEhPclqxJhYjRiDYDW6V8jJ yRkwYABO/gMHDqQUUiMXFxdFztdeew3pNEmmWbNmkJktlsC1P+WfMWMG8iPI zpkzJyIiAoaDf5HSr18/ykBqRENYXbt2FXFToH8a9tSpUx2kgZemTZtC9hR5 du7ciTxOTk60iIY9+OCDijxbt25FHpRmrbu01YjCqJgrJXjrrbeQfu3aNVp0 c3PDIlTNZHYA2GmPHj1EZuwIrF20aJG6b7dv3055YH2BgYH0HgYA8RgxYoTN +1zlm4adnp4+ePDghg0bUl0dOnRQDLXpqUixg/QcP9r16lEjQ3qS1YgxsRox BsFqdA+BQFCrVi1EK1rUM2qEq2zkkW/DKSgtLUWEbd++vfyWgJMnT6rV6L33 3qPo/Prrr4uJQIR+NSLpGjp0KC3W8FGjc+fOYZGGR4KCghQ2RXOTIiMjrbVB 5tKlS2gzzAqbfPLJJ+Vots5XPhYVFe3duxeGg7VwuePHj5epIsUOsnn82KxX jxoZ0pOsRoyJ1YgxCFajewgISe3ateEStKhnrhEu55EnODjYWplQDmRANjkR +S2qET7DRhzMz6/JR45+NaKShwwZQos012jPnj1yHipNMdcoKipKzmPIXCNE bTnx8uXL6Fsx14j461//ikS4AYrCB9nQ5s+fL1uEHkpKSmCDTZs2LUezy/o2 7EWLFmmogs4dZPP4sVnvu+++K8YwBQo1MqQnWY0YE6sRYxCsRjUTREDEffmx IMSCCRMmOJif56IUPU+o0c2pli1bpqeny+UnJSWlpaXRZ0TYJ598UhwJMITH H3/cmhqZ7s766Nmzp5iEo1ONcnNz6bmwefPmUQo9odajRw/xrNmJEycefvhh i0+oicf06Am1Vq1aVfwJta1btyq6TjyhRlDUnjlz5gMPPPC3v/1N8XXQzlq1 aileI3DhwoX4+Hj6jPLlnZiXl9eiRQv1PUQ9zdZWo5SUlEuXLsn5SWLVNw01 KlLvIJvHj816P/74YyyePXtWzqNQI0N6ktWIMbEaMQbBalQzoWlFzZs3f//9 97/66qtBgwa1adMGKY0aNUpOTqY8pEZ9+vSpW7fusGHDpk2b9vrrryPllVde kd9r5OrqikS4xJAhQxCMRo8e3aVLFwfp2fzJkyc7mF9cM3HixLFjxz7yyCNU uzU1Mt19uh9Vk65YU6NHH330H3dBaQh/DubZSvK7COi9Rh06dPjuu+/wTfEF Lb7XCEKIFk6aNGnMmDFQAoiKnvcaIXp+qoJMct++fXCwOnXqDB06FMXS25zE e40EOTk5dcyISUcycXFxaBtieu/evVHI+PHj33rrrQcffBASSxlQBbQTVaCT 0Ut0f0rxqLu62eVQI09PT9QLX3Vycpo6dWr//v3RjThmFDciFRXp2UHax4/N ehcvXkxlYi0Mk+YOqd9rVPGeZDViTKxGjEGwGtVMzp075+fnB/eglwzXr18f YoDog4gm8qjfhg2VgjmoZ/kiZ9++fZs1a4YQ37p1a2gGIqwIXjAfhL9nnnkG FT399NPQHlySa6sRgIkhEcUWFhbqeXgfzevUqdOMGTMUzxaVlJR4e3t37NgR tcOLEGTFzFtC8TZsZEOcleuyiMZT8NOnT6c89Dbspk2bolvwxRFz1TPMwQcf fEBSavHJ8ePHj3/++eePP/44CkEPv/TSSyhHPKiFfn7nnXewFs1G43v06CEP 8VlrdjnU6MiRI9j1nTt3RiIc47nnnoNdaPymjP4dZNI8fmzWW1paCtVBD0CZ HDTfhl3BnmQ1YkysRoxBsBrduwg1qu6GWBg1YpgqhtWIMbEaMQbBanTvwmrE MAJWI8bEasQYBKvRvUtNU6MBAwZMmDCBBYmpYsLCwnDg0TupWI3uc1iNGENg Nbp3qWlqRGj82jvDVAb0m78Eq9F9DqsRYwisRgzDMIx9wGrEGAKrEcMwDGMf sBoxhsBqxDAMw9gHrEaMIbAaMQzDMPYBqxFjCKxGDMMwjH3AasQYAqsRwzAM Yx+wGjGGwGrEMAzD2AesRowhsBoxDMMw9gGrEWMIrEYMwzCMfcBqxBiCxR8T ZxiGYZh7DkS06g6qjD1w69bt6j6WGYZhGMYAbt++Xd1BlbEHCgtZjRiGYRh7 gNWIMYTCwsLqPpYZhmEYxgAQ0ao7qDL2QBGrEcMwDGMXFBYVVXdQZeyB4uLi 6j6WGYZhGMYAENGqO6gy9oDJdKe0tLS6D2eGYRiGqRCIZXdMd6o7qDL2wG+/ /VZSUnKH7YhhGIa5Z0EUQyxDRKvuoMrYCTiWTKZ/lvwvxaCkuOR//7u7/L8L xXdXFPN//B//x//xf/xf1f/3fxGq+H+DUvH//1xCq0pN/zSxFzEMwzAMw1SQ /wfvqWA8 "], {{0, 199}, {777, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{388.5, Automatic}, ImageSizeRaw->{777, 199}, PlotRange->{{0, 777}, {0, 199}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.782754583220405*^9}, CellLabel->"Out[1]=", CellID->434555992] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "task", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754553918542*^9, 3.782754563840478*^9}}, CellLabel->"In[2]:=", CellID->351040317], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754584906933*^9}, CellLabel->"Out[2]=", CellID->738293890] }, Open ]], Cell["Once completed, it no longer exists:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7827544822119923`*^9, 3.782754494620737*^9}, { 3.858434161796463*^9, 3.8584341660997458`*^9}}, CellID->356501631], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Pause", "[", "5", "]"}], ";", RowBox[{"ObjectExistsQ", "[", "task", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.78275456543909*^9, 3.782754579956217*^9}}, CellLabel->"In[3]:=", CellID->980540286], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827545934584007`*^9}, CellLabel->"Out[3]=", CellID->445736162] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["URL", "Subsubsection", TaggingRules->{}, GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.7827521214617357`*^9}, CellID->75590337], Cell[TextData[{ "See if a ", 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"], " exists:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.78275460578965*^9, 3.782754615274625*^9}}, CellID->790232031], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"URL", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754618580871*^9, 3.7827546398228807`*^9}}, CellLabel->"In[1]:=", CellID->626298881], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754641226263*^9}, CellLabel->"Out[1]=", CellID->978554563] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"URL", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754647634066*^9, 3.782754649899622*^9}}, CellLabel->"In[2]:=", CellID->672694704], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754650871462*^9}, CellLabel->"Out[2]=", CellID->41147771] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Streams", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.782756556134355*^9, 3.782756557099317*^9}}, CellID->865007927], Cell[TextData[{ "Test if an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["InputStream", "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/InputStream", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["OutputStream", "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/OutputStream", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is open:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827565626383467`*^9, 3.782756578642582*^9}}, CellID->841869695], Cell[BoxData[ RowBox[{"Put", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782756602823482*^9, 3.7827566064879827`*^9}}, CellLabel->"In[1]:=", CellID->970029748], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stream", "=", RowBox[{"OpenRead", "[", "\"\\"", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782756582023411*^9, 3.782756617943984*^9}}, CellLabel->"In[2]:=", CellID->803808164], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InputStream", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Thickness[0.0016806722689075631`], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, FaceForm[{ GrayLevel[0.93], Opacity[1.]}], StripOnInput -> False], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}, CurveClosed -> {1}]}, JoinForm[{"Miter", 10.}], RGBColor[0.699951, 0.699951, 0.699951, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{22.478099999999998`, 1.0035199999999997`}, {23.478899999999996`, 1.0035199999999997`}, {24.321099999999998`, 1.0035199999999997`}, {25.003899999999998`, 1.6863299999999997`}, {25.003899999999998`, 2.5285199999999994`}, {25.003899999999998`, 23.474999999999998`}, {25.003899999999998`, 24.317199999999996`}, {24.321099999999998`, 24.999999999999996`}, {23.478899999999996`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999993`}, {20.4805, 22.421099999999996`}, { 20.4805, 13.0039}, {20.4805, 3.5867199999999992`}, { 22.478099999999998`, 1.0035199999999997`}, { 22.478099999999998`, 1.0035199999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}}, {{{3.50586, 12.9016}, {8.26328, 16.8398}, {8.26328, 14.856599999999998`}, { 6.0230500000000005`, 12.947299999999997`}, {8.26328, 10.946100000000001`}, {8.26328, 8.96289}, {3.50586, 12.9016}}}]}, 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}}}, {{{16.801199999999998`, 12.8969}, {16.801199999999998`, 12.335499999999998`}, {17.256200000000003`, 11.880899999999999`}, {17.817599999999995`, 11.880899999999999`}, {18.378899999999998`, 11.880899999999999`}, {18.834, 12.335499999999998`}, {18.834, 12.8969}, {18.834, 13.458200000000003`}, { 18.378899999999998`, 13.9133}, {17.817599999999995`, 13.9133}, {17.256200000000003`, 13.9133}, { 16.801199999999998`, 13.458200000000003`}, { 16.801199999999998`, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{13.3812, 12.8969}, {13.3812, 12.335499999999998`}, { 13.836300000000001`, 11.880899999999999`}, { 14.397699999999999`, 11.880899999999999`}, { 14.958999999999998`, 11.880899999999999`}, { 15.413699999999999`, 12.335499999999998`}, { 15.413699999999999`, 12.8969}, {15.413699999999999`, 13.458200000000003`}, {14.958999999999998`, 13.9133}, { 14.397699999999999`, 13.9133}, {13.836300000000001`, 13.9133}, {13.3812, 13.458200000000003`}, {13.3812, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{9.961329999999998, 12.8969}, {9.961329999999998, 12.335499999999998`}, {10.4164, 11.880899999999999`}, { 10.977699999999999`, 11.880899999999999`}, { 11.538699999999999`, 11.880899999999999`}, {11.9938, 12.335499999999998`}, {11.9938, 12.8969}, {11.9938, 13.458200000000003`}, {11.538699999999999`, 13.9133}, { 10.977699999999999`, 13.9133}, {10.4164, 13.9133}, { 9.961329999999998, 13.458200000000003`}, {9.961329999999998, 12.8969}}}]}, FaceForm[ RGBColor[ 0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`, 1.]], StripOnInput -> False]}, Background -> GrayLevel[0.5], Axes -> False, AspectRatio -> 1, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]]], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ StyleBox[ PaneBox[ "\"BobsBesties\"", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "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[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Thickness[0.0016806722689075631`], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, FaceForm[{ GrayLevel[0.93], Opacity[1.]}], StripOnInput -> False], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}, CurveClosed -> {1}]}, JoinForm[{"Miter", 10.}], RGBColor[0.699951, 0.699951, 0.699951, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{22.478099999999998`, 1.0035199999999997`}, {23.478899999999996`, 1.0035199999999997`}, {24.321099999999998`, 1.0035199999999997`}, {25.003899999999998`, 1.6863299999999997`}, {25.003899999999998`, 2.5285199999999994`}, {25.003899999999998`, 23.474999999999998`}, {25.003899999999998`, 24.317199999999996`}, {24.321099999999998`, 24.999999999999996`}, {23.478899999999996`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999993`}, {20.4805, 22.421099999999996`}, { 20.4805, 13.0039}, {20.4805, 3.5867199999999992`}, { 22.478099999999998`, 1.0035199999999997`}, { 22.478099999999998`, 1.0035199999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}}, {{{3.50586, 12.9016}, {8.26328, 16.8398}, {8.26328, 14.856599999999998`}, { 6.0230500000000005`, 12.947299999999997`}, {8.26328, 10.946100000000001`}, {8.26328, 8.96289}, {3.50586, 12.9016}}}]}, 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}}}, {{{16.801199999999998`, 12.8969}, {16.801199999999998`, 12.335499999999998`}, {17.256200000000003`, 11.880899999999999`}, {17.817599999999995`, 11.880899999999999`}, {18.378899999999998`, 11.880899999999999`}, {18.834, 12.335499999999998`}, {18.834, 12.8969}, {18.834, 13.458200000000003`}, { 18.378899999999998`, 13.9133}, {17.817599999999995`, 13.9133}, {17.256200000000003`, 13.9133}, { 16.801199999999998`, 13.458200000000003`}, { 16.801199999999998`, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{13.3812, 12.8969}, {13.3812, 12.335499999999998`}, { 13.836300000000001`, 11.880899999999999`}, { 14.397699999999999`, 11.880899999999999`}, { 14.958999999999998`, 11.880899999999999`}, { 15.413699999999999`, 12.335499999999998`}, { 15.413699999999999`, 12.8969}, {15.413699999999999`, 13.458200000000003`}, {14.958999999999998`, 13.9133}, { 14.397699999999999`, 13.9133}, {13.836300000000001`, 13.9133}, {13.3812, 13.458200000000003`}, {13.3812, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{9.961329999999998, 12.8969}, {9.961329999999998, 12.335499999999998`}, {10.4164, 11.880899999999999`}, { 10.977699999999999`, 11.880899999999999`}, { 11.538699999999999`, 11.880899999999999`}, {11.9938, 12.335499999999998`}, {11.9938, 12.8969}, {11.9938, 13.458200000000003`}, {11.538699999999999`, 13.9133}, { 10.977699999999999`, 13.9133}, {10.4164, 13.9133}, { 9.961329999999998, 13.458200000000003`}, {9.961329999999998, 12.8969}}}]}, FaceForm[ RGBColor[ 0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`, 1.]], StripOnInput -> False]}, Background -> GrayLevel[0.5], Axes -> False, AspectRatio -> 1, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]]], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"BobsBesties\"", ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Binary: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Open: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[Options[ InputStream["BobsBesties", 4]] =!= {}, StandardForm], UpdateInterval -> 1], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InputStream["BobsBesties", 4], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.782756600819385*^9, 3.782756618402103*^9}}, CellLabel->"Out[2]=", CellID->471088055] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "stream", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.78275661076464*^9, 3.782756621035026*^9}}, CellLabel->"In[3]:=", CellID->878387636], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782756621470989*^9}, CellLabel->"Out[3]=", CellID->184226577] }, Open ]], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Close", "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/Close", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " the stream:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.782756639870977*^9, 3.782756647556847*^9}}, CellID->229926142], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Close", "[", "stream", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782756622299342*^9, 3.782756626918694*^9}}, CellLabel->"In[4]:=", CellID->599878211], Cell[BoxData["\<\"BobsBesties\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.782756627375255*^9}, CellLabel->"Out[4]=", CellID->611829157] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "stream", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827566280708313`*^9, 3.782756630496595*^9}}, CellLabel->"In[5]:=", CellID->815412062], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827566309592743`*^9}, CellLabel->"Out[5]=", CellID->951414326] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Strings", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.782754681227603*^9, 3.782754683136963*^9}}, CellID->837574704], Cell["Strings are either interpreted as URLs or files:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782754685317501*^9, 3.7827546937858057`*^9}, { 3.782754734464168*^9, 3.782754734717144*^9}}, CellID->89726523], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782754695754484*^9, 3.782754711315689*^9}}, CellLabel->"In[1]:=", CellID->210412005], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.782754712383232*^9}, CellLabel->"Out[1]=", CellID->978554564] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "$InstallationDirectory", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.782754731084957*^9}, CellLabel->"In[2]:=", CellID->316639288], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7827547314487057`*^9}, CellLabel->"Out[2]=", CellID->738293891] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827547478103323`*^9, 3.782754761584803*^9}}, CellLabel->"In[3]:=", CellID->127070965], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.78275476204918*^9}, CellLabel->"Out[3]=", CellID->445736163] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "Unknown object types give ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7827574945144053`*^9, 3.782757503200029*^9}}, CellID->895925517], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"BestieObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7827575074199467`*^9, 3.782757522820221*^9}}, CellLabel->"In[1]:=", CellID->754575227], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.782757523324066*^9}, CellLabel->"Out[1]=", CellID->208652605] }, Open ]], Cell["Register a new object type:", "Text", TaggingRules->{}, CellChangeTimes->{{3.782757482238611*^9, 3.782757487712864*^9}, { 3.782757525144494*^9, 3.7827575266415586`*^9}}, CellID->859679153], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"\"\\"", ",", "BestieObject", ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"$MyBesties", ",", RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782757529779374*^9, 3.78275755885443*^9}}, CellLabel->"In[2]:=", CellID->666097518], Cell[BoxData[ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"$MyBesties", ",", RowBox[{"First", "[", "#1", "]"}]}], "]"}], "&"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7827575638484907`*^9}, CellLabel->"Out[2]=", CellID->816889520] }, Open ]], Cell["\<\ Now the specified function is used on the object type to determine whether it \ exists:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.782757603974845*^9, 3.782757624435958*^9}}, CellID->992893680], Cell[BoxData[ RowBox[{ RowBox[{"$MyBesties", "=", RowBox[{"{", "\"\\"", "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782757577417417*^9, 3.7827575833957443`*^9}}, CellLabel->"In[3]:=", CellID->743445066], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"BestieObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->238525298], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.78275759092983*^9}, CellLabel->"Out[4]=", CellID->676276386] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObjectExistsQ", "[", RowBox[{"BestieObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.782757596680735*^9, 3.782757597866782*^9}}, CellLabel->"In[5]:=", CellID->283267829], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.78275759841236*^9}, CellLabel->"Out[5]=", CellID->951414327] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Bob Sandheinrich", "Text", CellID->177008439] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["Existentialism", "Item", CellID->78447557], Cell["check", "Item", CellID->310131566], Cell["files", "Item", CellID->160929467], Cell["objects", "Item", CellID->685712034] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Core Language & Structure", {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "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, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Visualization"}], "\" \"", "\"Data Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Date & Time"}], "\" \"", "\"Date & Time\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Decorations"}], "\" \"", "\"Decorations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Differential Geometry"}], "\" \"", "\"Differential Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dimension Reduction"}], "\" \"", "\"Dimension Reduction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Discrete Mathematics"}], "\" \"", "\"Discrete Mathematics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dynamic Interactivity Language"}], "\" \"", "\"Dynamic Interactivity Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Error Handling", {False, "Error Handling"}], "\" \"", "\"Error Handling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Expressions"}], "\" \"", "\"Expressions\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Language Interfaces"}], "\" \"", "\"External Language Interfaces\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "File Operations"}], "\" \"", "\"File Operations\""}, "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, "Front End Utilities"}], "\" \"", "\"Front End Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Functional Programming", {False, "Functional Programming"}], "\" \"", "\"Functional Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Function Visualization"}], "\" \"", "\"Function Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Games"}], "\" \"", "\"Games\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data and Entities"}], "\" \"", "\"Geographic Data and Entities\""}, "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, "Geographic Visualization"}], "\" \"", "\"Geographic Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Region Properties"}], "\" \"", "\"Geometric Region Properties\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Transforms"}], "\" \"", "\"Geometric Transforms\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Construction & Representation"}], "\" \"", "\"Graph Construction & Representation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Properties & Measurements"}], "\" \"", "\"Graph Properties & Measurements\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Visualization"}], "\" \"", "\"Graph Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Handling Arrays of Data"}], "\" \"", "\"Handling Arrays of Data\""}, "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, "Image Filtering & Neighborhood Processing"}], "\" \"", "\"Image Filtering & Neighborhood Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Image Processing & Analysis"}], "\" \"", "\"Image Processing & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Importing and Exporting"}], "\" \"", "\"Importing and Exporting\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Interactive Manipulation"}], "\" \"", "\"Interactive Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Iterated Maps & Fractals"}], "\" \"", "\"Iterated Maps & Fractals\""}, "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, "Layout & Tables"}], "\" \"", "\"Layout & Tables\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Life Sciences & Medicine: Data & Computation"}], "\" \"", "\"Life Sciences & Medicine: Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Linguistic Data"}], "\" \"", "\"Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "List Manipulation"}], "\" \"", "\"List Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Logic & Boolean Algebra"}], "\" \"", "\"Logic & Boolean Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Low-Level Notebook Programming"}], "\" \"", "\"Low-Level Notebook Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Maps & Cartography"}], "\" \"", "\"Maps & Cartography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Mathematical Functions"}], "\" \"", "\"Mathematical Functions\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Matrices and Linear Algebra"}], "\" \"", "\"Matrices and Linear Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Molecular Structure & Computation"}], "\" \"", "\"Molecular Structure & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Natural Language Processing"}], "\" \"", "\"Natural Language Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Neural Networks"}], "\" \"", "\"Neural Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Basics"}], "\" \"", "\"Notebook Basics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Document Generation"}], "\" \"", "\"Notebook Document Generation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Formatting & Styling"}], "\" \"", "\"Notebook Formatting & Styling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Number Theory"}], "\" \"", "\"Number Theory\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Numeric Approximation"}], "\" \"", "\"Numeric Approximation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Optimization"}], "\" \"", "\"Optimization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Computing"}], "\" \"", "\"Parallel Computing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Persistent Storage"}], "\" \"", "\"Persistent Storage\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Physics & Chemistry: Data and Computation"}], "\" \"", "\"Physics & Chemistry: Data and Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Plane Geometry"}], "\" \"", "\"Plane Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Polynomial Algebra"}], "\" \"", "\"Polynomial Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Precollege Education"}], "\" \"", "\"Precollege Education\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Presentations with the Wolfram System"}], "\" \"", "\"Presentations with the Wolfram System\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Probability & Statistics"}], "\" \"", "\"Probability & Statistics\""}, "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, "Random Stuff"}], "\" \"", "\"Random Stuff\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Real & Complex Analysis"}], "\" \"", "\"Real & Complex Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Recreational Math"}], "\" \"", "\"Recreational Math\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "RepositoryTools"}], "\" \"", "\"RepositoryTools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Rules & Patterns"}], "\" \"", "\"Rules & Patterns\""}, "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, "Scientific Data Analysis"}], "\" \"", "\"Scientific Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Segmentation Analysis"}], "\" \"", "\"Segmentation Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sequence Analysis"}], "\" \"", "\"Sequence Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Shortcuts and Idioms", {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "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, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "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, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "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, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "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, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVUNtKw0AQBbGaiPRJBd/2ybd8RIgtBgqVjn7AdjNNF/\ cS5vKQv3eDKPVpLmfmnDPTVg2sQOaAcLNXmVQauO3O6L5wOK34eudZ4LnLhGZn06h2RPNiQEidKCGs\ N0SZzJtNQ/BphKetJic+JxvMO+WRbIxL//GiMJ/igxePDA9wziROhU1hMP3gc+\ TiqBeMzHWrkqMV7xqoCsGEJDPcdVZwzFT2i9f9tKjx6erH6xIPGpCrzeDFHku22trA+\ AfUrxjwElkOzkFj+i+47pMgTVRmFwWo2zSDHhnLh+4PyFnJ4cc8IVS/N38D4cF1uw=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->938826138] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["FileExistsQ", "Item", CellID->983073888], Cell["ChannelObject", "Item", CellID->546657422], Cell["CloudObject", "Item", CellID->5657787], Cell["Databin", "Item", CellID->898341693], Cell["File", "Item", CellID->116437454], Cell["InputStream", "Item", CellID->825051499], Cell["LocalObject", "Item", CellID->580292517], Cell["NotebookObject", "Item", CellID->363644638], Cell["OutputStream", "Item", CellID->378168785], Cell["PermissionsGroup", "Item", CellID->546985257], Cell["PersistentObject", "Item", CellID->695666561], Cell["ResourceFunction", "Item", CellID->59576503], Cell["ResourceObject", "Item", CellID->30511322], Cell["SearchIndexObject", "Item", CellID->448122471], Cell["TaskObject", "Item", CellID->208522563], Cell["URL", "Item", CellID->878285331] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["FileQ", "Item", CellID->905107177], Cell["EnsureDirectory", "Item", CellID->688786615], Cell["OpenStreamQ", "Item", CellID->957407985], Cell["CacheTo", "Item", CellID->923656513] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ObjectExistsQ | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.858677787080469`16.339013504156505*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.858677787143591`16.33901350416361*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"9abfd559-d0c1-41af-83f9-232bdcce1ae2", CellTags->{"Name", "TemplateCell", "Title"}, CellID->225756145]}, "TemplateCell"->{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"9abfd559-d0c1-41af-83f9-232bdcce1ae2", CellTags->{"Name", "TemplateCell", "Title"}, CellID->225756145], Cell[728, 27, 105, 2, 70, "Text",ExpressionUUID->"5fd37dfa-9971-42ab-a4b2-5e28f880231c", CellTags->{"Description", "TemplateCell"}, CellID->556430571]}, "Title"->{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"9abfd559-d0c1-41af-83f9-232bdcce1ae2", CellTags->{"Name", "TemplateCell", "Title"}, CellID->225756145]}, "Description"->{ Cell[728, 27, 105, 2, 70, "Text",ExpressionUUID->"5fd37dfa-9971-42ab-a4b2-5e28f880231c", CellTags->{"Description", "TemplateCell"}, CellID->556430571]}, "Definition"->{ Cell[858, 33, 1206, 29, 70, "Section",ExpressionUUID->"67a9584d-6eaf-42c9-9ab0-ae4c6bfa9e27", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[858, 33, 1206, 29, 70, "Section",ExpressionUUID->"67a9584d-6eaf-42c9-9ab0-ae4c6bfa9e27", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[858, 33, 1206, 29, 70, "Section",ExpressionUUID->"67a9584d-6eaf-42c9-9ab0-ae4c6bfa9e27", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[16225, 486, 1980, 50, 70, "Subsection",ExpressionUUID->"20895443-d0cc-4f64-a1e7-f91de7e860f3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[20614, 630, 1429, 32, 70, "Subsection",ExpressionUUID->"cbeed11f-0167-4344-be06-376b19511905", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[32704, 1020, 7029, 152, 70, "Section",ExpressionUUID->"83109ae7-ca52-4861-b077-d463cccf6cd3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[213931, 5466, 1026, 26, 70, "Subsection",ExpressionUUID->"d5b19fe2-47f1-4f72-96b6-129eaf387daa", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[215049, 5500, 996, 26, 70, "Subsection",ExpressionUUID->"a46716d8-47a1-4082-9076-2da6371bb87d", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[216268, 5543, 221, 6, 70, "Subsection",ExpressionUUID->"02e62ff7-5d8f-4dff-84a6-125a6da6d66a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[245316, 6531, 980, 26, 70, "Subsection",ExpressionUUID->"f77430ad-9322-45ca-909f-b6352a8d15c7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[247139, 6610, 1039, 26, 70, "Subsection",ExpressionUUID->"ea4f9d6b-1e32-4b9f-a152-7111a90f276b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[248409, 6653, 1084, 26, 70, "Subsection",ExpressionUUID->"b3986982-8abd-4a0c-af23-f81a335dc14a", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[250049, 6694, 923, 26, 70, "Subsection",ExpressionUUID->"7b69d144-e3ed-4c89-9b72-7ed373ed8e60", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[251517, 6735, 1874, 45, 70, "Subsection",ExpressionUUID->"3224468d-2117-4b06-a822-8f800c009a0f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[253748, 6801, 955, 25, 70, "Subsection",ExpressionUUID->"ef71a9d0-4cfe-4a94-ba9a-e79dfd2bf972", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[254728, 6830, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a62f29a4-5c5d-4fd9-a2b7-d605db9b0f50", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[256031, 6870, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4bfc0288-7f0e-42a1-8a7e-09e6d0ab521b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[258505, 6946, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6869856b-7eda-47f0-be71-e12ea75759b5", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[261190, 7027, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b6805008-4967-4893-ba80-86734d33b113", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[266039, 7163, 1071, 27, 70, "Subsubsection",ExpressionUUID->"362b892b-3ec6-4620-b2ee-9dff81f1ce8e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[268112, 7227, 1155, 28, 70, "Section",ExpressionUUID->"67eb65dd-a129-4c35-9da9-1c51b08593ef", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[269836, 7270, 1033, 26, 70, "Section",ExpressionUUID->"f9722ad9-f892-4f92-b914-5174a173f889", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[16005, 477, 195, 5, 70, "Section",ExpressionUUID->"d8333e8e-5364-40ad-9981-992815dcc2de", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[16005, 477, 195, 5, 70, "Section",ExpressionUUID->"d8333e8e-5364-40ad-9981-992815dcc2de", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[213657, 5457, 249, 5, 70, "Section",ExpressionUUID->"e30d7e32-283b-400d-890a-40ee28265a28", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[16225, 486, 1980, 50, 70, "Subsection",ExpressionUUID->"20895443-d0cc-4f64-a1e7-f91de7e860f3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[20614, 630, 1429, 32, 70, "Subsection",ExpressionUUID->"cbeed11f-0167-4344-be06-376b19511905", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[20614, 630, 1429, 32, 70, "Subsection",ExpressionUUID->"cbeed11f-0167-4344-be06-376b19511905", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[32704, 1020, 7029, 152, 70, "Section",ExpressionUUID->"83109ae7-ca52-4861-b077-d463cccf6cd3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[213657, 5457, 249, 5, 70, "Section",ExpressionUUID->"e30d7e32-283b-400d-890a-40ee28265a28", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[213931, 5466, 1026, 26, 70, "Subsection",ExpressionUUID->"d5b19fe2-47f1-4f72-96b6-129eaf387daa", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[213931, 5466, 1026, 26, 70, "Subsection",ExpressionUUID->"d5b19fe2-47f1-4f72-96b6-129eaf387daa", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[215049, 5500, 996, 26, 70, "Subsection",ExpressionUUID->"a46716d8-47a1-4082-9076-2da6371bb87d", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[216268, 5543, 221, 6, 70, "Subsection",ExpressionUUID->"02e62ff7-5d8f-4dff-84a6-125a6da6d66a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[216492, 5551, 28787, 975, 70, "Output",ExpressionUUID->"b5aea722-3325-4ba3-a051-c629ad750d69", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->938826138]}, "Categories-Checkboxes"->{ Cell[216492, 5551, 28787, 975, 70, "Output",ExpressionUUID->"b5aea722-3325-4ba3-a051-c629ad750d69", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->938826138]}, "CheckboxCell"->{ Cell[216492, 5551, 28787, 975, 70, "Output",ExpressionUUID->"b5aea722-3325-4ba3-a051-c629ad750d69", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->938826138], Cell[257147, 6901, 1321, 40, 70, "Output",ExpressionUUID->"f74cf20b-35f6-4009-880c-ad55aec70f14", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[259788, 6981, 1365, 41, 70, "Output",ExpressionUUID->"3d49d9cd-73b2-421d-8c83-302aaceec045", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[263106, 7075, 2896, 83, 70, "Output",ExpressionUUID->"f3bcedad-7907-42c4-a3df-b9584f3a367d", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[267113, 7192, 938, 28, 70, "Output",ExpressionUUID->"d9995026-a3c8-4816-b972-bb435b02e2a5", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[245316, 6531, 980, 26, 70, "Subsection",ExpressionUUID->"f77430ad-9322-45ca-909f-b6352a8d15c7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[247139, 6610, 1039, 26, 70, "Subsection",ExpressionUUID->"ea4f9d6b-1e32-4b9f-a152-7111a90f276b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[248409, 6653, 1084, 26, 70, "Subsection",ExpressionUUID->"b3986982-8abd-4a0c-af23-f81a335dc14a", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[249496, 6681, 516, 8, 70, "Text",ExpressionUUID->"3f66d0b6-838f-4c57-a0f4-beac7ed8e054", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[250975, 6722, 505, 8, 70, "Item",ExpressionUUID->"7a1f7830-0958-463d-a080-4ae586e24dff", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[253416, 6784, 158, 5, 70, "Input",ExpressionUUID->"d8fd0db1-dc35-4a4b-92b6-129e94ef6289", CellTags->"DefaultContent", CellID->946203791], Cell[253577, 6791, 122, 4, 70, "Output",ExpressionUUID->"4bcff31b-94e0-43d1-bb1a-7a60fb81d85e", CellTags->"DefaultContent", CellID->168370258], Cell[255905, 6863, 89, 2, 70, "Text",ExpressionUUID->"e8bde73b-85c0-4d7b-892f-4b2a2b091bc9", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[269270, 7257, 529, 8, 70, "Text",ExpressionUUID->"f2678b2e-439e-4894-bd5d-9d67f13c6264", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[270872, 7298, 515, 8, 70, "Text",ExpressionUUID->"f39bf5c6-3321-43f8-9bd6-9fcb74ce4b6a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "TabNext"->{ Cell[249496, 6681, 516, 8, 70, "Text",ExpressionUUID->"3f66d0b6-838f-4c57-a0f4-beac7ed8e054", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[250975, 6722, 505, 8, 70, "Item",ExpressionUUID->"7a1f7830-0958-463d-a080-4ae586e24dff", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[269270, 7257, 529, 8, 70, "Text",ExpressionUUID->"f2678b2e-439e-4894-bd5d-9d67f13c6264", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[270872, 7298, 515, 8, 70, "Text",ExpressionUUID->"f39bf5c6-3321-43f8-9bd6-9fcb74ce4b6a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[250049, 6694, 923, 26, 70, "Subsection",ExpressionUUID->"7b69d144-e3ed-4c89-9b72-7ed373ed8e60", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[251517, 6735, 1874, 45, 70, "Subsection",ExpressionUUID->"3224468d-2117-4b06-a822-8f800c009a0f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[251517, 6735, 1874, 45, 70, "Subsection",ExpressionUUID->"3224468d-2117-4b06-a822-8f800c009a0f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[253748, 6801, 955, 25, 70, "Subsection",ExpressionUUID->"ef71a9d0-4cfe-4a94-ba9a-e79dfd2bf972", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[254728, 6830, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a62f29a4-5c5d-4fd9-a2b7-d605db9b0f50", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[254728, 6830, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a62f29a4-5c5d-4fd9-a2b7-d605db9b0f50", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[255905, 6863, 89, 2, 70, "Text",ExpressionUUID->"e8bde73b-85c0-4d7b-892f-4b2a2b091bc9", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[256031, 6870, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4bfc0288-7f0e-42a1-8a7e-09e6d0ab521b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[257147, 6901, 1321, 40, 70, "Output",ExpressionUUID->"f74cf20b-35f6-4009-880c-ad55aec70f14", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[256031, 6870, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4bfc0288-7f0e-42a1-8a7e-09e6d0ab521b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[257147, 6901, 1321, 40, 70, "Output",ExpressionUUID->"f74cf20b-35f6-4009-880c-ad55aec70f14", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[258505, 6946, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6869856b-7eda-47f0-be71-e12ea75759b5", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[259788, 6981, 1365, 41, 70, "Output",ExpressionUUID->"3d49d9cd-73b2-421d-8c83-302aaceec045", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[258505, 6946, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6869856b-7eda-47f0-be71-e12ea75759b5", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[259788, 6981, 1365, 41, 70, "Output",ExpressionUUID->"3d49d9cd-73b2-421d-8c83-302aaceec045", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[261190, 7027, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b6805008-4967-4893-ba80-86734d33b113", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[263106, 7075, 2896, 83, 70, "Output",ExpressionUUID->"f3bcedad-7907-42c4-a3df-b9584f3a367d", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[261190, 7027, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b6805008-4967-4893-ba80-86734d33b113", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[263106, 7075, 2896, 83, 70, "Output",ExpressionUUID->"f3bcedad-7907-42c4-a3df-b9584f3a367d", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[266039, 7163, 1071, 27, 70, "Subsubsection",ExpressionUUID->"362b892b-3ec6-4620-b2ee-9dff81f1ce8e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[266039, 7163, 1071, 27, 70, "Subsubsection",ExpressionUUID->"362b892b-3ec6-4620-b2ee-9dff81f1ce8e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[267113, 7192, 938, 28, 70, "Output",ExpressionUUID->"d9995026-a3c8-4816-b972-bb435b02e2a5", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[267113, 7192, 938, 28, 70, "Output",ExpressionUUID->"d9995026-a3c8-4816-b972-bb435b02e2a5", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[268112, 7227, 1155, 28, 70, "Section",ExpressionUUID->"67eb65dd-a129-4c35-9da9-1c51b08593ef", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[269836, 7270, 1033, 26, 70, "Section",ExpressionUUID->"f9722ad9-f892-4f92-b914-5174a173f889", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 394798, 9649}, {"TemplateCell", 394980, 9653}, {"Title", 395315, 9660}, {"Description", 395496, 9664}, {"Definition", 395674, 9668}, {"Function", 395870, 9672}, {"TemplateCellGroup", 396075, 9676}, {"Documentation", 399930, 9737}, {"TemplateSection", 400124, 9741}, {"Usage", 400499, 9748}, {"Details & Options", 400694, 9752}, {"Notes", 400898, 9756}, {"Examples", 401105, 9760}, {"Source & Additional Information", 401316, 9764}, {"Contributed By", 401529, 9768}, {"ContributorInformation", 401765, 9772}, {"Keywords", 401987, 9776}, {"Categories", 402179, 9780}, {"Categories-Checkboxes", 402578, 9787}, {"CheckboxCell", 402793, 9791}, {"Related Symbols", 403916, 9807}, {"Related Resource Objects", 404129, 9811}, {"Source/Reference Citation", 404353, 9815}, {"DefaultContent", 404567, 9819}, {"TabNext", 405705, 9841}, {"Links", 406370, 9854}, {"Tests", 406554, 9858}, {"VerificationTests", 406772, 9862}, {"Compatibility", 406986, 9866}, {"CompatibilityWolframLanguageVersionRequired", 407216, 9870}, {"Wolfram Language Version", 407489, 9874}, {"ScrapeDefault", 407751, 9878}, {"CompatibilityOperatingSystem", 407955, 9882}, {"Operating System", 408425, 9889}, {"CompatibilityOperatingSystem-Checkboxes", 408690, 9893}, {"CompatibilityFeatures", 408947, 9897}, {"Required Features", 409399, 9904}, {"CompatibilityFeatures-Checkboxes", 409651, 9908}, {"CompatibilityEvaluationEnvironment", 409908, 9912}, {"Environments", 410388, 9919}, {"CompatibilityEvaluationEnvironment-Checkboxes", 410661, 9923}, {"Cloud Support", 410922, 9927}, {"CompatibilityCloudSupport", 411167, 9931}, {"CompatibilityCloudSupport-Checkboxes", 411645, 9938}, {"Author Notes", 411887, 9942}, {"Submission Notes", 412087, 9946} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"9abfd559-d0c1-41af-83f9-232bdcce1ae2", CellTags->{"Name", "TemplateCell", "Title"}, CellID->225756145], Cell[728, 27, 105, 2, 70, "Text",ExpressionUUID->"5fd37dfa-9971-42ab-a4b2-5e28f880231c", CellTags->{"Description", "TemplateCell"}, CellID->556430571], Cell[CellGroupData[{ Cell[858, 33, 1206, 29, 70, "Section",ExpressionUUID->"67a9584d-6eaf-42c9-9ab0-ae4c6bfa9e27", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2067, 64, 293, 7, 70, "Input",ExpressionUUID->"c128d7e2-2841-41e7-816b-114de13f4478", CellID->832818521], Cell[2363, 73, 343, 9, 70, "Input",ExpressionUUID->"5c935db4-70ac-4d4d-851f-cab0fa466189", CellID->211704106], Cell[2709, 84, 290, 7, 70, "Input",ExpressionUUID->"1d8a2129-805c-47fa-b64f-3bcef570029b", CellID->194963373], Cell[3002, 93, 391, 10, 70, "Input",ExpressionUUID->"058c5c92-2c0a-4f3e-bfcb-d3a5a87252ee", CellID->48954150], Cell[3396, 105, 334, 8, 70, "Input",ExpressionUUID->"dbdd159d-537d-4f12-8f7b-161c32a59244", CellID->50425300], Cell[3733, 115, 423, 10, 70, "Input",ExpressionUUID->"3561ea84-9a93-405f-8b01-9d33eb452827", CellID->197512458], Cell[4159, 127, 629, 14, 70, "Input",ExpressionUUID->"0b922db0-ab26-4152-a874-9ba2df3a16e7", CellID->681320725], Cell[4791, 143, 901, 20, 70, "Input",ExpressionUUID->"92b0b408-57db-408f-81d5-4a48a273661e", CellID->864205306], Cell[5695, 165, 559, 13, 70, "Input",ExpressionUUID->"275c2d02-c084-4fa8-b15c-1d3bbcb05ac5", CellID->341799438], Cell[6257, 180, 391, 9, 70, "Input",ExpressionUUID->"7852b101-5f82-4fa9-8fc8-fef9cbef6e25", CellID->108895361], Cell[6651, 191, 453, 11, 70, "Input",ExpressionUUID->"fe3ba4c2-3469-44c9-9b15-2f0b114468ee", CellID->24693579], Cell[7107, 204, 484, 12, 70, "Input",ExpressionUUID->"c7bfd668-fc16-46fb-9af8-ccb714cb4e36", CellID->563792210], Cell[7594, 218, 478, 12, 70, "Input",ExpressionUUID->"cc0317e3-b499-41cd-814e-1f4b67ca5e7c", CellID->835137105], Cell[8075, 232, 354, 9, 70, "Input",ExpressionUUID->"fc70c9f7-ec9d-44e5-b0c6-86f32e132e57", CellID->523363708], Cell[8432, 243, 717, 19, 70, "Input",ExpressionUUID->"ad3fb9bd-8f94-4e7f-9aca-fcb1bdc88fd5", CellID->987521935], Cell[9152, 264, 650, 18, 70, "Input",ExpressionUUID->"6aa2f8f3-85a7-48fd-a84b-f2dd42fbe5af", CellID->98115299], Cell[9805, 284, 444, 12, 70, "Input",ExpressionUUID->"70ee10a5-d06e-4d24-af7f-cb963cecc1cb", CellID->862776734], Cell[10252, 298, 732, 22, 70, "Input",ExpressionUUID->"9e687835-f490-4722-a7ee-e7f77c332566", CellID->697751319], Cell[10987, 322, 468, 14, 70, "Input",ExpressionUUID->"1ce0fe67-50a1-4200-96d1-b88710913822", CellID->504731999], Cell[11458, 338, 1178, 29, 70, "Input",ExpressionUUID->"8a8e2808-595f-4738-9694-7bb226f92da7", CellID->75514855], Cell[12639, 369, 248, 6, 70, "Input",ExpressionUUID->"3e7e930c-a64c-4ee4-b98c-9a9d0bf87616", CellID->27757556], Cell[12890, 377, 439, 12, 70, "Input",ExpressionUUID->"1f3e4e70-6870-4d54-9e32-81a89822916f", CellID->177292963], Cell[13332, 391, 308, 8, 70, "Input",ExpressionUUID->"a2e74599-c451-41b0-82b6-051d905d08dc", CellID->31981493], Cell[13643, 401, 382, 10, 70, "Input",ExpressionUUID->"48e13102-22eb-4b80-b32e-c461d1de7c4c", CellID->638937648], Cell[14028, 413, 255, 6, 70, "Input",ExpressionUUID->"5d867d9a-6069-4755-802e-64d877d5413d", CellID->368891493], Cell[14286, 421, 220, 6, 70, "Input",ExpressionUUID->"0d8b5cc9-0db8-4015-9e00-7c5896f41538", CellID->390079334], Cell[14509, 429, 724, 21, 70, "Input",ExpressionUUID->"20472fe7-338a-4f29-b93e-e3b8725014f0", CellID->347714307], Cell[15236, 452, 528, 13, 70, "Input",ExpressionUUID->"883834c8-7a2f-414a-a776-e72f7db53a36", CellID->895376725], Cell[15767, 467, 201, 5, 70, "Input",ExpressionUUID->"8bf9b230-39bf-4908-86e5-2b480b6c7815", CellID->966577279] }, Open ]], Cell[CellGroupData[{ Cell[16005, 477, 195, 5, 70, "Section",ExpressionUUID->"d8333e8e-5364-40ad-9981-992815dcc2de", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[16225, 486, 1980, 50, 70, "Subsection",ExpressionUUID->"20895443-d0cc-4f64-a1e7-f91de7e860f3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[18230, 540, 145, 4, 70, "UsageInputs",ExpressionUUID->"eb4a6dbb-b905-40a2-bd3d-61f18f35293c", CellID->342444036], Cell[18378, 546, 1054, 35, 70, "UsageDescription",ExpressionUUID->"c86b388f-dea7-4a74-8fcb-c6169f425a4a", CellID->604917646] }, Open ]], Cell[CellGroupData[{ Cell[19469, 586, 218, 6, 70, "UsageInputs",ExpressionUUID->"13d3e0fa-6a9b-4c6d-9375-7ffbca2b7f3f", CellID->446890327], Cell[19690, 594, 875, 30, 70, "UsageDescription",ExpressionUUID->"74b28806-d73f-41fe-97fa-6e0de8462db1", CellID->12860400] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20614, 630, 1429, 32, 70, "Subsection",ExpressionUUID->"cbeed11f-0167-4344-be06-376b19511905", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[22046, 664, 9434, 307, 70, "Notes",ExpressionUUID->"1db00024-f29b-4e01-afff-855b6c88689f", CellID->749507735], Cell[31483, 973, 126, 4, 70, "Notes",ExpressionUUID->"0d0224a0-41f3-4a85-a327-42764e74953b", CellID->505350503], Cell[31612, 979, 93, 1, 70, "Notes",ExpressionUUID->"bc5c3f92-685e-4b6f-aabd-de49789731e7", CellID->469585339], Cell[31708, 982, 645, 21, 70, "Notes",ExpressionUUID->"7db0df30-ab66-4426-bf1c-3e14b9f8f097", CellID->558506896], Cell[32356, 1005, 299, 9, 70, "Notes",ExpressionUUID->"ffd7f0ac-71c6-48db-a8c2-89f6919f950c", CellID->819636715] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32704, 1020, 7029, 152, 70, "Section",ExpressionUUID->"83109ae7-ca52-4861-b077-d463cccf6cd3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[39758, 1176, 75, 2, 70, "Subsection",ExpressionUUID->"e8b6cc9d-b875-4d30-bb27-de0351ebf10b", CellID->904125756], Cell[39836, 1180, 654, 21, 70, "Text",ExpressionUUID->"064a5fdc-2aa3-4c0f-8e6e-70534fe09821", CellID->111666979], Cell[CellGroupData[{ Cell[40515, 1205, 307, 8, 70, "Input",ExpressionUUID->"d97cb27f-e1fe-4c07-ac7a-b4798cc9787b", CellID->462586070], Cell[40825, 1215, 185, 5, 70, "Output",ExpressionUUID->"7bb1de82-34cd-466e-ba19-54232e64bd5c", CellID->208652600] }, Open ]], Cell[41025, 1223, 711, 21, 70, "Text",ExpressionUUID->"9a6ac653-2255-48a2-8347-a78d02ca1dbb", CellID->23534381], Cell[41739, 1246, 293, 8, 70, "Input",ExpressionUUID->"93ea544e-109b-484d-afd1-eae150c7790b", CellID->983545837], Cell[42035, 1256, 135, 3, 70, "Text",ExpressionUUID->"db7aa003-2075-4957-9b15-97dafb93bc81", CellID->264684125], Cell[CellGroupData[{ Cell[42195, 1263, 233, 7, 70, "Input",ExpressionUUID->"ea271a90-80c4-4553-86b1-f1ef67a43f64", CellID->83041460], Cell[42431, 1272, 159, 4, 70, "Output",ExpressionUUID->"bea4a0c2-3878-44f5-9e51-585bc1c3504c", CellID->184226572] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42639, 1282, 66, 2, 70, "Subsection",ExpressionUUID->"783c1ed6-3815-4b0c-9c78-e157ce712b90", CellID->204653245], Cell[CellGroupData[{ Cell[42730, 1288, 203, 4, 70, "Subsubsection",ExpressionUUID->"b80c88be-eb60-42b7-bf20-9e0cd41e787a", CellID->364574021], Cell[42936, 1294, 1119, 37, 70, "Text",ExpressionUUID->"e638d032-9ae3-4fa8-bb37-85f119ed0e0b", CellID->634472109], Cell[CellGroupData[{ Cell[44080, 1335, 819, 22, 70, "Input",ExpressionUUID->"9aba12c6-34ab-42fd-91d3-46819c48c39d", CellID->942963516], Cell[44902, 1359, 260, 7, 70, "Output",ExpressionUUID->"a83c8d46-f31e-4111-96bc-fdeccbb63be3", CellID->562300146] }, Open ]], Cell[45177, 1369, 183, 4, 70, "Text",ExpressionUUID->"27ebb43e-c0a5-4399-af5b-4faeac5dc922", CellID->707172777], Cell[CellGroupData[{ Cell[45385, 1377, 242, 7, 70, "Input",ExpressionUUID->"3ccdbfa4-83ae-44ca-85c8-0735046ac471", CellID->362985150], Cell[45630, 1386, 255, 7, 70, "Output",ExpressionUUID->"c8bf7b0d-7bb0-48cc-bd36-e01ca3f342f0", CellID->389347013] }, Open ]], Cell[45900, 1396, 683, 22, 70, "Text",ExpressionUUID->"a6122415-c9b1-4cc9-9b01-298dd89410a6", CellID->824791961], Cell[46586, 1420, 194, 5, 70, "Input",ExpressionUUID->"0d95e6db-9e5f-4f61-8c40-39259e90995e", CellID->500734814], Cell[CellGroupData[{ Cell[46805, 1429, 242, 7, 70, "Input",ExpressionUUID->"fa6f4024-0ac5-4e2c-9ce9-2f49c2711a9c", CellID->923429465], Cell[47050, 1438, 232, 7, 70, "Output",ExpressionUUID->"bcea5fa8-c198-4875-9db1-51fae81af15e", CellID->631162799] }, Open ]], Cell[47297, 1448, 195, 5, 70, "Input",ExpressionUUID->"3105f25c-de07-496d-aa52-f5dd9e82ef31", CellID->816849157], Cell[CellGroupData[{ Cell[47517, 1457, 176, 6, 70, "Input",ExpressionUUID->"3a991047-ed1a-428b-9d62-405811da1cce", CellID->876260259], Cell[47696, 1465, 233, 7, 70, "Output",ExpressionUUID->"e4926f04-1c5b-4319-8d17-0b65713e8a96", CellID->712424510] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[47978, 1478, 76, 2, 70, "Subsubsection",ExpressionUUID->"4f27297c-84ae-4803-878a-5ba8d959bd9e", CellID->93629416], Cell[48057, 1482, 669, 21, 70, "Text",ExpressionUUID->"351f409c-fe52-485d-bd0f-ea67c4ab8679", CellID->239589917], Cell[CellGroupData[{ Cell[48751, 1507, 262, 7, 70, "Input",ExpressionUUID->"805d55ab-5e81-4209-b620-1d77d516db83", CellID->997852464], Cell[49016, 1516, 162, 4, 70, "Output",ExpressionUUID->"eb84281d-c1db-4ad1-b033-e062a4da9fa8", CellID->208652601] }, Open ]], Cell[49193, 1523, 659, 21, 70, "Text",ExpressionUUID->"b98cc58e-8f1e-469d-b53e-242df6a9c622", CellID->694982758], Cell[49855, 1546, 280, 8, 70, "Input",ExpressionUUID->"4e8df370-a835-49d8-83ab-79c349a372f9", CellID->81706942], Cell[CellGroupData[{ Cell[50160, 1558, 196, 6, 70, "Input",ExpressionUUID->"eb3ceaa8-8970-430f-a344-293c5c7fbb14", CellID->806736858], Cell[50359, 1566, 159, 4, 70, "Output",ExpressionUUID->"3528c437-0cde-4bc7-b556-b984c08c85c7", CellID->184226573] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[50567, 1576, 165, 5, 70, "Subsubsection",ExpressionUUID->"ff70e233-fe7e-475a-8d3d-e4eacf70319b", CellID->556765908], Cell[50735, 1583, 721, 22, 70, "Text",ExpressionUUID->"3da5fdb1-dd57-4a30-9007-69b62d8b3237", CellID->268294060], Cell[CellGroupData[{ Cell[51481, 1609, 301, 7, 70, "Input",ExpressionUUID->"1433d580-4704-46ac-8ff5-068450889a35", CellID->366146033], Cell[51785, 1618, 190, 5, 70, "Output",ExpressionUUID->"bc4aa451-144f-4742-bae7-37ecbc5415ab", CellID->208652602] }, Open ]], Cell[51990, 1626, 715, 22, 70, "Text",ExpressionUUID->"54aeb029-857e-4edf-97d1-80b864ddcb60", CellID->746022038], Cell[52708, 1650, 629, 17, 70, "Input",ExpressionUUID->"3701debc-6e92-4ddf-984b-8b737c5299a8", CellID->702037153], Cell[CellGroupData[{ Cell[53362, 1671, 228, 6, 70, "Input",ExpressionUUID->"d80e255c-ca4b-4025-86b9-b4ffbd22587a", CellID->743748355], Cell[53593, 1679, 207, 5, 70, "Output",ExpressionUUID->"e206fffd-fc37-492c-884e-277e39d2942d", CellID->184226574] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[53849, 1690, 162, 5, 70, "Subsubsection",ExpressionUUID->"16aaffdc-1eb0-4c3c-8525-27adcf1b8cbf", CellID->81163671], Cell[54014, 1697, 685, 22, 70, "Text",ExpressionUUID->"b6a6783c-387a-4e07-bbc5-030ff5057b56", CellID->643573116], Cell[CellGroupData[{ Cell[54724, 1723, 14335, 292, 70, "Input",ExpressionUUID->"62f3133f-e5cc-4734-af99-aa1a50fc6634", CellID->494384319], Cell[69062, 2017, 134, 4, 70, "Output",ExpressionUUID->"637caacf-f370-4a57-bc4a-02949d3be167", CellID->978554558] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[69245, 2027, 151, 3, 70, "Subsubsection",ExpressionUUID->"ced7463e-7769-41c7-aa85-89877df0685d", CellID->448857031], Cell[69399, 2032, 705, 21, 70, "Text",ExpressionUUID->"4e3df1f5-f98a-4cb2-97f1-881d5b6318d9", CellID->817179552], Cell[CellGroupData[{ Cell[70129, 2057, 330, 9, 70, "Input",ExpressionUUID->"294d08b2-45bf-4c2b-8bb4-2172b7d2ae30", CellID->703695031], Cell[70462, 2068, 135, 4, 70, "Output",ExpressionUUID->"4bc64d44-d37b-4aae-b687-f4da7ea9466b", CellID->978554559] }, Open ]], Cell[CellGroupData[{ Cell[70634, 2077, 266, 7, 70, "Input",ExpressionUUID->"48cc3337-491e-4db5-ae6c-84a31d62af36", CellID->647463773], Cell[70903, 2086, 134, 4, 70, "Output",ExpressionUUID->"05f76a2b-f078-446d-a55c-855da0434936", CellID->41147768] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[71086, 2096, 151, 3, 70, "Subsubsection",ExpressionUUID->"54e73246-122f-495c-8fac-8638453371ed", CellID->209095808], Cell[71240, 2101, 167, 3, 70, "Text",ExpressionUUID->"ba766acd-97fa-435c-818c-4d12e8167b06", CellID->880335643], Cell[CellGroupData[{ Cell[71432, 2108, 177, 5, 70, "Input",ExpressionUUID->"33502044-c9dc-4002-a107-c5369a5e2d4f", CellID->735103041], Cell[71612, 2115, 26351, 521, 70, "Output",ExpressionUUID->"e5aad616-a657-4176-a8df-d2b742fe4966", CellID->506461526] }, Open ]], Cell[CellGroupData[{ Cell[98000, 2641, 198, 5, 70, "Input",ExpressionUUID->"b35c0328-83e4-428b-9a9f-c6929bd7dbe1", CellID->437764567], Cell[98201, 2648, 159, 4, 70, "Output",ExpressionUUID->"a627238a-93f8-4901-8e42-27663a0d6dd2", CellID->738293886] }, Open ]], Cell[98375, 2655, 648, 21, 70, "Text",ExpressionUUID->"ccf966a7-70c8-44a9-8373-852411c77037", CellID->854765313], Cell[99026, 2678, 201, 5, 70, "Input",ExpressionUUID->"d91a57bb-57b9-4231-afa8-d5ed71010856", CellID->177168452], Cell[99230, 2685, 206, 4, 70, "Text",ExpressionUUID->"771c1186-d17d-4ee4-bfbb-51602e7ba0b5", CellID->404468113], Cell[CellGroupData[{ Cell[99461, 2693, 134, 4, 70, "Input",ExpressionUUID->"655e6e49-3e55-4333-bc06-6156daeb2010", CellID->506617662], Cell[99598, 2699, 138, 4, 70, "Output",ExpressionUUID->"d6d7a153-c48c-45b6-a510-01418e1fbe8c", CellID->282530333] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[99785, 2709, 68, 2, 70, "Subsubsection",ExpressionUUID->"ce46aa26-d757-4603-865a-aa8f60b6a19e", CellID->711973067], Cell[99856, 2713, 1259, 41, 70, "Text",ExpressionUUID->"aaa0cab4-7101-4d21-a52c-333f6a3ebbc8", CellID->638179526], Cell[CellGroupData[{ Cell[101140, 2758, 246, 6, 70, "Input",ExpressionUUID->"b7398913-8045-4241-b9a3-8a7adda165cf", CellID->463121232], Cell[101389, 2766, 135, 4, 70, "Output",ExpressionUUID->"6ee036e5-4d42-437d-b7e1-218b1239f87f", CellID->978554560] }, Open ]], Cell[CellGroupData[{ Cell[101561, 2775, 311, 8, 70, "Input",ExpressionUUID->"e655e0ef-c2b0-4c62-935c-36e2858506cb", CellID->795406729], Cell[101875, 2785, 157, 4, 70, "Output",ExpressionUUID->"188b5cc8-bd8d-4334-9614-2e262a37b93f", CellID->41147769] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[102081, 2795, 165, 5, 70, "Subsubsection",ExpressionUUID->"b512f09d-4bfc-4d75-8efc-164044597e81", CellID->222165098], Cell[102249, 2802, 1323, 42, 70, "Text",ExpressionUUID->"c9b71d92-99e3-4df9-b9e7-d1849b2c5246", CellID->482150324], Cell[CellGroupData[{ Cell[103597, 2848, 351, 8, 70, "Input",ExpressionUUID->"d3650889-9072-4a9a-8e02-296ce83d47c8", CellID->787872007], Cell[103951, 2858, 210, 6, 70, "Output",ExpressionUUID->"272372b3-71fa-4585-980f-bd4713fbd6cf", CellID->208652603] }, Open ]], Cell[104176, 2867, 641, 21, 70, "Text",ExpressionUUID->"9b88ee07-0ddb-4a99-8a51-8d9ab701e5f2", CellID->682077177], Cell[104820, 2890, 452, 13, 70, "Input",ExpressionUUID->"23594131-6c99-4d20-b80d-8e696bd9ca4f", CellID->439397364], Cell[CellGroupData[{ Cell[105297, 2907, 303, 7, 70, "Input",ExpressionUUID->"aa058141-898d-48d5-b92c-7b6594449832", CellID->668541881], Cell[105603, 2916, 212, 6, 70, "Output",ExpressionUUID->"c4a82e11-3550-46c1-8d8a-dd8275b97ecc", CellID->184226575] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[105864, 2928, 168, 5, 70, "Subsubsection",ExpressionUUID->"180fd746-23f5-46cf-a319-9eeb5d9e4b85", CellID->420400785], Cell[106035, 2935, 680, 21, 70, "Text",ExpressionUUID->"5b0c6025-4fe2-4f6f-9beb-4e817114b67b", CellID->768045358], Cell[CellGroupData[{ Cell[106740, 2960, 328, 9, 70, "Input",ExpressionUUID->"aebc5ae1-706d-44d5-a35f-433c2dd6091f", CellID->915736431], Cell[107071, 2971, 368, 11, 70, "Output",ExpressionUUID->"17896b2b-73f7-4306-8963-39d10ff1dcc9", CellID->585865608] }, Open ]], Cell[CellGroupData[{ Cell[107476, 2987, 197, 5, 70, "Input",ExpressionUUID->"8fe9d46c-b4bd-4dd7-b935-8f542b2109bf", CellID->263968285], Cell[107676, 2994, 135, 4, 70, "Output",ExpressionUUID->"d51ac1c2-22d2-49c7-9a0e-47fc39c942ff", CellID->738293887] }, Open ]], Cell[107826, 3001, 662, 21, 70, "Text",ExpressionUUID->"a207aefd-f56c-4d8d-9a03-06d8bf25971c", CellID->248475636], Cell[108491, 3024, 195, 5, 70, "Input",ExpressionUUID->"661dad9f-be99-42f6-9667-4887e340e4dd", CellID->520289788], Cell[CellGroupData[{ Cell[108711, 3033, 194, 5, 70, "Input",ExpressionUUID->"a45ef1dd-1a01-4a53-adf8-62678dbd8291", CellID->949223962], Cell[108908, 3040, 136, 4, 70, "Output",ExpressionUUID->"90e5cebf-b10e-4a5f-8f15-927e2f634d9e", CellID->282530334] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[109093, 3050, 170, 5, 70, "Subsubsection",ExpressionUUID->"94810eb9-a11a-4fbd-b983-2b0de524a29c", CellID->472072086], Cell[109266, 3057, 654, 21, 70, "Text",ExpressionUUID->"752a52b1-45dc-4f6e-99ef-a09275ed12aa", CellID->111666980], Cell[CellGroupData[{ Cell[109945, 3082, 307, 8, 70, "Input",ExpressionUUID->"95a23c5c-e4bb-4622-9fa9-18e3f38a6f6a", CellID->462586071], Cell[110255, 3092, 185, 5, 70, "Output",ExpressionUUID->"073e6413-d5f6-4523-a691-95fda6aae7fd", CellID->208652604] }, Open ]], Cell[110455, 3100, 710, 21, 70, "Text",ExpressionUUID->"9e2a4b0d-1fc7-401d-b090-d905b0e5bb09", CellID->838461646], Cell[111168, 3123, 293, 8, 70, "Input",ExpressionUUID->"d22faddc-fa0b-4df4-8f3b-85d873b0a577", CellID->983545838], Cell[111464, 3133, 135, 3, 70, "Text",ExpressionUUID->"89acbff8-8566-45e8-a432-4b728e3ec7e1", CellID->264684126], Cell[CellGroupData[{ Cell[111624, 3140, 233, 7, 70, "Input",ExpressionUUID->"711d44e8-d2f5-4c34-bf67-033aa375553a", CellID->83041461], Cell[111860, 3149, 159, 4, 70, "Output",ExpressionUUID->"c124c03a-5113-4eab-8c98-8f568d769695", CellID->184226576] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[112068, 3159, 172, 5, 70, "Subsubsection",ExpressionUUID->"9085ef9d-2fd7-4843-a3c0-754f060f22fe", CellID->996220702], Cell[112243, 3166, 784, 23, 70, "Text",ExpressionUUID->"52b79030-b49a-4817-b531-b290bcda040e", CellID->925876094], Cell[CellGroupData[{ Cell[113052, 3193, 288, 8, 70, "Input",ExpressionUUID->"f018745d-0fc4-4006-a11f-8b2fcdf04940", CellID->634819237], Cell[113343, 3203, 239, 7, 70, "Output",ExpressionUUID->"e203b469-5cfc-40ee-928c-8de7e692a0a0", CellID->355705342] }, Open ]], Cell[CellGroupData[{ Cell[113619, 3215, 339, 7, 70, "Input",ExpressionUUID->"b2f07b18-d64a-4cac-94b8-4523a4f879b9", CellID->49038790], Cell[113961, 3224, 287, 6, 70, "Output",ExpressionUUID->"42081a56-0f6e-455c-bae9-9cd705ee2aae", CellID->41147770] }, Open ]], Cell[114263, 3233, 157, 3, 70, "Text",ExpressionUUID->"12f8f855-e981-49b4-9bb5-8b590da6a1d0", CellID->178119234], Cell[CellGroupData[{ Cell[114445, 3240, 231, 6, 70, "Input",ExpressionUUID->"d646b8a8-8bd8-4c57-8ead-6258ca98e326", CellID->957729659], Cell[114679, 3248, 167, 4, 70, "Output",ExpressionUUID->"9fb846f5-f719-48f2-a486-c838778acd7d", CellID->633230118] }, Open ]], Cell[114861, 3255, 186, 4, 70, "Text",ExpressionUUID->"7bb6a68e-0cf3-4115-a565-e580159ada93", CellID->264684127], Cell[CellGroupData[{ Cell[115072, 3263, 129, 4, 70, "Input",ExpressionUUID->"9607bcd7-6ad3-4c6f-aa0c-0b3a8e3b5cfe", CellID->195366319], Cell[115204, 3269, 135, 4, 70, "Output",ExpressionUUID->"c653330c-fbf0-463b-93d9-97f106999c50", CellID->676276385] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[115388, 3279, 172, 5, 70, "Subsubsection",ExpressionUUID->"6214cb1e-575e-4490-857e-e8047840c21a", CellID->332876200], Cell[115563, 3286, 679, 22, 70, "Text",ExpressionUUID->"ce20d990-2738-41c5-a100-59f4371d1ca0", CellID->49445880], Cell[CellGroupData[{ Cell[116267, 3312, 373, 11, 70, "Input",ExpressionUUID->"19a74198-af21-4b6a-ba08-d4deabd80661", CellID->931238824], Cell[116643, 3325, 1833, 50, 70, "Output",ExpressionUUID->"4b2e36f0-8bda-4d27-8a81-9b7713cf59ca", CellID->683620754] }, Open ]], Cell[CellGroupData[{ Cell[118513, 3380, 197, 5, 70, "Input",ExpressionUUID->"73e8ec31-04e1-4072-a6a0-8d45e27d4869", CellID->370987501], Cell[118713, 3387, 137, 4, 70, "Output",ExpressionUUID->"d1e1557c-2b0c-48fb-b6d7-470e21efd484", CellID->738293888] }, Open ]], Cell[118865, 3394, 143, 3, 70, "Text",ExpressionUUID->"fca016d4-cc6f-4ab8-aae2-b1120908b431", CellID->271149672], Cell[119011, 3399, 194, 5, 70, "Input",ExpressionUUID->"e7ba517c-8759-452c-b541-0c4e733dbebf", CellID->992713386], Cell[CellGroupData[{ Cell[119230, 3408, 197, 5, 70, "Input",ExpressionUUID->"f96c7227-1725-412f-bf70-8f5f051ffbd2", CellID->528325768], Cell[119430, 3415, 136, 4, 70, "Output",ExpressionUUID->"35442385-0d11-4e58-9952-c51c3f8a2ce8", CellID->282530335] }, Open ]], Cell[CellGroupData[{ Cell[119603, 3424, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2868a559-62df-458c-89b9-3eacd76d63b9", CellID->14107562], Cell[119749, 3430, 464, 12, 70, "Text",ExpressionUUID->"e806ed2e-457b-4b59-89a1-a766aff6904b", CellID->919606888], Cell[CellGroupData[{ Cell[120238, 3446, 251, 6, 70, "Input",ExpressionUUID->"c7ab68fd-33cb-4402-80bd-f786338c46d3", CellID->570839747], Cell[120492, 3454, 135, 4, 70, "Output",ExpressionUUID->"8a1a7e1f-0f52-435e-b098-f31323fa9a46", CellID->978554561] }, Open ]], Cell[CellGroupData[{ Cell[120664, 3463, 274, 7, 70, "Input",ExpressionUUID->"52e1caa9-8e27-4aad-abbb-9a79f557264a", CellID->431573254], Cell[120941, 3472, 15592, 261, 70, "Output",ExpressionUUID->"0f5111ca-d8e6-4a7a-a6f6-56498c1fcc5b", CellID->451939250] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[136594, 3740, 78, 2, 70, "Subsubsection",ExpressionUUID->"141bea5b-71d9-484b-bb46-67f75d2a2433", CellID->599453063], Cell[136675, 3744, 699, 22, 70, "Text",ExpressionUUID->"e544c22c-22c7-42e1-904b-48833f95381a", CellID->532923803], Cell[CellGroupData[{ Cell[137399, 3770, 296, 7, 70, "Input",ExpressionUUID->"9b7dc56a-9e8a-4f86-bf29-035bfdc8761a", CellID->564506796], Cell[137698, 3779, 159, 4, 70, "Output",ExpressionUUID->"381551f8-fc51-4bcf-a11c-7934e8824628", CellID->978554562] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[137906, 3789, 171, 5, 70, "Subsubsection",ExpressionUUID->"f2d9d7ac-dbda-48d1-8c30-fc60a11d7b80", CellID->235935704], Cell[138080, 3796, 754, 23, 70, "Text",ExpressionUUID->"d8f00a72-49d7-4a63-ac55-cd31d7961cce", CellID->746311195], Cell[CellGroupData[{ Cell[138859, 3823, 251, 7, 70, "Input",ExpressionUUID->"0762cc82-4573-4573-8d53-c3d73e2b4cbd", CellID->750263766], Cell[139113, 3832, 13214, 267, 70, "Output",ExpressionUUID->"d7fd6e42-4654-4ad6-a8e4-e357b004ab06", CellID->397823337] }, Open ]], Cell[CellGroupData[{ Cell[152364, 4104, 350, 7, 70, "Input",ExpressionUUID->"bd74158e-6b17-4399-94ff-98f22f6c8462", CellID->254566968], Cell[152717, 4113, 135, 4, 70, "Output",ExpressionUUID->"f660616f-7f55-4a51-bf02-14d229bcf4d5", CellID->738293889] }, Open ]], Cell[152867, 4120, 139, 3, 70, "Text",ExpressionUUID->"984f8986-7d05-4e6c-bc36-9dfa3c7dd7ea", CellID->96345561], Cell[153009, 4125, 204, 5, 70, "Input",ExpressionUUID->"2b51900f-135b-4a72-85a1-3ebaceedc244", CellID->495312656], Cell[CellGroupData[{ Cell[153238, 4134, 132, 4, 70, "Input",ExpressionUUID->"67754005-270d-408d-b824-0edef3896031", CellID->603424415], Cell[153373, 4140, 136, 4, 70, "Output",ExpressionUUID->"9aec7c88-67e1-4327-ba89-2d15ddc57f4d", CellID->282530336] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[153558, 4150, 164, 5, 70, "Subsubsection",ExpressionUUID->"760a15b7-511b-47d8-90d8-336681e39904", CellID->271615852], Cell[153725, 4157, 163, 3, 70, "Text",ExpressionUUID->"89e6c41f-5a51-4978-9849-3b08259122ed", CellID->942272418], Cell[CellGroupData[{ Cell[153913, 4164, 377, 10, 70, "Input",ExpressionUUID->"d1ef6ff8-da22-4f92-b2a3-52a15a3896a2", CellID->500607184], Cell[154293, 4176, 29646, 493, 70, "Output",ExpressionUUID->"af5812c1-ea81-4d07-8b49-51756bf698b7", CellID->434555992] }, Open ]], Cell[CellGroupData[{ Cell[183976, 4674, 197, 5, 70, "Input",ExpressionUUID->"6092897a-2671-467c-a67b-c9a130a486a9", CellID->351040317], Cell[184176, 4681, 135, 4, 70, "Output",ExpressionUUID->"a317446e-2475-4a68-a04c-e2dc41e6f845", CellID->738293890] }, Open ]], Cell[184326, 4688, 210, 4, 70, "Text",ExpressionUUID->"6b6c75bc-52e3-4a99-8d72-23962b59f55a", CellID->356501631], Cell[CellGroupData[{ Cell[184561, 4696, 251, 7, 70, "Input",ExpressionUUID->"06cb1a07-f1a0-459c-9b30-bcddc510f25b", CellID->980540286], Cell[184815, 4705, 138, 4, 70, "Output",ExpressionUUID->"3c9562d9-f0dd-429e-a3bb-6ddedbdce08d", CellID->445736162] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[185002, 4715, 158, 5, 70, "Subsubsection",ExpressionUUID->"2a02e64e-ce17-4c12-9d8e-bd9a8504d42d", CellID->75590337], Cell[185163, 4722, 623, 21, 70, "Text",ExpressionUUID->"e574c62a-d3aa-4f68-8259-af58d857b7b1", CellID->790232031], Cell[CellGroupData[{ Cell[185811, 4747, 270, 7, 70, "Input",ExpressionUUID->"746d91f8-2c14-4537-8821-e26692f95321", CellID->626298881], Cell[186084, 4756, 135, 4, 70, "Output",ExpressionUUID->"df4d5c42-fb54-4091-b070-b92c6b4109c3", CellID->978554563] }, Open ]], Cell[CellGroupData[{ Cell[186256, 4765, 269, 7, 70, "Input",ExpressionUUID->"3404df16-39df-46b9-9105-4132b94664d5", CellID->672694704], Cell[186528, 4774, 135, 4, 70, "Output",ExpressionUUID->"b91ee3aa-1843-4928-84ad-1c4efe4eb7ca", CellID->41147771] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[186712, 4784, 137, 3, 70, "Subsubsection",ExpressionUUID->"11ee53e9-ca29-410a-9eed-5f763cc31417", CellID->865007927], Cell[186852, 4789, 1138, 37, 70, "Text",ExpressionUUID->"38515256-9c19-4629-bb4a-978a71273b73", CellID->841869695], Cell[187993, 4828, 204, 5, 70, "Input",ExpressionUUID->"d8431674-ae39-4f82-a8a7-762c711ee35b", CellID->970029748], Cell[CellGroupData[{ Cell[188222, 4837, 235, 6, 70, "Input",ExpressionUUID->"b140911b-c1bd-43be-80f8-13c62c9f2372", CellID->803808164], Cell[188460, 4845, 18489, 342, 70, "Output",ExpressionUUID->"acce3f6b-aa75-458b-8cf4-37f23abd23cd", CellID->471088055] }, Open ]], Cell[CellGroupData[{ Cell[206986, 5192, 198, 5, 70, "Input",ExpressionUUID->"dfeac88c-b31a-4cff-8884-ec55a62f4e22", CellID->878387636], Cell[207187, 5199, 135, 4, 70, "Output",ExpressionUUID->"e0652811-6df9-49ac-a7f9-fbbc35acf75a", CellID->184226577] }, Open ]], Cell[207337, 5206, 618, 20, 70, "Text",ExpressionUUID->"7a5d9eb7-0e5e-4a27-b0b0-9bbab02db54a", CellID->229926142], Cell[CellGroupData[{ Cell[207980, 5230, 191, 5, 70, "Input",ExpressionUUID->"e142aa2c-0e2d-49d4-a245-9702e09148be", CellID->599878211], Cell[208174, 5237, 150, 4, 70, "Output",ExpressionUUID->"205a3926-0bfa-44ee-96e5-1fc9e89a6256", CellID->611829157] }, Open ]], Cell[CellGroupData[{ Cell[208361, 5246, 201, 5, 70, "Input",ExpressionUUID->"dddbfde2-bbd7-4106-b0e4-a64b76b2a2e2", CellID->815412062], Cell[208565, 5253, 138, 4, 70, "Output",ExpressionUUID->"bd08fb4c-f1ec-4a37-8ac3-d068d2c325b9", CellID->951414326] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[208752, 5263, 137, 3, 70, "Subsubsection",ExpressionUUID->"ecb5bfb8-7b5a-4a67-a4f9-f80ca500b0d7", CellID->837574704], Cell[208892, 5268, 219, 4, 70, "Text",ExpressionUUID->"d22ba1ce-732e-432b-b28e-084e705ab8b9", CellID->89726523], Cell[CellGroupData[{ Cell[209136, 5276, 228, 6, 70, "Input",ExpressionUUID->"c904f3ef-6506-4c76-9419-424389fe6d50", CellID->210412005], Cell[209367, 5284, 135, 4, 70, "Output",ExpressionUUID->"ab6b5e21-c468-49d0-84a4-21421a7feff2", CellID->978554564] }, Open ]], Cell[CellGroupData[{ Cell[209539, 5293, 191, 5, 70, "Input",ExpressionUUID->"1ad88f7b-eff5-414f-9f29-8bdcbb90de77", CellID->316639288], Cell[209733, 5300, 137, 4, 70, "Output",ExpressionUUID->"dfbd5851-9f9c-41cd-965b-bfa82e3d3561", CellID->738293891] }, Open ]], Cell[CellGroupData[{ Cell[209907, 5309, 243, 6, 70, "Input",ExpressionUUID->"24911058-824b-4d0e-809d-fbce4461c1ef", CellID->127070965], Cell[210153, 5317, 135, 4, 70, "Output",ExpressionUUID->"077fd3db-2091-44e6-99e8-1e160f05e7c8", CellID->445736163] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[210349, 5328, 85, 2, 70, "Subsection",ExpressionUUID->"e71f5383-1c1a-4ca0-bc8d-714e4a2fe380", CellID->232113220], Cell[210437, 5332, 640, 21, 70, "Text",ExpressionUUID->"e5cc951b-f574-428f-9256-74be6971f54d", CellID->895925517], Cell[CellGroupData[{ Cell[211102, 5357, 246, 6, 70, "Input",ExpressionUUID->"cadc6030-231a-487c-b83d-7f744bd8d48b", CellID->754575227], Cell[211351, 5365, 136, 4, 70, "Output",ExpressionUUID->"e6107c37-b82b-4a2e-bb9a-fd8caa69ec4b", CellID->208652605] }, Open ]], Cell[211502, 5372, 199, 4, 70, "Text",ExpressionUUID->"301014de-ff87-4203-9304-8e8c5d5e0642", CellID->859679153], Cell[CellGroupData[{ Cell[211726, 5380, 378, 10, 70, "Input",ExpressionUUID->"81be6659-9631-4725-9c4a-5a7147573fbd", CellID->666097518], Cell[212107, 5392, 253, 8, 70, "Output",ExpressionUUID->"4349ebff-6d67-4636-80df-fb5eda95c143", CellID->816889520] }, Open ]], Cell[212375, 5403, 216, 6, 70, "Text",ExpressionUUID->"a10bcc52-0681-4618-b05b-ff784385ccec", CellID->992893680], Cell[212594, 5411, 241, 7, 70, "Input",ExpressionUUID->"3413d191-00c6-4f8f-bfa9-7508f13cc745", CellID->743445066], Cell[CellGroupData[{ Cell[212860, 5422, 178, 5, 70, "Input",ExpressionUUID->"a0ea8c4d-0ff2-4559-a7fe-9d94afb24eba", CellID->238525298], Cell[213041, 5429, 134, 4, 70, "Output",ExpressionUUID->"f78e3811-7fb1-406a-9718-f44bc64cbfc8", CellID->676276386] }, Open ]], Cell[CellGroupData[{ Cell[213212, 5438, 246, 6, 70, "Input",ExpressionUUID->"8a44c9b3-a351-4374-bc35-08e97066ff16", CellID->283267829], Cell[213461, 5446, 135, 4, 70, "Output",ExpressionUUID->"1560183c-0b67-4adf-99e8-a8876779542e", CellID->951414327] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[213657, 5457, 249, 5, 70, "Section",ExpressionUUID->"e30d7e32-283b-400d-890a-40ee28265a28", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[213931, 5466, 1026, 26, 70, "Subsection",ExpressionUUID->"d5b19fe2-47f1-4f72-96b6-129eaf387daa", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[214960, 5494, 52, 1, 70, "Text",ExpressionUUID->"5c98034d-3e60-4f76-bf23-70c9fee5bf95", CellID->177008439] }, Open ]], Cell[CellGroupData[{ Cell[215049, 5500, 996, 26, 70, "Subsection",ExpressionUUID->"a46716d8-47a1-4082-9076-2da6371bb87d", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[216048, 5528, 49, 1, 70, "Item",ExpressionUUID->"ea286736-f74c-4f37-8426-edeff45fea50", CellID->78447557], Cell[216100, 5531, 41, 1, 70, "Item",ExpressionUUID->"be611f81-f8a6-46c2-a29c-db2895c19350", CellID->310131566], Cell[216144, 5534, 41, 1, 70, "Item",ExpressionUUID->"84f7681c-c9e4-4eea-a5ac-5fd2f2a8064f", CellID->160929467], Cell[216188, 5537, 43, 1, 70, "Item",ExpressionUUID->"b0d306a7-eaab-429e-824f-3fc400a45a3d", CellID->685712034] }, Open ]], Cell[CellGroupData[{ Cell[216268, 5543, 221, 6, 70, "Subsection",ExpressionUUID->"02e62ff7-5d8f-4dff-84a6-125a6da6d66a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[216492, 5551, 28787, 975, 70, "Output",ExpressionUUID->"b5aea722-3325-4ba3-a051-c629ad750d69", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->938826138] }, Open ]], Cell[CellGroupData[{ Cell[245316, 6531, 980, 26, 70, "Subsection",ExpressionUUID->"f77430ad-9322-45ca-909f-b6352a8d15c7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[246299, 6559, 47, 1, 70, "Item",ExpressionUUID->"016a741d-32b4-4cf3-9c18-d9112aa92cc8", CellID->983073888], Cell[246349, 6562, 49, 1, 70, "Item",ExpressionUUID->"0cf190aa-428b-4426-80e1-7bcc9e4cbc37", CellID->546657422], Cell[246401, 6565, 45, 1, 70, "Item",ExpressionUUID->"8d4a8b84-4a87-45df-a201-4917c5eef0f6", CellID->5657787], Cell[246449, 6568, 43, 1, 70, "Item",ExpressionUUID->"9bf4531e-bdd1-4065-8b3a-bcb5acdd7c61", CellID->898341693], Cell[246495, 6571, 40, 1, 70, "Item",ExpressionUUID->"17cbb6eb-7599-4a87-bd14-5c359350c7fd", CellID->116437454], Cell[246538, 6574, 47, 1, 70, "Item",ExpressionUUID->"86798ce0-81ee-4db9-8c74-1d154b75c529", CellID->825051499], Cell[246588, 6577, 47, 1, 70, "Item",ExpressionUUID->"c62ef186-89b0-466c-96e7-4f9e3d036e84", CellID->580292517], Cell[246638, 6580, 50, 1, 70, "Item",ExpressionUUID->"b51afb23-bb92-48bc-96f6-0341ec59080e", CellID->363644638], Cell[246691, 6583, 48, 1, 70, "Item",ExpressionUUID->"dac37389-4b6f-43db-9be3-c66141f05d59", CellID->378168785], Cell[246742, 6586, 52, 1, 70, "Item",ExpressionUUID->"e7aa2d4b-d456-4b4f-afc4-db0a8ba16787", CellID->546985257], Cell[246797, 6589, 52, 1, 70, "Item",ExpressionUUID->"6e80186c-c03b-4e6e-bbc1-cdb730edaf66", CellID->695666561], Cell[246852, 6592, 51, 1, 70, "Item",ExpressionUUID->"fcaabf8a-3ac0-41d5-bbe1-1858d5561d58", CellID->59576503], Cell[246906, 6595, 49, 1, 70, "Item",ExpressionUUID->"dd5ac30f-722b-441d-9217-e2b6a8d41653", CellID->30511322], Cell[246958, 6598, 53, 1, 70, "Item",ExpressionUUID->"a80eaeb8-0a6b-46e5-be9d-59c6d683978c", CellID->448122471], Cell[247014, 6601, 46, 1, 70, "Item",ExpressionUUID->"61aba68d-d652-4406-be3e-693ea1ccfdbd", CellID->208522563], Cell[247063, 6604, 39, 1, 70, "Item",ExpressionUUID->"f0b78155-0fd4-47f3-8523-0d04e9b11a9e", CellID->878285331] }, Open ]], Cell[CellGroupData[{ Cell[247139, 6610, 1039, 26, 70, "Subsection",ExpressionUUID->"ea4f9d6b-1e32-4b9f-a152-7111a90f276b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[248181, 6638, 41, 1, 70, "Item",ExpressionUUID->"5e4906df-3e1f-4519-9967-f250a5955a31", CellID->905107177], Cell[248225, 6641, 51, 1, 70, "Item",ExpressionUUID->"6758e850-3d6c-462b-89e9-b447efc2ecae", CellID->688786615], Cell[248279, 6644, 47, 1, 70, "Item",ExpressionUUID->"3e4195bf-2b8d-49bf-a698-445510597bbc", CellID->957407985], Cell[248329, 6647, 43, 1, 70, "Item",ExpressionUUID->"9438c88a-6902-4175-8693-c004e4aafc72", CellID->923656513] }, Open ]], Cell[CellGroupData[{ Cell[248409, 6653, 1084, 26, 70, "Subsection",ExpressionUUID->"b3986982-8abd-4a0c-af23-f81a335dc14a", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[249496, 6681, 516, 8, 70, "Text",ExpressionUUID->"3f66d0b6-838f-4c57-a0f4-beac7ed8e054", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[250049, 6694, 923, 26, 70, "Subsection",ExpressionUUID->"7b69d144-e3ed-4c89-9b72-7ed373ed8e60", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[250975, 6722, 505, 8, 70, "Item",ExpressionUUID->"7a1f7830-0958-463d-a080-4ae586e24dff", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[251517, 6735, 1874, 45, 70, "Subsection",ExpressionUUID->"3224468d-2117-4b06-a822-8f800c009a0f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[253416, 6784, 158, 5, 70, "Input",ExpressionUUID->"d8fd0db1-dc35-4a4b-92b6-129e94ef6289", CellTags->"DefaultContent", CellID->946203791], Cell[253577, 6791, 122, 4, 70, "Output",ExpressionUUID->"4bcff31b-94e0-43d1-bb1a-7a60fb81d85e", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[253748, 6801, 955, 25, 70, "Subsection",ExpressionUUID->"ef71a9d0-4cfe-4a94-ba9a-e79dfd2bf972", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[254728, 6830, 1174, 31, 70, "Subsubsection",ExpressionUUID->"a62f29a4-5c5d-4fd9-a2b7-d605db9b0f50", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[255905, 6863, 89, 2, 70, "Text",ExpressionUUID->"e8bde73b-85c0-4d7b-892f-4b2a2b091bc9", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[256031, 6870, 1113, 29, 70, "Subsubsection",ExpressionUUID->"4bfc0288-7f0e-42a1-8a7e-09e6d0ab521b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[257147, 6901, 1321, 40, 70, "Output",ExpressionUUID->"f74cf20b-35f6-4009-880c-ad55aec70f14", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[258505, 6946, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6869856b-7eda-47f0-be71-e12ea75759b5", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[259788, 6981, 1365, 41, 70, "Output",ExpressionUUID->"3d49d9cd-73b2-421d-8c83-302aaceec045", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[261190, 7027, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b6805008-4967-4893-ba80-86734d33b113", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[263106, 7075, 2896, 83, 70, "Output",ExpressionUUID->"f3bcedad-7907-42c4-a3df-b9584f3a367d", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[266039, 7163, 1071, 27, 70, "Subsubsection",ExpressionUUID->"362b892b-3ec6-4620-b2ee-9dff81f1ce8e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[267113, 7192, 938, 28, 70, "Output",ExpressionUUID->"d9995026-a3c8-4816-b972-bb435b02e2a5", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[268112, 7227, 1155, 28, 70, "Section",ExpressionUUID->"67eb65dd-a129-4c35-9da9-1c51b08593ef", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[269270, 7257, 529, 8, 70, "Text",ExpressionUUID->"f2678b2e-439e-4894-bd5d-9d67f13c6264", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[269836, 7270, 1033, 26, 70, "Section",ExpressionUUID->"f9722ad9-f892-4f92-b914-5174a173f889", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[270872, 7298, 515, 8, 70, "Text",ExpressionUUID->"f39bf5c6-3321-43f8-9bd6-9fcb74ce4b6a", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)