(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 351393, 7655] NotebookOptionsPosition[ 218808, 5072] NotebookOutlinePosition[ 331969, 7242] CellTagsIndexPosition[ 331018, 7211] WindowTitle->DefinitionData | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["DefinitionData", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611], Cell["Store full definitions for a symbol in a compact object", "Text", CellTags->{"Description", "TemplateCell"}, CellID->991216423], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Definition", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "DefinitionData", "]"}], " ", "=", " ", RowBox[{"{", "HoldFirst", "}"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{"property_", " ", "->", " ", "value_"}], "]"}], "]"}], "[", "property_", "]"}], " ", ":=", " ", "value"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", "_", "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", "_", "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", "\"\\""}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"d", ":", RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{"\"\\"", " ", "->", " ", "_Association"}], "]"}], "]"}]}], ")"}], "[", "props_List", "]"}], " ", ":=", " ", RowBox[{"AssociationMap", "[", RowBox[{"d", ",", " ", "props"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}], "]"}], "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"Keys", "[", "definitions", "]"}], ",", " ", "InputForm", ",", " ", "HoldForm"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}], "]"}], "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", RowBox[{"Keys", "[", "definitions", "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}], "]"}], "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"ByteCount", "[", "definitions", "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}], "]"}], "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", RowBox[{"Union", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"StringRiffle", "[", RowBox[{ RowBox[{"Most", "[", "#1", "]"}], ",", " ", "\"\<`\>\""}], "]"}], ",", " ", "\"\<`\>\""}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"StringSplit", "[", RowBox[{ RowBox[{"Keys", "[", "definitions", "]"}], ",", " ", "\"\<`\>\""}], "]"}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"info", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"\"\\"", " ", "->", " ", "_Association"}], "]"}]}], "]"}], "[", "\"\\"", "]"}], " ", ":=", " ", RowBox[{"toDefinitionList", "[", RowBox[{"DefinitionData", "[", "info", "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", "_", "]"}], "[", "other_", "]"}], " ", ":=", " ", RowBox[{"Null", " ", "/;", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"DefinitionData", "::", "unknown"}], ",", " ", "other"}], "]"}], ";", " ", "False"}], ")"}]}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"Get", "[", RowBox[{"DefinitionData", "[", RowBox[{"info", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "name_"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "_Association"}]}], "}"}], "]"}]}], "]"}], "]"}], "]"}], " ", "^:=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"defs", " ", "=", " ", RowBox[{"toDefinitionList", "[", RowBox[{"DefinitionData", "[", "info", "]"}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Language`ExtendedFullDefinition", "[", "]"}], " ", "=", " ", "defs"}], ";", " ", RowBox[{"Symbol", "[", "name", "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"Information", "[", RowBox[{"data", ":", RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{"\"\\"", " ", "->", " ", "_Association"}], "]"}], "]"}]}], "]"}], "]"}], " ", "^:=", " ", RowBox[{"InformationData", "[", RowBox[{"AssociationMap", "[", RowBox[{"data", ",", " ", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], ",", " ", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}]}], "]"}]}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{"Information`OpenerViewQ", "[", RowBox[{"DefinitionData", ",", " ", RowBox[{"\"\\"", " ", "|", " ", "\"\\""}]}], "]"}], " ", ":=", " ", "True"}], "\n", " "}], "\n", RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{"HoldPattern", "[", RowBox[{"Information`GetInformationSubset", "[", RowBox[{"d_DefinitionData", ",", " ", "props_List"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"d", "[", "props", "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{ RowBox[{"(", "symbol_Symbol", ")"}], "?", "symbolQ"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"def", ",", " ", "defData", ",", " ", "data"}], "}"}], ",", " ", RowBox[{ RowBox[{"def", " ", "=", " ", RowBox[{"minimalFullDefinition", "[", "symbol", "]"}]}], ";", " ", RowBox[{"defData", " ", "=", " ", RowBox[{"Association", "[", RowBox[{"Cases", "[", RowBox[{"def", ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"HoldForm", "[", "sym_", "]"}], " ", "->", " ", RowBox[{"{", "defs___", "}"}]}], "]"}], " ", ":>", " ", RowBox[{ RowBox[{"fullSymbolName", "[", "sym", "]"}], " ", "->", " ", RowBox[{"Association", "[", "defs", "]"}]}]}]}], "]"}], "]"}]}], ";", " ", RowBox[{"data", " ", "=", " ", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"fullSymbolName", "[", "symbol", "]"}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "defData"}]}], "]"}]}], ";", " ", RowBox[{"DefinitionData", " ", "@@", " ", RowBox[{"{", "data", "}"}]}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"a_Association", " ", "/;", " ", RowBox[{"!", RowBox[{"AssociationQ", "[", RowBox[{"Unevaluated", "[", "a", "]"}], "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"b", " ", "=", " ", "a"}], "}"}], ",", " ", RowBox[{ RowBox[{"DefinitionData", "[", "b", "]"}], " ", "/;", " ", RowBox[{"AssociationQ", "[", "b", "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"info", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"\"\\"", " ", "->", " ", "bytes_ByteArray"}], "]"}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"new", " ", "=", " ", RowBox[{"Append", "[", RowBox[{"info", ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"BinaryDeserialize", "[", "bytes", "]"}]}]}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"DefinitionData", "[", "new", "]"}], " ", "/;", " ", RowBox[{"AssociationQ", "[", "new", "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"data", ":", RowBox[{"DefinitionData", "[", RowBox[{"info", ":", RowBox[{"KeyValuePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "name_"}], ",", " ", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}]}], "}"}], "]"}]}], "]"}]}], ",", " ", "fmt_"}], "]"}], " ", "^:=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "packed", ",", " ", "contextList", ",", " ", "shown", ",", " ", "hidden", ",", " ", "head", ",", " ", "panel", ",", " ", "box"}], "}"}], ",", " ", RowBox[{ RowBox[{"packed", " ", "=", " ", RowBox[{"Append", "[", RowBox[{"info", ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"serializeWithContext", "[", RowBox[{"definitions", ",", " ", RowBox[{"PerformanceGoal", " ", "->", " ", "\"\\""}]}], "]"}]}]}], "]"}]}], ";", " ", RowBox[{"contextList", " ", "=", " ", RowBox[{"KeyValueMap", "[", RowBox[{ RowBox[{ RowBox[{"BoxForm`MakeSummaryItem", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{"#1", ",", " ", "\"\<: \>\""}], "]"}], ",", " ", "#2"}], "}"}], ",", " ", "fmt"}], "]"}], " ", "&"}], " ", ",", " ", RowBox[{"Counts", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"StringRiffle", "[", RowBox[{ RowBox[{"Most", "[", "#1", "]"}], ",", " ", "\"\<`\>\""}], "]"}], ",", " ", "\"\<`\>\""}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"StringSplit", "[", RowBox[{ RowBox[{"Keys", "[", "definitions", "]"}], ",", " ", "\"\<`\>\""}], "]"}]}], "]"}]}], "]"}]}], ";", " ", RowBox[{"shown", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BoxForm`MakeSummaryItem", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", "name"}], "}"}], ",", " ", "fmt"}], "]"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"BoxForm`MakeSummaryItem", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"Length", "[", "definitions", "]"}]}], "}"}], ",", " ", "fmt"}], "]"}], "}"}]}], "}"}]}], ";", " ", RowBox[{"hidden", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BoxForm`MakeSummaryItem", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"ByteCount", "[", "definitions", "]"}], "]"}]}], "}"}], ",", " ", "fmt"}], "]"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"BoxForm`MakeSummaryItem", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"OpenerView", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "contextList", "]"}], ",", " ", RowBox[{"Column", "[", "contextList", "]"}]}], "}"}], ",", " ", "False"}], "]"}]}], "}"}], ",", " ", "fmt"}], "]"}], "}"}]}], "}"}]}], ";", " ", RowBox[{"head", " ", "=", " ", RowBox[{"First", "[", RowBox[{ "FunctionResource`Private`makeResourceFunctionBoxes", "[", "\"\\"", "]"}], "]"}]}], ";", " ", RowBox[{"panel", " ", "=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"p", " ", "=", " ", "packed"}], "}"}], ",", " ", RowBox[{"FirstCase", "[", RowBox[{ RowBox[{"BoxForm`ArrangeSummaryBox", "[", RowBox[{ "\"\\"", ",", " ", "Null", ",", " ", "icon", ",", " ", "shown", ",", " ", "hidden", ",", " ", "fmt"}], "]"}], ",", " ", RowBox[{"DynamicModuleBox", "[", RowBox[{"_", ",", " ", RowBox[{"TemplateBox", "[", RowBox[{"_", ",", " ", "\"\\""}], "]"}], ",", " ", "___"}], "]"}], ",", " ", "\"\<\[Ellipsis]\>\"", ",", " ", "Infinity"}], "]"}]}], "]"}]}], ";", " ", RowBox[{"box", " ", "=", " ", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ "head", ",", " ", "\"\<[\>\"", ",", " ", "panel", ",", " ", "\"\<]\>\""}], "}"}], "]"}]}], ";", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"b", " ", "=", " ", "box"}], ",", " ", RowBox[{"p", " ", "=", " ", "packed"}]}], "}"}], ",", " ", RowBox[{"InterpretationBox", "[", RowBox[{"b", ",", " ", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "p", "]"}], ",", " ", RowBox[{"Selectable", " ", "->", " ", "False"}], ",", " ", RowBox[{"SelectWithContents", " ", "->", " ", "True"}], ",", " ", RowBox[{"Editable", " ", "->", " ", "False"}]}], "]"}]}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{"Format", "[", RowBox[{ RowBox[{"DefinitionData", "[", RowBox[{"info", ":", RowBox[{"KeyValuePattern", "[", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}], "]"}]}], "]"}], ",", " ", "InputForm"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"packed", " ", "=", " ", RowBox[{"Append", "[", RowBox[{"info", ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"serializeWithContext", "[", RowBox[{"definitions", ",", " ", RowBox[{"PerformanceGoal", " ", "->", " ", "\"\\""}]}], "]"}]}]}], "]"}]}], "}"}], ",", " ", RowBox[{"OutputForm", "[", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Unevaluated", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "packed", "]"}], "]"}], ",", " ", "InputForm"}], "]"}], "]"}]}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"DefinitionData", "::", "unknown"}], " ", "=", " ", "\"\<`1` is not a known DefinitionData property.\>\""}], ";"}]}], "Input", InitializationCell->True, CellID->17815837], Cell[BoxData[ RowBox[{ RowBox[{"toDefinitionList", "[", RowBox[{"DefinitionData", "[", RowBox[{"KeyValuePattern", "[", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}], "]"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"Language`DefinitionList", " ", "@@", " ", RowBox[{"KeyValueMap", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ToExpression", "[", RowBox[{"#1", ",", " ", "InputForm", ",", " ", "HoldForm"}], "]"}], " ", "->", " ", RowBox[{"Normal", "[", "#2", "]"}]}], " ", "&"}], " ", ",", " ", "definitions"}], "]"}]}]}]], "Input", InitializationCell->True, CellID->886944169], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "symbolQ", "]"}], " ", "=", " ", RowBox[{"{", "HoldAllComplete", "}"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"symbolQ", "[", "s_Symbol", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Depth", "[", RowBox[{"HoldComplete", "[", "s", "]"}], "]"}], " ", "===", " ", "2"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"symbolQ", "[", "___", "]"}], " ", ":=", " ", "False"}], "\n", " "}], "\n", RowBox[{ RowBox[{"Options", "[", "symbolQ", "]"}], " ", "=", " ", RowBox[{"{", "}"}]}]}], "Input", InitializationCell->True, CellID->36587374], Cell[BoxData[ RowBox[{"minimalFullDefinition", " ", "=", " ", "FunctionResource`Private`minimalFullDefinition"}]], "Input", InitializationCell->True, CellID->302156494], Cell[BoxData[ RowBox[{"fullSymbolName", " ", "=", " ", "FunctionResource`Private`fullSymbolName"}]], "Input", InitializationCell->True, CellID->888410917], Cell[BoxData[ RowBox[{"serializeWithContext", " ", "=", " ", "FunctionResource`Private`serializeWithContext"}]], "Input", InitializationCell->True, CellID->466777105], Cell[BoxData[ RowBox[{"icon", " ", "=", " ", RowBox[{"Framed", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"RawBoxes", "[", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\<[\>\"", ",", " ", "\"\\"", ",", " ", "\"\<]\>\""}], "}"}], "]"}], ",", " ", "\"\<:=\>\"", ",", " ", "\"\<\\\"\\\"\>\""}], "}"}], "]"}], "]"}], ",", " ", "12", ",", " ", RowBox[{"FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontColor", " ", "->", " ", RowBox[{"GrayLevel", "[", "0.25", "]"}]}]}], "]"}], ",", " ", RowBox[{"Background", " ", "->", " ", RowBox[{"GrayLevel", "[", "0.95", "]"}]}]}], "]"}]}]], "Input", InitializationCell->True, CellID->789358337] }, Open ]], Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefinitionData", "[", StyleBox["symbol", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->711993660], Cell[TextData[{ "returns a definition object for ", Cell[BoxData[ StyleBox["symbol", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and all its dependencies." }], "UsageDescription", CellID->822179287] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "[", StyleBox["property", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->384637043], Cell[TextData[{ "returns the definition information specified by ", Cell[BoxData[ StyleBox["property", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->363765095] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Details & Options", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "[", StyleBox["property", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", possible values for ", Cell[BoxData[ StyleBox["property", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", CellTags->"TabNext", CellID->447108398], Cell[BoxData[GridBox[{ {"\"\\"", RowBox[{ "the", " ", "fully", " ", "qualified", " ", "name", " ", "of", " ", "the", " ", "symbol"}]}, {"\"\\"", RowBox[{"an", " ", TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]], " ", "containing", " ", "full", " ", "definition", " ", "information"}]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "a list of all the contained symbols, each wrapped in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HoldForm", "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/HoldForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "a list of fully qualified symbol names", "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "the full size of the definition data in bytes", "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "a list of all contexts for the defined symbols", "TableText"]}, {Cell[TextData[Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[TextData[{ "returns a ", Cell[BoxData["Language`DefinitionList"], "InlineFormula", FontFamily->"Source Sans Pro"], " of the definition data" }], "TableText"]} }]], "TableNotes", CellID->666058449], Cell[TextData[{ Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Get", "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/Get", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " will restore all the contained definitions." }], "Notes", CellID->182998367], Cell[TextData[{ Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Information", "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/Information", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " provides a summary of some properties." }], "Notes", CellID->98731795] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Get all needed definitions for ", Cell[BoxData["f"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ", which depends on the function ", Cell[BoxData["g"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{3.753750157142765*^9}, CellID->391213383], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "3"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->199287210], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"g", "[", RowBox[{"x", "^", "2"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->399956560], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"DefinitionData", "[", "f", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.75375016850143*^9, {3.75375021850886*^9, 3.7537502232546873`*^9}}, CellLabel->"In[3]:=", CellID->860823566], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQd8U0e+700zxr1BCMnuZje3vPvu+7z32Xd3U+i9p5C6mwRMJ8ndzW6S zSbv3gQwtizLJoVkAWPTu20IJFRXenWhhG6r2lbXaTqSjorN+885kiy5yHIB W2F+CJDOmfM/deZ7/jPzn/n1wr+8srR/WFjYxxHwzysLPp3w0UcL/t+r8fDj 9Q8+fm/ZB0sWz/jgb0uWLfnouYUDYOF8+PsipEff72NhYWFhYWFhYWFhYWFh YWGFmpqampxOp9lsNhEmo9FoMMDHwH/xVYufKEXLtUZ3ImPrxFhYj7j8s0ur zNNWIv6v8B/kR4IgIJNCVoUM29tlBhZWiKmxsRGyj16vh/ykd8vg/aMX/hrc C/mfBs939w+9/1f3NwP+4A/+uD8Gd85okVc8eYv/bdA350DPcj6twbsZn0kN BoZhXC5Xb5ccWFghI3g5pGlayHoURbFm1mKxWLGwsPqYIGPCGylkUh6bBviC PTssrGAEOUXw5owGI8uyNiwsrD4vC2vh6z71kHkx7LCwOpTT6RAqQzDmsLBC SODfCS15Tqezt0sRLKy+LgAcZBaKono742JhYXVOqBqTf0fFbh0WVgBBBiEI wmjEDh0WVuhJeE0lCNxah4UVSJBBhM7LVqu1t3MtFhZW5wTZVohAwKTDwgog yCAmkwl8Okw6LKyQE086I2RhTDosrABCpDOiOHFMOiyskBNkWyMmHRZWR3L7 dCZMOiys0BMinQmTDgurAwk9UiCvYNJhYYWcBJ+OwKTDwgoo3qeDjIJ9Oiys 0BNkW3hNJUwEJh0WVgBBBiHBpzNhnw4LK/QE2RZyL0Fg0mFhBZJQewnvhJh0 WFghJ0Q6yL0kiUmHhRVAyKcjwavDpMPCCj2h2ktMOiysjsSTjsKkw/pZirM7 GxsbnXbugW7SdSOQztUIeRCl7dKOeJ8OQIdJh4UVSIh0VCiRzm63O51OF5bL BdfB4XB05uJxdgeSvZ0SmF/dvSL+YQsOGR4GBAvEi6YmdFl8TsFKGzUajZHu xMPdhU06MtI29zg4druVNDbUqZR19XzaLlx6q5XEpMPC6kiQQShEOjJUSAeZ WovlUefG5bayDIlEs22WqcJqmg2NBwFeehyuRofNTBr0DXVu1aOxys1WGzhI QBcb1VDwn08//Zv38uspW1PHXlMXNgnGCGchdap6NWGxc5z3usMLm4PVndmx bOKwpKGP/+I3f92nIW2d9+ysiHQkReJxL7GwAkkgHRRwfZ904M1ZLJYDBw7M nDlzPNb48VOnTs3OzqZpOgjPDvwHm5m6dvCrrMyM7E1lNaTF7uu98avJK99/ 8803+6+QZmuf9+yQm+Rk9cqzOzLmjxmbmDQ0KTk5aWhy/LPPj14i3nXJxNrA 0bNR9TvmxsbGvL1dRQZNus5t0pER2nHfadYc/Nv//h+/TtlUSzjuuxwcn8hl JZS7lo1IjI8d9cdPNqT/NeeIkWDBHe3k3hDpSBLPx4qFheRyWG5era6qqKiq rKyovnKVsDjd+SLkSLd27drBgwcPGDAgMjIyKioq8tGTcNbh4eH9+/efP38+ 3Dun09nRxRNQVlUgSv38s/9ambGxtIa0+rCOX01U7MnIyNhdQfR10nGcs4kz qk5kTBmRnASAGz/q7ZQFSxYveOedUUkJcQmPPfFncJDs9+/bqfpdC4CAKTvr OkG6Tm0ShJGmRs4kO7Z86tNPL8250cC44No6IEOaLmZPSIqOfSvvnpZx2cyM uUsZsBXpmlxW8trVKxWVlVUVlVVVV26wdlcvljxYWA9RTuba2lee/s2MaTPn zHn5hTlvzk0tNVsb+VUhR7pvv/02IiICPJo9e/YcPHhw/6Mn8GoLCwuXLVsG sJs7d25nSFddmCVO+2rNt6vSJYh1zX6dQLrKfIlEsrfSl3Qc527bc3ha+Dh/ q3zDHiSyN6dwb+hd1Ga7oO96ZIPzW+UI0GAI/pCdUG9fNgmgNnrBppMytZGk aQqJJtXKe6fzP1l/REdY2iUd6gbibdpr9GnXawEpDrKHkKzR5WrVu8S3hdDX SmtcOuzOJiehKBa9+tu5ay/pzQ6U9Rz0JdH4xOSxGRUs+tklqNpak67Rxpal zvvDnBdenjNn1vSZv/nNnH9cofE0rViPhjii6tsXpmecqFWj2DmCJBmuKVR9 OiAdeDRvv/220WiEYph99AR3imEY4Tq88847nSAdoCwrO2vXmevHczJF4twS KW1zs64d0nF2zmoxUxQ/3YWJIGgza7U1Q8nK0lDKMhbOZmEoNHqqiSBpsxXA Bh8rQxH8IrQV588JDhk20xThtkuZrVwz7Cx8eyFltrT5FDhdHFW3a0lidFzs /C1SnRUeYr5zDi8XMMdho5GD1LaDBpRz2q2UUV+nUimVSlVdgx5V1jodaO/N myTP360x2znGUMcnqtcbBRfYxwd2WM2kXlvntmIAK5y7YrKN/aL0nNnQoDXx rpuZbJDfOvzZqMTEkZ8dvimr1+gJpmvZr7VP18QxfNgQQWikJ8XTX1hTabL1 XtGDhfUQxRHVa+e8mnONaV2PEaKkgxIeSl9hyaMmuBRms/m7777rCukkWdmF lQZd5YFs0aqM/MsGM8c7K22RjgMYEdKKsvy8vOzs1dlZWZKsnILSKrlAJXfD 3po1335fqb5T8eP2NauzxGKxZNP+ShNjsZC1l/dv/opflJW3r6yGZO1ez84O hb6ppqJwYx4cDVjNysorvFxjMgMpEBHN8iv7JNnZeWUy2sK18OxQvR9rOCce kxSXPH+rnHTeb3S0dP1Ql0Z7m8ThOEejzdRwateS8ROHDRs+YsSI4Y8NnTB/ 1e5zWpoD2DncmwwdOnTxttv3yr7888xfPDFixGNJiRPGL91zWsuCN4kuDJgn NWd3ihdMnDgCWXls2NAxi0R7LvNOsqO9KlBkHnmBNlp38LP/+fSTybER/ftH xCY/PuKpf33tH1VGs8PV6lw6VKB2ukbz9Q2vzvlHFSYd1iMinnRtP/IhSjrw 6QwGg40v8x81wUWgabqLPh2gLL+aNjNk1X5JenpmIWKdww0uX9KhTi5m8urB r77MzswpKCqpuHyxKH9DhkiUubGslrRwaJf8BqKVm7bs2brzh9JLFy8W529I TxNJ8o6eObppzbebC45duFBSkLt21SrxasQ/gZ92wNy9so3Ibm5+ycVLF0sL NqzPyMzaVFZDsMAbnnRZq1fnlbcmnRt0ovHJiWOXn9ZbnS4n513T6K6QbOJ7 9LcmHbh7HKHe+e6U5IS4xLEpK0Tbtm8SLRg3Ni4mIWmq6JSGcYAB2GTP4uGJ US/M/sOMf3551uK0jVsg0dgxQyITHlu2TWHiwDjY1e774Je/eiJ5zMKV6dt3 bF6ZMiY2NjZhkuis1mxv4o2019gHV9pqYW5UF+zY/Okbz0ZHP/fGp7lbdu87 cJVgLO0FfwRSINIFyPZYWD9HYdL9nNRd0u2tJC0Op8VUsS/TyzoebH6kg4vN UDfOHqqu0ZIsIqGLY8na0hxw2wqrTGaby8Whdr+MtNT0rMIKHWkGExZKX1Eo SV2+Ik2SV3LHQIMZG22sKcpJT8vIQeCyu1w21lS1D/hZUFFDmW2wkdNppY2V +ZkZktwyGYPYZmUZ1ObWRu2lQK/dC4cmJc3b5RsGYGUJbX29EGhQr1ZrTLSV 8yed/X6TnVTsWjI8Jv7Z+Ztr6im+dZEz65UlqWPiYhPHZ57TW5ruO2hN/pK4 wQMiEqeIiuQaGrUm2il17ZaUuMi4pEV76ij7/fsWUn9k3d/yT93TUg67q/G+ k9GdSh+TkDB00R5VMD1hODsC9tn0icnJ49PO6MGZ82/+7IQeBOkasbD6kjDp bJh0XSIdgUBlNxubWWdH4GrdTgcPBSDPbmNZM8OwjEl74/DaTPGGEhlldTQC 6aryxWLxuuM1lM3hRPV2dgssykhPS99TYWI5lxMFjdkYWcl6cYY4vwpctkbY a2VBdua6g9fUBoqmUNQzRZOG+jPbM0QZuy4b0a7tQkeXNjwcdw/+lMTkpAW7 GwSK8H6eqeLbOU+NSEJKSEx6/Fd/2Q8uGhDIQ5x6xnXfRpzPHJMUkzhvp5xs vN/kQmfmbLrfZNWeXDEuPmls+lmD7b7LrN69MD4+7tnPyzUAPtiB3QGJOePZ FaNiYxLm7xaCDziL1Yq6qdgYOAcTZaq/e+iT5xLix6WfF3DZAemcjS6r6YJo QnIybGG0uJpcXeuP0qOkc8EzYbeDtYaGhnr3awMWVm8KnkN4GuGZ5DhUjdRh KA0m3c9JPUE6vnqSa2adkXU6LGTLdjqOYxmytrKyZF9hQUFu7qbs1ZL0VWkZ uaVSmiedYG9PJcEKGzg4CyMtyZFIckqkQs2je7d7JZJM3pUEt+/qfoloVao4 +0uk1SD+P0lGembWppOK1k1zfo+A4NMtGpacNG9nneDTwS44lr568Kt3ly5c MG/em7/994HhMSm76mlf0jWYGxtZ9e4FyYlJb21XMZwXLWCRYxp2z09OSp6/ S0jFbwIuI825IYX2yqj3LIhPiB2Zft5gdqLaUcZYf3bnjvR3ly5aOmHStMef GBYfOTh2vPi8IRjSCZWw6Yh0aWf1XWqgc6tHSAevzQRB3L179+rVqzdu3LiH hdWXBM8kPJm3bt3S6/VQ1mHSPSLqGdLxFPKybl81ZTbT1QWe1U7goJWSVX6/ MVuSlZ2dl5e3v3B/efH5ozvXiTOBdJQP6ZrRCKSjpSW5EkluiZSytGr/E0hX mS/OFH17+NzFiqqqygqPKiurrly9pmJYKxegIs+NiFVjE5LGpp4zWJxeRFjM DMWwFkon3ZKSzDOmDdLxzuCivWqfak+eneo9i5KTE+Zu9yGd12X0pNHkL4lP iBslumCCi2O6tOP9SY8PHT7isYmTJr6/7E9ZqzZ8+vrIuKQJonNB+XR9iXRg RKFQQHkCr9BarVan00F5YsDC6huCp1HHC5w7qVQqk8lYlsWkexTUU6TjFyLW FWZliHPL7xlMVwqzhdVco8NKy8rzJBni9cW3tUbazJhZq4Vlaos3SCQbSgKS zp2iPdJV8zWepTLGyjn8+2pwHT+BCDp0Q/6yYfFxz684obU0eTiCotsa7993 stq9C5PbIx3v0/1xm7Itny4xKcXfp6ujfEjHMXU73k5OTJ63S82YzZWrJw6L Txi5/PgdhZEwkkBYhjibPk7gVkiRDiwA45RKJZQnRqPRxMuIhdWX5H0socxX qVQ1NTVQAGLS/ezVc6Tzsm4feG45x66d2ZWVnZVfybensUTlXrE4c9clwups anShIfedrLFiD2BqfYlf7WXQpCNYu9PGyMrWZ4jEey8ZzHY+3loIIHfarRar N1q9/chxzuF0WHRnRRMTY2LHpJYoKReqfBOC6YB0Lqs+f/HQ1qRzt9NJxibF JKbskJEoaXM73YnlY+OHTRCf82mne+6LUwau6X4jJII9OM11O+cnx8aPFF8G 0On2zI+Pi39za53Vm40Y+fa5CfFxI9PPhVbtJXhzgDnIShhwWKEicO4AdpB7 HxrpuB5SkLvDpBPUk6TzsK5y/5fi9DXffJWWkVUo9BxhySsFYpFo3fG7RtqK ugYyJu2lwjxR6irRhjJZ10gn+Iry8ryMtDRxwSWNibFZUVltJo262jPnbtI0 i/qhBIwcR5hwsvqz4qlxQyKjx64suqs0kjQFhT1JM5Redm3dGzGxMe9s9yed u++lcveSx2Oinp238R4gyMbZ7ByjVRxfPiph6PDFOxWEvem+ndLkL44dFD44 Yf7GGyrCjqIAGZ2iaMXzUZGJEzIvEHaHRVuwODE66rnlpUqj1el02Ii6u5uX TISNIseKL4QK6SA9wzBQYoA39zPDnAn1cqKZZtFkq/MjKJQAdSfqiT32ZWs/ P0HJL5fLgXetu2U+INJBkdv9ET+EUOhghEknqBuka3NgSxRpDazbJ1n1+Wef rxTlV5FCDIGp+vsvxWmp6Tn5xy9evFBUuOW7rzds3/R1ujinuNZde+lvjydd bdH6jIz1RbW+pGtOBkfKWcja8i1Z6Wnpmev3FhVfunyheG/u+qyvvjl4Be0Y uBsgctx9wM5GzlS38/1pyXHxSYlJ40b+cV7KokUpKW+NHDc0MTEhfthTf3X3 vazzGa4Z8gVHqna992RyYnTCmHnL07Zs25g2f+LouKTHRizboSQ4lMJGNexe EDek/9P/NvKXv569ZHnu5s3p88eOiYtJHDpdfFrDuJqaOKq+4L0nEiIHDxmV snzT5o3LF8/6t99MmDP9fw2JH+upvawLOEy0QLqzqaNjY0euPNM7pIM7IZVK obgIVKaYKCPFeD60sYOSl/BJzBiJXimnTSaSIgzaBqWitra2hldtraJBZ/BN AyzU1SshgbJebejuYQZpjcdvW8ztkrW+rCDPtBs7MJm0Wu2NGzfAS3rQpINd QHkL+6qqqqqurr4IJaFHF3ldaKUWy+F7NS8wArwLxrMLnnSsxep1OMFDEJb5 qKeY8wBMBqGuk44f02TN960mK0AxbLTsxOZscWbWVwevUUI8HWehpJXfb8zK zMzMyv7y660HL99R15zY9u2arSfk7igDf3s86eQntq7hUzSTrmUyu42lZFVl hblZWdmAtNVZWbkbCyvuEWYbP45KgMhxnwfQ4bLThrrzuzIXjhuXlDwsGTQs OWn82AWiXecvqkmas6PRSBoK//RP//T0+wX1FJoRB42RwhGqM3uWTpj02GPD n3hixPDHJk1ZvOu0krA1ogFa+Al3Cv/0z//6L+9tuVaU9pcXfvXkiBHDhw2b uDBtzwUdGkfFzgfYgU+5873JQ5OSHxsx4hdPzfpgW+mdU6vn/Ms/z86+CD5d k8N3v+2Rznhp9Yv/9E9oi14hHWSNO3fu6HS6QA6dts6grDUo+I9SYdQb2k0J MmgMSqknsdSg1gVIS1BMC8EjTZHdpSMUskaNtHxr+vzRz8VGRg3hFTd0csZJ pZZ0l70ERRlUd/PmTxienDwmJfWESmvqhvcUtDW9TlOvlCoatIGuYc8eW4d6 MHchqDPtjuCJhef25s2bcMAPgXRQ5J4/f/7MmTPwb1lZWYlHpbyKi4uPHz9+ jBd8gZ/Ccm8y2AQ2PHv27Llz58BUT5IOPE3GpNdo1CCNRgfvl4h9bPNwWqyl R8DEWn2G6LI+PNZ1iXRCsciHZDNtTkAHrwQ0eg58VvODUzLoyQcRNBoFzMbS PjHdbdmzmOmWUd+tknHCeJo0SQimCZo37jPuZTuR4/7Pg9PZ6ABoGvVqPgCs vqFBbTBSrM3h8Mx6arUy6PXPxFibz8npstsoo6Ghrk6lqqtrMBgom913/Ga0 iU5HsuDokno+qgzMUt6xMW2eKVQpk1bNr67XozExbbRRqzWQ6CQ5wYjfftu6 GaTBs0XX1WXSwXUHn67dqkvw5owNhqIPlH8YoXgpUTEzXvH6NHWF0ki06dmB N2c0KnfX/XGEYmac4uVExRu/qdt+2qAj2/HsDBqV1ONyCW5XrUKhhLKRQAVt VwtA8OZ0stJVUx6LHTAgPGIwmvQDKX7YFLGXdCb4T686+/W0hAFhYWH948dL zqh0ZFcdkKCsAX5NBu35HV/Mn/rUbEm5XNPe7nr22DpWj9+FoM+0e4InFp7b u3fvAu9aPPYPiHTneIF3duLEiTJ/CVAr4iXgr0UC2AQ2FGBn7jnSsUAxSlt5 WPznOTOnTpwwZdbLH+68AeWU2XTz+rVqNGdRRXX1NT1Bd9MNg60po+ZKdXVF RWVV9bVr1/UmyvyQPLuuky7gpOKeSQv8nD3/CQn4IR99Y7rbsNciRbvJ/OYy sPvNkcC1Gzne1gmhoSS9EmYc99mwrdm+hbkMmrdosSPPJpzD6UnlN4+514bX BErMD0fW7Ju1Oct4i2P336Jr6jLpGhoahC6XgUh3eIFi5iD5+P7y6fGKN2ao Kzsi3VtPKmYOkU8Mk0+LVeWVt0k68COMDbI9//mrxxPjYqIiBbcrKjLqd8+N Xpi2peSOQkvRXfIqkGF17c7FieFhYUNGrsgtuiuVyWVSJKVv7aXgN21cMOnx oUPHLkg92RM+XUBrwhlvXxAfFdHv95+XKbTtl/89e2wBD/tB3IVOnGk3Bc/t vXv34O22RVPdgyAdoAJQJTALHLcjHh3mBYA7ffq0UGMJX+CnsNybDDaBDcvL yy9cuNBjtZfwemw2NRzPfG32pJFjJkyaPGnGS6+Ki7Rwdjd3ffjqC9Onz5w1 +6XX3vpkz08GymLrumfHWjkzoS1b886br85+Yfb0qbNefj27BN7guYfi2XWD dFg/N3WZdOCMdky6I4sRuWaNUp/6yVCvNhoC117qDGqZ4faGupei5VPjlZtO tE866dZ5UQPBbxk0xON4DY6KGBQePiju8ckrj9ypJ1q5RT5dTGg0B0brA4ZS Vacs/+KZIZGRz352XKalrRaze4tmWvD1dSgHUwYtOOQag76NswdTaCM0Ewff 5OTZbauiv2NrKAWUFoyhbkdKxOCI8JGrzmgIi635yIjOWPO5Hs3H5b4g/kk7 OoXO3wVTi34+Las5O3OmHVvrSFD4CxGgD4104KwBrY4ePSqA7NChQwcPHvzh hx9Onjx5584dPS9wM+EnLIRVhz2CTWBD2LwHSYcAZNKUiGZNmDBhRuqPF1Ua nUFnYmwWSl+dt2TqpPFvf/bd/oNHi0tvohiobnhgsC3DkLd+Kj5+9PvCb1LG T5o0dfkRDSYd1kPXwyDd7AnqKo2RsRhRYWWCvOPX8wR9KN7Ro4wslJ976l6O 6ZB0W+ZFRUdFvPGPqlvSOqVCKq09Wbb1i5TRUVDuRgydnFom13mLWUQ5wggO qKeDiVLZYCAAXiYfk55SdufCmOjoyHk7VCbWbmNbFbKe+rraWqlcoVSqlG21 Jhl09fJaqRT5U4RR26AUKvhgt1oD4Vccd2yNTyGTK2tuVq19MzIiIvz3f//h 2h2ZQlbrri1UaQzBWzN6rgdFCseFrNS6Lwjh6/x1eAqdvQsm0sT38/HstLZW qOb03AZDZ860Q2sdqy+Q7sCBA0C08+fP63Q6YRfwBX7Cwu+//x4SPEDScU4b bTieNn3G9GkrjunNThQ0BXaBdFc2Lp0+ffrSvCo9ydoQ5FCfFRtqLPLd3mLz 6cLSoRjehdQcTYX9TU9ti3RCzxib/166LUw6LK8eCunGqS976i0NOmOdp9uJ okVnFaEOc0ewpIseMm+70oAyDXqpZ2id/MbGBUnhYWEDE+Zvu6M28p4KQZlN 9beLty4cOypaqGOLGTVu4ZaiGjUqhE3eQhbwgErZ794cEoXK7sqbtUq51LeQ FWrWdi17PEmwExkdG5c4/Jfv765tMHpZyDuGqpOiyb966pfv7bh1u3RX6rxR cahnS2TCmAkrtxYpNQThJUVAay1ThCPvKaz/oMFDvIpOHL50J9oAzr7jYxMO EI7QWC8v27oiZXR8DKp1jEQXJGVLUZlCZ+Rb1IM6BTLou4AcYsKgrz9Vunn5 3FHPxfD9fCIjY54bPT99a5lUbaAoOvgz5W9pQGvBeXa9SLpDHgHOAHbAL8hE wi7gC5AOFsKqH3/8UUj2IEhnZiiNsmb/F4h0y7+vUaqNkI9ptpl0SzZeMdA2 u83CMCZdg1oDcAKsuekE+CP1GjXqfsAERRwAo50ltMfS2iUdQ6OeMXoj1aOu HiYdllcPkXTgu5HGhrPqT55WzElUzHlM8Qp8hileHKb442x1pQoloDtHunc2 13iKctTjiTEpy1eMAY+if9z8HfcQASjaoLyxcfGTCRHhqBUJKXJwxIABUUMn ryySacGXM/sVsu5SdmB4RKtCFvI5SvruE8kxyErkYNTrY8CQuVtqWpJOWfr5 M7HRg2a8+5fRyUOjo6P55OH9+oVFJDy+ePtdHsFujgWw1ioFf2QDwiMiPVWF UTFJjy/zJV3gY+Nt0kR9zabFUxIjBnm73KAL0n9Q7LDJqUVSDXoSgjkFM7oa Qd0Fk4WldapT4qnDk6IFS/xOwyMGhA1EOy2V6RkrqQ7yTGl0dAGtaYlgWiZ7 i3RHjhwBl+0Ar8LCwn379p05c0aj0Qi7UKvVp0+fhuUFBQUCByExbNKTpOMr LrXFkldfmD5+/Njx48dPmjxl0tRZcz7Yds1otrGmqwLp8qr1lM3hQI1sX/3h 1VdeSf9BZTSDZwfOl4XSVGz886uv/eGT3T8Z6KBa8YTa0qOr2iAdy8I7kuHK ofQ/vfrqB2mHG1AvPNbsH+vQWph0WJ3UwyZd/Un1+/Goz8nE/vJJ8OknH9dP PmuM+pKye6Rz9zxUnlw5MmLQoEHPLi9XGljWqDohmpQwIGxwfEru4dsyZZ1c drs4b8HIiLCBMeOWl8gMfoWsUMpCeT5wcBuFLNqNQVMnk8rkSvm964c+e2bw kIjItkh3Im1szOCwAQP6DYoZO39D0R2FUnrzaOqYaCi/Y1O23/Wm78iaO4Vc oZLeurLuD3yd3qc/Xr8LWwg9ZaSyOt/ayw6sAeeMDXe3Lhw6JKxf5OgFuUW3 ZXLhgiwax4NpXHq5Ugdv1VTHp2CyWong7oKOYSmN6nTWn6Yt+iKnqLRGKlUo FdLbR/MWJQ4OCxuUsGj7PbWJIU3BnSnqH6sObK2lG9tHSCfECxw+fPigR4C5 /fv3A+kAcF7SwU9YCKu8yWAToYtmT5KuJOu1F2d4STd52uxX/rL9ekvSWWBP LKW+nLNsyoTJL6YdrkfDMXKMrirv/VmTpy5ad66OQEM8BoGc9kkH7p6FNtzY +eHMcf/xzMTZ4jINAUBl/WId2lBwzXyYdFhePXTSnVL/eah86gD51Aj5NPgM lk8aLH9pgjtBd0gndJ6Ubp8XPXDQgOiU7TIdSdaXL38uKiJm9IpiFWHjh45z ujhSdTJ1bFR4RNz8bc2FrFTGl7Jr/xAZ5W55UinawAlq0jND5iQ1Z9NGBSBd 1ICw/lHDFm38SWGAt2ArR2trNr0dEzFk0MiVfqF5Aa0Zfftp7JwfBS5nRz1S 2rfGH5qifNWoyPCBMW9tuC43QmnCmBn41yi/kftOXHh4+HNflMp1jJXp+BT0 ZhupDuIubONXmQy6hoZ6jZEys0KfaVcja5Btnhc3JGLg8ytO8BeEDPpMDUFY 68ire/ikEwLlioqKTp48ee7cufPnz5/mdf36dchEQidsOCr4KSyHBJAMEgsb Aih7tvZSq6r9/ovp06dN+2I/qr00GEyMb+0lTzpw1yw2K6WtALRNnb4st0Jv 4RjNkTT48UL64QaSDbZjSYc+3dVDoj+/9toH6UfAp7MB+0jD9atXKisrq1oJ Fl65elVnDCZUAZMOy6ufGeka5DsXoDI2Zv5OhUarPb3q+ZjIyN9+dOCnGoXQ 7iaVKxU11w9+/H+jIiOe8ylkPf3+5rdoeWrd7c+Ds5Uj2yNd+Yrno6Mif/f3 H2s0DEuTgp9Td2LFM9HRUc9+UepfFAew5nfGW+eh8v/5FeUBS/J2rblXpD4f MTgi5q0tNTrSTAu7IWgzqZNufTt2SETE6FUnkStsUHV0CoFJ570LKduFVSaS YRlSW6dS1vCdZmQK+b0bh/7+f8Fn9r0gwZ2pKUhrgfTwSXf8+HGgFSDszp07 wpQfDbzgSKBMFoKlICX8FJZDAkh29+5d2AQ2hM2BfT3bI6UofcaM6dPSjusZ NO4FGmysNemQ02WltRUb350x7YU/5Z2/e37j+y/MfDH1oNIYNOcCkk4QQ5tQ cLCJYpGTRxmu7/r49ZdmTps+c1ZLwRHPnvNmdmkwoQqYdFhe/cxIp5ZunRsV ETHod1+cUGu1yl2LEoYMCBsweEhkc+8G9DUCNQWFP7u81M+/asdu0DTxJV10 1POpp+r1FLLu3SAajXZa1iuk8xoZPCT8mRXlqmYjQheUEyufhRP//eclzaQL dAod+XTuu/DfJQotyVCwqP5W8dZ3x4/+/ZDIaM+NiAgf0C88esyq8k6RDnEu OGuB9JBJB+7YsWPHwDsD5Hn7nwiCAwDGCYnhS4vjgcSXLl2CDY8ePdqTpHOT B5Eu9YhagAbbJun4xBay4Wjm6y9OmTQvZd7Uma98sKlKz1g7EWbXIelQ30tU GllQRDu8g90s3Z6RnrpixcrUllq5YnlqRuaOnwyEucOaU0w6LK96oZ3uPxPk k8LkkwbKJ8NngHz8APnssT3TTkcZVHwL0cAhYzPOaXSIdImRA8IGAum87W6R 6Gt0TFz8sCdnZJ1SPTjSNTOt7aUdW/M7454hXQqQIXx02qk6f9KBu4ZIFzkS vFwf0rV/Cu2Szv8upJ9SGcxWsu72psW/SI7qN3BIlPdGREYOGdx50qG2RlWQ 1gKpF0kHu25h1pd0LbIhJO510gExgHWE6sAXM8c//8y4KYtzLumoznAuCNK1 FACKDKigOn1i0mF59dBJd1b94S/lL8TIX0iUvwifBPnMePnr0/jhU7pBOr5G y2yQFX8+KnJA/8HPryhTmhhT/Ynlz0ZGRf7274du1arqlDKptFZoeZPJ+ZAz td/QJ32bdFvmRvKtV6fdXlYnj819DMtRYPzv/l6kNDBmqrn2Un1v41uxUUMi 39p0t4GwmfUdnkLbpGt1F0oVRpbW1exYOjQCfOiEBbmHbkvlCplcWVcnu3P4 02ej/C9IR2eKOKcO2log9W7tpTAzrJpX69pLYbmQ5kHVXnaKdMipM9YdFc+Z NnnsqHFTX0o/qg6+ia5rpBOmbgigoHYbYqQLNAJZb9j5eemhxtMRhFGn1pXs 1Rzepjmyw/2B78cLdGoNlKZdiqfjI7wp5EncPrJyfGxYWL+48SJwTVBZXLst JTZiSPTbubfrCTSAOMcPG8dZWJowaHVGoh277ZJOGIbE3etjNKJJyg5Pk177 TGuPdB1Z8zuybfOiB0cM+v2nR2Ua2gYZvVUTYgfWeCu14OQOGjAoYW7udblB GL7XYgUUFS0fHdWvX+To9BMqPd8jpTOkC3QXjMhBPL1q1ID+A8P/45PiesrR 6HLYbZzVoLyT987vhwyJQi8l/qRr90yFgwjaWt8inW+PlPO8AGFnzpy5fv06 HIzQIwUODH7CQqFHCugB9UjpDOkQ54iGw6JXX35x8be7v3v3xVmz38u9pKF7 vPbSHTmOhlUhTTdLi4/6jonmO4ba0WPFP90mmY4Hb+ke6fwHnGw10mWPy8pP Nkd3bxzjHrQjiB8vs7GxCYkf1jJUCfqQxkip1hgZq3uMlDYG7hAWdX6MlO8q b9aq0Age5SVb/nveyKh+wuAcxTIUGEYzyAFY9HhM/36Dn5u3fHPpnXs1cpms pvZe6bGcL5bO+PMeqUpH+/Wk6IB0Qox5rUwhu3vtx0+fGRwxeAgKMq9RyqXC 1D6dIl2H1jyXku+4fyJjXAzwI2r08tzjd2qlMmmtN6jdZAzGGm9GXpY6IT4s LCxyzIINx2/VysDPvXU8d8Hzg8PCoh5buPV2vRGgEsQpNJMu8F3gAxZrdqTE 9UP7XHHkp7sKhby25PiGuWOSIgcNChvkV9/Y0Zny9yhoa32LdN4oA2GwL5A3 ni5AlAEk7uEog06Sju98qbmUt2zm9BfTjjboNVc2vz9j6qz3ci9rO8G6YHqk uCPHhaO4tuOvr86eNnnKtOktNXXK5BkvvS4pDmZIsW6N8AyvxFYzCn0l+EkE 0F+y7ckNui/PlD3ffPPN/lYzBfWCnWZ7ToeVn6hABYW9qq7BQJn56QxCEHcP a9zL64a6Bve4lyaijY+RH/eyQWq4ldOJcS8HRqARMtDgwlF8rHfc41NSj95t IBl++BMTSZGa2mOrpg6LDg8fFBHu7o6CUkfFDR3RHCbXbHfTW4PCwwf8YWMr 0rUcsiQivH8YL/4QPFP7CF30yz7/HezvP/671A8TvkvNLSLW27bm04ZIG+vv bl/yZGJEWBj4ZG0HtXdoDY0OqZOXpE0dHjtgQP/BnusRGRE+OHoYXLhaNYVa R1oebFunIJAuiLsgVDjuXPpkUnhYv36D+ANCDaUJ8dG//fd/DhvUordkh2dq 7oy1vko6YRSUgoICgB2gTavVCrtoaGgAbw4w5xs53pukgzO1mvUofm7qjGV5 lXqLk6PVR0UvTZ007f28y5qgW+s6Ezlu5qwMcbNsh1i0auXK1FUtlbpyxSqx ZOcD7pFih0shq6nIz80VizNBkkyxKDPry++v9gA+2lCA2V97xY7bmN1G6s7s TJs/8fERw0eMGDFs2NBxi9NOKwxWlyP0WPdgSeedy2BanOL16UHN2jMjQj4h TD61o7kM/vTrEUnxscKgGtFRUc88P3rRyi2lJ+DVn/QZ/dBEkDShkZ3Ynj5/ 7PNx4IDw/VFinhs1b9XmUhka7dG/jlC2890nnnzy8aU7Wg2j5TtkibdTCyhW GD8kUpjaR8dYGH4IjyeffGJKxkmVDyb8lrpJ14E1nyIbToTQKU9sz1g0fmR8 tOc83EHtvsO3dGAN4G9C10O0AK6HYCbm+dEp6VvLZRqCH7+59cG2dQp6Mwq5 D+ouoEPXyku2L500Lj6aP56YUePm7zh+7NqWJU899dRk0QmVL5sCnimaAqxT 1voa6bxTGPiOBubtoyKMeylw0DtoGGzygEh3eMXkyZMmLj/ULulgV4xWun/5 9MnTZqcfrifMsGuONdYdEr00ZcLkJesuNlDBhY53OnKcRo9P+yKIB9gjhXNw LFFbviVbIhFlbsjZvXcvvHjs2b0jJ++bA9cI5sGRrjJfIpHsrew26bpvx8ZP pmOjtPs++PWvnhg6Zt7K9O07Nq1cMDYxJjb+yWV7VIS1sfW0qX1bD5Z0RR8o //iE4uUkxawExRtBkO6tJxWz4lH6N56u2xFwfro6d1i3W3z3EiNJMq2GguIn ETfqGlRKn9SqBh0aqrgtu2i9T6h44N36HQJf38gP7dmggN8tJipvvTQIa/4X iWx5Hu6gdnftZXDWWl8PdDWM/qMjB3EKbe2ynbuAJh4gjA0qlSedStVgJAhS Xy+TyRStT7T9M+2StTbvZN8gXYsRnsG5O3fu3MMinbY46/XXX3tVUqRpm3Q0 57SQuvJv3nrzlVdFP9ahwcDczXamukMZr73y2ptflmkJfoiwjgbu6lTkOBoN jEWDFQRQcK5kV0jHTwcuK8+TZIh2X7hjoBiLuzUQ1YgItZfC9HStIOKz2NMn xKelzzOJXIuJ7Lyb+hIKDXLh0zbY6oa3aEBsnrKuHdK1TO9N3s6Z8M+Qw2Em TUfWfZt/qlZNWC1oTlVKfWvT3PioxNHicwa2G9N/94q6TLr6+vpApBOkrTOo pGgCcfiolB3POa6SuRMrZQZNZ+Ycd8913c6RtJjiJcAcL4LddkeTaj3JdrOa S3dhypuWjkXrpcFZC3AerXukBGfN305bVyO4U+jEXfCfN4nipwniN2/b/wp4 pp221loC6R7m/HStSec7a4+BF3yBn8LAmA+UdELRTRoBrVqjp8e+P+muGGgr mkib0DWo0ZzQPgM8Q0o0UbRGrScYvotkQNLxeORHeA4qcjwYggWrLpDOzYq9 4kzJnirKynd58kpggtVME231+LAwJEmQDCDahvqEACM5WEbBo4lezmizFYgE H6swGRaaP9zMuqcP9yVUFWWx2Viab35Bz7nvHONCWrvQgMjnMzBDoSgQgV5t kU6YtpwR0vMWGYt7jnIL33eFanfKcqvNzFhsdjRpKxpequm+09Kwc25yYuK8 nXWkrSm0vLoukw6yD7xDd0A61J2yxdQ8AUT4TeXTldlUsbCCEjy3NTU1Go3m Icw5LpCuvLwcKHb8+PGjHgnUE2ZivcTLOxOrALgHOBOrAAJPtHZr0i3ddMXI 2OzgXrVI5LMpZ7dZaKPm6tUrlVVV1W2oqgoN3KUxQtFtd1hJXVF6EJHjfYJ0 1QWSDPHuizra4vSbmZtfS10/+M2XX20sk9IWzuvC2Viiet9XX32z7WwdzVDX D6xZ8+33leo7FT9uX7M6SywWSzbtr4TXBQtZe3n/5q/4RVl5+8pqSJbvDu4l VFbBZbX27skDW75cnS3JyszMzd1XVUNavG4bJGRMNZX7cvMkkuws9CcrN7+k SkqyNgfHtSKdA1GRlFWVFuZlg7KyJBKweFVptjkcnFl+ZZ8kOzuvTOY9kzae JO9yVJ/JqPcsTE5KSnmUSAdP0d27d3U6XSDSYWH1PcETC6S7desWPPnBP/Jd Jh0UucIglsA7gF25jwRnDdy9Il7wBX6W+QswBxvC5mfPngVTPUi6FnKTLm/p tGmTU77dd77i6k8/GcB3aacvP/g0jMlweu3nn3381w8/+rgNffThXz/+9PO1 pzRq7a1b1y+eyf+vydOmTV95uE/PxMrDwlS9f7VYlJ5TfPkeOGmc3ekp8Pm1 xopdojTR+mIP6njQmSr3SkTiXZcMrNVCVeVLRCs3bdmzdecPpZcuXizO35Ce JpLkHT1zdNOabzcXHLtwoaQgd+2qVeLViH9WVIUIhKoqzM5M37Jl16Y127YU lly8dLE0f0NOWhokqoDXDuRbOjiGqNy/UZKRkbkhv6jk8uWLYCcnIx1ACtC0 cOj0fEjHNTqslLR885eSzBzg4cXLl4qP5W/6ZttpQJvDyZMua/XqvPL2Sed7 YZyNLs5wevm4hKSx6Wf15kem9hIu6r1799RqNSYdVmgJnlh4Q/vpp5/g4X9o pDtz5gz8K8y/4yshKlzw8oTo8hYJYBPYEDAH/5ofAum2/GnW1Anjp0ydNvOl 1z7aec3QPFRKazEModNoUKC7pg2hxXqjTqspXf3mKy9MnTZ10thJM15MP96n SYfumZ1jiZryzRJRenpGzt7iihoTZbYi3HEe960AnLL1JW7UuUGXJc7aW0VY nQ4LVV2YkZaanlVYoSPRoABwWSsKJanLV6RJ8kruGGhAm4021hTlpKdl5CDO 2F0um5msLhSnpa7K3Fh6x0Ca0fS3nJnQXc7PSM+QFFYRFs5lh93syxZlrMu/ jGaI58VShjvFGzJE4lxwMq2ORq6ZdKzdaWNkpRvE4nXH7pnAjQMn3GKmKdrt zaPaSzRLV7u1l76PlLPpvt1Ys3leYuKw8eJzoQe6rpOusbERXozlcrnBEFQf ACysviOVSiWTyVwu10MgHZS3N2/erOJr+MA7u9BJwSZCZSAY6dnayxYSRpy8 Vb4ri+/gvyI1LWNbyU0CCsIAEdps4IvB2e1WyvjTTkkGlPMrU1eJJKt33wgm QKBH1I0oA4AdhSr9ciVikUicmVtYcs9IWsCpQl1WrFRt0QaJZEOJlBL8KC/o TBau0c6SVfliwMvxGsrmcDrsDqfdAosy0tPS91SYWM4FzHQ6AEIl68UZ4vwq 1AXFxZk9W90lrQ4Uoc1xQBMbLS1eDxzLv0LBzVec2JApysyvMKCoNlStCpR1 OazkvaIccSYcDm1zwt5bkS5j3bE7RiCd0+VE8rpvQo8Ue4fenN3V1MSZlEUr xyYPGzpJdFrDOEIvgrzLpBPyfk1NDby59Xa5hYXVCYG7ce/ePSgGWz/SPU46 QR312ghKFksQ7968ukY6QX79+0l44e8BMfxk9p0KEOgRdWeMFNSRw2Y1UyZp ZWlBDlAqI1uoIQQ2cFZaWuJGHXKjWFPV3izJ6vwqE8szS/Cq9gBrhD4hDs7C SEtyJJIcjxvo6fgikWQKnS1dzb4YanJrrisFbO4VizNyypQUTV0tkGRKdgMt bQ7fbpsAt718ZxY0gaCF9K+9lJ3YnC0RidbvLb58z2iiwXPnOhF7wHHOxkYb WX9y0/xxIx4bPjG9TEU6Gp2hF07XLdKBYEMoNITJRwIFwGBh9QEB5uDFDF7P 4HFt44F/YKTjekhB7q47pPPr3x/Im+uE/EIGHoo3J6ib417ygwfyfTqI2suF 60Vp4jzUDcXuBB/NgzoZw3FWoqpgdVZeUQ1pbdlS5iUdpM+VSHJ5L9Bhb9l1 xId0+VXNwelCB5jqAnD1BNJVoxQF1ZRPpJwwLEpVATBzT0UL0qEeKXYbS9RW 7N+4WiIWSyRZGwpKq6Q0awtqmBPkVdqZhtNbFk544hdPTEjdekZnBsyF5pCa 3SQdCAoQgJ1KpRLGpNVjYfVJwcMJTyk8q8I4k20+zA+IdA9Z3SHdz0ldJR3y 57wk4GsI7RaipniDODOnuJZqRl1mZm6ZnKKJK4UAOlhjBYi11c9fIJ23vjMg 6byeoM3tr5kq9oAjt7eaYhj6Cu/TXW7Tp8ts7dMJe0dRCSxNEbX3LhXkZqal Z6zeX20KIqocMOdkdafTJw5/YsTEFUU1GqvDFYqDo7jVfdLBhvBYKJXKmzdv 3rp16x4WVt/T7du34fmUSqUsy7bpzWHS/fzURdJZrfxERUJQNh9H52p0WE2X dmeKswquAEDACqrALMvLzt5YfKfhcuFX2Qh0nu4pXSSdt3WPtjn4sSUdTr4P Sr4kI2N9mdxstbLy8nba6Y7niCWoS4pfOx2/d7R7h4NvnnPZzcDrdaJ0vm3Q ihro2o8ch73bWe3ptKm/fHLSqrJ6FmWBRqGdjzcWcsDrPukEwUsyPFdgSq1W 12Fh9SXBM0kQBDCudRcUTLqfsboUT2czU6qzh05V3tUbaUaIlrfQpO520Xpx hqSg0ijwA8W1GSv3fS1Zd+CH7ZIvN5dLeY+udURbJ0jH99hclZl/SWOkbYgk LGmA3aaniXPLZDR4VJyZ73uZvm7vJdT30gp/UJo7cGiZ2fvg0Pza+8Csw2Zl 6xRoOj+LDUWXWynd+Z0ZmZlu0lnbjxxHwXNk3Z73nhw28pOjUpMVxao3zw5I UbSlr2eCluop0vkWCI1YWH1JAZy4Nh/5tVdIOyZd6KsrpENUUpza/KUkQyRe tx4Nerl37+4NOWKRODPLyzNPsPiVfZK01JWrMguqPNWBbY2xzNusLVoPrllR rS/pvMm8Pl36ytVfr//y6y2FRRcuXizJ37A+I12ctbmslnT7ixzg9Xs4tjTx hr1FxZcuXyjOz83JyMz6Ugi5E+Ly3GZRVSZLX/vhq9V563YXXbxUUVF8PD9H IsnetL+aZMEe237kOOr2yRrOpj4TMWjA/3njrXkLF85PcWve3HdSlrz3daWJ 4kLKswtEOgd1dV2nSYeFFboC0v3jpZfXXNIj9w+pydueh0kXcupS7SXH2Sy0 vLK8YENOplgizszMQnHXufsqa8Afs3Fci/YxUdoq0d5qwtNy5pk3Z82aNd97 5s3hSSc/sXXNmq0n5D6ka04mkO7KATjU/Zfqb5Uc3PrV6uysLPf4JxQ//on7 1iJfsrZqX14erOVHPcndWFhZw0eWcy32znJOjlVcgbSZmdnZq7O/zFq9ceO+ qlp+lGpIHSByHLl0tPbgR08/MTQ+MbmlHvvF0389oCFtITXKcxuka2xy53KL 4fK3L7/0HSYd1qMiO3XlHy/Nel+0s+CHQz8e/PHQ0Vu1DnfnFUy6kFPXe6Rw VouZpkmSEETRaPhJzjfyTHDqKvaCj4SiC/w6eFj5iGz/yexQyHaLIO0WyYSf sB+UVpgUj6Sbx7Rs3jE/7iXtmTiPPzR7u3sXToRPi8bI9EscOHLcaqVN/AAA DQ31/mpoUBtpyAUh5NG1Jl1Tk6P21tFDhyCX/1C4K+P9WS99V01yvVr6YGE9 LLnsd4tyPvn4QzS81Ucf/u2/vthy2+KuyMSkCzl1Pcqg5Xzj/OCUPr0x0UTc drOxoiDbHV3QovLP3qqjB2/P3nKZX7K2Z0Boo7OjEP7ge2i2ds36pW2RuKPI cfDs2lMoeXOCWvl0Duudrcv/629CVv/w40/WH7/DddCMj4X1s5HL6WgO+WJZ q8tT14FJF3LqZjxde7KyZiuaVe92UY4kayPqLNLxqJFYva1WpGtqclm98aKs xQovL71Y7mBh9RGFKOnmzp0Lh+1yuXoqej2EBA4L3Ky1a9f2GOlQ10y67uwP ZccO7czJylq90dNZpIfuHNYDU6AeKVhYWB6FKOnefPNNhUJhNPJz0T1i0uv1 arU6Ozu750jHd808ueXr1VmSvH2lNYQZYy5EhEmHhRWMQpF0AwcOTExMHDNm zIQJE8Y/eoKzHjdu3NNPPx0WFga+bU/VXlrMFOqmQpstXFCDamH1BWHSYWEF o5AjXW5ublJSUhRWVFRMTMy7777bU6Tj3EOLYMyFkjDpsLCCUQiRjuM4OMja 2tpDhw4dxDp48Mcff6ysrAT6cxhOj6ow6bCwglEIkc6r3u4S0ofU27cCq5eF SYeFFYxCjnQcH0qFJQjD7hEXJh0WVjCCDEKHFOmwsLB8ZIXsS1E0Jh0WVgAh 0tHAOqq3MywWFlZXhIY+o7FPh4UVSKj2EpMOCytkxZMO+3RYWIEEGYQB0tEU rrvEwgpFIc5h0mFhBRRPOjT2Oz8BJhYWVogJMMcwDCYdFlYAIdIxDLwWYs5h YYWiMOmwsDoUIp2ZgczS2/kVCwurK4LMa8akw8IKKJ50Zngr7O38ioWF1RXR DCYdFlYHggxiBqeOwaTDwgpJIZ/ObMakw8IKIEQ6MyYdFlaoCjIvJh0WVmDx pAOnztzb+RULC6srgtzLsiwmHRZWAEEGYVkLOHV4NDAsrJATZFvw6TDpsLA6 FMdx4NZZWEtv51osLKzOyWKxmM1myMK9XYpgYfV1uVwuMy/s1mFhhZAgw6J8 y5ghC/d2KYKFFQKCd0IWww4LK3TEY47lHTp7b5cfWFihoaamJsg5rBn9sVgs mHdYWH1WkD1RpSULmGPhZ28XHlhYoSQEO5uNRULAQy+L/Ff3Ev43v0L4i94m +TUeubdihe/uRWZhU/zBH/zhP+784c1n7pwi/BCWmj1JWXcOat7Eu4VgDjfP YWF1TS6Xy87ZrRYrZCsLa0Ef+Ad9ZYXvFrRCWNYs91pPeovwv28KLCwsj/jM w2cklm2ZT1jPv6znG+vJTO6sZwGXjrPbcdscFhYWFhYWFhYWFhbWI6v/D9QX a2I= "], {{0, 48.}, {295., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{295., 48.}, PlotRange->{{0, 295.}, {0, 48.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[894897]}, CellChangeTimes->{{3.75375017023038*^9, 3.7537501775121417`*^9}, 3.753750226039616*^9, 3.75375213277674*^9, 3.753752230080646*^9, 3.7537523607195454`*^9, 3.7537526717557983`*^9, 3.7537528094854665`*^9, 3.753753233431157*^9, 3.7537533479385567`*^9, 3.7537534764765224`*^9, 3.7537538434589663`*^9, 3.753753971946954*^9, 3.753754071707822*^9, { 3.753754194014979*^9, 3.7537542142673206`*^9}, {3.7537542486782627`*^9, 3.753754266846692*^9}, 3.753754341037361*^9, 3.753754593115419*^9, 3.753754627746354*^9, 3.7537547051859217`*^9, 3.7537548107415757`*^9, 3.7537550270127816`*^9, 3.7537554460017834`*^9, 3.753755961560586*^9, 3.75375602654457*^9, 3.7537561084299746`*^9, {3.7537563269501343`*^9, 3.7537563500803804`*^9}, 3.753756412721439*^9, 3.753756522043006*^9, 3.753756810289924*^9, 3.753757005354797*^9, 3.753757087339247*^9, { 3.758647462405648*^9, 3.7586474735973024`*^9}, 3.758647708977012*^9, 3.7586477754759455`*^9, 3.758648114348416*^9, 3.7592564962047005`*^9}, CellLabel->"Out[3]=", CellID->29757014] }, Open ]], Cell["View information about the definitions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7537502019103603`*^9, 3.7537502067792287`*^9}}, CellID->281164086], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Information", "[", "data", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.753750208131189*^9, 3.7537502279105663`*^9}}, CellLabel->"In[4]:=", CellID->702890012], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnT2PHDeax/v2kgv3K+y3OHR24UUL7O19gF2de3FYwAt4DjA2ckcKhZ5A UQdKJhPgrBvwZA4FLGoUCVgVLAnSzLSN0ciyRhqPPJD7WEVW8e0h66Wrul74 /8EWNNUskl3DX5F8yFL97s9/+8PsN5PJ5ODf2B9/+NOX//HFF3/6+3/9lv3w 358f/O9fPv/sf/7z8//77C+fffHvf/5XdvA1+//3/zKZJH/fAgBC5dOnT+/e vTs/P3/16tWzZ8/+CQAYAsxW5uzZ2dmPP/54e3tL2n2jwJKxU05PTy8vL9++ ffv+/fsbAMAQYLYyZ9+8ecN6ambx69ev1U9V2a+vr9k94eXLlx8+fOiipgCA xrB1zmVnHz1//ty4FQAABg0fqF9dXd0osrObAEwHYHz89NNPL168uMlkZ/qz 7r7rSgEAWuH777//4YcfeOyddfSYpwMwVn7++Wc2Sf/48ePbt2/ZGL7r6gAA WmSz2bx584aZzv7sui4AgBa5vLw8Pz9n/TsP1gEAxgpznJkex/H19XXXdQEA tAvfZdd1LQhOT47u3fsy5eik68oAMALqyn56LEzUuHfv3tHx8cnpztU6ORL5 HR0d3eOyM/mTI8d1Mi9/7i6l7EjLlxQEz66y31NQm+jRLrrwzA3jmpb99OSY jR3M7Hoge+OXlP6mIDh2k91uQady+H2v7vDblXej7KWQSrR1Sfv3TUE3NC27 +mnd2TZkd35a55L275uCbmhH9pts1l2riUF2mpqXtH/fFHRDa7K7mmY6gVTC T0dq7ImKUWU58PzUjk0e0TJlk1sznqWdSwbC3KUo1dbqbQfNyteHpN4lNSum Fub9pgXngvHRnuyUNyeZAkmU/Sj/Ic8laX35cZ4mb4BO2Y95VbQsDV112YlC PKWozojU8keqlBL1aeqSypgeL8xYq/R+04JzwfhoUXaexGqZRsdE5EPn7ZI9 aa7H9uhAO0Yo7PgCzlKO9E7vND9cpz4ktS7pkVkvOxNHvqXOBWNif7K7Bsj2 8YqyW1nao936sgtVqf7OyqF8fUhqyF4qSXmHS2QPBszeZE9bPJne+qSa7ETb tHKsL7u72nYW5etDUlv205OT4+N0JJ5PwEvLXnAuGBNtz9mzFPT2MElPZff3 dUY57ctuZnR6ogU7+YbDkrKXOheMibaj8XmsSMxcjxyocWDI7oCsHDvDXtAo lL3kuWBMtCW7NU8t1+A9eXcou3cYbwz525PdvKS0muVCIGXPBWOiFdmpAHSF UG+PZK8RoGtHduKSksUR9aXyLXsuGBMNy67s4z6id7bYx9kpR0S3sxfZS3Ru 2QN4xjDYufTWtOzOS2p/AzkNt2Uv+vb0uWBMNPjU25c5rge0lN0p+k6OXdbZ a8qubyrJa1ywqUbfKWM9l9eA7BUuaV4vXi2u77E9QKe+adlzwYho9Hn2pOEU 7Lg0dmiS+073I/uNsqFPdpqOlEr36qp1Y7JXuaRqSJ1r7JqNW9+09LlgLPT2 X6oBADQLZAcgECA7AIEA2QEIBMgOQCBAdgACAbIDEAiQHYBAgOwABAJkByAQ uOz/AACMHS77FgAwdiA7AIEA2QEIBMgOQCBAdgACAbIDEAiQHYBAgOwABAJk ByAQIDsAgQDZAQgEyA5AIEB2AAIBsgMQCJAdgECA7AAEAmQfGuvZhDFb1z53 uojbqYmnZvF6Np1OJvVrDhqgx7JvVvM7KcvIn8T9+dCI1wsmhbAigf0wWyzW qp39lZ3VfzGl6sYTsi8zm82mkL0zhiC7W+cRyR4zzVXHp6r0qiB9lj07qB3j d4DGSgW16b3s8/ncrftYZF8L0Vm3ZyoRJyPgxXBk54eVMuB6b+i/7KvV0tm7 j0N2Lk3Z8W3vZTeA7L1hALJvtlGqe/I3MsmwZReql5YBsoOaDEL2rUt3WvZN tFrO8/n+nflyFennpbmlmW2i5Vwm2+QZ5EfVw0QpspD5MqLT+amugksxHtxT pv2zhTUnkLKnqZW0VlI7Qyu/Itn5d9OB9B0yENkduhOyZ2E9Zl/CnIroC9mj JClPl1nLknHRxdnCZMv3/G5QkK6Q6n0tpZjUKgl4JzHv/Me1de50sebJedrM Z70SWY5TPZGWXaHs7G6R10VUzL4Bgb0xGNkzizWhSNmXRh9r5LPNbhz6MSX2 Txym7ie62nYpZXCsVfmwFRMrW0bvHOeHrZRmWmG2qnvMPDXys8YgGMYPjOHI TklWbs5upaInBeIWQA4e7LPtQl3HfTh8sQbASgrzFJGWcs7yjPC/MBMjjacm vtMgew8Ykuy2eU7ZN1G0WqWj+LkyQs+gtXT0zWZiOeE3cX/ixNGzx+neGmWx 3aOYbyJgiubWk1YyXq8Xi3QUn0/eIftwGZbspu7UMD7SwmbplJzsmx3RvqIg oDLcJ6kju8+Eov7UPxEw7gSeG4PxUbw29vhkk2/IPlyGJruuuyV7PtKPfDP7 BmTngTkCM/JfQKEKncieT+LVaTuG8UNneLKrupsa08N6a9S+i+x1Bus+imbL 5WT3DuPLDPm1lPQNxHIbsg+MIcoudV9RIpqyO0JsdWWvF3b3QAfTMwr70+oB OkI8/QPSYrscyD4whim7XD27Q4iojevzKXxTsudlW7toWFmuHTh+shUxamv8 org/zR4qW5ReetMLslLaXsspPGQfLkOVXdXdnrNre2Ws/n9X2dUonbF3p3aH ry22mQ+9TdQnYQo21Uz1TTW6Y3wYLz7mScmUeX5KmtkCc/aBM1zZpe6GiNZe 10YDdLIYbU9uYn3F2JwF/TT7Oi61STVW/n2IiWO3rJyzs6JkYjKpGo5nCWIE 6IZPj2UHADQJZAcgECA7AIEA2QEIBMgOQCBAdgACAbIDEAiQHYBAgOwABAJk ByAQIDsAgQDZAQgEyA5AIEB2AAIBsgMQCJAdgECA7AAEAmQHIBAgOwCBANkB CATIDkAgQHYAAgGyAxAIkB2AQIDsAAQCZB8F5V7O4jm3sTe2mDXx1Ex5h029 mtepT+Vzu7gyLdGp7Pkr06yXKxlJ3J+Ph3idYrcs+q1Q+hub+tuknW+Qz15H mbxNblqv5iO9MoU4m0oB/ZDdrXMYsisvZtSaVryYqa9v01/3aL+etZ9NOjuo Hdv1DXDjvTLFuFpLIT2QfT4337NsJRm57OLt6LN1rL7EMXuzIvUi52QEvBhO k+aHlTJ2c33MV6YUcSzeu1ntxD7Ivlotnb17CLKTo7n8BlAqi943aYNdZB/3 lamYX6Xa9UL2jXj7MvF65kBlFw269G9yaE26vuxjvzIV8xui7FuX7rTsxsvR 7VejyzewK69r529rFxmYL3GnqpeUor6AnXj/epKRmmZV47ZkyV5dBVdD4iEs ZXJLvIpdNpo0tZLWGS2UGVr5FTVpOeGUlP+mY74yek56YdTgb8CyO3QnZM/C esy+hDkV0ReyR0lSni4zkiXjoouzhaWW7/ndwJOO1zhPMiczKsb6TVb/NVIN SYnjzFLkj1SjWfPkPG3Was144TRrgGoiYkzikZ215LwuomK2Zt7vOdIrY9Qt y0oUPTLZM4s1X0jZl0Yfa+SzVTRUjimxf+IwdT/RzTVLsUtNOvpNTdmt6FWl 8Z7dkMTKltEHxflhK6WZVrQ6tTXFzFMjP6unbXUYP/orQ9Yt95+4ZQ1Wdkqy cnN2KxU9KRC3AHLwYJ9tF6ofd6WqjHmLdrQKawBsjgWUAyIt1bKsVki08sJM jDSemvhOqyz7yK+MM1vyg+p3vn7JbpvnlH0TRatVOnieKyP0DFpEqi8mEssJ v4n2SXZnoqbyFbDbveO3GKc7SJQlZU9D8g3xzALdjZBWMl6vF4t0rJpPUfcl +8ivjLtu5BevfBH7JrupOzWMj7SwWTolJ/tmR7SvKAioDPdJ5lSYjw7fFbHO pmTEsM33SyzqNfw3faNNeZq/8VG8NnayZHPK/co+1ivjqZvrI9mAnLkq9E92 XXdL9nykH/lm9g3IzqNuBEbkX43HVzVe7qbRDhe26U6adD5VVWu732H8uK9M Ddmzm8xwZVd1NzWmh/XWqH0X2T3DeN93Eb181fNiT7jY+Sss16S9g9UyA1st Jd3erNq3vM4+5ivjqRt9bna07FXsp+xS9xUloim7I8RWV3ZPtUp8neoRO2p/ NB0yzijsNaqHoYg2pn9Atje7nNZ30I34yhSUR7aRKtewr7LL1bM7hIjauD6f ODcle162NShnZeU7cDZRRO3kqSE7vYaSrftQG8AXxb2GON3I1rfApBdkpbRb r5yoNiN72cY73itDLOrJ8sa29KYjdbfn7NpeGav/31V2NUpn7N2xdgWIuX3h w7punHM1bUnJfLRroj7vUbB1ZKpvHaEcy7ZvTJ0pje0evIEvmpuzV2m8o70y ZtWyYADRRMYlu9TdENHa69pogE4Wo+3JTbTWo4KR+XGdHTXbgqAR/cz2OtZ/ x64FaOXfh5g49oTKDpUVJROTSdWgM0sQNxmgq9x2x3lltuTW3BFslwUpdf8N g3FBRS6AgLpRQPYhAtm34iIEfg2c7BTikED2HiDmhtX/naHxANc9UCsIYt5Q 6ZJB9j6Qx1ube3oaDBE2XTcDArG1eqBEJ6vdHiF7P0if/EwjTJA9YPLFPv1R WX0/rHgUoMKTwQLIDkB/IJYYqkvtArIDEAiQHYBAgOwABAJkByAQIDsAgQDZ AQgEyA5AIEB2AAIBsgMQCJAdgECA7AAEAmQHIBAgOwCBANkBCATIDkAgQHYA AgGyAxAIkB2AQIDsAAQCZAcgECA7AIEA2QEIBMgOQCBAdgACAbIDEAiQHYBA gOwABAJkB03w6OFf//jV3a8vuq4H8DB22TfRajmf35HM58vVRkkQLZNP59qx vnD27d0/3v/mrDDNV391/2cIuHn07YOD+9mn9x98/YT64hePD+/LbA/uP3hU ZHEZ2amq3j14+E1h5qAZxiz7ZjWXiqeIn5aRTNRT2S8ef/0wVaNYdibvXeo/ btODRzLt5mtx8O7hwweHmfKHT/QMnzzIbwUs2YEjmUEV2WUlHXck0A7jlT1a ppYvI13jpKtfRY5zekHa+eZ9X5HsLrhZB9/Kb5/6qB3ZXnxzYLmWJLuv9baZ /up9w6S87FoFki9b6p4GGmC0sqeu967DLuTxYdbZHT755rC+BY/Nc7nXVm7E PeHJY7tEfqPwdO51Zc+q6r2TgGYYq+x8CD9I2e8efst1s4QtDddKddMhWtlS 7AwNdpCdTy4ge/uMVfZsFF9oO0+Xz+L5jzR6ZmnoT437RU3fWGrLTpzotrVU x1qnZxdzBHkWLTtP9vCx/yuBBhit7Hl4br7yWmjIvlktLeZWVE+E9dKYgEzR 9ECipuyk1wU9e0GnXNz5mrJfiPnIoRLtt+tw9oRPLtCt74Xxyr5VlGROupQ3 ZC+TQNxGjI6++XlDPdkdPTUPstm5ieCbT3YRRfd2vrrshOlbxyrhwUMiRABa YdSyJ2yk8XZoflsku/Da6NXpMwpvG1WpJXsqL9WDi3U3Ta4LGQ90yX7mukvo KLJnBVl18Cy9+df1QDOMXvaUjaK80fn6FCV7a3eYv+kFgBqyc9Ec5maT6HSf TLYQf58vuJMD6c2jcmv9Wym70/StYyohRvJYat8DYcjOyY3XN9W4ZKdDfMpO nRJRvJ2oLnthsCvfqyN2r7FePtXTLiXZRFdhmC0W8d2mbz1xAz54QIyubUKS PcEyuOqgPJuw23E8jj8cWInKshcukDlLMUTLN9uQm2kpeM9+KEYCdMDNKbtj DwBomNBktyQmpaam6toJe1nAryp7rQXrtFfV7g8XWYS8yrg6n7OfuXfEQfaO CVN2f8/uU32f23Uqyl5nwdoO3dfc4qJG4/mQvsxuPQGG8fthrLIn6+XRxmxW G3sebsleLLPYeGOF9lnuyz0svZXe+FoAm7/ft7bK1N3ioi+9bUjfEaDrmPHK bj7xJn82HnHVZBciz6k5uTxP5i4SztvYVkPLni9gGXaU2eSWBOEfas+ymTeH 7JE3x5N0zh7f2kGXPWGn1N+99GauyINWGKvs4kF29VH2+ZzaWqPJ7tssa471 jQflycx3o1LP7l10SzlTn2R3PUieP99K/1de9q3tO72ppmJwANRntLIDAHQg OwCBANkBCATIDkAgQHYAAgGyAxAIkB2AQIDsAAQCZAcgECA7AIEA2QEIBMgO QCBAdgACAbIDEAiQHYBAgOwABAJkByAQIDsAgQDZAQgEyA5AIEB2AAIBsgMQ CJAdgECA7AAEAmQHIBAgOwCBANkBCATIDkAgQPZRsJ5NGLN17XOni7idmuxS M9AsTcu+Md9u2sbrTUdJvE6xnYvXi9l0Op3ksB9mi4WWsr+ys/ovpsoR59cE rdOg7Jtoqb8g2flO9Obht5j2Cmk5f+7DxJIuZpqrjk9V6VWh+ix7djA95vqm YA80JftmxcUmunHW2S+X7crOS29Pxpbz54JMZ+s4jtWj3IvkuHFCHLMPF8OR nR/mZcRp5WF7BzQje7RMTV92NVwftuz6OFeQ3wBKZdF72VstE5SjCdm56m2P 1H2MTnahemkbIDsopgHZuevLqMo5RhiPDOLJfNPUeVotaTZ90NCt1M5OilJL Euebtc/LLso/CVSoma8qXQaOJTs/UMUFl2I8uKdM+2cLa04gxUtTK2md0UKZ oZUfZO8vu8te2XXpz3yZIn/UMhEZr3ivOteS5ikTk/PjIj/1bpAHDbXz1bsB 0WsrX8mbv5i9ZHnX7f0t2aurQCmmxMJmKfLHtXXudLHmyXnazGczXjjN7gNq ImJMAtn7yM6yVx3h0tP7TX7YSnlHj4KLW4XRedOVKJnWmIbwBNqNh8yfOriJ NjVlV1o+OYf3YyvGj0yM3jnOD1spzbTCbNXIeDEz87PGIOVkN78y2AcNyV62 Y3eMmuVHijuE/8px4g5gyu4ac9jH1a6c+j5k/nWmLyRmN+fwRfbUuZxb1yki LeWc5Sfhf2EmRhpPTUqeBvbAnnv2VBBHYjMnp0x2Jm4ZybKIT8ShiL51eXr2 O/Md1yDsztFhQpzurVEW2z2K+YbJZoFuPenYQbxeLxbpKD6fvFeWvUZYAuxM Q3P2krL7hwFGTjvKTobWFOhxAF2ia5ogtxHNazkvltKn1ADaJ0JRf+rvOI07 gefGYHwUr409PlkgoLrsW/XLF6cFTbC77FW69g5kz4JqFmb4P785lJedf6bE 46saL3fTaIcLbe9E9nwSr9a25jA+PXVt3SlAqzSw9OaZh9NJvcN4mU17w3h3 4Uu6zBI3tKyXrxqOjz2BdKcG5WT3DuPLDPm1lPQNxKp9WdmzdBjH749GdtCJ EXCJdl49QFdf9gpDDqUostRyWVWLVUrkznHjmFOGwv60eoCOsF3/gLTYLqek 7Fh764CG9sZ7tsbzpWpjcG6J6Vx6qyC7Y2uMvYvX2KyvF0TlRR6Looia9VeX nV6HylbEqK3xi+L+VJxuZOtbetMLslLaXsspfL1oPFzfM8099bbR96m5n3pT NtXoO2XKLm0R4/P8ZpPkOJcm22VZ22rslTxCbSL/LCag7wyqsxLnnGFri23m Q28T9UmYgk01U31TjS4Z72TFxzwpmTLPT0kzW+yw9AbZ90yzz7NTT7OTnb25 y5R65L2K7Ftlr5zRlZtV0guj9/VTS/xW/vp34PH4Wotw3nAa/TT7OtY9cS3N J51vwW5ZOaJmRcnEZFI1HM8SxLUDdBjFdwH+pZruCXCHCWTvAsjePZAd7AXI 3gPErDmYZSgxGwjq9tYHIHsfyJ9FGX1vp8Qc4fq+gez9IInDzdLY29hlT/fU U9E/0DaQHYBAgOwABAJkByAQIDsAgcBMf/r06a+//tp1RQAA7cJkf/bs2S+/ /NJ1RQAALXJ7e/vdd9+dnp6+f/++67oAAFrk6urq7OzsdUrXdQEAtAjX/OPH jy9evMC0HYARkw/g0bkDMGLevXt3fn7O/8669ZcvX97c3HRbJQBA49ze3rKh O/szP8JMZ0fYkL7DWgEAmuXTp09sAH91dWUcv76+Zr5fXl52UisAQLOwSfrz 58/ZGJ78lI3nLy4u2JCeTeE/fPjAbgt7rh4AYBeYwsxc1mWfnZ2xPl0dvZOw Lp7J/urVqziO/wkAGA5Pnz5l5rIu2x66AwDC4f8BkayZSQ== "], {{0, 236}, {335, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{Automatic, 118}, ImageSizeRaw->{335, 236}, PlotRange->{{0, 335}, {0, 236}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7592579662130003`*^9}, CellLabel->"Out[4]=", CellID->755138396] }, Open ]], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Get", "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/Get", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " can restore cleared symbols:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7537502355173264`*^9, 3.753750280582911*^9}}, CellID->67431956], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"f", "[", "5", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.753750247764944*^9, 3.7537502545037336`*^9}}, CellLabel->"In[5]:=", CellID->800915202], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7537502552807035`*^9, 3.753752133520706*^9, 3.753752230353664*^9, 3.7537523609805603`*^9, 3.753752674372717*^9, 3.7537528096934385`*^9, 3.753753519089181*^9, 3.7537538773469267`*^9, 3.7537539722589455`*^9, 3.7537540719978113`*^9, 3.753754194309971*^9, 3.7537542672066565`*^9, 3.753754346888177*^9, 3.753754593460408*^9, 3.7537547116017227`*^9, 3.753754811074565*^9, 3.753755027328771*^9, 3.753755965386491*^9, 3.7537560272255507`*^9, 3.7537561086359653`*^9, 3.753756350356371*^9, 3.753756412959428*^9, 3.7537565228049545`*^9, 3.7537568105899153`*^9, 3.7537570062347956`*^9, 3.7537570875732403`*^9, {3.7586474674224944`*^9, 3.758647473869278*^9}, 3.758647709235004*^9, 3.7586477756859236`*^9, 3.758648114549411*^9, 3.759256496515691*^9}, CellLabel->"Out[6]=", CellID->432356250] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "data", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.753750257527636*^9, 3.753750258778596*^9}}, CellLabel->"In[7]:=", CellID->304874999], Cell[BoxData["f"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7537502594835715`*^9, 3.7537521337086997`*^9, 3.75375223047066*^9, 3.753752361089557*^9, 3.7537526753606873`*^9, 3.753752809782461*^9, 3.753753519582142*^9, 3.753753878334873*^9, 3.753753972389942*^9, 3.753754072154809*^9, 3.753754194440967*^9, 3.7537542673576765`*^9, 3.7537543477611494`*^9, 3.7537545935954027`*^9, 3.7537547117427173`*^9, 3.7537548112185593`*^9, 3.7537550274017677`*^9, 3.753755965469488*^9, 3.7537560273395452`*^9, 3.7537561087109632`*^9, 3.753756350440386*^9, 3.7537564130524035`*^9, 3.7537565228779554`*^9, 3.7537568106869307`*^9, 3.753757006325783*^9, 3.753757087658239*^9, {3.7586474684064627`*^9, 3.7586474739732885`*^9}, 3.758647709334002*^9, 3.758647775775936*^9, 3.7586481146194077`*^9, 3.7592564966506863`*^9}, CellLabel->"Out[7]=", CellID->520064481] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537502606355124`*^9, 3.7537502610705233`*^9}}, CellLabel->"In[8]:=", CellID->850444813], Cell[BoxData["15625"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.753750261607481*^9, 3.753752133862672*^9, 3.7537522305936556`*^9, 3.7537523612035537`*^9, 3.753752676370657*^9, 3.753752809872463*^9, 3.7537535197671595`*^9, 3.753753879715827*^9, 3.7537539725229363`*^9, 3.753754072278805*^9, 3.753754194572937*^9, 3.7537542676506677`*^9, 3.753754348374133*^9, 3.753754593812421*^9, 3.753754711889702*^9, 3.7537548113665457`*^9, 3.7537550274147673`*^9, 3.7537559655404596`*^9, 3.753756027473518*^9, 3.753756108777978*^9, 3.7537563505243845`*^9, 3.7537564131443996`*^9, 3.753756522949976*^9, 3.7537568107709274`*^9, 3.753757006408792*^9, 3.7537570877472367`*^9, {3.7586474700454154`*^9, 3.7586474740772696`*^9}, 3.758647709454981*^9, 3.7586477758619366`*^9, 3.7586481146944056`*^9, 3.759256496785698*^9}, CellLabel->"Out[8]=", CellID->252504608] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ Store definitions from a package as an object that can be stored in notebooks:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7537517412850075`*^9, 3.7537517640363073`*^9}, { 3.759255792959337*^9, 3.7592557935443373`*^9}}, CellID->577013583], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Get", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"data", "=", RowBox[{"DefinitionData", "[", "Collatz`Collatz", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.753751705008158*^9, 3.7537517290483847`*^9}, { 3.7537550343035426`*^9, 3.7537550359624934`*^9}}, CellLabel->"In[9]:=", CellID->58530946], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc1v3EZ/x4X2kmNvOfeS/0CA+gAPEB+CB70+RU9BjEZq/KCXPICfAkVv j5GcqosvAoIc6qvlJo7ip5ElW9pYcmoZK9vwWmvLjhLXsVaKdldv+yJZtiS3 P3L4MhySy+HLckju95NNsjucGZJaznx2Xjj829E//v7cXw0NDf3pHfrP7z/+ tzPnz3/87//wN/ThHz/907/84dNP/vnvP/3XT/7wyfmR0b+mwH+if/+D4mvv /w8AAAAAAAAAAAAAAB9OTk46nc72znaz2Ww06NXQ3/AIH7UY4tamEanpjgwA yB3OIu4q8F6R9H/Z/6gO2dnZoYqFqhfVNRwAuYSKT71eF8ph0yiNzNRW4Wwa L8PGVsm03zYbjoh44YVXHl9N3rxN+23D+F3eNAzcEML1uE2HrKlyabfbb9++ VV3VAZAn9vf3WdGjN91u9/Dw8BUAAMSGKhOqUqhi0VXf3NvbU13bAZAbqNVM P263m9sHBweqizIAoJhQ9UKVDDWoqcJRXecBkANOTo5ZdxTUDADoK1TJsKks GIMGIJBut0vlZX9/X3XBBQAUH62Lu9mkakd1zQdA1tnZ2dne1gqL6lILACg+ BwddfRY3Rp8BCICNOKsusgCAQaG5rU0QU13zAZB1tjWaqssrAGBQaOqVjuqa D4Css60XFdXlFQAwKGzDzgBIoJWTHdgZAJASVOHAzgAEsqNNC9tRXV4BAIOC 3iCAnQEIgArKDtrOAIC0oOYAvVTXfABknV2t8Yy2MwAgJVido7rmAyDrUDHZ 3dlVXV4BAIPCLul5d1d1zQdA1tnVUV1eAQCDwg7sDIAEu7t7sDMAIDVYi0B1 zQdA1tndg50BAOmxBzsDIMGeZuc91eVVlg7gUP1t5J+psaGhobEpn4+5Iyen s6c1CbDONgAB7OmoLq+yXL169bfA5LPPPgvzx6tM/lljolTz3zxZSeR7Solq dWpsZGRkiGckjI5S11nPPeTvdKLB6hzVNR8A2WCNx7ElX3b+4osvhoDJRx99 FOaPZ9jZz885s3N13NTYyJiF5rZUdTY1Tvscr4Y9bvc+8no6UXDb2b9+AqDY rF38zdDQbyzOTXPb8mjnDz74YHqwOX/+fEQ7T0xM+Pg5T3Y2XDYyPhXPJHF1 ph9HaJ1pqRyJ8n06oRHtPH3OrpyooroIP4PBgezse8nn0c4ffvih6iFfxbC/ QxQ7T1ZqJW8/58fOunUS6bLNhM4KdjrB9OjZ7lVVAVBAYOeiEcfOZhe3KGIP O9cqpUm9rc06xCdLlZpHglplcsKKUjESckEe7XRtO5cvn22NNfF9BsdfmQ1N SenoI7nWUMDImNA6DdRZVe/r9UrPnMqja80dzG8t/unIADsDYAI7F414dvb2 s8vOLBLZtVSpaJoWh6xZgkny7KQjRkVrnOthptsF57PGu5XK2ZQPtLN8i5BU ZkhofGrK8hLvlQCdMTfZ6fnk1aoZpklOp2oG84yP9ZZZwU5HBtgZABPYuWjE tbOXn912LjkatYZV7RjGLDMuiTnvjHOrqx/d7F8XD6yHjx3oipGxA4vo9B5r qNqpg3Q2PuZonLrauYFdwYEt44KdjhSwMwAmsHPRiG9nt5+Dx51109oW9ZCq R5tccLoWwyXiMEPekm1NP484BRR2oFbUV4DOJGRWsNORIkE7n56etlqtjY2N 9fX1lwCohq5Duhrpmjw5OYGdB5Mk7Cy61FORNa3vWe+9tsaRnXb26LQW5OvR ZPdEsvEsqTPfaI4NEjqrar25xt1NriHXnjqTmu1VsNORIhE7Uw7VarVcLj98 +PAZAFmCrsnl5eVKpdJoNGDnQSMZOzv9LG62ZnaRmcnPpRIbWU7AzhPagLMb uZ5tyXnFSeisaoz0DpHKSGjj48bArJTOJLusC3Y6UsS08/Hx8c8//7y6urq5 ubkNQFbZ2tpaW1sjWR8dHcHOg0NSdua7p52bve678urZjmZnORF7I+eJ+DoT B3WtMBmdycusYKcjQxw7v3nz5vHjxy9fvlRd9QIgRa1We/LkSbfbhZ0HhOTs bAvTudkrsqDWKHYWZ5ZFwcszPpHiDNR6CVG0lLfOpA6wqKcjQRw7//TTT+vr 66prXABCQI1oEvTp6SnsPAgkaWfHImJOOzs8WxHvqYpiZ0PP4mHUSqUwwvZf W6s6NTbO68hzkrNv369bZw4nTTlvQvLIzy9soE4nkMh23tnZefbsmeq6FoDQ PH/+nBrRsPMgkKyduclarvuluHuZJybjjzu/svzM3Ujt+FkQeL8zwxxD5dal NuY5CXZy3SDMi6bnQK2d3L4VWBio5cQ6Na7L1bqneEqkZ9OzYKfTm8h2psul Xq+rrmgBiMKDBw+8JnL3xc5UUpaXl+/fv3/nzp3/CQkloYT37t2jTELtFHZm JG1nS5n8Zm7BL7aeVwLjzmbOJTtrbV0SbkaYpJ01nCtfDY241s4SFteiCML2 gEnOVVuaQ3paj67f6rgZh8J9l9aSmiBWrNPxJ5qdj4+PqcZQXcX2hfLlz88O D3N/3eHPy2Kcy2e1CMNn3VuikOXcigrJzmv0uS92Xlxc/OGHH5aWlubm5m6a zOncuHFjZmbmug69oY8snI9GCUnTCwsLoXYKOzMi2RmATBDNzru7uysrKwE1 4OzH//u7d8zX320+6h17ct2O/M4v/7mcWEUchvLnw67fPi4725E8xB1jlz1y 038yyOwu2WNTgPSZxmN1dbVer6djZxIrGbZcLn///fclJ/Pz88zRzMv0UYhA SSjh3bt3b926FWqnMnZ+Ondh9MyZ93VGLz1lYRxJGbIPWUoDO4P8Es3OtVot eNC5b3a+fNZl0GFqLF6OXaMbGQ8HZZV6a5cdmJSzUms79+dbCHGmcaCr12vo uS92ppYvmZc8+9133/23yV90qL3M3E3QG/rIwq1olIQSkrWp9R1qp8F2nrvw PseFOS3s6aVRK+SMKeyYzF04Y+fJdpMisDPIL9Hs/PLlS2k7B3qZx3B0WDv3 6IUOAWt4ZrHRmZKzQtGfbyE9O9M1rMrO5N+pqalvv/2WWsTUoGzq0CHRRwqk TYKdKXnidmbSJF3yCmZ2Hr1wSe9fT6al+/SpnpmeM+wMgDz5tfPZy1ZAmfWH xlWDK9/MkF07J/0tDIqdv/nmG7LwnTt3rA52ekMfKfDq1atW87nfdhZsadg5 mUazuD/YGYBQFMLOfLB7Q/kyN81rePisb99rkJ1drUWvqKwBrm3hZEW7dXX5 Bufm3zp1J5A6NvPvYR+X8QdxHprcKYT5FsrCXDuxCzzMmQbnJoEqO//FhBRM gl5aWqJWM8u/0WiQnSmQNl27do1Fg51jAjuD/JKunZc3z73DDUa7h6Tj2Nma EtXTWnp1zjXNQoghjJ0/95hf5oyuxs6Xz7qPa0horMqdgvy34DXXzrnTMGca nJsESuxMbWFqGn+j8186t2/f/vXXX1n+m5ubi4uLFHjlyhXmbtbFnbydnSPO /BCzy87kcMLpVIpEYWEV3sPObHbaaF/MDTuD/FIkO5sVt1VP26IwK+6yYado YhB35G9n5gtzv14/G+RycxyknH965WZOe3P/QfjM5U5B+luggLN669begV83 h8yZhsnNl5TtfPPmzVKpxIabLTt/9dVXZGeSsmVn+kiBtInFociUhBKqs7MR wlk1mpt72dmaitYPPcPOIL8Uys6mfYxN3rO8/O0lP+4sY2fHxp7SScvOflvE 3OVOQfZbCHdG0cadQ6dK2c43btyYn5+fmZm5desWW2NkUefRo0eNRuNUp9ls 0kcWztYtocizs7OUkOSurmfbqePIHdSh2s5PexJmt7AzyC8FtrPfFGzfqdkJ 2tn7J4FaOwf9LBG6HIJOIZ6d/f4g0ewcerZ9ynYmL1P7d2Fhgfa7tbVVr9c3 dMjIZJA3Ot1ulz6ycIpA0SgyJaGElFzluLPtZ/YuUhs3hNa1vbzvT6j9w84g vxTRzkYt3bvPevDs7J+JcHTJ2Nk5lK3NzJNY6UXuTKVz8yVlO1+/fp3av/wc MAY1mcnLLBq9EZ7NQZHv3r1LCaenp9XOCmORR0djzBkLY+e5Sxd6EeYAYGeQ XwplZ+eIJ+wsm0mydnaNO4e5Mzr4TBO5z1qVnWnXfJ5v377l7Uwf+a0UOSN2 ZtPDYi1RgjnbAISkSHYWtBC6u7PgdvY/BuHE49lZlLM9Z6vcIzfZMw2Xmy8K e7br9Xqj0djUcfdss3CKQNGy0rPdsSeSRezW7sDOAIQm5fud67OTv7pe3JOu YtjZnMsk0/caJl8vcmlnv/FgjznW0e3s+hZcuZupI9k5ZG6+KJwVdkdncXHx 9u3bjx49IiOzWWF0VPSRAtmsMCIbs8I6xn1Vo5fm4twNHcbObHUxX8LMC4Od QX4pwmokvotUWTcQ8YtVsNj+46VZtLPtvOBVNyTmk3vdUcUv+hXJzn7fgrV4 edmKZ69w4jNlz/9Mw+Xmi6o7qthCnYTfHVVff/01hbM4FLkvd1QZtpS1MwvU Y0a9naqDWWFB9HpqpYp8QAbIr5098K/sXUSwc69x7LANT9ncekbvtVCKT24+ fw/nDsPYWeLovReEGe7dzR7uTP1z80GhndlqYFeuXGGrkWxtbbH8NzY2qNVM auZXI1FvZ0HITLIR/BzijqoszAqrac9stp+sLD7ROXkybmf9icfcE5BBGvTf zv1/RpXxbCS/zlDhgc3+6z5m2c7u84hkZ1c+Xn+NaHbu8S2411Its+TePu15 pqFz80SJnfkHVFkreW6b88TYOtvM3daCnxRZrZ3d0Yz522H9nKfVSGol5uWJ iUkTMvWA2rk6NU5i1oGdUyaPdgYgJlmwM3sKRqPRYPlTI5piZsvO3kr1Wt4z kPys5MncPFmphfye45FFO1fHDS2PjI2MwM7pE83O6+vrwXYGIKvQ1UvXsEI7 W0+QtMoRe4IkW+ozBTt7gqdgvFI1cptRO4+MjU9VTU/DzikTzc5UmVSrVaX1 KwDRIRVaj59Iwc7z8/Nk3unp6e9MmKNnZmYWFhbu6tAb+kiB165dE57vTMkz aufeS27yk6uLYmd960RJbFhzwWZ6beTaGLKeMLJzBDnzsPZaK9lxJjxa8M4B ccqm4p2PHd/OkM+x5nMmnsDOSohm56Ojo/v376uuYgGIyMrKSqvVSsfOi4uL S0tL5XKZBP09BzWKSbvULr6hQ2/oY8kJRaOElJzShtppPDvPya1nPXdhNAA2 01sjP3ZmgiNvefdte0qNdyJ7rw1VkzkrphspO63HXA8rGX7lJWql+rOdzhXp lWF3isFH4Y/GaWfWS2/mqB2KFRd2zj7R7Ew8ePCgXq8H14MAZA+6et+8eZOa nanlS61j5mKemzdvzs7OXtehN/RRiEBJSM3U+qZMQu00jp2FB1fFhA1wR7gZ KhGizdm2poWJLVMND6s5lMjkzlvVCOETGdq0A4w4HvnaObE9O5v1YkaOQ9E3 Sgq4J7CzEiLb+Zdffnnx4oXqWhaA0NRqtR9//DHsJR/ZztRqofbvvXv3SLI/ hISSUMLl5WXKJNROI9qZv5eJWtBJ+PHppYg3QyVC5PuduQ5hsRPa5Txne9XP 3s5WsDn37JV/KiGWmML7cGDnAhHZzicnJ0+ePEHzGeSLRqNB1+3R0VFqdlZC NDsXj5irkdiO5h0nSE8Y6vUYt/ayZHAqK9g5nu3C3XIXera9+wDCADsrIbKd Cbr4Hz9+DEGDvEBqXl1d3XY+igJ2LjBJrBVmzOUS+6XNz5oP/VvS7vje0fpj 51fiTLSIkoadlRDHzqzKIkGvr6+rrncBCKBWq9G1uu2rZti5gCS0kqeoV+6z KOc+2JkFR7SzcQSWpCPdbQU7KyGmnYnj4+Pnz59XKpWVlZVnAGSParVK1ye9 8enQhp0LS1LrbIvSs3zrknMcO7uGiPnQCOPOXjEj6Rl2VkJ8OzOo3mu1Whsb Gy8ByBJ0TdIVfnh4KHEVw85FI7ydayV3/6+X1piWSy45x7Gz58wxYYDbc862 Xxu85n/jVyhgZyUkZWcA8g/sXDSi2FlYZHvCPS1Mx7xPSrRdnLbzhHlLtOe9 zPZ9V877nd33TXPd3MbNzuxuZ07uuN85+8DOAJjAzkUjSs92zdKeoWltgS0P iXncJ2UFRx535pcK85zE5VgrzL2amPOOKue6Yo7IsHP2gZ0BMNEu+XMXp03W +Ksfds4j/Xy+Mx6lDPqLaOe1NatuungOdgYDxRpd9BwXYee800c7u+eDAZAo Ljs7q6dp2BkADdg5j/TNzoktwwWAHz16tgEAFrBzHkncztqUbnOCFdwM+grs DIAMsHMe6YOdzbUxoWbQZ2BnAGTIo53ffffd3w427733Xt9mhQHQX2BnAGTI l52//PLLIWACO4M8AjsDIEO+7PzixYtZYPLw4UPVXwgAoYGdAZAhX3YGAOQd 2BkAGWBnAECawM4AyLAPOwMAUmRfq3T2Vdd8AGSdfR3V5RUAMCjoVQ7azgAE sAc7AwBShLUIVNd8AGSdFpWTFuwMAEiJ/VYLdgYgkNZ+C21nAEBqtHRU13wA ZB0qJvRTVnV5BQAMCrAzADK02lpJUV1eAQCDAlU4bdgZgCBabSoobdXlFQAw KJCbYWcAAqGCQqgurwCAQUFrO7fbqms+ALJOuw07AwDSg9U5qms+ALJOu93q tDuqyysAYFBoU43T6aiu+QDIOp3OQafdPjw8VF1kAQDFh6oaajh3ul3VNR8A Wefo6KjTaR90D1SXWgBA8Tk4OKCGM1U7qms+ALLO6emp9lO200HzGQDQV6iS oaqm3WpTtaO65gMgB9Dv2G6nA0EDAPqHruau3nB+rbrOAyA3HBwcdDvaP/QG jgYAJAhVKVqHdpfU3KWPqms7AHIGlRr6WdvVJd3V32lvuux/2md9A/tX+wWs bzExUnXZeyOow5LihRdeuX0ZZdqoCazSzT6w0I4ZtWuUejuJlUIPbWO4GYBo nJ6evj56fahP27ALHFOvUTxNK3dtLDWbpZWV6S4AoBh0DE13zd/c/Dbzvx1L 4WYFYFQX3cPD7tHr1xhrBgAAAAAAAAAA+sr/A/p8P2w= "], {{0, 48.}, {325., 0}}, { 0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{325., 48.}, PlotRange->{{0, 325.}, {0, 48.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[894977]}, CellChangeTimes->{ 3.7537517678251925`*^9, {3.7537521449373465`*^9, 3.753752156116996*^9}, 3.7537522312766085`*^9, 3.7537523620265017`*^9, 3.7537526788125677`*^9, 3.75375281053744*^9, 3.7537535216940994`*^9, 3.7537538832357416`*^9, 3.7537539733438873`*^9, 3.7537540730627813`*^9, 3.7537541954179373`*^9, 3.753754271369527*^9, 3.75375435411095*^9, 3.7537547135766582`*^9, 3.753754815894389*^9, {3.753755030496662*^9, 3.7537550367214766`*^9}, 3.753755967711393*^9, 3.753756031004403*^9, 3.7537561090609775`*^9, 3.7537563507703857`*^9, 3.753756413563405*^9, {3.7537565252568955`*^9, 3.75375653143071*^9}, 3.7537568178227067`*^9, 3.753757007335761*^9, 3.753757088017227*^9, 3.7586475382543173`*^9, 3.758647805992997*^9, 3.75864815331819*^9, 3.7592564969276953`*^9}, CellLabel->"Out[10]=", CellID->243969408] }, Open ]], Cell["View the definitions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.753751811044831*^9, 3.753751813499752*^9}}, CellID->298746840], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537517883255224`*^9, 3.7537517904444838`*^9}, 3.753752687538294*^9, 3.753753527718904*^9, 3.753753888758545*^9, 3.7537539760488186`*^9, 3.75375407631067*^9, 3.753754111824541*^9, 3.7537542756224065`*^9, {3.753754357304843*^9, 3.753754384476971*^9}, 3.753754717814516*^9, 3.7537548191343017`*^9, {3.7537550402503395`*^9, 3.753755040846321*^9}}, CellLabel->"In[11]:=", CellID->288662990], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{"\<\"Collatz`Collatz\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"DownValues", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"Collatz", "[", "1", "]"}], "]"}], "\[RuleDelayed]", RowBox[{"{", "1", "}"}]}], ",", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"Collatz", "[", "Collatz`Private`n_Integer", "]"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Collatz", "[", RowBox[{ RowBox[{"3", " ", "Collatz`Private`n"}], "+", "1"}], "]"}], ",", "Collatz`Private`n"}], "]"}], "/;", RowBox[{ RowBox[{"OddQ", "[", "Collatz`Private`n", "]"}], "&&", RowBox[{"Collatz`Private`n", ">", "0"}]}]}]}], ",", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"Collatz", "[", "Collatz`Private`n_Integer", "]"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Collatz", "[", FractionBox["Collatz`Private`n", "2"], "]"}], ",", "Collatz`Private`n"}], "]"}], "/;", RowBox[{ RowBox[{"EvenQ", "[", "Collatz`Private`n", "]"}], "&&", RowBox[{"Collatz`Private`n", ">", "0"}]}]}]}]}], "}"}]}], ",", RowBox[{"Messages", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"HoldPattern", "[", StyleBox[ RowBox[{"Collatz", "::", "usage"}], "MessageName"], "]"}], "\[Rule]", "\<\"Collatz[n] gives a list of the iterates in the 3n+1 \ problem,\\n starting from n. The conjecture is that this sequence \ always\\n terminates.\"\>"}], "}"}]}]}], "\[RightAssociation]"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.753751790931446*^9, {3.7537521471382766`*^9, 3.753752156283992*^9}, 3.753752231400607*^9, 3.7537523621505237`*^9, 3.753752688363278*^9, 3.753752810639413*^9, 3.753753528829875*^9, 3.753753889988504*^9, 3.7537539773057804`*^9, 3.753754077961625*^9, 3.7537541133994865`*^9, 3.753754276751359*^9, 3.75375438546297*^9, 3.7537547190434875`*^9, 3.753754820232276*^9, 3.7537550411903105`*^9, 3.753755968993353*^9, 3.753756032369388*^9, 3.7537561091349506`*^9, 3.753756350845356*^9, 3.753756413679409*^9, 3.7537565315716796`*^9, 3.7537568179176846`*^9, 3.7537570074207582`*^9, 3.7537570880992246`*^9, 3.7586475414402194`*^9, 3.7586478084549227`*^9, 3.7586481533942027`*^9, 3.759256497267683*^9}, CellLabel->"Out[11]=", CellID->573960689] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", "Collatz`Collatz", "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.753751851114569*^9, 3.7537518602122827`*^9}}, CellLabel->"In[12]:=", CellID->237143703], Cell["This is now equivalent to loading the original package:", "Text", TaggingRules->{}, CellChangeTimes->{{3.753751837668974*^9, 3.753751847997675*^9}}, CellID->140643066], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "data", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.753751829644244*^9, 3.7537518327771487`*^9}, 3.7537527088016305`*^9, 3.753753532752752*^9, 3.7537538933934*^9, { 3.7537550453641787`*^9, 3.753755045739167*^9}}, CellLabel->"In[13]:=", CellID->847741565], Cell[BoxData["Collatz"], "Output", TaggingRules->{}, CellChangeTimes->{3.7537518731858788`*^9, 3.753752156563959*^9, 3.7537522316016226`*^9, 3.7537523623505163`*^9, 3.7537527100375957`*^9, 3.753752810801406*^9, 3.7537535337457213`*^9, 3.7537538944753637`*^9, 3.7537550466001587`*^9, 3.7537559714502935`*^9, 3.7537560352522893`*^9, 3.75375610922998*^9, 3.75375635098438*^9, 3.753756413795405*^9, 3.753756531719692*^9, 3.7537568180486803`*^9, 3.753757007549755*^9, 3.753757088749205*^9, 3.75864754618207*^9, 3.758647811261833*^9, 3.758648159118025*^9, 3.7592564975626755`*^9}, CellLabel->"Out[13]=", CellID->299789471] }, Open ]], Cell["The definition is loaded:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7537518833315587`*^9, 3.7537518866534615`*^9}}, CellID->264392445], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Definition", "[", "Collatz`Collatz", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.753751875051817*^9, 3.7537518814126277`*^9}}, CellLabel->"In[14]:=", CellID->765977171], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"Collatz", "[", "1", "]"}], ":=", RowBox[{"{", "1", "}"}]}]}, {" "}, { RowBox[{ RowBox[{"Collatz", "[", "Collatz`Private`n_Integer", "]"}], ":=", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Collatz", "[", RowBox[{ RowBox[{"3", " ", "Collatz`Private`n"}], "+", "1"}], "]"}], ",", "Collatz`Private`n"}], "]"}], "/;", RowBox[{ RowBox[{"OddQ", "[", "Collatz`Private`n", "]"}], "&&", RowBox[{"Collatz`Private`n", ">", "0"}]}]}]}]}, {" "}, { RowBox[{ RowBox[{"Collatz", "[", "Collatz`Private`n_Integer", "]"}], ":=", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Collatz", "[", FractionBox["Collatz`Private`n", "2"], "]"}], ",", "Collatz`Private`n"}], "]"}], "/;", RowBox[{ RowBox[{"EvenQ", "[", "Collatz`Private`n", "]"}], "&&", RowBox[{"Collatz`Private`n", ">", "0"}]}]}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "Rows" -> {{1.}}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], Definition[Collatz`Collatz], Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7537518893253775`*^9, 3.753752156722954*^9, 3.753752231722598*^9, 3.7537523624894867`*^9, 3.7537527123135004`*^9, 3.7537528109024024`*^9, 3.75375353600965*^9, 3.7537538962303333`*^9, 3.7537550480181007`*^9, 3.7537559721852784`*^9, 3.7537560361392603`*^9, 3.753756109357947*^9, 3.7537563511893625`*^9, 3.7537564138874016`*^9, 3.753756531817689*^9, 3.7537568181286945`*^9, 3.753757008118738*^9, 3.753757088820202*^9, 3.758647548331004*^9, 3.7586478138967524`*^9, 3.758648159189023*^9, 3.759256497700654*^9}, CellLabel->"Out[14]=", CellID->627327587] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collatz`Collatz", "[", "47", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537519023099422`*^9, 3.753751904365898*^9}}, CellLabel->"In[15]:=", CellID->944190867], Cell[BoxData[ RowBox[{"{", RowBox[{ "47", ",", "142", ",", "71", ",", "214", ",", "107", ",", "322", ",", "161", ",", "484", ",", "242", ",", "121", ",", "364", ",", "182", ",", "91", ",", "274", ",", "137", ",", "412", ",", "206", ",", "103", ",", "310", ",", "155", ",", "466", ",", "233", ",", "700", ",", "350", ",", "175", ",", "526", ",", "263", ",", "790", ",", "395", ",", "1186", ",", "593", ",", "1780", ",", "890", ",", "445", ",", "1336", ",", "668", ",", "334", ",", "167", ",", "502", ",", "251", ",", "754", ",", "377", ",", "1132", ",", "566", ",", "283", ",", "850", ",", "425", ",", "1276", ",", "638", ",", "319", ",", "958", ",", "479", ",", "1438", ",", "719", ",", "2158", ",", "1079", ",", "3238", ",", "1619", ",", "4858", ",", "2429", ",", "7288", ",", "3644", ",", "1822", ",", "911", ",", "2734", ",", "1367", ",", "4102", ",", "2051", ",", "6154", ",", "3077", ",", "9232", ",", "4616", ",", "2308", ",", "1154", ",", "577", ",", "1732", ",", "866", ",", "433", ",", "1300", ",", "650", ",", "325", ",", "976", ",", "488", ",", "244", ",", "122", ",", "61", ",", "184", ",", "92", ",", "46", ",", "23", ",", "70", ",", "35", ",", "106", ",", "53", ",", "160", ",", "80", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.753751905003858*^9, 3.7537521568719735`*^9, 3.753752231855616*^9, 3.7537523627314987`*^9, 3.7537527139744463`*^9, 3.7537528109963975`*^9, 3.753753537613598*^9, 3.7537538978242817`*^9, 3.75375504993006*^9, 3.753755973807229*^9, 3.753756037881206*^9, 3.753756109438967*^9, 3.75375635130836*^9, 3.7537564139674025`*^9, 3.7537565318866873`*^9, 3.753756818200693*^9, 3.7537570081927333`*^9, 3.75375708891319*^9, 3.758647552243866*^9, 3.7586478153447084`*^9, 3.7586481592630205`*^9, 3.759256497836649*^9}, CellLabel->"Out[15]=", CellID->356022246] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell["Get a list of available properties:", "Text", TaggingRules->{}, CellChangeTimes->{{3.753750371245065*^9, 3.753750375269912*^9}}, CellID->817593913], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DefinitionData\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DefinitionData\""}], "[", 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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "38.216`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Contexts: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = False}, InterpretationBox[ StyleBox[ PaneSelectorBox[{False -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "2"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "2"}, {"", PaneBox[ TagBox[ GridBox[{{ RowBox[{ TagBox["\"Global`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["8", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Collatz`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ImageMargins -> 0]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> "OpenerView", BaselinePosition -> Baseline], Deployed -> False, StripOnInput -> False], OpenerView[{2, Column[{ BoxForm`SummaryItem[{"Global`: ", 8}], BoxForm`SummaryItem[{"Collatz`: ", 1}]}]}, False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], "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:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`DefinitionData", "Definitions" -> ByteArray[ Identity[ "OEM6eJztWu9uGzcSz+qPLcmu3QQojOIOuEW+\ 3IeeArT9FqAoZDl2cxfHf6j0PhRFRUlce5td7nbJta186kv0Ffo8fYZ7gHuFuyGXu8uluLKkNNccEM\ GItMvhcGY485sZMoNuH31yEkQTHIyPiOdTn/\ sRPcIcD7b6rIvSybc4SAnzeqz1wmfca7CdyzQgRyTAczLzHLbzTRTMzjHnJKGeAy/s7GBg/\ x9kLrnl1A3WErzge1u9YvtqcpxEMUn43HvA2ocBpq91ol1FdCOYWSlq2RhzN9Ym54d659kSPtiok9k\ ItV7ikKDe2eRHMuWjeUzQTjmdobYYZmgbzcNJFDDUQv4bgjrDiHJyxxnaK4nfzuSlkJooewbRfdw1q\ 3bUMrNNdrliA6BT+7EzYCya+li8tu2x2EGNPHfCPW3aKY5L0YyJ78Bdq4poIj/\ KZbhPz2LrvSbbHUXP7uKEMCYM4LAWrMpsrFj3OY1TfhwlIesIJcSv91S/zMOXafOeCi5DUa7+\ 8SVhUZpMyXFKp3Js/3DOCRtFFymm3AdMcVhXvBpGKeX/RzoWQCPGX9Es7poQRPDcybWFVz3EE59e/\ T3yxdNu9nTpex4gNuzsaQSBCN8oiPjQQc4Y/oTGGR2KA58vcwBFvZl9NL13FAUIGb0d+\ izgrsMOFHMeLQzZJauK89bAbQPEiF+\ TRKfown7OMsVaL9MggFePhlEYg1vONGhpWJ36wHxzCuT4SmZG9VPGsl1QtJ3S1zS6NaRj7WMcMNJnn\ VexKh9aq5UP5mPzhNQbe003UOtn7iBTtI0BFe81666Ru1r/9Pm18Hm1UhMRXvAF12e/\ h0dZt1YuBVL/5QWmVyns2fjZHSd0RmbH4BCa7IY0WyoPVZRfc4t2noNgSbiQwIulMkB7J/\ UCzNZWVz5hlgYVQUA5UIwAamMmM5Q+WinmIDUPAiEQMLohC1VZtaQrEvpy4zXYgSbv+CwmlCTf+\ uT2ot7Fq1Ko2rHAcNYaJffXsaYUri4FhJj2CBU/\ I7yu6lObcH88Li3fnLpyrc96R4AmCjOaK2JGrTQ7imZEWEWjj9QEJjetlC4Ph73K+\ AVM3TqNZqJTUSKxnhZHe+XvSsBKf2stCVidCwjxZ/\ UUghIhDozINWRWHIy1hW2qmNSWfl5Z6T4XzXoyp1JkFqbrlWKUKFlC3mL0C6B5wB5KQpGdEPkpJXRK\ tIXy/fPEsFRPOrm+\ VFWvKncTaNXeG9isoX7tigs2XgSiBYuDiQdxHMzrAS7zGFO8zTy6zPW2CMW1MNl8GYmw29XeXohlX1\ EiGmHMyUzjUpPKcoJJhVQTqTaHFTNNGbSRjW3ydqWgBbMmos4vTSmL/EGS4HmdYXJPpeRWYAX4A+\ ReM3Fbk9rDQ5/iZH5EGEl8HEDzYUixmn11AUwLa2N9tnsscV4BbGMlgAURTvFrchjdEWYN8aUJ/g+\ q0TbpjGw454VcXynPA9sqqnPEiPH0NYRQvtQ0y86SJN9Pdi3q5HzCtT+\ bkVKja4K1VIgpCQoJJtGd11mWRaoyrOWADfanXLrc/4R/58WFvaeVfNj+\ OXQhwpkAy08iHKjWWclkMYTwsnzHF5vNA3Av4Ztj4WooDUOIiuechJpT6P1o2Xc2nrrFU6OybVDeZq\ 35H9feSltUHKDQp4SQ+1RHWyIOnroV9zc0XZlXV5U40mpbLwi94tfW0yadv+\ Fome9upInwEbH073PAsqkRermDgyjgCGUZrulk2kb3ZOlZQRpSa8Bnza/\ NgHq0Cwg69hPJ7YvcBLlJxueJfwNJeRyCBqadJBBbjnErziYx5L5EHpvY0WJdKZMoGr0t9mluSJH96\ FVuS3hrLp+dPJSIA/ZYDny6dZrs46M5OLU/zdAV+\ OuYuzMiYRyANfT3aFcJcy4VtVWYqPmvn39lHehthKBzM1kLXIWNvIxuBd+\ WUaaJLULOd1V7Iuf7wqSNutpI53+fvdvs4XNwnAQgnWO1t3qxZA0T0/QF9wKbewha3CnHE/\ ideWMx9CgbKlCeai1kRtF5BtVGdery6mArqyn+JyXayrlcOy2vi4L3Km86AEMpLyXujKIs0xhV+oo+\ YdQlpTH6rKOO9Zhmj7wTM3Z2nRNA9Nn487HrM5dG3MWufOdWad38Nu4J9PkDDupNUl7Kwbqy4RT400\ d152QDp3pG4Kx4RrD2uds79c6yazwoTuwWL/\ 3qq6VsvyyXR1m1Yr8qArB7KRwv0Ooli8R9pBf2wt7ds8LcS828WkcwaPTVBek+\ JFHA9Tdj9d2vGBZWXqCAuRudEJl8hk7uOENn7cn6jj/Mx/\ KETcsN3xbQfgXRvtC2J0TgjJ116zxIhZ3bIx+Cbti0LAEbbFkXUG0gmbbOZrMLO8X2SULgd2Jj+\ uA9M0RmALse7fPoliTDxvA/Sy3RfnZD6Cam2BwlTUVQOxVj6BdHvfiOfu9eiaNcAMkA+LqR5/\ Jr4vrADVZnrk/l85f0s88FYEIiDv/Wc9WHcZxwyAqul0ShS5+4IyCFYkvc7qcJEfjLrzGHf+\ AXU4WQi4NbPGcFE1gp9KlY7MmHEPsQYh9C7B2HmHGdMGhWI2y1UzjHciuxcACslRvqLkPsJAKridPe\ 9hGJZRm8KxiLAyVxEVZOHjbWlsHWdxW3vx9BNsdpwBdKNesuO2z7LK6esZeryJn2qnFfMBkEQa5PHy\ 29SFmroFl+JfOkvm230Zf/0a567bCWRDU3F3+\ tFaVK2EfLGpe1JFnaAfVr5bGRlyWnODjYqOQUE2UvmoCW4iCjjfg8u8a6xLfZ2XXZ7TfLY55q/\ 48cD7p+1Lj7AXp91Hj6FWo8fjzcLTvrY5D4GId+MEf7SGrmIkyZe54UrSLrCiLAoigRJ1gnCZ6/\ IDckSB7Iz29fl9wOoT27SsSxbpXSk59/f/1fFjK/Yg=="]]]], Editable->False, SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7586478721139455`*^9, 3.758647875176833*^9}, 3.7592564019676447`*^9}, CellLabel->"In[16]:=", CellID->297816621], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Name\"\>", ",", "\<\"ObjectType\"\>", ",", "\<\"Definitions\"\>", ",", "\<\"Names\"\>", ",", "\<\"Symbols\"\>", ",", "\<\"Size\"\>", ",", "\<\"Contexts\"\>", ",", "\<\"DefinitionList\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7586478786437426`*^9, 3.758648170835661*^9, 3.759256406220513*^9, 3.7592564979726453`*^9}, CellLabel->"Out[16]=", CellID->550075116] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797627], Cell["See what symbols are contained:", "Text", TaggingRules->{}, CellChangeTimes->{{3.75375039659826*^9, 3.7537504011260996`*^9}}, CellID->870248887], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DefinitionData\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DefinitionData\""}], "[", 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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "38.216`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Contexts: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = False}, InterpretationBox[ StyleBox[ PaneSelectorBox[{False -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "2"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "2"}, {"", PaneBox[ TagBox[ GridBox[{{ RowBox[{ TagBox["\"Global`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["8", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Collatz`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ImageMargins -> 0]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> "OpenerView", BaselinePosition -> Baseline], Deployed -> False, StripOnInput -> False], OpenerView[{2, Column[{ BoxForm`SummaryItem[{"Global`: ", 8}], BoxForm`SummaryItem[{"Collatz`: ", 1}]}]}, False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], "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:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`DefinitionData", "Definitions" -> ByteArray[ Identity[ "OEM6eJztWu9uGzcSz+qPLcmu3QQojOIOuEW+\ 3IeeArT9FqAoZDl2cxfHf6j0PhRFRUlce5td7nbJta186kv0Ffo8fYZ7gHuFuyGXu8uluLKkNNccEM\ GItMvhcGY485sZMoNuH31yEkQTHIyPiOdTn/\ sRPcIcD7b6rIvSybc4SAnzeqz1wmfca7CdyzQgRyTAczLzHLbzTRTMzjHnJKGeAy/s7GBg/\ x9kLrnl1A3WErzge1u9YvtqcpxEMUn43HvA2ocBpq91ol1FdCOYWSlq2RhzN9Ym54d659kSPtiok9k\ ItV7ikKDe2eRHMuWjeUzQTjmdobYYZmgbzcNJFDDUQv4bgjrDiHJyxxnaK4nfzuSlkJooewbRfdw1q\ 3bUMrNNdrliA6BT+7EzYCya+li8tu2x2EGNPHfCPW3aKY5L0YyJ78Bdq4poIj/\ KZbhPz2LrvSbbHUXP7uKEMCYM4LAWrMpsrFj3OY1TfhwlIesIJcSv91S/zMOXafOeCi5DUa7+\ 8SVhUZpMyXFKp3Js/3DOCRtFFymm3AdMcVhXvBpGKeX/RzoWQCPGX9Es7poQRPDcybWFVz3EE59e/\ T3yxdNu9nTpex4gNuzsaQSBCN8oiPjQQc4Y/oTGGR2KA58vcwBFvZl9NL13FAUIGb0d+\ izgrsMOFHMeLQzZJauK89bAbQPEiF+\ TRKfown7OMsVaL9MggFePhlEYg1vONGhpWJ36wHxzCuT4SmZG9VPGsl1QtJ3S1zS6NaRj7WMcMNJnn\ VexKh9aq5UP5mPzhNQbe003UOtn7iBTtI0BFe81666Ru1r/9Pm18Hm1UhMRXvAF12e/\ h0dZt1YuBVL/5QWmVyns2fjZHSd0RmbH4BCa7IY0WyoPVZRfc4t2noNgSbiQwIulMkB7J/\ UCzNZWVz5hlgYVQUA5UIwAamMmM5Q+WinmIDUPAiEQMLohC1VZtaQrEvpy4zXYgSbv+CwmlCTf+\ uT2ot7Fq1Ko2rHAcNYaJffXsaYUri4FhJj2CBU/\ I7yu6lObcH88Li3fnLpyrc96R4AmCjOaK2JGrTQ7imZEWEWjj9QEJjetlC4Ph73K+\ AVM3TqNZqJTUSKxnhZHe+XvSsBKf2stCVidCwjxZ/\ UUghIhDozINWRWHIy1hW2qmNSWfl5Z6T4XzXoyp1JkFqbrlWKUKFlC3mL0C6B5wB5KQpGdEPkpJXRK\ tIXy/fPEsFRPOrm+\ VFWvKncTaNXeG9isoX7tigs2XgSiBYuDiQdxHMzrAS7zGFO8zTy6zPW2CMW1MNl8GYmw29XeXohlX1\ EiGmHMyUzjUpPKcoJJhVQTqTaHFTNNGbSRjW3ydqWgBbMmos4vTSmL/EGS4HmdYXJPpeRWYAX4A+\ ReM3Fbk9rDQ5/iZH5EGEl8HEDzYUixmn11AUwLa2N9tnsscV4BbGMlgAURTvFrchjdEWYN8aUJ/g+\ q0TbpjGw454VcXynPA9sqqnPEiPH0NYRQvtQ0y86SJN9Pdi3q5HzCtT+\ bkVKja4K1VIgpCQoJJtGd11mWRaoyrOWADfanXLrc/4R/58WFvaeVfNj+\ OXQhwpkAy08iHKjWWclkMYTwsnzHF5vNA3Av4Ztj4WooDUOIiuechJpT6P1o2Xc2nrrFU6OybVDeZq\ 35H9feSltUHKDQp4SQ+1RHWyIOnroV9zc0XZlXV5U40mpbLwi94tfW0yadv+\ Fome9upInwEbH073PAsqkRermDgyjgCGUZrulk2kb3ZOlZQRpSa8Bnza/\ NgHq0Cwg69hPJ7YvcBLlJxueJfwNJeRyCBqadJBBbjnErziYx5L5EHpvY0WJdKZMoGr0t9mluSJH96\ FVuS3hrLp+dPJSIA/ZYDny6dZrs46M5OLU/zdAV+\ OuYuzMiYRyANfT3aFcJcy4VtVWYqPmvn39lHehthKBzM1kLXIWNvIxuBd+\ WUaaJLULOd1V7Iuf7wqSNutpI53+fvdvs4XNwnAQgnWO1t3qxZA0T0/QF9wKbewha3CnHE/\ ideWMx9CgbKlCeai1kRtF5BtVGdery6mArqyn+JyXayrlcOy2vi4L3Km86AEMpLyXujKIs0xhV+oo+\ YdQlpTH6rKOO9Zhmj7wTM3Z2nRNA9Nn487HrM5dG3MWufOdWad38Nu4J9PkDDupNUl7Kwbqy4RT400\ d152QDp3pG4Kx4RrD2uds79c6yazwoTuwWL/\ 3qq6VsvyyXR1m1Yr8qArB7KRwv0Ooli8R9pBf2wt7ds8LcS828WkcwaPTVBek+\ JFHA9Tdj9d2vGBZWXqCAuRudEJl8hk7uOENn7cn6jj/Mx/\ KETcsN3xbQfgXRvtC2J0TgjJ116zxIhZ3bIx+Cbti0LAEbbFkXUG0gmbbOZrMLO8X2SULgd2Jj+\ uA9M0RmALse7fPoliTDxvA/Sy3RfnZD6Cam2BwlTUVQOxVj6BdHvfiOfu9eiaNcAMkA+LqR5/\ Jr4vrADVZnrk/l85f0s88FYEIiDv/Wc9WHcZxwyAqul0ShS5+4IyCFYkvc7qcJEfjLrzGHf+\ AXU4WQi4NbPGcFE1gp9KlY7MmHEPsQYh9C7B2HmHGdMGhWI2y1UzjHciuxcACslRvqLkPsJAKridPe\ 9hGJZRm8KxiLAyVxEVZOHjbWlsHWdxW3vx9BNsdpwBdKNesuO2z7LK6esZeryJn2qnFfMBkEQa5PHy\ 29SFmroFl+JfOkvm230Zf/0a567bCWRDU3F3+\ tFaVK2EfLGpe1JFnaAfVr5bGRlyWnODjYqOQUE2UvmoCW4iCjjfg8u8a6xLfZ2XXZ7TfLY55q/\ 48cD7p+1Lj7AXp91Hj6FWo8fjzcLTvrY5D4GId+MEf7SGrmIkyZe54UrSLrCiLAoigRJ1gnCZ6/\ IDckSB7Iz29fl9wOoT27SsSxbpXSk59/f/1fFjK/Yg=="]]]], Editable->False, SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758647894257256*^9, 3.7586478956962123`*^9}, 3.759256410634392*^9}, CellLabel->"In[17]:=", CellID->896566282], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Global`DefinitionData\"\>", ",", "\<\"Global`toDefinitionList\"\>", ",", "\<\"Global`data\"\>", ",", "\<\"Collatz`Collatz\"\>", ",", "\<\"Global`symbolQ\"\>", ",", "\<\"Global`minimalFullDefinition\"\>", ",", "\<\"Global`fullSymbolName\"\>", ",", "\<\"Global`serializeWithContext\"\>", ",", "\<\"Global`icon\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7586478962121944`*^9, 3.758648175359521*^9, 3.759256414056269*^9, 3.7592564982466516`*^9}, CellLabel->"Out[17]=", CellID->447575934] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797628], Cell[TextData[{ "Use a list of properties to return an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.753750472076888*^9, 3.7537504823725476`*^9}, 3.759255846404337*^9}, CellID->551396305], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DefinitionData\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DefinitionData\""}], "[", 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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "38.216`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Contexts: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = False}, InterpretationBox[ StyleBox[ PaneSelectorBox[{False -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "2"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "2"}, {"", PaneBox[ TagBox[ GridBox[{{ RowBox[{ TagBox["\"Global`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["8", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Collatz`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ImageMargins -> 0]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> "OpenerView", BaselinePosition -> Baseline], Deployed -> False, StripOnInput -> False], OpenerView[{2, Column[{ BoxForm`SummaryItem[{"Global`: ", 8}], BoxForm`SummaryItem[{"Collatz`: ", 1}]}]}, False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], "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:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`DefinitionData", "Definitions" -> ByteArray[ Identity[ "OEM6eJztWu9uGzcSz+qPLcmu3QQojOIOuEW+\ 3IeeArT9FqAoZDl2cxfHf6j0PhRFRUlce5td7nbJta186kv0Ffo8fYZ7gHuFuyGXu8uluLKkNNccEM\ GItMvhcGY485sZMoNuH31yEkQTHIyPiOdTn/\ sRPcIcD7b6rIvSybc4SAnzeqz1wmfca7CdyzQgRyTAczLzHLbzTRTMzjHnJKGeAy/s7GBg/\ x9kLrnl1A3WErzge1u9YvtqcpxEMUn43HvA2ocBpq91ol1FdCOYWSlq2RhzN9Ym54d659kSPtiok9k\ ItV7ikKDe2eRHMuWjeUzQTjmdobYYZmgbzcNJFDDUQv4bgjrDiHJyxxnaK4nfzuSlkJooewbRfdw1q\ 3bUMrNNdrliA6BT+7EzYCya+li8tu2x2EGNPHfCPW3aKY5L0YyJ78Bdq4poIj/\ KZbhPz2LrvSbbHUXP7uKEMCYM4LAWrMpsrFj3OY1TfhwlIesIJcSv91S/zMOXafOeCi5DUa7+\ 8SVhUZpMyXFKp3Js/3DOCRtFFymm3AdMcVhXvBpGKeX/RzoWQCPGX9Es7poQRPDcybWFVz3EE59e/\ T3yxdNu9nTpex4gNuzsaQSBCN8oiPjQQc4Y/oTGGR2KA58vcwBFvZl9NL13FAUIGb0d+\ izgrsMOFHMeLQzZJauK89bAbQPEiF+\ TRKfown7OMsVaL9MggFePhlEYg1vONGhpWJ36wHxzCuT4SmZG9VPGsl1QtJ3S1zS6NaRj7WMcMNJnn\ VexKh9aq5UP5mPzhNQbe003UOtn7iBTtI0BFe81666Ru1r/9Pm18Hm1UhMRXvAF12e/\ h0dZt1YuBVL/5QWmVyns2fjZHSd0RmbH4BCa7IY0WyoPVZRfc4t2noNgSbiQwIulMkB7J/\ UCzNZWVz5hlgYVQUA5UIwAamMmM5Q+WinmIDUPAiEQMLohC1VZtaQrEvpy4zXYgSbv+CwmlCTf+\ uT2ot7Fq1Ko2rHAcNYaJffXsaYUri4FhJj2CBU/\ I7yu6lObcH88Li3fnLpyrc96R4AmCjOaK2JGrTQ7imZEWEWjj9QEJjetlC4Ph73K+\ AVM3TqNZqJTUSKxnhZHe+XvSsBKf2stCVidCwjxZ/\ UUghIhDozINWRWHIy1hW2qmNSWfl5Z6T4XzXoyp1JkFqbrlWKUKFlC3mL0C6B5wB5KQpGdEPkpJXRK\ tIXy/fPEsFRPOrm+\ VFWvKncTaNXeG9isoX7tigs2XgSiBYuDiQdxHMzrAS7zGFO8zTy6zPW2CMW1MNl8GYmw29XeXohlX1\ EiGmHMyUzjUpPKcoJJhVQTqTaHFTNNGbSRjW3ydqWgBbMmos4vTSmL/EGS4HmdYXJPpeRWYAX4A+\ ReM3Fbk9rDQ5/iZH5EGEl8HEDzYUixmn11AUwLa2N9tnsscV4BbGMlgAURTvFrchjdEWYN8aUJ/g+\ q0TbpjGw454VcXynPA9sqqnPEiPH0NYRQvtQ0y86SJN9Pdi3q5HzCtT+\ bkVKja4K1VIgpCQoJJtGd11mWRaoyrOWADfanXLrc/4R/58WFvaeVfNj+\ OXQhwpkAy08iHKjWWclkMYTwsnzHF5vNA3Av4Ztj4WooDUOIiuechJpT6P1o2Xc2nrrFU6OybVDeZq\ 35H9feSltUHKDQp4SQ+1RHWyIOnroV9zc0XZlXV5U40mpbLwi94tfW0yadv+\ Fome9upInwEbH073PAsqkRermDgyjgCGUZrulk2kb3ZOlZQRpSa8Bnza/\ NgHq0Cwg69hPJ7YvcBLlJxueJfwNJeRyCBqadJBBbjnErziYx5L5EHpvY0WJdKZMoGr0t9mluSJH96\ FVuS3hrLp+dPJSIA/ZYDny6dZrs46M5OLU/zdAV+\ OuYuzMiYRyANfT3aFcJcy4VtVWYqPmvn39lHehthKBzM1kLXIWNvIxuBd+\ WUaaJLULOd1V7Iuf7wqSNutpI53+fvdvs4XNwnAQgnWO1t3qxZA0T0/QF9wKbewha3CnHE/\ ideWMx9CgbKlCeai1kRtF5BtVGdery6mArqyn+JyXayrlcOy2vi4L3Km86AEMpLyXujKIs0xhV+oo+\ YdQlpTH6rKOO9Zhmj7wTM3Z2nRNA9Nn487HrM5dG3MWufOdWad38Nu4J9PkDDupNUl7Kwbqy4RT400\ d152QDp3pG4Kx4RrD2uds79c6yazwoTuwWL/\ 3qq6VsvyyXR1m1Yr8qArB7KRwv0Ooli8R9pBf2wt7ds8LcS828WkcwaPTVBek+\ JFHA9Tdj9d2vGBZWXqCAuRudEJl8hk7uOENn7cn6jj/Mx/\ KETcsN3xbQfgXRvtC2J0TgjJ116zxIhZ3bIx+Cbti0LAEbbFkXUG0gmbbOZrMLO8X2SULgd2Jj+\ uA9M0RmALse7fPoliTDxvA/Sy3RfnZD6Cam2BwlTUVQOxVj6BdHvfiOfu9eiaNcAMkA+LqR5/\ Jr4vrADVZnrk/l85f0s88FYEIiDv/Wc9WHcZxwyAqul0ShS5+4IyCFYkvc7qcJEfjLrzGHf+\ AXU4WQi4NbPGcFE1gp9KlY7MmHEPsQYh9C7B2HmHGdMGhWI2y1UzjHciuxcACslRvqLkPsJAKridPe\ 9hGJZRm8KxiLAyVxEVZOHjbWlsHWdxW3vx9BNsdpwBdKNesuO2z7LK6esZeryJn2qnFfMBkEQa5PHy\ 29SFmroFl+JfOkvm230Zf/0a567bCWRDU3F3+\ tFaVK2EfLGpe1JFnaAfVr5bGRlyWnODjYqOQUE2UvmoCW4iCjjfg8u8a6xLfZ2XXZ7TfLY55q/\ 48cD7p+1Lj7AXp91Hj6FWo8fjzcLTvrY5D4GId+MEf7SGrmIkyZe54UrSLrCiLAoigRJ1gnCZ6/\ IDckSB7Iz29fl9wOoT27SsSxbpXSk59/f/1fFjK/Yg=="]]]], Editable->False, SelectWithContents->True, Selectable->False], "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75375048419151*^9, 3.753750497358097*^9}, { 3.753752755970131*^9, 3.7537527688617544`*^9}, 3.7537550981165447`*^9, 3.7537560524927545`*^9, 3.753756379666477*^9, 3.7537565692545233`*^9, 3.7537570225332775`*^9, {3.7586479038059587`*^9, 3.758647904168932*^9}, 3.758647962604133*^9, 3.7592564179941645`*^9}, CellLabel->"In[18]:=", CellID->868589540], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Global`DefinitionData\"\>"}], ",", RowBox[{"\<\"Size\"\>", "\[Rule]", TemplateBox[{"38.12`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity"]}], ",", RowBox[{"\<\"Contexts\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Collatz`\"\>", ",", "\<\"Global`\"\>"}], "}"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7537504980530777`*^9, 3.753752169335582*^9, 3.7537522326765933`*^9, 3.753752363301488*^9, 3.7537527701906796`*^9, 3.7537528116973753`*^9, 3.7537550987015224`*^9, 3.75375605360672*^9, 3.753756109899952*^9, 3.753756380875416*^9, 3.753756414389389*^9, 3.7537565701484957`*^9, 3.7537570235362463`*^9, 3.7537570898101463`*^9, 3.758647966554012*^9, 3.758648175455518*^9, 3.759256419780092*^9, 3.7592564983796663`*^9}, CellLabel->"Out[18]=", CellID->490035462] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797629], Cell[TextData[{ "The ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["InputForm", "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/InputForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " of ", Cell[BoxData["DefinitionData"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " serializes definitions to protect contexts and initialization states of \ values:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7537505698058014`*^9, 3.753750600701847*^9}}, CellID->635869783], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DefinitionData\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DefinitionData\""}], "[", 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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`f\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`f\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "1.792`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Contexts: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = False}, InterpretationBox[ StyleBox[ PaneSelectorBox[{False -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "1"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "1"}, {"", PaneBox[ TagBox[ GridBox[{{ RowBox[{ TagBox["\"Global`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ImageMargins -> 0]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> "OpenerView", BaselinePosition -> Baseline], Deployed -> False, StripOnInput -> False], OpenerView[{1, Column[{ BoxForm`SummaryItem[{"Global`: ", 2}]}]}, False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], "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:>{}], "]"}], ResourceFunction["DefinitionData"][ Association["Name" -> "Global`f", "Definitions" -> ByteArray[ Identity[ "OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGY\ lannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN"]]]], Editable->False, SelectWithContents->True, Selectable->False], "//", "InputForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537505400147543`*^9, 3.753750567475893*^9}, { 3.7537506052247066`*^9, 3.7537506067566643`*^9}, 3.753752773527604*^9, 3.753755102013422*^9, {3.7537560561546135`*^9, 3.753756076202013*^9}, 3.753756390254139*^9, 3.7537565845910435`*^9, 3.753757025693161*^9, 3.753757068623828*^9, 3.7586479100957704`*^9, 3.758647982150527*^9, 3.759256442098468*^9}, CellLabel->"In[19]:=", CellID->500973989], Cell["\<\ ResourceFunction[\"DefinitionData\"][<|\"Name\" -> \"Global`f\", \\ \"Definitions\" -> \\ ByteArray[\"OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/PC0vMKU0tTmMsZvHJLC5\\ JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGYlannMS8b\\ CSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN\"]|>]\ \>", "Output", TaggingRules->{}, CellChangeTimes->{ 3.7537505583581867`*^9, 3.7537506073036475`*^9, 3.753752169633571*^9, 3.7537522328855867`*^9, 3.7537523635144806`*^9, 3.7537527747795362`*^9, 3.75375281188838*^9, 3.75375510340738*^9, 3.7537560778169603`*^9, 3.7537561100609455`*^9, {3.7537563912510867`*^9, 3.753756414611355*^9}, 3.7537565857280073`*^9, 3.753757026542132*^9, {3.7537570696478047`*^9, 3.7537570899891562`*^9}, 3.758647985879409*^9, 3.7586481831322794`*^9, { 3.7592564554190397`*^9, 3.7592564985546618`*^9}}, CellLabel->"Out[19]//InputForm=", CellID->467820677] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["FullForm", "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/FullForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " to see the actual expression structure:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7537506130684614`*^9, 3.753750631748861*^9}}, CellID->384927984], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DefinitionData\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DefinitionData\""}], "[", 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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`f\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "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])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], 12, FontFamily -> "Source Sans Pro", FontColor -> GrayLevel[0.25], StripOnInput -> False], Background -> GrayLevel[0.95], StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`f\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "1.792`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Contexts: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = False}, InterpretationBox[ StyleBox[ PaneSelectorBox[{False -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "1"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> Automatic, AutoAction -> False, ContinuousAction -> False], "1"}, {"", PaneBox[ TagBox[ GridBox[{{ RowBox[{ TagBox["\"Global`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ImageMargins -> 0]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> "OpenerView", BaselinePosition -> Baseline], Deployed -> False, StripOnInput -> False], OpenerView[{1, Column[{ BoxForm`SummaryItem[{"Global`: ", 2}]}]}, False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], "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:>{}], "]"}], ResourceFunction["DefinitionData"][ Association["Name" -> "Global`f", "Definitions" -> ByteArray[ Identity[ "OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGY\ lannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN"]]]], Editable->False, SelectWithContents->True, Selectable->False], "//", "FullForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537506335598164`*^9, 3.753750634812784*^9}, 3.7537527769814935`*^9, 3.7537551062572966`*^9, 3.7537560801208897`*^9, 3.753756393402048*^9, 3.7537565874029694`*^9, 3.753757031527993*^9, 3.7537570719217277`*^9, {3.7586479299141517`*^9, 3.7586479302131386`*^9}, 3.758647990695263*^9, 3.7592564457203403`*^9}, CellLabel->"In[20]:=", CellID->153129429], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{ "FunctionRepository`$1c85e14abe9248c3a0f9be2b28a17a24`DefinitionData", "[", RowBox[{"Association", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"Rule", "[", RowBox[{"\"\\"", ",", RowBox[{"Association", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"\"\\"", ",", RowBox[{"Association", "[", RowBox[{"Rule", "[", RowBox[{"DownValues", ",", RowBox[{"List", "[", RowBox[{"RuleDelayed", "[", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"f", "[", RowBox[{"Pattern", "[", RowBox[{"x", ",", RowBox[{"Blank", "[", "]"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"Power", "[", RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Rule", "[", RowBox[{"\"\\"", ",", RowBox[{"Association", "[", RowBox[{"Rule", "[", RowBox[{"DownValues", ",", RowBox[{"List", "[", RowBox[{"RuleDelayed", "[", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"g", "[", RowBox[{"Pattern", "[", RowBox[{"x", ",", RowBox[{"Blank", "[", "]"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"Power", "[", RowBox[{"x", ",", "3"}], "]"}]}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.753750635333768*^9, 3.7537521699675627`*^9, 3.7537522331445775`*^9, 3.7537523637874503`*^9, 3.7537527779584618`*^9, 3.753752811979369*^9, 3.753755106786275*^9, {3.753756081541844*^9, 3.753756110115944*^9}, { 3.753756394388014*^9, 3.7537564147173777`*^9}, 3.753756588291917*^9, 3.7537570325099697`*^9, {3.7537570727736793`*^9, 3.753757090061154*^9}, 3.758647994427144*^9, 3.7586481832142763`*^9, {3.759256466099723*^9, 3.759256498689681*^9}}, CellLabel->"Out[20]//FullForm=", CellID->504525824] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797630], Cell[TextData[{ "When writing ", Cell[BoxData["DefinitionData"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " to a file as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["InputForm", "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/InputForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " via ", 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", FontSize->0.9428571428571428 Inherited], ", ", 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", FontSize->0.9428571428571428 Inherited], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Export", "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/Export", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ", etc., original contexts will be preserved in binary form:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7537508097722816`*^9, 3.7537508677944655`*^9}, { 3.753751111653779*^9, 3.753751114868698*^9}, {3.773650474137645*^9, 3.7736504754052715`*^9}}, CellID->740351095], Cell[BoxData[ RowBox[{ RowBox[{"$Context", "=", "\"\\""}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537508844449368`*^9, 3.7537509023893757`*^9}, { 3.753751025567504*^9, 3.753751027649444*^9}}, CellLabel->"In[21]:=", CellID->479021986], Cell[BoxData[ RowBox[{ RowBox[{"g1", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "3"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.753750908132192*^9, 3.7537509517548285`*^9, 3.7537510339612393`*^9}, CellLabel->"In[22]:=", CellID->666562281], Cell[BoxData[ RowBox[{ RowBox[{"f1", "[", "x_", "]"}], ":=", RowBox[{"g1", "[", RowBox[{"x", "^", "2"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537509100001326`*^9, 3.7537509164139338`*^9}, { 3.753750953605765*^9, 3.753750954860708*^9}, {3.7537510359981833`*^9, 3.7537510389400806`*^9}}, CellLabel->"In[23]:=", CellID->643226980], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"DefinitionData", "[", "f1", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.75375016850143*^9, {3.75375021850886*^9, 3.7537502232546873`*^9}, 3.753750915343964*^9, 3.7537509561646852`*^9, {3.753751045494884*^9, 3.7537510945583334`*^9}}, CellLabel->"In[24]:=", CellID->845141997], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc1vHEd6h4nk4mNuPufi/4AAs8AC1sFY5LpBToaFmIy1yMULaAMEua1i 33jRhYDhQ3QVFVsea2OKlMixSDmiMJQEjTgSJdNWZHFIc2b4NR+kKJFU8nZX f1RXV09/T3U3f89S3unu6urumal65q2qrv7b0T/+/txfDQ0N/ekd+s/vP/63 M+fPf/zv//A3tPCPn/7pX/7w6Sf//Pef/usnf/jk/MjoX9PKf6J//0Hptdf/ BwAAAAAAAAAAAABODcfHx91ud2t7q9VqNZv019Rf8AiLWgpxa8tI1HInBgBk FmdRdhVsWSL9H/s/qiu2t7epAqFqRHVNBkAuoeLTaDSEctgySiMzslU4W8af YV2rZNovW01HQvzhD39Z/mvxhm3ZL5vG7+yWYdqmsF5P23JImSqRTqfz9u1b 1VUaAHlib2+PFT160ev1Dg4OXgEAQGCo0qCqgyoQXemt3d1d1bUaALmBomD6 EbvV2trf31ddlAEA+YaqEapMKECmikV13QZADjg+PmLNS1AwACARqDJhQ0rQ RwyAL71ej8rL3t6e6oILACgOWtN0q0XVi+oaDoCss729vbWlFRbVpRYAUBz2 93v6qGn0DgPgA+sRVl1kAQBFo7WlDdRSXcMBkHW2NFqqyysAoGi09MpFdQ0H QNbZ0ouK6vIKACgaW7AwAAHQysk2LAwASBiqWGBhAHzZ1oZnbasurwCAoqH/ wIeFAfCBCso2YmEAQNLQz3v6U13DAZB1drRgGLEwACBhWN2iuoYDIOtQMdnZ 3lFdXgEARWOHNLyzo7qGAyDr7OioLq8AgKKxDQsDEICdnV1YGACQOOwXvuoa DoCss7MLCwMAkmcXFgYgALuahXdVl9egdAGH6k8D5JlaaWxkSGeslM4RdrWf +JhHGgAfdnXSKYXJc/Xq1d8Ck88++yzMm1ed/LPGRLnuvXmymsjnlC6lMV0e I+O1AKkiKKamCWrEUJTBSFqqShv9bXCfPHt3RsbGS+P0T9ioCzr+BbO6RXUN B0A2WOVxbMmXhb/44oshYPLRRx+FefMMC3t5OHcW7q9hM1FImdTGTfuOjFlo Sk7ewuS/EZ9fEonkqV+S8/TZVUouqaZlEOmNk+C2sHc9BECxWb34m6Gh31ic m+K25dHCH3zwwdTp5vz58xEtPDEx4eHh/Fm4jyl0zejxbBiZGAoeGS8l60bv gyVsYa88tfX8alk66/fHyNiIh6NDIlp46pxdCVGFdBEeBqcHsrDnVz6PFv7w ww9Vd8kqhr0PUSw8Wa2X5R7OmYUpRPUOh7kUwWXC5D6wludBWjhIOlqnNVDX +kTKIenTIt2vSgKggMDCRSOOhc2maVG4EgvXq+VJPXZmDdmT5WpdskO9Ojlh JakaO3KrJHG3tp3Ll8+2zkJ2j85rHaOr01M55ga+S7Qkd7a9OpR69I5jq2fA kJfrBLVMx+wGbvvgdjBvZcEHqnzmI2MlYTdZ27J5sZ55CufWPxksDEDSwMJF I56F5R52WZglIouWq1VNx2KXMtthknw66UhR1YJtfZ3pcMHtLBi39nKG5sEt 7GULy86OgUlSDXMpPEYxSQ8/Ymh1vFTSO2JFmbG8xrVmYM3QrjS1GtuRCVzH 3NmwKltv7GdnLXrYcnDfPJ3vjiudtP0aFgYgSWDhohHXwjIPuy1cdgSphj3t FMZoL24Xc/wX51BX+7fZLi6eWF/vOrGFKVOn11aJhkUJB2kfZgk9AlI+jZCd K5CVhfJmlO86njNrc9F10nFapMXLgYUBSA5YuGjEt7Dbw/79wrpRbVtK5CmJ sQV3aylcwg3ZJc3J06UTfoXgaFdaV4u1v3i8BOXMW9rDLCpTYkIticuNsqvQ lyU/HApr4ZOTk3a7vb6+vra29hIA1dD3kL6N9J08Pj6GhU8nSVhYdKZUhXWt zVhvdbb6eZ0WljQ2C5KVhOBSggfDvJcEYzj0IppVcI+7wdpfPJ7J/DMTzec2 obtrV95vbDRaS0RaQAtTDrVarVKpPHz48BkAWYK+k0tLS9VqtdlswsKnjWQs 7PSwuNkaYUUGJg+Xy6znNwELT2gdwm4itEiLS95bdFyOtkUU0F/pW3jE6NQV EBqu2egt7y5xH3Jh4aOjo59//nllZWVjY2MLgKyyubm5urpKUj48PISFTw9J WZhvVnZult3PJGuRjmbhwMKV4tXSLNrDLUPOPmLrb7CO4UFY2M+h9sQiBY6F 37x58/jx45cvX6quYgEIRL1ef/LkSa/Xg4VPCclZ2Bajc7MssaDQKBYWR3hF wqOludSv39eZtCbpghWHWEkJ0S8c3sKB7Gclkp1vcSz8008/ra2tqa5ZAQgB BcUk4pOTE1j4NJCkhR2Tajkt7PBpVbxXKYqFDQ2Lp1Evl0OI2S05q0fVvVaU CdPvuGwclPfUWbWSNdmy9xjpfkH4Kw8LS0J115618XFn3G/m4s4hqD8zbuHt 7e1nz56prlMBCM3z588pKIaFTwPJWpgbNOW6D4m7F3hiMn6/8CvLw9yNyA79 h7hfmEPqL3nzcd8JpkvcLBvWJNJCcvM+JOf9wnx2gSzMSb80borfbG12Zm5m 5Qp/5bc/CXlKyLiF6WvRaDRUV6gAROHBgweygdOpWJhKytLS0v379+/cufM/ IaFdaMd79+5RJqEOCgszkrawpUZ+MzcBFpvfKoF+YTPnsp21Nn8HNzIrmoVd MyV7pXslUZdAzTIrE6JraixxequRsVKAA0vMZ0+txcfI9gMVnJlLm8wlHpbk 6brEDFv46OiIagbVVWkqVC5/fnZ4eMhm+POKmObyWS3B8Fn3lihkObeiQlKT 9Q6nYuGFhYUffvhhcXFxdnb2psmszo0bN6anp6/r0AtaZOv5ZLQj6Xh+fj7U QWFhRiQLA0bwWbJALKJZeGdnZ3l52aemm/n4f3/3jvn3dxuP+qeeXLMTv/PL fy4lVuGGofI5718PC9uJJIKOccg+uek/DYIcLtlzU0DgK43HyspKo9EYjIVJ oGTSSqXy/fffl53Mzc0xFzP/0qKQgHahHe/evXvr1q1QBw1i4aezF0bPnHlf Z/TSU7aOIykTppBlYGDh6EinxgApEM3C9Xrdv1M4NQtfPusy5TAFf5dj19xG xsN+WQ08emUnFshNA4uF0/kUQlxpHOjbK+saTsXCFMmSYcmn33333X+b/EWH 4l/maIJe0CJbbyWjXWhHsjNF06EO6m/h2Qvvc1yY1dY9vTRqrTljijkmsxfO 2HmywwwQWDgqaTzJCMiJZuGXL18GtrCvf3kMF4e1cJ/W4xCwQDKLQeSA3BSK dD6FwVmYvsOqLEyeLZVK3377LUW4FCC2dOiUaJFW0ibBwrR74hZmciQt8qpl Fh69cElvF08mcn36VM9MzxkWzj618bHxcdZlCgcPiPxa+Oxla0WFtWPGVYAr 38yQXQsn/SmcFgt/8803ZNs7d+5YDeP0ghZp5dWrV61wOG0LC1Y0LJxMECwe DxbOBebg4TEoeGAUwsL8aveGymVuuNXw8FnPNlM/C7uiP1lSFlBrWzgp0WFd TbX+uXlHm+4dAp2b+X7Y52W8Ic5TC3YJYT6FijDmTWy6DnOl/rkFQJWF/2JC qiURLy4uUhTM8m82m2RhWkmbrl27xpLBwjGBhUH2GayFlzbOvcN1Fru7jONY 2Bqa1NdOerXNhVohBBDGwp9Lxnk5k6ux8OWz7vMaEoLPYJcQ/FOQjXlzHjTM lfrnFgAlFqbYlkLdb3T+S+f27du//vory39jY2NhYYFWXrlyhTmaNU0nb2Fn jzDfBeyyMLmacLqTEtG6sKruY2E2Smw0FUPDwiD7FMnCZgVt1ce2EMwKumJY KJoAxAN5W5h5wTyu7OdBsNwcJxnMM/1yM4efud8QPvNglxD4U6AVZ/Vo1T6A V7NFkCsNk5snA7bwzZs3y+Uy6w62LPzVV1+RhUm+loVpkVbSJpaGEtMutKM6 CxtrOHtGc3A/C1tDwtLQMCwMsk+hLGxaxtgkH23lbang/cJBLOzY2Fcug7Kw 1xYx92CXEPRTCHdF0fqFQ+81YAvfuHFjbm5uenr61q1bbC6OBZ1Hjx41m80T nVarRYtsPZvfgxLPzMzQjiRxdS3STu1GblgOFQs/7UuYw8LCIPsU2MJeQ549 h0InaGG5+tVa2O/nh9CE4HcJ8Szs9YZEs3Do0e0DtjD5l+LZ+fl5Ou7m5maj 0VjXIfOSKd7o9Ho9WmTrKQElo8S0C+1Iu6vsF7Y9zF5FillD6Fs7yvvehDo+ LAyyTxEtbNTG/duaT5+FvTMRzi4ZCzu7mrURcgFmRAl2pYFz82TAFr5+/TrF s/xYLAaFwORfloxeCM+YoMR3796lHaemptSOzmKJR0djjN0KY+HZSxf6EeYE YGGQfQplYWePJCwcNJNkLezqFw5zZ7H/lSZyn7IqC9Oh+Tzfvn3LW5gW+a2U OCMWZsO0Yk3lgTHSAHhQJAsL1X/oZsqCW9j7HIQLj2dhUcL22KlKn9yCXmm4 3DxR2CLdaDSazeaGjrtFmq2nBJQsKy3SXXtAV8Tm6C4sDIAnA75fuDEz+avr j3syUwwLm2OKgrSZhslXRi4t7NVfKxnTHN3Crk/Blbu5dyQLh8zNE4Wjs+7o LCws3L59+9GjR2ReNjqLzooWaSUbnUVkY3RW17hfafTSbJy7icNYmM225UmY 8VmwMMg+RZi1w3PSJuvGHH5SB5bauz8zixa23eY/O0WA8duyO5X4SbAiWdjr U7Am565Y6eyZQDyGznlfabjcPFF1pxKboJLwulPp66+/pvUsDSVO5U4lw4pB LcxW6imj3qbUxegsP/o9TVFFPmCA5NfCErwrdRcRLNyvnzlsIBk0t77J+00o 4pGbx/vhPGAYCwc4e/nEKcP9m8fDXal3bh4otDCbHevKlSts1o7NzU2W//r6 OkXBpGB+1g71FhbEy2QawcMh7lTKwuisuvbMYPvJvuIThZMnkxYWnuCLSS1T In0Lp/9MJeNZPl6NmMIDg73nO8yyhd3XEcnCrnxk70Y0C/f5FNxziFbY7nJv 9r3S0LlJUWJh/oFK1gyWW+Z4LTaPNHO0NdElJVZrYXcyY7x0WA/nadaOepn5 d2Ji0oSMfOosrD9eWHPvOP0eNHWMxw2nQB4tDEBMsmBh9jSHZrPJ8qegmFJm y8JydcqmtfQlPzNYMgdPVushP+d4ZNHCpF9H8KtrGQ9aSp5oFl5bW/O3MABZ hb699B1WaGHryYZWOWJPNmRTXA7AwlLwNIdXqnpWM2hhN7qGEQ0nTjQLU6VR q9WU1qMARIeUZz1GYQAWnpubI8NOTU19Z8JcPD09PT8/f1eHXtAirbx27Zrw fGHaPaMW7j/VJD+YuSgW1rdOlMVAmVtt7q/1LBtdyhNGdo5Vzjyso9bLdpoJ SUTu7LCmbKryfOz0doZ8jnWPK+kHLJwO0Sx8eHh4//591VUpABFZXl5ut9uD sfDCwsLi4mKlUiERf89BQS7pleLcGzr0ghbLTigZ7Ui7076hDhrPwrPB5mue vTDqAxtZrZEfCzORkZ/kbdJSefHuY6+1rmQyZNV0IGWntXTr68qGR3lZWnv9 2d7PleiVYXFKwSfhz8ZpYda6buaonYqVNoKF9UcPo0U6eaJZmHjw4EGj0fCv 7wDIHvTtffPmzcAsTJEsRbvMuTw3b96cmZm5rkMvaFFIQLuQgimapkxCHTSO hYUHLcWEdUBHuMkoEaKNkbaGZ4mRpobEXg71MYnz9jTW8DsZerRXGGkk+do5 sSM7w3QxI8ep6BvDhbt9QLdwWkS28C+//PLixQvVtSkAoanX6z/++GPYr3xk C1MUQvHsvXv3SKY/hIR2oR2XlpYok1AHjWhh/h4hioiT8ODTSxFvMkqEyPcL cw25YuOxy23O+NPL0s6o1hwD9sp7LyGVuIf8dNKysB4Hw8HpENnCx8fHT548 QTgM8kWz2aTv7eHh4cAsrIRoFi4eMWftsF3Mu0yQm9AVK+lXltnQfy9rtbO/ 2YU7EhdapOUxfXBqpTEoOE0iW5igL/njx48hYpAXSMErKytbzkcqwMIFJom5 s4wxVWJ7srmsec87MnanlydLx8KvxBFhoWVsGbgEBadGHAuzqolEvLa2prp+ BcCHer1O39UtTwXDwgUkoRksRY1yy6KEU7AwWx3RwsYZWDIOcxcTmqEHQ0wL E0dHR8+fP69Wq8vLy88AyB61Wo2+n/TCoyEaFi4sSc0jLcrN8qpLwnEs7OrC 5ddG6BeWpQyuYQyJHhTxLcyg+q3dbq+vr78EIEvQd5K+4QcHBwG+xbBw0Qhv 4XrZ3W4r0xfTb9kl4TgWlo7gEjqgpWOkvWLquvcNVb5oQ6Lh4IGQlIUByD+w cNGIYmFhEukJ9/AsHfP+I9FqcWLhCfOWYum9wPb9TM77hd33HXPN08bNwuxu YU7ifvcLG63RYxKg5oSBhQEwgYWLRpQW6bqlN0PH2oRTEllJ7j+yVkfuF+an zpIOpnLMneWeXct5p5Jzni1HYj8Ls2c5SMHsWQkDCwNgon3lz12cMlnlv/2w cB5J8/nCeJQvSAbRwqurVh108RwsDE4Vq/Sl57gIC+edFC3sHpcFQCRcFnZW Q1OwMAAasHAeSc3CyU4OCU41fVqkAQAWsHAeSdzC2hBqc6ATHAwSARYGIAiw cB5JwcLmnJBQMEgIWBiAIOTRwu++++5vTzfvvfdeaqOzAEgGWBiAIOTLwl9+ +aXnjSanD1gYZBlYGIAg5MvCL168mAEmDx8+VP2BAOAJLAxAEPJlYQBAXoCF AQgCLAwASANYGIAg7MHCAIAU2NMqlz3VNRwAWWdPR3V5BQAUDb1qQSwMgA+7 sDAAIAXYL3zVNRwAWadN5aQNCwMAEmav3YaFAfClvddGLAwASJy2juoaDoCs Q8WEfrKqLq8AgKIBCwMQhHZHKymqyysAoGhQxdKBhQHwo92hgtJRXV4BAEWD HAwLA+ALFRRCdXkFABQNLRbudFTXcABknU4HFgYAJA+rW1TXcABknU6n3e10 VZdXAEDR6FDN0u2qruEAyDrd7n630zk4OFBdZAEAxYGqFAqEu72e6hoOgKxz eHjY7Xb2e/uqSy0AoDjs7+9TIEzVi+oaDoCsc3Jyov1k7XYRDgMAEoEqE6pS Ou0OVS+qazgAcgD9Xu11uxAxACA+uoJ7eiD8WnXdBkBu2N/f73W1/9ELuBgA EAGqOrSG6B4puEeLqms1AHIGlRr6+drTZdzTX2kveuz/tGV9A/un/dLVt5gY e/XYa2NVl+2KP/zhL/N/Rtk1SrxVitkCW9s1k/aM0m3vYu2hr+2gOxiAaJyc nLw+fH2gD6uwCxxTrFE8Tfv2bCwFm6WVlekeACBfdA0d98zf0Pw2879dS9Vm QTeqhd7BQe/w9Wv0BQMAAAAAAAAAAKH4f5GT1ng= "], {{0, 48.}, {321., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{321., 48.}, PlotRange->{{0, 321.}, {0, 48.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[895057]}, CellChangeTimes->{ 3.753750756339943*^9, {3.753750964960413*^9, 3.753750984866788*^9}, { 3.753751073382*^9, 3.753751095684307*^9}, 3.7537521705495415`*^9, 3.7537522335195646`*^9, 3.753752364288457*^9, {3.7537527836262836`*^9, 3.753752812537376*^9}, 3.7537551119621115`*^9, {3.753756086526687*^9, 3.753756110494932*^9}, {3.7537564044706984`*^9, 3.753756415004367*^9}, 3.753756596073654*^9, {3.753757079498495*^9, 3.753757090242156*^9}, 3.758648026250156*^9, 3.7586481921609993`*^9, 3.7592564990446844`*^9}, CellLabel->"Out[24]=", CellID->811237017] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Put", "[", RowBox[{"data", ",", "\"\\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"FilePrint", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.753750747032261*^9, 3.753750769764538*^9}}, CellLabel->"In[25]:=", CellID->300410286], Cell["\<\ ResourceFunction[\"DefinitionData\"][<|\"Name\" -> \"MyContext`f1\", \ \"Definitions\" \\ -> \\ ByteArray[\"OEM6eJxzZNIN5vGtdM7PK0mtKElIM3Rk1C3mcskvzwtLzClNLU5jLGbxySwuSWMq5\\ g4qzUl1Sc1JrExNAQpze+TnpAQklpSkFuUBuSiGAFWzQ6WKOdxz8pMScxIq0hiKWZ1yEvOyUVWng\\\ 1SzBuSXpxYh1DqjOiudGs5KJ+QsLM5gBgB8DGEY\"]|>]\ \>", "Print", TaggingRules->{}, CellChangeTimes->{ 3.7537507703435287`*^9, 3.753751105632971*^9, 3.7537521707735343`*^9, 3.753752233637561*^9, 3.753752364424452*^9, {3.753752786268201*^9, 3.7537528126433716`*^9}, 3.7537551131480675`*^9, {3.7537560893416*^9, 3.7537561105849285`*^9}, {3.7537564045976934`*^9, 3.7537564151183543`*^9}, 3.7537565961986494`*^9, {3.7537570796264668`*^9, 3.7537570908941107`*^9}, 3.7586480286970773`*^9, 3.758648192244996*^9, 3.7592564993246784`*^9}, CellLabel->"During evaluation of In[25]:=", CellID->441011439] }, Open ]], Cell[TextData[{ "Changing ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$Context", "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/$Context", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$ContextPath", "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/$ContextPath", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " will not affect which contexts the contained symbols are created in:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7537511241004066`*^9, 3.7537511609932575`*^9}}, CellID->694627336], Cell[BoxData[ RowBox[{ RowBox[{"$Context", "=", "\"\\""}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[27]:=", CellID->599921392], Cell[BoxData[ RowBox[{ RowBox[{"Remove", "[", RowBox[{"MyContext`f1", ",", "MyContext`f2"}], "]"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7537511859164753`*^9}, CellLabel->"In[28]:=", CellID->400739482], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537511636971645`*^9, 3.75375116673205*^9}}, CellLabel->"In[29]:=", CellID->522189109], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc1vHEd6h4nk4mNuPufi/4AAs8AC1sFY5LpBToaFmIy1yMULaAMEua1i 33jRhYDhQ3QVFVsea2OKlMixSDmiMJQEjTgSJdNWZHFIc2b4NR+kKJFU8nZX f1RXV09/T3U3f89S3unu6urumal65q2qrv7b0T/+/txfDQ0N/ekd+s/vP/63 M+fPf/zv//A3tPCPn/7pX/7w6Sf//Pef/usnf/jk/MjoX9PKf6J//0Hptdf/ BwAAAAAAAAAAAABODcfHx91ud2t7q9VqNZv019Rf8AiLWgpxa8tI1HInBgBk FmdRdhVsWSL9H/s/qiu2t7epAqFqRHVNBkAuoeLTaDSEctgySiMzslU4W8af YV2rZNovW01HQvzhD39Z/mvxhm3ZL5vG7+yWYdqmsF5P23JImSqRTqfz9u1b 1VUaAHlib2+PFT160ev1Dg4OXgEAQGCo0qCqgyoQXemt3d1d1bUaALmBomD6 EbvV2trf31ddlAEA+YaqEapMKECmikV13QZADjg+PmLNS1AwACARqDJhQ0rQ RwyAL71ej8rL3t6e6oILACgOWtN0q0XVi+oaDoCss729vbWlFRbVpRYAUBz2 93v6qGn0DgPgA+sRVl1kAQBFo7WlDdRSXcMBkHW2NFqqyysAoGi09MpFdQ0H QNbZ0ouK6vIKACgaW7AwAAHQysk2LAwASBiqWGBhAHzZ1oZnbasurwCAoqH/ wIeFAfCBCso2YmEAQNLQz3v6U13DAZB1drRgGLEwACBhWN2iuoYDIOtQMdnZ 3lFdXgEARWOHNLyzo7qGAyDr7OioLq8AgKKxDQsDEICdnV1YGACQOOwXvuoa DoCss7MLCwMAkmcXFgYgALuahXdVl9egdAGH6k8D5JlaaWxkSGeslM4RdrWf +JhHGgAfdnXSKYXJc/Xq1d8Ck88++yzMm1ed/LPGRLnuvXmymsjnlC6lMV0e I+O1AKkiKKamCWrEUJTBSFqqShv9bXCfPHt3RsbGS+P0T9ioCzr+BbO6RXUN B0A2WOVxbMmXhb/44oshYPLRRx+FefMMC3t5OHcW7q9hM1FImdTGTfuOjFlo Sk7ewuS/EZ9fEonkqV+S8/TZVUouqaZlEOmNk+C2sHc9BECxWb34m6Gh31ic m+K25dHCH3zwwdTp5vz58xEtPDEx4eHh/Fm4jyl0zejxbBiZGAoeGS8l60bv gyVsYa88tfX8alk66/fHyNiIh6NDIlp46pxdCVGFdBEeBqcHsrDnVz6PFv7w ww9Vd8kqhr0PUSw8Wa2X5R7OmYUpRPUOh7kUwWXC5D6wludBWjhIOlqnNVDX +kTKIenTIt2vSgKggMDCRSOOhc2maVG4EgvXq+VJPXZmDdmT5WpdskO9Ojlh JakaO3KrJHG3tp3Ll8+2zkJ2j85rHaOr01M55ga+S7Qkd7a9OpR69I5jq2fA kJfrBLVMx+wGbvvgdjBvZcEHqnzmI2MlYTdZ27J5sZ55CufWPxksDEDSwMJF I56F5R52WZglIouWq1VNx2KXMtthknw66UhR1YJtfZ3pcMHtLBi39nKG5sEt 7GULy86OgUlSDXMpPEYxSQ8/Ymh1vFTSO2JFmbG8xrVmYM3QrjS1GtuRCVzH 3NmwKltv7GdnLXrYcnDfPJ3vjiudtP0aFgYgSWDhohHXwjIPuy1cdgSphj3t FMZoL24Xc/wX51BX+7fZLi6eWF/vOrGFKVOn11aJhkUJB2kfZgk9AlI+jZCd K5CVhfJmlO86njNrc9F10nFapMXLgYUBSA5YuGjEt7Dbw/79wrpRbVtK5CmJ sQV3aylcwg3ZJc3J06UTfoXgaFdaV4u1v3i8BOXMW9rDLCpTYkIticuNsqvQ lyU/HApr4ZOTk3a7vb6+vra29hIA1dD3kL6N9J08Pj6GhU8nSVhYdKZUhXWt zVhvdbb6eZ0WljQ2C5KVhOBSggfDvJcEYzj0IppVcI+7wdpfPJ7J/DMTzec2 obtrV95vbDRaS0RaQAtTDrVarVKpPHz48BkAWYK+k0tLS9VqtdlswsKnjWQs 7PSwuNkaYUUGJg+Xy6znNwELT2gdwm4itEiLS95bdFyOtkUU0F/pW3jE6NQV EBqu2egt7y5xH3Jh4aOjo59//nllZWVjY2MLgKyyubm5urpKUj48PISFTw9J WZhvVnZult3PJGuRjmbhwMKV4tXSLNrDLUPOPmLrb7CO4UFY2M+h9sQiBY6F 37x58/jx45cvX6quYgEIRL1ef/LkSa/Xg4VPCclZ2Bajc7MssaDQKBYWR3hF wqOludSv39eZtCbpghWHWEkJ0S8c3sKB7Gclkp1vcSz8008/ra2tqa5ZAQgB BcUk4pOTE1j4NJCkhR2Tajkt7PBpVbxXKYqFDQ2Lp1Evl0OI2S05q0fVvVaU CdPvuGwclPfUWbWSNdmy9xjpfkH4Kw8LS0J115618XFn3G/m4s4hqD8zbuHt 7e1nz56prlMBCM3z588pKIaFTwPJWpgbNOW6D4m7F3hiMn6/8CvLw9yNyA79 h7hfmEPqL3nzcd8JpkvcLBvWJNJCcvM+JOf9wnx2gSzMSb80borfbG12Zm5m 5Qp/5bc/CXlKyLiF6WvRaDRUV6gAROHBgweygdOpWJhKytLS0v379+/cufM/ IaFdaMd79+5RJqEOCgszkrawpUZ+MzcBFpvfKoF+YTPnsp21Nn8HNzIrmoVd MyV7pXslUZdAzTIrE6JraixxequRsVKAA0vMZ0+txcfI9gMVnJlLm8wlHpbk 6brEDFv46OiIagbVVWkqVC5/fnZ4eMhm+POKmObyWS3B8Fn3lihkObeiQlKT 9Q6nYuGFhYUffvhhcXFxdnb2psmszo0bN6anp6/r0AtaZOv5ZLQj6Xh+fj7U QWFhRiQLA0bwWbJALKJZeGdnZ3l52aemm/n4f3/3jvn3dxuP+qeeXLMTv/PL fy4lVuGGofI5718PC9uJJIKOccg+uek/DYIcLtlzU0DgK43HyspKo9EYjIVJ oGTSSqXy/fffl53Mzc0xFzP/0qKQgHahHe/evXvr1q1QBw1i4aezF0bPnHlf Z/TSU7aOIykTppBlYGDh6EinxgApEM3C9Xrdv1M4NQtfPusy5TAFf5dj19xG xsN+WQ08emUnFshNA4uF0/kUQlxpHOjbK+saTsXCFMmSYcmn33333X+b/EWH 4l/maIJe0CJbbyWjXWhHsjNF06EO6m/h2Qvvc1yY1dY9vTRqrTljijkmsxfO 2HmywwwQWDgqaTzJCMiJZuGXL18GtrCvf3kMF4e1cJ/W4xCwQDKLQeSA3BSK dD6FwVmYvsOqLEyeLZVK3377LUW4FCC2dOiUaJFW0ibBwrR74hZmciQt8qpl Fh69cElvF08mcn36VM9MzxkWzj618bHxcdZlCgcPiPxa+Oxla0WFtWPGVYAr 38yQXQsn/SmcFgt/8803ZNs7d+5YDeP0ghZp5dWrV61wOG0LC1Y0LJxMECwe DxbOBebg4TEoeGAUwsL8aveGymVuuNXw8FnPNlM/C7uiP1lSFlBrWzgp0WFd TbX+uXlHm+4dAp2b+X7Y52W8Ic5TC3YJYT6FijDmTWy6DnOl/rkFQJWF/2JC qiURLy4uUhTM8m82m2RhWkmbrl27xpLBwjGBhUH2GayFlzbOvcN1Fru7jONY 2Bqa1NdOerXNhVohBBDGwp9Lxnk5k6ux8OWz7vMaEoLPYJcQ/FOQjXlzHjTM lfrnFgAlFqbYlkLdb3T+S+f27du//vory39jY2NhYYFWXrlyhTmaNU0nb2Fn jzDfBeyyMLmacLqTEtG6sKruY2E2Smw0FUPDwiD7FMnCZgVt1ce2EMwKumJY KJoAxAN5W5h5wTyu7OdBsNwcJxnMM/1yM4efud8QPvNglxD4U6AVZ/Vo1T6A V7NFkCsNk5snA7bwzZs3y+Uy6w62LPzVV1+RhUm+loVpkVbSJpaGEtMutKM6 CxtrOHtGc3A/C1tDwtLQMCwMsk+hLGxaxtgkH23lbang/cJBLOzY2Fcug7Kw 1xYx92CXEPRTCHdF0fqFQ+81YAvfuHFjbm5uenr61q1bbC6OBZ1Hjx41m80T nVarRYtsPZvfgxLPzMzQjiRxdS3STu1GblgOFQs/7UuYw8LCIPsU2MJeQ549 h0InaGG5+tVa2O/nh9CE4HcJ8Szs9YZEs3Do0e0DtjD5l+LZ+fl5Ou7m5maj 0VjXIfOSKd7o9Ho9WmTrKQElo8S0C+1Iu6vsF7Y9zF5FillD6Fs7yvvehDo+ LAyyTxEtbNTG/duaT5+FvTMRzi4ZCzu7mrURcgFmRAl2pYFz82TAFr5+/TrF s/xYLAaFwORfloxeCM+YoMR3796lHaemptSOzmKJR0djjN0KY+HZSxf6EeYE YGGQfQplYWePJCwcNJNkLezqFw5zZ7H/lSZyn7IqC9Oh+Tzfvn3LW5gW+a2U OCMWZsO0Yk3lgTHSAHhQJAsL1X/oZsqCW9j7HIQLj2dhUcL22KlKn9yCXmm4 3DxR2CLdaDSazeaGjrtFmq2nBJQsKy3SXXtAV8Tm6C4sDIAnA75fuDEz+avr j3syUwwLm2OKgrSZhslXRi4t7NVfKxnTHN3Crk/Blbu5dyQLh8zNE4Wjs+7o LCws3L59+9GjR2ReNjqLzooWaSUbnUVkY3RW17hfafTSbJy7icNYmM225UmY 8VmwMMg+RZi1w3PSJuvGHH5SB5bauz8zixa23eY/O0WA8duyO5X4SbAiWdjr U7Am565Y6eyZQDyGznlfabjcPFF1pxKboJLwulPp66+/pvUsDSVO5U4lw4pB LcxW6imj3qbUxegsP/o9TVFFPmCA5NfCErwrdRcRLNyvnzlsIBk0t77J+00o 4pGbx/vhPGAYCwc4e/nEKcP9m8fDXal3bh4otDCbHevKlSts1o7NzU2W//r6 OkXBpGB+1g71FhbEy2QawcMh7lTKwuisuvbMYPvJvuIThZMnkxYWnuCLSS1T In0Lp/9MJeNZPl6NmMIDg73nO8yyhd3XEcnCrnxk70Y0C/f5FNxziFbY7nJv 9r3S0LlJUWJh/oFK1gyWW+Z4LTaPNHO0NdElJVZrYXcyY7x0WA/nadaOepn5 d2Ji0oSMfOosrD9eWHPvOP0eNHWMxw2nQB4tDEBMsmBh9jSHZrPJ8qegmFJm y8JydcqmtfQlPzNYMgdPVushP+d4ZNHCpF9H8KtrGQ9aSp5oFl5bW/O3MABZ hb699B1WaGHryYZWOWJPNmRTXA7AwlLwNIdXqnpWM2hhN7qGEQ0nTjQLU6VR q9WU1qMARIeUZz1GYQAWnpubI8NOTU19Z8JcPD09PT8/f1eHXtAirbx27Zrw fGHaPaMW7j/VJD+YuSgW1rdOlMVAmVtt7q/1LBtdyhNGdo5Vzjyso9bLdpoJ SUTu7LCmbKryfOz0doZ8jnWPK+kHLJwO0Sx8eHh4//591VUpABFZXl5ut9uD sfDCwsLi4mKlUiERf89BQS7pleLcGzr0ghbLTigZ7Ui7076hDhrPwrPB5mue vTDqAxtZrZEfCzORkZ/kbdJSefHuY6+1rmQyZNV0IGWntXTr68qGR3lZWnv9 2d7PleiVYXFKwSfhz8ZpYda6buaonYqVNoKF9UcPo0U6eaJZmHjw4EGj0fCv 7wDIHvTtffPmzcAsTJEsRbvMuTw3b96cmZm5rkMvaFFIQLuQgimapkxCHTSO hYUHLcWEdUBHuMkoEaKNkbaGZ4mRpobEXg71MYnz9jTW8DsZerRXGGkk+do5 sSM7w3QxI8ep6BvDhbt9QLdwWkS28C+//PLixQvVtSkAoanX6z/++GPYr3xk C1MUQvHsvXv3SKY/hIR2oR2XlpYok1AHjWhh/h4hioiT8ODTSxFvMkqEyPcL cw25YuOxy23O+NPL0s6o1hwD9sp7LyGVuIf8dNKysB4Hw8HpENnCx8fHT548 QTgM8kWz2aTv7eHh4cAsrIRoFi4eMWftsF3Mu0yQm9AVK+lXltnQfy9rtbO/ 2YU7EhdapOUxfXBqpTEoOE0iW5igL/njx48hYpAXSMErKytbzkcqwMIFJom5 s4wxVWJ7srmsec87MnanlydLx8KvxBFhoWVsGbgEBadGHAuzqolEvLa2prp+ BcCHer1O39UtTwXDwgUkoRksRY1yy6KEU7AwWx3RwsYZWDIOcxcTmqEHQ0wL E0dHR8+fP69Wq8vLy88AyB61Wo2+n/TCoyEaFi4sSc0jLcrN8qpLwnEs7OrC 5ddG6BeWpQyuYQyJHhTxLcyg+q3dbq+vr78EIEvQd5K+4QcHBwG+xbBw0Qhv 4XrZ3W4r0xfTb9kl4TgWlo7gEjqgpWOkvWLquvcNVb5oQ6Lh4IGQlIUByD+w cNGIYmFhEukJ9/AsHfP+I9FqcWLhCfOWYum9wPb9TM77hd33HXPN08bNwuxu YU7ifvcLG63RYxKg5oSBhQEwgYWLRpQW6bqlN0PH2oRTEllJ7j+yVkfuF+an zpIOpnLMneWeXct5p5Jzni1HYj8Ls2c5SMHsWQkDCwNgon3lz12cMlnlv/2w cB5J8/nCeJQvSAbRwqurVh108RwsDE4Vq/Sl57gIC+edFC3sHpcFQCRcFnZW Q1OwMAAasHAeSc3CyU4OCU41fVqkAQAWsHAeSdzC2hBqc6ATHAwSARYGIAiw cB5JwcLmnJBQMEgIWBiAIOTRwu++++5vTzfvvfdeaqOzAEgGWBiAIOTLwl9+ +aXnjSanD1gYZBlYGIAg5MvCL168mAEmDx8+VP2BAOAJLAxAEPJlYQBAXoCF AQgCLAwASANYGIAg7MHCAIAU2NMqlz3VNRwAWWdPR3V5BQAUDb1qQSwMgA+7 sDAAIAXYL3zVNRwAWadN5aQNCwMAEmav3YaFAfClvddGLAwASJy2juoaDoCs Q8WEfrKqLq8AgKIBCwMQhHZHKymqyysAoGhQxdKBhQHwo92hgtJRXV4BAEWD HAwLA+ALFRRCdXkFABQNLRbudFTXcABknU4HFgYAJA+rW1TXcABknU6n3e10 VZdXAEDR6FDN0u2qruEAyDrd7n630zk4OFBdZAEAxYGqFAqEu72e6hoOgKxz eHjY7Xb2e/uqSy0AoDjs7+9TIEzVi+oaDoCsc3Jyov1k7XYRDgMAEoEqE6pS Ou0OVS+qazgAcgD9Xu11uxAxACA+uoJ7eiD8WnXdBkBu2N/f73W1/9ELuBgA EAGqOrSG6B4puEeLqms1AHIGlRr6+drTZdzTX2kveuz/tGV9A/un/dLVt5gY e/XYa2NVl+2KP/zhL/N/Rtk1SrxVitkCW9s1k/aM0m3vYu2hr+2gOxiAaJyc nLw+fH2gD6uwCxxTrFE8Tfv2bCwFm6WVlekeACBfdA0d98zf0Pw2879dS9Vm QTeqhd7BQe/w9Wv0BQMAAAAAAAAAAKH4f5GT1ng= "], {{0, 48.}, {321., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{321., 48.}, PlotRange->{{0, 321.}, {0, 48.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[895137]}, CellChangeTimes->{{3.7537511672820587`*^9, 3.7537511890373487`*^9}, 3.7537521713314915`*^9, 3.7537522339025283`*^9, 3.75375236482444*^9, { 3.753752789883078*^9, 3.7537528129053636`*^9}, 3.7537551173119445`*^9, { 3.7537560938014317`*^9, 3.753756110784897*^9}, {3.753756404783662*^9, 3.753756415312357*^9}, 3.753756596357661*^9, {3.7537570798374834`*^9, 3.7537570910671296`*^9}, 3.7586480415256796`*^9, 3.758648192380992*^9, 3.759256499599668*^9}, CellLabel->"Out[29]=", CellID->384777926] }, Open ]], Cell["Load the definitions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.75375121155664*^9, 3.753751213837596*^9}}, CellID->542036084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537511685990095`*^9, 3.753751170068964*^9}}, CellLabel->"In[30]:=", CellID->86388896], Cell[BoxData["MyContext`f1"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7537511939422007`*^9, 3.7537521714955044`*^9, 3.753752234247542*^9, 3.7537523649674344`*^9, {3.7537527922500134`*^9, 3.7537528130333614`*^9}, 3.753755118598897*^9, {3.7537560957783947`*^9, 3.7537561108829203`*^9}, { 3.7537564049216576`*^9, 3.75375641541033*^9}, 3.7537565964286585`*^9, { 3.753757079924474*^9, 3.75375709116612*^9}, 3.758648044198596*^9, 3.7586481924659886`*^9, 3.7592564997356653`*^9}, CellLabel->"Out[30]=", CellID->752933365] }, Open ]], Cell["The symbols are redefined in their original contexts:", "Text", TaggingRules->{}, CellChangeTimes->{{3.75375121155664*^9, 3.753751232676997*^9}}, CellID->191259555], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyContext`f1", "[", "5", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537511979090734`*^9, 3.7537511982330875`*^9}}, CellLabel->"In[31]:=", CellID->619261498], Cell[BoxData["15625"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.753751198706071*^9, 3.753752171660507*^9, 3.7537522343795357`*^9, 3.7537523650894313`*^9, {3.7537527940299563`*^9, 3.7537528131473565`*^9}, 3.753755120190827*^9, {3.7537560971193295`*^9, 3.75375611097392*^9}, { 3.753756405025655*^9, 3.753756415559351*^9}, 3.753756596514667*^9, { 3.753757080026453*^9, 3.753757091251115*^9}, 3.7586480472925005`*^9, 3.7586481925379868`*^9, 3.7592564998666596`*^9}, CellLabel->"Out[31]=", CellID->948632712] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell["\<\ Some contexts (such as System`) are excluded when including definitions:\ \>", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[915233]}, CellChangeTimes->{{3.7537513820142856`*^9, 3.753751397547827*^9}, { 3.7537515355244827`*^9, 3.7537515390213566`*^9}}, CellID->385742821], Cell[BoxData[{ RowBox[{ RowBox[{"a", ":=", RowBox[{"{", RowBox[{"b", ",", "Table"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", ":=", RowBox[{"{", RowBox[{"MyContext`c", ",", "CloudObject"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MyContext`c", ":=", "1"}], ";"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537514179061594`*^9, 3.753751455973988*^9}, { 3.753751490669892*^9, 3.753751512785205*^9}, {3.753751549705039*^9, 3.7537515773721714`*^9}}, CellLabel->"In[32]:=", CellID->73888628], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefinitionData", "[", "a", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.753751398718782*^9, 3.753751403932601*^9}, 3.753751517435059*^9}, CellLabel->"In[35]:=", CellID->499299305], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnctvHEd+x4nk4mNuPufi/4AAs8AC1sFY7HWDnAwLMRlrkYsDaAMEua1g 33jRhYDhQ3QVFVumtWtKlMixRDmiMJQEjTgSJdNWZHFIc2b4mgcpSiSV/Lqq H9XV1dPPmepufj8e2zPd1dUznK76zK9e/fej//aHM38zNDT0p3foP3/4+D9O nT378X/+49/Ri3/69E//+sdPP/mX33/675/88ZOzI6N/Sxv/2UhF6Y3n/wcA AAAAAAAAAABQII6OjjqdzubWZrPZbDTo0WBPRKSXRgp5b9NM1PQmBgDYuIuO pyCpErF/+f+obG5tbVGBpWKru+YAIJdQ8anX61I5bJqlkRvQLpxN82Fazi6Z ztNmw5UQDzzwEB9N0WhN52nD/B3ZNM3WkLaztE2XBKnQttvtt2/f6q5CAMgT u7u7vOjRk263u7+//woAkGGokFJRpQLLFNrc2dnRXYsAkBsoyqMfjZvNzb29 Pd1FGQAQDSq2VHgpAKSCrLsuASAHHB0d8uYTKA+AnEKFl3fBo48PgEC63S6V l93dXd0FFwAQH6Ops9mk4qy7RgEg62xtbW1uGoVFd6kFAMRnb6/LRnWidw+A AHiPnu4iCwBISnPTGNiiu0YBIOtsGjR1l1cAQFKarDDrrlEAyDqbrKjoLq8A gKRswnoAhMAoJ1uwHgC5hwoyrAdAIFvGcJYt3eUVAJAU9gMW1gMgACooW4j1 AMg/9POVHrprFACyzrYR7CHWAyD38LKsu0YBIOtQMdne2tZdXgEASdkm7W1v 665RAMg62wzd5RUAkJQtWA+AEGxv78B6ABQA/gtWd40CQNbZ3oH1ACgCO7Ae ACHYMay3o7u8hqUDBHR/G5lnamxoaGhsqs+H9CmT6OwYP2GxDicAAewwBl0+ 43L58uXfAovPPvssyh+vMvlng4lSzX/3ZCWV72lAVKfGx0ZGhmxGRkbGxqeq 9v5sWG9gDuRlWXeNAkA2WBFx7cmX9b744oshYPHRRx9F+eOZ1vPzXs6sVx03 dUemMzE3OILJhvXM99p/73mt51/uASg2K+d/MzT0G5sz08K+PFrvgw8+mD7Z nD17Nqb1JiYmfLyXJ+tNMcONjAlxnUl1iqI9J1k2rPeKi29k3PN2U0W23vQZ p9BTBXAe3gMnB7Ke7yWfR+t9+OGHurvUNMP/DnGsN1mpldTey4/1mFTCqClD 1hsEPVo4e1UBABQQWK9oJLGe1dQpC05hvVqlNMliQ94wOlmq1BQH1CqTE3aS inmgsEkRVxr7hXzFbGs8JPXpfHxlNW2GcorKPhQMCl2B7n5A8ZDquNViarSh ykGlu0dRziWM9XrnEAtYDwALWK9oJLOe2nse6/FEZK1SpWLoT+4S5AdMkr8m XSkqRjDJtlnOlFzKg037KHfoGWQ9Jr2QbYUe+/CWUcMx41NTtnbE3PghRh8h GxnjJHJn485FnUkv6wXlEAtYDwALWK9oJLWeynte65VcQZhpKyeFOTpGOMQa LyM4y9OearWzym+sR3TnIkrroZSWvRzx9reJwuE6kgwkN6mSp1yRmRx+hrBe QA6xgPUAsID1ikZy63m9F9yvxwzm2EkhK0UMKbnSSOERXJQuRWWr5bgwfcFv zoCfWNzBIzejHHUFSUkKQGP060UJYf1I0XrHx8etVmttbW11dfUlALqh65Cu Rromj46OYL2TSRrWkx2lVE/NaINkrZh2P53beorGS0lqihBTSchgT91XN25N XhjxtZ6visKk8sqwOsVPOmJ3zkW1Xq8cYpGK9SiHarVaLpcfPnz4DIAsQdfk 4uJipVJpNBqw3kkjHeu5vSfvtkekkPHIe6US77lLwXoTRoeel3AtnL2Doh7z w9OzXtXsHmSz4seMvjnWMxfBeoE5xCKh9Q4PD3/++efl5eX19fVNALLKxsbG ysoKSfDg4ADWOzmkZT2xmdK9WzW/QdXCGc964QSnRt0GKe7sl/X4Zrkn0N4W 2nohcohFEuu9efPm8ePHL1++1F2lARCKWq325MmTbrcL650Q0rOeIyL3blVi SVlxrCePiImDShoWPayXpF9P3KpSmnRUgPVC5BCLJNb76aefVldXdddkAESA gj4S3/HxMax3EkjTeq5FW9zWc/mrIs9diGM9U3vy26iVSlFEaI5eUUii5wqY /mM4pTSSk9ya9fppSp55EMZ6vXOIRWzrbW1tPXv2THcdBkBknj9/TkEfrHcS SNd6wiATz7wEYS7exGTyfr1XtveEiYAu3QbOUudYHWPiMpzWoBD/dZ+teQnu +XqeFGx8iXu6niAkJxNrrt3IWLR+veAcYhHbevQ11Ot13RUYAHF48OCBamBn X6xHJWVxcfH+/ft37tz5n4jQIXTgvXv3KJNIJ4X1OGlbz1aRuFtYYIWvn5JC v56Vc8nJ2pivLoxkCWk9A+8tF4wVTlwhlGq8p7gkimfVFesQcWkWz7op9mCU IXMx0MgzF4JyiEU86x0eHlJJ1F119YXyxc9PDw87F8jQ8OdlOc3F00aC4dPe PXHIcm5FhSSi6t3ri/Xm5+d/+OGHhYWF2dnZGxazjOvXr1+7du0qg57QS75d TEYHkv5u3boV6aSwHieW9UDBiWe97e3tpaWlgJpl5uP//d071uMf1h/1Tj25 6iR+55f/WkytgotC+XPRdz7WcxIphJjglD1yYyoOc7p035sGQn/SZCwvL9fr 9cFYj4RF5iqXy99//33JzdzcHHcf9x29lBLQIXTg3bt3b968GemkYaz3dPbc 6KlT7zNGLzzl2wTSMk8fsgwNrAe8xLNerVYL7tTrm/UunvaYaZiCm4uJa0oz 4+GgrAYenfE3FsoFA4v1+vMtRPikSaCrV9W11xfrUaRGRiN/fffdd3+1+AuD 4jvuRIKe0Eu+3U5Gh9CBZEOKFiOdNNh6s+feFzg3a2x7emHU3nLKEmFCZs+d cvLkpxkgsB7wEs96L1++DG29QN+JmO6Lar0erZER4IFSFoOkAbkgEv35FgZn PbqGdVmPvDY1NfXtt99SBEcBUJNBb4le0kbaJVmPDk/delxGpCFRbdx6o+cu sHbWdCKzp09ZZixnWA9kgfxa7/RFe0OZt4slrXI9+WaG7Fov7W/hpFjvm2++ IbvduXPHbmilJ/SSNl6+fNkO9/ptPclCpvXSCfLk88F6ICMUwnriZu+O8kVh eMrw8GnfNrgg63miG1VSHjAaewQJ0Gk9TX/BuflHU94DQr036+/hvC/zD+J+ a+E+QpRvoSyNEZKbQqN80uDcQqDLen+xILWR+BYWFijK4/k3Gg2yHm2kXVeu XOHJYL2EwHrAy2Ctt7h+5h2hs8/b5ZfEevZQjp42YNWkEEpEqHCjWO9zxbgY d3I91rt42vu+hqTgKtxHCP8tqMYIuU8a5ZMG5xYCLdaj2I1CuW8Y/824ffv2 r7/+yvNfX1+fn5+njZcuXeJO5E2d6VvP3aMnduF5rEduJNyuokS0Laoae1iP j6oZ7YsRYT3gpUjWsypEu/5zKmCrQiybtX68Clc+kb/1eD1snVel43C5ud5k uHq9V27WcB3vH0TMPNxHCP0t0IbTLBpzTuAXlof5pFFy82XA1rtx40apVOLd ebb1vvrqK7Ieyc62Hr2kjbSLp6HEdAgdqM965hbBVvGc18t69hCafmgP1gNe CmU9q1Y3d6lHp/hbIXy/XhjruXb2rMwHZT2/PXLu4T5C2G8h2ieK168X+agB W+/69etzc3PXrl27efMmn3s+z3j06FGj0ThmNJtNesm38/nslHhmZoYOJGnq a+F0ay52Q2WkWO9pT6KcFtYDXgpsPb8hmb5DNVO0nlq1eq0XpHspRA76CMms 5/cHiWe9yKNvB2w98h3Fa7du3aLzbmxs1Ov1NQaZjmrmN4xut0sv+XZKQMko MR1CB9LhOvv1HO/xZ7Fisgi6NM7yvj+Rzg/rAS9FtJ5Z+/Vuuzx51vPPRHp3 6VjP3VVojCgKsQJAuE8aOjdfBmy9q1evUrwmjl3hUIhHvuPJ6Im0JjYlvnv3 Lh04PT2tdzQLTzw6mmCsSxTrzV4414sobwDWA14KZT13jxKsFzaTdK3n6deL MrMv+JOmMk9Ql/Xo1GKeb9++Fa1HL8W9lDgj1uPDWhJNXccYTpAZimQ9qbqN 3OxVcOv5vwfpgyezniw9Z6xJuUduYT9ptNx80djCWa/XG43GOsPbwsm3UwJK lpUWzo4zACZm82YH1gMZYsDz9eozk796HsKdGxJYzxqDEaYNLkq+KnJpPb/+ NsWYy/jW83wLntyto2NZL2JuvmgczXKHMT8/f/v27UePHpHp+GgWelf0kjby 0SxENkazdMz5C6MXZpPM5otiPb6aiy9RxrPAesBLEWap+y4KYg/UFycx89T+ /VFZtJ7jkuDZ2CHGl6pmLoiLrMSynt+3YC9uWrbTOTPffYYa+X/SaLn5omvm Al9wjPCbufD111/Tdp6GEvdl5oJpobDW4xtZyrjTFjoYzRJEr7sb6cin0OTX egr8K1EPMazXq58waqAUNreeyXtNoPfJzefv4T5hFOuFePfqhQKGeze3Rvuk /rn5oNF6fPWVS5cu8VnqGxsbPP+1tTWK8kh54ix1/daTRMflFcN7EWYuZGE0 S824Z55zZzvFXc1TJovWq7ruyue9e15u6b/1+n/PBXOtf79GMemGef7rV2XZ et7PEct6nnxUf4141uvxLXjXhCvzw9We6vlJI+emRIv1xBsu2CuSbVrjW/g6 nNyJ9sJllFiv9bzJzPGcUb2Xp1nq9k3MJyYtyIAnznrVceP26+Os3UF1N/X8 kkfrAZCQLFiPrz7daDR4/hT0UcpsWU+tKtUyZYHkZ0Uy7jzxruWDIIPWk2E3 Pk94F/NsEM96q6urwdYDIKvQ1UvXsEbr2XcasssRv9MQX7JsANZTgtWnX+nq GcuB9bj2ihDtxbMeFdJqtaq13gIgPqQYe9nnAVhvbm6OjDY9Pf2dBXcfv6vs XYZ9V9krV64M4q6yKiJbr/fSYeJgy6JYj+2dKMmBoLDZOt7oGTS7BCfM7Fyb 3HnYZ62VnDQTiojT3eFI2VTU+TjpnQzFHGs+n6QHJ9x6BwcH9+/f1111ARCT paWlVqs1GOvNz88vLCyUy2US3/cCFMSRziiOu86gJ/Sy5IaS0YF0OB0b6aTJ rDcbbr3L2XOjAfCRnwb5sR4XB/lA3caplIXoGv7c6AokI1Us51B2Rssp21Yy vSXKyT7qz85xnkSvTGtSCjGJ+G7c1uOttVaOxlux00a3XmGkF9N6xIMHD+r1 enD9AkD2oKv3zZs3A7MeRWoUzXHHidy4cWNmZuYqg57QSykBHULKo2iRMol0 0iTWk27EkBDegRhj0kEqxBvDaQ9nkSMpA4UtXKrh0hRtZW4RDzJ15Gww0yjy dXLiZ3aHoXJGrrfCdkYK5/yoTo2PMOcVoFcvgfV++eWXFy9e6K69AIhMrVb7 8ccfo17ysa1Hv7IpXrt37x7J64eI0CF04OLiImUS6aQxrSfOGaCILw3vPL0Q c9JBKsSeryc0DMqNkR6XuOMrPyu6ozZrzMwr/6OkVPIR6reTrvVYeGdSiHEs nNjWOzo6evLkCcI9kC8ajQZdtwcHBwOznhbiWa94JJyl7rhPdIckE6krTdEv qLJP8FH2Znd/oQdvpCm1cKpj1jBUq1PmxIUxNnFhpBjBXmzrEXRRPX78GOID eYGUt7y8vOleAhrWKzBprM1ijkGR2yet14Zn/CM/b3p1sv5Y75U8gibJfIxq YaYuJLEerwpIfKurq7rrMwACqNVqdK1u+ioP1isgKa1IJmtLeC1Lrw/W45tj Ws98B7b8ksxqqBqdewXQXkLrEYeHh8+fP69UKktLS88AyB7VapWuT3ri07AJ 6xWWtNbhlGVie8wjvSTW83TBiVtj9OupUibRHqznhuqTVqu1trb2EoAsQdck XeH7+/shrmJYr2hEt16t5G0HVOmC667kkV4S6ylHvEgdiMoxnH4xY81/gkUQ 1fExWW9o4QSgcMB6RSOO9aRFOCe8w1kY1nwE2SJJYr0Ja0qfci6eM7/BPV/P O+9PaO40J+vx2XqCNIPm67G4bmhkhC3EOW6tw1kE58F6ADjAekUjTgtnzdaJ qT9jQROFHBTzEezNsfv1xKVZlINPXGuzeFdvcc9ccK/j4kocPEu9OuW65cKJ v+cCAEXEuOTPnJ+2WBGvflgvj/Tz/nq4lV1eka23smKX+fNnYD1wolihi17g PKyXd/poPe84FpATPNZzF/tpWA8AA1gvj/TNeukt9gUGTo8WTgCADayXR1K3 njHE0xoYAuflFFgPgDDAenmkD9az1viC8nILrAdAGPJovXffffe3J5v33nuv b6NZQF6B9QAIQ76s9+WXXw4BC1gPiMB6AIQhX9Z78eLFDLB4+PCh7i8EZAhY D4Aw5Mt6AAA/YD0AwgDrAVAMYD0AwrAL6wFQCHaNwryru0YBIOvsMnSXVwBA UlhRRqwHQAA7sB4AhYD/gtVdowCQdVpUTlqwHgC5Z7fVgvUACKS120KsB0AB aDF01ygAZB0qJvQTUXd5BQAkBdYDIAyttlFSdJdXAEBSqCC3YT0Agmi1qaC0 dZdXAEBSyHmwHgCBUEEhdJdXAEBSjFiv3dZdowCQddptWA+AIsDLsu4aBYCs 0263Ou2O7vIKAEhKm0pyp6O7RgEg63Q6e512e39/X3eRBQDEh4owBXqdbld3 jQJA1jk4OOh02nvdPd2lFgAQn729PQr0qDjrrlEAyDrHx8fGT8ROB+EeADmF Ci8V4XarTcVZd40CQA6g34fdTgfiAyCPMOV1WaD3WnddAkBu2Nvb63aMf+gJ 3AdALqCiajRsdkl5XXqpuxYBIGdQqaGfi10mvy57Zjzp8v8Zr9kO/q/xy5Lt sTCP6vLn5qYOPxQPPPDwPMyyYpYwu9TwF3xrx0raNUuTc4h9BNvaRnceAPE4 Pj5+ffB6n3WLOwWOK80snpbtug628qzSyst0FwDQm46pv671G1HcZ/23Y6vR KlhmMezu73cPXr9GXx4AAAAAAAAAAIn/B5GZoL0= "], {{0, 48.}, {297., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{297., 48.}, PlotRange->{{0, 297.}, {0, 48.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[895297]}, CellChangeTimes->{ 3.7537514057385664`*^9, {3.7537514828191385`*^9, 3.753751485900025*^9}, 3.7537515187440176`*^9, {3.7537515634636135`*^9, 3.7537515790510993`*^9}, 3.7537521786072893`*^9, 3.753752234861512*^9, 3.7537523653904223`*^9, { 3.7537527969548635`*^9, 3.7537528134823227`*^9}, 3.753755123199761*^9, { 3.753756100812211*^9, 3.7537561111178894`*^9}, {3.753756405223666*^9, 3.7537564164153223`*^9}, 3.7537565966686354`*^9, {3.753757080205467*^9, 3.753757091997102*^9}, 3.758648054291285*^9, 3.7586482009767275`*^9, 3.759256500082656*^9}, CellLabel->"Out[35]=", CellID->916642048] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7537515285897017`*^9, 3.753751530508647*^9}}, CellLabel->"In[36]:=", CellID->524808896], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Global`a\"\>", ",", "\<\"Global`b\"\>", ",", "\<\"MyContext`c\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7537515309656343`*^9, {3.7537515650385637`*^9, 3.7537515805590744`*^9}, 3.7537521787502594`*^9, 3.7537522349615183`*^9, 3.7537523655324173`*^9, { 3.753752798249826*^9, 3.753752813589343*^9}, 3.753755124504719*^9, { 3.753756101745201*^9, 3.7537561112039104`*^9}, {3.753756406046649*^9, 3.753756416514321*^9}, 3.7537565967726345`*^9, {3.753757080327464*^9, 3.753757092096099*^9}, 3.758648055754239*^9, 3.758648201057723*^9, 3.759256500379645*^9}, CellLabel->"Out[36]=", CellID->14595671] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell["Richard Hennigan (Wolfram Research)", "Text", CellID->765499838] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell["definition", "Item", CellID->578108665], Cell["full definition", "Item", CellID->920331344], Cell["definition list", "Item", CellID->488647568], Cell["definition data", "Item", CellID->551103684], Cell["get", "Item", CellID->242453071], Cell["load package", "Item", CellID->706360460], Cell["Function Resource Utility", "Item", CellID->390090187] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Cloud & Deployment", {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Core Language & Structure", {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Programming Utilities", {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell", CellID->484772390] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell["Definition", "Item", CellID->739956698], Cell["FullDefinition", "Item", CellID->100981271], Cell["Get", "Item", CellID->268859946], Cell["Information", "Item", CellID->614317567], Cell["Save", "Item", CellID->950771381], Cell["DownValues", "Item", CellID->758177782], Cell["OwnValues", "Item", CellID->423452450], Cell["UpValues", "Item", CellID->687322664] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell["BinarySerializeWithDefinitions", "Item", CellID->953408948], Cell["CompressWithDefinitions", "Item", CellID->215315340], Cell["FullSymbolName", "Item", CellID->499407201], Cell["ResourceFunctionDefinitionViewer", "Item", CellID->356563292], Cell["SymbolDependencies", "Item", CellID->567813623], Cell["SymbolDependencyGraph", "Item", CellID->376339937] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[TextData[ButtonBox["Guide: Symbol Handling", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/guide/SymbolHandling.html"], None}, ButtonNote-> "http://reference.wolfram.com/language/guide/SymbolHandling.html"]], "Item",\ CellID->648462522], Cell[TextData[ButtonBox["Workflow: Clear Definitions for Symbols and \ Functions", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/workflow/\ ClearDefinitionsForSymbolsAndFunctions.html"], None}, ButtonNote-> "http://reference.wolfram.com/language/workflow/\ ClearDefinitionsForSymbolsAndFunctions.html"]], "Item", CellID->197371260] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Tests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.3961, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"DefinitionData | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.819054880601914`16.33453088847889*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.819054880923881`16.334530888515502*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.4.0"}, CreateCellID->True, FrontEndVersion->"12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.0444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.9882, 0.4196, 0.2039], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TemplateInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`LiteralInput[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DelimiterInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`SubscriptInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[2]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableInsert[3]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableRowInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableSort[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`TableMerge[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\"\ "}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, Null], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], { FontColor -> RGBColor[0.9137, 0.6039, 0.5]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentInsert[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`CommentToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`ExclusionToggle[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> { DefinitionNotebookClient`$ButtonsDisabled}]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 8, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 8, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[-0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued", Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ GrayLevel[1]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ GrayLevel[1]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ GrayLevel[1]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ GrayLevel[1]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9569, 0.802, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, #2[]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}], Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.0556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.9686, 0.4667, 0.], GrayLevel[0.4667]]]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.9059]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"], FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued"]]]}, {None, None}}]}, Visible -> False, FrontEndVersion -> "12.2 for Linux x86 (64-bit) (November 16, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[608, 21, 97, 2, 70, "Title",ExpressionUUID->"e424482a-fd14-45f7-a388-44872ae8fc72", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611]}, "TemplateCell"->{ Cell[608, 21, 97, 2, 70, "Title",ExpressionUUID->"e424482a-fd14-45f7-a388-44872ae8fc72", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611], Cell[708, 25, 135, 2, 70, "Text",ExpressionUUID->"5c524761-29e0-45c8-87f8-a4362f5d430d", CellTags->{"Description", "TemplateCell"}, CellID->991216423]}, "Title"->{ Cell[608, 21, 97, 2, 70, "Title",ExpressionUUID->"e424482a-fd14-45f7-a388-44872ae8fc72", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611]}, "Description"->{ Cell[708, 25, 135, 2, 70, "Text",ExpressionUUID->"5c524761-29e0-45c8-87f8-a4362f5d430d", CellTags->{"Description", "TemplateCell"}, CellID->991216423]}, "Definition"->{ Cell[868, 31, 1108, 27, 70, "Section",ExpressionUUID->"41288a1c-743e-4311-be47-989059a1d096", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "Function"->{ Cell[868, 31, 1108, 27, 70, "Section",ExpressionUUID->"41288a1c-743e-4311-be47-989059a1d096", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241]}, "TemplateCellGroup"->{ Cell[868, 31, 1108, 27, 70, "Section",ExpressionUUID->"41288a1c-743e-4311-be47-989059a1d096", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[21202, 583, 1879, 48, 70, "Subsection",ExpressionUUID->"1fadaa0a-171a-494f-91b0-4c07332f14ae", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[23991, 674, 1349, 30, 70, "Subsection",ExpressionUUID->"149328e5-1551-4814-9e27-ba4370642eec", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[29595, 831, 6918, 150, 70, "Section",ExpressionUUID->"f557704c-0c6d-438b-9674-0e15abaa2c05", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[199082, 4429, 918, 24, 70, "Subsection",ExpressionUUID->"c2a4b62c-91b7-478a-9141-76c9afbb733b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[200111, 4461, 893, 24, 70, "Subsection",ExpressionUUID->"8e8228b9-d952-4f4c-a320-9890db7eb539", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[201409, 4511, 166, 5, 70, "Subsection",ExpressionUUID->"3ea58ae5-6625-46b8-a00e-0d317c10f8a7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[208065, 4740, 870, 24, 70, "Subsection",ExpressionUUID->"db041eb4-2bff-49a5-b827-79e726eab4dd", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[209353, 4793, 920, 24, 70, "Subsection",ExpressionUUID->"87a33f9e-0411-42b8-919c-f0e35af8423d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[210682, 4840, 971, 25, 70, "Subsection",ExpressionUUID->"b052c186-89e2-4f1d-97cb-b676f87a2a82", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[212189, 4880, 823, 24, 70, "Subsection",ExpressionUUID->"62ef782d-8a5e-4750-ab18-1080134ef153", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[213720, 4930, 1737, 43, 70, "Subsection",ExpressionUUID->"2dac59d2-349e-4ff2-9518-34cd71b9cded", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[215768, 4993, 1048, 26, 70, "Section",ExpressionUUID->"a97ebfe6-be57-432a-94be-bdf02653f91e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[217365, 5034, 929, 25, 70, "Section",ExpressionUUID->"f1340453-b1ce-44f8-a24b-b94aa480093d", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]}, "Documentation"->{ Cell[21060, 575, 117, 4, 70, "Section",ExpressionUUID->"1c948637-5501-4a89-bf85-2f8f2cd0783e", CellTags->"Documentation", CellID->475424634]}, "Usage"->{ Cell[21202, 583, 1879, 48, 70, "Subsection",ExpressionUUID->"1fadaa0a-171a-494f-91b0-4c07332f14ae", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143]}, "Details & Options"->{ Cell[23991, 674, 1349, 30, 70, "Subsection",ExpressionUUID->"149328e5-1551-4814-9e27-ba4370642eec", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "Notes"->{ Cell[23991, 674, 1349, 30, 70, "Subsection",ExpressionUUID->"149328e5-1551-4814-9e27-ba4370642eec", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701]}, "TabNext"->{ Cell[25343, 706, 414, 15, 70, "Notes",ExpressionUUID->"eb183c95-3fdf-4683-ba91-ba75ffa4e6ae", CellTags->"TabNext", CellID->447108398], Cell[211656, 4867, 496, 8, 70, "Text",ExpressionUUID->"a7e106f3-d3f0-4060-bf49-07dd579787f1", CellTags->"TabNext", CellID->343081869], Cell[216819, 5021, 509, 8, 70, "Text",ExpressionUUID->"64a6ec02-b321-44f5-89ad-a189ce48313f", CellTags->"TabNext", CellID->567921317], Cell[218297, 5061, 495, 8, 70, "Text",ExpressionUUID->"c0b85172-6aa6-4943-8e29-208c2928b9cf", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[29595, 831, 6918, 150, 70, "Section",ExpressionUUID->"f557704c-0c6d-438b-9674-0e15abaa2c05", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145]}, "Source & Additional Information"->{ Cell[198904, 4421, 153, 4, 70, "Section",ExpressionUUID->"668b9fc1-5133-4293-acb9-0c1a8cad46fd", CellTags->"Source & Additional Information", CellID->346918952]}, "Contributed By"->{ Cell[199082, 4429, 918, 24, 70, "Subsection",ExpressionUUID->"c2a4b62c-91b7-478a-9141-76c9afbb733b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "ContributorInformation"->{ Cell[199082, 4429, 918, 24, 70, "Subsection",ExpressionUUID->"c2a4b62c-91b7-478a-9141-76c9afbb733b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913]}, "Keywords"->{ Cell[200111, 4461, 893, 24, 70, "Subsection",ExpressionUUID->"8e8228b9-d952-4f4c-a320-9890db7eb539", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615]}, "Categories"->{ Cell[201409, 4511, 166, 5, 70, "Subsection",ExpressionUUID->"3ea58ae5-6625-46b8-a00e-0d317c10f8a7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632]}, "CategoriesCell"->{ Cell[201578, 4518, 6450, 217, 70, "Output",ExpressionUUID->"75048211-f50e-4e91-9712-6bb5c3ee3ee7", CellTags->"CategoriesCell", CellID->484772390]}, "Related Symbols"->{ Cell[208065, 4740, 870, 24, 70, "Subsection",ExpressionUUID->"db041eb4-2bff-49a5-b827-79e726eab4dd", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636]}, "Related Resource Objects"->{ Cell[209353, 4793, 920, 24, 70, "Subsection",ExpressionUUID->"87a33f9e-0411-42b8-919c-f0e35af8423d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071]}, "Source/Reference Citation"->{ Cell[210682, 4840, 971, 25, 70, "Subsection",ExpressionUUID->"b052c186-89e2-4f1d-97cb-b676f87a2a82", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317]}, "Links"->{ Cell[212189, 4880, 823, 24, 70, "Subsection",ExpressionUUID->"62ef782d-8a5e-4750-ab18-1080134ef153", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789]}, "Tests"->{ Cell[213720, 4930, 1737, 43, 70, "Subsection",ExpressionUUID->"2dac59d2-349e-4ff2-9518-34cd71b9cded", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "VerificationTests"->{ Cell[213720, 4930, 1737, 43, 70, "Subsection",ExpressionUUID->"2dac59d2-349e-4ff2-9518-34cd71b9cded", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114]}, "Author Notes"->{ Cell[215768, 4993, 1048, 26, 70, "Section",ExpressionUUID->"a97ebfe6-be57-432a-94be-bdf02653f91e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130]}, "Submission Notes"->{ Cell[217365, 5034, 929, 25, 70, "Section",ExpressionUUID->"f1340453-b1ce-44f8-a24b-b94aa480093d", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 322735, 7049}, {"TemplateCell", 322917, 7053}, {"Title", 323252, 7060}, {"Description", 323433, 7064}, {"Definition", 323611, 7068}, {"Function", 323808, 7072}, {"TemplateCellGroup", 324014, 7076}, {"Documentation", 326581, 7119}, {"Usage", 326744, 7123}, {"Details & Options", 326938, 7127}, {"Notes", 327141, 7131}, {"TabNext", 327346, 7135}, {"Examples", 327934, 7148}, {"Source & Additional Information", 328144, 7152}, {"Contributed By", 328336, 7156}, {"ContributorInformation", 328572, 7160}, {"Keywords", 328794, 7164}, {"Categories", 328986, 7168}, {"CategoriesCell", 329182, 7172}, {"Related Symbols", 329360, 7176}, {"Related Resource Objects", 329573, 7180}, {"Source/Reference Citation", 329796, 7184}, {"Links", 330000, 7188}, {"Tests", 330184, 7192}, {"VerificationTests", 330402, 7196}, {"Author Notes", 330615, 7200}, {"Submission Notes", 330815, 7204} } *) (*NotebookFileOutline Notebook[{ Cell[608, 21, 97, 2, 70, "Title",ExpressionUUID->"e424482a-fd14-45f7-a388-44872ae8fc72", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611], Cell[708, 25, 135, 2, 70, "Text",ExpressionUUID->"5c524761-29e0-45c8-87f8-a4362f5d430d", CellTags->{"Description", "TemplateCell"}, CellID->991216423], Cell[CellGroupData[{ Cell[868, 31, 1108, 27, 70, "Section",ExpressionUUID->"41288a1c-743e-4311-be47-989059a1d096", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->858465241], Cell[1979, 60, 16281, 425, 70, "Input",ExpressionUUID->"785b489c-4ed0-492a-adc1-cee9cb4c9d2a", InitializationCell->True, CellID->17815837], Cell[18263, 487, 691, 19, 70, "Input",ExpressionUUID->"61f237e1-19e5-4d11-8cd5-80bba368c604", InitializationCell->True, CellID->886944169], Cell[18957, 508, 651, 20, 70, "Input",ExpressionUUID->"476a4648-7daf-4c7e-ad46-38df31c2e708", InitializationCell->True, CellID->36587374], Cell[19611, 530, 174, 4, 70, "Input",ExpressionUUID->"dde6a334-8f42-428a-9b8f-8b16b577a0b2", InitializationCell->True, CellID->302156494], Cell[19788, 536, 160, 4, 70, "Input",ExpressionUUID->"2bec596b-957c-4a65-948f-38a5b7faf689", InitializationCell->True, CellID->888410917], Cell[19951, 542, 172, 4, 70, "Input",ExpressionUUID->"41300812-0312-47d4-b03d-e443738fe686", InitializationCell->True, CellID->466777105], Cell[20126, 548, 919, 24, 70, "Input",ExpressionUUID->"c7f4c899-8c75-4d45-8e37-711685a731dd", InitializationCell->True, CellID->789358337] }, Open ]], Cell[21060, 575, 117, 4, 70, "Section",ExpressionUUID->"1c948637-5501-4a89-bf85-2f8f2cd0783e", CellTags->"Documentation", CellID->475424634], Cell[CellGroupData[{ Cell[21202, 583, 1879, 48, 70, "Subsection",ExpressionUUID->"1fadaa0a-171a-494f-91b0-4c07332f14ae", CellTags->{"TemplateCellGroup", "Usage"}, CellID->77317143], Cell[CellGroupData[{ Cell[23106, 635, 149, 4, 70, "UsageInputs",ExpressionUUID->"a94dea4b-1fa6-4d9e-928a-1251257f8952", CellID->711993660], Cell[23258, 641, 221, 7, 70, "UsageDescription",ExpressionUUID->"982c6b73-4ff3-4d2c-9993-84d611c37bfd", CellID->822179287] }, Open ]], Cell[CellGroupData[{ Cell[23516, 653, 209, 6, 70, "UsageInputs",ExpressionUUID->"fcee918d-9944-48bb-84e3-7f7cc8505b27", CellID->384637043], Cell[23728, 661, 214, 7, 70, "UsageDescription",ExpressionUUID->"cd6b2925-230c-4e24-8b21-70e360737f7a", CellID->363765095] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23991, 674, 1349, 30, 70, "Subsection",ExpressionUUID->"149328e5-1551-4814-9e27-ba4370642eec", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->85988701], Cell[25343, 706, 414, 15, 70, "Notes",ExpressionUUID->"eb183c95-3fdf-4683-ba91-ba75ffa4e6ae", CellTags->"TabNext", CellID->447108398], Cell[25760, 723, 2430, 57, 70, "TableNotes",ExpressionUUID->"f63db983-020f-48a7-93da-625085666d5c", CellID->666058449], Cell[28193, 782, 676, 21, 70, "Notes",ExpressionUUID->"06b7d936-60af-429d-b687-22df4aab7886", CellID->182998367], Cell[28872, 805, 686, 21, 70, "Notes",ExpressionUUID->"51e517ab-f6e6-42c3-8318-f911c8239668", CellID->98731795] }, Open ]], Cell[CellGroupData[{ Cell[29595, 831, 6918, 150, 70, "Section",ExpressionUUID->"f557704c-0c6d-438b-9674-0e15abaa2c05", CellTags->{"Examples", "TemplateCellGroup"}, CellID->992818145], Cell[CellGroupData[{ Cell[36538, 985, 75, 2, 70, "Subsection",ExpressionUUID->"093ca628-b643-4d89-903b-034ee11361c4", CellID->904125756], Cell[36616, 989, 412, 13, 70, "Text",ExpressionUUID->"78af0367-8056-4892-8510-57a9c70d321b", CellID->391213383], Cell[37031, 1004, 164, 6, 70, "Input",ExpressionUUID->"386f0623-e3a2-4c78-bc92-5e8e8a559780", CellID->199287210], Cell[37198, 1012, 193, 7, 70, "Input",ExpressionUUID->"411d9109-ccae-4e64-8481-382fbc1499cf", CellID->399956560], Cell[CellGroupData[{ Cell[37416, 1023, 246, 7, 70, "Input",ExpressionUUID->"ffd3380c-27e1-4f23-a7d2-2a6336c1da15", CellID->860823566], Cell[37665, 1032, 22727, 376, 70, "Output",ExpressionUUID->"563f05bd-ca3f-4a6b-bfd5-ab39b17e6aac", CellID->29757014] }, Open ]], Cell[60407, 1411, 164, 3, 70, "Text",ExpressionUUID->"259b1482-827e-4b45-a1d5-fe74f2b27d57", CellID->281164086], Cell[CellGroupData[{ Cell[60596, 1418, 197, 5, 70, "Input",ExpressionUUID->"cdac231b-5dbb-4517-ad1d-f777d5c2a4d5", CellID->702890012], Cell[60796, 1425, 8768, 151, 70, "Output",ExpressionUUID->"e0c2b416-6190-4d59-a3ff-1d064736b93e", CellID->755138396] }, Open ]], Cell[69579, 1579, 685, 22, 70, "Text",ExpressionUUID->"32eb8326-00ce-428b-bcba-78dc075a6961", CellID->67431956], Cell[CellGroupData[{ Cell[70289, 1605, 290, 8, 70, "Input",ExpressionUUID->"203721e2-c81b-4f2e-8632-7cf18bce9c5b", CellID->800915202], Cell[70582, 1615, 918, 16, 70, "Output",ExpressionUUID->"1d07cacd-ee4b-4685-9770-7361a8b0127a", CellID->432356250] }, Open ]], Cell[CellGroupData[{ Cell[71537, 1636, 187, 5, 70, "Input",ExpressionUUID->"dc4898d4-671c-49f9-bc71-8d895595d45b", CellID->304874999], Cell[71727, 1643, 894, 15, 70, "Output",ExpressionUUID->"831fd615-1444-4db6-a8fe-30f23d7a1f5d", CellID->520064481] }, Open ]], Cell[CellGroupData[{ Cell[72658, 1663, 186, 5, 70, "Input",ExpressionUUID->"42c24396-e7ff-4513-9293-c4a03525f8ae", CellID->850444813], Cell[72847, 1670, 895, 15, 70, "Output",ExpressionUUID->"b6f4a254-8afc-439a-ade2-bf3a62fe7318", CellID->252504608] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73791, 1691, 73, 2, 70, "Subsection",ExpressionUUID->"fe916ea4-773f-4479-bcc9-9442cfbfaecd", CellID->605265931], Cell[73867, 1695, 262, 6, 70, "Text",ExpressionUUID->"eed04311-1d53-4ab9-a794-48d1c05578bc", CellID->577013583], Cell[CellGroupData[{ Cell[74154, 1705, 397, 10, 70, "Input",ExpressionUUID->"872d1063-465b-4a30-9205-cf9e77206ff5", CellID->58530946], Cell[74554, 1717, 8469, 144, 70, "Output",ExpressionUUID->"0a100c3a-f5ae-4c5a-bf72-042674265184", CellID->243969408] }, Open ]], Cell[83038, 1864, 142, 3, 70, "Text",ExpressionUUID->"3423e71c-57d7-4a86-b1c1-a54f34ece385", CellID->298746840], Cell[CellGroupData[{ Cell[83205, 1871, 525, 10, 70, "Input",ExpressionUUID->"562465ea-8c26-4789-981a-fb4da1250299", CellID->288662990], Cell[83733, 1883, 2781, 62, 70, "Output",ExpressionUUID->"bcfbe3e2-a6ea-40cd-8020-4cf920b17908", CellID->573960689] }, Open ]], Cell[86529, 1948, 224, 6, 70, "Input",ExpressionUUID->"a7e099b0-3923-42a4-bf7e-f4d2f7b4b2d1", CellID->237143703], Cell[86756, 1956, 176, 3, 70, "Text",ExpressionUUID->"24c4ec93-c3a4-4720-a48e-8101bbc84d85", CellID->140643066], Cell[CellGroupData[{ Cell[86957, 1963, 312, 7, 70, "Input",ExpressionUUID->"94a386fa-429b-4a1c-b3ae-296089759b93", CellID->847741565], Cell[87272, 1972, 641, 11, 70, "Output",ExpressionUUID->"a10860ed-e790-42b8-9843-897729563e91", CellID->299789471] }, Open ]], Cell[87928, 1986, 150, 3, 70, "Text",ExpressionUUID->"d5275365-4e78-4b58-9c38-6912c92b5e16", CellID->264392445], Cell[CellGroupData[{ Cell[88103, 1993, 208, 5, 70, "Input",ExpressionUUID->"d4fbaf2a-24a5-40c2-ba8d-a49658aed13c", CellID->765977171], Cell[88314, 2000, 2184, 54, 70, "Output",ExpressionUUID->"d26393a7-a024-4d7e-a6de-9bd9eb236976", CellID->627327587] }, Open ]], Cell[CellGroupData[{ Cell[90535, 2059, 200, 5, 70, "Input",ExpressionUUID->"72272bd3-5d64-4bf6-b966-f70ba1c42f83", CellID->944190867], Cell[90738, 2066, 1991, 31, 70, "Output",ExpressionUUID->"9be2918a-99fa-48d7-a2ad-d8ced68d973f", CellID->356022246] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[92778, 2103, 85, 2, 70, "Subsection",ExpressionUUID->"46a4f298-9804-4e65-8983-0258effba0b9", CellID->232113220], Cell[92866, 2107, 156, 3, 70, "Text",ExpressionUUID->"f331b7cf-31e8-407a-bbde-f0e233becf80", CellID->817593913], Cell[CellGroupData[{ Cell[93047, 2114, 12868, 253, 70, "Input",ExpressionUUID->"0a6c84d4-2671-4c97-b561-d2510a24894d", CellID->297816621], Cell[105918, 2369, 442, 10, 70, "Output",ExpressionUUID->"5e293faa-f4ec-4345-8ff0-2de3b175e214", CellID->550075116] }, Open ]], Cell[CellGroupData[{ Cell[106397, 2384, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"406237b7-915a-493b-af0d-d1bb756a0c17", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797627], Cell[106984, 2405, 153, 3, 70, "Text",ExpressionUUID->"43121827-d76e-403e-97ed-f14d172b4c99", CellID->870248887], Cell[CellGroupData[{ Cell[107162, 2412, 12861, 253, 70, "Input",ExpressionUUID->"cb4c6d09-bfe6-40b2-baa7-77914f160af3", CellID->896566282], Cell[120026, 2667, 578, 13, 70, "Output",ExpressionUUID->"6631f174-6bf8-4db7-9882-a77be5028e53", CellID->447575934] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120653, 2686, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"13b751d1-aeb0-46ec-8c76-157d8020866f", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797628], Cell[121240, 2707, 732, 23, 70, "Text",ExpressionUUID->"acff705d-fc9d-48b3-8c24-0262449e794c", CellID->551396305], Cell[CellGroupData[{ Cell[121997, 2734, 13194, 259, 70, "Input",ExpressionUUID->"36983a34-13e9-401f-ad73-6eb1ab6a39b7", CellID->868589540], Cell[135194, 2995, 956, 21, 70, "Output",ExpressionUUID->"825c6a86-a631-44d5-8666-0f415801d81e", CellID->490035462] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136199, 3022, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"81a9c719-bf1f-464d-b498-d697804e63cb", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797629], Cell[136786, 3043, 884, 27, 70, "Text",ExpressionUUID->"f690b314-668f-4315-9d3e-33db4cd60119", CellID->635869783], Cell[CellGroupData[{ Cell[137695, 3074, 10015, 208, 70, "Input",ExpressionUUID->"d1da26aa-0b95-4586-b76e-4f91430ca14d", CellID->500973989], Cell[147713, 3284, 897, 17, 70, "Output",ExpressionUUID->"8065042e-6792-48a8-b4bd-fe9e24b3c6c0", CellID->467820677] }, Open ]], Cell[148625, 3304, 705, 22, 70, "Text",ExpressionUUID->"b30d8cea-a4e3-423a-bc59-4da00033fa0e", CellID->384927984], Cell[CellGroupData[{ Cell[149355, 3330, 9970, 207, 70, "Input",ExpressionUUID->"19b0a78e-4b16-4396-a4df-c6b18b1a6293", CellID->153129429], Cell[159328, 3539, 2553, 60, 70, "Output",ExpressionUUID->"a54b2ca8-35f6-4b38-9a85-9c3462bd2dd7", CellID->504525824] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[161930, 3605, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"a2159602-1cc0-42eb-b109-9acd0030b0e9", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797630], Cell[162517, 3626, 2546, 79, 70, "Text",ExpressionUUID->"adb97ee3-c99a-4d0d-b978-5758d61748a5", CellID->740351095], Cell[165066, 3707, 273, 7, 70, "Input",ExpressionUUID->"eaee77bf-c14a-4006-972c-d71bdf01f290", CellID->479021986], Cell[165342, 3716, 259, 8, 70, "Input",ExpressionUUID->"f4fadc84-3bcc-4e9a-a148-76d030065eff", CellID->666562281], Cell[165604, 3726, 368, 10, 70, "Input",ExpressionUUID->"96b15624-83ae-41b1-9021-e47fcd6ac467", CellID->643226980], Cell[CellGroupData[{ Cell[165997, 3740, 350, 9, 70, "Input",ExpressionUUID->"d1147861-6048-4ae1-ab6d-b492f90a1006", CellID->845141997], Cell[166350, 3751, 8558, 146, 70, "Output",ExpressionUUID->"b493abd9-96bd-4b4a-b248-3106973a5b1f", CellID->811237017] }, Open ]], Cell[CellGroupData[{ Cell[174945, 3902, 326, 9, 70, "Input",ExpressionUUID->"3635ab49-71d4-4eb6-87e7-28cc88aa94b2", CellID->300410286], Cell[175274, 3913, 880, 18, 70, "Print",ExpressionUUID->"192bb62f-9bdc-448a-95e8-c26238078364", CellID->441011439] }, Open ]], Cell[176169, 3934, 1276, 39, 70, "Text",ExpressionUUID->"08f6d2bb-1b09-4e66-ab77-9d1c9cb2f275", CellID->694627336], Cell[177448, 3975, 151, 5, 70, "Input",ExpressionUUID->"95877b4e-4d3f-4cc3-a3e4-1f795af01f42", CellID->599921392], Cell[177602, 3982, 230, 7, 70, "Input",ExpressionUUID->"70bae618-4b61-4425-aff5-df47e9beca33", CellID->400739482], Cell[CellGroupData[{ Cell[177857, 3993, 200, 5, 70, "Input",ExpressionUUID->"b1ce1bf9-7e98-4138-b1eb-83ae7abefa6a", CellID->522189109], Cell[178060, 4000, 8495, 145, 70, "Output",ExpressionUUID->"52abc238-64c9-4c0a-92ee-e0d6d741a93e", CellID->384777926] }, Open ]], Cell[186570, 4148, 141, 3, 70, "Text",ExpressionUUID->"4c17f391-4240-40b6-bb57-9413bcd0a335", CellID->542036084], Cell[CellGroupData[{ Cell[186736, 4155, 186, 5, 70, "Input",ExpressionUUID->"4d6f374f-2317-4a8b-95e5-635d7fd016b2", CellID->86388896], Cell[186925, 4162, 547, 10, 70, "Output",ExpressionUUID->"cd94233a-6b04-44b1-953f-a042680be057", CellID->752933365] }, Open ]], Cell[187487, 4175, 173, 3, 70, "Text",ExpressionUUID->"2ebabe12-a9e6-491c-8510-638ad5dd0327", CellID->191259555], Cell[CellGroupData[{ Cell[187685, 4182, 198, 5, 70, "Input",ExpressionUUID->"78e3a06b-6717-4ea1-88e2-bd2888c5e819", CellID->619261498], Cell[187886, 4189, 535, 10, 70, "Output",ExpressionUUID->"6201c691-14e8-4b48-a025-cdd063a499f5", CellID->948632712] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[188482, 4206, 76, 2, 70, "Subsection",ExpressionUUID->"fd41dbc6-b81f-4abf-8331-dc05f3ce3289", CellID->158766396], Cell[188561, 4210, 298, 6, 70, "Text",ExpressionUUID->"0d0668fc-1402-4b65-b6ac-c166ba3bd5e3", CellID->385742821], Cell[188862, 4218, 573, 17, 70, "Input",ExpressionUUID->"bb4e2a26-4a7d-4176-adb9-e75110ae9c15", CellID->73888628], Cell[CellGroupData[{ Cell[189460, 4239, 222, 6, 70, "Input",ExpressionUUID->"6e0f4ad0-8409-4f5e-a878-35681aca85ca", CellID->499299305], Cell[189685, 4247, 8233, 141, 70, "Output",ExpressionUUID->"551882ad-531b-4c9a-b73b-a69e6e5f50b7", CellID->916642048] }, Open ]], Cell[CellGroupData[{ Cell[197955, 4393, 197, 5, 70, "Input",ExpressionUUID->"255acdbc-a030-4f04-bec9-9b07352b833a", CellID->524808896], Cell[198155, 4400, 688, 14, 70, "Output",ExpressionUUID->"077ae322-2064-433c-a86f-36fed515d542", CellID->14595671] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[198904, 4421, 153, 4, 70, "Section",ExpressionUUID->"668b9fc1-5133-4293-acb9-0c1a8cad46fd", CellTags->"Source & Additional Information", CellID->346918952], Cell[CellGroupData[{ Cell[199082, 4429, 918, 24, 70, "Subsection",ExpressionUUID->"c2a4b62c-91b7-478a-9141-76c9afbb733b", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->605210913], Cell[200003, 4455, 71, 1, 70, "Text",ExpressionUUID->"3bcd2a7f-55de-4a7a-8393-c30f2506606a", CellID->765499838] }, Open ]], Cell[CellGroupData[{ Cell[200111, 4461, 893, 24, 70, "Subsection",ExpressionUUID->"8e8228b9-d952-4f4c-a320-9890db7eb539", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->550320615], Cell[201007, 4487, 46, 1, 70, "Item",ExpressionUUID->"c832c501-2e14-4f4b-b579-6bd17bbcca86", CellID->578108665], Cell[201056, 4490, 51, 1, 70, "Item",ExpressionUUID->"bcbc12a4-45e9-437a-bcbb-099662159e65", CellID->920331344], Cell[201110, 4493, 51, 1, 70, "Item",ExpressionUUID->"533d9394-a4e5-4847-90a1-9b001fcc8279", CellID->488647568], Cell[201164, 4496, 51, 1, 70, "Item",ExpressionUUID->"32627e65-721b-450c-89ab-aebeeebd472a", CellID->551103684], Cell[201218, 4499, 39, 1, 70, "Item",ExpressionUUID->"74d87f35-1346-4c92-81a5-ba2789c6e485", CellID->242453071], Cell[201260, 4502, 48, 1, 70, "Item",ExpressionUUID->"03512ec1-05b8-4b59-b45b-8590fdf6cc48", CellID->706360460], Cell[201311, 4505, 61, 1, 70, "Item",ExpressionUUID->"dc59242b-4e89-4c91-8d34-0fc1526fc52d", CellID->390090187] }, Open ]], Cell[CellGroupData[{ Cell[201409, 4511, 166, 5, 70, "Subsection",ExpressionUUID->"3ea58ae5-6625-46b8-a00e-0d317c10f8a7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->63169632], Cell[201578, 4518, 6450, 217, 70, "Output",ExpressionUUID->"75048211-f50e-4e91-9712-6bb5c3ee3ee7", CellTags->"CategoriesCell", CellID->484772390] }, Open ]], Cell[CellGroupData[{ Cell[208065, 4740, 870, 24, 70, "Subsection",ExpressionUUID->"db041eb4-2bff-49a5-b827-79e726eab4dd", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->822678636], Cell[208938, 4766, 46, 1, 70, "Item",ExpressionUUID->"dfe78eca-f344-43a3-9a8d-45630157c13b", CellID->739956698], Cell[208987, 4769, 50, 1, 70, "Item",ExpressionUUID->"c2a1b1f2-d3d0-4026-a01a-f528fc0b3877", CellID->100981271], Cell[209040, 4772, 39, 1, 70, "Item",ExpressionUUID->"1a0737be-e2be-4049-b8c0-c18a59d07b88", CellID->268859946], Cell[209082, 4775, 47, 1, 70, "Item",ExpressionUUID->"901d4ce5-2e93-4fb8-aa75-9983cb5dfa54", CellID->614317567], Cell[209132, 4778, 40, 1, 70, "Item",ExpressionUUID->"51e17fdb-ee1b-4a77-9cae-ad696c1ec4a9", CellID->950771381], Cell[209175, 4781, 46, 1, 70, "Item",ExpressionUUID->"2cd31733-7075-4920-b59f-eb33dc867a77", CellID->758177782], Cell[209224, 4784, 45, 1, 70, "Item",ExpressionUUID->"b396a1ed-fcb4-4f69-82ec-bfa55e36d618", CellID->423452450], Cell[209272, 4787, 44, 1, 70, "Item",ExpressionUUID->"48fa65cc-e865-4b56-b384-32d974975498", CellID->687322664] }, Open ]], Cell[CellGroupData[{ Cell[209353, 4793, 920, 24, 70, "Subsection",ExpressionUUID->"87a33f9e-0411-42b8-919c-f0e35af8423d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->740191071], Cell[210276, 4819, 66, 1, 70, "Item",ExpressionUUID->"f725b69c-7075-4618-956b-8f6a00f8330a", CellID->953408948], Cell[210345, 4822, 59, 1, 70, "Item",ExpressionUUID->"64d69bdd-c0f6-40f6-8692-79f92464e20c", CellID->215315340], Cell[210407, 4825, 50, 1, 70, "Item",ExpressionUUID->"23983ced-7c78-4bc8-a80c-9d28fc87bff6", CellID->499407201], Cell[210460, 4828, 68, 1, 70, "Item",ExpressionUUID->"6bc77b2a-4369-4498-839e-34ecbdf4355e", CellID->356563292], Cell[210531, 4831, 54, 1, 70, "Item",ExpressionUUID->"aaafef01-c07f-478d-a6ff-33318fd486a0", CellID->567813623], Cell[210588, 4834, 57, 1, 70, "Item",ExpressionUUID->"b325a935-5b54-4a3c-9e10-f55a43b3d5f0", CellID->376339937] }, Open ]], Cell[CellGroupData[{ Cell[210682, 4840, 971, 25, 70, "Subsection",ExpressionUUID->"b052c186-89e2-4f1d-97cb-b676f87a2a82", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->568416317], Cell[211656, 4867, 496, 8, 70, "Text",ExpressionUUID->"a7e106f3-d3f0-4060-bf49-07dd579787f1", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[212189, 4880, 823, 24, 70, "Subsection",ExpressionUUID->"62ef782d-8a5e-4750-ab18-1080134ef153", CellTags->{"Links", "TemplateCellGroup"}, CellID->503703789], Cell[213015, 4906, 290, 8, 70, "Item",ExpressionUUID->"73691e0a-aa03-41fe-8318-dce75910e6d8", CellID->648462522], Cell[213308, 4916, 375, 9, 70, "Item",ExpressionUUID->"c53dba0e-1a44-4bce-886f-0c7d26dbe044", CellID->197371260] }, Open ]], Cell[CellGroupData[{ Cell[213720, 4930, 1737, 43, 70, "Subsection",ExpressionUUID->"2dac59d2-349e-4ff2-9518-34cd71b9cded", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->161936114], Cell[CellGroupData[{ Cell[215482, 4977, 129, 4, 70, "Input",ExpressionUUID->"c4cc127f-de38-45e1-9828-bef039fccef4", CellID->667877521], Cell[215614, 4983, 93, 3, 70, "Output",ExpressionUUID->"64c3b094-397c-44ee-ba3d-a7f1cf182c8b", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[215768, 4993, 1048, 26, 70, "Section",ExpressionUUID->"a97ebfe6-be57-432a-94be-bdf02653f91e", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->278925130], Cell[216819, 5021, 509, 8, 70, "Text",ExpressionUUID->"64a6ec02-b321-44f5-89ad-a189ce48313f", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[217365, 5034, 929, 25, 70, "Section",ExpressionUUID->"f1340453-b1ce-44f8-a24b-b94aa480093d", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->613343431], Cell[218297, 5061, 495, 8, 70, "Text",ExpressionUUID->"c0b85172-6aa6-4943-8e29-208c2928b9cf", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)