(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 281232, 6256] NotebookOptionsPosition[ 121900, 3226] NotebookOutlinePosition[ 265604, 5924] CellTagsIndexPosition[ 263795, 5874] WindowTitle->BarycentricCoordinates | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BarycentricCoordinates", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->408418585], Cell["Find the barycentric coordinates of a point", "Text", CellTags->{"Description", "TemplateCell"}, CellID->14304281], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{"ClearAll", "[", "BarycentricCoordinates", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BarycentricCoordinates", "::", "unequaldimensions"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BarycentricCoordinates", "::", "simplexmismatch"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"simplex", ":", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ".."}], "}"}]}], ",", RowBox[{"p", ":", RowBox[{"{", "___", "}"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"T", ",", "out"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Equal", "@@", RowBox[{"(", RowBox[{"Append", "[", RowBox[{ RowBox[{"Length", "/@", "simplex"}], ",", RowBox[{"Length", "[", "p", "]"}]}], "]"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "simplex", "]"}], "\[Equal]", RowBox[{ RowBox[{"Length", "[", RowBox[{"First", "[", "simplex", "]"}], "]"}], "+", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Most", "[", RowBox[{"simplex", "[", RowBox[{"[", RowBox[{"All", ",", "i"}], "]"}], "]"}], "]"}], "-", RowBox[{"simplex", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Length", "[", "simplex", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"out", "=", RowBox[{ RowBox[{"Inverse", "[", "T", "]"}], ".", RowBox[{"(", RowBox[{"p", "-", RowBox[{"Last", "[", "simplex", "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Append", "[", RowBox[{"out", ",", RowBox[{"1", "-", RowBox[{"Total", "[", "out", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"BarycentricCoordinates", "::", "simplexmismatch"}], ",", RowBox[{"Length", "[", RowBox[{"First", "[", "simplex", "]"}], "]"}], ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"First", "[", "simplex", "]"}], "]"}], "+", "1"}]}], "]"}], ";", "\[IndentingNewLine]", "$Failed"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"BarycentricCoordinates", "::", "unequaldimensions"}], "]"}], ";", "\[IndentingNewLine]", "$Failed"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", 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}, CellChangeTimes->{ 3.7773950401597652`*^9, {3.77739512598013*^9, 3.777395139239214*^9}, { 3.777398411050671*^9, 3.777398430851849*^9}, {3.777398461016913*^9, 3.7773984920178328`*^9}, {3.7773991332702227`*^9, 3.7773991431450367`*^9}}, CellTags->"TabNext", CellLabel->"In[6]:=", CellID->373952827] }, 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[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["p", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["p", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", StyleBox["p", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->374612350], Cell[TextData[{ "finds the barycentric coordinates of point ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the coordinate system defined by the points ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["p", "TI"], StyleBox["i", "TI"]], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->319845828] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "For a point in ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " dimensions, the first argument should be ", Cell[BoxData[ RowBox[{ StyleBox["n", "TI"], "+", "1"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " points." }], "Notes", CellTags->"TabNext", CellID->852117508], Cell[TextData[{ Cell[BoxData["BarycentricCoordinates"], "InlineFormula", FontFamily->"Source Sans Pro"], " gives the values ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\[Lambda]", "TI"], StyleBox["1", "TR"]], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\[Lambda]", "TI"], StyleBox["2", "TR"]], TraditionalForm]]], ", \[Ellipsis], ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\[Lambda]", "TI"], StyleBox["n", "TI"]], TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["i", "TI"], "=", "1"}], StyleBox["n", "TI"]], RowBox[{ SubscriptBox[ StyleBox["\[Lambda]", "TR"], StyleBox["i", "TI"]], SubscriptBox[ StyleBox["p", "TI"], StyleBox["i", "TI"]]}]}], "=", StyleBox["p", "TI"]}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["i", "TI"], "=", "1"}], StyleBox["n", "TI"]], SubscriptBox[ StyleBox["\[Lambda]", "TR", FontSlant->"Plain"], StyleBox["i", "TI"]]}], "=", "1"}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], "." }], "Notes", CellID->903165008], Cell[TextData[{ Cell[BoxData["BarycentricCoordinates"], "InlineFormula", FontFamily->"Source Sans Pro"], " works in any dimension." }], "Notes", CellID->634667595] }, 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.28627], 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.28627], 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.28627], 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.28627], 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->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Find the barycentric coordinates for the point ", Cell[BoxData[ RowBox[{"{", RowBox[{"0.3", ",", "0.4"}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the coordinate system ", Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.777395428602005*^9, 3.777395479749641*^9}, { 3.781980018176201*^9, 3.781980026434084*^9}}, CellID->859470770], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pts", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{"0.3", ",", "0.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"BarycentricCoordinates", "[", RowBox[{"pts", ",", "p"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.777395390349679*^9, 3.777395421906958*^9}, { 3.777395453586728*^9, 3.777395463929179*^9}, {3.7773955010363207`*^9, 3.777395520675269*^9}}, CellLabel->"In[342]:=", CellID->839479160], Cell[BoxData[ RowBox[{"{", RowBox[{"0.5`", ",", "0.19999999999999998`", ",", "0.30000000000000004`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.777395422176875*^9, {3.777395464896823*^9, 3.77739548221138*^9}, { 3.7773955177661333`*^9, 3.777395520991786*^9}, 3.7773990679811172`*^9}, CellLabel->"Out[344]=", CellID->832758057] }, Open ]], Cell["Check the finding:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777395484671699*^9, 3.777395493776226*^9}, 3.7819800106218853`*^9}, CellID->246128050], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0.2", ",", "0.3"}], "}"}], ".", "pts"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773955260950813`*^9, 3.77739555157681*^9}}, CellLabel->"In[345]:=", CellID->391230172], Cell[BoxData[ RowBox[{"{", RowBox[{"0.3`", ",", "0.39999999999999997`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777395530405353*^9, 3.7773955518377857`*^9}, 3.777399072949985*^9}, CellLabel->"Out[345]=", CellID->693494733] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Exact input leads to exact output:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777395591967885*^9, 3.777395645321546*^9}, { 3.777395697700684*^9, 3.77739571230599*^9}, {3.777399095188621*^9, 3.777399104759593*^9}}, CellID->375906273], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "3"}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", "/", "2"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777395590643907*^9, 3.777395617546315*^9}, { 3.777395649837708*^9, 3.7773956858019342`*^9}, {3.777399082075286*^9, 3.777399093143086*^9}}, CellLabel->"In[350]:=", CellID->571621190], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["5", "16"], ",", FractionBox["11", "16"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7773956178895082`*^9, 3.777395714019499*^9}, { 3.7773990740429087`*^9, 3.7773991081055527`*^9}}, CellLabel->"Out[350]=", CellID->706057601] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ Cell[BoxData["BarycentricCoordinates"], "InlineFormula", FontFamily->"Source Sans Pro"], " works in 1D:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.777395591967885*^9, 3.777395645321546*^9}, { 3.777395697700684*^9, 3.77739571230599*^9}, 3.8589635158704643`*^9}, CellID->146933716], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "3"}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", "2.5", "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777395590643907*^9, 3.777395617546315*^9}, { 3.777395649837708*^9, 3.7773956858019342`*^9}, {3.777399082075286*^9, 3.777399082364929*^9}}, CellLabel->"In[351]:=", CellID->759925163], Cell[BoxData[ RowBox[{"{", RowBox[{"0.3125`", ",", "0.6875`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7773956178895082`*^9, 3.777395714019499*^9}, { 3.7773990740429087`*^9, 3.777399109269476*^9}}, CellLabel->"Out[351]=", CellID->706136623] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ Cell[BoxData["BarycentricCoordinates"], "InlineFormula", FontFamily->"Source Sans Pro"], " also works in higher dimensions:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.777395703956002*^9, 3.777395727681617*^9}, 3.778258654611389*^9, {3.781979988623522*^9, 3.781979991790563*^9}}, CellID->11310318], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.98"}], ",", RowBox[{"-", "3.56"}], ",", "2.78", ",", RowBox[{"-", "1."}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.68", ",", RowBox[{"-", "0.44"}], ",", RowBox[{"-", "2.68"}], ",", RowBox[{"-", "2.08"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.46"}], ",", RowBox[{"-", "1.6"}], ",", RowBox[{"-", "4.08"}], ",", "4.78"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.84"}], ",", "0.04", ",", RowBox[{"-", "1.78"}], ",", RowBox[{"-", "1.40"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.18", ",", RowBox[{"-", "3.6"}], ",", RowBox[{"-", "0.36"}], ",", RowBox[{"-", "4.36"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.517"}], ",", RowBox[{"-", "1.702`"}], ",", RowBox[{"-", "1.699`"}], ",", RowBox[{"-", "1.068`"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773957479713163`*^9, 3.777395820933198*^9}, { 3.7773958532596416`*^9, 3.777395884706925*^9}}, CellLabel->"In[352]:=", CellID->894756320], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.10000000000000009`", ",", "0.3000000000000002`", ",", "0.19999999999999987`", ",", "0.15000000000000002`", ",", "0.24999999999999978`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777395738680521*^9, 3.777395767098919*^9}, 3.777395821297464*^9, {3.777395854314934*^9, 3.777395885083786*^9}, 3.777399075637233*^9, 3.7773991104526243`*^9}, CellLabel->"Out[352]=", CellID->792201329] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ Cell[BoxData["BarycentricCoordinates"], "InlineFormula", FontFamily->"Source Sans Pro"], " also works in very high dimensions:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.777396073222494*^9, 3.77739609478483*^9}, 3.778258656878675*^9, {3.781979996861415*^9, 3.7819800030235987`*^9}}, CellID->805725852], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pts", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"BarycentricCoordinates", "[", RowBox[{"pts", ",", "p"}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773960792014647`*^9, 3.7773961832433987`*^9}}, CellLabel->"In[353]:=", CellID->764539711], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.42747995839830344`", ",", "0.1262655098893643`", ",", "0.06936151901531662`", ",", "0.12676609219380336`", ",", "0.10169519889252546`", ",", "0.1854581597021865`", ",", "0.0010750587551574542`", ",", "0.21419637394306157`", ",", RowBox[{"-", "0.1313428994224567`"}], ",", "0.15363672197464512`", ",", "0.06999733317780188`", ",", "0.19984464048052097`", ",", "0.05920804434517507`", ",", "0.4582842889638814`", ",", RowBox[{"-", "0.05604788454736445`"}], ",", "0.110388768266828`", ",", RowBox[{"-", "0.33069914929619326`"}], ",", "0.03332813150151909`", ",", "0.1502648068140352`", ",", "0.21491003403382902`", ",", RowBox[{"-", "0.042656354704096566`"}], ",", "0.5596905214236797`", ",", RowBox[{"-", "0.13269893303999303`"}], ",", RowBox[{"-", "0.03888170843814141`"}], ",", RowBox[{"-", "0.14580189352096795`"}], ",", RowBox[{"-", "0.04057483819222309`"}], ",", "0.06626506155509171`", ",", "0.01706993483788631`", ",", RowBox[{"-", "0.15711101118088278`"}], ",", "0.04349026663872521`", ",", RowBox[{"-", "0.48828982948755373`"}], ",", "0.39570209750991614`", ",", RowBox[{"-", "0.14330981502625895`"}], ",", "0.07501795881117873`", ",", "0.10902859536923715`", ",", RowBox[{"-", "0.019312541623461355`"}], ",", RowBox[{"-", "0.09488962957464073`"}], ",", RowBox[{"-", "0.44233977240951594`"}], ",", "0.21668328945408533`", ",", "0.09778195672699652`", ",", RowBox[{"-", "0.14179302727452636`"}], ",", RowBox[{"-", "0.23731186974340157`"}], ",", "0.05164667538458681`", ",", "0.37417394841659535`", ",", "0.38806369713178646`", ",", "0.10548878407517553`", ",", RowBox[{"-", "0.3569583060133859`"}], ",", RowBox[{"-", "0.08596440434097397`"}], ",", "0.1858141962818569`", ",", RowBox[{"-", "0.15571929234099957`"}], ",", RowBox[{"-", "0.00426895989555226`"}], ",", RowBox[{"-", "0.12577599718280696`"}], ",", RowBox[{"-", "0.058752442044216036`"}], ",", "0.0087688839042816`", ",", "0.2180410651715525`", ",", RowBox[{"-", "0.18395460848597092`"}], ",", RowBox[{"-", "0.1947397763324733`"}], ",", RowBox[{"-", "0.12270219464301804`"}], ",", "0.5373724018950288`", ",", "0.2996900949712371`", ",", "0.12542328860512741`", ",", RowBox[{"-", "0.20049110267888426`"}], ",", RowBox[{"-", "0.24787094544731023`"}], ",", RowBox[{"-", "0.16104112545833166`"}], ",", RowBox[{"-", "0.19271804491733277`"}], ",", "0.2882938860582358`", ",", RowBox[{"-", "0.11911671923159318`"}], ",", RowBox[{"-", "0.1328867841636524`"}], ",", RowBox[{"-", "0.10676936282514282`"}], ",", RowBox[{"-", "0.004445469745844227`"}], ",", RowBox[{"-", "0.11323630010304774`"}], ",", RowBox[{"-", "0.11358633872212076`"}], ",", RowBox[{"-", "0.1822592846934514`"}], ",", "0.1257848241113887`", ",", RowBox[{"-", "0.46981080115615725`"}], ",", "0.022546611545026907`", ",", RowBox[{"-", "0.010651284824712948`"}], ",", RowBox[{"-", "0.1261829852159635`"}], ",", "0.24965579644096045`", ",", RowBox[{"-", "0.03104618670503234`"}], ",", RowBox[{"-", "0.1948044086932883`"}], ",", RowBox[{"-", "0.0956909717687845`"}], ",", "0.1496477114264887`", ",", "0.12570258929125355`", ",", RowBox[{"-", "0.10465383348584623`"}], ",", "0.20638637557154757`", ",", "0.11228794679997517`", ",", "0.1005199041600428`", ",", RowBox[{"-", "0.13979341642013016`"}], ",", RowBox[{"-", "0.3469260689761198`"}], ",", "0.04971637539021048`", ",", "0.003363699738926973`", ",", "0.10343732033481179`", ",", "0.05912154957247023`", ",", RowBox[{"-", "0.11390413053878959`"}], ",", "0.060779305603974196`", ",", RowBox[{"-", "0.03933363092118912`"}], ",", "0.23572614940252423`", ",", RowBox[{"-", "0.23370304802817632`"}], ",", RowBox[{"-", "0.10082701602819684`"}], ",", "0.04330299555035577`"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7773961025240917`*^9, 3.7773961836162786`*^9}, 3.777399113454219*^9}, CellLabel->"Out[356]=", CellID->204112720] }, Open ]], Cell["Check that the barycentric coordinates add up to 1:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777396278711444*^9, 3.777396295251322*^9}}, CellID->773693662], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", "result", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77739618502485*^9, 3.777396190713333*^9}}, CellLabel->"In[357]:=", CellID->370299159], Cell[BoxData["1.`"], "Output", TaggingRules->{}, CellChangeTimes->{3.777396191025666*^9, 3.7773962930746403`*^9, 3.7773991155645523`*^9}, CellLabel->"Out[357]=", CellID->282155728] }, Open ]], Cell[TextData[{ "Recreate the point ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and subtract it from the original:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.777396278711444*^9, 3.7773963751243687`*^9}, 3.7819800524379625`*^9}, CellID->520929935], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chop", "[", RowBox[{ RowBox[{"result", ".", "pts"}], "-", "p"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77739618502485*^9, 3.777396190713333*^9}, { 3.777396310112309*^9, 3.777396339394011*^9}}, CellLabel->"In[358]:=", CellID->726213782], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.777396191025666*^9, {3.7773962930746403`*^9, 3.777396339718298*^9}, 3.777396376091463*^9, 3.7773991166345243`*^9}, CellLabel->"Out[358]=", CellID->276155592] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell["The barycentric coordinates add up to 1:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777398599730693*^9, 3.777398631634571*^9}}, CellID->588953663], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.98"}], ",", RowBox[{"-", "3.56"}], ",", "2.78", ",", RowBox[{"-", "1."}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.68", ",", RowBox[{"-", "0.44"}], ",", RowBox[{"-", "2.68"}], ",", RowBox[{"-", "2.08"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.46"}], ",", RowBox[{"-", "1.6"}], ",", RowBox[{"-", "4.08"}], ",", "4.78"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.84"}], ",", "0.04", ",", RowBox[{"-", "1.78"}], ",", RowBox[{"-", "1.40"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.18", ",", RowBox[{"-", "3.6"}], ",", RowBox[{"-", "0.36"}], ",", RowBox[{"-", "4.36"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.517"}], ",", RowBox[{"-", "1.702`"}], ",", RowBox[{"-", "1.699`"}], ",", RowBox[{"-", "1.068`"}]}], "}"}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773985892131863`*^9, 3.77739860948219*^9}}, CellLabel->"In[359]:=", CellID->206008407], Cell[BoxData["1.`"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7773985944922123`*^9, 3.77739863351827*^9}, 3.777399118945863*^9}, CellLabel->"Out[359]=", CellID->153715877] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellChangeTimes->{3.7773983445471287`*^9}, CellID->158766396], Cell["The dimensions of the points must agree with each other:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7773983709655447`*^9, 3.777398382483055*^9}, { 3.858963570834934*^9, 3.858963584062924*^9}, {3.858963651123608*^9, 3.858963657822309*^9}}, CellID->248809480], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "1"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773983457737417`*^9, 3.777398363746093*^9}}, CellLabel->"In[367]:=", CellID->610921176], Cell[BoxData[ TemplateBox[{ "BarycentricCoordinates", "unequaldimensions", "\"Dimensions of the coordinate system and the point do not agree\"", 2, 367, 39, 31675534826454732986, "Local", "Global`BarycentricCoordinates"}, "MessageTemplate2"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{{3.777398364415103*^9, 3.777398384421782*^9}, 3.7773984753635273`*^9, {3.7773991220229483`*^9, 3.777399149660841*^9}}, CellLabel->"During evaluation of In[367]:=", CellID->803672805], Cell[BoxData["$Failed"], "Output", TaggingRules->{}, CellChangeTimes->{{3.777398364423787*^9, 3.7773983844272614`*^9}, 3.777398475371058*^9, {3.777399122029913*^9, 3.77739914966748*^9}}, CellLabel->"Out[367]=", CellID->165530704] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["\<\ The dimension of the coordinate system should be one more than the dimension \ of the points:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7773983709655447`*^9, 3.777398382483055*^9}, { 3.858963614507429*^9, 3.8589636464101543`*^9}}, CellID->721747162], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "4"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "1"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773983457737417`*^9, 3.77739840144706*^9}}, CellLabel->"In[368]:=", CellID->400971390], Cell[BoxData[ TemplateBox[{ "BarycentricCoordinates", "simplexmismatch", "\"For points of dimension \\!\\(\\*RowBox[{\\\"3\\\"}]\\), the coordinate \ system should be composed of \\!\\(\\*RowBox[{\\\"4\\\"}]\\) points.\"", 2, 368, 40, 31675534826454732986, "Local", "Global`BarycentricCoordinates"}, "MessageTemplate2"]], "Message", "MSG", TaggingRules->{}, CellChangeTimes->{{3.777398364415103*^9, 3.777398403847481*^9}, { 3.777398435621369*^9, 3.777398505901965*^9}, {3.7773991250323553`*^9, 3.777399150933735*^9}}, CellLabel->"During evaluation of In[368]:=", CellID->191708315], Cell[BoxData["$Failed"], "Output", TaggingRules->{}, CellChangeTimes->{{3.777398364423787*^9, 3.777398403863263*^9}, { 3.777398435637251*^9, 3.777398505908659*^9}, {3.7773991250375643`*^9, 3.777399150939287*^9}}, CellLabel->"Out[368]=", CellID->734344692] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["Interactively move the points of the coordinate system:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77739659188354*^9, 3.777396628966905*^9}}, CellID->469952397], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"FaceForm", "[", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"p", "[", RowBox[{"[", RowBox[{";;", "3"}], "]"}], "]"}], "]"}], ",", "Red", ",", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{"#", ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "#", "]"}], "]"}], "+", RowBox[{"{", RowBox[{"0", ",", "0.25"}], "}"}]}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "3", "]"}]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "3"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{";;", "3"}], "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"p", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.3", ",", "0.4"}], "}"}]}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777396407395749*^9, 3.7773965671049623`*^9}, { 3.7773966343961763`*^9, 3.777396634785577*^9}}, CellLabel->"In[370]:=", CellID->953198528], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3Q10HHW9//FkDQFKYonVerWiKMi9eg71tuDD9VT/x9jWS304pQriKeeo vTGFQCkJhUgILUFBIuHB1pq0tDwUBIGiEtKkaUP+bUgaTFJouaYICGmLDba1 kUCBhqSd/zf7s/MfZnY3m32a+c28X0c5yezs7m9/zc5n5ruz8/3kgsXzikNZ WVlXnST/mffj8q+Vlf342u+eKr9ccMVVly684idF512x5CcLf1L2pQXvk4VL Zd3/I/8f/fmvAABoxTCMjo6O/wUAQBPbtm1TP/wTAABN/PnPfya8AAB6IbwA ANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwA ANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAAGTAwMLBnz57n n39+R5j8IL/KwsQejfACAKTV/v37t2/f3tzc3OAgC+UmWWG8j0l4AQDSR46w mpqanLFlJSvIauN6WMILAJAOAwMDPT09tpxqtLDdJCvH/+CEFwAgHZ577jnn QdaghfNWuUucD054AQBSbvfu3RErhLHDS8gd43l8wgsAkFoDAwNbtmxJLLzk jvGcgkh4AQBSq6+vL2IwxRNeQu4+5lMQXgCA1HKepzGu8IrnzA3CCwCQWk8+ +aSKofb29j+/lzW8bDfJyupecvcxn4LwAgCklvnFLltaxSYrq3vJ3cd8CsIL AJBChw4dMguAiYWXkAeJ/SyEFwAgtTjyAgBop7W1VcXQU089tfO9rGllu0lW VveSu4/5FIQXACC1tm/fnszZhnL3MZ+C8AIApFa0y2vEGV7xXGSD8AIApNzW rVsTCy+5YzyPT3gBAFJuz549iYWX3DGexye8AADpIMky3vCSSIrzwQkvAECa 7NixI/LHWpHIyvE/MuEFAEifF154IZ5OyrLauB6W8AIApNXBgwflqKq5udkZ W7JQbpIVxvuYhBcAIAMGBgb27t0rR1gqdOQH+TWe1l0REV4AAO0QXgAA7RBe AADtEF4AAO0QXgAA7RBeAADtxB9e/xcAgEwhvAAA2klteBkAAKQT4QUA0A7h BQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7h BQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7h BQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7h BQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4QUA0A7hBQDQDuEFANAO4eU1HR0d S5cuvfTSS6urq10chvyj/+pXvzp48KCLY/A3ZjiAnnrqqeLi4iuuuOKuu+56 55133B6O3ggvT3nxxReLwy677LLf/OY35vJjx45t3br15ptvXrRoUWlp6R13 3PHcc8/F+ZgPPfRQcRTyDop2r1//+teywquvvhrx1qqqqmiPKeO0rTwyMtLa 2iqDl/fs1Vdffeeddz7//PPOxzx69GhbW1tNTc1VV10lL//GG2+8++679+/f b1vt8OHD0Z5a/P3vf49zWmySmWHx2muv/fa3v62srJSRX3PNNbfddtuWLVvk MWPchRlO0wzHORtG+O0m7zJ5TBmSzMZ9991n25fo7u6OMRXKE088oVaOZ966 urrktasljz76aPwvH06El6fI21P+qtesWTM8PGwulJ9lF139wS9cuNB8O/zx j3+M5zGXL18e7Q0VLbx27NihnijapvXyyy+P9pi2Teubb7550003OQe/YcMG 62pHjhyRI03z1ksuuUT9UFJSIttb65p9fX1jbiLGK8kZlk2cjNM2ciEv/K23 3op4F2Y4TTMc52wY792ps87G008/bX3eGFOhmOEV/7zJv74skV2IBGYSJsLL U9QbXN4y1oWPPfZYcfhYTN5W8lY9dOiQvOXVOyKefdfrr79e1uzs7HzV4R// +Id1zRdeeEF2WeWIwHzXR9y0vv766+ptvnfvXudjyv6nuabsGKsNpuzcyl+R bD/lVvVy5Clkv9dc89577y0Ol1Pk70dGJccI+/btq62tlYWXXnqpbBbMNWXf VRbecsstzqcW1tCPXzIzLEcuarsqOwkyge+++648QkdHR1lZmSy0Hj4zw+me 4fhnQ4ahFjY2Nr7xxhtyR3kWOQ5Vg+zv71eryRNFnASxa9cu2cG48sorBwYG Epi3xYsXy8pUDpNBeHlKTU2N/En39vaaS+SdpXYLbYn24IMPysIbbrgh9gPK Nko2TbLm4ODgmM8u70Tb7mLETauqbS5dunTMB5QtjKx5zTXXyNbYunzVqlWy XLYV6lf5y1GD7Onpsa4mm5Q77rhDlsvW3lzY0NAgSx544IExnz1OSc6wOli+ 8cYbZaqty2WWVELt2bPHXMgMW5enfIbjnA1x5513yhI5+LKuJrPxs5/9rDjS YZpTXV2drLl9+3ZzybjmTQYpK8u/SzwrIyLCy1Nuv/12+ZOW3UtzicynLFmy ZImtvP/aa6/F2PqZDh48qPa343l2OTprD2tra4vx4GoTYd3cRaMKOGZdxSQP +/vf/37jxo3q12eeeaY4XLoZGhqyranqNtYCi9o93rx5czyvKB5JzrD6cOoP f/iD8yZJH7lpy5Yt5hJm2Lo85TMc52wYx7PDWiFU7r//flm+evXq2K9I/h1l tfvuu8+6cFzzJrMhK9tKHxgXwstT1JGXtYaj9k7lPeVcWdUDbR9Y2OzatUvW +fnPfz6uYcguboytimxG5KZHHnkk9oO89dZb6kHGPKFO/mbkkOTWW2913iR/ dfIIixYtMpeoutDOnTvjeB1xSXKGy8vLZfAyTudNN998s9y9ubnZeRMzrKRw huOfDeP4a5SBWReaR16SdDHue+jQocWLF1dUVBw5csT5mHHOm0rPhM9+gUF4 ecyyZcts7z51TlpjY6NzZfUB2cMPPxzjAWWnVNapra1VJ3rJIdhPf/rTFStW yL59jHPhYm9aZb9UDemxxx674YYbLr/8chm2LPzrX/9qXW3fvn3F4c9T5NFk T1UOKuUNK3vRsoMa7ewvJ9m5lQeRTDeXyDGCLHn22WfXrl0rGxDZ6sr+9gMP PCCblDgf0ybJGY5G/hFVpc56HG1ihpUUzvC4ZkPuUlJSsnDhwvr6ejn8effd d//2t7+p6qJk5T9jVvPUGVByMGtbPq55u/HGG2Vl68dwGC/CyztkAi+55BL5 m7fW9tWuoPPsaCHvEbnpnnvuifGYsvdebDntynqmluyHRzsXLvamVY7jIj6m LLF+iNDb21sc/gBCbYpt5E0d+0xyI/zHqZ5Fjh/Vknfeecd8LvVfcxgyb7LJ iv2AESU5wxENDg6qrVO0L+sxw0oKZ3i8syF7ApJTttUkxM0TMCJSz+L8Zx3v vKl9hoaGhvG+cJgILy+Qt1V/f7+kSbFjL1SVF7q6upz3UtWYurq6GI+8cuXK 4vAJVC0tLbKHKU8k/21qapI3VHH4nPyI94q9aZXDt+LwDqrsZL755psjIyOy 03vvvfeqd6tZAlIf3CiyjdqzZ8+RI0f+/ve/y9GE2hpH3JopspraXS9+b9lt 7969auEvf/nLl19+eWhoSB5Tdl/l1+Lw6Xmy/xxjNiJKcoZtZOrkdanv8lRW Vkbbh2eGlRTO8LhmQx5k/fr1arkcrF199dVqbsvKymIEtNxLDoRltVdeecV2 03jnTYYnzyvH1LLbYDsRBXEivLxAZrg4vIMtyWX7S1afVkf8UEDttcY+u0ke +emnnzZP/TX19PSo95r1XDhTjE2r3PR0mPWEbUVtiBYvXqx2cdXZyBFHqE6T Nte0euONN+6//361VZGNnq04I39j8rDbt2+3zZJs3tXufTwnOdgkOcNWMlrZ nJrbT8mdaGsyw0oKZ3hcs6EqhNddd51s1tQrlbiRbZfaqYu2EVOn2UScgQTm TVZWlcZxZTdMhJcXqPCS3bMnnnjCtrVRHwrIsZLzXuqmeE7rjaiioiLaznns 44JoDh06pO712muvya/PP/+8+tX5Afrg4KB1TZPsPKs9atnOyFSM61sw6gSw BL74mZIZHhgYMA9kampqXnrppdjrM8PWm1Iyw/HPhlpT3m7O8yXUa5QIi1hR Vyc3Rjx1JIZo8ybHZeo9SHglhvDyAvUdSXWqYWtrq/UmVRu3nRalqAqGbI4S e1K13Yh4iYPENq3isssuKz7+AYpsGYrDxf+IVRG1pvmNNpmBe+65Rz2pvNho H8bF8PLLL6unG++3aJOf4b1796ovcF177bXmh0exMcNKCmc4/tmQ1Jaff/GL XzhXe/fdd9UxqfMcDxV55eXlY36SaBNx3uT9vijsueeeS+x73yC8vEP+np3v jpaWFvWeta1s7oTv27cvxgNu3LhRHiHirWo30va9USXGplXewvKYzlOtDMv+ 7RtvvGGEtwNqi2Hb+TfCNRa15j+Pf2ChTiyRvdPY11uQrZw8++7du503qe8r LVu2LMbdI0pmho3wOW/qUg9r1qx5++2343xSZthI9QzHPxtqPDfddJPzQY4c OeL8armirkZSX18f8dnHO2/quh8Rv7yGOBFenqJq4AcOHDCXyBs84q6g2nu0 nuHs9Oabb6r77tixw3aT7L7Km7SkpCTiuVUxNq3q666yx/hPx6kI6pMF65v0 rrvuKn7vlQ0UtSE1t2bqNcpgnJ/N2fzud7+TO9588822vWuJe3W6y29/+9vY j+CUzAwbx7/Wunbt2nE9KTNspGGG45yNV155pTj8EbMzodT3qSUEbS9fDlTV S4iWs+OdN3U5Atm0jvmiEA3h5SnqS5e2bwapN6/kmvry8sjIyLZt29T+4bPP PmuuJnueD4RZF6r3lGwJ29vb1QccstOuvrIqy63XHLCKfTqBuo6BHLhJAg4P D8vbU/aNH3744UvCrN9FMq9Kd88998jPsqZkpWxJ1ODNzw4ef/zx4vCp+/ui MD+bkM2gOhNvxYoVf/vb3+QBZQCyu6u+enPNNddYT3LYsGGDzEY8n6ckPMOy o6729mXvOtrgIxbomOF0zHCcs2EcPwv36quvfvrpp9XRnGy+JEzV3Z3fK1cn OMkBYLSa4bjmzTj+7WznQSLiR3h5ijqx1vaJsLx/VagVh6+xY15v3HZlNnkP quXW6wPIVkJdhE0xL80tb+cHH3ww2jsx9icy8g+tvkytHsd8TBWRtpVlm6O+ SVocPifZ/MH68b3aksQgr9pcWZJdbSXU45jfpqmoqHj55ZetT63O8pL/jjHp ScyweYJ0DAmcEsMMJzzD8cyGET6Ssl5j3/q+iHjqo7qscW1tbYzXGP+8CTkM LI7vYiCIhvDyFHXOhvMKM7IXJ+++G264QfZC5aBJVrNeEVSJGF6K7MfK5ks2 GnL3qqqqtWvX2q7VYDPm6QQynieffFLe/qWlpfKGveWWWyQKo327Ux5EnlF2 PtWz33333bbvvMToXeXctBrhj37UpSdkYy4783fccUdDQ4PstNueN/5Nq5Ho DKsSX/ybVhMznL4ZHnM2TF1dXb/+9a+vu+46CVNZ86677rJemc1KjtHkieRf JPZrjHPezAeM/YVoxEZ4eYqqhKfwsnIB19PTE/FzeaQKM5wY9YWFeHo9IBrC y1PUlW0ingGIBDQ2NibwpVrEjxlOwLFjx9THl1xbIxmEl6eoy4nX1tby1Y/k vfXWWzU1NfxBpg8znBhVC73++uvdHojeCC9P2b9/v/qcd9GiRatWrXJ7OHpb vnz5Qw89xG5A+jDD49Xd3a06eRVHueQI4kd4eU1HR4c6EynaBckBaOqpp54q DjeHvffeeyOeyIH4EV4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4A AO0QXgAA7RBeAADtEF4AAO0QXgAA7RBeAADtEF4AAO0QXgAyavZs46ab3B4E tEd4Acicp582srKMJUvcHge0R3gByIR9+4x77jE+9jHCCylBeAFIu8svH80s 83+EF5JGeAFIu7Y2o65u9H8lJYQXUoLwApA5DQ2EF1KC8AKQOYQXUoTwApA5 hBdShPACkDmEF1KE8AKQOYQXUoTwApAxWWGEF5JHeAHIGMILqUJ4AcgYwgup QngByBjCC6lCeAHIGMILqUJ4AUi3/v7+VatWLVmyRIVXeXn5unXrBgYG3B4X NEZ4AUifjo6OwsLC7OzsLIecnJy5c+fK5sXtMUJLhBeAdDh8+PD8+fNVTk2a NEl+rqqqUr8uW7Zs3rx5eXl58nMoFCorKxseHnZ7vNAM4QUg5fbt2zdt2jTJ pilTptTW1nZ3d2/YsKG+vl6Fl/zQ1NTU09NTXV1dUFAgS2bNmjU4OOj2qKET wgtAaskxl0qu2bNn79ixo6Ghof44M7yUxsZGibDp06fLwjlz5oyMjLg9dmiD 8AKQWqpaKMklG43697KFl9Lb23v22WfL8srKSrfHDm0QXgBSqKOjQ1UL5Zir 3iFieImurq4JEybk5ub29fW5/QqgB8ILQAoVFhZKPNXW1lqrhWOGV3Nzc0VF hdy0YMECt18B9EB4AUiV/v7+7OzsSZMmdXd3OxNq69atKrxaW1udt3Z2doZC oYkTJw4NDbn9OqABwgtAqqxevVqyaf78+ercQitrPfDYsWO7du2yrdDS0jJj xgy5+6ZNm9x7BdAG4QUgVdQ1NKqqqpzHXLY1jx492tzcbFtt4cKFcveVK1e6 MnjohfACkDDndTOikaOt3bt3P/bYY9dee+3s2bP37t0b/33dfpXwIsILQMLi D6BJkyaZP3/qU5+SLCO8kAzCC0BKSB5deumlkjUzZsyYNm1afn6+LYM+9KEP qR8WLVo0PDzc1NRkKxsWFRXJrXV1dW6/FGiA8AKQGFsl0HpspUycOPGcc875 /ve/X1FR0draOjIyMnXqVFne2Nj4zDPP2JJLNh3qUhttbW1uvzJogPACEKcx 0+qDH/xgdnZ2bm5uTU3N3Xff/fjjj1vj6f7771erOc+TF+3t7XLT5MmTuUgU 4kF4wUOefda48ELj3/7NOOkk47OfNS691DhwwO0xBdqYafWhD33ovPPOq6ys /MMf/rB3715Zf+7cubK8urpaDq9s8aSKihHDq6WlpaSkRG4qLS11+0VDD4QX vGLjRuOEE4ysLOPMM43zzzfOOGP050mTjN273R5ZgCSQVrZHkM1FKBQqKCjo 6emxJdTnP//5iOHV0NCwZcuWnJyc/Pz8A+yuID6EFzzh6FHjk58cTSvzOz6y 5LrrRpd87Wuujsznkk8rp7KyMrnj9OnTe3t7zYRav359bm6uM7wkuXbu3Hna aafJ8uXLl2fgJcMfCC94wlNPjebUV77ynoWynZTjr+xsg05PqZOOtLIZHh6e OXOmPNTUqVO7uro2btwoIbV06VLzKazVQjnmUsm1YMGCBJ4LgUV4wRPuv380 vK66yr78W98aXf7ss26MyScykFZOg4ODc+bMkQefMGFCRUVFZ2fnd77zHWt4 yYaivb29pKQkJydHJReXNMS4EF7whP37jZ6e0f9aDQ8bH/+4EQoZAwMuDUtL rqSV08jIiDyFKhWGQqETTzzRHEBRUZE6K17k5+evWLGCYy6MF+EFj5Lk+tGP Rg+7LrrI7aF4nUfSKqK+vj45qsrLy8tymDx5cmlpKWdoIDGEF7zopZeMwsLR 5Pr3fzcOHnR7NJ7j5bSK6KabbpJRfelLX1LDq6ura2tr4/tcSAbhBW955x3j pz81cnNHk+vCC41//MPtAXmCdmll85WvfEUG+cgjj6jRuj0c+AHhBQ/p7jb+ 4z9GY+vcc40nn3R7NG7SPa2sDh069L73vS8nJ+f1118nvJAqhBe8QpIrL8/I yTFqagwPb4rTxE9pZfPggw/K+L8W/r4e4YVUIbzgCe++a3zsY8Ypp4x+4SsY mzgfp5XN/Pnz5eXUyD5JMP5lkRmEFzzhd78brRZef736zZebuOCkldXIyMgH PvABeXV/+ctfDJ/+y8IVhBc84bLLRsPr9NON//xP+d+/NnHhn0f/19/v9vgS Ecy0slHXij/jjDN8+ergIsILnnDeeaPhdfx//wov83+aXJuXtHKSqZAXfsUV V7g9EPgN4QUP0qW4RFqNSXWfbG5udnsg8BvCC97R39+/atWqJUuWqC1/eXn5 unXrBrx0bSjSalz27Nkjc3LKKaccOXLE7bHAbwgveEFHR0dhYWF2dnaWQ05O zty5c+WP0JWBkVbJqK2tlSmSfz63BwIfIrzgrsOHD6tTqYVEg/xcVVWlfl22 bNm8efPUZfFCoVBZWdnw8HC6x0NapdC3vvUtmbG77rrL7YHAhwgvuGjfvn3T pk2T7duUKVNkL727u3vDhg319fUqJuSHpqamnp6e6urqgoICWTJr1qzBVPf2 Iq3S5O233z755JNlAuVf2e2xwIcIL7hFjrlUcklk7Nixo6GhwexRaIaX0tjY KBGmmmjMmTMnyQu6klaZIfshWeF+ym4PBP5EeMEtqloo8SF/WvXvZQsvpbe3 9+yzz5blEivjeiLSyhUlJSUyt9cf/+I5kFqEF1zR0dGhqoVyzFXvEDG8RFdX 14QJE3Jzc/v6+mI8OGnlOpnST3ziEzLVf/rTn9weC/yJ8IIrCgsLZctWW1tr rRaOGV7Nzc0VFRVZ4a7x1kcjrbxGNhdZ4XaTR48edXss8CfCC5nX39+fnZ0t EdPd3e1MqK1bt6rEaW1tdd7a2dkZCoUmTpz40ksvkVaedcstt8i/wg9/+EO3 BwLfIryQeatXr5Yt2/z589W5hVbWeqAkzq5du9Tyxx9/fM2aNRJVP/jBD049 9dQsB9LKU8zuk24PBL5FeCHz1DU0qqqqnMdc5jqqErh+/fqLLrpo2rRp+fn5 trTKy8sjrbzJ2n3S7bHAtwgvZIDzQCkaI/z9oG984xvvf//747+XeV94gbX7 JJAmhBcyYLwB9MUvflH9KsdWhJd2rN0ngTQhvJB55eXlWeGrP9nKhq2trar6 d9ttt8kKF1xwwfDwcFNTk221oqIiubWurs7t14EIbN0ngTQhvJB569atk43b vHnznMG0a9euo0ePqquRT5gwYdu2bbYV5A9MXWqjra3N7deBCOg+icwgvJB5 AwMDOTk5eXl5PT09zpPhm5ubzUqgHKPZblXbxsmTJyd5kSikCd0nkRmEF1wx d+5c2cRVV1c3NjY688sMrxkzZliXt7S0qIsOlZaWuv0KEJnqPrlp0ya3BwKf I7zgCvmjCoVCBQUFEQ++zPA68cQTH330UbWwoaFhy5YtcsiWn59/4MABt18B Iti7d28W3SeREYQX3FJWVpYVvup4b29vxPA666yzzMqhJNfOnTtPO+00WbJ8 +XK3x47I6D6JjCG84Jbh4eGZM2fKtm7q1KldXV0bN260hdeCBQtU5bClpUWO uVRyyULOBPAs1X1yzZo1bg8E/kd4wUWDg4Nz5sxRJxZWVFR0dnZu3rzZDK+1 a9fKf0866aTi4uKcnByVXENDQ26PGpGZ3Sf7+/vdHgv8j/CCu0ZGRiorK3Nz c2WjFwqF5Dhr4cKFKryKiopOOeUU9XN+fv6KFSs45vIyuk8ikwgveEFfX58c VU2cODHipTPOOussztDwPrpPIpMIL3jH0NDQpk2bVq5cqTKrrq7u0UcfVUXF t956y+3RIRa6TyLDCC94kPVaheo6h5Ji7g4JsclWIovuk8ggwgseZA0vdZ3D Cy+80N0hITa6TyLDCC94kDW8zOscUjn0MtV9kgNkZAzhBQ+ytTihcuhxdJ9E 5hFe8CBbeFE59Di6TyLzCC94H5VDj1PdJ2Ufw+2BIEAIL2iByqFnjYyMTJo0 ie6TyDDCC1qgcuhZHR0ddJ9E5hFe0AKVQ8+i+yRcQXhBF1QOvYnuk3AF4QVd UDn0ILpPwi2EF3RB5dCD6D4JtxBe0AiVQ6+h+yTcQnhBI1QOPYXuk3AR4QWN UDn0lMbGRrpPwi2EF/RC5dA7VPfJpUuXuj0QBBHhBb1QOfQIuk/CXYQX9ELl 0CPoPgl3EV7QDpXDiGyX4k831X3yRz/6UcaeEbAivKAdVTm84IIL3B6It2Q4 vOg+CXcRXtAOlcOIMhledJ+E6wgv6IjKoVMmw4vuk3Ad4QUdUTl0ymR40X0S riO8oCMqh6b+/v5Vq1YtWbJEhVd5efm6desGBgbS94x0n4QXEF7QFJXDjo6O wsLC7OzsLIecnJy5c+fKOzdNz0v3SbiO8IKmglw5PHz4sCrcCTkIkp+rqqrU r8uWLZs3b15eXp78HAqFysrKhoeHU/vsqvvk4sWLU/uwwLgQXtBUYCuH+/bt mzZtmrz2KVOm1NbWdnd3b9iwob6+XoWX/NDU1NTT01NdXV1QUCBLZs2aNTg4 mMIB0H0SXkB4QV8BrBzKMZdKrtmzZ+/YsaOhoaH+ODO8lMbGRomw6dOny8I5 c+aMjIykZAB0n4RHEF7QVwArh6paKMkl78f697KFl9Lb23v22WfL8srKypQM QHWfPP/881PyaEDCCC/oK2iVQ3WmxJQpU+SYq94hYniJrq4umaLc3Ny+vr7k x0D3SXgE4QWtBapyWFhYKC9Wjn2s1cIxw6u5ubmiokJuWrBgQZIDoPskvIPw gtaCUzmUvMjOzp40aVJ3d7czobZu3arCq7W11XlrZ2dnKBSaOHHi0NBQMmOg +yS8g/CC1oJTOVy9erW80vnz56tzC62s9cBjx47t2rXLtkJLS8uMGTOSP0WQ 7pPwDsILugtI5VBdQ6Oqqsp5zGVb8+jRo83NzbbVFi5cKHdfuXJlwgOg+yQ8 hfCC7vxaOXReNyOa1N43GrpPwlMIL+jOr5VDr4UX3SfhKYQXfCAIlcPy8vKs 8NWfbPXA1tZW2zUGh4eHm5qabKsVFRXJ3evq6hIeAN0n4SmEF3zAr5VDq3Xr 1slrnDdvnjOYdu3aZZbyJLmeeeYZ2wryrlSX2mhra0vs2QcGBug+CU8hvOAD fq0cWkl8SHbk5eX19PQ4T4Zvbm5WZUBntIn29nb1cVXCF4l66KGH5BEKCwtT +6KAhBFe8IcgVA7nzp0rr7G6urqxsdGZUCq8nMtbWlrUKe6lpaUJPzXdJ+E1 hBf8IQiVQ3knhkKhgoKCiAdfEcOroaFhy5YtcsiWn59/4MCBxJ6X7pPwIMIL /hCEyqEoKyvLCl/jore3d8zwkuTauXPnaaedJsuXL1+e8JPSfRIeRHjBN4JQ ORweHp45c6a8zKlTp3Z1dW3cuDFaeLW0tMgxl0quBQsWJJM7dJ+EBxFe8I0g VA7F4ODgnDlz1GFmRUVFZ2fn5s2breEl78H29vaSkpKcnByVXEle0pDuk/Ag wgu+EZDKoRH+EKqysjI3N1debygUmjFjhrr6kygqKlJnxYv8/PwVK1YkWeuj +yS8ifCCnwShcmjq6+uTo6qJEyc6r5sxefLk0tLShM/QsKqrq8ui+yS8h/CC nwSkcmg1NDS0adOmlStXqtiSrGlra0v4+1xOdJ+ENxFe8BOzcnj48GG3x5Jp 471WYTzoPgnPIrzgM6py+Mgjj7g9kExLR3ip7pPnnHNOah8WSB7hBZ+pqakJ WuVQSUd40X0SnkV4wWd2794dzMphysOL7pPwMsIL/hPMymHKw4vuk/Aywgv+ E9jKYWpVV1fTfRKeRXjBfwJbOUwtuk/Cywgv+FIwK4cpRPdJeBzhBV+icpgk uk/C4wgv+BKVwyTRfRIeR3jBr6gcJozuk/A+wgt+ReUwYar75Jlnnkn3SXgW 4QW/onKYsIqKCrpPwuMIL/gYlcPE0H0S3kd4wceoHCZAdZ/My8uj+yS8jPCC j1E5TADdJ6EFwgv+RuVwvOg+CS0QXvA3KofjQvdJ6ILwgr9RORwXuk9CF4QX fI/KYfzoPgldEF7wPSqHcaL7JDRCeMH3qBzGie6T0AjhhSCgchgPuk9CI4QX goDKYTzoPgmNEF4IAiqHYzK7Tw4ODro9FmBshBcCgsphbHSfhF4ILwQElcPY 6D4JvRBeCAgqhzGY3SdfeOEFt8cCxIXwQnBQOYzG7D7p9kCAeBFeCA4qh9HQ fRLaIbwQHFQOo6H7JLRDeCFQqBw60X0SOiK8EChUDp3oPgkdEV4IFFU5PPnk k6kcmug+CR0RXggaKodWdJ+EpggvBA2VQyu6T0JThBeChsqh1WWXXUb3SeiI 8EIAUTlUzO6TXV1dbo8FGB/CCwFE5VBR3Sc//OEP030S2iG8EEBUDhW6T0Jf hBeCicqhQfdJ6IzwQjBROaT7JLRGeCGYqBzSfRJaI7wQWAGvHF588cV0n4S+ CC8EVpArh3SfhO4ILwRWkCuHdJ+E7ggvBFlgK4d0n4TuCC8EWWArh6r75ObN m90eCJAgwgtBFszKodl9cmhoyO2xAAkivBBwAawc0n0SPkB4IeACWDn89re/ LS957dq1bg8ESBzhhYALWuXQ7D752muvuT0WIHGEFxCoyiHdJ+EPhBcQqMoh 3SfhD4QXEJzKId0n4RuEF2AEpnJI90n4BuEFGIGpHNJ9Er5BeAFGYCqHX/3q V+Vlrl+/3u2BAMkivADF95VD1X3yhBNOoPskfIDwAhTfVw7pPgk/IbwAxfeV Q9V98vbbb3d7IEAKEF6AyceVQ7pPwmcIL8CkKoff+9733B5I6tF9Ej5DeAEm H1cO6T4JnyG8ACu/Vg7pPgmfIbwAK19WDuk+Cf8hvAArX1YO6T4J/yG8ABv/ VQ7pPgn/IbwAG59VDuk+CV8ivAAbn1UO6T4JXyK8ACc/VQ5V98lly5a5PRAg lQgvwMk3lUO6T8KvCC/AyTeVQ7pPwq8ILyAif1QO6T4JvyK8gIj8UTmk+yT8 ivACIvJB5ZDuk/AxwguIRvfKId0n4WOEFxCN7pVDuk/CxwgvIBqtK4d0n4S/ EV5ADPpWDuk+CX8jvIAY9K0cqu6TV155pdsDAdKC8AJi0Ldy+LnPfY7uk/Ax wguITcfKId0n4XuEFxCbjpVD1X1y3rx5bg8ESBfCC4hNx8oh3Sfhe4QXMCa9 Kod0n0QQEF7AmPSqHNJ9EkFAeAFj0qtySPdJBAHhBcRDl8rhsWPHTj/9dLpP wvcILyAeulQO6T6JgCC8gHjoUjlU3Sd//OMfuz0QIL0ILyBOqnL48MMPuz2Q WOg+iYAgvIA4eb9ySPdJBAfhBcTJ+5VD1X3y61//utsDAdKO8ALi5/HKId0n ERyEFxA/L1cO6T6JQCG8gPh5uXJI90kECuEFjItnK4d0n0SgEF7AuHi2ckj3 SQQK4QWMizcrh3SfRNAQXsB4ebBySPdJBA3hBYyXByuHdJ9E0BBewHh5rXL4 9ttvT5gwge6TCBTCC0iApyqHqvvkueee6/ZAgMwhvIAEeKpySPdJBBDhBSTA O5VDuk8imAgvIDEeqRzSfRLBRHgBifFI5ZDukwgmwgtIjEcqh3SfRDARXkDC XK8c0n0SgUV4AQlzvXJI90kEFuEFJMz1yiHdJxFYhBeQDBcrh3SfRJARXkAy XKwcqu6Tn/70pzP/1IDrCC8gGS5WDuk+iSAjvIAkuVU5pPskgozwApLkSuWQ 7pMIOMILSJIrlUO6TyLgCC8geZmvHNJ9EgFHeAHJy3DlkO6TAOEFJC/DlUO6 TwKEF5ASX/jCFzJWOaT7JEB4ASmRscoh3ScBg/ACUiRjlUO6TwIG4QWkTmYq h3SfBAzCC0idzFQO6T4JGIQXkDoZqBzSfRJQCC8ghdJdOaT7JKAQXkAKpbty SPdJQCG8gBRKa+WQ7pOAifACUit9lUO6TwImwgtIrfRVDuk+CZgILyC10lc5 pPskYCK8gJRLR+Xw1VdfpfskYCK8gJRLR+WQ7pOAFeEFpFw6Kod0nwSsCC8g HVJbOaT7JGBDeAHpkNrKId0nARvCC0iH1FYO6T4J2BBeQJqkqnJodp/s7u5O ycAAHyC8gDRJVeWwt7eX7pOADeEFpEmqKod0nwScCC8gfVJSOaT7JOBEeAHp k3zlkO6TQESEF5A+yVcO6T4JRER4AWmVZOWQ7pNARIQXkFbJVA7N7pMvvvhi ygcGaI3wAtIqmcrhtm3b6D4JRER4AemWcOWQ7pNANIQXkG4JVw5V98mWlpZ0 jArQGuEFpFtilUPVfTI/P5/uk4AT4QVkQITK4eCgceWVxtSpximnGJ/8pHH+ +cazz1rvQvdJIAbCC8gAVTn87ne/+6/f33zTOP10IyvL+OhHjblzjS9/efTn UMjYvNm8C90ngRgILyAD7JXDa68dTav/+R/j2LF/rfH7348uOeMM9RvdJ4HY CC8gM95TOTznnNGoOnToPWtMnTq68OBBg+6TwFgILyAz3lM5nDnTOO88+xqf //xoeL3yikH3SWAshBeQGWOcc9jZaZxwwmjZ8OhRuk8CYyK8gIyJcM5hV5fx ve8Z555r5OYaH/+4sX27QfdJIA6EF5Ax9nMOxQMPGNnZo9VC+d9//7fx/PMG 3SeBOBBeQMZErRzu32+sWmWcfLJRUGC8+qrqPvnYY4+5NExAA4QXkEmxrnN4 441y/PX2ddep7pNvvPFGxkcHaIPwAjKppqbms1lZrZ/4hHHfffbbGhokvF6c NYvuk8CYCC8gk3bv3n1m+BOukf/6L7UkK2z0pzvukF/WnXuu/HqH/AwgOsIL yLAvfOELO9UZGg88YJjh9Ze/GB/+sJGb+8VTT6X7JDAmwgvIsJqami9lZQ29 732j+TVt2r/C64QTjOzsV8rK6D4JxIPwAjJMnXM47aSThi+6yJgy5V/hdf75 Rnc33SeBOBFeQOZZzzn8/5950X0SiBvhBWSe+rby9OnTlyxZosKrvLz8zjvv pPskECfCC8iwjo6OL3/5y1lRfPSjH5V3nNtjBLyO8AIy5vDhw/Pnz1chlZOT I/+94IIL1K/Lli37yEc+on4OhUJlZWXDw8NujxfwLsILyIx9+/ZNC59bOGXK lNra2sWLF8vP5iHY+vXrTzzxRPmhsrKyoKBAfpg1a9bg4KDbowY8ivACMkCO uVRyzZ49e8eOHQ0NDWvWrJFfc3NzVXjdcMMN8t8zzzyzsbGxp6dn+vTp8uuc OXNGRkbcHjvgRYQXkAGqWijJJe+j+uPOOuss86Oub37zm/LfH/zgB+qm3t7e s88+Wx2IuT12wIsILyDdOjo6VLVQjrnqLRYsWGCG1+TJk+W/t99+u3lrV1fX hAkT5NCsr6/P7VcAeA7hBaRbYWGhBFNtbW1DQ4M1vFTl0HTqqac+/vjj5q3N zc3qO8uScW6/AsBzCC8grfr7+7OzsydNmtTd3V3v8JnPfMYMr5kzZ9pu7ezs DIVCEydO5JtfgA3hBaTV6tWrJZjmz5+/YcMGWzb19fWpbysrv/rVr2wrtLS0 zJgxQ27atGmT268D8BbCC0grdQ2NqqoqWzBt3brVOH6dQ+X1119vbm62rbZw 4UK5aeXKlW6/DsBbCC8gtaJdOsPJtn4C9wUCi/ACUmu8AXTrrbdmhc8zTOC+ QGARXkBalZeXZ4Wv/mSrB7a2th47dsw4Xjl84YUXhoeHm5qabKsVFRXJrXV1 dW6/DsBbCC8grdatWyfpM2/ePGcw7dq16+jRo7LOxRdfLMn1zDPP2FaQd5O6 1EZbW5vbrwPwFsILSKuBgYGcnJy8vLyenp56h+bmZlUGdEabaG9vzwp/f5mL RAE2hBeQbnPnzpUMqq6ubmxsdCaUCi/n8paWlpKSErmptLTU7VcAeA7hBaSb vINCoVBBQUHEg6+I4dXQ0LBlyxY5ZMvPzz9w4IDbrwDwHMILyICysrKscOvk 3t7eMcNLkmvnzp2nnXaaLF++fLnbYwe8iPACMmB4eHjmzJkSRlOnTu3q6tq4 cWO08GppaZFjLpVcCxYsUGckArAhvIDMGBwcnDNnjkTShAkTKioqOjs7N2/e bA0vee+0t7eXlJSoJsuSXFzSEIiG8AIyZmRkpLKyUjWgDIVCM2bMUFd/EkVF ReqseJGfn79ixQqOuYAYCC8gw/r6+uSoauLEic7rZkyePLm0tJQzNIAxEV6A K4aGhjZt2rRy5UoVW3V1dW1tbXyfC4gT4QW4i2sVAgkgvAB3EV5AAggvwF2E F5AAwgtwF+EFJIDwAtxFeAEJILwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8 AADaIbwAANohvAAA2iG8AADaIbwAANohvAAA2iG8AADaIbwAANpJR3gBAJAB hBcAQDupCi8AADyC8AIAaIfwAgBoh/ACAGiH8AIAaIfwAgBoh/ACAGiH8AIA aIfwAgBoh/ACAGiH8AIAaEeF17Zt2/4MAIAmJLb+FwAA3cjxl9vNWwAAGLf/ Bxq3CVo= "], {{0, 638}, {575, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{287.5, Automatic}, ImageSizeRaw->{575, 638}, PlotRange->{{0, 575}, {0, 638}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777396465558572*^9, 3.7773965675781116`*^9}, { 3.7773966301542587`*^9, 3.777396635183999*^9}, 3.777398644795287*^9, { 3.77739912745147*^9, 3.7773991577820044`*^9}}, CellLabel->"Out[370]=", CellID->498101587] }, 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["Sander Huisman", "Text", CellID->130075600] }, 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["barycentric coordinates", "Item", CellID->139547316], Cell["bary centric", "Item", CellID->30510820], Cell["August Ferdinand M\[ODoubleDot]bius", "Item", CellID->450348137], Cell["convex hull", "Item", CellID->157798962], Cell["convex combination", "Item", CellID->440766958] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Geometry", {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVjl0KwjAQhFH8SUW8SQ9R1IogVLpeoNZRg2kSspuH3N4UQfRpBuZjZipV0pwkGdCiie\ KjlLTcPtG/cLtPeHbSLKQOcAMkpMweBQNzUUVxQye6L0mdg/\ MIkmi17QQPFzQ4tzRetLN8n35aRm2jAav9TUt3zW5ed4bxDYodDH6T8YozcbD/\ g5ujFQQfMjsuUFHZRPHKyN/XLdjF0OOSPEjV0fYj8wZ18lBK"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336] }, 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["RegionCentroid", "Item", CellID->770416164], Cell["RegionMeasure", "Item", CellID->416121088], Cell["ConvexHullMesh", "Item", CellID->334104487] }, 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["CoordinateVector", "Item", CellID->293040996], Cell["StandardSimplex", "Item", CellID->314809444], Cell["SimplexMeasure", "Item", CellID->974244990] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Wikipedia\[Dash]Barycentric coordinate system", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Barycentric_coordinate_system"], None}, ButtonNote-> "https://en.wikipedia.org/wiki/Barycentric_coordinate_system"]], "Item", CellID->828947884] }, 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[{"VerificationTest", "[", RowBox[{ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "3"}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", "/", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "16"], ",", FractionBox["11", "16"]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.777398780025692*^9, 3.777398802863337*^9}}, CellLabel->"In[371]:=", CellID->538680743], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "3"}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", FractionBox["5", "2"], "}"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ FractionBox["5", "16"], ",", FractionBox["11", "16"]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ FractionBox["5", "16"], ",", FractionBox["11", "16"]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000166`2.3706230858720487", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[<| "TestClass" -> None, "TestIndex" -> 4, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`BarycentricCoordinates[{{-3}, {5}}, {5/2}]], "ExpectedOutput" -> HoldForm[{ Rational[5, 16], Rational[11, 16]}], "ActualOutput" -> HoldForm[{ Rational[5, 16], Rational[11, 16]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000166`2.3706230858720487, "Seconds"], "CPUTimeUsed" -> Quantity[0.00016899999999964166`, "Seconds"], "MemoryUsed" -> Quantity[168, "Bytes"]|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.777398785643381*^9, 3.7773988032963142`*^9}, 3.777399212017397*^9}, CellLabel->"Out[371]=", CellID->372154798] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.98"}], ",", RowBox[{"-", "3.56"}], ",", "2.78", ",", RowBox[{"-", "1."}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.68", ",", RowBox[{"-", "0.44"}], ",", RowBox[{"-", "2.68"}], ",", RowBox[{"-", "2.08"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.46"}], ",", RowBox[{"-", "1.6"}], ",", RowBox[{"-", "4.08"}], ",", "4.78"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.84"}], ",", "0.04", ",", RowBox[{"-", "1.78"}], ",", RowBox[{"-", "1.40"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.18", ",", RowBox[{"-", "3.6"}], ",", RowBox[{"-", "0.36"}], ",", RowBox[{"-", "4.36"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.517"}], ",", RowBox[{"-", "1.702`"}], ",", RowBox[{"-", "1.699`"}], ",", RowBox[{"-", "1.068`"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "0.10000000000000009`", ",", "0.3000000000000002`", ",", "0.19999999999999987`", ",", "0.15000000000000002`", ",", "0.24999999999999978`"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.777398780025692*^9, 3.777398802863337*^9}}, CellLabel->"In[372]:=", CellID->18438729], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"BarycentricCoordinates", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.517`"}], ",", RowBox[{"-", "1.702`"}], ",", RowBox[{"-", "1.699`"}], ",", RowBox[{"-", "1.068`"}]}], "}"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "0.10000000000000009`", ",", "0.3000000000000002`", ",", RowBox[{"\[LeftSkeleton]", "20", "\[RightSkeleton]"}], ",", RowBox[{"\[LeftSkeleton]", "20", "\[RightSkeleton]"}], ",", "0.24999999999999978`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "0.10000000000000009`", ",", "0.3000000000000002`", ",", RowBox[{"\[LeftSkeleton]", "20", "\[RightSkeleton]"}], ",", RowBox[{"\[LeftSkeleton]", "20", "\[RightSkeleton]"}], ",", "0.24999999999999978`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000165`2.3679989420459004", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[<| "TestClass" -> None, "TestIndex" -> 5, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`BarycentricCoordinates[{{-3.98, -3.56, 2.78, -1.}, { 2.68, -0.44, -2.68, -2.08}, {-2.46, -1.6, -4.08, 4.78}, {-4.84, 0.04, -1.78, -1.4}, { 1.18, -3.6, -0.36, -4.36}}, {-0.517, -1.702, -1.699, -1.068}]], "ExpectedOutput" -> HoldForm[{0.10000000000000009`, 0.3000000000000002, 0.19999999999999987`, 0.15000000000000002`, 0.24999999999999978`}], "ActualOutput" -> HoldForm[{0.10000000000000009`, 0.3000000000000002, 0.19999999999999987`, 0.15000000000000002`, 0.24999999999999978`}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000165`2.3679989420459004, "Seconds"], "CPUTimeUsed" -> Quantity[0.00016800000000216642`, "Seconds"], "MemoryUsed" -> Quantity[216, "Bytes"]|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.777398785643381*^9, 3.7773988032963142`*^9}, 3.777399212031108*^9}, CellLabel->"Out[372]=", CellID->172193131] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function 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->695575686], 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["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function 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->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "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->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function 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->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function 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->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BarycentricCoordinates | 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.872331446038724`16.340547512131305*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.872331446077792`16.340547512135693*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], 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.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 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.044444]], 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.044444]], 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.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], 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.66667], 0], Thickness[ NCache[2/45, 0.044444]], 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.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], 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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "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.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], 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.99412, 0.7098, 0.60196]], "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 function 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 function 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.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.95686, 0.80196, 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/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], 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.055556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, 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 -> True], 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 -> True], 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.88072, 0.61104, 0.14205], 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.36842, 0.50678, 0.7098], 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.56018, 0.69157, 0.19488], 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`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 = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], 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`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 = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[638, 23, 105, 2, 70, "Title",ExpressionUUID->"60b86773-0714-4c9c-9903-f924515a4595", CellTags->{"Name", "TemplateCell", "Title"}, CellID->408418585]}, "TemplateCell"->{ Cell[638, 23, 105, 2, 70, "Title",ExpressionUUID->"60b86773-0714-4c9c-9903-f924515a4595", CellTags->{"Name", "TemplateCell", "Title"}, CellID->408418585], Cell[746, 27, 122, 2, 70, "Text",ExpressionUUID->"78e22220-0e40-4e6b-8047-c40502ff94e7", CellTags->{"Description", "TemplateCell"}, CellID->14304281]}, "Title"->{ Cell[638, 23, 105, 2, 70, "Title",ExpressionUUID->"60b86773-0714-4c9c-9903-f924515a4595", CellTags->{"Name", "TemplateCell", "Title"}, CellID->408418585]}, "Description"->{ Cell[746, 27, 122, 2, 70, "Text",ExpressionUUID->"78e22220-0e40-4e6b-8047-c40502ff94e7", CellTags->{"Description", "TemplateCell"}, CellID->14304281]}, "Definition"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"4bce9e57-1013-4739-9123-930ebdff3958", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"4bce9e57-1013-4739-9123-930ebdff3958", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"4bce9e57-1013-4739-9123-930ebdff3958", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[6487, 181, 1980, 50, 70, "Subsection",ExpressionUUID->"10dd0cdd-1395-4a6c-ab03-6e7c04469572", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[9351, 270, 1429, 32, 70, "Subsection",ExpressionUUID->"c204846b-9fbc-4dfa-ad99-998b69599ffd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[12879, 391, 7025, 152, 70, "Section",ExpressionUUID->"65b02608-d6aa-4b05-b38a-779a4509d3c4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[61847, 1588, 1026, 26, 70, "Subsection",ExpressionUUID->"0fea27f3-c27c-4132-8cbe-595b04c8dbe7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[62963, 1622, 996, 26, 70, "Subsection",ExpressionUUID->"bade444f-fbef-4f7e-b2ce-296a4d12f274", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[64289, 1668, 221, 6, 70, "Subsection",ExpressionUUID->"62e52f1a-6095-41e3-b72a-20394a9e8444", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[72748, 1930, 980, 26, 70, "Subsection",ExpressionUUID->"2d21d9a9-2d69-4e21-8bdc-902964519734", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[73923, 1970, 1039, 26, 70, "Subsection",ExpressionUUID->"f1c48354-57e4-439a-894c-cd2e847a4c42", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[75161, 2010, 1084, 26, 70, "Subsection",ExpressionUUID->"94711efc-b2be-4f00-a59c-2f7b2446b730", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[76801, 2051, 923, 26, 70, "Subsection",ExpressionUUID->"ac0923a3-fc3c-4a32-b513-f69c1b52d97a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[78063, 2090, 1874, 45, 70, "Subsection",ExpressionUUID->"38912294-6df5-488d-b24d-1f37ac99aad8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[101297, 2631, 955, 25, 70, "Subsection",ExpressionUUID->"18930b94-45d0-4750-ab91-8c18b5588973", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[102277, 2660, 1174, 31, 70, "Subsubsection",ExpressionUUID->"37b09aa3-e7df-46c5-bbf3-653edeef43e3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[103580, 2700, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c6c5b769-8821-4141-9a3e-74a95e2f1383", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[106831, 2798, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4de6d4e6-50bb-409e-967a-e9600d1b1b35", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[110300, 2901, 1913, 46, 70, "Subsubsection",ExpressionUUID->"c91fe80a-2f22-4c2a-b3ca-c32d1e6646a3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[116244, 3071, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cb1e1046-9d1c-4f0d-a128-bef0256aa4f7", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[118597, 3143, 1155, 28, 70, "Section",ExpressionUUID->"804db759-6db1-40a3-a176-be797ac9bbb6", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[120321, 3186, 1033, 26, 70, "Section",ExpressionUUID->"c9ac3bcd-f9ad-4b30-a0a1-49f59950ef91", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2102, 64, 4128, 103, 70, "Input",ExpressionUUID->"8b83f431-b137-4b43-aa71-1be9aec53d61", CellTags->"TabNext", CellID->373952827], Cell[10783, 304, 353, 13, 70, "Notes",ExpressionUUID->"7f09b47a-3ed5-4747-a2a0-6031b769e0d4", CellTags->"TabNext", CellID->852117508], Cell[76248, 2038, 516, 8, 70, "Text",ExpressionUUID->"27205818-4064-4157-8c07-d608fe198d92", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[119755, 3173, 529, 8, 70, "Text",ExpressionUUID->"8941a8ad-8ad3-42c2-bca2-05a6df074b85", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[121357, 3214, 515, 8, 70, "Text",ExpressionUUID->"aa9e7823-1619-4c6a-9211-56321591e0ef", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[6267, 172, 195, 5, 70, "Section",ExpressionUUID->"d84de27c-fe6c-4bc4-87e3-12a3a032f769", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[6267, 172, 195, 5, 70, "Section",ExpressionUUID->"d84de27c-fe6c-4bc4-87e3-12a3a032f769", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[61573, 1579, 249, 5, 70, "Section",ExpressionUUID->"0d260637-12ff-44d2-902a-ce5b45f61d89", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[6487, 181, 1980, 50, 70, "Subsection",ExpressionUUID->"10dd0cdd-1395-4a6c-ab03-6e7c04469572", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[9351, 270, 1429, 32, 70, "Subsection",ExpressionUUID->"c204846b-9fbc-4dfa-ad99-998b69599ffd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[9351, 270, 1429, 32, 70, "Subsection",ExpressionUUID->"c204846b-9fbc-4dfa-ad99-998b69599ffd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[12879, 391, 7025, 152, 70, "Section",ExpressionUUID->"65b02608-d6aa-4b05-b38a-779a4509d3c4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[61573, 1579, 249, 5, 70, "Section",ExpressionUUID->"0d260637-12ff-44d2-902a-ce5b45f61d89", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[61847, 1588, 1026, 26, 70, "Subsection",ExpressionUUID->"0fea27f3-c27c-4132-8cbe-595b04c8dbe7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[61847, 1588, 1026, 26, 70, "Subsection",ExpressionUUID->"0fea27f3-c27c-4132-8cbe-595b04c8dbe7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[62963, 1622, 996, 26, 70, "Subsection",ExpressionUUID->"bade444f-fbef-4f7e-b2ce-296a4d12f274", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[64289, 1668, 221, 6, 70, "Subsection",ExpressionUUID->"62e52f1a-6095-41e3-b72a-20394a9e8444", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[64513, 1676, 8198, 249, 70, "Output",ExpressionUUID->"6727a7fb-4e9e-4522-a8a9-936f1a9405f5", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336]}, "Categories-Checkboxes"->{ Cell[64513, 1676, 8198, 249, 70, "Output",ExpressionUUID->"6727a7fb-4e9e-4522-a8a9-936f1a9405f5", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336]}, "CheckboxCell"->{ Cell[64513, 1676, 8198, 249, 70, "Output",ExpressionUUID->"6727a7fb-4e9e-4522-a8a9-936f1a9405f5", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336], Cell[104696, 2731, 2098, 62, 70, "Output",ExpressionUUID->"f283b694-05d6-4ba7-8d6f-fc191488ef2d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[108114, 2833, 2149, 63, 70, "Output",ExpressionUUID->"8a99e6a2-a18e-49c8-a55e-303cd01d7509", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[112216, 2949, 3991, 117, 70, "Output",ExpressionUUID->"c001b72c-ee5a-4629-b06f-1c7314897ba6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[117318, 3100, 1218, 36, 70, "Output",ExpressionUUID->"47896b2e-27db-4741-a93e-ec0455bf49f7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[72748, 1930, 980, 26, 70, "Subsection",ExpressionUUID->"2d21d9a9-2d69-4e21-8bdc-902964519734", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[73923, 1970, 1039, 26, 70, "Subsection",ExpressionUUID->"f1c48354-57e4-439a-894c-cd2e847a4c42", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[75161, 2010, 1084, 26, 70, "Subsection",ExpressionUUID->"94711efc-b2be-4f00-a59c-2f7b2446b730", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[76248, 2038, 516, 8, 70, "Text",ExpressionUUID->"27205818-4064-4157-8c07-d608fe198d92", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[103454, 2693, 89, 2, 70, "Text",ExpressionUUID->"74e97ee1-849c-4ab1-8ccd-bd80c7758995", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[119755, 3173, 529, 8, 70, "Text",ExpressionUUID->"8941a8ad-8ad3-42c2-bca2-05a6df074b85", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[121357, 3214, 515, 8, 70, "Text",ExpressionUUID->"aa9e7823-1619-4c6a-9211-56321591e0ef", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[76801, 2051, 923, 26, 70, "Subsection",ExpressionUUID->"ac0923a3-fc3c-4a32-b513-f69c1b52d97a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[78063, 2090, 1874, 45, 70, "Subsection",ExpressionUUID->"38912294-6df5-488d-b24d-1f37ac99aad8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[78063, 2090, 1874, 45, 70, "Subsection",ExpressionUUID->"38912294-6df5-488d-b24d-1f37ac99aad8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[101297, 2631, 955, 25, 70, "Subsection",ExpressionUUID->"18930b94-45d0-4750-ab91-8c18b5588973", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[102277, 2660, 1174, 31, 70, "Subsubsection",ExpressionUUID->"37b09aa3-e7df-46c5-bbf3-653edeef43e3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[102277, 2660, 1174, 31, 70, "Subsubsection",ExpressionUUID->"37b09aa3-e7df-46c5-bbf3-653edeef43e3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[103454, 2693, 89, 2, 70, "Text",ExpressionUUID->"74e97ee1-849c-4ab1-8ccd-bd80c7758995", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[103580, 2700, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c6c5b769-8821-4141-9a3e-74a95e2f1383", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[104696, 2731, 2098, 62, 70, "Output",ExpressionUUID->"f283b694-05d6-4ba7-8d6f-fc191488ef2d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[103580, 2700, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c6c5b769-8821-4141-9a3e-74a95e2f1383", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[104696, 2731, 2098, 62, 70, "Output",ExpressionUUID->"f283b694-05d6-4ba7-8d6f-fc191488ef2d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[106831, 2798, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4de6d4e6-50bb-409e-967a-e9600d1b1b35", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[108114, 2833, 2149, 63, 70, "Output",ExpressionUUID->"8a99e6a2-a18e-49c8-a55e-303cd01d7509", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[106831, 2798, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4de6d4e6-50bb-409e-967a-e9600d1b1b35", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[108114, 2833, 2149, 63, 70, "Output",ExpressionUUID->"8a99e6a2-a18e-49c8-a55e-303cd01d7509", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[110300, 2901, 1913, 46, 70, "Subsubsection",ExpressionUUID->"c91fe80a-2f22-4c2a-b3ca-c32d1e6646a3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[112216, 2949, 3991, 117, 70, "Output",ExpressionUUID->"c001b72c-ee5a-4629-b06f-1c7314897ba6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[110300, 2901, 1913, 46, 70, "Subsubsection",ExpressionUUID->"c91fe80a-2f22-4c2a-b3ca-c32d1e6646a3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[112216, 2949, 3991, 117, 70, "Output",ExpressionUUID->"c001b72c-ee5a-4629-b06f-1c7314897ba6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[116244, 3071, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cb1e1046-9d1c-4f0d-a128-bef0256aa4f7", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[116244, 3071, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cb1e1046-9d1c-4f0d-a128-bef0256aa4f7", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[117318, 3100, 1218, 36, 70, "Output",ExpressionUUID->"47896b2e-27db-4741-a93e-ec0455bf49f7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[117318, 3100, 1218, 36, 70, "Output",ExpressionUUID->"47896b2e-27db-4741-a93e-ec0455bf49f7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[118597, 3143, 1155, 28, 70, "Section",ExpressionUUID->"804db759-6db1-40a3-a176-be797ac9bbb6", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[120321, 3186, 1033, 26, 70, "Section",ExpressionUUID->"c9ac3bcd-f9ad-4b30-a0a1-49f59950ef91", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 246669, 5576}, {"TemplateCell", 246852, 5580}, {"Title", 247187, 5587}, {"Description", 247369, 5591}, {"Definition", 247546, 5595}, {"Function", 247742, 5599}, {"TemplateCellGroup", 247947, 5603}, {"TabNext", 251785, 5664}, {"Documentation", 252580, 5680}, {"TemplateSection", 252773, 5684}, {"Usage", 253146, 5691}, {"Details & Options", 253340, 5695}, {"Notes", 253543, 5699}, {"Examples", 253749, 5703}, {"Source & Additional Information", 253959, 5707}, {"Contributed By", 254171, 5711}, {"ContributorInformation", 254406, 5715}, {"Keywords", 254627, 5719}, {"Categories", 254818, 5723}, {"Categories-Checkboxes", 255214, 5730}, {"CheckboxCell", 255427, 5734}, {"Related Symbols", 256552, 5750}, {"Related Resource Objects", 256764, 5754}, {"Source/Reference Citation", 256987, 5758}, {"DefaultContent", 257200, 5762}, {"Links", 257869, 5775}, {"Tests", 258052, 5779}, {"VerificationTests", 258269, 5783}, {"Compatibility", 258482, 5787}, {"CompatibilityWolframLanguageVersionRequired", 258712, 5791}, {"Wolfram Language Version", 258985, 5795}, {"ScrapeDefault", 259247, 5799}, {"CompatibilityOperatingSystem", 259451, 5803}, {"Operating System", 259922, 5810}, {"CompatibilityOperatingSystem-Checkboxes", 260187, 5814}, {"CompatibilityFeatures", 260445, 5818}, {"Required Features", 260897, 5825}, {"CompatibilityFeatures-Checkboxes", 261149, 5829}, {"CompatibilityEvaluationEnvironment", 261406, 5833}, {"Environments", 261888, 5840}, {"CompatibilityEvaluationEnvironment-Checkboxes", 262161, 5844}, {"Cloud Support", 262424, 5848}, {"CompatibilityCloudSupport", 262669, 5852}, {"CompatibilityCloudSupport-Checkboxes", 263148, 5859}, {"Author Notes", 263391, 5863}, {"Submission Notes", 263591, 5867} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[638, 23, 105, 2, 70, "Title",ExpressionUUID->"60b86773-0714-4c9c-9903-f924515a4595", CellTags->{"Name", "TemplateCell", "Title"}, CellID->408418585], Cell[746, 27, 122, 2, 70, "Text",ExpressionUUID->"78e22220-0e40-4e6b-8047-c40502ff94e7", CellTags->{"Description", "TemplateCell"}, CellID->14304281], Cell[CellGroupData[{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"4bce9e57-1013-4739-9123-930ebdff3958", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2102, 64, 4128, 103, 70, "Input",ExpressionUUID->"8b83f431-b137-4b43-aa71-1be9aec53d61", CellTags->"TabNext", CellID->373952827] }, Open ]], Cell[CellGroupData[{ Cell[6267, 172, 195, 5, 70, "Section",ExpressionUUID->"d84de27c-fe6c-4bc4-87e3-12a3a032f769", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[6487, 181, 1980, 50, 70, "Subsection",ExpressionUUID->"10dd0cdd-1395-4a6c-ab03-6e7c04469572", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[8492, 235, 387, 13, 70, "UsageInputs",ExpressionUUID->"d7a3b490-03da-4f38-9a54-f2a5a9a815fc", CellID->374612350], Cell[8882, 250, 420, 14, 70, "UsageDescription",ExpressionUUID->"5281b4a9-b456-4194-af61-555d8d182361", CellID->319845828] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9351, 270, 1429, 32, 70, "Subsection",ExpressionUUID->"c204846b-9fbc-4dfa-ad99-998b69599ffd", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[10783, 304, 353, 13, 70, "Notes",ExpressionUUID->"7f09b47a-3ed5-4747-a2a0-6031b769e0d4", CellTags->"TabNext", CellID->852117508], Cell[11139, 319, 1520, 59, 70, "Notes",ExpressionUUID->"9549ba4b-7c27-454a-b014-c4ac8c2b66ac", CellID->903165008], Cell[12662, 380, 168, 5, 70, "Notes",ExpressionUUID->"51fabfa1-4c18-4fd6-8dc8-034e6b398352", CellID->634667595] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12879, 391, 7025, 152, 70, "Section",ExpressionUUID->"65b02608-d6aa-4b05-b38a-779a4509d3c4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[19929, 547, 75, 2, 70, "Subsection",ExpressionUUID->"61c31a84-5cb6-4f9a-acb0-cf9b3eb46351", CellID->904125756], Cell[20007, 551, 717, 24, 70, "Text",ExpressionUUID->"f5c9b42a-0043-443b-a41e-1e06fe6ce5ca", CellID->859470770], Cell[CellGroupData[{ Cell[20749, 579, 787, 24, 70, "Input",ExpressionUUID->"d2cc6d96-1b9c-4951-97bb-3d9e8ee26522", CellID->839479160], Cell[21539, 605, 357, 9, 70, "Output",ExpressionUUID->"4c2f1b8b-8033-4ea6-b299-fc10315e2355", CellID->832758057] }, Open ]], Cell[21911, 617, 167, 4, 70, "Text",ExpressionUUID->"b3a0102c-272f-4ef6-b9d1-6ce5a6083b79", CellID->246128050], Cell[CellGroupData[{ Cell[22103, 625, 245, 7, 70, "Input",ExpressionUUID->"3513f1d8-679c-49bd-8d3f-52a5a59e09a6", CellID->391230172], Cell[22351, 634, 253, 7, 70, "Output",ExpressionUUID->"f01478ba-4cb3-45b0-bb27-865543ace11c", CellID->693494733] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22653, 647, 66, 2, 70, "Subsection",ExpressionUUID->"c146a9ab-275d-4d61-b8cd-239d9441454f", CellID->204653245], Cell[22722, 651, 252, 5, 70, "Text",ExpressionUUID->"5527ce63-3662-4aa0-96d7-059431572427", CellID->375906273], Cell[CellGroupData[{ Cell[22999, 660, 500, 15, 70, "Input",ExpressionUUID->"39237648-27e4-4fce-b53e-40b2550376c4", CellID->571621190], Cell[23502, 677, 305, 9, 70, "Output",ExpressionUUID->"ebe98747-2df5-40d9-80bd-763c8684e759", CellID->706057601] }, Open ]], Cell[CellGroupData[{ Cell[23844, 691, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"510f2a53-c615-4683-9019-99c9f5b75370", CellID->14107562], Cell[23990, 697, 314, 8, 70, "Text",ExpressionUUID->"6b1f85c1-4f88-45a2-81a3-3e6caaa9e39e", CellID->146933716], Cell[CellGroupData[{ Cell[24329, 709, 477, 14, 70, "Input",ExpressionUUID->"581d152c-bc94-4f76-80f5-63a50de90970", CellID->759925163], Cell[24809, 725, 268, 7, 70, "Output",ExpressionUUID->"5e68170e-a5ee-4003-bc4b-b71748677863", CellID->706136623] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25126, 738, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9cee8533-8971-4a2d-8853-b03232251dbf", CellID->14107563], Cell[25272, 744, 332, 8, 70, "Text",ExpressionUUID->"04d1b4e3-3fd4-496a-aa57-f3ba51d14031", CellID->11310318], Cell[CellGroupData[{ Cell[25629, 756, 1298, 40, 70, "Input",ExpressionUUID->"057e59c2-1ec3-463d-9a39-ee43c4900f79", CellID->894756320], Cell[26930, 798, 460, 11, 70, "Output",ExpressionUUID->"192a479e-e2a3-438c-a5fc-ca8ac2bc8567", CellID->792201329] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27439, 815, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"fa883ebb-e63b-4d06-bc6a-119b52d639d6", CellID->14107564], Cell[27585, 821, 337, 8, 70, "Text",ExpressionUUID->"7ee84c12-b2b4-4922-b6a9-4666e96de826", CellID->805725852], Cell[CellGroupData[{ Cell[27947, 833, 838, 28, 70, "Input",ExpressionUUID->"07894070-d8fb-46a1-864f-bfc9873df300", CellID->764539711], Cell[28788, 863, 4132, 75, 70, "Output",ExpressionUUID->"cdb11789-102d-4e48-a70c-deda603d13ca", CellID->204112720] }, Open ]], Cell[32935, 941, 172, 3, 70, "Text",ExpressionUUID->"fbdf2811-9234-41b3-a108-da4e245eb754", CellID->773693662], Cell[CellGroupData[{ Cell[33132, 948, 192, 5, 70, "Input",ExpressionUUID->"2920bf24-c4ae-49d3-a6ea-f6225e342199", CellID->370299159], Cell[33327, 955, 187, 5, 70, "Output",ExpressionUUID->"8a51ab8c-09c0-42b2-b3fa-e18f182376ee", CellID->282155728] }, Open ]], Cell[33529, 963, 315, 10, 70, "Text",ExpressionUUID->"7f0a4e06-3152-4d7f-b34d-f798c5c5f17b", CellID->520929935], Cell[CellGroupData[{ Cell[33869, 977, 289, 8, 70, "Input",ExpressionUUID->"d9784782-8ce6-42cc-9908-0cfa7e99131c", CellID->726213782], Cell[34161, 987, 1315, 22, 70, "Output",ExpressionUUID->"1f1212d4-fecc-4cfc-905d-82af8b2ce229", CellID->276155592] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[35537, 1016, 85, 2, 70, "Subsection",ExpressionUUID->"6cc34a92-b449-4e6b-9c9b-2d1340da8903", CellID->232113220], Cell[35625, 1020, 161, 3, 70, "Text",ExpressionUUID->"fd99a5ae-4b77-467a-8323-7d655da2ec59", CellID->588953663], Cell[CellGroupData[{ Cell[35811, 1027, 1312, 40, 70, "Input",ExpressionUUID->"061ec8ab-9596-4752-a259-ef7693da3393", CellID->206008407], Cell[37126, 1069, 187, 5, 70, "Output",ExpressionUUID->"582c43de-259e-40e1-b4fc-470a896402b3", CellID->153715877] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[37362, 1080, 120, 3, 70, "Subsection",ExpressionUUID->"429a28a5-d45a-4fa3-8949-ef742172a588", CellID->158766396], Cell[37485, 1085, 277, 5, 70, "Text",ExpressionUUID->"1324bc5d-2727-4ea2-adc0-ab0da44c37c8", CellID->248809480], Cell[CellGroupData[{ Cell[37787, 1094, 529, 16, 70, "Input",ExpressionUUID->"6a407c08-dab1-4ab1-b37d-9c3c4be39464", CellID->610921176], Cell[38319, 1112, 501, 10, 70, "Message",ExpressionUUID->"752909da-5fa3-4038-bb1b-463b549fa135", CellID->803672805], Cell[38823, 1124, 237, 5, 70, "Output",ExpressionUUID->"52b0409f-2a7a-47cd-a45f-d1c1398bdf1a", CellID->165530704] }, Open ]], Cell[CellGroupData[{ Cell[39097, 1134, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"04b26dfb-725a-4357-b4f1-9c7c951daa7e", CellID->14107565], Cell[39243, 1140, 275, 7, 70, "Text",ExpressionUUID->"07b860bd-aaed-47ce-94ac-fd13e595dabe", CellID->721747162], Cell[CellGroupData[{ Cell[39543, 1151, 584, 18, 70, "Input",ExpressionUUID->"d7b2b11e-bd24-4904-aee9-b67d4e3b7a71", CellID->400971390], Cell[40130, 1171, 603, 12, 70, "Message",ExpressionUUID->"3519b72b-c200-46ce-ba34-86a209cbc808", CellID->191708315], Cell[40736, 1185, 264, 6, 70, "Output",ExpressionUUID->"ca3865ef-901a-40fe-8daf-9e02e8740ec9", CellID->734344692] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[41061, 1198, 74, 2, 70, "Subsection",ExpressionUUID->"dc22c9ab-c8e6-4df9-a289-da0d55645e70", CellID->461278909], Cell[41138, 1202, 175, 3, 70, "Text",ExpressionUUID->"ed817176-24c0-413e-8c9e-78b57e31279f", CellID->469952397], Cell[CellGroupData[{ Cell[41338, 1209, 1779, 53, 70, "Input",ExpressionUUID->"49e99d4d-30a1-40ba-bb47-2515ca448d0f", CellID->953198528], Cell[43120, 1264, 18392, 308, 70, "Output",ExpressionUUID->"2d712e97-9c7b-438f-ad2b-b83a454ad337", CellID->498101587] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[61573, 1579, 249, 5, 70, "Section",ExpressionUUID->"0d260637-12ff-44d2-902a-ce5b45f61d89", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[61847, 1588, 1026, 26, 70, "Subsection",ExpressionUUID->"0fea27f3-c27c-4132-8cbe-595b04c8dbe7", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[62876, 1616, 50, 1, 70, "Text",ExpressionUUID->"20092cff-a050-4ace-bbff-514eed024996", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[62963, 1622, 996, 26, 70, "Subsection",ExpressionUUID->"bade444f-fbef-4f7e-b2ce-296a4d12f274", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[63962, 1650, 59, 1, 70, "Item",ExpressionUUID->"57e4e9d3-4504-4ecf-8207-75924e383498", CellID->139547316], Cell[64024, 1653, 47, 1, 70, "Item",ExpressionUUID->"e85b26e2-6d6c-4b1d-a4a7-83680f6b5fe0", CellID->30510820], Cell[64074, 1656, 71, 1, 70, "Item",ExpressionUUID->"4d2bad7f-be88-42f5-8e52-41b649762be6", CellID->450348137], Cell[64148, 1659, 47, 1, 70, "Item",ExpressionUUID->"c4c5a336-b519-4f79-8751-44dbad22b418", CellID->157798962], Cell[64198, 1662, 54, 1, 70, "Item",ExpressionUUID->"89b06451-c3cf-461f-a0c6-1b33587507d4", CellID->440766958] }, Open ]], Cell[CellGroupData[{ Cell[64289, 1668, 221, 6, 70, "Subsection",ExpressionUUID->"62e52f1a-6095-41e3-b72a-20394a9e8444", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[64513, 1676, 8198, 249, 70, "Output",ExpressionUUID->"6727a7fb-4e9e-4522-a8a9-936f1a9405f5", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->560474336] }, Open ]], Cell[CellGroupData[{ Cell[72748, 1930, 980, 26, 70, "Subsection",ExpressionUUID->"2d21d9a9-2d69-4e21-8bdc-902964519734", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[73731, 1958, 50, 1, 70, "Item",ExpressionUUID->"621b9e42-35ce-41ae-bb42-d27d309ef9da", CellID->770416164], Cell[73784, 1961, 49, 1, 70, "Item",ExpressionUUID->"465d5903-ea74-4899-8245-c92c6a367fc9", CellID->416121088], Cell[73836, 1964, 50, 1, 70, "Item",ExpressionUUID->"3a0af62e-e70b-42c7-8f81-decdc2d5ad0c", CellID->334104487] }, Open ]], Cell[CellGroupData[{ Cell[73923, 1970, 1039, 26, 70, "Subsection",ExpressionUUID->"f1c48354-57e4-439a-894c-cd2e847a4c42", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[74965, 1998, 52, 1, 70, "Item",ExpressionUUID->"3ccfcae1-5c25-4339-969c-f84decdf1add", CellID->293040996], Cell[75020, 2001, 51, 1, 70, "Item",ExpressionUUID->"f217e23e-f6ea-4a6b-8367-9a10247fae8b", CellID->314809444], Cell[75074, 2004, 50, 1, 70, "Item",ExpressionUUID->"53efb911-6d9b-4041-b1ce-4e446bcd5367", CellID->974244990] }, Open ]], Cell[CellGroupData[{ Cell[75161, 2010, 1084, 26, 70, "Subsection",ExpressionUUID->"94711efc-b2be-4f00-a59c-2f7b2446b730", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[76248, 2038, 516, 8, 70, "Text",ExpressionUUID->"27205818-4064-4157-8c07-d608fe198d92", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[76801, 2051, 923, 26, 70, "Subsection",ExpressionUUID->"ac0923a3-fc3c-4a32-b513-f69c1b52d97a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[77727, 2079, 299, 6, 70, "Item",ExpressionUUID->"d2c5d991-1d85-4d5f-ba47-ab0972cf15fc", CellID->828947884] }, Open ]], Cell[CellGroupData[{ Cell[78063, 2090, 1874, 45, 70, "Subsection",ExpressionUUID->"38912294-6df5-488d-b24d-1f37ac99aad8", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[79962, 2139, 564, 18, 70, "Input",ExpressionUUID->"b208a32e-a436-4b1c-81c2-5b54c891a77f", CellID->538680743], Cell[80529, 2159, 9144, 201, 70, "Output",ExpressionUUID->"a33565a1-45f5-4869-b02d-7d79e9c20b04", CellID->372154798] }, Open ]], Cell[CellGroupData[{ Cell[89710, 2365, 1550, 45, 70, "Input",ExpressionUUID->"adbdbd1d-04a2-4a00-be95-bce96829c2a4", CellID->18438729], Cell[91263, 2412, 9985, 213, 70, "Output",ExpressionUUID->"ff10b32b-6d3d-4500-ad3e-3fa0981d5fff", CellID->172193131] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101297, 2631, 955, 25, 70, "Subsection",ExpressionUUID->"18930b94-45d0-4750-ab91-8c18b5588973", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[102277, 2660, 1174, 31, 70, "Subsubsection",ExpressionUUID->"37b09aa3-e7df-46c5-bbf3-653edeef43e3", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[103454, 2693, 89, 2, 70, "Text",ExpressionUUID->"74e97ee1-849c-4ab1-8ccd-bd80c7758995", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[103580, 2700, 1113, 29, 70, "Subsubsection",ExpressionUUID->"c6c5b769-8821-4141-9a3e-74a95e2f1383", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[104696, 2731, 2098, 62, 70, "Output",ExpressionUUID->"f283b694-05d6-4ba7-8d6f-fc191488ef2d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[106831, 2798, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4de6d4e6-50bb-409e-967a-e9600d1b1b35", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[108114, 2833, 2149, 63, 70, "Output",ExpressionUUID->"8a99e6a2-a18e-49c8-a55e-303cd01d7509", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[110300, 2901, 1913, 46, 70, "Subsubsection",ExpressionUUID->"c91fe80a-2f22-4c2a-b3ca-c32d1e6646a3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[112216, 2949, 3991, 117, 70, "Output",ExpressionUUID->"c001b72c-ee5a-4629-b06f-1c7314897ba6", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[116244, 3071, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cb1e1046-9d1c-4f0d-a128-bef0256aa4f7", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[117318, 3100, 1218, 36, 70, "Output",ExpressionUUID->"47896b2e-27db-4741-a93e-ec0455bf49f7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[118597, 3143, 1155, 28, 70, "Section",ExpressionUUID->"804db759-6db1-40a3-a176-be797ac9bbb6", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[119755, 3173, 529, 8, 70, "Text",ExpressionUUID->"8941a8ad-8ad3-42c2-bca2-05a6df074b85", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[120321, 3186, 1033, 26, 70, "Section",ExpressionUUID->"c9ac3bcd-f9ad-4b30-a0a1-49f59950ef91", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[121357, 3214, 515, 8, 70, "Text",ExpressionUUID->"aa9e7823-1619-4c6a-9211-56321591e0ef", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)