(* 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[ 272384, 6193] NotebookOptionsPosition[ 129674, 3407] NotebookOutlinePosition[ 251043, 5738] CellTagsIndexPosition[ 250091, 5707] WindowTitle->BinarySerializeWithDefinitions | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BinarySerializeWithDefinitions", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->588284366], Cell["Serialize an expression along with any dependent definitions", "Text", CellTags->{"Description", "TemplateCell"}, CellID->824951870], 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[{ RowBox[{"BinarySerializeWithDefinitions", " ", "//", " ", "ClearAll"}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BinarySerializeWithDefinitions", " ", "//", " ", "Options"}], " ", "=", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"Method", " ", "->", " ", "Automatic"}], ",", "\n", " ", RowBox[{"PerformanceGoal", " ", "->", " ", "Automatic"}]}], "\n", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"BinarySerializeWithDefinitions", "[", " ", RowBox[{"expr_", ",", " ", RowBox[{"opts", ":", " ", RowBox[{"OptionsPattern", "[", " ", "]"}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"getSerializeExpr", " ", "@", " ", RowBox[{"fullDefinition", " ", "@", " ", "expr"}]}], ",", "\n", " ", RowBox[{ RowBox[{"HoldComplete", "[", " ", "e_", " ", "]"}], " ", ":>", " ", RowBox[{"SerializeWithContext", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "e"}], ",", " ", "opts"}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", InitializationCell->True, CellChangeTimes->{ 3.7857853709303083`*^9, {3.785785849011039*^9, 3.785785867386485*^9}, { 3.785786320185916*^9, 3.7857863349404774`*^9}}, CellLabel->"In[4]:=", CellID->15305383], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getSerializeExpr", " ", "//", " ", "ClearAll"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"getSerializeExpr", "[", " ", RowBox[{"KeyValuePattern", " ", "@", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "def_"}], ",", " ", RowBox[{"\"\\"", " ", ":>", " ", "expr_"}]}], " ", "}"}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"HoldComplete", "[", " ", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Language`ExtendedFullDefinition", "[", " ", "]"}], " ", "=", " ", "def"}], ";", "\n", " ", "expr"}], "\[IndentingNewLine]", " ", "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{"getSerializeExpr", "[", " ", RowBox[{"KeyValuePattern", " ", "@", " ", RowBox[{"{", " ", RowBox[{"\"\\"", " ", ":>", " ", "expr_"}], " ", "}"}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"HoldComplete", " ", "@", " ", "expr"}]}]}], "Code", InitializationCell->True, CellChangeTimes->{{3.7857858722423415`*^9, 3.7857859373633895`*^9}}, CellLabel->"In[7]:=", CellID->774404670], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fullDefinition", " ", "//", " ", "ClearAll"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fullDefinition", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fullDefinition", "[", " ", "s_Symbol", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"DeleteMissing", " ", "@", " ", RowBox[{"<|", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"DeleteCases", "[", " ", RowBox[{ RowBox[{"Language`ExtendedFullDefinition", " ", "@", " ", "s"}], ",", " ", "$emptyDefPattern", ",", " ", "3"}], " ", "]"}], ",", "\n", " ", RowBox[{ RowBox[{"Language`DefinitionList", "[", " ", RowBox[{"_", " ", "->", " ", RowBox[{"{", " ", "}"}]}], " ", "]"}], " ", ":>", " ", RowBox[{"Missing", "[", " ", "]"}]}]}], "\n", " ", "]"}]}], ",", "\n", " ", RowBox[{"\"\\"", " ", ":>", " ", "s"}]}], "\n", " ", "|>"}]}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fullDefinition", "[", " ", "s_String", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"ToExpression", "[", " ", RowBox[{"s", ",", " ", "InputForm", ",", " ", "fullDefinition"}], " ", "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"fullDefinition", "[", " ", "expr_", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", "$", " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"$", " ", ":=", " ", "expr"}], ";", "\n", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"fullDefinition", " ", "@", " ", "$"}], ",", "\n", " ", RowBox[{ RowBox[{"KeyValuePattern", " ", "@", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{ "Language`DefinitionList", "[", "\n", " ", RowBox[{ RowBox[{"HoldForm", "[", " ", "$", " ", "]"}], " ", "->", " ", RowBox[{"{", " ", "\n", " ", RowBox[{"OwnValues", " ", "->", " ", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"Verbatim", "[", " ", "HoldPattern", " ", "]"}], "[", " ", "$", " ", "]"}], " ", ":>", " ", RowBox[{"Verbatim", " ", "@", " ", "expr"}]}], " ", "}"}]}], "\n", " ", "}"}]}], "\n", " ", "]"}]}], ",", "\n", " ", RowBox[{"\"\\"", " ", ":>", " ", "$"}]}], "\n", " ", "}"}]}], " ", ":>", " ", "\n", " ", RowBox[{"<|", " ", RowBox[{"\"\\"", " ", ":>", " ", "expr"}], " ", "|>"}]}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", InitializationCell->True, CellChangeTimes->{ 3.7857853781970887`*^9, {3.785785530842498*^9, 3.7857855357343674`*^9}, { 3.785785940404298*^9, 3.7857859775051885`*^9}, {3.7857860235527897`*^9, 3.7857860998555207`*^9}, {3.7857862000415*^9, 3.7857862274756966`*^9}, { 3.7857863451671696`*^9, 3.7857863506389875`*^9}}, CellLabel->"In[10]:=", CellID->463477712], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"$emptyDefPattern", " ", "//", " ", "ClearAll"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"$emptyDefPattern", " ", "=", " ", RowBox[{"Alternatives", "[", "\n", " ", RowBox[{ RowBox[{"OwnValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"SubValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"UpValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"DownValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"NValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"FormatValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"DefaultValues", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"Messages", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"Attributes", " ", "->", " ", RowBox[{"{", " ", "}"}]}], ",", "\n", " ", RowBox[{"Attributes", " ", "->", " ", RowBox[{"{", " ", "Temporary", " ", "}"}]}]}], "\n", "]"}]}], ";"}]}], "Code", InitializationCell->True, CellChangeTimes->{ 3.7857853805550017`*^9, {3.7857861053863544`*^9, 3.785786110883189*^9}, { 3.7857862316005735`*^9, 3.7857862555698586`*^9}}, CellLabel->"In[15]:=", CellID->95842164], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SerializeWithContext", " ", "//", " ", "ClearAll"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SerializeWithContext", "[", "\n", " ", RowBox[{"expr_", ",", "\n", " ", RowBox[{"opts", ":", " ", RowBox[{ "OptionsPattern", "[", "BinarySerializeWithDefinitions", "]"}]}]}], "\n", "]"}], " ", ":=", "\n", " ", RowBox[{"WithContext", " ", "@", " ", RowBox[{"BinarySerialize", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "opts"}], " ", "]"}]}]}], ";"}]}], "Code", InitializationCell->True, CellChangeTimes->{ 3.785785382389964*^9, {3.785786116426022*^9, 3.7857861645075855`*^9}, { 3.7857862383793716`*^9, 3.785786243833207*^9}}, CellLabel->"In[17]:=", CellID->317763533], Cell[BoxData[{ RowBox[{ RowBox[{"WithContext", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"WithContext", " ", "//", " ", "Attributes"}], " ", "=", " ", RowBox[{"{", " ", "HoldAllComplete", " ", "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"WithContext", "[", " ", "expr_", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"$Context", " ", "=", " ", "\"\<$`\>\""}], ",", " ", RowBox[{"$ContextPath", " ", "=", " ", RowBox[{"{", " ", "\"\<$`\>\"", " ", "}"}]}]}], " ", "}"}], ",", "\n", " ", "expr"}], "\n", " ", "]"}]}], ";"}]}], "Code", InitializationCell->True, CellChangeTimes->{{3.7857853838649197`*^9, 3.785785388401767*^9}, { 3.7857861445781784`*^9, 3.7857861614026785`*^9}, {3.7857862477310886`*^9, 3.7857862509229913`*^9}}, CellLabel->"In[19]:=", CellID->425862619] }, 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[{"BinarySerializeWithDefinitions", "[", StyleBox["expr", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->186205492], Cell[TextData[{ "serializes ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ByteArray", "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/ByteArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object along with its dependent definitions." }], "UsageDescription", CellID->421369284] }, 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[{ Cell[BoxData["BinarySerializeWithDefinitions"], "InlineFormula", FontFamily->"Source Sans Pro"], " has the following options:" }], "Notes", CellID->241874346], Cell[BoxData[GridBox[{ { TagBox[ ButtonBox[ StyleBox["Method", "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/Method", ContentPadding->False], MouseAppearanceTag["LinkHand"]], TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]], RowBox[{ "details", " ", "of", " ", "serialization", " ", "methods", " ", "to", " ", "use"}]}, { TagBox[ ButtonBox[ StyleBox["PerformanceGoal", "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/PerformanceGoal", ContentPadding->False], MouseAppearanceTag["LinkHand"]], TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]], RowBox[{ "aspects", " ", "of", " ", "performance", " ", "to", " ", "try", " ", "to", " ", "optimize"}]} }]], "TableNotes", CellID->668339502], Cell[TextData[{ "Possible settings for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PerformanceGoal", "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/PerformanceGoal", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", CellID->430793311], Cell[BoxData[GridBox[{ {"\"\\"", RowBox[{ "optimize", " ", "for", " ", "serialization", " ", "and", " ", "deserialization", " ", "speed"}]}, {Cell["\"Size\"", "TableText"], Cell[ "optimize for smallness of serialized output", "TableText"]}, { TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]], RowBox[{ "automatically", " ", "pick", " ", "serialization", " ", "strategy"}]} }]], "TableNotes", CellID->986508350], Cell[TextData[{ "Possible settings for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Method", "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/Method", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", CellID->956006532], Cell[BoxData[GridBox[{ { RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["typespec", "TI"], StyleBox["1", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["enc", "TI"], StyleBox["1", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], RowBox[{ "specify", " ", "encodings", " ", "for", " ", "particular", " ", "types"}]}, { TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]], RowBox[{ "pick", " ", "encodings", " ", "automatically", " ", "based", " ", "on", " ", "data"}]} }]], "TableNotes", CellID->716177826], Cell[TextData[{ "Possible forms for the ", Cell[BoxData[ SubscriptBox[ StyleBox["typespec", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", CellID->555145277], Cell[BoxData[GridBox[{ {"\"\\"", RowBox[{"integer", " ", "packed", " ", "arrays"}]}, {"\"\\"", RowBox[{"real", "-", RowBox[{"valued", " ", "packed", " ", "arrays"}]}]}, {"\"\\"", RowBox[{"complex", "-", RowBox[{"valued", " ", "packed", " ", "arrays"}]}]} }]], "TableNotes", CellID->565177037], Cell[TextData[{ "Possible settings for ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " include ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Integer8"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Integer16"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Integer32"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Integer64"]], "InlineFormula", FontFamily->"Source Sans Pro"], " (64-bit systems only)." }], "Notes", CellID->377232020], Cell[TextData[{ "Possible settings for ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " include ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Real32"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Real64"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->758633477], Cell[TextData[{ "Possible settings for ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " include ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Complex64"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ ButtonBox["\"\\"", BaseStyle->"Link", ButtonData->"paclet:ref/format/Complex128"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->510011983], Cell[TextData[{ "The default for the ", Cell[BoxData[ SubscriptBox[ StyleBox["enc", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " encoding specifications is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", in which case ", Cell[BoxData["BinarySerializeWithDefinitions"], "InlineFormula", FontFamily->"Source Sans Pro"], " will use a type that fits the data it is given." }], "Notes", CellID->482439829], Cell[TextData[{ Cell[BoxData["BinarySerializeWithDefinitions"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses the ", Cell[BoxData[ ButtonBox["WXF", BaseStyle->"Link", ButtonData->"paclet:ref/format/WXF"]], "InlineFormula", FontFamily->"Source Sans Pro"], " format." }], "Notes", CellID->719749662] }, 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["Serialize an expression with dependent definitions:", "Text", TaggingRules->{}, CellID->320527229], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"2", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bytes", "=", RowBox[{"BinarySerializeWithDefinitions", "[", "f", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.748378167370537*^9, 3.748378167874523*^9}}, CellLabel->"In[1]:=", CellID->447860353], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU2O2zYUx91202UP0E1vIXjXTYFuU/QAiRsH3aRAUqDoGbzxUbzySbzz CWLZ47EkOzPoJNPHD1H8lKixJErW+2Um8UgURb33/nwkxUF+evPXq/m3k8nk 4/fw16vX//z84cPrf3/7AX74/f3HP9+9f/vHr+//fvvu7YfozXdw8Bf4/vGb yYR8fkYQBEEQBGmUp6enNE33h30cx7sdfO3oBxntR1JCPxvzQrFZeKCoj2g8 sK0Q/Wb/gA0PhwMYFswb2sNIp4DTP336pEVPzGOI6UuEVMy/uIZEPBUf451S cLhf+SNqz5fbQ+hmpx2nZQtjkG8wbpIkX79+De1qpAvu7+9ZwMCHLMsul8tn pCHAmGBSMCwVaHw8HkN7G2kdyFDQke7j/fl8Dh2AtwyYF4wMyQsMHtrnSIs8 Pf3HBiwoqA4AI7MpKs6tbhgYloCXYWQSOtzGAhkExjGYPbTnkbY4HA77PXFx 6FgbC+dzRlcCcVZ1s7CZVOhAGxcwqdrFu9CeR9piT4hDR9m4iKnRQ3seaYs9 dXDoKBsXe9TUTUO8e0BNdQoYHDV1wxzIIsUhdJSNC9qNoaYGzlZGOQPuPWCe 6hboxODLzz9IP9kup5PJVDBfS+fuSKLCPNUpzOaFD9bzwjngqCWqqv+AppyO AufeHe5CR9m4uANR3d3VdhXSI8ocdUcJHWXj4oCaGjzlmjqipjqG9WO1XYX0 iFJNHVFTXXNETQ2eMkcdiaaOoaNsXBxJR2bf74eaGggVmgJCR9m4YDav7Sqk R6Cm+gVqavigpvoFamr4oKb6BWpq+KCm+gVqavigpvrFFZpazycG0+l8ub5+ m+B2vSR7pJpWNN0Yx9p5S53FbWlqNQP/zFahm3EFDWuqoZBlVTcd+IWkbktU HWlqs4jAcNFioxybRZEwajRbrDb6VSsoIpfQC+igptTg3K7nPGyVzdG1aUVT TFLTZTuCDUg3mqKxrmkKZBbNQEiEXF2KHNhFoKQFKzExStjvc6WmaGMq1dsW zWrqWSSD60K2jbDPJbVtKQuGowtNsSRl5CkNqge5xGqhZS6jhL2O6zRFG3tD mtIP5wMue+Li40d6Uh6aOTArIZlRGtFN52tHiwtJlUhWLkTndM56/UuyAku5 mXzaaVTnYyX7o7WsKRqkkGwqQ7VaEJUlUFOuPCX53x0RaiTV15QYaVYpT9WA W1SilK0tSrX+Jd3zTuX+vlay0LqmSJhDiHqEapOa2hQTMRhhinTnyHT88GKm W1kuullJ0z+pzvysNPWLjNPeNKop6I+nZrTk4WJU5h4m+ozOtuJeoscX0znX rfKwdN1ZEYjIOFvLU/mXJMqfL5XV0G0uM1km9a0klWhTU1xRPt1/taR865hB dEfRbGGZqFlFld95s8knbhGf5wll8DUWpdKiGvUsqeHFia75db/p0hj82MOl JFg8NOUqYj1uJE/HvV2L7Wby9S9Z1nwPUXnMT9vUlKyBcj1ALx/RuK7MYx6p Ti/EDnJVWSpRxWxrKC9hXOT1bPVoZS19qoeULTDKoq9aU6yE7WLLGcut7KFa kb+k4/4l7dievq6VpDItaUqNNGvcraTBVkVM2hbjTeyy23DB2hui5UdLQ0Wy NW7FLuuVprS19Lz7rgzW0mCp1FTl3MsyTlNvZQ1+3yxTpyQtvVbXKARVbfK6 TVua0qPbGnd0sEUHU2wu4piGkJmMh6A+O8ePSmO0luiXmA1dGdMsvSPgC5u2 V2x1aX7dzz6l1sNFXTPwrNq8iY+mHHFZkima1VTJu3H9+npWkq5qQVNmbFf3 5RtrkhF68opWH02pTTFykENTEZ9gaRR9xqpYFLlGWs1ryjX8UYpXBIuvpnxC ukp+lhFhk5rKFaWtsbuur2Mlqa7GNSXeR9lxz6r0cPYb8EmUaco6vDOHdU5N +TRiI6T10gX97jQll68KFt/5lMd72+oVenPloUFNVazmmdfXsJJUV/OaIoM5 HT46ms3cvbgWzi+YptjD3zgqarbMlMy7KtMxD+qWV2hBU85wF2tdLFhK4tFr /djIMrVrMhbfutKUWPS3XO9vJaktneyh1UN1szB272mhb10ZqIBPfcxRp20l j72QMgabpiJ43tVUslksxFqhfW3+JTS8RrFdut4Q8RrpuWllsIgRk7kwbxRR tiRs6XLAXNvFUT5vK5rSvKaMt2jypouy19M+ViouCKQp7ZUOy2NGATPhzUq2 0jJZRuINk6VeuaQ19PMFh8Wq2ByVj2aLzYey8KhA+SutBXv1GwUb+9lwXub/ yxb2IZt13aOkAVX5Ts92Lcyn7I2czufOlwE1rCTKB9GUti+BxaT5VsmKO17F 29tF5YqB8tZKb2t+taxxdY+8vERpPMkVq3/NasrYx+a6yCdYLAvQRghu6X4/ YyddXnnFRjlDVO2spSt7EnMTuV+wPdey0nN3muodPf21kCs09RLqvdYZKzWt NFZNvWS21gWdasp3k8G4qW2lcWoq8ObzEjrTVFO/rnjbvMhK49IUWW3MVxH6 qKj2NaVP0TFH2bjOSmPTVL6JqJeC+tylpkp+X3D0XGelcWmq/3S8RoG0AGqq X6Cmhk+Zo+5RU51zT4x+X9tVSI8o1RQldJSNC2pyzFODpnTsh5rqHNaP1XYV 0iPKHHUC755QU51yfzqhpgZOuaZOmKc65kSp7SqkR5RqCvrM0yl0lI0L1NTw KdVUQvwbOsrGBRg8QU0Nm3JNgXuT0FE2LkBRqKmBQxw1X65zlP+qCNwLhI6y cUHyVJJI/tkK35DfXkJNDQDyi2YSis+SBDXVNczmkn9U9+AOvYEDQ780SUNH 2bhIwOJpGtrzSFuk6TlNksvlEjrQxgKYGpJUmmWhPY+0xcPDQ5om5+wcOtbG wvl8hiQFZg/teaQtvnz5QrrNNMVU1QFgZDB1ckrA7KE9j7QI9JlZmqKs2oYK KqNJ6jG0z5HWgQFJlpI/8AGV1ThgUjLky0BQGfwY2ttIR4CvoQvNqLQy+ol8 yNg/5Gd6gn2T3paeyeFXZewzP5SySwf+xZ+JW0I8HTdUxs3BjcWfurhEXEGP JjiNGhswyH98eLzQSXQRJkwwPKhyLWUFQlB5jAnt3Q4pF1eW9xTyufzvVAiv 6HzYocsle3h8xDkUgiAIcsP8D1YzkB0= "], {{0, 35.}, {142., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{142., 35.}, PlotRange->{{0, 142.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.748378180147176*^9, 3.7483788747892303`*^9, 3.748379021823014*^9, 3.748380200767225*^9, 3.785786272287351*^9, 3.785786393912706*^9}, CellLabel->"Out[3]=", CellID->881532059] }, Open ]], Cell["Definitions are restored when deserialized:", "Text", TaggingRules->{}, CellID->198847942], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinaryDeserialize", "[", "bytes", "]"}], "[", "5", "]"}]}], "Input",\ TaggingRules->{}, CellLabel->"In[4]:=", CellID->858566163], Cell[BoxData["11"], "Output", TaggingRules->{}, CellChangeTimes->{3.7483781883299413`*^9, 3.7483788789981327`*^9, 3.748379024082946*^9, 3.7483802051660976`*^9, 3.7857864000895224`*^9}, CellLabel->"Out[5]=", CellID->854246530] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Generalizations and Extensions", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.761527817142317*^9, 3.761527817722334*^9}}, CellID->930189548], Cell["\<\ The serialized expression is an evaluation that restores definitions before \ returning the output:\ \>", "Text", TaggingRules->{}, CellID->74761444], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"2", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bytes", "=", RowBox[{"BinarySerializeWithDefinitions", "[", "f", "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->827187164], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryDeserialize", "[", RowBox[{"bytes", ",", "HoldForm"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[5]:=", CellID->767515071], Cell[BoxData[ TagBox[ RowBox[{ RowBox[{ RowBox[{"Language`ExtendedFullDefinition", "[", "]"}], "=", RowBox[{"Language`DefinitionList", "[", RowBox[{ RowBox[{ TagBox["f", HoldForm], "\[Rule]", RowBox[{"{", RowBox[{"DownValues", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"f", "[", "x_", "]"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{ TagBox["g", HoldForm], "\[Rule]", RowBox[{"{", RowBox[{"DownValues", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"g", "[", "x_", "]"}], "]"}], "\[RuleDelayed]", RowBox[{"2", " ", "x"}]}], "}"}]}], "}"}]}]}], "]"}]}], ";", "f"}], HoldForm]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483802166907663`*^9, 3.7857864126581297`*^9}, CellLabel->"Out[5]=", CellID->415067106] }, Open ]], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["BinarySerialize", "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/BinarySerialize", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " by itself does not preserve definitions:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.785786419699933*^9, 3.785786427242711*^9}}, CellID->460366428], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "=", RowBox[{"BinarySerialize", "[", RowBox[{"Unevaluated", "[", RowBox[{"f", "[", "5", "]"}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[6]:=", CellID->651163392], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU1y2zYUx9V202WnN+gtNNp105lu0+kBEjXKdJPOJJ3p9Aza6Cha6STa 6QQxJcsiKdmeOkkfAAIEiA+CFkmQ8PvFTmQSAMn33h/AA+HJT2/+erX4djKZ fPwe/nr1+p+fP3x4/e9vP8APv7//+Oe792//+PX932/fvf0wffMdHPwFvn/8 ZjIhn78iCIIgCIJoPD09ZVm2P+yTJLm5ga8b+kGm8iMpUT2bFIUSvfBgUR9C eyRTIfrN/gErHQ4HMB0YMLQPkV4Bp3/69KkSPUkRQ0xBIqSS4qtQiYin8mNy oxQc8hd/iMoT8CcWyripHKdly8cl32C+NE2/fPkS2plIH9zd3bGAgQ95nl8u l3vEGzAXGA1MRyWYHI/H0P5EOgdGGegq98n+fD6HDsBxAwYEM8IABCYN7VWk Q56e/mOTDpRMK4AZWTKIOU7EwNQCvAyzi9DhFg9kqpYkYNjQvkW64nA47PfE xaFjLR7O55yuqmF2Ey0sowkdaLEByc1NchPat0hX7AlJ6CiLjYSaNbRvka7Y UweHjrLY2KNqooZ494CqaRkwKaomYg5kOeAQOspig3ZFqJqRs5NRzoB7DzjW tA10RPDl5wFkmOxWs8lkJlhspHO3ZLDBsaZlmFVLK28WpfnBFSvUzfAB1Vgd Bc69PdyGjrLYuAXZ3N42dgYyIFyOuqWEjrLYOKBqRo9bNUdUTeuwvqixM5AB 4VTNEVXTPkdUzehxOepIVHMMHWWxcSSdkXkfGqpmJNSoBggdZbHBrNrYGciA QNX0Dapm/KBq+gZVM35QNX2Dqhk/qJq+QdWMH1RN31yhms1iojGbLVab67ev 7TYrsrOnbc3SDVvsPmPqDkalmvUczD9fh76N62hZNS0FJWu67dAuRROXbHpR zXY9n1qjnZycctNOp8utvR1UjRZ+u82iCExl421jOlENE81s1Y0kA9Kxarbr 5byQhDHa1/TsdDpfroHlfD51iaIN1ZAbckqza9pVzVfRoV8XlF0ENhfNrqOR LBzdqWa7LOQyZWOJHu2sRIMQbkE19JpxqaZ6mE+LzINPMcujJ+UJlAW9ETK6 SfOu2WJjueNSNA5RyoVobmVt178kK7CSb7NI/7TmfKxkfrTuVEOGkC1Xhxbt zTWAqnGMNZKH7T5XY6W5asR8sE5bapTbZSNKme5Fada/pD3/U67vayUDfeQ1 ZtUQCTQMX6GarZj3kdndeiuf19ssDi/nVSPKRdX0qmyTny2vqFyyOa2qBvrU mR4PPCC0xuyTOZ851E5cS/TaIq2yXYoHnu3KigTEqLEzPJV/SaLtxUpZWdxx IclCaG4lqUQY1Txn3GB1IPnhmdCyiHTejlE2/ErbLatBREHTqLWI/WKuqDRa NqOeJS1cM1i1v4Y2W2lTFHNAOMLBQzW2Isbj2gBoubZtaVofQP1Lum7fQzYe eWIo1fCZ0nYt9eFsQmdnzUYLNWbZwaJ1g2xUeZpmaEUJrVJRrOVJXScrz7Nq 0Jhc74qvetWwEqbKhjOGS5mDsWYMko77lzRjevqmVpLKBFTNdCr38JOJVkzF PANTmtdCvDKmGSRgnCpK1YammsrKM++Ca8PRGQ61qqnNgQyzKfVSxvD2HSma lKSlN+pqgKDunrwuE0o19mHDEZ+WWZ1SrRLj1Sq6BNZauiOQBxuPodCP9tfQ zMlrNSDU7Nyzaf0iPqqxRJ6jt29XNY63wdX6zawk1Qo31hhXCByy8VGNqgtt HLGoZlokOhVEMWkiea142leNbZKiFK8JB1/V+ARtncAM87Y2VcM1U1mRttVv YiWpraB5jaHk81RjnITpky+ranyEUGZhVyx/96cauXxdOPjmNR5vKuvXs/Uc v0XV1KyM6fUbWElqK8waGj1oHGvsEWkOcO2oUIYhY9FVY3mb1OxpGtCBaqwB LdaNWDg4Is5rtVUbKRq3pC1k9aUasURuqO9vJeleAr2v0Y/WxmORgigljBsM mFyWhjTfcI0ibdFUvRTrbuaV7GfS8mrAbmV7Y1K0SM/NasNBzGv0ZWytiPKa fUcT70VlZ4I7fypvpX3VaG+V5I0ErheyPlYqKwRSjfoeZFmsoTmjkY0qU/HG hb+usbzYdFyUJjJLnqDwzT/QqtSs/BJI7JRjt+ncLVdDNyvPtmr+W/XNEyvj CoPjBurGrOqI1UFeY77J2WJhXTpvYCVRPphq7pUs2yPNFu8rl7W5ufIWp3o7 vLakNuXlv/r2X9k1cOXGgPu2VaPtr7JV8gkHw3KtFmQ7ug9N2+HFG6/ZwKXJ ppuVZ2WvHDeR/YXT10ZW+tqPakIw3F8quEI1z6HZa46XSkMrRaqaZ2xy64te VeP74vxl09hKUaom/MZmB72ppq1fWIubZ1kpKtVAxrLk+fpANdO9aqrJMI4z Jq6zUmSq4VtfhiqZ+z5V4/iNsRfPdVaKSjWjoOfVAKQDUDV9g6oZPy5H3aFq OuCOmPWusTOQAeFUDSV0lMUGNSqONaPGOUND1XQA64saOwMZEC5HncC7J1RN y9ydTqiakeNWzQnHmtY5URo7AxkQTtVAr3g6hY6y2EDVjB+nalLi39BRFhtg 0hRVM27cqgH3pqGjLDZAM6iakUMctVhtOMp/hALuBUJHWWyQsSZNJQ/shPXJ b7egakYA+UUkCcVnaYqqaR9mVckDqgNw59jIgQlalmahoyw2UrBploX2LdIV WXbO0vRyuYQOtHgAY8JAk+V5aN8iXfHw8JBl6Tk/h461eDifzzDQgGFD+xbp is+fP5OOMctwuGkFMCMYMz2lYNjQvkU6BHrFPMtQONdDJZPTgeYxtFeRzoFJ RZ6RP/ABtfMMwGhkYpaDZHL4MbQ/kZ4AX0MnmVPx5PQT+ZCzf8jP9AT7Jv0p PcMpauXsc3EoY1UH/1XcdfGs4v4LU+TFAxfmKJ6rrCJq0KMppjMvDZiKPz48 XmgyW4YJk0QRVFwteYmQDI8xoa4xkRXyybna5XP870xIq+xA2KHLJX94fMRc BkEQBBk4/wMIFT/v "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483802216926217`*^9, 3.785786439373348*^9}, CellLabel->"Out[6]=", CellID->423611899] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "=", RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"Unevaluated", "[", RowBox[{"f", "[", "5", "]"}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->370168854], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc2O2zYQx9320mMfoJe+heFbLwV6TdEHSNw46CUFkgJFn8EXP4pPfhLf /ASx/LGWZGcX3WQ7JCWKFCmKtEVRsuYXb+KVhpI8M3+RHNHIT2/+ejX7djQa ffwe/nr1+p+fP3x4/e9vP8Avv7//+Oe792//+PX932/fvf0wfvMdbPwFfn78 ZjQi718QBEEQBEEa5fn5OUmS3X4XRdF2C68tfSNS+pVYlPdGmVGkGvcU+SMq H1hnRH/YP+DD/X4PjgX3ho4w0ioQ9E+fPpWyJ8pyiOmLp1SUvTIN8Xwq3kZb ybC/r/wjlj5f7g+um21pO7UtnEF+wLlxHH/9+jV0qJE2eHh4YAkDb9I0vVwu n5GGAGeCS8GxVKDR8XgMHW3EO9BDwY10F+3O53PoBLxnwL3gZOi8wOGhY454 5Pn5PzZgQUG1ADiZTVFxbnXHwLAEogwjk9DpNhTIIDCKwO2hI4/4Yr/f73Yk xKFzbSiczymtBOKs6m5hM6nQiTYsYFK1jbahI4/4YkeIQmfZsIio00NHHvHF jgY4dJYNix1q6q4h0d2jploFHI6aumP2pEixD51lw4LexlBTPWcjIu2B8O6x n2oXuInByy4+SDfZLCaj0YQzWwn7DqSjwn6qVZjPixisZkVwIFALVFX3AU1V BgqCe9gfQmfZsDiAqA4H51AhHcIUqAMldJYNiz1qqveYNXVETbUMu485hwrp EEZNHVFTbXNETfUeU6CORFPH0Fk2LI7kRqZf74ea6gk1mgJCZ9mwYD53DhXS IVBT3QI11X9QU90CNdV/UFPdAjXVf1BT3QI11X9QU93iBk2tZiOFyWS2WN2+ THCzWpA1Uk0rmi6MY9d5TzeL+9LUcgrxmS5DX8YNNKyphlKWHbrpxC8kdV+i 8qip9XysBFfK91oDwXQ5HVuIBTUlJ+dmNcvSVloc7YwXTTFJTRZ+BBsQj5qi CT4eT0XmaxcDwno5n46Neisf8UZNkfONlctoi2Y19cI7g9tS1kfa55LaeOoF w+FZU8bkrDPg/dgYsrwtTdGT3pGmypvzAZe+48rGj3SnODSrQD0I6RmFEd1k tqq44kJSBsmKRnROV3lce0tmsBAvM5t2Koez8ZL+o3VZU+PpfLnO1YWaur6f EuJfnRFyJrlrio8065Qna6BaVNxKdy3SYe0tq+ed0vltvaTBn6Zqk9Mhe501 teYDRjK4XK7F/eops83zadnLoimZ0vH5n3DMfG9xRumUjjSqKbgfT9RsydNF OVj1MNFmdLbh5+J3fD6dqzpVnpZVZ5YEwnucjeZT2VsS5c8WUjV0k8tMlIm7 lwQLn5oyyaDWoGRqrakpZDft4ZZ0bjQSmmpFlStxvWYtiGRIYyA3ZBcgH7Q4 jLyXHOHqjq75ut9koQx+9OliSBYLTVWZaLcrnWfFuauK7Wrna29punwLUVnM T/1paind9fNRnItBgZOmyqJhG7PGGlHJA0Zd75lZqPUVZtbkcNFLLX1STild Ypiyr15TzELXWLNHcyp9qtb0X8J2e0s9uk/v6iXBxls/NWV3e7hxayt3tQai qYOmlOyWWisCKM3BNALRzvuEZp3SVKmWnt++a5PVmCy1mqqde2nGafKptMlv 28u4WFLrlVyj4NRdk9VpWnvmu5a6C0eDG2sUktRKCig3UQWyVKZZHLGjYiPG W4XVfN1PP6Uup4tcM7A8tHoSG01V5KWhp2hWU4Zn4+X2bl4SWrW1jqJWGNUG TWpKVo3SB1VoapxNsEpwM/pQOhPaLdJqXlNVwx/JvCZZbDVlk9J18tOMCJvU VK6oUo29qr2Ll4RjtbY2qbbSXWnQhKa0wzt1WFepKav6JJfWtQX99jQl2tcl i+18yuK5bX2FXq08NKipmmqe2t7BS8KxWu2nriuu3zafUrbyE2lmSupF2J78 WnsJD5qqTHde62LJYshHq/qx0ss4H0kpvrWlKV7017S395JwLS3Np+Zy/dnJ wLHup1lVqKnksQdS5RNqTpVNl0qnX8/nvFaor81fQ8M1is2i6glRdkS6b1Kb LHzEpBbmFRNpScKGlgNmpVUc5nlbcSnNa0p5iiYuujA9nrbxUtHAj6YgscbT 6Tx/YsMm8aUhldlAwK2fGvMnTNXHzQsP6jHzgsOcXNdyLW4jRxUOKz70yh5O sadT9JmwpZ9K+KmlVzWz/7KFfsimrXsYLqCuvyv3dh7mU/qLnMxmlQ8DHLzE 7f1oiiwsKq5Z8/Sp1kC21eZ/Gf70dl5bMTBWGfPWghalhRLySglphcUtiyg+ N60pZR1bVSObZNEUoJUU3ND1fspKuvzgNQvlFFH5qaVLaxJzF1U/YHtx8tJL uzWKTtHRr4XcoKlrcHusM1QcvTRUTdUu8A1Eq5qyXWQwbJy9NExNBV58bqA1 TTX1dcX75iovDUtTMFOa51WELirKv6bKU3Tso3Tc5qWhaSpfRNRJQX1uU1OG 7wsOntu8NCxNdZ+WaxSIB1BT3QI11X9MgXpATbXOA3H6g3OokA5h1BQldJYN C+py7Kd6jXHsh5pqHXYfcw4V0iFMgTpBdE+oqVZ5OJ1QUz3HrKkT9lMtc6I4 hwrpEEZNwT3zdAqdZcMCNdV/jJqKSXxDZ9mwAIfHqKl+Y9YUhDcOnWXDAhSF muo5JFCzxSpH+q+KILxA6CwbFqSfimMhPhseG/LtJdRUDyBfNBOQYhbHqKm2 YT4X4iOHB1fo9RwY+iVxEjrLhkUMHk+S0JFHfJEk5ySOL5dL6EQbCuBq6KSS NA0decQXj4+PSRKf03PoXBsK5/MZOilwe+jII7748uULuW0mCXZVLQBOBlfH pxjcHjryiEfgnpkmCcrKN1RQKe2knkLHHPEODEjShPyBN6isxgGXkiFfCoJK 4dfQ0UZaAmINt9CUSiul78iblP1Dfqc72A+529I9OVmrlL3PNiWsac9f2WfK PME/XeaoNHNH5qzsUxdNeAu6NcZp1NCAQf7T49OFTqKLNGGCyZIq11JawAWV 5xjX3v2QZOJK8zuFuC//O+HCK24+bNPlkj4+PeEcCkEQBLlj/gfhIb6q "], {{0, 35.}, {142., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{142., 35.}, PlotRange->{{0, 142.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.748380221701621*^9, 3.7857864412512884`*^9}, CellLabel->"Out[7]=", CellID->928848139] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[8]:=", CellID->410646500], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryDeserialize", "[", "b1", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[9]:=", CellID->728711374], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483802254525137`*^9, 3.785786443826211*^9}, CellLabel->"Out[9]=", CellID->986452900] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryDeserialize", "[", "b2", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[10]:=", CellID->53892603], Cell[BoxData["11"], "Output", TaggingRules->{}, CellChangeTimes->{3.748380226856474*^9, 3.785786445561158*^9}, CellLabel->"Out[10]=", CellID->120533457] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell["PerformanceGoal", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7483782373855267`*^9, 3.7483782407774296`*^9}}, CellID->424208364], Cell[TextData[{ "Serialize a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dataset", "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/Dataset", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7857864511999893`*^9, 3.78578645558986*^9}}, CellID->906460398], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bin", "=", RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7483802957514906`*^9}, CellLabel->"In[1]:=", CellID->392460480], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnT1vG8kBQIWkSZm/kD591Aap0l6QH3CnOIcAhgPcBQjSuVKj+oo0gaoA hhu1KvwTDCuAegtGCtoUKYqkZBux5Mx+cna+l9zdWe6+d/SZ3J3dGc7OvJmd Ga5/9d1fv/nzzw4ODn78hfjfN9/+/bc//PDtP/7wS/Hhj89+/Mv3z5786ffP /vbk+yc/HH73c7HxmfhzIMIn778CAAAAAADAXvHly5fVanU9u55Opx8+iNeH 9I2M8jEJoe6d5oGmemAA2JpqVdMqnilQ+if7S9Tl2WwmKrio5rFNA71DFIz3 798rJWyal7OsLSiL3TR/5b4vy9zm7fRDJSAvXrx2eU1lt083bz/kPbBp7vgP yvY07LTSHIhKvlwuHx8fYysH+sJiscgKlXizXq/v7+8/AsCAEJVaVG1RwdPG ZHpzcxPbOtALRM9fdAyup9d3d3exCykAtIuo5qKyi5sCUfFjuwci8+XL/7Kb ReQPMBJEZc+m9pgLGDnillCUBHFXGLtIAkB3JANB06mo/rENBDGZzWbX10kx iF0eAaA77u7W6YogZgFGTTbyH7swAkDXTK+TqeDYBoKYXCdMY5dEAOiaaVr5 YxsIYnKdFoLYJREAuuYa/4+epATM8D/A6BAVH/+PnFkyATyLXRIBoGvSrh/+ HxwTGU9YUQRm9P8Bxofo+IlXcy6BPjA5P3769Ljk9MIZep7cAND/BxgdWd13 2eHidCMSIZVzWoD+I/xf40KJAjCfzWOXRADomrloAObzVrQC0ah3oeYpsUsi AHTNDP8PkLr+v8H/ACMk6/u1ohWIRk3/3+B/gDFyg/8HSL0LdZP4/yZ2SQSA rrlJOn+hz//B/3tCbf8LYpdEAOiarO63ohWIBv4HAD/4f4jgfwDwg/+HCP4H AD/4f4jgfwDwg/+HCP4HAD+N+v/i9KnG8fHp+cXujw2aXJwnz6FouvVJH5ST pXNIDRv+BwA/rfu/Ib1mp25a0hv9D6sBiOT/y7Ojw4OjM9uenMOjs8uAExXh DwPCnx1lQU+cAfNQcgLzTRKHR+6TAAyIFvxfCTK5OM0V63kIpYdW/J/p//i8 ncYlIp37//LspBC87v/Lk8PM4ydnRTCXqbPgB2nwkPAfNxp3BisCaf4XKSuw fgeAIdK2/7+Wnezd9NqGogv9T1q6u4hHl/7PdZ0IO+2zq+5M98tizg6wKjZT cnj48hi3ubNkJCnU/F85Jm+suAmAMdCB/9XNxaCL+YYgH0NKd8rDMxb0kyR3 HNKozvHphSXFG/07mhc5UDoHYT1veMgswLmczHyaRDtdSC6Zv1qX/k+66pcW UeuGNW+TTqfq17BJITvhkdpymEO4/R8QG8BQ6K7/L7nKbq+q9er7vxxt8rUS VV/bG4AylCktldOGh7TPk1TiD80lA3HG/03+N9rU2aPXlexqLiohrOoudmhn MpzaHxvAUGjZ/6Kfe6ybrVCbdjL7UFHICM2kjKvsSZfTD7aoCoXaYq7IvOzJ TwzfKjxk0kqdnldWRU2KJkFWev1ckkL0xP9mm2pjPKbTZHsvnWGVWCwNS9ku +Px/eZaGxP4wErpY/3N8rg2AmNXmEFuA/21BjNu1mxJL3LYFovpNTXhIV/ID GoCA+ZTe+N/SI/eNsZRzCiHLej7KGncPN5n9X13/c+JdbQQwFDpa/6n9E7Qm iblM6fd/FsJ0sGGPISqzVj33BdL28JBmTN++bi5JYfbX//JyoWT9T8B8rOR1 83RzvsHsf3n9T770iBsAGAXtr/8susVesTrF5vW/d67AMFZTjcoo6tDee52Q aeiL6vxviS9NQdHssf93mP89M6WicnDI+D8LgGA8dLH+xzxdqaqtOh8beGo9 khD/Wxzq6IE363/H7+TU4+vlknRUj/xvGf83drId8wWOTnl1v/zJvsd+4pAZ B4Ah0IX/bUMgleAesYX6P0S/vqbCMCrUpP8L+yvrQm3H18kl6Vz98L/D50bB bjlfoE7jFsHVFIX5nxWgMBZi+l8O7xNb6Ph/gPb8q0r1Wd0G/e9Z1aMfXyOX pHP1xP911/830f8vDX6mipz+P4BMJ/63qrlc85KJzeHOoDWPpgGUemfSFuF0 5f9yoarh+PBcktLSF/9bfs9r1atBvtmzg1xzspbfDGg/CGb8H0Cm9fnfyblt BX5+xnTfsVds5aiJvphUC1L5Ke0knWo9VX597J5n2CSlef9rv1KQfyzs+qla SC5tDuiN/wsXHx6dlM//qTQHqvGLh7kdiQNOikfyuH1s1bhvNMq8/gf7w0jo av2n7bDwBzCbh22Mc8qOBPjuI9S7iBbG/82JPD49tS5grZFLZfge+T/7XVX5 PE/lcZ6mH3hdnmye/3mQP13ChWkYJ0mN6nH/+v/DgNgAhkLb/teea2M7KMRX hkWTmi4n6fN/tCfrFCf3PDhHawDaWf9ZeUZRkUX2HzB8rZVLX2P5HwD2i0b9 vw31ls2PlZq5hP8BwE9k/4f+OHbc1M4l/A8AfiL6v6l/GmbYbJVL+B8A/HTv f3X6k76/id1yCf8DgJ+Y/nf82yyjZ7dcwv8A4Cf6/C+0AP4HAD/4f4jUu1AL /A8wShZJ5V+0ohWIRk3/p8QuiQDQNWnVp/8/MGqO/+B/gFGS9f1a0QpEo96F uhUl4Bb/A4yOxe0t/h8cdf1/S/8fYITcprSiFYhGTf+LPsDtbeySCABdg/+H SE3/L5MyELskAkDXiIq/xP9Do67/RRFYxi6JANA1wv74f3AkF+r0/KJg4r5m oggIYpdEAOiapP+/XDpdMik9kjx9H//vAck/lCDhuWbLJf4HGCNZ3Xe6pKoS ntgzOJbL29VyFbskAkDXLEXNX61iGwhislrdrZbL+/v72IURALpDVHnR+V+t 17ENBDH59OnTarW8W9/FLo8A0B13d3ei8y+qf2wDQUweHh6SbsBqxS0AwEgQ lV1U+eXtUlT/2AaCyIg+wHq1ogkAGAOp/Ndp5/9zbPdALxA3g+tV8p94QysA MEhE1U6GfdZC/mvxMbZ1oEeI8iC6BOu0GVin75I36+yv5HO6I/uT9B7SPQX5 Uevsfb5plR3KixevnV953cprZFnLsg/Z1lURdJ3Xvs0h5RHp1iXD/qDz8PDw +dPn+3RiaFOUMrnnBa/w/npDKf+iHGaldQ0AzbLKG4J10buS9xX/X5WNRFER 82q7vr9ff/r8mTF/KHl8fJzNZldXV28BYDSIKi8qvqj+sQ0EMRFlIHZJBIA4 zOfz2AaCmGQ9/8VicQcAo0FU+bfpXUBsA0FMsm5A7MIIAF2T1f3YBoKY4H+A cYL/Af8DjBP8D/gfYJzgf8D/AOME/0Mt/y8Wi5cvX/57Z16/ft1qwQYAL/gf ovhf0GrBBgAv+B+2G//ZuhsvDsH/AH0A/8Mu/t+iyIk7CPwP0AfwP+wy/rNd qcP/AH0A/0Oz/l+8fy9e7pPg//3l3aufnj9/8abtKH569a7NKCAD/0OD4z/C /P/63aF4/fc/LkNs7//UPgpDUUX63Xr/Zfrtf7V89D47I4P/oXH///M3v3Y3 Abv5X6nTb16kNT1YSUn4dv21ZdQR/V8jT/rr/7QgVI5780L6GPG69xf8D82O /wjte5uARv2foFd95xkieSBi1G7qJKyv/velq7eZHxX8D43P/3qbgMb9n7cA IdUb/+sMwf++AtDbzI8K/oc21n+6m4AW/K/U/+o4cLE5HypSt5sDm6MQkUvB 9aRUo9icyxK16fzBcbWbMDlXpNMVHrXs9kUXEkC5yFnIdINriMxxD+jIfEcy 8lyVondkiyHGXa6IHFr90k22ZPgfWlr/72gC2vB/pVZoA7+bj3rtcQSuklfY crfa5VQNpH72VVzV/664Wk5YxTmV3YXSlBytE50vgHyRq7vcUySFUI0BDJnv SYZhYsmeLeakbHdFDAVWTZet+5DtCL4Zxv/g9385q7v1Sxwun7A1/9u7f1WF BErYsEvvmck3F+qB1chq+98aV8sJ0+KSTqHZ3pRyZ3TeAOVF3mJGfNPjVo5z fSd7OnX7+04hHbv1FansFx9evBI75YNdHYHswMAxNPwPA/K/Vlv1W3WzRy2B q+jVVtpidoHeda7hf2tcLSfMcjuQbTF+CWmjNzp/erKL/MbU0ASi36Ro6fYn wzgOY8sWhR2viOR48TYfhNrkv0vsm5AhC57wPwxj/EcfPKncfNv97wpsj0Lb YjlOroR98r8rYaYfWTzfzf+Kltzp2cS/0yi3YejI63/FvLr/bdliOM0uV6R8 n+l/87e3X19vFAj/wxDmf+WRAvdtuq+v210323n+fvX/bQcaNjbW/3/nmNAN w5n5TfT/7TR1RQrtFw2AR/+b3Yz/QCD7v/6zOk5sHM0O9b9vhYndyc2P/zfj /ybG/9UjXWPrDY7/68Potah0gLcb/68EqNEA7HpF8jx4Vepf3+D4usz/Qjj7 /fuv7K68sq1S/NWVGGrlcweu4HGylhKtGjoUru5u0P/bJEwNsVkjVYyCKCtI 1dbDFZ0vgHyRlbD2Me1kmtS7ukfXuSMZhgy3Z4uemt2uSJYJgjKMtg6oCfA/ 7NvzHxSsw0HlbrUy5pavjGhbA0sEONk3j6xEbT9/k/7fLmHllurmvJ9aOZ/+ Zbzz6a4ASiMvic8xpVlNrjFWQ+a7kmHOcEu2GELteEW0Gy3jyqsdwf+wT89/ gzHzTloGCU2A/6Hx8X8v+B+2QOi/2dEPwP+A/wHGCf6Hltb/t3QsADQF/odd /F/3338Xtw/8++8APQH/wy7jP7vQasEGAC/4H6L4v+6NAwA0Dv6H7cZ/AGDf wf+A/wHGCf4H/A8wTvA/XF1diTKwWCxiF0YA6A5R5UXFF9U/toEgJrPZ7C0A jJL5fB7bQBCTx8dH0QRkdwEAMBJElRcVX1T/2AYCAAAAAIB94v9e2RQi "], {{0, 55.}, {256., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{256., 55.}, PlotRange->{{0, 256.}, {0, 55.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483802335372753`*^9, 3.748380315369935*^9, 3.7857864601207232`*^9, 3.785786513602104*^9}, CellLabel->"Out[1]=", CellID->493008231] }, Open ]], Cell[TextData[{ "Serialize the same ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dataset", "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/Dataset", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PerformanceGoal", "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/PerformanceGoal", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " set to ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.78578646464959*^9, 3.7857864970606146`*^9}}, CellID->150310188], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"compressed", "=", RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", " ", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7483803201657906`*^9}, CellLabel->"In[2]:=", CellID->796441481], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU2O2zYUx91202XRG/QWgnfdFOg2RQ6QuHHQTQokBYqewRsfxSufxDuf IJY/JdmdQSeZPpGURIqfskXR0rxf7BlboijpvffnxxMH+entn6+m345Go0/f w49Xb/7++ePHN//89gN8ef3h0x/vP7z7/dcPf717/+5j9PY72PgLvH/8ZjTK Pz8jCIIgCIJIPD09pWm63W3jON5s4LUhH3hqX/MS9b0xKxTLhe8W8SakW1IV Im/6C6y02+3AdGDA0D5EOgWc/vnz51r0xCyGqILKkIrZi6mkjKfqY7wRCt7z q7iJ2h0Ud1wqY1PbTspWt5u/wXxJknz9+jW0M5EuOB6PNGDgQ5Zll8vlX8QZ MBcYDUxHJBgfDofQ/kS8A70MNJXbeHs+n0MHYL8BA4IZoQMCk4b2KuKRp6f/ 6KADJdMKYEY6GcQ5zoCBoQV4GUYXocNtOORDtTgGw4b2LeKL3W633eYuDh1r w+F8zkhWDWc3g4XOaEIH2tCAyc0m3oT2LeKLbU4cOsqGRkzMGtq3iC+2xMGh o2xobFE1gyb37g5V0zJgUlTNgNnl6YBd6CgbGqQpQtX0nDWPsAfcu8O+pm2g IYKXmweQ+2Q9H49G45Lpktu3zzsb7Gtahlq1svJyWpkfXDFH3dw/oBqto8C5 +90+dJQNjT3IZr9v7AzkjjA5ak8IHWVDY4eq6T1m1RxQNa1D26LGzkDuCKNq Dqia9jmganqPyVGHXDWH0FE2NA55Y6Reh4aq6QkW1QCho2xoUKs2dgZyR6Bq ugZV039QNV2Dquk/qJquQdX0H1RN16Bq+g+qpmtuUM1yOpIYj6fz5e3L19bL eb6yp23NkgVb9DqH1By8aNWsZhH4c7Lo9KQtq6aloKRVtx3alWiGJRuvqlkt JlHEjBZFk8XKVghKzbSFrOG9mnE1jaLJTH1C/gCzahaTenBCpZY6rdysGqHI ejllgSksvG2MF9VQ0YznfiQZEH+qoSFJgnexgHgmX+oxtyDbI1oISk2iegyv imOtnQKcMJrQihaFfsyHOKkmr5Thdh0W2lXNc9mg3xaUPgK7EM3aU08WDm+q oRHHqUQOUbpF07uU+4nyoiuGUtIVaE5gUY2w23bJDrSumvrmYlik7nzYKI/s 5AdQGuRK8t6NG3eNp0vNFVeiMYiSL0TmVtp63UvSAnP+Mtn0T6rOxUrqW/Oi GhJeYnTVN8kxKdfBhlnXTUBcTtBQNar7aoivvobzsN7nYqw0V005HrRpS4xy vWzKUqprEap1L6mf/wnnd7WSAr99jRBxtS35V9fw60w1bMTINikqsNZppVXV QJs6luOhCAipMv1gzmUMtS7PVbba5bRKd6oi8HRnFiRQ9hprxV25l8y1PZ0L mcV1ISReCM2txJXwOq8pUgCr+nipUfhdpRr7GWrVshGhKGzuK0yxokpS19J+ Dm08l4Yo6oAwhIODanRFlNulDlBzbl1qWu5A3UuaLt9BNg7zRL85tFmV0qp1 LMVIZ7WYVAk0bdarsWpogI80aTtVtVTWit5RILLm5ax4yTyP60Gjcr0pvuyq oSVUByv2KE6lDkZLH8Rtdy+pRnX3Ta3ElfHa10RlDk2cRlPVRBFfYiSFrViX XTV8mDuM/qpq6YH1Q6QcGssK3lEOrRyi2cPRGA5W1VjnQIrRlHgqZXi79hRN SpLSSzEbUGK7JqfThMoGsPgWS2izXq6qga5rUaSwWYCbpMOqnekSY7pswE3p gPZzaOrJaz0gxNm5Y9XySVxUo4k8Q2vfrmoMT4PrxzezEneUD9Wo5xTcVrUO dLK5al4jTaXkEtUIUllMeRf2hLaZ9lWjG6QIxS3h4Koal6C1CUwxbmtTNYVm ahlp3fFNrMTV5UE1mvwst1ldQpfXvXLpiy1NXFSrHp9pVHNr7rk71fDlbeHg Oq9xeFJpz2fLc/wWVWPJjMnHN7ASV1eQvoYGn7IdV4jDs2rKXECtbF/6Gm1A l3kjGg6GiHPKtko9ReOapERWV6opU+SK492txF2Ll3mNIrZotqyW55XXCqi0 4aCa1UxaIuY4QuNlLKbdejCvWa/nuicmrEayb2wNh3JcI6expSLCY/Y1mXhP aysTzPOn6lLaV430VIlfSGB6IOtipeoATzm0Yr4/gdl2MTtXZJ9ZDm3Gcmhq ZShVI85bxJRdsQ7NHN71ahe1a1Dn0G5bGuAp86w7zH2pvnpgpcwwGC7A1mfV eywP8xr1RY6nU23qvIGVyvI+n9fwy5lVT2PcHte4qKa2eHoUXbfmmWmdbpOe 17hUaqNd1Ujrq3QHuYSDIl0rBdmarEOTVngVlVsWcEmy8ZN5FtbKFSbSP3B6 bmSlZ8+qQRTcoJpraPaY46XS0Eqomq7pVDWuD85fNo2thKrpms5U09YfrA2b q6yEquka36qpT4axn1Fxm5VQNV3TnWoMfzH24rnNSqiaruk4G4B4AFXTNaia /mNy1BFV44FjbtZjY2cgd4RRNYTQUTY0iFGxr+k1xhEaqsYDtC1q7AzkjjA5 6gTePaFqWuZ4OqFqeo5ZNSfsa1rnRGjsDOSOMKoGWsXTKXSUDQ1UTf8xqibJ /Rs6yoYGmDRB1fQbs2rAvUnoKBsaoBlUTc/JHTWdLwuE/wgF3AuEjrKhkfc1 ScJ5YF1aP//rFlRND8j/EIlD8FmSoGrah1qV84DoAFw51nNggJYmaegoGxoJ 2DRNQ/sW8UWantMkuVwuoQNtOIAxoaNJsyy0bxFfPDw8pGlyzs6hY204nM9n 6GjAsKF9i/jiy5cvecOYptjdtAKYEYyZnBIwbGjfIh6BVjFLUxTO7RDJZKSj eQztVcQ7MKjI0vwffEDtXAEYLR+YZSCZDL6G9ifSEeBraCQzIp6MfMo/ZPRX /p3soO+8PSV7CthRGf3MNqX00Lt/satm91pePzNFxm6YmYPdV3VIeQTZmuB0 5qUBQ/HHh8cLmcxWYUIlwYKqUEtWUUqmiLFSXX0iZfLJCrXz+4qfaSmtqgGh my6X7OHxEecyCIIgyJ3zP7DJErY= "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.748380322392733*^9, {3.785786505675359*^9, 3.7857865143590965`*^9}}, CellLabel->"Out[2]=", CellID->661117599] }, Open ]], Cell["Both forms represent the same expression:", "Text", TaggingRules->{}, CellID->416193098], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BinaryDeserialize", "[", "bin", "]"}], "==", RowBox[{"BinaryDeserialize", "[", "compressed", "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->725921744], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.748380338183282*^9, {3.7857865091742535`*^9, 3.7857865152600536`*^9}}, CellLabel->"Out[3]=", CellID->184226572] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Method", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7483782443133307`*^9, 3.748378244953311*^9}}, CellID->59556078], Cell["Create a packed array of integer values:", "Text", TaggingRules->{}, CellID->197070904], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"integers", "=", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"2", "^", "14"}], ",", "3"}], "]"}]}], ";"}], " "}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7483783015216894`*^9, 3.7483783026666627`*^9}}, CellLabel->"In[1]:=", CellID->623625939], Cell[TextData[{ "By default, ", Cell[BoxData["BinarySerializeWithDefinitions"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses the smallest integer type that fits the data:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7483783392676115`*^9, 3.7483783680397635`*^9}, { 3.785786527392707*^9, 3.7857865314115853`*^9}}, CellID->380400011], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", "integers", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.748378375924554*^9}, CellLabel->"In[2]:=", CellID->962940126], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU1y2zYUx9V202WnN+gtNNp105lu0+kBEjXKdJPOJJ3p9Aza6Cha6STa 6QQxJcsiKcWeOnEfPgkSIAhaIEHC7xc7kUkQBN97fwAPhCc/vfnr1eLbyWTy 8Xv469Xrf37+8OH1v7/9AD/8/v7jn+/ev/3j1/d/v3339sP0zXdw8Bf4/vGb yYR8fkIQBEEQBNF4fHzMsmx/2CdJcnMDXzf0g0rlR1KiejbhhRK98GApP4T2 SKZC9Jv9A1Y6HA5gOjBgaB8ivQJO//TpUyV6Eh5DTEEypBL+xVUi46n4mNyU Cg75SzxE5QnEE0tl3FSO07LF45JvMF+apl+/fg3tTKQP7u7uWMDAhzzPL5fL Z8QZMBcYDUxHJZgcj8fQ/kQ6B0YZ6Cr3yf58PocOwHEDBgQzwgAEJg3tVaRD Hh//Y5MOlIwXwIwsGcQcJ2JgagFehtlF6HCLBzJVSxIwbGjfIl1xOBz2e+Li 0LEWD+dzTlfVMLuJFpbRhA602IDk5ia5Ce1bpCv2hCR0lMVGQs0a2rdIV+yp g0NHWWzsUTVRQ7x7QNV4BkyKqomYA1kOOISOstigXRGqZuTsVEpnwL0HHGt8 Ax0RfLl5ABkmu9VsMplJFhvl3C0ZbHCs8QyzamHlzaIwP7hihboZPqCaWkeB c28Pt6GjLDZuQTa3t62dgQwIm6NuKaGjLDYOqJrRY1fNEVXjHdYXtXYGMiCs qjmiavxzRNWMHpujjkQ1x9BRFhtH0hmZ96GhakZCg2qA0FEWG8yqrZ2BDAhU Td+gasYPqqZvUDXjB1XTN6ia8YOq6RtUzfhB1fTNFarZLCYas9litbl++9pu syI7e3xrlm7YYu2MqTsYlWrWczD/fB26GdfhWTWegpJV7Tu0C9HEJZteVLNd z6eGaN+ul3BcMJ0vtw31oGq08NttFjwwSxtvW9OJaphoZqtuJBmQjlWjCKMa 7VQCRCvL9VqWskvCh2rIraaN+uwQv6p5kh36dUHZRWAL0ew6GsnC0Z1qtsup GESmU5NqQC6l4KWasAa0B9XQVsWlmuphMS0yDz58lkdPqhOoGvRKyOimzLtm i01NiwvRWESpFqK5VW297iVZgZXaTJ7+adW5WMn8aN2pBgYSIgymn+ZobxQF qsYy1igervd5OVbaq0bOB5u0VY7yetnIUqa2lKp1L1mf/5Xu72olA33kNf5V sy0SIpCmHLJqRit+eDmvGlEtSnIvmWQpdYqzSgo21U63watqoE+d6fEgAkKr rH4y5zKH2sl7yV5bplV1txKBV3fnkgTkqLEzPJV7SaLtxaq0srgTQlKF0N5K SomhqKZ5GGCqmUP80mGMpkM0lkXdRtkIrW23IoFiFwOiIGthudKimvJZUsM1 g5X/NbTZSpuimAPCEg4OqqkrYjyuDYA1965bmtYHUPeStuY7yMYhTxyOaprT Gr6AUCnEDvLaDZWURzCTNHkJ7SJezPOkrpOV51k1aEyut8VXs2pYCdPFhjOG W5mDsWEMUo67lzRjevq2VlLKDEE1vDtvCE2zsErVayFemfYZJEBKaJUqlw1N NZWVZ9EFN4ajNRwaVdOYAxlmU+VbGcPbdaRoU5KW3pRXAyRNbXK6zQBUQ9/m OMVlTeJTElMlxquX6BJYa+mORB1s2LzOg3T8r6GZk9dqQJSzc8eq9Zu4qKYm 8iy9vV/VWN4GV69vZyXlqpCqkYpxikcX1ZR1oY0jNaqZ8kSngizG2+lDPP5V UzdJKRVvCAdX1bgEbZPADPM2n6oRmqmsSNdd38ZKSl3BVOM2LVOwqcY4CdMn X7WqcWnEVorniuXv/lSjlm8KB9e8xuFNZfN6tp7je1RNw8qYfn0LKyl1BVLN M9IFc4BrR2XNhoxFv6vruvhzy1fpQDW1AS3XjVg4WCLOabVVGyla16QtZPWl GrlEbrje3UpKW8KoxpiDN8BTkFJNxgGLVb403MLQFp62VNq3XS7lupt5JfuZ eF4N2K3q3pjwGum5WWM4yHmNvoytFSm9Zt/RxHtR2Zlgz5+KpvhXjfZWSd1I YHsh62Kl4oIgquHBPjdQLyU2qkzlGxfxuqbmxaYxuEVqv1wXW3rE5p9iU5za YCpB/opnyV52TkPO0EzUXua+Vd88sTKuMFga0DRmVUesDvIacyNni0Xt0nkL K8nyQVRjWbmqj0j5vnLZmJuX3uJUmyOuVtRW2X+tvv0v7Rq4cmPAZ9+q0fZX 1V3kEg6G5VotyHZ0H5q2w0tU3rCBS5NNNyvPpb1ywkT1L5yeWlnpqR/VhGC4 v1RwhWqeQ7vXHC+VllaKVDXPyZp6olfVuL44f9m0tlKUqgm/sdlCb6rx9Qtr cfMsK0WlGshYliJfH6hmuldNNRnGccbEdVaKTDVi68tQJfO5T9VYfmPsxXOd laJSzSjoeTUA6QBUTd+gasaPzVF3qJoOuCNmvWvtDGRAWFVDCR1lsUGNimPN qLHO0FA1HcD6otbOQAaEzVEn8O4JVeOZu9MJVTNy7Ko54VjjnROltTOQAWFV DfSKp1PoKIsNVM34saomJf4NHWWxASZNUTXjxq4acG8aOspiAzSDqhk5xFGL 1UZQ+o9QwL1A6CiLDTLWpKnigZ20PvntFlTNCCC/iKRQ8lmaomr8w6yqeKDs ANw5NnJggpalWegoi40UbJploX2LdEWWnbM0vVwuoQMtHsCYMNBkeR7at0hX 3N/fZ1l6zs+hYy0ezuczDDRg2NC+Rbriy5cvpGPMMhxuvABmBGOmpxQMG9q3 SIdAr5hnGQrneqhkcjrQPIT2KtI5MKnIM/IHPqB2ngEYjUzMcpBMDj+G9ifS E+Br6CRzKp6cfiIfcvYP+ZmeYN+kP6VnBPyqnH3mhzJ26eC/eKv5s8r2c1Pk /IG5OfhzFZfIK+jRFNOZlwZMxR/uHy40mS3ChEmCB5VQS14gJSNiTKprTGRc PrlQu3pO/J1JaRUdCDt0ueT3Dw+YyyAIgiAD539ZqVho "], {{0, 35.}, {137., 0}}, { 0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.74837839725494*^9, 3.7483803433511324`*^9, 3.785786535654459*^9}, CellLabel->"Out[2]=", CellID->827288962] }, Open ]], Cell["Serialize the packed array using a bigger integer type:", "Text", TaggingRules->{}, CellID->411410400], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"integers", ",", RowBox[{"Method", "\[Rule]", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.748378377361512*^9}, CellLabel->"In[3]:=", CellID->249857390], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc1y2zYQx9X20mOnb9C30OjWS2d6TacPkKhRppd0JulMp8+gix5FJz2J bnqCWJJlkZRsT52kiw9CAPFB0AIJEt5f7EQmQZDc3T8XC9CTn9789Wr27Wg0 +vg9/PXq9T8/f/jw+t/ffoAffn//8c9379/+8ev7v9++e/th/OY72PgLfP/4 zWhEPn9FEARBEATReHp6yvN8t99tt9ubG/i6oR9kKj+SFtW9W95oqzfuLepN aLdkakS/2T9gpf1+D6YDA8b2IdIp4PRPnz5VomfLY4gpSITUln9xlYh4unzc 3igN+/xV3kTlDso7Fsq4qWynbS+3S77BfFmWffnyJbYzkS64u7tjAQMfiqI4 n8/3iDdgLjAamI5KcHs4HGL7E2kdyDLwqNxtd6fTKXYADhswIJgREhCYNLZX kRZ5evqPDTpQMkEAM7JiEGuchIGhBXgZRhexwy0dyFBtuwXDxvYt0hb7/X63 Iy6OHWvpcDoVdFYNq5tkYRVN7EBLDShubrY3sX2LtMWOsI0dZamxpWaN7Vuk LXbUwbGjLDV2qJqkId7do2oCAyZF1STMnkwH7GNHWWrQRxGqZuBsZJQ94N49 5prQwIMIvvw8gPSTzWIyGk0Es5W075YkG8w1gWFWvVh5NbuYH1yxQN30H1CN 1VHg3Nv9bewoS41bkM3tbWNnID3C5ahbSuwoS409qmbwuFVzQNUEhz2LGjsD 6RFO1RxQNeE5oGoGj8tRB6KaQ+woS40DeRiZ30ND1QyEGtUAsaMsNZhVGzsD 6RGomq5B1QwfVE3XoGqGD6qma1A1wwdV0zWomuGDqumaK1Szmo00JpPZYnX9 62ub1YK82RNas/SFLXadKT0OBqWa5RTMP13GvozrCKyaQEHJug4d2hfRpCWb TlSzXk7HxmgnO8bcquPxdLl294Oq0cJvs5rxwFRevG1MK6phopks2pFkRFpW zXo5n3JZaNG+ntM94+l8uSybjecu4YRQDTmT+ywtE1Y1X8UD/bqgbCOwS9Fs Wspk8WhPNVwURBY0n1SjnUpAjl92gEsUAVRDT5KWaqqby2GROfnwUR7dKQ+g LOidkOwmjbsms5Xlii+icYhSbkRrK2u//i1Zg4V8mbz807rzsZL51tpTDUkj a4scDOFbG9GoGkeukTxs97kaK81VI8aDddpSo9wuG9HKdC1Kt/4t7fWfcn5f Kxnooq4xJxFdArWiEA3WYtynlENa+lI2z6dVIyqZTiqxRlqJJY00vSowB0FV A8/UiR4PZUBondkHcz5jqI04l3hqi7LKdqoy8GxnViQgssbGcFf+LYm2Zwtl ZnFTCkkWQnMrSS0iqUZsZgG4toS8DFPNFOJ3LKohGstl38Y+Sq2t12X9xA4G yobsUtROL92oe0kP1ySr8HNok4U2RDEHhCMcPFRja2LcriVAy7ltU9N6AvVv 6bp8D9l41IkRVXMv1T6U2lhcTg3t2Ebeu0E2agYzjdB4C+0g3izwoK6VmedJ NWhMrnfFV71qWAvTwYY9hlOZg7EmB0nb/VuaMd19UytJbeLmGtsD3oQ5HSnd ayFeGfYZJEBaaJ1Kh/VNNZWZ5/IRXBuOznCoVU1tDWQYTamnMoa3b6Zo0pK2 XqmzAYK6a/I6TTTVBJwNUMRU6aR6iH6OpVbuCORkw8Z1AaQTfg7NXLxWA0Kt zj271k/ioxpL5Dme9mFV41gNrh7fzErSUVFUYxZAzXyAj2pUXWh5xKKaMS90 KohmdJ2WS+lK8YRXjW2QojSvCQdf1fgEbZ3ADOO2kKopNVOZkbYd38RKUl8x VGNJKzXZxqUa4yBMH3xZVeMjhLUQzxXT392pRm5fFw6+dY3HSmX9fLZe4wdU Tc3MmH58AytJfQ0s15hLEG25lGwwVCy6auoXV+vvpgktqMYa0GLeiIWDI+K8 Zlu1TNG4J20iqyvViClyw/H+VpKuJU5dY5ztqolHXoLoWcs0K8YWaKoas+U9 Q901F/Nu5pnsZxJ4NmCzsK2Y8B7pvkltOIhxjT6NrTVRltk3tPCeVd5McNdP l0sJrxptVUl+kcC1IOtjpcsBsebQynnk6XQOAc6HPs6hElPaWKy4lMs1loVN Y3CXpf2cLL0s1/I20qvUrbwIxGf62GoNXQV9tjXamXm2Heb/qr55YGWcYXBc QF3OqmasFuoa80VOZjPr1HkDK4n2UddrlAX5ujJbrFfOa2tzZRVHPyk/eC6V +9Liv7r6r7w1cOWLAfehVaO9X2U7yCccDNO1WpBt6Hto2hteZec1L3Bpsmln 5ll5V640kX3B6WsjK33tRjUx6O8vFVyhmufQbJnjpdLQSomqxrhy2Q86VY3v wvnLprGVklRN/BebHXSmmlC/sJY2z7JSUqqBimVe1us91Uz7qqkWw5hnTFxn pcRUU7760lfJ3HepGsdvjL14rrNSUqoZBB3PBiAtgKrpGlTN8HE56g5V0wJ3 xKx3jZ2B9Ainaiixoyw1qFEx1wwa5wgNVdMC7FnU2BlIj3A56gjePaJqAnN3 PKJqBo5bNUfMNcE5Uho7A+kRTtXAU/F4jB1lqYGqGT5O1WTEv7GjLDXApBmq Zti4VQPuzWJHWWqAZlA1A4c4arZYlSj/EQq4F4gdZalBck2WSR7YCOuT325B 1QwA8otIEorPsgxVEx5mVckDqgPwzbGBAwO0PMtjR1lqZGDTPI/tW6Qt8vyU Z9n5fI4daOkAxoREkxdFbN8ibfHw8JDn2ak4xY61dDidTpBowLCxfYu0xefP n8mDMc8x3QQBzAjGzI4ZGDa2b5EWgadikeconOuhkiloonmM7VWkdWBQUeTk D3xA7TwDMBoZmBUgmQJ+jO1PpCPA1/CQLKh4CvqJfCjYP+RnuoN9k+cp3VPC jyrYZ74pZ4f2/otfNb9Xcf3cFAW/YW4Ofl+XQ8QRdGuG5cxLA4bijw+PZ1rM XsKESYIHVamW4oKQTBljQl1DIufyKUq1y/vKv3MhrcsDhG06n4uHx0esZRAE QZCe8z/YkS9k "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483784038247347`*^9, 3.7483803467060385`*^9, 3.785786540072327*^9}, CellLabel->"Out[3]=", CellID->488677110] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Create a packed array of real values:", "Text", TaggingRules->{}, CellID->174269961], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reals", "=", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->525638537], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.9704430360335983`", ",", "0.33831262736870293`", ",", "0.9091194022818532`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7483784096515903`*^9, 3.7483803496049547`*^9, {3.785786547581102*^9, 3.7857865734533105`*^9}}, CellLabel->"Out[1]=", CellID->492380781] }, Open ]], Cell["Serialize the array:", "Text", TaggingRules->{}, CellID->930093184], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"real64", "=", RowBox[{"BinarySerializeWithDefinitions", "[", "reals", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7483783816513987`*^9}, CellLabel->"In[2]:=", CellID->528452095], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU1y2zYUx9V202WnN+gtNNp105lu0+kBEjXKdJPOJJ3p9Aza6Cha6STa 6QQxJcsiKcWeOnEfPggCBAiCFkGQ8PvFTmQSBMn33h/AA+DJT2/+erX4djKZ fPwe/nr1+p+fP3x4/e9vP8APv7//+Oe792//+PX932/fvf0wffMdHPwFvn/8 ZjIhn58QBEEQBEE0Hh8fsyzbH/ZJktzcwNcN/SBT+ZGUqJ5NeKFELzxY1JfQ XslUiH6zf8BKh8MBTAcGDO1DpFfA6Z8+fapET8JjiClIhFTCv7hKRDyVH5Mb peCQv4qXqLxB8cZCGTeV47Rs+brkG8yXpunXr19DOxPpg7u7OxYw8CHP88vl 8hlxBswFRgPTUQkmx+MxtD8R70AvA03lPtmfz+fQAThuwIBgRuiAwKShvYp4 5PHxPzboQMl0ApiRJYOY40QMDC3AyzC6CB1u8UCGakkChg3tW8QXh8Nhvycu Dh1r8XA+53RWDbObaGEZTehAiw1Ibm6Sm9C+RXyxJyShoyw2EmrW0L5FfLGn Dg4dZbGxR9VEDfHuAVXTMWBSVE3EHMh0wCF0lMUGbYpQNSNnJ6OcAfcesK/p GmiI4MvNA8gw2a1mk8lMsNhI525JZ4N9Tccwq5ZW3ixK84MrVqib4QOqqXUU OPf2cBs6ymLjFmRze9vaGciAsDnqlhI6ymLjgKoZPXbVHFE1ncPaotbOQAaE VTVHVE33HFE1o8fmqCNRzTF0lMXGkTRG5n1oqJqR0KAaIHSUxQazamtnIAMC VdM3qJrxg6rpG1TN+EHV9A2qZvygavoGVTN+UDV9c4VqNouJxmy2WG2u3762 26zIzp6uNUs3bLHnjKk5GJVq1nMw/3wd+jGuo2PVdBSUrOquQ7sUTVyy8aea 7XI+nQqbTefL9dZQaD2flkVMJWRQNVr47TYLHpjKxtvWeFENE81s5UeSAfGm mu1yOp2DVAiFfioBD0WIWIigSBGqnKVNOF2ohj6M9S6e6VY1T6JBvy4ofQR2 IZqdp54sHL2N0GjEy+FKNaMdsIqiA9Vod+2dzlVTPVwMi8ydDx/l0ZPyAKoG vRLSu0njrtliU/PEpWgsopQL0dyqtl73kqzASn5Mnv5p1blYyfxqPeU1lZA3 KaBJFagaS18jebje52qstFeNGA82aUuN8nrZiFKmZ1GqdS9Zn/8p93e1koFQ qjFGb1NvI6rYLkU6NJXSIa0/Uw4v51UjKj3dWkrDtBRru15KCVhzBmahU9VA mzrT46EICK2y+sGcyxhqJ+4lWm2RVtXdqgi8ujsrEhC9xs7wVu4libYXK2Vm cVcISRZCeytJJXocodm7mtqwVy+aQ/yyZEhLmIzXF7fabtc8f5ryfEvEvpxh FZWW1ahnSQ3XdFbdz6HNVtoQxRwQlnBwUE1dEeNxrQOsuXfd1LTegbqXtD2+ g2wc8sReVAMtNetERKzVDJQaxk9r1luoBdhBrhuDbJr7OF5Cu4gX63hQ52Xm eVYNGpPrbfHVrBpWwnSx4YzhVuZgbOiDpOPuJc2Y3r6tlaQy3lSzloZElai7 QjXaaWVcp9VQ6dQMdyAltEqly4ammsrMc9EEN4ajNRwaVdOYAxlGU+qtjOHt 2lO0KUlLb9TZAEHTMzndxqdq6JCIDnn4tPJcHRI9TzV62qOIqVJF9RL9Dmst 3alKncmybsmpLd3PoZmT12pAqNm5Y9X6TVxUUxN5lta+W9VYVoOr17ezknRV P3nNVo/tmrzGYTbAcFgoQdGF1o/UqGbKE50K5YiyXI29Vjzdq6ZukKIUbwgH V9W4BG2TwAzjti5VU2imMiNdd30bK0l19bWjRgtns2osYyGbaoyDML2+WtW4 CGErxHPF9Hd/qpHLN4WDa17jsFLZPJ+t5/gdqqZhZky/voWVpLqCqOb56zXm FMS4fmoQoa6a5sVVw2tcIRsPqqkNaDFvxMLBEnFOs61aT9G6Jm0iqy/ViCly w/XuVpKexYdqtst5U3A3bxbQ4CmIErF8WlifFWMLNA5LQjxt0bb7LMW8m3km +5l0PBuwW9WtmPAa6blZYziIcY0+ja0VUZbZdzTxXlR2Jtjzp/JRuleNtqok bySwLci6WKm8wI9qKkscpl1mTARQRuxDaxgoMaFNxYpLTb2fyxRfD+4itSf3 LBIUfow/SlGtvAjE34St1tB5jWeZheBn5rnuMvet+uaBlXGGwfIATX1Wtcfy kNeYH3K2WNROnbewkijvaffmWtnybM6hyUJOmWU3JtlivXLZmJsrqziVm4qr JbUpi//q6r/2JtfNpHWrGm1/Vd1FLuFgmK7VgmxH96FpO7yKyhs2cGmy8TPz rOyVK0xUv+D01MpKT73mNb0y3F8quEI1z6HdMsdLpaWVIlVNw2RcSHpVjevC +cumtZWiVE34jc0WelNNV7+wFjfPslJUqiEzd0uneYWA+FZNNRnGfsbEdVaK TDXF1pehSuZzn6qx/MbYi+c6K0WlmlHQ82wA4gFUTd+gasaPzVF3qBoP3BGz 3rV2BjIgrKqhhI6y2KBGxb5m1FhHaKgaD7C2qLUzkAFhc9QJvHtC1XTM3emE qhk5dtWcsK/pnBOltTOQAWFVDbSKp1PoKIsNVM34saomJf4NHWWxASZNUTXj xq4acG8aOspiAzSDqhk5xFGL1aZA+Y9QwL1A6CiLDdLXpKnkgZ2wPvntFlTN CCC/iCSh+CxNUTXdw6wqeUB1AO4cGzkwQMvSLHSUxUYKNs2y0L5FfJFl5yxN L5dL6ECLBzAmdDRZnof2LeKL+/v7LEvP+Tl0rMXD+XyGjgYMG9q3iC++fPlC GsYsw+6mE8CMYMz0lIJhQ/sW8Qi0inmWoXCuh0ompx3NQ2ivIt6BQUWekT/w AbXzDMBoZGCWg2Ry+DG0P5GeAF9DI5lT8eT0E/mQs3/Iz/QE+ybtKT1TwK/K 2Wd+KGOXDv6LPzV/V/H83BQ5f2FuDv5e5SXiCno0xXTmpQFD8Yf7hwtNZssw YZLgQVWoJS8RkiliTKhrTGRcPnmhdvlc8XcmpFU2IOzQ5ZLfPzxgLoMgCIIM nP8B+BQgGA== "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7483784134924846`*^9, 3.74838035220088*^9, {3.785786549576025*^9, 3.785786573582306*^9}}, CellLabel->"Out[2]=", CellID->288971399] }, Open ]], Cell["\<\ Serialize the array using machine floats, trading precision for a smaller \ output:\ \>", "Text", TaggingRules->{}, CellID->685684502], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"real32", "=", RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"reals", ",", RowBox[{"Method", "\[Rule]", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7483783832663507`*^9}, CellLabel->"In[3]:=", CellID->111877261], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc1y2zYQx9X20mOnb9C30OjWS2d6TacPkKhRppd0JulMp8+gix5FJz2J bnqCWJJlkZRsT52kiw9CAPFB0AIJEt5f7EQmQZDc3T8XC9CTn9789Wr27Wg0 +vg9/PXq9T8/f/jw+t/ffoAffn//8c9379/+8ev7v9++e/th/OY72PgLfP/4 zWhEPn9FEARBEATReHp6yvN8t99tt9ubG/i6oR9kKj+SFtW9W95oqzfuLepN aLdkakS/2T9gpf1+D6YDA8b2IdIp4PRPnz5VomfLY4gpSITUln9xlYh4unzc 3igN+/xV3kTlDso7Fsq4qWynbS+3S77BfFmWffnyJbYzkS64u7tjAQMfiqI4 n8/3iDdgLjAamI5KcHs4HGL7E2kdyDLwqNxtd6fTKXYADhswIJgREhCYNLZX kRZ5evqPDTpQMkEAM7JiEGuchIGhBXgZRhexwy0dyFBtuwXDxvYt0hb7/X63 Iy6OHWvpcDoVdFYNq5tkYRVN7EBLDShubrY3sX2LtMWOsI0dZamxpWaN7Vuk LXbUwbGjLDV2qJqkId7do2oCAyZF1STMnkwH7GNHWWrQRxGqZuBsZJQ94N49 5prQwIMIvvw8gPSTzWIyGk0Es5W075YkG8w1gWFWvVh5NbuYH1yxQN30H1CN 1VHg3Nv9bewoS41bkM3tbWNnID3C5ahbSuwoS409qmbwuFVzQNUEhz2LGjsD 6RFO1RxQNeE5oGoGj8tRB6KaQ+woS40DeRiZ30ND1QyEGtUAsaMsNZhVGzsD 6RGomq5B1QwfVE3XoGqGD6qma1A1wwdV0zWomuGDqumaK1Szmo00JpPZYnX9 62ub1YK82RNas/SFLXadKT0OBqWa5RTMP13GvozrCKyaQEHJug4d2hfRpCWb TlSzXk7HxmgnO8bcquPxdLl294Oq0cJvs5rxwFRevG1MK6phopks2pFkRFpW zXo5n3JZaNG+ntM94+l8uSybjecu4YRQDTmT+ywtE1Y1X8UD/bqgbCOwS9Fs Wspk8WhPNVwURBY0n1SjnUpAjl92gEsUAVRDT5KWaqqby2GROfnwUR7dKQ+g LOidkOwmjbsms5Xlii+icYhSbkRrK2u//i1Zg4V8mbz807rzsZL51tpTDUkj a4scDOFbG9GoGkeukTxs97kaK81VI8aDddpSo9wuG9HKdC1Kt/4t7fWfcn5f Kxnooq4xJxFdArWiEA3WYtynlENa+lI2z6dVIyqZTiqxRlqJJY00vSowB0FV A8/UiR4PZUBondkHcz5jqI04l3hqi7LKdqoy8GxnViQgssbGcFf+LYm2Zwtl ZnFTCkkWQnMrSS0iqUZsZgG4toS8DFPNFOJ3LKohGstl38Y+Sq2t12X9xA4G yobsUtROL92oe0kP1ySr8HNok4U2RDEHhCMcPFRja2LcriVAy7ltU9N6AvVv 6bp8D9l41IkRVXMv1T6U2lhcTg3t2Ebeu0E2agYzjdB4C+0g3izwoK6VmedJ NWhMrnfFV71qWAvTwYY9hlOZg7EmB0nb/VuaMd19UytJbeLmGtsD3oQ5HSnd ayFeGfYZJEBaaJ1Kh/VNNZWZ5/IRXBuOznCoVU1tDWQYTamnMoa3b6Zo0pK2 XqmzAYK6a/I6TTTVBJwNUMRU6aR6iH6OpVbuCORkw8Z1AaQTfg7NXLxWA0Kt zj271k/ioxpL5Dme9mFV41gNrh7fzErSUVFUYxZAzXyAj2pUXWh5xKKaMS90 KohmdJ2WS+lK8YRXjW2QojSvCQdf1fgEbZ3ADOO2kKopNVOZkbYd38RKUl8x VGNJKzXZxqUa4yBMH3xZVeMjhLUQzxXT392pRm5fFw6+dY3HSmX9fLZe4wdU Tc3MmH58AytJfQ0s15hLEG25lGwwVCy6auoXV+vvpgktqMYa0GLeiIWDI+K8 Zlu1TNG4J20iqyvViClyw/H+VpKuJU5dY5ztqolHXoLoWcs0K8YWaKoas+U9 Q901F/Nu5pnsZxJ4NmCzsK2Y8B7pvkltOIhxjT6NrTVRltk3tPCeVd5McNdP l0sJrxptVUl+kcC1IOtjpcsBsebQynnk6XQOAc6HPs6hElPaWKy4lMs1loVN Y3CXpf2cLL0s1/I20qvUrbwIxGf62GoNXQV9tjXamXm2Heb/qr55YGWcYXBc QF3OqmasFuoa80VOZjPr1HkDK4n2UddrlAX5ujJbrFfOa2tzZRVHPyk/eC6V +9Liv7r6r7w1cOWLAfehVaO9X2U7yCccDNO1WpBt6Hto2hteZec1L3Bpsmln 5ll5V640kX3B6WsjK33tRjUx6O8vFVyhmufQbJnjpdLQSomqxrhy2Q86VY3v wvnLprGVklRN/BebHXSmmlC/sJY2z7JSUqqBimVe1us91Uz7qqkWw5hnTFxn pcRUU7760lfJ3HepGsdvjL14rrNSUqoZBB3PBiAtgKrpGlTN8HE56g5V0wJ3 xKx3jZ2B9Ainaiixoyw1qFEx1wwa5wgNVdMC7FnU2BlIj3A56gjePaJqAnN3 PKJqBo5bNUfMNcE5Uho7A+kRTtXAU/F4jB1lqYGqGT5O1WTEv7GjLDXApBmq Zti4VQPuzWJHWWqAZlA1A4c4arZYlSj/EQq4F4gdZalBck2WSR7YCOuT325B 1QwA8otIEorPsgxVEx5mVckDqgPwzbGBAwO0PMtjR1lqZGDTPI/tW6Qt8vyU Z9n5fI4daOkAxoREkxdFbN8ibfHw8JDn2ak4xY61dDidTpBowLCxfYu0xefP n8mDMc8x3QQBzAjGzI4ZGDa2b5EWgadikeconOuhkiloonmM7VWkdWBQUeTk D3xA7TwDMBoZmBUgmQJ+jO1PpCPA1/CQLKh4CvqJfCjYP+RnuoN9k+cp3VPC jyrYZ74pZ4f2/otfNb9Xcf3cFAW/YW4Ofl+XQ8QRdGuG5cxLA4bijw+PZ1rM XsKESYIHVamW4oKQTBljQl1DIufyKUq1y/vKv3MhrcsDhG06n4uHx0esZRAE QZCe8z/YkS9k "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.748378418633337*^9, 3.748380357039741*^9, {3.785786553247931*^9, 3.785786573709303*^9}}, CellLabel->"Out[3]=", CellID->488677111] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Create a packed array of complex values:", "Text", TaggingRules->{}, CellID->718516347], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"complexes", " ", "=", " ", RowBox[{"RandomComplex", "[", RowBox[{ RowBox[{"1", "+", "I"}], ",", "3"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->900048016], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.04275770519417277`", "\[VeryThinSpace]", "+", RowBox[{"0.6083962951680228`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"0.5199070866668671`", "\[VeryThinSpace]", "+", RowBox[{"0.2995780240757475`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"0.4020203208753481`", "\[VeryThinSpace]", "+", RowBox[{"0.6143091624716126`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7483784216302485`*^9, 3.7483803594706707`*^9, {3.7857865612266936`*^9, 3.785786569488446*^9}}, CellLabel->"Out[1]=", CellID->901249261] }, Open ]], Cell["Serialize the array:", "Text", TaggingRules->{}, CellID->930093185], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", "complexes", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7483783863722625`*^9}, CellLabel->"In[2]:=", CellID->613737175], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU1y2zYUx9V202WnN+gtNNp105lu0+kBEjXKdJPOJJ3p9Aza6Cha6STa 6QQxJcsiKcWeOnEfABIEiA+CFkGQ8PvFTmQSBMn33h8PX5789OavV4tvJ5PJ x+/hr1ev//n5w4fX//72A/zw+/uPf757//aPX9///fbd2w/TN9/BwV/g+8dv JhPy+QlBEARBEETh8fExy7L9YZ8kyc0NfN3QDyK1H0mJ+tmkKJSohQeL/BLK K+kK0W/2D1jpcDiA6cCAoX2I9Ao4/dOnT7XoSYoYYgriIZUUX4VKeDxVH5Mb qeCQv8qXqL1B+cZcGTe147Rs9brkG8yXpunXr19DOxPpg7u7OxYw8CHP88vl 8hlxBswFRgPTUQkmx+MxtD8R70CWgaZyn+zP53PoABw3YEAwIyQgMGloryIe eXz8j3U6UDKdAGZkg0Ec40QMdC3Ay9C7CB1u8UC6akkChg3tW8QXh8Nhvycu Dh1r8XA+53RWDUc30cJGNKEDLTZgcHOT3IT2LeKLPSEJHWWxkVCzhvYt4os9 dXDoKIuNPaomaoh3D6iajgGTomoi5kCmAw6hoyw2aFOEqhk5OxHpDLj3gLmm a6Ahgi83DyDDZLeaTSYzzmIjnLslyQZzTccwq1ZW3iwq84MrVqib4QOqMToK nHt7uA0dZbFxC7K5vW3tDGRA2Bx1SwkdZbFxQNWMHrtqjqiazmFtUWtnIAPC qpojqqZ7jqia0WNz1JGo5hg6ymLjSBoj/T40VM1IaFANEDrKYoNZtbUzkAGB qukbVM34QdX0Dapm/KBq+gZVM35QNX2Dqhk/qJq+uUI1m8VEYTZbrDbXb1/b bVZkZ0/XmqUbtthzxtQcjEo16zmYf74O/RjX0bFqOgpKVnXXoV2JJi7ZeFTN djlVnGsMeVZ4utzaakTVKOG32yyKwJQ23rbGi2qYaGYrP5IMiEfV0BifTuci JlXQsr2oZr2cTxtu45duVfPEG/TrgtJHYJei2XnKZOHwrBq3+ORZyb9q6K3i Uk39cNkt0iefopdHT4odKANqJSS7Cf2u2WJjeOJKNBZRioXo2MpYr3tJVmAl PmYx/FOqc7GS/tVCq4YG8nzpEM6oGkuuETxs9rkcK+1Vw/uDTdqSo9wsG15K 9yxSte4lzeM/6f6uVtLgTzWu8VmIy6U4V80WulmFIaALuN6K59U6isPLed2I YtHtGnpu/ERVZ3m2uqN0y/Z0qhpoU2dqPJQBoVRm7sy59KF2/F681ebDKtOt ysAz3VmSAM8aO81buZck2l6spJnFXSkkUQjtrSSU8KmaxsTAE5K7auYQvxC4 y/WajlEmk+o2WtmUWttu2RVEFORioCxYzEVIlVbVyGdJDdckq+7n0GYrpYui DwhLODioxlREe1xJgIZ7m6am1QTqXtL2+A6ycRgn+lPNWmraaczVQ01UirNq 6qXYwUI3GtnI3TrdbYoSykUtnqwFXmaeZ/Wg0bneFl/NqmEldBdrzmhupQ/G hhwkHHcvqUf39m2tJJTxlmvmrEmH1rns3UipR45GZ9UoZVgqKKpWqqmNhTS3 0Y6/hMuGpprazHPZBDeGozUcGlXTOAbS9KbkW2nD2zVTtClJS2/k2QBO0zM5 3aa3Vc6tlBNUBbQa12gOl5fW6qlfot5mrQx3OGKyYf26DqTT/RyafvBaDwh5 dO5YtXoTF9UYIs/S2nerGstqcP36dlYSruprb4CYE9T470o1ckVKHjGoZloM dGpUml5X0w9Xiqd71Zg6KVLxhnBwVY1L0DYJTNNv61I1pWZqM9Km69tYSair tx01whSYumtAwKgdm2q0nTC182VUjdO6EhfPFdPf/alGLN8UDq7jGoeVyub5 bHWM36FqGmbG1OtbWEmoq9dcw+bL1su5QtELIhsITG25PsCVo/xGmhGLqhpp WOT6GlfIxoNqjAHN541YOFgizmm2VckUrWtSJrL6Ug2fItdc724l4Vl6Gtc0 bDRrMYem9ux0s2JsgaZeoybmi8xX08F2ueTzbvqZ7GfS8WzAbmVaMSlqpOdm jeHA+zXqNLZSRFpm39GB96K2M8E+fqoepXvVKKtK4kYC24Ksi5WqC/yoBmIL EseyXOJgmcQiCvc5tClfcTHXWw7x1eAuh/ZL8lzrrXiM1CpUKy4CFYs1bLWG roK2NEeFn5ln02XuW/X1HSvtDIPlAZpyVj1jeRjX6B9ytlgYp85bWImX96Ma iERh8KJdrqmXd54NELcGGOqtzdjJdyqvFqfwxMV/efVf2jVw5caAz12rRtlf ZbrIJRw007VKkO3oPjRlh1dZecMGLkU2fmaepb1ypYnMC05Praz01O9sQJ8M 95cKrlDNc2i3zPFSaWmlSFXjvt+6d3pVjevC+cumtZWiVE34jc0WelNNV7+w FjfPslJUqoERy7Icrw9UM/5VUx8MY57RcZ2VIlNNufVlqJL53KdqLL8x9uK5 zkpRqWYU9DwbgHgAVdM3qJrxY3PUHarGA3fErHetnYEMCKtqKKGjLDaoUTHX jBprDw1V4wHWFrV2BjIgbI46gXdPqJqOuTudUDUjx66aE+aazjlRWjsDGRBW 1UCreDqFjrLYQNWMH6tqUuLf0FEWG2DSFFUzbuyqAfemoaMsNkAzqJqRQxy1 WG1KpP8IBdwLhI6y2CC5Jk0FD+y49clvt6BqRgD5RSQByWdpiqrpHmZVwQOy A3Dn2MiBDlqWZqGjLDZSsGmWhfYt4ossO2dperlcQgdaPIAxIdFkeR7at4gv 7u/vsyw95+fQsRYP5/MZEg0YNrRvEV98+fKFNIxZhummE8CMYMz0lIJhQ/sW 8Qi0inmWoXCuh0omp4nmIbRXEe9ApyLPyB/4gNp5BmA00jHLQTI5/Bjan0hP gK+hkcypeHL6iXzI2T/kZ3qCfZP2lJ4pKa7K2efiUMYuHfxX8dTFu/LnL0yR Fy9cmKN4r+oSfgU9muJw5qUBXfGH+4cLHcxWYcIkUQRVqZa8gkumjDGurjGR FfLJS7WL58q/My6tqgFhhy6X/P7hAccyCIIgyMD5H5uMHa8= "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.74837842514514*^9, 3.748380363509554*^9, {3.785786562951641*^9, 3.7857865696064425`*^9}}, CellLabel->"Out[2]=", CellID->596379912] }, Open ]], Cell["Serialize the array using lower precision:", "Text", TaggingRules->{}, CellID->254470000], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"complexes", ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.748378387932193*^9}, CellLabel->"In[3]:=", CellID->347550415], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU1y2zYUx9V202WnN+gtNNp105lu0+kBEjXKdJPOJJ3p9Aza6Cha6STa 6QQxJcsiKcWeOnEfPggCBAiCFkGQ8PvFTmQSBMn33h/AA+DJT2/+erX4djKZ fPwe/nr1+p+fP3x4/e9vP8APv7//+Oe792//+PX932/fvf0wffMdHPwFvn/8 ZjIhn58QBEEQBEE0Hh8fsyzbH/ZJktzcwNcN/SBT+ZGUqJ5NeKFELzxY1JfQ XslUiH6zf8BKh8MBTAcGDO1DpFfA6Z8+fapET8JjiClIhFTCv7hKRDyVH5Mb peCQv4qXqLxB8cZCGTeV47Rs+brkG8yXpunXr19DOxPpg7u7OxYw8CHP88vl 8hlxBswFRgPTUQkmx+MxtD8R70AvA03lPtmfz+fQAThuwIBgRuiAwKShvYp4 5PHxPzboQMl0ApiRJYOY40QMDC3AyzC6CB1u8UCGakkChg3tW8QXh8Nhvycu Dh1r8XA+53RWDbObaGEZTehAiw1Ibm6Sm9C+RXyxJyShoyw2EmrW0L5FfLGn Dg4dZbGxR9VEDfHuAVXTMWBSVE3EHMh0wCF0lMUGbYpQNSNnJ6OcAfcesK/p GmiI4MvNA8gw2a1mk8lMsNhI525JZ4N9Tccwq5ZW3ixK84MrVqib4QOqqXUU OPf2cBs6ymLjFmRze9vaGciAsDnqlhI6ymLjgKoZPXbVHFE1ncPaotbOQAaE VTVHVE33HFE1o8fmqCNRzTF0lMXGkTRG5n1oqJqR0KAaIHSUxQazamtnIAMC VdM3qJrxg6rpG1TN+EHV9A2qZvygavoGVTN+UDV9c4VqNouJxmy2WG2u3762 26zIzp6uNUs3bLHnjKk5GJVq1nMw/3wd+jGuo2PVdBSUrOquQ7sUTVyy8aea 7XI+nQqbTefL9dZQaD2flkVMJWRQNVr47TYLHpjKxtvWeFENE81s5UeSAfGm mu1yOp2DVAiFfioBD0WIWIigSBGqnKVNOF2ohj6M9S6e6VY1T6JBvy4ofQR2 IZqdp54sHL2N0GjEy+FKNaMdsIqiA9Vod+2dzlVTPVwMi8ydDx/l0ZPyAKoG vRLSu0njrtliU/PEpWgsopQL0dyqtl73kqzASn5Mnv5p1blYyfxqPeU1lZA3 KaBJFagaS18jebje52qstFeNGA82aUuN8nrZiFKmZ1GqdS9Zn/8p93e1koFQ qjFGb1NvI6rYLkU6NJXSIa0/Uw4v51UjKj3dWkrDtBRru15KCVhzBmahU9VA mzrT46EICK2y+sGcyxhqJ+4lWm2RVtXdqgi8ujsrEhC9xs7wVu4libYXK2Vm cVcISRZCeytJJXocodm7mtqwVy+aQ/yyZEhLmIzXF7fabtc8f5ryfEvEvpxh FZWW1ahnSQ3XdFbdz6HNVtoQxRwQlnBwUE1dEeNxrQOsuXfd1LTegbqXtD2+ g2wc8sReVAMtNetERKzVDJQaxk9r1luoBdhBrhuDbJr7OF5Cu4gX63hQ52Xm eVYNGpPrbfHVrBpWwnSx4YzhVuZgbOiDpOPuJc2Y3r6tlaQy3lSzloZElai7 QjXaaWVcp9VQ6dQMdyAltEqly4ammsrMc9EEN4ajNRwaVdOYAxlGU+qtjOHt 2lO0KUlLb9TZAEHTMzndxqdq6JCIDnn4tPJcHRI9TzV62qOIqVJF9RL9Dmst 3alKncmybsmpLd3PoZmT12pAqNm5Y9X6TVxUUxN5lta+W9VYVoOr17ezknRV P3nNVo/tmrzGYTbAcFgoQdGF1o/UqGbKE50K5YiyXI29Vjzdq6ZukKIUbwgH V9W4BG2TwAzjti5VU2imMiNdd30bK0l19bWjRgtns2osYyGbaoyDML2+WtW4 CGErxHPF9Hd/qpHLN4WDa17jsFLZPJ+t5/gdqqZhZky/voWVpLqCqOb56zXm FMS4fmoQoa6a5sVVw2tcIRsPqqkNaDFvxMLBEnFOs61aT9G6Jm0iqy/ViCly w/XuVpKexYdqtst5U3A3bxbQ4CmIErF8WlifFWMLNA5LQjxt0bb7LMW8m3km +5l0PBuwW9WtmPAa6blZYziIcY0+ja0VUZbZdzTxXlR2Jtjzp/JRuleNtqok bySwLci6WKm8wI9qKkscpl1mTARQRuxDaxgoMaFNxYpLTb2fyxRfD+4itSf3 LBIUfow/SlGtvAjE34St1tB5jWeZheBn5rnuMvet+uaBlXGGwfIATX1Wtcfy kNeYH3K2WNROnbewkijvaffmWtnybM6hyUJOmWU3JtlivXLZmJsrqziVm4qr JbUpi//q6r/2JtfNpHWrGm1/Vd1FLuFgmK7VgmxH96FpO7yKyhs2cGmy8TPz rOyVK0xUv+D01MpKT73mNb0y3F8quEI1z6HdMsdLpaWVIlVNw2RcSHpVjevC +cumtZWiVE34jc0WelNNV7+wFjfPslJUqiEzd0uneYWA+FZNNRnGfsbEdVaK TDXF1pehSuZzn6qx/MbYi+c6K0WlmlHQ82wA4gFUTd+gasaPzVF3qBoP3BGz 3rV2BjIgrKqhhI6y2KBGxb5m1FhHaKgaD7C2qLUzkAFhc9QJvHtC1XTM3emE qhk5dtWcsK/pnBOltTOQAWFVDbSKp1PoKIsNVM34saomJf4NHWWxASZNUTXj xq4acG8aOspiAzSDqhk5xFGL1aZA+Y9QwL1A6CiLDdLXpKnkgZ2wPvntFlTN CCC/iCSh+CxNUTXdw6wqeUB1AO4cGzkwQMvSLHSUxUYKNs2y0L5FfJFl5yxN L5dL6ECLBzAmdDRZnof2LeKL+/v7LEvP+Tl0rMXD+XyGjgYMG9q3iC++fPlC GsYsw+6mE8CMYMz0lIJhQ/sW8Qi0inmWoXCuh0ompx3NQ2ivIt6BQUWekT/w AbXzDMBoZGCWg2Ry+DG0P5GeAF9DI5lT8eT0E/mQs3/Iz/QE+ybtKT1TwK/K 2Wd+KGOXDv6LPzV/V/H83BQ5f2FuDv5e5SXiCno0xXTmpQFD8Yf7hwtNZssw YZLgQVWoJS8RkiliTKhrTGRcPnmhdvlc8XcmpFU2IOzQ5ZLfPzxgLoMgCIIM nP8B+BQgGA== "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.748378428770045*^9, 3.748380366657466*^9, {3.7857865659215527`*^9, 3.7857865697244377`*^9}}, CellLabel->"Out[3]=", CellID->855760235] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudPut", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CloudPut", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " an evaluation that runs each time you use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudGet", "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/CloudGet", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " on it:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.761528053486393*^9, 3.761528063348461*^9}, { 3.761528198989472*^9, 3.761528203319847*^9}, {3.78578658184006*^9, 3.785786595794659*^9}}, CellID->728551191], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"CloudSymbol", "[", "\"\\"", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"info", "[", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"i", "=", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "Now"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"CloudSymbol", "[", "\"\\"", "]"}], "+=", "1"}], ")"}]}]}], "|>"}]}], "}"}], ",", RowBox[{ RowBox[{"PutAppend", "[", RowBox[{"i", ",", RowBox[{"CloudObject", "[", "\"\\"", "]"}]}], "]"}], ";", " ", "i"}]}], "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7483784629740667`*^9, 3.74837846389904*^9}}, CellLabel->"In[1]:=", CellID->286708795], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"b", "=", RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"Unevaluated", "[", RowBox[{"info", "[", "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"CloudPut", "[", RowBox[{ RowBox[{"Unevaluated", "[", RowBox[{"BinaryDeserialize", "[", "b", "]"}], "]"}], ",", "\"\\""}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->235015610], Cell[BoxData[ InterpretationBox[ RowBox[{"CloudObject", "[", TemplateBox[{ "\"https://www.wolframcloud.com/obj/rhennigan/info\"", "https://www.wolframcloud.com/obj/rhennigan/info"}, "HyperlinkURL"], "]"}], CloudObject["https://www.wolframcloud.com/obj/rhennigan/info"], SelectWithContents->True]], "Output", TaggingRules->{}, CellChangeTimes->{3.74837843978473*^9, 3.748378481422536*^9, 3.7483803874258623`*^9, 3.7857866107002096`*^9, 3.785786645205161*^9}, CellLabel->"Out[3]=", CellID->421982758] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudGet", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->879662546], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Time\"\>", "\[Rule]", TemplateBox[{ RowBox[{"\"Thu 19 Dec 2019 18:24:08\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "19", ",", "18", ",", "24", ",", "8.9970457`8.7066748937995"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], ",", RowBox[{"\<\"Count\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.748378444523571*^9, 3.7483784842304296`*^9, 3.748380390810766*^9, 3.785786649346054*^9}, CellLabel->"Out[4]=", CellID->338150969] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudGet", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[5]:=", CellID->949447331], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Time\"\>", "\[Rule]", TemplateBox[{ RowBox[{"\"Thu 19 Dec 2019 18:24:12\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "19", ",", "18", ",", "24", ",", "12.5879384`8.85252956542407"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], ",", RowBox[{"\<\"Count\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483784873683605`*^9, 3.7483803930016837`*^9, 3.7857866529309454`*^9}, CellLabel->"Out[5]=", CellID->438394193] }, Open ]], Cell["Check the log:", "Text", TaggingRules->{}, CellID->595648946], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReadList", "[", RowBox[{"CloudObject", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748378494938142*^9, 3.7483784954811335`*^9}}, CellLabel->"In[6]:=", CellID->526110079], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Time\"\>", "\[Rule]", TemplateBox[{ RowBox[{"\"Thu 19 Dec 2019 18:24:08\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "19", ",", "18", ",", "24", ",", "8.9970457`8.706674893799502"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], ",", RowBox[{"\<\"Count\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Time\"\>", "\[Rule]", TemplateBox[{ RowBox[{"\"Thu 19 Dec 2019 18:24:12\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "19", ",", "18", ",", "24", ",", "12.5879384`8.852529565424069"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], ",", RowBox[{"\<\"Count\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7483784965050793`*^9, 3.748380395907626*^9, 3.785786655975853*^9}, CellLabel->"Out[6]=", CellID->539340803] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "When there are no dependent symbols, ", Cell[BoxData["BinarySerializeWithDefinitions"], "InlineFormula", FontFamily->"Source Sans Pro"], " will produce the same ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ByteArray", "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/ByteArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["BinarySerialize", "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/BinarySerialize", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.748378526464243*^9, 3.748378580102706*^9}, { 3.7483786537545877`*^9, 3.7483786587144446`*^9}, {3.7483804166140227`*^9, 3.7483804416783047`*^9}, {3.7857866615896873`*^9, 3.7857866840129976`*^9}}, CellID->504207457], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ints", "=", RowBox[{"RandomInteger", "[", RowBox[{"1000", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinarySerializeWithDefinitions", "[", "ints", "]"}], "===", RowBox[{"BinarySerialize", "[", "ints", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.748380462614703*^9, 3.7483804928058453`*^9}}, CellLabel->"In[1]:=", CellID->312782908], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.748380493877806*^9, 3.785786688664874*^9}, CellLabel->"Out[2]=", CellID->738293886] }, Open ]], Cell["\<\ The results are different when definitions need to be included:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.748380565805747*^9, 3.748380577486408*^9}}, CellID->566926668], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"Unevaluated", "[", RowBox[{"f", "[", "ints", "]"}], "]"}], "]"}], "===", RowBox[{"BinarySerialize", "[", RowBox[{"Unevaluated", "[", RowBox[{"f", "[", "ints", "]"}], "]"}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7483805234509587`*^9, 3.748380559935913*^9}}, CellLabel->"In[3]:=", CellID->891610767], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.748380579470338*^9, 3.785786693059745*^9}, CellLabel->"Out[4]=", CellID->282530333] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell["\<\ For small expressions, definitions add a significant amount of overhead \ relative to the total size:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7483806282299643`*^9, 3.748380650486317*^9}}, CellID->811177428], Cell[BoxData[ RowBox[{ RowBox[{"x", "=", "1"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7483805935339513`*^9, 3.7483806129333777`*^9}}, CellLabel->"In[1]:=", CellID->433812460], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", "x", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7483805935339513`*^9, 3.7483806129333777`*^9}}, CellLabel->"In[2]:=", CellID->708843829], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU2O2zYUx90WKLrsFXoLw7tuCnSbogdI3DjoJgWSAkXP4I2P4pVP4p1P kLE9HkuyM4NOMn38EEWKFEWORVH0vF9mEo9EkdJ770/ykRrkpzd/vZp9OxqN Pv4Af716/c/PHz68/ve3H+GH399//PPd+7d//Pr+77fv3n4Yv/kODv4C399/ MxqRz08IgiAIglwRj4+PeZ7v9rvtdntzA1839INM7UdSon52ywtt9cJRUG9Q u11TIfrN/gEL7Pd7MAsYJ7Z/kF4Bp3/69KkWPVseQ0wdIqS2/IsrQMRT9XF7 oxSM9VXeYO3uyqcRUX9TO07LVo9CvsE0WZZ9/fo1tqOQPri7u2MBAx+Kojif z58RCpgCDAJmofLaHg6H2L5CggOjA3SDu+3udDrFDsDhAsYBE8HAAeaK7TEk II+P/7HJAsqhFTARS6wwp7hiYEoAXoZZQexwSwMyfdpuwWix/YaEYr/f73bE xbFjLQ1Op4KuPmE2cbWwDCJ2oKUEJBOQZMf2GxKKHWEbO8pSYktNFttvSCh2 1MGxoywldqiIq4Z4d4+K8ADMhYq4YvYktd7HjrKUoF0IKiJxNjLKGXDvHscI H6ADgS836yLDZLOYjEYTwWwlnbslgwSOER4wi1UWXM0q04KZF6iJ4QOKaHQU OPd2fxs7ylLiFiRxe+ttaGRA2Bx1S4kdZSmxR0Ukj10RB1SEF6wP8TY0MiCs ijigIvw4oCKSx+aoA1HEIXaUpcSBdCLm95pQEYnQogggdpSlBLOYt6GRAYGK 6BJURPqgIroEFZE+qIguQUWkDyqiS1AR6YOK6JILFLGajTQmk9lidfnrUJvV grxN0rUe6QtA7D6vSepDUsRyCtadLvtrsHM6VkRHAceq7jpsK0FclyR6UsR6 PgbDjedrWyFUhBpam9WMB53yAqY3QRTBBDFZhJFbRPpRBI31XhSxnE/HLc0E pFtFPImO+LKACxG0pSA2gUagePShCDZA9KII2tQVKaJ+uJyqmAcNPvOiJ+VJ TQN6JWRUkuZCk9mq4Y4rQVgEJxeiuUxjve4lWYGFfJs83dKqc7GS+dECK4IG 6XTuEKqoiKYxQvJesz/VOPBXhJijtelGjeBmSYhSpntRqnUv2ZxvKe27WslA cEWQMIcQdQlVoYg1TH34c47H0+VaPq/XwQ/Pp3UbyUXXS5hNiRNVneXZqkWl SU86VQT0hRPd16WztcqaJ1gu85qNaEv0tiKNaWqqDKqmlpXwFr39xvBU7iWJ bmcLZQVuU4pEDnJ/K0klQiqC68Gt82aKmEJsQlDOl0uaE4xG1bhhlESpo/Wa XUECnlwMlAV5Xq9UWlWjniU1PHuQ6X6tabLQpg1mZ1tc7aCIpiLG49rA1dB2 0/KsPvC5l7TdvoMkHPKykIqQVeCsiHopdpBrwiAJdaplaoaX0C7yuDNXgqy+ TuoBYXKrLXbaFcFKmC42nDE0ZQ60lrFDOu5e0ozp6X2tJJUJpAg10pwVoZVh XTiPea2aWu5haEYMU1pT7LJBKaK2+lp2na2hZnV1qyJacw7DDEdtyhi6rj28 T0laeqVm1oK2e3JqJpQi6tHtlUdYqqrVU79Eb2appRcCeZBgc61LZdH9WpM5 Eaw7W810HavWG3FRRENUWXrpbhVh2cmsX+9nJemqAIrQY7srRagVaf1/gyLG PLGoUel1WaXylwije0U0TRyU4i2udlWES0C2iccwl+pSEaUeaquyTdf7WEmq q3NFiP0HM426sCnCODHSJ0SNinAJ8rUQxnOXgPtThFy+zdWueYTDLlv7mq6e L3eoiJYVJP16DytJdXWviOV8qsFnJkBjH2wOXu2oiHpDhqArQklDXG7es7xC AEU0BqtYX2GutkST04qj1sN716Qt+PSlCLFMbLje3UrSvfTypp/HWpM+2zKt HrENiHqNhnjmI1YtxtfzuVifMq/mPoeOM+vNomlHgNdIz01aXS3mGvpSrlZE 2f7d0CR2Vtsxt+cr1a10rwht10Te4LZtJrpYqbpgWIoYj8WOQrkd0bApZwzc Mk2ek62F5Vo+RmqVqpU3OfhmBNuNoDt4z3vKMKuvTZe5v45tnuwYs3XLDbSN NfWRJkAeYb7JyWzWuHzsYSVRfliKIHtt89Y8V9mlqLdUXi0vdcmb0uqutLKb fcmG9eeuFaG9r9N0kYurDUuWWgBt6HtN2htDZeUtLwRpkgiz+qq8e1WaqHlD 5cnLSk/9KaJjBvri+AWKeA5+y/gvFU8rpakI467bAOhVEa4bui8bbyulqIjI L7ha6E0RXf0y0XXzLCulpAjIEOZl7jtEPYRXRD2xxPHBxGVWSksR5esWg5TD 5z4VYfltnhfPZVZKSRHDp+fMGgkAKqJLUBHpY3PUHSrCkztisjtvQyMDwqoI SuwoSwlqMBwjksY6a0JFeML6EG9DIwPC5qgjePeIivDg7nhERSSOXRFHHCO8 OFK8DY0MCKsioMc7HmNHWUqgItLHqoiM+Dd2lKUEmCtDRaSNXRHg3ix2lKUE 6AEVkTjEUbPFqkT5zwrAvUDsKEsJMkZkmWTdjbAs+e0EVEQCkF8kkVB8lmWo CD+YxSTrqsbFN5ESByZNeZbHjrKUyMBeeR7bb0go8vyUZ9n5fI4daGkAhoIB Ii+K2H5DQnF/f5/n2ak4xY61NDidTjBAgNFi+w0JxZcvX0inl+c4TLQCJgJD ZccMjBbbb0hAoMcr8hxFYYfKoaADxENsjyHBgclAkZM/8AF1UQMMQiZLBcih gB9j+wrpCfA1dIAFFUZBP5EPBfuH/ExPsG/SV9IzJfyqgn3mh3J2adQvfkf8 OcS98ccs+MPwR+X3XF0irqBHM0wfXhowPX64fzjT5LEKExbuPKhKJRQVQg5l jAnlDIWcS6MoVSqfK//OhWwq4bND53Nx//CAuQOCIAgSiP8Bbwgf3A== "], {{0, 35.}, {131., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{131., 35.}, PlotRange->{{0, 131.}, {0, 35.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[558417]}, CellChangeTimes->{3.7483806148743505`*^9, 3.7857866983185854`*^9}, CellLabel->"Out[2]=", CellID->763004391] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"Unevaluated", "[", "x", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7483805935339513`*^9, 3.7483806129333777`*^9}}, CellLabel->"In[3]:=", CellID->494423022], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnU2O2zYUx91202UP0E1vYXjXTYFuU/QAiRsH3aRAUqDoGbzxUbzySbzz CeKP8ViSnRl0kunjhyhS/BA1FkXJer94Eo9MkdJ77y/ykTTy05u/Xs2+HY1G H7+Hv169/ufnDx9e//vbD/DL7+8//vnu/ds/fn3/99t3bz+M33wHB3+Bnx+/ GY3I+2cEQRAEQZBGeXp6StN0f9jvdrvtFl5b+kam9CspUf50xwvt9MI9Rb1F 7YZNhegP+wdseDgcwLBg3tgeRloFnP7p06dS9Ox4DDF9iZDa8RfXkIin4u1u qxTs7yu/xdL95fYQutmWjtOyhTHIDxg3SZKvX7/GdjXSBvf39yxg4E2WZZfL 5TPSEGBMMCkYlgp0dzweY3sbCQ70UPAg3e/25/M5dgDeMmBeMDJ0XmDw2D5H AvL09B8bsKCgWgCMzFJUzK1uGBiWgJdhZBI73IYCGQTudmD22J5HQnE4HPZ7 4uLYsTYUzueMzgRiVnWzsEwqdqANC0iqtrttbM8jodgTdrGjbFjsqNFjex4J xZ46OHaUDYs9auqmId49oKZaBQyOmrphDmSS4hA7yoYFfYyhpnrORkb5BNx7 wH6qXeAhBi8//yDdZLOYjEYTwWwlfXZHOirsp1qF2bzwwWpWOAcctUBVdR/Q lNVR4Ny7w13sKBsWdyCqu7varkI6hMtRd5TYUTYsDqip3uPW1BE11TLsOVbb VUiHcGrqiJpqmyNqqve4HHUkmjrGjrJhcSQPMvN+P9RUT6jQFBA7yoYFs3lt VyEdAjXVLVBT/Qc11S1QU/0HNdUtUFP9BzXVLVBT/Qc11S2u0NRqNtKYTGaL 1fXbBDerBdkj1bSi6cY4dp239LC4LU0tp+Cf6TL2ZVxBw5pqKGRZ1U0HfiGp 2xJVQE2tl/PpWBhtPJ2vTWWKIuPpcl2/BgXUlBqcm9WMh62yObo2QTTFJDVZ hBFsRIJpioY30cF8uRTSUMN9PSdHx1BGlBhLsvGowdjolZoiTY0r1RuKZjX1 LDqD60I2RNjnktoE6gXjEU5TIAUlMGm8S8FKFSUHL5NYoYjKGgyNXq8p7bLa pXFNlQ/nAy5zx8XHj/RDeWhmQa+E9IzSiG4yW1muuJCUQ7JyIZrTWev1L8kK LOTL5GmnVp2Plcy31lY+pQa8KfyrJFEpGdSUrZ+S/G+PCDWS6mtKjDSrlKdq wC4qUcp0LUq1/iXteafSvq+VDMTSlDF0yz2VswZngXWRiI2lPM3S0/HD82nZ yko3CqmfPfdTUr+xnhr60qim4Hk80aMlDxetMvsw0Wd0thFtiSe+SOdsTeVh aWtZEYjocTaGu/IvSZQ/WyizoZtcZrJM6ltJKtGSplQVmeXhHt1VdyGs1ilE N8vSaG40kloyNpBfy3qdJ27sZCAvKKd+eaVFNeqnpIYXd3TNz/tNFtrgxxwu jmDx0JStiPG41nla2rZNtuudr39J1+V7iMojP21NU2o0W+ThVE11OsWnNUqF 2EGuKkMlqrxNl8BLaCfxYk0OF4PMpU/KIWUKDFf0VWuKlTCdbPjE0JQ5VCv6 L+m4f0kzpruvayWpTAua4g9yxwSF87CpBiNm2SlDSq2JUo9puARSQqtUOq1T mirNpeeP78pgdQZLpaYqcy/DOE1tyhj8vr1MnZK09EqdoxBUXZNXM+E1xZeg 1JirpSljDUYsCZcitVIb5VP0S1hqaZZA7qjYiPFaYTU/72dOqcvhos4ZeFat N+KjKUtcOnqKZjXlWBsvn1/PStJZATUl1KCt5ppnI3RNWGsw4qMpVTVaH2TR 1JgnWCWKjrdYvL5KWs1ryjb8UYpXBIuvpnxCukp+hhFhk5rKFVWaY7edX8dK Ul3B9lG4hmv2OYryCLHOqMqlKePwTh/WWTXlcxFrIa2XTui3pym5fFWw+OZT Huu21TP0+sxDg5qqmM3Tz69hJamuMJqqSjKq16dekKaYw187Kmo2ZEp6q1Uz /GXqllcIoClruIu5LhYsjnj0mj/WepnaNWmTb21pSkz6G873t5J0LUE0Zczr tRLmSPetwVJnefRo6uxY5XNDEwZF8HSppJL1fC7Ub56bfwkNz1FsFrYVIl4j /WxSGSxixKRPzGtFlC0JGzodMCvt4nDnbcWlNK8pbRVN3nThWp72sVJxQghN 8UCeGihiWN7QNy9PQ3jVUIbpdCxWmPLlKcsyrzH08wkHclF5YsSPSZsPZeFR gfIlrTm/kWhjPxPW0/y/bGEeshnnPRwXUNXflXu7APmU+SIns5l1MaCGlUT5 EJpyzJXJ0bZezsdFaq8vAFXXYGiWrN7OK2cMlFUrleJsWePqHnn5apUdFtds ovjctKa0fWy2k3yCxTABrYXghu7303bS5ZVXbJTTRBVmLl3Zk5ibyL7A9lzL Ss+t7k3qFh39WsgVmnoJ9ZZ1hkpNKw1VUy/J1tqgVU35bjIYNrWtNExNRd58 7qA1TTX1dcXb5kVWGpamIFOaz7XpkC4RWlPlFB37KBPXWWlomso3EXVSUJ/b 1JTj+4KD5zorDUtT3aflOQokAKipboGa6j8uR92jplrnnhj9vrarkA7h1BQl dpQNC2py7Kd6jXPsh5pqHfYcq+0qpEO4HHUC755QU61yfzqhpnqOW1Mn7Kda 5kSp7SqkQzg1Bc/M0yl2lA0L1FT/cWoqIf6NHWXDAgyeoKb6jVtT4N4kdpQN C1AUaqrnEEfNFqsc5b8qAvcCsaNsWJB+Kkkk/2yEb8i3l1BTPYB80UxC8VmS oKbahtlc8o/qHtyh13Ng6JcmaewoGxYJWDxNY3seCUWantMkuVwusQNtKICp oZNKsyy255FQPDw8pGlyzs6xY20onM9n6KTA7LE9j4Tiy5cv5LGZpthVtQAY GUydnBIwe2zPIwGBZ2aWpiir0FBBZbSTeoztcyQ4MCDJUvIH3qCyGgdMSoZ8 GQgqg19jextpCfA1PEIzKq2MviNvMvYP+Z1+wH7I05Z+ksPPyth7fihlp/b8 xe+JW0LcHTdUxs3BjcXvujhFnEGPJphGDQ0Y5D8+PF5oEl2ECRMMD6pcS1mB EFQeY0J7t0PKxZXlTwr5s/zvVAivePiwQ5dL9vD4iDkUgiAIcsP8D5v4hTc= "], {{0, 35.}, {142., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{142., 35.}, PlotRange->{{0, 142.}, {0, 35.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[558497]}, CellChangeTimes->{3.748380614880344*^9, 3.7857867049103875`*^9}, CellLabel->"Out[3]=", CellID->521113097] }, Open ]], Cell["This overhead becomes insignificant for larger expressions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.748380683182378*^9, 3.74838069514802*^9}}, CellID->967300916], Cell[BoxData[ RowBox[{ RowBox[{"y", "=", RowBox[{"Range", "[", "100000", "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748380662648949*^9, 3.7483806723666897`*^9}}, CellLabel->"In[4]:=", CellID->811473532], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", "y", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748380662648949*^9, 3.7483806723666897`*^9}}, CellLabel->"In[5]:=", CellID->138554444], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnUuO20YQhpVkk2WQG+QWgnbZBMjWQQ5gK5aRjQPYAYKcQRsdRSudZHY6 gUU9SUqeQcaeVHfz2e8estkkpz7P2Bqy+Kr6f/aDHPinN3+9Wnw7mUw+fg9/ vXr9z88fPrz+97cf4Iff33/88937t3/8+v7vt+/efpi++Q4W/gLfP34zmZDP TwiCIAiCIAKPj49JkuwP+yiKdjv42tEPVbgfSQS/NsqCIjG4t9QvQrgkWRD9 Zv9Alg6HA6QOEhi6hkinQNE/ffrEqSfKNMQcVEgqyr4ylxR6Kj9Gu1pgn7/y i+CuIL/iwhk7bjmNLS+XfEP64jj++vVr6GIiXXA+n5lg4EOaprfb7TNiDaQL kgapoxaMTqdT6Hoi3oFWBm6V+2h/vV5DC3DYQAIhjdAAQUpDVxXxyOPjf6zT gZZpBUgjGwziGGfEQNcCqgy9i9ByGw+kqxZFkNjQtUV8cTgc9ntS4tBaGw/X a0pn1XB0M1rYiCa00MYGDG520S50bRFf7AlRaJWNjYimNXRtEV/saYFDq2xs 7NE1o4ZU94CuaRlIKbpmxBzIdMAhtMrGBr0VoWsGzrZKbQ2U94BtTdvAjQi+ 7CqA9JPtajaZzAoWm8q6I2lssK1pGZbVMsubRZl+KMUKfdN/wDXKQkFxj4dj aJWNjSPY5nh0LgbSI3SFOlJCq2xsHNA1g0fvmhO6pnXYvci5GEiP0LrmhK5p nxO6ZvDoCnUirjmFVtnYOJGbkfw9NHTNQDC4BgitsrHBsupcDKRHoGu6Bl0z fNA1XYOuGT7omq5B1wwfdE3XoGuGD7qmaxq4ZrOYCMxmi9Wm+etr282KvNnT tmfpC1vsPMd0O3jRrrlbTqGe83WnB23ZNS2Jku26bWmXphmXbTpyDdPndHnH L1/Pp3lap/M1v9oioEm8yTXrOS/O6Vy4BFcau6YWst0sMmHWXrx1xotrmGlm Kz+WDEg3rsnkx7kmsxIocb1eMrHXI4wBHM+LN7gGdpeT+bFZ49Sua56KG3oz UfoQdm6araeWLBxduIaJk5cwXVpdwmvYGCA7jEO8pWtqq1VtpgOtu4ZfnHeL 5I1P1sujK6sdKAXiTkjrVul3zRYbxRmXptGYshpEx1bK/dpHsoBV9TSz4Z+w O5ssyS/Ns2uo0OZLXtKiIrllxgAO1/jPz3GNaE1nfLU1lQqra17Xirtriv6g yVt1lattU0TJzqW2W/tI9fivdnzbLEnw7hqiPFAZrzap+qoqNgZwuMbLV7NR 0TRbJHGNwYcWtOoauKfORD3kghB2pu7M2fShtsWxirt2MaxSHSoXnurINQsU rcZWclX2kcTbi1VtZnGbG6lqBPcsVSJ8uibzjChqufrYQIJGGQNkaxziCZxr sp5kuRNun3drehEN59zan0ObrYQuilwQGjlYuEYVIl0uNICKY6umpsUG1D5S d/oWtrEYJ/p0TdUpnGsUHZ1ysTHAboW+Q1Vr29iMRc0Skjm0pXkaz4CXmecZ LxpZ6XX6MruGRcg2lqyRHEouRkMbVFluHylHdvWuWarEeHJNXbA9dw3zBx8o zKGxabk+zaEVXTSzHLVyMLrGOAaS9Kbqh5LK27alcImk0Zv6bECB6ZysDuPL NXzXqM+uWaomxlSzAY2mA9qfQ5MPXnlB1EfnlrsWD2LjGoXyNHf7dl2jeRrM b++WpcpWHlyjmLLlXKMYhtClxgAO1/jKRhT7sZJ+qGSmfdeoOim1cIMcbF1j I1qTwST9tjZdk3uGm5FWbe+Spcq+WndNRYwyqOLUg/dMkMYAyRqX+PJE52t5 /0yxz6Zzz925phpvkoPtuMbiSaV5Plsc47foGsPMmLi9Q5Yq+2rfNevlXCAb EgBsQN2v5zV3UuMMpa1RCrqYN2Jy0CjOarZVaCmc9yRMZHXlmmKKXLK9fZYq 59LJ25viHVpQn3RyWhfA4RrPdeuKeWftk9i+jWu225XqiUm2R7puZpRD0a8R p7GFkNpj9i0deC+4NxP046fyVNp3jfBUqfoige6BrE2Wyg0CuaaYuILReP7a mFPAnWAT4w5lJ1V7PlN/YCOfQ2v2aoCnmWfVZvav6ss7VtIZBs0JmNosvsXy MK6Rn+RssVBOnTtkqYgP5hr23DAfAyleeVYHiK6x2KF4UtJHNGyZ8LyGvhja 8IFNu64R3q9SbWQjB8l0rSCyLX0PTXjDK9+54QUuwTZ+Zp5r78rlKVI/cHpy ytJTd65Bchq45jm4PeZ4qThmCV3TNZ26xvbB+cvGOUvomq7pzDVt/cLauHlW ltA1XePbNfxgGNsZGc2yhK7pmu5co/mNsRdPsyyha7qm49kAxAPomq5B1wwf XaHO6BoPnElaz87FQHqE1jWU0CobGzSp2NYMGm0PDV3jAXYvci4G0iN0hbpA dS/ompY5Xy7omoGjd80F25rWuVCci4H0CK1r4K54uYRW2dhA1wwfrWtiUt/Q KhsbkNIYXTNs9K6B8sahVTY2wDPomoFDCrVYbXJq/xEKlBcIrbKxQdqaOK5U YFtkn/x2C7pmAJBfRKpQq1kco2vah2W1UoF6AfDNsYEDHbQkTkKrbGzEkNMk CV1bxBdJck3i+Ha7hRbaeIBkQkOTpGno2iK+uL+/T5L4ml5Da208XK9XaGgg saFri/jiy5cv5MaYJNjctAKkEZIZX2JIbOjaIh6Bu2KaJGic5lDLpLSheQhd VcQ70KlIE/IHPqB3ngEkjXTMUrBMCj+GrifSEVBruEmm1Dwp/UQ+pOwf8jNd wb7J/ZSuycm2StnnbFHCNu39V3bW2bUW55+lIs0uOEtHdl3lJsUWdGmMw5mX BnTFH+4fbnQwW8qEWSITVe6WtKSwTK6xwl1DIsnsk+Zur67L/04Ka5U3ELbo dkvvHx5wLIMgCIL0nP8BOHvN5g== "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[558577]}, CellChangeTimes->{3.748380674278618*^9, 3.7857867119131775`*^9}, CellLabel->"Out[5]=", CellID->448796154] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinarySerializeWithDefinitions", "[", RowBox[{"Unevaluated", "[", "y", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748380662648949*^9, 3.7483806723666897`*^9}}, CellLabel->"In[6]:=", CellID->778700266], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnctu20YUhtV202XRN+hbGNp1U6DbFn2AxI2CblIgKVD0GbTRo2ilJ/FO TxBTV5JSbdSJezgzHHLuw2iGI9Lni53I5OHtnP/nXEgjP7z+85fZ15PJ5MO3 8Ncvr/7+8f37V//8+h388Nu7D3+8fffm95/f/fXm7Zv3N6+/gYU/wff3X00m 1ednBEEQBEEQhaenp6IoNttNlmX39/B1Tz60kX6sIuS1GQvK1OCrRbwI5ZJ0 QeSb/gNZ2m63kDpIYOoaIr0CRf/48aOknoxpiDqISypjX8wlXE/Nx+xeCLzm r/oipCuor5g7415aTmKby62+IX15nn/+/Dl1MZE+OBwOVDDwoSzL8/n8L+IN pAuSBqkjFsz2+33qeiLRgVYGbpWbbHM6nVILcNhAAiGN0ABBSlNXFYnI09N/ tNOBlgkCpJEOBnGMM2KgawFVht5FarmNh6qrlmWQ2NS1RWKx3W43m6rEqbU2 Hk6nksyq4ehmtNARTWqhjQ0Y3Nxn96lri8RiU5GlVtnYyEhaU9cWicWGFDi1 ysbGBl0zaqrqbtE1gYGUomtGzLaaDtimVtnYILcidM3AWbcR1kB5t9jWhAZu RPDlVwHkOlkvppPJlDNbtdbtqsYG25rA0Kw2WV7NmvRDKRbom+sHXGMsFBR3 t92lVtnY2IFtdrvOxUCuCFuhdoTUKhsbW3TN4LG7Zo+uCQ69F3UuBnJFWF2z R9eEZ4+uGTy2Qu0r1+xTq2xs7Kubkf49NHTNQHC4BkitsrFBs9q5GMgVga7p G3TN8EHX9A26Zviga/oGXTN80DV9g64ZPuiavrnANavZRGE6nS1Wl7++tl4t qjd7QnuWvLBFz3NMt4MX7Zq7+Q3U83bZ60EDuyaQKOmuQ0u7Mc24bNOTa6g+ b+Z38vLl7U2d1pvbpbzaI0AMnjfREK4cTntWZtcsb2Vxuvfp5GLXCCHr1YwJ U3jxtjNRXENNM13EsWRC+nENk5/kGmYlUOKylrsY4QzQHASCIZrbx9qQeLkG Dl/DHHlZ4xTWNc/8hn6ZKGMIuzbNOlJLlo4+XEPFKUueLG0vkTXsDJBYgl0E S1HRWxoHL9cIq01tZgeCu0ZeXHeL9I0P6+WRle0OlAF1J1Xr1up3TWcrwxk3 prGYsh1ExlbG/fpH0oBF+zTZ8E/ZnU+W9JcW2TVEaNAASBZQFSktcwa4cYV3 d41q5c7EamtaFTbXXNRKd9fw/qDLW6LKzbbhUbpzEXbrH2ke/wnH982Shuiu qZQHKpPVplVfW8XOAM9jd3MNHUXdsEWa7Tv6VkNQ18A9darqoRaEsjNzZ86n D7Xmx+J3bT6sMh2qFp7pyIIFeKux1lyVf2Tl7dlCmFlc10ZqG6F7lloRMV3D PKOaQK++Vp/KGeDG2S5IrmE9yeag0jncLckOL5xzCz+HNl0oXRS9ICxy8HCN KUS7XGkADcc2TU2rDah/pO30PWzjMU6M6Zq2aiUFGwTdLHYGuHE7TGjb6GSC YAnNHNrcMY3nJsrM81QWja70Nn25XUMjdBtr1mgOpRejow1qLfeP1KO7+q5Z asVEco0o8L5d4zVsb1zD5t+kcGUOjU7jXdMcGu+iueVolYPTNc4xkKY3JR5K K2/flqJLJIleibMBHNc5eR0mlmvkG32frmHPeNzmYq6Zmxxmmg24aDog/Bya fvAqC0IcnXvuWj2Ij2sMyrPc7cO6xvI0WN6+W5ZaW0VwjWHKVnKNYdhCljoD DHDH+PSk+JS4wQfao3UaWmkI7xpTJ0UId8jB1zU+onUZTNNvC+ma2jPSjLRp +y5Zau0ruGtaYtRBFGce7DNBOgOMB/ZXdG1Nff/McA6Xzj3355p2vEsOvuMa jyeV7vlsdYwf0DWOmTF1+w5Zau0rvGuW81sFNiQAaDMQ/nlNdzk3Ddqd1jhD aWuMgubzRlQOFsV5zbYqLUXnPSkTWX25hk+Ra7b3z1LrXHp5e1OVtKI+7eS0 LUDE3gyZT6q2BZ93tj6JvbZxzXq9MD0xYXsk66ZOOfB+jTqNrYQIj9nXZOA9 k95MsI+fmlMJ7xrlqVL7RQLbA1mfLDUbJHKN+OLYXDeAtwfcCbZiclYbuVvz C5fy4Im9KcoX6OfQLns1INLMs2kz/1f19R0r7QyD5QRcbZbcYkUY1+hPcjqb GafOO2SJxydzDX1uWI+BDK88mwNE16jPVjjG2QPNlAPbDV2m7JO8SHrhA5uw rlHerzJt5CMHzXStIrI1eQ9NecOr3rnjBS7FNnFmnoV35eoUmR84PXfK0nN/ rkFqLnDNl9DtMcdLpWOW0DV906trfB+cv2w6Zwld0ze9uSbUL6yNmy/KErqm b2K7Rh4MYzuj47IsoWv6pj/XWH5j7MVzWZbQNX3T82wAEgF0Td+ga4aPrVAH dE0EDlVaD52LgVwRVtcQUqtsbJCkYlszaKw9NHRNBOi9qHMxkCvCVqgjVPeI rgnM4XhE1wwcu2uO2NYE50joXAzkirC6Bu6Kx2NqlY0NdM3wsbomr+qbWmVj A1Kao2uGjd01UN48tcrGBngGXTNwqkLNFqsa4T9CgfICqVU2Nqq2Js9bFVjz 7Fe/3YKuGQDVLyK1EGqW5+ia8NCstiogFgDfHBs40EEr8iK1ysZGDjktitS1 RWJRFKciz8/nc2qhjQdIJjQ0RVmmri0Si4eHh6LIT+UptdbGw+l0goYGEpu6 tkgsPn36VN0YiwKbmyBAGiGZ+TGHxKauLRIRuCuWRYHGuRximZI0NI+pq4pE BzoVZVH9gQ/onS8AklZ1zEqwTAk/pq4n0hNQa7hJlsQ8JflUfSjpP9XPZAX9 ru6nZE0N26qkn9migm569V/srNm18vNnqSjZBbN0sOtqNuFbkKU5DmdeGtAV f3x4PJPBbCMTagkmqtotZQO3TK0x7q4hUTD7lLXb2+vqvwtureYGQhedz+XD 4yOOZRAEQZAr538qjeX1 "], {{0, 35.}, {137., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{137., 35.}, PlotRange->{{0, 137.}, {0, 35.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[558657]}, CellChangeTimes->{3.7483806742896423`*^9, 3.785786712021174*^9}, CellLabel->"Out[6]=", CellID->558228562] }, 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["binary serialize", "Item", CellID->35852736], Cell["serialize", "Item", CellID->675893631], Cell["definitions", "Item", CellID->70550229], 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["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["BinaryDeserialize", "Item", CellID->397838408], Cell["ExportByteArray", "Item", CellID->50977157], Cell["IncludeDefinitions", "Item", CellID->942407556], Cell["Definition", "Item", CellID->739956698], Cell["FullDefinition", "Item", CellID->100981271], Cell["BinarySerialize", "Item", CellID->651146901] }, 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["CompressWithDefinitions", "Item", CellID->215315340], Cell["PrintDefinitions", "Item", CellID->2994739], Cell["DefinitionData", "Item", CellID->128372319], Cell["CopyDefinitions", "Item", CellID->469398715], Cell["ResourceFunctionDefinitionViewer", "Item", CellID->356563292], Cell["PrintDefinitionCases", "Item", CellID->620172233], Cell["HasDefinitionsQ", "Item", CellID->928704392] }, 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->"TabNext", CellID->91842863] }, 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["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "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->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->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->"TabNext", CellID->991784503] }, 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->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BinarySerializeWithDefinitions | 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.846247007394914`16.337612160509096*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.846247007443503`16.337612160514585*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ 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], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, 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) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[646, 23, 113, 2, 70, "Title",ExpressionUUID->"a1f6850c-6292-4815-b3e2-da8ec69b0d74", CellTags->{"Name", "TemplateCell", "Title"}, CellID->588284366]}, "TemplateCell"->{ Cell[646, 23, 113, 2, 70, "Title",ExpressionUUID->"a1f6850c-6292-4815-b3e2-da8ec69b0d74", CellTags->{"Name", "TemplateCell", "Title"}, CellID->588284366], Cell[762, 27, 140, 2, 70, "Text",ExpressionUUID->"9e38d90d-61b7-4cb4-9f73-a78098554147", CellTags->{"Description", "TemplateCell"}, CellID->824951870]}, "Title"->{ Cell[646, 23, 113, 2, 70, "Title",ExpressionUUID->"a1f6850c-6292-4815-b3e2-da8ec69b0d74", CellTags->{"Name", "TemplateCell", "Title"}, CellID->588284366]}, "Description"->{ Cell[762, 27, 140, 2, 70, "Text",ExpressionUUID->"9e38d90d-61b7-4cb4-9f73-a78098554147", CellTags->{"Description", "TemplateCell"}, CellID->824951870]}, "Definition"->{ Cell[927, 33, 1104, 27, 70, "Section",ExpressionUUID->"a1e3a02c-7e1e-4d1d-b052-5456598ecc6a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[927, 33, 1104, 27, 70, "Section",ExpressionUUID->"a1e3a02c-7e1e-4d1d-b052-5456598ecc6a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[927, 33, 1104, 27, 70, "Section",ExpressionUUID->"a1e3a02c-7e1e-4d1d-b052-5456598ecc6a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[12035, 328, 1880, 48, 70, "Subsection",ExpressionUUID->"a63c0a91-e1e1-4ed0-b15a-cc71c62879d5", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[14861, 415, 1329, 30, 70, "Subsection",ExpressionUUID->"789890e7-37c1-49b2-be67-25183aecdd01", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[25338, 763, 6926, 150, 70, "Section",ExpressionUUID->"fbe403b1-3c6a-4c1c-b938-442f586d49e3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[116666, 3002, 918, 24, 70, "Subsection",ExpressionUUID->"edc0ba4a-aff7-4d59-bc97-d7c952c0f727", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[117695, 3034, 893, 24, 70, "Subsection",ExpressionUUID->"876e0fc4-64f3-4550-b0c5-5bc88995f87a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[118840, 3075, 167, 5, 70, "Subsection",ExpressionUUID->"d2c6e8ba-402c-4d8b-bb81-d562fd712f93", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[119104, 3088, 870, 24, 70, "Subsection",ExpressionUUID->"77b82123-dad0-481f-b986-5dbd9119b4b8", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[120333, 3135, 919, 24, 70, "Subsection",ExpressionUUID->"5db8b03d-255f-408d-9d29-a4fee774d5d3", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[121695, 3185, 971, 25, 70, "Subsection",ExpressionUUID->"6731760a-c36d-4b9a-a43a-e5f988e5172c", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[123201, 3225, 823, 24, 70, "Subsection",ExpressionUUID->"54975ad2-cafe-4026-b7cd-52b8c3aa8263", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[124549, 3264, 1762, 43, 70, "Subsection",ExpressionUUID->"c795125a-f51a-4900-9c3c-6bfb6f4642f3", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[126622, 3327, 1048, 26, 70, "Section",ExpressionUUID->"87141458-6de5-471b-a49f-f1409b1e04a2", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[128219, 3368, 929, 25, 70, "Section",ExpressionUUID->"aed38aac-78b1-4627-8b5b-b002c6995630", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "Documentation"->{ Cell[11873, 320, 137, 4, 70, "Section",ExpressionUUID->"44733502-7656-4d0c-bef4-e94728c67576", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[11873, 320, 137, 4, 70, "Section",ExpressionUUID->"44733502-7656-4d0c-bef4-e94728c67576", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[116467, 2994, 174, 4, 70, "Section",ExpressionUUID->"c73974c4-0338-4833-b387-ca5403a4cd6e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[12035, 328, 1880, 48, 70, "Subsection",ExpressionUUID->"a63c0a91-e1e1-4ed0-b15a-cc71c62879d5", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[14861, 415, 1329, 30, 70, "Subsection",ExpressionUUID->"789890e7-37c1-49b2-be67-25183aecdd01", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[14861, 415, 1329, 30, 70, "Subsection",ExpressionUUID->"789890e7-37c1-49b2-be67-25183aecdd01", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Examples"->{ Cell[25338, 763, 6926, 150, 70, "Section",ExpressionUUID->"fbe403b1-3c6a-4c1c-b938-442f586d49e3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[116467, 2994, 174, 4, 70, "Section",ExpressionUUID->"c73974c4-0338-4833-b387-ca5403a4cd6e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[116666, 3002, 918, 24, 70, "Subsection",ExpressionUUID->"edc0ba4a-aff7-4d59-bc97-d7c952c0f727", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[116666, 3002, 918, 24, 70, "Subsection",ExpressionUUID->"edc0ba4a-aff7-4d59-bc97-d7c952c0f727", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[117695, 3034, 893, 24, 70, "Subsection",ExpressionUUID->"876e0fc4-64f3-4550-b0c5-5bc88995f87a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[118840, 3075, 167, 5, 70, "Subsection",ExpressionUUID->"d2c6e8ba-402c-4d8b-bb81-d562fd712f93", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[119104, 3088, 870, 24, 70, "Subsection",ExpressionUUID->"77b82123-dad0-481f-b986-5dbd9119b4b8", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[120333, 3135, 919, 24, 70, "Subsection",ExpressionUUID->"5db8b03d-255f-408d-9d29-a4fee774d5d3", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[121695, 3185, 971, 25, 70, "Subsection",ExpressionUUID->"6731760a-c36d-4b9a-a43a-e5f988e5172c", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "TabNext"->{ Cell[122669, 3212, 495, 8, 70, "Text",ExpressionUUID->"1c466eed-8453-446e-8a32-0b4da0a5a47f", CellTags->"TabNext", CellID->91842863], Cell[124027, 3251, 485, 8, 70, "Item",ExpressionUUID->"45b1a208-873d-4e3f-bc0f-18f076df21ce", CellTags->"TabNext", CellID->515049506], Cell[127673, 3355, 509, 8, 70, "Text",ExpressionUUID->"b950f83b-2a92-45f4-9c90-6af0bdfad6af", CellTags->"TabNext", CellID->991784503], Cell[129151, 3395, 495, 8, 70, "Text",ExpressionUUID->"b045f341-25e6-4f16-a1b3-16fa02220d23", CellTags->"TabNext", CellID->932041030]}, "Links"->{ Cell[123201, 3225, 823, 24, 70, "Subsection",ExpressionUUID->"54975ad2-cafe-4026-b7cd-52b8c3aa8263", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[124549, 3264, 1762, 43, 70, "Subsection",ExpressionUUID->"c795125a-f51a-4900-9c3c-6bfb6f4642f3", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[124549, 3264, 1762, 43, 70, "Subsection",ExpressionUUID->"c795125a-f51a-4900-9c3c-6bfb6f4642f3", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[126622, 3327, 1048, 26, 70, "Section",ExpressionUUID->"87141458-6de5-471b-a49f-f1409b1e04a2", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[128219, 3368, 929, 25, 70, "Section",ExpressionUUID->"aed38aac-78b1-4627-8b5b-b002c6995630", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 241553, 5542}, {"TemplateCell", 241736, 5546}, {"Title", 242072, 5553}, {"Description", 242254, 5557}, {"Definition", 242432, 5561}, {"Function", 242629, 5565}, {"TemplateCellGroup", 242835, 5569}, {"Documentation", 245404, 5612}, {"TemplateSection", 245597, 5616}, {"Usage", 245971, 5623}, {"Details & Options", 246166, 5627}, {"Notes", 246370, 5631}, {"Examples", 246577, 5635}, {"Source & Additional Information", 246787, 5639}, {"Contributed By", 247000, 5643}, {"ContributorInformation", 247236, 5647}, {"Keywords", 247458, 5651}, {"Categories", 247650, 5655}, {"Related Symbols", 247848, 5659}, {"Related Resource Objects", 248061, 5663}, {"Source/Reference Citation", 248283, 5667}, {"TabNext", 248489, 5671}, {"Links", 249073, 5684}, {"Tests", 249257, 5688}, {"VerificationTests", 249475, 5692}, {"Author Notes", 249688, 5696}, {"Submission Notes", 249888, 5700} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[646, 23, 113, 2, 70, "Title",ExpressionUUID->"a1f6850c-6292-4815-b3e2-da8ec69b0d74", CellTags->{"Name", "TemplateCell", "Title"}, CellID->588284366], Cell[762, 27, 140, 2, 70, "Text",ExpressionUUID->"9e38d90d-61b7-4cb4-9f73-a78098554147", CellTags->{"Description", "TemplateCell"}, CellID->824951870], Cell[CellGroupData[{ Cell[927, 33, 1104, 27, 70, "Section",ExpressionUUID->"a1e3a02c-7e1e-4d1d-b052-5456598ecc6a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2034, 62, 1467, 38, 70, "Code",ExpressionUUID->"59afb7fd-b617-4eed-a145-146581aa081a", InitializationCell->True, CellID->15305383], Cell[3504, 102, 1237, 31, 70, "Code",ExpressionUUID->"4c5dc589-f5a7-4f5f-bd76-dab6391622b3", InitializationCell->True, CellID->774404670], Cell[4744, 135, 3807, 90, 70, "Code",ExpressionUUID->"7e302bfe-a6ad-4bae-9b35-10d42b7653c0", InitializationCell->True, CellID->463477712], Cell[8554, 227, 1457, 35, 70, "Code",ExpressionUUID->"bb709740-6bff-49d9-b9a5-640ea9b7aee6", InitializationCell->True, CellID->95842164], Cell[10014, 264, 834, 23, 70, "Code",ExpressionUUID->"2213c86a-1378-4438-bcc4-6fc7618feb2f", InitializationCell->True, CellID->317763533], Cell[10851, 289, 985, 26, 70, "Code",ExpressionUUID->"c03cafc9-0903-4967-b789-328878be9b08", InitializationCell->True, CellID->425862619] }, Open ]], Cell[CellGroupData[{ Cell[11873, 320, 137, 4, 70, "Section",ExpressionUUID->"44733502-7656-4d0c-bef4-e94728c67576", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[12035, 328, 1880, 48, 70, "Subsection",ExpressionUUID->"a63c0a91-e1e1-4ed0-b15a-cc71c62879d5", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[13940, 380, 163, 4, 70, "UsageInputs",ExpressionUUID->"123a1a68-4ee3-492d-b5cb-89824967fd3d", CellID->186205492], Cell[14106, 386, 706, 23, 70, "UsageDescription",ExpressionUUID->"713e120a-1509-48a4-98ac-bb369e5b742f", CellID->421369284] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14861, 415, 1329, 30, 70, "Subsection",ExpressionUUID->"789890e7-37c1-49b2-be67-25183aecdd01", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[16193, 447, 179, 5, 70, "Notes",ExpressionUUID->"9cb74d90-5f2e-41c1-b780-0e58cf353e39", CellID->241874346], Cell[16375, 454, 2058, 62, 70, "TableNotes",ExpressionUUID->"7245ae95-ed57-49dd-a727-19b048325618", CellID->668339502], Cell[18436, 518, 578, 19, 70, "Notes",ExpressionUUID->"a3b255f0-41d8-4b9c-92cb-4853d27ef6e8", CellID->430793311], Cell[19017, 539, 845, 24, 70, "TableNotes",ExpressionUUID->"90793bfe-9e42-421d-8e82-5dd7177734b6", CellID->986508350], Cell[19865, 565, 560, 19, 70, "Notes",ExpressionUUID->"a79889fe-154e-44d5-98ff-fd935ff568a3", CellID->956006532], Cell[20428, 586, 1007, 33, 70, "TableNotes",ExpressionUUID->"002420ae-9f40-4a5b-a9d4-379b83b92cc9", CellID->716177826], Cell[21438, 621, 229, 9, 70, "Notes",ExpressionUUID->"2ccbdd1b-d414-42ab-b38c-26490a6a42da", CellID->555145277], Cell[21670, 632, 403, 10, 70, "TableNotes",ExpressionUUID->"350b0294-de65-4897-98b2-429e10c8f7ca", CellID->565177037], Cell[22076, 644, 914, 30, 70, "Notes",ExpressionUUID->"5f955101-cc6d-4776-8939-3c5ba6c9cb44", CellID->377232020], Cell[22993, 676, 527, 18, 70, "Notes",ExpressionUUID->"ead8998e-9350-4711-b18c-966242d47e65", CellID->758633477], Cell[23523, 696, 544, 18, 70, "Notes",ExpressionUUID->"d498d6d9-6cdf-4734-9b31-3607399d0278", CellID->510011983], Cell[24070, 716, 892, 28, 70, "Notes",ExpressionUUID->"77691260-f820-4ffb-b307-4a5735c0acdf", CellID->482439829], Cell[24965, 746, 324, 11, 70, "Notes",ExpressionUUID->"36a53b74-4ca8-49c8-b870-7a344beba277", CellID->719749662] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25338, 763, 6926, 150, 70, "Section",ExpressionUUID->"fbe403b1-3c6a-4c1c-b938-442f586d49e3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[32289, 917, 75, 2, 70, "Subsection",ExpressionUUID->"e6862e2b-c743-49e0-be1b-bae84182d524", CellID->904125756], Cell[32367, 921, 106, 2, 70, "Text",ExpressionUUID->"4e711c9c-bf74-4cc5-8617-6241f34ea9fe", CellID->320527229], Cell[CellGroupData[{ Cell[32498, 927, 514, 16, 70, "Input",ExpressionUUID->"f5cbcb9c-20ea-43f7-aee8-2afe8fd152f3", CellID->447860353], Cell[33015, 945, 3822, 70, 70, "Output",ExpressionUUID->"e13d0e95-50f2-4321-94a4-7fb987acc7ac", CellID->881532059] }, Open ]], Cell[36852, 1018, 98, 2, 70, "Text",ExpressionUUID->"81492773-00c8-436b-9b74-bd6fe596f71d", CellID->198847942], Cell[CellGroupData[{ Cell[36975, 1024, 272, 9, 70, "Input",ExpressionUUID->"e12a19ad-dcc5-418d-a8e3-266a56b7220a", CellID->858566163], Cell[37250, 1035, 232, 5, 70, "Output",ExpressionUUID->"169f8453-4d2b-4d2d-bc18-6b119fd8e13e", CellID->854246530] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37531, 1046, 157, 3, 70, "Subsection",ExpressionUUID->"5bd0a401-7cdb-4c11-898d-5e69bb29694b", CellID->930189548], Cell[37691, 1051, 161, 5, 70, "Text",ExpressionUUID->"822c6a46-3b20-464f-ae37-2712fb735187", CellID->74761444], Cell[37855, 1058, 574, 20, 70, "Input",ExpressionUUID->"853fa66c-016c-4963-b744-d3cfc4aa75db", CellID->827187164], Cell[CellGroupData[{ Cell[38454, 1082, 166, 5, 70, "Input",ExpressionUUID->"92441f36-da67-4d4d-a98f-c169d06e1e4e", CellID->767515071], Cell[38623, 1089, 1063, 33, 70, "Output",ExpressionUUID->"d8690c9a-5e0a-4a65-938c-358bf684b110", CellID->415067106] }, Open ]], Cell[39701, 1125, 667, 20, 70, "Text",ExpressionUUID->"7e25516d-8e92-40fc-936f-39f20d1fa7c7", CellID->460366428], Cell[CellGroupData[{ Cell[40393, 1149, 223, 7, 70, "Input",ExpressionUUID->"7e120394-95ba-42a5-bfe8-4656520bb3c3", CellID->651163392], Cell[40619, 1158, 3590, 66, 70, "Output",ExpressionUUID->"2cce4969-b48e-4f2c-aff7-c2e558e6ab3a", CellID->423611899] }, Open ]], Cell[CellGroupData[{ Cell[44246, 1229, 238, 7, 70, "Input",ExpressionUUID->"3a9ab972-ec30-4db3-8842-e5b1b6e4339e", CellID->370168854], Cell[44487, 1238, 3635, 67, 70, "Output",ExpressionUUID->"8cee2ce6-72ab-48f2-99b9-3df353782fa8", CellID->928848139] }, Open ]], Cell[48137, 1308, 165, 6, 70, "Input",ExpressionUUID->"e7001ac2-0702-471d-8330-80934ca8a767", CellID->410646500], Cell[CellGroupData[{ Cell[48327, 1318, 133, 4, 70, "Input",ExpressionUUID->"dfec4f65-98bd-40e6-a694-ff46c2519f63", CellID->728711374], Cell[48463, 1324, 183, 5, 70, "Output",ExpressionUUID->"4df5e836-4e7c-492d-8e49-965c7438e21e", CellID->986452900] }, Open ]], Cell[CellGroupData[{ Cell[48683, 1334, 133, 4, 70, "Input",ExpressionUUID->"29c73f97-885c-4743-9853-b05ba6636a2b", CellID->53892603], Cell[48819, 1340, 156, 4, 70, "Output",ExpressionUUID->"4d2992a2-73ff-4363-af50-173b72421c8e", CellID->120533457] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[49024, 1350, 68, 2, 70, "Subsection",ExpressionUUID->"ac6324be-663a-4580-805d-0e2ee14052b3", CellID->890561554], Cell[CellGroupData[{ Cell[49117, 1356, 149, 3, 70, "Subsubsection",ExpressionUUID->"c4477cf7-ca62-4b7c-8d60-d5710dc24b10", CellID->424208364], Cell[49269, 1361, 629, 21, 70, "Text",ExpressionUUID->"e9823368-cb47-42ed-98a4-996a31f77d38", CellID->906460398], Cell[CellGroupData[{ Cell[49923, 1386, 283, 8, 70, "Input",ExpressionUUID->"5aa1e1a1-cacf-44d7-9a93-a5b3739447e6", CellID->392460480], Cell[50209, 1396, 5575, 99, 70, "Output",ExpressionUUID->"3c196c9f-f17f-4f62-bb8e-472a820d4a53", CellID->493008231] }, Open ]], Cell[55799, 1498, 1232, 40, 70, "Text",ExpressionUUID->"346cde02-14e7-4e83-9a55-9e846ab9056a", CellID->150310188], Cell[CellGroupData[{ Cell[57056, 1542, 381, 11, 70, "Input",ExpressionUUID->"832bfcdc-1367-4a77-8bb5-eb0b40142bd4", CellID->796441481], Cell[57440, 1555, 3629, 67, 70, "Output",ExpressionUUID->"d2e828af-fded-4181-aac0-31c87d3c79c0", CellID->661117599] }, Open ]], Cell[61084, 1625, 96, 2, 70, "Text",ExpressionUUID->"a257af9b-6565-4abb-a119-ff7890c8c700", CellID->416193098], Cell[CellGroupData[{ Cell[61205, 1631, 211, 6, 70, "Input",ExpressionUUID->"7a99b8d4-6814-40e1-8418-53e85b2acc9c", CellID->725921744], Cell[61419, 1639, 188, 5, 70, "Output",ExpressionUUID->"4202f619-f46d-41eb-b9fe-86e412cd7e1c", CellID->184226572] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[61656, 1650, 137, 3, 70, "Subsubsection",ExpressionUUID->"fb33d844-c941-45bb-8099-b00550cf9f6b", CellID->59556078], Cell[61796, 1655, 95, 2, 70, "Text",ExpressionUUID->"24834f49-4d10-466f-b08a-b60440442445", CellID->197070904], Cell[61894, 1659, 321, 10, 70, "Input",ExpressionUUID->"e7585755-5118-4dfd-bcc0-09c9be198602", CellID->623625939], Cell[62218, 1671, 359, 9, 70, "Text",ExpressionUUID->"11bfa9c6-ce61-431e-b970-58107e4fdcaa", CellID->380400011], Cell[CellGroupData[{ Cell[62602, 1684, 194, 5, 70, "Input",ExpressionUUID->"c05a4d0d-bba7-4766-b173-8f34927b1975", CellID->962940126], Cell[62799, 1691, 3586, 67, 70, "Output",ExpressionUUID->"5d9febfd-623f-4c19-a696-a65e04cf6489", CellID->827288962] }, Open ]], Cell[66400, 1761, 110, 2, 70, "Text",ExpressionUUID->"d4c13e7d-d0b5-418b-921d-dc258651c8d9", CellID->411410400], Cell[CellGroupData[{ Cell[66535, 1767, 336, 10, 70, "Input",ExpressionUUID->"89d402e9-da23-44a6-8a9c-0cad333adf85", CellID->249857390], Cell[66874, 1779, 3613, 67, 70, "Output",ExpressionUUID->"cab0db9e-82db-4fc7-ab51-f394dbf3e406", CellID->488677110] }, Open ]], Cell[CellGroupData[{ Cell[70524, 1851, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5aeb6415-0fb5-4292-9d28-ab51cfb01ee5", CellID->14107562], Cell[70670, 1857, 92, 2, 70, "Text",ExpressionUUID->"284c0f9e-9032-49e8-8704-3ed24314dc64", CellID->174269961], Cell[CellGroupData[{ Cell[70787, 1863, 176, 6, 70, "Input",ExpressionUUID->"4954fc1c-d015-46e0-82e6-7da29d343bbd", CellID->525638537], Cell[70966, 1871, 330, 10, 70, "Output",ExpressionUUID->"0bffbfd3-f682-48fa-9715-ee7ed4aab3b1", CellID->492380781] }, Open ]], Cell[71311, 1884, 75, 2, 70, "Text",ExpressionUUID->"60a5d1c6-7997-494c-8cc4-fd7874373184", CellID->930093184], Cell[CellGroupData[{ Cell[71411, 1890, 221, 6, 70, "Input",ExpressionUUID->"46d519d8-afef-43d7-bc46-f9d1b7058271", CellID->528452095], Cell[71635, 1898, 3699, 69, 70, "Output",ExpressionUUID->"f985abdf-3306-4ae9-9b11-be55532cef38", CellID->288971399] }, Open ]], Cell[75349, 1970, 146, 5, 70, "Text",ExpressionUUID->"add2d421-e1d8-423a-9038-bbbb0e45a2bf", CellID->685684502], Cell[CellGroupData[{ Cell[75520, 1979, 356, 10, 70, "Input",ExpressionUUID->"3fb95de6-2495-4c6d-a7f2-a24482f1a5c0", CellID->111877261], Cell[75879, 1991, 3637, 68, 70, "Output",ExpressionUUID->"f8a4cdc4-b6a8-4ec0-a777-5f729f435d2c", CellID->488677111] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79565, 2065, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"22d8aafc-4ea8-40ac-b26e-55db3f05dff5", CellID->14107563], Cell[79711, 2071, 95, 2, 70, "Text",ExpressionUUID->"eb164741-1d72-40c6-a7c9-1eac3251c661", CellID->718516347], Cell[CellGroupData[{ Cell[79831, 2077, 218, 7, 70, "Input",ExpressionUUID->"8ad8a19d-3cb4-4018-b582-f40062758ca1", CellID->900048016], Cell[80052, 2086, 623, 15, 70, "Output",ExpressionUUID->"57ab8869-9a9b-46c4-b2c0-01c26a770dd9", CellID->901249261] }, Open ]], Cell[80690, 2104, 75, 2, 70, "Text",ExpressionUUID->"2572424a-056a-42ab-9a76-fd4d583d9aea", CellID->930093185], Cell[CellGroupData[{ Cell[80790, 2110, 197, 5, 70, "Input",ExpressionUUID->"4db44419-eb18-4f1d-9d64-9a6b089cab83", CellID->613737175], Cell[80990, 2117, 3679, 69, 70, "Output",ExpressionUUID->"2a44138e-2633-451b-8a78-1cc81f5540fc", CellID->596379912] }, Open ]], Cell[84684, 2189, 97, 2, 70, "Text",ExpressionUUID->"a48a9e29-b759-46ee-a47f-b31fb6ee9ec7", CellID->254470000], Cell[CellGroupData[{ Cell[84806, 2195, 367, 11, 70, "Input",ExpressionUUID->"abcb1d73-d91d-487f-89e2-e511101051bd", CellID->347550415], Cell[85176, 2208, 3702, 69, 70, "Output",ExpressionUUID->"17c9144e-7b83-485b-9c5e-9f93f95983e6", CellID->855760235] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[88951, 2285, 73, 2, 70, "Subsection",ExpressionUUID->"e00eb699-d50c-437e-b926-e00886a2db98", CellID->605265931], Cell[89027, 2289, 1240, 38, 70, "Text",ExpressionUUID->"0065a895-1b1b-4a67-b60a-11a832e11dfe", CellID->728551191], Cell[90270, 2329, 913, 28, 70, "Input",ExpressionUUID->"733947ca-af3a-4a2a-ad3a-25cc26d44d96", CellID->286708795], Cell[CellGroupData[{ Cell[91208, 2361, 541, 16, 70, "Input",ExpressionUUID->"3b840976-fbfa-4b87-bee4-9b24e97d5770", CellID->235015610], Cell[91752, 2379, 530, 13, 70, "Output",ExpressionUUID->"189e7653-7dc0-45d0-a534-ded808c96656", CellID->421982758] }, Open ]], Cell[CellGroupData[{ Cell[92319, 2397, 134, 4, 70, "Input",ExpressionUUID->"eeedd8bc-62e4-48e1-91a1-d67823dd3144", CellID->879662546], Cell[92456, 2403, 1008, 27, 70, "Output",ExpressionUUID->"2eab2527-908d-43d5-9590-d5247f117c74", CellID->338150969] }, Open ]], Cell[CellGroupData[{ Cell[93501, 2435, 134, 4, 70, "Input",ExpressionUUID->"89cdf8d3-2d14-4c75-892e-9f93c559786f", CellID->949447331], Cell[93638, 2441, 992, 27, 70, "Output",ExpressionUUID->"b6340b18-8ed2-491b-8159-e801bb4e9f3c", CellID->438394193] }, Open ]], Cell[94645, 2471, 69, 2, 70, "Text",ExpressionUUID->"7814c703-6a4f-42f2-9f12-f3305d56e93a", CellID->595648946], Cell[CellGroupData[{ Cell[94739, 2477, 242, 6, 70, "Input",ExpressionUUID->"bf93332b-7d79-429e-bf66-0121925f5e12", CellID->526110079], Cell[94984, 2485, 1926, 51, 70, "Output",ExpressionUUID->"49603a68-c898-446f-850a-04f2e14c1bd9", CellID->539340803] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[96959, 2542, 85, 2, 70, "Subsection",ExpressionUUID->"50f2ad54-959e-4c8b-af09-dc15584457b0", CellID->232113220], Cell[97047, 2546, 1440, 42, 70, "Text",ExpressionUUID->"12b30f0f-3268-4316-8b8d-265831f5c054", CellID->504207457], Cell[CellGroupData[{ Cell[98512, 2592, 430, 11, 70, "Input",ExpressionUUID->"c40a42bd-aefa-4161-b2eb-c5e77c36c4e1", CellID->312782908], Cell[98945, 2605, 157, 4, 70, "Output",ExpressionUUID->"51ea02cf-7a77-4b43-a09b-c860946cf64a", CellID->738293886] }, Open ]], Cell[99117, 2612, 192, 5, 70, "Text",ExpressionUUID->"b80bd0fb-5de3-47b1-af78-5a3a1b22a0b0", CellID->566926668], Cell[CellGroupData[{ Cell[99334, 2621, 549, 15, 70, "Input",ExpressionUUID->"72777cb1-c3e5-4c3c-a7cd-d3492ea0fc14", CellID->891610767], Cell[99886, 2638, 158, 4, 70, "Output",ExpressionUUID->"9e18a621-c83a-4430-bddd-d2da0145839f", CellID->282530333] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[100093, 2648, 76, 2, 70, "Subsection",ExpressionUUID->"d1e4e521-32cc-4270-aa56-0bec61a6a109", CellID->158766396], Cell[100172, 2652, 232, 6, 70, "Text",ExpressionUUID->"ec599d5f-bf0e-4d7e-9ebf-df7b05e30225", CellID->811177428], Cell[100407, 2660, 199, 6, 70, "Input",ExpressionUUID->"425cf1e3-eb62-4b4d-8bc7-61da7dbf5435", CellID->433812460], Cell[CellGroupData[{ Cell[100631, 2670, 215, 5, 70, "Input",ExpressionUUID->"148f3fc8-3d19-4f6e-bccf-343c393cc224", CellID->708843829], Cell[100849, 2677, 3534, 64, 70, "Output",ExpressionUUID->"68964810-0ab3-4c4f-bc48-a220339b4937", CellID->763004391] }, Open ]], Cell[CellGroupData[{ Cell[104420, 2746, 253, 6, 70, "Input",ExpressionUUID->"b69570a6-4d92-4189-bca4-6d3d1163ee1b", CellID->494423022], Cell[104676, 2754, 3715, 67, 70, "Output",ExpressionUUID->"2ccf370f-f939-4b69-9058-82ff4580409c", CellID->521113097] }, Open ]], Cell[108406, 2824, 179, 3, 70, "Text",ExpressionUUID->"6ec982de-a684-4ab4-8003-5637af6978bc", CellID->967300916], Cell[108588, 2829, 235, 7, 70, "Input",ExpressionUUID->"f78a5493-0511-4860-a4b7-76cbd6383ebe", CellID->811473532], Cell[CellGroupData[{ Cell[108848, 2840, 213, 5, 70, "Input",ExpressionUUID->"21e6ed32-48ff-4acb-a07c-c7ea875ef64a", CellID->138554444], Cell[109064, 2847, 3499, 63, 70, "Output",ExpressionUUID->"1c1554df-92d0-4156-8497-b6115011b456", CellID->448796154] }, Open ]], Cell[CellGroupData[{ Cell[112600, 2915, 251, 6, 70, "Input",ExpressionUUID->"e3bc5efb-ab40-490c-9671-4ac589b235e8", CellID->778700266], Cell[112854, 2923, 3552, 64, 70, "Output",ExpressionUUID->"1a07d1f1-4d3c-4150-9d3a-f7ac368a9f43", CellID->558228562] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[116467, 2994, 174, 4, 70, "Section",ExpressionUUID->"c73974c4-0338-4833-b387-ca5403a4cd6e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[116666, 3002, 918, 24, 70, "Subsection",ExpressionUUID->"edc0ba4a-aff7-4d59-bc97-d7c952c0f727", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[117587, 3028, 71, 1, 70, "Text",ExpressionUUID->"79b81db7-4976-493a-8871-e8512701cd1e", CellID->765499838] }, Open ]], Cell[CellGroupData[{ Cell[117695, 3034, 893, 24, 70, "Subsection",ExpressionUUID->"876e0fc4-64f3-4550-b0c5-5bc88995f87a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[118591, 3060, 51, 1, 70, "Item",ExpressionUUID->"2407fbe1-a2f3-4b58-8419-2720b4637f0f", CellID->35852736], Cell[118645, 3063, 45, 1, 70, "Item",ExpressionUUID->"0c16744d-f1c4-4885-8c7e-74f32922094b", CellID->675893631], Cell[118693, 3066, 46, 1, 70, "Item",ExpressionUUID->"420ace90-14f5-4b59-8cf2-bfb9cc83aecf", CellID->70550229], Cell[118742, 3069, 61, 1, 70, "Item",ExpressionUUID->"648c59d2-8fd4-4942-81f6-2318af03f89f", CellID->390090187] }, Open ]], Cell[CellGroupData[{ Cell[118840, 3075, 167, 5, 70, "Subsection",ExpressionUUID->"d2c6e8ba-402c-4d8b-bb81-d562fd712f93", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[119010, 3082, 57, 1, 70, "Item",ExpressionUUID->"42571d9f-7ff5-47c7-ab43-b0681a1c14b8", CellID->109970476] }, Open ]], Cell[CellGroupData[{ Cell[119104, 3088, 870, 24, 70, "Subsection",ExpressionUUID->"77b82123-dad0-481f-b986-5dbd9119b4b8", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[119977, 3114, 53, 1, 70, "Item",ExpressionUUID->"d4dd9527-e501-4de7-becc-9c413dd96233", CellID->397838408], Cell[120033, 3117, 50, 1, 70, "Item",ExpressionUUID->"a36422e3-fe05-4330-a035-eb4cf57661a3", CellID->50977157], Cell[120086, 3120, 54, 1, 70, "Item",ExpressionUUID->"3d8370cb-e5bd-40eb-9a3f-fc2ebe3db64a", CellID->942407556], Cell[120143, 3123, 46, 1, 70, "Item",ExpressionUUID->"84c76827-bd50-4745-8481-a9ccf97815bc", CellID->739956698], Cell[120192, 3126, 50, 1, 70, "Item",ExpressionUUID->"ba3c5e19-de73-4b3e-a731-9d8c53e4e280", CellID->100981271], Cell[120245, 3129, 51, 1, 70, "Item",ExpressionUUID->"7f1f170d-b432-4b20-a517-a1437b69e5b7", CellID->651146901] }, Open ]], Cell[CellGroupData[{ Cell[120333, 3135, 919, 24, 70, "Subsection",ExpressionUUID->"5db8b03d-255f-408d-9d29-a4fee774d5d3", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[121255, 3161, 59, 1, 70, "Item",ExpressionUUID->"8b594c9c-6b4c-4077-867b-204aa78043e2", CellID->215315340], Cell[121317, 3164, 50, 1, 70, "Item",ExpressionUUID->"e99a6b7f-3197-4499-8dea-20fa63acf7c5", CellID->2994739], Cell[121370, 3167, 50, 1, 70, "Item",ExpressionUUID->"a8112dd0-28ab-4155-b267-96fb9692296a", CellID->128372319], Cell[121423, 3170, 51, 1, 70, "Item",ExpressionUUID->"6660440a-c920-484b-9b90-4e78a186ba47", CellID->469398715], Cell[121477, 3173, 68, 1, 70, "Item",ExpressionUUID->"f12e9d90-a4c7-42d0-acbf-09dfe159cd6e", CellID->356563292], Cell[121548, 3176, 56, 1, 70, "Item",ExpressionUUID->"f0cb91dc-673a-4587-8c4e-71e387bc6f60", CellID->620172233], Cell[121607, 3179, 51, 1, 70, "Item",ExpressionUUID->"7f9ea7f5-2f3b-420a-9917-024f49a8e94e", CellID->928704392] }, Open ]], Cell[CellGroupData[{ Cell[121695, 3185, 971, 25, 70, "Subsection",ExpressionUUID->"6731760a-c36d-4b9a-a43a-e5f988e5172c", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[122669, 3212, 495, 8, 70, "Text",ExpressionUUID->"1c466eed-8453-446e-8a32-0b4da0a5a47f", CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[123201, 3225, 823, 24, 70, "Subsection",ExpressionUUID->"54975ad2-cafe-4026-b7cd-52b8c3aa8263", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[124027, 3251, 485, 8, 70, "Item",ExpressionUUID->"45b1a208-873d-4e3f-bc0f-18f076df21ce", CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[124549, 3264, 1762, 43, 70, "Subsection",ExpressionUUID->"c795125a-f51a-4900-9c3c-6bfb6f4642f3", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[126336, 3311, 129, 4, 70, "Input",ExpressionUUID->"8dce1941-c5b5-477e-8337-db34a347da18", CellID->667877521], Cell[126468, 3317, 93, 3, 70, "Output",ExpressionUUID->"800d7c0b-49b5-43ba-98fc-eeae47bceb12", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[126622, 3327, 1048, 26, 70, "Section",ExpressionUUID->"87141458-6de5-471b-a49f-f1409b1e04a2", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[127673, 3355, 509, 8, 70, "Text",ExpressionUUID->"b950f83b-2a92-45f4-9c90-6af0bdfad6af", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[128219, 3368, 929, 25, 70, "Section",ExpressionUUID->"aed38aac-78b1-4627-8b5b-b002c6995630", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[129151, 3395, 495, 8, 70, "Text",ExpressionUUID->"b045f341-25e6-4f16-a1b3-16fa02220d23", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)