(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 447192, 10201] NotebookOptionsPosition[ 291858, 7155] NotebookOutlinePosition[ 413582, 9491] CellTagsIndexPosition[ 412595, 9459] WindowTitle->DefinitionData | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ 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[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, 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->201182710], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[23]:=", CellID->613866083], Cell[CellGroupData[{ Cell["Attributes", "Subsection", TaggingRules->{}, CellID->61827135], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DefinitionData", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldFirst", " ", "}"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[24]:=", CellID->601823412] }, Open ]], Cell[CellGroupData[{ Cell["Messages", "Subsection", TaggingRules->{}, CellID->545224670], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "::", "unknown"}], " ", "=", " ", "\"\<`1` is not a known DefinitionData property.\>\""}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[25]:=", CellID->914869458] }, Open ]], Cell[CellGroupData[{ Cell["Main Definition", "Subsection", TaggingRules->{}, CellID->903915879], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", " ", RowBox[{"symbol_Symbol", "?", " ", "symbolQ"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ "def", ",", " ", "defData", ",", " ", "name", ",", " ", "data"}], " ", "}"}], ",", "\n", "\n", " ", RowBox[{ RowBox[{"def", " ", "=", " ", RowBox[{"minimalFullDefinition", " ", "@", " ", "symbol"}]}], ";", "\n", " ", RowBox[{"defData", " ", "=", " ", RowBox[{"definitionRules", " ", "@", " ", "def"}]}], ";", "\n", " ", RowBox[{"name", " ", "=", " ", RowBox[{"fullSymbolName", " ", "@", " ", "symbol"}]}], ";", "\n", " ", RowBox[{"data", " ", "=", " ", RowBox[{"<|", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "name"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "defData"}]}], " ", "|>"}]}], ";", "\n", "\n", " ", RowBox[{"DefinitionData", " ", "@", " ", RowBox[{"Evaluate", " ", "@", " ", "data"}]}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[26]:=", CellID->56456510], Cell[TextData[{ "For ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ResourceFunction", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", get the definition of the underlying symbol:" }], "Text", TaggingRules->{}, CellID->258240077], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", " ", "rf_ResourceFunction", " ", "]"}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"ResourceFunction", "[", " ", RowBox[{"rf", ",", " ", "\"\\""}], " ", "]"}], ";", "\n", " ", RowBox[{"ToExpression", "[", " ", RowBox[{ RowBox[{"ResourceFunction", "[", " ", RowBox[{"rf", ",", " ", "\"\\""}], " ", "]"}], ",", "\n", " ", "InputForm", ",", "\n", " ", "DefinitionData"}], "\n", " ", "]"}]}], "\n", ")"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[27]:=", CellID->16964478], Cell["Standardize association arguments:", "Text", TaggingRules->{}, CellID->488877613], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", " ", RowBox[{"a_Association", " ", "/;", " ", RowBox[{"!", " ", RowBox[{"AssociationQ", " ", "@", " ", RowBox[{"Unevaluated", " ", "@", " ", "a"}]}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"b", " ", "=", " ", "a"}], " ", "}"}], ",", " ", RowBox[{ RowBox[{"DefinitionData", " ", "@", " ", "b"}], " ", "/;", " ", RowBox[{"AssociationQ", " ", "@", " ", "b"}]}]}], " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[28]:=", CellID->331612331], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "bytes_ByteArray"}], " ", "]"}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"new", " ", "=", " ", RowBox[{"Append", "[", " ", RowBox[{"info", ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"BinaryDeserialize", " ", "@", " ", "bytes"}]}]}], " ", "]"}]}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"DefinitionData", " ", "@", " ", "new"}], " ", "/;", " ", RowBox[{"AssociationQ", " ", "@", " ", "new"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[29]:=", CellID->796045059], Cell[CellGroupData[{ Cell["Properties", "Subsubsection", TaggingRules->{}, CellID->296340406], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"DefinitionData", "[", " ", "info_Association", " ", "]"}], "[", " ", "property_", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"getProperty", "[", " ", RowBox[{"info", ",", " ", "property"}], " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[30]:=", CellID->315024246], Cell[CellGroupData[{ Cell["getProperty", "Subsubsubsection", TaggingRules->{}, CellID->532568235], Cell[BoxData[ RowBox[{ RowBox[{"getProperty", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[31]:=", CellID->31671168], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{ RowBox[{"KeyValuePattern", "[", " ", RowBox[{"prop_", " ", "->", " ", "val_"}], " ", "]"}], ",", " ", "prop_"}], " ", "]"}], " ", ":=", " ", "val"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "\"\\""}], " ", "]"}], " ", ":=", " ", "$properties"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "\"\\""}], " ", "]"}], " ", ":=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "\"\\""}], " ", "]"}], " ", ":=", " ", RowBox[{"getSymbolsProperty", " ", "@", " ", "info"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "\"\\""}], " ", "]"}], " ", ":=", " ", RowBox[{"getNamesProperty", " ", "@", " ", "info"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "\"\\""}], " ", "]"}], " ", ":=", " ", RowBox[{"getSizeProperty", " ", "@", " ", "info"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "\"\\""}], " ", "]"}], " ", ":=", " ", RowBox[{"getContextsProperty", " ", "@", " ", "info"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "props_List"}], " ", "]"}], " ", ":=", " ", RowBox[{"getProperties", "[", " ", RowBox[{"info", ",", " ", "props"}], " ", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", "info_", " ", "]"}], "[", " ", "prop_", " ", "]"}], " ", ":=", " ", RowBox[{"getProperty", "[", " ", RowBox[{"info", ",", " ", "prop"}], " ", "]"}]}], ";"}]}], "Code", TaggingRules->{}, CellLabel->"In[32]:=", CellID->300844952], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"getProperty", "[", " ", RowBox[{"info_", ",", " ", "p_"}], " ", "]"}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", RowBox[{ RowBox[{"DefinitionData", "::", "unknown"}], ",", " ", "p"}], " ", "]"}], ";", "\n", " ", RowBox[{"Failure", "[", " ", RowBox[{"\"\\"", ",", "\n", " ", RowBox[{"<|", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", ":>", " ", RowBox[{"DefinitionData", "::", "unknown"}]}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", " ", RowBox[{"HoldForm", " ", "@", " ", "p"}], " ", "}"}]}]}], "\n", " ", "|>"}]}], "\n", " ", "]"}]}], "\n", ")"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[41]:=", CellID->370911480] }, Open ]], Cell[CellGroupData[{ Cell["$properties", "Subsubsubsection", TaggingRules->{}, CellID->453151624], Cell[BoxData[ RowBox[{ RowBox[{"$properties", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[42]:=", CellID->399093694], Cell[BoxData[ RowBox[{ RowBox[{"$properties", " ", "=", "\n", " ", RowBox[{"{", "\n", " ", RowBox[{ "\"\\"", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\"", ",", "\n", " ", "\"\\""}], "\n", " ", "}"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[43]:=", CellID->49651184] }, Open ]], Cell[CellGroupData[{ Cell["getProperties", "Subsubsubsection", TaggingRules->{}, CellID->358384089], Cell[BoxData[ RowBox[{ RowBox[{"getProperties", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[44]:=", CellID->26208684], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"getProperties", "[", " ", RowBox[{"info_", ",", " ", "props_"}], " ", "]"}], " ", ":=", " ", RowBox[{"AssociationMap", "[", " ", RowBox[{ RowBox[{"getProperty", " ", "@", " ", "info"}], ",", " ", "props"}], " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[45]:=", CellID->929950602], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"getProperties", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[46]:=", CellID->806806043] }, Open ]], Cell[CellGroupData[{ Cell["getSymbolsProperty", "Subsubsubsection", TaggingRules->{}, CellID->398073866], Cell[BoxData[ RowBox[{ RowBox[{"getSymbolsProperty", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[47]:=", CellID->159895552], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"getSymbolsProperty", "[", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "defs_Association"}], " ", "]"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"ToExpression", "[", " ", RowBox[{ RowBox[{"Keys", " ", "@", " ", "defs"}], ",", " ", "InputForm", ",", " ", "HoldForm"}], " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[48]:=", CellID->145538179], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"getSymbolsProperty", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[49]:=", CellID->618703823] }, Open ]], Cell[CellGroupData[{ Cell["getNamesProperty", "Subsubsubsection", TaggingRules->{}, CellID->20377209], Cell[BoxData[ RowBox[{ RowBox[{"getNamesProperty", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[50]:=", CellID->408321345], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"getNamesProperty", "[", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "defs_Association"}], " ", "]"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Keys", " ", "@", " ", "defs"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[51]:=", CellID->511991621], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"getNamesProperty", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[52]:=", CellID->982253671] }, Open ]], Cell[CellGroupData[{ Cell["getSizeProperty", "Subsubsubsection", TaggingRules->{}, CellID->374020421], Cell[BoxData[ RowBox[{ RowBox[{"getSizeProperty", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[53]:=", CellID->800236589], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"getSizeProperty", "[", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "defs_Association"}], " ", "]"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"bytesToQuantity", " ", "@", " ", RowBox[{"ByteCount", " ", "@", " ", "defs"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[54]:=", CellID->24376674], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"getSizeProperty", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[55]:=", CellID->998869661] }, Open ]], Cell[CellGroupData[{ Cell["getContextsProperty", "Subsubsubsection", TaggingRules->{}, CellID->623073772], Cell[BoxData[ RowBox[{ RowBox[{"getContextsProperty", " ", "//", " ", "ClearAll"}], ";"}]], "Code",\ TaggingRules->{}, CellLabel->"In[56]:=", CellID->966580308], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"getContextsProperty", "[", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "defs_Association"}], " ", "]"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Union", " ", "@", " ", RowBox[{"Map", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"StringJoin", "[", " ", RowBox[{ RowBox[{"StringRiffle", "[", " ", RowBox[{ RowBox[{"Most", " ", "@", " ", "#"}], ",", " ", "\"\<`\>\""}], " ", "]"}], ",", " ", "\"\<`\>\""}], " ", "]"}], " ", "&"}], ",", "\n", " ", RowBox[{"StringSplit", "[", " ", RowBox[{ RowBox[{"Keys", " ", "@", " ", "defs"}], ",", " ", "\"\<`\>\""}], " ", "]"}]}], "\n", " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[57]:=", CellID->435151980], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"getContextsProperty", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[58]:=", CellID->704137361] }, Open ]], Cell[CellGroupData[{ Cell["getDefinitionListProperty", "Subsubsubsection", TaggingRules->{}, CellID->252650550], Cell[BoxData[ RowBox[{ RowBox[{"getDefinitionListProperty", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[59]:=", CellID->772969513], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "getDefinitionListProperty", "[", " ", "info_Association", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"toDefinitionList", " ", "@", " ", RowBox[{"DefinitionData", " ", "@", " ", "info"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[60]:=", CellID->631836009], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"getDefinitionListProperty", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[61]:=", CellID->1059198] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Loading definitions", "Subsection", TaggingRules->{}, CellID->904307675], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{"HoldPattern", " ", "@", "\n", RowBox[{"Get", " ", "@", " ", RowBox[{"DefinitionData", "[", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", " ", "@", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "name_"}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "_Association"}]}], "\n", "}"}]}]}], " ", "]"}]}]}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"defs", " ", "=", " ", RowBox[{"toDefinitionList", " ", "@", " ", RowBox[{"DefinitionData", " ", "@", " ", "info"}]}]}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Language`ExtendedFullDefinition", "[", " ", "]"}], " ", "=", " ", "defs"}], ";", " ", RowBox[{"Symbol", " ", "@", " ", "name"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[62]:=", CellID->802860626] }, Open ]], Cell[CellGroupData[{ Cell["Information", "Subsection", TaggingRules->{}, CellID->669225353], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", "\n", RowBox[{"HoldPattern", " ", "@", " ", RowBox[{"Information", "[", " ", RowBox[{"data", ":", " ", RowBox[{"DefinitionData", "[", " ", "_Association", " ", "]"}]}], " ", "]"}]}], " ", ":=", "\n", " ", RowBox[{"InformationData", " ", "@", " ", RowBox[{"AssociationMap", "[", " ", RowBox[{"data", ",", " ", "$infoProperties"}], " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[63]:=", CellID->168097248], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", "\n", RowBox[{"Information`OpenerViewQ", "[", " ", RowBox[{"DefinitionData", ",", " ", RowBox[{"\"\\"", "|", "\"\\""}]}], " ", "]"}], " ", ":=", " ", "True"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[64]:=", CellID->766669925], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{"HoldPattern", " ", "@", "\n", RowBox[{"Information`GetInformationSubset", "[", " ", RowBox[{"d_DefinitionData", ",", " ", "p_List"}], " ", "]"}]}], " ", ":=", " ", RowBox[{"d", " ", "@", " ", "p"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[65]:=", CellID->638299375], Cell[CellGroupData[{ Cell["$infoProperties", "Subsubsection", TaggingRules->{}, CellID->246644785], Cell[BoxData[ RowBox[{ RowBox[{"$infoProperties", " ", ":=", " ", RowBox[{"$infoProperties", " ", "=", "\n", " ", RowBox[{"DeleteCases", "[", " ", RowBox[{"$properties", ",", " ", RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\""}]}], " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[66]:=", CellID->938187894] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Formatting", "Subsection", TaggingRules->{}, CellID->377078833], Cell[CellGroupData[{ Cell["Boxes", "Subsubsection", TaggingRules->{}, CellID->413604007], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", "\n", RowBox[{"MakeBoxes", "[", "\n", " ", RowBox[{ RowBox[{"DefinitionData", "[", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", " ", "@", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "name_"}], ",", "\n", " ", RowBox[{ "\"\\"", " ", "->", " ", "definitions_Association"}]}], "\n", " ", "}"}]}]}], " ", "]"}], ",", "\n", " ", "fmt_"}], "\n", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ "packed", ",", " ", "contextList", ",", " ", "shown", ",", " ", "hidden", ",", " ", "head", ",", " ", "panel", ",", " ", "box"}], " ", "}"}], ",", "\n", "\n", " ", RowBox[{ RowBox[{"packed", " ", "=", " ", RowBox[{"serializeDefinitions", " ", "@", " ", "info"}]}], ";", "\n", " ", RowBox[{"contextList", " ", "=", " ", RowBox[{"summaryContextList", "[", " ", RowBox[{"definitions", ",", " ", "fmt"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"shown", " ", "=", " ", RowBox[{"summaryVisibleRows", "[", " ", RowBox[{"name", ",", " ", "definitions", ",", " ", "fmt"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"hidden", " ", "=", " ", RowBox[{"summaryHiddenRows", "[", " ", RowBox[{"contextList", ",", " ", "definitions", ",", " ", "fmt"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"head", " ", "=", " ", "$symbolBoxes"}], ";", "\n", " ", RowBox[{"panel", " ", "=", " ", RowBox[{"summaryPanel", "[", " ", RowBox[{"shown", ",", " ", "hidden", ",", " ", "fmt"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"box", " ", "=", " ", RowBox[{"RowBox", " ", "@", " ", RowBox[{"{", " ", RowBox[{ "head", ",", " ", "\"\<[\>\"", ",", " ", "panel", ",", " ", "\"\<]\>\""}], " ", "}"}]}]}], ";", "\n", "\n", " ", RowBox[{"summaryInterpretation", "[", " ", RowBox[{"box", ",", " ", "packed"}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[67]:=", CellID->384206060], Cell[CellGroupData[{ Cell["$resourceFunction", "Subsubsubsection", TaggingRules->{}, CellID->712869010], Cell[BoxData[ RowBox[{ RowBox[{"$resourceFunction", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[68]:=", CellID->754597417], Cell[BoxData[ RowBox[{ RowBox[{"$resourceFunction", " ", ":=", " ", RowBox[{"$resourceFunction", " ", "=", "\n", " ", RowBox[{"StringStartsQ", "[", " ", RowBox[{ RowBox[{"Context", " ", "@", " ", "DefinitionData"}], ",", " ", "\"\\""}], " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[69]:=", CellID->15125735] }, Open ]], Cell[CellGroupData[{ Cell["$symbolBoxes", "Subsubsubsection", TaggingRules->{}, CellID->333554311], Cell[BoxData[ RowBox[{ RowBox[{"$symbolBoxes", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[70]:=", CellID->227135103], Cell[BoxData[ RowBox[{ RowBox[{"$symbolBoxes", " ", ":=", " ", RowBox[{"$symbolBoxes", " ", "=", "\n", " ", RowBox[{"If", "[", " ", RowBox[{"$resourceFunction", ",", "\n", " ", RowBox[{"First", " ", "@", " ", RowBox[{ "FunctionResource`MakeResourceFunctionBoxes", "[", " ", "\"\\"", " ", "]"}]}], ",", "\n", " ", "\"\\""}], "\n", " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[71]:=", CellID->283117987] }, Open ]], Cell[CellGroupData[{ Cell["summaryInterpretation", "Subsubsubsection", TaggingRules->{}, CellID->769783563], Cell[BoxData[ RowBox[{ RowBox[{"summaryInterpretation", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[72]:=", CellID->295801092], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"summaryInterpretation", "[", " ", RowBox[{"box_", ",", " ", "packed_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"InterpretationBox", "[", "\n", " ", RowBox[{"box", ",", "\n", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "packed", " ", "]"}], ",", "\n", " ", RowBox[{"Editable", " ", "->", " ", "False"}], ",", "\n", " ", RowBox[{"Selectable", " ", "->", " ", "False"}], ",", "\n", " ", RowBox[{"SelectWithContents", " ", "->", " ", "True"}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[73]:=", CellID->81922356] }, Open ]], Cell[CellGroupData[{ Cell["summaryContextList", "Subsubsubsection", TaggingRules->{}, CellID->491593304], Cell[BoxData[ RowBox[{ RowBox[{"summaryContextList", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[74]:=", CellID->474777904], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"summaryContextList", "[", " ", RowBox[{"definitions_", ",", " ", "fmt_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"KeyValueMap", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"BoxForm`MakeSummaryItem", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"StringJoin", "[", " ", RowBox[{"#1", ",", " ", "\"\<: \>\""}], " ", "]"}], ",", " ", "#2"}], " ", "}"}], ",", " ", "fmt"}], " ", "]"}], " ", "&"}], ",", "\n", " ", RowBox[{"Counts", " ", "@", " ", RowBox[{"Map", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"StringJoin", "[", " ", RowBox[{ RowBox[{"StringRiffle", "[", " ", RowBox[{ RowBox[{"Most", "[", " ", "#", " ", "]"}], ",", " ", "\"\<`\>\""}], " ", "]"}], ",", " ", "\"\<`\>\""}], " ", "]"}], " ", "&"}], ",", "\n", " ", RowBox[{"StringSplit", "[", " ", RowBox[{ RowBox[{"Keys", " ", "@", " ", "definitions"}], ",", " ", "\"\<`\>\""}], " ", "]"}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[75]:=", CellID->259164944] }, Open ]], Cell[CellGroupData[{ Cell["summaryVisibleRows", "Subsubsubsection", TaggingRules->{}, CellID->359618881], Cell[BoxData[ RowBox[{ RowBox[{"summaryVisibleRows", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[76]:=", CellID->870856006], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"summaryVisibleRows", "[", " ", RowBox[{"name_", ",", " ", "definitions_", ",", " ", "fmt_"}], " ", "]"}], " ", ":=", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"BoxForm`MakeSummaryItem", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"\"\\"", " ", ",", " ", "name"}], " ", "}"}], ",", " ", "fmt"}], " ", "]"}], " ", "}"}], ",", "\n", " ", RowBox[{"{", " ", RowBox[{"BoxForm`MakeSummaryItem", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"\"\\"", ",", " ", RowBox[{"Length", " ", "@", " ", "definitions"}]}], " ", "}"}], ",", " ", "fmt"}], " ", "]"}], " ", "}"}]}], "\n", "}"}]}], ";"}]], "Code",\ TaggingRules->{}, CellLabel->"In[77]:=", CellID->163206735] }, Open ]], Cell[CellGroupData[{ Cell["summaryHiddenRows", "Subsubsubsection", TaggingRules->{}, CellID->684134299], Cell[BoxData[ RowBox[{ RowBox[{"summaryHiddenRows", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[78]:=", CellID->611945962], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"summaryHiddenRows", "[", " ", RowBox[{"contextList_", ",", " ", "definitions_", ",", " ", "fmt_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"size", ",", " ", "count", ",", " ", "contexts"}], " ", "}"}], ",", "\n", "\n", " ", RowBox[{ RowBox[{"size", " ", "=", " ", RowBox[{"bytesToQuantity", " ", "@", " ", RowBox[{"ByteCount", " ", "@", " ", "definitions"}]}]}], ";", "\n", " ", RowBox[{"count", " ", "=", " ", RowBox[{"Length", " ", "@", " ", "contextList"}]}], ";", "\n", " ", RowBox[{"contexts", " ", "=", " ", RowBox[{"OpenerView", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"count", ",", " ", RowBox[{"Column", " ", "@", " ", "contextList"}]}], " ", "}"}], ",", " ", "False"}], " ", "]"}]}], ";", "\n", "\n", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"BoxForm`MakeSummaryItem", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"\"\\"", " ", ",", " ", "size"}], " ", "}"}], ",", " ", "fmt"}], " ", "]"}], " ", "}"}], ",", "\n", " ", RowBox[{"{", " ", RowBox[{"BoxForm`MakeSummaryItem", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"\"\\"", ",", " ", "contexts"}], " ", "}"}], ",", " ", "fmt"}], " ", "]"}], " ", "}"}]}], "\n", " ", "}"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[79]:=", CellID->787205277] }, Open ]], Cell[CellGroupData[{ Cell["bytesToQuantity", "Subsubsubsection", TaggingRules->{}, CellID->583070451], Cell[BoxData[ RowBox[{ RowBox[{"bytesToQuantity", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[80]:=", CellID->336326559], Cell[BoxData[ RowBox[{ RowBox[{"bytesToQuantity", " ", ":=", " ", RowBox[{"bytesToQuantity", " ", "=", "\n", " ", RowBox[{"ResourceFunction", "[", " ", RowBox[{"\"\\"", ",", " ", "\"\\""}], " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[81]:=", CellID->142422494] }, Open ]], Cell[CellGroupData[{ Cell["summaryPanel", "Subsubsubsection", TaggingRules->{}, CellID->722120001], Cell[BoxData[ RowBox[{ RowBox[{"summaryPanel", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[82]:=", CellID->968978954], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"summaryPanel", "[", " ", RowBox[{"shown_", ",", " ", "hidden_", ",", " ", "fmt_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"FirstCase", "[", "\n", " ", RowBox[{ RowBox[{"BoxForm`ArrangeSummaryBox", "[", "\n", " ", RowBox[{ "\"\\"", ",", "\n", " ", "Null", ",", "\n", " ", "$icon", ",", "\n", " ", "shown", ",", "\n", " ", "hidden", ",", "\n", " ", "fmt"}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"DynamicModuleBox", "[", " ", RowBox[{"_", ",", " ", RowBox[{"TemplateBox", "[", " ", RowBox[{"_", ",", " ", "\"\\""}], " ", "]"}], ",", " ", "___"}], " ", "]"}], ",", "\n", " ", "\"\<\[Ellipsis]\>\"", ",", "\n", " ", "Infinity"}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[83]:=", CellID->811956555] }, Open ]], Cell[CellGroupData[{ Cell["$icon", "Subsubsubsection", TaggingRules->{}, CellID->841824760], Cell[BoxData[ RowBox[{ RowBox[{"$icon", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[84]:=", CellID->749934461], Cell[BoxData[ RowBox[{ RowBox[{"$icon", " ", ":=", " ", RowBox[{"$icon", " ", "=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", "label", " ", "}"}], ",", "\n", "\n", " ", RowBox[{ RowBox[{"label", " ", "=", " ", RowBox[{"RowBox", " ", "@", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"RowBox", " ", "@", " ", RowBox[{"{", " ", RowBox[{ "\"\\"", ",", " ", "\"\<[\>\"", ",", " ", "\"\\"", ",", " ", "\"\<]\>\""}], " ", "}"}]}], ",", " ", "\"\<:=\>\"", ",", " ", "\"\<\\\"\\\"\>\""}], " ", "}"}]}]}], ";", "\n", "\n", " ", RowBox[{"Framed", "[", " ", RowBox[{ RowBox[{"Style", "[", " ", RowBox[{ RowBox[{"RawBoxes", " ", "@", " ", "label"}], ",", "\n", " ", "\"\\"", ",", "\n", " ", RowBox[{"FontColor", " ", "->", " ", RowBox[{"GrayLevel", "[", " ", "0.25", " ", "]"}]}], ",", "\n", " ", RowBox[{ "FontFamily", " ", "->", " ", "\"\\""}], ",", "\n", " ", RowBox[{"FontSize", " ", "->", " ", "12"}], ",", "\n", " ", RowBox[{"ShowAutoStyles", " ", "->", " ", "True"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"Background", " ", "->", " ", RowBox[{"GrayLevel", "[", " ", "0.95", " ", "]"}]}], ",", "\n", " ", RowBox[{"FrameMargins", " ", "->", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"2", ",", " ", "2"}], " ", "}"}], ",", " ", RowBox[{"{", " ", RowBox[{"4", ",", " ", "3"}], " ", "}"}]}], " ", "}"}]}], ",", "\n", " ", RowBox[{"RoundingRadius", " ", "->", " ", "3"}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[85]:=", CellID->275271151] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["InputForm", "Subsubsection", TaggingRules->{}, CellID->8955130], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{ RowBox[{"Format", "[", "\n", " ", RowBox[{ RowBox[{"DefinitionData", "[", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "_Association"}], " ", "]"}]}], " ", "]"}], ",", "\n", " ", "InputForm"}], "\n", "]"}], " ", "/;", " ", "$resourceFunction"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"packed", " ", "=", " ", RowBox[{"serializeDefinitions", " ", "@", " ", "info"}]}], " ", "}"}], ",", "\n", " ", RowBox[{"OutputForm", " ", "@", " ", RowBox[{"ToString", "[", "\n", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "packed", " ", "]"}]}], ",", "\n", " ", "InputForm"}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[86]:=", CellID->512704535], Cell[BoxData[ RowBox[{ RowBox[{"DefinitionData", " ", "/:", " ", RowBox[{"Format", "[", "\n", " ", RowBox[{ RowBox[{"DefinitionData", "[", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "_Association"}], " ", "]"}]}], " ", "]"}], ",", "\n", " ", "InputForm"}], "\n", "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"packed", " ", "=", " ", RowBox[{"serializeDefinitions", " ", "@", " ", "info"}]}], " ", "}"}], ",", "\n", " ", RowBox[{"OutputForm", " ", "@", " ", RowBox[{"ToString", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", RowBox[{"DefinitionData", " ", "@", " ", "packed"}]}], ",", " ", "InputForm"}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[87]:=", CellID->843237275] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Dependencies", "Subsection", TaggingRules->{}, CellID->642677896], Cell[CellGroupData[{ Cell["serializeDefinitions", "Subsubsection", TaggingRules->{}, CellID->404515191], Cell[BoxData[ RowBox[{ RowBox[{"serializeDefinitions", " ", "//", " ", "ClearAll"}], ";"}]], "Code",\ TaggingRules->{}, CellLabel->"In[88]:=", CellID->952094976], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"serializeDefinitions", "[", "\n", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "defs_Association"}], " ", "]"}]}], "\n", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", "bytes", " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"bytes", " ", "=", " ", RowBox[{"serializeWithContext", "[", " ", RowBox[{"defs", ",", " ", RowBox[{"PerformanceGoal", " ", "->", " ", "\"\\""}]}], " ", "]"}]}], ";", "\n", " ", RowBox[{"Append", "[", " ", RowBox[{"info", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "bytes"}]}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[89]:=", CellID->462703177], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"serializeDefinitions", "[", " ", RowBox[{"info", ":", " ", RowBox[{"KeyValuePattern", "[", " ", RowBox[{"\"\\"", " ", "->", " ", "_ByteArray"}], " ", "]"}]}], " ", "]"}], " ", ":=", "\n", " ", "info"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[90]:=", CellID->667004851] }, Open ]], Cell[CellGroupData[{ Cell["serializeWithContext", "Subsubsection", TaggingRules->{}, CellID->528334896], Cell[BoxData[ RowBox[{ RowBox[{"serializeWithContext", " ", "//", " ", "ClearAll"}], ";"}]], "Code",\ TaggingRules->{}, CellLabel->"In[91]:=", CellID->980951630], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"serializeWithContext", "[", " ", RowBox[{"expr_", ",", " ", "opts___"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"withContext", " ", "@", " ", RowBox[{"BinarySerialize", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "opts"}], " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[92]:=", CellID->313319864] }, Open ]], Cell[CellGroupData[{ Cell["definitionRules", "Subsubsection", TaggingRules->{}, CellID->407952235], Cell[BoxData[ RowBox[{ RowBox[{"definitionRules", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[93]:=", CellID->686576304], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"definitionRules", "[", " ", "def_", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Association", " ", "@", " ", RowBox[{"Cases", "[", "\n", " ", RowBox[{"def", ",", "\n", " ", RowBox[{ RowBox[{"HoldPattern", "[", " ", RowBox[{ RowBox[{"HoldForm", "[", " ", "sym_", " ", "]"}], " ", "->", " ", RowBox[{"{", " ", "defs___", " ", "}"}]}], " ", "]"}], " ", ":>", "\n", " ", RowBox[{"(", RowBox[{ RowBox[{"fullSymbolName", " ", "@", " ", "sym"}], " ", "->", " ", RowBox[{"Association", " ", "@", " ", "defs"}]}], ")"}]}]}], "\n", " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[94]:=", CellID->136046222] }, Open ]], Cell[CellGroupData[{ Cell["toDefinitionList", "Subsubsection", TaggingRules->{}, CellID->457704061], Cell[BoxData[ RowBox[{ RowBox[{"toDefinitionList", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[95]:=", CellID->34959402], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"toDefinitionList", "[", " ", RowBox[{"DefinitionData", "[", " ", "info_Association", " ", "]"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"toDefinitionList", " ", "@", " ", "info"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[96]:=", CellID->81397609], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"toDefinitionList", "[", " ", "info_Association", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"toDefinitionList", "[", " ", RowBox[{"info", ",", " ", RowBox[{"Lookup", "[", " ", RowBox[{"info", ",", " ", "\"\\""}], " ", "]"}]}], " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[97]:=", CellID->525169586], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"toDefinitionList", "[", " ", RowBox[{"_Association", ",", " ", "definitions_Association"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Language`DefinitionList", " ", "@@", " ", RowBox[{"KeyValueMap", "[", " ", RowBox[{"definitionRule", ",", " ", "definitions"}], " ", "]"}]}]}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[98]:=", CellID->701451539], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"toDefinitionList", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[99]:=", CellID->442454769] }, Open ]], Cell[CellGroupData[{ Cell["definitionRule", "Subsubsection", TaggingRules->{}, CellID->560209853], Cell[BoxData[ RowBox[{ RowBox[{"definitionRule", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[100]:=", CellID->853168899], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"definitionRule", "[", " ", RowBox[{"name_String", ",", " ", "defs_Association"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{ RowBox[{"ToExpression", "[", " ", RowBox[{"name", ",", " ", "InputForm", ",", " ", "HoldForm"}], " ", "]"}], " ", "->", " ", RowBox[{"Normal", "[", " ", RowBox[{"defs", ",", " ", "Association"}], " ", "]"}]}]}], ";"}]], "Code",\ TaggingRules->{}, CellLabel->"In[101]:=", CellID->62882903], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"definitionRule", "[", " ", "___", " ", "]"}], " ", ":=", " ", "$Failed"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"TODO", ":", " ", RowBox[{"better", " ", "failures"}]}], " ", "*)"}]}]], "Code", TaggingRules->{}, CellLabel->"In[102]:=", CellID->868757465] }, Open ]], Cell[CellGroupData[{ Cell["minimalFullDefinition", "Subsubsection", TaggingRules->{}, CellID->30672886], Cell[BoxData[{ RowBox[{ RowBox[{"minimalFullDefinition", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{"minimalFullDefinition", " ", ":=", " ", RowBox[{ "defUtilSymbol", "[", " ", "\"\\"", " ", "]"}]}], ";"}]}], "Code", TaggingRules->{}, CellLabel->"In[103]:=", CellID->707393857] }, Open ]], Cell[CellGroupData[{ Cell["fullSymbolName", "Subsubsection", TaggingRules->{}, CellID->634769624], Cell[BoxData[{ RowBox[{ RowBox[{"fullSymbolName", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{"fullSymbolName", " ", ":=", " ", RowBox[{"defUtilSymbol", "[", " ", "\"\\"", " ", "]"}]}], ";"}]}], "Code", TaggingRules->{}, CellLabel->"In[105]:=", CellID->960192383] }, Open ]], Cell[CellGroupData[{ Cell["withContext", "Subsubsection", TaggingRules->{}, CellID->249849215], Cell[BoxData[{ RowBox[{ RowBox[{"withContext", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{"withContext", " ", ":=", " ", RowBox[{"defUtilSymbol", "[", " ", "\"\\"", " ", "]"}]}], ";"}]}], "Code", TaggingRules->{}, CellLabel->"In[107]:=", CellID->144197474] }, Open ]], Cell[CellGroupData[{ Cell["symbolQ", "Subsubsection", TaggingRules->{}, CellID->381850082], Cell[BoxData[{ RowBox[{ RowBox[{"symbolQ", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{"symbolQ", " ", ":=", " ", RowBox[{"defUtilSymbol", "[", " ", "\"\\"", " ", "]"}]}], ";"}]}], "Code", TaggingRules->{}, CellLabel->"In[109]:=", CellID->292042925] }, Open ]], Cell[CellGroupData[{ Cell["defUtilSymbol", "Subsubsection", TaggingRules->{}, CellID->582033421], Cell[BoxData[ RowBox[{ RowBox[{"defUtilSymbol", " ", "//", " ", "ClearAll"}], ";"}]], "Code", TaggingRules->{}, CellLabel->"In[111]:=", CellID->374050671], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"defUtilSymbol", "[", " ", "name_String", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"ctx", ",", " ", "full"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{ "ctx", " ", "=", " ", "\"\\""}], ";", "\n", " ", RowBox[{"full", " ", "=", " ", RowBox[{"ctx", " ", "<>", " ", "name"}]}], ";", "\n", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", "$ContextPath", " ", "}"}], ",", " ", RowBox[{"Quiet", "[", " ", RowBox[{ RowBox[{"Needs", " ", "@", " ", "ctx"}], ",", " ", RowBox[{"General", "::", "shdw"}]}], " ", "]"}]}], " ", "]"}], ";", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"NameQ", " ", "@", " ", "full"}], ",", " ", RowBox[{ RowBox[{"defUtilSymbol", "[", " ", "name", " ", "]"}], " ", "=", " ", RowBox[{"Symbol", " ", "@", " ", "full"}]}], ",", " ", RowBox[{"$Failed", " ", "&"}]}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", TaggingRules->{}, CellChangeTimes->{3.8396729931692753`*^9}, CellLabel->"In[112]:=", CellID->233115843] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], 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->321985898], 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[ StyleBox["symbol", "TI"], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and all its dependencies." }], "UsageDescription", CellID->82793148] }, 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[ StyleBox["property", "TI"], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->500941579] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, 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->892718828], Cell[TextData[{ "In ", Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "[", StyleBox["property", "TI"], "]"}], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", possible values for ", Cell[BoxData[ StyleBox[ StyleBox["property", "TI"], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", TaggingRules->{}, CellID->26679310], Cell[BoxData[GridBox[{ {Cell["\"Name\"", "TableText"], Cell[ "the fully qualified name of the symbol", "TableText"]}, {Cell["\"Definitions\"", "TableText"], Cell[TextData[{ "an ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " containing full definition information" }], "TableText"]}, {Cell["\"Symbols\"", "TableText"], Cell[TextData[{ "a list of all the contained symbols, each wrapped in ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["HoldForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData->"paclet:ref/HoldForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "TableText"]}, {Cell["\"Names\"", "TableText"], Cell[ "a list of fully qualified symbol names", "TableText"]}, {Cell["\"Size\"", "TableText"], Cell[ "the full size of the definition data in bytes", "TableText"]}, {Cell["\"Contexts\"", "TableText"], Cell[ "a list of all contexts for the defined symbols", "TableText"]}, {Cell["\"DefinitionList\"", "TableText"], Cell[TextData[{ "returns a ", Cell[BoxData[ StyleBox["Language`DefinitionList", ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the definition data" }], "TableText"]} }]], "TableNotes", TaggingRules->{}, CellID->278247060], Cell[TextData[{ Cell[BoxData[ StyleBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Get", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Get", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "]"}], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will restore all the contained definitions." }], "Notes", TaggingRules->{}, CellID->821444770], Cell[TextData[{ Cell[BoxData[ StyleBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Information", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Information", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{"DefinitionData", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "]"}], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " provides a summary of some properties." }], "Notes", TaggingRules->{}, CellID->430927241] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "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->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["\<\ Get all needed definitions for f, which depends on the function g:\ \>", "Text", TaggingRules->{}, CellID->71833313], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "3"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"g", "[", RowBox[{"x", "^", "2"}], "]"}]}], ";"}], "\n", RowBox[{"data", "=", RowBox[{"DefinitionData", "@", "f"}]}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->343294083], Cell[BoxData[ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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.728`", "\"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 -> {"Columns" -> {{Left}}, "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[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 112, 207, 201, 79, 74, 204, 73, 72, 115, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 112, 3, 128, 42, 217, 161, 194, 112, 193, 138, 52, 134, 98, 86, 167, 156, 196, 188, 108, 36, 149, 233, 64, 149, 172, 1, 249, 229, 169, 69, 8, 117, 206, 72, 78, 73, 167, 212, 41, 233, 4, 156, 130, 197, 122, 102, 0, 131, 144, 89, 77}]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.839673085008277*^9, 3.839673090157276*^9}, 3.839673489382375*^9, 3.839674755027376*^9}, CellLabel->"Out[3]=", CellID->627116621] }, Open ]], Cell["View information about the definitions:", "Text", TaggingRules->{}, CellID->281164086], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Information", "[", "data", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->702890012], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnb+PHEd2gNd24tCB/wH/F04dEU7Pdu47WT4YBmRAZ5zgyMEmZqT0YgZW 7twRBw4vF0mBpHQkSEhL7fKXFpSgdnmf5+Ft1XvVNT3d0z093weesOx5VV3d 1+/r+jXcv/jVv/ziH//47OzsN3+a/vOLX372V59++st/+5s/S3/5u09+80+/ /uTjf/jrT/71419//Olf/upP0sE//6Ozs79P//u/nzsAAAAAAIAD8v79+9ev X3///fffAcDx8+rVq5TRKa/30cLV1dWzZ88ePHjwJQCskZTdKcdTptdVcH2b pJfHjx/P3XYAOBAp31PWqwEqfnj+/Lkt+OTJkxcvXlxcXCTJvDk2Xi+JuW/G Cpn7/9JjJeVyyuiU1ym7bbKn3K/4IY1Hnj59qsF/+MMfUlXXALBeUo6nTNes TwYo5yUkUuXw8OHDy8vLeZsNAAcj5fujR49UEaUfdFjx4MGDt2/fzt1eADgo 796908WIly9fWj+8evVKjieHpLC5WwoAM5A6BmnsICp48+aN+kFXKxhWAJwy yQDZKOPq6konJOduHQDMjE5Xyr6IZ8+eyV9ZrQCA5AERQjJD8oNMSjx58mTu dgHAIpClzGSG9+/fiytevHgxd6MAYBF89913OqaQHy4uLuZulM9ms/nihrkb AnAqqBZ0ZfPq6mpAPZq8ls0N+zcyVfKZQU83rDZpWMtJ53LRpDcToB0dVtiO xIB60gP8WcDnn3++54Mt9UiCSM7KkQH5q+0sj7snnUURk95MOmCwEyP6QZ5e xT7ngx9L7TxkB0fsP7jGmLH/MN3NdK8UoMKIfnBfbZrgw158UnzSVF1a1kx3 M5d2pbB8pvbDddAHaAQ/ZOxzM5d2pbB8DuCHeoBOx2Wf6nHpbNuYciHDHqms dMhHeiKtXxRkS9XXSuy0YeNZ2t/4+9zMqGGVK228KDhNDuMHtxuQDqbEz6bg bFqVE3RSg5SyVemAvZzQqzSjrF+rLU8RNbi8cL0blasb/WaW57LXXrnS3rJw yhzSD9lTZ1NeZuGyJNIU0wU++Sjyg0ZeG73YPMoyKzupXUN0/aC5I2F22tBe u/Z5pNtzfVssU9xMvS5tmN6N3ivtLQunzGH8cL1NYf2rPITlmKKe0bZsVnkZ pnlar81N2/IUUdaUEwJfBKuojV2IATfTDS7b4LaqsSycJnP5IerEZk/mTn7o Pek+fqj0urPEl7vhDvAn8kOG7diU7ayfPSoLp8ks4wv96xcFo/uht7YWP7jj o+jy637o7bcPG6ylUu7cSO+VNpaF0+SQ6xd2OFw+je6T2e6Hwb2Rdj9EqZ1d XXQ3xvJDWY+0NlvlafRDY1k4TQ7jh+h1vAnIIvFDpW3XweU3+qGxLJwmB/CD vqH0SDmnF7EoP0QNzoIn9UN5M6NqW/zQXhZOk6n9UD7PgjyBbpEF9h+ugwWX a282YDo/uDfTrbZxfrK9LJwm4/pBsVNe7rcO9Y1s9zaUqXEAP2jSbcx3sspT VBr8mbf/YX8/NN5MbZjG28nG+pW2l4XTZOrvd1fSwZ2lrO94FMb1Q9aM6BSV BmcJO4ofdrqZZcPcAZF7pY1l4TQZxQ8b7580GVDWDfgi+GpGPUaPt0SWbShP 0d7gqOzm9vcyIobdzLJVbkG38Y1l4QQZxQ8AsErwAwBE4AcAiMAPABCBHwAg Aj8AQAR+AIAI/AAAEfgBACLwAwBE4AcAiMAPABCR+eHy8vINAMCbN8kGmR8u Li4uAQAuL5MNMj+kHkUHANB15fgCPwCAgB8AIAI/AEAEfgCACPwAABH4AQAi 8AMAROAHAIjADwAQgR8AIAI/AEAEfgCACPwAABH4AQAi8AMAROAHAIjADwAQ gR8AIAI/AEAEfgCACPwAABH4YTXcveHwZXtr661cAu7fvz9WA2Asjs4Pm83m 3g2VmN6AY+Su4f4NWcDZ2dmdO3eGVb5P2d7aUlOj+tPBsy0jCgrG4uj8kBL/ oxsqBpCAQ7ZqOlJy2STKsJGL9UN3I7d0MHOaHEyR97eM1QAYi+P1QyL1JdyY 1fhB3rySRNptSEhmHZEfupuuQnZQvEe3YckcqR/kv+fn527MOvygcoherNnx hfuhu+kw2DaLH8Y6KUzBkfoh9RySHKJRxjr8UJeDG79wP2Tgh+VzvH5IRKOM ih/ubSlLycynHnfDorJlPb1hdQb0vStZKUOSyjqCLdsb3BvT6wcpqNc47uoJ jMjx+kF/LkcZrh+kv2HJCmY9k2yWQ3VUmf0oy1YmSeqU0wstRcqs1JkKSxmm B7O5UJk8tJE66rHsOtLpnWuFhXDUfui2WZ/lYOkHyW59p7vDE7VNYrNF10o0 WMtGXtKwSg+nTmVBsEK0aiD5Kymsb+0sUo4IEmnXTWykxmiFA2ZKpbhtG4sX y+TY/aA5aGNcP5RVZWFubyRaTi1P4ZpKvbTDFW79UHa5ba++3FN05u06cN/L 5eAl6leUkWUiiyKy2ph/WAfH7ofOy+ve+UmZInD9kOWy65/Os4Hbo2hpTEnk h3KwUPGDu+XAfmSD3WGCW23WTu1m4IdVsgI/dNsc1INuSqaC5eRAox/KxM/8 oGH3Ckb0w31Drx8k+6J+u+uHKNJ+ZHdfWPDDKlmHH7K3fNT51/yV4q4f3Job /VBhp2usDA2UMv1dP0TFs/orGW0jtWF2mzfjixWzDj9024SVt3+Zkm6Oj+4H O7GZsetlVjr8wix+qGyTxg+rZDV+6Mwoo2Xg0E3Tf9jn0iy9SxiNfnD3FZTj l6i7kkW6YfhhxazJD5rLLX6I5ieH+aEr5kCySna5xP9HFyLdXkSvH3q/NZmV dWWSRbp+YP5hxazJD93tTVB60O5DENywPf1gN0voieqt7UV3IGRfztLjFT90 xjC2eLT/QbDfpiwjrbLsNCl+WCsr84OdJ4yO14chg/3gnsUtuxPuYoFmvY10 s9L9bnjZT9CsL89Sr1CagR/WytH5QV7KvQFljB7Xj7Iwt+Z6bfUGjPhv1GQ7 o9yYyj/B5O6nisq2BNsAaZsNrpQtL6o3DGbk6PwAAAcDPwBABH4AgAj8AAAR +AEAIvADAETgBwCIwA8AEIEfACACPwBABH4AgAj8AAAR+AEAIvADAETgBwCI wA8AEIEfACACPwBABH4AgAj8AAAR+AEAIvADAETgBwCIwA8AEIEfACACPwBA BH4AgAj8sGT0l+EOrqHy+zonLdtbW2/l9d8BOlGrDla2t7Z9Ko9+C/MAFuiH 6FfiWsb97bfLRH4vdvl7urMY+9tyy2xq/FXaLvuU7a1Nfle4W7/9FeF7PuSr vD+9pIuVe7i/XRfoh5T4H91QMYAEHLJVh0f+L3Y/Sv+/2yTKsJGLff67rQCz Z1iteH/LgHOt+P40InrZvwuxZD8kUl/CjTllP8j/9dq10DySx+mInv/u5hqz g3LV+zzY674/e1a4K4v1g/z3/PzcjTlZP+jDH71WsuMLf/67m7ekbXOl19TC 6u/P/hXuxGL9kHoOSQ7RKONk/VB/+EuW//xn7OmH1d+fA1e4ZD8kolFGxQ/3 tpSlZOZTj7thUdmynkqYBvRWVaHMlAF978pDIl3uyjy5Ldsb3BvT+7hKQb3G ARP4674/FjvpqkdG7BopS/aD/lyOMlw/SH/DkhXMeibZLIfqqDL7UZYtw8qA YUstpR/K4XMv7kOiI3FLGaYHs7k+mTy0kdqrt+z6uJY1DLjYFd8frco9XVm8 scI6C/dDt023LAdLP0h26/vaHZ6obRKbLZrCGqxlIy9pWNnD0VPYZozih2EL XmURffh1dUDf2u4DJkikfTizpuqKgz1FvSUZUty2badx9+rvT2c8o70Fe8bT 9IPmoI1x/VBWlYW5vZFoObU8hWsq9VJUajDZ3HW0YmV7rVmfswtW1d2XbNk5 j96bZWSZyJICWW2Tzj+cwv2JBlAVfdUr7GX5fui8vO5NQ5kBcP2QecD1T+fZ wO1RZI1xHTIM99Etn42yM1x5/itL6rrxwJaNgivPnrwl3WyaxQ9ruj9RjNt3 kgbXK+zlKPzQbXNQD7oZnQqWY/9GP5SJn2W6ht0rsGdR20Qrs42U75fK+1Hp ff7vVLfVuc9/FHl2e+zjjtmX4IfV3J/KAMr9SA4OWxtVjsUP2Vs+6vxr/kpx 1w9uzY1+qGArVE3pRMROuN3FStc3K9j7/EfFs/orT6yNtIPiu9v9SHONL1Z8 f8oiSqSOuu5aOBY/dNuElbd/6Qc3x0f3g53YzMiKW0vsqojyNVc/rszy/Lt9 8sP7oVv7/Yk6SF3sh3JMtCtH5IfOjDJaBg7dNP2Hna4lqrwX1/y9U/SNz3/l GSvn33oj3bBZ/LDu+1PpILkeGLagk3FcftB0a/FDND85zA9dMQeSVRJdzgCr dPHLQoce7luy9/mvPDNu2UobNNJ9aMuy+/ihvu+oLL7W+1PvWGbF9zGtclx+ 6G7vPtKDdh+C4Ibt6Qe7WUJPVO7WsJ9Wtoj3Un9Qz7aL4Dqe1eOV578zGWSL Rwtk+uBVIm1K2mnAEf2w03twxffHTmXY63KbJ8cbb1rE0fnBzhNGx+vDkMF+ cM/ykbfwGn26ExX/u5Ph+lTbSPep00yxlO9BfarLs9QrlGaM64fG/oOw4vvj ns7t9jRWWGeBfpCXcm9AGbMx33qQI1mYW3O9tnoD3AD7zYt9NkL09g/v3975 48bcjb/95+4Xisq2BNsAaZsNrpQtLyqr+WzQJPwq7092XXrkdPwAwijjxxXA feil7I10+GHtkBfCKOPodeMuu+CHdYMfhPaO9+px70O07okf1g1+gAwdR2TL Je78DH5YN3fH+H4NrIly8SKSQ7f7oo8Lflgs9mUxd1tgQdj1i2jEUdkIuhP4 Yclo73HuhsAxEW3DGAB+WDgyzJy7FXBMjPjM4AcAiMAPABCBHwAgAj8AQAR+ AIAI/AAAEfgBACLwAwBE4AcAiMAPABCBHwAgAj8AQAR+AIAI/AAAEfgBACLw AwBE4AcAiMAPABCBHwAgAj8AQAR+AIAI/AAAEfgBACLwAwBE4AcAiMAPABCB HwAgAj8AQAR+AIAI/AAAEfgBACLwAwBE4AcAiMAPMCm//5///q///F3679wN gSGcsh/ubdncYD9Kf03H52pYI71JJ7lZ+VPWUPloQJhE/vs//209rGxnOoJS lsAJ+iHl/vn5+UcFVhFyZLGKSLmTku53//HbepjkZuWPDU61ZZ+m4u6py8hK Lrf4IWqn2wA4JKfmhyQByf2kCO05pB8yPyy5/6Dp2esHeQuXfyQfbXGpM/1X Y6IMtce1qooB2v1gz95bLRyGU/OD9Byy0cSxkL24e/1Qryc7kmWiKsIeLMWi B6N3fbsf3AYMvkYYhVPzg3Qe5m7FQPTdvU/u1NPZIhqxaVse6foSGT8cNfjB ReYt5WcZa0RkBXXAMsXwRJN6n9wpOw/1SJu2biIP6D/oPGQlBj8sgVPzg0w1 pFFGPUyGIfKzTlmUZPVI5ZWAsRicO+2dh84ziXtet1ORndF+qiMXPej6od1j MB2n5odu24Woz0JYP3TbXoGl7IeoeaRaXSWZQhGD/dCedNEp7NRl+lOXQ1fk fimHzljL1llOicDhOUE/dNv0r1gi84P7abbe4aqgXs9ghvmhvZSbxfpROU3a 6IeoWnd9k11VS+A0/dDd3gWxU15LPyGbXihXSCvB+zPMD42dh7ocsnXPSrCg fqhEVtY3mX+Yl5P1g2AtYY9Hfqj3E8rZSz0+brOH+WGnLVVuvlfWLyLz6Nih Um20xsEWiNk5cT8IZRZHfoiGJO6GTGUJfmiZmdSB/64nrSxi2rHDrmugO82m whTgByHrQrh+qOyt0o8ixm3tAD/0Di4koJKM7uYo+1G9b1CRT1RcLhM/zAh+ EHr9EI0sbPzBtmQP8EM9vncZoquOIyrFbe5HiqD/sFhOzQ/uq7zM/XJ9s5yj sFS2VUyxl7ve1R+QaC22iSYYW+YfsvULd4d22Wy2QMzOqflBJwTsRsdyViHz g3YPKgMH3e1gw85vGP0qIj9E04AtW5j0W9Xln7J+DbZHKpW37H8ov0HG+sXs nKYfMnRTk2L9UO6KtJSlMg7Zf4he5fUX8U5fA4/2KtQrb9k/Wf5BDrNzan7o iu9TVGLk58qXL9zi9p+dmegSfr/9B1XKjyr/6ktvbdGfepGWptbb7zagXi0c hhP0AwA0gh8AIAI/AEAEfgCACPwAABH4AQAi8AMAROAHAIjADwAQgR8AIAI/ AEAEfgCACPwAABH4AQAi8AMAROAHAIjADwAQgR8AIAI/AEAEfgCACPwAABH4 AQAi8AMAROAHAIjADwAQgR8AIAI/AEAEfgCACPwAABH4AQAi8AMAROCH1XD3 hsOX7a1t3MrhkBzSD/cMm81morOslbuG+zdkAWdnZ3fu3BlW+T5le2tLTR23 fjgYB/BDUsH5+flHHlNbYnPDdPUn0U1XuZCSK2XWWYCNXKwfuhu5pYOl02Dh TO2HlEGigqQI6TYkpAsxtR/kFNOlsFzXRJUL8uaVdNNuQ0LS7Yj8kLhzw1in gMMwqR9UDq4Hpu48HLsfVA7Razc7vnA/dDe9CLoQx8V0fkjpf5hBRMSx+6Eu Bzd+4X6Ao2M6P8icw4D0rM9hyvBEP3IjJUYaIOMaN0ZHOm4DKufV8ZFcYBmv NQ+eiZU5h52m/StZKUOSyjqCLdsb3BuDH1bDdH7Y9fUaTWNm+aUTF2WwlUZZ j03hMiDVln2apbycTk7hzrVmkdGpGymnF1qKlFmpMxWWMkwPZnOh6a9ZB0ZH PZYRRzqwKCbygwwubNL1onkqOSiv4FIRcvD8Bsk76wrbAO3AbLZkNeiJtKeR NaYsopXb0VNv5bv6YdiCYLRqIPkrKZyOiAGySDkiSKRdN7GRGqMVjjtTCoti Uj+050U0GNE01CMqjSwyMknZ83fFJQ2I2p99as/YcnBXxA9l19326nUjhH7q 7jpwOyHl4CXqV5SR5XyIKCKrDT+sg4X4odLZcF/l7qRBix+iddUyWAcUURFX BXYYMpjID+VgoeKHypYD+cgGV+ZC69Ma2s3AD6tkCX6oD0ay9Kz7oZxkcKcR 7hWUHRhtVdQ21w/a4dlpbJVR6T8ovX6QtI2WP1w/RJH2I7v7woIfVsmkfmjs addlkqV5eweg4ocIt7MRXUX0kZ0P0YmInagMDZQy/V0/RMWz+isZbSO1YXab N+OLFTP1+kVLdhzeD5uY8hKittUFaC0xQBGVDr8wix/cMQt+WDHT+SGb869Q 72xkc4Oj+KFl4KMmiaYUWjpIA9ZxhN4ljEY/uPsTyvFL1F3JIt0w/LBiJt1f rYP36AWqx6McLPNrTz9UrGXrtOeN9NU4gGofZ2XoQqTbi+j1Q8UwbllXJlmk 6wfmH1bM1N/P0j623Yeg84GakpqDWVjZP2/3Q1mnbZL9vph0Esr9D5XKu9v2 syuhWbWN3RUX3YGQfTlLj1f80BnD2OLR/gdB9za4kVZZdpoUP6yVA3y/293N WL7ENZ2zmEwF7X7obs9GlmuXGZlAsqpKU2UNtmGVy9wVd7FAs95Gulnpfje8 7Cdo1pdnqVcozcAPa+Vg/z7MxnwlofI+tWGVgOi46w2h8aNN8KUM97jbWlvt nhshlGxnlBtT+Xaku58qKtsSbAOkbTaY72muBv59OQCIwA8AEIEfACACPwBA BH4AgAj8AAAR+AEAIvADAETgBwCIwA8AEIEfACACPwBABH4AgAj1w8XFhfzw ww8/zN0oAFgEyQaihaurK/nh7du3czcKABZBsoFqQX64vLycu1EAsAiSDUQL Hz58kB+eP38+d6MAYBEkG4gW0s9Pnz5NPzx8+HDuRgHAIkg2SE5IZkg/6xLG q1ev5m4XAMxM8oAubqa//vjjj/LXJI2ff/557tYBwGwkA0jnIZHMIAe1C8Es BMApozMP0nkQkjQeP34sx7/99tsZmwcAc5FyXySQbJANJa6vrx88eCCfvnjx Yq4WAsAsvHz5UtI/ecDdTf369esvt3z99dfsmAI4BVKmp3zX3E8eiCLfv3// 1VdfaeSjR48uLy91mgIAVkPK65TdKcc131Puv3v3rl7qw4cPz549+/I2qZI0 JPkaAI6flMtWC0LK+pT7jW5JGvnmm2++BIC1kzK9t9vg8tNPP11dXT1//lyc 8xUAHD8yFkh5nbI75fgAMwAAAABE/C9hF6yj "], {{0, 103.5}, {132., 0}}, {0, 255}, $CellContext`SmoothingQuality -> "High", ColorFunction->RGBColor, ImageResolution->{192., 192.}], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{132., 103.5}, PlotRange->{{0, 132.}, {0, 103.5}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.839673094437297*^9, 3.8396747551453514`*^9}, CellLabel->"Out[4]=", CellID->170980458] }, Open ]], Cell[TextData[{ "Using ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["Get", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Get", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can restore cleared symbols:" }], "Text", TaggingRules->{}, CellID->311335248], Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[5]:=", CellID->347720369], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[6]:=", CellID->452115605], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8396730982192774`*^9}, CellLabel->"Out[6]=", CellID->432356250] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "data", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->304874999], Cell[BoxData["f"], "Output", TaggingRules->{}, CellChangeTimes->{3.8396730993103*^9}, CellLabel->"Out[7]=", CellID->520064481] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[8]:=", CellID->850444813], Cell[BoxData["15625"], "Output", TaggingRules->{}, CellChangeTimes->{3.8396731003672757`*^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->{}, CellID->577013583], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Get", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{"data", "=", RowBox[{"DefinitionData", "@", "Collatz`Collatz"}]}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->213076804], Cell[BoxData[ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Collatz`Collatz\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Collatz`Collatz\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "2.864`", "\"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["\"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[{1, Column[{ 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "Collatz`Collatz", "Definitions" -> ByteArray[CompressedData[" 1:eJwBYgGd/iFib1JiAQAAAFUBAAA4Qzp4nM1Sy07DMBAkaaJCe0D8ge+QSogv KCkCJB6BVlwQUk2zCQZnXbxOq/IffC9sQuihipDghA/2vmbGHnnoRePd2Ggt 3du0OYd+RL2RWeKd1CVQ1qHgQpHLfOrflhpGoOUK0syj/pnRaSKdA4ucbvLE HhdrKEe/BTOg23Rp77uXWLWQDqYVIDzWEl+oe44OcrA8vxMbTJVTBmuwhTlg 2k4dJLokPsOJKoDiTotE7LXp+tQZ1qTBdZretE90Ty1wbNtIt/6ZEV8GtL8j TMwSbOzHHz86EZ4sAP9iRUTbl6wtc/5j3vqPBZU7m7awac3oleT7bj5kHJZV b/zuNYV7fBC5WgAJKTTzCpMJ9wRCMRurk1BY50e4fyjm1jxqKA56olnkpHUK c5FZUwgciAmPzgw+w8yVllmIwdLxxhHBawk4AyH1Uq5oTcJKhcJKbPAJlqQv FlZzo5I= "]]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.839673107128297*^9, {3.839673141524276*^9, 3.839673163530275*^9}}, CellLabel->"Out[2]=", CellID->141467458] }, Open ]], Cell["View the definitions:", "Text", TaggingRules->{}, CellID->298746840], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.839673133048297*^9}, CellLabel->"In[3]:=", CellID->104241045], 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.8396731114042964`*^9, {3.83967314164428*^9, 3.839673163635276*^9}}, CellLabel->"Out[3]=", CellID->488956882] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Collatz`Collatz", "//", "ClearAll"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.839673138355295*^9}, CellLabel->"In[4]:=", CellID->988767888], Cell["This is now equivalent to loading the original package:", "Text", TaggingRules->{}, CellID->140643066], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "@", "data"}]], "Input", TaggingRules->{}, CellLabel->"In[5]:=", CellID->199338375], Cell[BoxData["Collatz"], "Output", TaggingRules->{}, CellChangeTimes->{{3.8396731454923005`*^9, 3.839673163805296*^9}}, CellLabel->"Out[5]=", CellID->138750898] }, Open ]], Cell["The definition is loaded:", "Text", TaggingRules->{}, CellID->264392445], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Definition", "@", "Collatz`Collatz"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8396731576752987`*^9}, CellLabel->"In[6]:=", CellID->251728627], 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.8396731639032764`*^9}, CellLabel->"Out[6]=", CellID->48174095] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collatz`Collatz", "[", "47", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8396731576752987`*^9}, CellLabel->"In[7]:=", CellID->816214790], 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.8396731478153*^9, 3.8396731639972754`*^9}}, CellLabel->"Out[7]=", CellID->839863619] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell["Get a list of available properties:", "Text", TaggingRules->{}, CellID->817593913], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"], ImageSizeCache -> { 10.869015724668278`, {0., 10.869015724668278`}}], Appearance -> None, BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", StripOnInput -> False, ShowAutoStyles -> True, FontFamily -> "Source Sans Pro", FontSize -> 12, FontColor -> GrayLevel[0.25]], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`DefinitionData\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"], ImageSizeCache -> { 10.869015724668278`, {0., 10.869015724668278`}}], Appearance -> None, BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", StripOnInput -> False, ShowAutoStyles -> True, FontFamily -> "Source Sans Pro", FontSize -> 12, FontColor -> GrayLevel[0.25]], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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[{ "36.128`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Contexts: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = False}, InterpretationBox[ StyleBox[ PaneSelectorBox[{False -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, AutoAction -> False, ContinuousAction -> False, Enabled -> Automatic], "2"}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}], True -> GridBox[{{ OpenerBox[ Dynamic[Typeset`var$$], Appearance -> Automatic, AutoAction -> False, ContinuousAction -> False, Enabled -> Automatic], "2"}, {"", PaneBox[ TagBox[ GridBox[{{ RowBox[{ TagBox["\"Global`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["8", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Collatz`: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, DefaultBaseStyle -> "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ImageMargins -> 0]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxBackground -> {"Columns" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0.2}}, "Rows" -> {{0.5}}}]}, Dynamic[Typeset`var$$], Alignment -> Automatic, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> "OpenerView", ImageMargins -> 0, ImageSize -> Automatic], Deployed -> False, StripOnInput -> False], OpenerView[{2, Column[{ BoxForm`SummaryItem[{"Global`: ", 8}], BoxForm`SummaryItem[{"Collatz`: ", 1}]}]}, False]], DynamicModuleValues :> Automatic], Setting[#, {0}]& ], "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`DefinitionData", "Definitions" -> ByteArray[CompressedData[" 1:eJwBkAhv9yFib1JiAQAAAIMIAAA4Qzp4nO1a724bNxLP6o8tya7dBCiM4g64 Rb7ch54CtP0WoChkOXZzF8d/qPQ+FEVFSVx7m13udsm1rXzqS/QV+jx9hnuA e4W7IZe7y6W4sqQ01xwQwYi0y+FwZjjzmxkyg24ffXISRBMcjI+I51Of+xE9 whwPtvqsi9LJtzhICfN6rPXCZ9xrsJ3LNCBHJMBzMvMctvNNFMzOMeckoZ4D L+zsYGD/H2QuueXUDdYSvOB7W71i+2pynEQxSfjce8DahwGmr3WiXUV0I5hZ KWrZGHM31ibnh3rn2RI+2KiT2Qi1XuKQoN7Z5Ecy5aN5TNBOOZ2hthhmaBvN w0kUMNRC/huCOsOIcnLHGdorid/O5KWQmih7BtF93DWrdtQys012uWIDoFP7 sTNgLJr6WLy27bHYQY08d8I9bdopjkvRjInvwF2rimgiP8pluE/PYuu9Jtsd Rc/u4oQwJgzgsBasymysWPc5jVN+HCUh6wglxK/3VL/Mw5dp854KLkNRrv7x JWFRmkzJcUqncmz/cM4JG0UXKabcB0xxWFe8GkYp5f9HOhZAI8Zf0SzumhBE 8NzJtYVXPcQTn179PfLF0272dOl7HiA27OxpBIEI3yiI+NBBzhj+hMYZHYoD ny9zAEW9mX00vXcUBQgZvR36LOCuww4Ucx4tDNklq4rz1sBtA8SIX5NEp+jC fs4yxVov0yCAV4+GURiDW840aGlYnfrAfHMK5PhKZkb1U8ayXVC0ndLXNLo1 pGPtYxww0medV7EqH1qrlQ/mY/OE1Bt7TTdQ62fuIFO0jQEV7zXrrpG7Wv/0 +bXwebVSExFe8AXXZ7+HR1m3Vi4FUv/lBaZXKezZ+NkdJ3RGZsfgEJrshjRb Kg9VlF9zi3aeg2BJuJDAi6UyQHsn9QLM1lZXPmGWBhVBQDlQjABqYyYzlD5a KeYgNQ8CIRAwuiELVVm1pCsS+nLjNdiBJu/4LCaUJN/65Pai3sWrUqjascBw 1hol99exphSuLgWEmPYIFT8jvK7qU5twfzwuLd+cunKtz3pHgCYKM5orYkat NDuKZkRYRaOP1AQmN62ULg+Hvcr4BUzdOo1molNRIrGeFkd75e9KwEp/ay0J WJ0LCPFn9RSCEiEOjMg1ZFYcjLWFbaqY1JZ+XlnpPhfNejKnUmQWpuuVYpQo WULeYvQLoHnAHkpCkZ0Q+SkldEq0hfL988SwVE86ub5UVa8qdxNo1d4b2Kyh fu2KCzZeBKIFi4OJB3EczOsBLvMYU7zNPLrM9bYIxbUw2XwZibDb1d5eiGVf USIaYczJTONSk8pygkmFVBOpNocVM00ZtJGNbfJ2paAFsyaizi9NKYv8QZLg eZ1hck+l5FZgBfgD5F4zcVuT2sNDn+JkfkQYSXwcQPNhSLGafXUBTAtrY322 eyxxXgFsYyWABRFO8WtyGN0RZg3xpQn+D6rRNumMbDjnhVxfKc8D2yqqc8SI 8fQ1hFC+1DTLzpIk3092LerkfMK1P5uRUqNrgrVUiCkJCgkm0Z3XWZZFqjKs 5YAN9qdcutz/hH/nxYW9p5V82P45dCHCmQDLTyIcqNZZyWQxhPCyfMcXm80D cC/hm2PhaigNQ4iK55yEmlPo/WjZdzaeusVTo7JtUN5mrfkf195KW1QcoNCn hJD7VEdbIg6euhX3NzRdmVdXlTjSalsvCL3i19bTJp2/4WiZ726kifARsfTv c8CyqRF6uYODKOAIZRmu6WTaRvdk6VlBGlJrwGfNr82AerQLCDr2E8nti9wE uUnG54l/A0l5HIIGpp0kEFuOcSvOJjHkvkQem9jRYl0pkygavS32aW5Ikf3o VW5LeGsun508lIgD9lgOfLp1muzjozk4tT/N0BX465i7MyJhHIA19PdoVwlz LhW1VZio+a+ff2Ud6G2EoHMzWQtchY28jG4F35ZRpoktQs53VXsi5/vCpI26 2kjnf5+92+zhc3CcBCCdY7W3erFkDRPT9AX3Apt7CFrcKccT+J15YzH0KBsq UJ5qLWRG0XkG1UZ16vLqYCurKf4nJdrKuVw7La+LgvcqbzoAQykvJe6MoizT GFX6ij5h1CWlMfqso471mGaPvBMzdnadE0D02fjzseszl0bcxa5851Zp3fw2 7gn0+QMO6k1SXsrBurLhFPjTR3XnZAOnekbgrHhGsPa52zv1zrJrPChO7BYv /eqrpWy/LJdHWbVivyoCsHspHC/Q6iWLxH2kF/bC3t2zwtxLzbxaRzBo9NUF 6T4kUcD1N2P13a8YFlZeoIC5G50QmXyGTu44Q2ftyfqOP8zH8oRNyw3fFtB+ BdG+0LYnROCMnXXrPEiFndsjH4Ju2LQsARtsWRdQbSCZts5msws7xfZJQuB3 YmP64D0zRGYAux7t8+iWJMPG8D9LLdF+dkPoJqbYHCVNRVA7FWPoF0e9+I5+ 716Jo1wAyQD4upHn8mvi+sANVmeuT+Xzl/SzzwVgQiIO/9Zz1YdxnHDICq6X RKFLn7gjIIViS9zupwkR+MuvMYd/4BdThZCLg1s8ZwUTWCn0qVjsyYcQ+xBi H0LsHYeYcZ0waFYjbLVTOMdyK7FwAKyVG+ouQ+wkAquJ0972EYllGbwrGIsD JXERVk4eNtaWwdZ3Fbe/H0E2x2nAF0o16y47bPssrp6xl6vImfaqcV8wGQRB rk8fLb1IWaugWX4l86S+bbfRl//RrnrtsJZENTcXf60VpUrYR8sal7UkWdoB 9WvlsZGXJac4ONio5BQTZS+agJbiIKON+Dy7xrrEt9nZddntN8tjnmr/jxwP un7UuPsBen3UePoVajx+PNwtO+tjkPgYh34wR/tIauYiTJl7nhStIusKIsCi KBEnWCcJnr8gNyRIHsjPb1+X3A6hPbtKxLFuldKTn39//V8WMr9iv1I2gA== "]]]], Editable->False, SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.839673058683276*^9, 3.839673470031351*^9, {3.839674821431371*^9, 3.8396748228143764`*^9}}, CellLabel->"In[1]:=", CellID->144326356], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Name\"\>", ",", "\<\"ObjectType\"\>", ",", "\<\"Definitions\"\>", ",", "\<\"Names\"\>", ",", "\<\"Symbols\"\>", ",", "\<\"Size\"\>", ",", "\<\"Contexts\"\>", ",", "\<\"DefinitionList\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8396731807632957`*^9, 3.839673273442275*^9, 3.8396734733713727`*^9}, CellLabel->"Out[1]=", CellID->332200241] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["See what symbols are contained:", "Text", TaggingRules->{}, CellID->870248887], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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[{ "36.128`", "\"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 -> {"Columns" -> {{Left}}, "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[CompressedData[" 1:eJwBkAhv9yFib1JiAQAAAIMIAAA4Qzp4nO1a724bNxLP6o8tya7dBCiM4g64 Rb7ch54CtP0WoChkOXZzF8d/qPQ+FEVFSVx7m13udsm1rXzqS/QV+jx9hnuA e4W7IZe7y6W4sqQ01xwQwYi0y+FwZjjzmxkyg24ffXISRBMcjI+I51Of+xE9 whwPtvqsi9LJtzhICfN6rPXCZ9xrsJ3LNCBHJMBzMvMctvNNFMzOMeckoZ4D L+zsYGD/H2QuueXUDdYSvOB7W71i+2pynEQxSfjce8DahwGmr3WiXUV0I5hZ KWrZGHM31ibnh3rn2RI+2KiT2Qi1XuKQoN7Z5Ecy5aN5TNBOOZ2hthhmaBvN w0kUMNRC/huCOsOIcnLHGdorid/O5KWQmih7BtF93DWrdtQys012uWIDoFP7 sTNgLJr6WLy27bHYQY08d8I9bdopjkvRjInvwF2rimgiP8pluE/PYuu9Jtsd Rc/u4oQwJgzgsBasymysWPc5jVN+HCUh6wglxK/3VL/Mw5dp854KLkNRrv7x JWFRmkzJcUqncmz/cM4JG0UXKabcB0xxWFe8GkYp5f9HOhZAI8Zf0SzumhBE 8NzJtYVXPcQTn179PfLF0272dOl7HiA27OxpBIEI3yiI+NBBzhj+hMYZHYoD ny9zAEW9mX00vXcUBQgZvR36LOCuww4Ucx4tDNklq4rz1sBtA8SIX5NEp+jC fs4yxVov0yCAV4+GURiDW840aGlYnfrAfHMK5PhKZkb1U8ayXVC0ndLXNLo1 pGPtYxww0medV7EqH1qrlQ/mY/OE1Bt7TTdQ62fuIFO0jQEV7zXrrpG7Wv/0 +bXwebVSExFe8AXXZ7+HR1m3Vi4FUv/lBaZXKezZ+NkdJ3RGZsfgEJrshjRb Kg9VlF9zi3aeg2BJuJDAi6UyQHsn9QLM1lZXPmGWBhVBQDlQjABqYyYzlD5a KeYgNQ8CIRAwuiELVVm1pCsS+nLjNdiBJu/4LCaUJN/65Pai3sWrUqjascBw 1hol99exphSuLgWEmPYIFT8jvK7qU5twfzwuLd+cunKtz3pHgCYKM5orYkat NDuKZkRYRaOP1AQmN62ULg+Hvcr4BUzdOo1molNRIrGeFkd75e9KwEp/ay0J WJ0LCPFn9RSCEiEOjMg1ZFYcjLWFbaqY1JZ+XlnpPhfNejKnUmQWpuuVYpQo WULeYvQLoHnAHkpCkZ0Q+SkldEq0hfL988SwVE86ub5UVa8qdxNo1d4b2Kyh fu2KCzZeBKIFi4OJB3EczOsBLvMYU7zNPLrM9bYIxbUw2XwZibDb1d5eiGVf USIaYczJTONSk8pygkmFVBOpNocVM00ZtJGNbfJ2paAFsyaizi9NKYv8QZLg eZ1hck+l5FZgBfgD5F4zcVuT2sNDn+JkfkQYSXwcQPNhSLGafXUBTAtrY322 eyxxXgFsYyWABRFO8WtyGN0RZg3xpQn+D6rRNumMbDjnhVxfKc8D2yqqc8SI 8fQ1hFC+1DTLzpIk3092LerkfMK1P5uRUqNrgrVUiCkJCgkm0Z3XWZZFqjKs 5YAN9qdcutz/hH/nxYW9p5V82P45dCHCmQDLTyIcqNZZyWQxhPCyfMcXm80D cC/hm2PhaigNQ4iK55yEmlPo/WjZdzaeusVTo7JtUN5mrfkf195KW1QcoNCn hJD7VEdbIg6euhX3NzRdmVdXlTjSalsvCL3i19bTJp2/4WiZ726kifARsfTv c8CyqRF6uYODKOAIZRmu6WTaRvdk6VlBGlJrwGfNr82AerQLCDr2E8nti9wE uUnG54l/A0l5HIIGpp0kEFuOcSvOJjHkvkQem9jRYl0pkygavS32aW5Ikf3o VW5LeGsun508lIgD9lgOfLp1muzjozk4tT/N0BX465i7MyJhHIA19PdoVwlz LhW1VZio+a+ff2Ud6G2EoHMzWQtchY28jG4F35ZRpoktQs53VXsi5/vCpI26 2kjnf5+92+zhc3CcBCCdY7W3erFkDRPT9AX3Apt7CFrcKccT+J15YzH0KBsq UJ5qLWRG0XkG1UZ16vLqYCurKf4nJdrKuVw7La+LgvcqbzoAQykvJe6MoizT GFX6ij5h1CWlMfqso471mGaPvBMzdnadE0D02fjzseszl0bcxa5851Zp3fw2 7gn0+QMO6k1SXsrBurLhFPjTR3XnZAOnekbgrHhGsPa52zv1zrJrPChO7BYv /eqrpWy/LJdHWbVivyoCsHspHC/Q6iWLxH2kF/bC3t2zwtxLzbxaRzBo9NUF 6T4kUcD1N2P13a8YFlZeoIC5G50QmXyGTu44Q2ftyfqOP8zH8oRNyw3fFtB+ BdG+0LYnROCMnXXrPEiFndsjH4Ju2LQsARtsWRdQbSCZts5msws7xfZJQuB3 YmP64D0zRGYAux7t8+iWJMPG8D9LLdF+dkPoJqbYHCVNRVA7FWPoF0e9+I5+ 716Jo1wAyQD4upHn8mvi+sANVmeuT+Xzl/SzzwVgQiIO/9Zz1YdxnHDICq6X RKFLn7gjIIViS9zupwkR+MuvMYd/4BdThZCLg1s8ZwUTWCn0qVjsyYcQ+xBi H0LsHYeYcZ0waFYjbLVTOMdyK7FwAKyVG+ouQ+wkAquJ0972EYllGbwrGIsD JXERVk4eNtaWwdZ3Fbe/H0E2x2nAF0o16y47bPssrp6xl6vImfaqcV8wGQRB rk8fLb1IWaugWX4l86S+bbfRl//RrnrtsJZENTcXf60VpUrYR8sal7UkWdoB 9WvlsZGXJac4ONio5BQTZS+agJbiIKON+Dy7xrrEt9nZddntN8tjnmr/jxwP un7UuPsBen3UePoVajx+PNwtO+tjkPgYh34wR/tIauYiTJl7nhStIusKIsCi KBEnWCcJnr8gNyRIHsjPb1+X3A6hPbtKxLFuldKTn39//V8WMr9iv1I2gA== "]]]], Editable->False, SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.839673062558275*^9, 3.839673468866372*^9}, CellLabel->"In[1]:=", CellID->41516381], 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.8396732187902966`*^9, 3.8396732754763002`*^9, 3.83967347505035*^9}, CellLabel->"Out[1]=", CellID->814525579] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "Use a list of properties to return an ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->256337739], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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[{ "36.128`", "\"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 -> {"Columns" -> {{Left}}, "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[CompressedData[" 1:eJwBkAhv9yFib1JiAQAAAIMIAAA4Qzp4nO1a724bNxLP6o8tya7dBCiM4g64 Rb7ch54CtP0WoChkOXZzF8d/qPQ+FEVFSVx7m13udsm1rXzqS/QV+jx9hnuA e4W7IZe7y6W4sqQ01xwQwYi0y+FwZjjzmxkyg24ffXISRBMcjI+I51Of+xE9 whwPtvqsi9LJtzhICfN6rPXCZ9xrsJ3LNCBHJMBzMvMctvNNFMzOMeckoZ4D L+zsYGD/H2QuueXUDdYSvOB7W71i+2pynEQxSfjce8DahwGmr3WiXUV0I5hZ KWrZGHM31ibnh3rn2RI+2KiT2Qi1XuKQoN7Z5Ecy5aN5TNBOOZ2hthhmaBvN w0kUMNRC/huCOsOIcnLHGdorid/O5KWQmih7BtF93DWrdtQys012uWIDoFP7 sTNgLJr6WLy27bHYQY08d8I9bdopjkvRjInvwF2rimgiP8pluE/PYuu9Jtsd Rc/u4oQwJgzgsBasymysWPc5jVN+HCUh6wglxK/3VL/Mw5dp854KLkNRrv7x JWFRmkzJcUqncmz/cM4JG0UXKabcB0xxWFe8GkYp5f9HOhZAI8Zf0SzumhBE 8NzJtYVXPcQTn179PfLF0272dOl7HiA27OxpBIEI3yiI+NBBzhj+hMYZHYoD ny9zAEW9mX00vXcUBQgZvR36LOCuww4Ucx4tDNklq4rz1sBtA8SIX5NEp+jC fs4yxVov0yCAV4+GURiDW840aGlYnfrAfHMK5PhKZkb1U8ayXVC0ndLXNLo1 pGPtYxww0medV7EqH1qrlQ/mY/OE1Bt7TTdQ62fuIFO0jQEV7zXrrpG7Wv/0 +bXwebVSExFe8AXXZ7+HR1m3Vi4FUv/lBaZXKezZ+NkdJ3RGZsfgEJrshjRb Kg9VlF9zi3aeg2BJuJDAi6UyQHsn9QLM1lZXPmGWBhVBQDlQjABqYyYzlD5a KeYgNQ8CIRAwuiELVVm1pCsS+nLjNdiBJu/4LCaUJN/65Pai3sWrUqjascBw 1hol99exphSuLgWEmPYIFT8jvK7qU5twfzwuLd+cunKtz3pHgCYKM5orYkat NDuKZkRYRaOP1AQmN62ULg+Hvcr4BUzdOo1molNRIrGeFkd75e9KwEp/ay0J WJ0LCPFn9RSCEiEOjMg1ZFYcjLWFbaqY1JZ+XlnpPhfNejKnUmQWpuuVYpQo WULeYvQLoHnAHkpCkZ0Q+SkldEq0hfL988SwVE86ub5UVa8qdxNo1d4b2Kyh fu2KCzZeBKIFi4OJB3EczOsBLvMYU7zNPLrM9bYIxbUw2XwZibDb1d5eiGVf USIaYczJTONSk8pygkmFVBOpNocVM00ZtJGNbfJ2paAFsyaizi9NKYv8QZLg eZ1hck+l5FZgBfgD5F4zcVuT2sNDn+JkfkQYSXwcQPNhSLGafXUBTAtrY322 eyxxXgFsYyWABRFO8WtyGN0RZg3xpQn+D6rRNumMbDjnhVxfKc8D2yqqc8SI 8fQ1hFC+1DTLzpIk3092LerkfMK1P5uRUqNrgrVUiCkJCgkm0Z3XWZZFqjKs 5YAN9qdcutz/hH/nxYW9p5V82P45dCHCmQDLTyIcqNZZyWQxhPCyfMcXm80D cC/hm2PhaigNQ4iK55yEmlPo/WjZdzaeusVTo7JtUN5mrfkf195KW1QcoNCn hJD7VEdbIg6euhX3NzRdmVdXlTjSalsvCL3i19bTJp2/4WiZ726kifARsfTv c8CyqRF6uYODKOAIZRmu6WTaRvdk6VlBGlJrwGfNr82AerQLCDr2E8nti9wE uUnG54l/A0l5HIIGpp0kEFuOcSvOJjHkvkQem9jRYl0pkygavS32aW5Ikf3o VW5LeGsun508lIgD9lgOfLp1muzjozk4tT/N0BX465i7MyJhHIA19PdoVwlz LhW1VZio+a+ff2Ud6G2EoHMzWQtchY28jG4F35ZRpoktQs53VXsi5/vCpI26 2kjnf5+92+zhc3CcBCCdY7W3erFkDRPT9AX3Apt7CFrcKccT+J15YzH0KBsq UJ5qLWRG0XkG1UZ16vLqYCurKf4nJdrKuVw7La+LgvcqbzoAQykvJe6MoizT GFX6ij5h1CWlMfqso471mGaPvBMzdnadE0D02fjzseszl0bcxa5851Zp3fw2 7gn0+QMO6k1SXsrBurLhFPjTR3XnZAOnekbgrHhGsPa52zv1zrJrPChO7BYv /eqrpWy/LJdHWbVivyoCsHspHC/Q6iWLxH2kF/bC3t2zwtxLzbxaRzBo9NUF 6T4kUcD1N2P13a8YFlZeoIC5G50QmXyGTu44Q2ftyfqOP8zH8oRNyw3fFtB+ BdG+0LYnROCMnXXrPEiFndsjH4Ju2LQsARtsWRdQbSCZts5msws7xfZJQuB3 YmP64D0zRGYAux7t8+iWJMPG8D9LLdF+dkPoJqbYHCVNRVA7FWPoF0e9+I5+ 716Jo1wAyQD4upHn8mvi+sANVmeuT+Xzl/SzzwVgQiIO/9Zz1YdxnHDICq6X RKFLn7gjIIViS9zupwkR+MuvMYd/4BdThZCLg1s8ZwUTWCn0qVjsyYcQ+xBi H0LsHYeYcZ0waFYjbLVTOMdyK7FwAKyVG+ouQ+wkAquJ0972EYllGbwrGIsD JXERVk4eNtaWwdZ3Fbe/H0E2x2nAF0o16y47bPssrp6xl6vImfaqcV8wGQRB rk8fLb1IWaugWX4l86S+bbfRl//RrnrtsJZENTcXf60VpUrYR8sal7UkWdoB 9WvlsZGXJac4ONio5BQTZS+agJbiIKON+Dy7xrrEt9nZddntN8tjnmr/jxwP un7UuPsBen3UePoVajx+PNwtO+tjkPgYh34wR/tIauYiTJl7nhStIusKIsCi KBEnWCcJnr8gNyRIHsjPb1+X3A6hPbtKxLFuldKTn39//V8WMr9iv1I2gA== "]]]], Editable->False, SelectWithContents->True, Selectable->False], "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8396730644812756`*^9, 3.8396734659873505`*^9}, CellLabel->"In[1]:=", CellID->314801800], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"Global`DefinitionData\"\>"}], ",", RowBox[{"\<\"Size\"\>", "\[Rule]", TemplateBox[{ "36.032000000000004`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity"]}], ",", RowBox[{"\<\"Contexts\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Collatz`\"\>", ",", "\<\"Global`\"\>"}], "}"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8396732269922757`*^9, 3.8396732783792753`*^9, 3.8396734774543715`*^9}, CellLabel->"Out[1]=", CellID->287513901] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["InputForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/InputForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of ", Cell[BoxData[ StyleBox["DefinitionData", ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " serializes definitions to protect contexts and initialization states of \ values:" }], "Text", TaggingRules->{}, CellID->66057512], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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.728`", "\"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 -> {"Columns" -> {{Left}}, "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[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 112, 207, 201, 79, 74, 204, 73, 72, 115, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 112, 3, 128, 42, 217, 161, 194, 112, 193, 138, 52, 134, 98, 86, 167, 156, 196, 188, 108, 36, 149, 233, 64, 149, 172, 1, 249, 229, 169, 69, 8, 117, 206, 72, 78, 73, 167, 212, 41, 233, 4, 156, 130, 197, 122, 102, 0, 131, 144, 89, 77}]]], Editable->False, SelectWithContents->True, Selectable->False], "//", "InputForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8396730680112967`*^9, 3.839673436521373*^9, 3.839673498535371*^9}, CellLabel->"In[1]:=", CellID->788769317], Cell["\<\ ResourceFunction[\"DefinitionData\"][<|\"Name\" -> \"Global`f\", \ \"Definitions\" -> \\ ByteArray[\"OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJz\\ UmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGYlannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Q\ p6\\ QScgsV6ZgCDkFlN\"]|>]\ \>", "Output", TaggingRules->{}, CellChangeTimes->{ 3.8396732495022774`*^9, 3.839673281544278*^9, 3.839673362967855*^9, 3.8396734384573507`*^9, {3.8396734808673754`*^9, 3.8396735010083513`*^9}}, CellLabel->"Out[1]//InputForm=", CellID->299740854] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["FullForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/FullForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to see the actual expression structure:" }], "Text", TaggingRules->{}, CellID->653613404], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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.728`", "\"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 -> {"Columns" -> {{Left}}, "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[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 112, 207, 201, 79, 74, 204, 73, 72, 115, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 112, 3, 128, 42, 217, 161, 194, 112, 193, 138, 52, 134, 98, 86, 167, 156, 196, 188, 108, 36, 149, 233, 64, 149, 172, 1, 249, 229, 169, 69, 8, 117, 206, 72, 78, 73, 167, 212, 41, 233, 4, 156, 130, 197, 122, 102, 0, 131, 144, 89, 77}]]], Editable->False, SelectWithContents->True, Selectable->False], "//", "FullForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8396730696523*^9, 3.8396735040663743`*^9}, CellLabel->"In[2]:=", CellID->691590261], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{ "FunctionRepository`$7be7b763d3044ef8802784e7771be391`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.8396735061103745`*^9}, CellLabel->"Out[2]//FullForm=", CellID->794255356] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "When writing ", Cell[BoxData["DefinitionData"], "InlineFormula", FontFamily->"Source Sans Pro"], " to a file as ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["InputForm", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/InputForm", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " via ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["Put", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Put", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["CloudPut", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/CloudPut", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["Export", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Export", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", etc., original contexts will be preserved in binary form:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.8396747755633726`*^9}, CellID->533711783], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"$Context", "=", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"g1", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "3"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"f1", "[", "x_", "]"}], ":=", RowBox[{"g1", "[", RowBox[{"x", "^", "2"}], "]"}]}], ";"}], "\n", RowBox[{"data", "=", RowBox[{"DefinitionData", "@", "f1"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.8396735552033725`*^9}, CellLabel->"In[1]:=", CellID->347450711], Cell[BoxData[ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MyContext`f1\"", "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MyContext`f1\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "1.728`", "\"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["\"MyContext`: \"", "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[{"MyContext`: ", 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "MyContext`f1", "Definitions" -> ByteArray[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 241, 173, 116, 206, 207, 43, 73, 173, 40, 73, 72, 51, 116, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 40, 134, 0, 85, 179, 67, 165, 138, 57, 220, 115, 242, 147, 18, 115, 18, 42, 210, 24, 138, 89, 157, 114, 18, 243, 178, 81, 85, 167, 131, 84, 179, 6, 228, 151, 167, 22, 33, 212, 58, 163, 58, 43, 157, 26, 206, 74, 39, 228, 44, 44, 206, 96, 6, 0, 124, 12, 97, 24}]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8396735614993515`*^9}, CellLabel->"Out[4]=", CellID->483284109] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Put", "[", RowBox[{"data", ",", "\"\\""}], "]"}], ";"}], "\n", RowBox[{"FilePrint", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.8396735552033725`*^9}, CellLabel->"In[5]:=", CellID->560461630], Cell["\<\ ResourceFunction[\"DefinitionData\"][<|\"Name\" -> \"MyContext`f1\", \ \"Definitions\" \\ -> \\ ByteArray[\"OEM6eJxzZNIN5vGtdM7PK0mtKElIM3Rk1C3mcskvzwtLzClNLU5jLGbxySwuSWMq5\\ g4qzUl1Sc1JrExNAQpze+TnpAQklpSkFuUBuSiGAFWzQ6WKOdxz8pMScxIq0hiKWZ1yEvOyUVWng\\\ 1SzBuSXpxYh1DqjOiudGs5KJ+QsLM5gBgB8DGEY\"]|>]\ \>", "Print", TaggingRules->{}, CellChangeTimes->{3.839673515420352*^9, 3.8396735616263514`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->122352806] }, Open ]], Cell[TextData[{ "Changing ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["$Context", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/$Context", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox["$ContextPath", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/$ContextPath", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters->True, FontFamily->"Source Sans Pro"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will not affect which contexts the contained symbols are created in:" }], "Text", TaggingRules->{}, CellID->591014162], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"$Context", "=", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{"Remove", "[", RowBox[{"MyContext`f1", ",", "MyContext`f2"}], "]"}], ";"}], "\n", RowBox[{"Get", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->5111613], Cell[BoxData[ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MyContext`f1\"", "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"MyContext`f1\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "1.728`", "\"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["\"MyContext`: \"", "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[{"MyContext`: ", 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "MyContext`f1", "Definitions" -> ByteArray[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 241, 173, 116, 206, 207, 43, 73, 173, 40, 73, 72, 51, 116, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 40, 134, 0, 85, 179, 67, 165, 138, 57, 220, 115, 242, 147, 18, 115, 18, 42, 210, 24, 138, 89, 157, 114, 18, 243, 178, 81, 85, 167, 131, 84, 179, 6, 228, 151, 167, 22, 33, 212, 58, 163, 58, 43, 157, 26, 206, 74, 39, 228, 44, 44, 206, 96, 6, 0, 124, 12, 97, 24}]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8396735201483517`*^9}, CellLabel->"Out[9]=", CellID->317485041] }, Open ]], Cell["Load the definitions:", "Text", TaggingRules->{}, CellID->542036084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "@", "%"}]], "Input", TaggingRules->{}, CellLabel->"In[10]:=", CellID->923339619], Cell[BoxData["MyContext`f1"], "Output", TaggingRules->{}, CellChangeTimes->{3.8396735225373764`*^9}, CellLabel->"Out[10]=", CellID->351770357] }, Open ]], Cell["The symbols are redefined in their original contexts:", "Text", TaggingRules->{}, CellID->191259555], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyContext`f1", "[", "5", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[11]:=", CellID->553696190], Cell[BoxData["15625"], "Output", TaggingRules->{}, CellChangeTimes->{3.839673526041353*^9}, CellLabel->"Out[11]=", CellID->941172250] }, 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->{}, CellID->902963644], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", ":=", RowBox[{"{", RowBox[{"b", ",", "Table"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"b", ":=", RowBox[{"{", RowBox[{"MyContext`c", ",", "CloudObject"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"MyContext`c", ":=", "1"}], ";"}], "\n", RowBox[{"DefinitionData", "@", "a"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.8396735365983725`*^9}, CellLabel->"In[1]:=", CellID->554356126], Cell[BoxData[ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`a\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Global`a\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symbols: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "1.8880000000000001`", "\"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["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"MyContext`: \"", "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`: ", 2}], BoxForm`SummaryItem[{"MyContext`: ", 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`a", "Definitions" -> ByteArray[{56, 67, 58, 120, 156, 165, 141, 203, 10, 194, 48, 16, 69, 137, 15, 80, 242, 45, 249, 136, 18, 65, 23, 150, 138, 21, 215, 157, 105, 166, 160, 12, 9, 56, 19, 180, 127, 111, 113, 17, 187, 214, 237, 185, 143, 83, 45, 93, 187, 217, 115, 66, 224, 14, 42, 227, 100, 219, 60, 227, 21, 56, 147, 12, 70, 86, 199, 155, 232, 176, 16, 123, 206, 76, 59, 98, 24, 41, 76, 216, 30, 18, 135, 19, 168, 210, 35, 74, 89, 79, 189, 79, 191, 16, 148, 245, 5, 144, 233, 107, 192, 191, 12, 88, 12, 182, 30, 125, 138, 74, 47, 237, 122, 177, 158, 83, 14, 13, 222, 169, 87, 215, 206, 163, 159, 108, 243, 3, 111, 222, 94, 149, 97, 245}]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.839673541902351*^9}, CellLabel->"Out[4]=", CellID->638403362] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8396735365983725`*^9}, CellLabel->"In[5]:=", CellID->416178006], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Global`a\"\>", ",", "\<\"Global`b\"\>", ",", "\<\"MyContext`c\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.839673530352374*^9, 3.8396735420233727`*^9}}, CellLabel->"Out[5]=", CellID->20143437] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], 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->340488457], 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->888841136], 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->841175420], Cell["Cloud & Deployment", "Item", CellID->258688719], Cell["Core Language & Structure", "Item", CellID->750803164], Cell["Programming Utilities", "Item", CellID->109970476] }, 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->819464728], 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->58300769], 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->218541429], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "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->280139842], 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[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {"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 -> {"SectionMoreInfoVerificationTests"}, 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->269191388], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"ClearAll", "[", " ", RowBox[{"f", ",", " ", "g", ",", " ", "x"}], " ", "]"}], ";", "\n", " ", RowBox[{ RowBox[{"g", "[", " ", "x_", " ", "]"}], " ", ":=", " ", RowBox[{"x", "^", "3"}]}], ";", "\n", " ", RowBox[{ RowBox[{"f", "[", " ", "x_", " ", "]"}], " ", ":=", " ", RowBox[{"g", "[", " ", RowBox[{"x", "^", "2"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"data", " ", "=", " ", RowBox[{"DefinitionData", " ", "@", " ", "f"}]}]}], ",", "\n", " ", RowBox[{ RowBox[{"HoldPattern", "[", " ", "DefinitionData", " ", "]"}], "[", " ", RowBox[{"KeyValuePattern", " ", "@", " ", RowBox[{"{", " ", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "_String"}], ",", " ", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "_Association"}]}], " ", "\n", " ", "}"}]}], " ", "]"}], ",", "\n", " ", RowBox[{"SameTest", " ", "->", " ", "MatchQ"}]}], "\n", "]"}]], "Code", TaggingRules->{}, InitializationCell->False, CellChangeTimes->{{3.8396736906553755`*^9, 3.839673709963373*^9}, { 3.8396738895993767`*^9, 3.8396739374733706`*^9}}, CellLabel->"In[1]:=", CellID->963096125], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "x"}], "]"}], ";", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", SuperscriptBox["x", "3"]}], ";", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"g", "[", SuperscriptBox["x", "2"], "]"}]}], ";", RowBox[{"data", "=", RowBox[{"DefinitionData", "[", "f", "]"}]}]}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "x"}], "]"}], ";", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", SuperscriptBox["x", "3"]}], ";", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"g", "[", SuperscriptBox["x", "2"], "]"}]}], ";", RowBox[{"data", "=", RowBox[{"DefinitionData", "[", "f", "]"}]}]}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ ClearAll[$CellContext`f, $CellContext`g, $CellContext`x]; \ $CellContext`g[ Pattern[$CellContext`x, Blank[]]] := $CellContext`x^3; $CellContext`f[ Pattern[$CellContext`x, Blank[]]] := $CellContext`g[$CellContext`x^2]; \ $CellContext`data = $CellContext`DefinitionData[$CellContext`f]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> RowBox[{ RowBox[{"HoldPattern", "[", "DefinitionData", "]"}], "[", RowBox[{"KeyValuePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"\"Name\"", "\[Rule]", "_String"}], ",", RowBox[{"\"Definitions\"", "\[Rule]", "_Association"}]}], "}"}], "]"}], "]"}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{ RowBox[{"HoldPattern", "[", "DefinitionData", "]"}], "[", RowBox[{"KeyValuePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"\"Name\"", "\[Rule]", "_String"}], ",", RowBox[{"\"Definitions\"", "\[Rule]", "_Association"}]}], "}"}], "]"}], "]"}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ HoldPattern[$CellContext`DefinitionData][ KeyValuePattern[{ "Name" -> Blank[String], "Definitions" -> Blank[Association]}]]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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.728`", "\"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 -> { "Columns" -> {{Left}}, "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[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 112, 207, 201, 79, 74, 204, 73, 72, 115, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 112, 3, 128, 42, 217, 161, 194, 112, 193, 138, 52, 134, 98, 86, 167, 156, 196, 188, 108, 36, 149, 233, 64, 149, 172, 1, 249, 229, 169, 69, 8, 117, 206, 72, 78, 73, 167, 212, 41, 233, 4, 156, 130, 197, 122, 102, 0, 131, 144, 89, 77}]]], Editable -> False, Selectable -> False, SelectWithContents -> True], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ InterpretationBox[ RowBox[{"DefinitionData", "[", DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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 -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification])}]], FrameBox[ StyleBox[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "\"\""}], "Input", FontColor -> GrayLevel[0.25], FontFamily -> "Source Sans Pro", FontSize -> 12, ShowAutoStyles -> True, StripOnInput -> False], Background -> GrayLevel[0.95], FrameMargins -> {{2, 2}, {4, 3}}, RoundingRadius -> 3, 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.728`", "\"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 -> { "Columns" -> {{Left}}, "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[{56, 67, 58, 120, 156, 115, 100, 210, 13, 230, 112, 207, 201, 79, 74, 204, 73, 72, 115, 100, 212, 45, 230, 114, 201, 47, 207, 11, 75, 204, 41, 77, 45, 78, 99, 44, 102, 241, 201, 44, 46, 73, 99, 42, 230, 14, 42, 205, 73, 117, 73, 205, 73, 172, 76, 77, 1, 10, 115, 123, 228, 231, 164, 4, 36, 150, 148, 164, 22, 229, 1, 185, 112, 3, 128, 42, 217, 161, 194, 112, 193, 138, 52, 134, 98, 86, 167, 156, 196, 188, 108, 36, 149, 233, 64, 149, 172, 1, 249, 229, 169, 69, 8, 117, 206, 72, 78, 73, 167, 212, 41, 233, 4, 156, 130, 197, 122, 102, 0, 131, 144, 89, 77}]]], Editable -> False, Selectable -> False, SelectWithContents -> True], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ $CellContext`DefinitionData[ Association[ "Name" -> "Global`f", "Definitions" -> Association["Global`f" -> Association[DownValues -> {HoldPattern[ $CellContext`f[ Pattern[$CellContext`x, Blank[]]]] :> $CellContext`g[$CellContext`x^2]}], "Global`g" -> Association[DownValues -> {HoldPattern[ $CellContext`g[ Pattern[$CellContext`x, Blank[]]]] :> $CellContext`x^3}]]]]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time elapsed: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{ False -> TemplateBox[{ "0.003`4.627636252551654", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ TemplateBox[{ "0.003`4.627636252551654", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Quantity[0.003`4.627636252551654, "Seconds"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 2, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ClearAll[$CellContext`f, $CellContext`g, $CellContext`x]; \ $CellContext`g[ Pattern[$CellContext`x, Blank[]]] := $CellContext`x^3; $CellContext`f[ Pattern[$CellContext`x, Blank[]]] := $CellContext`g[$CellContext`x^2]; $CellContext`data = \ $CellContext`DefinitionData[$CellContext`f]], "ExpectedOutput" -> HoldForm[ HoldPattern[$CellContext`DefinitionData][ KeyValuePattern[{ "Name" -> Blank[String], "Definitions" -> Blank[Association]}]]], "ActualOutput" -> HoldForm[ $CellContext`DefinitionData[ Association[ "Name" -> "Global`f", "Definitions" -> Association["Global`f" -> Association[DownValues -> {HoldPattern[ $CellContext`f[ Pattern[$CellContext`x, Blank[]]]] :> $CellContext`g[$CellContext`x^2]}], "Global`g" -> Association[DownValues -> {HoldPattern[ $CellContext`g[ Pattern[$CellContext`x, Blank[]]]] :> $CellContext`x^3}]]]]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.003`4.627636252551654, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[2384, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.839673696268377*^9, 3.839673712174372*^9}, 3.839673940182351*^9}, CellLabel->"Out[1]=", CellID->262685664] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\n", " ", RowBox[{ RowBox[{"ToExpression", "[", " ", RowBox[{ RowBox[{"ToString", "[", " ", RowBox[{"data", ",", " ", "InputForm"}], " ", "]"}], ",", " ", "InputForm", ",", " ", "Hold"}], " ", "]"}], ",", "\n", " ", RowBox[{"Hold", " ", "@", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", RowBox[{"<|", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "_String"}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "_ByteArray"}]}], "\n", " ", "|>"}], " ", "]"}]}], ",", "\n", " ", RowBox[{"SameTest", " ", "->", " ", "MatchQ"}]}], "\n", "]"}]], "Code", TaggingRules->{}, InitializationCell->False, CellChangeTimes->{{3.8396737270883713`*^9, 3.8396738335313716`*^9}, { 3.839673948371374*^9, 3.8396739499563713`*^9}}, CellLabel->"In[2]:=", CellID->526116356], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"data", ",", "InputForm"}], "]"}], ",", "InputForm", ",", "Hold"}], "]"}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{"data", ",", "InputForm"}], "]"}], ",", "InputForm", ",", "Hold"}], "]"}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ ToExpression[ ToString[$CellContext`data, InputForm], InputForm, Hold]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> RowBox[{"Hold", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"DefinitionData\"", "]"}], "[", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"Name\"", "\[Rule]", "_String"}], ",", RowBox[{"\"Definitions\"", "\[Rule]", "_ByteArray"}]}], "]"}], "]"}], "]"}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{"Hold", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"DefinitionData\"", "]"}], "[", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"Name\"", "\[Rule]", "_String"}], ",", RowBox[{"\"Definitions\"", "\[Rule]", "_ByteArray"}]}], "]"}], "]"}], "]"}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ Hold[ ResourceFunction["DefinitionData"][ Association[ "Name" -> Blank[String], "Definitions" -> Blank[ByteArray]]]]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> RowBox[{"Hold", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"DefinitionData\"", "]"}], "[", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"Name\"", "\[Rule]", "\"Global`f\""}], ",", RowBox[{"\"Definitions\"", "\[Rule]", RowBox[{"ByteArray", "[", "\"OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGY\ lannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN\"", "]"}]}]}], "]"}], "]"}], "]"}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{"Hold", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"DefinitionData\"", "]"}], "[", RowBox[{"Association", "[", RowBox[{ RowBox[{"\"Name\"", "\[Rule]", "\"Global`f\""}], ",", RowBox[{"\"Definitions\"", "\[Rule]", RowBox[{"ByteArray", "[", "\"OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGY\ lannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN\"", "]"}]}]}], "]"}], "]"}], "]"}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ Hold[ ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`f", "Definitions" -> ByteArray[ "OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGY\ lannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN"]]]]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time elapsed: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{ False -> TemplateBox[{ "0.0319983`5.655641903644676", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ TemplateBox[{ "0.0319983`5.655641903644676", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Quantity[0.0319983`5.655641903644676, "Seconds"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 3, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ ToExpression[ ToString[$CellContext`data, InputForm], InputForm, Hold]], "ExpectedOutput" -> HoldForm[ Hold[ ResourceFunction["DefinitionData"][ Association[ "Name" -> Blank[String], "Definitions" -> Blank[ByteArray]]]]], "ActualOutput" -> HoldForm[ Hold[ ResourceFunction["DefinitionData"][ Association[ "Name" -> "Global`f", "Definitions" -> ByteArray[ "OEM6eJxzZNIN5nDPyU9KzElIc2TULeZyyS/\ PC0vMKU0tTmMsZvHJLC5JYyrmDirNSXVJzUmsTE0BCnN75OekBCSWlKQW5QG5cAOAKtmhwnDBijSGY\ lannMS8bCSV6UCVrAH55alFCHXOSE5Jp9Qp6QScgsV6ZgCDkFlN"]]]]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0319983`5.655641903644676, "Seconds"], "CPUTimeUsed" -> Quantity[0.030999999999998806`, "Seconds"], "MemoryUsed" -> Quantity[632, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.839673731350371*^9, 3.8396737407363515`*^9}, 3.8396738376403503`*^9, 3.839673952387351*^9}, CellLabel->"Out[2]=", CellID->229163309] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", " ", "\n", " ", RowBox[{ RowBox[{ RowBox[{"ClearAll", "[", " ", RowBox[{"f", ",", " ", "g", ",", " ", "x"}], " ", "]"}], ";", "\n", " ", RowBox[{"Get", " ", "@", " ", "data"}]}], ",", "\n", " ", "f"}], "\n", "]"}]], "Code", TaggingRules->{}, InitializationCell->False, CellChangeTimes->{{3.839673961085361*^9, 3.839674009338351*^9}}, CellLabel->"In[4]:=", CellID->403545965], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "x"}], "]"}], ";", RowBox[{"Get", "[", "data", "]"}]}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "x"}], "]"}], ";", RowBox[{"Get", "[", "data", "]"}]}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ ClearAll[$CellContext`f, $CellContext`g, $CellContext`x]; Get[$CellContext`data]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> "f", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "f", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[$CellContext`f]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> "f", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "f", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[$CellContext`f]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time elapsed: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{ False -> TemplateBox[{ "0.0010013`4.151079213997365", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ TemplateBox[{ "0.0010013`4.151079213997365", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Quantity[0.0010013`4.151079213997365, "Seconds"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 4, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ClearAll[$CellContext`f, $CellContext`g, $CellContext`x]; Get[$CellContext`data]], "ExpectedOutput" -> HoldForm[$CellContext`f], "ActualOutput" -> HoldForm[$CellContext`f], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0010013`4.151079213997365, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.839674013154351*^9}, CellLabel->"Out[4]=", CellID->245341866] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", " ", RowBox[{ RowBox[{"f", "[", " ", "5", " ", "]"}], ",", " ", "15625"}], " ", "]"}]], "Code", TaggingRules->{}, InitializationCell->False, CellChangeTimes->{{3.839674028467351*^9, 3.839674041441353*^9}}, CellLabel->"In[5]:=", CellID->821406269], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneSelectorBox[{False -> "None", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "None", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{ "MouseClicked" :> CopyToClipboard[None], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{ False -> RowBox[{"f", "[", "5", "]"}], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ RowBox[{"f", "[", "5", "]"}], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[ $CellContext`f[5]]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> "15625", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "15625", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[15625]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{False -> "15625", True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ "15625", "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Unevaluated[15625]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time elapsed: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ PaneSelectorBox[{ False -> TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], True -> StyleBox[ TagBox[ TagBox[ TooltipBox[ TemplateBox[{ "0``7.1505149978319915", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], Annotation[#, "Copy to clipboard.", "Tooltip"]& ], EventHandlerTag[{"MouseClicked" :> CopyToClipboard[ Quantity[0``7.1505149978319915, "Seconds"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], Background -> GrayLevel[0.85], StripOnInput -> False]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 5, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`f[5]], "ExpectedOutput" -> HoldForm[15625], "ActualOutput" -> HoldForm[15625], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.1505149978319915, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[64, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8396740437393713`*^9}, CellLabel->"Out[5]=", CellID->473186019] }, 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->720474325], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "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->577229082], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"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.840545755087105`16.336967932689312*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.840545755148019`16.3369679326962*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ 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.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; 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], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz 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}, 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; 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], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz 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}, 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; 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], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz 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}, 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; 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], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz 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}, 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz 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}, 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz 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}, 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 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`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; 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.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; 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$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; 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.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; 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.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #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.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], 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.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, 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.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"eba7d4c3-0e65-4148-854d-3effc3753ce1", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611]}, "TemplateCell"->{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"eba7d4c3-0e65-4148-854d-3effc3753ce1", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611], Cell[730, 27, 135, 2, 70, "Text",ExpressionUUID->"56ac86a0-82a3-4efb-a4d1-e5cf5cb6243b", CellTags->{"Description", "TemplateCell"}, CellID->991216423]}, "Title"->{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"eba7d4c3-0e65-4148-854d-3effc3753ce1", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611]}, "Description"->{ Cell[730, 27, 135, 2, 70, "Text",ExpressionUUID->"56ac86a0-82a3-4efb-a4d1-e5cf5cb6243b", CellTags->{"Description", "TemplateCell"}, CellID->991216423]}, "Definition"->{ Cell[890, 33, 1104, 27, 70, "Section",ExpressionUUID->"7c0dbdfd-1ac7-4351-981e-fa7cbd6fd82e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[890, 33, 1104, 27, 70, "Section",ExpressionUUID->"7c0dbdfd-1ac7-4351-981e-fa7cbd6fd82e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[890, 33, 1104, 27, 70, "Section",ExpressionUUID->"7c0dbdfd-1ac7-4351-981e-fa7cbd6fd82e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[48883, 1634, 1880, 48, 70, "Subsection",ExpressionUUID->"7481dfb3-35fe-423f-9e8b-e94552c02267", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[51830, 1731, 1329, 30, 70, "Subsection",ExpressionUUID->"a8a0fd86-06db-4202-a32d-d07a2dfab4f5", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[57736, 1907, 6926, 150, 70, "Section",ExpressionUUID->"ff41cbdb-76f2-474c-8143-8c0a0fb4adee", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[194874, 5017, 918, 24, 70, "Subsection",ExpressionUUID->"54111eec-15f2-407a-80ed-540034dd3008", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[195903, 5049, 893, 24, 70, "Subsection",ExpressionUUID->"f21fa4d1-aef3-4619-8321-8801ebf29a66", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[197201, 5099, 167, 5, 70, "Subsection",ExpressionUUID->"b3edeb6a-6f11-417a-8b21-acf3e0dec61c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[197586, 5118, 870, 24, 70, "Subsection",ExpressionUUID->"4acda3b5-c353-4e17-99c2-fa5ae6eb744a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[198874, 5171, 919, 24, 70, "Subsection",ExpressionUUID->"53fcfe37-3ace-4f7e-aea2-f87a3f0e850d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[200202, 5218, 971, 25, 70, "Subsection",ExpressionUUID->"3e87ba0d-5872-4cdf-b789-e78696eb077d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[201729, 5258, 823, 24, 70, "Subsection",ExpressionUUID->"13a0c21e-bbd8-4b79-a33b-9fbfe9000990", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[203260, 5308, 1785, 44, 70, "Subsection",ExpressionUUID->"1d1745c3-d04d-4c58-aeb7-96015cc454b8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388], Cell[288766, 7075, 1048, 26, 70, "Section",ExpressionUUID->"9d35a832-872f-4368-b95f-3107fdbd4e16", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[290383, 7116, 929, 25, 70, "Section",ExpressionUUID->"c5f4632f-1266-4716-b7e6-d39bf36320ab", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "Documentation"->{ Cell[48721, 1626, 137, 4, 70, "Section",ExpressionUUID->"a713d9af-e7fd-44b0-bfa4-2573f698b14a", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[48721, 1626, 137, 4, 70, "Section",ExpressionUUID->"a713d9af-e7fd-44b0-bfa4-2573f698b14a", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[194675, 5009, 174, 4, 70, "Section",ExpressionUUID->"e0864fa7-d08e-4645-8fd7-cb5518d1c263", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[48883, 1634, 1880, 48, 70, "Subsection",ExpressionUUID->"7481dfb3-35fe-423f-9e8b-e94552c02267", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[51830, 1731, 1329, 30, 70, "Subsection",ExpressionUUID->"a8a0fd86-06db-4202-a32d-d07a2dfab4f5", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[51830, 1731, 1329, 30, 70, "Subsection",ExpressionUUID->"a8a0fd86-06db-4202-a32d-d07a2dfab4f5", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Examples"->{ Cell[57736, 1907, 6926, 150, 70, "Section",ExpressionUUID->"ff41cbdb-76f2-474c-8143-8c0a0fb4adee", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[194675, 5009, 174, 4, 70, "Section",ExpressionUUID->"e0864fa7-d08e-4645-8fd7-cb5518d1c263", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[194874, 5017, 918, 24, 70, "Subsection",ExpressionUUID->"54111eec-15f2-407a-80ed-540034dd3008", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[194874, 5017, 918, 24, 70, "Subsection",ExpressionUUID->"54111eec-15f2-407a-80ed-540034dd3008", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[195903, 5049, 893, 24, 70, "Subsection",ExpressionUUID->"f21fa4d1-aef3-4619-8321-8801ebf29a66", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[197201, 5099, 167, 5, 70, "Subsection",ExpressionUUID->"b3edeb6a-6f11-417a-8b21-acf3e0dec61c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[197586, 5118, 870, 24, 70, "Subsection",ExpressionUUID->"4acda3b5-c353-4e17-99c2-fa5ae6eb744a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[198874, 5171, 919, 24, 70, "Subsection",ExpressionUUID->"53fcfe37-3ace-4f7e-aea2-f87a3f0e850d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[200202, 5218, 971, 25, 70, "Subsection",ExpressionUUID->"3e87ba0d-5872-4cdf-b789-e78696eb077d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "DefaultContent"->{ Cell[201176, 5245, 516, 8, 70, "Text",ExpressionUUID->"054f2aa4-726b-4549-a03f-0d02af8e8bce", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[289817, 7103, 529, 8, 70, "Text",ExpressionUUID->"5851a081-32de-490d-abc2-93d7b6c2fd96", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[291315, 7143, 515, 8, 70, "Text",ExpressionUUID->"5a79c096-35a8-4514-adf8-8d77aeae1287", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "TabNext"->{ Cell[201176, 5245, 516, 8, 70, "Text",ExpressionUUID->"054f2aa4-726b-4549-a03f-0d02af8e8bce", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[289817, 7103, 529, 8, 70, "Text",ExpressionUUID->"5851a081-32de-490d-abc2-93d7b6c2fd96", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[291315, 7143, 515, 8, 70, "Text",ExpressionUUID->"5a79c096-35a8-4514-adf8-8d77aeae1287", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[201729, 5258, 823, 24, 70, "Subsection",ExpressionUUID->"13a0c21e-bbd8-4b79-a33b-9fbfe9000990", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[203260, 5308, 1785, 44, 70, "Subsection",ExpressionUUID->"1d1745c3-d04d-4c58-aeb7-96015cc454b8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388]}, "VerificationTests"->{ Cell[203260, 5308, 1785, 44, 70, "Subsection",ExpressionUUID->"1d1745c3-d04d-4c58-aeb7-96015cc454b8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388]}, "Author Notes"->{ Cell[288766, 7075, 1048, 26, 70, "Section",ExpressionUUID->"9d35a832-872f-4368-b95f-3107fdbd4e16", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[290383, 7116, 929, 25, 70, "Section",ExpressionUUID->"c5f4632f-1266-4716-b7e6-d39bf36320ab", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 403622, 9287}, {"TemplateCell", 403804, 9291}, {"Title", 404139, 9298}, {"Description", 404320, 9302}, {"Definition", 404498, 9306}, {"Function", 404695, 9310}, {"TemplateCellGroup", 404901, 9314}, {"Documentation", 407473, 9357}, {"TemplateSection", 407667, 9361}, {"Usage", 408042, 9368}, {"Details & Options", 408238, 9372}, {"Notes", 408443, 9376}, {"Examples", 408651, 9380}, {"Source & Additional Information", 408862, 9384}, {"Contributed By", 409075, 9388}, {"ContributorInformation", 409311, 9392}, {"Keywords", 409533, 9396}, {"Categories", 409725, 9400}, {"Related Symbols", 409923, 9404}, {"Related Resource Objects", 410136, 9408}, {"Source/Reference Citation", 410358, 9412}, {"DefaultContent", 410571, 9416}, {"TabNext", 411075, 9426}, {"Links", 411577, 9436}, {"Tests", 411761, 9440}, {"VerificationTests", 411979, 9444}, {"Author Notes", 412192, 9448}, {"Submission Notes", 412392, 9452} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[630, 23, 97, 2, 70, "Title",ExpressionUUID->"eba7d4c3-0e65-4148-854d-3effc3753ce1", CellTags->{"Name", "TemplateCell", "Title"}, CellID->412932611], Cell[730, 27, 135, 2, 70, "Text",ExpressionUUID->"56ac86a0-82a3-4efb-a4d1-e5cf5cb6243b", CellTags->{"Description", "TemplateCell"}, CellID->991216423], Cell[CellGroupData[{ Cell[890, 33, 1104, 27, 70, "Section",ExpressionUUID->"7c0dbdfd-1ac7-4351-981e-fa7cbd6fd82e", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[1997, 62, 160, 5, 70, "Code",ExpressionUUID->"4d6eec48-903e-491b-ab62-0a894fc32eab", CellID->613866083], Cell[CellGroupData[{ Cell[2182, 71, 70, 2, 70, "Subsection",ExpressionUUID->"7e29e93c-24a7-4bfe-a22f-c40e68b3be9e", CellID->61827135], Cell[2255, 75, 238, 7, 70, "Code",ExpressionUUID->"7da12103-b97e-43c7-b961-2e78cd7f15d6", CellID->601823412] }, Open ]], Cell[CellGroupData[{ Cell[2530, 87, 69, 2, 70, "Subsection",ExpressionUUID->"f1ed881a-91e0-4f4d-96eb-515f3b0ebfc4", CellID->545224670], Cell[2602, 91, 237, 7, 70, "Code",ExpressionUUID->"2653950e-b064-4ef9-8f6f-ad99d235e676", CellID->914869458] }, Open ]], Cell[CellGroupData[{ Cell[2876, 103, 76, 2, 70, "Subsection",ExpressionUUID->"b15f08f1-1425-477b-9ce4-94f497981a85", CellID->903915879], Cell[2955, 107, 1286, 33, 70, "Code",ExpressionUUID->"862cec5d-896f-41c4-a72e-7035452e29ee", CellID->56456510], Cell[4244, 142, 708, 23, 70, "Text",ExpressionUUID->"ff996d0f-5931-40c2-a814-c82a1628ae52", CellID->258240077], Cell[4955, 167, 710, 19, 70, "Code",ExpressionUUID->"5637b42d-ae2e-48d6-ac0b-dc1615b5ce0a", CellID->16964478], Cell[5668, 188, 89, 2, 70, "Text",ExpressionUUID->"492411d7-88c9-4157-99fd-80d71f01d7ac", CellID->488877613], Cell[5760, 192, 658, 19, 70, "Code",ExpressionUUID->"93363440-51be-45c6-95cc-b7ff07965aa5", CellID->331612331], Cell[6421, 213, 893, 23, 70, "Code",ExpressionUUID->"90dba238-1897-45fe-8b8a-8d62cb75ef44", CellID->796045059], Cell[CellGroupData[{ Cell[7339, 240, 74, 2, 70, "Subsubsection",ExpressionUUID->"50e026b2-ba5f-460e-a7b3-d45f0391fa15", CellID->296340406], Cell[7416, 244, 358, 10, 70, "Code",ExpressionUUID->"e4cd058a-9e5f-45b9-aa23-e3ad9d8ca39d", CellID->315024246], Cell[CellGroupData[{ Cell[7799, 258, 78, 2, 70, "Subsubsubsection",ExpressionUUID->"01e970fc-e7db-42d9-9926-d0b7f27790a6", CellID->532568235], Cell[7880, 262, 156, 5, 70, "Code",ExpressionUUID->"f2f97fd8-0a13-4cb4-9f55-e3fabbb41da6", CellID->31671168], Cell[8039, 269, 2070, 57, 70, "Code",ExpressionUUID->"f919962f-c1d5-45af-9134-fe5e6c87d9b0", CellID->300844952], Cell[10112, 328, 1094, 28, 70, "Code",ExpressionUUID->"fe028996-ea53-4b4f-94e8-f1225f65e2c7", CellID->370911480] }, Open ]], Cell[CellGroupData[{ Cell[11243, 361, 78, 2, 70, "Subsubsubsection",ExpressionUUID->"6a168272-029f-4345-83b7-17ded9f46469", CellID->453151624], Cell[11324, 365, 157, 5, 70, "Code",ExpressionUUID->"927949e4-9c8a-4edd-a85b-afd51cac844d", CellID->399093694], Cell[11484, 372, 575, 13, 70, "Code",ExpressionUUID->"9de2afb8-020a-4bdd-8c2c-daa7068742fb", CellID->49651184] }, Open ]], Cell[CellGroupData[{ Cell[12096, 390, 80, 2, 70, "Subsubsubsection",ExpressionUUID->"fe992fcd-68c9-4920-b9b2-35370a56d795", CellID->358384089], Cell[12179, 394, 158, 5, 70, "Code",ExpressionUUID->"9320ad08-e3e4-4f14-9c0f-fb28c6c51725", CellID->26208684], Cell[12340, 401, 370, 11, 70, "Code",ExpressionUUID->"fe8d1238-362b-4780-a971-18e073a0eba4", CellID->929950602], Cell[12713, 414, 333, 11, 70, "Code",ExpressionUUID->"0d42104a-a605-4be1-95a8-1a762dd5fbd2", CellID->806806043] }, Open ]], Cell[CellGroupData[{ Cell[13083, 430, 85, 2, 70, "Subsubsubsection",ExpressionUUID->"127140fb-4220-408c-93cb-3559e4f5ee4b", CellID->398073866], Cell[13171, 434, 164, 5, 70, "Code",ExpressionUUID->"6b418580-4b6d-4153-a391-f3eb35c24066", CellID->159895552], Cell[13338, 441, 493, 13, 70, "Code",ExpressionUUID->"ab632903-ae86-45bc-aeee-bafe3cca6e21", CellID->145538179], Cell[13834, 456, 338, 11, 70, "Code",ExpressionUUID->"d2f49b84-d614-45d8-bdf9-dfd1b3eab57a", CellID->618703823] }, Open ]], Cell[CellGroupData[{ Cell[14209, 472, 82, 2, 70, "Subsubsubsection",ExpressionUUID->"5bb438da-4129-4765-8293-2ff2e31966d4", CellID->20377209], Cell[14294, 476, 162, 5, 70, "Code",ExpressionUUID->"bd455c86-37a3-45ac-8e24-4a9df2dfac5f", CellID->408321345], Cell[14459, 483, 373, 10, 70, "Code",ExpressionUUID->"582ec322-ca7d-4bf5-a1c4-28775dbf30c1", CellID->511991621], Cell[14835, 495, 336, 11, 70, "Code",ExpressionUUID->"a354df8d-bf6c-4123-ad65-b8a053862f53", CellID->982253671] }, Open ]], Cell[CellGroupData[{ Cell[15208, 511, 82, 2, 70, "Subsubsubsection",ExpressionUUID->"88daa886-1f55-4981-9e08-6b26bb53068c", CellID->374020421], Cell[15293, 515, 161, 5, 70, "Code",ExpressionUUID->"467d08ad-fcc1-494b-857f-eec7d93fe7ce", CellID->800236589], Cell[15457, 522, 425, 11, 70, "Code",ExpressionUUID->"d9bd212b-380b-407c-836e-8d4efddf5ebb", CellID->24376674], Cell[15885, 535, 335, 11, 70, "Code",ExpressionUUID->"9385ddd3-6e23-45c5-8361-8b9226c5a1e0", CellID->998869661] }, Open ]], Cell[CellGroupData[{ Cell[16257, 551, 86, 2, 70, "Subsubsubsection",ExpressionUUID->"3fdbd036-89e9-4383-aaa3-ed9c30e2586a", CellID->623073772], Cell[16346, 555, 167, 6, 70, "Code",ExpressionUUID->"5addbad0-01b9-4723-a1e5-f777fd2939f2", CellID->966580308], Cell[16516, 563, 912, 24, 70, "Code",ExpressionUUID->"38f5ba4d-8c51-4084-9cb7-b63fbb897853", CellID->435151980], Cell[17431, 589, 339, 11, 70, "Code",ExpressionUUID->"22d189f3-0207-49b6-9783-ebeb4297b0b8", CellID->704137361] }, Open ]], Cell[CellGroupData[{ Cell[17807, 605, 92, 2, 70, "Subsubsubsection",ExpressionUUID->"f3fc149d-ea4a-48ff-b124-d89123756bd6", CellID->252650550], Cell[17902, 609, 174, 6, 70, "Code",ExpressionUUID->"4a8b35f6-28f7-4611-9f56-13b6e8925a97", CellID->772969513], Cell[18079, 617, 335, 10, 70, "Code",ExpressionUUID->"24fcbf2a-072d-4d25-98a9-0bba91ba9d38", CellID->631836009], Cell[18417, 629, 343, 11, 70, "Code",ExpressionUUID->"622f65ac-5dc3-4205-8243-39c7b48551e4", CellID->1059198] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18821, 647, 80, 2, 70, "Subsection",ExpressionUUID->"74f67700-5d6c-4c17-853c-8717c4709e2c", CellID->904307675], Cell[18904, 651, 1129, 29, 70, "Code",ExpressionUUID->"c95feee6-117f-42d3-9e40-7f3aaeb40233", CellID->802860626] }, Open ]], Cell[CellGroupData[{ Cell[20070, 685, 72, 2, 70, "Subsection",ExpressionUUID->"ad5b8015-3308-410a-b5ce-4ce74672984d", CellID->669225353], Cell[20145, 689, 536, 14, 70, "Code",ExpressionUUID->"1e395630-6699-40cb-8c95-d891782d6b7c", CellID->168097248], Cell[20684, 705, 339, 9, 70, "Code",ExpressionUUID->"4311bbce-3f81-4f3c-b3eb-b162a607ff16", CellID->766669925], Cell[21026, 716, 379, 10, 70, "Code",ExpressionUUID->"fdc164ba-aa51-490d-800c-6b79ae8cbe83", CellID->638299375], Cell[CellGroupData[{ Cell[21430, 730, 79, 2, 70, "Subsubsection",ExpressionUUID->"7e503900-7ade-4d14-9f60-8f400142b880", CellID->246644785], Cell[21512, 734, 407, 11, 70, "Code",ExpressionUUID->"45159058-d54b-4396-878a-0ef773b051a1", CellID->938187894] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21968, 751, 71, 2, 70, "Subsection",ExpressionUUID->"3dd24ceb-aea3-4514-9072-454cc55c17bd", CellID->377078833], Cell[CellGroupData[{ Cell[22064, 757, 69, 2, 70, "Subsubsection",ExpressionUUID->"8c2d6a34-2d8b-4868-a7e5-b6557d048c57", CellID->413604007], Cell[22136, 761, 2455, 56, 70, "Code",ExpressionUUID->"f052aa5f-0b8e-4d23-80d6-0d172506ba9a", CellID->384206060], Cell[CellGroupData[{ Cell[24616, 821, 84, 2, 70, "Subsubsubsection",ExpressionUUID->"ba414f96-baff-47d8-9725-7fd28a69ecba", CellID->712869010], Cell[24703, 825, 163, 5, 70, "Code",ExpressionUUID->"ec98ab19-064f-4bf4-8cd0-60bf3ec82343", CellID->754597417], Cell[24869, 832, 386, 10, 70, "Code",ExpressionUUID->"d11a3e2a-1c25-4a69-9820-48ef940d5a04", CellID->15125735] }, Open ]], Cell[CellGroupData[{ Cell[25292, 847, 79, 2, 70, "Subsubsubsection",ExpressionUUID->"b4c7e709-c1f3-419c-beb0-3b74833a5832", CellID->333554311], Cell[25374, 851, 158, 5, 70, "Code",ExpressionUUID->"763bb1d4-ee7f-467f-a437-cc9844d60ebf", CellID->227135103], Cell[25535, 858, 534, 13, 70, "Code",ExpressionUUID->"bfafb62f-78a4-4596-81a2-ddd5288b4ae1", CellID->283117987] }, Open ]], Cell[CellGroupData[{ Cell[26106, 876, 88, 2, 70, "Subsubsubsection",ExpressionUUID->"b9e2e8a8-6491-4912-8edf-adbec33535ad", CellID->769783563], Cell[26197, 880, 170, 6, 70, "Code",ExpressionUUID->"4507a665-07a8-486d-9af7-cf853a2a157c", CellID->295801092], Cell[26370, 888, 784, 20, 70, "Code",ExpressionUUID->"05bf337a-3b8a-4a42-9193-bc762642baa3", CellID->81922356] }, Open ]], Cell[CellGroupData[{ Cell[27191, 913, 85, 2, 70, "Subsubsubsection",ExpressionUUID->"94aa6868-e206-4c93-a004-5b20376f32cd", CellID->491593304], Cell[27279, 917, 164, 5, 70, "Code",ExpressionUUID->"5b71e5bf-2431-4c40-b0ec-a565d66c21fb", CellID->474777904], Cell[27446, 924, 1325, 35, 70, "Code",ExpressionUUID->"89c95861-b9d8-488f-8de6-f1826e652cf1", CellID->259164944] }, Open ]], Cell[CellGroupData[{ Cell[28808, 964, 85, 2, 70, "Subsubsubsection",ExpressionUUID->"566fdd87-a0dd-4456-80a0-12526eee1226", CellID->359618881], Cell[28896, 968, 164, 5, 70, "Code",ExpressionUUID->"db834e4b-2595-4cc1-a304-255974409478", CellID->870856006], Cell[29063, 975, 903, 25, 70, "Code",ExpressionUUID->"7cd6576a-4946-4015-95b9-25b534c20629", CellID->163206735] }, Open ]], Cell[CellGroupData[{ Cell[30003, 1005, 84, 2, 70, "Subsubsubsection",ExpressionUUID->"664ec35c-8491-48e5-aff1-887330b905ae", CellID->684134299], Cell[30090, 1009, 163, 5, 70, "Code",ExpressionUUID->"3ccd0358-a88e-4126-950b-9cfc3ad168b5", CellID->611945962], Cell[30256, 1016, 1794, 44, 70, "Code",ExpressionUUID->"ce3cc626-8c19-4732-8736-10b23962e307", CellID->787205277] }, Open ]], Cell[CellGroupData[{ Cell[32087, 1065, 82, 2, 70, "Subsubsubsection",ExpressionUUID->"58aefebe-1430-4c40-b565-e71427aad7af", CellID->583070451], Cell[32172, 1069, 161, 5, 70, "Code",ExpressionUUID->"28bde259-2202-4ae7-be8a-c4adfa8d877a", CellID->336326559], Cell[32336, 1076, 340, 9, 70, "Code",ExpressionUUID->"ac5f5ced-1457-4f15-9186-f4c2ebfb52ee", CellID->142422494] }, Open ]], Cell[CellGroupData[{ Cell[32713, 1090, 79, 2, 70, "Subsubsubsection",ExpressionUUID->"3d509ab6-3fd2-4c4f-bb28-44ea620d0644", CellID->722120001], Cell[32795, 1094, 158, 5, 70, "Code",ExpressionUUID->"5d24113c-d5a2-4efe-9dad-c16f1145490d", CellID->968978954], Cell[32956, 1101, 1024, 23, 70, "Code",ExpressionUUID->"95e2162e-283a-4be1-92ca-5841353378a5", CellID->811956555] }, Open ]], Cell[CellGroupData[{ Cell[34017, 1129, 72, 2, 70, "Subsubsubsection",ExpressionUUID->"e94e0eea-8e57-4fe3-a551-dc5c636f0186", CellID->841824760], Cell[34092, 1133, 151, 5, 70, "Code",ExpressionUUID->"20a59da5-b213-4895-87df-3607b83a3502", CellID->749934461], Cell[34246, 1140, 2270, 51, 70, "Code",ExpressionUUID->"a6844cb1-ec8f-450e-9e19-5b803a38e218", CellID->275271151] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36565, 1197, 71, 2, 70, "Subsubsection",ExpressionUUID->"7f814289-650e-4d40-baac-f91ca559c7f0", CellID->8955130], Cell[36639, 1201, 1206, 30, 70, "Code",ExpressionUUID->"cecb28f3-5ee3-4fef-9e21-8cbcf940fd7f", CellID->512704535], Cell[37848, 1233, 1001, 25, 70, "Code",ExpressionUUID->"1a7b2335-4785-467e-bcff-ce0545e4084b", CellID->843237275] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38898, 1264, 73, 2, 70, "Subsection",ExpressionUUID->"63e7ba3f-7ed8-4f23-9614-9c2b883b6704", CellID->642677896], Cell[CellGroupData[{ Cell[38996, 1270, 84, 2, 70, "Subsubsection",ExpressionUUID->"bf317d8a-91dd-4ef8-a4f9-f66698f53b0c", CellID->404515191], Cell[39083, 1274, 168, 6, 70, "Code",ExpressionUUID->"96e93452-8fc1-4569-b0b2-37387e057e43", CellID->952094976], Cell[39254, 1282, 931, 23, 70, "Code",ExpressionUUID->"ede12744-fa22-4e81-bb6f-aacdb88ceadb", CellID->462703177], Cell[40188, 1307, 370, 10, 70, "Code",ExpressionUUID->"38805db7-c592-4688-8973-b329821a760b", CellID->667004851] }, Open ]], Cell[CellGroupData[{ Cell[40595, 1322, 84, 2, 70, "Subsubsection",ExpressionUUID->"c2b6b5c2-967c-4ab6-aa34-ffbb90d63a68", CellID->528334896], Cell[40682, 1326, 168, 6, 70, "Code",ExpressionUUID->"5624f9b2-ecaa-434f-8e7b-9b74ec788690", CellID->980951630], Cell[40853, 1334, 439, 13, 70, "Code",ExpressionUUID->"1db71e1c-4c7e-4baf-8c4d-e27238a2d4bf", CellID->313319864] }, Open ]], Cell[CellGroupData[{ Cell[41329, 1352, 79, 2, 70, "Subsubsection",ExpressionUUID->"72f9c8a0-cc4f-44bd-a88e-ac924eff7b3d", CellID->407952235], Cell[41411, 1356, 161, 5, 70, "Code",ExpressionUUID->"d6c92b5e-0b6e-440f-86c7-469de79677d2", CellID->686576304], Cell[41575, 1363, 804, 21, 70, "Code",ExpressionUUID->"4b8f1669-acde-4c5f-abb5-a6751484ed56", CellID->136046222] }, Open ]], Cell[CellGroupData[{ Cell[42416, 1389, 80, 2, 70, "Subsubsection",ExpressionUUID->"e9298dfc-e35a-4200-b415-fbfcde49052f", CellID->457704061], Cell[42499, 1393, 161, 5, 70, "Code",ExpressionUUID->"b81d524f-65d2-4079-96ab-44e2e534c902", CellID->34959402], Cell[42663, 1400, 327, 9, 70, "Code",ExpressionUUID->"0282b82f-b699-4956-896f-b831fbe06bee", CellID->81397609], Cell[42993, 1411, 413, 12, 70, "Code",ExpressionUUID->"2efaa11e-96c2-4c38-94ae-32be3a081b37", CellID->525169586], Cell[43409, 1425, 434, 12, 70, "Code",ExpressionUUID->"99e3b745-7f4f-49b0-83f4-46f3448609a3", CellID->701451539], Cell[43846, 1439, 336, 11, 70, "Code",ExpressionUUID->"16f67e7c-a90a-42ce-bb62-060b18eaa13d", CellID->442454769] }, Open ]], Cell[CellGroupData[{ Cell[44219, 1455, 78, 2, 70, "Subsubsection",ExpressionUUID->"3d5da14e-3f86-4566-a539-0ccc3b0ef02a", CellID->560209853], Cell[44300, 1459, 161, 5, 70, "Code",ExpressionUUID->"96175f51-50e8-4198-b28e-dd0828efadbc", CellID->853168899], Cell[44464, 1466, 507, 15, 70, "Code",ExpressionUUID->"b4aca780-5eed-470c-85e1-a6870c6be1de", CellID->62882903], Cell[44974, 1483, 335, 11, 70, "Code",ExpressionUUID->"9b5a55ee-e7b2-4c91-88ea-22b09e0e5556", CellID->868757465] }, Open ]], Cell[CellGroupData[{ Cell[45346, 1499, 84, 2, 70, "Subsubsection",ExpressionUUID->"28d61ae9-3f7e-4464-81ee-de57e5f92ca6", CellID->30672886], Cell[45433, 1503, 341, 11, 70, "Code",ExpressionUUID->"58fa63c4-6d64-4b5a-b876-d54004fd8003", CellID->707393857] }, Open ]], Cell[CellGroupData[{ Cell[45811, 1519, 78, 2, 70, "Subsubsection",ExpressionUUID->"c21a81f6-b727-4c88-be50-7bde291cc554", CellID->634769624], Cell[45892, 1523, 313, 9, 70, "Code",ExpressionUUID->"84d4a226-80df-4fd6-8758-baed0bb84984", CellID->960192383] }, Open ]], Cell[CellGroupData[{ Cell[46242, 1537, 75, 2, 70, "Subsubsection",ExpressionUUID->"a1439d8a-2fec-4848-a8f1-b1cd4323826b", CellID->249849215], Cell[46320, 1541, 304, 9, 70, "Code",ExpressionUUID->"48a02658-6cda-4fe5-b54f-3a3884219e2a", CellID->144197474] }, Open ]], Cell[CellGroupData[{ Cell[46661, 1555, 71, 2, 70, "Subsubsection",ExpressionUUID->"8b0693fa-ef0d-4356-a140-b9b004795b33", CellID->381850082], Cell[46735, 1559, 292, 9, 70, "Code",ExpressionUUID->"4935c40e-85b0-437a-83e9-907852b9a916", CellID->292042925] }, Open ]], Cell[CellGroupData[{ Cell[47064, 1573, 77, 2, 70, "Subsubsection",ExpressionUUID->"5c6a6f04-a308-4a0e-833a-ecfa8bc84e1b", CellID->582033421], Cell[47144, 1577, 160, 5, 70, "Code",ExpressionUUID->"9bdc3455-3d45-4817-9075-7446f59ce6e3", CellID->374050671], Cell[47307, 1584, 1353, 35, 70, "Code",ExpressionUUID->"47bd29e6-a54e-4ff6-acb1-224eeb128a6c", CellID->233115843] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48721, 1626, 137, 4, 70, "Section",ExpressionUUID->"a713d9af-e7fd-44b0-bfa4-2573f698b14a", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[48883, 1634, 1880, 48, 70, "Subsection",ExpressionUUID->"7481dfb3-35fe-423f-9e8b-e94552c02267", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[50788, 1686, 149, 4, 70, "UsageInputs",ExpressionUUID->"2af61bfc-c02a-4522-a220-58057a4731e8", CellID->711993660], Cell[50940, 1692, 299, 10, 70, "UsageDescription",ExpressionUUID->"a4a5fc8c-cfb3-43af-8a19-28595569e67c", CellID->82793148] }, Open ]], Cell[CellGroupData[{ Cell[51276, 1707, 209, 6, 70, "UsageInputs",ExpressionUUID->"05b78592-827c-468a-bbc4-705ad0c68734", CellID->384637043], Cell[51488, 1715, 293, 10, 70, "UsageDescription",ExpressionUUID->"6610b969-4af8-4f72-b68e-2885708eac08", CellID->500941579] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51830, 1731, 1329, 30, 70, "Subsection",ExpressionUUID->"a8a0fd86-06db-4202-a32d-d07a2dfab4f5", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[53162, 1763, 571, 21, 70, "Notes",ExpressionUUID->"a6d553d9-5ae8-4ba2-991b-74ab6a81a898", CellID->26679310], Cell[53736, 1786, 2386, 63, 70, "TableNotes",ExpressionUUID->"c3799baf-ea3d-4f54-a1f0-8bfd23408eef", CellID->278247060], Cell[56125, 1851, 774, 24, 70, "Notes",ExpressionUUID->"a8fc2da4-0d34-4872-bbb2-10701337415d", CellID->821444770], Cell[56902, 1877, 785, 24, 70, "Notes",ExpressionUUID->"405f6dbe-78bf-4b08-96fe-5ec65a45fd81", CellID->430927241] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57736, 1907, 6926, 150, 70, "Section",ExpressionUUID->"ff41cbdb-76f2-474c-8143-8c0a0fb4adee", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[64687, 2061, 75, 2, 70, "Subsection",ExpressionUUID->"ee24aea9-4694-49ec-a39f-2ab16139ed04", CellID->904125756], Cell[64765, 2065, 128, 4, 70, "Text",ExpressionUUID->"be7b2271-5a5d-492d-a7bb-5b2d419b724c", CellID->71833313], Cell[CellGroupData[{ Cell[64918, 2073, 394, 14, 70, "Input",ExpressionUUID->"41037668-41ef-46e9-87c1-20732689b36d", CellID->343294083], Cell[65315, 2089, 8637, 171, 70, "Output",ExpressionUUID->"f40d1011-f286-4dd7-8091-ea120f4aa3cb", CellID->627116621] }, Open ]], Cell[73967, 2263, 94, 2, 70, "Text",ExpressionUUID->"4a2123bc-ea55-433c-89f6-6f5a9a3fd92a", CellID->281164086], Cell[CellGroupData[{ Cell[74086, 2269, 129, 4, 70, "Input",ExpressionUUID->"e2748e03-1d20-49ea-977e-50c32c353c9a", CellID->702890012], Cell[74218, 2275, 8916, 153, 70, "Output",ExpressionUUID->"11bc2be8-641d-4ffe-9554-4c31d67725d6", CellID->170980458] }, Open ]], Cell[83149, 2431, 653, 22, 70, "Text",ExpressionUUID->"1dbd8fa7-1d6b-41cc-a5a8-5862f629962a", CellID->311335248], Cell[83805, 2455, 165, 6, 70, "Input",ExpressionUUID->"9faf0dbf-bada-4f71-bb5e-116bdfbeca12", CellID->347720369], Cell[CellGroupData[{ Cell[83995, 2465, 116, 4, 70, "Input",ExpressionUUID->"a6438837-e0fa-42eb-868f-ac160e587a1f", CellID->452115605], Cell[84114, 2471, 161, 5, 70, "Output",ExpressionUUID->"80a446c6-9c73-42d9-9a04-9e0f49a1d37e", CellID->432356250] }, Open ]], Cell[CellGroupData[{ Cell[84312, 2481, 121, 4, 70, "Input",ExpressionUUID->"30e04727-2272-47f9-a794-581cf0c76b61", CellID->304874999], Cell[84436, 2487, 130, 4, 70, "Output",ExpressionUUID->"bb92217b-c809-4fc3-91c8-66f0d3dedcd3", CellID->520064481] }, Open ]], Cell[CellGroupData[{ Cell[84603, 2496, 116, 4, 70, "Input",ExpressionUUID->"2873a4bf-fd54-41bb-8661-98c69ce31020", CellID->850444813], Cell[84722, 2502, 138, 4, 70, "Output",ExpressionUUID->"8b45bd12-5b21-4382-b2b1-14bcbdcffcb8", CellID->252504608] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84909, 2512, 73, 2, 70, "Subsection",ExpressionUUID->"10c5494b-3d10-4ecc-970e-2477c085089c", CellID->605265931], Cell[84985, 2516, 141, 4, 70, "Text",ExpressionUUID->"56a1d034-7cb3-4f3f-91b2-5b743e80276a", CellID->577013583], Cell[CellGroupData[{ Cell[85151, 2524, 252, 7, 70, "Input",ExpressionUUID->"18e63a63-2f72-4aa7-890f-087b2ddd6150", CellID->213076804], Cell[85406, 2533, 8554, 173, 70, "Output",ExpressionUUID->"c5c5df7c-abb0-4bc1-9282-5e67bbcc7bdb", CellID->141467458] }, Open ]], Cell[93975, 2709, 76, 2, 70, "Text",ExpressionUUID->"ef4fbb03-68e8-415f-9ea6-d78e7ef1beb5", CellID->298746840], Cell[CellGroupData[{ Cell[94076, 2715, 179, 5, 70, "Input",ExpressionUUID->"7af05f12-ce70-4c1c-90a5-8786604dcfe0", CellID->104241045], Cell[94258, 2722, 2124, 53, 70, "Output",ExpressionUUID->"bf8afdc3-f54e-498b-ac84-d369ed17f7f5", CellID->488956882] }, Open ]], Cell[96397, 2778, 193, 6, 70, "Input",ExpressionUUID->"8ecf005e-8464-4423-8b1a-5aef86361e39", CellID->988767888], Cell[96593, 2786, 110, 2, 70, "Text",ExpressionUUID->"5d0ff09c-1be2-42e2-ad62-c85de661cbfc", CellID->140643066], Cell[CellGroupData[{ Cell[96728, 2792, 116, 4, 70, "Input",ExpressionUUID->"e52d46da-4b46-4246-aee0-878aad191e1f", CellID->199338375], Cell[96847, 2798, 164, 4, 70, "Output",ExpressionUUID->"67099588-7bc4-48b0-b796-a3d91e7305d5", CellID->138750898] }, Open ]], Cell[97026, 2805, 80, 2, 70, "Text",ExpressionUUID->"ec5fc77a-850e-468c-b4b2-3f6524000987", CellID->264392445], Cell[CellGroupData[{ Cell[97131, 2811, 178, 5, 70, "Input",ExpressionUUID->"a9b353d9-452b-45ef-82a9-c1c759f088af", CellID->251728627], Cell[97312, 2818, 1678, 47, 70, "Output",ExpressionUUID->"5ca5907b-a243-4ce6-8824-38af60cc2f08", CellID->48174095] }, Open ]], Cell[CellGroupData[{ Cell[99027, 2870, 175, 5, 70, "Input",ExpressionUUID->"2b0cd193-c9ba-4c7f-a940-73d99712c5d4", CellID->816214790], Cell[99205, 2877, 1514, 24, 70, "Output",ExpressionUUID->"8a768a11-8460-4b25-ac2e-f443c4ad1003", CellID->839863619] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[100768, 2907, 85, 2, 70, "Subsection",ExpressionUUID->"f87b4526-fd86-4b2d-ab6c-ea8c95e57510", CellID->232113220], Cell[100856, 2911, 90, 2, 70, "Text",ExpressionUUID->"286a328c-c573-485d-9996-5c95f7a53eb4", CellID->817593913], Cell[CellGroupData[{ Cell[100971, 2917, 11779, 230, 70, "Input",ExpressionUUID->"ef5a7096-d0e4-4bbb-a876-838985c3a590", CellID->144326356], Cell[112753, 3149, 419, 10, 70, "Output",ExpressionUUID->"743c84ae-8680-4997-8295-b718f6ebf035", CellID->332200241] }, Open ]], Cell[CellGroupData[{ Cell[113209, 3164, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"cfd8853e-e1b2-4184-9007-616c149b8784", CellID->14107562], Cell[113355, 3170, 86, 2, 70, "Text",ExpressionUUID->"c6db395f-edd0-4c94-aad3-5577b8208c20", CellID->870248887], Cell[CellGroupData[{ Cell[113466, 3176, 11492, 222, 70, "Input",ExpressionUUID->"5cb5ae67-59b3-4709-9f93-e27e0118884b", CellID->41516381], Cell[124961, 3400, 554, 13, 70, "Output",ExpressionUUID->"98b8b600-659b-4819-b611-471a7260fb48", CellID->814525579] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[125564, 3419, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"55ace022-03f2-4857-90b8-7fb56688ade5", CellID->14107563], Cell[125710, 3425, 673, 22, 70, "Text",ExpressionUUID->"7fe1d208-94e9-4408-ae50-92f1141f7bc8", CellID->256337739], Cell[CellGroupData[{ Cell[126408, 3451, 11583, 225, 70, "Input",ExpressionUUID->"aea453e8-3498-400c-9252-32f9527a69f5", CellID->314801800], Cell[137994, 3678, 618, 17, 70, "Output",ExpressionUUID->"7d736c7a-09ba-4149-9215-ca3b8382ae5d", CellID->287513901] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[138661, 3701, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b6c24f41-8528-4718-bb4b-4cd0b8fb5e7f", CellID->14107564], Cell[138807, 3707, 886, 29, 70, "Text",ExpressionUUID->"d7b0fd18-7af5-4e3e-8d5c-59057230aa26", CellID->66057512], Cell[CellGroupData[{ Cell[139718, 3740, 8825, 176, 70, "Input",ExpressionUUID->"4581154e-e8a6-4fde-ae23-f7905f13d6e6", CellID->788769317], Cell[148546, 3918, 549, 14, 70, "Output",ExpressionUUID->"05afb680-e25d-470c-a05c-065eddd28c32", CellID->299740854] }, Open ]], Cell[149110, 3935, 672, 22, 70, "Text",ExpressionUUID->"fb4c6d3d-5cd4-4520-9c1f-428147f39a66", CellID->653613404], Cell[CellGroupData[{ Cell[149807, 3961, 8797, 175, 70, "Input",ExpressionUUID->"33a24570-7773-4d8d-8579-6fda93e2a0f4", CellID->691590261], Cell[158607, 4138, 2107, 53, 70, "Output",ExpressionUUID->"7f2f7af7-fe04-41fc-9f17-2cfd655c7af5", CellID->794255356] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[160763, 4197, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d8d98744-90b1-43fa-94c8-626093ea5565", CellID->14107565], Cell[160909, 4203, 2518, 80, 70, "Text",ExpressionUUID->"f9ea44df-a42e-4b91-8bf1-c81d3e308189", CellID->533711783], Cell[CellGroupData[{ Cell[163452, 4287, 517, 17, 70, "Input",ExpressionUUID->"44183763-ccd9-4b32-80f3-10bb6e5773d9", CellID->347450711], Cell[163972, 4306, 8638, 171, 70, "Output",ExpressionUUID->"7d6820f0-1d72-4417-91ab-6d9938ad1554", CellID->483284109] }, Open ]], Cell[CellGroupData[{ Cell[172647, 4482, 283, 8, 70, "Input",ExpressionUUID->"d868f11c-9e04-4608-9977-fd12970641ef", CellID->560461630], Cell[172933, 4492, 476, 12, 70, "Print",ExpressionUUID->"80280dae-b444-458a-851c-cda1d743a149", CellID->122352806] }, Open ]], Cell[173424, 4507, 1276, 40, 70, "Text",ExpressionUUID->"fab74470-0875-4d5a-baf7-93dba7e29e52", CellID->591014162], Cell[CellGroupData[{ Cell[174725, 4551, 311, 9, 70, "Input",ExpressionUUID->"3f528a57-5c39-4505-a84d-00790c7bdd86", CellID->5111613], Cell[175039, 4562, 8638, 171, 70, "Output",ExpressionUUID->"117b6009-1500-40fb-88cf-b13169888a81", CellID->317485041] }, Open ]], Cell[183692, 4736, 76, 2, 70, "Text",ExpressionUUID->"7cb71c33-262f-4988-a435-6b9f5ea354b2", CellID->542036084], Cell[CellGroupData[{ Cell[183793, 4742, 114, 4, 70, "Input",ExpressionUUID->"d324296b-b530-4f34-928f-dc28d901226c", CellID->923339619], Cell[183910, 4748, 146, 4, 70, "Output",ExpressionUUID->"bf4fce77-3a61-4fe9-9134-c49306428ace", CellID->351770357] }, Open ]], Cell[184071, 4755, 108, 2, 70, "Text",ExpressionUUID->"4feeaf13-4fd4-463e-b792-8bc4869bde6d", CellID->191259555], Cell[CellGroupData[{ Cell[184204, 4761, 128, 4, 70, "Input",ExpressionUUID->"9bbcc4d3-7163-4d90-9f8f-8adf3606c538", CellID->553696190], Cell[184335, 4767, 137, 4, 70, "Output",ExpressionUUID->"4b4edfbc-73bd-447d-a3db-670f2276368b", CellID->941172250] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[184533, 4778, 76, 2, 70, "Subsection",ExpressionUUID->"619c94b3-565b-4e7e-a371-796e9354e371", CellID->158766396], Cell[184612, 4782, 135, 4, 70, "Text",ExpressionUUID->"0dcf0271-3fd3-4827-971b-be2c44a65b3c", CellID->902963644], Cell[CellGroupData[{ Cell[184772, 4790, 458, 15, 70, "Input",ExpressionUUID->"8704da79-b063-46e4-a54a-393bd8c0076b", CellID->554356126], Cell[185233, 4807, 8905, 176, 70, "Output",ExpressionUUID->"3faf39cf-ba8a-41c3-a6d8-d2400dae7951", CellID->638403362] }, Open ]], Cell[CellGroupData[{ Cell[194175, 4988, 172, 5, 70, "Input",ExpressionUUID->"f8870ca5-c7e2-4b2f-ab12-ab00a03d0785", CellID->416178006], Cell[194350, 4995, 264, 7, 70, "Output",ExpressionUUID->"db492290-d0ab-40ea-8bff-61623ef3aecb", CellID->20143437] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[194675, 5009, 174, 4, 70, "Section",ExpressionUUID->"e0864fa7-d08e-4645-8fd7-cb5518d1c263", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[194874, 5017, 918, 24, 70, "Subsection",ExpressionUUID->"54111eec-15f2-407a-80ed-540034dd3008", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[195795, 5043, 71, 1, 70, "Text",ExpressionUUID->"b316bff7-14f1-4ff7-a563-5731e89061d1", CellID->765499838] }, Open ]], Cell[CellGroupData[{ Cell[195903, 5049, 893, 24, 70, "Subsection",ExpressionUUID->"f21fa4d1-aef3-4619-8321-8801ebf29a66", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[196799, 5075, 46, 1, 70, "Item",ExpressionUUID->"ef11c9af-e86b-4303-a371-b67952f21ec9", CellID->578108665], Cell[196848, 5078, 51, 1, 70, "Item",ExpressionUUID->"3e6253c7-e3c1-4162-84e1-4805534d5624", CellID->920331344], Cell[196902, 5081, 51, 1, 70, "Item",ExpressionUUID->"195f8bed-2121-4c50-b6ad-e34fede08650", CellID->488647568], Cell[196956, 5084, 51, 1, 70, "Item",ExpressionUUID->"67989dbe-1cbb-4ed2-b2a2-fc7a3355ea77", CellID->551103684], Cell[197010, 5087, 39, 1, 70, "Item",ExpressionUUID->"eae45657-0dc4-472e-917a-774c884dd088", CellID->242453071], Cell[197052, 5090, 48, 1, 70, "Item",ExpressionUUID->"47954e31-2afd-494c-b5f6-1f98f1104963", CellID->706360460], Cell[197103, 5093, 61, 1, 70, "Item",ExpressionUUID->"52d4f429-2932-4912-b040-a2bb1ad1e1b4", CellID->390090187] }, Open ]], Cell[CellGroupData[{ Cell[197201, 5099, 167, 5, 70, "Subsection",ExpressionUUID->"b3edeb6a-6f11-417a-8b21-acf3e0dec61c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[197371, 5106, 54, 1, 70, "Item",ExpressionUUID->"22777579-022a-4c11-a8e8-6218e36a9cb8", CellID->258688719], Cell[197428, 5109, 61, 1, 70, "Item",ExpressionUUID->"cf48b143-2ba5-4ecc-b42f-11656c15ec55", CellID->750803164], Cell[197492, 5112, 57, 1, 70, "Item",ExpressionUUID->"f43cb410-ccb8-497a-9828-1ac6148de8de", CellID->109970476] }, Open ]], Cell[CellGroupData[{ Cell[197586, 5118, 870, 24, 70, "Subsection",ExpressionUUID->"4acda3b5-c353-4e17-99c2-fa5ae6eb744a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[198459, 5144, 46, 1, 70, "Item",ExpressionUUID->"653b1f4d-d6f4-41d3-8c22-d1cab9d82d01", CellID->739956698], Cell[198508, 5147, 50, 1, 70, "Item",ExpressionUUID->"a6129957-773b-4ced-823a-cba877235f94", CellID->100981271], Cell[198561, 5150, 39, 1, 70, "Item",ExpressionUUID->"5b7e2238-253d-45fa-ab86-3dc517bd5751", CellID->268859946], Cell[198603, 5153, 47, 1, 70, "Item",ExpressionUUID->"d7d99ea9-6550-478b-a9fa-42a897db317d", CellID->614317567], Cell[198653, 5156, 40, 1, 70, "Item",ExpressionUUID->"b094d386-bd0f-4f18-b847-bde1b1ccd153", CellID->950771381], Cell[198696, 5159, 46, 1, 70, "Item",ExpressionUUID->"fb6eeaec-dbdc-47f2-a9b3-30d849f43236", CellID->758177782], Cell[198745, 5162, 45, 1, 70, "Item",ExpressionUUID->"57b7fa23-b96a-4565-9ab5-09fa3d7460ae", CellID->423452450], Cell[198793, 5165, 44, 1, 70, "Item",ExpressionUUID->"7ea78018-cff7-40d1-b7f9-884cce078a85", CellID->687322664] }, Open ]], Cell[CellGroupData[{ Cell[198874, 5171, 919, 24, 70, "Subsection",ExpressionUUID->"53fcfe37-3ace-4f7e-aea2-f87a3f0e850d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[199796, 5197, 66, 1, 70, "Item",ExpressionUUID->"245e7ff2-e6ef-461a-9f56-f0b60a83079c", CellID->953408948], Cell[199865, 5200, 59, 1, 70, "Item",ExpressionUUID->"d987c20a-d285-4666-a60e-039662d723be", CellID->215315340], Cell[199927, 5203, 50, 1, 70, "Item",ExpressionUUID->"d93fd1ef-5c37-44d9-bb21-86b68423d2e0", CellID->499407201], Cell[199980, 5206, 68, 1, 70, "Item",ExpressionUUID->"57e81fa7-dfe8-4413-a4d6-1566785b12fd", CellID->356563292], Cell[200051, 5209, 54, 1, 70, "Item",ExpressionUUID->"9380f663-d1b2-4286-b78e-c93955b41079", CellID->567813623], Cell[200108, 5212, 57, 1, 70, "Item",ExpressionUUID->"33a1bb5f-795c-4d3a-90d8-1050c5d74578", CellID->376339937] }, Open ]], Cell[CellGroupData[{ Cell[200202, 5218, 971, 25, 70, "Subsection",ExpressionUUID->"3e87ba0d-5872-4cdf-b789-e78696eb077d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[201176, 5245, 516, 8, 70, "Text",ExpressionUUID->"054f2aa4-726b-4549-a03f-0d02af8e8bce", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[201729, 5258, 823, 24, 70, "Subsection",ExpressionUUID->"13a0c21e-bbd8-4b79-a33b-9fbfe9000990", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[202555, 5284, 290, 8, 70, "Item",ExpressionUUID->"3b0d7948-68cc-4de5-a43f-b9cd781e99b3", CellID->648462522], Cell[202848, 5294, 375, 9, 70, "Item",ExpressionUUID->"0079642b-9e6a-4169-baa8-3ec3caac918c", CellID->197371260] }, Open ]], Cell[CellGroupData[{ Cell[203260, 5308, 1785, 44, 70, "Subsection",ExpressionUUID->"1d1745c3-d04d-4c58-aeb7-96015cc454b8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->269191388], Cell[CellGroupData[{ Cell[205070, 5356, 1336, 31, 70, "Code",ExpressionUUID->"e5cb3551-ab99-4915-b033-c40475322f42", InitializationCell->False, CellID->963096125], Cell[206409, 5389, 36027, 690, 70, "Output",ExpressionUUID->"ec0f3982-ab3a-4f66-a5e8-aa44af7c669a", CellID->262685664] }, Open ]], Cell[CellGroupData[{ Cell[242473, 6084, 1025, 25, 70, "Code",ExpressionUUID->"143154cc-d08e-4b92-b2f9-7cbc059734bd", InitializationCell->False, CellID->526116356], Cell[243501, 6111, 17307, 361, 70, "Output",ExpressionUUID->"99fe9b06-ebbd-467f-b983-ae4fb8ef4840", CellID->229163309] }, Open ]], Cell[CellGroupData[{ Cell[260845, 6477, 465, 13, 70, "Code",ExpressionUUID->"5a576372-b70f-4d0f-b2f9-bf7c8fd2638c", InitializationCell->False, CellID->403545965], Cell[261313, 6492, 13748, 283, 70, "Output",ExpressionUUID->"e7883091-c148-4266-bec7-a3fa9945e171", CellID->245341866] }, Open ]], Cell[CellGroupData[{ Cell[275098, 6780, 308, 9, 70, "Code",ExpressionUUID->"09c077cd-a6f3-4d59-a028-7ad3d6322681", InitializationCell->False, CellID->821406269], Cell[275409, 6791, 13296, 277, 70, "Output",ExpressionUUID->"716b9a00-ac8d-4a22-87c3-c943e6010b9f", CellID->473186019] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[288766, 7075, 1048, 26, 70, "Section",ExpressionUUID->"9d35a832-872f-4368-b95f-3107fdbd4e16", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[289817, 7103, 529, 8, 70, "Text",ExpressionUUID->"5851a081-32de-490d-abc2-93d7b6c2fd96", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[290383, 7116, 929, 25, 70, "Section",ExpressionUUID->"c5f4632f-1266-4716-b7e6-d39bf36320ab", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[291315, 7143, 515, 8, 70, "Text",ExpressionUUID->"5a79c096-35a8-4514-adf8-8d77aeae1287", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)