(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 292759, 7144] NotebookOptionsPosition[ 137862, 4192] NotebookOutlinePosition[ 280514, 6885] CellTagsIndexPosition[ 278705, 6835] WindowTitle->NewickDendrogram | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["NewickDendrogram", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->569516321], Cell["Render a Newick tree as a dendrogram", "Text", CellTags->{"Description", "TemplateCell"}, CellID->736139615], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{ RowBox[{"NewickDendrogram", "[", "newick_List", "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "vertexWeights", ",", "vertices", ",", "determineVertexWeights", ",", "determineVertexWeightsHelper", ",", "buildNewickEdges", ",", "edges", ",", "minLength"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "newick", "]"}], ">", "1"}], ",", RowBox[{"Return", "[", RowBox[{"Column", "[", RowBox[{ RowBox[{"NewickDendrogram", "@*", "List"}], "/@", "newick"}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"determineVertexWeights", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"invertedWeights", ",", "maxWeight"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"invertedWeights", "=", RowBox[{"determineVertexWeightsHelper", "[", RowBox[{"newick", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maxWeight", "=", RowBox[{"Max", "[", RowBox[{"Values", "[", "invertedWeights", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"maxWeight", "-", "#"}], ")"}], "&"}], "/@", "invertedWeights"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\n", RowBox[{ RowBox[{"determineVertexWeightsHelper", "[", RowBox[{"newickSubset_List", ",", "parentScore_"}], "]"}], ":=", RowBox[{"Apply", "[", "\[IndentingNewLine]", RowBox[{"Join", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"determineVertexWeightsHelper", "[", RowBox[{"#", ",", "parentScore"}], "]"}], "&"}], "/@", "newickSubset"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\n", RowBox[{ RowBox[{"determineVertexWeightsHelper", "[", RowBox[{"newickSubset_Association", ",", "parentScore_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"KeyExistsQ", "[", RowBox[{"newickSubset", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"subtreeResults", ",", "score"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"score", "=", RowBox[{ RowBox[{"newickSubset", "[", "\"\\"", "]"}], "+", "parentScore"}]}], ";", "\[IndentingNewLine]", RowBox[{"subtreeResults", "=", RowBox[{"determineVertexWeightsHelper", "[", RowBox[{ RowBox[{"newickSubset", "[", "\"\\"", "]"}], ",", "score"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"subtreeResults", ",", RowBox[{"<|", RowBox[{ RowBox[{"newickSubset", "[", "\"\\"", "]"}], "\[Rule]", "score"}], "|>"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"<|", RowBox[{ RowBox[{"newickSubset", "[", "\"\\"", "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"newickSubset", "[", "\"\\"", "]"}], "+", "parentScore"}], ")"}]}], "|>"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buildNewickEdges", "[", "parsedNewick_List", "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"buildNewickEdges", "/@", "parsedNewick"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buildNewickEdges", "[", "parsedNewick_Association", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"KeyExistsQ", "[", RowBox[{"parsedNewick", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"parsedNewick", "[", "\"\\"", "]"}], "\[Rule]", RowBox[{"#", "[", "\"\\"", "]"}]}], "&"}], "/@", RowBox[{"parsedNewick", "[", "\"\\"", "]"}]}], ",", RowBox[{"buildNewickEdges", "[", RowBox[{"parsedNewick", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vertexWeights", "=", RowBox[{"determineVertexWeights", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vertices", "=", RowBox[{"Keys", "[", "vertexWeights", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"edges", "=", RowBox[{"buildNewickEdges", "[", "newick", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"minLength", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "vertices", "]"}], "*", "5"}], ")"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"StringLength", "/@", "vertices"}], "]"}], "*", "8"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Dendrogram", "[", RowBox[{ RowBox[{"Graph", "[", RowBox[{"vertices", ",", "edges", ",", RowBox[{"VertexWeight", "\[Rule]", RowBox[{"(", RowBox[{"vertexWeights", "/@", "vertices"}], ")"}]}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], ",", "Left", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"(", "minLength", ")"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{3.796470466787148*^9}, CellLabel->"In[35]:=", CellID->747319602], Cell[BoxData[ RowBox[{ RowBox[{"NewickDendrogram", "[", "newickStr_String", "]"}], ":=", RowBox[{"NewickDendrogram", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "newickStr", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7964705103498583`*^9, 3.796470520685079*^9}}, CellLabel->"In[37]:=", CellID->556964920] }, 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[{"NewickDendrogram", "[", StyleBox["newickTree", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->503835048], Cell[TextData[{ "displays a Newick tree as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "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/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->722583429] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", StyleBox["newickString", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->77828762], Cell[TextData[{ "imports a Newick tree from a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["String", "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/String", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and then displays it as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "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/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->585583587] }, 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["\<\ A dendrogram is a tree visualization useful for expressing clustering \ similarity.\ \>", "Notes", CellTags->"TabNext", CellID->250053913], Cell["\<\ The Newick tree is a popular format for representing a phylogenetic tree, \ which is a type of dendrogram.\ \>", "Notes", CellTags->"TabNext", CellID->487746841] }, 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["Display a Newick string as a dendrogram:", "Text", TaggingRules->{}, CellChangeTimes->{{3.796471574078166*^9, 3.796471574366338*^9}, { 3.7964716778266*^9, 3.7964716812263412`*^9}, {3.796471879036222*^9, 3.7964718905152073`*^9}}, CellID->729018286], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", "\"\<(a:8, (b:2, d:9):4, c:1)e:0\>\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.796471457267165*^9, 3.796471462937746*^9}, { 3.796471597649557*^9, 3.796471598005485*^9}, {3.796471703747744*^9, 3.796471718875395*^9}, {3.796471808143197*^9, 3.7964718718601723`*^9}}, CellLabel->"In[38]:=", CellID->717541997], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-5, 4}, {-13, 4}}, {{-9., 10.}, {-13., 10.}}, {{-12, 16}, {-13, 16}}, {{-13, 4}, {-13, 16}}, {{-7, 8}, {-9, 8}}, {{0, 12}, {-9, 12}}, {{-9, 8}, {-9, 12}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-5, 4}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-7, 8}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-12, 16}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7964714637429743`*^9, 3.796471598433962*^9, {3.796471813070695*^9, 3.796471872093663*^9}, 3.796577718161212*^9}, CellLabel->"Out[38]=", CellID->868371668] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Import a Newick tree using the resource function ", ButtonBox["ImportNewickString", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ ImportNewickString/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ ImportNewickString/"], " and render the imported tree as a dendrogram:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.796471574078166*^9, 3.796471574366338*^9}, { 3.7964716778266*^9, 3.7964716812263412`*^9}, {3.796471879036222*^9, 3.796471945929306*^9}, {3.857212029966384*^9, 3.857212073388626*^9}}, CellID->319982785], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"newickTree", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\"\<(a:8, (b:2, d:9):4, c:1)e:0\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NewickDendrogram", "[", "newickTree", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.796471952483191*^9, 3.796471955358535*^9}, { 3.796471998016426*^9, 3.796472036550434*^9}}, CellLabel->"In[39]:=", CellID->207053874], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-5, 4}, {-13, 4}}, {{-9., 10.}, {-13., 10.}}, {{-12, 16}, {-13, 16}}, {{-13, 4}, {-13, 16}}, {{-7, 8}, {-9, 8}}, {{0, 12}, {-9, 12}}, {{-9, 8}, {-9, 12}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-5, 4}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-7, 8}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-12, 16}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7964720376954*^9, 3.796577722137671*^9}, CellLabel->"Out[40]=", CellID->147535190] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Trees of arbitrary depth are supported:", "Text", TaggingRules->{}, CellChangeTimes->{{3.796471435195738*^9, 3.79647143781898*^9}, { 3.7964716220062733`*^9, 3.796471664212393*^9}, {3.7964736154557343`*^9, 3.796473648558001*^9}}, CellID->589477521], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", "\"\<(a:3, (d:18, (e:7, f:20)g:8, h:3), b:6)c:0\>\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.796473604288321*^9, 3.796473638094678*^9}}, CellLabel->"In[132]:=", CellID->486076199], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-31, 5}, {-34, 5}}, {{-28., 17.5}, {-34., 17.5}}, {{-34, 5}, {-34., 17.5}}, {{-10, 10}, {-28, 10}}, {{-20., 17.5}, {-28., 17.5}}, {{-25, 25}, {-28, 25}}, {{-28, 10}, {-28, 25}}, {{-13, 15}, {-20, 15}}, {{0, 20}, {-20, 20}}, {{-20, 15}, {-20, 20}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-31, 5}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-10, 10}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"e\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-13, 15}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"f\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"h\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-25, 25}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->40, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.796473606168865*^9, 3.7964736392325478`*^9}}, CellLabel->"Out[132]=", CellID->922034940] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ If the Newick tree is not connected to a common ancestor node, multiple \ dendrograms are displayed:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.796471435195738*^9, 3.79647143781898*^9}, { 3.7964716220062733`*^9, 3.796471664212393*^9}, {3.796576885939595*^9, 3.7965768951988297`*^9}}, CellID->714386240], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", "\"\<((a:3, b:2)node:0, (c:1, d:2)node2:1)\>\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.796470924436349*^9, 3.796470927868967*^9}}, CellLabel->"In[98]:=", CellID->329814904], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{0, 2}, {-3, 2}}, {{-1, 4}, {-3, 4}}, {{-3, 2}, {-3, 4}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-1, 4}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]}, { GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-1, 2}, {-2, 2}}, {{0, 4}, {-2, 4}}, {{-2, 2}, {-2, 4}}}]}, InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-1, 2}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->40, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.796470934263554*^9, 3.7964709481304827`*^9}}, CellLabel->"Out[98]=", CellID->731851054] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["\<\ Quite large trees can be rendered with legible substructure, at the cost of \ the resulting dendrogram being correspondingly large:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.796472812771544*^9, 3.796472844074419*^9}, { 3.796473025822529*^9, 3.7964730300556717`*^9}, {3.796473128136455*^9, 3.796473158598934*^9}, {3.796473310539406*^9, 3.796473314105563*^9}}, CellID->282627223], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"String", StyleBox[ "\"Moderately large tree\"", "IconizedCustomName", StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["String", "IconizedItem"]}]}, { RowBox[{ TagBox["\"String length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["5176", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["5376", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], "(((('PDT000420560.1':0.0198508, ('PDT000133532.2':0.00971731, \ 'PDT000158341.2':0.00437849)NODE:0.0088589)NODE_000002:0.00329575, \ ((('PDT000034097.3':0.0146399, ('PDT000235705.2':0.00313825, \ 'PDT000247553.2':0.00294836)NODE_000003:0.00497259)NODE_000004:0.0138707, \ (('PDT000035464.1':0.0063772, \ 'PDT000035508.1':0.0064036)NODE_000005:0.00858051, \ ('PDT000579113.1':0.00421217, \ 'PDT000579112.1':0.00495026)NODE_000006:0.0159417)NODE_000007:0.00127682)NODE_\ 000008:0.00392538, (('PDT000111577.2':0.000521048, \ 'PDT000201409.1':0.000878812)NODE_000009:0.00651095, \ ('PDT000050204.11':0.00943314, ('PDT000097379.2':0.0166698, \ ('PDT000050245.2':0.000985307, ('PDT000050242.2':0.000785888, \ (('PDT000050233.2':0.000614227, ('PDT000050226.2':0.000545162, \ ('PDT000295783.2':0.000237048, \ 'PDT000295779.2':0.000262852)NODE_000010:0.000254468)NODE_000011:0.\ 00006744690000000001)NODE_000012:-0.0000259395, \ ('PDT000050195.2':0.000417441, (('PDT000111582.2':0.000380979, \ 'PDT000111584.2':0.000318881)NODE_000013:0.000066145, \ ('PDT000111575.2':0.000205089, ('PDT000111578.2':0.000388139, \ 'PDT000111585.2':0.000211741)NODE_000014:0.0000948711)NODE_000015:0.000168731)\ NODE_000016:0.0001556)NODE_000017:0.000019794)NODE_000018:0.0005216)NODE_\ 000019:0.000230167)NODE_000020:0.00790221)NODE_000021:0.00679072)NODE_000022:-\ 0.00465701)NODE_000023:0.0135222)NODE_000024:0.00530667)NODE_000025:0.\ 00710352, ((('PDT000420342.2':0.00867207, \ 'PDT000658397.1':0.00987763)NODE_000026:0.00394882, \ ('PDT000420251.2':0.00930422, ('PDT000420494.2':0.00560881, \ ('PDT000420019.2':0.0000462236, \ 'PDT000420456.2':0.00005377640000000001)NODE_000027:0.00563134)NODE_000028:0.\ 00290101)NODE_000029:0.00950324)NODE_000030:0.00631592, \ ((('PDT000715497.1':0.0019086, \ 'PDT000000595.5':0.00218771)NODE_000031:0.00245252, \ ('PDT000489474.1':0.000717467, (('PDT000489323.1':0.000221158, \ 'PDT000489407.1':0.000278742)NODE_000032:0.0000647109, \ ('PDT000489464.1':0.00012838, ('PDT000486139.2':0.000058193900000000005, \ 'PDT000489485.1':0.0000418061)NODE_000033:0.000171585)NODE_000034:0.000178041)\ NODE_000035:0.000435336)NODE_000036:0.00708397)NODE_000037:0.00195908, \ (('PDT000518591.1':0.00291175, \ 'PDT000536820.1':0.00208525)NODE_000038:0.0111476, \ ((('PDT000036539.2':0.00402592, ('PDT000112614.2':0.000261359, \ 'PDT000025487.3':0.000138601)NODE_000039:0.0022718)NODE_000040:0.00971232, \ ('PDT000005905.2':0.0136903, ('PDT000030344.3':0.00786456, \ ('PDT000036653.2':0.00390216, ('PDT000036538.2':0.00449639, \ ('PDT000102712.3':0.00265854, ('PDT000025482.3':0.00200228, \ ('PDT000246521.2':0.000733636, ('PDT000133698.2':0.000221947, \ (('PDT000362352.1':0.000106709, \ 'PDT000002741.3':0.00009327120000000001)NODE_000041:0.0000808958, \ ('PDT000576927.1':0.000163816, ('PDT000133699.2':0.0000323786, \ 'PDT000133700.2':0.0000676214)NODE_000042:0.000036183700000000004)NODE_000043:\ 0.0000736729)NODE_000044:0.00009418600000000001)NODE_000045:0.000380775)NODE_\ 000046:0.00135761)NODE_000047:0.000388642)NODE_000048:0.000351942)NODE_000049:\ 0.000328401)NODE_000050:0.00142501)NODE_000051:0.000497992)NODE_000052:0.\ 00152019)NODE_000053:0.000431489, ('PDT000119951.2':0.0169704, \ ('PDT000430625.1':0.00364419, (('PDT000025469.3':0.00121963, \ ('PDT000025479.3':0.000397895, (('PDT000025470.3':0.000206438, \ 'PDT000025480.3':0.000193482)NODE_000054:0.000048854800000000005, \ ('PDT000025474.3':0.000181545, ('PDT000025473.3':0.00022996, \ ('PDT000025472.3':0, \ 'PDT000025471.3':0)NODE_000055:0.00017004)NODE_000056:0.00006177440000000001)\ NODE_000057:0.000191907)NODE_000058:0.000151469)NODE_000059:0.000221088)NODE_\ 000060:0.000023073800000000003, ('PDT000715488.1':0.000967287, \ (('PDT000065812.2':0.000721315, ('PDT000715489.1':0.000247055, \ 'PDT000715495.1':0.000252845)NODE_000061:0.000278345)NODE_000062:-0.\ 00005042570000000001, ('PDT000025478.3':0.000876341, \ (('PDT000715499.1':0.00039311, \ 'PDT000356339.1':0.00050653)NODE_000063:0.000113079, \ (('PDT000715490.1':0.000260406, \ 'PDT000715496.1':0.000339534)NODE_000064:0.0000719736, \ ('PDT000152418.1':0.000273525, ('PDT000715498.1':0.000191038, \ ('PDT000715492.1':0.000170376, (('PDT000715494.1':0.000101269, \ ('PDT000356340.1':0.000033464100000000004, \ 'PDT000041260.2':0.00006653590000000001)NODE_000065:0.0000987064)NODE_000066:\ 0.00003476370000000001, ('PDT000025481.3':0.000198834, \ (('PDT000025488.3':0.000059052500000000004, ('PDT000715487.1':0, \ 'PDT000715501.1':0)NODE_000067:0.00004094750000000001)NODE_000068:0.\ 000056655300000000006, ('PDT000715491.1':0.000143976, \ ('PDT000025484.3':0.0000369894, ('PDT000715493.1':0.000033189700000000005, \ ('PDT000715500.1':0.000027748100000000003, \ 'PDT000083329.5':0.0000722519)NODE_000069:0.0000668003)NODE_000070:0.\ 00007407050000000001)NODE_000071:0.0000245089)NODE_000072:-3.9250099999999995*\ ^-6)NODE_000073:0.0000937248)NODE_000074:-0.0000648775)NODE_000075:0.\ 000102293)NODE_000076:6.9989399999999994*^-6)NODE_000077:0.0000329868)NODE_\ 000078:0.0000984883)NODE_000079:0.0000126595)NODE_000080:0.000159901)NODE_\ 000081:-0.00006008200000000001)NODE_000082:0.000295401)NODE_000083:-0.\ 00030214)NODE_000084:0.00261792)NODE_000085:0.010092)NODE_000086:-0.00601038)\ NODE_000087:0.00522493)NODE_000088:-0.00229636)NODE_000089:0.00492686)NODE_\ 000090:0.00742719)NODE_000091:0.00795775)", SelectWithContents->True, Selectable->False], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79647249028095*^9, 3.7964724956676283`*^9}, { 3.7964726928486853`*^9, 3.796472693923958*^9}, {3.796472770456883*^9, 3.7964727817857513`*^9}, {3.796472939986204*^9, 3.796472995620472*^9}, { 3.79647307314773*^9, 3.796473112251111*^9}}, CellLabel->"In[129]:=", CellID->502136431], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[CompressedData[" 1:eJyFlw1Ujucfxx9vyTD1z4h5SZmUR2tRbWb2WJihxN9mGpt3zbu0v3fVyLJF L4peHnkiqehFUpFeFMOytMaYYxRFrIUtRJpd133/+p/n9z07m3M6x+d8+n5/ 130993Pdd/1mL5s8r41GozFvpdG01qg/NwdedGj1332F4r+alzb460Ys15RY PE78P7fucCQuYqD0hs4ulslGHhnzqo86VGNnsi9e8RqruTrjeZL1cYabPrEG hbv+/g3zyJiXXrfyjVkh1dtUr5nK5wk275emzx8So3LRYu6RMS+81rPLswW6 UPILeJ/grGMj+/6eE6mybgX3yJgXfvK6T55VvbFb5U6b2H5Irj6nHWf96Q71 eheH8/0Cxrz0hyryem9pov3xXMfnCQ7UnuugvRWr8vIg7pExL7yG/VvF5wkO Dpw82/f8JpUNftwjY154g+0ZJ9eCtfR5rOd9gk37uXpPCVxH+xnAPTLmhfd0 8C2+3EPdX01oIN8PwXUuSye7W31F1/8N98iYF97MZs5bTv230v27mc8TfGra +EqvbuQ1X3GPjHnhk3K3Xq94sV7lyq18vYLPOjVMrXq6hq4/mHtkzAtfHl+R fGA+rS8olN2PkrusKnnwwDpK4YGeEcwjY176E1G/nF3zYRB93iF8nmDf6CWb 7kTTenRh3CNjXnjdIhu3IQ3BKmeEs/VKzo3wW1bqEKaw54NI5pExL70m+IzW srYXfT4RrE/yCZvrTtsdvlTYULSLeWTMS9+YZR3UaOdP91ck65M83O9JVtXR AIV1D6OZR8a89Ke+uB3zcw/q1+xifZLb9l6W/3mC6v1v6plHxrz0vcyuv98m k/ozo1mf5AcXT5t2iKH+DgY+Dxjz0nvuyRz5+MZGOo+i+DzBq2PaZyduJ26I 4R4Z88LPvJamT6qi/spo3idYv8QqangHYlM998iYF95zfl6Puz386LyI5X2C DUe95l79k+YX6blHxrzwuZZf9PTaSP2OcWy/JW/ese6k71jiJgP3yJhvkvu/ s+7b14i1Bt4n2PHwfavnN2j+d/HcI2Ne+KRhiTvMT9D1G/bweYItXXOqHJrJ B8F6kDEvvHd7bWO9Ka1PF8/XK7hRt3N6wHriKXu5R8a88Bq72O6bajao3Ah9 gmvb/RK2No7Wn7GXe2TMC78tqZ3Jup/3qN+HuASj9zWV01/fHl+2V74P6F6t C0s18siYV71bWrPT5DJ6np3ax+ZJ9l3zYpZbn50qr9nPPTLmhQ/u99PS5rpw lb338XmCvYYWHHyU0XI+JnCPjHnhP75m4bfMgZ4HVxL4egXXj8+sOfMaPZ96 JnKPjHnha48M71Jf9jWdr/t5n+CIu1Os+5SQT0jkHhnzwudu+OrVmymUH5vI +wTX9Zowpy6RWHOAe2TMC99nfrOh8yj18yjqlmx0v6is8ziZXnohXrkfgk0O s/uJM+ZV7/Pc9bzNSb06r2sSmydZa91tpWkb9Xnq3yOFeWTMS7+7uvqHC+fp fTr3AJ8n+PTgWLP9m8gvT+IeGfPCb/6jqnPDmF0qD0xm65Vcr93+zd1Q8h0P co+MeeGHDSm+/rsf5Yen8D7BJeNWLXxnNvHVg9wjY1744zXvOj8dTVyZzOcJ 7hmTfKHShTgqhXtkzAvv4XTtWaSO2PMgX69gbbr+6/eciece4h4Z88LPqGjn 2moAsekh3ic4d9nYpgn2xEXgkTEvfPKS0mhPZ/o8LqYa3e8qj5q2e2Tt6DjB /i6WNkeMPDLmVZ+Ymzmj7TD6+3B1Kp8nuOuAiMup/6HzxDGNe2TMC5846aXA 0ovK32NFeo8Mo/Wq3HZWVZtCl72SU3c8OWrskTGv+OpdT06euknnkU+68TyF Q2Kyxn8wRvm++L9VnWHskTGveLM3O6aVbglRfW0anye4IsX28rAQOv+fp3OP jHnhPwo/9mHOOMob0nmf4C0Or66vWUiszeAeGfPCN45+O/7ul/T3RVCG8X4o 7OgzLi6/RH0erdQdZh4Z89I/tnCv755N11PN+yTPSrpT7uChnm+39YeZR8a8 9J/eChs3ciLdf2KecZ/kT2akO1k2Rit8/in3yJiXXueeHj53Bt3/et4neZqt /elLsSpHTc1kHhnz0j8KLBh07yatv5H3SXZ9vsKnwVllx5xM5pExL/2neU+P mtvReTElk/VJjuk44qxZhepn9jzCPDLmpXf+Mc+90Jz6M3ifwme2LXh3qcpF m48wj4x5xZ+xKjUbSr7TEdYn+dgr8zK2f6iyfzP3yJiXvqSf9S/TWs7/nbxP 8u0x+sgR7xHPy+IeGfPCb3y2umBmf2JvmCc4eXafr2/bEp8Cj4x54cPa2HV1 705slcXXKzg1b+ZHxW8Sp4BHxrzwTU/cfEY7Eq+HPsG95oRPNW1Z/xXwyJgX vjGnuOT7TnQ+DD1qfN4rPCaz4bP73ZXvo5dtXraxR8a84n3nramLn07fr1DW p/CljytOJH+urCfL43aOsUfGvOKnFDe8v3uOej3lU7ON+xR2c/FrfT1XYe/v fY8Ze2TMK/7aop4Tamxo/XVH2TzJHtkdJiXR99tQks08MualtxvcbOp1kvrH ZrM+ycW5Sxf80Upl3bs5zCNjXvqH7aeX939E/RW8T/LEe2MKEi6o3v9QDvPI mJfe/rMtf5oUUn9CNp8n+M3GWt/FxcQaWA8y5oUPffm3/3U2EE/PYeuV3DnQ 3nply/xm8MiYFz7wR58z9puIc6FPcNBp54c3wonfy+UeGfPCs3zXf+Hl/8J/ 8/sOhs/WTsgjPp9rfL8r3PHco6YlixQuj+l93NgjY17xm/Nv/bl/Nfklx4z7 FH7sdq2twzqFDc5lx409MuYVPyUyeEZIy/oHHuPzBHvHDolIe504Ezwy5oVf UBb34l499W+GPsFnAwYvn/8b+UrwyJgXfldqn9MrIyk//Ljxfij8a/foEW6T FNYtmpln7JExr3izlEEJcUPIf8v6FB7xQce0h+4K+//0LM/YI2Ne8XbppWvC ztP6o47zeYLN55k2X0oj3wAeGfPC977XerfF28Qb84zXq7Btt/vvWNH7Reqq E8wjY176q/1fdCl/TOvzzOPzBLuUe9wwb3m/OwQeGfPCm9i4jltcR3nTE2y9 kvssM9m6dpDKXne4R8a89DkdB78x/yn1z+V9kvueG3Algc7zrIX5zCNjXvo7 3sU9m55TfxHvk7zapNTi4ssqe79SwDwy5qV/suVp35x25Gflsz7JB4JP1l/q S8/XcwXMI2Ne+l/nfm8x6Fdaf698Pk+w0+z7nS63+ETwyJgX3tDPwtP8FuVX Q5/ggC2Vt+ddJb4IHhnzwn8Zst87u4UdC9h+SL5w5w/7Ue3pfWBOIfPImJf+ 4IKJlgsbqf8H3ifZfkWv8PGm9D7wuJB5ZMxLf6XslQH3a6k/uIDPE/x29W7b tJbzsxusBxnzwrN8bcE/86jCf+a/+f1dj9wCtrV8/w2FbD8kT/NYWHa95f1q QBHfL2DMS/96xvQN2pbrec77JIcOvdfWl54//h5FzCNjXvql95wzi2qoX1vE +iQH/Oxn9fAa8QrwyJgX3sf3dFPKJWIv6BPsbj1xtuY74iDwyJgX/i9CRXxb "]]}, InsetBox[ FrameBox[ TagBox["\<\"'PDT000420560.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0145961, 92.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133532.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.015870690000000007, 184.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000158341.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02120951, 276.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000034097.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0., 368.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000235705.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.006529060000000003, 460.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000247553.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.006718950000000008, 552.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000035464.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.01227607, 644.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000035508.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.012249669999999997, 736.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000579113.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007079910000000002, 828.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000579112.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.006341820000000005, 920.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111577.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.011881782, 1012.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000201409.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.011524018000000004, 1104.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050204.11'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.014137650000000002, 1196.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000097379.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.00011027000000000953, 1288.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050245.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.00789255300000001, 1380.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050242.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007861805000000006, 1472.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050233.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007537805500000008, 1564.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050226.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0075394236000000114, 1656.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000295783.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007593069600000016, 1748.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000295779.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007567265600000012, 1840.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050195.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007688858000000014, 1932.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111582.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007503575000000019, 2024.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111584.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007565673000000016, 2116.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111575.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0075768790000000155, 2208.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111578.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007298957900000014, 2300.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111585.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007475355900000015, 2392.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420342.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.018482170000000006, 2484.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000658397.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.017276610000000005, 2576.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420251.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.012295600000000004, 2668.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420494.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013090000000000004, 2760.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420019.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013021246400000006, 2852.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420456.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013013693600000008, 2944.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715497.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.026171920000000005, 3036.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000000595.5'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.025892810000000006, 3128.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489474.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022731603000000003, 3220.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489323.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0227278651, 3312.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489407.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022670281100000002, 3404.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489464.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022707313, 3496.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000486139.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022605914100000003, 3588.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489485.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022622301900000003, 3680.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000518591.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.020729130000000005, 3772.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000536820.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021555630000000006, 3864.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000036539.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.015393821000000002, 3956.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000112614.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.016886582000000004, 4048.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025487.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.017009340000000005, 4140.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000005905.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013921571000000008, 4232.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000030344.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.019249319000000008, 4324.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000036653.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021786709000000008, 4416.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000036538.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.020864078000000008, 4508.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000102712.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022349986000000006, 4600.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025482.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022617604000000006, 4692.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000246521.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022528638000000007, 4784.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133698.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022659552000000006, 4876.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000362352.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022599708200000006, 4968.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000002741.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022613146000000004, 5060.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000576927.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022549824100000008, 5152.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133699.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022645077800000007, 5244.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133700.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02260983500000001, 5336.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000119951.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.018603530000000007, 5428.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000430625.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021837740000000008, 5520.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025469.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02162130620000001, 5612.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025479.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02222195320000001, 5704.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025470.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022213086400000005, 5796.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025480.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022226042400000007, 5888.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025474.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022094927200000003, 5980.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025473.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021984737800000004, 6072.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025472.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022044657800000006, 6164.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025471.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022044657800000006, 6256.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715488.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022198863000000006, 6348.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000065812.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022199859700000005, 6440.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715489.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022395774700000006, 6532.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715495.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022389984700000004, 6624.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025478.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022054490000000006, 6716.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715499.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022264741000000008, 6808.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000356339.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022151321000000005, 6900.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715490.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022425890900000002, 6992.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715496.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022346762900000004, 7084.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000152418.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022386257200000002, 7176.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715498.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022435757400000002, 7268.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715492.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022449420460000005, 7360.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715494.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022381470760000004, 7452.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000356340.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02235056926000001, 7544.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000041260.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022317497460000005, 7636.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025481.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022383546960000007, 7728.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025488.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022372948360000006, 7820.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715487.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022391053360000007, 7912.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715501.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022391053360000007, 8004.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715491.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022348605170000004, 8096.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025484.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022431082870000004, 8188.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715493.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022360812070000007, 8280.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715500.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022299453370000007, 8372.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000083329.5'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022254949570000005, 8464.}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->915, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.79647269697797*^9, 3.796472784038159*^9, 3.796473002590055*^9, 3.796473114000085*^9}, CellLabel->"Out[129]=", CellID->649927255] }, Open ]] }, 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["John Cassel (Wolfram|Alpha Team)", "Text", CellID->254409316] }, 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["Newick", "Item", CellID->308210686], Cell["phylogenetic trees", "Item", CellID->461516343], Cell["dendrogram", "Item", CellID->800204409] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Data Visualization", {False, "Data Visualization"}], "\" \"", "\"Data Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Date & Time"}], "\" \"", "\"Date & Time\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Decorations"}], "\" \"", "\"Decorations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Differential Geometry"}], "\" \"", "\"Differential Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dimension Reduction"}], "\" \"", "\"Dimension Reduction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Discrete Mathematics"}], "\" \"", "\"Discrete Mathematics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dynamic Interactivity Language"}], "\" \"", "\"Dynamic Interactivity Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Error Handling"}], "\" \"", "\"Error Handling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Expressions"}], "\" \"", "\"Expressions\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Language Interfaces"}], "\" \"", "\"External Language Interfaces\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "File Operations"}], "\" \"", "\"File Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Front End Utilities"}], "\" \"", "\"Front End Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Functional Programming"}], "\" \"", "\"Functional Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Function Visualization"}], "\" \"", "\"Function Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Games"}], "\" \"", "\"Games\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data and Entities"}], "\" \"", "\"Geographic Data and Entities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Visualization"}], "\" \"", "\"Geographic Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Region Properties"}], "\" \"", "\"Geometric Region Properties\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Transforms"}], "\" \"", "\"Geometric Transforms\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Construction & Representation"}], "\" \"", "\"Graph Construction & Representation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Properties & Measurements"}], "\" \"", "\"Graph Properties & Measurements\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Graphs & Networks", {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Graph Visualization", {False, "Graph Visualization"}], "\" \"", "\"Graph Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Handling Arrays of Data"}], "\" \"", "\"Handling Arrays of Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Image Filtering & Neighborhood Processing"}], "\" \"", "\"Image Filtering & Neighborhood Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Image Processing & Analysis"}], "\" \"", "\"Image Processing & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Importing and Exporting"}], "\" \"", "\"Importing and Exporting\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Interactive Manipulation"}], "\" \"", "\"Interactive Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Iterated Maps & Fractals"}], "\" \"", "\"Iterated Maps & Fractals\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Layout & Tables"}], "\" \"", "\"Layout & Tables\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Life Sciences & Medicine: Data & Computation", { False, "Life Sciences & Medicine: Data & Computation"}], "\" \"", "\"Life Sciences & Medicine: Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Linguistic Data"}], "\" \"", "\"Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "List Manipulation"}], "\" \"", "\"List Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Logic & Boolean Algebra"}], "\" \"", "\"Logic & Boolean Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Low-Level Notebook Programming"}], "\" \"", "\"Low-Level Notebook Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Maps & Cartography"}], "\" \"", "\"Maps & Cartography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Mathematical Functions"}], "\" \"", "\"Mathematical Functions\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Matrices and Linear Algebra"}], "\" \"", "\"Matrices and Linear Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Molecular Structure & Computation"}], "\" \"", "\"Molecular Structure & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Natural Language Processing"}], "\" \"", "\"Natural Language Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Neural Networks"}], "\" \"", "\"Neural Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Basics"}], "\" \"", "\"Notebook Basics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Document Generation"}], "\" \"", "\"Notebook Document Generation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Formatting & Styling"}], "\" \"", "\"Notebook Formatting & Styling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Number Theory"}], "\" \"", "\"Number Theory\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Numeric Approximation"}], "\" \"", "\"Numeric Approximation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Optimization"}], "\" \"", "\"Optimization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Computing"}], "\" \"", "\"Parallel Computing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Persistent Storage"}], "\" \"", "\"Persistent Storage\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Physics & Chemistry: Data and Computation"}], "\" \"", "\"Physics & Chemistry: Data and Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Plane Geometry"}], "\" \"", "\"Plane Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Polynomial Algebra"}], "\" \"", "\"Polynomial Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Precollege Education"}], "\" \"", "\"Precollege Education\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Presentations with the Wolfram System"}], "\" \"", "\"Presentations with the Wolfram System\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Probability & Statistics"}], "\" \"", "\"Probability & Statistics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Random Stuff"}], "\" \"", "\"Random Stuff\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Real & Complex Analysis"}], "\" \"", "\"Real & Complex Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Recreational Math"}], "\" \"", "\"Recreational Math\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "RepositoryTools"}], "\" \"", "\"RepositoryTools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Rules & Patterns"}], "\" \"", "\"Rules & Patterns\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Scientific and Medical Data & Computation", { False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Scientific Data Analysis"}], "\" \"", "\"Scientific Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Segmentation Analysis"}], "\" \"", "\"Segmentation Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sequence Analysis"}], "\" \"", "\"Sequence Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxtkFFLw0AMx0Hc1ooI6ouP9zQQ7BfwrXROBtPJTny/XVMXdr07LjmkfnqvrYgTnxLy/\ yX/JGVWyInkzoCcbiL7yIWcVXvQB6ibKZ2ukVheLRQr8YYUlcFPxeisvHwMyu9JzMUz8IcLB5LXQ+\ kPd7fGBoTUCFZDjz9BjRot3Ith6lxUrk22I307gIwNaqFsPcLK/\ IfeHPkkcXBHTemgFUNLlJeRXZtkXcjsJTgPgTt5VimGdxcQEjnb+\ L6bmpPx1D5uowHKHmpktUvZZKkMwY+QL8DAb6X/lzOxtceGFyvLEHyA73Xz0nYy7gjSg8+3QC4GDa+\ dB5kto9U98wVf34rS"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->521119479] }, 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["FindClusters", "Item", CellID->333767198], Cell["Dendrogram", "Item", CellID->792922396] }, 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["ImportNewickString", "Item", CellID->169924649], Cell["PhylogeneticTreePlot", "Item", CellID->562514399], Cell["Genetic-Sequences-for-the-SARS-CoV-2-Coronavirus", "Item", CellID->732579946], Cell["Protein-Sequences-for-the-SARS-CoV-2-Coronavirus", "Item", CellID->170709557] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", "\"\<(a:8, (b:2, d:9):4, c:1)e:0\>\"", "]"}]], "Input", CellChangeTimes->{{3.796471457267165*^9, 3.796471462937746*^9}, { 3.796471597649557*^9, 3.796471598005485*^9}, {3.796471703747744*^9, 3.796471718875395*^9}, {3.796471808143197*^9, 3.7964718718601723`*^9}}, CellLabel->"In[106]:=", CellID->310561436], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-5, 4}, {-13, 4}}, {{-9., 10.}, {-13., 10.}}, {{-12, 16}, {-13, 16}}, {{-13, 4}, {-13, 16}}, {{-7, 8}, {-9, 8}}, {{0, 12}, {-9, 12}}, {{-9, 8}, {-9, 12}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-5, 4}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-7, 8}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-12, 16}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", CellChangeTimes->{ 3.7964714637429743`*^9, 3.796471598433962*^9, {3.796471813070695*^9, 3.796471872093663*^9}}, CellLabel->"Out[106]=", CellID->954023012] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NewickDendrogram", "[", "\"\<((a:3, b:2)node:0, (c:1, d:2)node2:1)\>\"", "]"}]], "Input", CellChangeTimes->{{3.796470924436349*^9, 3.796470927868967*^9}}, CellLabel->"In[98]:=", CellID->786912248], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{0, 2}, {-3, 2}}, {{-1, 4}, {-3, 4}}, {{-3, 2}, {-3, 4}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-1, 4}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]}, { GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-1, 2}, {-2, 2}}, {{0, 4}, {-2, 4}}, {{-2, 2}, {-2, 4}}}]}, InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-1, 2}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->40, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.796470934263554*^9, 3.7964709481304827`*^9}}, CellLabel->"Out[98]=", CellID->261321856] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"NewickDendrogram | 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.857212132639915`16.338848513299926*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.857212132693812`16.338848513305994*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"7e86a0c8-3536-40dd-896d-da26111ed183", CellTags->{"Name", "TemplateCell", "Title"}, CellID->569516321]}, "TemplateCell"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"7e86a0c8-3536-40dd-896d-da26111ed183", CellTags->{"Name", "TemplateCell", "Title"}, CellID->569516321], Cell[734, 27, 116, 2, 70, "Text",ExpressionUUID->"917a95e6-c490-41d4-a6db-376c6c09cf17", CellTags->{"Description", "TemplateCell"}, CellID->736139615]}, "Title"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"7e86a0c8-3536-40dd-896d-da26111ed183", CellTags->{"Name", "TemplateCell", "Title"}, CellID->569516321]}, "Description"->{ Cell[734, 27, 116, 2, 70, "Text",ExpressionUUID->"917a95e6-c490-41d4-a6db-376c6c09cf17", CellTags->{"Description", "TemplateCell"}, CellID->736139615]}, "Definition"->{ Cell[875, 33, 1206, 29, 70, "Section",ExpressionUUID->"dfc81b9b-f2c9-487a-93bd-ce40958967e3", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[875, 33, 1206, 29, 70, "Section",ExpressionUUID->"dfc81b9b-f2c9-487a-93bd-ce40958967e3", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[875, 33, 1206, 29, 70, "Section",ExpressionUUID->"dfc81b9b-f2c9-487a-93bd-ce40958967e3", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[8937, 240, 1980, 50, 70, "Subsection",ExpressionUUID->"7eb10f31-2ee7-4b0c-a9dc-f976d9eaa76b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[13004, 371, 1429, 32, 70, "Subsection",ExpressionUUID->"a6a300df-91f9-4ac3-ab4d-95490b604916", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[14811, 423, 7029, 152, 70, "Section",ExpressionUUID->"11c49eef-b7d7-4c3c-b717-cc29b02f9f56", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[74608, 2175, 1026, 26, 70, "Subsection",ExpressionUUID->"0eb2156d-ccdc-48fd-b085-7249af593362", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[75742, 2209, 996, 26, 70, "Subsection",ExpressionUUID->"8145dddf-cb8d-477c-9f00-40cdbd6d7b16", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[76926, 2249, 221, 6, 70, "Subsection",ExpressionUUID->"23a379e7-5145-42e2-b6b8-4a28b6d50f51", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[106060, 3238, 980, 26, 70, "Subsection",ExpressionUUID->"9c3c3909-8269-4e10-a43a-c8e94436bc2c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[107177, 3275, 1039, 26, 70, "Subsection",ExpressionUUID->"0cda2ae9-3913-4a95-b36b-5e391d8a3457", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[108543, 3318, 1084, 26, 70, "Subsection",ExpressionUUID->"34532ebc-f720-403f-af56-77983f670955", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[110183, 3359, 923, 26, 70, "Subsection",ExpressionUUID->"f6d75dbe-4b94-4ae3-aeea-42d847093920", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[111651, 3400, 1874, 45, 70, "Subsection",ExpressionUUID->"4bfd9a30-4f9a-448d-9de0-65d3c1ca1016", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[120195, 3683, 955, 25, 70, "Subsection",ExpressionUUID->"d090f745-2ae1-48ed-87ef-ebad26dab879", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[121175, 3712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"76efdb25-791e-4891-aba1-4df1fb9ddfe0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[122478, 3752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"a4c21b75-4754-44c7-b132-889732639ff1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[124952, 3828, 1280, 33, 70, "Subsubsection",ExpressionUUID->"e89d048a-8691-400a-87ab-56146101a755", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[127637, 3909, 1913, 46, 70, "Subsubsection",ExpressionUUID->"530a3351-28f9-482e-b65a-fea02033f280", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[132486, 4045, 1071, 27, 70, "Subsubsection",ExpressionUUID->"07a50f17-37fd-4582-b1cf-24876e92874d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[134559, 4109, 1155, 28, 70, "Section",ExpressionUUID->"9964d958-23de-40c2-b697-68e77df00762", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[136283, 4152, 1033, 26, 70, "Section",ExpressionUUID->"6b38e65b-876b-4ea0-a03a-4736aef53684", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[8717, 231, 195, 5, 70, "Section",ExpressionUUID->"e6be9865-fab2-4ff6-9ade-37a3a65168eb", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[8717, 231, 195, 5, 70, "Section",ExpressionUUID->"e6be9865-fab2-4ff6-9ade-37a3a65168eb", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[74334, 2166, 249, 5, 70, "Section",ExpressionUUID->"ecbbc8c6-d321-453e-a29c-de67df672008", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[8937, 240, 1980, 50, 70, "Subsection",ExpressionUUID->"7eb10f31-2ee7-4b0c-a9dc-f976d9eaa76b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[13004, 371, 1429, 32, 70, "Subsection",ExpressionUUID->"a6a300df-91f9-4ac3-ab4d-95490b604916", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[13004, 371, 1429, 32, 70, "Subsection",ExpressionUUID->"a6a300df-91f9-4ac3-ab4d-95490b604916", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[14436, 405, 150, 5, 70, "Notes",ExpressionUUID->"f72e87c1-8b50-4a78-9d61-16d04626b2e8", CellTags->"TabNext", CellID->250053913], Cell[14589, 412, 173, 5, 70, "Notes",ExpressionUUID->"34857c2b-9bf0-4347-9a63-3c56ba424988", CellTags->"TabNext", CellID->487746841], Cell[109630, 3346, 516, 8, 70, "Text",ExpressionUUID->"e109d3bb-cc6c-49d5-b2ba-55e743f9243e", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[111109, 3387, 505, 8, 70, "Item",ExpressionUUID->"ab0dda4f-8306-401e-8405-43cf7f2aa1d1", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[135717, 4139, 529, 8, 70, "Text",ExpressionUUID->"8d78817b-71e5-46c5-805b-79e6b5e3f34f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[137319, 4180, 515, 8, 70, "Text",ExpressionUUID->"29a03fd6-82b2-433f-b341-c5a293d3405b", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[14811, 423, 7029, 152, 70, "Section",ExpressionUUID->"11c49eef-b7d7-4c3c-b717-cc29b02f9f56", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[74334, 2166, 249, 5, 70, "Section",ExpressionUUID->"ecbbc8c6-d321-453e-a29c-de67df672008", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[74608, 2175, 1026, 26, 70, "Subsection",ExpressionUUID->"0eb2156d-ccdc-48fd-b085-7249af593362", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[74608, 2175, 1026, 26, 70, "Subsection",ExpressionUUID->"0eb2156d-ccdc-48fd-b085-7249af593362", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[75742, 2209, 996, 26, 70, "Subsection",ExpressionUUID->"8145dddf-cb8d-477c-9f00-40cdbd6d7b16", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[76926, 2249, 221, 6, 70, "Subsection",ExpressionUUID->"23a379e7-5145-42e2-b6b8-4a28b6d50f51", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[77150, 2257, 28873, 976, 70, "Output",ExpressionUUID->"e3555c2d-7eed-4973-8ff4-660f863eb260", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->521119479]}, "Categories-Checkboxes"->{ Cell[77150, 2257, 28873, 976, 70, "Output",ExpressionUUID->"e3555c2d-7eed-4973-8ff4-660f863eb260", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->521119479]}, "CheckboxCell"->{ Cell[77150, 2257, 28873, 976, 70, "Output",ExpressionUUID->"e3555c2d-7eed-4973-8ff4-660f863eb260", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->521119479], Cell[123594, 3783, 1321, 40, 70, "Output",ExpressionUUID->"a9c5e24c-4f5a-491a-88e0-6700299bb952", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[126235, 3863, 1365, 41, 70, "Output",ExpressionUUID->"f13f422d-465f-4211-8129-cce9d3a99be1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[129553, 3957, 2896, 83, 70, "Output",ExpressionUUID->"fd75c059-5b1b-42cb-8f1c-df16c616fa5f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[133560, 4074, 938, 28, 70, "Output",ExpressionUUID->"c2e37739-0180-4fa9-8af6-69e28ff86936", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[106060, 3238, 980, 26, 70, "Subsection",ExpressionUUID->"9c3c3909-8269-4e10-a43a-c8e94436bc2c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[107177, 3275, 1039, 26, 70, "Subsection",ExpressionUUID->"0cda2ae9-3913-4a95-b36b-5e391d8a3457", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[108543, 3318, 1084, 26, 70, "Subsection",ExpressionUUID->"34532ebc-f720-403f-af56-77983f670955", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[109630, 3346, 516, 8, 70, "Text",ExpressionUUID->"e109d3bb-cc6c-49d5-b2ba-55e743f9243e", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[111109, 3387, 505, 8, 70, "Item",ExpressionUUID->"ab0dda4f-8306-401e-8405-43cf7f2aa1d1", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[122352, 3745, 89, 2, 70, "Text",ExpressionUUID->"820d6857-f51e-42b3-9122-f45898146149", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[135717, 4139, 529, 8, 70, "Text",ExpressionUUID->"8d78817b-71e5-46c5-805b-79e6b5e3f34f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[137319, 4180, 515, 8, 70, "Text",ExpressionUUID->"29a03fd6-82b2-433f-b341-c5a293d3405b", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[110183, 3359, 923, 26, 70, "Subsection",ExpressionUUID->"f6d75dbe-4b94-4ae3-aeea-42d847093920", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[111651, 3400, 1874, 45, 70, "Subsection",ExpressionUUID->"4bfd9a30-4f9a-448d-9de0-65d3c1ca1016", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[111651, 3400, 1874, 45, 70, "Subsection",ExpressionUUID->"4bfd9a30-4f9a-448d-9de0-65d3c1ca1016", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[120195, 3683, 955, 25, 70, "Subsection",ExpressionUUID->"d090f745-2ae1-48ed-87ef-ebad26dab879", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[121175, 3712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"76efdb25-791e-4891-aba1-4df1fb9ddfe0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[121175, 3712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"76efdb25-791e-4891-aba1-4df1fb9ddfe0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[122352, 3745, 89, 2, 70, "Text",ExpressionUUID->"820d6857-f51e-42b3-9122-f45898146149", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[122478, 3752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"a4c21b75-4754-44c7-b132-889732639ff1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[123594, 3783, 1321, 40, 70, "Output",ExpressionUUID->"a9c5e24c-4f5a-491a-88e0-6700299bb952", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[122478, 3752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"a4c21b75-4754-44c7-b132-889732639ff1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[123594, 3783, 1321, 40, 70, "Output",ExpressionUUID->"a9c5e24c-4f5a-491a-88e0-6700299bb952", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[124952, 3828, 1280, 33, 70, "Subsubsection",ExpressionUUID->"e89d048a-8691-400a-87ab-56146101a755", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[126235, 3863, 1365, 41, 70, "Output",ExpressionUUID->"f13f422d-465f-4211-8129-cce9d3a99be1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[124952, 3828, 1280, 33, 70, "Subsubsection",ExpressionUUID->"e89d048a-8691-400a-87ab-56146101a755", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[126235, 3863, 1365, 41, 70, "Output",ExpressionUUID->"f13f422d-465f-4211-8129-cce9d3a99be1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[127637, 3909, 1913, 46, 70, "Subsubsection",ExpressionUUID->"530a3351-28f9-482e-b65a-fea02033f280", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[129553, 3957, 2896, 83, 70, "Output",ExpressionUUID->"fd75c059-5b1b-42cb-8f1c-df16c616fa5f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[127637, 3909, 1913, 46, 70, "Subsubsection",ExpressionUUID->"530a3351-28f9-482e-b65a-fea02033f280", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[129553, 3957, 2896, 83, 70, "Output",ExpressionUUID->"fd75c059-5b1b-42cb-8f1c-df16c616fa5f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[132486, 4045, 1071, 27, 70, "Subsubsection",ExpressionUUID->"07a50f17-37fd-4582-b1cf-24876e92874d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[132486, 4045, 1071, 27, 70, "Subsubsection",ExpressionUUID->"07a50f17-37fd-4582-b1cf-24876e92874d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[133560, 4074, 938, 28, 70, "Output",ExpressionUUID->"c2e37739-0180-4fa9-8af6-69e28ff86936", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[133560, 4074, 938, 28, 70, "Output",ExpressionUUID->"c2e37739-0180-4fa9-8af6-69e28ff86936", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[134559, 4109, 1155, 28, 70, "Section",ExpressionUUID->"9964d958-23de-40c2-b697-68e77df00762", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[136283, 4152, 1033, 26, 70, "Section",ExpressionUUID->"6b38e65b-876b-4ea0-a03a-4736aef53684", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 261249, 6531}, {"TemplateCell", 261431, 6535}, {"Title", 261766, 6542}, {"Description", 261947, 6546}, {"Definition", 262125, 6550}, {"Function", 262321, 6554}, {"TemplateCellGroup", 262526, 6558}, {"Documentation", 266376, 6619}, {"TemplateSection", 266569, 6623}, {"Usage", 266942, 6630}, {"Details & Options", 267136, 6634}, {"Notes", 267340, 6638}, {"TabNext", 267546, 6642}, {"Examples", 268498, 6661}, {"Source & Additional Information", 268708, 6665}, {"Contributed By", 268920, 6669}, {"ContributorInformation", 269155, 6673}, {"Keywords", 269376, 6677}, {"Categories", 269567, 6681}, {"Categories-Checkboxes", 269964, 6688}, {"CheckboxCell", 270178, 6692}, {"Related Symbols", 271300, 6708}, {"Related Resource Objects", 271513, 6712}, {"Source/Reference Citation", 271737, 6716}, {"DefaultContent", 271951, 6720}, {"Links", 272784, 6736}, {"Tests", 272968, 6740}, {"VerificationTests", 273186, 6744}, {"Compatibility", 273400, 6748}, {"CompatibilityWolframLanguageVersionRequired", 273630, 6752}, {"Wolfram Language Version", 273903, 6756}, {"ScrapeDefault", 274165, 6760}, {"CompatibilityOperatingSystem", 274369, 6764}, {"Operating System", 274839, 6771}, {"CompatibilityOperatingSystem-Checkboxes", 275104, 6775}, {"CompatibilityFeatures", 275361, 6779}, {"Required Features", 275813, 6786}, {"CompatibilityFeatures-Checkboxes", 276065, 6790}, {"CompatibilityEvaluationEnvironment", 276322, 6794}, {"Environments", 276802, 6801}, {"CompatibilityEvaluationEnvironment-Checkboxes", 277075, 6805}, {"Cloud Support", 277336, 6809}, {"CompatibilityCloudSupport", 277581, 6813}, {"CompatibilityCloudSupport-Checkboxes", 278059, 6820}, {"Author Notes", 278301, 6824}, {"Submission Notes", 278501, 6828} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"7e86a0c8-3536-40dd-896d-da26111ed183", CellTags->{"Name", "TemplateCell", "Title"}, CellID->569516321], Cell[734, 27, 116, 2, 70, "Text",ExpressionUUID->"917a95e6-c490-41d4-a6db-376c6c09cf17", CellTags->{"Description", "TemplateCell"}, CellID->736139615], Cell[CellGroupData[{ Cell[875, 33, 1206, 29, 70, "Section",ExpressionUUID->"dfc81b9b-f2c9-487a-93bd-ce40958967e3", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2084, 64, 6218, 151, 70, "Input",ExpressionUUID->"82265b47-8cb3-43d1-b207-a17c261ce663", CellID->747319602], Cell[8305, 217, 375, 9, 70, "Input",ExpressionUUID->"c3756024-b57c-4567-9063-a9af353bf787", CellID->556964920] }, Open ]], Cell[CellGroupData[{ Cell[8717, 231, 195, 5, 70, "Section",ExpressionUUID->"e6be9865-fab2-4ff6-9ade-37a3a65168eb", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[8937, 240, 1980, 50, 70, "Subsection",ExpressionUUID->"7eb10f31-2ee7-4b0c-a9dc-f976d9eaa76b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[10942, 294, 155, 4, 70, "UsageInputs",ExpressionUUID->"b26ecaa4-cced-45ba-9035-11150800b73e", CellID->503835048], Cell[11100, 300, 577, 19, 70, "UsageDescription",ExpressionUUID->"cf44de1d-5be0-4588-a716-d36e8da15cc3", CellID->722583429] }, Open ]], Cell[CellGroupData[{ Cell[11714, 324, 156, 4, 70, "UsageInputs",ExpressionUUID->"86078b5a-015b-4487-bf5f-e2dbf555ed84", CellID->77828762], Cell[11873, 330, 1082, 35, 70, "UsageDescription",ExpressionUUID->"60f2482c-8c87-4e5e-b0f5-3113da4fb690", CellID->585583587] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13004, 371, 1429, 32, 70, "Subsection",ExpressionUUID->"a6a300df-91f9-4ac3-ab4d-95490b604916", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[14436, 405, 150, 5, 70, "Notes",ExpressionUUID->"f72e87c1-8b50-4a78-9d61-16d04626b2e8", CellTags->"TabNext", CellID->250053913], Cell[14589, 412, 173, 5, 70, "Notes",ExpressionUUID->"34857c2b-9bf0-4347-9a63-3c56ba424988", CellTags->"TabNext", CellID->487746841] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14811, 423, 7029, 152, 70, "Section",ExpressionUUID->"11c49eef-b7d7-4c3c-b717-cc29b02f9f56", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[21865, 579, 75, 2, 70, "Subsection",ExpressionUUID->"710898e7-7037-42c0-8c69-286e6d58bb11", CellID->904125756], Cell[21943, 583, 261, 5, 70, "Text",ExpressionUUID->"bac217da-5cf2-485c-918b-5153f9829b16", CellID->729018286], Cell[CellGroupData[{ Cell[22229, 592, 381, 8, 70, "Input",ExpressionUUID->"def147a9-9978-4d1e-99c1-c1c26f4dc5a0", CellID->717541997], Cell[22613, 602, 2281, 81, 70, "Output",ExpressionUUID->"d89dccfb-544b-44ca-8860-7baa60aa6ba4", CellID->868371668] }, Open ]], Cell[CellGroupData[{ Cell[24931, 688, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5fc78f40-61ec-4ace-8c80-8781c8547628", CellID->14107562], Cell[25077, 694, 668, 16, 70, "Text",ExpressionUUID->"17224f03-391b-4018-8c84-9442c3d0c4b3", CellID->319982785], Cell[CellGroupData[{ Cell[25770, 714, 476, 12, 70, "Input",ExpressionUUID->"4c76d5e1-36bb-41c4-af20-9d932719cec1", CellID->207053874], Cell[26249, 728, 2202, 79, 70, "Output",ExpressionUUID->"47675f90-6fc0-489e-ba71-24648e89484f", CellID->147535190] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28512, 814, 66, 2, 70, "Subsection",ExpressionUUID->"91e3b53d-b714-431a-a5ab-0348bcd54e6d", CellID->204653245], Cell[28581, 818, 261, 5, 70, "Text",ExpressionUUID->"ed0f9cc9-4a67-434d-8cf2-d7465f1eff59", CellID->589477521], Cell[CellGroupData[{ Cell[28867, 827, 251, 6, 70, "Input",ExpressionUUID->"5c593182-d57d-4d0b-9970-873a2803d264", CellID->486076199], Cell[29121, 835, 2562, 89, 70, "Output",ExpressionUUID->"e70972af-ce6c-4083-8169-04da33d800b7", CellID->922034940] }, Open ]], Cell[CellGroupData[{ Cell[31720, 929, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"894b034b-1614-47e1-9275-546a4f187a4c", CellID->14107563], Cell[31866, 935, 330, 8, 70, "Text",ExpressionUUID->"4e34615b-6734-428a-b30f-5da7f001970f", CellID->714386240], Cell[CellGroupData[{ Cell[32221, 947, 245, 6, 70, "Input",ExpressionUUID->"0266c0b8-6684-4385-a2e4-a6373c73f83a", CellID->329814904], Cell[32469, 955, 3742, 128, 70, "Output",ExpressionUUID->"9e13d5a8-c511-41f9-a961-dead24abdec4", CellID->731851054] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36260, 1089, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"997e2770-c0e7-4b1b-ad5c-8169bfbbe843", CellID->14107564], Cell[36406, 1095, 406, 8, 70, "Text",ExpressionUUID->"a5d7fa0b-f0ac-4562-8666-64f9c8b9e157", CellID->282627223], Cell[CellGroupData[{ Cell[36837, 1107, 6695, 119, 70, "Input",ExpressionUUID->"495f25e3-68ba-49d5-81d1-3907d1b2d9e2", CellID->502136431], Cell[43535, 1228, 30726, 930, 70, "Output",ExpressionUUID->"03783e8a-a3d3-4369-b537-de9d6812707d", CellID->649927255] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[74334, 2166, 249, 5, 70, "Section",ExpressionUUID->"ecbbc8c6-d321-453e-a29c-de67df672008", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[74608, 2175, 1026, 26, 70, "Subsection",ExpressionUUID->"0eb2156d-ccdc-48fd-b085-7249af593362", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[75637, 2203, 68, 1, 70, "Text",ExpressionUUID->"e4e03c7c-8b08-4491-a373-72b9f51b6a2b", CellID->254409316] }, Open ]], Cell[CellGroupData[{ Cell[75742, 2209, 996, 26, 70, "Subsection",ExpressionUUID->"8145dddf-cb8d-477c-9f00-40cdbd6d7b16", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[76741, 2237, 42, 1, 70, "Item",ExpressionUUID->"f77c3a7b-d529-4f2e-b136-af4d599cc621", CellID->308210686], Cell[76786, 2240, 54, 1, 70, "Item",ExpressionUUID->"c0cf2f5c-e024-47db-8a36-34f21f88356b", CellID->461516343], Cell[76843, 2243, 46, 1, 70, "Item",ExpressionUUID->"a2f7881e-580c-4d3e-973d-9baa287b0abd", CellID->800204409] }, Open ]], Cell[CellGroupData[{ Cell[76926, 2249, 221, 6, 70, "Subsection",ExpressionUUID->"23a379e7-5145-42e2-b6b8-4a28b6d50f51", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[77150, 2257, 28873, 976, 70, "Output",ExpressionUUID->"e3555c2d-7eed-4973-8ff4-660f863eb260", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->521119479] }, Open ]], Cell[CellGroupData[{ Cell[106060, 3238, 980, 26, 70, "Subsection",ExpressionUUID->"9c3c3909-8269-4e10-a43a-c8e94436bc2c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[107043, 3266, 48, 1, 70, "Item",ExpressionUUID->"de556ec2-c20c-422a-a89d-c0416a0d9db6", CellID->333767198], Cell[107094, 3269, 46, 1, 70, "Item",ExpressionUUID->"1a0e84ff-4d41-4858-9c2e-6b2ab5e5c13f", CellID->792922396] }, Open ]], Cell[CellGroupData[{ Cell[107177, 3275, 1039, 26, 70, "Subsection",ExpressionUUID->"0cda2ae9-3913-4a95-b36b-5e391d8a3457", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[108219, 3303, 54, 1, 70, "Item",ExpressionUUID->"ef8f5639-d872-444b-8cd8-3cb808c90f1b", CellID->169924649], Cell[108276, 3306, 56, 1, 70, "Item",ExpressionUUID->"047107bb-ef82-4b39-a444-00f8f0cd16d8", CellID->562514399], Cell[108335, 3309, 84, 1, 70, "Item",ExpressionUUID->"b1c96ec6-b29d-4c6c-b746-5a00c88a27dc", CellID->732579946], Cell[108422, 3312, 84, 1, 70, "Item",ExpressionUUID->"08cc09b9-23c3-4d2a-946c-cb9f05f8b7a3", CellID->170709557] }, Open ]], Cell[CellGroupData[{ Cell[108543, 3318, 1084, 26, 70, "Subsection",ExpressionUUID->"34532ebc-f720-403f-af56-77983f670955", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[109630, 3346, 516, 8, 70, "Text",ExpressionUUID->"e109d3bb-cc6c-49d5-b2ba-55e743f9243e", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[110183, 3359, 923, 26, 70, "Subsection",ExpressionUUID->"f6d75dbe-4b94-4ae3-aeea-42d847093920", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[111109, 3387, 505, 8, 70, "Item",ExpressionUUID->"ab0dda4f-8306-401e-8405-43cf7f2aa1d1", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[111651, 3400, 1874, 45, 70, "Subsection",ExpressionUUID->"4bfd9a30-4f9a-448d-9de0-65d3c1ca1016", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[113550, 3449, 363, 7, 70, "Input",ExpressionUUID->"52f22081-57f9-40fa-841e-4902a9ada8f3", CellID->310561436], Cell[113916, 3458, 2241, 80, 70, "Output",ExpressionUUID->"4e1ec399-055b-4beb-ab9a-ac020cd207d4", CellID->954023012] }, Open ]], Cell[CellGroupData[{ Cell[116194, 3543, 226, 5, 70, "Input",ExpressionUUID->"3d5e613b-a0bb-481f-961e-1f79b8b3c4cb", CellID->786912248], Cell[116423, 3550, 3723, 127, 70, "Output",ExpressionUUID->"69a47e71-3675-4153-9a5a-57f91de4944e", CellID->261321856] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120195, 3683, 955, 25, 70, "Subsection",ExpressionUUID->"d090f745-2ae1-48ed-87ef-ebad26dab879", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[121175, 3712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"76efdb25-791e-4891-aba1-4df1fb9ddfe0", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[122352, 3745, 89, 2, 70, "Text",ExpressionUUID->"820d6857-f51e-42b3-9122-f45898146149", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[122478, 3752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"a4c21b75-4754-44c7-b132-889732639ff1", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[123594, 3783, 1321, 40, 70, "Output",ExpressionUUID->"a9c5e24c-4f5a-491a-88e0-6700299bb952", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[124952, 3828, 1280, 33, 70, "Subsubsection",ExpressionUUID->"e89d048a-8691-400a-87ab-56146101a755", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[126235, 3863, 1365, 41, 70, "Output",ExpressionUUID->"f13f422d-465f-4211-8129-cce9d3a99be1", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[127637, 3909, 1913, 46, 70, "Subsubsection",ExpressionUUID->"530a3351-28f9-482e-b65a-fea02033f280", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[129553, 3957, 2896, 83, 70, "Output",ExpressionUUID->"fd75c059-5b1b-42cb-8f1c-df16c616fa5f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[132486, 4045, 1071, 27, 70, "Subsubsection",ExpressionUUID->"07a50f17-37fd-4582-b1cf-24876e92874d", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[133560, 4074, 938, 28, 70, "Output",ExpressionUUID->"c2e37739-0180-4fa9-8af6-69e28ff86936", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[134559, 4109, 1155, 28, 70, "Section",ExpressionUUID->"9964d958-23de-40c2-b697-68e77df00762", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[135717, 4139, 529, 8, 70, "Text",ExpressionUUID->"8d78817b-71e5-46c5-805b-79e6b5e3f34f", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[136283, 4152, 1033, 26, 70, "Section",ExpressionUUID->"6b38e65b-876b-4ea0-a03a-4736aef53684", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[137319, 4180, 515, 8, 70, "Text",ExpressionUUID->"29a03fd6-82b2-433f-b341-c5a293d3405b", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)