(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 296391, 6232] NotebookOptionsPosition[ 140542, 3278] NotebookOutlinePosition[ 284555, 5982] CellTagsIndexPosition[ 282746, 5932] WindowTitle->ChebyshevPsi | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ChebyshevPsi", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->839186454], Cell["Calculate the value of the second Chebyshev function \[Psi](x)", "Text", CellTags->{"Description", "TemplateCell"}, CellID->317276982], 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[{"ChebyshevPsi", "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"MangoldtLambda", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", RowBox[{"Floor", "[", "x", "]"}]}], "}"}]}], "]"}]}]], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.770497724756578*^9, 3.7704978425099554`*^9}, { 3.7704989816406603`*^9, 3.7704990024100885`*^9}, {3.7704993956145964`*^9, 3.7704993958489294`*^9}, {3.7704996046148624`*^9, 3.770499625308255*^9}, { 3.770499780304854*^9, 3.7704997812014837`*^9}}, CellTags->"TabNext", CellLabel->"In[116]:=", CellID->196644849] }, 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[{"ChebyshevPsi", "[", StyleBox["x", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->748402470], Cell[TextData[{ "returns the value of the second Chebyshev function at ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->606875941] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "The second Chebysev function ", Cell[BoxData[ RowBox[{ StyleBox["\[Psi]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is calculated by summing the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MangoldtLambda", "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/MangoldtLambda", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " function from 2 to the greatest integer less than or equal to ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". If ", Cell[BoxData[ RowBox[{ StyleBox["x", "TI"], "<", "2"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the defining sum is empty and we set ", Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["\[Psi]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")"}]}], "=", "0"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " by convention." }], "Notes", CellTags->"TabNext", CellID->702663780], Cell[TextData[{ "The ", ButtonBox["Prime Number Theorem", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathworld.wolfram.com/PrimeNumberTheorem.html"], None}, ButtonNote->"https://mathworld.wolfram.com/PrimeNumberTheorem.html"], " is equivalent to the statement that ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[Psi]", "(", "x", ")"}], "x"], "\[Rule]", "1"}], TraditionalForm]]], " as ", Cell[BoxData[ RowBox[{ StyleBox["x", "TI"], "\[Rule]", "\[Infinity]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->849994851] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Compute ", Cell[BoxData[ RowBox[{ StyleBox["\[Psi]", "TI"], RowBox[{"(", "30", ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.77049982285703*^9, 3.7704998295830293`*^9}, { 3.7707410172046824`*^9, 3.7707410237896824`*^9}}, CellID->285649181], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChebyshevPsi", "[", "30", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7704997629931707`*^9, 3.770499799697978*^9}}, CellLabel->"In[117]:=", CellID->109850191], Cell[BoxData[ RowBox[{ RowBox[{"4", " ", RowBox[{"Log", "[", "2", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"Log", "[", "3", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", "5", "]"}]}], "+", RowBox[{"Log", "[", "7", "]"}], "+", RowBox[{"Log", "[", "11", "]"}], "+", RowBox[{"Log", "[", "13", "]"}], "+", RowBox[{"Log", "[", "17", "]"}], "+", RowBox[{"Log", "[", "19", "]"}], "+", RowBox[{"Log", "[", "23", "]"}], "+", RowBox[{"Log", "[", "29", "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7704998073515244`*^9}, CellLabel->"Out[117]=", CellID->516644730] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Obtain a decimal approximation:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7705000336275167`*^9, 3.7705001003231335`*^9}, 3.7705001599934535`*^9}, CellID->650914803], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChebyshevPsi", "[", "30", "]"}], "//", "N"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705001069214773`*^9, 3.770500122794014*^9}}, CellLabel->"In[118]:=", CellID->364493708], Cell[BoxData["28.476498561565812`"], "Output", TaggingRules->{}, CellChangeTimes->{3.7705001246539955`*^9}, CellLabel->"Out[118]=", CellID->609661972] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "Plot ", Cell[BoxData[ RowBox[{ StyleBox["\[Psi]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " from 0 to 30:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7705002839653406`*^9, 3.7705003634347453`*^9}, { 3.7707410333076825`*^9, 3.7707410355276823`*^9}}, CellID->587971301], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"ChebyshevPsi", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77050037129972*^9, 3.7705003904614725`*^9}}, CellLabel->"In[119]:=", CellID->840555084], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxNy3s41PkCBvAxbpVLyGVEbiHGhAaTa35WFEolKZcQod2klFBqyVFJpWiT xtJWtruQjgqrMiU5Yl3KpE2RVHJpGrcxLvuc5znn++77z/t8nvd59cN2+kTQ aTSasgSN9t8e7Xz+xPB44TLa/9JWwNjnwk91/r8ptaYwBj+bOH7tjXZJ/iVi 5UGNbFH7HeJ3Vd47h9triN0N+94K2luIRe1Lz35r7ybmuV4tbL4kJLbMLP4y VgcX8O+Z6wzBiTvq7v/kMExsfu5Lg2QbzO0zG7GRHiXelVXixo0aJ+58cz/j 0UnYy/hxU28ZbFzZ7G9FExG/6fm+oyEXdre1yZl+PkGs/e5BbxhripgmjM19 vg7ukWF6WibARebcoqnH8LKf98flbpwmNshmG88cgGWu9LVHXIIbXwQ4WA3A d7pUBs6rzBDnjNQX0GzhkAUO9MZUePkSYZn1NdjE7WZE3gtY3j9cgy6EE8tP brWWp1FDdhPTP5j3OgfVu6nnLYGpzqlnEhvhWTIxZk0X4ebFnZm/9sPfGwq0 WzToxKrRITdkXSWJ4xacjzl/VIq4tbGFbdYgTZx6dUg1LkaGmJ0iP1alJEuc 0T9/W9cWuHuT6WvpMnhcGD3i/QxWPFWinPsGNmQOL+4agu2fLvVkSs2i6HrM Cbmbk86R4urUKhacvcS90nsDzImodNIrm0P8OtfykUBJgfjz8p57HH9F4vFv 54qTLs4l3h+Z6Z1WD0++SRs4IYSD5VIKZkkpUQcLWqvUuySph9ecaj0VYT13 8cAJBpzy4b5akwFM9y++2+4FpzX+vv59HJz+IDtLUAsfL0xuomsqE6/7tZTl FahCrPHLh2Nn8ucR63wz3buIBxut2hVa+Rk2/uASqPcdNtk/z++wGGYqf1zb J6VKHWdH/JUXqkSxrpV7rVGELV/5u2jqw1ZSU5wPVrBL1TEFuWR4TZx6D7se 3t5jkZUaqkZ81NdjWcsoPOU+0vjCUYN4j93FkOepDOIgVe8BrTJN4uVDE/tj Pswn7r//dEzSXIv4TOrpuPOJcOSnEXZPPmy/KlBgzoMLp0+ubXsJK5Y+Kt73 GXadExDSIIATw4WKumK4qOpEdayUNqX/XHDU1pRBdasZxzxRgNnXK6OGLsGH HNdtmW+7gDh470hGQ5IOsf3t83d/fqhL7E2TWhHSAof7xLx2/gjHJF02KBmE Ewv52/XG4ce9RwLqaHpUsFLzJ9rQfMo9ST85RRoOfHFceQsD3qU7etnFDOby 6uvo6+AnURcGePEwo2TlUvcaOHpckFKnoE+85rAd/2IIzFY5ZJFUCm8f8Tks eAoX8g3fRHXAVL2CzOUe+G3lqGXnIHzLenutWAjvL3oXqCmCVxr7CjjTsPqF uiO+kgaUwboDR8Trdan0iGi2CwsWmSl1Lt4Ac7cHO3ePwI43b/2Wk7OQWD0k KSWeZUgsUPEM9auBY0qbNufPMyLuW7MhsGcrbKLL6Dh6Eo4a7NhkVg7L+Dky DtbDV/7Ib2/shONjve+NfYbdjGZy9IQwK7ldxmYcVn1dHO8xBU+y03s3042p raMLSsv3GlI9J0L9dsvC6sv6m8wuwB5DCR4fOYuI+8Nn7bmbbEKs+eRUxQJ9 U2J3Qw360Rq4VYfP9X8Jh2qet2J9hq/kiJLPCuD+eQEN0xPwKZ+M3WUzMDur grFNikkl+vdVjuWYUq+a+qq1Z8P7FLUimhXgbMn8nHgr+Na4Tp2WP/yu28As shBWeWGcWTIEn2Nu3ynMNiPWTi9ey+GwiHPN7JTmRS0mrp/vYiPMMidOzZMI V7a2ILbXrjlt8Qrm23vWMr7ACf4tYolJ+JQl1zCYZklpTL3++kbEpMKtvbwq 6fBS28lYhjQs51iUu1cWvuM6t9dCHg7wirXqU4LHfxRta10I56QfKqjiwC1P s2afCoIVJS/FbUmFs8MORYbchNVrQjdtboP5sWvX/fUZ5upTnoFT//hrBJt+ nYEzFA7MSqIvoZK8WTEOPpZUqiT30xxpOEl0r5YrC0d/FKZVyMNBzRauHcqw 0/WrDzW1YZ1Duo7+xrBqq5PoZTw82yio3OcZrF1awY5QYRObO2kWJ2yGk3/X iGMdgf9UULfrug2Pu5zNc+DB+vGq02fbYY6SrwWvC/a8cSb021fYN8FKJCOA g5e3Zi0YhT8wF3ZeG4e3Ke9hWovhgbGa+IdT8O5OFZ4nzYp639NvTl9uRVl+ WSPvuQoeEp7Y4JELr7Co5XostiauFjqIxxrhGBa7oznChthpcGub/2wOscux 6tNlG2A3Q8ZqhUvwssrhc/ufwRyf5u5P/fBwQrqN6yh8J985vWAGNogaCBqR WEoFa10dLI3kUFmWeUtWScG0iZUyl2XgXbzRDtEseK2fT9pVBdjiS9HiDSrw LWvtVjkj2CQlI7FmKXz9e5fWcDrMjLB7aNQB1yk36w8Y2RJHVG9LuxsLT5b/ q4rHhbOLC4ZbePBbs1unA/iwybUHrO5+2EH2j3lS32HvyEcTRmMwX+2HwXIR vOUpr2vFJNwX5/aSPw3HGT6r+1HCjmIPGymW020pbveLnCI5+OFvbVsFanCH 4U+3T0fCw9dmxizuweFGN2dzV9sTM0109YwvwALmGc6db/CjmMH1cSNw5h2P WM4EvNd3LPncJBw0Wpg5Pg275vrk+0s4UGFP/vz3sJYdxbSn3aqQhGsfl/cu U4DDPHbo89ThvE0dOf8xhduiVsi3OcLuR/THesLg+4XirpF0+Fjc3KzcVjhg +ULKQceRuGLTy0nrnbDWjqMPzB/9Y6el5aq0wgG/pCSMfoSZndOR24Zg0aKD fh3jcHRFUAtHDL9f5eh9Zgr2fadVPzQD18WK3VbRnSjjNM8m8T5HqiSnwkla Fs6t3GdTLQe/6t4tPLwEVpsTXbp6I9zhcKb1yk24YEfFyMwM/DcYdyJ6 "]]}, Annotation[#, "Charting`Private`Tag$59281#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 28.476498561565812`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.770500392266629*^9}, CellLabel->"Out[119]=", CellID->945038634] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ "Compare ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{ StyleBox["\[Psi]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", and ", Cell[BoxData[ RowBox[{ StyleBox["|", "TR"], RowBox[{ StyleBox["x", "TI"], "-", RowBox[{ StyleBox["\[Psi]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")", StyleBox["|", "TR"]}]}]}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7705005257864447`*^9, 3.7705005481784997`*^9}, { 3.770500617303613*^9, 3.7705006425819893`*^9}, {3.770741043981683*^9, 3.7707410541716824`*^9}}, CellID->560737648], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"ChebyshevPsi", "[", "x", "]"}], ",", RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"ChebyshevPsi", "[", "x", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\[Psi](x)\>\"", ",", "\"\<|x-\[Psi](x)|\>\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705010112093825`*^9, 3.7705010559087987`*^9}}, NumberMarks->False, CellLabel->"In[128]:=", CellID->877938625], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFz38s1HEcx/GLP9DGzo/bHR3CkXAOcX7c+RWx05gUTSM/r7T5sfKrbPJj zSlmRUlWxu2mopBJSNjVKm1lOO66FpVqS+Jufh6zq3zm/f5u3z2215577/u1 Sc2JEepQKJRz/97/rs2MvmJVSQJ2lTUxLgUrygN3DaKNpTIUtWBBdJtcVyEG jRfptRp5Nzg7GJWzIpeCYaz5z2r5BKiRe99Syb+BlJ1HBb4MuS8ZFy+DzNn+ n6ku2yDpKEG7mmUmtemF6IJk1gdr3cOeR8WiHxvcRtRUQ5B0VLBKUjKmY24M 0m/OXa27Zwru2enMQNEJQcDEGg0kdxhgrm9L0mg5Grq0WZQ9ZwGSjgmW8Y+l WPhYgn4dd3ouD1uDpNsPZm6oS98a2oBktwU1ztQZdizKb3/UXF9vB5KOBapN IpLjpCj5Twfwe3Vy3AU9VLBUKPjBPQCSO47gQpp+bk8JGsai64ikB0HtzoOa vHeo6VpyAskdF5BZ2RnN5aINzr5U07NskHynK/jOIthr+Qbqx5Re50xzQHLX DTTSFeellKNkdwetyqz58Q6ogX1Cb8wblHQeoKu/eWdhIkr2Q+DScnWsoAEl uycYznndKGCjQ8u8rfUPKOm8wGwXD+W4ECU7F/RfTJfFG6BHWIxIQzFKOm/Q sfTaRak36iT0HbZXoqTzAYVDGVd6zqNk9wWHm2Xpahq68kC7znmGks4PTLNv N2iMRNVOddxuFUo6Htgn2fq6WomSnQ+eCrUL4lmh+7JE/a4jKOn8QdrezCeR J1FJSHGRKh71KK4JqUtAo1RdU4oUtGJ6VZOWiW6ISw4XlaFKXt1kazuakS+5 K+hA1zqeChe6UBNbxbp7L3pU35L5YgQdlLWmT06hEUZ97AIFqggfXWN8QlcG flee/oKyW9we/5pHB5XBBdV/0Aiz44EcFXpGlD+et4qujFQ00jfQ8s3baQOb KNXzoUviNtqUNbCq1aJ/AcmHShk= "]]}, Annotation[#, "Charting`Private`Tag$67088#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[{{6.122448979591837*^-7, 0.}, {0.009201537616788803, 0.}, { 0.018402462988679646`, 0.}, {0.03680431373246133, 0.}, { 0.0736080152200247, 0.}, {0.14721541819515147`, 0.}, { 0.294430224145405, 0.}, {0.588859836045912, 0.}, { 0.9904336734693877, 0.}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQrVVhyaqv/sGeAQrm3diuJ/f+M5xfkXtiR5b1Fzhf b/rLM8xXEPxZr7S/mrJ+g/MLJm5wnZX+A86/d3tH14FeBN9b7eD5Z5sRfLXd FyONGX7C+beffMo9MwPBd7Mwnfbv5C84X+b+zmdJOn/hfIbPhTNOBiL4T9i0 vAzKEfy1erPW/j2I4NvVVZXMCP8H5ytNMlL7X4Pgsy17dT11EYJ/7myUtfFb BH/TQ6G3M4X+w/nTvp6ax2CB4MfLWjOda0LwXQw/bzZZgeBruK5OnX0Wwb/W fuzXhRsIPgD9gm4C "]], LineBox[{{2.0095663265306123`, 0.6931471805599453}, { 2.024221586232029, 0.6931471805599453}, {2.0424838661527076`, 0.6931471805599453}, {2.079008425994065, 0.6931471805599453}, { 2.1155329858354226`, 0.6931471805599453}, {2.261631225200852, 0.6931471805599453}, {2.407729464566282, 0.6931471805599453}, { 2.5662106171109205`, 0.6931471805599453}, {2.7246917696555584`, 0.6931471805599453}, {2.803932345927877, 0.6931471805599453}, { 2.8831729222001963`, 0.6931471805599453}, {2.922793210336356, 0.6931471805599453}, {2.9624134984725154`, 0.6931471805599453}, { 2.9723185705065553`, 0.6931471805599453}, {2.9822236425405952`, 0.6931471805599453}, {2.9904336734693877`, 0.6931471805599453}}], LineBox[{{3.0095663265306123`, 1.791759469228055}, { 3.021843930676755, 1.791759469228055}, {3.0416540747448346`, 1.791759469228055}, {3.337463838845589, 1.791759469228055}, { 3.633273602946343, 1.791759469228055}, {3.793561398175928, 1.791759469228055}, {3.9538491934055138`, 1.791759469228055}, { 3.973885167809212, 1.791759469228055}, {3.9904336734693877`, 1.791759469228055}}], LineBox[{{4.009566326530612, 2.4849066497880004`}, { 4.013957116616608, 2.4849066497880004`}, {4.023975103818458, 2.4849066497880004`}, {4.033993091020307, 2.4849066497880004`}, { 4.074065039827703, 2.4849066497880004`}, {4.114136988635099, 2.4849066497880004`}, {4.194280886249892, 2.4849066497880004`}, { 4.274424783864684, 2.4849066497880004`}, {4.589153955784313, 2.4849066497880004`}, {4.903883127703941, 2.4849066497880004`}, { 4.9405802065703295`, 2.4849066497880004`}, {4.977277285436718, 2.4849066497880004`}, {4.986451555153314, 2.4849066497880004`}, { 4.990433673469388, 2.4849066497880004`}}], LineBox[{{5.009566326530612, 4.0943445622221}, {5.032322903736301, 4.0943445622221}, {5.050671443169494, 4.0943445622221}, { 5.124065600902271, 4.0943445622221}, {5.1974597586350475`, 4.0943445622221}, {5.344248074100601, 4.0943445622221}, { 5.491036389566154, 4.0943445622221}, {5.809378846855677, 4.0943445622221}, {5.990433673469388, 4.0943445622221}}], LineBox[{{6.009566326530612, 4.0943445622221}, {6.4249112204462016`, 4.0943445622221}, {6.722101136747202, 4.0943445622221}, { 6.794937011187567, 4.0943445622221}, {6.867772885627931, 4.0943445622221}, {6.904190822848113, 4.0943445622221}, { 6.9406087600682955`, 4.0943445622221}, {6.958817728678387, 4.0943445622221}, {6.977026697288478, 4.0943445622221}, { 6.986131181593524, 4.0943445622221}, {6.990433673469388, 4.0943445622221}}], LineBox[{{7.009566326530612, 6.040254711277414}, { 7.1591163833893905`, 6.040254711277414}, {7.30478813227012, 6.040254711277414}, {7.620897456389995, 6.040254711277414}, { 7.93700678050987, 6.040254711277414}, {7.955441579455579, 6.040254711277414}, {7.973876378401289, 6.040254711277414}, { 7.983093777874144, 6.040254711277414}, {7.990433673469388, 6.040254711277414}}], LineBox[{{8.009566326530612, 6.733401891837358}, {8.047615574184126, 6.733401891837358}, {8.084485172075546, 6.733401891837358}, { 8.158224367858384, 6.733401891837358}, {8.231963563641223, 6.733401891837358}, {8.3794419552069, 6.733401891837358}, { 8.526920346772577, 6.733401891837358}, {8.686781651517462, 6.733401891837358}, {8.846642956262347, 6.733401891837358}, { 8.886608282448568, 6.733401891837358}, {8.92657360863479, 6.733401891837358}, {8.9465562717279, 6.733401891837358}, { 8.966538934821012, 6.733401891837358}, {8.976530266367568, 6.733401891837358}, {8.986521597914123, 6.733401891837358}, { 8.990433673469388, 6.733401891837358}}], LineBox[{{9.009566326530612, 7.832014180505469}, {9.086434913379676, 7.832014180505469}, {9.166365565752118, 7.832014180505469}, { 9.480241756702345, 7.832014180505469}, {9.794117947652573, 7.832014180505469}, {9.99043367346939, 7.832014180505469}}], LineBox[{{10.009566326530614`, 7.832014180505469}, { 10.379565247575984`, 7.832014180505469}, {10.538309985736046`, 7.832014180505469}, {10.697054723896105`, 7.832014180505469}, { 10.776427092976135`, 7.832014180505469}, {10.855799462056167`, 7.832014180505469}, {10.895485646596182`, 7.832014180505469}, { 10.935171831136199`, 7.832014180505469}, {10.955014923406207`, 7.832014180505469}, {10.974858015676213`, 7.832014180505469}, { 10.984779561811216`, 7.832014180505469}, {10.990433673469388`, 7.832014180505469}}], LineBox[{{11.009566326530612`, 10.22990945330384}, { 11.014544200216228`, 10.22990945330384}, {11.310881135547827`, 10.22990945330384}, {11.607218070879428`, 10.22990945330384}, { 11.990433673469388`, 10.22990945330384}}], LineBox[{{12.009566326530612`, 10.22990945330384}, { 12.564679937409936`, 10.22990945330384}, {12.879936280560411`, 10.22990945330384}, {12.916699255830656`, 10.22990945330384}, { 12.9534622311009, 10.22990945330384}, {12.971843718736022`, 10.22990945330384}, {12.990225206371143`, 10.22990945330384}, { 12.99043367346939, 10.22990945330384}}], LineBox[{{13.009566326530614`, 12.794858810765376`}, { 13.026988181641387`, 12.794858810765376`}, {13.100514132181875`, 12.794858810765376`}, {13.174040082722364`, 12.794858810765376`}, { 13.32109198380334, 12.794858810765376`}, {13.468143884884316`, 12.794858810765376`}, {13.787013513404686`, 12.794858810765376`}, { 13.990433673469388`, 12.794858810765376`}}], LineBox[{{14.009566326530612`, 12.794858810765376`}, { 14.70131731698875, 12.794858810765376`}, {14.990433673469386`, 12.794858810765376`}}], LineBox[{{15.00956632653061, 12.794858810765376`}, { 15.60169515032408, 12.794858810765376`}, {15.918331645674801`, 12.794858810765376`}, {15.955267139970076`, 12.794858810765376`}, { 15.990433673469388`, 12.794858810765376`}}], LineBox[{{16.009566326530614`, 13.488005991325322`}, { 16.01990425498681, 13.488005991325322`}, {16.02913812856063, 13.488005991325322`}, {16.047605875708264`, 13.488005991325322`}, { 16.066073622855903`, 13.488005991325322`}, {16.139944611446452`, 13.488005991325322`}, {16.213815600037, 13.488005991325322`}, { 16.3615575772181, 13.488005991325322`}, {16.5092995543992, 13.488005991325322`}, {16.669424444759507`, 13.488005991325322`}, { 16.829549335119815`, 13.488005991325322`}, {16.90961178029997, 13.488005991325322`}, {16.989674225480123`, 13.488005991325322`}, { 16.990433673469386`, 13.488005991325322`}}], LineBox[{{17.009566326530614`, 16.32121933538154}, { 17.019697642422678`, 16.32121933538154}, {17.0297054480702, 16.32121933538154}, {17.04972105936524, 16.32121933538154}, { 17.069736670660276`, 16.32121933538154}, {17.109767893250353`, 16.32121933538154}, {17.14979911584043, 16.32121933538154}, { 17.464202478021505`, 16.32121933538154}, {17.778605840202577`, 16.32121933538154}, {17.99043367346939, 16.32121933538154}}], LineBox[{{18.009566326530617`, 16.32121933538154}, { 18.365107482587682`, 16.32121933538154}, {18.524115806363167`, 16.32121933538154}, {18.68312413013865, 16.32121933538154}, { 18.762628292026392`, 16.32121933538154}, {18.842132453914136`, 16.32121933538154}, {18.88188453485801, 16.32121933538154}, { 18.92163661580188, 16.32121933538154}, {18.941512656273815`, 16.32121933538154}, {18.96138869674575, 16.32121933538154}, { 18.971326716981718`, 16.32121933538154}, {18.981264737217685`, 16.32121933538154}, {18.990433673469386`, 16.32121933538154}}], LineBox[{{19.009566326530614`, 19.265658314547977`}, { 19.298004884252066`, 19.265658314547977`}, {19.594868990814515`, 19.265658314547977`}, {19.990433673469386`, 19.265658314547977`}}], LineBox[{{20.009566326530614`, 19.265658314547977`}, { 20.808471395622966`, 19.265658314547977`}, {20.990433673469386`, 19.265658314547977`}}], LineBox[{{21.009566326530614`, 19.265658314547977`}, { 21.990433673469386`, 19.265658314547977`}}], LineBox[{{22.009566326530614`, 19.265658314547977`}, { 22.33477120067369, 19.265658314547977`}, {22.633015459436383`, 19.265658314547977`}, {22.77921437954796, 19.265658314547977`}, { 22.92541329965953, 19.265658314547977`}, {22.961963029687425`, 19.265658314547977`}, {22.990433673469386`, 19.265658314547977`}}], LineBox[{{23.009566326530614`, 22.401152530477127`}, { 23.025925057236236`, 22.401152530477127`}, {23.03506248974321, 22.401152530477127`}, {23.05333735475716, 22.401152530477127`}, { 23.071612219771108`, 22.401152530477127`}, {23.144711679826898`, 22.401152530477127`}, {23.217811139882684`, 22.401152530477127`}, { 23.534974806464252`, 22.401152530477127`}, {23.85213847304582, 22.401152530477127`}, {23.99043367346939, 22.401152530477127`}}], LineBox[{{24.009566326530617`, 22.401152530477127`}, { 24.44416072423191, 22.401152530477127`}, {24.604549200207643`, 22.401152530477127`}, {24.764937676183372`, 22.401152530477127`}, { 24.845131914171237`, 22.401152530477127`}, {24.9253261521591, 22.401152530477127`}, {24.94537471165607, 22.401152530477127`}, { 24.965423271153036`, 22.401152530477127`}, {24.97544755090152, 22.401152530477127`}, {24.985471830650003`, 22.401152530477127`}, { 24.990433673469386`, 22.401152530477127`}}], LineBox[{{25.009566326530614`, 24.01059044291123}, { 25.045617509140904`, 24.01059044291123}, {25.085714628134834`, 24.01059044291123}, {25.400645161546755`, 24.01059044291123}, { 25.715575694958673`, 24.01059044291123}, {25.990433673469386`, 24.01059044291123}}], LineBox[{{26.009566326530614`, 24.01059044291123}, { 26.621675498587287`, 24.01059044291123}, {26.940219317369102`, 24.01059044291123}, {26.958806272231186`, 24.01059044291123}, { 26.977393227093266`, 24.01059044291123}, {26.986686704524306`, 24.01059044291123}, {26.990433673469386`, 24.01059044291123}}], LineBox[{{27.009566326530614`, 25.109202731579337`}, { 27.051741046541586`, 25.109202731579337`}, {27.088914956265747`, 25.109202731579337`}, {27.16326277571407, 25.109202731579337`}, { 27.237610595162394`, 25.109202731579337`}, {27.38630623405904, 25.109202731579337`}, {27.53500187295569, 25.109202731579337`}, { 27.82654673220944, 25.109202731579337`}, {27.990433673469386`, 25.109202731579337`}}], LineBox[{{28.009566326530614`, 25.109202731579337`}, { 28.434402277075357`, 25.109202731579337`}, {28.750712962687526`, 25.109202731579337`}, {28.824502498843437`, 25.109202731579337`}, { 28.89829203499935, 25.109202731579337`}, {28.935186803077308`, 25.109202731579337`}, {28.97208157115526, 25.109202731579337`}, { 28.981305263174747`, 25.109202731579337`}, {28.990433673469386`, 25.109202731579337`}}], LineBox[{{29.009566326530614`, 28.476498561565812`}, { 29.027423723272193`, 28.476498561565812`}, {29.04587110731117, 28.476498561565812`}, {29.193450179622992`, 28.476498561565812`}, { 29.341029251934817`, 28.476498561565812`}, {29.670514319844962`, 28.476498561565812`}, {29.999999387755103`, 28.476498561565812`}}]}, Annotation[#, "Charting`Private`Tag$67088#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[{{6.122448979591837*^-7, 6.122448979591837*^-7}, { 0.009201537616788803, 0.009201537616788803}, {0.018402462988679646`, 0.018402462988679646`}, {0.03680431373246133, 0.03680431373246133}, {0.0736080152200247, 0.0736080152200247}, { 0.14721541819515147`, 0.14721541819515147`}, {0.294430224145405, 0.294430224145405}, {0.588859836045912, 0.588859836045912}, { 0.9904336734693877, 0.9904336734693877}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQrVVhyaqv/sEeRs+7sV1P7v1nOF2Re2JHlvUXOK03 /eUZ5isIetYr7a+mrN/gdMHEDa6z0n/A6Xu3d3Qd6EXQ3moHzz/bjKDVdl+M NGb4CadvP/mUe2YGgnazMJ327+QvOC1zf+ezJJ2/cJrhc+GMk4EI+gmblpdB OYJeqzdr7d+DCNqurqpkRvg/OK00yUjtfw2CZlv26nrqIgR97myUtfFbBL3p odDbmUL/4fS0r6fmMVgg6HhZa6ZzTQjaxfDzZpMVCFrDdXXq7LMI+lr7sV8X biBoALiJ2j0= "]], LineBox[CompressedData[" 1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAFbycgpcTAEAyW7yFDRD1P1zKRRab MQBAwHcOrRRM9T9A3v3HAVcAQIiffhDilvU/MujZILVpAEBsszbCSLz1PyTy tXlofABAUMfuc6/h9T8IBm4rz6EAQBjvXtd8LPY/0S3ejpzsAECqPj+eF8L2 P8Q3uudP/wBAkFL3T37n9j+2QZZAAxIBQHRmrwHlDPc/mlVO8mk3AUA8jh9l slf3P2J9vlU3ggFAzN3/K03t9z/yzJ4c0hcCQOx8wLmCGPk/FGxfqgdDA0Aw u0HV7W77PyoHo8ZQVwNAXPHIDYCX+z9AoubimWsDQIgnUEYSwPs/bNhtGyyU A0Dgk163NhH8P8REfIxQ5QNAkGx7mX+z/D90HZlumYcEQPAdtV0R+P0/irjc iuKbBEAcVDyWoyD+P6BTIKcrsARASIrDzjVJ/j/MiaffvdgEQKD20T9amv4/ JPa1UOIpBUBQz+4hozz/P9PO0jIrzAVAV0AUc5pAAEDoaRZPdOAFQGzbV4/j VABA/gRaa730BUCCdpurLGkAQCo74aNPHQZArqwi5L6RAECCp+8UdG4GQAYZ MVXj4gBAmEIzMb2CBkActHRxLPcAQK7ddk0GlwZAMk+4jXULAUDaE/6FmL8G QF6FP8YHNAFAMoAM97wQB0C28U03LIUBQEgbUBMGJQdAzIyRU3WZAUBetpMv TzkHQOIn1W++rQFAiuwaaOFhB0AOXlyoUNYBQKCHXoQqdgdAJPmfxJnqAUC2 IqKgc4oHQDqU4+Di/gFA4lgp2QWzB0BmymoZdScCQPjzbPVOxwdAfGWuNb47 AkAOj7ARmNsHQJIA8lEHUAJA60NjfWjsB0BvtaS912ACQOKNGXo= "]], LineBox[CompressedData[" 1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAFbycgpcTCEAnWA8LI3zzP1Bge2Zz GAhAnaDM0tqF8z9m+76CvCwIQMnWUwttrvM/kjFGu05VCEAhQ2J8kf/zPy/b WUc9aAhAW5aJlG4l9D/MhG3TK3sIQJXpsKxLS/Q/BtiU6wihCEAJkP/cBZf0 P3t+4xvD7AhA89ycPXou9T9ky4B8N4QJQMV21/5iXfY/NmW7PSCzCkBpqkyB NLv4P9MOz8kOxgpAo/1zmRHh+D9wuOJV/dgKQN1Qm7HuBvk/qgsKbtr+CkBR 9+nhqFL5Px+yWJ6USgtAO0SHQh3q+T8I//X+COILQA3ewQMGGfs/2ZgwwPEQ DUCvETeG13b9P5rTqw92JQ1AMYctJeCf/T9aDidf+jkNQLH8I8ToyP0/3IMd /gJjDUC15xAC+hr+P+BuCjwUtQ1Avb3qfRy//j/oROS3NlkOQOY0z7qwAwBA qX9fB7ttDkCob0oKNRgAQGq62lY/gg5AaKrFWbksAEDsL9H1R6sOQOofvPjB VQBA8Bq+M1n9DkDuCqk206cAQLFVOYPdEQ9AsEUkhle8AEBykLTSYSYPQHCA n9Xb0ABA9AWrcWpPD0Dy9ZV05PkAQPjwl697oQ9A9uCCsvVLAUC5KxP//7UP QLgb/gF6YAFAemaOToTKD0B4VnlR/nQBQDuhCZ4I3w9AOpH0oIKJAUDrQ2N9 aOwPQOozToDilgFAlCn0xg== "]], LineBox[CompressedData[" 1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAACl5OwcsJEEAtO5KLAWX4P7+oPcZK DhBAAWZPn/12+D8gRvvtjBgQQIXbRT4GoPg/gOO4Fc8iEEAFUTzdDsn4P+CA dj0RLRBAhcYyfBfy+D9BHjRlUzcQQAk8KRsgG/k/AlmvtNdLEEANJxZZMW35 P4TOpVPgdBBAFf3v1FMR+j/ka2N7In8QQJVy5nNcOvo/RQkho2SJEEAZ6NwS ZWP6PwZEnPLonRBAHdPJUHa1+j+IuZKR8cYQQCWpo8yYWfs/i6R/zwIZEUAx VVfE3aH8P0o0aRIVIxFALZT9zybK/D8IxFJVJy0RQCXTo9tv8vw/hOMl20tB EUAVUfDyAUP9P3wizOaUaRFA9UyJISbk/T9uoBj+JroRQL1Eu35uJv8/UZyx LEtbEkAkmo+cf9UAQBAsm29dZRJAorliIqTpAEDOu4Syb28SQB7ZNajI/QBA SttXOJSDEkAWGNyzESYBQEIa/kPdqxJABpYoy6N2AUA0mEpbb/wSQOqRwfnH FwJA8ic0noEGE0BmsZR/7CsCQLC3HeGTEBNA4tBnBRFAAkAt1/BmuCQTQNwP DhFaaAJAJhaXcgFNE0DOjVoo7LgCQBeU44mTnRNAsInzVhBaA0AYK7WE+KYT QLK3lkzabANAGsKGf12wE0C25TlCpH8DQB7wKXUnwxNAvkGALTilA0Agh/tv jMwTQMJvIyMCuANAIh7NavHVE0DGncYYzMoDQCVMcGC76BNAzPkMBGDwA0Am 40FbIPITQM4nsPkpAwRA9qGxPjT2E0BupY/AUQsEQFVg+YY= "]], LineBox[CompressedData[" 1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAACl5OwcsJFEDyW0knf0ntPy4/iEa0 FxRAEmUYUcO47T8w1llBGSEUQCIdpSfrA+4/MwT9NuMzFEA6jb7UOpruPzSb zjFIPRRAQkVLq2Ll7j82MqAsrUYUQFL914GKMO8/OmBDIndZFEBybfEu2sbv P0G8iQ0LfxRA1SaSxLx58D9PdBbkMsoUQA0HxR5cpvE/UAvo3pfTFEARYwsK 8MvxP1Kiudn83BRAGb9R9YPx8T9W0FzPxu8UQCl33surPPI/XSyjuloVFUBF 5/d4+9LyP2vkL5GCYBVAfccq05r/8z+HVEk+0vYVQO2HkIfZWPY/GrTOGgIB FkA5Bqb5mIH2P64TVPcxCxZAiYS7a1iq9j/W0l6wkR8WQCmB5k/X+/Y/JFF0 IlFIFkBhejwY1Z73P8JNnwbQmRZA2WzoqNDk+D/9RvXOzTwXQMVRQMrHcPs/ 9qGxPjT2F0CpvTGJYVb+P+mmpOc= "]], LineBox[CompressedData[" 1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAACl5OwcsJGED5raSTv6T+PyIHfIjO lRhALKktWGVqAEDQ1Fax06gYQIhE46lvkABALnAMA97OGEBEe05NhNwAQOim d6byGhlAuOgklK10AUBcFE7tG7MZQKDD0SEApQJAM3u7gZ68GUBOkaxKBbgC QAriKBYhxhlA/F6HcwrLAkC5rwM/JtkZQFr6PMUU8QJAFku5kDD/GUAUMaho KT0DQNCBJDRFSxpAiJ5+r1LVA0BE7/p6buMaQHB5Kz2lBQVAeUiUKsHsGkDa K16cShgFQK6hLdoT9hpARN6Q++8qBUAYVGA5uQgbQBhD9rk6UAVA7LjF9wMu G0DADME20JoFQCESX6dWNxtAKr/zlXWtBUBWa/hWqUAbQJRxJvUawAVAwB0r tk5TG0Bo1ouzZeUFQJOCkHSZeBtADqBWMPsvBkDI2ykk7IEbQHhSiY+gQgZA /DTD0z6LG0DgBLzuRVUGQGbn9TLknRtAtGkhrZB6BkCbQI/iNqcbQB4cVAw2 jQZA0JkokomwG0CIzoZr258GQDpMW/EuwxtAXDPsKSbFBkBvpfSggcwbQMbl HonL1wZApP6NUNTVG0AwmFHocOoGQNlXJwAn3xtAmkqERxb9BkAOscCveegb QAT9tqa7DwdAQwpaX8zxG0Bur+kFYSIHQPahsT409htA1N6YxDArB0CCYdd/ "]], LineBox[CompressedData[" 1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAACl5OwcsJHEBCp+TKmQTvPxdvvx0X FxxAqi9trvRu7z9MyFjNaSAcQFL5NyuKue8/tnqLLA8zHEBRxmaSWifwP4rf 8OpZWBxAoVn8i4W88D8yqbtn76IcQEGAJ3/b5vE/gTxRYRo4HUB9zX1lhzv0 P0henvI3Qh1AmVSyqv1j9D8OgOuDVUwdQLHb5u9zjPQ/nMOFppBgHUDp6U96 YN30P7hKuusGiR1AWQYijzl/9T/wWCN289kdQDk/xrjrwvY/XnX1isx7HkDx sA4MUEr5PyWXQhzqhR5ADThDUcZy+T/suI+tB5AeQCm/d5Y8m/k/evwp0EKk HkBhzeAgKez5P5WDXhW5zB5AzemyNQKO+j/MkcefpR0fQKkiV1+00fs/k7MU McMnH0DFqYukKvr7P1rVYcLgMR9A4TDA6aAi/D/oGPzkG0YfQBk/KXSNc/w/ A6AwKpJuH0CFW/uIZhX9P8rBfbuveB9AoeIvztw9/T+Q48pMzYIfQLlpZBNT Zv0/HidlbwiXH0Dxd82dP7f9PzqumbR+vx9AYZSfshhZ/j9E18797sgfQIk4 dNfZfv4/TgAER1/SH0Cx3Ej8mqT+P1gpOZDP2x9A2YAdIVzK/j9jUm7ZP+Uf QAUl8kUd8P4/bnujIrDuH0AxycZq3hX/P/ahsT409h9AUWP/2u4z/z9OWfjd "]], LineBox[CompressedData[" 1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAABS+n4OUEIECpNvVlK2v0P8sPvKM4 CiBA2TycfsGV9D9QpFbI8A4gQAHhcKOCu/Q/W82LEWEYIEBZKRrtBAf1P3Af 9qNBKyBAAbpsgAme9T/1s5DI+S8gQCleQaXKw/U/ekgr7bE0IEBRAhbKi+n1 P4VxYDYiPiBAqUq/Ew419j+aw8rIAlEgQFHbEacSzPY/xGef7cN2IECh/LbN G/r3P0n8ORJ8eyBAyaCL8twf+D/OkNQ2NIAgQPFEYBeeRfg/2bkJgKSJIEBJ jQlhIJH4P+4LdBKFnCBA8R1c9CQo+T8YsEg3RsIgQEE/ARsuVvo/bPjxgMgN IUDhgUtoQLL8PzpxZhbmEiFAUUjvEy3b/D8I6tqrAxghQMEOk78ZBP0/pdvD 1j4iIUCpm9oW81X9P96+lSy1NiFAcbVpxaX5/T9PhTnYoV8hQPnohyILQf8/ Hv6tbb9kIUBxryvO92n/P+x2IgPdaSFA4XXPeeSS/z+IaAsuGHQhQMECF9G9 5P8/wEvdg46IIUBADtM/OEQAQDISgS97sSFACChi7urnAEAAi/XEmLYhQEAL NERh/ABAzgNqWra7IUB47gWa1xABQGv1UoXxxSFA7LSpRcQ5AUA6bscaD8sh QCiYe5s6TgFACOc7sCzQIUBge03xsGIBQKTYJNtn2iFA0EHxnJ2LAUByUZlw hd8hQAglw/IToAFAQMoNBqPkIUBACJVIirQBQA5DgpvA6SFAeOtmngDJAUDd u/Yw3u4hQLTOOPR23QFArDRrxvvzIUDwsQpK7fEBQHqt31sZ+SFAKJXcn2MG AkD70FgfGvshQCwjwa1mDgJAVNEY2A== "]], LineBox[CompressedData[" 1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAABS+n4OUEIkCdM0jrQNfyP+QXPRxy CCJAlXr3x6Lz8j+ykLGxjw0iQAVBm3OPHPM/T4Ka3MoXIkDtzeLKaG7zP4hl bDJBLCJAtedxeRsS9D/5KxDeLVUiQD0bkNaAWfU/9p0agTNaIkAlq+PurYH1 P/QPJSQ5XyJAFTs3B9up9T/u8zlqRGkiQOVa3jc1+vU/4rtj9lp9IkCFmiyZ 6Zr2P8pLtw6IpSJAxRnJW1Lc9z+aa14/4vUiQEUYAuEjX/o/PKusoJaWI0BV FXTrxmT/P9sgq59FmyNATcJn4z6K/z96lqme9J8jQEVvW9u2r/8/t4GmnFKp I0AtyULLpvr/PzJYoJgOvCNAgr6IVUNIAEApBZSQhuEjQF5yVzUj3gBA+9BY Hxr7I0CmoWpwcUQBQMd9jtU= "]], LineBox[CompressedData[" 1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAABS+n4OUEJEDOGaR1oGsBQFRKeH7U NSRACofo7FovAkCSNXV8Mj8kQAI03OTSVAJADQxveO5RJEDujcPUwp8CQAS5 YnBmdyRAykGStKI1A0DxEkpgVsIkQH6pL3RiYQRA2Gwi0GrHJEAaEZEztHUE QMDG+j9/zCRAunjy8gWKBECQeqsfqNYkQPpHtXGpsgRAMOIM3/nqJEB65jpv 8AMFQG6xz12dEyVAciNGan6mBUBWC6jNsRglQBKLpynQugVAPmWAPcYdJUCy 8gjpIc8FQA0ZMR3vJyVA7sHLZ8X3BUCsgJLcQDwlQGpgUWUMSQZA6k9VW+Rk JUBinVxgmusGQNKpLcv4aSVAAgW+H+z/BkC6AwY7DW8lQKJsH989FAdAibe2 GjZ5JUDeO+Jd4TwHQCgfGNqHjSVAWtpnWyiOB0AQefBJnJIlQPpByRp6ogdA +NLIubCXJUCaqSray7YHQMiGeZnZoSVA2njtWG/fB0Bn7tpYK7YlQFYXc1a2 MAhATkizyD+7JUDyftQVCEUIQDaiizhUwCVAkuY11VlZCEAGVjwYfcolQNK1 +FP9gQhA7q8UiJHPJUByHVoTT5YIQNYJ7fel1CVAEoW70qCqCECmvZ3Xzt4l QFJUflFE0whAjhd2R+PjJUDyu98QlucIQHZxTrf36CVAkiNB0Of7CEBeyyYn DO4lQDKLoo85EAlARSX/liDzJUDO8gNPiyQJQCx/1wY1+CVAalplDt04CUD7 0FgfGvslQKahanBxRAlA7of1KQ== "]], LineBox[{{11.009566326530612`, 0.779656873226771}, { 11.014544200216228`, 0.7846347469123875}, {11.023804729445342`, 0.7938952761415008}, {11.033065258674453`, 0.8031558053706123}, { 11.051586317132678`, 0.821676863828837}, {11.088628434049127`, 0.8587189807452864}, {11.162712667882028`, 0.932803214578187}, { 11.310881135547827`, 1.0809716822439865`}, {11.607218070879428`, 1.3773086175755873`}, {11.990433673469388`, 1.7605242201655473`}}], LineBox[CompressedData[" 1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAABS+n4OUEKEAExUl8eXn8P+6eRL2/ hChAJqKaMCQ8AEDv2YAHy4koQCqOi1lRUABA8k/5m+GTKEA2Zm2rq3gAQPc7 6sQOqChAShYxT2DJAEACFMwWadAoQHZ2uJbJagFAGcSPuh0hKUDSNsclnK0C QBr/ywQpJilA1iK4TsnBAkAcOghPNCspQN4OqXf21QJAHrCA40o1KUDm5orJ UP4CQCSccQx4SSlA/pZObQVPA0AwdFNe0nEpQC731bRu8ANAMq+PqN12KUA2 48bdmwQEQDPqy/LoeylAOs+3BskYBEA2YESH/4UpQEanmVgjQQRAO0w1sCya KUBaV13815EEQEYkFwKHwilAhrfkQ0EzBUDpYkeoO8cpQBKypdwTRgVAjKF3 TvDLKUCerGZ15lgFQNMe2JpZ1SlAuqHopot+BUB2XQhBDtopQEacqT9ekQVA Gpw458LeKUDWlmrYMKQFQGAZmTMs6ClA7ovsCdbJBUADWMnZ4OwpQHqGraKo 3AVAppb5f5XxKUAGgW47e+8FQEnVKSZK9ilAknsv1E0CBkDsE1rM/vopQB52 8GwgFQZA/NBYHxr7KUBeauu4jRUGQEI3vyQ= "]], LineBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAABi+n4OUEKkBQYzUviXvLP3kOG2XR DSpAEEAtTGq2zT8cTUsLhhIqQNDoPNiT484/wIt7sToXKkDoSCayXgjQPwYJ 3P2jICpAqPE1Pog10T+SA52WdjMqQChDVVbbj9M/rPgeyBtZKkBo5pOGgUTY P083T27QXSpAyLqbTBbb2D/ydX8UhWIqQCiPoxKrcdk/OfPfYO5rKkAIOLOe 1J7aP8btoPnAfipAqInStif53D/f4iIrZqQqQGSWiPPm1uA/Es0mjrDvKkCU OccjjYvlP/7vMKXK9CpAVGhplC7d5T/qEju85PkqQBSXCwXQLuY/wlhP6hgE K0CU9E/mEtLmP3Pkd0aBGCtApK/YqJgY6D/U+8j+UUErQLQl6i2kpeo/lypr b/OSK0DkEQ04u7/vP/vQWB8a+ytAFrxzGxMh8z85WZb9 "]], LineBox[{{14.009566326530612`, 1.2147075157652352`}, { 14.70131731698875, 1.9064585062233728`}, {14.990433673469386`, 2.1955748627040097`}}], LineBox[CompressedData[" 1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAABC+n4OUELkAvVvOSuLcBQNAeryYE ly5AXxUTqzEABEDWIh0YFZwuQHcly3B1FARA4Sr5+jamLkCjRTv8/DwEQPg6 scB6ui5A/4UbEwyOBEAmWyFMAuMuQLcG3EAqMAVAgpsBYxE0L0AnCF2cZnQG QIifb1QiOS9APxgVYqqIBkCOo91FMz4vQFcozSfunAZAmau5KFVIL0CDSD2z dcUGQLC7ce6YXC9A34gdyoQWB0De2+F5IIUvQJcJ3veiuAdA5N9PazGKL0Cv GZa95swHQOrjvVxCjy9AxylOgyrhB0D165k/ZJkvQPNJvg6yCQhADPxRBait L0BPip4lwVoIQDocwpAv1i9ABwtfU9/8CEDiIyTe6dovQKcp54jIDwlAiSuG K6TfL0BDSG++sSIJQNg6SsYY6S9Af4V/KYRICUCAQqwT0+0vQB+kB19tWwlA KEoOYY3yL0C/wo+UVm4JQNBRcK5H9y9AX+EXyj+BCUD70FgfGvsvQAveuY2J kAlA6Raciw== "]], LineBox[CompressedData[" 1:eJwVkX0s1HEcx8Xvrrv7icYSpz88xRqrbx4SKu+SGVrU2ZLHMFxIcbFhlw5F nBU2h0RDK08laTFhs26Z5zlrHkokal2eJvPc+vbHZ599/nnv9fq8TcNvXo7U 1NDQsKLzf2cqRMuJmgTtH+1VVjYMHE/uJBhyCAIHUqZFZxmwpxpLkvYSbKv3 GJz2YzDlGtI1wicoEuR6W0YzaHbTnT+mTWB3RE+mm8ogwDvB7td+AkmU2e+Z SgZHfcwCPPQJ9O/VmfY1M9AUqe7WHCB4U217pUXJoDbAYTBESKCePtd9X81g 4/qmWGVOEBEYUWLtyEFxjqzi/QkCkW/N+aRBDmLktkojJ4LVeJvUkBkOzjya VSe7UJ78llcefziYU7g7HQdBX+8HoVDIhf1z/ugzTwI397nlzkguRpQF/IdB lNfZ8glvlwsdrarbYRmUz+LF2mNrHribXaKVLAKVSrEoBA9/F7/YyrJpfmb2 j1I/HpYmjFaeygmMZ6PGFVIehpsLbkwXE5hXHe4oGuKhMFwWFVpP802qs/Ik fOT6V7ovNVLeoUKpIIePjIsdFulN1D89I/lBOR8S581vFW8JXL6GibOVfPjp JYROdVHeCpMLmQcFMOi+5h88Sv0PVeintQug03rHceET5e3P194aEoD7stxA Ok5506SclO8CrJeOjZZP0f4mg9aT97EYS/C99Pkn/WeZ8WRiKIvh6HgSp6a8 XuzoioRFT7Bcd2eBYHZzq/9WDos2z54B41WC2KsTnfGvWTS7zjfUr1Effu+7 BSWLOgdG7rJBfVrbmuImWFRZm8X2bVEfcW2tepFFmSm8Andp/4alVTFa2pCK G3Tz6Z3nsz2wwWjjH0vMCyU= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQ3Tw9+EMRk6EDi+JLlw9sz+ybmGc952I1dHiyYJvu +8hn9tU/tx+bxQ6UTygVfL36mX3J+6tLtbgMHVTkTb4++/vMPufp55ZdPED+ vU83Hvk/t4+5qO98SxDIjylYcOvzc/uQ475KWSJAvrR+yzXXF/Y+e7MZf4kB +bfepl+a/sLeduXy/ZIyhg4uEdn6p6xf2ss1yttEqhk6pISk7dvZ/Mp+XTGH 0l0NIH9ZS7XZlVf2dmkf2RO1gfwfiyw2q7y2j/U+fDnDAKh/zv1Na46+tp8j mp5dYQU0/0nE8vnsb+0lV62bNd3P0OFIsfeE1u739iKXbX9eLTN0mOQpsXGF 5yd7TtWYbUHHgf7N+NtUEvjdPkvS3mv1SUOHL+t0Dv4t+25/ilfpHvMZIP9L 9P+2Od/te749Z916wdBBpHFX9czn3+35ThSHit8ydDCZWV6yr/aHvVB295fb bwwdSk5+TOVY9dO+NmMNf+9foHsWMEpIbf1lDwBcS62p "]], LineBox[CompressedData[" 1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAAg5dT8HICMkCEkHQieAP7P92ZgFoW FzJAJLZExa5N/D+egkaCxxsyQDRCo0HBmPw/IFTS0SklMkBUWmA65i79PyX3 6XDuNzJApIraKzBb/j8uPRmvd10yQJp1ZwfiWQBAsyNp+wJgMkDCqeZpPG4A QDgKuUeOYjJA6t1lzJaCAEBC11jgpGcyQDpGZJFLqwBAVnGYEdJxMkDaFmEb tfwAQH+lF3QshjJAIrhaL4ifAUAEjGfAt4gyQErs2ZHiswFAinK3DEOLMkB6 IFn0PMgBQJQ/V6VZkDJAyohXufHwAUCo2ZbWhpoyQGpZVENbQgJA0A0WOeGu MkCq+k1XLuUCQFX0ZYVssTJA0i7NuYj5AkDa2rXR97MyQPpiTBzjDQNA5KdV ag65MkBKy0rhlzYDQPhBlZs7wzJA6ptHawGIA0B9KOXnxsUyQBLQxs1bnANA Ag81NFLIMkA6BEYwtrADQAzc1MxozTJAimxE9WrZA0AhdhT+ldcyQDI9QX/U KgRAplxkSiHaMkBaccDhLj8EQCxDtJas3DJAiqU/RIlTBEA2EFQvw+EyQNoN Pgk+fARAu/aje07kMkACQr1rmJAEQEDd88fZ5jJAKnY8zvKkBEBKqpNg8Osy QHreOpOnzQRAz5DjrHvuMkCiErr1AeIEQFR3M/kG8TJAykY5WFz2BEDZXYNF kvMyQPJ6uLq2CgVAXkTTkR32MkAarzcdER8FQOMqI96o+DJAQuO2f2szBUBo EXMqNPsyQGoXNuLFRwVAfWisD439MkAS0AAMjVoFQIAo/q4= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBQBmIQ3Tw9+EMRk7FDQHjwsvPJF+zl1i/bzsVq7KDwUGrx 7urz9qfqrdac4gTyu40iD0qftVdSTJrqJQzk3088eib6hH0F55r+VaJA/pbc Bee1j9uf+/i1k0sCyO+srL70+6h91aHOulMyQL7xRMMbsw/bX0zemO6lZuzg wN9ofXz7Xns1n9+JqzSA/F0zPp4J321fY+Iaw6UN5KdsWH7p+w57DdabAaf0 gfwd94XvmW+xr3ur5K1lBOQnfT/5+PpG+ytXc1y7TIwdGiTkGC6/X2ffsIzB yssSyD9Qc+Nl/lL7a31eJqusgXyRNS5f1y+w1ymfosdlZ+zAcHFbIuOD6fZN 8fc0shyA/E9aJQYHeuxvuGson3IC8lsueO5pKLbXMyiS1XIF8u9sCXlRV2Tf IrFHvMsdyJebW+lm32N/i4FN6JUnkP88P6Vn/nR7g5f+PF4+QPvmcxzb1b/A vu3iTLZVfkC+983I9f5L7e/sfMzAFQjkf1/5djH/KvuOrvKvJ0ONHQ4sX9p1 7PhG+wfa8+95xgP5/902rXffbT8h790GzyJjhwfXjzAcVD5u//5zT6jnDGOH DYeZV5wUvGp/58bCsLmzjB0+/LN5e3LZVftTe7eFf5xj7FBgVWZ0yvqa/ZL2 B5EzFwLlN7zYcyr1un2UtEncy1VA+XlnL57eedP+qNPttM69xg4GldN/n028 Zz97ombFyUfGDhHTp6q/vPHYvjZjDX/vX2OHGcUfxGMMn9sDAIgxA0U= "]], LineBox[{{20.009566326530614`, 0.7439080119826356}, { 20.808471395622966`, 1.5428130810749883`}, {20.990433673469386`, 1.72477535892141}}], LineBox[{{21.009566326530614`, 1.7439080119826373`}, { 21.990433673469386`, 2.72477535892141}}], LineBox[CompressedData[" 1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAg5dT8HICNkAalTULhvMFQO6HKnAf DjZAchjtCepQBkCeIfAL5RI2QPLlGegWdwZA/lR7Q3AcNkDygHOkcMMGQL+7 kbKGLzZA+rYmHSRcB0BBib6Qs1U2QAojjQ6LjQhAGlahXhZYNkDSiaN9oaAI QPIihCx5WjZAkvC57LezCECivEnIPl82QBK+5srk2QhAAvDU/8loNkASWUCH PiYJQMNW627gezZAGo/z//G+CUBFJBhNDaI2QCr7WfFY8ApAtO3FIWSkNkCi RsiWDwMLQCS3c/a6pjZAIpI2PMYVC0AESs+faKs2QCIpE4czOwtAwm+G8sO0 NkASV8wcDoYLQD679Jd6xzZA8rI+SMMbDECuhKJs0ck2QHL+rO15LgxAHU5Q QSjMNkDqSRuTMEEMQPzgq+rV0DZA4uD33Z1mDEC6BmM9Mdo2QNIOsXN4sQxA NlLR4ufsNkCyaiOfLUcNQKYbf7c+7zZAMraRRORZDUAV5SyMlfE2QKoBAOqa bA1A9HeINUP2NkCimNw0CJINQGRBNgqa+DZAIuRK2r6kDUDTCuTe8Po2QJov uX91tw1AQtSRs0f9NkASeyclLMoNQH1orA+N/TZA6hz8BVfMDUAQxcmZ "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQ3Tw9+EMRk7nDipZ+U4WKx/YMvzzYFrOZO3hcsf6i 9O+xfcHhb7d+cgD5TF87/3o8sX/Qs2R9ADeQb7BO/sbkJ/YBYUEty3mB/Lj0 rZvuPbHXf7lWN1TI3EFj180H6SVP7edtimZaI2LuwPFiUpnT/qf2fDWc15nE gXwxHx5Zrmf27/hSGzZIA/lF+8wvzX9mv8ZE5jK3qrnDCc3FfTann9trNHRV HDIHmj8zx0ZQ6ZX9HuulrD5WQHnuI/edil/ZB3zfP+mqDVC+Trq55Mgr+4q8 r2teOAL5yadOXk97bX8iJuEhnw+Qr6sRPm/1G/sMSzOv6AQg/+DjQm3T9/Yr Pz2U/tJh7rClZO1lJZVP9lqplvtVb5k7HJmjwmlr/t2+X8nvV/MdcweR4oJd CrHf7b/cTzJ9dM/cIcVzTzZL83f7fVE9q+c9Nndg+RZ87vS57/ZBAfeni781 d3Dxb54clfbDvjZjDX/vX3OHLxdDBDbl/rQHANc/qDA= "]], LineBox[CompressedData[" 1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAg5dT8HICOEBUwscaELz5P5KM+pep KjhARBM3lXo//D9cByQOZi84QOS/zvdBi/w/7/x2+t44OEAUGf680CL9Pxbo HNPQSzhAhMtcR+5R/j9lvmiEtHE4QDwYDa4UWABA7m3qd0V0OECElBpKnGwA QHgdbGvWdjhA1BAo5iOBAECKfG9S+Hs4QGQJQx4zqgBAsDp2IDyGOECU+niO UfwAQPy2g7zDmjhA9Nzkbo6gAUCGZgWwVJ04QERZ8goWtQFADxaHo+WfOECM 1f+mnckBQCJ1iooHpThAJM4a36zyAUBHM5FYS684QEy/UE/LRAJAkq+e9NLD OECkobwvCOkCQBxfIOhjxjhA9B3Ky4/9AkClDqLb9Mg4QDya12cXEgNAuG2l whbOOEDUkvKfJjsDQN0rrJBa2DhA/IMoEEWNA0Bm2y2E69o4QEQANqzMoQNA 8Iqvd3zdOECUfENIVLYDQALqsl6e4jhAJHVegGPfA0AoqLks4uw4QFRmlPCB MQRAslc7IHPvOECk4qGMCUYEQDsHvRME8jhA7F6vKJFaBEDEtj4HlfQ4QDTb vMQYbwRATmbA+iX3OECEV8pgoIMEQNgVQu62+ThA1NPX/CeYBEBhxcPhR/w4 QBxQ5ZivrARAfWisD439OED8aCoI2bYEQMXA3ko= "]], LineBox[{{25.009566326530614`, 0.998975883619388}, { 25.015544669895455`, 1.0049542269842293`}, {25.025568949643937`, 1.014978506732711}, {25.045617509140904`, 1.035027066229678}, { 25.085714628134834`, 1.0751241852236086`}, {25.095556207303957`, 1.0849657643927317`}, {25.105397786473077`, 1.0948073435618513`}, { 25.125080944811323`, 1.1144905019000975`}, {25.164447261487815`, 1.1538568185765898`}, {25.243179894840793`, 1.2325894519295675`}, { 25.400645161546755`, 1.3900547186355299`}, {25.715575694958673`, 1.7049852520474476`}, {25.990433673469386`, 1.9798432305581617`}}], LineBox[CompressedData[" 1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAg5dT8HICOkAoNdoizvv/P3rFXmom UDpATIrG4YJrAkCQZRLLslI6QPyKY+flfwJAvKV5jMtXOkBcjJ3yq6gCQBQm SA/9YTpAHI8RCTj6AkDGJuUUYHY6QKyU+TVQnQNAKigfICafOkDMn8mPgOME QEDI0oCyoTpAfKBmleP3BEBWaIbhPqQ6QCyhA5tGDAVAg6jtolepOkCUoj2m DDUFQNwovCWJszpAXKWxvJiGBUCOKVkr7Mc6QOyqmemwKQZApMkMjHjKOkCc qzbvEz4GQLppwOwEzTpATKzT9HZSBkDnqSeuHdI6QLStDQA9ewZAQCr2ME/c OkB8sIEWycwGQFbKqZHb3jpALLEeHCzhBkBsal3yZ+E6QNyxuyGP9QZAmKrE s4DmOkA8s/UsVR4HQPEqkzay8DpABLZpQ+FvB0DYzEBFE/M6QDzF1rjpggdA wG7uU3T1OkB81EMu8pUHQKcQnGLV9zpAtOOwo/qoB0COsklxNvo6QOzyHRkD vAdAdVT3f5f8OkAkAouOC88HQH1orA+N/TpAZKIzDLjWB0Cn77tA "]], LineBox[CompressedData[" 1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAg5dT8HICO0AUMi2o42f+PxHcrbob BjtA9HrRTXCi/j/4fVvJfAg7QGiZqziByP4/xsG25j4NO0BI1l8OoxT/P2JJ bSHDFjtACFDIueas/z9J6xowJBk7QHhuoqT30v8/MI3IPoUbO0DojHyPCPn/ P/7QI1xHIDtA5GSYMpUiAECbWNqWyyk7QMyhTAi3bgBA1GdHDNQ8O0CUG7Wz +gYBQLsJ9Ro1PztAzCoiKQMaAUCiq6IplkE7QAQ6j54LLQFAcO/9RlhGO0B0 WGmJHFMBQA13tIHcTztAXJUdXz6fAUBGhiH35GI7QCQPhgqCNwJAuKT74fWI O0C0AldhCWgDQDZDdPdKiztApPYbDbJ6A0C14ewMoI07QJzq4LhajQNAsh7e N0qSO0CE0moQrLIDQKyYwI2emztAVKJ+v079A0CgjIU5R647QPRBph2UkgRA iXQPkZjTO0A8gfXZHr0FQH1orA+N/TtA3CDdzsIMB0AOU58d "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQ3Tw9+EMRk40Dz0yxKx+N2R3+XuHgO6xg43Cn5cDB IjUOhwWp7257Kds4fOF8a7DRisPhWdvO8igNGwcVETd+vWQOh6KT/usrjWwc WjR+nFbfwuHQ5Vcjt8PNxsElMMZVOozTYVfE1T8m+TYORxapWDDN4nKIfbnr 1J5CoPnqgcsd1nE5MFQtmOFSAjR/Ta1Y/SEuB7fZ2SYhlUDzt1/78vsVl8Ol u4w5xc1A8093bPxqze3wKknv9sbpQPO/vNF6eZfbQTq3fafeARuHM65bZS8o 8jr0/U8z7T5k45Byc+OfzSa8DkyT3DY+P2LjwJK77vZ0d16HV9tYVy44CdQ/ ZfnM+Fxeh10MLTOELgPd92im6PsdvA56k5NF8q8C9ZdN+3LpNK/DIlXnCaev A/VzTb687R6vQ5cXU0fLHaB+w56JdSx8DlFTGsq/PQXqr6/j5QvgczinlvA5 6AVQv3D1m49JfA5OO+3z178C6l9efvpqKZ+D1r1/aRnvgfrPFXTOnc3nMK/g 3qMjH20cniTmZjSu43MQYt4Xp/gF6N+vme6pB/kcfqrXht36YeOwRyaZVfc5 n0POrphLZr9tHEI2xD8R+MXnUJuxhr/3LzA8Fe6eO8TD7wAAszjNtw== "]], LineBox[CompressedData[" 1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAg5dT8HICPUC0ayIh5A7hP7CWuj0F Bz1AVFECzi2h4T+Yu3k1vgs9QFTu5sVMOOI/DE5ZsRoOPUDUPNlB3IPiP4Dg OC13ED1AVIvLvWvP4j9oBfgkMBU9QFQosLWKZuM/N092FKIePUA0YnmlyJTk P9bicvOFMT1AFNYLhUTx5j8VCmyxTVc9QPS9MEQ8qus/pEN9evBZPUDU71dm lf7rPzJ9jkOTXD1AlCF/iO5S7D9O8LDV2GE9QBSFzcyg++w/htb1+WNsPUAU TGpVBU3uP/iif0J6gT1AKu1RM+d38D/aO5PTpqs9QFp7i0SwGvM/aHWknEmu PUA6FJ/V3ETzP/autWXssD1AGq2yZglv8z8SItj3MbY9QNre2Yhiw/M/Swgd HL3APUBaQijNFGz0P7zUpmTT1T1AegnFVXm99T9KDrgtdtg9QFqi2Oal5/U/ 2EfJ9hjbPUA6O+x30hH2P/S664he4D1A+mwTmitm9j8toTCt6eo9QHrQYd7d Dvc/vNpBdoztPUB6aXVvCjn3P0oUUz8v8D1AWgKJADdj9z9mh3XRdPU9QBo0 sCKQt/c/9MCGmhf4PUD6zMOzvOH3P4L6l2O6+j1A2mXXROkL+D8QNKksXf09 QLr+6tUVNvg/nm269f//PUCal/5mQmD4P0S18+c= "]]}, Annotation[#, "Charting`Private`Tag$67088#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 30}, {0., 29.999999387755103`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"x\"", "\"\[Psi](x)\"", "\"|x-\[Psi](x)|\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7705007603847914`*^9, {3.7705010418335104`*^9, 3.7705010567415695`*^9}}, CellLabel->"Out[128]=", CellID->552049077] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Plot the ratio ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[Psi]", "(", "x", ")"}], "x"], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.770500412002844*^9, 3.770500450550679*^9}, { 3.7705005739525566`*^9, 3.7705005773015866`*^9}}, CellID->994459745], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"ChebyshevPsi", "[", "x", "]"}], "/", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.770500454630768*^9, 3.770500496761095*^9}}, CellLabel->"In[121]:=", CellID->313764767], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw9lGtMk3cYxQE7pCAgDBiw3t7SduIF8LoxLs/DTSfQidjBRByXDkTlpiKC mipKAQGXiExwCbUFNAQVFLQ4xIWAGtFFiVYUJ6Cy0X/fd0VlKCIW133Zh5Pz 5Xz5nZwcKjUnNs3KwsIi1Kz/vGWlVes2aw4+Cw56vm6JHm4FtLCeuHJw0NHe Nr6UAespzjhrJQet5M7svzMYCG+reOQr46AkoettbyQDh7Ledyfs4mDptNPU 0GIGZkcfHb9wkYMvJ0vu617TMNVf5Z/ow8WYieClHQoaVlVaepVKuRhnWjFQ lkpD3prceW2ZXAy/U+tzYjUNr65JR+ae5aLndVt2iiMNpNlG2f4FDznnt+5t aDCAJH1P9vBqHsrqnTqDjxjgR2osnp3Ow+tWnh7zcwzwrKZ3YVIjD2eHW9Wx AQbgbVjmUt7Lw/x9BcoeygCJDhrTpRc8rE41WabbGGCwWNFvS/ExdyIhLmKA gDsaf12JfGxWRc8euEYgbmZTQ3ISH9Uql2GmkUC19nZlhYKP88uOy8sqCdzf 4Z+vreOjg4ieleURmL+kKel5Fx97UrKF6xMJfEvc1s57yse55erQ/eEEKhuU y76c4aNvm2Dg4WICab7v7ZfaCzBCdFg+/JiG6D9KT7vzBKhb7zF6uYuGFaWu QRa+AnRUslfdUtPAGvHLvBcjQKln9d5fttJQ/9OW21nVAkxe1EG9MBmg/Os3 Kd+dFmCIDenbP2qAHWOHpgO1AhxJuPA4us8AGKxaMO+xAB0IOVP+swFGjLqS 5s8pbL0hmdnuZ4CbJ1N5VYspPFoz0qn+zAAtEa8uFwZROOnk7Gn9kYCizu6v b5IorE3lHUi+SyB97cn9frkURm3dnS3TEpC+kbi4F1FopV3Un68iwJGGhunr KbwRVqgLzyHAmr735G47hacUxtyX8QSYxs07tdcp3GXasusmmvuMYdiqhxTm b2ra3OdNoPNDgUY5RmEKN6p9yplAfZO1f9YUhQ+M3dMxH/RQLqvul9kI8beh 2HHL3xnYaSHMCPQQolKu2WjXxsDGc60fvRYK8Sxt6x5RywB+H1RjFyDE5CNU Q4uCgQWsOz7/RAmxQpSRvyaNgXebxjb3ZAmRKB2NrOUMnLDjdiVfFKKTZfFq TT8ND7aVF9R95YWC7u1X335Kg9Q77bXbGhFODswN4F8h8L5i99WhOBF63lNd mTDvpWlcqWxMF+EPx14OjR4z818647GsRIS+YcsdeJlmvmASIr0hwo1BpIOm CGRo3tm5PBSh3545gkZHAq4s9sCTP835UwepQpMecvu8t2WwxGiSf/Iub1AP Etn2qsNhYqR6Ytedr9KDTrsvMXKDGP2jZIOBRXoo8qiUOMnFqMkzcsdy9PB0 +Fyn6pAYdXPyJoul5v5CrhWnVYnRmn/TbW+gHiIrDk4cVov//4N/Admt5CQ= "]], LineBox[CompressedData[" 1:eJwVmnk41F8bxmUrS35SylpS2bLv+3ns6zDGYMrSQsiWNUJUpCzZElKhRakU KktCUpYUpaRERUSY+c6QhMR73r9crus433Oe8zz3/bm72n7wCOUQOxsbWycH G9v/fxb5vot7O7MLho2NRhyVJpDtnArfBzYZgC/dvzyfMdCCK3y4JCgDVhoq x7dUMFDZY3LJQSkZoNIOeDLzGYgtMUyDhWRAdW6D1GIQA90fOfmv1lEGRGst khRoDORunttxfJ8M8PdXGh8zY6BanofufIkysDqo0REsxkBBeXNJMs0ykPfr dVLFSzoauB3d52EoC2eUN9JJSnT0oO941EtdObB0Uo+/vXYalZ/2OfjdRg6Y PulZ1+amULG2nePfvXLwfbJ4T+3IFEorFJFXOi4HUcdk1JUap5C3x8Oh7Gdy 8HP82x+n8Cm0d33Ry9vv5CBu85unYvunELn5RG3rqBxkTTlmLpOmkKGUQ/Yc lzwkefaH8SpMoU1jP81otvKQlfmvz2Z0EvFeeKMa5i4PG65nOX7onURslrWS aUHyUGKoYR7TMonot5L+PMmUh/cLOt84iifRd1rAWF+JPJgtFMjRMybRJx6n XkaVPByb4VCfjptEbYFb7257Lw+FL0zeKu6dRI0SXIW6Y/JALH7lO2IziR50 Tyc7/ZaHZ93iLh26k6g84V1YALcCOAxKivw5ykTFKo+9krYoAOma2lfaQSbK Gy6xuyynADxktsIPJCZKy0nRrdFTgFzb94LBekx09Jez0IS7AlSddzsyLchE QTf0V1eDFCCWakr0LhPooMt2ukiCAmiPlHq9+0kghzqizbZUAbYl9tpJPSOQ bFzqsftjCpBWd3R5KpxAn9ifDkcF74bcq+aBQoMMZCCkUMmZqAgbeqc9jjbS Uc+avS+7sxSB/e8wx/m7dLR/JnU0v1QRcut6Yp4X0VHy28kt8q2K4H3gi8m+ Y3h95u0TJC4l4Gx0LUjQwev55Cn56UrQsFHyFKqbRrNLtKB9l5Xg5vUv/qm3 plHy1NkUuXtKsJnrvPCPgml0++XPhoYeJUjLfmbdG4PXnynf8W2DMnw8Lzl0 zACv55T7LVuoDDEfnzXMPp9Cm+fc/pspV4Y507FIu5opVD56Rr7hsTL0WdWr Pbo5hbpbJzztB5XhdfaMbU0qXn/yVnvoVhW4ZHpIMYKM14d+HNZTUQFSmt5u G9MpZLB/7V92UIEr+/YfUNacQvuRn8qFAyrg3bq0QUZkCt3+J1P4+IYKJEny jXUMTyJDhuuDUzUqoF588++m95OoZyjltV27CpzuC8sIbZtE+1/Xjm/6qAIP +s4mfq6bRLNPxtm+TqhA2ledZsqdSXT67mbxWwsq8PfrktrA5UmUQbouVs+p CrtFyn0nZ6aQi8WTWxLrVWHbVonyd6NTaKvRe82Twqrg5Fd6pevDFJrQnH72 Q1IV9HINVXs7plCVIoejrYwqGPyTtRl/PIVMJTQOb9RRBd2JmocGxVPI72/u lTKaKmipOa1k+02hPAf682P7VaFVxKRyZu8UarlqMUXyV4VwSlegl8MUErFe 0J6PVoUbUbOt7lpTqDPP861lgSqel5r/xjim0NxE7bxYiSqIG10zvf5nEkkZ CEoyb6qCkOjKUvD0JIoZaT1cUKsKmk3oyS5cH3llOY6fH1RhPkv5icT1SeR6 8qR84xdVuNL0b492wSQ61ffZMfuHKozaNq3uTZ9E92U1j/owVGHhmNSVtMRJ 9Dn23GXd36rQ3T0v3RYxibh7xlv5/+H9Onef4vWfROrbYXKYUw2cY0s+ilYR yCvy4n81/GpwIW9HOvs1AqV1zGqlblKDMq+j8gvnCVQrZu/hKaEG+b+GSpdO E+h7cNkptZ1q4POu8RtPDIH0N9HeDGiowfC1rSEOHgSa3t/kr+CsBoqcr6eD dxFI5NHmrJW9amDSEdfYt4VA5mtDa94dVIPqb4avrXgJdPmeNHtcuBowzdn9 KEwGsl86c+lVjhp01YS1/nnMQPfOU3qC3qqBFstHK8qJgY60T2hUktSh66Nc c+9ZOmqBikBFV3W4xcczfimOjgSfhF6/7aUOnhfzzMJD6KiqclHoxhF1EKvT 9jCj0tFsId9sYY46NPzYqR4lRUemG9/Kby5SB7VdbFolG+no/Lm8A+evqYO8 14PJPm460jwl2XvuoTocejkh582YRkcDVapOfVCH8dezljxPplH7j18Tq1/U YfHDRqms+9Noy/76bcfH1eHsbIqy1LVp5P853m2JUAfpEl3vxgvTqJ5qkhX9 Rx1kXVUrvVOn0bo3XB1zq+oQ6JzNsfn4NKLZdK2ErdMA6eU6ipA6C5U/z9Rm CmrAA8tB+yEFFlo0cg4JEtWAo2fZqyp2sJBt/Zabk9s1oONgWUSSBAsVqQ99 8VXQgG0XbLP2C7OQvuwh0gEDDTDrWXNPaS0LxQtGK7p6agBL3lZzVz8TvU4z 8Hl/SAP2fhsL0O5kIkkutsvkEA34xtzQ49zARM2LZ/nsEjXgYtGZzw+KmYht tGgKXdWAqjc3qGz+TJRU01wu/0MDDrYUB77C+pq2l3vXvyBN4PupbdeoTCBj Vf75yUhN+B1kNMG7g0AzXEId/fGawHq6Kesg7gdateThqgxNiEyifVJkI9Cu dVr3vCs04ZbUHRXFdwzUUuOt1TWtCb0uGSLd0Qw0L/jMoiBAC2bDn0pSsZ/e GW/fnByuBaeSh9dXN9ORZ+PridBYLch/lfxR+BEdvfD7lGqbpgWMift988V0 lNPM7P53Wwt+v6lNEY6iI8Wgra4+k1oQ23M7olmajrw74nzV/LVBZ/0R1ZSk aeRjKOMwf0Qbbj/Ws189No18q99qPYnWBqfyupWEUPy+l3ZxWZzRBn+lVP5c z2kUcuTNddpNbbjbVC3ArTuNQseOpUve14aUIvYdD5WnUdienRHfa7ThfceR Qt9d0yjS7JhpUJs2iL88kTEshPurfoeCWjfev273yk2eaRSt1LNhvk8bdvCv qYtgm0axW3aMJI5pQ0fjxbFtxBSKz+juNKdrw/LuO/arY1Po+JqYKp45bTDn S/w+NjiFEo5KF/b81QYX+76St++m0Inp14nnOXRAsIEyN7SLiU7tj/aj8enA jEJamYc4fs8P2x0lN+pApBXf4VHsnylPj269Ja0DlccDebnx+57V3M4dpKAD rAXpz1dnCJR6+xVDVV0H6K19JeYTBMo4L9XUYKIDRDeaKX5HoFy/Lvee/Tow PzA+VXabQHlDkWbn/XVgom6kPKaEQBectu2mherAkvWfXZQLBCo0iFwaSdQB 8ez7pqInCVT839aLv4t1IH3NN/s/NALdqQvrl/iiAwWUrb/pPAR6tlbUKXCP LsjUCL/JDWWg8evKtgMHdIFvu4jOIV8G4gdzM6sAXUgfcbpp7MFAtJgjWjvi dOHP+gPHua0ZiPmzTXTwsi64dL8zn9zGQJtODwrZlOnCmVwlyV/CDKS/fYav 7p4ueFy/+5yDn4FS9kis5Dbrwt63aJ/eAh1V/Fb7w9ahC5vuJFt6EXT0LseK FfJGFwIUbIdTx+hIsiv8u+2wLmR6iAv+fov1xvfsYP1PXUjTKS3U7KAjf/bi PpkZ/H16QX1sEx1lFj/szlvUBY4+l8MdD+nokf7LdnZ2PfiaZFvh9JhAn/u/ Pg3l1YOZh6qsxfsEYouYq/8qpAcr1INyt28QyO7utrsNO/TAO7Zij0Q2gUKt tG7IKeoB16Ov5sNYv/NHba/ka+rB59tZ6+7GYT0XP5oVbqEH3+a5V6h+BDqW 8TpCwU8PRk/GjC4a4/rLfQ8qPKIHfDLn+n5pEujFiz+HuGP0YDnFyH9OgUCC /6Rp38/qQcQpOU8ePM+3go8ZFt3Rg+4ffB0nsZ5/cJDh4iX0IKeFznXrKgOp bTiRPxmpD3be4uqFvAzUsO6jXEe8PojwVMQsrGEgUzblJzeS9eEz/ceQ5yId UZmD3/bl6QP3YwW6zk86OtqtI9//EK8XX7wl105Hqy8ynzx8og999vc9q3H9 zjb+IOU814fYsybrUQ0dXbx7Ptz+vT5kzidaH75BR9LXpzgVBvXBeuLoK67L WD+KTArWjupDquOo9q3zdKSRWyj/Y0of8pujU0jpdNSYynzSOqsPN19O1yyc oiOLk5YOpUt4PedyS3ks5rmYK8PH2Q3gdHNRae5TBnINnQt35zWAKJevh6dr Geibnx2XnpABTNG99W3uM5D/vmsFm8UM4NCzrvUVZQzEcl2Un9tuAH+l675t vMJA7Ja3HCrVDOAFx6vg2XQGSjdaGc7QMwBDM+r2w0m4P7VcIgJMDGDipEzr WCwD7drJUbjLyQC8Fkoapg4zkDX7vpFLoQawlugWVMP93btYE3EsxgAUs73r exAD7Z3h53Y7YQDT2o92h+kwUOBwg4JQNj4PRezQCxkGymzeHHm20gCe2/JU X+dioL7YHu4owgB4Xy0omr7AvPrLSNEhyBDoX35cHDWno/VCbG/7Ig0h/JyX c6AhHTWotka4HzcEdtqVrQsadLQpxPKJf6YhjOabfZLaQUedPx1sk6oM4UKg 0d77a+goau0GguexITxXf7XDa3EaScu8z8l+ZghDim6DQjPTKN7bbeDKO0Mw E5xiTx+eRvKnRI/vHDSExg3GAQ6fplF/6aDU3VFD0PZTuL/57TRKenrlhRrd EBL9DnaNdkwj1a/7/OvnDKHpWHFDzdNp9GV5Oz/6Zwhz6y/HZmDeThMfq2zj MgKJrdZvvx5iIh39m872AkYgGe5rVO7BRGM0/z/vNhvBX0/RDdHOTJQTrXBp zzYjkL5wzdLOlomM8+nGw7JGcMDNZmCnCRMVvg9NYegawQMezHHKTGQxq64Q aWIEVwienF6st7OCv7uXbIxgv67n4RYJJrJ3OCa8zt0IlgMnxu/xYn99efKG 9HEjeLRceqFjnED3Jsysb582ArHmlfnPXwi0l5ubrpJpBGUJRxN+9RHokVma hlEJPv/haYbGcwL5N+e2uj0zAnH1jPczWF/fPrw+nMFlDAFeUkzPvQQ6/u5Q 8kYBYwj7j+vWMycCKczIyhVtNobXwjtBwYZAycoVR27JGoNi5SkuXl0C6d5+ tPLMxhj6pkYOc2wm0NXiNok/54xhtFtpw2fsz5c9FD+65BvDRq6/fVVdDFQo dj7nUbExlHMuCWS04n7K388dXmkMRVWz/Y4PGCiV2tHyts4YTi2We+reYaBk IeU4lRZjENfjtd91jYFiM/8y6W+N4YFMuBN/LgNF2R+8YzdgDAv91APcaQwU yvvS586IMRDRRV2cp3D/dqps45kyBsmqhtS1eB58U/IH/GaNIXJB9ZJAOAMd MP93vn3JGIQL4v+KBjCQB7uPwy4OBEpxnWeuHmUht5audcl8CL49TtBTC2ch SoLa8+8bEUwPWDk+D2YhkmHhcRMJBKc/aHW4HWYh66UVndKdCP489ighfFjI +OjrCk8tBNRnlf47PFhod4hf/idXBOmtrgq3bVmI0+vK4Z6LCL57lXTskGOh VXHOnUrXENzcNXbgC+a3pYGAr+l3EIxLPzK+uI2FWC66zjZPEFjE9dRv2cJC 0xtL1pc/R/B3MpXyWYiFxnu5OrlfI/CpfiBbIsBCQ6T3hi+GEAgvmB5X4Wah j3z6f6R/IOAJUlhaWsNC716WVp9kIPDSX3HN+ctE3WfWBg3/RpCmxrdN7RcT dVqEyKAVBJox62w+TDHR95MBLAcOgKeT4qU/bFjo2/AVUsJaAB/tUvoNC/w9 1HvnHh9AvO/6MF8TFvpczLnuy38AXNm3disYsdCnfzqH+DcB7C54JMbSZaEP HoGtBiIArN3xhvWaLPRW7F18kRRA3t2DGxwVWag9v2TGTQ3gXi9Xb744Cz3M 1B98RwGoeW16UOw3Ex28JMDV4AqQoCkrEsNgIqHy78pX9wK4VQ2ED/xgotBn aaeOHASIDTHmv4V5VnHuszx/OIC6fnlKcD0T3dgTF2ORA/C8lHNfWTwT5e1s FK5/A0Ds8jatXMtEkQ1G5Cv2JrDBJdmxXJZANXs72AfIJrD3tvdmGykCzS+R aza5mEBEwdZohgj2RwMfsQxPEzC/UPwXcH5JaEwbiw0xgTdlFzuEGAx0pvlj DC3bBD6tUhX2PWSgotawqxv78Hq0PTfVlIEGD/51dvxkAl6ZO28XGjCQBMdp 7vQhE/BWDuC9q8lAxWaFgew/TMD18KFrA1iPr79o1pr5bQIDNtoTnnwMVNHO 19WzxRQKH2u8YPtARwzfC/G8EqZw8VVFoFkPHSmv3aZiKWUKxXpr9VIxX1Rb qec1yZnCj1c5hlsb6Ki2k+ZVoWcKqc9f3Q4uoaOnXWWzqe6mUKMyrFcaQEcP RN6GHd9nCkVNk6+TfOjohu8SK9TbFCrKgC3Ai47S2B2ZboGmcHpqo4kxhY7i ycdC7I6YQu1FdTtFezo6UnydYRxhCu3mo4SEJR0dpHcHqUebgvm9WAVBwH6u vzC9K84URNkdl7n06cjqrHSgaKIpcH+tO7iC/UK/336KPwmf59KxO0x7/J47 ow+znTEFh3/0XlNLJtoWfvXnrzRToOpe7S1EuB9aXvlNZOLzybTdmtFlIk6B +fHPuabAq5xKIakz0dRt2x/Pikyh5U3D1vVYf4f+RPrUFJtC60i2YdhWJnpj UTJafs0UPi18lP20hYkejfwaybpjCroDRfvuYz1OFL3y1bPBFBRmw6XjWQTa lMr8uDhgCjvWWYZcaiQQ90dRN8YXU/ibX529u5ZAizvN+4dHTCFJp8WnuZJA X1sK+zomTUHqLZc4Hefr2wsmvRcWTYEuaJDjl4rzkX9el5qoGdx02672xZVA h630mg7TzED+dDq97hcDEXKibdUeZtCncyFYBPdXOO/i68X9ZvCY8mowbpyB 4rvrh1IPm0HYyr9ouwEGynbWXb4dawbflcuOrcc8UrtPx2DqshlsC21aEMM8 wR6j9ThgxAzOzHHMOuzC/bpH+NmDH2YwJp0YzYP5l9/gd+fSpBnkdDhWtosw kPDKo09ps2agdWRV2Qbzr1yy5sIdDnOwsiUZh/yiI8dsDZ3pXeZQpyG+TaeV jvrCNiINBXNYari8LN5IRzTnX5ZxyuZQaOESxlGL+2HzQ1c+HXNI/fBB9PNt zHOX1Y/utjYHUped3s0cOvp7XCghwt4cZuIfXCvB/HVi3+zpJ2RzCOGzyb90 mo5SpR9csNtjDi4yl4UvHaOjy+VqNYEB5nA+zdS6/gDmiwHvzpIQc6j+yZc6 4k5Hc7z5g+/DzUGf3111vSsdSRl2EmujzeG3XY2hAZmO7IKX1hjGmUOS1tWK QFt8nmJF4dBEcxDPuJlQjPnm2hsvuRtJ5pCSxXeQtJOJethyDD6dMYfTOh93 MiSZaEntuQN/hjkcvhKdlIX7R8b79wHIxufRcY7X3MBElDzZqMg8c1ju6l0/ hPvpznz6paHL5nAg3HNOfYVAe55Qf1bcM4dS2YTrq2PYf+kpf4erzUGwS0fr 8VcCVUk+FhCuNQe+ZTbnqE8EWndCUut4szlYJmcr/n5FoHrz8ZOkN+agFZSl uPEhgTb3RIsTLHMITojEAE4g09XbytK/zcGjdPJmOeb9ENUhE9dFc7CT1KnN iCJQey74N6+xAOeCaAWPwwSKcuOpyRSygL9eBSCC+aBvuMhBRdMC7rv6fePY jvOGUPcBb10LsKRv4+UXJ5Ci2WpkgaEFBA+W52wWJlBSmfelVXMLEIzIqVbH +Uw9QPHnGxcLYN/wfP2ZGQbyuuT1l2OvBZzbvfzn6jQDpb3OFtD1wvunMzSe /mCg78q/NUt9LWB908lLbJ8ZSGC/rHVfgAVsPBf4YmcfzmM5e9zXHbEAheJL enY9DJTzq+lkaLQFpOj4c5Rg3gh5l33AI84Cng4uWKk2MZB9tbeJdaIFLGyZ OvO8joHks7W3ayZZQMYW9gYjxELcR3jWSJ2xgGT9U2LWhiw0Rhoa5ku3AD/z d5nOeiz0TLGy5U+mBcQ9dN+8X5uF4qeoJ97kW8C/oVaPeFUW2vNSdv+TIgtI rYkSy1BiIe3yJXSr2AIalfknLyuw0Myh0tWEmxZQO5Zb+2wnC/mOTCco11rA hcVxdhFRFjJvafYSa7AAvvjzOqqbWWh7SY4xd7MFeOtmxNhsxH7robPypc0C rJO2SiauZyGnT6eOn/tgAb3y7CPz2N8N34jG0+csoKt5+p4K9j/R+3T3TwsW 8FAqW+zkWyaaz3hq8GLZAsb1+TL7upio2vbQ30ucliDcpHr65FPcr+1VsXab LOHSf0L5v8qZaEOT1bE7GpYgUhflrIP9cvxO1FH/cEsgdosQWrj/XSVXvpYf tYReT08BJ6yfbVkpVpOxlsBus+9wiAj228gCkYAkS4ibSO+q5Mf+bfy4ITDP EuDtvs2k31gPe5dXQmot4X3QiyZWO4EczE/7VTZYgreezpzyMwI11a5/y2zG 319T7HTkCYEuX9p6NbTDEkjJUfHzWE/3HgKz8E+W8P1mS+jWiwT6sJB0JmrJ EvTyKV3vAwlkHsjPqlmxhIGrMKLhi/n4Sx5tnt0Kpikm/Pn7CZTbWiYfzWcF nJXDF/e7EIic0fEqRsIKRBazIwQQgVpWHDUfS1mB3Ze1fIl6BFIJ+3R5cacV /POJuDejQSAB18ngWCUrqNe/LfBFjkCvt/EJxhtbwZMN5jteCxHIMPd8TKOp FRykCPyyX0+gu5wSI8uWVqClP/bizVoCpU0qPjjuaAWa06SAwWUGWnKvEWt2 toJZhWoDnz8MdLjHKGnFzQrO/mvmZeJ5sX7oQE3cbwUm605d4Z1goPpdHxuf +uDzCa7fd2mEgWQL9+1iO2wF2TaEqPIQA+Xz/jwHwVaglCvU3drPQNzHQ+dP hFnBhyy/6D29DHSUueD1LMoKdlQObpl9xUA/DpzsWBNrBYPSXvcy2hmI2sej appgBUajX7XlnzHQC8vcwlOnrODMvKGjDe7vH75PumNTrMBl/kVKJu5v7jNj 7BFpVmDze/52nyzm4w7tYO9cK3j1ML7aW5qFXlsNmphfs4KideL1GZhn31vv nOZqtYI1R7mMeNlZaM6fJLXSZgUl27lYT1aY2F+Pusy/tIJ8rsfKhxZxv73s fDreawWUhEb2JoKJPtsE53WMWAHPzB76yQHMq7a1RqlrrOFDp+ia/ZVMxBH4 LfwklzXoy34t3HGHiXamrys/xmMNg417p3/eYCLfV3uFAjZYw3+ugk0xRZgP 7FbHbbdbg5Jpwd+K00zEFyQnYbbLGvIOmDklnMD8keHkZCBvDZe/ftnrFMdE Ia+vP9mtZg1jF5JSlkNxnrO3zuY3sYab6rpyfjgvbgwOa+O0sIbSgkUuSzcm 0jxXtLRsbQ0cn9lzZChMdLSb7sMgW0Mcx427dCsmKmAIF/2gWkNPR6HeO1Mm ql+P3nyhWYPUjqywx0bYX0g5ej37rWFJE4YyNJhIPKQhpN3HGoDHY/0xnC8N M0evN/tbg3ylwQ9feSbyvM8/UBtkDXbcG7xd8bwm9GgJVIZaw65IgRSrbUxU QniZ3Yq0hrpRX5K+GBO1CJyNKYnB9Wgj1SsLM9GwcvW9gnhrGOf/07ZTkInW OH7+nnXCGmwrnnJp4vzS2eyyIzIZny8NHb++i4WylXu9aWetQV2Kt20jzjNS Ap1jUtm4XhG/ns9LshB014xXl1gDyYsc2Y717IRdztT7ZmuwuVpwXmQV511r 69kt/6zhpQcfxQu/X2fdc/VlNhuw15P5cgS/X7YsihjmtIGeyBXWqTImklqr PVfObwObBnmr7l1iImjfMa8nYQOqf25GC59lohPmq4vuBjaQ2bKYqXQA729S u6b0mA1sWRbiitvERHvNJ7o+HbeBMXcje5f/MO9ZieRtOGUDx/cXWqlhf/Z3 iJVJSrMB252JbsQqgXrdje18L9nAh30pL+KnCXTtaHueYpMN9GuuEZ1qJdDy sT+eh57ZgMqHeeNvTQRyPS4nW9xmA9t2fuLrrycQb3La4/96bGAicVtB530C ReQ4fJ39agNEtYLnsyKsVxX9so/ZbOHxbp05tggCFVeunZnhtIWEmSo5wRAC LTzQbVDgsQWp/j1/pLA/Vzwusr+8wRa29ovvt9pHIOEOr7BEaVsIel9lc8uO QKFdWfr1MrZwfCdL77klgbq6WzhmFGzhFlmtedgE55U+6fyDGrZwhqciUQrn +/GR8QYLc1v4ts2098FOAsGPLckJ1rbQP2dnP7iNQEU/rUl19rags2DjwoX9 3oF555uciy3M/dwp4LWBQOWzg+UH9thiHk9uzOAnEPs8f3iRpy0cOTb0uxHr Xd1yCCe/ry2s9p7kll5hICG20m7zAFtgirgMuS4yUBBHb/7xEFvorFTSPzfH QO3c7Ptrw20hdNBxWxuTgaR4NeSZR23hCo0tfWWKgWLX+8zKxtlCoHtyvB7m 3z7BC0/2J9oCZ9b2X1FYD5U3tSdfTLIF0Rh7D+7tLHR2yx/SuzO2MGGb6hC1 lYXyOjtHW9NtYfGf8HdBCRYqOVZ07GGWLTxJIu++h/24dtCoLK/AFmq4M75M bMJ6V5K87HrLFt65UeoP8bGQqZzQ3cF2W6g+38bOPcNEy7pK635w2UGLX0ls 0k2cR/d6t/5JsoOuHd+LEvA8CZRMDRuetYPH6z9EV+B5qhgNWz2ZYQeRVPf3 g3xMNBF0wpD/gh1cB3cOxM5EXolXaqVu2gGR3auxhUkg+xsf79h02sHpO+ZG Ai8JJEfYnb/Ebw+cAelGQgmY39TfVw8L2oPWaNHlkGME8one+3aXsD2E5Lz3 eR1JoBK2w+urJO1BY6+ycgb2x80bU868ULaHNt7SXIk9BOLUbYljkO2BFBO4 6YQmgUZOavqgC/bQ42tWQqIzkMxmgczQi/aQITT2cgr7T8CdibqrV+zh5mKC UeooA829K+LjvGkPqPfAv5eY19btXPOws9YeNsZLv937Er9He/cayid76Cr7 ZP74JgNF7L21O2nIHtaWizQGXMN+RpxweTRsDz/+C4+QLGYgky2atzdP2kPH ZvPSlAvYj/yLyIOL9uDfbTDql4zfn9evxEecBHkW2vmHDjLQ02J4eWEbCQb4 g3sUvBiIU0PsV/sOErwMUzKe2cNA59y7LeUVSbD6Va31pBMDlVZoEAxDEuiX 3yZVA/Y/WC+yzYQEFcXpGicMGUjhw7gJ2YIEOedf25N1GejRv4sXHpBI0P/W fcucCgN1OLAZRXuRQD2esmLz/7w0OuBbfpAEflrdodLiDESOfpg94EsCslGW 0PJmBrrAd66BN5AEgYzNo/1CDPS5xHfM4AgJRCa/jzwQYKBtmiAQHEGCvZLh Atm8DOTTKapbHE2C8hYz/xBuBrrt8evAmzgSNFA+EiR2nAdZr9PZTpBgy8Hr Ea6aTKRx+maNWjIJ9BLeTk6oMFGM6IlvB8+SIPbYxmuxu7F+m2potGWTwIun rv+6NPbX8xc/p14lQYR/qgkXzie8Hzb2hpeRYG1Vvhsd8xrblswO99skaExV OtW3jokYRaceKVWTYPa36cZyNiZqvxaY2dtCAgeKjKgHzsMxD4xMRYdJ0Mnp 5vLnDc4Xc3W67GMk+PDF6CQT5xMfbXWV6QkSwJa5hp8dBHJqkJFoYpKAu0vW 9etTAim0/je/f5UEy8JyUv2Y7770jtwu3+oAVSNbb/3Jwvljo0dpjrQDJHV8 TWDLwHrm0p8fK+MAGhbTnrxnCVQ70JVkr+wAbQ/IqttPECh75KEny8gBJvNk xd1DCZSyQ5k6YOIAiey7pIOCCBR/qNy21cIB9B+bKCX447w9eVknj+QAOcaW DmWYD01nTm/Q9XSA4+VJVatkAulqsK3bfsABRGZOdouQCKQcFbvCc8gBXA0T p9VtCCS+GDI9GOQAEWem5AKwvgoZTI68CHUAxlCu1RkjnNeOe3+6F+kA3MP3 D5Vhnlxp/tKTH+MARvpDp15oEWiOjdaWGP//+9UXj6kRaMr03RP/Ew5gncC/ Y91uFhpOtn/glOwAnCfP9P7G/tvf3l6ufxb/Tu1fOybDQt3rTEp2ZDiA+JsX be9wvnhh++QCf7YDvB7byteK+ashQyvj93n8vWtVH6ulWOimoMKxjksOUNJ9 l+s81j/l8T0LnKUOMB9F++UmxkJ1T1KjTW84wA4FoURJEez3vpNRTRUOsDnt 5pE72L+nGsvDHzY5wPsvKvdf8bKQ0mHZoJJvDoCR4K3rLPbTZzv3Re9wBJ8H ojsaKzCfFFC/PpJ1hJy9S2eDcL5oC0r2nN3tCF1jIuJbMY/1bxlzD9Z0BGl+ mdZk7Od/gq/TvC0coXOnosD+NCbSF5OmOPo5QkGwuKaDPxM9C99mIXvXEY4X BB/l2oX56DczW6LSEVSXpwK2b8e8daxlaMNDR5j6KUMzxvm8PPFA5HKDI6xj 8xWPw3qcnXH9em+XI2i/HdJn42airv8ime09jnByQG56B9ZfzvPmBo3vHGHe zzHHGufzmIs/3t387Ah5cU1NefME2n9Tlj1+yhG4Tbef053A/ii/QAoj8N8v mH33HsX9WtF50XfWEVyv+Ctkf8N5QfXiD/d5Rwj7qXmoaZDAPH9YzWnJEY42 O+ROfyTQKW3945YrjnBZ1aNarA/nI4/TY5JryDBzX+zKPzkmiisOThPhIAOb cVj5DnxfkWEX1Y1cZBAS87lli+9bs924f/1aMrRzXrwYju9L8ZaJX8dDBkd6 TcIlUSbKGJ/v+MdPhlqMbCw876v0gn0/N5Ghm6O79ga+72XlE1yjm8mgFXBU uw/fVzfU/+4XETIsRRnd5PxLoPBfun/eSZAhKbeV6v8L88LiQGbTTjIMMjnH 9McI1MMt0ZyrSYYDXJ8S+HGeK5YqlTCikkFPf8BmXxq+f5pap5IrGerDRl82 pxAo8VdrxFYaGcoCPGS2JeF6tv/oWnXH+9H3R3yPI5B00O5jrd5kiPCVc4kI JtDNutoPVhFkOPP01a8mPI+bt1uf1I0ig0yA3ebdeB7PpA0oykeTYfMjb8GL eB79PZeTeOPIMHVBKS3aFOsLh6l69ykyKEV9TjfG/nbfoTuTkkuGQ5SK03Nb CLS13kvfLI8Mok8dVkI2EShrO+uHRj4ZpIo/2kwJYp6aEzISLsLnmY2kjf7/ 3zOKaNMfr5JB2OCN3be/DHSNYyq/8zoZVDMvOO9fYGD+jzN9XEaGV+T53d8x z8yh4otFt8kwUeFN+slgoNofo1ae1WQwGFu2XfmG/dUx6hfpIRl0f954cxrn t4J67hLjGjL8+HxdWmAA+6l0oa1KHRlcR6vNCj4wUEy6/Py2x2T4Y3NGffs7 Bvo513BV8AkZjsYMEXd7GGiPlz1pTRMZ7i0ejtHB+a6r48vCTDMZio/97Hne wUD6akdufG8hAxFxf9qxnYnuFLGR37eSwfu+pce1VpwvOHP/Pn9BhgDJpzd/ N2O+6X9EKeskw8g+6c7iOiZqil9i839Lhm0pRzX/4nmerxxnnXpHhmvB7T85 MZ+rjr4bvtJHhovlfUX/XWWiGzZ3W95/IkP8xcp52YtMlLbZ4wQaIYOfPXuS TyrOd1VNq5tnycC6+voSfwATMUdPrLRtdILJM1wWmxWZSG5LMDEs7ARSTebL xngeDtru+fp3ixNsb6st88f5pr9KrVlNwgmmH3Z3N0swUePx78ev7HSCokie w0fXMzH/mf+L1HKCwy17E4QwT223W7u8w80JPlabt/59QCDND2bvxPY4QaaE Gusk9h/LfSfKN7g7QfGv0xPrKggUELFIXfVygpgrbmqiZQR6dGn63mdfJ7Au llMwK8Dr6W/25Rx1gpQO56hG3L+0o/zaZ2OcgPFjVdQxBv89mw1/YqwTVMp+ SfqOeSxrU2t9UIIT/Hdo+00+zPefDB9tsE5xgupj5yX9sP8EnCt8vnLBCXLL 8opNLbBfbflw8XeBE2TcCo4ewf6SeXVDKP2iE/QEe204aUyghzVpEp+vOMEK PflMqw7OI1/io2rKnEAxdTDKQQHPn/9ju4pbTvCzxo/8Swbff/b39uu3nYA2 xDNVuAOfn/tIT/Y9J/jqkLNnXAKfT/mAbFCNE9xLfiKd9h/OO/VX/h2sc4Jd 4VxMTcz3j0w/v9/z2AlsbgXEDK/D/Pl68x3yEydYtatozuDC93F1PmHV5ASc N9Kf6bFjPxvOcjV+6gSDAl0nJjD//wt4raj1zAmabQ70WE8wkeDvdRyKz53g cqLYzWejTCSdaDEg3eYEjQ3xFgbDWM95TlWKdjiBbLdFRc0QE1mebz4t+BKf 56bGZ1Wc/wNv6aivvHaCZ0tRafLvsP+8kU8f6HOCW9WHtHa+wHq/41nZUr8T BN+1Pr+nBa+PprWIDzhBctyLT1mN+Hvbzvz2/OIEZC8D0dVHTJQVMrbv+w8n 0OaT8vuJ+zlgfYnm9LwTXDTdxPxxBn//gLYj/yLeT4+zVD6ZibbXdB9W+usE gfVhGiEnmOiTx3LxkVUnKH2WxLYUw0QWFXt45tZS4Eb4MwUJ3N9Sdpu+LotQ oDyNNzbNHs9X8d0FSXEK+FwPVxqyZqKPs6YbkSQFYiW9m5UtmCizKMz65HYK 6K4pi+43YqK/kz0PuBQokCG6G6li3us38u2WUaRAerdz/1nMew9y/k1YKVPg P5VC6++yOM/qKUqmqVNAgAJNBVJMZH7uuc5dTQooXOR9+gvPy7aRvZTX2hRg FjYVkbFf9J9NPSNgQIFnbhVf+YXwfkNS11SMKHC5wdEySICJzqnWN5IRBc5L 3k15/f+8nOz4McyEAk+kbspCJAuZfxqfyTWjgGHUng0u4Sy0TTGB/5EFBR7a ngwOCGWhpURh2Q9WFAi69tvgRAgLVcuae2yxp8An/Z0q9wJYKCNu8KiuAwVE BzOdX/izkP+b8Jw9ZApcaLw5OejLQlujr7ZfolKguhsF8Hvj9e0rqlKeFNg2 31Yf7s5CEDauJrmPAmxRcyn39rDQnHiPutgBfP6PqnU/3VjII+yK5qZDFJgW oRrtp2J+kTDUXRdMgSrT7iFnEgv1hB1DrHgK8N5YtichFhKUnCO1XKZAXk6Z yNkdLHQ+YjJg/xAFfLPvRil9ZiIxy9gw568UmDRW5hvtZ6JrInwxlsMUWNNw 3+Hie1y/JsXTimMU+HKj9+vabiZ6uza0ZGEav69giyTjKc6Hl+ffZ/+lwJVH 5yY+4n47+4LD6JmYMzwifdRTCsfzUZBn9kjCGZQrXeUWQpio4PAu21tbnWHm q0nz80Amuilg5XZO2hkqVjK/eRzCfEVLC9uj4AyJ0qGz+TQmYmcI3pzRc4bH 8yxFBcRE8cJb/5Pe4wwvPLXyX2He767m2YvcnaHzkpWtHw8TbXX4fcPD0xnc BBeecGA+epryWr/ggDMU7DP4aLyK8/1CrC9/gDPAuzPjTTPYfz9/bJqPdYa7 a8LVv/Xj+T/6fN2m484gsePs9ZT3OK9urHRWS3SGv3f9epTfYn63S5kMTHIG 4/055JM4z/I3aQqPpDvDwuriqnIjgXJLcoJeXXYG1aqu/oqrBBo1OF73s9gZ fnV5du4rxnr9yZ+d+6ozbG1aPbLxEoE+CEIhlDlDK+fp4fg8AomcIp7X3HOG oYeKQDuD+X7rZ4H3lc4QEdA9KJhMoIaGtj2samf4bXJ7dxfOC+6/LjMVap3h PlVhwjiWQBVZZ/Wt650htcedsnQU6+nuyNOHGpzh7PhwaG0EgUid+96eanQG YjHRNALni2IfO/HSZmeoTVhtV8W8wmTT8W1qcQYGxwPVuC24H69IV39udYYg qUH/VmEWytYTWP7zwhnabpNWeTax0MiHRUvhDmfwPjj9y0mIhdTDf+Sov3SG UtF8yyJBFjol0Dvk+MoZWu6q/PkuwEI7rcrD0944w+KGurAoPhaKHD3fdKvX GT5+9Td4ysNCbYmJ69reO8P6mJyDPOtYyLfetXj1ozPcOPems5iThW7Lc3VF DjtDDVvc6KW/TPROwuRv8HdniO3SoxxZwHr033FFvzFn8KKoHTT7zUQO83OZ e37i9+njPcQgmGiudczZmOUM2W5KM9bfmQg8XnxZy0aF9JeXFiVfYr10ZPtv DTsVRlTyDv1tY6LzpoawxEGFN097jgxgvhiXe3SNvpYK/8wcvQqw/mb8vu7X +x8VZPV8isWqsH5mJs0UbaNCVp39KeMC3L+nnkrnbadCQ3tp4648Jtod9df5 3A4qLI5RctfnMFGCe0RtoiwV5lvE/vuG88JOOe84HxUq7FkxtklNwOcXL6nw VKPCl/9S90TFMVG0wOAXVw0qrB1r4ziI9blrjgI2OlS4n+C9ywjP26+JzDBT PSp4WgZc3n2EiSQGu64ZGFCB831lhVgQ1v8e7j5NIyoIOa115T3MREeemXIp IyqErZgVLuH5K3yUoC1rQoWMNak8a7Aftd5q8JMyo8ItZ7+7Ez1MNF00Xyhq QQU2aJnoeYXzeKZ6l5AVFYorfJtrO5nI+GTIXz4bKojlKKmU4Pr5Rd5R5LLD 9Zif0DuL69ewVzrrjwMVtFqSJDxw/cZIXi0sMhXGz/HNWT5movUmRTOTFCok Vb73Ua9lov2yQtQhVyrkngjfwIfryz23RvSZFxXapdbnPr/ORAtVhZlj+3E9 /T0vhJXi8wWrcK7zpgKvAJud1BWsVxMeTAc/KizIeLxOzGeiosG6tqEjuD5P KdutML8pPw8OXzhBhWrfktF5rE9SJzh/iidR4VLAv5lKrE8bjS55otNUMNHT qTyM89tCbad1SioVfOu9tb4dwPW5s2PbplwqXHh2N+AdFfNg7sArlev4/nLF NgP6TGTtGGriXEaFY332ild0mMiAf23d0VtUuHs2uuGAJv5eiua1prtU0N4Z 9ImuxERCZq+2jNyjQsDbV34PFZiIi+3gOc4qKggLvL8ai/1w6lhWjN0jKjyt 5xTmw/lpSFuGCKnF/XmxjdSH89ObX43eufVU2D+3V7VYDJ+vynmgpoEKw7rZ jf7///8BwVMOA41UOMJQndXYhPVX4eSL5WYqvLq3rndVkIkuTmzRl3pGBUbL TMr0fuxPN+5Xmj2nwmDItTsG+1go4YDFLr82KuhwgmyGJwuFbh0qSuugQjR/ 5fIQ9i/vwXDB+y+psG9rn4LyXhaydin9O9dNhfOz77J7XVlIyOZv76l+KugO 3DohQWahW6rVCcUTVPix/c/HVlMWChGeWaybpMLuCk+GlAkLaS6pRvVOU2E6 qMw1EftZy/OqQE4WFb5ei9hpZMjCvFZFC1igQvI52zuNWiy07nilujaPC/A9 ZrN5JYf99+W98W4FF9CUTdsl8x8LyR+84/Av2AXuXz2yqwj3W+cV/arZIy4Q 8tNK9hHuN9+Brg0/w1xAt+xWVc9DzP/k6b53US4gsenwHq77+L2Qonv5cReY aZ1YibnGRJsl7vs5n3OBRp/SY8fS8bz3V5+4XeECESKiKl89mejqBtPvxfdd gId/4fM6d6w3pHdmeVUuMBzcx6OJ/e34i1nuxEcu4HbzDzOdgvvrgcY5aqML SA7xfDaxYiIiq+bi6isXkLucz92uykSDNo8fuEy7QFpYZbcyJxOZOt6gRTFc YEtjcq/SGpyHqFkreUx8H5pxgBLOw7H7Dtn2/XIBlcrqPcoLBBKL2vCdsuwC dwu/79ahY94vPbyBvN4VXOgz0T44v7eUUeuO/OcKU4mMmqBe7H93kWfWBld4 krY9JaqHQAs1wrd7hF2hiZQ2dLaTQAWvngFpqyvI8bZ51GL/W3lbMR4k5QrR vlOyzx8TyLe/ICND2hVKgxeS3tYSSHsk+NMrGVcY6ZAl6FUE6p8XDbVVcYVY PesURZxPjJc5NweouUIhj2yf0TWcn9ewnqRquILr42vVjiU4D6wdPHBbyxWu bs7devAygY7yt699qeMKUquvxKIuEujrhup7P/VcQX+/7M2z+TgfbLnsvM7Q FdboxLVcPo/zs8SZRVljV9DILj5cnU0gYenwEitwhd827+sjsb/Fy3pa+Jm6 Qnzr6Pj0RhYaU7SeTjF3BTeukX3e2N8e6WzVabd2hSIDe3Vn3E9UUlePuZMr XAjOctXG/tVIqYn0cXaFB+xVA5Vrsd/RSsWSXXD9PgndkufGPHfwqO/zPa5w 57Kt1FYOzGMx0ismB11hVd1vk/AS9rPrsUooAr/HOQnn7yNYD9hqH+tHuUKt 5LqXG74xkbPHjIV2tCucapZqNsF5om+Tv5dSnCvMF1F2Xcf89vG0S5Z4kisg /fVjgVifh/xUZ/7kukJrQTmXcA0T/dg9/qjqgSuU2KrOvjiL++2hk6H0rCuo xD91z1NjotX68JqUEDdYc3tY+W86gYa4H6RfC3WDiK7luwapmD+oMweaw91g 19Zrt+JTCBTJOiIwf9QNnoyvirKdJNBP2WC/Q4lukB7hOMGP+eNdvp+oebYb yMtd4zbG+bAs0uP4mgdu4N17N/ifJoFOtV5ylnzkBj58DbEkdQLtFxyU16t1 g7svdrIXq+B+rdjTH9rgBvY65xIB58HMUVeV4VY3eK8prpa+jUAxFKeR5vdu ECr+maLDSyA7VUuL+N9ucEvkftXkNwZi+/BhTeQfN6ix/9Qe9YWBao8dag5c xOtdhc3ZBxlI+nmyjvs/N/h49GCERD8DLbk8l9fnokF3VvI1l9cMdCcOBBY2 0SDAb1hxsJ6B9ku97WJupsG6hEPlwbUMtLlt35kJERosugWmsj1iYN5JZPso QYNJ5oU42UoG2nu1abZmJw3+q6iSjC1jIEFLUuU9Gbxf6enW/64zUPvUUGCZ HA2ivYRfl5UykLrm8lieIg3evGdf//4SA/F06H+M0KTBuXJfM/VcBmoO7Dof qE0Dy7qDfK+yGChScC/ZW5cGhQUuOj7nGEihZpLfXZ8GdoRMx780Bhrec+wl xZAG/P7NDQVnGSh/ZV2KrTENIh9zCKmnMJD99UJTU6DBQ//4BGnMy+zWcqt6 pjRIaU2yLOZgonp63RM1cxp42HBFi2F9CcmxipG3pMFg3sR/BVhfdmp/1Nxu je9rvmHDpmUCZSfO3xO0p4Fj3Ae7//4QyF9Iq5TpTIOBcs9SXgaBtta98Jhw oUG5ZV1M2hSB+typot/caMBzJLOe9yeBoCwit8edBs7rnUL4RzEP6z5IvudN AxZXYOWmAQJ1eKocDozA90+SC9dtI5CQt/+TK1E0GF2w5IlqJZCX/9X1b6Px 98r8tz14SqD58I0PNOPxfaYUO5Ua8HnP/ln6l0yDe/dW1u6uJNCJB08zsvNp YJUqvsMI64f+WnJVzWMaLJe6DjVjHk7hT2X/+YQG60VShPgCCdS7oZUq1kwD jonU527++H4SmosJrTRIfZl+YfYg1kM1EVPrVzQYfz/xW4lGoDn34fefh2iw erA0/Ykpvt8BUZn132ig5/l5339AoHRfSgwaocHIwPcKbyMCSYe9kLjxgwYy kd+q1usSyCml/FAwQYNLbryefkoEupw+UlfCwvUAg7lmPA8/s8V4383S4DSn IccWOXyfSxn3tf/QgPuS8tlOaQK9Lm1jO7xIA0HbkX/bpQi05eYK5dJfGmSl /5iKkyTQwbs6Zd3/aGAzKe7YL4b1sSr0z+oqDTYv+CioiRDof+Yk4go= "]], LineBox[{{5.0133217473269065`, 0.724281253738777}, {5.022219762515871, 0.8152459979511225}, {5.053265897648204, 0.8102373089307675}, { 5.084312032780538, 0.8052897886330084}, {5.115358167912872, 0.8004023233220916}, {5.146404303045205, 0.7955738261370982}, { 5.208496573309872, 0.7860895182696156}, {5.332681113839206, 0.7677834985475855}, {5.581050194897874, 0.7336154342358537}, { 5.612096330030207, 0.7295570712700262}, {5.643142465162541, 0.725543363028346}, {5.653066930226489, 0.724281253738777}}]}, Annotation[#, "Charting`Private`Tag$61765#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.724281253738777}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{432., Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 100}, {0.724281253738777, 1.0289626411465165`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7705004850194645`*^9, 3.7705004977583847`*^9}}, CellLabel->"Out[121]=", CellID->40980545] }, Open ]] }, 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["Jack Heimrath", "Text", CellID->57578842] }, 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["Analytic Number Theory", "Item", CellID->246827076], Cell["Prime Number Theorem", "Item", CellID->686997609], Cell["Prime Numbers", "Item", CellID->343151679] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj01Ow0AMhSVEIUGII0BW7HKIKFC1ElBUc4HJ9NGMOn8aexZzeyYIUFn5We/\ Znz00Pa1IigVd7bLELD1djzP0CYfPC758MSz0sDHHGal7VTLDKTFa2W4MrqZrEzzdU3FTsEZ3j91bd\ khVnfkVsRU45nbIEr4X9NS8pxCRpNDNqATHkAy4wndxGeFf+FL32YKb54MRNVW1WivL+\ DPaJ1icO8sHwWbn/wPvtl6QYsLP0e3gC+WJUV++3YNDThofJYKadfZ6yXwBnuJkqQ=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163] }, 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["MangoldtLambda", "Item", CellID->483574677], Cell["Prime", "Item", CellID->930348717], Cell["PrimePi", "Item", CellID->918637197], Cell["Log", "Item", CellID->969295158] }, 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["ChebyshevTheta", "Item", CellID->543182998] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Prime Number Theorem\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathworld.wolfram.com/PrimeNumberTheorem.html"], None}, ButtonNote->"https://mathworld.wolfram.com/PrimeNumberTheorem.html"]], "Item",\ CellID->27683573], Cell[TextData[ButtonBox["Wikipedia\[Dash]Prime number theorem", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Prime_number_theorem"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Prime_number_theorem"]], "Item", CellID->133313422], Cell[TextData[ButtonBox["Wikipedia\[Dash]Chebyshev function", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Chebyshev_function"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Chebyshev_function"]], "Item", CellID->63565585], Cell[TextData[ButtonBox["Chebyshev Functions\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathworld.wolfram.com/ChebyshevFunctions.html"], None}, ButtonNote->"https://mathworld.wolfram.com/ChebyshevFunctions.html"]], "Item",\ CellID->624965500] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ChebyshevPsi | 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.870359555464099`16.34032630190509*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.870359555503866`16.340326301909553*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.090909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.66667], 0], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[3216557251994556740] ], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.99412, 0.7098, 0.60196]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; ( DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]), DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your function submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your function submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.95686, 0.80196, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.055556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.88072, 0.61104, 0.14205], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.36842, 0.50678, 0.7098], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.56018, 0.69157, 0.19488], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[628, 23, 95, 2, 70, "Title",ExpressionUUID->"71810cbe-43c1-433e-b958-6c4ab54703a0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->839186454]}, "TemplateCell"->{ Cell[628, 23, 95, 2, 70, "Title",ExpressionUUID->"71810cbe-43c1-433e-b958-6c4ab54703a0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->839186454], Cell[726, 27, 142, 2, 70, "Text",ExpressionUUID->"8c0cfb2f-a805-4fb6-ad44-dfb0d0250eee", CellTags->{"Description", "TemplateCell"}, CellID->317276982]}, "Title"->{ Cell[628, 23, 95, 2, 70, "Title",ExpressionUUID->"71810cbe-43c1-433e-b958-6c4ab54703a0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->839186454]}, "Description"->{ Cell[726, 27, 142, 2, 70, "Text",ExpressionUUID->"8c0cfb2f-a805-4fb6-ad44-dfb0d0250eee", CellTags->{"Description", "TemplateCell"}, CellID->317276982]}, "Definition"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"31f144b0-f7a5-4738-9b70-ccbb76de6f03", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"31f144b0-f7a5-4738-9b70-ccbb76de6f03", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"31f144b0-f7a5-4738-9b70-ccbb76de6f03", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[3380, 99, 1980, 50, 70, "Subsection",ExpressionUUID->"845ef39a-a84f-4aa0-952e-857398a1d392", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[5792, 172, 1429, 32, 70, "Subsection",ExpressionUUID->"53fdcee4-a00e-4534-b34d-35baa877fe96", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[9188, 278, 7025, 152, 70, "Section",ExpressionUUID->"a163b094-9a00-4dbb-885b-1665ceea5355", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[100737, 2098, 1026, 26, 70, "Subsection",ExpressionUUID->"a4ea6a22-bd30-4ccb-8ba2-c2aabbdb5c71", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[101851, 2132, 996, 26, 70, "Subsection",ExpressionUUID->"24fa4fe4-75c9-49ef-b793-1465e4d55cd2", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[103056, 2172, 221, 6, 70, "Subsection",ExpressionUUID->"92d57d0a-9a63-433e-9d4d-40bbf82451e5", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[111666, 2438, 980, 26, 70, "Subsection",ExpressionUUID->"fb1c4a90-a667-42d8-94c2-43d0ffa67bd4", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[112868, 2481, 1039, 26, 70, "Subsection",ExpressionUUID->"f05d5bf0-8cc3-4cf4-ace1-9550c9d0767c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[113997, 2515, 1084, 26, 70, "Subsection",ExpressionUUID->"0afd856b-bee1-4a35-9c12-d38dd897b95f", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[115637, 2556, 923, 26, 70, "Subsection",ExpressionUUID->"b20fffdf-a234-4710-b527-0222b5e43076", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[117708, 2617, 1874, 45, 70, "Subsection",ExpressionUUID->"19375e48-001d-4b74-8d78-b9bda621d337", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[119939, 2683, 955, 25, 70, "Subsection",ExpressionUUID->"74e98c86-ae62-4e87-9970-26b5d865ee92", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[120919, 2712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"bd25e4cd-9598-4414-b113-8c2f83ba473f", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[122222, 2752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e6ae31f2-2fc4-4d48-82ba-c6c1018b209c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[125473, 2850, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8b4ffe20-c99f-4387-a6d7-6ee8fbc8ed7f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[128942, 2953, 1913, 46, 70, "Subsubsection",ExpressionUUID->"ee1d9f11-4567-48cf-9897-0077ef2cd124", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[134886, 3123, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8a48d04b-8bb9-447e-9151-43912823b44a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[137239, 3195, 1155, 28, 70, "Section",ExpressionUUID->"48a3ae83-8231-4ed9-8b36-4dd3ad95a49f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[138963, 3238, 1033, 26, 70, "Section",ExpressionUUID->"61722973-e177-4571-9a4a-5adeaf1072b6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2102, 64, 1021, 21, 70, "Input",ExpressionUUID->"71d2fd7f-3d46-458a-8ba1-1cca57735001", CellTags->"TabNext", CellID->196644849], Cell[7224, 206, 1304, 43, 70, "Notes",ExpressionUUID->"8fd414c6-aff9-41c1-9c79-586c53026c24", CellTags->"TabNext", CellID->702663780], Cell[115084, 2543, 516, 8, 70, "Text",ExpressionUUID->"e12c4e57-b670-4447-91d5-c101af7d1aa7", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[138397, 3225, 529, 8, 70, "Text",ExpressionUUID->"8b6d60f2-6833-4482-b36e-729f00d02b44", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[139999, 3266, 515, 8, 70, "Text",ExpressionUUID->"6934fbd2-ec84-468c-bc1c-68ddece3851c", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[3160, 90, 195, 5, 70, "Section",ExpressionUUID->"0b56531f-7a34-4ca9-bef5-a4f58f93032e", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[3160, 90, 195, 5, 70, "Section",ExpressionUUID->"0b56531f-7a34-4ca9-bef5-a4f58f93032e", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[100463, 2089, 249, 5, 70, "Section",ExpressionUUID->"2e5648fa-4071-4416-bd6c-f8d8952dea0d", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[3380, 99, 1980, 50, 70, "Subsection",ExpressionUUID->"845ef39a-a84f-4aa0-952e-857398a1d392", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[5792, 172, 1429, 32, 70, "Subsection",ExpressionUUID->"53fdcee4-a00e-4534-b34d-35baa877fe96", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[5792, 172, 1429, 32, 70, "Subsection",ExpressionUUID->"53fdcee4-a00e-4534-b34d-35baa877fe96", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[9188, 278, 7025, 152, 70, "Section",ExpressionUUID->"a163b094-9a00-4dbb-885b-1665ceea5355", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[100463, 2089, 249, 5, 70, "Section",ExpressionUUID->"2e5648fa-4071-4416-bd6c-f8d8952dea0d", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[100737, 2098, 1026, 26, 70, "Subsection",ExpressionUUID->"a4ea6a22-bd30-4ccb-8ba2-c2aabbdb5c71", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[100737, 2098, 1026, 26, 70, "Subsection",ExpressionUUID->"a4ea6a22-bd30-4ccb-8ba2-c2aabbdb5c71", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[101851, 2132, 996, 26, 70, "Subsection",ExpressionUUID->"24fa4fe4-75c9-49ef-b793-1465e4d55cd2", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[103056, 2172, 221, 6, 70, "Subsection",ExpressionUUID->"92d57d0a-9a63-433e-9d4d-40bbf82451e5", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[103280, 2180, 8349, 253, 70, "Output",ExpressionUUID->"dddafe6f-21fa-4e60-aa74-37ce08437e47", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163]}, "Categories-Checkboxes"->{ Cell[103280, 2180, 8349, 253, 70, "Output",ExpressionUUID->"dddafe6f-21fa-4e60-aa74-37ce08437e47", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163]}, "CheckboxCell"->{ Cell[103280, 2180, 8349, 253, 70, "Output",ExpressionUUID->"dddafe6f-21fa-4e60-aa74-37ce08437e47", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163], Cell[123338, 2783, 2098, 62, 70, "Output",ExpressionUUID->"245ff44d-06b0-4941-bae7-6e487e058483", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[126756, 2885, 2149, 63, 70, "Output",ExpressionUUID->"eb6d202b-a01a-4572-be34-5377767de61d", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[130858, 3001, 3991, 117, 70, "Output",ExpressionUUID->"3209ca32-1885-424b-9c00-37eabff2cc63", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[135960, 3152, 1218, 36, 70, "Output",ExpressionUUID->"08da6f42-fa20-4ebe-bc51-53a1eb3cebce", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[111666, 2438, 980, 26, 70, "Subsection",ExpressionUUID->"fb1c4a90-a667-42d8-94c2-43d0ffa67bd4", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[112868, 2481, 1039, 26, 70, "Subsection",ExpressionUUID->"f05d5bf0-8cc3-4cf4-ace1-9550c9d0767c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[113997, 2515, 1084, 26, 70, "Subsection",ExpressionUUID->"0afd856b-bee1-4a35-9c12-d38dd897b95f", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[115084, 2543, 516, 8, 70, "Text",ExpressionUUID->"e12c4e57-b670-4447-91d5-c101af7d1aa7", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[119607, 2666, 158, 5, 70, "Input",ExpressionUUID->"37900715-5aea-4c89-a471-0f3846fca2bc", CellTags->"DefaultContent", CellID->946203791], Cell[119768, 2673, 122, 4, 70, "Output",ExpressionUUID->"9f5423ca-8b6e-4598-8ce8-c68fccdd2388", CellTags->"DefaultContent", CellID->168370258], Cell[122096, 2745, 89, 2, 70, "Text",ExpressionUUID->"df70b339-6058-462a-ae13-88ccbfa659a3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[138397, 3225, 529, 8, 70, "Text",ExpressionUUID->"8b6d60f2-6833-4482-b36e-729f00d02b44", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[139999, 3266, 515, 8, 70, "Text",ExpressionUUID->"6934fbd2-ec84-468c-bc1c-68ddece3851c", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[115637, 2556, 923, 26, 70, "Subsection",ExpressionUUID->"b20fffdf-a234-4710-b527-0222b5e43076", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[117708, 2617, 1874, 45, 70, "Subsection",ExpressionUUID->"19375e48-001d-4b74-8d78-b9bda621d337", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[117708, 2617, 1874, 45, 70, "Subsection",ExpressionUUID->"19375e48-001d-4b74-8d78-b9bda621d337", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[119939, 2683, 955, 25, 70, "Subsection",ExpressionUUID->"74e98c86-ae62-4e87-9970-26b5d865ee92", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[120919, 2712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"bd25e4cd-9598-4414-b113-8c2f83ba473f", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[120919, 2712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"bd25e4cd-9598-4414-b113-8c2f83ba473f", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[122096, 2745, 89, 2, 70, "Text",ExpressionUUID->"df70b339-6058-462a-ae13-88ccbfa659a3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[122222, 2752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e6ae31f2-2fc4-4d48-82ba-c6c1018b209c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[123338, 2783, 2098, 62, 70, "Output",ExpressionUUID->"245ff44d-06b0-4941-bae7-6e487e058483", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[122222, 2752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e6ae31f2-2fc4-4d48-82ba-c6c1018b209c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[123338, 2783, 2098, 62, 70, "Output",ExpressionUUID->"245ff44d-06b0-4941-bae7-6e487e058483", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[125473, 2850, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8b4ffe20-c99f-4387-a6d7-6ee8fbc8ed7f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[126756, 2885, 2149, 63, 70, "Output",ExpressionUUID->"eb6d202b-a01a-4572-be34-5377767de61d", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[125473, 2850, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8b4ffe20-c99f-4387-a6d7-6ee8fbc8ed7f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[126756, 2885, 2149, 63, 70, "Output",ExpressionUUID->"eb6d202b-a01a-4572-be34-5377767de61d", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[128942, 2953, 1913, 46, 70, "Subsubsection",ExpressionUUID->"ee1d9f11-4567-48cf-9897-0077ef2cd124", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[130858, 3001, 3991, 117, 70, "Output",ExpressionUUID->"3209ca32-1885-424b-9c00-37eabff2cc63", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[128942, 2953, 1913, 46, 70, "Subsubsection",ExpressionUUID->"ee1d9f11-4567-48cf-9897-0077ef2cd124", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[130858, 3001, 3991, 117, 70, "Output",ExpressionUUID->"3209ca32-1885-424b-9c00-37eabff2cc63", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[134886, 3123, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8a48d04b-8bb9-447e-9151-43912823b44a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[134886, 3123, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8a48d04b-8bb9-447e-9151-43912823b44a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[135960, 3152, 1218, 36, 70, "Output",ExpressionUUID->"08da6f42-fa20-4ebe-bc51-53a1eb3cebce", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[135960, 3152, 1218, 36, 70, "Output",ExpressionUUID->"08da6f42-fa20-4ebe-bc51-53a1eb3cebce", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[137239, 3195, 1155, 28, 70, "Section",ExpressionUUID->"48a3ae83-8231-4ed9-8b36-4dd3ad95a49f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[138963, 3238, 1033, 26, 70, "Section",ExpressionUUID->"61722973-e177-4571-9a4a-5adeaf1072b6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 265300, 5628}, {"TemplateCell", 265482, 5632}, {"Title", 265817, 5639}, {"Description", 265998, 5643}, {"Definition", 266176, 5647}, {"Function", 266372, 5651}, {"TemplateCellGroup", 266577, 5655}, {"TabNext", 270421, 5716}, {"Documentation", 271216, 5732}, {"TemplateSection", 271408, 5736}, {"Usage", 271781, 5743}, {"Details & Options", 271974, 5747}, {"Notes", 272177, 5751}, {"Examples", 272383, 5755}, {"Source & Additional Information", 272592, 5759}, {"Contributed By", 272805, 5763}, {"ContributorInformation", 273041, 5767}, {"Keywords", 273263, 5771}, {"Categories", 273455, 5775}, {"Categories-Checkboxes", 273853, 5782}, {"CheckboxCell", 274067, 5786}, {"Related Symbols", 275193, 5802}, {"Related Resource Objects", 275406, 5806}, {"Source/Reference Citation", 275630, 5810}, {"DefaultContent", 275844, 5814}, {"Links", 276817, 5833}, {"Tests", 277001, 5837}, {"VerificationTests", 277219, 5841}, {"Compatibility", 277433, 5845}, {"CompatibilityWolframLanguageVersionRequired", 277663, 5849}, {"Wolfram Language Version", 277936, 5853}, {"ScrapeDefault", 278198, 5857}, {"CompatibilityOperatingSystem", 278402, 5861}, {"Operating System", 278873, 5868}, {"CompatibilityOperatingSystem-Checkboxes", 279138, 5872}, {"CompatibilityFeatures", 279396, 5876}, {"Required Features", 279848, 5883}, {"CompatibilityFeatures-Checkboxes", 280100, 5887}, {"CompatibilityEvaluationEnvironment", 280357, 5891}, {"Environments", 280839, 5898}, {"CompatibilityEvaluationEnvironment-Checkboxes", 281112, 5902}, {"Cloud Support", 281375, 5906}, {"CompatibilityCloudSupport", 281620, 5910}, {"CompatibilityCloudSupport-Checkboxes", 282099, 5917}, {"Author Notes", 282342, 5921}, {"Submission Notes", 282542, 5925} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[628, 23, 95, 2, 70, "Title",ExpressionUUID->"71810cbe-43c1-433e-b958-6c4ab54703a0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->839186454], Cell[726, 27, 142, 2, 70, "Text",ExpressionUUID->"8c0cfb2f-a805-4fb6-ad44-dfb0d0250eee", CellTags->{"Description", "TemplateCell"}, CellID->317276982], Cell[CellGroupData[{ Cell[893, 33, 1206, 29, 70, "Section",ExpressionUUID->"31f144b0-f7a5-4738-9b70-ccbb76de6f03", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2102, 64, 1021, 21, 70, "Input",ExpressionUUID->"71d2fd7f-3d46-458a-8ba1-1cca57735001", CellTags->"TabNext", CellID->196644849] }, Open ]], Cell[CellGroupData[{ Cell[3160, 90, 195, 5, 70, "Section",ExpressionUUID->"0b56531f-7a34-4ca9-bef5-a4f58f93032e", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[3380, 99, 1980, 50, 70, "Subsection",ExpressionUUID->"845ef39a-a84f-4aa0-952e-857398a1d392", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[5385, 153, 142, 4, 70, "UsageInputs",ExpressionUUID->"d71974e7-e714-4acb-8e7b-48f8e314bf9e", CellID->748402470], Cell[5530, 159, 213, 7, 70, "UsageDescription",ExpressionUUID->"32914472-9d70-4c32-bf30-ae2c38b50892", CellID->606875941] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5792, 172, 1429, 32, 70, "Subsection",ExpressionUUID->"53fdcee4-a00e-4534-b34d-35baa877fe96", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[7224, 206, 1304, 43, 70, "Notes",ExpressionUUID->"8fd414c6-aff9-41c1-9c79-586c53026c24", CellTags->"TabNext", CellID->702663780], Cell[8531, 251, 608, 21, 70, "Notes",ExpressionUUID->"414a2a41-c031-4548-8552-d992329271b2", CellID->849994851] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9188, 278, 7025, 152, 70, "Section",ExpressionUUID->"a163b094-9a00-4dbb-885b-1665ceea5355", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[16238, 434, 75, 2, 70, "Subsection",ExpressionUUID->"b1736ac7-2347-41f1-aa94-3a76827e2692", CellID->904125756], Cell[16316, 438, 343, 12, 70, "Text",ExpressionUUID->"99c90277-2085-4ad3-9d0c-07548a0dae6f", CellID->285649181], Cell[CellGroupData[{ Cell[16684, 454, 198, 5, 70, "Input",ExpressionUUID->"74cbe428-0de6-44c3-8f70-1e76e7034558", CellID->109850191], Cell[16885, 461, 616, 18, 70, "Output",ExpressionUUID->"676bd952-89e9-49c1-8b37-6b2058218b90", CellID->516644730] }, Open ]], Cell[CellGroupData[{ Cell[17538, 484, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6ff9979a-f9d8-40ff-846e-1a768a57ba48", CellID->14107562], Cell[17684, 490, 184, 4, 70, "Text",ExpressionUUID->"b10c2105-3d6f-4e98-beca-0084e85348ef", CellID->650914803], Cell[CellGroupData[{ Cell[17893, 498, 222, 6, 70, "Input",ExpressionUUID->"cbaf8ce1-e1a1-47c6-b139-fb1b9e0ede8e", CellID->364493708], Cell[18118, 506, 154, 4, 70, "Output",ExpressionUUID->"27bb36bc-878d-46b5-a0f2-d3809f7c8e5c", CellID->609661972] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18321, 516, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"fe1552ae-009b-4286-b09c-1af117814ba3", CellID->14107563], Cell[18467, 522, 376, 13, 70, "Text",ExpressionUUID->"fb30d0db-711f-49ea-af98-880c27130d3a", CellID->587971301], Cell[CellGroupData[{ Cell[18868, 539, 311, 9, 70, "Input",ExpressionUUID->"24034a92-3ea4-4f06-8f95-397eac6f2e79", CellID->840555084], Cell[19182, 550, 4800, 100, 70, "Output",ExpressionUUID->"4c05f46a-c0ff-40eb-8f2d-552ce681adb5", CellID->945038634] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24031, 656, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3f3998fa-e10f-4812-a4ea-89b8c6bc8240", CellID->14107564], Cell[24177, 662, 801, 30, 70, "Text",ExpressionUUID->"b0349ea2-c4e7-4af6-9a73-e54f60621582", CellID->560737648], Cell[CellGroupData[{ Cell[25003, 696, 667, 20, 70, "Input",ExpressionUUID->"872ba1f5-798c-48f9-b96f-efd3427a8bd6", CellID->877938625], Cell[25673, 718, 49923, 911, 70, "Output",ExpressionUUID->"ae64907e-b42a-4666-9fbc-d91282f83c2a", CellID->552049077] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75645, 1635, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"bb9b25ed-a998-4ede-92cf-01c46be79dda", CellID->14107565], Cell[75791, 1641, 317, 11, 70, "Text",ExpressionUUID->"d1730586-7157-4764-9e3b-3cfcfb1afb95", CellID->994459745], Cell[CellGroupData[{ Cell[76133, 1656, 336, 10, 70, "Input",ExpressionUUID->"954da7fd-4835-4799-9205-2742e13f6187", CellID->313764767], Cell[76472, 1668, 23918, 413, 70, "Output",ExpressionUUID->"982213e7-c764-4f65-8728-a64350200172", CellID->40980545] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[100463, 2089, 249, 5, 70, "Section",ExpressionUUID->"2e5648fa-4071-4416-bd6c-f8d8952dea0d", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[100737, 2098, 1026, 26, 70, "Subsection",ExpressionUUID->"a4ea6a22-bd30-4ccb-8ba2-c2aabbdb5c71", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[101766, 2126, 48, 1, 70, "Text",ExpressionUUID->"c8af927e-6f57-4de0-bac7-d4499273dc63", CellID->57578842] }, Open ]], Cell[CellGroupData[{ Cell[101851, 2132, 996, 26, 70, "Subsection",ExpressionUUID->"24fa4fe4-75c9-49ef-b793-1465e4d55cd2", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[102850, 2160, 58, 1, 70, "Item",ExpressionUUID->"16b4f891-0731-433b-bfd7-ec23d86192f5", CellID->246827076], Cell[102911, 2163, 56, 1, 70, "Item",ExpressionUUID->"d5a60cbe-f4e1-4514-a3c3-956b00fe5377", CellID->686997609], Cell[102970, 2166, 49, 1, 70, "Item",ExpressionUUID->"e2217c97-fdfa-426d-a9e1-beae5abd6cad", CellID->343151679] }, Open ]], Cell[CellGroupData[{ Cell[103056, 2172, 221, 6, 70, "Subsection",ExpressionUUID->"92d57d0a-9a63-433e-9d4d-40bbf82451e5", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[103280, 2180, 8349, 253, 70, "Output",ExpressionUUID->"dddafe6f-21fa-4e60-aa74-37ce08437e47", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163] }, Open ]], Cell[CellGroupData[{ Cell[111666, 2438, 980, 26, 70, "Subsection",ExpressionUUID->"fb1c4a90-a667-42d8-94c2-43d0ffa67bd4", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[112649, 2466, 50, 1, 70, "Item",ExpressionUUID->"82330fb2-636a-4947-8750-9ef005bbf8b1", CellID->483574677], Cell[112702, 2469, 41, 1, 70, "Item",ExpressionUUID->"bfa452d7-63e9-4b7a-a3c1-725071a621a4", CellID->930348717], Cell[112746, 2472, 43, 1, 70, "Item",ExpressionUUID->"adb4a812-b9b3-48a7-a33f-0c39c38fbdad", CellID->918637197], Cell[112792, 2475, 39, 1, 70, "Item",ExpressionUUID->"e3005312-b775-4b1e-95a5-b1d66d943fa0", CellID->969295158] }, Open ]], Cell[CellGroupData[{ Cell[112868, 2481, 1039, 26, 70, "Subsection",ExpressionUUID->"f05d5bf0-8cc3-4cf4-ace1-9550c9d0767c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[113910, 2509, 50, 1, 70, "Item",ExpressionUUID->"fdc58bec-c87c-4011-9ca0-57d64c8400b3", CellID->543182998] }, Open ]], Cell[CellGroupData[{ Cell[113997, 2515, 1084, 26, 70, "Subsection",ExpressionUUID->"0afd856b-bee1-4a35-9c12-d38dd897b95f", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[115084, 2543, 516, 8, 70, "Text",ExpressionUUID->"e12c4e57-b670-4447-91d5-c101af7d1aa7", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[115637, 2556, 923, 26, 70, "Subsection",ExpressionUUID->"b20fffdf-a234-4710-b527-0222b5e43076", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[116563, 2584, 284, 6, 70, "Item",ExpressionUUID->"4e04def8-8f6b-4f79-8b3c-3cc665a8a66b", CellID->27683573], Cell[116850, 2592, 269, 5, 70, "Item",ExpressionUUID->"1951eb80-57b3-46cf-8a5b-bb30dd1ad5ce", CellID->133313422], Cell[117122, 2599, 262, 5, 70, "Item",ExpressionUUID->"b41195d6-377b-4015-87a7-8e5bfcb55041", CellID->63565585], Cell[117387, 2606, 284, 6, 70, "Item",ExpressionUUID->"7d453064-9062-4b42-8c5c-2109cb3fb36d", CellID->624965500] }, Open ]], Cell[CellGroupData[{ Cell[117708, 2617, 1874, 45, 70, "Subsection",ExpressionUUID->"19375e48-001d-4b74-8d78-b9bda621d337", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[119607, 2666, 158, 5, 70, "Input",ExpressionUUID->"37900715-5aea-4c89-a471-0f3846fca2bc", CellTags->"DefaultContent", CellID->946203791], Cell[119768, 2673, 122, 4, 70, "Output",ExpressionUUID->"9f5423ca-8b6e-4598-8ce8-c68fccdd2388", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[119939, 2683, 955, 25, 70, "Subsection",ExpressionUUID->"74e98c86-ae62-4e87-9970-26b5d865ee92", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[120919, 2712, 1174, 31, 70, "Subsubsection",ExpressionUUID->"bd25e4cd-9598-4414-b113-8c2f83ba473f", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[122096, 2745, 89, 2, 70, "Text",ExpressionUUID->"df70b339-6058-462a-ae13-88ccbfa659a3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[122222, 2752, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e6ae31f2-2fc4-4d48-82ba-c6c1018b209c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[123338, 2783, 2098, 62, 70, "Output",ExpressionUUID->"245ff44d-06b0-4941-bae7-6e487e058483", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[125473, 2850, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8b4ffe20-c99f-4387-a6d7-6ee8fbc8ed7f", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[126756, 2885, 2149, 63, 70, "Output",ExpressionUUID->"eb6d202b-a01a-4572-be34-5377767de61d", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[128942, 2953, 1913, 46, 70, "Subsubsection",ExpressionUUID->"ee1d9f11-4567-48cf-9897-0077ef2cd124", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[130858, 3001, 3991, 117, 70, "Output",ExpressionUUID->"3209ca32-1885-424b-9c00-37eabff2cc63", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[134886, 3123, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8a48d04b-8bb9-447e-9151-43912823b44a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[135960, 3152, 1218, 36, 70, "Output",ExpressionUUID->"08da6f42-fa20-4ebe-bc51-53a1eb3cebce", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[137239, 3195, 1155, 28, 70, "Section",ExpressionUUID->"48a3ae83-8231-4ed9-8b36-4dd3ad95a49f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[138397, 3225, 529, 8, 70, "Text",ExpressionUUID->"8b6d60f2-6833-4482-b36e-729f00d02b44", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[138963, 3238, 1033, 26, 70, "Section",ExpressionUUID->"61722973-e177-4571-9a4a-5adeaf1072b6", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[139999, 3266, 515, 8, 70, "Text",ExpressionUUID->"6934fbd2-ec84-468c-bc1c-68ddece3851c", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)