(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 577084, 13444] NotebookOptionsPosition[ 403595, 10122] NotebookOutlinePosition[ 545757, 12789] CellTagsIndexPosition[ 543902, 12739] WindowTitle->SparseAssociation | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["SparseAssociation", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->64533034], Cell["\<\ Create a rectangular data structure that behaves like a SparseArray indexed \ by string keys\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->210694529], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{"ClearAll", "[", "SparseAssociation", "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "::", "part"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "::", "badData"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "::", "construct"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "::", "map"}], " ", "=", " ", "\"\\""}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"constructedAssocPattern", " ", "=", " ", RowBox[{"_Association", "?", RowBox[{"(", RowBox[{ RowBox[{"#", "[", "\"\\"", "]"}], "&"}], ")"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociationQ", " ", "=", " ", RowBox[{"MatchQ", "[", RowBox[{"SparseAssociation", "[", "constructedAssocPattern", "]"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"cf", " ", "=", " ", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"lst", ",", " ", "_Integer", ",", " ", "1"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"start", ",", " ", "_Integer"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"step", ",", " ", "_Integer"}], "}"}]}], "\n", " ", "}"}], ",", "\n", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", " ", "=", " ", "start"}], ",", " ", RowBox[{"boole", " ", "=", " ", "True"}]}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"Do", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"boole", " ", "=", " ", RowBox[{"j", " ", "==", " ", "i"}]}], ";", "\n", " ", RowBox[{"If", "[", " ", RowBox[{"boole", ",", " ", RowBox[{"i", " ", "=", " ", RowBox[{"i", " ", "+", " ", "step"}]}], ",", " ", RowBox[{"Break", "[", "]"}]}], "]"}]}], ",", "\n", " ", RowBox[{"{", RowBox[{"j", ",", " ", "lst"}], "}"}]}], "\n", " ", "]"}], ";", "\n", " ", "boole"}]}], "\n", " ", "]"}]}], "\n", " ", "]"}]}], "\n", "}"}], ",", "\n", " ", RowBox[{"(*", " ", RowBox[{ "Test", " ", "if", " ", "a", " ", "list", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"Range", "[", "n", "]"}], " ", "for", " ", "some", " ", "n"}], " ", "*)"}], "\n", " ", RowBox[{ RowBox[{ RowBox[{"integerRangeQ", "[", RowBox[{"{", "}"}], "]"}], " ", ":=", " ", "False"}], ";", "\n", " ", RowBox[{ RowBox[{"integerRangeQ", "[", RowBox[{"list", " ", ":", " ", RowBox[{"{", "__Integer", "}"}]}], "]"}], " ", ":=", " ", RowBox[{"cf", "[", RowBox[{"list", ",", " ", "1", ",", " ", "1"}], "]"}]}], ";", "\n", " ", RowBox[{ RowBox[{"integerRangeQ", "[", "_", "]"}], " ", ":=", " ", "False"}]}]}], "\n", "]"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"validAssocPattern", " ", "=", " ", RowBox[{"_Association", "?", RowBox[{"(", RowBox[{"MatchQ", "[", RowBox[{"KeyValuePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{ RowBox[{"_SparseArray", "?", "ArrayQ"}], " ", "|", " ", RowBox[{"{", "}"}]}]}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"___", "?", "AssociationQ"}], "}"}]}]}], "}"}], "]"}], "]"}], ")"}]}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"verifyDataStructure", "[", RowBox[{"SparseAssociation", "[", RowBox[{"data_", "?", "AssociationQ"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"SparseAssociation", "[", RowBox[{"verifyDataStructure", " ", "@", " ", "data"}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"verifyDataStructure", "[", RowBox[{"data", " ", ":", " ", "validAssocPattern"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"dims", " ", "=", " ", RowBox[{"Dimensions", "[", RowBox[{"data", "[", "\"\\"", "]"}], "]"}]}], ",", "\n", " ", RowBox[{"keys", " ", "=", " ", RowBox[{"data", "[", "\"\\"", "]"}]}]}], "\n", "}"}], ",", "\n", " ", RowBox[{"Append", "[", RowBox[{"data", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "\n", " ", RowBox[{"TrueQ", " ", "@", " ", RowBox[{"And", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Length", "[", "keys", "]"}], " ", "===", " ", RowBox[{"Length", "[", "dims", "]"}]}], ",", "\n", " ", RowBox[{"AllTrue", "[", RowBox[{"dims", ",", " ", "Positive"}], "]"}], ",", "\n", " ", RowBox[{"AllTrue", "[", RowBox[{"keys", ",", " ", RowBox[{ RowBox[{"integerRangeQ", "[", RowBox[{"Values", "[", "#", "]"}], "]"}], "&"}]}], "]"}], ",", "\n", " ", RowBox[{"And", " ", "@@", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Max", " ", "/@", " ", "keys"}], " ", "<=", " ", "dims"}], "]"}]}]}], "\n", " ", "]"}]}]}]}], "\n", " ", "]"}]}], "\n", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"verifyDataStructure", "[", RowBox[{"assoc_", "?", "AssociationQ"}], "]"}], " ", ":=", " ", RowBox[{"Append", "[", RowBox[{"assoc", ",", " ", RowBox[{"\"\\"", " ", "->", " ", "False"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verifyDataStructure", "[", "_", "]"}], " ", ":=", " ", "$Failed"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"associationDepth", "[", RowBox[{"assoc_", "?", "AssociationQ"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"vals", " ", "=", " ", RowBox[{"Values", "[", "assoc", "]"}]}], ",", "\n", " ", RowBox[{"i", " ", "=", " ", "1"}]}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"While", "[", " ", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"vals", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"_", "?", "AssociationQ"}], " ", "|", " ", "_Missing"}], ")"}], " ", ".."}], "}"}]}], "]"}], "\n", " ", ",", "\n", " ", RowBox[{ RowBox[{"vals", " ", "=", " ", RowBox[{"Flatten", " ", "@", " ", RowBox[{"Values", "[", RowBox[{"DeleteCases", "[", RowBox[{"vals", ",", " ", "_Missing"}], "]"}], "]"}]}]}], ";", "\n", " ", RowBox[{"i", "++"}]}]}], "\n", " ", "]"}], ";", "\n", " ", "i"}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"keyRange", "[", "l_List", "]"}], " ", ":=", " ", RowBox[{"AssociationThread", "[", RowBox[{"l", ",", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", "l", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{"Parsing", " ", "list", " ", "of", " ", RowBox[{"rules", " ", "/", " ", "rule"}], " ", "of", " ", "lists", " ", "specs"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{ RowBox[{"rule", " ", ":", " ", "_List"}], " ", "->", " ", "_List"}], ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"rules", " ", "=", " ", RowBox[{"Thread", "[", RowBox[{"rule", ",", " ", "Rule"}], "]"}]}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"rules", ",", " ", "rest"}], "]"}], " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{"rules", ",", " ", RowBox[{"{", "___Rule", "}"}]}], "]"}]}]}], "\n", "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{ "Parse", " ", "the", " ", "default", " ", "rule", " ", "returned", " ", "by", " ", "ArrayRules"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", RowBox[{"rules___Rule", ",", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Verbatim", "[", "_", "]"}], ".."}], "}"}], " ", "->", " ", "default_"}]}], "}"}], ",", " ", "keys_", ",", " ", RowBox[{"Repeated", "[", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1"}], "}"}]}], "]"}]}], "]"}], " ", ":=", " ", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", "rules", "}"}], ",", " ", "keys", ",", " ", "default"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", RowBox[{"rules___Rule", ",", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Verbatim", "[", "_", "]"}], ".."}], "}"}], " ", "->", " ", "_"}]}], "}"}], ",", " ", "rest__"}], "]"}], " ", ":=", " ", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", "rules", "}"}], ",", " ", "rest"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{ RowBox[{"rules", " ", ":", " ", RowBox[{"{", "__Rule", "}"}]}], " ", "/;", " ", RowBox[{"!", RowBox[{"MatchQ", "[", RowBox[{"rules", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_List", " ", "->", " ", "_"}], ")"}], ".."}], "}"}]}], "]"}]}]}], ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{ RowBox[{"MapAt", "[", RowBox[{"List", ",", " ", "rules", ",", " ", RowBox[{"{", RowBox[{"All", ",", " ", "1"}], "}"}]}], "]"}], ",", "\n", " ", "rest"}], "\n", "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{ "Finding", " ", "keys", " ", "automatically", " ", "for", " ", "array", " ", "rules", " ", "and", " ", "association", " ", "constructors"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"rules", " ", ":", " ", RowBox[{"{", "__Rule", "}"}]}], ",", " ", "Automatic", ",", " ", RowBox[{"default", " ", ":", " ", "_", " ", ":", " ", "Automatic"}]}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"allKeys", " ", "=", " ", RowBox[{"rules", "[", RowBox[{"[", RowBox[{"All", ",", " ", "1"}], "]"}], "]"}]}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{"rules", ",", "\n", " ", RowBox[{"DeleteDuplicates", " ", "/@", " ", RowBox[{"Transpose", "[", "allKeys", "]"}]}], ",", "\n", " ", "default"}], "\n", " ", "]"}], " ", "/;", " ", RowBox[{"MatrixQ", "[", "allKeys", "]"}]}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"assoc_", "?", "AssociationQ"}], ",", " ", "Automatic", ",", " ", RowBox[{"default", " ", ":", " ", "_", " ", ":", " ", "Automatic"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"allKeys", ",", "\n", " ", "elements"}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"elements", " ", "=", " ", RowBox[{"{", "assoc", "}"}]}], ";", "\n", " ", RowBox[{"allKeys", " ", "=", " ", RowBox[{ RowBox[{"Reap", "[", "\n", " ", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"elements", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"_", "?", "AssociationQ"}], " ", "|", " ", "_Missing"}], ")"}], ".."}], "}"}]}], "]"}], ",", "\n", " ", RowBox[{ RowBox[{"elements", " ", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{"elements", ",", " ", "_Missing"}], "]"}]}], ";", "\n", " ", RowBox[{"Sow", "[", RowBox[{"DeleteDuplicates", " ", "@", " ", RowBox[{"Flatten", " ", "@", " ", RowBox[{"Keys", "[", "elements", "]"}]}]}], "]"}], ";", "\n", " ", RowBox[{"elements", " ", "=", " ", RowBox[{"Flatten", " ", "@", " ", RowBox[{"Values", "[", "elements", "]"}]}]}]}]}], "\n", " ", "]"}], "\n", " ", "]"}], "[", RowBox[{"[", RowBox[{"2", ",", " ", "1"}], "]"}], "]"}]}], ";", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{ "assoc", ",", "\n", " ", "allKeys", ",", "\n", " ", "default"}], "\n", " ", "]"}], " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{"allKeys", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}]}], "]"}]}]}]}], "\n", "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{"Normalize", " ", "key", " ", "argument"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"array", " ", ":", " ", RowBox[{"Except", "[", RowBox[{ RowBox[{"_Rule", " ", "|", " ", RowBox[{"{", "__Rule", "}"}]}], ",", " ", RowBox[{"_", "?", "ArrayQ"}]}], "]"}]}], ",", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"Except", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}], "]"}]}], ",", " ", "rest___"}], "]"}], " ", ":=", "\n", " ", RowBox[{"SparseAssociation", "[", RowBox[{"array", ",", " ", RowBox[{"ConstantArray", "[", RowBox[{"keys", ",", " ", RowBox[{"ArrayDepth", "[", "array", "]"}]}], "]"}], ",", " ", "rest"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"rules", " ", ":", " ", RowBox[{"{", "__Rule", "}"}]}], ",", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"Except", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}], "]"}]}], ",", " ", "rest___"}], "]"}], " ", ":=", "\n", " ", RowBox[{"SparseAssociation", "[", RowBox[{"rules", ",", " ", RowBox[{"ConstantArray", "[", RowBox[{"keys", ",", " ", RowBox[{"Length", "[", RowBox[{"rules", "[", RowBox[{"[", RowBox[{"1", ",", " ", "1"}], "]"}], "]"}], "]"}]}], "]"}], ",", " ", "rest"}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"assoc_", "?", "AssociationQ"}], ",", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"Except", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}], "]"}]}], ",", " ", "rest___"}], "]"}], " ", ":=", "\n", " ", RowBox[{"SparseAssociation", "[", RowBox[{"assoc", ",", " ", RowBox[{"ConstantArray", "[", RowBox[{"keys", ",", " ", RowBox[{"associationDepth", "[", "assoc", "]"}]}], "]"}], ",", " ", "rest"}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"Except", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}], "]"}]}], ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", RowBox[{"{", "keys", "}"}], ",", " ", "rest"}], "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Constructor", " ", "for", " ", "list"}], "-", "of", "-", RowBox[{"rules", " ", "spec"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{ RowBox[{"rules", " ", ":", " ", RowBox[{"{", "___Rule", "}"}]}], ",", "\n", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}]}], ",", "\n", " ", RowBox[{"default", " ", ":", " ", "_", " ", ":", " ", "Automatic"}]}], "\n", "]"}], " ", "/;", " ", RowBox[{"AllTrue", "[", RowBox[{"keys", ",", " ", "DuplicateFreeQ"}], "]"}]}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"pos", " ", "=", " ", RowBox[{"keyRange", " ", "/@", " ", "keys"}]}], ",", "\n", " ", "assoc", ",", "\n", " ", RowBox[{"ruleKeys", " ", "=", " ", RowBox[{"rules", "[", RowBox[{"[", RowBox[{"All", ",", " ", "1"}], "]"}], "]"}]}], ",", "\n", " ", "dims"}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"dims", " ", "=", " ", RowBox[{"Dimensions", "[", "ruleKeys", "]"}]}], ";", "\n", " ", RowBox[{"Condition", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"assoc", " ", "=", " ", RowBox[{"<|", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"SparseArray", "[", "\n", " ", RowBox[{ RowBox[{"Rule", "[", "\n", " ", RowBox[{ RowBox[{"Map", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Lookup", ",", " ", RowBox[{"{", RowBox[{"pos", ",", " ", "#"}], "}"}]}], "]"}], "&"}], ",", "\n", " ", "ruleKeys"}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"rules", "[", RowBox[{"[", RowBox[{"All", ",", " ", "2"}], "]"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"Length", " ", "/@", " ", "keys"}], ",", "\n", " ", "default"}], "\n", " ", "]"}]}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "pos"}]}], "\n", " ", "|>"}]}], ";", "\n", " ", "\n", " ", RowBox[{"SparseAssociation", "[", RowBox[{"verifyDataStructure", " ", "@", " ", "assoc"}], "]"}]}], "\n", " ", ",", "\n", " ", RowBox[{ RowBox[{"rules", " ", "===", " ", RowBox[{"{", "}"}]}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{"MatrixQ", "[", "ruleKeys", "]"}], " ", "&&", " ", RowBox[{ RowBox[{"dims", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "===", " ", RowBox[{"Length", "[", "keys", "]"}]}]}], ")"}]}]}], "\n", " ", "]"}]}]}], "\n", "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{"Constructor", " ", "for", " ", "array", " ", "specs"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{ RowBox[{"array_", "?", "ArrayQ"}], ",", "\n", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}]}], ",", "\n", " ", RowBox[{"default", " ", ":", " ", "_", " ", ":", " ", "Automatic"}]}], "\n", "]"}], " ", "/;", " ", RowBox[{"AllTrue", "[", RowBox[{"keys", ",", " ", "DuplicateFreeQ"}], "]"}]}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"dims", " ", "=", " ", RowBox[{"Dimensions", "[", "array", "]"}]}], ",", "\n", " ", "assoc"}], "\n", "}"}], ",", "\n", " ", RowBox[{"Condition", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"assoc", " ", "=", " ", RowBox[{"<|", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", RowBox[{"SparseArray", "[", RowBox[{"array", ",", " ", "Automatic", ",", " ", "default"}], "]"}]}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"keyRange", " ", "/@", " ", RowBox[{"MapThread", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#1", ",", " ", RowBox[{"UpTo", "[", "#2", "]"}]}], "]"}], "&"}], ",", "\n", " ", RowBox[{"{", RowBox[{"keys", ",", " ", "dims"}], "}"}]}], "\n", " ", "]"}]}]}]}], "\n", " ", "|>"}]}], ";", "\n", " ", "\n", " ", RowBox[{"SparseAssociation", "[", RowBox[{"verifyDataStructure", " ", "@", " ", "assoc"}], "]"}]}], "\n", " ", ",", "\n", " ", RowBox[{ RowBox[{"Length", "[", "keys", "]"}], " ", "===", " ", RowBox[{"Length", "[", "dims", "]"}]}]}], "\n", " ", "]"}]}], "\n", "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{ "Constructor", " ", "for", " ", "nested", " ", "Association", " ", "spec"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{ RowBox[{"assoc_", "?", "AssociationQ"}], ",", "\n", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "__", "}"}], ".."}], "}"}]}], ",", "\n", " ", RowBox[{"default", " ", ":", " ", "_", " ", ":", " ", "Automatic"}]}], "\n", "]"}], " ", "/;", " ", RowBox[{"AllTrue", "[", RowBox[{"keys", ",", " ", "DuplicateFreeQ"}], "]"}]}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"depth", " ", "=", " ", RowBox[{"Length", "[", "keys", "]"}]}], ",", "\n", " ", RowBox[{"ruleSym", " ", "=", " ", "Rule"}], ",", " ", RowBox[{"(*", " ", RowBox[{ "Avoid", " ", "localization", " ", "issues", " ", "associated", " ", "with", " ", "Rule"}], " ", "*)"}], "\n", " ", "rules"}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"rules", " ", "=", " ", RowBox[{"Flatten", " ", "@", " ", RowBox[{"Last", " ", "@", " ", RowBox[{"Reap", "[", "\n", " ", RowBox[{ RowBox[{"MapIndexed", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Sow", "[", RowBox[{"ruleSym", "[", RowBox[{ RowBox[{"Replace", "[", RowBox[{"#2", ",", " ", RowBox[{ RowBox[{"Key", "[", "s_", "]"}], " ", ":>", " ", "s"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", "#1"}], "]"}], "]"}], "&"}], ",", "\n", " ", RowBox[{"DeleteMissing", "[", RowBox[{"assoc", ",", " ", "depth"}], "]"}], ",", "\n", " ", RowBox[{"{", "depth", "}"}]}], "\n", " ", "]"}], ";"}], "\n", " ", "]"}]}]}]}], ";", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"rules", ",", " ", "keys", ",", " ", "default"}], "]"}], " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{"rules", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_List", " ", "->", " ", "_"}], ")"}], ".."}], "}"}]}], "]"}]}]}]}], "\n", "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", "accessors", " ", "*)"}]}], "\n", RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Values", "[", RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"data", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Keys", "[", RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"Keys", " ", "@", " ", RowBox[{"data", "[", "\"\\"", "]"}]}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", RowBox[{ "Converting", " ", "SparseAssociation", " ", "to", " ", "Association"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Normal", "[", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], ",", "\n", " ", RowBox[{"Repeated", "[", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "True"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1"}], "}"}]}], "]"}]}], "\n", "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"array", " ", "=", " ", RowBox[{"Normal", " ", "@", " ", RowBox[{"data", "[", "\"\\"", "]"}]}]}], ",", "\n", " ", RowBox[{"query", " ", "=", " ", RowBox[{"Query", " ", "@@", " ", RowBox[{"data", "[", "\"\\"", "]"}]}]}]}], "\n", "}"}], ",", "\n", " ", RowBox[{"query", " ", "@", " ", "array"}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Normal", "[", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "False"}]}], "\n", "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"rules", " ", "=", " ", RowBox[{"MapAt", "[", "\n", " ", RowBox[{ RowBox[{"Replace", "[", RowBox[{ RowBox[{ RowBox[{"Verbatim", "[", "Rule", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Verbatim", "[", "_", "]"}], ".."}], "}"}], ",", " ", "_"}], "]"}], " ", "->", " ", "Nothing"}], "]"}], ",", "\n", " ", RowBox[{"ArrayRules", "[", RowBox[{"SparseAssociation", "[", "data", "]"}], "]"}], ",", "\n", " ", RowBox[{"-", "1"}]}], "\n", " ", "]"}]}], ",", "\n", " ", RowBox[{"depth", " ", "=", " ", RowBox[{"ArrayDepth", "[", RowBox[{"SparseAssociation", "[", "data", "]"}], "]"}]}]}], "\n", "}"}], ",", "\n", " ", RowBox[{"GroupBy", "[", "\n", " ", RowBox[{"rules", ",", "\n", " ", RowBox[{"Append", "[", "\n", " ", RowBox[{ RowBox[{"Map", "[", "\n", " ", RowBox[{ RowBox[{"Function", "[", RowBox[{"lvl", ",", " ", RowBox[{"Function", "[", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", " ", "lvl"}], "]"}], "]"}], "]"}]}], "]"}], ",", "\n", " ", RowBox[{"Range", "[", RowBox[{"depth", " ", "-", " ", "1"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{ RowBox[{"Function", "[", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", " ", RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], " ", "->", " ", RowBox[{"Function", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "\n", " ", "]"}], ",", "\n", " ", "First"}], "\n", " ", "]"}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Dataset", "[", RowBox[{ RowBox[{"spAssoc", " ", ":", " ", RowBox[{"SparseAssociation", "[", "constructedAssocPattern", "]"}]}], ",", " ", "args___"}], "]"}], " ", ":=", " ", RowBox[{"Dataset", " ", "@", " ", RowBox[{"Normal", "[", RowBox[{"spAssoc", ",", " ", "args"}], "]"}]}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"Scan", "[", "\n", " ", RowBox[{ RowBox[{"Function", "[", "\n", " ", RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"#", "[", RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"#", " ", "@", " ", RowBox[{"data", "[", "\"\\"", "]"}]}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{"Length", ",", " ", "Dimensions", ",", " ", "ArrayDepth"}], "}"}]}], "\n", "]"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"Scan", "[", "\n", " ", RowBox[{ RowBox[{"Function", "[", "\n", " ", RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"#", "[", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"#", "[", RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], ",", " ", "rest"}], "]"}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{"MatrixQ", ",", " ", "VectorQ", ",", " ", "ArrayQ"}], "}"}]}], "\n", "]"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{ RowBox[{"Map", "[", "fun_", "]"}], "[", RowBox[{"spAssoc", " ", ":", " ", RowBox[{"SparseAssociation", "[", "constructedAssocPattern", "]"}]}], "]"}], " ", ":=", " ", RowBox[{"Map", "[", RowBox[{"fun", ",", " ", "spAssoc"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Map", "[", RowBox[{"fun_", ",", " ", RowBox[{"spAssoc", " ", ":", " ", RowBox[{"SparseAssociation", "[", "constructedAssocPattern", "]"}]}], ",", " ", "rest___"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"result", " ", "=", " ", RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{ RowBox[{"Map", "[", RowBox[{"fun", ",", " ", RowBox[{"Values", "[", "spAssoc", "]"}], ",", " ", "rest"}], "]"}], ",", "\n", " ", RowBox[{"Keys", "[", "spAssoc", "]"}]}], "\n", " ", "]"}]}], "\n", "}"}], ",", "\n", " ", RowBox[{"result", " ", "/;", " ", RowBox[{"SparseAssociationQ", "[", "result", "]"}]}]}], "\n", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Map", "[", RowBox[{"fun_", ",", " ", RowBox[{"spAssoc", " ", ":", " ", RowBox[{"SparseAssociation", "[", "constructedAssocPattern", "]"}]}], ",", " ", "___"}], "]"}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"SparseAssociation", "::", "map"}], ",", " ", "fun"}], "]"}], ";", "\n", " ", "$Failed"}], "\n", ")"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"ArrayRules", "[", RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"keysIndices", " ", "=", " ", RowBox[{"GeneralUtilities`AssociationInvert", " ", "/@", " ", RowBox[{"data", "[", "\"\\"", "]"}]}]}], "\n", "}"}], ",", "\n", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"ArrayRules", "[", RowBox[{"data", "[", "\"\\"", "]"}], "]"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Verbatim", "[", "Rule", "]"}], "[", RowBox[{ RowBox[{"ind", " ", ":", " ", RowBox[{"{", "__Integer", "}"}]}], ",", " ", "el_"}], "]"}], " ", ":>", " ", RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Lookup", ",", " ", RowBox[{"{", RowBox[{"keysIndices", ",", " ", "ind"}], "}"}]}], "]"}], " ", "->", " ", "el"}]}], ",", "\n", " ", RowBox[{"{", "1", "}"}]}], "\n", " ", "]"}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"partSpec", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"{", "__Integer", "}"}], " ", "|", " ", "_Integer", " ", "|", " ", "All", " ", "|", " ", "_Span"}], ")"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"accesskeySpec", " ", "=", " ", RowBox[{"Flatten", "[", RowBox[{"_String", " ", "|", " ", "_Key", " ", "|", " ", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", " ", "|", " ", "_Key"}], ")"}], ".."}], "}"}], " ", "|", " ", "partSpec"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Part", "[", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], ",", " ", "0"}], "]"}], " ", ":=", " ", "SparseAssociation"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{ RowBox[{"Part", "[", "\n", " ", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], ",", "\n", " ", RowBox[{"keys", " ", ":", " ", RowBox[{"(", RowBox[{"accesskeySpec", ".."}], ")"}]}]}], "\n", "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Length", "[", RowBox[{"{", "keys", "}"}], "]"}], " ", "<=", " ", RowBox[{"Length", "[", RowBox[{"data", "[", "\"\\"", "]"}], "]"}]}]}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"dataKeys", " ", "=", " ", RowBox[{"TakeDrop", "[", RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], ",", " ", RowBox[{"UpTo", "[", RowBox[{"Length", "[", RowBox[{"{", "keys", "}"}], "]"}], "]"}]}], "]"}]}], ",", "\n", " ", "positions"}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"positions", " ", "=", " ", RowBox[{"MapThread", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Replace", "[", RowBox[{"#2", ",", " ", RowBox[{ RowBox[{"s", " ", ":", " ", RowBox[{"Except", "[", "partSpec", "]"}]}], " ", ":>", " ", RowBox[{"Lookup", "[", RowBox[{"#1", ",", " ", "s"}], "]"}]}]}], "]"}], "&"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"dataKeys", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"{", "keys", "}"}]}], "}"}]}], "\n", " ", "]"}]}], ";", "\n", " ", RowBox[{"Condition", "[", "\n", " ", RowBox[{ RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"\"\\"", ",", " ", RowBox[{"Sequence", " ", "@@", " ", "positions"}]}], "]"}], "]"}], ",", "\n", " ", RowBox[{ RowBox[{"arr_SparseArray", "?", "ArrayQ"}], " ", ":>", " ", RowBox[{"SparseAssociation", "[", "\n", " ", RowBox[{"verifyDataStructure", " ", "@", " ", RowBox[{"<|", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "arr"}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"Join", "[", "\n", " ", RowBox[{ RowBox[{"Map", "[", "\n", " ", RowBox[{ "keyRange", ",", "\n", " ", RowBox[{"Keys", " ", "@", " ", RowBox[{ "Select", "[", "\n", " ", RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Part", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"dataKeys", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"{", "keys", "}"}]}], "}"}]}], "]"}], ",", "\n", " ", "AssociationQ"}], "\n", " ", "]"}]}]}], "\n", " ", "]"}], ",", "\n", " ", RowBox[{"dataKeys", "[", RowBox[{"[", "2", "]"}], "]"}]}], "\n", " ", "]"}]}]}], "\n", " ", "|>"}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}], "\n", " ", ",", "\n", " ", RowBox[{"MatchQ", "[", RowBox[{"positions", ",", " ", RowBox[{"{", RowBox[{"partSpec", ".."}], "}"}]}], "]"}]}], "\n", " ", "]"}]}]}], "\n", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Part", "[", RowBox[{ RowBox[{"SparseAssociation", "[", "constructedAssocPattern", "]"}], ",", " ", "other__"}], "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"SparseAssociation", "::", "part"}], ",", " ", RowBox[{"{", "other", "}"}]}], "]"}], ";", " ", "$Failed"}], ")"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"Part", "[", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"Except", "[", "constructedAssocPattern", "]"}], ",", " ", "___"}], "]"}], ",", " ", "__"}], "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"SparseAssociation", "::", "badData"}], "]"}], ";", " ", "$Failed"}], ")"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], "[", "keys__String", "]"}], " ", ":=", " ", RowBox[{"Part", "[", RowBox[{ RowBox[{"SparseAssociation", "[", "data", "]"}], ",", " ", "keys"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"data", " ", ":", " ", "constructedAssocPattern"}], "]"}], "[", "keys__", "]"}], " ", ":=", " ", RowBox[{"Part", "[", RowBox[{ RowBox[{"SparseAssociation", "[", "data", "]"}], ",", " ", RowBox[{"Sequence", " ", "@@", " ", RowBox[{"Map", "[", RowBox[{"Key", ",", " ", RowBox[{"{", "keys", "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\n", "\n", RowBox[{"(*", " ", "Typesetting", " ", "*)"}], "\n", RowBox[{"(*", " ", RowBox[{ "Make", " ", "sure", " ", "the", " ", "summary", " ", "boxes", " ", "are", " ", "loaded"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"ToBoxes", "[", RowBox[{"SparseArray", "[", RowBox[{"{", RowBox[{"0", ",", " ", "1"}], "}"}], "]"}], "]"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cutoffList", "[", RowBox[{"list_List", ",", " ", "n_Integer", ",", " ", "___"}], "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Length", "[", "list", "]"}], " ", "<=", " ", "n"}]}], " ", ":=", " ", "list"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cutoffList", "[", RowBox[{"list_List", ",", " ", "n_Integer", ",", " ", RowBox[{ "placeHolder", " ", ":", " ", "_", " ", ":", " ", "\"\<\[Ellipsis]\>\""}]}], "]"}], " ", ":=", " ", RowBox[{"Append", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"list", ",", " ", RowBox[{"UpTo", "[", "n", "]"}]}], "]"}], ",", " ", "placeHolder"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"patt", " ", "=", " ", "constructedAssocPattern"}], "}"}], ",", "\n", " ", RowBox[{"SparseAssociation", " ", "/:", " ", RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"assoc", " ", ":", " ", "patt"}], "]"}], ",", " ", "form_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"sparseArrayArg", " ", "=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"BoxForm`ArrangeSummaryBox", " ", "=", " ", RowBox[{ RowBox[{"Throw", "[", RowBox[{ RowBox[{"{", "##", "}"}], ",", " ", "\"\\""}], "]"}], "&"}]}], "}"}], ",", "\n", " ", RowBox[{"Catch", "[", RowBox[{ RowBox[{"ToBoxes", "[", RowBox[{ RowBox[{"assoc", "[", "\"\\"", "]"}], ",", " ", "form"}], "]"}], ",", " ", "\"\\""}], "]"}]}], "\n", " ", "]"}]}], ",", "\n", " ", "sparseItems"}], "\n", " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"sparseItems", " ", "=", " ", RowBox[{"Join", " ", "@@", " ", RowBox[{"sparseArrayArg", "[", RowBox[{"[", RowBox[{"{", RowBox[{"4", ",", " ", "5"}], "}"}], "]"}], "]"}]}]}], ";", "\n", " ", RowBox[{ RowBox[{"BoxForm`ArrangeSummaryBox", "[", "\n", " ", RowBox[{"\"\<$$SparseAssociation\>\"", ",", "\n", " ", RowBox[{"Unevaluated", " ", "@", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "assoc", " ", "]"}]}], ",", "\n", " ", RowBox[{"sparseArrayArg", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "\n", " ", RowBox[{"Take", "[", RowBox[{"sparseItems", ",", " ", "3"}], "]"}], ",", "\n", " ", RowBox[{"Join", "[", "\n", " ", RowBox[{ RowBox[{"Part", "[", RowBox[{"sparseItems", ",", " ", RowBox[{"{", "4", "}"}]}], "]"}], ",", "\n", " ", RowBox[{"{", RowBox[{"BoxForm`SummaryItem", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\<\>\""}], "}"}], "]"}], "}"}], ",", "\n", " ", RowBox[{"KeyValueMap", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "BoxForm`SummaryItem", "[", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"MissingQ", "[", "#2", "]"}], ",", "\n", " ", RowBox[{"{", "\"\<\[Ellipsis]\>\"", "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"Row", "[", RowBox[{ RowBox[{"cutoffList", "[", RowBox[{"#2", ",", " ", "4"}], "]"}], ",", " ", "\"\<,\>\""}], "]"}], ",", " ", "\"\<: \>\""}], "}"}], "]"}], ",", " ", RowBox[{"Row", "[", RowBox[{ RowBox[{"cutoffList", "[", RowBox[{"#1", ",", " ", "4"}], "]"}], ",", " ", "\"\<,\>\""}], "]"}]}], "}"}]}], "\n", " ", "]"}], "\n", " ", "]"}], "&"}], ",", "\n", " ", RowBox[{"Join", " ", "@@", " ", RowBox[{"MapAt", "[", "\n", " ", RowBox[{ RowBox[{"Replace", "[", RowBox[{ RowBox[{"Except", "[", RowBox[{"<|", "|>"}], "]"}], " ", ":>", " ", RowBox[{"<|", RowBox[{"Rest", " ", "->", " ", RowBox[{"Missing", "[", "]"}]}], "|>"}]}], "]"}], ",", "\n", " ", RowBox[{ "TakeDrop", "[", "\n", " ", RowBox[{ RowBox[{"PositionIndex", "[", RowBox[{"Keys", "[", RowBox[{"assoc", "[", "\"\\"", "]"}], "]"}], "]"}], ",", "\n", " ", RowBox[{"UpTo", "[", "3", "]"}]}], "\n", " ", "]"}], ",", "\n", " ", "2"}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], "\n", " ", "]"}], ",", "\n", " ", "form"}], "\n", " ", "]"}], " ", "/.", " ", RowBox[{"\"\<$$SparseAssociation\>\"", " ", "\[Rule]", " ", RowBox[{"FunctionResource`MakeResourceFunctionBoxes", "[", " ", RowBox[{"\"\\"", ",", " ", "form"}], " ", "]"}]}]}]}]}], "\n", " ", "]"}]}]}], "\n", "]"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{"_", ",", " ", "__"}], "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"SparseAssociation", "::", "construct"}], "]"}], ";", " ", "$Failed"}], ")"}]}], ";"}]}], "Code", TaggingRules->{}, CellChangeTimes->{{3.79223943122464*^9, 3.792239434086563*^9}, { 3.7922395120579476`*^9, 3.7922395128181305`*^9}, {3.792239544551442*^9, 3.7922395673680644`*^9}, {3.7922411416794157`*^9, 3.792241167718055*^9}, { 3.792241229813651*^9, 3.7922412310069456`*^9}, {3.7922419599725485`*^9, 3.792242003214902*^9}, 3.792313239284807*^9, 3.7923213126411576`*^9, 3.792396282099223*^9, 3.7923972484437294`*^9, 3.792399897722234*^9, 3.7923999926766787`*^9, 3.7924002405813427`*^9, 3.7924009683838835`*^9, { 3.7924074323944025`*^9, 3.792407438383919*^9}, {3.7924082803273473`*^9, 3.792408360900264*^9}, 3.7924099610004005`*^9, 3.7924164159531174`*^9, 3.7924748287389536`*^9, 3.792479718495117*^9, 3.7924798294150553`*^9, 3.7924806924920435`*^9, 3.792480729811146*^9, 3.792481314197032*^9, 3.7924932472807837`*^9, 3.7924934155777225`*^9, {3.792493772378883*^9, 3.792493773302812*^9}, {3.792494747318428*^9, 3.7924947517678823`*^9}, { 3.7927607909564943`*^9, 3.7927608058635535`*^9}, {3.7927608536873865`*^9, 3.7927608558133864`*^9}, 3.7927610005638103`*^9, 3.7927613450155535`*^9, { 3.7929298763646755`*^9, 3.7929299430568895`*^9}, {3.792929999299508*^9, 3.792930005218915*^9}, 3.7929309049042645`*^9, {3.793385272084749*^9, 3.793385286255885*^9}, {3.79338545166686*^9, 3.7933854683095016`*^9}, { 3.793385524928114*^9, 3.793385555325094*^9}, {3.793385643284762*^9, 3.793385648953924*^9}, {3.793385713443678*^9, 3.793385715170495*^9}, { 3.793387431933199*^9, 3.7933874504836683`*^9}, {3.7933875455451117`*^9, 3.793387612606729*^9}, {3.806294936968485*^9, 3.806294963259906*^9}, 3.8072556340275536`*^9}, CellID->550409598] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ StyleBox["array", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["key", "TI"], "1"], ",", SubscriptBox[ StyleBox["key", "TI"], "2"], ",", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->933598630], Cell[TextData[{ "creates a data structure in which an element at position ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["i", "TI"], ",", StyleBox["j", "TI"], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be accessed with the string key sequence ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["key", "TI"], StyleBox["i", "TI"]], ",", " ", SubscriptBox[ StyleBox["key", "TI"], StyleBox["j", "TI"]], ",", " ", "\[Ellipsis]"}], "}"}], TraditionalForm]]], "." }], "UsageDescription", CellID->126616978] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ StyleBox["array", "TI"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["key", "TI"], RowBox[{"1", ",", "1"}]], ",", SubscriptBox[ StyleBox["key", "TI"], RowBox[{"1", ",", "2"}]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["key", "TI"], RowBox[{"2", ",", "1"}]], ",", "\[Ellipsis]"}], "}"}], ",", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->589899223], Cell[TextData[{ "creates a data stucture that uses the keys ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["key", "TI"], RowBox[{ StyleBox["i", "TI"], ",", StyleBox["j", "TI"]}]], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], " at level ", Cell[BoxData[ StyleBox["j", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the ", Cell[BoxData[ StyleBox["array", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->786015532] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ StyleBox["array", "TI"], ",", StyleBox["keys", "TI"], ",", StyleBox["default", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->527759814], Cell[TextData[{ "uses ", Cell[BoxData[ StyleBox["default", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as the default value for the underlying ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->408889821] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["keys", "TI"], StyleBox["1", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["val", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["keys", "TI"], StyleBox["2", "TR"]], "\[Rule]", SubscriptBox[ StyleBox["val", "TI"], StyleBox["2", "TR"]]}], ",", "\[Ellipsis]"}], "}"}], ",", 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"]], ",", "\[Ellipsis]"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->904047508], Cell["specifies the data from array rules.", "UsageDescription", CellID->549250242] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["keys", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["keys", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], "\[Rule]", " ", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["val", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["val", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], ",", 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"]], ",", "\[Ellipsis]"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->118930812], Cell["can also be used.", "UsageDescription", CellID->111861805] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ StyleBox["assoc", "TI"], ",", 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"]], ",", "\[Ellipsis]"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->617944749], Cell[TextData[{ "specifies the data from a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->839693556] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " acts like a rectangular data structure of nested associations but is more \ memory efficient because the keys are not duplicated at each level. In \ addition, ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " offers the possibility to specify beforehand what default value should be \ returned when trying to access empty parts of the array, whereas ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Missing", "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/Missing", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", "\[Ellipsis]", "]"}], TraditionalForm]]], " in that situation." }], "Notes", CellID->843942390], Cell[TextData[{ Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " is a constructor-container function like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". A ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be constructed from a regular array that satisfies ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArrayQ", "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/ArrayQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or a list of rules of the form ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["key", "TI"], RowBox[{ StyleBox["i", "TI"], ",", "1"}]], ",", SubscriptBox[ StyleBox["key", "TI"], RowBox[{ StyleBox["i", "TI"], ",", "2"}]], ",", "\[Ellipsis]"}], "}"}], " ", "\[Rule]", " ", SubscriptBox["value", StyleBox["i", "TI"]]}], ",", "\[Ellipsis]"}], "}"}], TraditionalForm]]], " in the same way as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->442749613], Cell["Only string keys are supported currently.", "Notes", CellID->321380884], Cell[TextData[{ "The underlying ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be extracted with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Values", "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/Values", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". The keys used at different levels can be extracted with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Keys", "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/Keys", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". The function ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Normal", "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/Normal", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " converts the data to a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->228350180], Cell[TextData[{ "A correctly constructed ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " matches ", Cell[BoxData[ FormBox[ RowBox[{"SparseAssociation", "[", RowBox[{"_Association", "?", RowBox[{"(", RowBox[{ RowBox[{"#", "[", "\"\\"", "]"}], "&"}], ")"}]}], "]"}], TraditionalForm]]], "." }], "Notes", CellID->738101993], Cell[TextData[{ "If a ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " is created from a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", all ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Missing", "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/Missing", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "[\[Ellipsis]] values at any level will be dropped and replaced with the \ default value. The corresponding keys will still be included." }], "Notes", CellID->451090124], Cell[TextData[{ "Like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["default", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is 0 if not specified." }], "Notes", CellID->725160438], Cell[TextData[{ "A ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be converted to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Values", "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/Values", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", to a list of rules with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArrayRules", "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/ArrayRules", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and to 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"], " of nested associations with ", 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"], "." }], "Notes", CellID->611325102], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ 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"]], "[", RowBox[{ StyleBox["sparseAssoc", "TI"], StyleBox[",", "TI"], StyleBox[" ", "TI"], RowBox[{"\"\\"", "\[Rule]", TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]}]}], "]"}], TraditionalForm]]], " can be used to create a ragged ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with all of the default values dropped. This also works with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Normal", "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/Normal", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->936394755], Cell[TextData[{ "A ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be queried like an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " using ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["sparseAssoc", "TI"], "[", RowBox[{ SubscriptBox[ StyleBox["key", "TI"], "1"], ",", SubscriptBox[ StyleBox["key", "TI"], "2"], ",", "\[Ellipsis]"}], "]"}], TraditionalForm]]], " or using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Part", "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/Part", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->914675786], Cell[TextData[{ "Accessing elements with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Part", "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/Part", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be done using string keys or integer indices." }], "Notes", CellID->21433438], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Map", "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/Map", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is supported but only for operations that leave the dimensions of the \ array unchanged. For example, mapping ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Total", "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/Total", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " over a matrix is currently not supported." }], "Notes", CellID->490825636] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Convert a regular array into a ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.79224144568084*^9, 3.7922414584543056`*^9}}, CellID->921162563], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"array", "=", RowBox[{"BlockRandom", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", "\[IndentingNewLine]", RowBox[{"RandomInteger", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7922407948846245`*^9, 3.7922407958399696`*^9}, { 3.792241267048674*^9, 3.7922412995839095`*^9}, 3.7923274528040094`*^9, { 3.792397778065814*^9, 3.792397790048403*^9}}, CellLabel->"In[53]:=", CellID->769588884], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7922412800193377`*^9, 3.7922413000813956`*^9}, 3.792313664893874*^9, {3.792327306572517*^9, 3.7923273242082233`*^9}, 3.7923274540654464`*^9, {3.792397771004039*^9, 3.792397790483383*^9}, { 3.79240833711724*^9, 3.792408364919655*^9}, 3.7924084320756226`*^9, 3.792410891768904*^9, 3.7924121425585423`*^9, 3.792474940267285*^9, 3.792480769604816*^9, 3.7924932918343053`*^9, 3.7924937826818633`*^9, 3.7927609283623295`*^9, 3.7929299213701015`*^9, 3.7929299533068447`*^9, 3.7929300132567453`*^9, 3.7929309133869925`*^9, 3.793387477882235*^9, 3.793387641401964*^9, 3.793387761501087*^9, 3.8062950642115192`*^9}, CellLabel->"Out[53]=", CellID->971995885] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "=", RowBox[{"SparseAssociation", "[", RowBox[{"array", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7922412815437016`*^9, 3.7922412895788517`*^9}, { 3.7922414828205595`*^9, 3.79224148516588*^9}, {3.8062950751205587`*^9, 3.8062950780410194`*^9}, 3.80629511661787*^9}, CellLabel->"In[59]:=", CellID->182720863], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["10", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["10", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.4166666666666667`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "3"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {4, 3, 2}, 0, { 1, {{0, 3, 4, 7, 10}, {{1, 1}, {2, 1}, {2, 2}, {1, 2}, {1, 1}, {2, 1}, { 2, 2}, {1, 1}, {1, 2}, {3, 1}}}, {1, 1, 1, 1, 2, 1, 2, 1, 1, 1}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>, <| "a" -> 1, "b" -> 2, "c" -> 3|>, <|"a" -> 1, "b" -> 2|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7922412829252195`*^9, 3.792241300917817*^9}, 3.7922414858819237`*^9, 3.7923136659062386`*^9, {3.792327307158511*^9, 3.792327325266523*^9}, 3.7923274552214317`*^9, {3.7923977720674305`*^9, 3.792397792670787*^9}, {3.7924083346330147`*^9, 3.7924083659337873`*^9}, 3.792408432852043*^9, 3.7924108924554634`*^9, 3.7924121432901525`*^9, 3.7924749414746103`*^9, 3.792480770464985*^9, 3.792493292655452*^9, 3.7924937839121933`*^9, 3.7927609293335457`*^9, {3.7929299223247423`*^9, 3.7929299543483357`*^9}, 3.7929300140918856`*^9, 3.7929309146537867`*^9, 3.793387481985497*^9, 3.793387641527143*^9, 3.7933877616367207`*^9, { 3.8062950663845897`*^9, 3.806295078409139*^9}, 3.8062951171588354`*^9}, CellLabel->"Out[59]=", CellID->252127744] }, Open ]], Cell["Extract elements from it:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7922415924034514`*^9, 3.792241598880207*^9}}, CellID->903699304], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7922416004004507`*^9, 3.792241606586335*^9}, { 3.792327459774498*^9, 3.7923274627418847`*^9}}, CellLabel->"In[60]:=", CellID->564954732], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792241606967553*^9, 3.7923136677832394`*^9, {3.792327309301796*^9, 3.792327326067224*^9}, 3.7923274630798283`*^9, {3.792397773798994*^9, 3.7923977949361267`*^9}, 3.7924084341517277`*^9, 3.7924108933815165`*^9, 3.7924121445213265`*^9, 3.792474942773181*^9, 3.792480771495322*^9, 3.792493293770652*^9, 3.7924937846509976`*^9, 3.792760930297374*^9, 3.7929309158381567`*^9, 3.793387659037713*^9, 3.793387761779703*^9, { 3.806295093635027*^9, 3.806295119567095*^9}}, CellLabel->"Out[60]=", CellID->374504032] }, Open ]], Cell["This is equivalent to:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7923135193481503`*^9, 3.792313529759078*^9}}, CellID->830410646], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"array", "[", RowBox[{"[", RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923135314861665`*^9, 3.7923135363825703`*^9}, { 3.792327467180168*^9, 3.7923274682398973`*^9}}, CellLabel->"In[61]:=", CellID->493227412], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923136621610107`*^9, 3.792313670585063*^9}, { 3.79232731009468*^9, 3.792327327270605*^9}, 3.792327468505342*^9, 3.7923977958661213`*^9, 3.7924084357007113`*^9, 3.7924108943377695`*^9, 3.7924121465889473`*^9, 3.7924807732778587`*^9, 3.79249329483568*^9, 3.7927609311436343`*^9, 3.792930917104802*^9, 3.7933876592161922`*^9, 3.7933877617988787`*^9, 3.806295121220361*^9}, CellLabel->"Out[61]=", CellID->976679676] }, Open ]], Cell[TextData[{ "Unlike ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", you cannot extract keys that haven\[CloseCurlyQuote]t been specified \ beforehand:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7924108987850547`*^9, 3.7924109123702116`*^9}, { 3.792411106895804*^9, 3.792411116906599*^9}, {3.792475957833182*^9, 3.792475971516271*^9}, 3.7942278529980736`*^9}, CellID->554356482], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7924108852853637`*^9, 3.792410887485901*^9}}, CellLabel->"In[62]:=", CellID->378294906], Cell[BoxData[ TemplateBox[{ "ResourceFunction", "usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"SparseAssociation\\\"\ , \\\"::\\\", \\\"part\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \ \\\\\\\"\\\", TemplateBox[List[\\\"\\\\\\\"Part \\\\\\\"\\\", \ RowBox[List[\\\"{\\\", RowBox[List[\\\"\\\\\\\"e\\\\\\\"\\\", \\\",\\\", \\\"\ \\\\\\\"f\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"g\\\\\\\"\\\"]], \\\"}\\\"]], \ \\\"\\\\\\\" of SparseAssociation doesn't exist.\\\\\\\"\\\"], \\\"RowDefault\ \\\"]], \\\"RowDefault\\\"]\\)\"", 2, 62, 3, 16904465260815510997, "Local"}, "MessageTemplate"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{ 3.7924108957238035`*^9, 3.792412147570843*^9, 3.792480774028891*^9, 3.792493297084841*^9, 3.7927609330247583`*^9, {3.7929309231219482`*^9, 3.792930925887032*^9}, 3.793387659353006*^9, 3.7933877619338837`*^9, 3.806295125927405*^9}, CellLabel->"During evaluation of In[62]:=", CellID->113323889], Cell[BoxData["$Failed"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7924108879208565`*^9, 3.792410895743746*^9}, 3.7924121475870132`*^9, 3.7924807740601377`*^9, 3.792493297100463*^9, 3.792760933056001*^9, {3.7929309231531143`*^9, 3.792930925903716*^9}, 3.793387659371359*^9, 3.793387761951499*^9, 3.806295125943918*^9}, CellLabel->"Out[62]=", CellID->768909109] }, Open ]], Cell[TextData[{ Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " works with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Part", "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/Part", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792313496799296*^9, 3.7923135167789693`*^9}, { 3.792313685085966*^9, 3.7923136879728827`*^9}}, CellID->991484269], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792241615940611*^9, 3.7922416162811556`*^9}, { 3.7923274725993032`*^9, 3.7923274745396185`*^9}}, CellLabel->"In[63]:=", CellID->258067177], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792241616842126*^9, 3.792313676909172*^9, {3.7923273115828238`*^9, 3.7923273288185234`*^9}, 3.7923274753616524`*^9, 3.7923977969545836`*^9, 3.792408438250592*^9, 3.7924121486901875`*^9, 3.792480775129631*^9, 3.7924932983765917`*^9, 3.7929309281230917`*^9, 3.7933876594976788`*^9, 3.79338776207943*^9, 3.806295127423618*^9}, CellLabel->"Out[63]=", CellID->813190772] }, Open ]], Cell[TextData[{ "Extracting multiple elements with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Part", "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/Part", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " yields another ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " of reduced size:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7922416259185677`*^9, 3.792241674819522*^9}, { 3.792241715598401*^9, 3.792241718536232*^9}}, CellID->38290098], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "All", ",", "\"\\""}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792241677516353*^9, 3.792241708939764*^9}, 3.7923274804278846`*^9}, CellLabel->"In[64]:=", CellID->519199205], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}, {{0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}, {{0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.6666666666666666`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {2, 3}, 0, { 1, {{0, 2, 4}, {{1}, {2}, {1}, {2}}}, {1, 1, 2, 1}}], "Keys" -> {<|"a" -> 1, "c" -> 2|>, <|"a" -> 1, "b" -> 2, "c" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.792241699270253*^9, 3.7922417092347655`*^9}, { 3.7923273153027744`*^9, 3.79232733116055*^9}, 3.7923274809120264`*^9, 3.792397797971445*^9, 3.792408440266545*^9, 3.7924121496781864`*^9, 3.7924807774974737`*^9, 3.7924932993669863`*^9, 3.792493787662442*^9, 3.792930929956029*^9, 3.79338765963133*^9, 3.793387762220538*^9, 3.8062951302649326`*^9}, CellLabel->"Out[64]=", CellID->781178533] }, Open ]], Cell["Indexing by position is also possible:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7922418469295874`*^9, 3.79224185498201*^9}}, CellID->24851328], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", "All", ",", "1"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792241842676403*^9, 3.79224184431218*^9}, { 3.792327342162161*^9, 3.792327348915557*^9}, 3.792327484271239*^9}, CellLabel->"In[65]:=", CellID->607758995], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}, {{0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}, {{0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.6666666666666666`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {2, 3}, 0, { 1, {{0, 2, 4}, {{1}, {2}, {1}, {2}}}, {1, 1, 2, 1}}], "Keys" -> {<|"a" -> 1, "c" -> 2|>, <|"a" -> 1, "b" -> 2, "c" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7922418570057464`*^9, {3.792327316782426*^9, 3.792327349253264*^9}, 3.792327485396844*^9, 3.792397799701026*^9, 3.7924084417010016`*^9, 3.792412151121296*^9, 3.792480778437938*^9, 3.792493300879864*^9, 3.792930932225644*^9, 3.793387762374305*^9, 3.806295137283047*^9}, CellLabel->"Out[65]=", CellID->451282988] }, Open ]], Cell[TextData[{ "Convert the ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " to a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7922414628265696`*^9, 3.7922414779108577`*^9}, { 3.7922418885664196`*^9, 3.7922418981667414`*^9}}, CellID->208544883], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Values", "[", "sparseAssoc", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7922414795187063`*^9, 3.7922414894610662`*^9}, { 3.792493309834771*^9, 3.7924933106562085`*^9}}, CellLabel->"In[66]:=", CellID->122477003], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["10", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["10", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.4166666666666667`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { ItemBox[ "\"\[VerticalEllipsis]\"", Alignment -> Center, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SparseArray[ Automatic, {4, 3, 2}, 0, { 1, {{0, 3, 4, 7, 10}, {{1, 1}, {2, 1}, {2, 2}, {1, 2}, {1, 1}, {2, 1}, {2, 2}, {1, 1}, {1, 2}, {3, 1}}}, {1, 1, 1, 1, 2, 1, 2, 1, 1, 1}}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7922414898037233`*^9, 3.7923273521290016`*^9, 3.792327487778844*^9, 3.7923978016025085`*^9, 3.7924084448347645`*^9, 3.792412152563648*^9, 3.7924807793391657`*^9, 3.792493311190027*^9, 3.7929309338702693`*^9, 3.793387762516876*^9, 3.80629514171817*^9}, CellLabel->"Out[66]=", CellID->985129659] }, Open ]], Cell[TextData[{ "Further convert the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to a nested list using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Normal", "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/Normal", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7942279021842766`*^9, 3.794227961406327*^9}}, CellID->485254946], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7924084245166426`*^9, 3.7924084265669556`*^9}}, CellLabel->"In[67]:=", CellID->929062044], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7924084270356884`*^9, 3.792408445769947*^9}, 3.7924121540954895`*^9, 3.7924807812831974`*^9, 3.792493313358359*^9, 3.7929309359035997`*^9, 3.793387762703951*^9, 3.806295145310897*^9}, CellLabel->"Out[67]=", CellID->528026254] }, Open ]], Cell[TextData[{ "Convert the ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " to array rules:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7922414628265696`*^9, 3.7922414779108577`*^9}, { 3.7922418885664196`*^9, 3.7922419205446777`*^9}, {3.7922420279376955`*^9, 3.7922420280965347`*^9}}, CellID->577975705], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayRules", "[", "sparseAssoc", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7922414795187063`*^9, 3.7922414894610662`*^9}, { 3.792241923263706*^9, 3.7922419249450893`*^9}}, CellLabel->"In[68]:=", CellID->716340542], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"a\"\>", ",", "\<\"a\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"a\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"b\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"b\"\>", ",", "\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"c\"\>", ",", "\<\"a\"\>", ",", "\<\"a\"\>"}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"c\"\>", ",", "\<\"b\"\>", ",", "\<\"a\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"c\"\>", ",", "\<\"b\"\>", ",", "\<\"b\"\>"}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "\<\"a\"\>", ",", "\<\"a\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "\<\"c\"\>", ",", "\<\"a\"\>"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"_", ",", "_", ",", "_"}], "}"}], "\[Rule]", "0"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7922414898037233`*^9, 3.7922419253988047`*^9, 3.7922420176026583`*^9, 3.7923273541148176`*^9, 3.7923274897119284`*^9, 3.79239780320232*^9, 3.7924121564577303`*^9, {3.7924807824173875`*^9, 3.792480801657605*^9}, 3.7929309372028146`*^9, 3.7933877627202053`*^9, 3.80629514815009*^9}, CellLabel->"Out[68]=", CellID->363315197] }, Open ]], Cell[TextData[{ "Convert the sparse association directly to a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923272679697137`*^9, 3.792327299411522*^9}, 3.792760951035926*^9, {3.794227988684252*^9, 3.7942280099760695`*^9}}, CellID->870166384], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "[", "sparseAssoc", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7927609536010942`*^9, 3.792760956205202*^9}}, CellLabel->"In[69]:=", CellID->614434766], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "0"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "0"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "0"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "0"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "2"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "0"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"d\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "0"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "0"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.792760956501979*^9, 3.792761401608925*^9, 3.7929309424098024`*^9, 3.7933877670038223`*^9, 3.8062951507553988`*^9}, CellLabel->"Out[69]=", CellID->290459588] }, Open ]], Cell["\<\ Convert it to a ragged dataset with the default elements omitted:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.792327373347473*^9, 3.792327392993532*^9}, { 3.792761038517742*^9, 3.7927610404083786`*^9}}, CellID->742028319], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dataset", "[", RowBox[{"sparseAssoc", ",", RowBox[{"\"\\"", "\[Rule]", " ", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792327398036748*^9, 3.7923274076770964`*^9}, { 3.7923275017425847`*^9, 3.7923275080808835`*^9}}, CellLabel->"In[14]:=", CellID->136523964], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnbFrKmvbrz3n/CWnFlKc3mLVFoHT2KTxK1ZhcwSrhZ3ddKYaG0kRFgQC gZBipZEN00wKAyIMImwkCMsNFsInexP2FvZ75lk6xtxrRWd07nl+ib+r+Njf WjvvfcX7io5jNs///q//93//63/lcrn/8z/D//M/cjnzz/8hhET8888/f/75 53w+/29CPgphz2HVYdtbyv/777+n0+l3Qj4uYeFh5z/H/9dffy3/hT/++GM2 m9n+eSUkZcKqw7aXkYe1i2f+5Z+H/9q///6b8hUVIRiEbYeFL1PffBVYXvaE f2XRjZBsWP4IhM0v/9/wTcHysofP/OQYCDtfXggt3w6H74vDfw6vjmx7EZIR Ye1h82H54T/P53Ne/JCjYnkJFJa//mf2T46HzebZPzk22D85Ztg/OWbYPzlm 2D85Ztg/OWbYPzlm2D85Ztg/OWbYPzlmDu//N0JgYP/kmLHV/xwAEBMQDVX2 i00V9g9iAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKh CvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABi AqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20v xABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhyh6x LZ4Ni0RfkwT2D2ICoqFK4tgW/bOc4fxxnqiupB0m/Sr2/1E1VEkY27xzvsw/ 7F/rdAn2D2ICoqFKrNgWT60v1erns5PcC+xfDxATEA1VYsU2f9gs/7j7n3Xv 2o1apVQs5FePRL5QKJZrjRt/mO5SqJEB8WKbP9xeX1/f3t5+u2icHnf/Eyef e4tSs5PiUqiRAUljWwwu2P+Pp7lSreG47bbbdCrFlwgug1laS6FGBiSNbd5v HXf/s8D3eqOp+FPPLa+e9Fw/raVQIwPYv5ib9AGczaaTyWTcuyn8eFiKjpfW UqiRAexfzI3zoI0Dr+3Uy8Xizxe/WYZ3JBqqsH8xd9cDNrmpF3/ac/bhHZGG KuxfzN3+cPluab3cQrnevrrz/G4vGI16V/kMwzsqDVXYv5i79dEa1lev8Xm3 8/r+9tQvZRfecWmowv7F3G0P1sRbvdgXXXnLY5ZheEemoQr7F3O3PVjR01ou Vwte/4XnVrK78D4yDVWSxvYcff7V6h/h739O3OjdXr5Uv/N7Qa97f+WWNm58 ZHLhcVwaqsSLbfHU7z/2+/3BwLuoLr+16oU3GPTNHw++p/vfAgD3Px93nNxW snnjeVQaqsSKbf7wacs3eXKe7pUQcv8hwV1T3OgulB2ve7/8yDOrD16PSEOV WLE9D6pb+j9tpXslBN6/YTbu+b7nmbt9o7F885fWUqiRAfvFpso76F8ZEBMQ DVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEG EBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hr eyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXY v5hreyEGEBMQDVXYv5hreyGG38jRw/7JMcP+bVugaKiyX2yqsH8QExANVdi/ mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExAN Vdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQ ExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7 IQYQExANVdi/mGt7IYbdJrNeo1QMqV/1bGq8f/aIbfFsSPfMi03Y/26T6Oyt guYBEzgPiB6JY1v0z3488uePR3j+UUbsNpl6GRwwh/OA6JEwtnnnfJn/UZ5/ lxXsPzNixbZ4an2pVj+fnWyc+sL+9div/9kPMtV4/8SKbf6wWT771yZ+/yXX n448p/Zy6GK+WLvrTTLSmM+6d+1GrVIqFiKBfKFQLNcaN/5w6xeiEC+2+cPt 9fX17e3tt4vGKfvXJn7/b+F0RllozCdO/k2HUrNzuIM2SWNbROf/sn89kvef L1XqjlMvvPxJ0Tv4RSB+//lCqdZw3HbbbTqV4suPxGWQ5vWYBkljO+rz37Mi Uf819368rmzaXf8MVC4P/WggzvVP4Hu9kTzz0XPLuejy7EAHbdi/mGt7IYb9 3v8umXXb0StA88BXgD0ekNlsOplMxr2bwht6aLB/Mdf2QgyH9D+fB7XlhgrN sbbGD8aB13bq5WLx57cC7H8P2P9h/U+aqydfV//5f3JTL775Bpj97wX7P6z/ 8eqejH7/vvvyLrxQrrev7swZ8MFo1LvKs/99Yf+H9T+s57O5/okG5fJu5/Xd /qmfwcfTqcD+xVzbCzEc9P43uFw9I5cu5X2ZdDWi38ELX2jkoBn73x/2n6D/ prjBOF5fktTvD/0IbIdG9CSfy9UCIedWPur1/3P0+Verz9//1CJ+/+FVTq15 6XWD0XgU+De1lw/A6of//sEujYkbvffNl+p3fi/ode+v3NLGbaCP0v/iqd9/ 7Pf7g4F3UV1+a9ULbzDomz8efE/3vwVg/3H633bbJZe/7B147RNLY9xxtll8 mP7nD5+2fJMn5+leCbH/GP375ej5X952L9TuhynEH0tjPg/umnJ+2fG690u9 D/L57/OguqX/01a6V0LsP6HJdBh0fd/zfT8YHnjLZy+N2bgXjvfMvc/ROJ0f vczYLzZV2D+ICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOI CYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9 EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxf zLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOIyW/EHuzftgX7twn7t22B oqHKfrGpwv5BTEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhA TEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7t hRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/ Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATHZrzHqNUjGkfnXoWdu2 2CO2xbMh3TMvNmH/ICa7NaIjwArw51y8ReLYFv2zH9/y+SPPP9ICxGS3xrZj KN8HCWObd86X+fP8O0VATNj/isVT60u1+vnsZOPUF/avB4jJfv3PfqAulxKx Yps/bJbP/rUBMYnff8n1pyPPqb2c/Zgv1u56B54/nwXxYps/3F5fX9/e3n67 aJyyf21ATOL3/xZO59AziLVJGtsiOv+X/esBYpK8/3ypUnec+sspxLmih/0i kDQ2nv+eASAmifqvuffj9VX/tLv+GahcQn80wP7FXNsLMYCY7Pf+d8ms245e AZrIrwDsX8y1vRADiMkh/c/nQW0ZSqGZ5pnEacP+xVzbCzGAmBzW/6S5vAQq unz+36PDpF/F/i1obOt/7OTZ/z6wfxCTw/of1vO8/tkH9g9ictD73+By9f63 dDlVdDwU9i/m2l6IAcQkQf9N//VfjN3oxmj9HvojsKSxPUeff7X6/P1PLUBM 4vcfXuXUmpdeNxiNR4F/U3v5AKw+zMp2P+LFtnjq9x/7/f5g4F1Ul99Y9cIb DPrmjwff0/1vAdg/iEmc/ou5LeQve8jXPoZYsc0fPm35Lk/O070SYv8gJjH6 98vR838x/7qKQu1+iB7/PGb/z4Pqlv5PW+leCbF/EJOEGtNh0PV9z/f9YIh8 y+cV+8WmCvsHMQHRUIX9i7m2F2IAMQHRUIX9i7m2F2IAMQHRUIX9i7m2F2IA MQHRUIX9i7m2F2IAMQHRUIX9i7m2F2IAMQHRUIX9i7m2F2IAMQHRUIX9i7m2 F2IAMQHRUIX9i7m2F2IAMQHRUIX9i7m2F2IAMQHRUIX9i7m2F2IAMQHRUIX9 i7m2F2IAMQHRUIX9i7m2F2IAMQHRUIX9i7mEIMD+yTFjq3/bL8gGEBMQDVX2 i00V9g9iAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKh CvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABi AqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhCvsXc20v xABiAqKhCvsXc20vxABiAqKhCvsXc20vxABiAqKhSvzYFvPZ0++Dx8fHB0P/ acrzX7QAMQHRUCVGbIvBt4vPp784AePkrOE9pf9TwP5BTEA0VIkR2+x82+kv ua+D56Stxukw6Vex/4+qoUqM2OatT8tn+y9fv3mDp+/T6dPDt9bpy8uA8z1p rDE6TPpV7P+jaqgSI7bnb+fOt8FPZ3xNvehH4PQx1Yugd9F/4F3VytGZV/l8 oVR22je9cTonXsUwmXXv2o1apVQsROdu5QuFYrnWuPFTO3ERREOV/WL7wfPX s9X3fP17mpdA8P2P2pWXAz5fU/QmqS1l678ycfJvKORypWYnBQkYDVUO6H9+ sXoBOH1I9QBI7P4n7dLGiuvNq6vLZmN94G3W/YcvPLWG47bbbtOpbBzBeBnM PoyGKvv3//wYPf2fPab6Dhi5/4nnrJ/qb3qbrU/9q0YuV+hk1P8s8L3eSF5u ee7qPNKS6//yy96jhip7999pRHeFPt8ezfnXEzd68m/c/+qIz2lm1/+S2Ww6 mUzGvZvlK1HR8T6Mhir7xfb0rRE9DZ7cPqWbP3b/y/PO83XVd3cxwxsHXtup l4vy6OmM+9fWUGWP2GaPrfU3+OX2KdHXxu8w6Vdl0f/UXz39F5tpXObsWMrW f2VyUy/+lFv2/WehoUrS2GaPF+vv7vT8IVFgiTpM+lVZ9D/xihj9++7Lm/BC ud6+uvP8bi8YjXpX+Qz7z0ZDlUSxfe+cr7/fs3Mv5eue1x0m/apMrn9GzvK6 ttD81dV/ykt5+++H9eiDB7fz+kIseoXKpP+MNFSJH9vg+ss6/urXx6R9Ju0w 6Vdlc/3fXN3ozKve2dth8vIy5Mr327MM+89KQ5V4sT13zs/W8Tduf08a5x4d Jv2qbO5/es3oFb/UHL3+q9nIq5fr3TTuAO0wWb8NydWC13/huZXsrv+z0lBl d2yL6dfPJ+abMf/n9Lqv9WvPosOkX5XR518vSw+vgio3Xm80Gna9+2Z9ece7 mMn9/+g2VPg6VKrf+b2g172/cksb918yuf7JSEOVnbHNH8+j+MP8nevrrxet i1e0Wq3rhxQ/AYPufz4fe27uTTL6/Gvccd52yKz/jDRU2d1/v7X9e/zx03Ge 4m9AgPcfMh12GmV53y9fLLs3fiofgMUxCe6a4n57oex43fvl61BWn/9moaHK ztieBxe5nZy2Urwqwu9/yWw6GQZBLyQIRpN0PvndXEoMg3HP9z3P3HQcpfSr p4AaquwXmyrvpX89QExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku 7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh /2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExA NFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYfiNHD/snxwz7t22B oqHKfrGpwv5BTEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhA TEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7t hRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/ Yq7thRhATEA0VGH/Yq7thRhATEA0VGH/Yq7thRh2m8x6jVIxpH7Vs6nx/tkj tsWzQenwu/+w/zjhRWdvFTQPmMB5QPRIHNuivzwJ7PxR6yAk9r/bZOplcMAc zgOiR8LY5uuD8M4fUzzy5RcdJv0q9m9B4/0TK7bFU+tLtfr57GTjyBf2r8d+ /c9+kKnG+ydWbPOHzfLZvzbx+y+5/nTkObWXQxfzxdpdL53T6WM8ILPuXbtR q5SKhUggXygUy7XGjT/c+oUoxItt/nB7fX19e3v77aJxyv61id//Wzid0bYv T0tjPnHybzqUmp3DHbRJGtsiOg6P/euRvP98qVJ3nHrh5U+K3sEvAvH7zxdK tYbjtttu06kUX34kLoM0r8c0SBrb+jhU9q9Hov5r7v14Xdm0u/4ZqFwe+tFA nOufwPd6I3nmo+eWc9Hl2YEO2rB/Mdf2Qgz7vf9dMuu2o1eA5oGvAHs8ILPZ dDKZjHs3hTf00GD/Yq7thRgO6X8+D2rLDRWaY22NH4wDr+3Uy8Xiz28F2P8e sP/D+p80V0++rv7z/+SmXnzzDTD73wv2f1j/49U9Gf3+ffflXXihXG9f3Zkz 4IPRqHeVZ//7wv4P639Yz2dz/RMNyuXdzuu7/VM/g4+nU4H9i7m2F2I46P1v cLl6Ri5dyvsy6WpEv4MXvtDIQTP2vz/sP0H/TXGDcby+JKnfH/oR2A6N6Ek+ l6sFQs6tfNTr/+fo869Wn7//qUX8/sOrnFrz0usGo/Eo8G9qLx+A1Q///YNd GhM3eu+bL9Xv/F7Q695fuaWN20Afpf/FU7//2O/3BwPvorr81qoX3mDQN388 +J7ufwvA/uP0v+22Sy5/2Tvw2ieWxrjjbLP4MP3PHz5t+SZPztO9EmL/Mfr3 y9Hzv7ztXqjdD1OIP5bGfB7cNeX8suN175d6H+Tz3+dBdUv/p610r4TYf0KT 6TDo+r7n+34wPPCWz14as3EvHO+Ze5+jcTo/epmxX2yqsH8QExANVdi/mGt7 IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/ mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExAN Vdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQ ExANVdi/mGt7IQYQk9+IPdi/bQv2bxP2b9sCRUOV/WJThf2DmIBoqML+xVzb CzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+ xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBo qML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGA mIBoqML+xVzbCzGAmOzWmPUapWJI/erQs7ZtET+2xXz29Pvg8fHxwdB/mvL8 Fy1ATHZrREeAFeDPuXiLGLEtBt8uPp/+4gSMk7OG95T+TwH7BzHZrbHtGMr3 QYzYZufbTn/JfR08J201TodJv4r9W9A4iv7nrU/LZ/svX795g6fv0+nTw7fW 6cvLgPM9aawxOkz6Vezfgsav+p/9QF0uJWLE9vzt3Pk2+OmMr6kX/QicPqZ6 EcT+QUzi919y/enIc2ovZz/mi7W73oHnz2fBfrH94Pnr2eqbvf49zUsg9g9i Er//t3A6h55BrM0B/c8vVi8Apw+pHgDJ/kFMkvefL1XqjlN/OYU4V/SwXwT2 7//5MXr6P3tM9R0w+wcxSdR/zb0fr6/6p931z0DlEvqjgb377zSiu0Kfb3n+ dbqAmOz3/nfJrNuOXgGayK8A+8X29K2xvvtz+5Ru/uz/I/Q/nwe1ZSCFZppn EqfNHrHNHlvry7svt0+JvjZ+h0m/iv1b0NjW/6S5vAQquh/p+X/2eLGO//T8 IVFgiTpM+lXs34LGtv7HTv6j9f+9c76O/+zcS/m653WHSb+K/VvQ2Nb/sJ7/ UNc/g+sv6/irXx+T9pm0w6Rfxf4taGx5/xtcrlopXU4VHQ8lXmzPnfOzdfyN 29+TxrlHh0m/iv1b0Fj33/Rf/8XYjW6M1u+hPwLbHdti+vXzyY87PeaS/7qv 9WvPosOkX8X+LWi83P8v1JqXXjcYjUeBf1N7+QCsPszKdj92xjZ/PI/iD/N3 rq+/XrQuXtFqta4fUvwEjP2DmMTpv5jbQv6yh3ztY9jdf7+17VtccnKe4m9A sH8Qkxj9++Xo+b+Yf51EoXY/RI9/HqP/58HFT7n/xGkrxasi9g9iklBjOgy6 vu/5vh8MkW/5vGK/2FRh/yAmIBqqsH8x1/ZCDCAmIBqqsH8x1/ZCDCAmIBqq sH8x1/ZCDCAmIBqqsH8x1/ZCDCAmIBqqsH8x1/ZCDCAmIBqqsH8x1/ZCDCAm IBqqsH8x1/ZCDCAmIBqqsH8x1/ZCDCAmIBqqsH8x1/ZCDCAmIBqqsH8x1/ZC DCAmIBqqsH8x1/ZCDCAmIBqqsH8x1/ZCDCAmIBqqsH8xlxAE2D85Zmz1b/sF 2QBiAqKhyn6xqcL+QUxANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku 7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh /2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Ku7YUYQExA NFRh/2Ku7YUYQExANFRh/2Ku7YUYQExANFRh/2Lu3o9k76peDCk1erPd/3Kc pRz6v3IwIBqq7BHb4tmgdPjdf95t/35zeRZEsXPweYcg4YFoqJI4tkV/eRLY +aPWQUjvtv/VWVge+38/JIxtvj4I7/wxxSNfftFh0q9i/6kDoqFKrNgWT60v 1erns5ONI1/Yv2FmWP5j12X/749Ysc0fNstn//P5pHPplArrI6/y5boTHXqY Tf+z7l27UauUimuJfKFQLNcaN35qJy6CaKgSL7b5w+319fXt7e23i8bpsfc/ Cxov53v+TDb9T5z8mwalZudQAyQNVZLGtoiOwzvW/qeX5Y0V1xzXbTbqlY0f iEz7zxdKtYbjtttu06lsHMF4GRx8ExZGQ5Wksa2PQz3O/qddN9pt4aq7Gfrs rlHMsP9Z4Hu9kTxg1HNXP5wl1//ll71HDVXYv5i79dGaXVVWT271u5H4O7v3 f2az6WQyGfdulq9ERcc7VAJGQxX2L+ZufbQmq8+4cpWfP+TNvv9x4LWderko j57OuH9tDVXYv5i79dEart75Fps/N55t/5ObevGn3LLvPwsNVdi/mLvtwZp4 q2Xb7t9ffdZgKJTr7as7z+/2gtGod5XPsP9sNFRh/2Lu1kdr4i5/AArN8U9/ l2H/w/rqUiPvdl7fZp/6pez6z0hDFfYv5m59tMbN1Y3Owv1PPwDZff778jLk yjsvswz7z0pDFfYv5m5/uO6jj74KjbvNP58G99HHAvr9R8+uuVwteP0XnlvJ 7vo/Kw1Vksb2HH3+1eof4+9/zoKrlyveStPr9vzOjVPbfA+YwfVPdBkWXnmU 6nd+L+h176/c0sb9l0yufzLSUCVebIunfv+x3+8PBt5FdfmtVS+8waBv/njw Pd3/FgC5/5B7Z9sdj2x+/3/ccbY6ZPT+NxsNVWLFNn/4tOWbPDlP90oIvP/w RaDj1sRjUG/f3znLy4GyL6+G91zK9n8nuGuK++2FsuN1V5dhWX3+m4WGKrFi ex5Ut/R/2kr3Sgi+f8NsPPS9EN/vBpO0f8klrsls3PONhd/tjcYH/9Shaqiy X2yqvIv+VQExAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAx AdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYX YgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2L ubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAx+Y3Yg/3btmD/NmH/ti1Q NFTZLzZV2D+ICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOI CYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9 EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOICYiGKuxf zLW9EAOICYiGKuxfzLW9EAOICYiGKuxfzLW9EAOIyW6NWa9RKobUr3pZSaXM HrEtng3pnnmxCfsHMdmtER0BVoA/5+ItEse26J/9+JbPH4/x/KNsADHZrTH1 3ss5d2+RMLZ553yZ/5Gef5cNICbsf8XiqfWlWv18drJx6gv71wPEZL/+Zz9Q l0uJWLHNHzbLZ//agJjE77/k+tOR59Rezn7MF2t3vYMPAtQnXmzzh9vr6+vb 29tvF41T9q8NiEn8/t/C6Yyykt2TpLEtovN/2b8eICbJ+8+XKnXHqRde/iSF 05BVSRrbkZ//ng0gJon6r7n34/VV/7S7/hmoXEJ/NMD+xVzbCzGAmOz3/nfJ rNuOXgGayK8A7F/Mtb0QA4jJIf3P58HqjPBCc6xmeDjsX8y1vRADiMlh/U+a y0ugosvn/z06TPpV7N+Cxrb+x06e/e8D+wcxOaz/YT3P6599YP8gJge9/w0u V+9/S5dTRcdDYf9iru2FGEBMEvTf9F//xdiNbozW76E/Aksa23P0+Verz9// 1ALEJH7/4VVOrXnpdYPReBT4N7WXD8Dqw6xs9yNebIunfv+x3+8PBt5FdfmN VS+8waBv/njwPd3/FoD9g5jE6b+Y20L+sod87WOIFdv84dOW7/LkPN0rIfYP YhKjf78cPf8X86+rKNTuh+jxz2P2/zyobun/tJXulRD7BzFJqDEdBl3f93zf D4bIt3xesV9sqrB/EBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hr eyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXY v5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyEGEBMQ DVXYv5hreyEGEBMQDVXYv5hreyEGEBMQDVXYv5hreyGG38jRw/7JMcP+bVug aKiyX2yqsH8QExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQ ExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7 IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVdi/ mGt7IQYQExANVdi/mGt7IQYQExANVdi/mGt7IQYQExANVfaIbfFsSPfMi03Y P4gJiIYqiWNb9M9W53/x/CMtQExANFRJGNu8c37G8++0ATEB0VAlVmyLp9aX avXz2cnGqS/sXw8QExANVWLFNn84+enUI/avR3yTwLuqlaOjt/L5QqnstG96 43QO3oqhMevetRu1SqlYiI7/yhcKxXKtceODH/y4Il5s84fb6+vr29vbbxeN U/avTTyTUbtS+OlpaUnRm2SjMXHybyjkcqVmJwUJZZLGtojO/2X/esQJr13a KK3evLq6bDbW5+5m3X/4wlNrOG677TadysZJkJfBLAUPTZLGxvPfM2CnycRz 1k/1N73N1qf+VSOXK3Qy6n8W+F5vJC+3PHd1LGrJ9X/5ZTiwfzHX9kIMu0wm bvTk37j/1Umj08yu/yWz2XQymYx7N8tXoqLjpWKiB/sXc20vxLC7/+Wx6/m6 6pvMmA/IOPDaTr1clCdgs//9YP87TKb+6um/2EzjMmdfDcPkpl588w0w+98L 9r/DZOIVMfr33Zc34YVyvX115/ndXjAa9a7y7H9f2P8uk5GzvLwuNH919Z+Z xrAeffDgdl5fiEWvUOx/D9j/zuv/5upGZ171BmPslyFXvt+esf/9Yf87Tbxm dOFRao5e/9Vs5NXL9W4ad4Divg3J1YLXf+G5lY96/f8cff7V6vP3P7XYbfLS XngVVLnxeqPRsOvdN+vLG+/FTO7/R7ehwtehUv3O7wW97v2VW9q4DfRR+l88 9fuP/X5/MPAuqstvrXrhDQZ988eD7+n+twDsP47J2HPfvu+S0edf447ztsMH 6n/+8GnLN3lynu6VEPuPaTIddhplefsxXyy7N34qH4DF0QjumuK2f6HseN37 5evQB/n893lQ3dL/aSvdKyH2n8hkNp0Mg6AXEgSjSTqf/CbTmI17vu955t7n KKVfPc2M/WJThf2DmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzb CzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+ xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVzbCzGAmIBo qML+xVzbCzGAmIBoqML+xVzbCzGAmIBoqML+xVxCEGD/5Jix1b/tF2QDiAmI hir7xaYK+wcxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAx AdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYX YgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LubYXYgAxAdFQhf2L ubYXYgAxAdFQhf2LubYXYgAxAdFQhf2LuTser1mvUSqG1K962kvR+99PTSOT R0OVPWJbPBvSPfNiE+j+o0OvCponO7yb/jN5NFRJHNuif/bjWz5/PMrzj6Ze Bie7vZv+M3k0VEkY27xzvsz/WM+/Y/+bHEn/i6fWl2r189nJxqkv7H/9Z7Mf pL6UFP8HtTQyeTRUiRXb/GGzfPa/PNlqOvKc2stph/li7a6XznnsMUxm3bt2 o1YpFQuRQL5QKJZrjRt/uPULU9XI5NFQJV5s84fb6+vr29vbbxeNU/a/Bacz 2vG/EHspW/+ViZN/06HU7BzuEEsjk0dDlaSxLaLzf9n/8nmuVKk7Tr3w8idF 7+Cnvfj95wulWsNx22236VSKLz8SqZwLn7x/lUdDlaSxHfv57xsbr7n343Vl 0+5665XLQ2+Gx7n+CXyvN5KHLXpuefUSkMbBo4n613s0VGH/Yu6Ox+vtOx6z bjt6zmse+Jy3x/vf2Ww6mUzGvZvCG3oqGpk8GqqwfzF3x+O17Y5fUFs+NIXm OI2l7PzXxoHXdurlYvHntwLW+0/x0VCF/Yu5Ox6vbRufNFdPvq7+8//kpi5P fgfrP7VHQxX2L+bueLy2bXy8uiej37/vvrzvLJTr7as7c/h6MBr1rvIo/af2 aKjC/sXcHY/Xto0P6/lsrn+iQbm823l9t3/qp/iB7GH9p/ZoqML+xdwdj9eW d3zB5eoZuXQp78vstZQ3/zr6rbPwqVUOmqH0n+KjoQr7F3N3PF7rjTfFDcbx +pKkfn/ohz47TKIn+VyuFgg5t2Ln+l/z0VAlaWzP0edfrf5R//5n+Lpea156 3WA0HgX+Te3lI5/64b9/sMtk4kbvffOl+p3fC3rd+yu3tHEbKOP+VR8NVeLF tnjq9x/7/f5g4F1Ul99Y9cIbDPrmjwff0/1vAcD733bbJZe/7KXwar/TZNxx tllk2H8Gj4YqsWKbP3za8l2enKd7JYTdv1+OnvHkbfdC7X6YzrrjmAR3TTm/ 7Hjd+6VeVp//ZvFoqBIrtudBdUv/p610r4Sg+3/FdBh0fd/zfT8YpnmTI67J bNwLx3vm3udonH5sCR8QrUdDlf1iU+X99K8FiAmIhirsX8y1vRADiAmIhirs X8y1vRADiAmIhirsX8y1vRADiAmIhirsX8y1vRADiAmIhirsX8y1vRADiAmI hirsX8y1vRADiAmIhirsX8y1vRADiAmIhirsX8y1vRADiAmIhirsX8y1vRAD iAmIhirsX8y1vRADiAmIhirsX8y1vRADiAmIhirsX8wlBAH2T46Z7Psn5P3C /skxw/7JMcP+yTHD/skxw/7JMcP+yTHD/skxw/7JMcP+yTHD/skxw/7JMbPZ /Hw+Z//kqFj2H5Yf/vOff/4Z/vNspnVCASFohLWHzYflh//8zz//hP/8xx9/ /Pvvv7a9CFEn7DysPWw+LH/5J9PplJdA5EhYXvyEza//5O+///7+g/Cv+CpA Piph28v4Q8LmN//qr7/+Wv55+NIQXh39NyEfi7Dq5WVPSFj7zz8d4U/E8kKI kI9KWLh45heEbwrC98Xz+dz2zyshqRH2HFa9fsNLCCGEEEIIIYQQQgghhBBC CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQvT4/xmy kiA= "], {{0, 562.}, {256., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->72], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{128., Automatic}, ImageSizeRaw->{256., 562.}, PlotRange->{{0, 256.}, {0, 562.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7923274081459537`*^9, {3.792327493660531*^9, 3.792327508502523*^9}, 3.792397806399295*^9, 3.79239786091601*^9, {3.7923980277323985`*^9, 3.792398040383461*^9}, 3.792761046858557*^9, 3.793387769117077*^9}, CellLabel->"Out[14]=", CellID->772030343] }, Open ]], Cell[TextData[{ "Convert the sparse association to a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with the default elements omitted:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923272679697137`*^9, 3.792327299411522*^9}, 3.792760951035926*^9, {3.794227988684252*^9, 3.7942280099760695`*^9}, { 3.7942280527823377`*^9, 3.7942280700143385`*^9}}, CellID->96736172], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "[", RowBox[{"sparseAssoc", ",", RowBox[{"\"\\"", "\[Rule]", " ", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7927610288977203`*^9, 3.7927610295769897`*^9}}, CellLabel->"In[72]:=", CellID->888238768], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"a\"\>", "\[Rule]", "2"}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"d\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"c\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"a\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\<\"b\"\>", "\[Rule]", "1"}], "\[RightAssociation]"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792761042543311*^9, 3.792761094808549*^9, 3.7929309474024715`*^9, 3.793387772538206*^9, {3.806295162314461*^9, 3.8062951727412663`*^9}}, CellLabel->"Out[72]=", CellID->980956126] }, Open ]], Cell[TextData[{ "Reassemble the ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " from the nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " (up to permutation of the keys):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792397727031728*^9, 3.7923977516660237`*^9}, { 3.792398045864044*^9, 3.7923980518664865`*^9}, {3.7942280773151674`*^9, 3.7942280932400336`*^9}, 3.812820470887586*^9}, CellID->352823831], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{"%", ",", "Automatic"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792397756781532*^9, 3.7923977661322308`*^9}, { 3.792397854110628*^9, 3.792397920265572*^9}, {3.7923980063149767`*^9, 3.7923980124323707`*^9}}, CellLabel->"In[73]:=", CellID->183277019], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["10", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["10", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.4166666666666667`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"c\"", "\"d\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "3"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {4, 3, 2}, 0, { 1, {{0, 3, 6, 9, 10}, {{1, 1}, {2, 1}, {2, 2}, {1, 1}, {2, 1}, {2, 2}, { 1, 1}, {1, 2}, {3, 1}, {1, 2}}}, {1, 1, 1, 2, 1, 2, 1, 1, 1, 1}}], "Keys" -> {<|"a" -> 1, "c" -> 2, "d" -> 3, "b" -> 4|>, <| "a" -> 1, "b" -> 2, "c" -> 3|>, <|"a" -> 1, "b" -> 2|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923980297335773`*^9, 3.792398042967263*^9}, 3.792412172390957*^9, 3.792493801292052*^9, 3.792761065218236*^9, 3.792761095966859*^9, 3.7929309485540466`*^9, 3.793387775630041*^9, 3.8062951737588797`*^9}, CellLabel->"Out[73]=", CellID->836559528] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ "Construct a ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " from a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792241329445256*^9, 3.792241367732688*^9}, 3.792241407447406*^9}, CellID->634004722], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SparseArray", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "3"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "4"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7922413188011775`*^9, 3.792241325160944*^9}, { 3.7922413861319046`*^9, 3.792241427182616*^9}}, CellLabel->"In[74]:=", CellID->827245213], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.527193, 0.7932440000000001, 0.9858925000000001}}, {{0.235431, 0.32765, 0.833291}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}, {{ 0.258878, 0.494759, 0.9031865}, {0.235431, 0.32765, 0.833291}, { 0.772061, 0.92462, 0.998703}}}, {{0, 0}, {3, 3}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.527193, 0.7932440000000001, 0.9858925000000001}}, {{0.235431, 0.32765, 0.833291}, {0.282325, 0.661868, 0.973082}, {0.235431, 0.32765, 0.833291}}, {{ 0.258878, 0.494759, 0.9031865}, {0.235431, 0.32765, 0.833291}, { 0.772061, 0.92462, 0.998703}}}, {{0, 0}, {3, 3}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.4444444444444444`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {3, 3}, 0, { 1, {{0, 2, 3, 4}, {{1}, {3}, {2}, {3}}}, {1, 4, 2, 3}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3|>, <| "a" -> 1, "b" -> 2, "c" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792241325570736*^9, {3.7922413921363873`*^9, 3.792241427517624*^9}, 3.7923964537229195`*^9, 3.792412249743061*^9, 3.792474998087679*^9, 3.793387785542367*^9, 3.8062951795036592`*^9}, CellLabel->"Out[74]=", CellID->530748182] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Define a ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " using an array of rules:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923138975632277`*^9, 3.792313924109992*^9}}, CellID->652043575], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rules", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", "4"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", "3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SparseAssociation", "[", RowBox[{"rules", ",", "Automatic"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923139446902237`*^9, 3.79231395742229*^9}, { 3.7923964789866433`*^9, 3.792396481764759*^9}, {3.7923973396404324`*^9, 3.792397344398327*^9}, {3.7923974946019096`*^9, 3.7923974955652795`*^9}}, CellLabel->"In[75]:=", CellID->973760043], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.527193, 0.7932440000000001, 0.9858925000000001}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.282325, 0.661868, 0.973082}}, {{0.258878, 0.494759, 0.9031865}, {0.772061, 0.92462, 0.998703}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 3}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.527193, 0.7932440000000001, 0.9858925000000001}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.282325, 0.661868, 0.973082}}, {{0.258878, 0.494759, 0.9031865}, {0.772061, 0.92462, 0.998703}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 3}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["4", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.4444444444444444`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"c\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {3, 3}, 0, { 1, {{0, 2, 3, 4}, {{1}, {2}, {3}, {2}}}, {1, 4, 2, 3}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3|>, <| "a" -> 1, "c" -> 2, "b" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923139460345144`*^9, 3.7923139578128695`*^9}, { 3.7923207064174027`*^9, 3.792320711024102*^9}, 3.7923964846023293`*^9, 3.7923973453759265`*^9, 3.792397496300828*^9, 3.792412251120578*^9, 3.7924749992747726`*^9, 3.79338778571455*^9, 3.8062951817847233`*^9}, CellLabel->"Out[76]=", CellID->70994839] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Keys", "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/Keys", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to extract the keys used at the different levels. The ordering of the keys \ depends on their appearance in the rules:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923972910814323`*^9, 3.792397334900161*^9}, { 3.7923976760001755`*^9, 3.7923976775984755`*^9}}, CellID->282196999], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Keys", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792396529849267*^9, 3.7923965317854385`*^9}}, CellLabel->"In[77]:=", CellID->768770994], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"c\"\>", ",", "\<\"b\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7923965321504917`*^9, 3.792412253916462*^9, 3.7924750039775114`*^9, 3.7933877858618307`*^9, 3.80629519286979*^9}, CellLabel->"Out[77]=", CellID->400745467] }, Open ]], Cell["Specify the ordering of the keys in advance:", "Text", TaggingRules->{}, CellChangeTimes->{{3.792397379914974*^9, 3.7923973874478674`*^9}}, CellID->107221559], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Keys", "@", RowBox[{"SparseAssociation", "[", RowBox[{"rules", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792397354501994*^9, 3.7923973765651445`*^9}}, CellLabel->"In[78]:=", CellID->228488154], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923973623771667`*^9, 3.7923973768335576`*^9}, 3.792412255262244*^9, 3.7924750050733023`*^9, 3.793387785881495*^9, 3.8062951965362563`*^9}, CellLabel->"Out[78]=", CellID->733670148] }, Open ]], Cell["Specify different orderings at different levels:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7923973942657547`*^9, 3.7923974023485565`*^9}}, CellID->912140758], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Keys", "@", RowBox[{"SparseAssociation", "[", RowBox[{"rules", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792397406126113*^9, 3.7923974221144047`*^9}}, CellLabel->"In[79]:=", CellID->814449768], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"c\"\>", ",", "\<\"b\"\>", ",", "\<\"a\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923974139572797`*^9, 3.792397422550647*^9}, 3.792412256250701*^9, 3.792475006416732*^9, 3.7933877860109653`*^9, 3.8062952038006697`*^9}, CellLabel->"Out[79]=", CellID->58217289] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Use a default element other than 0 and specify keys that do not appear in the \ list of rules:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7922414992273436`*^9, 3.7922415100901327`*^9}, { 3.792397559681614*^9, 3.79239758284813*^9}}, CellID->538115930], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", " ", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792241515194619*^9, 3.7922415154371037`*^9}, { 3.7923138506645527`*^9, 3.7923138872709293`*^9}, {3.792320818150518*^9, 3.7923208203378353`*^9}, {3.7924927336942363`*^9, 3.7924927620911036`*^9}}, CellLabel->"In[80]:=", CellID->583403536], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}}}, {{0, 0}, {4, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "4", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}, {0.282325, 0.661868, 0.973082}}}, {{0, 0}, {4, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "4", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.25`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[Automatic, {4}, 1, {1, {{0, 1}, {{1}}}, {2}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792241515936245*^9, 3.792313856328664*^9, 3.7923138879542685`*^9, 3.792320820714106*^9, 3.792412258886469*^9, 3.7924750115048275`*^9, 3.79249269979622*^9, {3.7924927385309997`*^9, 3.792492762434727*^9}, 3.793387786154027*^9, 3.806295213009591*^9}, CellLabel->"Out[80]=", CellID->44170671] }, Open ]], Cell["Keys without a specified value will yield the default value:", "Text", TaggingRules->{}, CellChangeTimes->{{3.792493025817509*^9, 3.792493046786772*^9}}, CellID->829736784], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7924926927588143`*^9, 3.7924926973795657`*^9}, 3.7924927411164937`*^9}, CellLabel->"In[81]:=", CellID->801669367], Cell[BoxData["1"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7924926977835903`*^9, 3.7924927007057767`*^9}, { 3.7924927414458313`*^9, 3.7924927634878397`*^9}, 3.793387794107484*^9, 3.8062952260902724`*^9}, CellLabel->"Out[81]=", CellID->660400157] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Specify different keys at different levels:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7923209324777126`*^9, 3.7923209416213694`*^9}}, CellID->124351475], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", " ", "=", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", " ", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792320909265224*^9, 3.7923209436187387`*^9}, { 3.792321128341159*^9, 3.7923211315934095`*^9}, {3.7923213921893826`*^9, 3.7923213937358937`*^9}}, CellLabel->"In[82]:=", CellID->236381643], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.772061, 0.92462, 0.998703}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.235431, 0.32765, 0.833291}, {0.772061, 0.92462, 0.998703}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.08333333333333333`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"e\"", "\"f\"", "\"g\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {4, 3}, 0, {1, {{0, 1, 1, 1, 1}, {{2}}}, {2}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>, <| "e" -> 1, "f" -> 2, "g" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.792320929561614*^9, 3.792320943962405*^9}, { 3.792321105055797*^9, 3.792321133417137*^9}, 3.792321394144924*^9, 3.792412265532575*^9, 3.792475013031749*^9, 3.793387794301832*^9, 3.8062952292958913`*^9}, CellLabel->"Out[82]=", CellID->162911471] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "The functions ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Length", "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/Length", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dimensions", "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/Dimensions", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArrayDepth", "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/ArrayDepth", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MatrixQ", "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/MatrixQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ RowBox[{" ", TagBox[ ButtonBox[ StyleBox["VectorQ", "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/VectorQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArrayQ", "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/ArrayQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " are supported:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792321148965439*^9, 3.79232119807165*^9}}, CellID->846224949], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", " ", "=", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", " ", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7924926224617248`*^9, 3.792492644379227*^9}}, CellLabel->"In[83]:=", CellID->202076899], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBggWIQ26p8d9wspXP2c4wXbTH/ccX+xSLFx4GrXtmPilNX fGe3gevOLS/sb7gvX1cz7a39yYjcf/Ff39sDALz9zdk= "], {{0, 0}, {4, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBggWIQ26p8d9wspXP2c4wXbTH/ccX+xSLFx4GrXtmPilNX fGe3gevOLS/sb7gvX1cz7a39yYjcf/Ff39sDALz9zdk= "], {{0, 0}, {4, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.0625`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {4, 4}, 0, {1, {{0, 1, 1, 1, 1}, {{4}}}, {2}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>, <| "a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.792492632899083*^9, 3.7924926452099605`*^9}, 3.7924933343906565`*^9, 3.7924934964047527`*^9, 3.793387794506892*^9, 3.806295246653673*^9}, CellLabel->"Out[83]=", CellID->311848049] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Through", "[", RowBox[{ RowBox[{"{", RowBox[{ "Length", ",", "Dimensions", ",", "ArrayDepth", ",", "MatrixQ", ",", "VectorQ", ",", "ArrayQ"}], "}"}], "@", "sparseAssoc"}], " ", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792321065175929*^9, 3.7923211023364196`*^9}, 3.7923211420892963`*^9}, CellLabel->"In[84]:=", CellID->843925577], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", "2", ",", "True", ",", "False", ",", "True"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923210846485443`*^9, 3.792321142591818*^9}, 3.792321396958785*^9, 3.792412271289096*^9, 3.792475017825494*^9, 3.7924926465834236`*^9, 3.792493335685102*^9, 3.793387794645545*^9, 3.8062952490058684`*^9}, CellLabel->"Out[84]=", CellID->677145160] }, Open ]], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Map", "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/Map", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is supported for operations that preserve the dimensions of the array:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792321455402629*^9, 3.7923214753255053`*^9}, 3.7923215269139376`*^9}, CellID->649651303], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", "sparseAssoc", ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792321489002395*^9, 3.792321494821533*^9}}, CellLabel->"In[85]:=", CellID->36088823], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaPitBYHAJBUE6g= "], {{0, 0}, {4, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"f", "[", "0", "]"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaPitBYHAJBUE6g= "], {{0, 0}, {4, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"f", "[", "0", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.0625`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {4, 4}, $CellContext`f[0], { 1, {{0, 1, 1, 1, 1}, {{4}}}, {$CellContext`f[2]}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>, <| "a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7923214955608253`*^9, 3.7924122727532854`*^9, 3.7924750192536073`*^9, 3.7924926479742136`*^9, 3.7924933369583807`*^9, {3.7924934972353535`*^9, 3.7924935052718277`*^9}, 3.7933877997543383`*^9, 3.806295260501663*^9}, CellLabel->"Out[85]=", CellID->103890095] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "@", RowBox[{"Values", "[", "%", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923215024388914`*^9, 3.7923215079994173`*^9}, { 3.7924077280238695`*^9, 3.792407729050866*^9}, {3.7924935019871006`*^9, 3.792493502733533*^9}}, CellLabel->"In[86]:=", CellID->690500678], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}], ",", RowBox[{"f", "[", "0", "]"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792321508281019*^9, 3.792412275839713*^9, 3.7924750234704533`*^9, 3.7924926500034494`*^9, {3.7924934990337934`*^9, 3.792493506179829*^9}, 3.793387801134851*^9, 3.8062952622363353`*^9}, CellLabel->"Out[86]=", CellID->181819095] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ "Construct a ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " from nested associations:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7924012366689353`*^9, 3.7924012602695475`*^9}, { 3.812820496356529*^9, 3.812820500879939*^9}}, CellID->516569629], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", " ", "1"}], "|>"}]}], ",", RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", " ", "3"}]}], "|>"}]}]}], "|>"}], ",", "Automatic"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792401263202532*^9, 3.792401297184374*^9}}, CellLabel->"In[87]:=", CellID->959503072], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.4455703333333332, 0.7494519999999999, 0.9816223333333334}, {0.772061, 0.92462, 0.998703}}, {{ 0.26669366666666666`, 0.550462, 0.926485}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.4455703333333332, 0.7494519999999999, 0.9816223333333334}, {0.772061, 0.92462, 0.998703}}, {{ 0.26669366666666666`, 0.550462, 0.926485}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.75`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"f\"", "\"g\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {2, 2}, 0, {1, {{0, 1, 3}, {{1}, {1}, {2}}}, {1, 2, 3}}], "Keys" -> {<|"a" -> 1, "b" -> 2|>, <|"f" -> 1, "g" -> 2|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.792401298588996*^9, 3.7924122674787536`*^9, 3.7924750149024687`*^9, 3.7924935098627524`*^9, 3.79338780329176*^9, 3.806295265426273*^9}, CellLabel->"Out[87]=", CellID->386053358] }, Open ]], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Missing", "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/Missing", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " values at any level will be dropped, but the keys will be retained:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7924013063012514`*^9, 3.792401315820878*^9}, { 3.792407356216993*^9, 3.792407360682064*^9}, {3.7924076891553855`*^9, 3.7924076910497394`*^9}}, CellID->285312406], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"Missing", "[", "]"}]}]}], "|>"}]}], ",", RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", " ", "3"}]}], "|>"}]}], ",", RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"Missing", "[", "]"}]}]}], "|>"}], ",", "Automatic"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7924013234692993`*^9, 3.7924013447403345`*^9}, { 3.7924073817124147`*^9, 3.7924074002171936`*^9}}, CellLabel->"In[88]:=", CellID->648061486], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.4455703333333332, 0.7494519999999999, 0.9816223333333334}, {0.235431, 0.32765, 0.833291}, {0.772061, 0.92462, 0.998703}}, {{ 0.26669366666666666`, 0.550462, 0.926485}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 3}}, { 0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}, {{0.4455703333333332, 0.7494519999999999, 0.9816223333333334}, {0.235431, 0.32765, 0.833291}, {0.772061, 0.92462, 0.998703}}, {{ 0.26669366666666666`, 0.550462, 0.926485}, {0.235431, 0.32765, 0.833291}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {3, 3}}, { 0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.3333333333333333`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"f\"", "\"g\"", "\"h\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {3, 3}, 0, {1, {{0, 1, 3, 3}, {{1}, {1}, {3}}}, {1, 2, 3}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3|>, <| "f" -> 1, "g" -> 2, "h" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792401345137318*^9, {3.792407352485401*^9, 3.792407400568832*^9}, 3.792412269021622*^9, 3.792475016245221*^9, 3.792493511639325*^9, 3.793387806032372*^9, 3.8062952692086*^9}, CellLabel->"Out[88]=", CellID->564523709] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Keys", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806295275923711*^9, 3.8062952782577305`*^9}}, CellLabel->"In[89]:=", CellID->219194370], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"f\"\>", ",", "\<\"g\"\>", ",", "\<\"h\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806295278598439*^9}, CellLabel->"Out[89]=", CellID->370479342] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell[TextData[{ "A ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " is more memory efficient than a nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " because the keys do not have to be stored multiple times on each level:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7924104706689916`*^9, 3.7924105167683706`*^9}, { 3.7924758228499713`*^9, 3.7924758490672283`*^9}, {3.794228217194069*^9, 3.7942282244053335`*^9}}, CellID->512225156], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "=", RowBox[{"BlockRandom", "[", RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", "\[IndentingNewLine]", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BernoulliDistribution", "[", RowBox[{"1", "/", "10"}], "]"}], ",", RowBox[{"{", RowBox[{"26", ",", "26", ",", "26"}], "}"}]}], "]"}], ",", RowBox[{"Alphabet", "[", "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792410425084793*^9, 3.792410427468023*^9}, { 3.7924105630177555`*^9, 3.7924105669681406`*^9}}, CellLabel->"In[90]:=", CellID->267607170], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1708", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"26", ",", "26", ",", "26"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[ SparseArray[ Automatic, {10, 10}, 0.93, { 1, {{0, 1, 1, 4, 4, 5, 6, 6, 8, 10, 13}, {{4}, {6}, {7}, { 10}, {5}, {9}, {3}, {8}, {5}, {7}, {2}, {3}, {7}}}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}], {{0, 0}, {10, 10}}, {0, 1}], Frame -> False, Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1708", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"26", ",", "26", ",", "26"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.09717796995903505`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1", "2", "3"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\"", "\"\[Ellipsis]\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {26, 26, 26}, 0, { 1, {{0, 61, 128, 198, 261, 340, 409, 475, 549, 616, 677, 747, 810, 868, 934, 1009, 1075, 1145, 1209, 1266, 1329, 1382, 1433, 1521, 1587, 1646, 1708}, CompressedData[" 1:eJwtl1uS5LoNREciKb7Fp0iKf96Sl3A34I15kT6q8VdHdFcUwETmAfpf//zn 3/+cf/78+e/158/380hHObd4xCudUsqorMYlrqi1bnrp1zR72mSnO5xzy4+g wggrvPGIKtq47/Mu6Ugqy9xKq2dVNdXcTAvt7UcPffX97OGmWfY93vPVb3/f d+94yPMUWtxUNtLKesnLXUNH6k796m2kcaaYboXdVD/d67U3IVJbRB1rnHHd x+3uO13pKak8ZZa3hhqpHVtu81HDjjjamFPOa6bZ17nmK9+yj2122X2v4zzk 4Q5/nqc9X5FEVofSKqioltpX1pdOehhlbpN4wmGnXfSjXfLOR599890Pv+ko 3uFO93OvNLLIJocS0UPUUmvTrfazp5778xyPfsazhqEnt9QyK638lrcdgh7a OcQphMhyX+q6rqZPeojmMAY9oulOuccfXnnjexDBRxPnrdEh3fkezOKkjMyK +rqYkplIr287m2p8Wb+f+jxDjjrG65nFRom8657okI91ytPRwxJBSnnLLF8l cUXEF+2yV7ratXTWj57mtsoaW+ywEwVWcOEOI/oY4qAjdUf62Umnna9Pjdx4 pCyrHmgScUmno7eLfvfxyOdmfG4OJvS84o109uxr+52wz9wvPh3HPv15C1qU U0lmc+iALprJvFbbYLNtdrjlXrdRSPwmVOnsCFd4wowXvT23vDWO8Smkh458 yWV/GjEj31LbPQ01kGPmJZZkPna1N7z3y4fp53PM14I69elF5yOHFPJStyqq a6O7Hvh309fFtJLJ1jnjPZ28dNFiihl1xH3dN06xyeUDt6wSSM/PK3U22Vzr vfT1iGcOM9I0c6FMJj2JednDHPZ4jnkiA+lZvwkVNdW6jsszo6EFrvE64Jxm HmudxLGfXwt+nWhSQifJO0pSPMjxwcQW7hFp5l7OcpVWejXV1lEn/uk9PtdT yNKJJphg9b+avHOfZOk59HEzpUaSDD6O+Hhfp5a649xquhk0rmwgOw9Zjr4w lzME0sxXo4e9PQm6fw6+kkaVmO+iq6seopwt4pRPE/2kMeY986xzznf5RZjw y9hut58u+5TCi0iaG2RJ8pVbJdKktdIXMylQbbkLopVgQ/h8iztyXJ8Ony/S 4P0eorxVVo0GoVacqn4ddDL8Zeiddj44JKyHBK3jOsrRmEk40y9BWjhZYImH Jo3q5XqQzZGcg9S8zrrmpU++kWIbMg4dsX4MSY4eIhiNeeaNL2bd8EN109Pj nognwijUl1OjQ8WhYZXVmIh5wy/LmV4Wk/DnI5wYeORGh61u3PHqG6Zq62yH q4YecpDhxgdfanW2vHxDLlkpWp9mqdug+BgCnjqIOqk9UP5E+5vK76veC2ce m5EjISShNsP/afEKAiMoIxtOPWFaJLnaCBKyf7ldOGKjQgk1TPh+ooHl/Tr7 PKCoqqOdTxsX7+5koZAGhQM9lQPuS3uzTcRHrt/EPfiT6lIdGwWToUPARESM KTsIlWKDmOV+cHuClD5HHP99YDFxwbRzfer6qZ2fgt4HldN4PvejeXodfluw U20LE4jRbl8PJKDTx3V2VH/QXUknBx74cqmvDstv+PB+HDffSuwIepEI4ya8 auQy/raboc/712WAojP5fELRTtwWc1kQgo3SBvy8envM0D9iXTOy4/yqENRA 90Ff41D09JBGKQq0OuH6kEu+l4UQDkbc8Orb9NZ45mGYR7LNCX96F0xIofG8 jxEv2VTpzY4+Br5UZCSUUWYVpNOTT9kdUPHj+akU6aOiEQuADftCzOsMwoiM LkFWdLEqosrAkZYda9j1BTI8fsIFR91JZYUaAV9iUFzRoGXN37pUzCtCKIk7 MmoYcHWzWy/44JjZt+PcnD9+Iyu9FPQQLIaDpCa8Es9ELoLq6mE65Vr0ISGE oRuww/0x6WezRSr5HLFBKU8XDCSXHyMF+8yULy+VraYa8MOAGh0SkJBfF7iV 8a28CR9KdMZ0Q4kBJ/xZSGcQQ7zcHElV9VDdwgfOHBhV2fSfN4JLkEL4B1Bl 9lbEm5sLp0MkTUD1A+C5sSQejcAak5OQQUbGW3HA/u1NAvTxkGpLFkQTJGQS W32FK14VZxpmoK1ni253sykGc5DcejtGnHilO2USaUhLYPoH03fo7+pdC368 e4XNkbyAQ0ihYcWEEPdxnsePBZFUCK49BQ0FFQVJ2Ey92Mtaf6GyCx2nVa6G k/QHpmxKgUWJ/KfW4FDmVgjUeH41DK89Z4B7F8puKglY8+1k9TGAdz7Kqcrd 4q5MRck+zMy18wvxbUTX2coHdeN3tXAZRO6VkN5y/3+itg1o/91qfrZ1wLkF WztsFXhZikvo34apsv/uJEu9zgUtodznJ01FvIQ9DyOs/F6Kp06qcxa48Xmd Dv6++4a/ESo13i9+fQyiI9gBC6ff7GJuW/LufpvYMm/DxDOX3Jd9hcf7etem x0nqPr+F73bC7wIC2HNy53/5h8L8seC3j0r5mkwi/DwXIdLzeY0r/wqWuT/c BeJ3y2F7euo558nsM5NXv704fveK4mLx+HGyJ770vTixQ8kXPs7vZjorDtxs 5SK61OSu43nDVsZ9eM+hkGczV1gt2EvaOa79+HPgXyIm/tNw9DGSYTckdFHs x14SX3zguzX4ExuZqwDX9bV3+90h6bsDuNFubsbMqzfeK98dQM1K1qyt/Hcj SJoFEzla3muYwcNlFn4J/whna/u90nTN7p+8z7EPMspfvx2cfpTZr2cbCa6h /T9bWrZ8 "]}, CompressedData[" 1:eJxTTMoPSmJkYGBYw8bAwDgKRsEoGAWjYBQMcgAADFcJBg== "]}], "Keys" -> {<| "a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4, "e" -> 5, "f" -> 6, "g" -> 7, "h" -> 8, "i" -> 9, "j" -> 10, "k" -> 11, "l" -> 12, "m" -> 13, "n" -> 14, "o" -> 15, "p" -> 16, "q" -> 17, "r" -> 18, "s" -> 19, "t" -> 20, "u" -> 21, "v" -> 22, "w" -> 23, "x" -> 24, "y" -> 25, "z" -> 26|>, <| "a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4, "e" -> 5, "f" -> 6, "g" -> 7, "h" -> 8, "i" -> 9, "j" -> 10, "k" -> 11, "l" -> 12, "m" -> 13, "n" -> 14, "o" -> 15, "p" -> 16, "q" -> 17, "r" -> 18, "s" -> 19, "t" -> 20, "u" -> 21, "v" -> 22, "w" -> 23, "x" -> 24, "y" -> 25, "z" -> 26|>, <| "a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4, "e" -> 5, "f" -> 6, "g" -> 7, "h" -> 8, "i" -> 9, "j" -> 10, "k" -> 11, "l" -> 12, "m" -> 13, "n" -> 14, "o" -> 15, "p" -> 16, "q" -> 17, "r" -> 18, "s" -> 19, "t" -> 20, "u" -> 21, "v" -> 22, "w" -> 23, "x" -> 24, "y" -> 25, "z" -> 26|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.792410428801386*^9, 3.792410567822077*^9, 3.792410624985468*^9, 3.792412278004888*^9, 3.792474989844941*^9, 3.792761452329075*^9, 3.793387813266773*^9, 3.806295283333625*^9}, CellLabel->"Out[90]=", CellID->123565909] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ByteCount", "[", "sparseAssoc", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ByteCount", "[", RowBox[{"Normal", "@", "sparseAssoc"}], "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{ "Full", " ", "nested", " ", "associations", " ", "that", " ", "store", " ", "the", " ", "default", " ", "values", " ", "as", " ", "well"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ByteCount", "[", RowBox[{"Normal", "[", RowBox[{"sparseAssoc", ",", RowBox[{"\"\\"", "\[Rule]", " ", "False"}]}], "]"}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "Nested", " ", "associations", " ", "that", " ", "only", " ", "store", " ", "the", " ", RowBox[{"1", "'"}], "s"}], " ", "*)"}], "\[IndentingNewLine]", "}"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792410425084793*^9, 3.792410427468023*^9}, { 3.7924105880526466`*^9, 3.792410618118859*^9}, {3.7927614381220202`*^9, 3.7927614481608667`*^9}}, CellLabel->"In[91]:=", CellID->426092103], Cell[BoxData[ RowBox[{"{", RowBox[{"55136", ",", "2630208", ",", "411520"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7924104343197346`*^9, 3.792410569054496*^9, {3.7924106215803537`*^9, 3.7924106267531404`*^9}, 3.7924122792722073`*^9, 3.792474990866178*^9, { 3.792761449375812*^9, 3.7927614532675896`*^9}, 3.793387815100759*^9, 3.8062952895442753`*^9}, CellLabel->"Out[91]=", CellID->729461918] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "A ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be reconstructed from its array rules and its keys:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923219690246367`*^9, 3.7923219928365755`*^9}, 3.7923220303086534`*^9}, CellID->852090724], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "=", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"5", ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", "1"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923220314877796`*^9, 3.792322050736188*^9}}, CellLabel->"In[92]:=", CellID->101910263], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.282325, 0.661868, 0.973082}}, {{0.527193, 0.7932440000000001, 0.9858925000000001}, {0.2706225, 0.19420609999999994`, 0.7176195}}, {{0.772061, 0.92462, 0.998703}, {0.258878, 0.494759, 0.9031865}}, {{0.527193, 0.7932440000000001, 0.9858925000000001}, {0.282325, 0.661868, 0.973082}}}, {{0, 0}, {2, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["7", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.282325, 0.661868, 0.973082}}, {{0.527193, 0.7932440000000001, 0.9858925000000001}, {0.2706225, 0.19420609999999994`, 0.7176195}}, {{0.772061, 0.92462, 0.998703}, {0.258878, 0.494759, 0.9031865}}, {{0.527193, 0.7932440000000001, 0.9858925000000001}, {0.282325, 0.661868, 0.973082}}}, {{0, 0}, {2, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["7", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.875`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"a\"", "\"b\"", "\"c\"", "\"d\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"e\"", "\"f\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {4, 2}, 1, { 1, {{0, 2, 4, 6, 7}, {{1}, {2}, {1}, {2}, {1}, {2}, {2}}}, {4, 3, 5, 2, 4, 0, 3}}], "Keys" -> {<|"a" -> 1, "b" -> 2, "c" -> 3, "d" -> 4|>, <| "e" -> 1, "f" -> 2|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923220328997507`*^9, 3.7923220512851677`*^9}, 3.7924077524159555`*^9, 3.7924122811694508`*^9, 3.7924749789111037`*^9, 3.7924755492258215`*^9, 3.7924935407834167`*^9, 3.7924938117242723`*^9, 3.792761487269205*^9, 3.7929310297033033`*^9, 3.7933878203964252`*^9, 3.806295319608513*^9}, CellLabel->"Out[92]=", CellID->7954229] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"ArrayRules", "[", "sparseAssoc", "]"}], ",", RowBox[{"Keys", "[", "sparseAssoc", "]"}]}], "]"}], "===", "sparseAssoc"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923215760729017`*^9, 3.7923215856658645`*^9}, { 3.792321910865103*^9, 3.792321949991954*^9}, {3.792322029760148*^9, 3.7923220342276835`*^9}}, CellLabel->"In[93]:=", CellID->393814493], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.792321950459917*^9, {3.792322034539958*^9, 3.7923220526012444`*^9}, 3.7924077536505003`*^9, 3.792412283301152*^9, 3.792474979789381*^9, 3.7924755502546873`*^9, 3.7924935416404715`*^9, 3.792761488469714*^9, 3.792931030523149*^9, 3.792931189054393*^9, 3.7933878204266376`*^9, 3.806295325075162*^9}, CellLabel->"Out[93]=", CellID->101993984] }, Open ]], Cell[TextData[{ "It can also be reconstructed from its underlying ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SparseArray", "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/SparseArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and its keys:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792321997435129*^9, 3.7923220157735453`*^9}}, CellID->664046071], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"Values", "[", "sparseAssoc", "]"}], ",", RowBox[{"Keys", "[", "sparseAssoc", "]"}]}], "]"}], "===", "sparseAssoc"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792321733283233*^9, 3.7923217339678383`*^9}, { 3.7924935381949396`*^9, 3.7924935388728905`*^9}}, CellLabel->"In[94]:=", CellID->238240831], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7923217347333107`*^9, 3.792321956636819*^9, 3.79232205368161*^9, 3.7924077546510053`*^9, 3.792412284657837*^9, 3.7924749807452464`*^9, 3.792475551143632*^9, 3.792493542564843*^9, 3.7927614904416857`*^9, 3.792931031653383*^9, 3.7929311901216707`*^9, 3.793387826156382*^9, 3.80629533190443*^9}, CellLabel->"Out[94]=", CellID->17107153] }, Open ]], Cell[TextData[{ "It can be reconstructed from the corresponding nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " if the correct default value is provided:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792407839899434*^9, 3.7924078755601435`*^9}, 3.7942282818550544`*^9, {3.81282053069226*^9, 3.8128205313212223`*^9}}, CellID->76818729], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"Normal", "[", "sparseAssoc", "]"}], ",", RowBox[{"Keys", "[", "sparseAssoc", "]"}], ",", "1"}], "]"}], "===", "sparseAssoc"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7924077579858923`*^9, 3.7924077625830917`*^9}, { 3.7924078276663074`*^9, 3.7924078279659214`*^9}, {3.792761483204899*^9, 3.7927614841943893`*^9}}, CellLabel->"In[95]:=", CellID->458468853], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7924077635860596`*^9, 3.792407828336856*^9, 3.7924078811853595`*^9, 3.7924122862562203`*^9, 3.7924749826659107`*^9, 3.792475552459798*^9, 3.7924935522545443`*^9, 3.792493813216791*^9, 3.792761491967744*^9, 3.792931032690321*^9, 3.7929311912739983`*^9, 3.793387826325059*^9, 3.8062953427594924`*^9}, CellLabel->"Out[95]=", CellID->787468945] }, Open ]], Cell[TextData[{ "Test if a ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " has been constructed correctly:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792475518988703*^9, 3.7924755385931244`*^9}, 3.857661428308114*^9}, CellID->765411124], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatchQ", "[", RowBox[{"sparseAssoc", ",", "\[IndentingNewLine]", RowBox[{"SparseAssociation", "[", RowBox[{"_Association", "?", RowBox[{"(", RowBox[{ RowBox[{"#", "[", "\"\\"", "]"}], "&"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792475542879115*^9, 3.7924755448935366`*^9}, 3.806295475647379*^9}, CellLabel->"In[96]:=", CellID->520151854], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7924755458729796`*^9, 3.7924755533470273`*^9}, 3.792493817677571*^9, 3.7927614977659416`*^9, 3.792931033472096*^9, 3.7929311920043373`*^9, 3.793387826341082*^9, 3.8062953466978645`*^9}, CellLabel->"Out[96]=", CellID->976696167] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell["\<\ It is not possible to mix keys and position specifications at one level:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7923221441775346`*^9, 3.7923221855730324`*^9}, { 3.857661312060861*^9, 3.85766131351692*^9}}, CellID->14876783], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sparseAssoc", "=", RowBox[{"SparseAssociation", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"5", ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], "]"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923221992205687`*^9, 3.7923222211464033`*^9}, { 3.8062955290013003`*^9, 3.806295538802619*^9}}, CellLabel->"In[114]:=", CellID->957045727], Cell[BoxData[ TemplateBox[{ "ResourceFunction", "usermessage", "\"\\!\\(\\*TemplateBox[List[StyleBox[RowBox[List[\\\"SparseAssociation\\\"\ , \\\"::\\\", \\\"part\\\"]], \\\"MessageName\\\"], \\\"\\\\\\\": \ \\\\\\\"\\\", TemplateBox[List[\\\"\\\\\\\"Part \\\\\\\"\\\", \ RowBox[List[\\\"{\\\", RowBox[List[\\\"{\\\", RowBox[List[\\\"\\\\\\\"a\\\\\\\ \"\\\", \\\",\\\", \\\"2\\\"]], \\\"}\\\"]], \\\"}\\\"]], \\\"\\\\\\\" of \ SparseAssociation doesn't exist.\\\\\\\"\\\"], \\\"RowDefault\\\"]], \ \\\"RowDefault\\\"]\\)\"", 2, 115, 9, 16904465260815510997, "Local"}, "MessageTemplate"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{ 3.792322221431713*^9, 3.7924122882708845`*^9, 3.792474972313133*^9, 3.7924938324858646`*^9, 3.793387831664137*^9, 3.8062953678779287`*^9, { 3.8062955150594287`*^9, 3.806295539040129*^9}}, CellLabel->"During evaluation of In[114]:=", CellID->82545499], Cell[BoxData["$Failed"], "Output", TaggingRules->{}, CellChangeTimes->{{3.792322206559352*^9, 3.7923222214473386`*^9}, 3.792412288288057*^9, 3.7924749723287587`*^9, 3.792493832501486*^9, 3.793387831685419*^9, 3.8062953678959513`*^9, {3.8062955150755124`*^9, 3.8062955390561934`*^9}}, CellLabel->"Out[115]=", CellID->375000065] }, Open ]], Cell[TextData[{ "This is analogous to the same limitation of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.792322320558613*^9, 3.7923223432005863`*^9}}, CellID->190717473], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}]}], "|>"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792322345002061*^9, 3.792322357843007*^9}}, CellLabel->"In[113]:=", CellID->811583017], Cell[BoxData[ TemplateBox[{ "Part", "pmix", "\"Integer and Key specifications cannot be mixed in \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"a\\\\\\\"\\\", \\\",\\\", \ \\\"2\\\"}], \\\"}\\\"}]\\).\"", 2, 113, 8, 16904465260815510997, "Local"}, "MessageTemplate"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{3.792322358358385*^9, 3.7924122896979237`*^9, 3.792474973302419*^9, 3.792493833736144*^9, 3.793387831796811*^9, 3.8062955321782756`*^9}, CellLabel->"During evaluation of In[113]:=", CellID->206444714], Cell[BoxData[ RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", RowBox[{"\<\"b\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}], "\[LeftDoubleBracket]", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "2"}], "}"}], "\[RightDoubleBracket]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.792322358374012*^9, 3.7924122897143803`*^9, 3.7924749733180466`*^9, 3.792493833751734*^9, 3.7933878318133993`*^9, 3.8062955321942806`*^9}, CellLabel->"Out[113]=", CellID->893063334] }, Open ]], Cell["Use only strings or only integers instead:", "Text", TaggingRules->{}, CellChangeTimes->{{3.792322230416811*^9, 3.792322248605438*^9}}, CellID->813476132], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792322254626257*^9, 3.7923222557978334`*^9}}, CellLabel->"In[116]:=", CellID->643486868], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.5516797999999998, 0.8063815999999999, 0.98717355}, {0.2565333, 0.4780481000000001, 0.89619695}}, {{0.2565333, 0.4780481000000001, 0.89619695}, { 0.235431, 0.32765, 0.833291}, {0.2776356, 0.6284462, 0.9591029}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.5516797999999998, 0.8063815999999999, 0.98717355}, {0.2565333, 0.4780481000000001, 0.89619695}}, {{0.2565333, 0.4780481000000001, 0.89619695}, { 0.235431, 0.32765, 0.833291}, {0.2776356, 0.6284462, 0.9591029}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.8333333333333334`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {2, 3}, 0, { 1, {{0, 2, 5}, {{1}, {3}, {1}, {2}, {3}}}, {1, 2, 5, 4, 1}}], "Keys" -> {<|"a" -> 1, "b" -> 2|>, <|"a" -> 1, "b" -> 2, "c" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923222250773025`*^9, 3.792322256091367*^9}, 3.7924122941885204`*^9, 3.792474974287826*^9, 3.7924938346569242`*^9, 3.793387842371368*^9, 3.806295541543729*^9}, CellLabel->"Out[116]=", CellID->740373536] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923222620320206`*^9, 3.7923222623913116`*^9}}, CellLabel->"In[117]:=", CellID->877648737], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.5516797999999998, 0.8063815999999999, 0.98717355}, {0.2565333, 0.4780481000000001, 0.89619695}}, {{0.2565333, 0.4780481000000001, 0.89619695}, { 0.235431, 0.32765, 0.833291}, {0.2776356, 0.6284462, 0.9591029}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.5516797999999998, 0.8063815999999999, 0.98717355}, {0.2565333, 0.4780481000000001, 0.89619695}}, {{0.2565333, 0.4780481000000001, 0.89619695}, { 0.235431, 0.32765, 0.833291}, {0.2776356, 0.6284462, 0.9591029}}}, {{0, 0}, {3, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.8333333333333334`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\"", "\"c\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {2, 3}, 0, { 1, {{0, 2, 5}, {{1}, {3}, {1}, {2}, {3}}}, {1, 2, 5, 4, 1}}], "Keys" -> {<|"a" -> 1, "b" -> 2|>, <|"a" -> 1, "b" -> 2, "c" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.792322262812982*^9, 3.7924122956557217`*^9, 3.7924749752251453`*^9, 3.7924938357655554`*^9, 3.793387844202467*^9, 3.8062955431231184`*^9}, CellLabel->"Out[117]=", CellID->59056318] }, Open ]], Cell["At different levels, different specifications can be used:", "Text", TaggingRules->{}, CellChangeTimes->{{3.792322271261462*^9, 3.7923222906388936`*^9}}, CellID->856178759], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.792322298452585*^9, 3.7923223033529286`*^9}}, CellLabel->"In[118]:=", CellID->254711664], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.5108684666666667, 0.7844856, 0.9850384666666667}}, {{0.2604411333333333, 0.5058996, 0.9078462}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.772061, 0.92462, 0.998703}, {0.5108684666666667, 0.7844856, 0.9850384666666667}}, {{0.2604411333333333, 0.5058996, 0.9078462}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.75`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{",", "\",\"", "\"a\"", "\"b\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {2, 2}, 0, {1, {{0, 1, 3}, {{1}, {1}, {2}}}, {1, 5, 4}}], "Keys" -> {<|"a" -> 1, "b" -> 2|>, <|"a" -> 1, "b" -> 2|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7923223036992855`*^9, 3.792412300836281*^9, 3.7924938384764023`*^9, 3.793387847149976*^9, 3.806295545852312*^9}, CellLabel->"Out[118]=", CellID->333305444] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell[TextData[{ "Excel files often have row and column headers. ", Cell[BoxData["SparseAssociation"], "InlineFormula", FontFamily->"Source Sans Pro"], " provides an easy mechanism to create a lookup table from such data:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923244136352034`*^9, 3.7923244987795715`*^9}}, CellID->22246369], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sheet", "=", RowBox[{ RowBox[{"Import", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "4"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"sheet", "//", "TableForm"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.792324501685499*^9, 3.7923245653221407`*^9}}, CellLabel->"In[119]:=", CellID->349688527], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Abbreviation\"\>", "\<\"AtomicNumber\"\>", "\<\"Name\"\>", \ "\<\"AtomicWeight\"\>"}, {"\<\"H\"\>", "1.`", "\<\"Hydrogen\"\>", "1.0079345703125`"}, {"\<\"He\"\>", "2.`", "\<\"Helium\"\>", "4.002593994140625`"}, {"\<\"Li\"\>", "3.`", "\<\"Lithium\"\>", "6.94140625`"}, {"\<\"Be\"\>", "4.`", "\<\"Beryllium\"\>", "9.012176513671875`"}, {"\<\"B\"\>", "5.`", "\<\"Boron\"\>", "10.80859375`"}, {"\<\"C\"\>", "6.`", "\<\"Carbon\"\>", "12.010696411132812`"}, {"\<\"N\"\>", "7.`", "\<\"Nitrogen\"\>", "14.006698608398438`"}, {"\<\"O\"\>", "8.`", "\<\"Oxygen\"\>", "15.99609375`"}, {"\<\"F\"\>", "9.`", "\<\"Fluorine\"\>", "18.998403191566467`"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7923245662729254`*^9, 3.792398137933181*^9, 3.7924123031367474`*^9, 3.792474960965999*^9, 3.7924938438313284`*^9, 3.792931014841749*^9, 3.7933878568611593`*^9, 3.8062955496297026`*^9}, CellLabel->"Out[120]//TableForm=", CellID->287457248] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "=", RowBox[{"SparseAssociation", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"sheet", "[", RowBox[{"[", RowBox[{ RowBox[{"2", ";;"}], ",", RowBox[{"2", ";;"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"sheet", "[", RowBox[{"[", RowBox[{ RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{"row", " ", "headers"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"sheet", "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"2", ";;"}]}], "]"}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{"column", " ", "headers"}], " ", "*)"}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792324501685499*^9, 3.7923245653221407`*^9}}, CellLabel->"In[121]:=", CellID->695255251], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseAssociation", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGDgBGJmKH6n1bZAtOKafcrrR+mmMc/sly7tMfvi8N6eAQwe QGkE2Nlt4Lpzywv7G+7L19VMe2t/MiL3X/zX9/bqi25r/RS+bJ/6Q7olpPip /Vv3gK92WrjN6ZB5VXst+qn9lQsf1x049dqevfXype4T7+1DCsWkrK5ftLd4 tdLxW+wT+9pb0ZvKzrzD7Z6ZpVtv3nhkH1XbE3C88JW9UHV33Itl7+2X3E/g z468aB/N6fBu0dxH9hWavNKfBHCbE/fm6v7ykAf2z5/VB/BJvLSPD1xiZdT6 3r7q/i4Zb7aL9s9tf17KKn1oH75gZwTP1Lc4zbm8pf1Q+fs79ld4ohe4S7yw b3Cfm+yY897+tC+rUE3HBXuRXXL/9bLu2we9zzrYfvMNTnNmxVm/+Gd1w57z 19I07avP7Hlkl27b7/PefoFvvHyM6QV7TeWJJ/ZJ3rU3SBP/vzAWtzlB/Bap Oqsu2qvtNY/I3PvY/nlLxVb/znf2b2cVRVYcOW9v18M8ye/kLXu+u4dt9jx8 jdMcU3Y2VrfNF+w1PB5mTfJ9YP90c/1cP8m39n3l7C63Tpyzbz+l/3q5x3V7 Lp3SpeZquM3ZPXfevjty5+0zt124oF59w74ov+lVQNprewAIdOib "], {{0, 0}, {3, 9}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["27", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"9", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGDgBGJmKH6n1bZAtOKafcrrR+mmMc/sly7tMfvi8N6eAQwe QGkE2Nlt4Lpzywv7G+7L19VMe2t/MiL3X/zX9/bqi25r/RS+bJ/6Q7olpPip /Vv3gK92WrjN6ZB5VXst+qn9lQsf1x049dqevfXype4T7+1DCsWkrK5ftLd4 tdLxW+wT+9pb0ZvKzrzD7Z6ZpVtv3nhkH1XbE3C88JW9UHV33Itl7+2X3E/g z468aB/N6fBu0dxH9hWavNKfBHCbE/fm6v7ykAf2z5/VB/BJvLSPD1xiZdT6 3r7q/i4Zb7aL9s9tf17KKn1oH75gZwTP1Lc4zbm8pf1Q+fs79ld4ohe4S7yw b3Cfm+yY897+tC+rUE3HBXuRXXL/9bLu2we9zzrYfvMNTnNmxVm/+Gd1w57z 19I07avP7Hlkl27b7/PefoFvvHyM6QV7TeWJJ/ZJ3rU3SBP/vzAWtzlB/Bap Oqsu2qvtNY/I3PvY/nlLxVb/znf2b2cVRVYcOW9v18M8ye/kLXu+u4dt9jx8 jdMcU3Y2VrfNF+w1PB5mTfJ9YP90c/1cP8m39n3l7C63Tpyzbz+l/3q5x3V7 Lp3SpeZquM3ZPXfevjty5+0zt124oF59w74ov+lVQNprewAIdOib "], {{0, 0}, {3, 9}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["27", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"9", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1.`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keys:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "1"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"H\"", "\"He\"", "\"Li\"", "\"Be\"", "\"\[Ellipsis]\""}, "RowWithSeparators"], "SummaryItem"]}]}, { RowBox[{ TagBox[ TemplateBox[{"\"Level \"", TemplateBox[{",", "\",\"", "2"}, "RowWithSeparators"], "\": \""}, "RowDefault"], "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ ",", "\",\"", "\"AtomicNumber\"", "\"Name\"", "\"AtomicWeight\""}, "RowWithSeparators"], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], $CellContext`SparseAssociation[<| "Array" -> SparseArray[ Automatic, {9, 3}, 0, { 1, {{0, 3, 6, 9, 12, 15, 18, 21, 24, 27}, {{1}, {2}, {3}, {1}, {2}, { 3}, {1}, {2}, {3}, {1}, {2}, {3}, {1}, {2}, {3}, {1}, {2}, {3}, {1}, { 2}, {3}, {1}, {2}, {3}, {1}, {2}, {3}}}, { 1., "Hydrogen", 1.0079345703125, 2., "Helium", 4.002593994140625, 3., "Lithium", 6.94140625, 4., "Beryllium", 9.012176513671875, 5., "Boron", 10.80859375, 6., "Carbon", 12.010696411132812`, 7., "Nitrogen", 14.006698608398438`, 8., "Oxygen", 15.99609375, 9., "Fluorine", 18.998403191566467`}}], "Keys" -> {<| "H" -> 1, "He" -> 2, "Li" -> 3, "Be" -> 4, "B" -> 5, "C" -> 6, "N" -> 7, "O" -> 8, "F" -> 9|>, <| "AtomicNumber" -> 1, "Name" -> 2, "AtomicWeight" -> 3|>}, "ValidatedQ" -> True|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.792324543086711*^9, 3.792324567007125*^9}, 3.79239814021908*^9, 3.7924123050703945`*^9, 3.79247496168587*^9, 3.792493844520052*^9, 3.7929310156696305`*^9, 3.793387860743045*^9, 3.8062955511805058`*^9}, CellLabel->"Out[121]=", CellID->177835214] }, Open ]], Cell[TextData[{ "The data can now be queried like an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7923246044026127`*^9, 3.792324634414212*^9}}, CellID->456124105], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sparseAssoc", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7923245822283545`*^9, 3.7923245974621797`*^9}}, CellLabel->"In[122]:=", CellID->949310967], Cell[BoxData["4.002593994140625`"], "Output", TaggingRules->{}, CellChangeTimes->{3.7923245984154787`*^9, 3.792398143050783*^9, 3.792412306920546*^9, 3.7924749626387844`*^9, 3.792493845694526*^9, 3.7929310170543747`*^9, 3.79338786523554*^9, 3.8062955526512794`*^9}, CellLabel->"Out[122]=", CellID->332519000] }, Open ]], Cell[TextData[{ "Convert to 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.792398155498889*^9, 3.7923981765679646`*^9}, { 3.79422839641905*^9, 3.794228410704556*^9}}, CellID->108730061], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dataset", "@", RowBox[{"sparseAssoc", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.792327015441452*^9, 3.7923270382581367`*^9}}, CellLabel->"In[5]:=", CellID->600561499], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnT2r8sq/9z2cV3LXgu/AwtpCuBsbG09hYXMLVmKXLp1W2oiFRxCEBbIK beSGNFooiCCyQEQE3ZAicMK1kX0J+zoTk5mMefBpmeWo3w/82evSSTLJb+bj POb/f/7r//3f//rPUCi0IP/77/8IhYy//xzz+/fvX79+6br+PwAA8GwQdxGD EY/98eeff/5RVXUDAADPD7EZcZpbdH///beZ4K+//tI07dFuBgCAGyEGIx4z hUbM5mjRmZ+TZP/++++Jth8AAIgP8Rixmak1vnVndl3JVw/MGwAA3BdTd8Rv 5j9///5tdl3RogMAvBLEaWZn1pyq+PXrF/mb9HAfnS8AALgzxGzEb8Ry5G9d 19GBBQC8JGY3lliO/Q3XAQBeD95vcB0A4FWB6wAA7wBcBwB4B+A6AMA7ANcB AN4BuA4A8A7AdQCAdwCuAwC8A3AdAOAdgOsAAO/A9133/wEA4MeB6wAA78Cj XKcLgDg5AYgFCA64TpycAMQCBAdcJ05OAGIBggOuEycnALEAwQHXiZMTgFiA 4IDrxMkJQCxAcMB14uQEIBYgOOA6cXICEAsQHHCdODkBiAUIDrhOnJwAxAIE B1wnTk4AYgGCA64TJycAsQDBAdeJkxOAWIDggOvEyQlALEBwwHXi5AQgFiA4 4DpxcgJePhaaul0bbLVH5yQotImUjBOKrcmjs+IErrsgJ9tKPMTIegRRrSUP 38VL26Cy+RZcWSrUWpqFJfzx5emP7aD3SVAm67vl8hsoctTMrqxcV1K2g5Jd BEP5iete1VHN/K505ZnvzFYx60pUVh6ZDS/guktcVzLjFzZLU3rkLGk0QRSu +xbXlYp1L8rV/3hp4JFm2zfThKX+HfN5M4pVUEJS/zr3HrsulK45f3BZAll5 qNVVxfrZh+ue03VGu84SnfGfZGXgkQCu+zZXlYpJI81X/1C4+OVOJFjVm32U stl8NlvsfalXHci7LmyUwfRA9U4A1/kB113bhz2QVFSvBHDd97imVCxpd5D+ CoVClZH78Y/o6IJXq+95cLTr3Hcksuu0Aw/MlAlcd4Xr0qVWKWmVNLnvkYBz nbYe1UpSNp2MhmldDEfjybRU+XD+pGtfNalIqClLclSlmGaVN54u9maHU2rL z5oUj7JvolJD8S4960lNyrJ0hpezsnJlK+JRXF4qtFmDtuY+v/oy/bvHp1kq jWKW/kpF0xKlWJTJk2bJtrOelOZ+zMLRYuVz6Xi4d4rRsl8zzlKszFzBmymt fDpOew/haDIt1z4maytwTGWljxZtzsb7nNo9XTfrVfLkalLNNZap9irS4Zu+ /c1d7pG6jvR91KUi55MsaTie/5x4twUmvVo2zpXZaFJuKY4i+2U9uprRetfW ymdDlg63IDe8R2pdwHVXuC5e2aqDJI1Hb+1KwLluq8ghX5JHozV0ONeHaKlV S3t+Ufx0ZHTZr4S9UhKkz9k9nlawXF4qFNl6ZsYgv8aCcjSUqkhRn4dhD5eN GnmfJOk+77s7xYhmO9o/qvTLWtYvq3FzqsF23Wg7qli3G+UGIT1d53M5I3nJ GseUuVJ8j3ukrvND7i+Pc/JVSfuU2bjM/yLQewmXGpXjS7jvzhu47grXRUvk t4aVtLAd4hOuCyfTeblUqVUqcpFrbqVbdhidxSOczhelYtZdAsLk91WS0vYv YJRvf7CZOKOY5EufymCg9GS7EvFyFpSLS8WMGip7mJHUPvLWM5F6dlX66pWS 7FmF41mLdDqZ7x2aAuueZFeYrPTR6302Slx9z9s/D3eK0cDqF8S5ydJtjTt1 slhqtRolKU/D5nSdTNo7ttvJyelZvFzndTkruceoy13u0XWSZLYoy0VO5Xxm +Jn0eKnxORgNeg02OBEKS3ZDnd6LG7juUq5ynVGMtBGND1vn4FVytjNFmTi7 jluFHpu0x5a54pGWW3Z3c/lp17tw9mPEajGp2nTpgt1AZIOK4Ypy9NM5amSt SzqnVITjwlLB6nWU1oWtQoez0o2jDg3Vgtd43VKilTXfGnGHzGibkVtfdJ8Y eciHa//HP466eOqgJbGK7FDZiDoinP9wPJO7uO72e+ROkq/01iwY6oj5LtuY OPIcztaOiqw6yrqqCe+6cFrqjWZbVd2ul5PJpQM0cN1VrjMLxoTag1QGzSuB B5qmbrdbdf1hhZwbbKHFI+pcF0GX7R2PzBhf0EISL1kjwKxRF/dYXLG2KrXw y/8uLBWftBVXGdFirk1oSOKO8QG/aUF1UKH1qeasLF8t6wIsoPeIke4hny3r j0mezW7VOV5nqcy+33Dr0NO7o+u+dY/+87Aa63dY5dD3tDrX5GYLEZnrpI8b VynDdTe4jutDhWpGJ8pnfZ0xglorZtPRqLsfwBU//+LhV1ZZwWaHsFIXiuZr pMPMMLrPRfrVS7iODZlGZd4OrC5kW9zIpP+zZU+M7/ZS1rQflbVW7d4jRl6J adHyXDDjdTamslmLlsFDU/aOrvvWPZ5ac0Jrjdk/4pY35EuVY2oS/Qlgt0Pz kBzcOs8G193kOv3rgwok2SABdidQJ62TI73fch0bRmaH2E3NExzLQUAuKRXL T/rkQ8We0u+Z9PstNhNhVaUD/s+WdQO9tjDQoftQ0vryHjHySMy8fa7J7aWy ryL9Ca1NSKvpAa7zuMdTrqNPNV4xTqONLiiybte57+VS4LrbXMeP9tRGs0by OIE9XWt8WpRrHz1lNJp8rZd0FP17rnMdwuYlSfU8TMW7yRcrPcGXnlwQC5Uf yfch3PpyDpW7ny3bwuC1II32+kNZq5d8jxh5JGZTn7e4Tl+yuZVk44v2EH/U de5DTrluLVtl/+A6bto3WfQpsvni50w9dy+XAtfd6jp93bdKWjiZL5rLiGiC L9r2CKcrjsU/HiG7Rxlb0yHuimsD2xNxPhbLT991JBz2TIT/s2VPzLNdR7tX 32jXXeI6tiKab4t64bNUmC2oDucl60dUYNfRhqh1s2vWzLukyMJ13+dm1xnB 4rupYTsBa2WVXIMLdMnKnV1nT+dlW88ru7OxmNCOZ7qiqMZkD4+6HjXoWlw6 /MW2orumbNgTC7uWKdpNDqagoFzHOsvhhnt5MZ8jn20R1l1w48GernMN/nuM ugTtOrb8m7RCVce9u99l4AKu+z7fcB0pgXQuL3SUYEBn1/KtoxW82rLPpgvv 6zpdZSthQkWPiSpt9CFLDeFes+PgXCxYM8ZeV3YMbSqw/WLqgC7OkJxH0Cla NpXJ6NGfKramJTDXka40zUWy5MihtlSK6aLZifbfAubcwOi1ljiU/+CnPtRB g/bRg3Odc5HPms04F+lkEBsyDUWLbttp65Gcl0bONSdw3e18x3XO4SOawJ4V Ja2G2udkNhspvUqRT3pv1x1PT8Tzpd5g8rVcziaDz4Zs9bDF247t4HQsuIZB xa+8s4dA94vZKogXG4PJZKR8liTZ3BMxsNvl4dLnYKtq2+WklmcfckYNzHVH Q7vR7IcyWS6/SGkpFU0PxD3X1x1dh1tD7kjw9cHWC4SlRm8wGny2SkmuERic 64wFAaWGMpot18vZgC3EI3AzzvbKGeMcpVZvMvtafs0G/Q8572yRwnXf5xLX sSUl7kEVbdKww2WXHHtnug9H6+vcE3Ymvn0Q70PUD+nU3K8g7zU6welY9L1b KcfYL3qy3gQy+/DYBUb3iC19F+MbzeOjtSt3iZFn4rVS8c6BgfdaYseV+De+ HCeY+W2Bo6c/mrO+wz2qpzeake7q0aiOOvk4vTHN7boLd0m4gesuatdZS3tq Xo/ZXj1uTTCZqLNS2uG7qNwizTuzXHLv5KH9rKRrbf/Andg6xN5h7TjkS2kd baO2ili8WGqMloJPw56OhWu+wBt721HN6v9oSq3oeB6Vgb2Zr1dx+SCcbo2O lXKnGNFem/MW1K/+0fsHrKClKx/WWdloide7XEiLt8VCXhocJ1grRceJo9nP ycSjSN/lHtmgQSjqLIbRvPebrLSvluyxEy2eLjZ6rAurjyr00WF93a0EmpPt 12SgKMpgMJn9qGi266/JaDSaEEiv4Gne+B1gLNT1zIB069eq+3Go60OcDEiv 61GPS1O3X7PZIWiz5fae5WVJ+u5GMRzMvn5yiaX6NRsNBpddVyP3bpVZEqat R5C+C1wnTk4AYgGCA64TJycAsQDBAdeJkxOAWIDggOvEyQlALEBwwHXi5AQg FiA44DpxcgIQCxAccJ04OQGIBQgOuE6cnADEAgQHXCdOTgBiAYIDrhMnJwCx AMEB14mTE4BYgOCA68TJCUAsQHDAdeLkBCAWIDge6zoAAPhJ4DoAwDvwKNc9 ulVrcNsTAEGAWIDggOtQv8QBsQDBAdehfokDYgGCA65D/RIHxAIEB1yH+iUO iAUIDrgO9UscEAsQHHAd6pc4IBYgOOA61C9xQCxAcMB1qF/igFiA4IDrUL/E AbEAwQHXoX6JA2IBggOuQ/0SB8QCBAdch/olDogFCA64DvVLHBALEBxwncj1 a9GREoSUvNg/Ois/wg2x2O8MvvF49upqMR4Ph8PxdL7SdrefCAiO2K7bVuIh g3hpe2OCu7hOrycOV0lU9RsT3Mi0ap13eN/zisrVpXE/TR0eUHl8ywNaKVbc eDLl/ns87LdDcNeVTJVFfV13LsF9XGcpJ+brunMJbmRaNaty4qaq/HxcWRr1 ftl8PsR12rXX2vRll+csIoXue7Sj3wvBXVc557pzCe7juvo5151LcCNwnQf7 VbWQy2VSEc5OV7tuN07RYxNSe77RdE0dd+TIzScEwgPXCee6vYH557wO17nQ h7zlblPTpluwmnC5Dt+E2/Ql2pXtoGn3YsB1QbhOm3akgkRojlWv5NOy8WWh 3Jnznw7b5VSM1eNIRioXYiGn6/abpmwcW1c2xoVW43a9bHxArjXc2KdqygnO CLGU1J975cR93UiMXLd+yJ8kNzeOCq8tmnKOV00qVx5vjgf0rRwa977X5yQ9 f+72ePPHn8tKoz7stNvtTqfTrUuJm1y371g3Eek473AjWbnNzCG71+I5XHd2 buJnXHd2boK6Tp9WqWWq7ko4tVproVSTum6/kmOuxooN5zp9nLAaJNWmnOIT xeSxee2Cu91j1t760Fl9d3Pp1HVj/JyIOqz7nDgk91fcwxi7B/x5Ct3VHx+u LY37ed0855WuWxXoI3EJbd+lj68+fY/G9NvwHK4LS5P1dr10QD6aSNFDgp9x XUReGOM6DshHC8tUdsNPK1OHNBeOdQwLWtFSY+ubXTtjqyBVKNfrVVnKcRLi XMcNNDmIyEMipLJ9WExudodKv1qw3ZPr8J7R+WnIjFxtkzaiVOAahPZ1d/Om /Wmh2h9Pp2OlbOcxpmi+OUzlCrJU4G4n57eE5trSyH5TrnMds7HXjxcdI8WQ 3avxHK47y8+47ixcJ9ceESr0+XNpijX9F5MU85MdbZyQzzpzvvLt+7LVoPRx XURuKytN3+10dbPYaDuVnjwUkeacYjf9stsz2ph9mOqveCHvFed12ROI1I97 5fN2zjpFferOYUrubOze94q1Ias+TaYfch3LodegBFz3qsB1AbmO9K9oY41f HWdLo7MypcPGjkJS3zmk5jEPy+ppQnY2GLl81ufO77r0KmXLM7smVVJ56KzU juuyRl3CaDo60KzJS9ZGojmMuRIvmpnTGhHKdX5CBk/Kk7gu3ej1Pl30eo30 j7ou01aUvgtFoX3Q47ozLrPDFuYn+1XH8kuqSWVE1+Z59exOuC5RnTpTc31t 9zwEa8XlrMywxJJ7tsDpOnv4sdBs1m2q9WadTlzGnK5LlMeO0+7OqQmuA8Hx HK6LV1TvBOrPzk3UfbYQ7bwnajddqy1FfaLQGQiuKbWxPjs1duTlOpdJiEos 5XqdSh9X6ZeHA/d02PCC6y5oR/UUsbJ2Lodn1SSU69CHfTGew3XPtuaEYk86 lMc7tqGJ9FbtptRF4+SXue7kqbShNZSXMSd/T4rRcV3WQDVG4MwFLk4KUl2h My3Cu85+UHWPe6/Dda8JXBek60itsnqOkUJ3TtepZpoLz2M9Vqdc5bo/2omt artpnbptfHTdiHy2D8v6v/VL1pyJ7zp7zYl73ABrTl4WuC5Q13FrUxmp400Q WtXq13LLNige+yZOuU5np3LNcvwZ02FBqgU2TugxkUEbctZ1mbFDuQt2EzyB 67i1xCv/tcR458lrAdcF7Dp78tEkQpeaMNggXkw+Wp2yWylsJvcy19n9r0jh WEqqQsVma5AbhcspdO/DTlt0ZJZhet0dm1MOSV2+UWqyn3fLMp1/+UnXseU6 fvMIu0WbPNxIJEKeyNEiHL89Yl3sEXtZ4LqgXfdHH/IrVtrOhgQ3OUtOkKuO 54vpsFsu8Add6jryLTsskqlON/p+py+GTftD3rT2qpjDpVOpRMzRBrWvy09P JApVZbrYqOpqMe23y+Ym/BjLT+Cu26+m0/F0Op3PlbqVq1xdmc+nxsfzo01f 9gYWx3uxPPb+b4Ztbu+/ax0OeHYEd91rvNNJYYtovQbDjQRl3mxuuHpKbebt OmMnV9X3NDHZIdrdqut1YVbjeT/suvKpTEbYajr/HN7Hdfrw1La2SJk/ta/r Tr7TKSEraNS9HoK7rpI8FL54xbdddybBfVxHh828TXU2wZBaQlb8NuDvh/WC o8ZJTYW+ny0zZf0vOn+a8lhfR5OslIJLBxm56+2X3aZblTIpg0wmV252N7sd lXPOMRexGXdyCdem2EhCqrbnKs2ifw7PdjkvKo27+akVMMfTytzWNu4ZUjzf 1Sm1vX9EwLMjtut+gtuewBXYe+ELvpveD+y1zXRMIL2zlf7thoVmvFr8wHSu Xnc61Rqf92mmku7eYj6fLwirzZWnPk3gsfBgr24WRu93bLyFXcV8xOsC1wVd v+Z0bsJ+q4kw6KvpeO54qxFpYVoZjkh9n+OC4hGuA+8CXBdw/VrQDpeI/58R Y+utKJFUrlAuV8sy/5KTSNf5brfAgetAcMB1gdYvv7edCMK47DfMHykrpzvc gQDXgeCA6wKtX+NqLpZIJGKp7krEkSBtrlRlKZNKxGIxYxGa8erghFTtrB7U BIXrQHDAdahf4oBYgOCA61C/xAGxAMEB16F+iQNiAYIDrkP9EgfEAgQHXIf6 JQ6IBQgOuA71SxwQCxAccB3qlzggFiA44DrUL3FALEBwwHWoX+KAWIDgeKzr AADgJ4HrAADvwKNc9+j+q8FtTwAEAWIBggOuQ/0SB8QCBAdch/olDogFCA64 DvVLHBALEBxwHeqXOCAWIDjgOtQvcUAsQHDAdahf4oBYgOCA61C/xAGxAMEB 16F+iQNiAYIDrkP9EgfEAgQHXIf6JQ6IBQgOuA71SxwQCxAccB3qlzggFiA4 4DrUL3FALEBwwHUB1a/9TtcM9P3dT/26PMJ1e3W1GI+Hw+F4Ol9pu5+9OPhB xHbdthIPMbKtiSuBWksevouXtgG6Tq8n7GzkOgtXgl0zdfguUdXpR+NyzExf Hut2us20T1DGGgzoxdlY6NNq6DyZ6WXKWil8YOnB5b5+/lDwfAjuupLpurBZ DNMjzSdBNFjXVc0qEbFqw9xpKpogxrnO+igkDzWWjgowNkR18uK868blC1yX uOTxbvqy3/GRQhe/Ra+H4K4z2nWW6Iz/JCsDjwTBu874+bdEZ/wnVZ96JDh2 3apbzeUKuZykbOxGxrRqtf/GcJ0XZ2Ox3wyr5WrdTbXerEtXuG43TrHUUnu+ 0XRNHXfkCP2wPNbOnQI8GU/guiOSivog1x2RGu+8EnCu82ReN2tYaop2gxff Ga/bL9qWqRLVs57adAvWT1euw4di06fCzHQQohfjOVyXLrVK5sBcKC73H+a6 TLVjNcxCifLQIwHnOnXYlAzqK6vObNpliSkzU5AtJKncHpMkGyt9c0PS7rVx v102vpTkcntj1zp92JQTrPFBLpiS+nPVO9OrYbmQYmljiUy5XpXMaww3ztTa oinnuBOHUrnyeHM87LXfNOXD4WN1r89J+hg9IBLLtMeuc17PN1yn0fHRUH1+ tlW371j3GulsHErbSL4jFeC5eQ7XxStbdWDJLhTtrR/kukRd301p3yemaK4E /Hhd2frI6k/pQ1oX3cianT5SbddTR9+yM0wLEa+jSbWsDx31ctGRvJOaZ5R5 URMt131OHJL7K+4xjN0j+TyF7urP97jZdapCB98y7QvmJVYFmtoltH2XPuX6 FAMNL8VzuC5aIj3XUcWyXbj4+RjXxao7ux8aikh9dwJWPZxDc/tVNZdhSkmk MrkDmUyqUFX2dnoPMx1cp5ZtV8bkZneo9KsF2z25ju0ZfVrnjs5Um+16tVzI 2IkT5TFLvJs37c8L1f54Oh0r5Ry7GKd0bozLJJUryFKBc3hu8b220K2uY+4K tVcX5IBJO+Ex5sACgSG7F+NZXGc05bRR2irR4Y8v7SGuM0r/fp6xshHpWj2g C1x3gHoy4R6v410XycjKfKXvdrqmLhZGT9Jut0SkOddw2fTZvCTzjFal9kmV Fb6Rs9/0Y07XsaHISH181Beet3PWSdhEDOe6lNzZsPvaryR6xer32kK3lcYF zWqk0L3oAHYjXuOrcN2r8iyuM1U2aWStSpVtaY9wnVk1WOUKWSPbl7qOfeie KGRVTO661+/ZkyP1ubOL1qXDbOWDZ3Zz2qiLlZ11ldZx5jrWqEsc92oPaNas JGv80MNjrsSLZuYufrilNO6m9Kcn1vceuXQfcpHrvultIBrP5Tpdn+Vp06I2 0X5sfZ1LZXanqWk0pzzW1512nXvNCf0q5bUOlmYgIrtrs0aXnOXahiR3dLVt oe+aLHC7ji3NjRWaTZ8lHDGn6/gusOM8P+86to4xJiuXHgPXvSXP5jr966No 1cFkQ9fVh7Tr/hiLFqgKUm1Sea5t1/m7zmvpHWu6eI0v6eMq/dJQ0KpjtTmr 7hO5ZGU3UE/A2of+rtMf5TpNob3ni9YPW6AP+5Y8net0fSlZq4tDtdGskXyM 6/78UdnC0+Z81U4F6bqTY+na0BrKyzTn5J9z2p28xHV08jdkjMDJkhcFqU4H /cRzXZ8OFCaq0/OpGfbzrHu4rg7XvSZP6Dp9TRd8hpP5YjL8INfZkomkCpK5 kC0g1/3R3H1kxo7OuprtOvZPyT165ZIV6//WL1lMJpjr9qsOFfWlG2ApbAjC PXGMNScvyzO6jtiuxO+nCD/GdbaCLOVd4TrFpYSTrtPp1KrH8DsbsDI9Y++O TzWdAtCHiWNZ2dtLcxdsExDLdbs2nZPItN2zOafh1hI716hwa4nxzpPX4jld p28HlRDPY1x3vJItdMmaE6t+uhtdp7fKso5VpHAsJVWhuqUa3C/YGFymPqT1 dbcYttnyPltWO7Z+JiR5zP/u592yzEwikuu4F54UTqxg3i3a5FciEomQB3e0 Vsdvj1gXe8Relid1nf02p4e6zn6b02Wus+c9SatLmS4W8367Wm6O9+dcRzzD mpCRTHW60fc7fTFs2h9K9iwkG7I7fJFIpRKObRG8rPjpiUShSjK1UdXVYtpv l61+uS1GcVxn7wgrdE/tTeOUeDx54bH3fzNsc3v/hxisezUEd12JX0t8jDZp /Jjrqvxa4mP2i/Zp1x3PD9qLVTgdGROdJ5bemahD/1e3xeTjrtiuL3ts54q4 23WHxF2vxPZRbDUd9e3DXWfv0PdahOOZMfeDPfFOp4SsoFH3egjuOmtbWLLm pTLtIx+1Sme8Emy7zlr71vTy0L7Ltklx83q0cZVytNP26lByqCVlHEW7t443 qByxWykF167ajNz19Mtm3JFymRQhk8lJ5e54s1OtfRPuAS6SOOds/RltQqna nqusH2wtfUm5Jj3ZAuYf2Tehs7b02dYXtwPOY/7C812dUttpcvAaiO26n+C2 J/BNNHWzWq02G1XTrx4B14x3hh+YztVrXvGu0uZQ2ef1eaQft5jP5wvCanPV qe/EI2KxVzeL6XRqvIZ9PFUxH/G6wHUPcV3A6NPheHPsKtKeZHupus4XGYnC K8YCiAJc94L1i74/KpLIFORy9fglJ6FC//wZHsQLxgIIA1z3gvXL/115kVT1 kpcePYoXjAUQBrjuFeuXprSrUi6TSMRiEXP2lTTxpM74u+/SDJpXjAUQBbgO 9UscEAsQHHAd6pc4IBYgOOA61C9xQCxAcMB1qF/igFiA4IDrUL/EAbEAwQHX oX6JA2IBggOuQ/0SB8QCBAdch/olDogFCI7Hug4AAH4SuA4A8A78vOsAAEB8 4DoAwDsA1wEA3gG4DgDwDsB1AIB3AK4DALwDcB0A4B2A6wAA7wBcBwB4B+A6 AMA7ANcBAN4BuA4A8A7wftN1Ha4DALwkpuuI5cjfv379In9rmvboTAEAwJ0h ZiN+I5Yjf//+/Zv8/ddff/3777+PzhcAANwN4jRiNuI3YjnzE1VV0Y0FALwY ZgeW+I198s8//2wOkK/QugMAPDvEY6boCMRv/Fd///23+Tlp8pEe7v8AAMBz Qgxmdl0JxGxuExL7mZ1ZAAB4dojNHC06B79///7165eu6492MwAAXA1xFzEY m4wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAgCD4XyGo67Y= "], {{0, 220.}, {420., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->72], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{210., Automatic}, ImageSizeRaw->{420., 220.}, PlotRange->{{0, 420.}, {0, 220.}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7923270359990363`*^9, 3.79232703851565*^9}, 3.792398144965885*^9, 3.793387868021913*^9}, CellLabel->"Out[5]=", CellID->558745607] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Sjoerd Smit", "Text", CellID->323553069] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["SparseArray", "Item", CellID->914665742], Cell["Association", "Item", CellID->123178904], Cell["Data structure", "Item", CellID->802555463], Cell["Array", "Item", CellID->348495550], Cell["lookup table", "Item", CellID->777664674], Cell["efficient storage", "Item", CellID->79334257], Cell["memory", "Item", CellID->161700354] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Data Manipulation & Analysis", { False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[ "Core Language & Structure", { False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj81KBDEQhEFcnRHxLniYk7d5iGHWhYWVlW1foDfbjsFMEvrnkLc3OSh66oaqrq966k\ bYgJZAcHM0zaYj3M6f5L7o8nEl1wcvCk9bVBxeMfpsAdWnODwPU8RQxAs8zolpOGBcDBeqCiibU2Oq\ 0XulVaSfTNNaL90I3RunTKwF7mZUWhJ7kgo95hYsP9A2TxZIupeLVzzXbbPDIPQr9FsK9FdpzVOwNf\ 4HPuyjEmeu3kaAfooF7CxUX70/kSRjR+8lE3Q7i655vgGZFWC4"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["SparseArray", "Item", CellID->914665743], Cell["Association", "Item", CellID->123178905], Cell["List", "Item", CellID->651278196], Cell["Keys", "Item", CellID->300688223], Cell["Values", "Item", CellID->840751942], Cell["Dataset", "Item", CellID->161169288] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["AssociationMapAt", "Item", CellID->513995504], Cell["ToAssociations", "Item", CellID->107226899], Cell["UnevaluatedAssociation", "Item", CellID->281244061], Cell["ConstantAssociation", "Item", CellID->266900640], Cell["GetKeyValuePattern", "Item", CellID->810673109] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["ssmit1986 GitHub\[Dash]SparseAssociation", BaseStyle->"Hyperlink", ButtonData->{ URL["https://github.com/ssmit1986/FunctionRepositoryFunctions/blob/master/\ FunctionRepo/Kernel/SparseAssociation.wl"], None}, ButtonNote-> "https://github.com/ssmit1986/FunctionRepositoryFunctions/blob/master/\ FunctionRepo/Kernel/SparseAssociation.wl"]], "Item", CellID->454277936] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SparseAssociation | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.869835130102576`16.34026745195356*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.869835130157286`16.3402674519597*^9, "VersionInformation" -> {"ResourceVersion" -> "3.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[633, 23, 99, 2, 70, "Title",ExpressionUUID->"57b11281-05fa-42a0-a32e-46477a2cf504", CellTags->{"Name", "TemplateCell", "Title"}, CellID->64533034]}, "TemplateCell"->{ Cell[633, 23, 99, 2, 70, "Title",ExpressionUUID->"57b11281-05fa-42a0-a32e-46477a2cf504", CellTags->{"Name", "TemplateCell", "Title"}, CellID->64533034], Cell[735, 27, 180, 5, 70, "Text",ExpressionUUID->"e981adcf-26be-46b6-83c4-81935110a9b9", CellTags->{"Description", "TemplateCell"}, CellID->210694529]}, "Title"->{ Cell[633, 23, 99, 2, 70, "Title",ExpressionUUID->"57b11281-05fa-42a0-a32e-46477a2cf504", CellTags->{"Name", "TemplateCell", "Title"}, CellID->64533034]}, "Description"->{ Cell[735, 27, 180, 5, 70, "Text",ExpressionUUID->"e981adcf-26be-46b6-83c4-81935110a9b9", CellTags->{"Description", "TemplateCell"}, CellID->210694529]}, "Definition"->{ Cell[940, 36, 1206, 29, 70, "Section",ExpressionUUID->"4986f995-b17e-46b4-8f15-df97d758d1fc", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[940, 36, 1206, 29, 70, "Section",ExpressionUUID->"4986f995-b17e-46b4-8f15-df97d758d1fc", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[940, 36, 1206, 29, 70, "Section",ExpressionUUID->"4986f995-b17e-46b4-8f15-df97d758d1fc", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[54527, 1367, 1980, 50, 70, "Subsection",ExpressionUUID->"b85a0947-ce63-4ae7-aa54-207058ea7737", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[63355, 1679, 1429, 32, 70, "Subsection",ExpressionUUID->"debd72c4-3319-48b3-a561-d4297e6b8664", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[82892, 2313, 7029, 152, 70, "Section",ExpressionUUID->"1d5f936a-c2da-492a-83c6-bb1d3bab0fb0", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[364015, 8932, 1026, 26, 70, "Subsection",ExpressionUUID->"0322bdfa-1fef-43f4-9b6e-f66f8d6c0002", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[365128, 8966, 996, 26, 70, "Subsection",ExpressionUUID->"23915e43-ee5a-4851-b82a-5c2dbb2d75ae", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[366509, 9018, 221, 6, 70, "Subsection",ExpressionUUID->"afd0d570-0a9e-43e4-b867-caab0a46108a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[375111, 9284, 980, 26, 70, "Subsection",ExpressionUUID->"d96e4486-07ee-4e5a-96e0-3f8a775c3780", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[376405, 9333, 1039, 26, 70, "Subsection",ExpressionUUID->"633585d7-facb-4389-b81f-e86f21ba82b2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[377765, 9379, 1084, 26, 70, "Subsection",ExpressionUUID->"daab8274-05c7-4d71-9ec0-6de115f35635", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[379405, 9420, 923, 26, 70, "Subsection",ExpressionUUID->"17cc4044-b8e4-4509-a379-33a535515eb7", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[380766, 9461, 1874, 45, 70, "Subsection",ExpressionUUID->"e6cd9cf8-9870-4919-9000-117225cda31c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[382997, 9527, 955, 25, 70, "Subsection",ExpressionUUID->"52ff3c44-aad5-414c-ad4f-52c0d94a7fd4", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[383977, 9556, 1174, 31, 70, "Subsubsection",ExpressionUUID->"efbc0dc0-f4e5-47a5-b841-7f72323328f2", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[385280, 9596, 1113, 29, 70, "Subsubsection",ExpressionUUID->"caeff51c-8d85-4546-9512-c2323f5f3ed1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[388531, 9694, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a8c41333-f773-40a0-9f6b-33d1ccba5313", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[392000, 9797, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dd964b61-5346-4106-aa0d-89abe8d6eedc", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[397939, 9967, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8345a564-b47b-4284-94db-9cb0ddae4ddb", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[400292, 10039, 1155, 28, 70, "Section",ExpressionUUID->"0e1a5b4e-e448-4cbd-808e-d44b74375463", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[402016, 10082, 1033, 26, 70, "Section",ExpressionUUID->"f33147d4-3f01-4480-99d6-da0ca01065c1", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[54307, 1358, 195, 5, 70, "Section",ExpressionUUID->"b45b4f2d-124d-4019-bc74-5a274adcce1d", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[54307, 1358, 195, 5, 70, "Section",ExpressionUUID->"b45b4f2d-124d-4019-bc74-5a274adcce1d", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[363741, 8923, 249, 5, 70, "Section",ExpressionUUID->"4c183035-2149-41a0-baf8-4e8215b4120d", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[54527, 1367, 1980, 50, 70, "Subsection",ExpressionUUID->"b85a0947-ce63-4ae7-aa54-207058ea7737", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[63355, 1679, 1429, 32, 70, "Subsection",ExpressionUUID->"debd72c4-3319-48b3-a561-d4297e6b8664", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[63355, 1679, 1429, 32, 70, "Subsection",ExpressionUUID->"debd72c4-3319-48b3-a561-d4297e6b8664", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[79659, 2199, 1434, 50, 70, "Notes",ExpressionUUID->"7136288a-71d4-413c-bd47-d62e156257d2", CellTags->"TabNext", CellID->914675786], Cell[378852, 9407, 516, 8, 70, "Text",ExpressionUUID->"d3a8e70e-fedf-4c29-8b6e-88be8564bb26", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[401450, 10069, 529, 8, 70, "Text",ExpressionUUID->"f0971f29-2632-496b-b686-6ba10e07df2f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[403052, 10110, 515, 8, 70, "Text",ExpressionUUID->"c9277286-bd85-4acb-8b29-1499b4a9f1b7", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[82892, 2313, 7029, 152, 70, "Section",ExpressionUUID->"1d5f936a-c2da-492a-83c6-bb1d3bab0fb0", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[363741, 8923, 249, 5, 70, "Section",ExpressionUUID->"4c183035-2149-41a0-baf8-4e8215b4120d", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[364015, 8932, 1026, 26, 70, "Subsection",ExpressionUUID->"0322bdfa-1fef-43f4-9b6e-f66f8d6c0002", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[364015, 8932, 1026, 26, 70, "Subsection",ExpressionUUID->"0322bdfa-1fef-43f4-9b6e-f66f8d6c0002", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[365128, 8966, 996, 26, 70, "Subsection",ExpressionUUID->"23915e43-ee5a-4851-b82a-5c2dbb2d75ae", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[366509, 9018, 221, 6, 70, "Subsection",ExpressionUUID->"afd0d570-0a9e-43e4-b867-caab0a46108a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[366733, 9026, 8341, 253, 70, "Output",ExpressionUUID->"81bb8bb5-454e-4802-9a11-94d965d29431", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364]}, "Categories-Checkboxes"->{ Cell[366733, 9026, 8341, 253, 70, "Output",ExpressionUUID->"81bb8bb5-454e-4802-9a11-94d965d29431", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364]}, "CheckboxCell"->{ Cell[366733, 9026, 8341, 253, 70, "Output",ExpressionUUID->"81bb8bb5-454e-4802-9a11-94d965d29431", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364], Cell[386396, 9627, 2098, 62, 70, "Output",ExpressionUUID->"939576ae-72c4-4202-bbab-aecaf7f3ddda", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[389814, 9729, 2149, 63, 70, "Output",ExpressionUUID->"e9675b00-0292-4ffd-8ddc-46fefeae7179", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[393916, 9845, 3986, 117, 70, "Output",ExpressionUUID->"13099cce-1b30-45c0-b521-64abc8f9a54e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[399013, 9996, 1218, 36, 70, "Output",ExpressionUUID->"4ddadd05-56d3-4dbb-a23d-767a5670dd1a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[375111, 9284, 980, 26, 70, "Subsection",ExpressionUUID->"d96e4486-07ee-4e5a-96e0-3f8a775c3780", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[376405, 9333, 1039, 26, 70, "Subsection",ExpressionUUID->"633585d7-facb-4389-b81f-e86f21ba82b2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[377765, 9379, 1084, 26, 70, "Subsection",ExpressionUUID->"daab8274-05c7-4d71-9ec0-6de115f35635", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[378852, 9407, 516, 8, 70, "Text",ExpressionUUID->"d3a8e70e-fedf-4c29-8b6e-88be8564bb26", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[382665, 9510, 158, 5, 70, "Input",ExpressionUUID->"f94e0262-a53f-4dde-97f3-3afd3da39cfa", CellTags->"DefaultContent", CellID->946203791], Cell[382826, 9517, 122, 4, 70, "Output",ExpressionUUID->"68c47aae-e8ce-493c-b22e-f26ed1e163e4", CellTags->"DefaultContent", CellID->168370258], Cell[385154, 9589, 89, 2, 70, "Text",ExpressionUUID->"f081cbba-fae4-4025-b2be-86175b5d1bd8", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[401450, 10069, 529, 8, 70, "Text",ExpressionUUID->"f0971f29-2632-496b-b686-6ba10e07df2f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[403052, 10110, 515, 8, 70, "Text",ExpressionUUID->"c9277286-bd85-4acb-8b29-1499b4a9f1b7", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[379405, 9420, 923, 26, 70, "Subsection",ExpressionUUID->"17cc4044-b8e4-4509-a379-33a535515eb7", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[380766, 9461, 1874, 45, 70, "Subsection",ExpressionUUID->"e6cd9cf8-9870-4919-9000-117225cda31c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[380766, 9461, 1874, 45, 70, "Subsection",ExpressionUUID->"e6cd9cf8-9870-4919-9000-117225cda31c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[382997, 9527, 955, 25, 70, "Subsection",ExpressionUUID->"52ff3c44-aad5-414c-ad4f-52c0d94a7fd4", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[383977, 9556, 1174, 31, 70, "Subsubsection",ExpressionUUID->"efbc0dc0-f4e5-47a5-b841-7f72323328f2", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[383977, 9556, 1174, 31, 70, "Subsubsection",ExpressionUUID->"efbc0dc0-f4e5-47a5-b841-7f72323328f2", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[385154, 9589, 89, 2, 70, "Text",ExpressionUUID->"f081cbba-fae4-4025-b2be-86175b5d1bd8", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[385280, 9596, 1113, 29, 70, "Subsubsection",ExpressionUUID->"caeff51c-8d85-4546-9512-c2323f5f3ed1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[386396, 9627, 2098, 62, 70, "Output",ExpressionUUID->"939576ae-72c4-4202-bbab-aecaf7f3ddda", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[385280, 9596, 1113, 29, 70, "Subsubsection",ExpressionUUID->"caeff51c-8d85-4546-9512-c2323f5f3ed1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[386396, 9627, 2098, 62, 70, "Output",ExpressionUUID->"939576ae-72c4-4202-bbab-aecaf7f3ddda", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[388531, 9694, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a8c41333-f773-40a0-9f6b-33d1ccba5313", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[389814, 9729, 2149, 63, 70, "Output",ExpressionUUID->"e9675b00-0292-4ffd-8ddc-46fefeae7179", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[388531, 9694, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a8c41333-f773-40a0-9f6b-33d1ccba5313", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[389814, 9729, 2149, 63, 70, "Output",ExpressionUUID->"e9675b00-0292-4ffd-8ddc-46fefeae7179", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[392000, 9797, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dd964b61-5346-4106-aa0d-89abe8d6eedc", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[393916, 9845, 3986, 117, 70, "Output",ExpressionUUID->"13099cce-1b30-45c0-b521-64abc8f9a54e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[392000, 9797, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dd964b61-5346-4106-aa0d-89abe8d6eedc", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[393916, 9845, 3986, 117, 70, "Output",ExpressionUUID->"13099cce-1b30-45c0-b521-64abc8f9a54e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[397939, 9967, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8345a564-b47b-4284-94db-9cb0ddae4ddb", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[397939, 9967, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8345a564-b47b-4284-94db-9cb0ddae4ddb", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[399013, 9996, 1218, 36, 70, "Output",ExpressionUUID->"4ddadd05-56d3-4dbb-a23d-767a5670dd1a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[399013, 9996, 1218, 36, 70, "Output",ExpressionUUID->"4ddadd05-56d3-4dbb-a23d-767a5670dd1a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[400292, 10039, 1155, 28, 70, "Section",ExpressionUUID->"0e1a5b4e-e448-4cbd-808e-d44b74375463", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[402016, 10082, 1033, 26, 70, "Section",ExpressionUUID->"f33147d4-3f01-4480-99d6-da0ca01065c1", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 526572, 12438}, {"TemplateCell", 526753, 12442}, {"Title", 527087, 12449}, {"Description", 527267, 12453}, {"Definition", 527445, 12457}, {"Function", 527641, 12461}, {"TemplateCellGroup", 527846, 12465}, {"Documentation", 531705, 12526}, {"TemplateSection", 531900, 12530}, {"Usage", 532276, 12537}, {"Details & Options", 532472, 12541}, {"Notes", 532677, 12545}, {"TabNext", 532884, 12549}, {"Examples", 533536, 12562}, {"Source & Additional Information", 533747, 12566}, {"Contributed By", 533960, 12570}, {"ContributorInformation", 534196, 12574}, {"Keywords", 534418, 12578}, {"Categories", 534610, 12582}, {"Categories-Checkboxes", 535008, 12589}, {"CheckboxCell", 535222, 12593}, {"Related Symbols", 536347, 12609}, {"Related Resource Objects", 536560, 12613}, {"Source/Reference Citation", 536784, 12617}, {"DefaultContent", 536998, 12621}, {"Links", 537973, 12640}, {"Tests", 538157, 12644}, {"VerificationTests", 538375, 12648}, {"Compatibility", 538589, 12652}, {"CompatibilityWolframLanguageVersionRequired", 538819, 12656}, {"Wolfram Language Version", 539092, 12660}, {"ScrapeDefault", 539354, 12664}, {"CompatibilityOperatingSystem", 539558, 12668}, {"Operating System", 540029, 12675}, {"CompatibilityOperatingSystem-Checkboxes", 540294, 12679}, {"CompatibilityFeatures", 540552, 12683}, {"Required Features", 541004, 12690}, {"CompatibilityFeatures-Checkboxes", 541256, 12694}, {"CompatibilityEvaluationEnvironment", 541513, 12698}, {"Environments", 541994, 12705}, {"CompatibilityEvaluationEnvironment-Checkboxes", 542267, 12709}, {"Cloud Support", 542529, 12713}, {"CompatibilityCloudSupport", 542774, 12717}, {"CompatibilityCloudSupport-Checkboxes", 543253, 12724}, {"Author Notes", 543496, 12728}, {"Submission Notes", 543697, 12732} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[633, 23, 99, 2, 70, "Title",ExpressionUUID->"57b11281-05fa-42a0-a32e-46477a2cf504", CellTags->{"Name", "TemplateCell", "Title"}, CellID->64533034], Cell[735, 27, 180, 5, 70, "Text",ExpressionUUID->"e981adcf-26be-46b6-83c4-81935110a9b9", CellTags->{"Description", "TemplateCell"}, CellID->210694529], Cell[CellGroupData[{ Cell[940, 36, 1206, 29, 70, "Section",ExpressionUUID->"4986f995-b17e-46b4-8f15-df97d758d1fc", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2149, 67, 52121, 1286, 70, "Code",ExpressionUUID->"2272748d-b0e1-4dcd-a14b-cce3d67f799d", CellID->550409598] }, Open ]], Cell[CellGroupData[{ Cell[54307, 1358, 195, 5, 70, "Section",ExpressionUUID->"b45b4f2d-124d-4019-bc74-5a274adcce1d", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[54527, 1367, 1980, 50, 70, "Subsection",ExpressionUUID->"b85a0947-ce63-4ae7-aa54-207058ea7737", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[56532, 1421, 347, 12, 70, "UsageInputs",ExpressionUUID->"1841d932-5a8c-4d65-bd2e-434c1a61fad5", CellID->933598630], Cell[56882, 1435, 657, 23, 70, "UsageDescription",ExpressionUUID->"74512d38-dc98-4efa-ac7f-80ca0cd3910e", CellID->126616978] }, Open ]], Cell[CellGroupData[{ Cell[57576, 1463, 635, 21, 70, "UsageInputs",ExpressionUUID->"997ceb7d-e6a6-4453-8b91-62e5aae165fb", CellID->589899223], Cell[58214, 1486, 539, 20, 70, "UsageDescription",ExpressionUUID->"37c44aee-8838-4e11-8f09-92928ed8ae1e", CellID->786015532] }, Open ]], Cell[CellGroupData[{ Cell[58790, 1511, 234, 7, 70, "UsageInputs",ExpressionUUID->"c70694ee-d3c2-48db-8814-868dcedcbea3", CellID->527759814], Cell[59027, 1520, 698, 23, 70, "UsageDescription",ExpressionUUID->"fbd77129-8296-4fa7-a6b1-7d85e1c89f4b", CellID->408889821] }, Open ]], Cell[CellGroupData[{ Cell[59762, 1548, 1033, 34, 70, "UsageInputs",ExpressionUUID->"d5b67486-7ff1-4989-837f-41b6b1caac13", CellID->904047508], Cell[60798, 1584, 84, 1, 70, "UsageDescription",ExpressionUUID->"d3505831-a0d7-4230-971e-3390f015a734", CellID->549250242] }, Open ]], Cell[CellGroupData[{ Cell[60919, 1590, 1077, 35, 70, "UsageInputs",ExpressionUUID->"a7d09455-aba2-498d-8230-f059b2ff64db", CellID->118930812], Cell[61999, 1627, 65, 1, 70, "UsageDescription",ExpressionUUID->"d81e7f83-0d17-423c-8525-551fdddadc1b", CellID->111861805] }, Open ]], Cell[CellGroupData[{ Cell[62101, 1633, 618, 19, 70, "UsageInputs",ExpressionUUID->"abe162ae-189b-443b-88b3-a3eb92d3a261", CellID->617944749], Cell[62722, 1654, 584, 19, 70, "UsageDescription",ExpressionUUID->"7f2152bf-058b-49cc-912b-a76dd964e3ef", CellID->839693556] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63355, 1679, 1429, 32, 70, "Subsection",ExpressionUUID->"debd72c4-3319-48b3-a561-d4297e6b8664", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[64787, 1713, 1575, 45, 70, "Notes",ExpressionUUID->"7e79281f-00fb-4dc7-8fc5-c994ac3fbdfb", CellID->843942390], Cell[66365, 1760, 3347, 107, 70, "Notes",ExpressionUUID->"cc7af471-98c7-4b27-af00-6dc1ba73cfaa", CellID->442749613], Cell[69715, 1869, 78, 1, 70, "Notes",ExpressionUUID->"f609bae3-f9ae-4d78-9963-1cea7f8d1c73", CellID->321380884], Cell[69796, 1872, 2596, 83, 70, "Notes",ExpressionUUID->"77cde3e6-e2b8-4c61-9e0c-c64846a2bf79", CellID->228350180], Cell[72395, 1957, 416, 15, 70, "Notes",ExpressionUUID->"f30cc0f6-9338-4fdb-b301-2359dc2bc918", CellID->738101993], Cell[72814, 1974, 1282, 39, 70, "Notes",ExpressionUUID->"5bdd8496-8297-4071-95de-8e4f1d968168", CellID->451090124], Cell[74099, 2015, 670, 23, 70, "Notes",ExpressionUUID->"66b6192b-e1fe-4d4b-81d8-d8c7a1ffc06c", CellID->725160438], Cell[74772, 2040, 2646, 86, 70, "Notes",ExpressionUUID->"0af5141e-8e8e-4161-a708-5d5e3b6639d6", CellID->611325102], Cell[77421, 2128, 2235, 69, 70, "Notes",ExpressionUUID->"cb9a3b0c-1eb4-4295-870f-0b5ef74a9bdb", CellID->936394755], Cell[79659, 2199, 1434, 50, 70, "Notes",ExpressionUUID->"7136288a-71d4-413c-bd47-d62e156257d2", CellTags->"TabNext", CellID->914675786], Cell[81096, 2251, 598, 19, 70, "Notes",ExpressionUUID->"ffabccc7-d527-418a-ac9f-1802b3235a9e", CellID->21433438], Cell[81697, 2272, 1146, 35, 70, "Notes",ExpressionUUID->"13170fee-487c-444d-9345-1078a88af46c", CellID->490825636] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82892, 2313, 7029, 152, 70, "Section",ExpressionUUID->"1d5f936a-c2da-492a-83c6-bb1d3bab0fb0", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[89946, 2469, 75, 2, 70, "Subsection",ExpressionUUID->"d1c3750e-36f1-4059-a53d-5a97f08af97a", CellID->904125756], Cell[90024, 2473, 261, 8, 70, "Text",ExpressionUUID->"f98651ac-42d7-4417-86c0-57d6fc2b8b3f", CellID->921162563], Cell[CellGroupData[{ Cell[90310, 2485, 619, 15, 70, "Input",ExpressionUUID->"e5e34366-f512-4281-9cbd-88b29570ce73", CellID->769588884], Cell[90932, 2502, 1687, 46, 70, "Output",ExpressionUUID->"2a920620-8112-4779-8a4a-06fadef34f78", CellID->971995885] }, Open ]], Cell[CellGroupData[{ Cell[92656, 2553, 505, 13, 70, "Input",ExpressionUUID->"161ea174-90bf-4263-b20c-36367972331e", CellID->182720863], Cell[93164, 2568, 9112, 192, 70, "Output",ExpressionUUID->"fa0fa08d-861d-4958-aaec-392657386b00", CellID->252127744] }, Open ]], Cell[102291, 2763, 148, 3, 70, "Text",ExpressionUUID->"cbf4845b-b360-49d3-a960-8023611919e1", CellID->903699304], Cell[CellGroupData[{ Cell[102464, 2770, 303, 7, 70, "Input",ExpressionUUID->"534df860-07c7-4ffd-be0b-eaae7ba30ff0", CellID->564954732], Cell[102770, 2779, 600, 11, 70, "Output",ExpressionUUID->"3f328b9e-81d8-4836-88fc-209a22adc376", CellID->374504032] }, Open ]], Cell[103385, 2793, 145, 3, 70, "Text",ExpressionUUID->"24ccd47c-78d1-49b3-9dca-90a69c3fde98", CellID->830410646], Cell[CellGroupData[{ Cell[103555, 2800, 299, 8, 70, "Input",ExpressionUUID->"6d50625e-0c76-41da-8fc5-965314b73497", CellID->493227412], Cell[103857, 2810, 503, 9, 70, "Output",ExpressionUUID->"ef88a071-1bf8-4ce1-b668-086f3bb4d3da", CellID->976679676] }, Open ]], Cell[104375, 2822, 842, 24, 70, "Text",ExpressionUUID->"57ce9996-62d6-49b1-83ed-377fe909bb9f", CellID->554356482], Cell[CellGroupData[{ Cell[105242, 2850, 252, 6, 70, "Input",ExpressionUUID->"c1499263-92a3-475f-9820-c65df036b857", CellID->378294906], Cell[105497, 2858, 981, 18, 70, "Message",ExpressionUUID->"ff9d2008-8b1f-4151-bb1d-b7ba51f480b8", CellID->113323889], Cell[106481, 2878, 383, 7, 70, "Output",ExpressionUUID->"a32095eb-1ca5-4dac-8da6-d440c7e810d9", CellID->768909109] }, Open ]], Cell[106879, 2888, 762, 24, 70, "Text",ExpressionUUID->"8b6401b3-5380-4079-aa7e-afee9220bf33", CellID->991484269], Cell[CellGroupData[{ Cell[107666, 2916, 332, 9, 70, "Input",ExpressionUUID->"97125b2b-cccd-48a7-b6a0-7823d3bd0274", CellID->258067177], Cell[108001, 2927, 455, 9, 70, "Output",ExpressionUUID->"3ceb11f0-cac3-499b-a41a-97bdbad13103", CellID->813190772] }, Open ]], Cell[108471, 2939, 818, 25, 70, "Text",ExpressionUUID->"7dc6614b-15b8-4876-a1c3-0174e98aba62", CellID->38290098], Cell[CellGroupData[{ Cell[109314, 2968, 360, 11, 70, "Input",ExpressionUUID->"4cafe0cf-2269-444f-80ce-f86a70152041", CellID->519199205], Cell[109677, 2981, 9364, 197, 70, "Output",ExpressionUUID->"56186f48-712b-4406-80cb-f45287ad6648", CellID->781178533] }, Open ]], Cell[119056, 3181, 159, 3, 70, "Text",ExpressionUUID->"14a1add9-44f4-4284-88ed-7a45ad129a1d", CellID->24851328], Cell[CellGroupData[{ Cell[119240, 3188, 377, 11, 70, "Input",ExpressionUUID->"62d72643-9514-4f3d-9ec5-67ed209e6f2a", CellID->607758995], Cell[119620, 3201, 9283, 196, 70, "Output",ExpressionUUID->"5291764b-8a18-417d-aa8e-c43bec639b15", CellID->451282988] }, Open ]], Cell[128918, 3400, 791, 25, 70, "Text",ExpressionUUID->"d85f53d0-3127-41c4-b53f-f134eb17cea5", CellID->208544883], Cell[CellGroupData[{ Cell[129734, 3429, 253, 6, 70, "Input",ExpressionUUID->"0cfb2057-a6c3-4247-85f6-b9594783b5b6", CellID->122477003], Cell[129990, 3437, 9135, 194, 70, "Output",ExpressionUUID->"6f77704e-0614-44a6-aadf-5700175e62e9", CellID->985129659] }, Open ]], Cell[139140, 3634, 1147, 37, 70, "Text",ExpressionUUID->"f35ab3ec-384d-4d02-b700-b335ccf43e85", CellID->485254946], Cell[CellGroupData[{ Cell[140312, 3675, 192, 5, 70, "Input",ExpressionUUID->"ffff53a5-a319-4244-af1c-ad4a4c446933", CellID->929062044], Cell[140507, 3682, 1242, 40, 70, "Output",ExpressionUUID->"445699d3-e020-4ca1-b18b-50871506b198", CellID->528026254] }, Open ]], Cell[141764, 3725, 366, 10, 70, "Text",ExpressionUUID->"4df0be89-f3b1-49cd-941f-52929d902795", CellID->577975705], Cell[CellGroupData[{ Cell[142155, 3739, 257, 6, 70, "Input",ExpressionUUID->"6f4ff417-267d-4e21-b101-92941d96ef14", CellID->716340542], Cell[142415, 3747, 1837, 54, 70, "Output",ExpressionUUID->"cc3ffacd-b896-40ac-9426-310666366598", CellID->363315197] }, Open ]], Cell[144267, 3804, 752, 22, 70, "Text",ExpressionUUID->"8169e21c-b4ec-428b-a7a3-0fd40bb50d25", CellID->870166384], Cell[CellGroupData[{ Cell[145044, 3830, 200, 5, 70, "Input",ExpressionUUID->"3f4b9902-6b2a-4b69-a728-aefa4db9d495", CellID->614434766], Cell[145247, 3837, 3598, 91, 70, "Output",ExpressionUUID->"54c87d55-0317-4f4b-9c0e-4f536eee3354", CellID->290459588] }, Open ]], Cell[148860, 3931, 245, 6, 70, "Text",ExpressionUUID->"f2c13700-cc7b-47fe-aef9-608e2fe45c1a", CellID->742028319], Cell[CellGroupData[{ Cell[149130, 3941, 346, 9, 70, "Input",ExpressionUUID->"8c9635fe-6cdd-4bc6-b00d-9c1e6ef7d02e", CellID->136523964], Cell[149479, 3952, 15471, 261, 70, "Output",ExpressionUUID->"024a3aee-f676-495a-899c-bd1a16ba32ce", CellID->772030343] }, Open ]], Cell[164965, 4216, 830, 23, 70, "Text",ExpressionUUID->"ac368656-351f-4ac8-ac67-9ce847040b7e", CellID->96736172], Cell[CellGroupData[{ Cell[165820, 4243, 294, 8, 70, "Input",ExpressionUUID->"77529187-6722-45cc-884d-6ecf16492462", CellID->888238768], Cell[166117, 4253, 2105, 51, 70, "Output",ExpressionUUID->"96373b90-548d-429b-977a-0b8f6f09b84f", CellID->980956126] }, Open ]], Cell[168237, 4307, 910, 26, 70, "Text",ExpressionUUID->"10d7a00a-e491-45a3-9292-71576d924616", CellID->352823831], Cell[CellGroupData[{ Cell[169172, 4337, 334, 8, 70, "Input",ExpressionUUID->"e03c4841-766c-4769-857e-06f92c30c8ef", CellID->183277019], Cell[169509, 4347, 8606, 186, 70, "Output",ExpressionUUID->"a596c938-a946-4b17-95b0-1d4edd397d5e", CellID->836559528] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[178164, 4539, 66, 2, 70, "Subsection",ExpressionUUID->"8dbb5140-0d77-4f0e-9f72-bbb7c24dba3c", CellID->204653245], Cell[178233, 4543, 762, 25, 70, "Text",ExpressionUUID->"221087eb-6298-4fb3-bd14-45fa3989261e", CellID->634004722], Cell[CellGroupData[{ Cell[179020, 4572, 904, 26, 70, "Input",ExpressionUUID->"e5a35ce2-bb51-4425-b8b9-a69067dedce1", CellID->827245213], Cell[179927, 4600, 9073, 190, 70, "Output",ExpressionUUID->"acad6e5c-b03f-4a73-9a85-fa0106334c7a", CellID->530748182] }, Open ]], Cell[CellGroupData[{ Cell[189037, 4795, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"c74302d6-2b12-4f0b-bdb2-bf4d83a20cea", CellID->14107562], Cell[189183, 4801, 264, 8, 70, "Text",ExpressionUUID->"0e685793-5e7d-46d0-8ba0-60a02e4ecccb", CellID->652043575], Cell[CellGroupData[{ Cell[189472, 4813, 965, 28, 70, "Input",ExpressionUUID->"a3682be9-f859-4221-b4e1-38e54645c3f6", CellID->973760043], Cell[190440, 4843, 9584, 199, 70, "Output",ExpressionUUID->"01d826d9-5b65-45a6-b69d-bf30a36bf18c", CellID->70994839] }, Open ]], Cell[200039, 5045, 787, 23, 70, "Text",ExpressionUUID->"3f11d913-e8cc-4046-ad6b-e8c7dc4477b0", CellID->282196999], Cell[CellGroupData[{ Cell[200851, 5072, 188, 5, 70, "Input",ExpressionUUID->"42d89c85-f404-4b37-807e-28683e683d08", CellID->768770994], Cell[201042, 5079, 443, 12, 70, "Output",ExpressionUUID->"d694be98-ff56-4b08-a1a4-360a75ec131c", CellID->400745467] }, Open ]], Cell[201500, 5094, 167, 3, 70, "Text",ExpressionUUID->"5da15e26-9494-45b7-bdcf-9367db1e8f2a", CellID->107221559], Cell[CellGroupData[{ Cell[201692, 5101, 344, 10, 70, "Input",ExpressionUUID->"76d7ae2d-f48f-43fd-a18a-9d0b99adafb1", CellID->228488154], Cell[202039, 5113, 475, 13, 70, "Output",ExpressionUUID->"5494a8a2-33f1-4e93-9304-d54cb00c66dd", CellID->733670148] }, Open ]], Cell[202529, 5129, 173, 3, 70, "Text",ExpressionUUID->"61083b73-f062-4020-87d6-4a0dc7a820f9", CellID->912140758], Cell[CellGroupData[{ Cell[202727, 5136, 497, 15, 70, "Input",ExpressionUUID->"79245518-c96c-40ee-8ab2-8feb3c536186", CellID->814449768], Cell[203227, 5153, 472, 13, 70, "Output",ExpressionUUID->"8d4c8f6c-eb86-4b7d-9abc-1cb84a3b79ce", CellID->58217289] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[203748, 5172, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"f7b117ee-de1d-4af3-a780-3c30c7fc5c51", CellID->14107563], Cell[203894, 5178, 275, 7, 70, "Text",ExpressionUUID->"d7e66cf2-5454-4ce7-b7b1-80a606c6487a", CellID->538115930], Cell[CellGroupData[{ Cell[204194, 5189, 567, 14, 70, "Input",ExpressionUUID->"0f1f5dba-1d63-4055-8c48-6318c5dfdb42", CellID->583403536], Cell[204764, 5205, 8525, 181, 70, "Output",ExpressionUUID->"fd83473d-1c3b-4117-81f1-77df1677c6d8", CellID->44170671] }, Open ]], Cell[213304, 5389, 181, 3, 70, "Text",ExpressionUUID->"36bca484-6f20-4cdf-8af6-5869be91c9cd", CellID->829736784], Cell[CellGroupData[{ Cell[213510, 5396, 223, 6, 70, "Input",ExpressionUUID->"208cab2b-70a1-4c33-825b-5aaee4df2eb6", CellID->801669367], Cell[213736, 5404, 265, 6, 70, "Output",ExpressionUUID->"09833b50-9f2e-41d5-bfc8-e4045dd2297f", CellID->660400157] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[214050, 5416, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"290bb194-21dd-4418-9b94-3bdfb8c593d1", CellID->14107564], Cell[214196, 5422, 168, 3, 70, "Text",ExpressionUUID->"0365cd2b-3948-4ec3-8049-fbf3ab47b4f6", CellID->124351475], Cell[CellGroupData[{ Cell[214389, 5429, 775, 23, 70, "Input",ExpressionUUID->"de978196-1f2b-428b-9fbc-30241de98932", CellID->236381643], Cell[215167, 5454, 9714, 201, 70, "Output",ExpressionUUID->"37fecbe2-d7cc-46c2-a930-2480fc6d299e", CellID->162911471] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[224930, 5661, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9ed72ca9-977b-4b4a-a110-587787f2e83e", CellID->14107565], Cell[225076, 5667, 3089, 102, 70, "Text",ExpressionUUID->"3fd3a382-76ed-4de3-932e-4d3726b4bdd2", CellID->846224949], Cell[CellGroupData[{ Cell[228190, 5773, 517, 16, 70, "Input",ExpressionUUID->"b3a10ca6-9043-426d-9369-29537de6d356", CellID->202076899], Cell[228710, 5791, 8521, 183, 70, "Output",ExpressionUUID->"8891fcf8-af7c-4725-912a-57de6e4a315c", CellID->311848049] }, Open ]], Cell[CellGroupData[{ Cell[237268, 5979, 400, 12, 70, "Input",ExpressionUUID->"5b80dcd0-88cf-48cb-8ae8-694f0ac67962", CellID->843925577], Cell[237671, 5993, 477, 12, 70, "Output",ExpressionUUID->"4a0b5f6c-2ea5-4a35-8f3a-48b5dd264e2e", CellID->677145160] }, Open ]], Cell[238163, 6008, 703, 21, 70, "Text",ExpressionUUID->"3b8062f3-1a5a-4c95-9880-95d79ba12e97", CellID->649651303], Cell[CellGroupData[{ Cell[238891, 6033, 251, 7, 70, "Input",ExpressionUUID->"668750bb-0628-4e27-8361-ff36c15457ff", CellID->36088823], Cell[239145, 6042, 8605, 185, 70, "Output",ExpressionUUID->"ee4cd0bb-22b3-44bd-93bc-facab2bdf917", CellID->103890095] }, Open ]], Cell[CellGroupData[{ Cell[247787, 6232, 322, 8, 70, "Input",ExpressionUUID->"0f733b74-8007-4671-b760-a9114371778d", CellID->690500678], Cell[248112, 6242, 1145, 33, 70, "Output",ExpressionUUID->"0338afbd-0bb1-4454-8987-cee313c62714", CellID->181819095] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[249306, 6281, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"c915da4f-bca6-4a7e-a146-522af044a191", CellID->14107566], Cell[249452, 6287, 319, 9, 70, "Text",ExpressionUUID->"4ed7c2d6-2062-46d6-ae02-a948129e2f0d", CellID->516569629], Cell[CellGroupData[{ Cell[249796, 6300, 604, 17, 70, "Input",ExpressionUUID->"aa89def5-2651-419c-bd88-cf82c689f627", CellID->959503072], Cell[250403, 6319, 9051, 193, 70, "Output",ExpressionUUID->"b90c877c-fba9-4e4f-bd92-dc6dce6fe984", CellID->386053358] }, Open ]], Cell[259469, 6515, 782, 22, 70, "Text",ExpressionUUID->"b8f2c645-0a0e-46a7-a832-5a5ce1a88e9f", CellID->285312406], Cell[CellGroupData[{ Cell[260276, 6541, 861, 23, 70, "Input",ExpressionUUID->"d1a3914c-58f1-40cf-81ca-072f4733e5e1", CellID->648061486], Cell[261140, 6566, 9528, 198, 70, "Output",ExpressionUUID->"8a22a04c-36a1-4a5b-8922-9fb8fa08bf65", CellID->564523709] }, Open ]], Cell[CellGroupData[{ Cell[270705, 6769, 188, 5, 70, "Input",ExpressionUUID->"584dcea6-57c5-440d-9c51-441975b856b7", CellID->219194370], Cell[270896, 6776, 347, 11, 70, "Output",ExpressionUUID->"ab17f94d-a987-43c6-8460-e215490e31cc", CellID->370479342] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[271304, 6794, 73, 2, 70, "Subsection",ExpressionUUID->"67e32277-d3f3-43ee-8bae-a79a62a45201", CellID->605265931], Cell[271380, 6798, 937, 26, 70, "Text",ExpressionUUID->"4041c484-51c5-47be-a90e-4c3dfe12362b", CellID->512225156], Cell[CellGroupData[{ Cell[272342, 6828, 727, 19, 70, "Input",ExpressionUUID->"c3ff104d-a7f9-4b7e-a7af-cbb25d182d21", CellID->267607170], Cell[273072, 6849, 11513, 229, 70, "Output",ExpressionUUID->"b99c0b7e-7791-423a-bd88-3d1e6751dc0e", CellID->123565909] }, Open ]], Cell[CellGroupData[{ Cell[284622, 7083, 1108, 27, 70, "Input",ExpressionUUID->"1bd091ce-db6c-4fb7-983e-5310e5e89035", CellID->426092103], Cell[285733, 7112, 432, 10, 70, "Output",ExpressionUUID->"11596ad8-9cbb-4bad-869c-1d862ab5d71e", CellID->729461918] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[286214, 7128, 85, 2, 70, "Subsection",ExpressionUUID->"fae9a099-1b9d-4752-a5c4-eb85976b0eea", CellID->232113220], Cell[286302, 7132, 318, 9, 70, "Text",ExpressionUUID->"c972f187-b3bc-4930-99ed-d06c726d6e6a", CellID->852090724], Cell[CellGroupData[{ Cell[286645, 7145, 660, 20, 70, "Input",ExpressionUUID->"430eeaa0-cf56-438b-976f-ee707d863622", CellID->101910263], Cell[287308, 7167, 9674, 202, 70, "Output",ExpressionUUID->"a8d3ca37-1a83-462c-a875-f378e4fc216d", CellID->7954229] }, Open ]], Cell[CellGroupData[{ Cell[297019, 7374, 457, 12, 70, "Input",ExpressionUUID->"c5344feb-6ec9-4fbf-8cf1-c3045ff4d1e2", CellID->393814493], Cell[297479, 7388, 431, 9, 70, "Output",ExpressionUUID->"758da1d6-dd71-4378-b022-202802773e2c", CellID->101993984] }, Open ]], Cell[297925, 7400, 688, 21, 70, "Text",ExpressionUUID->"200e0715-c2a9-4cdc-9ccc-ab59ab70c7d6", CellID->664046071], Cell[CellGroupData[{ Cell[298638, 7425, 404, 11, 70, "Input",ExpressionUUID->"588b5c93-ae92-4742-926e-28c60b6bc671", CellID->238240831], Cell[299045, 7438, 419, 8, 70, "Output",ExpressionUUID->"0a4a06ed-1b7e-4186-a413-e86a4f85f2e2", CellID->17107153] }, Open ]], Cell[299479, 7449, 795, 22, 70, "Text",ExpressionUUID->"5251c11d-cfc7-48ce-810d-bb55473a3cd5", CellID->76818729], Cell[CellGroupData[{ Cell[300299, 7475, 467, 12, 70, "Input",ExpressionUUID->"914d2e0b-6794-4655-897d-46b794a3c02e", CellID->458468853], Cell[300769, 7489, 426, 8, 70, "Output",ExpressionUUID->"f6f94dc2-768b-40f6-8939-d9783f7bf7a9", CellID->787468945] }, Open ]], Cell[301210, 7500, 298, 9, 70, "Text",ExpressionUUID->"5d9c1ef4-6c75-4148-bab8-ac958e64842d", CellID->765411124], Cell[CellGroupData[{ Cell[301533, 7513, 477, 13, 70, "Input",ExpressionUUID->"06e547b6-08e3-402c-9ef9-addf71f863b2", CellID->520151854], Cell[302013, 7528, 310, 6, 70, "Output",ExpressionUUID->"b4d97459-9828-4cc9-9590-61450c785688", CellID->976696167] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[302372, 7540, 76, 2, 70, "Subsection",ExpressionUUID->"23757d20-d113-43a2-9d42-09ed48222c54", CellID->158766396], Cell[302451, 7544, 252, 6, 70, "Text",ExpressionUUID->"bee44b03-2003-4f7c-9c61-0c3433650ef3", CellID->14876783], Cell[CellGroupData[{ Cell[302728, 7554, 725, 21, 70, "Input",ExpressionUUID->"7df158be-6ba6-42e1-a2fa-e7fdf63853b7", CellID->957045727], Cell[303456, 7577, 916, 17, 70, "Message",ExpressionUUID->"9314cf88-203a-4a82-b8c1-80d2688cf798", CellID->82545499], Cell[304375, 7596, 342, 7, 70, "Output",ExpressionUUID->"cb460c5f-9238-4ad5-994d-c62e8a644d09", CellID->375000065] }, Open ]], Cell[304732, 7606, 670, 21, 70, "Text",ExpressionUUID->"c0244964-4b27-4f99-85a1-728be788dab4", CellID->190717473], Cell[CellGroupData[{ Cell[305427, 7631, 396, 12, 70, "Input",ExpressionUUID->"1ca4de25-a792-443e-a628-921c8a12fe5d", CellID->811583017], Cell[305826, 7645, 545, 12, 70, "Message",ExpressionUUID->"89534706-a74a-4f31-82a4-7f731d715295", CellID->206444714], Cell[306374, 7659, 545, 15, 70, "Output",ExpressionUUID->"1c0a97d7-ef53-4fee-a340-7c5113d8b60e", CellID->893063334] }, Open ]], Cell[306934, 7677, 163, 3, 70, "Text",ExpressionUUID->"2b34f018-3997-4118-b526-44abdfc9275b", CellID->813476132], Cell[CellGroupData[{ Cell[307122, 7684, 284, 8, 70, "Input",ExpressionUUID->"8654f905-68c4-41b9-b204-0753810b6d48", CellID->643486868], Cell[307409, 7694, 9311, 196, 70, "Output",ExpressionUUID->"b3caf54f-74b7-4a32-ab9c-d14042a30ce1", CellID->740373536] }, Open ]], Cell[CellGroupData[{ Cell[316757, 7895, 270, 8, 70, "Input",ExpressionUUID->"e4cec54d-8368-48a1-8420-83d6e09aef82", CellID->877648737], Cell[317030, 7905, 9286, 196, 70, "Output",ExpressionUUID->"735f3d26-38f2-4711-8b95-640ff9dffdf7", CellID->59056318] }, Open ]], Cell[326331, 8104, 181, 3, 70, "Text",ExpressionUUID->"7e9caa5d-e57e-4af2-becb-99a421677456", CellID->856178759], Cell[CellGroupData[{ Cell[326537, 8111, 363, 12, 70, "Input",ExpressionUUID->"9ab1772e-4fbd-45cb-9799-58fe63af9df5", CellID->254711664], Cell[326903, 8125, 8553, 181, 70, "Output",ExpressionUUID->"e8cfeea3-5b5e-48ad-bddd-4842a1b7d447", CellID->333305444] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[335505, 8312, 74, 2, 70, "Subsection",ExpressionUUID->"4234a902-f3c1-4f29-8e6d-c3f1b79cc086", CellID->461278909], Cell[335582, 8316, 346, 8, 70, "Text",ExpressionUUID->"f5047500-5877-46ee-8bb4-bec7213aed69", CellID->22246369], Cell[CellGroupData[{ Cell[335953, 8328, 586, 17, 70, "Input",ExpressionUUID->"e802cd72-e84c-4c6a-91e4-80406448935b", CellID->349688527], Cell[336542, 8347, 1372, 29, 70, "Output",ExpressionUUID->"c5e57a70-82b8-415b-9154-710bd0ff21c1", CellID->287457248] }, Open ]], Cell[CellGroupData[{ Cell[337951, 8381, 998, 27, 70, "Input",ExpressionUUID->"b1c26520-7f6c-49f0-8c83-c82024c52079", CellID->695255251], Cell[338952, 8410, 10841, 225, 70, "Output",ExpressionUUID->"cb0ac3a8-a737-482b-9ad0-351578a14a0c", CellID->177835214] }, Open ]], Cell[349808, 8638, 662, 21, 70, "Text",ExpressionUUID->"ca86d883-4773-4016-bb07-77e251d20378", CellID->456124105], Cell[CellGroupData[{ Cell[350495, 8663, 249, 6, 70, "Input",ExpressionUUID->"0f8a5a31-cb36-42fe-a38e-f72a14d8a54d", CellID->949310967], Cell[350747, 8671, 318, 6, 70, "Output",ExpressionUUID->"7d93269b-6098-459e-befb-5e342309850a", CellID->332519000] }, Open ]], Cell[351080, 8680, 679, 22, 70, "Text",ExpressionUUID->"baf1088c-a21b-4375-a01a-9552820aba76", CellID->108730061], Cell[CellGroupData[{ Cell[351784, 8706, 428, 13, 70, "Input",ExpressionUUID->"7800663c-39c3-403c-88fc-f04e558cee5c", CellID->600561499], Cell[352215, 8721, 11465, 195, 70, "Output",ExpressionUUID->"e2cc65c3-8872-40d2-a993-f6852ba344ae", CellID->558745607] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[363741, 8923, 249, 5, 70, "Section",ExpressionUUID->"4c183035-2149-41a0-baf8-4e8215b4120d", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[364015, 8932, 1026, 26, 70, "Subsection",ExpressionUUID->"0322bdfa-1fef-43f4-9b6e-f66f8d6c0002", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[365044, 8960, 47, 1, 70, "Text",ExpressionUUID->"819e8287-5b89-4734-8c29-7a95f0f4d517", CellID->323553069] }, Open ]], Cell[CellGroupData[{ Cell[365128, 8966, 996, 26, 70, "Subsection",ExpressionUUID->"23915e43-ee5a-4851-b82a-5c2dbb2d75ae", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[366127, 8994, 47, 1, 70, "Item",ExpressionUUID->"ce3ad225-1057-4a73-99e7-7280d9164151", CellID->914665742], Cell[366177, 8997, 47, 1, 70, "Item",ExpressionUUID->"1b29e478-702d-4552-ab8d-55ac52741185", CellID->123178904], Cell[366227, 9000, 50, 1, 70, "Item",ExpressionUUID->"d8acd1ef-d024-4470-b601-8824c83d2705", CellID->802555463], Cell[366280, 9003, 41, 1, 70, "Item",ExpressionUUID->"09fa0b73-70b0-4bf6-ad1b-6746a4391f16", CellID->348495550], Cell[366324, 9006, 48, 1, 70, "Item",ExpressionUUID->"4d9b9ee9-940d-4ddc-965e-dffc5524c52c", CellID->777664674], Cell[366375, 9009, 52, 1, 70, "Item",ExpressionUUID->"1aa5bdbc-3dd9-47a3-9818-52831b1c0e06", CellID->79334257], Cell[366430, 9012, 42, 1, 70, "Item",ExpressionUUID->"1bb55407-9a41-48e2-9077-500520e7b9d0", CellID->161700354] }, Open ]], Cell[CellGroupData[{ Cell[366509, 9018, 221, 6, 70, "Subsection",ExpressionUUID->"afd0d570-0a9e-43e4-b867-caab0a46108a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[366733, 9026, 8341, 253, 70, "Output",ExpressionUUID->"81bb8bb5-454e-4802-9a11-94d965d29431", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->217098364] }, Open ]], Cell[CellGroupData[{ Cell[375111, 9284, 980, 26, 70, "Subsection",ExpressionUUID->"d96e4486-07ee-4e5a-96e0-3f8a775c3780", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[376094, 9312, 47, 1, 70, "Item",ExpressionUUID->"94744da5-12b2-448a-abf2-99f4b0cd94a6", CellID->914665743], Cell[376144, 9315, 47, 1, 70, "Item",ExpressionUUID->"f6820c64-d8a3-4dfe-956d-326af8ae9679", CellID->123178905], Cell[376194, 9318, 40, 1, 70, "Item",ExpressionUUID->"3184eee9-c478-4eda-b384-ae8ee9d0d597", CellID->651278196], Cell[376237, 9321, 40, 1, 70, "Item",ExpressionUUID->"87786583-7950-4dde-b3b6-a1ed117c19b5", CellID->300688223], Cell[376280, 9324, 42, 1, 70, "Item",ExpressionUUID->"b8dadd19-2641-4f9a-8f0d-c139aadab22e", CellID->840751942], Cell[376325, 9327, 43, 1, 70, "Item",ExpressionUUID->"a72a10ee-9fc2-401c-9996-6a088f779e70", CellID->161169288] }, Open ]], Cell[CellGroupData[{ Cell[376405, 9333, 1039, 26, 70, "Subsection",ExpressionUUID->"633585d7-facb-4389-b81f-e86f21ba82b2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[377447, 9361, 52, 1, 70, "Item",ExpressionUUID->"e557c3fc-777a-47db-bb7a-343aba2def8d", CellID->513995504], Cell[377502, 9364, 50, 1, 70, "Item",ExpressionUUID->"3649975f-77ee-4ad0-b464-6a54cfa26a50", CellID->107226899], Cell[377555, 9367, 58, 1, 70, "Item",ExpressionUUID->"b01c8dff-662f-4115-9057-e2ab739dabce", CellID->281244061], Cell[377616, 9370, 55, 1, 70, "Item",ExpressionUUID->"a0bef713-af2f-4175-8c39-5547d2fed651", CellID->266900640], Cell[377674, 9373, 54, 1, 70, "Item",ExpressionUUID->"27188f7b-0574-42c1-a088-51871fdecbc9", CellID->810673109] }, Open ]], Cell[CellGroupData[{ Cell[377765, 9379, 1084, 26, 70, "Subsection",ExpressionUUID->"daab8274-05c7-4d71-9ec0-6de115f35635", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[378852, 9407, 516, 8, 70, "Text",ExpressionUUID->"d3a8e70e-fedf-4c29-8b6e-88be8564bb26", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[379405, 9420, 923, 26, 70, "Subsection",ExpressionUUID->"17cc4044-b8e4-4509-a379-33a535515eb7", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[380331, 9448, 398, 8, 70, "Item",ExpressionUUID->"3eb05bc0-ef03-450a-8758-ecf0d26078d7", CellID->454277936] }, Open ]], Cell[CellGroupData[{ Cell[380766, 9461, 1874, 45, 70, "Subsection",ExpressionUUID->"e6cd9cf8-9870-4919-9000-117225cda31c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[382665, 9510, 158, 5, 70, "Input",ExpressionUUID->"f94e0262-a53f-4dde-97f3-3afd3da39cfa", CellTags->"DefaultContent", CellID->946203791], Cell[382826, 9517, 122, 4, 70, "Output",ExpressionUUID->"68c47aae-e8ce-493c-b22e-f26ed1e163e4", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[382997, 9527, 955, 25, 70, "Subsection",ExpressionUUID->"52ff3c44-aad5-414c-ad4f-52c0d94a7fd4", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[383977, 9556, 1174, 31, 70, "Subsubsection",ExpressionUUID->"efbc0dc0-f4e5-47a5-b841-7f72323328f2", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[385154, 9589, 89, 2, 70, "Text",ExpressionUUID->"f081cbba-fae4-4025-b2be-86175b5d1bd8", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[385280, 9596, 1113, 29, 70, "Subsubsection",ExpressionUUID->"caeff51c-8d85-4546-9512-c2323f5f3ed1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[386396, 9627, 2098, 62, 70, "Output",ExpressionUUID->"939576ae-72c4-4202-bbab-aecaf7f3ddda", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[388531, 9694, 1280, 33, 70, "Subsubsection",ExpressionUUID->"a8c41333-f773-40a0-9f6b-33d1ccba5313", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[389814, 9729, 2149, 63, 70, "Output",ExpressionUUID->"e9675b00-0292-4ffd-8ddc-46fefeae7179", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[392000, 9797, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dd964b61-5346-4106-aa0d-89abe8d6eedc", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[393916, 9845, 3986, 117, 70, "Output",ExpressionUUID->"13099cce-1b30-45c0-b521-64abc8f9a54e", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[397939, 9967, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8345a564-b47b-4284-94db-9cb0ddae4ddb", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[399013, 9996, 1218, 36, 70, "Output",ExpressionUUID->"4ddadd05-56d3-4dbb-a23d-767a5670dd1a", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[400292, 10039, 1155, 28, 70, "Section",ExpressionUUID->"0e1a5b4e-e448-4cbd-808e-d44b74375463", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[401450, 10069, 529, 8, 70, "Text",ExpressionUUID->"f0971f29-2632-496b-b686-6ba10e07df2f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[402016, 10082, 1033, 26, 70, "Section",ExpressionUUID->"f33147d4-3f01-4480-99d6-da0ca01065c1", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[403052, 10110, 515, 8, 70, "Text",ExpressionUUID->"c9277286-bd85-4acb-8b29-1499b4a9f1b7", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)