(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 273355, 5701] NotebookOptionsPosition[ 120267, 2790] NotebookOutlinePosition[ 263410, 5492] CellTagsIndexPosition[ 261601, 5442] WindowTitle->BilliardPolygon | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BilliardPolygon", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384194811], Cell["\<\ Show the trajectory of a ball bouncing in a regular n-sided polygon\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->842034746], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{ RowBox[{"BilliardPolygon", "[", RowBox[{"sides_", ",", " ", "start_", ",", " ", "angle_", ",", " ", "n_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "impderiv", ",", " ", "corners", ",", " ", "cushions", ",", " ", "slopes", ",", " ", "pos", ",", " ", "dir", ",", " ", "traj", ",", " ", "slope", ",", " ", "path", ",", " ", "solns", ",", " ", "solnrules", ",", " ", "hit", ",", " ", RowBox[{"eps", " ", "=", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "10"}], ")"}]}]}], ",", " ", "lineFromCorners"}], "}"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"impderiv", "[", RowBox[{"{", RowBox[{"x1_", ",", " ", "y1_"}], "}"}], "]"}], " ", ":=", " ", RowBox[{"slopes", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"First", "[", "#1", "]"}], " ", "-", " ", RowBox[{"Last", "[", "#1", "]"}]}], " ", "&"}], " ", ")"}], " ", "/@", " ", "cushions"}], " ", "/.", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "y"}], "}"}], " ", "->", " ", RowBox[{"{", RowBox[{"x1", ",", " ", "y1"}], "}"}]}], "]"}]}], ",", " ", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "#1", "]"}], " ", "<", " ", "eps"}], " ", "&"}], " ", ")"}]}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"lineFromCorners", "[", RowBox[{"{", RowBox[{ RowBox[{"p1", ":", RowBox[{"{", RowBox[{"x1_", ",", " ", "y1_"}], "}"}]}], ",", " ", RowBox[{"p2", ":", RowBox[{"{", RowBox[{"x2_", ",", " ", "y2_"}], "}"}]}]}], "}"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"aslope", " ", "=", " ", RowBox[{"Divide", " ", "@@", " ", RowBox[{"Reverse", "[", RowBox[{"p1", " ", "-", " ", "p2"}], "]"}]}]}], "}"}], ",", " ", RowBox[{"y", " ", "==", " ", RowBox[{"y1", " ", "+", " ", RowBox[{"aslope", "*", RowBox[{"(", RowBox[{"x", " ", "-", " ", "x1"}], ")"}]}]}]}]}], "]"}]}], ";", " ", RowBox[{"corners", " ", "=", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "#1", "]"}], ",", " ", RowBox[{"Sin", "[", "#1", "]"}]}], "}"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"0.1", ",", " ", RowBox[{ RowBox[{"2", "*", "Pi"}], " ", "+", " ", "0.1"}], ",", " ", RowBox[{"2", "*", RowBox[{"(", RowBox[{"Pi", "/", "sides"}], ")"}]}]}], "]"}]}], ",", " ", "2", ",", " ", "1"}], "]"}]}], ";", " ", RowBox[{"slopes", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Divide", " ", "@@", " ", RowBox[{"Reverse", "[", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "-", " ", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], " ", "&"}], " ", ")"}], " ", "/@", " ", "corners"}]}], ";", " ", RowBox[{"cushions", " ", "=", " ", RowBox[{"lineFromCorners", " ", "/@", " ", "corners"}]}], ";", " ", RowBox[{"traj", " ", "=", " ", RowBox[{"{", RowBox[{"pos", " ", "=", " ", "start"}], "}"}]}], ";", " ", RowBox[{"slope", " ", "=", " ", RowBox[{"Tan", "[", RowBox[{"dir", " ", "=", " ", "angle"}], "]"}]}], ";", " ", RowBox[{"path", " ", "=", " ", RowBox[{ RowBox[{"y", " ", "-", " ", RowBox[{"pos", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "==", " ", RowBox[{"slope", "*", RowBox[{"(", RowBox[{"x", " ", "-", " ", RowBox[{"pos", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}]}], ";", " ", RowBox[{"solnrules", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{"path", ",", " ", RowBox[{"Or", " ", "@@", " ", "cushions"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"solns", " ", "=", " ", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "y"}], "}"}], " ", "/.", " ", "solnrules"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Plus", " ", "@@", " ", RowBox[{"(", RowBox[{"#1", "^", "2"}], ")"}]}], " ", "<=", " ", "1."}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"hit", " ", "=", " ", RowBox[{"Select", "[", RowBox[{"solns", ",", " ", RowBox[{ RowBox[{"And", " ", "@@", " ", RowBox[{"Thread", "[", RowBox[{"#1", " ", ">", " ", "pos"}], "]"}]}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"AppendTo", "[", RowBox[{"traj", ",", " ", RowBox[{"hit", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", " ", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"slope", " ", "=", " ", RowBox[{"Tan", "[", RowBox[{ RowBox[{"2", "*", "Pi"}], " ", "-", " ", RowBox[{"(", RowBox[{ RowBox[{"ArcTan", " ", "@@", " ", RowBox[{"(", RowBox[{ RowBox[{"hit", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "-", " ", "pos"}], ")"}]}], " ", "-", " ", RowBox[{"ArcTan", "[", RowBox[{"impderiv", "[", RowBox[{"hit", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], ")"}], " ", "+", " ", RowBox[{"ArcTan", "[", RowBox[{"impderiv", "[", RowBox[{"hit", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{"pos", " ", "=", " ", RowBox[{"hit", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", RowBox[{"path", " ", "=", " ", RowBox[{ RowBox[{"y", " ", "-", " ", RowBox[{"pos", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "==", " ", RowBox[{"slope", "*", RowBox[{"(", RowBox[{"x", " ", "-", " ", RowBox[{"pos", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}]}], ";", " ", RowBox[{"solnrules", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{"path", ",", " ", RowBox[{"Or", " ", "@@", " ", "cushions"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"solns", " ", "=", " ", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "y"}], "}"}], " ", "/.", " ", "solnrules"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Plus", " ", "@@", " ", RowBox[{"(", RowBox[{"#1", "^", "2"}], ")"}]}], " ", "<=", " ", "1."}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"hit", " ", "=", " ", RowBox[{"Select", "[", RowBox[{"solns", ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", " ", "-", " ", "pos"}], ")"}], " ", ".", " ", RowBox[{"(", RowBox[{"#1", " ", "-", " ", "pos"}], ")"}]}], " ", ">", " ", "eps"}], " ", "&"}]}], " ", "]"}]}], ";", " ", RowBox[{"AppendTo", "[", RowBox[{"traj", ",", " ", RowBox[{"hit", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ",", " ", RowBox[{"{", "n", "}"}]}], "]"}], ";", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"0", ",", " ", "0.75", ",", " ", "0.15"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "#1", "]"}], ",", " ", RowBox[{"Sin", "[", "#1", "]"}]}], "}"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"0.1", ",", " ", RowBox[{ RowBox[{"2", "*", "Pi"}], " ", "+", " ", "0.1"}], ",", " ", RowBox[{"2", "*", RowBox[{"(", RowBox[{"Pi", "/", "sides"}], ")"}]}]}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"Line", "[", "traj", "]"}]}], "}"}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Frame", " ", "->", " ", "False"}], ",", " ", RowBox[{"Axes", " ", "->", " ", "False"}], ",", " ", RowBox[{"ImageSize", " ", "->", " ", RowBox[{"{", RowBox[{"400", ",", " ", "400"}], "}"}]}]}], "]"}]}]}], "]"}]}]], "Input", InitializationCell->True, CellID->417191076] }, 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[{"BilliardPolygon", "[", RowBox[{ StyleBox["sides", "TI"], ",", StyleBox["pos", "TI"], ",", StyleBox["\[Theta]", "TI"], ",", StyleBox["t", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->402000191], Cell[TextData[{ "gives the trajectory of a ball in a regular ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], StyleBox["-", FontSlant->"Italic"], "sided polygon starting from position ", Cell[BoxData[ StyleBox["pos", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with an angle ", Cell[BoxData[ StyleBox["\[Theta]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " steps." }], "UsageDescription", CellID->285759354] }, 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["\<\ Mathematical billiards consists of a ball bouncing with no friction against \ the sides of a plane or higher-dimensional object, in this case, a regular \ polygon. The trajectories show interesting behavior related to dynamical \ systems theory.\ \>", "Notes", CellTags->"TabNext", CellID->661410803] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Start with a triangle with a hundred steps:", "Text", CellChangeTimes->{ 3.759167775091743*^9, {3.759172960897339*^9, 3.759172963484918*^9}, 3.759931490319127*^9, {3.75993551351795*^9, 3.7599355213520308`*^9}, { 3.7599356394576*^9, 3.759935647073991*^9}, {3.7604662198921137`*^9, 3.760466227878819*^9}}, CellID->818817568], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BilliardPolygon", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"0.155`", ",", "0.27`"}], "}"}], ",", "0.508`", ",", "100"}], "]"}]], "Input", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.759067762916527*^9, {3.7590710431349993`*^9, 3.7590710665998487`*^9}}, CellLabel->"In[11]:=", CellID->427580057], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0.75, 0.15], Thickness[0.01], LineBox[{{0.9950041652780257, 0.09983341664682815}, {-0.5839603576017621, 0.8117821756786866}, {-0.41104380767626414`, -0.9116155923255144}, { 0.9950041652780258, 0.09983341664682754}}]}, LineBox[CompressedData[" 1:eJwVlHs41IkexsftVC5JHLVKOLlELiVpN5lvksGScis7GVu2od3OotiUzTFr s7msTbKzuyKMcXRBqZDr16U8W8MwDHNbZn4xmZlMkohiHeeP93n/fJ/P87zv axUdH0LXJJFIMSv6vwvKEzx1BV3gR6SY1Pjy4LGe3sjW7QKo+sj4r6pSCD3M tqVqIxkwfV3NPgT2Y148xZfhTaCGr6IpjSmAq4ktv74K7EWTr5uHK8XjcE9U PFa7sR+zHxn39aUpMYe5R7cwVoLXeyruHXs4gaS2mtTSqJdQcnf2MHu6BUt9 ki/MMV5DjGHoiZYTbXA8QJFUkfIa4udWVWY21sJzPc3iY0ICDW2pXg+YBFix NSNdOYOYwc+TpWu9hFjtnBHuUgHGH1xTl+o8jgFfjJXlDIygTfCa0vFDAgyv /OpTqXIYjJ7UpEc8FcLZI92nXeyHQSttmHY0RYBP/9hqXX9Zihn2ufmSwkYk m4e8oHULIKG0a2rypBAk4tPiTUEyuDt+W7x+sg8jVEwXUiCBt9zUjydBCMoL QSRaJBc3R7Pn9i+MQ9Gs98ZJVj/yUhvOXalV4uIm77WtERKkJCzZfL00gb/0 j15qSB0HfY91SYWyLvzmyYC5medrcBAUfpkRjpDp+Ss1c/druHFfmcXZfh/y uasslP0EzqRrckoDCei93nx03mUQHe1cdS7L5HDTKiPPVpaNFoWFUTpa49gU dPlcztgIdpzSZiWzh7GtwuxH2+hhYNUxOrM1RVC129Jt9uYQsNZtqXg6IkCq hcs20XdSjPb63Cf2VTPaO/0x8dsKt9rnH59NbRICZYtxQ1a2DJY8phg7yX24 ij6xgRFGYKLl2/ovlEI48L3sG+6ZPuyh5pqKN8hh2VAVaOvEwzOU46YwpsQb ZUHrZf4SNDIOL0rxVaDZxNpL3KIXwCmwaY/2e4ZV3s5dngtqKAk662Jn0w6O Ow7sP/NGDfFcpmjzvmoIvmZQlvKMwEzpnbCrmgTw05OC2woGsObioH1GqxyK whScqKxkZE1tX50rGEOPgzbeOe9G8GHycrnuxyEsKef1fisegoTKEM1WEAHN LGW5yWQIjrDok25eQpSz9zouxkhxmLpq/q1HG5Z7yiZ5i0Kwf+WXPj0kgOmT rdffd6/0P9/N7kgeF9ule0gkGoEL+u8fdeeL4AQ0qko8+/Fm6Hn3RHc5yBzy fjjRwMNThsuNcyYqtLajmmp5SNCvvmr9z9cUOLNI/l7eLIP8N3v1t9/n4kxn 1umTdWoo2/nPezkl7SD615RN0F01rPWjlrAs78C2MOOt+p0ErvEMHU19LAN+ olPg5QUelvUkBf1UuJL3eNyaXE8F9GmtNakaw9TPuo1zdEZRN/dDRXHwEKaU Z26sCxkC6u/WB6YuicBSg/+ckc2Hv1yrd7HZQmQ7UHZYREjR0j06HCjtKA2w e6v3uwhOX8vhzFwVwCN2bAJdiwDOq4u9cS968Rg1U5FGJxDnPj7YtU8McrJm acTTfpwK+PKofrgcTnm71xd6DWCUgEWroahwtopuZusowc0R2lnFEgXedRt9 N183AiGbtlUt6A3gDm+5QcZZNUysb3R+80kHpJoW6e2MUYPjn+b0bTqVYLDh k4rippX93/gY++84GQjoLymfR/Gwz8I08UqyHFr8nKbI59JBtyjoeBFjDB84 x45nm46igjVbueMWH9PK4avF53xwzZr7wapJBKIJJyaFxIfIrncpxqtFGHk/ 2O2AvxS9sN05I64DC6lx7312iSFuD9dkzl8AzRNGhwaBAPJBTMx168VFvrB/ +VsCnxCk2lK5GDIhINzoEA8ZB/3OVyTKIYP2l4rPGcCBEopGzAUVlrie3eJv LsHqD8eXa2yUyIolz9i+E8GHLteVl+LjbOf+h7ec1KA5G1kTVtABd9b4Txtb qeHafsKhRlkOCtEWO5eHBLbPl09TrWXgd6zEa11XP0rONfyWGSYHn6VRfUl3 HoS/lWpbh48hsXV1XbbdKBo0vrnd9fcgmrPnqr29+fDk4p8doe9FkNp35aT+ +UE4HLqvM/2MCN3caZ/S90pRg2KxmsPsxNuxdYtpXDHsHl0XNa8lAA2HFnuv SwSIb2qbVf3Ug/85bN+Ydp5A9TOdewZXJVDrWaD7nM/DH/ftZJLz5UBLSrcw PDqIwbEqtvkdFf4PySVphg== "]]}, AspectRatio->Automatic, Axes->False, Frame->False, ImageSize->{400, 400}]], "Output", CellChangeTimes->{3.75906777123442*^9, 3.759068070471959*^9, 3.759068263894373*^9, 3.759068338687994*^9, 3.759068927854226*^9, 3.759069018295637*^9, 3.7590710672587957`*^9}, CellLabel->"Out[11]=", CellID->961673865] }, Open ]], Cell["15 steps in the evolution for several geometries:", "Text", CellChangeTimes->{ 3.759167775091743*^9, {3.759172960897339*^9, 3.759172963484918*^9}, 3.759931490319127*^9, {3.759935546776731*^9, 3.759935547290999*^9}, { 3.759935579349915*^9, 3.759935583008292*^9}, {3.759935808654603*^9, 3.759935812584998*^9}}, CellID->349559082], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"BilliardPolygon", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{".01", ",", ".1"}], "}"}], ",", FractionBox["\[Pi]", "12"], ",", "15"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "5"}], "}"}]}], "]"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]], "Input", CellChangeTimes->{{3.759069047067308*^9, 3.759069065544783*^9}}, CellLabel->"In[9]:=", CellID->912816015], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{ {RGBColor[0, 0.75, 0.15], Thickness[0.01], LineBox[{{0.9950041652780257, 0.09983341664682815}, {-0.5839603576017621, 0.8117821756786866}, {-0.41104380767626414`, -0.9116155923255144}, { 0.9950041652780258, 0.09983341664682754}}]}, LineBox[{{0.01, 0.1}, {0.6276125997680365, 0.26548879734313163`}, { 0.7851790273261792, -0.051105549818849384`}, {0.3379991305879306, 0.3960743469194003}, {-0.5477496442080273, 0.4508828709707786}, {-0.06840854016010028, 0.5793219326994623}, { 0.38766654905222797`, -0.337058525775665}, {-0.5641966883365166, 0.614804711613086}, {-0.4682148997804832, 0.7595930138163668}, {-0.5486170578904815, 0.45952807471167}, {-0.009845929221720423, -0.6230115017324785}, \ {-0.4879735861403517, -0.1448838448138435}, {-0.02181611917714811, 0.5583135972882252}, {-0.41230755434196903`, -0.8990202786673547}, \ {-0.40735840749566726`, -0.9089644776892911}, {-0.411750483944187, \ -0.9045724012407714}, {0.4245826614261996, 0.35703418076007776`}}]}, AspectRatio->Automatic, Axes->False, Frame->False, ImageSize->{400, 400}], {215., -210.}, ImageScaled[{0.5, 0.5}], {400, 400}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0.75, 0.15], Thickness[0.01], LineBox[{{0.9950041652780257, 0.09983341664682815}, {-0.09983341664682818, 0.9950041652780257}, {-0.9950041652780258, -0.09983341664682811}, { 0.09983341664682761, -0.9950041652780258}, {0.9950041652780258, 0.09983341664682754}}]}, LineBox[{{0.01, 0.1}, {0.7517257886645285, 0.29874482607799807`}, { 0.718490983152969, -0.23835572118085216`}, {-0.44446616177689685`, \ -0.5499691489968129}, {-0.3692559284311223, 0.6654872638722541}, { 0.13720653488926352`, 0.8011934719156287}, { 0.029613741295286454`, -0.937590535721607}, { 0.17964595958438126`, -0.8973895239923942}, {0.27764588559234615`, 0.6863662128027911}, {-0.5288810143062299, 0.4702579813009902}, {-0.5849055124799799, -0.43514188988397556`}, { 0.8781160690280782, -0.04312643860958705}, {0.892165139367613, 0.183917566965159}, {-0.790583564300804, -0.26697358924731435`}, \ {-0.7626572068061224, 0.18433827078816456`}, {0.48332393741316787`, 0.5181979121661325}, {0.4134221520842696, -0.6114698134795735}}]}, AspectRatio->Automatic, Axes->False, Frame->False, ImageSize->{400, 400}], {645., -210.}, ImageScaled[{0.5, 0.5}], {400, 400}], InsetBox[ GraphicsBox[{ {RGBColor[0, 0.75, 0.15], Thickness[0.01], LineBox[{{0.9950041652780257, 0.09983341664682815}, { 0.21252597509879392`, 0.977155417478871}, {-0.8636558891747573, 0.5040818436462072}, {-0.7462946691928064, -0.6656157049938047}, { 0.4024204179907434, -0.915454972778102}, {0.9950041652780258, 0.09983341664682754}}]}, LineBox[{{0.01, 0.1}, {0.8048907891399638, 0.31299034502099127`}, { 0.3264994387090959, -0.898942573763913}, {0.41303938013995767`, 0.752337877626335}, {-0.2110546104097475, 0.790955679270197}, {-0.8173210499763486, 0.04227897694677253}, { 0.321497180584793, -0.8978546098980357}, { 0.4295992915382971, -0.8688887365679447}, {-0.020053521614766267`, 0.874916922886921}, { 0.7527901120031409, -0.31515791102845236`}, {-0.7910426646900883, \ -0.2196283452187911}, {0.8804686253569746, 0.22825175508882128`}, { 0.48456039467382617`, -0.7747225193219687}, { 0.37536295841531186`, -0.9095701228585249}, {-0.07819005524146336, 0.8493609656216594}, { 0.7174161008603127, -0.37576507915466534`}, {-0.7847026818875008, \ -0.2828166994617591}}]}, AspectRatio->Automatic, Axes->False, Frame->False, ImageSize->{400, 400}], {1075., -210.}, ImageScaled[{0.5, 0.5}], {400, 400}]}, {}}, ContentSelectable->True, ImageSize->600, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.759069038103861*^9, 3.7590690661442423`*^9}}, CellLabel->"Out[9]=", CellID->408406243] }, Open ]], Cell["Increment gradually the initial position in y-axis:", "Text", CellChangeTimes->{ 3.759167775091743*^9, {3.759172960897339*^9, 3.759172963484918*^9}, 3.759931490319127*^9, {3.759935546776731*^9, 3.759935547290999*^9}, { 3.759935579349915*^9, 3.759935583008292*^9}, {3.759935808654603*^9, 3.759935812584998*^9}, {3.759936196614354*^9, 3.759936239785404*^9}}, CellID->333612097], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"BilliardPolygon", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{".1", ",", "dx"}], "}"}], ",", FractionBox["\[Pi]", "12"], ",", "50"}], "]"}], ",", RowBox[{"{", RowBox[{"dx", ",", "0", ",", ".5", ",", ".01"}], "}"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.759069047067308*^9, 3.759069065544783*^9}, { 3.759935832602792*^9, 3.759935945236609*^9}, {3.759935976697639*^9, 3.759936025581197*^9}, {3.759936058238886*^9, 3.759936058382042*^9}, { 3.759936313889217*^9, 3.7599363291102657`*^9}}, CellLabel->"In[36]:=", CellID->499659762], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvQ2UXdV153n9gajwIQTGdhkwCCLZFdK2ZRs7FQcnMl7pVCcTozgENHYT 42DsatyJhR2ayoq9ajoEV2STLkzaXYNJN8okQ7XdoZUMjBWaTBTjkArGpBrT qIYmiiDAkolCV2sIFoSm7/xf7aqtrfN1zz3nvu/9WwVLenp13333vfO7+3zs fc79hU998OOvLIriMyP43wc/et37Pv3pj/7Kz27AX37ulz7zzz7xS1d97J/8 0i9f9YmrPj3+C6/CgwdfURTfxH+tP//D/yz1R3/0R3/0J+fnLkVRFCWDvz/y P+j/+qM/+qM/+pPwI0VaKoqiKPVRkSqKomSiIlUURclERaooipKJilRRFCUT FamiKEomKlJFUZRMVKQd44EHHrjpppt2+MG/4jndPk1FUWqjIu0Y8OT+/fv/ hx/8686dO7/3ve91+0wVRamHirRjIOaELf8/P/hXPOfxxx/v9pkqilIPFWnH gCRfeumlw37wr3jOd77znW6fqaIo9VCRdgwS6X/3QyJdXFzs9pkqilIPFWnH IJEu+1GRtpXf+q3fuu666wKTfQBPwNOaPUJnXjfmOEr7UJF2DBLpf/OjIm0f O7/whS996Uvf/e53A5N9AE/A0/Dkpo7QsdetPI7SVhoR6WM3vad4z02PNXha gwgk+Q//8A9/5wf/qiJtE9dee+3f/u3f4goHJvsAnoCn4clNHaFjr1t5HKWt qEg7Bon0kB8VafvYUbVkgqG1E00doZOvGz6O0lZUpB0DX+/vfe97j/nBv6pI 28SOqiUTxtqJpo7QydcNH0dpKyrSjqEi7SI7qpZMGGsnmjpCJ183fBylrSSL 9OsfL1Z5z01fXxNpy6jFx7+++pRj/zb0qEi7yA5rycS9994bWDsRc4Tw6ouc 30p73fBxlLaSJtIVi64pcsWXHJHin1b/ePRPSgsVaRehAepnBaeccsqf/umf PmtBI9UxR/jrv/7r97///RdccMHS0pLvCPZv+Yh/3bTjKG0lSaQtj8pI85iu /epfVKMmKtIuYi+ZwM2fXOpcO1F5hD/6oz/avHnzV7/6Vf6D8wj8W3/4h38I 5e7bt0++1v79+6Fi/FP86zqR70JF2hVSRGp61BwjPTZEreDW3/7tPxgOIkU6 Ozvb7TPte/7b8rLxNbOXTNC4FFy6d+9ee+2E/UWVR/jsZz8LKz7yyCP017/6 q7+66KKLPvWpT9lHkL+1Z88eUq7zrzGv60O+CxVpV2iHSKnnHylSfO0P/u3f DsNPpEj/+E/+pOun2u8/L7/8svE1o4u/X7A2xF+sX7/+zjvv5MfpU7C/qHyE 22+/fXJycr/Ftddei38yjmC8LrobP/qjP4pfx5Pf/va3/8Vf/EWt1/WBd3HC CSfMzMwEjqO0lRSRWpP0LXEefWClU//12Il8BA8xKRsDQKRIH3zwwW6fad/j E6m82oXgh37oh4xPwf6i2kfAJwUrbtmy5c///M/tz9H3W+CXf/mXP/GJTzg/ fd/r/t7v/d4P+eE7Ap6mIu0KSWOkK3131iTN36/+9ahkdU2UgY6RdhG6+P9V wBb9gR/4gW9/+9v8eFho/LSvfe1r55133m//9m/zH5xH4N/63d/9XSj3vvvu k+eA14WK8U/xr+tEvgsVaVdIXf5E46ArfPzr7EwrNNXlT0dRkXYRXNjnn3/+ /xWwRb/1rW/Jx/E0n9D4CJ/+9Kff9ra3/dmf/Rn9FUd473vf+/GPf9w+gvyt r371q1Durbfe6vxrzOv6kO/CdxylrWjRko6hIu0ipKN9Alh0bGzs/vvv33cs YaHhCbt27brqqqv2WVxzzTX4J+MIxuvi5S688EL8Op4MFd97773xrxtAvgsV aVdQkXYMFWkXwYX9+7//+/8igEUXFhb+iwWe5hOacQQf8gjO38KDH/vYxxp/ 3fBxlLaiIu0YFFo86odiCRVpOyAdfUdw3333fcdFWGjOXwkcIe230l43fByl rahIOwaJdMmPirR94MI+99xzD0WAp/mElnCETr5u+DhKW1GRdozKwS4Vafu4 9tpr/+Zv/ubv/u7vFoPgCXiary5owhE69rqVx1Haioq0Y1QOdlGnTEXaDr7w hS/Mzs4+9dRTzwXBE/C0L7gqzKcdoWOvW3kcpa2oSDtG5WCXirSt/MZv/AZC tR1B8AQ8rdkjdOZ1Y46jtA8Vacegwa7/7IdGt1SkitJ3qEg7xk033bRv375A v4zWIn5H97VXlH5DRdoxHnjggZ07dwb6ZbDob/7mbz7++OPdPlNFUeqhIu0k 3/ve9x73g1gU/8dzun2aiqLUQ0WqKIqSiYpUURQlExWpoihKJipSRVGUTFSk iqIomahIFUVRMlGRKoqiZFIp0m8riqIoaySLtDFrK4qi9DMqUkVRlExUpIqi KJmoSBVFUTJRkSqKomSiIlUURclERaooipKJilRRFCUTFamiKEomKlJFUZRM VKSKoiiZqEgVRVEyUZEqiqJkoiJVFEXJREWqKIqSiYpUURQlExWpoihKJipS RVGUTPpIpHuevbfDr6goihJDH4l06+LlGxfeN/vkriMvv9Dhl1YURQnQRyLd /sg1xd434WfDNy+Y2n/jwRcPdfgEFEVRnPSRSHc8dgOJlH+uWJpaen5/h09D URTFoI9EOvPELYZI6WfioSt1+FRRlC7SRyK97eAdTpHSz5YHLsYTOnxKiqIo ZV+JdO/y/azN8QcvHb3vPbZO8SAC1+WXDnf43BRFGWb6SKRLz+9nYe547IYj L7+AEHTs/glbpyPfeAuecODIUx0+Q0VRhpM+EiniTFbl9keu4cf3PHvvxENX Ovv7eNrC4cUOn6eiKMNGH4kUINQkQ25dvNz4p8Xn9l2xNOXUKZ68+9A9nT9b RVGGhP4S6caF95Eb8QfnEw6+eGhq/40bvnmBrVP8ytzTt+tifkVRGqe/RIrY kkdBA09bfunw7JO72LryB46dPnCzLuZXFKVB+kuknNyEn5ip+fln7hp/8FLn bJQu5lcUpSn6S6QyuSleg3uX79/28NXO4VM8jn9t6zkrijLw9JdIZXJTXQEe OPLU5KPTPF2li/kVRWmK/hKpTG5KU9/BFw9NH7j5mMX8v7OxmD+XZqNmn9yl i/kVRalLf4lUJjchOk0+zuNPP3HlTf/8pJ8aLU57dXH2umL0uOLuzTwbpYv5 FUWpRX+J1EhuqvW7R44c2b17944dO8bGxkZHR6+44orbwCNfba0EuOTU4pOv tUtLLT63r01vRFGUQaK/ROpLbgqwsLAwPT09Pj4+MjKybdu22dnZpaUl4zl/ /Ff3nnTmKRyU6mJ+RVFq0V8iLYPJTQxUCWFCm5AnFAqRQqfhwyJS/dwX/zdE uc7F/GP3T9x28A5dzK8oipO+E6kvuengwYPoqaPDjm47Ou8QIzry6M5HHha/ vnHjRjyfFvP7SktNH7hZZ6MURTHoO5HK5CbnsCeUmHZkHAdxLP8VIeiWBy52 LuaffHRaZ6MURWH6TqSt5Ka7NxdXnV6cP1IUxYYNG9CFr+y5x8BBqXzQXMx/ x3nF596gi/kVRZH0nUhbyU13bio+8priwpPe/d4f2roCdFqssWXLlq1rIMic XmN+fn7vGr6o1QhKmaXn91+xNNUann33ia0pfhGgjj946fwzd7X5TSuK0tP0 nUgrk5sWFxdZmLAii3T79u0s2NHRURbv2NgYP47gFv/kE+9Nt/4Wnn/i5zc5 S0vpPtGKMrT0nUjzk5sMlpaWWJhzc3MTExM00e8T75vH3vymHz5/5B0bii0n FB84pRUb4+f6MwrdJ1pRhpW+E2lTyU0+nCOlAIKdmpqCVFm81//Bjef+yjtX RXrhScV1o3Ixv5aWUpThoe9EmpPcFIk9UkoLq6jLbzx54fDianG/ifXSpYXu E60oQ0PfiTQhuakuRlCKv27ZsgX/RziKQNT5KweOPAWrv+qfnGq4lBfzt+M8 FUXpEfpOpGVcclMmMijdvn37/Pz88vLyhg0bwr8Fyb/z595zyq+uzEZ9+ezW Gi2EqWuL+XWfaEUZVPpRpJU7N+XDQSkUCpHikd27d2/bti38W0tLS3Nzc/Dt CetP/L5/tKH40Gmt5VIr81C8mF9LSynK4NGPIo3cuSkTBKVTU1PUqS/9S0wR qUK2k5OTEO/Y2Bj+AOVSjtWeZ+99z9e2FZuOb53t3ZuLi07muii6T7SiDBL9 KNK6OzelAX+OjIxAkvRXePLAgQP8r3v27CHNIv5EyIpAVP4rIJfiD+//6R+/ 6F9/sDWzP3qcMXw6/uClWlpKUQaAfhRp2s5NdYFCIUmKQiFJiHRxcXFmZmZi YqIoCvwff8YjgSOQS/Ec/O7xI8e/5WffpftEK8pA0o8izdm5KRKaqScH0ip9 Sj5FFIpYNP44cCl+HQeBk2Fm2FL3iVaUwaMfRdp4cpPB8vLytm3bxlagiqb4 A/XTE8Cvw8DwMA7LD+o+0YoySPSjSNuU3LR3714EnPAepIf/I5JcWlqi6XvE k1KD8SCmxaEQl+KYu3fvNl9R94lWlIGgH0XaYHITRDc7O4ueOyLPrVu3zszM QHc8U0/s2LEDj6QdHxZdWFjAYUdHR30H0X2iFaXf6UeRZiY3yVr6kBs8uWfP Hs5jouX38vkwLZ4ZX2yfgT8R4uIPlBIFXSPK9T0Zb8rcJ1pU5td9ohWll+lH kZb1k5sia+nDqNCd8SA0iMDSuYg0wNLSEix9ZIUNGzbg/4h+0cEPj7UeefkF hKBj9084Z6N0Mb+i9CZ9KtLI5KaYLUSZ5eVlaNawK2mQlj/VCkqpU1+uDL1C xfQg1TuNmbfafegezjswfnSfaEXpNfpUpIHkpoQtRAleQi9hDfoym5xwp974 RQSlCFOdL+QEwoQ2nTrVfaIVpXfoU5EayU0II+fn5yEoytOsu4Vo6enUA/gQ Viz9dUptuFNPf6X1qPyvMDznkEae28EXDzn2ib5zU6H7RCtKb9CnIl1Nbvry 2cUlp4699Xz0l7dv3w41GXmakTg79YTUYGRQyp16OrJRM4qC0tITAIdO8qXD n3/k37xu51taZfnPXtcq1r/zTJ6N0sX8itJF+lSkq8lNF55UbDnhtNe9hvcB QdDI+4NwKWYAZfF+IvYwqc9phgZjglLZqS9X8kypeJSEgtLA6xrwAlfaMvXn d3587D+8v7j1nNVyKLpPtKJ0mz4VqS+5CREpCxOOYpFCWSxYBJ8sXoSyeAR/ wP9hPH4+Ik8cAVaEvmTHPByUGp360qNKDkp9TyiPHemlBa7GSO/e5fvfcNG5 skafLuZXlG7RpyJtKrkJvoJL9+zZA20iemSRQpi0y/OWFQoBHiQhT0xM8PMh OhwB1jWMZ9SMYjgoLYVL5QLXmJFeCHnsreev7hNt6VT3iVaUjtGnIm0quSnc ubY1iM7+FStAm9AvixRdb7IfLTqV4t0qkHtDw88UOcOWkHN4gasPEvLBFw/5 FvPTPtG6mF9R2kqfirSRnZt8M/UErR21H3eOlOLJMKHxIPrmiCr3ClikVE4K UM8d/2fxwsMsXviZfwXC5ONw4r8cJTjy8gtzT9/uKy2l+0QrSvvoU5GW2Ts3 QXrwYSD2m5ubm5ycdP6TPVLq3BdP9t/LtY1I8CDiT9gSB0EIKp9P4ejCwgIL c2ZmhkWKX2TB4ggy6GX34oTxzMuuvXzjJ95afO4NxexZqz93nKeL+RWlffSv SDN3boJzApnvpaVBiRGU+pRLKVFygSttRMLxpP0SdddElStxNYRM4sWZsHh/ /Gd/4nXvOqvYckLr57RXt+rzz59LV0z3iVaUZulfkebs3CTTNn2ES+dxUOrs 1ENueALNTAUWuMqOOZPg0oDzaZ/o1mJ+WBRGXXNpoftEK0pz9K9Ik3dugvSg vvDSffSv0V8OPIGDUu7UGxuR4NflglIfTgfWdalTyBJcn5knbnnt77/TcGmh +0QrShP0r0iTd26q7NQD6h1XnMCOHbAldIqYkxZKyY1InKOmNj4H1nVpICiV fPFbcye983TDpbqYX1Ey6V+Rpu3cFNOpL4MaRH8fyoKNaWE/1S81BgG4dF7M KfkcWMullUEpg1D8rT/y9h/bc5mzForuE60oCfSvSBN2borp1JceDRp5mrSl HXzrTHSCGPGcyDcScGAtl0YGpeWKS3Hmf7zvG77SUrpPtKLUon9FmpDcFNOp L8X60kCeJs3U+7Lva9XcK4MOrFFzLzooLddciv8ffPHQ1P4bdZ9oRcmhf0Va N7kpslMPN6K3Dj0G8jSlP53ONErnVRJ2YLxL44PSUri0rFrMr6WlFCVM/4q0 VnJTuFNvbESC+BNuDKzVR7zKk0p2UIpHjJX2MYQdGOnSWkFpeaxLCd0nWlES 6F+RlnWSm5ydetrf09iIpFKDVFdEPmIEpfYTYqh0YKRLawWlpculYOHwom+f 6ImHrtTSUopi0Ncijd+5iReFGnmaU1NTRnm6sAahWUStxhy9EZQmrKgnKh0Y c+S6QWnpcWmp+0QrSjR9LdKY5Cbq1FNJUmeepkFYVrJTL5FBqa90XiUxDoxx ad2gtPS7tNR9ohUlgr4WaTi5CcZDwAk11dqIJKDBQLDKQWlCQCiJcWClS9PO IeDSUveJVpQgfS1SO7nJyNOEl8KZngYBBTk79ceczEpQSqXz6r6RmBOQVLo0 ISgtq1xK7Hn2Xt8+0bivaWkpZTjpa5GuJjfNn1tc8/qLPvjjRp4m4kP8NbCR vU1Ag75OPUNBKZ6WYDBJpAPDLk0OjGNcWuo+0YpyLH0t0tXkpi0nODe/o11C KGt+bm4usPkd45NY5EQ8JDwyMhKIWmOId2DYpWlBaRnt0tK3T/Ta9J/uE60M D30tUju5iTe/QwefLQomJycDm98RVHsEMjTEi0A03Kln8Mz4FPsA8Q4MuDRn tDbepeXKbNTsk7uci/l1n2hlSOhrkfqSm+I79eiPy31AaH7fEK9z5zsA3Rm7 juK38Bw4PPN91XJgwKXJQWlZ06XE/DN3bXng4qMi3Xlm8TsbtbSUMgz0tUh9 yU1TU1MJNnOWzjM2pkdcyuKFo4xdR9Gvp+X9LF5K0vftOkoYC1mJWg70uTRz CUGCS8uVbkJrMf8d57XK8s+eJQNU3SdaGVT6WqSlK7mpsiazD7t0HuJViChy T084FvFqeazWEBvLIQK56ygLVu46yuKlZNVpgdxEz351n0tzgtIy1aXgp3/u 4lcd/+qRe/6RczG/7hOtDBj9LlIjuSlhpp5gDUqo1mjkEbh0Xk4cKMU7sQKL VG7r7NzuGX+mAV4C3sZBZmdncTI5w7Ypffz5eVxMnLzuE60MCf0uUiO5Kaay vRO7gqjRqa9EJjdlxoFEpJBlpIrX5Sk2eIwEu3HjRueWo8Z2zyReY7tnopZL KYzHpeOroftEKwNPv4tUJjfd++0/gyXSoi+j8EitTj2BzjhHwpmDk0yCkO0+ vnEyvu2eWbzGds/4XR5qkBEvTswpXgrjnYUEdx+6x7eYX/eJVvqafhfp0eSm uze/7d1vr1UFVGJkhtbq1JcrMRuOIB/pZFBqYLs052RwDjzGi/eIg5NIcUyn eGmYl8YcJicnWby4nnScW7++a9s3Pu4rLaX7RCv9SL+L9OjOTR95zUeu+1ja QQwN1u3Ul64V+10MSkvLpU2dTLiPT2E8VInAFaeNP8zNzbFIcUlZvAhuj441 nL2ulVKBn0tOpY+S9onWxfxKH9HvIp1/5q5W67v1nOL8ka88/u/TDiI1mNCp Lz2T5l0MSu1TauRkyqBLOYyPLyS4/NLhT//JvzztX/9ga6HUJ19bTKyXi/l1 n2ilX+h3ka4mN737xGLnmZE7N9nIhl+3U0+gb2unPnU3KC2PfV9NnUzpcakM 4xMKCSIEbS3mv2605VLcFj9wCs8h6mJ+pffpd5Giia3WLdlywof/5FNpB2EN JnTqy6CjuhuUlse6tKmgtLRcKsP4paWlsbGxtMPitviDn/2RYt0ruJsvEy50 n2ilZ+l3kR55+YXVtjZ/7unvOjNh6ThrCi6FAep26stgzaiuB6WlcGmDQWl5 rEtlGJ9ZSHB6erooinN/8geclfl1n2ilN+l3kQKuPvT2O38qIQ2HG37yFiF2 SpSk60FpKd5ag0FpueZS2rGaH8xcIYC3OTIyMjc3d9nPb9d9opV+YQBEymXb 0b4S0nBIg7yXfV2OHDkSrvjUC0FpuebSZoPScuXdIYDkcgG4DqOjo2mFBPG7 4+Pj0PLWlV2zaQZQF/MrfcEAiFSu8S5rpuGQBqn6fUKnvlxJLKKGH6AXgtJy zaXNBqW0rJQveMzV8CELC9AjcjWF7hOt9DIDIFJZqp3ik3iXUsNP7tSXcUmp PRKUlive27FjR1NBKYfxfMGTU3RxiSgrzUiJMhboLhxelLlsxmJ+LS2ldIsB ECn6d9yaOM0w0qVo9Wi/aZ16wpkLadMjQWm54tKRkZHAoG4kxtwcXXBakF/3 UNSpx7tzlo6xkx10n2il1xgAkc4+uYvbkUwwjHEpGj517dNe2tnwnfROUFqu uNSo0JJ2EDupvyiKhNJbHMfapWMI51Yvyy8dnnniFt8+0bqYX+kkAyDS1eSm lR8jGgm7FBpEw0/u1Jf+hu+kd4LScuUOkvPGnXNzeHdUWqrWZB936svgwgnf tlnufaK/fHah+0QrHWQARCp3bpo+cLPxrwGXzs/PJ8+MELUGVxt0YHJtFgbS S76J+BbcUgWtupN91Kmnv4ZTosJbEH7lL35v7NrxVo7bule08veveb1czK+l pZS2MgAiXU1uWvmZfHTa8QRX04YNRkdHc6Kysn4uZCNBaa0wOADtsppwBXy3 Dy4kGO9SOTllV9CyMVwKmdMj+Cjx6jD5l//jVy7/z7/c2uhk9Lji7s0yTNV9 opX2MQAiPZrctLIrkPM5dtNG60NIlpAJJY9Z2fANei0ohZDrrljwLbg1rkaM S2FdWb0/cs/rubk5nDacSSVS6fyN8Pjgi4fe9dH3ft8vvtG5mF9LSymNMwAi LUVy0/iDl/qeI5v23r17N66Q86KRDd+g14JSCLlGsSZ/Fq1jbr3KpejUy43/ wlcGz6QlFlTvFJ9deFYLJ3n2OWd/8a9u1X2ilQ4wGCKVyU2Bp1HTpqoaU1NT k5OTOS+apsQeDErL6MHewNOc/xRw6czMDD4C+YhdQQufFMWftD0rRMrijbmL 8a4H5j7Rxy7m19koJZ/BEKmR3BQAjRoNFq04PzJ0ls6LoQeD0jLCpeGsJfSy nZGq06VGp74U9xccZH5+HieDmBP3O9zs8E6dGbiVLsWhcBD+3dV9ol2L+XWf aCWTwRCpndzkAzagJTrJGiRyAsveDErLoEuhI2jN108PvyPbpUanHgeHMHF8 HARC3r59O04jZvi60qXGVlxl1WJ+3SdaSWMwROpMbrJhG0CnEGnOTFNyLiTR m0Fp6XcpRIdetu8IlaXzpEu5Uw+X4s94fGQFPJhwXwi71AhKjz6u+0QrjTIY IvUlNxmwDeBAtL6EmntMuHReJT0blJYul1aWIpmYmNizZ0/4VcileC04Ey+H GxniUsgTB6+soBUm7FI7KGVoMb+WllLyGQyRBpKbGGkD0mBCzT0is+ETPRuU lse6NNypLyOuxvLy8vz8PO5iCA6LosAJ469yXCW5hiETcKkvKJXoPtFKJoMh 0nByU3msDWTDT3NpTrE4ppeD0lK4NNypL/1XA3pEwEnVDLZv346D4FDOjkAg aIwn4NLI40OYcrDdWMyv+0QrAQZDpJXJTdIGRvyT4NJGGn7Z20FpuVZzr/KW IYeLcYSZmRlcXkSe+D/+zMfkmXr7gjdyLyj9Lo0JShl8l3Y8doOzMr/uE634 GAyRhpObjJDJMZNb06VNNfweD0phnpGREcgw/Ivj4+O4pIg5R0dHcSaIQp3j pXKmXl7w+ApaMfhcWvfet/zS4dknd2lpKSWSwRBp6U9uolrBMgvGqZ14lzbb 8Hs5KKUw3jmPj4uAF6U1S5AtnjM/Px+oRkj9evkIX/C0BLEAzgPWCkqPORrt E42v1t2bi51ntrY3vfWcQveJVo5lYETqS25CgCRjKjQoBE7OI0S6tNmG37NB qQzj2aV4ENcTsSVuJXgm9EipDeHD4pLCt7bE6IJPTExklo6xcX5GlYO9TmiN 1pYL3/HK41/VKi31odOKTccbi/l1n2hlYETqTG5CK0Crl08LazDGpTn7kjjp waBUzs0hmEenmJZ64uLAKnItfYydAkvF8BI4rDxgU9gfdPw9C2dFqalyjRYe X3p+/xVLU6967/ri+jOM/j76QbqYf5gZGJHayU12p76M0GClS+uWzqukB4NS mmOS5en27NnjvHSVV8Pu1Evw6eAIOQt6A9guDdyz5BotQKmpzty3P/7W3tHz z9R9ohXJwIjUTm4yOvVEjAYDLk0onRdDLwSluO/gCHBmURS+8nSGSyuvhq9T z1BKVPKC3koMl9r3LHuNVsxp4Dp/7T9+TfeJVpiBEamR3GR36suV+AftOuZo vqZdmQuZRheDUlmeDn7ArYfGP33Ply6tHC6uzP/iO0jHXIpXxIfoW6MVify8 dh+6R/eJVgZGpDK56SuP/3u7U1/W1KCzaTe7KXzjR44MSgPl6SiMDwuZXYoQ Dt1h39PCnXpClo5pt0vxf5wwXhH+9K3Risf4vML7ROti/oFnYEQqk5su/Gc/ 7lz9WFdWdtPOrBkVoN1BaUx5Og7jK4VMXgpcjcpOfelKiWrWpXKNFt41zpZS U9u3CyEt5td9ooeQgRHp0eSmL5/9+i1n2U9Aox4dHa2rQaOufn5maIDGg1K8 ZcRdCMJjytMZc3OVowRwacD8MUVdnBW08l1qr9GiN8V9/HZvja37RA8hAyPS 1eSmuzcXm45////1v9pPSNYgN+3M0nmVNNXAEX3BJFSebmJiYnZ2NmYM0Jib qwxK8WTf7oExnfrSL9sEl9IaLbxZ5xothl3ama2xHftEr81G6T7RA8bAiLSk 5KbrRouJ9c6dm3I0SE0brSandF4MyQ2clj7SGCDFn7VO1Tk3Fw5KSYP2mqiY Tn25tour72kxLrW3EEX4Xfm69CvtDkole569d+KhK53Dp7pP9MAwSCJdvftP rD/9sz9g/2tmBVHEPEVRhDdcy6dWA7eXPnJ5ulrT984Ft2UwKJUVtAyXxtQm DR+ccLqU12gFthCthFzamaD06DODpaV0n+h+Z5BEejS5aWK9ESblJ8ij0dEe Je2YVpZUNvCYpY+11pQ6F9wSPiEb4yTs0vj82ZgqIuxSY40WfjHzjobz3LJC zkGIWkI++OKhqf036mL+wWOQRCrv+Jf9/Hbp0vwMSmr47VuiwziDnEB5Oh+R QamzU8/4rpvtXvgTjyBQjJzOqzw9WqOFc8NbxmHlGq1GwNcDR+5kUMrAlrNP 7jpmMf9HXtMa3td9ovuWQRKpkdwku5z5FUS54XfApRTkUGWkyvJ0PmLuHb5O vcRpPOeDNMkVc26+lCjnGi28UPvWl3Y+KJXMP3PXBX/6M8VVpxetdLLjiotO lov5dTaqjxgkkdo7N7FL0SpzOoNGw2+fS2npIxomGhZesbI8XZjKqC9mAs4W snOchDr1kRVd5AhAzBqt9l1wvLX8Wl4JQSmPzxQrvP7Cs4v5c1t1pVZq9MnS UrpPdF8wSCJ17tyEZgJXZCbI20N/zTZte+kj+u/tTnRC88crxpToNIQMt0N3 8glQPXfqY1xKtfdpsCJyjVabXIoXhcfyXRoTlDrHZ/AHWkWG+PMnvnxZq7SU azG/lpbqcQZJpL6dm7atkHNkpxwym3Z46WO7E53gT1g0cma/cptRY6be51Jj jVbdwYo2uZS+Hpku9X1e4bdMN2hZSOctb3vLJ/7v63Sf6L5jkETq27kJ31XE SzlFRBEzOPvXdZt2raWPbc2+r7uqVgrZqKDlnKlnl9prtPC6yfeIdriUHJhf r5s/L05NtZelSSiMx6vL7hJ9XrRPdGAxv85G9RqDJFLfzk2UEp5ckDkcHFY2 7eSlj+0LSuM79QwL2Rgulp16yd69eykGs9doZVbQaodLyYGZLsX7wpWR4zPh k6QXta+G/Lx0n+h+YZBEWrp2bpI6SnNpZcN3Nu1Glj62Iyit1amXUAM3robs 1NO/ysEK5wWPXLEfoHGX8pekrkuNt0yltGJ+kceZ7Y/Y7kToPtG9z4CJ1N65 yWj4CS6NsRk1bfjBV54ujXYEpcmpstTA5dXAlcS7lmu07MEK44LLlKgcGncp v69Kl9L4jPMtR35eOAKeRr0SZwUt9/6Muk90DzNgIrV3brIzQ2u5tLLhy6WP RVFQe8wXBdNsUJrQqZeggeMegbdMY4C4MjFrtOQFb7CCVrMulQ60XWqPz/je csznxXVcfdkQgeUWtE/00cX8V51efO4NXFpq+sDNOhvVFQZMpMbOTT4NxrvU 2fB9Sx/bMXwXzjyKB6dKh0re1wm/Tkt3aLACbzxQ1dmAL3izFbSaveBGsI1z ThifqQxK5eKxwNWoXAOMEPTN/+fWYt0ritmzZHSq+0R3hQETqZHcFIh/Il0q v+q0M2+4PF07XNrUrna4p9SVGK3R4sEKStjEydhLSSuhC44jNJvp2eAFJwfK t4w3mzA+EwhKZae+DBbSqUxMo6y0k045+ae//Qnn8KnuE91JBkykRnJTOP6J cSkaPvqwtA5Q7swboHGXNrLVMq08j3GCvUaLByvwvmiDUWmDeHDMzNIxTvIv OI/PQJ4bN27kt5w2jx8ISuXmLJWjRuEbKK0ioy8G7RPtrMyv+0R3hgETqZHc FFPm3XapXPqIluVbBxigcZfmB6U4AppeoCyeHKxwrtHiho/LUrmXvRPYCdcz Z0Gvj4QL7hyfwRkaDkxzqTMoNcL4yvtj4Ak01o1vpqwgcfDFQ9MHbvYt5tfS Um1lwEQqk5uue2hnTPzDLrXL01EXL+1MmnVpZlA6MzND5UQMIccMVhjnABsg TE07GTR8XNXkBb1hIi945Vu2HZjgUjsoNTr1ZVwhHecNlBewOStIwJa6T3Tn GTCRyuSmn/jyZZXtndKfaTTMLk+XWTOqWZcmB6Voa/hd6kJCEXibtEYrfrCC wNWgGw05IeFkOCWqwy6VeZqVb9nZMU9wqSFke8fVmGvovIHSbdFXQevo7wYX 8+s+0c0yYCKVyU1nX+xOC3WWp3M2bSMXMoEGXZoclEIdeIP2Gq26+wDiWiEE IhsknIzR8Nvt0sD2AZU4O+YJa/VZyM4yL/j6xRzH8C3fFiPPR/eJ7gwDJtJS JDcdf8aJbDBjZ17nOkCjaVfe8SNp0KV140D4E+0X5qTBClqjlSZkXCscR9qg 7snYDb8dLqV7IroYge0DKvHNFtV1KQnZ7tTXOpTxefGyh1pXT/eJbjeDJ9LV 5Kb5c1/9hhHfzrw+5Jczv4oF05RLYxwoa7WNrRBZljkMroZRuaWukO2+bdmQ S+3ydNBp5gX3LWGq9a0gITvfY603zp8Xj3WX/kI6AXSf6PYxeCJtjQvNn1uc P0IlcxGc0JgYUdm542+4s+En05RL3cmDnlptvkWbCUEp3YZiTsaHMxeyTHWp c3zGeELOBQ8sYarlUlw3uN1+vNaoEX1ecqw7M3e4taDlgYt9paV0MX8CgyfS VnLT3ZuLs9cVE+s/89lrac3P1jXQnIs18FXkx3fs2DG9Btrm7Owsnkn9sqZO rBGXsgONwQp7DFBGLza1HIgXwuWyzzxeyOGGH+nSmPEZSeYFD6yrj3QpThin 6tyBq64GaYCab4uZFbSI8D7Rupi/FoMn0tXkppNeWdy5KVxnDN9njlTxzWSR Is6hRVBohpAqixffZBYv1dUk0Kz4OOFmm+9SvAQlGYUHK2T04iTegbQBva/h Rwo5bPUy6NK64zOSnAse1l2MS+lN2UJO0CCugMzRy6+gxdBifl9pKd0nOpLB E2kruQkR6ehxxR3nJU9KUkRqNG20XxYmmjOLFO2FBUvT4gT+zI/Tjif0ZDyO VkDHiXGCUasNDq/Mvo/JxIx0IE6Yahw5/zVSyIFcSPlCfMFlnqa9fUAtclwa rkASdik+YurU20KuW4iGbov8eTVVQUui+0RnMngiXU1u+uRri0tOTZ6OpIaf ORWCxsvixXGkeCn7Eq+C/7N48SCLF1ExP5NGIWgYkJpS2IGV4R8R40CyQbjh Vwo5suHT7DaVQzFSUzNJdmllH9znUurU87CDDCDxjvAGa609o9sif14NVtAy CCzm132iwwyeSFeTm1aC0s9869cTjiAbfieXjuOvlLFIUuUgFiEoC5b3naRF Tfw4mpgc4+WIN6y4sAPJBjircMOvFHKg4dvl6XAo3AgCR0sj2aWV0WN4pxVC XqK6GpS3Rfq8mq2g5QTRyPiDl9o6pX2idTG/zeCJ9Ghy0ydf+9aPpBSgM77q 7XZpWi19tKm9AjRVal9UHMApXuomE4iR8GT8H6+LpsrHkT1oeuOVDZ+y7wOT PvCA7UbKFne+5e7mkBrETAwZLuVOvYTvWbU0aIx1k5AbqQYWw8LhxW0PX+0r LaX7REsGT6RHk5vu3nzCGScnTLvbDb/xpo0GMjc3R1XpEIwl1GpzxoE4Jizq +xW0RxYmGju1aEqcZ8HSKTE0+EBjDtMC6fCyavbE2fAR4gbeck+5NGZIk11q dOoZ/rxihosZe6ybpkEjf70REJlMPjqti/nDDJ5IS5HcdM5nvLMkAZwNP79p y1r6aGswHhoXjJo8FWKcJw6Cw9YdVHQKmW2AJo8/wM/4gxTpVoEhXgb3I3oy HuehBhB5hr3j0sjVSuTSwGlTJyJeg87bIt1/I4/QIMsvHQ6UltJ9ogdSpLxz 0znf+LFwr9MGDvF91ROatq+WvnxO8vCd4cBaoY7EvnHIzZQjGz4FpTJSRVTP owf4PwuWSsQQ+Cd+XC7lxVvDEXBiOGzdmgCVJFzwyHl23DsCacU4Ar4DkavO fLdFqBUXsDNdexvdJ9rHQIpUFr2pu2YvPHUS6VJKWtwaV56uzHApOzDcqQ9j vGU5xBe/3NQ3Uhq+Yui3Opfy8miDHOMN5FAg1OfjxNw3617wmKCUrgDtnep7 Dt0aYl7Rd1vES+RUd2yKPc/eq/tESwZSpK0FxnduKi46ubh78+OHn6oVlFaq 0vcEO0+zVnyY5lISXVqnXsIZi8YQX61Cgs57Vn4FLXnBAzkULNjIHAqAf8Vd I/L0KoNSqrZaBteXRpZy9d0WuZBOx+abwoT3iR6qxfwDKdLV5KadZxYXnnT/ IXMr9jAxDV/2fJNrtdmkuZSWaqd16hm+RMZtwlk62IcdlDZVQSt5vLQyhwLW lUMNzhwKEi8uEV1n5wUx1jY4XUpXo9KBgdsiH7aR3WeaAt153Sd6IEV6dOem nWf+8E++F2aLDEojGz7CGAo7c2q1+U6grktp6VTm65IDcReQNkjQoHHPaiQl nOjM3FMgh2LrStoaTRTaORTGwgbaCADIpbykwUoHBsa6ZVTcI0EpY+4TbS3m H+zZqIEUqdy56dO3f5bWeMe06MBIo8zTpFptvTCtTNFLI20K7w5vTb5uQiFB IyitmwsZpusX3LmBCMWiNE7LIuWlvDSua+RQ0PIGmUOBi0/2nvbvq1UeW0Gr p4JSCVqfs7TUYO8TPZAilTs34VZIsycx9RuNhm/UaoOKcSjZ5+p606bopZE2 hbaPdiovUdq7k1Gor3ReMl2/4PatIZywIG9G+BbRUAONEnAOBaC9WWnJri+H gsq20PMphwJPhr2b3d66KdAGA4v5B6+01ECKVO7chJtgudIZx3eyMqMEX9QD KzXk42u1dbFpy/g5MyglGxg98TQNclCKBt6OFY/ddakRlOLNUhZt4FfIpcYv Oj8vu1MvcyhwEMpHA1QMilLD7BwKJpBD0RnQEodkn+iBFKncuQm3P3oQLkUD 901to9XDIdT5qlurrStNG6aSbycnKGUbyI55TulgEjK137QjhOmuS2VQyjP1 YXC2uLDyJmV/XpUL2Jxjp7aQpTClSKVgK3MoQEIOhY/wPtGzT+4agNmogRRp KZKbcOPjB/FNxj2dvxWyVtv4CskzI51v2nZFyuSgVNqAg9KceSIScv5aggBd dCnfYsKdeoOtKxW95CPy86pcwOaroJU/qmPnUBBpORSEsyMz2PtED6pIebgb 90F+ELEWDTpxITtZqy0wWxpDJ5u2cxoorU0ZNuCgNLN0ME1dNVsz06CLLsV1 np+fr+zUM6RBmsrnB+XnVXm1A9Lu8PR9ZQ7F1qp9KC679vKNn3hr8bk3FLNn rf7ccR4v5u/T0lKDKlK5h4Ks1UafrN0EGimW25mmDcvh/J03/bptyjnEh9ZB E085VwMXHCJtcKMWJ91yKS4yvkgxnXqCNWjcAenzilkdEciM6Nnpe8KXQ/ET l/zk6951VrHlhNbPaa9uVWKfP5cabD/uEz2oIl1NuPjka1sf09rIJ+UPIuKi 754UhbP0Wcrrtr9pB6KXum3KOcRHlYfjO61O6LbV1CLSAF1xKb5I+FLFr+yS w8VSmzgCTdZXTuqFb5G9tqY0HtonujUQB4uiqa65tO9KSw2qSKcP3Nyq7XzV 6cVFJ7/jwgt41bQcZuf8QV71N11nAyYfbW3atDg88LT4NhXoLUKAmVtR4zTQ B6xbMSaNDrsUNxq8O3Tt4yfjjGp4xpqoypOvLB3T4NbhXYH2iX7t77/TcGnR P/tED6pI556+nT8LI+eXglLqUlG2NaIyfFFpACdmAybaB4RzWFi8PNHfpqaN xogzCXsyMigNr9uhpK1kB+IX4Yey0cymMJ10KZerjUw3cGqQ1If/0+4q4SNA 2sZElUFlbe1+4YvfmjvpnacbLqXF/D2+T/SgihTy5E8BUjX+lUecYFEq+kEN P4BMHnTmsGw9dgMmubDEmcOyt2ofEBt06uHtyqmQmKA0MOZGDT/HgRwgdbKB d8alcnFs5Aox362N5uNwtSs/r5i31rF7VrvBpd5y4Tt+bM9l5uT+nZuKHt4n elBFiqstk5uMf5WLMGl9aeM9I7wEZ1vbOSxEeB8QmcNCS1OoJ145FVIZlIaX yvMAcrIDZcPvZANvt0upUy8XGMcEpb61pviU8U8x2fcxhXQGJigt1y74H+/7 xgd2f/TVHx8t3n1iq4WcP9LLpaUGVaQyuemKJceWmjIkoyJs7VirE9+0nfuA cA4L9bXjc1goedC5lNq2gQE3/GQHyobf4QbeVpfi4MYeNDFBqVODHLTTHwJB aXzpmMEISg+slKPcupI1gC7eL177qUtv+1hrNurCk4rrz2gtlLrqdF7M3zv7 RA+qSAGLdOKhK+1/lUEp/oDPzpjHb4pGmrY9U09LuHlqzMhhoeRB51JqcrIv h4UqZVHDT3Og7ZYON/A2uZQWdNlKDAelTg0aC9hwtoHK+fFXr3+DUlwKysuW 5SjxReKeF2z5q/9pZt3mk1rR6QdOMRbz98I+0QMsUk5J2/LAxc4nUFCK2Azf 6nJtvLQHXeqbkw338e0gBz16BFTQaSCHxVhKTWkLW+uUo7cbfucbeOMupTAe 3xD7goc75s7Pzr4t4mm+acRaFbT6KyjF9wc3dCrGQnnZxrU1vuG4brhKb/rN H3GWluruYv4BFqkzuUlCQamssNeDLsVJogn7LBRwqd3AKzv15bENn5ZS0yhB fDl6cq9Rjp6Hi9NWlCXQrEt5pt55wQMdc1wrXD35iO+2CI04VzLXKh3T+0Gp LEeJK4mrGq5exRecWiu+Zq39Zw8vbn/kGmdpqfEHL926eHnH3g4zwCKVyU2+ 50Ch+EDlHb/XXGq3RIOAS40G7txf3sCOf+KDHCiaSl7TijIWKa0oo1LYySvK EmjKpcbcnH3BA0GpocFAVlq58nkZjq2Vzk/0YFBaWY6y8tfpS4Jvr8yDCO8T 3eHO/gCLVO4m41uBhs8IH41xB+8dl1YuICR8LpUNPLKonR3/1ApyAg3fbuB1 V5RxOfr4FWX5LnWG8fYFdwal9nBxuJ9Ow7DSpfQG655wLwSlMi87phxlGHzE +GbiILiAxiWlxfy2Tvcu39/E+4hlgEXaSm5au6q+tWeU62evqOwFl4Y79QY+ l1IDj+nUl/456PggJ9Dw8xs4laMn4leU0fIG54oyIvyivjDeuODOoBS/iF/n v8bcFilgY5duTSqk08WgFPfr6ZW9b3DxcUFoDiLzmBTG48sJl9J1ljcjiNTu 5iOI6vBs/gCLNJDcxFD846xT2nWXVnbqDZwupS9eTKe+9Gsw3oHhht/hBs4r ynDB5dABrShjAivK8EyqBy7Fy18J44LbQam8GpG3Rfq8aBw1uZBOh4NSoxwl LlezRftpbo6uBi4pLhHf7hEgGWVON3zzgm0PX935NVEDLNJwchNBX3Vfmk8X XRrZqTfwTYVEVqoPaDDGgZUp4V3sdUbevKQwYVFeJyYFa+w6KgccSCPTa8U5 8Ux8hWioJP62yCWhYrJHfbT7noUPEW/HWY6yWXhujsoK0Td8daMW0eXkhfrd Wgc1wCINJzeVKw0fXwN8+ka1eUlXXFqrU29guJQ69ZHZ94H4J8aBMWn+Xex1 1h0vjRmfROiFbwgt6EXMjz9Q6IvrQBsw2SvK2Lq+FWW0pJlOOGfXg8bvWTgm 3ixOm9bF4Z3iXbf1tijn5jjawXf7rHPeeOKbNxgWnXnilvadSSUDLNLK5CbZ 8AO55513ad1OvYF0KbXTmOz7ygniSgcGriHT3amQeJficiG8jPzQ+YLLbxQP p8jboq84p29FmXQvTl6uKOPj+FaUNXXPouXHFIojJsRhO1ayz7n99Pwzd63/ D29p1S+9/gxq3WP3T3Q9AX+ARVpWJTfJhh8ISsvOujStU29ATRtfQrJBTKxY qcFKB8akhJfdXp8T41K8U1y3Wrpgl3J75z8k3Bbpg8P1pOFH2rQFp22sKCN8 K8po0DJtRRnlaeIIlJiMm0LCnFcmsiFQPbHllw4fXYozf25x6zkUI/VCkb3B Fmk4uQm9BvmlCpukMy7N6dQb4K3RGB39tTIojYlaAw6MTwnv+vqcSpcmLDoq 11xK0y48XJx8W5RrSuPLjRoryvDS+JIHVpTR9I1cUUZzr5ReQSOfXSkZbTQE XIGf+vAHEHka80q9sw/pYIs0kNxkN/xwUFp2xKWZnXoJNx+KEsNBaeU8ERFw YK3awl1fNB5waa1OvQG5lKao8FHm3BaNAdK00s2V9yx87pSkSVLltQ3JNcpi VpTFYDSEd/7ce46bOsvIYOqp8qSDLdJAcpPzm1nZvW2rS3MmFwzYBnK8NBBz xrdTnwNrTeV0PSgtPSec0Kk3oBs0nEO5PMm3RSrfIc8kzaXOzwuHhfoodR3/ x58j33K4RlnMijLGuaKMOKZT/+KhrYuXyx2dfHPH3WWwRRpIbnK2o8qgtGyb SxEb4HZfOVkTg2ED51SIQa1yf04H1koJL3sgKC1d7zqtU2+AS42PEt2B5LFu yoywP68El/LnxXmalKsL9eXsEhuPFKYUqW9FGdUwoSm2S3d8eOSjZxQfOq04 ex13Lbs+r+RksEUaSG4aHR11RkQxU8/tcCk16kbSw20b2FMhBpHzRITtwMha 8ZJeCErLY12a06mXUN4xSF6XzlfY/rxquZTK05GaOE+z1v2u8+Bs8fbv/pP/ 9IHf/Uir9OhHXtP6mT2LyuP3wrySk8EWqS+5KdDwY4LSsmmXyj1MM13qs4Gc CrH/KXKeiLAdmBZe9kJQWq5d8PxOPTM3N0dDjrVuTxJe9uPsRFS6dK9Vnq4X 7lkxUKd+8bl9xrzSyDfe0uM7ig62SH3JTeEmHBOUls25FBHC2NiY/J4nuzRs A54KMZ6QIDTjV7YmpYT3SFBarlxwmjpp5Gj4VuBolMm4tWqDLRsjM8LZibBd SgulfOXpeuSeFYbm5n7tL79kVCAZf/DSLhYajWSwRepLbgpsDV9GB6VlQy51 ajPNpZVDfBR8Gm2qVulgQjowOSW87JkGTkvFnDsr1YXWP9CVoXHOui41MiN8 I9s8ECTzNH3l6XrnnhVg26U/87ad7zPylab239gjm4mEGWyROpObYhp+ZFBa ZrtUduoN6ro0coiPXCqbdt15IoIdWJkSFaBHGjjtO9/IADUOwpUNyIHhjQxs 7LuhDEpleTr4E59dZJ5mj9yzfFz/tS8eP35M1ufofe/Z8+y93T6vWAZbpKUr uSmm4ccHpWWGS+1OvUGtpk02iHkm2hS7NFmD7MDMme6uN3BZ7C7TpfgmFEUh rwY5sJZL7XESmJNGHuzydPFzTz1yz7JBwLlj8frWvPwd58nW2rPzSk4GXqR2 clNkw48PSstUl8Y028imbZS+DIPzpM4gmnaOBsmBMSlR4ZPpYgOHjnD+8oNL dindFoHUIHfMI10qMyNwbpSnCXnSannnjTJ/DXAXWXp+fytrZmJ9cd0ozyv5 arX1MgMvUju5KTJyqxWUlvVdGujUG1Q2bdsGldD0PeWtJKeikANjUqIqT6Zb Ddz5ZUhzKX4L3rNHjfhGE+NSiJfWKeH/tPUVladL2GLPpteC0tsO3tGaV9p5 Zmtv0LXyI70/r+Rk4EVqJDdF5kIStYLSso5LKzv1BuGmHd+pZ6hN7V3ZICCn hjklyCT/ujyZzjfwQBhf16V0W3TeHKUDnS6V5ekoFQgv7dvswHcCkS7tkaD0 u88988Nz/0txyanFpuNbWUsrnfodj93QF/NKTgZepEZyU0wdJKZuUFpGuzQh 5vH9Sq1OvQRtCjKnze6TN/fEWaHjme/AzjfwyjA+/jPi26LvzisdyC6lPE2j PF1g6WnlVzfGpd0NSqki3zsuvOAV617ZikI/+Vqq4LThmxf00bySk4EXqZHc hL5SrVUudYPSMsKlyfM7dtNO6NQzNFKKd1d3WllCi6nyHdj5Bh4Txke6lJ/m CxrlSCm+fpSNDvca5ekqMyOMemU2MS7t8D2LR3qpIt/45EWUpiTnlbpV1r5B Bl6kRnJT3WSThKC0DLoUD9IsT60DMkbTTujUS2irtTJ6KsSAGn5TDuxkA48P 4ytdyt15qplpPwHx6vz8PMJOqkOCWzn+Ct/aF7xSgzGXqPIgHbhn0Vs2Rnof +u6+8QcvNfKVulvWvkEGXqQyuenX/+JLtXIhiYSgtPS7tG5IbMNNO7lTT5AG uU0luJTbbCMO7FhQWjeMD7hUnrNhMHwB8OnghWjCHZ+70TG3L3iltCMvUSNC TsB4y3Kk97aDd6D/Li3aC2XtG2TgRSqTmy7+4ocTCpGlBaWly6U5a9cltOtE cqeeoOYm21Rdl3JKVH8FpQlhvE9x8raI59A911eezu74Gxc8JjMi8hKFXdrg PauyIt8xZe27t11yuxl4kcrkprPf/6a6uZBEWlBaHuvSzE69AXqRmbnhXKxD tqlaLpUNv1+C0uTztF1Kt0WjPB3laTqP4JwtknNPMRW04i9R2KU5nxeN9MZU 5EMYY5e19+2N3tcMvEhLkdx03Mnr0mqIJQelpXBpfqeeoU59ZhoODxcbbSrS pUbD74ugFG8K97LkMJ4vOJWnozW0tOwTNzUcufIIztkouuDxc3bxlyjg0rqf F71lfIfxNnmkN9yaZp64xQhExx+8dADmlZwMg0hXk5tuPef73nRK8kGSg9Jy xaVUwDb51SXSBskulRq021SMS+2UqN4PStOqVDELCws09Yz/j4yM4F7Gc+iR 7923hAmXGseM7C7VukQBl8acs12RL2bVMWxpzCsV3d4uud0Mg0hXk5uuOv3E y89MPkhOUEqd+qbqlxo2SHOp0YjsNlXpUltKTTkwcxLNBySAOKrub1F5OsrT hE9wbjQWatwW4ytoOYNSKqQTP6hS657lc6nv88LpBSryVYKeuzGvtHHhfYM0 r+RkGES6mty05YRi9qyc4yQHpdSpb6TmntMGCS41Gr6zTQVc6qug1UhQmnPP 8lGrU48TMMrTUZ4m/Sv+AMPQnvX8SGuz4LhRI2dQysOtkS6te8/yuZQ/L3rL 27dvxxvhkd66H8GRl19wziv1V/mRNIZBpK0P9+7NxUmvxP9zdh5Ma+Bypj7T pQEb1N17ztag04G+pu0rFNBUUJozkOKkslNvlKej6+l8I3RblBe87mIMOyhF BE5mjndp3XuW7VK8ZVrgym8Zf03+7Oyy9ohLe7ysfYMMg0hbyU13bipOezVE mtnFqNvA7Zn6HJeGbRDvUmfD9znQ2bQD16EHg9JAp56SFu3ydD7kpeMLXreC lh2UOnNIwwdJuGeRS/GWZUU+RKEJawINZp64pR/L2jfIMIh0NbnpklOLT742 c+lF3QbuFE6aS2OG+CJd6mv4PgfaTTtQQKPXglI7jDeSFhENRo4B2rdFuuAJ c1jyAtqFdCJdGn/PkiO9VDGV33Lm53XwxUOyLhCXtU87Wv8yDCJdTW6647xi 9Lib//p3Mo8W38DxXeVi6QZ1XRo/xBfjUl/DD7Qp2bQrK2j1VFBKbxZHs5MW 666Fcy5go6HUuucpg9Lw+tLAQcIONN4yj/Taffzkz2vPs/dyvV8uVrl3+f6E Q/U7wyDSo8lNl5z6E5/7YObRIhs4noCoI9BPrOXSWjFP2KVhDQbaFDftjmVz 5welCL1o0ThcZyQt1sU3EAo7IcxLWDjBQanv84pxqfF5yYp8gbdsfIIJn1er rP1jNxiB6LaHrx6GeSUnwyDSo8lNd5x30pmn5Ac5MQ2cpw8CRLo0Yd1OwKXh amzhNkVNe2JiotIbXQxKZdIifp3K02WeSeC2SF+GhIUT/EEECulUupQ+L3yR 7Ip84Vc3XFrr81ota99X2yW3m2EQaSmSmzb+0x/MH3mrbOCBTr1BpUuTk3F8 TbvyLhBuUzgftNbKQcVaK4ICRAalzqTFzOX3ksBtkUvbJbiUthkNF9LxuZTe Mo30AqMiXwzSpfFB6dzTtxvzSpDqUM0rORkSkfJIzg/+0UQjI2+BBl7ZqTcI uzTHBs6mXVlIMNym8L7wrzFTIY3MFgXuWVSrDbG6LE/H6o7fyaiSwG3RqCBa 16WwKBxY2d1gl9pvGUegS5Q2kCKvUmVQim47Ou/2vNKAlR9JY0hEKnduancD j+nUG/hcmm8Do2lXlg4mAm2K/ilm+K6p2SLj86KkRa7VhqjMPg28NALF/Hi4 rLot2h9QXZfiPOHG8HPw9aCdCHxvOWcghd9C+Aa6d/l+e16p38vaN8iQiFSu 0GiqgTuzAuM79Qa2S5uygWza+buk8buOcWmD9ywjaTE8BkjbJ2W+LhG+LTq1 WcullMNuP26Xp6PBCl+iWc7sXmVdWYSdRiA6GGXtG2RIRGrs3NRIA7frntXt 1BsYLm3QBty0Ec9Uxj+Er03J0nmVLs25Z3F5utEVcHuKTFrsTKeewIk59RXp UvoKyW1GZZ6mXZ4ucMEzZ/footlCXnp+v13WfvbJXckvNKgMiUiNnZvaFJQm dOoN2KUN2oCgph1TOphwBjn2EqBKl9a6Z1GeJtdq46TF+M+rY5360nUnlcS4 dHp6GtcHXxta6infsu9XfBc8f8mZXejbWdZ+8bl9yS8xwAyJSI2dm8qGep2y KSV36g0ojb0pG0jQTGJKBzN2kONMiQq7NMaBRtKis1Zb5OfVsU59GREEBlxK I72IPKlrHzNSyvgueP6SM4qH8Xk9+uR/3f7INUZ3fvLRaZ1X8jEkIpU7N0Gq ZXNTIRSUZnbqDWitZrPlj8qVhoZmW6u2iRHk+JYQhF3qdKBRnk4mLTqJ+bw6 2akv46QtXUpvmUd68ZbxB3pHtXYJLz0XvJE8CJztupF16y974zCUtW+QIRGp 3LkJ3Xx6sMGgtG7ZigBkg0Zq7hmQBmtNhcggBxFyIBcy4FJ2YLg8XSXhz6uT nfrSX0jQPiscCh8lv2Ue6TUqaAXKFzhxXvD8oLQ1CHbdaLHuFa2U6pX2snXx cp1XqmRIRCp3brpiabVocINBaeY+dIy0QbMulQ0/3qUyyKmMmnxhEt4IFWoL l6erJPx5dbJTXwZL59kV+XDd7AMa94W6QWnpuuA5QekxZe2vP6O4c9MgbZfc boZEpKVIbpp46Ep+MD8oxVcXfcBaY48BDBs06FKj4ce7lIOcmGvFTZvK03HS Iv7c1jyIBjv1kZvQ2X0QY6TXqMhnX3A7BK0blJYul6YFpfPP3DXY2yW3m+ER KS8n3vLAxfxgflBKDSp+p4kAThs05VI7yop0KQc5lc2cytPBJEVRIBgzkhbb lwfRbKce5x9jM9rT2ajIFx7plRfcWTomISgtLZfWDUqHuax9gwyPSGVyk3w8 p4GjxaH54KsbGcYECNigEZc6NRjpUpoVcqZEUdKiUZ4OL2T38duU6FTW2S+p kpixbipPRxVR6lbk4wvuC6ETgtLScml8UOrcLhnRad0TUIZHpDK5ST6e3MCN 6CWzOYd/PdOlgdJ5MS6lCiSy4eN8ZJ6mXautbl39eIzPC07DCWQek+Dbov1P Rnk6+DN+ozoDuuC+y54WlJbHXvDIoNRZ1j5nL55hZnhEaiQ3yX9Ka+BG9JIT lMbYIMel4eYZ49LtKxhJi+HYyXZp40EpDTg0snezs1NPeZp2ebrMOwIuOG5A Pg+nBaXlsRc8HJQ6y9rzahYlgeERqZHcJP8poYE7o5e0oDTeBskurVRloLYw l6eDP9GNrTUzbru02aA0PuO1Er4t2hX57KWzlRW0wiwtLeFiphWMDcMXPBCU 7nn2XmNeafS+9+i8UibDI1I7uUlSN5PROSWRFpTWskGaS2MaPrt0eXmZ8jS5 VhsMg/eVNh1suLTBoBQhYoOdemiTRnrtinwGkRW0AtCVDNzdkoPSUlxw+/Ny lrXf/sg1Oq+Uz/CI1E5uktRq4IEpibpBacIQX8J+TzENH3EXTT1T0qKs1UZN MnmNouHSpvIgENTlhIWlGOlFz91Xkc8mf6kVf0kaHykl6IJT5Vj+vJae3z/M 2yW3m+ERqTO5SRLZwANTEmXNoDR5iK+WSwM7leBsjfJ0zqbNq1uTE2ekSxsJ SuE9CpLr/qJ8yzTSiytZKystczzB2DvA59KcoLRcu+A7VsBfZ5/cNeTbJbeb 4RGpM7lJEtnAK7/h8UFpTpOMd6lxPpSnybXaZNIiYTRtmRKVkzgjXZoZlFIY Hy9kozydfMvh26KT+ApaTuyUKKdLEzbqMsC7xls7fmTkff/Ph7SsfbsZHpGW nuQmSWUDRwCDzmD4VSKD0vx1O5EuRcOHc4ykxXCtNtm0jYafk83NLs0JSmUY H/i8eKQ3UJ4ufvk9k79g2DkuZLu0kQokuxa/9qo3HF9ccqqcVxrO7ZLbzVCJ 1JncJAk38KWlpcic+sqgtKl1O2GXLiwsQDVFUTiTFsNw0zYafmYDZ5cmB6Uy jLc/L7xl3OnkSG/gLSeUmsmvCuKroGW7NOe1EHCulrWfP7c4f4TjB51XahND JVJfcpMk0MApKzDmhSrjlgbX7RguNcrTgeTGSE3bfteZMiGX4pgJQakdxlNh ZPmW0WuI+Zjib4uSzJ1JwxW07EGVtHuWs6y9PcGqNMhQidSX3CTxBaUxnXpJ IChtMBmHQOtDA+c8TVmeLrPh09Jx48H8Xie5lILk+N+SYbysyEcLXGtV5Cvr 3BaZyNJ5ASqn4w2XJtyzbjt4hzGvNHb/hM4rtZuhEmkguUliB6UJ0YsvKG2q U28kLVKVdaMb20jDR5hnT4Xk93DhUhqwjT89SAY3IDnSSxX5EkYJ6t4WiUDp vEhiTlW6tNY9C912u6z9jsdu0HmlDjBUIg0kN0nsoDQheik9QWnd7XoNjPJ0 nLRYusZLjdLBCSDSm5uba9NUCC1wrRSLfMvOkd66U1dpnfqyiT257JudE3nB I+9Z+D4b2yVv+OYFul1yxxgqkaLXw1+zcIkbGTmkRS+lKyhNMxslLXKtNmfS Ih9fujR/6TunRDU7FcKQS+1l8EZ5Ovjct18nUeudpt0WyybWdsanRPEFj7ln yQiB55W0rH0nGSqR4gbN37TwlrIc5CRHL4QMSpeXlxGQxHbTVsrTyTzNyFpt 0qXNNvympkIM4EByKZWnMyry0VuuDOPjg9Lk22KgglYkdVOi+F0H7lkHjjxl zytpWfvOM1QiXXxun1yTHH4yBTnJ0cvqK4qgNKZTb5Sni0xatA8Cl8ItjTf8 /KkQ56vQAi3EnM6KfJFhfExQmnNbzEzbLJNGdehXfPcsZ1l73S65KwyVSNHZ CSc3HfPkgwfRutOiFwkFpQEbUK22+PJ0MeDlaBV6zkGca7SSp0Ikxlum8iPO Cp/xYXxMUJpzW8wc3Abh0Ynw6xr3rOWXDjvL2uu8UrcYKpGWIrlp6+Ll4Wci eoFIm9pm1LCBkbQIXTe1cRtDasqZsvflQiZMhZSu8nT8lsmBuOC2S2vpKxyU JnfqiczSeTkpUbgIuHR8z3KWtdftkrvLsIl048L7uBMUfiYaNeKxRmq+0X7N MUmLDYKXoPmatPMPN3xZcy+whMke6fWVpyMHGnWi6s7NBYLSzLHupkrnJf86 LjhVCXCWtdd5pa4zbCLlkXncxANP45IR+RPfOBQ6sBtWqExabAq8BHRdZtSC rozf2KX2Jdq7dy/naUaO9LID2aW15uYY3+eVOdadX0Ikf7foy35++yvXvYq3 m6cfnVfqEYZNpNsevpq/hL4BJVorTvJJK69BeZpUqw0yofHApjZoi0HGP2ku jUmJ4iXxuETQlFGRr6642IGc95QwJun8vPInxTI35GogM+LQPa15pYn1XIEE fSsta987DJtIJx+drkxuMhwSGZTKpEXK04TBaBq6bKJqUC2Mhl/XpZENH8bD m4I88WS8a7siXy2kA3HRIOS0MUnj85K3xWQaL50XD2738ktb3HpOodsl9x7D JlK5dNlZT8zuxAWCUjxolKejCI3+1Rjia3DX4Ershl/LpYGGT29ZjvTisLQW tKld7WgxAALatJ06jc8rs9pA2bbSeVEv/dw+LWvfFwybSMPJTb7oxQhy0MbR LsbHxwPl6eylQR0LSn0ajHepnQtpvGVjpJfi8KZ2taNJ6tKzp3MM/Hnlj22W GRpk0kZotax9HzFsIg0nN/miF5q7kUmLaFnhpkFZ6saDnQlKAw0/0qWUEmVU 5Au/ZXJpflCK64bX4r+muZTXU+V36ssmSufVzYxwbpdcmUKidJFhE2kgucnZ qeekRSoSEpmn6YsJOxOUhht+2KU00lsUBY/0xpeno43v086ZwAvRiIF8xTSX 4syhr8xOfdmR0nkGuNcb5Ud0u+TeZ9hE6ktu4k69UZ6OkxbjHUg28DX8dgel 4YWdhOFS4y3j5HHLSFjgSrlgOek/FMbbs3sJLsURMgVINFVBK+aZR8vai59t D1+t80q9z7CJtPQkN6Gdor04y9MxkQ4MN5x2B6WR8Q+51FmRLycXEg5MdimH 8c7ZvVoupdsiPoj8YdsGK2iFWXp+P+/gwOVHdF6pXxhCkXJy0/f/wY9x0iLa XaA8HRHjwJiFLm0NSsMN3yhPh//bq8RzciHJgbzoKx4jjHe+i3iX0uBGI/s+ d6Z0nl3WHlLVeaU+YghF2kpu+vLZxehxxQpov/g/pX7vXcM3EBp2YLhTz7Q1 KLVLB1OeprM8nT1emp8LSQ6sG9YaYbzPgTEulWPdmfFkB0rnodsuk0R49F7L j/QXQyjS1vf27s3F7Fn4uf7z16OloLlNT09T157Ag8UakB4/jufARTQtDjux eGlEMX40rE1BqdSgUZHPLk/HT5MuzU8CYgfGu9QZxvscGHapsYAtMyitW0HU JvxB22Xt8Vcta9+PDKFIZZ7IF7/yrypbCgJIFiZVKIVOIVIqr0TQFmwEWi4/ joNPr4FWyceBhNsRlOL0aKqoVkU+6dJGDM8OjHGpL4wPODDgUnvFQk5Qml86 L5ASZc8raVn7/mUIRXo0uemO887evLFu6p+zYy5tgP+zMNEMWaRolSxYGk8g IGF+HB7j56P583ECCzhleTocDX9IKI7BLs3MhSSkAytdFAjjAw50utS5/D4n KG1T6TxnWfvwlg1KjzOEIj2a3PTuE6fm/2XCEeywLb5Tz3ArQ0tnYeKwLFJo hAWLMJjFS1VBDCHTmk84mQcc6r4puHR8hbq/6EQ6MODS8Nxc2IGGS/FkXATn XcBZoboSrqCVjLOCFr5+WtZ+8BhCka4mN103WkysTwsDjEgD4WKaf+r2o2V5 OsrThP1kxIvH2bGFAL/Cj+MI/Ct4dTm/BvvhmflrL0vLgU6X4l9xGcNFBcMd c+nSQJ26tNm9/OFiY5zBWdZ+8tFpnVcaAIZQpKvJTZecWnzytclpd+zAGBt4 zySigeM5keXpAg0fv8LCxBFYpHgXlfNrCLb5+XJ+rbLPazjQdmnM7saVHXNy Kd1HAsdJGPtttnTewuFFXnfH5Ud0XmlgGEKRHk1umlh/4ed/Ku0g7MDMvc6d rZXyNHkjksjydJmlg7nh4yDo0vJiMMS9LFI5vwa/hefXaA9lFi/uNdKl8WF8 5WwRDoVzCE+rJQSlDZbOm3niFiMQ3bp4uc4rDRJDKNJSJDeNfuD7k6dl4UDq aOecCTdwuyJfrY1Imk0Jr1u/1De/BrfzVJqcX6P6pXjEmF/DLcmeX6sMSvEq sH3l+tJaEWZMYkUY8j9sqdslDwPDKVK5c1PyEhcKhDL3DcFBKOwMVOSLoamG z39N3qNE4nQgrV6gPDJjfg0POufXjNGGaQHci2eSwPGHgEtrBaX5pfPwWv9q 7/9uzytp+ZGBZDhFauzclOZStHpEVgnDaEZ5OhwnM5mobKjhG73jRlxqd8xx 78B1q3XBIWTKZiX3skUnJyfl/Bqup3N+jRIuABVNrcxfK7NL53332e+uO3nE 6M5rWfsBZjhFau/cVNelNMQXH+TIinx2ebr8ZfCZm7vh9CAZ+/F8lxpBKc/N 1b3gzpFSe1iY5/Hl/Bp+kSNeONY5v0bjDDy/BifT8gaZRhG5pnTxuX1n/Prb iotOlvNKdhVxZZAYTpE6d26Kb9pypj7gQF9FPvuZmdn3bU0Jz3epdKCcm6vl UnuUwHfO4RxS3+eFT5OFCZHSDtpGGoVvfg2f7NGFEDd8eN2XzisuPKm1vm6t rL1vdzBlYBhOkfp2bops2tIGtgMRCznL04XJCUrrlg62Cb/xTJeyA+2Z+lou lUIOLL8vgy6NuWfFZJXK+TX0NaDQz3z22k2Tby8+cEqx5YSWSO/chG8XvmnV b0zpf4ZTpIGdmyqbtm0DmiSS5ekqK/LZ5MwWJeRVGVTmQma6FGrCzcW54Dbe pTIorVzrFXBp5T0roXSeXdZet0seKoZTpOGdmwJNW3bqqTwdJEY9PlmeLo3k 0pdtSgk3yHEpFc/3LbiNdyklewL8ofLJPpeG32/dQoJHXn5hx2M3GPNK2x+5 RueVhorhFGlg5ybC17QRatLyUS5Ph1AQTa+RoklpPfT8CqLxuZDJLoW7cK8J 9JcjXYrjoEePix+5wtbn0sDnVat0nl3WXrdLHk6GU6S+nZsksmmj/SKaCpSn a6pWc0JQ2u6amQYJLsWTx8fH8YvhdfWRLsUlqpVK5nRp4POKD4/nnr5dt0tW iOEUaenZuUmCpoe2Rrk5lKeJPwQs162gNK20EQOz4X3VGpGo61Je41o5iVMp MbxTOLnuPcvpUt/nhatRGe5qWXvFYGhFKpOb+EH4BI1rcnKSNgVGu6Yd4sqI Fe/dCkobTAmPJ96leC9cUSqmNGjApfh16tQn3LNslzo/r6htuZbvt8vay7Uf yhAytCKVyU12eTo5uYymTf9a6Y3OB6X59k5OiYpxKXXq5X0hZmWRz6Uce6e9 a9ul9ucVHi52bpc88dCVOq+kDK1IW12z+XOLd59YrHsFVUvm7G8jeZA6vzHj cp0PSp2lg2uRkwtZ6VLb0pH16m2XGjP1afcsw6X25xU47NLz++3yI3NP3173 HJSBZGhF2kpuuntzcdXpxUde86lf/XSgOCcaPv01UJyTR9U6HJRmpoTnp0QF XCo79ZLITZSkS7lTLw+eds8yXCo/r0AFLWdZe51XUpihFakvucmAbEC2RNPG n53FOeXmd3IPJt/md5UlnmKC0mZL5yXjdKndqWfiN1Filzon1JLvWdKlUsjO 4WJ027c/co3Rnd/x2A06r6RIhlakgeQmxrZBzNoYWmhqF+eM2fyOs7YnVmDx Oo3UeOm8ZGyXhode41/3ihWcy+9zBlKkS1nI9jnbZe11u2TFydCKNJzcRDht UOnSug1cbn5HWdvE2AokWBxQVkVmGwNZmdOuihwmMyVKIl3q69TLtxwZlFJK lM+6OQMp7FL+vIwKWrLPwvNKWtZecTK0Iq1MbgrYoNKlbR0pXV5eJlvCRVwg btpfFVnuOrpVVEWmeqrs3syzLddcitPzdeolkUEpdep9Fzxzdo9ditPG8Xm4 WMvaK3UZWpGGk5sCQ3xE2KUdmL6PnyfCe9krYJFOTEzIWnCyHL0Ur9x1lEsr A+cthtKXYtZTxQSlOBpOkv7su+CZ9yxyKY5AOxTgkfln7tLtkpW6DK1Iy2By U8yyorBL2z19H1m4I0B4u3lG7joKrbFgZTl6uQ8IBcD0fLnds50uFA5KcacY GxuTv+U84fx7FrkUr3X956+3t0vGIzqvpFQyzCJ1JjeVKzV+0TZrTSvbtDso Td5qislMiZLgDMmWo6OjUyvg4FTgxbmwgcZ+qfCLb0UZ1cE2Xsj5rvPvWXDp upF1I29ab5Qf2X3onpzDKsPDMIvU2Lnp6ON1tu0ICK2tQWlnSufVQobx4bX6 XI7et6JM1qI3ytHjr7wH09zc3N6VnUSclU7j+Rf3ff4Vp726GD2uuP4MLj+i 80pKPMMsUnvnpjIpV6hNUyGMHZR2snReJHYYH5ND6hwptTv1xnbPOCxtBYJo lsUrhxrkijK53bPc+Y4uKWw58dCVrW1BJta3Mt3ws/dNOq+k1GWYRWrv3BTf qTdo01QIYQeliMTgkJxjbs1LibJxhvExLrVHSmNGLYznGPcsuaJMbveM12LB yhVlLXaeqWXtlWSGWaR2clPOXpxtmgohjKA008/5KVEGgTC+0qVGUCpn6sMY F7zWNUEHRN5GeV5Jy48oaQyzSI3kpvwCIG2aCimtoLQrpfN8VIbxlS7loNTu 1Icxim9H3rOWnt8/dv+ElrVXGmSYRSqTm35l70xap97AdmnjQam9+15dwvmb dYkJ48Mu5aA0YSmC/JWYe9bsk7vssva6XbKSyTCLVCY3nfH2c5I79Qa2DZoN SvM1mLzLnk18GB92KYJS/Gtkp96AL3j4noVue2teySprn/CKimIwzCI9mtx0 1elvuSorxjMIT4UkQwLMnCfKL53H1J2bC7gUhyqKInlBF19w3z3L3i4Zf9V5 JaUphlmkJSU3/c7GYtPxP3r/h5o9cs5UiA8cATFbL5TOIxLm5nwupe1dckpR 0QW371nOsvbbHr5a55WUBhlykbaSm2bPKt594pu/+Y8bP3jaVEgY2o+vqbPK IXkJlu1SmvyKLwnlg96avGc5y9rrvJLSOEMu0tVWtvPM497b5HIgpu5USCU0 lphzhEZK5+EICCCTr5h0Kf6PQ9Ep5ddHxQXHQeieBWEa80pbHrhYy9or7WDI RXo0uWnnmT998Qfa6tJGglIcIbwrdJj8lCgifz0/uxRhLYJbejA/KC1XLvjx IyMX3vwBe15Jy48obWLIRSpXZe/6w9+rtV17PJVTIZHAM7BoziAnTgMnk3wC RH5eFQGXUpKRfDB/5GHh8OL3/eTrik3Ha1l7pWMMuUiN5Kb47drr4psKqQVr MHn9UiOFknI69RLq1BsXPPMSHf1ALzm1uOM8LWuvdIYhF6m9c1O7XZqjMo7W koPS/NJ5DSbpU6fevuCJWy0fecqeV/JtIqMozTLkInXu3NRWl/JUSAJynigh KM0fpG2qU18em6ZqXPCE83SWtdd5JaVjDLlIfTs3tdWlIyMjCRGXoZeEoDQz JarxTr1cPGBc8PigdPmlw3ZZ+8lHp3VeSekkQy7SwM5NbXVpQmRoVxCtG5Rm 9sob79QbDxr7kMZcooXDi3b5EZ1XUjrPkIu0DO7c1D6XTkxM2CYJYwdptYLS zNJ5berUG8gLXhmUzjxxixGI4hPUeSWlK6hIfTs3EW1yKSKuoiji1/ngBEZH R+15ovigNL7Op01bO/UGfMEDQSlsCWca80pa1l7pIipS385NTJtcimPCjZEu 9UVx8UFpTtIQDIyLkPa7BlNTUzMzM+Hn8AV3BqW7D91jzytp+RGlu6hInTs3 GbTDpRQiRq4/D8wTRQalyUtPG1nDT8RXUqULjufLoFTL2is9i4rU3rnJSTtc SnKLcWlgoicmKE0unXfw4EH0xBvZtRmXrtZen3TBca+hoHTxuX32vBIt/VWU rqMitXdu8tG4S9mBYZdWarAy2kyOKjvcqTfAS2/cuBHvzlnWXueVlN5BRWon NwVo3KXswIBLK2POyiekJbB3pVNvcPudX33l8a/i7ebpB/e+Rs5KUZpCRepM bgo9v1GXSgf6dBczTxQOShNK53WxU8+slrXfeWZx/gh9QLpdstKbqEhlctOO x26I+ZVmXSod6HQphFZpoUBQit/FEeqeVXc79WZZ+5XyI9sfuUbnlZTeREUq k5vQVCN/q0GXGg40XBpfQdQXlNopUZV0t1O/9Pz+LQ9cbMwraVl7pZdRkQKe yLCTmwI06FLDgdKl8U7zBaV1iyl1t1Nvl7Uff/BSLT+i9Dgq0lIkN+EPtX6x KZfaDmSX1poncgaldUvndatTj267XNOrZe2VPkJFCjjfELFQ3d9tyqW2A0mh tTRoCzmQ2O6kW536hcOL9nbJ4dVoitI7qEjB9keu4fabMJ3RiEudHfOEOlGG kGuVzmu2Uw+LRuZS2dslTzx0pc4rKX2EihTseOwGbsJpw3GNuNQOSmdnZxGR 1loCagi5Vu277du3z8/Px79WgEiBO7dLnnv69kbOQVE6hoq0PLYgW3J3Mt+l dlBKw5V1l9OzkBFbjo6ORp4SFAqR1jlfL3h1hKOVr3vbwTuM8iO6XbLSp6hI y2OTm3KW2eS7VAalsoJoLZeykONrQ6FTj5fG/1NO+lhiOvXOsvboF+i8ktKn qEgBolBuzpllLTNdKtVnzBMlTN/Hl87rZKd+4fAiL5PgeSUta6/0NSrScmWk rm5yU4BMl3JQahsp3qUk5MjSeZ3s1Ntl7XW7ZGUAUJGWKz3NhOSmADku5aDU qcF4l+LXY1KiOtaphy3teSUta68MBipSIi25KUCOS2E29Ot9pfPia0HHDJB2 plPvLGu/+Ny+Rl5XUbqOipRITm4KkOxSBKWjo6MBDca4lPZ9DoeaHejUH3n5 BXteCY/ovJIySKhIiZzkpgDJLh0bGwvPE1W6FCqempoKlCvpQKfeWdYe0Wn+ KypKT6EiJTKTmwKkuXTjxo2VHfOAS2kLTrwojuNTZbs79TNP3KJl7ZUhQUVK 5Cc3BajrUiqdFzPn7nMpl87z1dBra6cetpx46EqjO6/zSsoAoyIlGkluClDL pVQ5JHI5vdOlXMHJGZQuLy+PjY010qkvrdUFq2XtdbtkZZhQkRJNJTcFiHcp VxCNXAhquFSmRJWuoDRtCycnMzMzU1NTq6/78gsysOd5JS0/ogw8KlKiweSm AJEu5dJ58Tme0o1GSpQRlOIcEK8mnLzN0tISjcSWWtZeGW5UpESzyU0BKl1K 80T818igtBQutad+OChttlM/Pj6+sLCAP8w9fbs9r3TgyFONvIqi9D4qUqLx 5KYAYZfKznJZJygt11zKfmM4KG28U4/rZs8rTe2/sZGXUJR+QUXKNJ7cFCDg UruCaHxQWq641JkShaAUgm22U3/3d79pl7XXeSVlCFGRMu1IbgrgdKkxT0TU Ckrx5JGRETvsRDhaFEW8kMO8e/zdP//7v2gEotsevlrnlZThREXKtCm5KYDt Ut8WS/FB6eTk5NzcnN2FxyM4ct19mZ18+teuPeOKMaP8iM4rKcOMipRpX3JT AMOlvgqi8UHpxo0bDxw4UB47j08z9eFEp0g+/82bX7X5hOLuzXJeScvaK0OO ipRpa3JTAOnSQOQZE5RSShT/lVwqZ+p9iU4x4ObSutecP1J8+Ww5r6TlRxRF Rcq0O7kpALkUrvOVzivjglJ7M2X8dXx8nEPT5KB0taz9VacXHzpNy9orioGK lOlAclMAuBSKC+8pXxmU2nVIcFhjH9KEoHT6wM2tKPQjryk2HU+det0uWVEk KlKmM8lNAaDBrVu3BtbqVwalnBJF4FDo1KO/L8dL44PSpaWlX7vx10/bemax 7hWtHj1Eesd5I994y+yTu2LfkqIMBypSpmPJTT7gt7m5uXDeUyAoNVKiyrUZ fPqzdGkgKIVgEdPiyaOjo2dsPuv4S19fXH8GTy2N3T+h80qKYqMiZTqZ3GTD 80ThvKdAUGqkRNkrqdilRlCKv+JFoVZ4GP5EYPyVf3frZd80l4lOPjqt80qK 4kRFKulkcpOBjBLDLvUFpTIlijv1xnPYpXg5/BnuxW+NjIxMTEzgETrswuFF u6y9zispSgAVqaTDyU0SLp1HBFzqDEqNlCjZqZdArRAstIknF0WBpxnpqHZZ e9xTtKy9ooRRkUo6n9zEGPNEZdCldlAqO/JGpx6HnZ+fhzM3roA/4LCzK8iR UtiS3z5fBC1rrygxqEglXUluKv2ZoT6X2kHp1NQU+uml6NTjmHhwfHwcit6+ fTsCVNnTR78ej/BIKXru9nbJWn5EUSJRkUq6ldwU2BHe51IjKKW/AjhzdHR0 ZGQEZoZajXp6ErgUv/XPP/WLk49O22XtdV5JUeJRkUq6ldxkl86TOF3KQSlC yttuu60oCvgTwSdCUDw/cnOon/mnP/uKda8s7jhPzivNP3NX3rtRlKFDRSrp SnKTs3SegeFS/IHK5aEXD3/S/BFNJNkz9T5mn9zVmleaWF9cciqXH9F5JUVJ QEUq6UpyU2RlJ3Lp9PQ0Yk4oFH+enJykQs20qMk3U29jlrWfPxf/nz5wc+47 UZRhRUUq6Upyk6903uopLS1RuhN12/F/OQhAQ6MbN26cn5/Hv8a8nL1d8saF 9+m8kqLkoCKVdCW5yV7LxHmaMCR66wg1EbXS4iijj4/H4U/07nEQKDf8Qkde fmFq/43GvBLeppYfUZRMVKQGHU5ukhVEjTxN9NadA56GS/F89PRp7VMABNvj D15q5CtpWXtFaQQVqUGHk5vQqaepoqIoZJ5mGOlS/EEWc3YCYdrbJWv5EUVp ChWpQQeSmxBnzs3NIeakPE38AWKsexByKfr7OAhU7NPvall7a7tkXSaqKA2i IjVoU3ITjLd79+7JyUlIj/I05+fn8SBvsZQA1YIeHx/3zfsvHF60t0vucPF/ RRkGVKQGzSY3yTxNuA6BqJwSsiuI1mJhYQEBLQ6OPr49Y9Uqa6/bJStKR1CR GuQnN0GVs7OzExMTlXmaOVvRkTxHR0chaiga8S0HpQeOPGXMK4184y1zT9+e 9kKKolSiIjVIS26iPE0qLI/OO/QYk6dplM6rBfw5PT1NKVE0XkojpThno/zI lgcu1nklRWkrKlKD+OQmytOEMylPk9KL4jfojMkM9YEQ1xgahUtP2XDK2e9/ k9Gd3/HYDTqvpCjtRkVqUJncBIlxYXkq7Fm5Et6Jr3ReJdSpx4vKlKiFw4tv vOmC1i51t57D80pa1l5ROoOK1MCZ3GTkaaJbHSjWFEmgdF4YLj3KE0xHx3V3 nlnMnlWsbJes5UcUpWOoSG1W167fuen833ivM0+zEcKl83zAnDRNf/DgwdHR US1rryi9gIrUppXcdP0ZxRoQKaRHkzsEjLp3jTS10kL6ur8Ff8KiFIXedttt F23/x3ZZ+8Xn9iWcj6IoOahIbTjGW/el81iY6E2zSNHH37oGZScRCFz5cYSy /Py5uTk+DmkwsnSeAY8GHHn5hTd/cEtx3aiWtVeUXkBFapOc3LS0tMTCRMTI Ip2cnGTBbtmyhcULCfPjExMT04K9AprZ5049Ys7Wdsmjx1EdUSo/svvQPW27 HoqiVKAitenAzk2UGYoOPttyz549UqRbBSMjI+zec97x/a/ccmJx/kjrR7dL VpTeQEVq0+6dm2TpvEig1s989tpWWfsvn92al8fPykZLOq+kKL2AitSm3Ts3 UQ5U/PPRqR+74Adfv3fcmFfSsvaK0iOoSG3avXMT5UBFPnn5+f9+xtvP4WX2 PK+k5UcUpXdQkdq0e+emDRs2RC6awpmMXvXm4iOv0bL2itLLqEht2rpzU3zp PAhz3b/d3JpUunszl7U/cOSpZs9HUZR8VKRO2rdzU0zpPJh828NXt/wJi651 6qf239jsmSiK0hQqUift27mpMjP0jke/fsqvbiouOrk47dXFVadT+RGdV1KU XkZF6qRNOzf5SudxRb7XfP/rWv6cWF987g20wEm3S1aU3kdF6qRNOzcZpfMW Fhamp6fHx8dHRkbe/9M/fs5nthS/s1GWH9F5JUXpC1SkTtqU3DQ1NXXFFVdQ RT7IEwqFSKFTu6y9bpesKH2EitRJs8lNBw8enJ+fh0Jp62SqyEcdfIS7VyxN GWXtdbtkRekvVKRO8pObaCulHTt20BZ127dvn52dNUrnLRxe5FktLWuvKP2L itRJcnLT4uLizMwMbSGK/0OevEuyUTpPBr30M/HQlTqvpCj9iIrUSa3kpgMH DszNzSHmRMCJ+HNqagqxqP00zgw9+OIhe7vk2Sd3teONKIrSAVSkTiqTm5aX l+fn5ycnJzeugD/gr+HETyqdt/vQPXZZe51XUpS+RkXqw5nctHfvXgSc4+Pj CD4RgiIQhRtjjoannbPxHHteafLRaZ1XUpR+R0Xqg6eBzvg/3jU7O0vDnlu3 bp2ZmVlYWKh7tF+9aXrDB98oFYq4VOeVFGUwUJH6aCU33XpOK89oBdqFOW3z u5knbnnVe9e3NtQT80pa1l5RBgYVqY/V5KaVcvR33PMHMZvfbdmyhR+fnJyk svabJt/eyvc86ZXFnZt0u2RFGUhUpD5kclPkHseLi4scqc7NzX34X3z0pF94 Y6ua6EUnU/kRLWuvKAOJitTH7JO7WKR1BzOPvPyC9DCXtdd5JUUZSFSkPuaf uSstuWnp+f2t7ZKPnVfC0dp3qoqidBcVqQ+Z3DR94ObI35p7+nZeN8XlR3Re SVEGGxWpjwNHnpKrPSufv/zS4dZ2ycd25+MNrChK/6Ii9XHk5RfYh9sevjr8 ZISvo/e9Ryp048L7dF5JUYYEFWkAzuVE99z3HPh2av+NRiCqZe0VZahQkQbg OSPfzk1Lz+83yo/odsmKMoSoSAPwzk34sf9Vy9orikKoSAPIGiNy5h3ddrmp E5e17+KpKorSRVSkAeTgJyc3Ocva529HoihK/6IiDWAnN00fuNkIRLc9fLXO KynKkKMiDSCTm2aeuMUuaz/39O3dPkdFUbqPijSATG4yfrY8cLHOKymKQqhI A8jkJvmz47EbtPyIoiiMijSATG7ieSUta68oioGKNIxcKapl7RVFcaIiDUPJ TVrWXlGUACrSMFsXL4dLIyvkK4oynKhIw+x59l6dV1IUJYyKVFEUJRMVqaIo SiYqUkVRlExUpIqiKJmoSBVFUTJRkSqKomSiIlUURclERaooipKJilRRFCUT FamiKEomKlJFUZRMVKSKoiiZqEgVRVEyUZEqiqJkoiJVFEXJREWqKIqSiYpU URQlk2SR/uVf/uXTiqIoytNPw4dpIlUURVHCqEgVRVEyUZEqiqJkoiJVFEXJ REWqKIqSiYpUURQlExWpoihKJipSRVGUTFikiqIoSjIQqf7oj/7oj/5k/vzD /yz1R3/0R3/0J+fn/wcDYs6e "], {{0, 487}, {451, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{451, 487}, PlotRange->{{0, 451}, {0, 487}}]], "Output", CellChangeTimes->{ 3.759936058848907*^9, {3.7599363144572268`*^9, 3.7599363303216743`*^9}, 3.760467325866602*^9}, CellLabel->"Out[36]=", CellID->865776739] }, Open ]], Cell["A higher number of steps:", "Text", CellChangeTimes->{ 3.759167775091743*^9, {3.759172960897339*^9, 3.759172963484918*^9}, 3.759931490319127*^9, {3.7599355956020193`*^9, 3.759935621226915*^9}}, CellID->740024590], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BilliardPolygon", "[", RowBox[{"5", ",", RowBox[{"{", RowBox[{"0.454", ",", "0.096`"}], "}"}], ",", "1.246`", ",", "263"}], "]"}]], "Input", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.7590710208659573`*^9, 3.75907103845438*^9}, { 3.759071078400794*^9, 3.7590711334615917`*^9}}, CellLabel->"In[13]:=", CellID->699238196], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0.75, 0.15], Thickness[0.01], LineBox[{{0.9950041652780257, 0.09983341664682815}, {0.21252597509879392`, 0.977155417478871}, {-0.8636558891747573, 0.5040818436462072}, {-0.7462946691928064, -0.6656157049938047}, { 0.4024204179907434, -0.915454972778102}, {0.9950041652780258, 0.09983341664682754}}]}, LineBox[CompressedData[" 1:eJwVlnc41Q0bx1WIUBoSTyn1RNmP8TTETVEaZkOUklGSijIyUhmlIZWSJyOS kJ1kuyWjsjmOzdnn9zvnGBmVQq/3r/u67v++1/25Pt9b0emyjetCISEh8QVC Qv+fPtFrhI8tHYBfwe7l3tHFwNW/LhlgzgSGjKqHnxEdtByk3rCqefiSG8xO im+C6qnLhwrjBaC0sv6Kj3EDFAdLrU/z5sPiJ0mh4yYf0Tyqu9NZrAgVPr4o kx8kkVevEJxqxkfJj6u6NffTQMrbhMdqHEBWofD1L0ZcPL0rhYh0ZsHZf67w csRoUJi7/GrhJQLlxAIH/ksYwgVnZ1026Mbg8iiNK3W2PKwQsCaFFg2AeX5g ucotHjqLGJV5efZhufLseDxwIF1KM3Vv5FuQ9fC41dzLQ6613ylLoxEo1lvQ EM/9BF/vf16pH9KJbqPkZKIygfc2ahte3M/D7Nsfftm7FMLOu5ucGGUsrLqW tttEhQmbf6yfc78ogJPSZ1pVtxeixhzdPi62FevLFIqKkwlIq90fop7Yi/Fr xZOc/uPi7ZzjJmF3PoHlM2WL7x4jMJC623D8RTtI9Vkeq/EVwMrKyYc9Nhzw rS8OcN/ei9QCxfuU70wMENfIpShxULqLcK2VJ3ClrWmB40omvmvyjZoc6IMp 99qzj025QJh32ejeIzH+YMiQjswn3CA3bZ5lS4NR42D3+BNc7NuwoYbH5iF9 s0O6d0QbxLyqUff+OYheM/9s5F9jQ/dISFtj5hCsYG6HpE1siLRQ+TRwoBOE 4yeZai0CvKtxIVZ2HwE/Gn3kJo93QbRkzm3aXzxcN5bI/7s9HrBIXZSpNAIN UmZU/rFQUHu14/hDYw5E1C4MD6L3wYuKs8kd77PBX3RQ+dqaYbBkuJnuSK/E o3FhlksySLRQsVj5da4HLMN127RsCFg+KeL3MIaPmo5N0z77h+CREuO9tg4b FlqNLaqEQeAtqj98zJkOJDVxbNFjNlaaOq9SW9AK0WEic9/1BWjwylGsrICJ mvfNAp0SmaBHDUh+Hl2Hmn9iMpVMSAzPubO4lkOCEdU9hvK+A/gHjK5stWXi yMOIhof7OXi1/Myz9A8EDhzdNn5uUS9WRNB/GZ/pQfJUl1xQAQdYVaL+xcWj 0KId+TplpAikDIxKVA+koUjXkfulKXwI5fDOXs5vQOMUl3UjMwSucl97t0K9 EzKvRSZ6ifAh5WKWdJjOEP4VsIw9eoENFPv6UeIIH713pN0m1Hrh/nILhxwj AkRVDfJ3xncgO0vxiv5PGl6w98sfamPBi5kZZttZNua8moxooLJRLX71nqtQ iwW78pSqv5GQv2wgLj+WA/ftxPevVuiDqI5fqQOjfOjr8T8o/a0M7Q3uz7bf IzD7/IyO6sUBdCMvzNXJs8HK4LZnvesgxiUHCd0bLUHf+/Iy73t54LdmeKov ow8yGrx7qOl8lLft2XVboQOqxS8XZz0R4IRZBsfqC4neHat7rELeYWlPtOsW 5w8woiK992rIMKw9eu5VfXcrZO+5wVK8OgymfsRUwsX34LyR1vhMko908WfP Fk7TIfpwjZdOJQPUU97Y3hvlYWdnfec+s3bY6p3G9Jbkg2m28uDujW1Ak815 ueAoCZxBhzXF7S2YmX6otiznCXpsek3hOPBQ20RRxyCXxCfD0Yu2zNIgumKD rxG7B98+/tgZnM3FW+KxeTsj5/PKHK3v9RkA78MHCl7rE/iP8vfTVQ10TDkY 8mpWrR09Ajc9cgsj8LjJ26e5okNwTiWn7mw9gSWzJpuTDbrR8kiQwrMJDjQ5 KW3SY5cDf9/W3tB9fIT1Hkoz50fhsU7tafUzFXDpn7ReKX4rUqwnpC6kEXha 2+XhmkIedlm98Hnq2wBZMYeGTjHmuRN1HN+3nQGxfbrdv+/z4aL2onSp1Cqc drorpGhMwWKf7HB6Bxd80jZPq4sNotFWK1HbnVx8QLq9/LuvEGI20manA4bh R7vzXMa/3RCscCKKbU1C8fKDUT9ucSF7u8+Riq1UpAhUB5uZXHT8LpSlto2N aRon9sExOkx5Np32SmPjFpekTs6Vdnw96prgv4OAGImnPRMxjZDUxO9ykBTg 6ncs05/PSDA40Wp2S6YZu25Iytvwh0H0i0FCnUst3KCENgedIlFmrN9OgvUF 5Y6cFlGikxA6nXXBbEUjZtuUUlknPoKQrUUxR3MEPFJnlo97MeFT/J3UT0sY +GZGLzCN7EDPWHMvqSMErvfUFi/KIrAumViV8KUXv6bVZMT9SwXJgHMaU548 SD2908pOlIcLlBYY9gk5gqsgYX1JIAPE9OIiX+YxsbXk/Ll+Pz7u0PozHcvu h/O8U6o+/QQWSPUsabWjQ+lLuUPjr5hQCvarUmg0WKHakn7mziCIbGs+6qNL olNumLldLAXSiaWyn8oE6L7GucJGnoEupfVv7G1YwI8+eyUhogIz+g8L9+eR eOdmUIuXNB8o1/sirOXaYNPT3M4nEnT0mnjMsv/CQbHmaPbhjSSaZMn66ia3 Ia1QZ2pnzgAmEFFfbnxkw6Pkvw7v7xoB56Mt+91K0mBwzOCq2r5SDI5k2jE7 eTDqbK1SvLsNISczlJFA4LGfB+Oaw9phaaXSa/VQAZgYnZC2HG/GMPWWWg6N gJDZP5rdinycHdB7vUCHCg++OW2D01w4GqX0+EMSFcPdpkyCGxloLi16U0yY Bcu+u69v/4uLl7P1R9GPjeVCZdtce5rQtNaNWvuHALP3w4GRZ0mYrFpfdpxC gWXq1m9+KwwDO47qUuSRhs5hf+deKyKQPj7RqjPRgw5xFhaJazlwSZ4fBuO9 eMptg3WU2Vs8Wf6fUdZDPiQ3/vddVmwQtk3b7L2ZTCJxuk4ltbYWHnxUr/PL 5qN9cWKCWSSJUe9sHbxeVGN5VQm0JH6FUkPmR2/dUWgPyEqO9GwA4TP072yd UXh0k3Hec3UcUNSUde5l89CkJUvh/msaEC8c/Eb1WXCAB+Jaa/loaNG6Hao7 4ToxGKAbREIkl7+wIYUCdikWG07qcaGmJpJqqNWFHk6uHAmnTBiLyB5+N8BD 1Q+bCIoMgS8VVmpuyKfDyPDMgvjZTlT3DNbQne/pDYMPrnE/cEC0qLbEtrcX +FMhE9FiBG7u0mgr+MzEOzH2L08G0nHRyTU5S/I56EnZJq8ZTgPPWFrrKyku Cuj7o1qXdKJF+O/9kWlciG/p9Wca18EpJY72jvd8XKws8uvLfI+2JR+tDl2d jhFbDAjHPyPwfAkEFzysghR/w5P7d5I4Q6krNrrTgiun9btlpEm42Twje6ez FRenNtdtPF4MWwRMl18Jw9DSkEmoBjHgtZ0fszeXifIuDhwH/69YpeX0hy1F 4mxX5C/nAQIfrPAMsftDRTlORSrjMAWCeNclom/wYYeM1kyVJg/fNOhC1de3 sEXicUyINhOul29Wvuo3z9WaN+Ie1/i4MudUgKYuDXpnHnxbEcXH18fKjlq+ HwSJAM3jxcJD2PZZzp+mwMV2sYLP70RZYCjaeLjBkwY2ybZHUoIJHEzaa7HK cRAl1yadHP6aA8pWSgGPSB7+2k28+dupH0TtA+1/LuGjabj7XP/lfiyhXbTy X8yBDwNUvczmJBC+ces6u5iH9gp3DL2Zw7Dirpvn0ohamGqu+NEyRkWV3Iyn H/9w8ffTV/92KfOwe9U7YqA/FY7lrq1WkWbh4wyb3VU+TFhiVLO7okAA2w4M fTf3zkdthUbBGNGM5d9LrUfoBKi4+ejfj+zB/RozUWJFXExa7V3j9G8daNW1 m18pHoGVp5Kfyfa1glk4YwnVa97X+UuoByfZwPXatuBCUB8WHKQZrMlhYOzL mO1HLnHw3o8g2xvqBH5WkletOM7AQNcYS8O/+8DDaH1rdjYX3sA63Y0vSKT4 yX3c8qIKa50Snswl0IC52CJ3A5ODEcbvC1//5OGVewXFZbPtsM7ENEw3j4YL l+1Su/uNBU8u6rCrbGgw/vTMi5TnLLDOnxO/eYIKu3K4He0CAfYuPMc+mE/A 5zPadxvdqWAjvU19QoqHo5WWR1PHbkO4o+aQN3UY6kz2Hv6xPRj3JdZen7zG gvEKjHSkD8EboxSnKfcCuL4noDr7+DB4mcqq5LmWokSOH+TVkRhHNc3W7uiF t00rxNf1cSH6x8N1yRF89OFVdHbrDMK5DUf+kcpjQ3CmcWmN8gC4ZGRU8SUZ QBovTvW9xJq/c5+jxuYmsN9dmyC3SoALyakMTx0WqhqXdBueZUK0iPV1w0Vf UEs6K81g3rvOPs+55F0SvB8onJcKp4DRz52sq0tZuPGQ2YV8RQ4WqbVHrnhG 4EFa8wQjqR+zKjpK28W7sedpiNzPOQ7YqQ9FNdmOwoqFmeF7hCuhUfO0+9Hk UbA8MOEtk/MBrNdNkzKrSZQI6JbQf9aO4c/WZIoAAf4Gm36RyR340cOq6sdY JhgF+i9fKjkMtVx7dL1NB9ct5xTHj7BxwD8+q8ewFBe0+UZW1pP4w5jkSy8l 0dDux6iMXgcSS4uSt3q1w++zTwmthwLIa9ycvsWOh9J2pq4lB0ohUDtM6hDJ hD16eVV7DelYZ97CqZwh8VCCL1umjwbFp0Rkpec9JqDkH//e1QqfFEVNkmTp 2Ll2FaWsjoP5cbl7j8kwwSeMoXX+Bh2W2JkLSaQTODfYN1Oh1Ieakif6l/m2 geXTgt+hLgJc7pt8SLiqFwJjHjZs9RKgk8qq4rrFQ1h5cdHsAx821Kutf6Im 8RgD2wO7qxx5WJAbWi47LoCaiGpWePUXqFYOGsrM6EWjR1lvNsZyseanyd57 rSRukQc/q915uLHxpmy7NQPD7vtZTu1gwdj5opLb7sOQ975BMjMzEVmDnmd2 /fqMZkR7OSWCBHG+nhXjMxX5/zpvkRMmkGuoY7n8UiM81Vp7iSoYgUX8TmPT iU+gpSnX0HRtBFb5/xLb3sLDmZFW+0URLcAom0sIGmdDjIb6wcSQPuQMkM3K 1Wyc8phiTH9gwGF7ncTrdAIVR80xMZuKmVfWX9aIY6PC1VwFtwY2vsHOGEVX GlR8aEgTC2XBK5GNZ+QVSCwpqUl3n2pD/bUPhNmT/XCltW7cKJKHmMU50Xl2 3jfdTR4SkZVw5JW6TaFZEz5bH+yUtYyEpRett+lI9UCLs6RvUg8BwVWF3+wU G6FHZzvtp4gAr2k4rLP3ZcOJ1/FZyhkDEP3XbWOXAB5aMTWjDGyq4WXI2py3 SqNAfblYRKgCod5S+5ofdwQs2W5FU94ZkNAtPDzk8RUF7dKM6HnO7n4qmlsw /5fn7tAsLr1BgfJ3z9tKE+fzhnuEj3vTQfjzp8KFVB70+O0MUQ2rRY+WmmY5 vS6MLX9/uESdC/Uu7P+6XGj4rejSnsRhDhp/MtJdRX8JnimCR6+LBMD7E1rx vKIfVmqLKWh/5szv17xI9SVgWNSxyILZjuuMx6R6FhN4Wf/Pg18tTPwfHnsR cw== "]]}, AspectRatio->Automatic, Axes->False, Frame->False, ImageSize->{400, 400}]], "Output", CellChangeTimes->{3.7590711337790833`*^9}, CellLabel->"Out[13]=", CellID->74101598] }, Open ]] }, Open ]] }, 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["Robert Dickau, Eric W. Weisstein", "Text", CellID->980666045] }, 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["billiard", "Item", CellID->918829517], Cell["bouncing ball", "Item", CellID->943963398], Cell["pool shot", "Item", CellID->874763728] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Array Manipulation"}], "\" \"", "\"Array Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "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, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Geometry", {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "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, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "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, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "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, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVT8tKA0EQBDVmV8SzJ8nJ237EsiYhIEbS4n12UkmGzIvpnsP49c6qiJ66mqqiqvqmox\ lJsaDrbZaYpaP5cII+Y3+45Ktnw0LNGsFBUqEHKm4M1ujF4+\ IlO6SKhuCqTYkJnu7fDWdlzcfXW0XrpOLJaK4pG4FjbvsswVVad9S8phCRpNDNoATHkAyqcr6Nk5sP\ F9/5091lC26WeyNqrGi2UpbxS7RPsPjLTCOCzc7/\ D7zbeEGKCT91294XyiOjrr7dgUNOGm8lgppV9nrSfAKBrGVf"}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->154679011] }, 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["SymbolName (documented Wolfram Language symbol)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->768332473] }, 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["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[BoxData[ Marketplace`Private`getTemplateTests[ "Function", <| "Name" -> "BilliardPolygon", "UUID" -> "dc718fa1-c0aa-46ff-9a06-3612756eb409", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Show the trajectory of a ball bouncing in a regular n-sided polygon", "Keywords" -> {"billiard", "bouncing ball", "pool shot"}, "Attributes" -> {}, "AutoUpdate" -> Automatic, "LatestUpdate" -> DateObject[{2019, 3, 1}, "Day", "Gregorian", -6.], "ShortName" -> "BilliardPolygon", "AlternativeNames" -> {}, "AutoCopyExampleNotebook" -> True, "Categories" -> { "Visualization & Graphics", "Symbolic & Numeric Computation", "Geometry"}, "ContributedBy" -> "Robert Dickau, Eric W. Weisstein", "DefinitionNotebook" -> "marketplacestorage/resources/dc7/dc718fa1-c0aa-46ff-9a06-3612756eb409/\ DefinitionNotebook/original.nb", "Details" -> "", "Discoverable" -> Automatic, "DisplayedSourceFields" -> {}, "Documentation" -> <|"Usage" -> {<|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"BilliardPolygon\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ StyleBox["sides", "TI"], ",", StyleBox["pos", "TI"], ",", StyleBox["\[Theta]", "TI"], ",", StyleBox["t", "TI"]}], "]"}]], "Description" -> TextData[{"gives the trajectory of a ball in a regular ", Cell[ BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], StyleBox["-", FontSlant -> "Italic"], "sided polygon starting from position ", Cell[ BoxData[ StyleBox["pos", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " with an angle ", Cell[ BoxData[ StyleBox["\[Theta]", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " for ", Cell[ BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " steps."}]|>}, "Notes" -> { Cell[ "Mathematical billiards consists of a ball bouncing with no friction \ against the sides of a plane or higher-dimensional object, in this case, a \ regular polygon. The trajectories show interesting behavior related to \ dynamical systems theory.", "Notes", CellTags -> {"TabNext"}, CellID -> 107622986]}|>, "ExampleNotebook" -> CloudObject[ "https://www.wolframcloud.com/objects/d2090f6b-0772-483e-b298-\ 2699a5c71840"], "ExternalLinks" -> {}, "OriginalUUID" -> "94649bdc-a13f-4918-8863-080726119858", "Originator" -> Missing["NoInput"], "PermissionsGroups" -> {}, "PricingInformation" -> 0, "Public" -> True, "PublisherUUID" -> "1ca97c83-1e23-4ef8-a6ef-83680a155d35", "ReleaseDate" -> DateObject[{2019, 3, 1}, "Day", "Gregorian", -6.], "SeeAlso" -> {}, "SourceMetadata" -> <||>, "StoredElements" -> {Automatic}, "SubmissionID" -> "8552", "SubmissionUUID" -> "e7be23ab-7c3c-45ea-ac69-aa5bc59d2595", "Submitter" -> "enriquez@wolfram.com", "SymbolName" -> "FunctionRepository`$94649bdca13f49188863080726119858`BilliardPolygon", "VersionHistory" -> <| "1.0.0" -> <| "Timestamp" -> DateObject[{2019, 3, 1, 16, 17, 13.30956`7.876738684009154}, "Instant", "Gregorian", -6.], "Approver" -> "pacoj@wolfram.com", "SubmissionID" -> "8552", "Submitter" -> "enriquez@wolfram.com", "SubmissionUUID" -> "e7be23ab-7c3c-45ea-ac69-aa5bc59d2595", "OriginalUUID" -> "94649bdc-a13f-4918-8863-080726119858"|>|>, "WolframLanguageVersionRequired" -> "11.3", "VerificationTests" -> Missing["NotFound"]|>, Missing[]]], "Input", CellID->145316810] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BilliardPolygon | 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.854035792490142`16.338490732797702*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.854035792543246`16.338490732803685*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"fc5c07c8-2451-4acb-bc03-07f85a9e8810", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384194811]}, "TemplateCell"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"fc5c07c8-2451-4acb-bc03-07f85a9e8810", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384194811], Cell[732, 27, 155, 4, 70, "Text",ExpressionUUID->"578d340e-6f34-4d95-9c0b-02e017200f6e", CellTags->{"Description", "TemplateCell"}, CellID->842034746]}, "Title"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"fc5c07c8-2451-4acb-bc03-07f85a9e8810", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384194811]}, "Description"->{ Cell[732, 27, 155, 4, 70, "Text",ExpressionUUID->"578d340e-6f34-4d95-9c0b-02e017200f6e", CellTags->{"Description", "TemplateCell"}, CellID->842034746]}, "Definition"->{ Cell[912, 35, 1206, 29, 70, "Section",ExpressionUUID->"0f3266ee-e21f-44bc-98a7-bbca663ecbde", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[912, 35, 1206, 29, 70, "Section",ExpressionUUID->"0f3266ee-e21f-44bc-98a7-bbca663ecbde", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[912, 35, 1206, 29, 70, "Section",ExpressionUUID->"0f3266ee-e21f-44bc-98a7-bbca663ecbde", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[12542, 347, 1980, 50, 70, "Subsection",ExpressionUUID->"2d43e538-d7f7-41c3-ae30-ee2c9c8a5dee", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[15460, 438, 1429, 32, 70, "Subsection",ExpressionUUID->"967b38c3-533e-48a3-b4b1-e96f7935d614", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[17253, 485, 7029, 152, 70, "Section",ExpressionUUID->"b5934b8b-bf7f-4aa8-803a-6d106cd0ad84", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[80373, 1654, 1026, 26, 70, "Subsection",ExpressionUUID->"acaeb952-ac68-42bd-91b3-229a6172fa3c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[81507, 1688, 996, 26, 70, "Subsection",ExpressionUUID->"cf3bbc80-4a44-4850-bdd4-d27957880335", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[82687, 1728, 221, 6, 70, "Subsection",ExpressionUUID->"722a0dfd-7179-49f0-a158-76256e2c3649", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[90472, 1988, 980, 26, 70, "Subsection",ExpressionUUID->"872dc56e-849f-4b93-99db-4f3caa7d533c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[92014, 2029, 1039, 26, 70, "Subsection",ExpressionUUID->"7e360cc5-2745-4d09-a7eb-bc0d3f14028c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[93621, 2070, 1084, 26, 70, "Subsection",ExpressionUUID->"cd4a1075-fd02-4702-8210-b3b4bcd155bf", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[95261, 2111, 923, 26, 70, "Subsection",ExpressionUUID->"1b0d152a-f446-41aa-8794-ce30a352e059", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[96729, 2152, 1874, 45, 70, "Subsection",ExpressionUUID->"8055c5e2-0950-494c-838b-3792e889378c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[102600, 2281, 955, 25, 70, "Subsection",ExpressionUUID->"6cac2a77-8fdb-41ae-b122-8cf3e92785aa", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[103580, 2310, 1174, 31, 70, "Subsubsection",ExpressionUUID->"6e5cd2d2-1e0c-4960-bb67-bcd4a1a9852a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[104883, 2350, 1113, 29, 70, "Subsubsection",ExpressionUUID->"671f74be-1d3e-4a1f-89ee-58104a0b5e49", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[107357, 2426, 1280, 33, 70, "Subsubsection",ExpressionUUID->"61637fcf-758f-456c-83c0-0d583ab4b845", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[110042, 2507, 1913, 46, 70, "Subsubsection",ExpressionUUID->"75c3813a-e590-47cb-9ad6-4f2cb5c66774", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[114891, 2643, 1071, 27, 70, "Subsubsection",ExpressionUUID->"844518f0-af85-4bde-ac0c-8133af1a9e01", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[116964, 2707, 1155, 28, 70, "Section",ExpressionUUID->"88022bd3-d8cb-4d86-9de3-a9d7f7205010", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[118688, 2750, 1033, 26, 70, "Section",ExpressionUUID->"1e9f4c9b-a57f-48d3-9d3e-146c5993fc6f", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[12322, 338, 195, 5, 70, "Section",ExpressionUUID->"384c7467-c4ef-448a-9054-6e1ee6977c89", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[12322, 338, 195, 5, 70, "Section",ExpressionUUID->"384c7467-c4ef-448a-9054-6e1ee6977c89", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[80099, 1645, 249, 5, 70, "Section",ExpressionUUID->"6212c446-cf25-40f8-8971-76c3088dafa5", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[12542, 347, 1980, 50, 70, "Subsection",ExpressionUUID->"2d43e538-d7f7-41c3-ae30-ee2c9c8a5dee", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[15460, 438, 1429, 32, 70, "Subsection",ExpressionUUID->"967b38c3-533e-48a3-b4b1-e96f7935d614", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[15460, 438, 1429, 32, 70, "Subsection",ExpressionUUID->"967b38c3-533e-48a3-b4b1-e96f7935d614", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[16892, 472, 312, 7, 70, "Notes",ExpressionUUID->"ecc199e2-c23b-48f7-a4db-a6901c467a58", CellTags->"TabNext", CellID->661410803], Cell[91455, 2016, 522, 8, 70, "Item",ExpressionUUID->"9b6364a6-4407-425d-a8a3-8cd5cc7f1817", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[93056, 2057, 528, 8, 70, "Item",ExpressionUUID->"b979262f-a151-406a-9528-1f516b466c05", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[94708, 2098, 516, 8, 70, "Text",ExpressionUUID->"42bc5f3b-bdcf-4c0d-80b4-8c21da3758e4", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[96187, 2139, 505, 8, 70, "Item",ExpressionUUID->"6ed6b028-ac55-43bb-8932-82578580238b", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[118122, 2737, 529, 8, 70, "Text",ExpressionUUID->"7bea9fdb-b84d-46d6-a19a-bec26378abdb", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[119724, 2778, 515, 8, 70, "Text",ExpressionUUID->"27795581-b568-424f-b835-9601ed61c1be", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[17253, 485, 7029, 152, 70, "Section",ExpressionUUID->"b5934b8b-bf7f-4aa8-803a-6d106cd0ad84", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[80099, 1645, 249, 5, 70, "Section",ExpressionUUID->"6212c446-cf25-40f8-8971-76c3088dafa5", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[80373, 1654, 1026, 26, 70, "Subsection",ExpressionUUID->"acaeb952-ac68-42bd-91b3-229a6172fa3c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[80373, 1654, 1026, 26, 70, "Subsection",ExpressionUUID->"acaeb952-ac68-42bd-91b3-229a6172fa3c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[81507, 1688, 996, 26, 70, "Subsection",ExpressionUUID->"cf3bbc80-4a44-4850-bdd4-d27957880335", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[82687, 1728, 221, 6, 70, "Subsection",ExpressionUUID->"722a0dfd-7179-49f0-a158-76256e2c3649", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[82911, 1736, 7524, 247, 70, "Output",ExpressionUUID->"6b94f743-197a-46be-9e42-76cb697fb386", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->154679011]}, "Categories-Checkboxes"->{ Cell[82911, 1736, 7524, 247, 70, "Output",ExpressionUUID->"6b94f743-197a-46be-9e42-76cb697fb386", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->154679011]}, "CheckboxCell"->{ Cell[82911, 1736, 7524, 247, 70, "Output",ExpressionUUID->"6b94f743-197a-46be-9e42-76cb697fb386", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->154679011], Cell[105999, 2381, 1321, 40, 70, "Output",ExpressionUUID->"de43a09d-d922-49a6-9c51-50e68e541a55", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[108640, 2461, 1365, 41, 70, "Output",ExpressionUUID->"d2899f58-691e-4c5c-bd6e-27537ffa6aef", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[111958, 2555, 2896, 83, 70, "Output",ExpressionUUID->"ce42e46a-9f7e-481d-9521-9d0b36958a31", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[115965, 2672, 938, 28, 70, "Output",ExpressionUUID->"4472b61f-2ca3-4081-820c-f4bd91a799cb", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[90472, 1988, 980, 26, 70, "Subsection",ExpressionUUID->"872dc56e-849f-4b93-99db-4f3caa7d533c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "DefaultContent"->{ Cell[91455, 2016, 522, 8, 70, "Item",ExpressionUUID->"9b6364a6-4407-425d-a8a3-8cd5cc7f1817", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[93056, 2057, 528, 8, 70, "Item",ExpressionUUID->"b979262f-a151-406a-9528-1f516b466c05", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[94708, 2098, 516, 8, 70, "Text",ExpressionUUID->"42bc5f3b-bdcf-4c0d-80b4-8c21da3758e4", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[96187, 2139, 505, 8, 70, "Item",ExpressionUUID->"6ed6b028-ac55-43bb-8932-82578580238b", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[104757, 2343, 89, 2, 70, "Text",ExpressionUUID->"0839c32f-e8aa-4c9e-bfc1-b7424f7bfe38", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[118122, 2737, 529, 8, 70, "Text",ExpressionUUID->"7bea9fdb-b84d-46d6-a19a-bec26378abdb", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[119724, 2778, 515, 8, 70, "Text",ExpressionUUID->"27795581-b568-424f-b835-9601ed61c1be", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Related Resource Objects"->{ Cell[92014, 2029, 1039, 26, 70, "Subsection",ExpressionUUID->"7e360cc5-2745-4d09-a7eb-bc0d3f14028c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[93621, 2070, 1084, 26, 70, "Subsection",ExpressionUUID->"cd4a1075-fd02-4702-8210-b3b4bcd155bf", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[95261, 2111, 923, 26, 70, "Subsection",ExpressionUUID->"1b0d152a-f446-41aa-8794-ce30a352e059", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[96729, 2152, 1874, 45, 70, "Subsection",ExpressionUUID->"8055c5e2-0950-494c-838b-3792e889378c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[96729, 2152, 1874, 45, 70, "Subsection",ExpressionUUID->"8055c5e2-0950-494c-838b-3792e889378c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[102600, 2281, 955, 25, 70, "Subsection",ExpressionUUID->"6cac2a77-8fdb-41ae-b122-8cf3e92785aa", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[103580, 2310, 1174, 31, 70, "Subsubsection",ExpressionUUID->"6e5cd2d2-1e0c-4960-bb67-bcd4a1a9852a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[103580, 2310, 1174, 31, 70, "Subsubsection",ExpressionUUID->"6e5cd2d2-1e0c-4960-bb67-bcd4a1a9852a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[104757, 2343, 89, 2, 70, "Text",ExpressionUUID->"0839c32f-e8aa-4c9e-bfc1-b7424f7bfe38", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[104883, 2350, 1113, 29, 70, "Subsubsection",ExpressionUUID->"671f74be-1d3e-4a1f-89ee-58104a0b5e49", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[105999, 2381, 1321, 40, 70, "Output",ExpressionUUID->"de43a09d-d922-49a6-9c51-50e68e541a55", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[104883, 2350, 1113, 29, 70, "Subsubsection",ExpressionUUID->"671f74be-1d3e-4a1f-89ee-58104a0b5e49", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[105999, 2381, 1321, 40, 70, "Output",ExpressionUUID->"de43a09d-d922-49a6-9c51-50e68e541a55", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[107357, 2426, 1280, 33, 70, "Subsubsection",ExpressionUUID->"61637fcf-758f-456c-83c0-0d583ab4b845", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[108640, 2461, 1365, 41, 70, "Output",ExpressionUUID->"d2899f58-691e-4c5c-bd6e-27537ffa6aef", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[107357, 2426, 1280, 33, 70, "Subsubsection",ExpressionUUID->"61637fcf-758f-456c-83c0-0d583ab4b845", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[108640, 2461, 1365, 41, 70, "Output",ExpressionUUID->"d2899f58-691e-4c5c-bd6e-27537ffa6aef", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[110042, 2507, 1913, 46, 70, "Subsubsection",ExpressionUUID->"75c3813a-e590-47cb-9ad6-4f2cb5c66774", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[111958, 2555, 2896, 83, 70, "Output",ExpressionUUID->"ce42e46a-9f7e-481d-9521-9d0b36958a31", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[110042, 2507, 1913, 46, 70, "Subsubsection",ExpressionUUID->"75c3813a-e590-47cb-9ad6-4f2cb5c66774", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[111958, 2555, 2896, 83, 70, "Output",ExpressionUUID->"ce42e46a-9f7e-481d-9521-9d0b36958a31", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[114891, 2643, 1071, 27, 70, "Subsubsection",ExpressionUUID->"844518f0-af85-4bde-ac0c-8133af1a9e01", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[114891, 2643, 1071, 27, 70, "Subsubsection",ExpressionUUID->"844518f0-af85-4bde-ac0c-8133af1a9e01", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[115965, 2672, 938, 28, 70, "Output",ExpressionUUID->"4472b61f-2ca3-4081-820c-f4bd91a799cb", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[115965, 2672, 938, 28, 70, "Output",ExpressionUUID->"4472b61f-2ca3-4081-820c-f4bd91a799cb", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[116964, 2707, 1155, 28, 70, "Section",ExpressionUUID->"88022bd3-d8cb-4d86-9de3-a9d7f7205010", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[118688, 2750, 1033, 26, 70, "Section",ExpressionUUID->"1e9f4c9b-a57f-48d3-9d3e-146c5993fc6f", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 243653, 5129}, {"TemplateCell", 243835, 5133}, {"Title", 244170, 5140}, {"Description", 244351, 5144}, {"Definition", 244529, 5148}, {"Function", 244725, 5152}, {"TemplateCellGroup", 244930, 5156}, {"Documentation", 248776, 5217}, {"TemplateSection", 248970, 5221}, {"Usage", 249344, 5228}, {"Details & Options", 249539, 5232}, {"Notes", 249743, 5236}, {"TabNext", 249949, 5240}, {"Examples", 251081, 5262}, {"Source & Additional Information", 251291, 5266}, {"Contributed By", 251503, 5270}, {"ContributorInformation", 251738, 5274}, {"Keywords", 251959, 5278}, {"Categories", 252150, 5282}, {"Categories-Checkboxes", 252546, 5289}, {"CheckboxCell", 252759, 5293}, {"Related Symbols", 253880, 5309}, {"DefaultContent", 254082, 5313}, {"Related Resource Objects", 255256, 5335}, {"Source/Reference Citation", 255479, 5339}, {"Links", 255683, 5343}, {"Tests", 255866, 5347}, {"VerificationTests", 256083, 5351}, {"Compatibility", 256296, 5355}, {"CompatibilityWolframLanguageVersionRequired", 256526, 5359}, {"Wolfram Language Version", 256799, 5363}, {"ScrapeDefault", 257061, 5367}, {"CompatibilityOperatingSystem", 257265, 5371}, {"Operating System", 257735, 5378}, {"CompatibilityOperatingSystem-Checkboxes", 258000, 5382}, {"CompatibilityFeatures", 258257, 5386}, {"Required Features", 258709, 5393}, {"CompatibilityFeatures-Checkboxes", 258961, 5397}, {"CompatibilityEvaluationEnvironment", 259218, 5401}, {"Environments", 259698, 5408}, {"CompatibilityEvaluationEnvironment-Checkboxes", 259971, 5412}, {"Cloud Support", 260232, 5416}, {"CompatibilityCloudSupport", 260477, 5420}, {"CompatibilityCloudSupport-Checkboxes", 260955, 5427}, {"Author Notes", 261197, 5431}, {"Submission Notes", 261397, 5435} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"fc5c07c8-2451-4acb-bc03-07f85a9e8810", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384194811], Cell[732, 27, 155, 4, 70, "Text",ExpressionUUID->"578d340e-6f34-4d95-9c0b-02e017200f6e", CellTags->{"Description", "TemplateCell"}, CellID->842034746], Cell[CellGroupData[{ Cell[912, 35, 1206, 29, 70, "Section",ExpressionUUID->"0f3266ee-e21f-44bc-98a7-bbca663ecbde", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2121, 66, 10164, 267, 70, "Input",ExpressionUUID->"1259ebe2-faa1-479a-ad46-b6d1c71a75ce", InitializationCell->True, CellID->417191076] }, Open ]], Cell[CellGroupData[{ Cell[12322, 338, 195, 5, 70, "Section",ExpressionUUID->"384c7467-c4ef-448a-9054-6e1ee6977c89", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[12542, 347, 1980, 50, 70, "Subsection",ExpressionUUID->"2d43e538-d7f7-41c3-ae30-ee2c9c8a5dee", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[14547, 401, 262, 8, 70, "UsageInputs",ExpressionUUID->"73cb9b11-7016-4fdf-84b1-c572920b8155", CellID->402000191], Cell[14812, 411, 599, 21, 70, "UsageDescription",ExpressionUUID->"60b3f26d-56a9-40de-909a-a213095e21e8", CellID->285759354] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15460, 438, 1429, 32, 70, "Subsection",ExpressionUUID->"967b38c3-533e-48a3-b4b1-e96f7935d614", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[16892, 472, 312, 7, 70, "Notes",ExpressionUUID->"ecc199e2-c23b-48f7-a4db-a6901c467a58", CellTags->"TabNext", CellID->661410803] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17253, 485, 7029, 152, 70, "Section",ExpressionUUID->"b5934b8b-bf7f-4aa8-803a-6d106cd0ad84", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[24307, 641, 56, 1, 70, "Subsection",ExpressionUUID->"67e88c78-f769-4fee-b68c-0cb9591dc250", CellID->462042388], Cell[24366, 644, 343, 6, 70, "Text",ExpressionUUID->"a83b1296-68f9-49d2-b7f9-856ed42d1d38", CellID->818817568], Cell[CellGroupData[{ Cell[24734, 654, 368, 11, 70, "Input",ExpressionUUID->"60e15249-09c4-4a9c-99c1-bbeffe91c5f8", CellID->427580057], Cell[25105, 667, 2855, 52, 70, "Output",ExpressionUUID->"19259173-d0e5-4f2f-b544-93bfe6869a1c", CellID->961673865] }, Open ]], Cell[27975, 722, 348, 6, 70, "Text",ExpressionUUID->"76019fc0-0078-441d-96b5-b9ec62811a35", CellID->349559082], Cell[CellGroupData[{ Cell[28348, 732, 575, 16, 70, "Input",ExpressionUUID->"780cfe63-b410-437e-8cfb-9cd179e922a9", CellID->912816015], Cell[28926, 750, 4244, 80, 70, "Output",ExpressionUUID->"85bc55c5-a11e-4815-bc8d-429d128bc416", CellID->408406243] }, Open ]], Cell[33185, 833, 396, 6, 70, "Text",ExpressionUUID->"d22a2fca-7735-4dd1-8a74-e5e515c12af6", CellID->333612097], Cell[CellGroupData[{ Cell[33606, 843, 636, 16, 70, "Input",ExpressionUUID->"308f04fa-9f69-4e1e-af10-8d0b2d9898ac", CellID->499659762], Cell[34245, 861, 38986, 646, 70, "Output",ExpressionUUID->"91742856-33d1-4af5-88f9-062e28160dd5", CellID->865776739] }, Open ]], Cell[73246, 1510, 226, 4, 70, "Text",ExpressionUUID->"b650a7c0-84b2-4d4f-8e1b-29d3507bc7f8", CellID->740024590], Cell[CellGroupData[{ Cell[73497, 1518, 391, 11, 70, "Input",ExpressionUUID->"d31952a2-b77d-472b-9d09-8d8f0528ae73", CellID->699238196], Cell[73891, 1531, 6147, 107, 70, "Output",ExpressionUUID->"96cee26a-24f3-4905-a0cb-1e011f904777", CellID->74101598] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80099, 1645, 249, 5, 70, "Section",ExpressionUUID->"6212c446-cf25-40f8-8971-76c3088dafa5", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[80373, 1654, 1026, 26, 70, "Subsection",ExpressionUUID->"acaeb952-ac68-42bd-91b3-229a6172fa3c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[81402, 1682, 68, 1, 70, "Text",ExpressionUUID->"74ca347a-f340-4ba9-bc96-109a61f573f6", CellID->980666045] }, Open ]], Cell[CellGroupData[{ Cell[81507, 1688, 996, 26, 70, "Subsection",ExpressionUUID->"cf3bbc80-4a44-4850-bdd4-d27957880335", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[82506, 1716, 44, 1, 70, "Item",ExpressionUUID->"9c3211b7-3640-4d10-8396-4af7d478d938", CellID->918829517], Cell[82553, 1719, 49, 1, 70, "Item",ExpressionUUID->"aae771e2-1413-472a-ae43-a6ef83b21a24", CellID->943963398], Cell[82605, 1722, 45, 1, 70, "Item",ExpressionUUID->"d2849849-e524-451e-b501-60dd1bad25ba", CellID->874763728] }, Open ]], Cell[CellGroupData[{ Cell[82687, 1728, 221, 6, 70, "Subsection",ExpressionUUID->"722a0dfd-7179-49f0-a158-76256e2c3649", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[82911, 1736, 7524, 247, 70, "Output",ExpressionUUID->"6b94f743-197a-46be-9e42-76cb697fb386", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->154679011] }, Open ]], Cell[CellGroupData[{ Cell[90472, 1988, 980, 26, 70, "Subsection",ExpressionUUID->"872dc56e-849f-4b93-99db-4f3caa7d533c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[91455, 2016, 522, 8, 70, "Item",ExpressionUUID->"9b6364a6-4407-425d-a8a3-8cd5cc7f1817", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473] }, Open ]], Cell[CellGroupData[{ Cell[92014, 2029, 1039, 26, 70, "Subsection",ExpressionUUID->"7e360cc5-2745-4d09-a7eb-bc0d3f14028c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[93056, 2057, 528, 8, 70, "Item",ExpressionUUID->"b979262f-a151-406a-9528-1f516b466c05", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[93621, 2070, 1084, 26, 70, "Subsection",ExpressionUUID->"cd4a1075-fd02-4702-8210-b3b4bcd155bf", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[94708, 2098, 516, 8, 70, "Text",ExpressionUUID->"42bc5f3b-bdcf-4c0d-80b4-8c21da3758e4", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[95261, 2111, 923, 26, 70, "Subsection",ExpressionUUID->"1b0d152a-f446-41aa-8794-ce30a352e059", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[96187, 2139, 505, 8, 70, "Item",ExpressionUUID->"6ed6b028-ac55-43bb-8932-82578580238b", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[96729, 2152, 1874, 45, 70, "Subsection",ExpressionUUID->"8055c5e2-0950-494c-838b-3792e889378c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[98606, 2199, 3957, 77, 70, "Input",ExpressionUUID->"34882127-e8c7-4eec-9fac-88d5697f07e0", CellID->145316810] }, Open ]], Cell[CellGroupData[{ Cell[102600, 2281, 955, 25, 70, "Subsection",ExpressionUUID->"6cac2a77-8fdb-41ae-b122-8cf3e92785aa", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[103580, 2310, 1174, 31, 70, "Subsubsection",ExpressionUUID->"6e5cd2d2-1e0c-4960-bb67-bcd4a1a9852a", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[104757, 2343, 89, 2, 70, "Text",ExpressionUUID->"0839c32f-e8aa-4c9e-bfc1-b7424f7bfe38", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[104883, 2350, 1113, 29, 70, "Subsubsection",ExpressionUUID->"671f74be-1d3e-4a1f-89ee-58104a0b5e49", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[105999, 2381, 1321, 40, 70, "Output",ExpressionUUID->"de43a09d-d922-49a6-9c51-50e68e541a55", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[107357, 2426, 1280, 33, 70, "Subsubsection",ExpressionUUID->"61637fcf-758f-456c-83c0-0d583ab4b845", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[108640, 2461, 1365, 41, 70, "Output",ExpressionUUID->"d2899f58-691e-4c5c-bd6e-27537ffa6aef", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[110042, 2507, 1913, 46, 70, "Subsubsection",ExpressionUUID->"75c3813a-e590-47cb-9ad6-4f2cb5c66774", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[111958, 2555, 2896, 83, 70, "Output",ExpressionUUID->"ce42e46a-9f7e-481d-9521-9d0b36958a31", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[114891, 2643, 1071, 27, 70, "Subsubsection",ExpressionUUID->"844518f0-af85-4bde-ac0c-8133af1a9e01", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[115965, 2672, 938, 28, 70, "Output",ExpressionUUID->"4472b61f-2ca3-4081-820c-f4bd91a799cb", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[116964, 2707, 1155, 28, 70, "Section",ExpressionUUID->"88022bd3-d8cb-4d86-9de3-a9d7f7205010", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[118122, 2737, 529, 8, 70, "Text",ExpressionUUID->"7bea9fdb-b84d-46d6-a19a-bec26378abdb", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[118688, 2750, 1033, 26, 70, "Section",ExpressionUUID->"1e9f4c9b-a57f-48d3-9d3e-146c5993fc6f", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[119724, 2778, 515, 8, 70, "Text",ExpressionUUID->"27795581-b568-424f-b835-9601ed61c1be", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)